SDPST730.m

SDPST730 ;HSRM/PB CCRA PRE INSTALL;APR 22, 2019

 ;;5.3;Scheduling;**730**;APR 4, 2019;Build 8

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

 ;Pre install routine for patch SD*5.3*730.

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

 Q

EN ;

 N X,DIC,Y,X,SDIEN,SDFDA,SDMSG

 K DIC(0)

 S X="CCRA-NAK",DIC(0)="QEZ",DIC="^HLCS(870," D ^DIC

 Q:+$G(Y)'>0

 S SDIEN=+Y_","

 S SDFDA(870,SDIEN,4.5)=1

 D UPDATE^DIE("","SDFDA","SDIEN","SDMSG")

 K X,DIC,Y,SDIEN,SDFDA,SDMSG,Y,X,DIC(0)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDPST730   533     printed  Apr 09, 2024@21:43:05                                                                                                                                                                                                     Page 2

SDPST730  ;HSRM/PB CCRA PRE INSTALL;APR 22, 2019

 +1       ;;5.3;Scheduling;**730**;APR 4, 2019;Build 8

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

 +3       ;Pre install routine for patch SD*5.3*730.

 +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,SDIEN,SDFDA,SDMSG

 +2        KILL DIC(0)

 +3        SET X="CCRA-NAK"

           SET DIC(0)="QEZ"

           SET DIC="^HLCS(870,"

           DO ^DIC

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

               QUIT 

 +5        SET SDIEN=+Y_","

 +6        SET SDFDA(870,SDIEN,4.5)=1

 +7        DO UPDATE^DIE("","SDFDA","SDIEN","SDMSG")

 +8        KILL X,DIC,Y,SDIEN,SDFDA,SDMSG,Y,X,DIC(0)

 +9        QUIT