HLZP4PST.m

HLZP4PST ;IHS/OIRM/DSD/AEF - HL7 PATCH 1004 POST INSTALL ROUTINE [ 04/02/2003   8:37 AM ]

 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D ^XBKVAR

 D AVAP15

 Q

AVAP15 ;----- RESET X-REFS IN NEW PERSON & INSTITUTION FILES

 ;

 D EN^AVAP15

 Q

HLZP4PST  ;IHS/OIRM/DSD/AEF - HL7 PATCH 1004 POST INSTALL ROUTINE [ 04/02/2003   8:37 AM ]

 +1       ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO ^XBKVAR

 +3        DO AVAP15

 +4        QUIT 

AVAP15    ;----- RESET X-REFS IN NEW PERSON & INSTITUTION FILES

 +1       ;

 +2        DO EN^AVAP15

 +3        QUIT