PXPTPOST ;ISL/MKB,DLT,dee - Patient/IHS install post-init ;8/10/96
;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
;;1.0;PCE Patient/IHS Subset;;Nov 01, 1994
EN ; entry point (not used)
D LOC,MASTER,QUE
Q
;
LOC ;Populate LOCATION file (#9999999.06)
D LOC^PXPT
Q
;
MASTER ;Populate the PXPT fields $501 & #502 in PCE PARAMETERS file (#815)
D MASTER^PXPT
;
D BMES^XPDUTL("Now remove the old PCC MASTER CONTROL file (#9001000)")
N DIU
S DIU=9001000
S DIU(0)="DT"
D EN^DIU2
Q
;
QUE ; Queue job to populate IHS Patient File #9000001
D QUE^PXPT
Q
;
;
GETLOC D GETLOC^PXPT
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXPTPOST 621 printed Oct 16, 2024@18:30:29 Page 2
PXPTPOST ;ISL/MKB,DLT,dee - Patient/IHS install post-init ;8/10/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
+2 ;;1.0;PCE Patient/IHS Subset;;Nov 01, 1994
EN ; entry point (not used)
+1 DO LOC
DO MASTER
DO QUE
+2 QUIT
+3 ;
LOC ;Populate LOCATION file (#9999999.06)
+1 DO LOC^PXPT
+2 QUIT
+3 ;
MASTER ;Populate the PXPT fields $501 & #502 in PCE PARAMETERS file (#815)
+1 DO MASTER^PXPT
+2 ;
+3 DO BMES^XPDUTL("Now remove the old PCC MASTER CONTROL file (#9001000)")
+4 NEW DIU
+5 SET DIU=9001000
+6 SET DIU(0)="DT"
+7 DO EN^DIU2
+8 QUIT
+9 ;
QUE ; Queue job to populate IHS Patient File #9000001
+1 DO QUE^PXPT
+2 QUIT
+3 ;
+4 ;
GETLOC DO GETLOC^PXPT
+1 QUIT
+2 ;
