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

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 ---PXPTPOST   621     printed  Apr 09, 2024@21:29:18                                                                                                                                                                                                     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       ;