SDEC814P.m

SDEC814P ;ALB/LAB - SD*5.3*814 Post Init Routine ; Apr 13, 2022@10:49

 ;;5.3;SCHEDULING;**814**;AUG 13, 1993;Build 11

 ;;Per VHA Directive 6402, this routine should not be modified

 ;

 D FIND

 Q

 ;

FIND ;FIND THE IEN FOR "VS GUI NATIONAL"

 N SDECDA,SDECDA1

 D MES^XPDUTL("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.23

 S DA=SDECDA,DIE=409.98,DR="2///1.7.23;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.23;3///"_DT D ^DIE  ;update VS GUI LOCAL

 K DIE,DR,DA

 Q

 ;

NOFIND ;"VS GUI NATIONAL" NOT FOUND

 D MES^XPDUTL("VS GUI NATIONAL not found in the SDEC SETTINGS file (#409.98)")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDEC814P   975     printed  Apr 09, 2024@21:49:26                                                                                                                                                                                                     Page 2

SDEC814P  ;ALB/LAB - SD*5.3*814 Post Init Routine ; Apr 13, 2022@10:49

 +1       ;;5.3;SCHEDULING;**814**;AUG 13, 1993;Build 11

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

 +4        DO FIND

 +5        QUIT 

 +6       ;

FIND      ;FIND THE IEN FOR "VS GUI NATIONAL"

 +1        NEW SDECDA,SDECDA1

 +2        DO MES^XPDUTL("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.23

 +1       ;update VS GUI NATIONAL

           SET DA=SDECDA

           SET DIE=409.98

           SET DR="2///1.7.23;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.23;3///"_DT

           DO ^DIE

 +5        KILL DIE,DR,DA

 +6        QUIT 

 +7       ;

NOFIND    ;"VS GUI NATIONAL" NOT FOUND

 +1        DO MES^XPDUTL("VS GUI NATIONAL not found in the SDEC SETTINGS file (#409.98)")

 +2        QUIT