SDES916P ;ALB/MGD - SD*5.3*916 Post Init Routine ; July 01, 2025
;;5.3;SCHEDULING;**916**;AUG 13, 1993;Build 2
;;Per VHA Directive 6402, this routine should not be modified
;;
Q
;
EN ;
D FIND,TASK
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.64
S DA=SDECDA,DIE=409.98,DR="2///1.7.64;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.64;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
;
;
TASK ; Tasks off process to remove embedded control characters from the NOTE (#1) and NOTE AUDITING (#1.1) multiples
D MES^XPDUTL("")
D MES^XPDUTL(" SD*5.3*916 Post-Install to remove control characters from the")
D MES^XPDUTL(" NOTE (#1) and NOTE AUDITING (#1.1) multiples in the SDEC APPOINTMENT")
D MES^XPDUTL(" (#409.84) file.")
D MES^XPDUTL("")
N ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
S ZTDESC="SD*5.3*916 Post Install Routine Task"
D NOW^%DTC
S ZTDTH=X,ZTIO="",ZTRTN="CLEANUPNOTES^SDES916P",ZTSAVE("*")=""
D ^%ZTLOAD
I $D(ZTSK) D
. D MES^XPDUTL(" >>>Task "_ZTSK_" has been queued.")
. D MES^XPDUTL("")
I '$D(ZTSK) D
. D MES^XPDUTL(" UNABLE TO QUEUE THIS JOB.")
. D MES^XPDUTL(" Please contact the National Help Desk to report this issue.")
Q
;
CLEANUPNOTES ;
N APPTIEN,COMMIEN,COMMARRAY,COMAUDIEN,COMMENT,COMMENTS,EDITEDNOTE,FDA,FNDCC
S APPTIEN=0
F S APPTIEN=$O(^SDEC(409.84,APPTIEN)) Q:'APPTIEN I $D(^SDEC(409.84,APPTIEN,1)) D
. ; Process NOTE (#1)
. K COMMARRAY
. S (COMMIEN,FNDCC)=0
. F S COMMIEN=$O(^SDEC(409.84,APPTIEN,1,COMMIEN)) Q:'COMMIEN D
. . S COMMARRAY(COMMIEN)=^SDEC(409.84,APPTIEN,1,COMMIEN,0)
. . I COMMARRAY(COMMIEN)?.E1C.E D
. . . S FNDCC=1
. . . S COMMARRAY(COMMIEN)=$$CTRL^XMXUTIL1(COMMARRAY(COMMIEN))
. Q:'FNDCC
. D WP^DIE(409.84,APPTIEN_",",1,"","COMMARRAY")
. ; Process NOTE AUDITING (#1.1)
. S COMAUDIEN=0
. F S COMAUDIEN=$O(^SDEC(409.84,APPTIEN,"NOTEAUD",COMAUDIEN)) Q:'COMAUDIEN D
. . S COMMENT=$$GET1^DIQ(409.847,COMAUDIEN_","_APPTIEN_",",2)
. . Q:COMMENT'?.E1C.E
. . S FDA(409.847,COMAUDIEN_","_APPTIEN_",",2)=$$CTRL^XMXUTIL1(COMMENT)
. . D UPDATE^DIE("","FDA") K FDA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES916P 2714 printed Jan 29, 2026@15:54:57 Page 2
SDES916P ;ALB/MGD - SD*5.3*916 Post Init Routine ; July 01, 2025
+1 ;;5.3;SCHEDULING;**916**;AUG 13, 1993;Build 2
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;;
+4 QUIT
+5 ;
EN ;
+1 DO FIND
DO TASK
+2 QUIT
+3 ;
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
+7 ;
VERSION ;SET THE NEW VERSION UPDATE IN SDEC SETTING FILE #409.98 TO 1.7.64
+1 ;update VS GUI NATIONAL
SET DA=SDECDA
SET DIE=409.98
SET DR="2///1.7.64;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.64;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 ;
+4 ;
TASK ; Tasks off process to remove embedded control characters from the NOTE (#1) and NOTE AUDITING (#1.1) multiples
+1 DO MES^XPDUTL("")
+2 DO MES^XPDUTL(" SD*5.3*916 Post-Install to remove control characters from the")
+3 DO MES^XPDUTL(" NOTE (#1) and NOTE AUDITING (#1.1) multiples in the SDEC APPOINTMENT")
+4 DO MES^XPDUTL(" (#409.84) file.")
+5 DO MES^XPDUTL("")
+6 NEW ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
+7 SET ZTDESC="SD*5.3*916 Post Install Routine Task"
+8 DO NOW^%DTC
+9 SET ZTDTH=X
SET ZTIO=""
SET ZTRTN="CLEANUPNOTES^SDES916P"
SET ZTSAVE("*")=""
+10 DO ^%ZTLOAD
+11 IF $DATA(ZTSK)
Begin DoDot:1
+12 DO MES^XPDUTL(" >>>Task "_ZTSK_" has been queued.")
+13 DO MES^XPDUTL("")
End DoDot:1
+14 IF '$DATA(ZTSK)
Begin DoDot:1
+15 DO MES^XPDUTL(" UNABLE TO QUEUE THIS JOB.")
+16 DO MES^XPDUTL(" Please contact the National Help Desk to report this issue.")
End DoDot:1
+17 QUIT
+18 ;
CLEANUPNOTES ;
+1 NEW APPTIEN,COMMIEN,COMMARRAY,COMAUDIEN,COMMENT,COMMENTS,EDITEDNOTE,FDA,FNDCC
+2 SET APPTIEN=0
+3 FOR
SET APPTIEN=$ORDER(^SDEC(409.84,APPTIEN))
if 'APPTIEN
QUIT
IF $DATA(^SDEC(409.84,APPTIEN,1))
Begin DoDot:1
+4 ; Process NOTE (#1)
+5 KILL COMMARRAY
+6 SET (COMMIEN,FNDCC)=0
+7 FOR
SET COMMIEN=$ORDER(^SDEC(409.84,APPTIEN,1,COMMIEN))
if 'COMMIEN
QUIT
Begin DoDot:2
+8 SET COMMARRAY(COMMIEN)=^SDEC(409.84,APPTIEN,1,COMMIEN,0)
+9 IF COMMARRAY(COMMIEN)?.E1C.E
Begin DoDot:3
+10 SET FNDCC=1
+11 SET COMMARRAY(COMMIEN)=$$CTRL^XMXUTIL1(COMMARRAY(COMMIEN))
End DoDot:3
End DoDot:2
+12 if 'FNDCC
QUIT
+13 DO WP^DIE(409.84,APPTIEN_",",1,"","COMMARRAY")
+14 ; Process NOTE AUDITING (#1.1)
+15 SET COMAUDIEN=0
+16 FOR
SET COMAUDIEN=$ORDER(^SDEC(409.84,APPTIEN,"NOTEAUD",COMAUDIEN))
if 'COMAUDIEN
QUIT
Begin DoDot:2
+17 SET COMMENT=$$GET1^DIQ(409.847,COMAUDIEN_","_APPTIEN_",",2)
+18 if COMMENT'?.E1C.E
QUIT
+19 SET FDA(409.847,COMAUDIEN_","_APPTIEN_",",2)=$$CTRL^XMXUTIL1(COMMENT)
+20 DO UPDATE^DIE("","FDA")
KILL FDA
End DoDot:2
End DoDot:1
+21 QUIT
