source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUA4A73.m@ 623

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

initial load of WorldVistAEHR

File size: 587 bytes
Line 
1XUA4A73 ;BP-OAK/BDT - Person Class Input Transform;2/13/07
2 ;;8.0;KERNEL;**450**;Jul 10, 1995;Build 4
3 Q
4ENT(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 ;
15PSC(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.