Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
713 bytes
|
Line | |
---|
1 | ORRCLNP ; SLC/JER - Person functions for CM ; 9/23/04 14:30
|
---|
2 | ;;1.0;CARE MANAGEMENT;**1**;Jul 15, 2003
|
---|
3 | EMAIL(USER) ; e-mail address
|
---|
4 | Q $$NETNAME^XMXUTIL(USER)
|
---|
5 | NAME(USER) ; Person Name
|
---|
6 | Q $$NAME^XUSER(USER)
|
---|
7 | SSNL4(USER) ; SSN Last4
|
---|
8 | N ORRCY
|
---|
9 | S ORRCY=$$GET1^DIQ(200,USER,9)
|
---|
10 | Q $S(+ORRCY:$E(ORRCY,6,10),1:ORRCY)
|
---|
11 | SEX(USER) ; Person SEX
|
---|
12 | Q $$GET1^DIQ(200,USER,4,"I")
|
---|
13 | PROVIDER(USER) ; Boolean fn: is user a provider
|
---|
14 | Q $S(+$D(^XUSEC("PROVIDER",USER)):1,+$$ISA^USRLM(USER,"PROVIDER"):1,1:0)
|
---|
15 | ;
|
---|
16 | SYS(PROD) ;RPC to determine if current system is PROD or TEST
|
---|
17 | ; **Requires XU*8.0*284
|
---|
18 | ;
|
---|
19 | ; Input: NONE
|
---|
20 | ; Output: returned in PROD
|
---|
21 | ; 1 if production system
|
---|
22 | ; 0 if not production system
|
---|
23 | ;
|
---|
24 | S PROD=+$$PROD^XUPROD
|
---|
25 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.