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

SDES833P.m

Go to the documentation of this file.
SDES833P ;ALB/MGD - SD*5.3*833 Post Init Routine ; Jan 04, 2023
 ;;5.3;SCHEDULING;**833**;AUG 13, 1993;Build 9
 ;;Per VHA Directive 6402, this routine should not be modified
 ;
 D FIND
 D ADDXREF
 Q
 ;
FIND ;FIND THE IEN FOR "VS GUI NATIONAL"
 N SDECDA,SDECDA1
 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.36
 S DA=SDECDA,DIE=409.98,DR="2///1.7.36;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.36;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
ADDXREF ;ADD NEW CROSS REFERENCE - 409.85,4
 D MES^XPDUTL("Creation of the TYPE x-ref in SDEC APPT REQUEST (#409.85) started.")
 D MES^XPDUTL("")
 N DIK
 S DIK="^SDEC(409.85,"
 S DIK(1)="4^TYPE"
 D ENALL^DIK
 D MES^XPDUTL("Creation of the TYPE x-ref in SDEC APPT REQUEST (#409.85) completed.")
 Q
 ;