26 lines
713 B
Mathematica
26 lines
713 B
Mathematica
ORRCLNP ; SLC/JER - Person functions for CM ; 9/23/04 14:30
|
|
;;1.0;CARE MANAGEMENT;**1**;Jul 15, 2003
|
|
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
|