PXPTPOST.m

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

 ;IHS/ITSC/LJF 5/28/2003 IHS uses PCC MASTER CONTROL file - don't delete!!!

 ;

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

 ;

 Q   ;IHS/ITSC/LJF 5/28/2003

 ;

 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

 ;

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

 +3       ;IHS/ITSC/LJF 5/28/2003 IHS uses PCC MASTER CONTROL file - don't delete!!!

 +4       ;

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       ;IHS/ITSC/LJF 5/28/2003

           QUIT 

 +4       ;

 +5        DO BMES^XPDUTL("Now remove the old PCC MASTER CONTROL file (#9001000)")

 +6        NEW DIU

 +7        SET DIU=9001000

 +8        SET DIU(0)="DT"

 +9        DO EN^DIU2

 +10       QUIT 

 +11      ;

QUE       ; Queue job to populate IHS Patient File #9000001

 +1        DO QUE^PXPT

 +2        QUIT 

 +3       ;

 +4       ;

GETLOC     DO GETLOC^PXPT

 +1        QUIT 

 +2       ;