source: WorldVistAEHR/trunk/r/CARE_MANAGEMENT-ORRC/ORRCLNP.m@ 1604

Last change on this file since 1604 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 713 bytes
Line 
1ORRCLNP ; SLC/JER - Person functions for CM ; 9/23/04 14:30
2 ;;1.0;CARE MANAGEMENT;**1**;Jul 15, 2003
3EMAIL(USER) ; e-mail address
4 Q $$NETNAME^XMXUTIL(USER)
5NAME(USER) ; Person Name
6 Q $$NAME^XUSER(USER)
7SSNL4(USER) ; SSN Last4
8 N ORRCY
9 S ORRCY=$$GET1^DIQ(200,USER,9)
10 Q $S(+ORRCY:$E(ORRCY,6,10),1:ORRCY)
11SEX(USER) ; Person SEX
12 Q $$GET1^DIQ(200,USER,4,"I")
13PROVIDER(USER) ; Boolean fn: is user a provider
14 Q $S(+$D(^XUSEC("PROVIDER",USER)):1,+$$ISA^USRLM(USER,"PROVIDER"):1,1:0)
15 ;
16SYS(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.