SDES922P ;ALB/LAB/TAW/AGW - SD*5.3*922 Post Init Routine ; Oct 16, 2025
;;5.3;SCHEDULING;**922**;AUG 13, 1993;Build 7
;;Per VHA Directive 6402, this routine should not be modified
;;
Q
;
EN ;
N SDBUILD,SDRTN,SDTASKTAG,SDTASKCNT,SDTASKSUBJ,SDMAILSUBJ,SDMAILGLO,SDMAILLIST,SDTICKET
S SDRTN="SDES922P"
S SDBUILD="SD*5.3*922"
S SDTASKCNT=1
D TASK
D VSE10892
D VSE10930
Q
;
;
TASK ; tasks off process to update the direct patient schedule field in the hospital location file
D MES^XPDUTL("")
D MES^XPDUTL(" SD*5.3*922 Post-Install to report on appointment created for 3/1/2026 through 3/8/2026 via EAS")
D MES^XPDUTL("")
N ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
S ZTDESC="SD*5.3*922 Post Install Routine Task 1"
D NOW^%DTC
S ZTDTH=X,ZTIO="",ZTRTN="VSE10962^SDES922P",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
;
VSE10962 ;report of appointments booked for 3/1/2026 and after and were booked before 3/10/2025 and has EAS number
K ^XTMP("SDES922P")
S ^XTMP("SDES922P",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*922"
D ACTIVAPT
D MAIL
K ^XTMP("SDES922P")
Q
;
ACTIVAPT ;
N APPTDT,RECCNT,APPTIEN,WHOMADE,WHOMADENM,CLINIC,CLINICTXT,WHENMADE,WHENMADETXT,APPTDTTX,NODENUM,RESOURCE,STATUS,APPTST,EAS
S APPTST=3260301
S RECCNT=0
S ^XTMP("SDES922P",1)="CLINIC NAME;APPOINTMENT DATE/TIME;APPOINTMENT MADE DATE/TIME;WHO MADE"
S NODENUM=1
S APPTDT=APPTST-.0001
F S APPTDT=$O(^SDEC(409.84,"B",APPTDT)) Q:('APPTDT)!(APPTDT>=3260309) D
. S APPTDTTX=$P($$FMTISO^SDAMUTDT(APPTDT),"-",1,3)
. S APPTIEN=0 F S APPTIEN=$O(^SDEC(409.84,"B",APPTDT,APPTIEN)) Q:'APPTIEN D
.. S EAS=$$GET1^DIQ(409.84,APPTIEN,100)
.. Q:$G(EAS)=""
.. S RESOURCE=$$GET1^DIQ(409.84,APPTIEN,.07,"I")
.. S CLINIC=$$GET1^DIQ(409.831,RESOURCE,.04,"I")
.. S CLINICTXT=$$GET1^DIQ(44,CLINIC,.01,"I")
.. S STATUS=$$GET1^DIQ(409.84,APPTIEN,.17,"I")
.. I STATUS'="" I ",C,CA,PC,PCA,"[STATUS Q
.. S WHOMADE=$$GET1^DIQ(409.84,APPTIEN,.08,"I")
.. S WHOMADENM="UNKNOWN"
.. I WHOMADE'="" S WHOMADENM=$$GET1^DIQ(200,WHOMADE,.01,"I")
.. S WHENMADE=$$GET1^DIQ(409.84,APPTIEN,.09,"I")
.. I WHENMADE>3250312 Q
.. S WHENMADETXT="UNKNOWN"
.. I WHENMADE'="" S WHENMADETXT=$P($$FMTISO^SDAMUTDT(WHENMADE,CLINIC),"-",1,3)
.. S RECCNT=RECCNT+1,NODENUM=NODENUM+1
.. S ^XTMP("SDES922P",NODENUM)=CLINICTXT_";"_APPTDTTX_";"_WHENMADETXT_";"_WHOMADENM
S NODENUM=NODENUM+1
S ^XTMP("SDES922P",NODENUM)="TOTAL NUMBER RECORDS IMPACTED: "_RECCNT
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(""SDES922P"","
S XMSUB=MESS1_"SD*5.3*922 - 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")=""
D ^XMD
Q
;
;=====================================================
;
VSE10892 ;
S SDTASKTAG="VSE10892TASK"
; Keep each line of the Task Subject to less than 80 chars for it to display properly
K SDTASKSUBJ
S SDTASKSUBJ(1)=SDBUILD_"Post-Install to update SDEC REQUEST POINTER INDEX in the"
S SDTASKSUBJ(2)=" SDEC CONTACT file (#409.86)"
D TASK2(.SDTASKSUBJ,.SDTASKCNT,SDTASKTAG,SDRTN,SDBUILD)
Q
VSE10892TASK ; Entry point for TASK
D VSE10892WORK
Q
VSE10892WORK ;
N DA,DDA,SDREQPTR
S DA=""
F S DA=$O(^SDEC(409.86,"REQPTR",DA)) Q:DA="" D
.S DDA=0
.F S DDA=$O(^SDEC(409.86,"REQPTR",DA,DDA)) Q:'DDA D
..S SDREQPTR=$P(^SDEC(409.86,DDA,0),"^",7)
..I DA=SDREQPTR Q
..; Bad index
..K ^SDEC(409.86,"REQPTR",DA,DDA)
..;W !,"kill SDEC(409.86,REQPTR,"_DA_","_DDA_")"
..; Do we have a valid index
..I '$D(^SDEC(409.86,"REQPTR",SDREQPTR,DDA)) S ^SDEC(409.86,"REQPTR",SDREQPTR,DDA)=""
..;i '$D(^SDEC(409.86,"REQPTR",SDREQPTR,DDA)) W !,"Add ",SDREQPTR_","_DDA
Q
;
VSE10930 ;
S SDTASKTAG="VSE10930TASK"
; Keep each line of the Task Subject to less than 80 chars for it to display properly
K SDTASKSUBJ
S SDTASKSUBJ(1)=SDBUILD_"Post-Install to remove control characters from the cancel remark in the"
S SDTASKSUBJ(2)="file HOSPITAL LOCATION (44)"
D TASK2(.SDTASKSUBJ,.SDTASKCNT,SDTASKTAG,SDRTN,SDBUILD)
Q
VSE10930TASK ; Entry point for TASK
D VSE10930WORK
Q
;
VSE10930WORK ;
N CLINICIEN,CANCELDATE,CANCELREMARK,CANCELREMARK1,FULLDAYCANCELFDA,ADDAPPTNODEFDA,FULLDAYCANCELIEN
S RECCNT=0
S CLINICIEN=0,CANCELREMARK=""
F S CLINICIEN=$O(^SC(CLINICIEN)) Q:(CLINICIEN="")!(CLINICIEN]"A") D
.S CANCELDATE=0 F S CANCELDATE=$O(^SC(CLINICIEN,"FULL DAY CANCEL",CANCELDATE)) Q:(CANCELDATE]9999999)!(CANCELDATE="") D
..S CANCELREMARK=$G(^SC(CLINICIEN,"FULL DAY CANCEL",CANCELDATE,1))
..Q:CANCELREMARK=""
..S CANCELREMARK1=$$CTRL^XMXUTIL1(CANCELREMARK)
..Q:(CANCELREMARK=CANCELREMARK1)
..S FULLDAYCANCELFDA(44.1902,CANCELDATE_","_CLINICIEN_",",.02)=CANCELREMARK1
..S FULLDAYCANCELIEN(1)=CANCELDATE
..D UPDATE^DIE(,"FULLDAYCANCELFDA","FULLDAYCANCELIEN") K FULLDAYCANCELFDA
..Q
.S CANCELDATE=0 F S CANCELDATE=$O(^SC(CLINICIEN,"SDCAN",CANCELDATE)) Q:(CANCELDATE]9999999)!(CANCELDATE="") D
..S CANCELREMARK=$$GET1^DIQ(44.001,CANCELDATE_","_CLINICIEN_",",1400,"I")
..Q:CANCELREMARK=""
..S CANCELREMARK1=$$CTRL^XMXUTIL1(CANCELREMARK)
..Q:(CANCELREMARK=CANCELREMARK1)
..S ADDAPPTNODEFDA(44.001,CANCELDATE_","_CLINICIEN_",",1400)=CANCELREMARK1
..D UPDATE^DIE("","ADDAPPTNODEFDA") K ADDAPPTNODEFDA
..Q
.Q
Q
;
;=====================================================
; The TASK and MAIL tags are standard code that should not need to be changed
;=====================================================
;
TASK2(SDTASKSUBJ,SDTASKCNT,SDTASKTAG,SDRTN,SDBUILD) ; tasks off process to update
; the direct patient schedule field in the hospital location file
N SDSUBJLN
S SDSUBJLN=""
S SDTASKCNT=SDTASKCNT+1
D MES^XPDUTL("")
F S SDSUBJLN=$O(SDTASKSUBJ(SDSUBJLN)) Q:SDSUBJLN="" D MES^XPDUTL(" "_SDTASKSUBJ(SDSUBJLN))
D MES^XPDUTL("")
N ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
S ZTDESC=SDBUILD_" Post Install Routine Task "_SDTASKCNT
D NOW^%DTC
S ZTDTH=X,ZTIO=""
S ZTRTN=SDTASKTAG_"^"_SDRTN
S 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
;
MAIL2(SDMAILLIST,SDMAILSUBJ,SDTICKET,SDRTN) ;
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("_$C(34)_SDRTN_$J_$C(34)_","_$C(34)_SDTICKET_$C(34)_","
S XMSUB=MESS1_SDMAILSUBJ
S XMDUZ=.5,XMY(XMDUZ)=""
S XMY(DUZ)="" ;Person running the install
I $D(SDMAILLIST)>0 M XMY=SDMAILLIST
D ^XMD
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES922P 7235 printed Jan 29, 2026@15:55:01 Page 2
SDES922P ;ALB/LAB/TAW/AGW - SD*5.3*922 Post Init Routine ; Oct 16, 2025
+1 ;;5.3;SCHEDULING;**922**;AUG 13, 1993;Build 7
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;;
+4 QUIT
+5 ;
EN ;
+1 NEW SDBUILD,SDRTN,SDTASKTAG,SDTASKCNT,SDTASKSUBJ,SDMAILSUBJ,SDMAILGLO,SDMAILLIST,SDTICKET
+2 SET SDRTN="SDES922P"
+3 SET SDBUILD="SD*5.3*922"
+4 SET SDTASKCNT=1
+5 DO TASK
+6 DO VSE10892
+7 DO VSE10930
+8 QUIT
+9 ;
+10 ;
TASK ; tasks off process to update the direct patient schedule field in the hospital location file
+1 DO MES^XPDUTL("")
+2 DO MES^XPDUTL(" SD*5.3*922 Post-Install to report on appointment created for 3/1/2026 through 3/8/2026 via EAS")
+3 DO MES^XPDUTL("")
+4 NEW ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
+5 SET ZTDESC="SD*5.3*922 Post Install Routine Task 1"
+6 DO NOW^%DTC
+7 SET ZTDTH=X
SET ZTIO=""
SET ZTRTN="VSE10962^SDES922P"
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 ;
VSE10962 ;report of appointments booked for 3/1/2026 and after and were booked before 3/10/2025 and has EAS number
+1 KILL ^XTMP("SDES922P")
+2 SET ^XTMP("SDES922P",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*922"
+3 DO ACTIVAPT
+4 DO MAIL
+5 KILL ^XTMP("SDES922P")
+6 QUIT
+7 ;
ACTIVAPT ;
+1 NEW APPTDT,RECCNT,APPTIEN,WHOMADE,WHOMADENM,CLINIC,CLINICTXT,WHENMADE,WHENMADETXT,APPTDTTX,NODENUM,RESOURCE,STATUS,APPTST,EAS
+2 SET APPTST=3260301
+3 SET RECCNT=0
+4 SET ^XTMP("SDES922P",1)="CLINIC NAME;APPOINTMENT DATE/TIME;APPOINTMENT MADE DATE/TIME;WHO MADE"
+5 SET NODENUM=1
+6 SET APPTDT=APPTST-.0001
+7 FOR
SET APPTDT=$ORDER(^SDEC(409.84,"B",APPTDT))
if ('APPTDT)!(APPTDT>=3260309)
QUIT
Begin DoDot:1
+8 SET APPTDTTX=$PIECE($$FMTISO^SDAMUTDT(APPTDT),"-",1,3)
+9 SET APPTIEN=0
FOR
SET APPTIEN=$ORDER(^SDEC(409.84,"B",APPTDT,APPTIEN))
if 'APPTIEN
QUIT
Begin DoDot:2
+10 SET EAS=$$GET1^DIQ(409.84,APPTIEN,100)
+11 if $GET(EAS)=""
QUIT
+12 SET RESOURCE=$$GET1^DIQ(409.84,APPTIEN,.07,"I")
+13 SET CLINIC=$$GET1^DIQ(409.831,RESOURCE,.04,"I")
+14 SET CLINICTXT=$$GET1^DIQ(44,CLINIC,.01,"I")
+15 SET STATUS=$$GET1^DIQ(409.84,APPTIEN,.17,"I")
+16 IF STATUS'=""
IF ",C,CA,PC,PCA,"[STATUS
QUIT
+17 SET WHOMADE=$$GET1^DIQ(409.84,APPTIEN,.08,"I")
+18 SET WHOMADENM="UNKNOWN"
+19 IF WHOMADE'=""
SET WHOMADENM=$$GET1^DIQ(200,WHOMADE,.01,"I")
+20 SET WHENMADE=$$GET1^DIQ(409.84,APPTIEN,.09,"I")
+21 IF WHENMADE>3250312
QUIT
+22 SET WHENMADETXT="UNKNOWN"
+23 IF WHENMADE'=""
SET WHENMADETXT=$PIECE($$FMTISO^SDAMUTDT(WHENMADE,CLINIC),"-",1,3)
+24 SET RECCNT=RECCNT+1
SET NODENUM=NODENUM+1
+25 SET ^XTMP("SDES922P",NODENUM)=CLINICTXT_";"_APPTDTTX_";"_WHENMADETXT_";"_WHOMADENM
End DoDot:2
End DoDot:1
+26 SET NODENUM=NODENUM+1
+27 SET ^XTMP("SDES922P",NODENUM)="TOTAL NUMBER RECORDS IMPACTED: "_RECCNT
+28 QUIT
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(""SDES922P"","
+7 SET XMSUB=MESS1_"SD*5.3*922 - 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 DO ^XMD
+13 QUIT
+14 ;
+15 ;=====================================================
+16 ;
VSE10892 ;
+1 SET SDTASKTAG="VSE10892TASK"
+2 ; Keep each line of the Task Subject to less than 80 chars for it to display properly
+3 KILL SDTASKSUBJ
+4 SET SDTASKSUBJ(1)=SDBUILD_"Post-Install to update SDEC REQUEST POINTER INDEX in the"
+5 SET SDTASKSUBJ(2)=" SDEC CONTACT file (#409.86)"
+6 DO TASK2(.SDTASKSUBJ,.SDTASKCNT,SDTASKTAG,SDRTN,SDBUILD)
+7 QUIT
VSE10892TASK ; Entry point for TASK
+1 DO VSE10892WORK
+2 QUIT
VSE10892WORK ;
+1 NEW DA,DDA,SDREQPTR
+2 SET DA=""
+3 FOR
SET DA=$ORDER(^SDEC(409.86,"REQPTR",DA))
if DA=""
QUIT
Begin DoDot:1
+4 SET DDA=0
+5 FOR
SET DDA=$ORDER(^SDEC(409.86,"REQPTR",DA,DDA))
if 'DDA
QUIT
Begin DoDot:2
+6 SET SDREQPTR=$PIECE(^SDEC(409.86,DDA,0),"^",7)
+7 IF DA=SDREQPTR
QUIT
+8 ; Bad index
+9 KILL ^SDEC(409.86,"REQPTR",DA,DDA)
+10 ;W !,"kill SDEC(409.86,REQPTR,"_DA_","_DDA_")"
+11 ; Do we have a valid index
+12 IF '$DATA(^SDEC(409.86,"REQPTR",SDREQPTR,DDA))
SET ^SDEC(409.86,"REQPTR",SDREQPTR,DDA)=""
+13 ;i '$D(^SDEC(409.86,"REQPTR",SDREQPTR,DDA)) W !,"Add ",SDREQPTR_","_DDA
End DoDot:2
End DoDot:1
+14 QUIT
+15 ;
VSE10930 ;
+1 SET SDTASKTAG="VSE10930TASK"
+2 ; Keep each line of the Task Subject to less than 80 chars for it to display properly
+3 KILL SDTASKSUBJ
+4 SET SDTASKSUBJ(1)=SDBUILD_"Post-Install to remove control characters from the cancel remark in the"
+5 SET SDTASKSUBJ(2)="file HOSPITAL LOCATION (44)"
+6 DO TASK2(.SDTASKSUBJ,.SDTASKCNT,SDTASKTAG,SDRTN,SDBUILD)
+7 QUIT
VSE10930TASK ; Entry point for TASK
+1 DO VSE10930WORK
+2 QUIT
+3 ;
VSE10930WORK ;
+1 NEW CLINICIEN,CANCELDATE,CANCELREMARK,CANCELREMARK1,FULLDAYCANCELFDA,ADDAPPTNODEFDA,FULLDAYCANCELIEN
+2 SET RECCNT=0
+3 SET CLINICIEN=0
SET CANCELREMARK=""
+4 FOR
SET CLINICIEN=$ORDER(^SC(CLINICIEN))
if (CLINICIEN="")!(CLINICIEN]"A")
QUIT
Begin DoDot:1
+5 SET CANCELDATE=0
FOR
SET CANCELDATE=$ORDER(^SC(CLINICIEN,"FULL DAY CANCEL",CANCELDATE))
if (CANCELDATE]9999999)!(CANCELDATE="")
QUIT
Begin DoDot:2
+6 SET CANCELREMARK=$GET(^SC(CLINICIEN,"FULL DAY CANCEL",CANCELDATE,1))
+7 if CANCELREMARK=""
QUIT
+8 SET CANCELREMARK1=$$CTRL^XMXUTIL1(CANCELREMARK)
+9 if (CANCELREMARK=CANCELREMARK1)
QUIT
+10 SET FULLDAYCANCELFDA(44.1902,CANCELDATE_","_CLINICIEN_",",.02)=CANCELREMARK1
+11 SET FULLDAYCANCELIEN(1)=CANCELDATE
+12 DO UPDATE^DIE(,"FULLDAYCANCELFDA","FULLDAYCANCELIEN")
KILL FULLDAYCANCELFDA
+13 QUIT
End DoDot:2
+14 SET CANCELDATE=0
FOR
SET CANCELDATE=$ORDER(^SC(CLINICIEN,"SDCAN",CANCELDATE))
if (CANCELDATE]9999999)!(CANCELDATE="")
QUIT
Begin DoDot:2
+15 SET CANCELREMARK=$$GET1^DIQ(44.001,CANCELDATE_","_CLINICIEN_",",1400,"I")
+16 if CANCELREMARK=""
QUIT
+17 SET CANCELREMARK1=$$CTRL^XMXUTIL1(CANCELREMARK)
+18 if (CANCELREMARK=CANCELREMARK1)
QUIT
+19 SET ADDAPPTNODEFDA(44.001,CANCELDATE_","_CLINICIEN_",",1400)=CANCELREMARK1
+20 DO UPDATE^DIE("","ADDAPPTNODEFDA")
KILL ADDAPPTNODEFDA
+21 QUIT
End DoDot:2
+22 QUIT
End DoDot:1
+23 QUIT
+24 ;
+25 ;=====================================================
+26 ; The TASK and MAIL tags are standard code that should not need to be changed
+27 ;=====================================================
+28 ;
TASK2(SDTASKSUBJ,SDTASKCNT,SDTASKTAG,SDRTN,SDBUILD) ; tasks off process to update
+1 ; the direct patient schedule field in the hospital location file
+2 NEW SDSUBJLN
+3 SET SDSUBJLN=""
+4 SET SDTASKCNT=SDTASKCNT+1
+5 DO MES^XPDUTL("")
+6 FOR
SET SDSUBJLN=$ORDER(SDTASKSUBJ(SDSUBJLN))
if SDSUBJLN=""
QUIT
DO MES^XPDUTL(" "_SDTASKSUBJ(SDSUBJLN))
+7 DO MES^XPDUTL("")
+8 NEW ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
+9 SET ZTDESC=SDBUILD_" Post Install Routine Task "_SDTASKCNT
+10 DO NOW^%DTC
+11 SET ZTDTH=X
SET ZTIO=""
+12 SET ZTRTN=SDTASKTAG_"^"_SDRTN
+13 SET ZTSAVE("*")=""
+14 DO ^%ZTLOAD
+15 IF $DATA(ZTSK)
Begin DoDot:1
+16 DO MES^XPDUTL(" >>>Task "_ZTSK_" has been queued.")
+17 DO MES^XPDUTL("")
End DoDot:1
+18 IF '$DATA(ZTSK)
Begin DoDot:1
+19 DO MES^XPDUTL(" UNABLE TO QUEUE THIS JOB.")
+20 DO MES^XPDUTL(" Please contact the National Help Desk to report this issue.")
End DoDot:1
+21 QUIT
+22 ;
MAIL2(SDMAILLIST,SDMAILSUBJ,SDTICKET,SDRTN) ;
+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("_$CHAR(34)_SDRTN_$JOB_$CHAR(34)_","_$CHAR(34)_SDTICKET_$CHAR(34)_","
+7 SET XMSUB=MESS1_SDMAILSUBJ
+8 SET XMDUZ=.5
SET XMY(XMDUZ)=""
+9 ;Person running the install
SET XMY(DUZ)=""
+10 IF $DATA(SDMAILLIST)>0
MERGE XMY=SDMAILLIST
+11 DO ^XMD
+12 QUIT
+13 ;
