- 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 Jan 18, 2025@03:56:12 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