VistA Analysis » VistA Reference » RPCs » XUS GET USER INFO

XUS GET USER INFO

Returns information about a user after logon.

Properties

Property Value
Label USERINFO
MUMPS Implementation XUSRB2
Return Type ARRAY

MUMPS Method Description

Property Value
Method USERINFO^XUSRB2
Method Comment generic user information for seeding VistaUser object.
First Comment
Entry point for 'XUS GET USER INFO' RPC
Code
 N %,XU1,XU5
S RET(0)=DUZ
F %=1:1:6 S RET(%)="unk"
I DUZ'>0 S XWBSEC="User not fully sign-on" Q
S XU1=^VA(200,DUZ,0),XU5=$G(^(5))
S RET(1)=$P(XU1,"^") ;.01 User name.
S RET(2)=$$NAME^XUSER(DUZ) ;Return standard name.
S RET(3)=DUZ(2)_"^"_$$NS^XUAF4(DUZ(2))
S %=+$P(XU1,U,9),RET(4)=$P($G(^DIC(3.1,%,0)),U) ;Title
S %=+XU5,RET(5)=$P($G(^DIC(49,%,0)),U) ;Service/Section
S RET(6)=$G(DUZ("LANG")) ;User language
S RET(7)=DTIME ;Users DTIME
S RET(8)=$$VPID^XUPS(DUZ) ;Return VPID

CPRS

File Type Description
Executable Only  


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