| GENERAL DESCRIPTION |
The PCE Patient/IHS Subset package (namespaced PXPT)
requests a DBIA with the Indian Health Service to distribute the AUPNPAT
routine with the PXPT package. The PXPT package will distribute it as
PXPTNPAT and use ZOSF to load and save the routine as AUPNPAT.
There have been no coding changes to the AUPNPAT code by the VA. This is the
same version that is at Tucson VAMC running as of September 4, 1994.
This routine is defined in the POST-SELECTION ACTION field of the PATIENT/IHS
file distributed with the PXPT package.
AUPNPAT ; IHS/OHPRD/EDE - POST SELECTION SETS FOR PATIENT LOOKUP ;
24-MAY-1993
;;93.2;IHS PATIENT DICTIONARIES.;;JUL 01, 1993
;
; This routine sets standard patient variables
;
START ;
S:$D(X) AUPNPATX=X
S AUPNPAT=+Y
S AUPNSEX=$P(^DPT(AUPNPAT,0),U,2),AUPNDOB=$P(^(0),U,3),AUPNDOD=""
S:$D(^(.35)) AUPNDOD=$P(^(.35),U,1)
S X2=AUPNDOB,X1=$S('AUPNDOD:DT,AUPNDOD:AUPNDOD,1:DT) D ^%DTC S
AUPNDAYS=X K X,X1,X2
S:$D(AUPNPATX) X=AUPNPATX
K %T,%Y,AUPNPATX
Q
;
KILL ; KILL VARIABLES SET BY THIS ROUTINE
K AUPNPAT,AUPNSEX,AUPNDOB,AUPNDOD,AUPNDAYS
Q
The following routine (PXPTNPAT) is a PXPT version of AUPNPAT that is being
distributed to the field. When the ZOSF("SAVE") is completed, the AUPNPAT
routine will appear as displayed above.
PXPTNPAT ; SLC/DLT - Post selection sets for Patient Lookup EXPORT
;1/22/ 94 21:03
;;1.0V1;PCE PATIENT/IHS SUBSET (PXPT);;Sept 7, 1994 AUPNPAT ;
IHS/OHPRD/EDE - POST SELECTION SETS FOR PATIENT LOOKUP ;
24-MAY-1993
;;93.2;IHS PATIENT DICTIONARIES.;;JUL 01, 1993
;
; This routine sets standard patient variables
;
START ;
S:$D(X) AUPNPATX=X
S AUPNPAT=+Y
S AUPNSEX=$P(^DPT(AUPNPAT,0),U,2),AUPNDOB=$P(^(0),U,3),AUPNDOD=""
S:$D(^(.35)) AUPNDOD=$P(^(.35),U,1)
S X2=AUPNDOB,X1=$S('AUPNDOD:DT,AUPNDOD:AUPNDOD,1:DT) D ^%DTC S
AUPNDAYS=X K X,X1,X2
S:$D(AUPNPATX) X=AUPNPATX
K %T,%Y,AUPNPATX
Q
;
KILL ; KILL VARIABLES SET BY THIS ROUTINE
K AUPNPAT,AUPNSEX,AUPNDOB,AUPNDOD,AUPNDAYS
Q
|
