source: FOIAVistA/trunk/r/IHS_ROUTINES-AUP/AUPNPAT.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 598 bytes
Line 
1AUPNPAT ;IHS/OHPRD/EDE - POST SELECTION SETS FOR PATIENT LOOKUP ; 24-MAY-1993
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3 ;;93.2;IHS PATIENT DICTIONARIES.;;JUL 01, 1993
4 ;
5 ; This routine sets standard patient variables
6 ;
7START ;
8 S:$D(X) AUPNPATX=X
9 S AUPNPAT=+Y
10 S AUPNSEX=$P(^DPT(AUPNPAT,0),U,2),AUPNDOB=$P(^(0),U,3),AUPNDOD="" S:$D(^(.35)) AUPNDOD=$P(^(.35),U,1)
11 S X2=AUPNDOB,X1=$S('AUPNDOD:DT,AUPNDOD:AUPNDOD,1:DT) D ^%DTC S AUPNDAYS=X K X,X1,X2
12 S:$D(AUPNPATX) X=AUPNPATX
13 K %T,%Y,AUPNPATX
14 Q
15 ;
16KILL ; KILL VARIABLES SET BY THIS ROUTINE
17 K AUPNPAT,AUPNSEX,AUPNDOB,AUPNDOD,AUPNDAYS
18 Q
Note: See TracBrowser for help on using the repository browser.