- 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 Feb 18, 2025@23:56:09 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 ;