SDES837P ;ALB/MGD - SD*5.3*837 Post Init Routine ; Feb 02, 2023
;;5.3;SCHEDULING;**837**;AUG 13, 1993;Build 4
;;Per VHA Directive 6402, this routine should not be modified
;
D FIND,UPDATE409981
Q
;
FIND ;FIND THE IEN FOR "VS GUI NATIONAL"
N SDECDA,SDECDA1
D MES^XPDUTL("")
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.39
S DA=SDECDA,DIE=409.98,DR="2///1.7.39;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.39;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
;
UPDATE409981 ; Delete the Scheduling Manager (SM) entry from 409.981 multiple
N IEN,SUBIEN,FDA
D MES^XPDUTL(" ")
D MES^XPDUTL(" Deleting the Scheduling Manager (SM) entry from 409.981 multiple.")
S IEN=$O(^SDEC(409.98,"B","VS GUI NATIONAL",0))
I 'IEN D NOFIND Q
S SUBIEN=$O(^SDEC(409.98,IEN,1,"B","Scheduling Manager (SM)",0))
I 'SUBIEN D MES^XPDUTL(" Scheduling Manager (SM) entry not found in the 409.981 multiple.") Q
S FDA(409.981,SUBIEN_","_IEN_",",.01)="@"
D FILE^DIE(,"FDA") K FDA
D MES^XPDUTL(" ")
D MES^XPDUTL(" Scheduling Manager (SM) entry in #409.981 successfully deleted.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES837P 1634 printed Apr 09, 2024@22:01:57 Page 2
SDES837P ;ALB/MGD - SD*5.3*837 Post Init Routine ; Feb 02, 2023
+1 ;;5.3;SCHEDULING;**837**;AUG 13, 1993;Build 4
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 DO FIND
DO UPDATE409981
+5 QUIT
+6 ;
FIND ;FIND THE IEN FOR "VS GUI NATIONAL"
+1 NEW SDECDA,SDECDA1
+2 DO MES^XPDUTL("")
+3 DO MES^XPDUTL(" Updating SDEC SETTINGS file (#409.98)")
+4 SET SDECDA=0
SET SDECDA=$ORDER(^SDEC(409.98,"B","VS GUI NATIONAL",SDECDA))
if $GET(SDECDA)=""
GOTO NOFIND
+5 ;update GUI version number and date
DO VERSION
+6 QUIT
VERSION ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.39
+1 ;update VS GUI NATIONAL
SET DA=SDECDA
SET DIE=409.98
SET DR="2///1.7.39;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.39;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
+3 ;
UPDATE409981 ; Delete the Scheduling Manager (SM) entry from 409.981 multiple
+1 NEW IEN,SUBIEN,FDA
+2 DO MES^XPDUTL(" ")
+3 DO MES^XPDUTL(" Deleting the Scheduling Manager (SM) entry from 409.981 multiple.")
+4 SET IEN=$ORDER(^SDEC(409.98,"B","VS GUI NATIONAL",0))
+5 IF 'IEN
DO NOFIND
QUIT
+6 SET SUBIEN=$ORDER(^SDEC(409.98,IEN,1,"B","Scheduling Manager (SM)",0))
+7 IF 'SUBIEN
DO MES^XPDUTL(" Scheduling Manager (SM) entry not found in the 409.981 multiple.")
QUIT
+8 SET FDA(409.981,SUBIEN_","_IEN_",",.01)="@"
+9 DO FILE^DIE(,"FDA")
KILL FDA
+10 DO MES^XPDUTL(" ")
+11 DO MES^XPDUTL(" Scheduling Manager (SM) entry in #409.981 successfully deleted.")
+12 QUIT