Last change
on this file since 628 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
598 bytes
|
Rev | Line | |
---|
[628] | 1 | AUPNPAT ;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 | ;
|
---|
| 7 | START ;
|
---|
| 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 | ;
|
---|
| 16 | KILL ; 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.