GMRC134P.m

GMRC134P ;HSRM/PB/MBJ E- CCRA PRE INSTALL;APR 22, 2019

 ;;3.0;Consult Tracking;**134**;July 19, 2019;Build 20

 ;;Per VA directive 6402, this routine should not be modified.

 ;Pre install routine for patch GMRC*3.0*134.

 ;Sets the Auto Start FIELD (#4.5) in the HL LOGICAL LINK FILE to Enabled

 Q

EN ;

 N X,DIC,Y,X,GMRCIEN,GMRCFDA,GMRCMSG

 K DIC(0)

 S X="GMRCCCRA",DIC(0)="QEZ",DIC="^HLCS(870," D ^DIC

 Q:+$G(Y)'>0

 S GMRCIEN=+Y_","

 S GMRCFDA(870,GMRCIEN,4.5)=1

 D UPDATE^DIE("","GMRCFDA","GMRCIEN","GMRCMSG")

 K X,DIC,Y,GMRCIEN,GMRCFDA,GMRCMSG,Y,X,DIC(0)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRC134P   575     printed  Apr 09, 2024@20:50:13                                                                                                                                                                                                     Page 2

GMRC134P  ;HSRM/PB/MBJ E- CCRA PRE INSTALL;APR 22, 2019

 +1       ;;3.0;Consult Tracking;**134**;July 19, 2019;Build 20

 +2       ;;Per VA directive 6402, this routine should not be modified.

 +3       ;Pre install routine for patch GMRC*3.0*134.

 +4       ;Sets the Auto Start FIELD (#4.5) in the HL LOGICAL LINK FILE to Enabled

 +5        QUIT 

EN        ;

 +1        NEW X,DIC,Y,X,GMRCIEN,GMRCFDA,GMRCMSG

 +2        KILL DIC(0)

 +3        SET X="GMRCCCRA"

           SET DIC(0)="QEZ"

           SET DIC="^HLCS(870,"

           DO ^DIC

 +4        if +$GET(Y)'>0

               QUIT 

 +5        SET GMRCIEN=+Y_","

 +6        SET GMRCFDA(870,GMRCIEN,4.5)=1

 +7        DO UPDATE^DIE("","GMRCFDA","GMRCIEN","GMRCMSG")

 +8        KILL X,DIC,Y,GMRCIEN,GMRCFDA,GMRCMSG,Y,X,DIC(0)

 +9        QUIT