SDES881P ;ALB/MGD,BWF - SD*5.3*881 Post Init Routine ; June 07, 2024
;;5.3;SCHEDULING;**881**;AUG 13, 1993;Build 10
;;Per VHA Directive 6402, this routine should not be modified
;
Q
;
EN ; Update the VS GUI version in #409.98
D FIND
D ADDWWII
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.58
S DA=SDECDA,DIE=409.98,DR="2///1.7.58;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.58;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
ADDWWII ;
N FDA,DESC,FDAIEN,ERR,FILEERR,NEWIEN
Q:$D(^SD(409.1,"B","WORLD WAR II"))
D MES^XPDUTL("")
D MES^XPDUTL(" Adding World War II to the Appointment Type file (#409.1)")
S FDA(409.1,"+1,",.01)="WORLD WAR II"
S FDA(409.1,"+1,",2)=1
S FDA(409.1,"+1,",4)="WWII"
S FDA(409.1,"+1,",5)=1
S FDA(409.1,"+1,",6)=$O(^DIC(8,"B","WORLD WAR II",0))
D UPDATE^DIE(,"FDA","NEWIEN","FILEERR")
I $D(FILEERR) D Q
.D MES^XPDUTL("")
.D MES^XPDUTL("Error adding World War II to the Appointment Type file.")
.D MES^XPDUTL("Please create a SNOW ticket and route to the Vista Scheduling")
.D MES^XPDUTL("team.")
S FDAIEN=$G(NEWIEN(1))
S DESC(1)="Used for veterans who have served in World War II."
D WP^DIE(409.1,FDAIEN_",",10,"","DESC","ERR")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES881P 1830 printed Oct 16, 2024@18:55:52 Page 2
SDES881P ;ALB/MGD,BWF - SD*5.3*881 Post Init Routine ; June 07, 2024
+1 ;;5.3;SCHEDULING;**881**;AUG 13, 1993;Build 10
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 QUIT
+5 ;
EN ; Update the VS GUI version in #409.98
+1 DO FIND
+2 DO ADDWWII
+3 QUIT
+4 ;
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.58
+1 ;update VS GUI NATIONAL
SET DA=SDECDA
SET DIE=409.98
SET DR="2///1.7.58;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.58;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
ADDWWII ;
+1 NEW FDA,DESC,FDAIEN,ERR,FILEERR,NEWIEN
+2 if $DATA(^SD(409.1,"B","WORLD WAR II"))
QUIT
+3 DO MES^XPDUTL("")
+4 DO MES^XPDUTL(" Adding World War II to the Appointment Type file (#409.1)")
+5 SET FDA(409.1,"+1,",.01)="WORLD WAR II"
+6 SET FDA(409.1,"+1,",2)=1
+7 SET FDA(409.1,"+1,",4)="WWII"
+8 SET FDA(409.1,"+1,",5)=1
+9 SET FDA(409.1,"+1,",6)=$ORDER(^DIC(8,"B","WORLD WAR II",0))
+10 DO UPDATE^DIE(,"FDA","NEWIEN","FILEERR")
+11 IF $DATA(FILEERR)
Begin DoDot:1
+12 DO MES^XPDUTL("")
+13 DO MES^XPDUTL("Error adding World War II to the Appointment Type file.")
+14 DO MES^XPDUTL("Please create a SNOW ticket and route to the Vista Scheduling")
+15 DO MES^XPDUTL("team.")
End DoDot:1
QUIT
+16 SET FDAIEN=$GET(NEWIEN(1))
+17 SET DESC(1)="Used for veterans who have served in World War II."
+18 DO WP^DIE(409.1,FDAIEN_",",10,"","DESC","ERR")
+19 QUIT
