SDEC762P.m

SDEC762P ;ALB/PWC - PATCH 762 POST INSTALL ROUTINE ;Ju1 30, 2020@3:18

 ;;5.3;SCHEDULING;**762**;AUG 13, 1993;Build 4

 ;

 ; change the verison number and date in the SDEC SETTINGS File (#409.98)

FIND ;FIND THE IEN FOR "VS GUI NATIONAL"

 N SDECDA,SDECDA2

 W !!?3,"Updating SDEC SETTINGS file (#409.98)",!!

 D VERSION   ;update GUI version number and date

 G XIT

VERSION ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.1

 S SDECDA=0,SDECDA=$O(^SDEC(409.98,"B","VS GUI NATIONAL",SDECDA)) G:$G(SDECDA)="" NOFIND   ;get DA for VS GUI NATIONAL

 S DA=SDECDA,DIE=409.98,DR="2///1.7.0.2 R1;3///3200730" D ^DIE  ;update VS GUI NATIONAL

 K DIE,DR,DA

 S SDECDA2=0,SDECDA2=$O(^SDEC(409.98,"B","VS GUI LOCAL",SDECDA2)) Q:$G(SDECDA2)=""    ;get DA for VS GUI LOCAL

 S DA=SDECDA2,DIE=409.98,DR="2///1.7.0.2 R1;3///3200730" D ^DIE  ;update VS GUI LOCAL

 K DIE,DR,DA

 Q

NOFIND ;"VS GUI NATIONAL" NOT FOUND

 W !!?3,"VS GUI NATIONAL not found in the SDEC SETTINGS file (#409.98)"

XIT ;EXIT ROUTINE

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDEC762P   1017     printed  Nov 22, 2024@18:01:08                                                                                                                                                                                                    Page 2

SDEC762P  ;ALB/PWC - PATCH 762 POST INSTALL ROUTINE ;Ju1 30, 2020@3:18

 +1       ;;5.3;SCHEDULING;**762**;AUG 13, 1993;Build 4

 +2       ;

 +3       ; change the verison number and date in the SDEC SETTINGS File (#409.98)

FIND      ;FIND THE IEN FOR "VS GUI NATIONAL"

 +1        NEW SDECDA,SDECDA2

 +2        WRITE !!?3,"Updating SDEC SETTINGS file (#409.98)",!!

 +3       ;update GUI version number and date

           DO VERSION

 +4        GOTO XIT

VERSION   ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.1

 +1       ;get DA for VS GUI NATIONAL

           SET SDECDA=0

           SET SDECDA=$ORDER(^SDEC(409.98,"B","VS GUI NATIONAL",SDECDA))

           if $GET(SDECDA)=""

               GOTO NOFIND

 +2       ;update VS GUI NATIONAL

           SET DA=SDECDA

           SET DIE=409.98

           SET DR="2///1.7.0.2 R1;3///3200730"

           DO ^DIE

 +3        KILL DIE,DR,DA

 +4       ;get DA for VS GUI LOCAL

           SET SDECDA2=0

           SET SDECDA2=$ORDER(^SDEC(409.98,"B","VS GUI LOCAL",SDECDA2))

           if $GET(SDECDA2)=""

               QUIT 

 +5       ;update VS GUI LOCAL

           SET DA=SDECDA2

           SET DIE=409.98

           SET DR="2///1.7.0.2 R1;3///3200730"

           DO ^DIE

 +6        KILL DIE,DR,DA

 +7        QUIT 

NOFIND    ;"VS GUI NATIONAL" NOT FOUND

 +1        WRITE !!?3,"VS GUI NATIONAL not found in the SDEC SETTINGS file (#409.98)"

XIT       ;EXIT ROUTINE

 +1        QUIT