|
Last change
on this file since 701 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.
