VistA Analysis » VistA Reference » RPCs » XUS DIVISION GET

XUS DIVISION GET

This RPC will return a list of divisions of a user.

Properties

Property	Value
Label	DIVGET
MUMPS Implementation	XUSRB2
Return Type	ARRAY

Input Parameters

Name	Type	Maximum Data Length	Required	Description
IEN	LITERAL	30	true	If passed this will be the user to get the division info on.

MUMPS Method Description

Property	Value
Method	DIVGET^XUSRB2
Method Comment	Get Division data
Input Parameters	IEN
First Comment	`IEN is userid (DUZ or username) for future use.`
Code	`N %,XUDIV S XUDIV=0,%=$$CHKDIV^XUS1(.XUDIV) ;Get users div. I (%>0)&($P(%,U,2)'>0) D UPDIV(+%) ;Set users default div. S RET(0)=XUDIV ;RET(0) is number of divisions. I XUDIV S %=0 D S RET(0)=XUDIV . ;RET(%) is divison array eg. ien;station name;station# . F S %=$O(XUDIV(%)) Q:(%'>0) S RET(%)=XUDIV(%)`

CPRS

File Type	Description
Executable Only

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