- 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 Mar 13, 2025@22:00:29 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
