VistA Analysis » VistA Reference » RPCs » TIU DIV AND CLASS INFO

TIU DIV AND CLASS INFO

Returns a list of Divisions and User Classes for a specific User.

Properties

Property	Value
Label	USERINFO
MUMPS Implementation	TIUSRVT1
Return Type	ARRAY

Input Parameters

Name	Type	Maximum Data Length	Required	Description
USER

MUMPS Method Description

Property	Value
Method	USERINFO^TIUSRVT1
Method Comment	Returns List of User Divisions and ASU Classes
Input Parameters	USER
Code	`N TIUI,I,IDX,IEN,TIUERR,SRV S I=0,IDX=1 F S I=$O(^VA(200,USER,2,I)) Q:'I D . I USER=DUZ,I=DUZ(2) S ORY(1)="D^"_I . E S IDX=IDX+1,ORY(IDX)="D^"_I S TIUI="" F S TIUI=$O(^USR(8930,"B",TIUI)) Q:(TIUI="") D . S IEN=$O(^USR(8930,"B",TIUI,0)) . I $P(^USR(8930,IEN,0),U,3)="0" Q . I '$$ISA^USRLM(USER,IEN,.TIUERR) Q . S IDX=IDX+1,ORY(IDX)="C^"_IEN S SRV=$P($G(^VA(200,USER,5)),U) I +SRV S IDX=IDX+1,ORY(IDX)="S^"_SRV`

CPRS

File Type	Description
Pascal File	rTIU.pas

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