SDEC799P.m

SDEC799P ;ALB/MGD - SD*5.3*799 Post Init Routine ; Sep 9, 2021@12:18

 ;;5.3;SCHEDULING;**799**;AUG 13, 1993;Build 7

 ;

FIND ;FIND THE IEN FOR "VS GUI NATIONAL"

 N SDECDA,SDECDA1

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

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

 D VERSION   ;update GUI version number and date

 Q

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

 S DA=SDECDA,DIE=409.98,DR="2///1.7.14;3///"_DT D ^DIE  ;update VS GUI NATIONAL

 K DIE,DR,DA

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

 S DA=SDECDA1,DIE=409.98,DR="2///1.7.14;3///"_DT 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)"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDEC799P   881     printed  Apr 09, 2024@21:40:58                                                                                                                                                                                                     Page 2

SDEC799P  ;ALB/MGD - SD*5.3*799 Post Init Routine ; Sep 9, 2021@12:18

 +1       ;;5.3;SCHEDULING;**799**;AUG 13, 1993;Build 7

 +2       ;

FIND      ;FIND THE IEN FOR "VS GUI NATIONAL"

 +1        NEW SDECDA,SDECDA1

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

 +3        SET SDECDA=0

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

           if $GET(SDECDA)=""

               GOTO NOFIND

 +4       ;update GUI version number and date

           DO VERSION

 +5        QUIT 

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

 +1       ;update VS GUI NATIONAL

           SET DA=SDECDA

           SET DIE=409.98

           SET DR="2///1.7.14;3///"_DT

           DO ^DIE

 +2        KILL DIE,DR,DA

 +3       ;get DA for the VS GUI LOCAL

           SET SDECDA1=0

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

           if $GET(SDECDA1)=""

               QUIT 

 +4       ;update VS GUI LOCAL

           SET DA=SDECDA1

           SET DIE=409.98

           SET DR="2///1.7.14;3///"_DT

           DO ^DIE

 +5        KILL DIE,DR,DA

 +6        QUIT 

 +7       ;

NOFIND    ;"VS GUI NATIONAL" NOT FOUND

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

 +2        QUIT