Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
587 bytes
|
Rev | Line | |
---|
[613] | 1 | XUA4A73 ;BP-OAK/BDT - Person Class Input Transform;2/13/07
|
---|
| 2 | ;;8.0;KERNEL;**450**;Jul 10, 1995;Build 4
|
---|
| 3 | Q
|
---|
| 4 | ENT(DA,X) ;
|
---|
| 5 | N XUA,XUIEN,XUEFFDT
|
---|
| 6 | S XUA=$G(^VA(200,DA(1),"USC1",DA,0)) ;get information
|
---|
| 7 | S XUIEN=$P(XUA,"^"),XUEFFDT=$P(XUA,"^",2)
|
---|
| 8 | N XUB,XUSTAT,XUDATE
|
---|
| 9 | S XUB=$$PSC(XUIEN) ;get status from Person Class file.
|
---|
| 10 | S XUSTAT=$P(XUB,"^"),XUDATE=$P(XUB,"^",2)
|
---|
| 11 | I XUEFFDT>X Q ""
|
---|
| 12 | I XUSTAT="i",X>XUDATE Q ""
|
---|
| 13 | Q 1
|
---|
| 14 | ;
|
---|
| 15 | PSC(XUIEN) ; Get Status and Expiration Date for Person Class XUIEN
|
---|
| 16 | I +XUIEN'=XUIEN Q "^"
|
---|
| 17 | I +XUIEN'>0 Q "^"
|
---|
| 18 | N XUDATA
|
---|
| 19 | S XUDATA=$G(^USC(8932.1,XUIEN,0))
|
---|
| 20 | Q $P(XUDATA,"^",4,5)
|
---|
Note:
See
TracBrowser
for help on using the repository browser.