SDES959P ;ALB/LAB - SD*5.3*959 Post Init Routine ; Jul 16, 2026
;;5.3;SCHEDULING;**959**;AUG 13, 1993;Build 1
;;Per VHA Directive 6402, this routine should not be modified
;;
Q
;
EN ;
D TASK
Q
;
TASK ;
D MES^XPDUTL("")
D MES^XPDUTL(" SD*5.3*959 Post-Install to identify clinics with pattern defined after limit")
D MES^XPDUTL("")
N ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE,%,%H,%I
S ZTDESC="SD*5.3*959 Post Install Routine Task 1"
D NOW^%DTC
S ZTDTH=$P($H,",",1)_","_86399,ZTIO="",ZTRTN="REPORT^SDES959P",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 ;
N CLINICNAME,CLINICIEN,CLINICST,COUNT,ISSUECOUNT,COUNT,DATE,NEXTAPPT
S CLINICNAME="",ISSUECOUNT=0
K ^XTMP("SDES959P")
S ^XTMP("SDES959P",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*959"
S ^XTMP("SDES959P",1)="***********************Beyond Limit Availability Report****************************"
S COUNT=4
S ^XTMP("SDES959P",COUNT)="Clinic IEN^Clinic Name^ST defined after limit^Appt after limit"
S COUNT=COUNT+1
;Loop over all Clinics in 44
S DATE=$$FMADD^XLFDT(DT,999)
F S CLINICNAME=$O(^SC("AG","C",CLINICNAME)) Q:CLINICNAME="" D
. S CLINICIEN=""
. F S CLINICIEN=$O(^SC("AG","C",CLINICNAME,CLINICIEN)) Q:CLINICIEN="" D
. . S CLINICST=$O(^SC(CLINICIEN,"ST",DATE))
. . I CLINICST'="" D
. . . S NEXTAPPT=$O(^SC(CLINICIEN,"S",CLINICST))
. . . S ^XTMP("SDES959P",COUNT)=CLINICIEN_"^"_$$GET1^DIQ(44,CLINICIEN,.01,"E")_"^"_CLINICST_"^"_NEXTAPPT
. . . S COUNT=COUNT+1
S ^XTMP("SDES959P",3)="Total Number of Issues Found : "_COUNT
;
D MAIL
Q
;
MAIL ;
N SITENUMBER,MESS1,XMTEXT,XMSUB,XMY,XMDUZ,DIFROM,%,D,D0,D1,D2,DG,DIC,DICR,DIW,XMDUN,XMZ,PROD
S SITENUMBER=+$$STA^XUAF4($$KSP^XUPARAM("INST"))
S PROD=$$PROD^XUPROD
S MESS1="Station: "_SITENUMBER_" ("_$S(PROD:"PROD",1:"TEST")_") - "
S XMDUZ=DUZ
S XMTEXT="^XTMP(""SDES959P"","
S XMSUB=MESS1_"SD*5.3*959 - Post Install Data Report"
S XMDUZ=.5,XMY(DUZ)="",XMY(XMDUZ)=""
I 'PROD D
. S XMY("BARBER.LORI@DOMAIN.EXT")=""
I PROD D
. S XMY("BARBER.LORI@DOMAIN.EXT")=""
. S XMY("DUNNAM.DAVID@DOMAIN.EXT")=""
. S XMY("CRUZ.ORLANDO@DOMAIN.EXT")=""
D ^XMD
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES959P 2389 printed Aug 20, 2026@00:07:25 Page 2
SDES959P ;ALB/LAB - SD*5.3*959 Post Init Routine ; Jul 16, 2026
+1 ;;5.3;SCHEDULING;**959**;AUG 13, 1993;Build 1
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;;
+4 QUIT
+5 ;
EN ;
+1 DO TASK
+2 QUIT
+3 ;
TASK ;
+1 DO MES^XPDUTL("")
+2 DO MES^XPDUTL(" SD*5.3*959 Post-Install to identify clinics with pattern defined after limit")
+3 DO MES^XPDUTL("")
+4 NEW ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE,%,%H,%I
+5 SET ZTDESC="SD*5.3*959 Post Install Routine Task 1"
+6 DO NOW^%DTC
+7 SET ZTDTH=$PIECE($HOROLOG,",",1)_","_86399
SET ZTIO=""
SET ZTRTN="REPORT^SDES959P"
SET ZTSAVE("*")=""
+8 DO ^%ZTLOAD
+9 IF $DATA(ZTSK)
Begin DoDot:1
+10 DO MES^XPDUTL(" >>>Task "_ZTSK_" has been queued.")
+11 DO MES^XPDUTL("")
End DoDot:1
+12 IF '$DATA(ZTSK)
Begin DoDot:1
+13 DO MES^XPDUTL(" UNABLE TO QUEUE THIS JOB.")
+14 DO MES^XPDUTL(" Please contact the National Help Desk to report this issue.")
End DoDot:1
+15 QUIT
+16 ;
REPORT ;
+1 NEW CLINICNAME,CLINICIEN,CLINICST,COUNT,ISSUECOUNT,COUNT,DATE,NEXTAPPT
+2 SET CLINICNAME=""
SET ISSUECOUNT=0
+3 KILL ^XTMP("SDES959P")
+4 SET ^XTMP("SDES959P",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*959"
+5 SET ^XTMP("SDES959P",1)="***********************Beyond Limit Availability Report****************************"
+6 SET COUNT=4
+7 SET ^XTMP("SDES959P",COUNT)="Clinic IEN^Clinic Name^ST defined after limit^Appt after limit"
+8 SET COUNT=COUNT+1
+9 ;Loop over all Clinics in 44
+10 SET DATE=$$FMADD^XLFDT(DT,999)
+11 FOR
SET CLINICNAME=$ORDER(^SC("AG","C",CLINICNAME))
if CLINICNAME=""
QUIT
Begin DoDot:1
+12 SET CLINICIEN=""
+13 FOR
SET CLINICIEN=$ORDER(^SC("AG","C",CLINICNAME,CLINICIEN))
if CLINICIEN=""
QUIT
Begin DoDot:2
+14 SET CLINICST=$ORDER(^SC(CLINICIEN,"ST",DATE))
+15 IF CLINICST'=""
Begin DoDot:3
+16 SET NEXTAPPT=$ORDER(^SC(CLINICIEN,"S",CLINICST))
+17 SET ^XTMP("SDES959P",COUNT)=CLINICIEN_"^"_$$GET1^DIQ(44,CLINICIEN,.01,"E")_"^"_CLINICST_"^"_NEXTAPPT
+18 SET COUNT=COUNT+1
End DoDot:3
End DoDot:2
End DoDot:1
+19 SET ^XTMP("SDES959P",3)="Total Number of Issues Found : "_COUNT
+20 ;
+21 DO MAIL
+22 QUIT
+23 ;
MAIL ;
+1 NEW SITENUMBER,MESS1,XMTEXT,XMSUB,XMY,XMDUZ,DIFROM,%,D,D0,D1,D2,DG,DIC,DICR,DIW,XMDUN,XMZ,PROD
+2 SET SITENUMBER=+$$STA^XUAF4($$KSP^XUPARAM("INST"))
+3 SET PROD=$$PROD^XUPROD
+4 SET MESS1="Station: "_SITENUMBER_" ("_$SELECT(PROD:"PROD",1:"TEST")_") - "
+5 SET XMDUZ=DUZ
+6 SET XMTEXT="^XTMP(""SDES959P"","
+7 SET XMSUB=MESS1_"SD*5.3*959 - Post Install Data Report"
+8 SET XMDUZ=.5
SET XMY(DUZ)=""
SET XMY(XMDUZ)=""
+9 IF 'PROD
Begin DoDot:1
+10 SET XMY("BARBER.LORI@DOMAIN.EXT")=""
End DoDot:1
+11 IF PROD
Begin DoDot:1
+12 SET XMY("BARBER.LORI@DOMAIN.EXT")=""
+13 SET XMY("DUNNAM.DAVID@DOMAIN.EXT")=""
+14 SET XMY("CRUZ.ORLANDO@DOMAIN.EXT")=""
End DoDot:1
+15 DO ^XMD
+16 QUIT
+17 ;
