VistA Analysis » VistA Reference » RPCs » XUS DIVISION SET

XUS DIVISION SET

This RPC is used to set the user’s selected Division in DUZ(2) duringsign-on.

Properties

Property Value
Label DIVSET
MUMPS Implementation XUSRB2
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
DIV LITERAL 12 true  

MUMPS Method Description

Property Value
Method DIVSET^XUSRB2
Method Comment Set users Division
Input Parameters DIV
Code 
 S RET=0,DIV=$$FIND1^DIC(200.02,","_DUZ_",","MX",$G(DIV))
 Q:DIV'>0
 N X
 I '$D(^VA(200,DUZ,2,DIV,0)) Q
 S RET=1 ;1=set, 0=not set
 D UPDIV(+DIV) ;Update Sign-on log

CPRS

File Type Description
Executable Only  


Document generated on August 31st 2022, 2:55:43 pm