SDES943P ;ALB/JAS - SD*5.3*943 Post Init Routine ; Apr 24, 2026
;;5.3;SCHEDULING;**943**;AUG 13, 1993;Build 5
;;Per VHA Directive 6402, this routine should not be modified
;;
Q
;
EN ;
D TASK
Q
;
;
TASK ; tasks off process to run the Missing Clinic "S" Nodes Report
N %,%I
D MES^XPDUTL("")
D MES^XPDUTL(" SD*5.3*943 Post-Install to create report of")
D MES^XPDUTL(" missing 'S' nodes in the HOSPITAL LOCATION (#44) file.")
D MES^XPDUTL("")
N ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
S ZTDESC="SD*5.3*943 Post Install Routine Task 1"
D NOW^%DTC
S ZTDTH=$P($H,",",1)_","_86399,ZTIO="",ZTRTN="REPORT^SDES943P",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
;
REPORT ;
K ^XTMP("SDES943P")
S ^XTMP("SDES943P",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*943"
;
D SNODESEARCH
;
D MAIL
Q
;
MAIL ;
N STANUM,MESS1,XMTEXT,XMSUB,XMY,XMDUZ,DIFROM,%,D,D0,D1,D2,DG,DIC,DICR,DIW,XMDUN,XMZ
S STANUM=$$KSP^XUPARAM("INST")_","
S STANUM=$$GET1^DIQ(4,STANUM,99)
S MESS1="Station: "_STANUM_" - "
S XMDUZ=DUZ
S XMTEXT="^XTMP(""SDES943P"","
S XMSUB=MESS1_"SD*5.3*943 - Post Install Data Report"
S XMDUZ=.5,XMY(DUZ)="",XMY(XMDUZ)=""
S XMY("BARBER.LORI@DOMAIN.EXT")=""
S XMY("DUNNAM.DAVID@DOMAIN.EXT")=""
S XMY("CRUZ.ORLANDO@DOMAIN.EXT")=""
S XMY("JEFFREY.SWESKY@DOMAIN.EXT")=""
D ^XMD
Q
;
SNODESEARCH() ; SEARCH ALL PATIENTS FOR MISSING "S" NODES IN FILE #44.003.
N COUNT,INDEX,RETURN,STARTDATE,SDPATIENT,SDSTART
S STARTDATE=$$FMADD^XLFDT(DT,-91)_".999999"
;
S (COUNT,SDPATIENT)=0
S COUNT=COUNT+1
S ^XTMP("SDES943P",COUNT)="*********MISSING 'S' NODES REPORT*********"
S COUNT=COUNT+1
S ^XTMP("SDES943P",COUNT)="PATIENT DFN^APPT IEN^CLINIC IEN^APPT START DATE/TIME^APPT CREATE DATE^DESCRIPTION OF ISSUE"
;
F S SDPATIENT=$O(^SDEC(409.84,"APTDT",SDPATIENT)) Q:'SDPATIENT D
. S SDSTART=STARTDATE
. D ONEPAT^SDES2SNODEUTIL(.RETURN,SDPATIENT,SDSTART)
. I $D(RETURN) D
. . S INDEX=0 F S INDEX=$O(RETURN(INDEX)) Q:'INDEX D
. . . S COUNT=COUNT+1
. . . S ^XTMP("SDES943P",COUNT)=RETURN(INDEX)
. K RETURN
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES943P 2318 printed Jul 11, 2026@02:53:04 Page 2
SDES943P ;ALB/JAS - SD*5.3*943 Post Init Routine ; Apr 24, 2026
+1 ;;5.3;SCHEDULING;**943**;AUG 13, 1993;Build 5
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;;
+4 QUIT
+5 ;
EN ;
+1 DO TASK
+2 QUIT
+3 ;
+4 ;
TASK ; tasks off process to run the Missing Clinic "S" Nodes Report
+1 NEW %,%I
+2 DO MES^XPDUTL("")
+3 DO MES^XPDUTL(" SD*5.3*943 Post-Install to create report of")
+4 DO MES^XPDUTL(" missing 'S' nodes in the HOSPITAL LOCATION (#44) file.")
+5 DO MES^XPDUTL("")
+6 NEW ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
+7 SET ZTDESC="SD*5.3*943 Post Install Routine Task 1"
+8 DO NOW^%DTC
+9 SET ZTDTH=$PIECE($HOROLOG,",",1)_","_86399
SET ZTIO=""
SET ZTRTN="REPORT^SDES943P"
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 ;
REPORT ;
+1 KILL ^XTMP("SDES943P")
+2 SET ^XTMP("SDES943P",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*943"
+3 ;
+4 DO SNODESEARCH
+5 ;
+6 DO MAIL
+7 QUIT
+8 ;
MAIL ;
+1 NEW STANUM,MESS1,XMTEXT,XMSUB,XMY,XMDUZ,DIFROM,%,D,D0,D1,D2,DG,DIC,DICR,DIW,XMDUN,XMZ
+2 SET STANUM=$$KSP^XUPARAM("INST")_","
+3 SET STANUM=$$GET1^DIQ(4,STANUM,99)
+4 SET MESS1="Station: "_STANUM_" - "
+5 SET XMDUZ=DUZ
+6 SET XMTEXT="^XTMP(""SDES943P"","
+7 SET XMSUB=MESS1_"SD*5.3*943 - Post Install Data Report"
+8 SET XMDUZ=.5
SET XMY(DUZ)=""
SET XMY(XMDUZ)=""
+9 SET XMY("BARBER.LORI@DOMAIN.EXT")=""
+10 SET XMY("DUNNAM.DAVID@DOMAIN.EXT")=""
+11 SET XMY("CRUZ.ORLANDO@DOMAIN.EXT")=""
+12 SET XMY("JEFFREY.SWESKY@DOMAIN.EXT")=""
+13 DO ^XMD
+14 QUIT
+15 ;
SNODESEARCH() ; SEARCH ALL PATIENTS FOR MISSING "S" NODES IN FILE #44.003.
+1 NEW COUNT,INDEX,RETURN,STARTDATE,SDPATIENT,SDSTART
+2 SET STARTDATE=$$FMADD^XLFDT(DT,-91)_".999999"
+3 ;
+4 SET (COUNT,SDPATIENT)=0
+5 SET COUNT=COUNT+1
+6 SET ^XTMP("SDES943P",COUNT)="*********MISSING 'S' NODES REPORT*********"
+7 SET COUNT=COUNT+1
+8 SET ^XTMP("SDES943P",COUNT)="PATIENT DFN^APPT IEN^CLINIC IEN^APPT START DATE/TIME^APPT CREATE DATE^DESCRIPTION OF ISSUE"
+9 ;
+10 FOR
SET SDPATIENT=$ORDER(^SDEC(409.84,"APTDT",SDPATIENT))
if 'SDPATIENT
QUIT
Begin DoDot:1
+11 SET SDSTART=STARTDATE
+12 DO ONEPAT^SDES2SNODEUTIL(.RETURN,SDPATIENT,SDSTART)
+13 IF $DATA(RETURN)
Begin DoDot:2
+14 SET INDEX=0
FOR
SET INDEX=$ORDER(RETURN(INDEX))
if 'INDEX
QUIT
Begin DoDot:3
+15 SET COUNT=COUNT+1
+16 SET ^XTMP("SDES943P",COUNT)=RETURN(INDEX)
End DoDot:3
End DoDot:2
+17 KILL RETURN
End DoDot:1
+18 ;
+19 QUIT
