ORRCLNP ; SLC/JER - Person functions for CM ;Oct 27, 2023@12:14:13
;;3.0;ORDER ENTRY/RESULTS REPORTING;**535**;Dec 17, 1997;Build 20
;Reference to ^XUSEC("PROVIDER" in ICR #10076
;Reference to $$GET1^DIQ in ICR #2056
;Reference to $$ISA^USRLM in ICR #1544
;Reference to $$NETNAME^XMXUTIL in ICR #2734
;Reference to $$PROD^XUPROD in ICR #4440
;Reference to $$NAME^XUSER in ICR #2343
;
EMAIL(USER) ; e-mail address
Q $$NETNAME^XMXUTIL(USER)
NAME(USER) ; Person Name
Q $$NAME^XUSER(USER)
SSNL4(USER) ; SSN Last4
N ORRCY
S ORRCY=$$GET1^DIQ(200,USER,9)
Q $S(+ORRCY:$E(ORRCY,6,10),1:ORRCY)
SEX(USER) ; Person SEX
Q $$GET1^DIQ(200,USER,4,"I")
PROVIDER(USER) ; Boolean fn: is user a provider
Q $S(+$D(^XUSEC("PROVIDER",USER)):1,+$$ISA^USRLM(USER,"PROVIDER"):1,1:0)
;
SYS(PROD) ;RPC to determine if current system is PROD or TEST
; **Requires XU*8.0*284
;
; Input: NONE
; Output: returned in PROD
; 1 if production system
; 0 if not production system
;
S PROD=+$$PROD^XUPROD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORRCLNP 1035 printed Nov 22, 2024@16:51:24 Page 2
ORRCLNP ; SLC/JER - Person functions for CM ;Oct 27, 2023@12:14:13
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**535**;Dec 17, 1997;Build 20
+2 ;Reference to ^XUSEC("PROVIDER" in ICR #10076
+3 ;Reference to $$GET1^DIQ in ICR #2056
+4 ;Reference to $$ISA^USRLM in ICR #1544
+5 ;Reference to $$NETNAME^XMXUTIL in ICR #2734
+6 ;Reference to $$PROD^XUPROD in ICR #4440
+7 ;Reference to $$NAME^XUSER in ICR #2343
+8 ;
EMAIL(USER) ; e-mail address
+1 QUIT $$NETNAME^XMXUTIL(USER)
NAME(USER) ; Person Name
+1 QUIT $$NAME^XUSER(USER)
SSNL4(USER) ; SSN Last4
+1 NEW ORRCY
+2 SET ORRCY=$$GET1^DIQ(200,USER,9)
+3 QUIT $SELECT(+ORRCY:$EXTRACT(ORRCY,6,10),1:ORRCY)
SEX(USER) ; Person SEX
+1 QUIT $$GET1^DIQ(200,USER,4,"I")
PROVIDER(USER) ; Boolean fn: is user a provider
+1 QUIT $SELECT(+$DATA(^XUSEC("PROVIDER",USER)):1,+$$ISA^USRLM(USER,"PROVIDER"):1,1:0)
+2 ;
SYS(PROD) ;RPC to determine if current system is PROD or TEST
+1 ; **Requires XU*8.0*284
+2 ;
+3 ; Input: NONE
+4 ; Output: returned in PROD
+5 ; 1 if production system
+6 ; 0 if not production system
+7 ;
+8 SET PROD=+$$PROD^XUPROD
+9 QUIT
