Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDES837P

SDES837P.m

Go to the documentation of this file.
  1. SDES837P ;ALB/MGD - SD*5.3*837 Post Init Routine ; Feb 02, 2023
  1. ;;5.3;SCHEDULING;**837**;AUG 13, 1993;Build 4
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. D FIND,UPDATE409981
  1. Q
  1. ;
  1. FIND ;FIND THE IEN FOR "VS GUI NATIONAL"
  1. N SDECDA,SDECDA1
  1. D MES^XPDUTL("")
  1. D MES^XPDUTL(" Updating SDEC SETTINGS file (#409.98)")
  1. S SDECDA=0,SDECDA=$O(^SDEC(409.98,"B","VS GUI NATIONAL",SDECDA)) G:$G(SDECDA)="" NOFIND
  1. D VERSION ;update GUI version number and date
  1. Q
  1. VERSION ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.39
  1. S DA=SDECDA,DIE=409.98,DR="2///1.7.39;3///"_DT D ^DIE ;update VS GUI NATIONAL
  1. K DIE,DR,DA
  1. S SDECDA1=0,SDECDA1=$O(^SDEC(409.98,"B","VS GUI LOCAL",SDECDA1)) Q:$G(SDECDA1)="" ;get DA for the VS GUI LOCAL
  1. S DA=SDECDA1,DIE=409.98,DR="2///1.7.39;3///"_DT D ^DIE ;update VS GUI LOCAL
  1. K DIE,DR,DA
  1. Q
  1. ;
  1. NOFIND ;"VS GUI NATIONAL" NOT FOUND
  1. D MES^XPDUTL(" VS GUI NATIONAL not found in the SDEC SETTINGS file (#409.98)")
  1. Q
  1. ;
  1. UPDATE409981 ; Delete the Scheduling Manager (SM) entry from 409.981 multiple
  1. N IEN,SUBIEN,FDA
  1. D MES^XPDUTL(" ")
  1. D MES^XPDUTL(" Deleting the Scheduling Manager (SM) entry from 409.981 multiple.")
  1. S IEN=$O(^SDEC(409.98,"B","VS GUI NATIONAL",0))
  1. I 'IEN D NOFIND Q
  1. S SUBIEN=$O(^SDEC(409.98,IEN,1,"B","Scheduling Manager (SM)",0))
  1. I 'SUBIEN D MES^XPDUTL(" Scheduling Manager (SM) entry not found in the 409.981 multiple.") Q
  1. S FDA(409.981,SUBIEN_","_IEN_",",.01)="@"
  1. D FILE^DIE(,"FDA") K FDA
  1. D MES^XPDUTL(" ")
  1. D MES^XPDUTL(" Scheduling Manager (SM) entry in #409.981 successfully deleted.")
  1. Q