SDES927P ;ALB/TJB,MGD - SD*5.3*927 Post Init Routine ; OCT 31, 2024
;;5.3;SCHEDULING;**927**;AUG 13, 1993;Build 15
;;Per VHA Directive 6402, this routine should not be modified
;;
Q
;
EN ;
N SDTASKTAG,SDTASKSUBJ,SDTASKCNT,SDRTN,SDBUILD
S SDRTN="SDES927P"
S SDBUILD="SD*5.3*927"
S SDTASKCNT=1
;
D VSE10970
D VSE11069
D VSE11381
Q
;
;
VSE10970 ;
;K ^XTMP("SDES927P")
D MES^XPDUTL("")
D MES^XPDUTL(" SD*5.3*927 Post-Install to correct the format of the CANCELLED message")
D MES^XPDUTL(" (where incorrect) on days with full day cancellations (#44.005) in the")
D MES^XPDUTL(" HOSPITAL LOCATION file (#44) is being queued to run in the background.")
D MES^XPDUTL("")
N ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
S ZTDESC="SD*5.3*927 Post Install Routine"
D NOW^%DTC S ZTDTH=X,ZTIO="",ZTRTN="CANCELCLEANUP^SDES927P",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
;
CANCELCLEANUP ;
N CLINICIEN,DATE,FDA,PATTERN,CANCELMESSAGE,COUNT
;
K ^XTMP("SDES927P_CANCELCLEANUP")
S ^XTMP("SDES927P_CANCELCLEANUP",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*927"
S CLINICIEN=0,COUNT=0
F S CLINICIEN=$O(^SC(CLINICIEN)) Q:'CLINICIEN D
.S DATE=$$GETSUB^SDES2UTIL(DT)
.F S DATE=$O(^SC(CLINICIEN,"ST",DATE)) Q:'DATE D
..I '$D(^SC(CLINICIEN,"ST",DATE,"CAN")) Q
..;
..S CANCELMESSAGE=" "_$E($P(DATE,"."),6,7)_" **CANCELLED**"
..S PATTERN=$$GET1^DIQ(44.005,DATE_","_CLINICIEN_",",1)
..;
..I PATTERN["[" Q
..I PATTERN=CANCELMESSAGE Q
..;
..S FDA(44.005,DATE_","_CLINICIEN_",",1)=CANCELMESSAGE
..D FILE^DIE(,"FDA") K FDA
..S COUNT=COUNT+1
;
S ^XTMP("SDES927P_CANCELCLEANUP",1)=""
S ^XTMP("SDES927P_CANCELCLEANUP",2)="A total of "_COUNT_" records were corrected"
S ^XTMP("SDES927P_CANCELCLEANUP",3)=""
S ^XTMP("SDES927P_CANCELCLEANUP",4)="SDES927P post install CANCEL CLEANUP (VSE-10970) has run to completion."
D MAIL
Q
;
MAIL ;
; Get Station Number
;
N STANUM,MESS1,XMTEXT,XMSUB,XMY,XMDUZ,DIFROM
S STANUM=$$KSP^XUPARAM("INST")_","
S STANUM=$$GET1^DIQ(4,STANUM,99)
S MESS1="Station: "_STANUM_" - "
;
; Send MailMan message
S XMDUZ=DUZ
S XMY(XMDUZ)=""
S XMTEXT="^XTMP(""SDES927P_CANCELCLEANUP"","
S XMSUB=MESS1_"SD*5.3*927 post install for Cancellation Data Cleanup"
S XMY("BARBER.LORI@DOMAIN.EXT")=""
S XMY("DUNNAM.DAVID@DOMAIN.EXT")=""
S XMY("CRUZ.ORLANDO@DOMAIN.EXT")=""
S XMDUZ=.5,XMY(DUZ)="",XMY(XMDUZ)=""
D ^XMD
Q
VSE11069 ;
S SDTASKTAG="VSE11069TASK"
; 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 identify clinics with no DIVISION value"
S SDTASKSUBJ(2)="and clinics that have DIVISION valued, but no TIMEZONE"
D TASK2(.SDTASKSUBJ,SDTASKCNT,SDTASKTAG,SDRTN,SDBUILD)
Q
VSE11069TASK ; Entry point for TASK
D VSE11069WORK
Q
;
VSE11069WORK ;
;
S SDBUILD="SD*5.3*927"
S SDTICKET="VSE-11069"
S SDMAILSUBJ=SDBUILD_" - Post Install TIMEZONE Report "_SDTICKET
S SDMAILLIST("BARBER.LORI@DOMAIN.EXT")="" ;This is the FORUM email
S SDMAILLIST("DUNNAM.DAVID@DOMAIN.EXT")=""
S SDMAILLIST("CRUZ.ORLANDO@DOMAIN.EXT")=""
;
K ^XTMP("SDES927P_TIMEZONE")
;
N CLINICIEN,RPTCLN,SDDIV,SDTIMEZONEI,COUNT,OUTPUT,CLINICNAME,CLINICSTAT,SDINST
S CLINICIEN=0,COUNT=1
F S CLINICIEN=$O(^SC(CLINICIEN)) Q:'CLINICIEN D
.S RPTCLN=0
.S SDDIV=$$GET1^DIQ(44,CLINICIEN_",",3.5,"I")
.I SDDIV="" S RPTCLN=1
.S SDINST=$$GET1^DIQ(40.8,SDDIV_",",.07,"I")
.S SDTIMEZONEI=$$GET1^DIQ(4,SDINST,800,"I")
.I SDTIMEZONEI="" S RPTCLN=1
.I RPTCLN D
..S CLINICNAME=$$GET1^DIQ(44,CLINICIEN,.01,"E")
..S CLINICSTAT=$S($$INACTIVE^SDES2UTIL(CLINICIEN)=0:"ACTIVE",1:"INACTIVE")
..S COUNT=COUNT+1
..S ^XTMP("SDES927P_TIMEZONE",COUNT)=CLINICIEN_"^"_CLINICNAME_"^"_CLINICSTAT_"^"_SDDIV_"^"_SDINST
;
S ^XTMP("SDES927P_TIMEZONE",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*927"
S ^XTMP("SDES927P_TIMEZONE",1)="CLINIC IEN^CLINIC NAME^CLINIC STATUS^DIVISION^INSTITUTION"
S COUNT=COUNT+1
S ^XTMP("SDES927P_TIMEZONE",COUNT)="A total of "_COUNT_" records were identified"
S ^XTMP("SDES927P_TIMEZONE",COUNT+1)=""
S ^XTMP("SDES927P_TIMEZONE",COUNT+2)="SDES927P post install TIMEZONE (VSE-11069) has run to completion."
D MAIL2(.SDMAILLIST,SDMAILSUBJ,SDTICKET,"SDES927P_TIMEZONE")
K ^XTMP("SDES927P_TIMEZONE")
Q
VSE11381 ;
S SDTASKTAG="VSE11381TASK"
; 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
VSE11381TASK ; Entry point for TASK
D VSE11381WORK
Q
VSE11381WORK ;
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)
..Q:$G(SDREQPTR)="" ; Skip adding index if there is no request pointer
..;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
;
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_$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[HSDES927P 6821 printed Mar 25, 2026@16:20:58 Page 2
SDES927P ;ALB/TJB,MGD - SD*5.3*927 Post Init Routine ; OCT 31, 2024
+1 ;;5.3;SCHEDULING;**927**;AUG 13, 1993;Build 15
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;;
+4 QUIT
+5 ;
EN ;
+1 NEW SDTASKTAG,SDTASKSUBJ,SDTASKCNT,SDRTN,SDBUILD
+2 SET SDRTN="SDES927P"
+3 SET SDBUILD="SD*5.3*927"
+4 SET SDTASKCNT=1
+5 ;
+6 DO VSE10970
+7 DO VSE11069
+8 DO VSE11381
+9 QUIT
+10 ;
+11 ;
VSE10970 ;
+1 ;K ^XTMP("SDES927P")
+2 DO MES^XPDUTL("")
+3 DO MES^XPDUTL(" SD*5.3*927 Post-Install to correct the format of the CANCELLED message")
+4 DO MES^XPDUTL(" (where incorrect) on days with full day cancellations (#44.005) in the")
+5 DO MES^XPDUTL(" HOSPITAL LOCATION file (#44) is being queued to run in the background.")
+6 DO MES^XPDUTL("")
+7 NEW ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
+8 SET ZTDESC="SD*5.3*927 Post Install Routine"
+9 DO NOW^%DTC
SET ZTDTH=X
SET ZTIO=""
SET ZTRTN="CANCELCLEANUP^SDES927P"
SET ZTSAVE("*")=""
DO ^%ZTLOAD
+10 IF $DATA(ZTSK)
Begin DoDot:1
+11 DO MES^XPDUTL(" >>>Task "_ZTSK_" has been queued.")
+12 DO MES^XPDUTL("")
End DoDot:1
+13 IF '$DATA(ZTSK)
Begin DoDot:1
+14 DO MES^XPDUTL(" UNABLE TO QUEUE THIS JOB.")
+15 DO MES^XPDUTL(" Please contact the National Help Desk to report this issue.")
End DoDot:1
+16 QUIT
+17 ;
CANCELCLEANUP ;
+1 NEW CLINICIEN,DATE,FDA,PATTERN,CANCELMESSAGE,COUNT
+2 ;
+3 KILL ^XTMP("SDES927P_CANCELCLEANUP")
+4 SET ^XTMP("SDES927P_CANCELCLEANUP",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*927"
+5 SET CLINICIEN=0
SET COUNT=0
+6 FOR
SET CLINICIEN=$ORDER(^SC(CLINICIEN))
if 'CLINICIEN
QUIT
Begin DoDot:1
+7 SET DATE=$$GETSUB^SDES2UTIL(DT)
+8 FOR
SET DATE=$ORDER(^SC(CLINICIEN,"ST",DATE))
if 'DATE
QUIT
Begin DoDot:2
+9 IF '$DATA(^SC(CLINICIEN,"ST",DATE,"CAN"))
QUIT
+10 ;
+11 SET CANCELMESSAGE=" "_$EXTRACT($PIECE(DATE,"."),6,7)_" **CANCELLED**"
+12 SET PATTERN=$$GET1^DIQ(44.005,DATE_","_CLINICIEN_",",1)
+13 ;
+14 IF PATTERN["["
QUIT
+15 IF PATTERN=CANCELMESSAGE
QUIT
+16 ;
+17 SET FDA(44.005,DATE_","_CLINICIEN_",",1)=CANCELMESSAGE
+18 DO FILE^DIE(,"FDA")
KILL FDA
+19 SET COUNT=COUNT+1
End DoDot:2
End DoDot:1
+20 ;
+21 SET ^XTMP("SDES927P_CANCELCLEANUP",1)=""
+22 SET ^XTMP("SDES927P_CANCELCLEANUP",2)="A total of "_COUNT_" records were corrected"
+23 SET ^XTMP("SDES927P_CANCELCLEANUP",3)=""
+24 SET ^XTMP("SDES927P_CANCELCLEANUP",4)="SDES927P post install CANCEL CLEANUP (VSE-10970) has run to completion."
+25 DO MAIL
+26 QUIT
+27 ;
MAIL ;
+1 ; Get Station Number
+2 ;
+3 NEW STANUM,MESS1,XMTEXT,XMSUB,XMY,XMDUZ,DIFROM
+4 SET STANUM=$$KSP^XUPARAM("INST")_","
+5 SET STANUM=$$GET1^DIQ(4,STANUM,99)
+6 SET MESS1="Station: "_STANUM_" - "
+7 ;
+8 ; Send MailMan message
+9 SET XMDUZ=DUZ
+10 SET XMY(XMDUZ)=""
+11 SET XMTEXT="^XTMP(""SDES927P_CANCELCLEANUP"","
+12 SET XMSUB=MESS1_"SD*5.3*927 post install for Cancellation Data Cleanup"
+13 SET XMY("BARBER.LORI@DOMAIN.EXT")=""
+14 SET XMY("DUNNAM.DAVID@DOMAIN.EXT")=""
+15 SET XMY("CRUZ.ORLANDO@DOMAIN.EXT")=""
+16 SET XMDUZ=.5
SET XMY(DUZ)=""
SET XMY(XMDUZ)=""
+17 DO ^XMD
+18 QUIT
VSE11069 ;
+1 SET SDTASKTAG="VSE11069TASK"
+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 identify clinics with no DIVISION value"
+5 SET SDTASKSUBJ(2)="and clinics that have DIVISION valued, but no TIMEZONE"
+6 DO TASK2(.SDTASKSUBJ,SDTASKCNT,SDTASKTAG,SDRTN,SDBUILD)
+7 QUIT
VSE11069TASK ; Entry point for TASK
+1 DO VSE11069WORK
+2 QUIT
+3 ;
VSE11069WORK ;
+1 ;
+2 SET SDBUILD="SD*5.3*927"
+3 SET SDTICKET="VSE-11069"
+4 SET SDMAILSUBJ=SDBUILD_" - Post Install TIMEZONE Report "_SDTICKET
+5 ;This is the FORUM email
SET SDMAILLIST("BARBER.LORI@DOMAIN.EXT")=""
+6 SET SDMAILLIST("DUNNAM.DAVID@DOMAIN.EXT")=""
+7 SET SDMAILLIST("CRUZ.ORLANDO@DOMAIN.EXT")=""
+8 ;
+9 KILL ^XTMP("SDES927P_TIMEZONE")
+10 ;
+11 NEW CLINICIEN,RPTCLN,SDDIV,SDTIMEZONEI,COUNT,OUTPUT,CLINICNAME,CLINICSTAT,SDINST
+12 SET CLINICIEN=0
SET COUNT=1
+13 FOR
SET CLINICIEN=$ORDER(^SC(CLINICIEN))
if 'CLINICIEN
QUIT
Begin DoDot:1
+14 SET RPTCLN=0
+15 SET SDDIV=$$GET1^DIQ(44,CLINICIEN_",",3.5,"I")
+16 IF SDDIV=""
SET RPTCLN=1
+17 SET SDINST=$$GET1^DIQ(40.8,SDDIV_",",.07,"I")
+18 SET SDTIMEZONEI=$$GET1^DIQ(4,SDINST,800,"I")
+19 IF SDTIMEZONEI=""
SET RPTCLN=1
+20 IF RPTCLN
Begin DoDot:2
+21 SET CLINICNAME=$$GET1^DIQ(44,CLINICIEN,.01,"E")
+22 SET CLINICSTAT=$SELECT($$INACTIVE^SDES2UTIL(CLINICIEN)=0:"ACTIVE",1:"INACTIVE")
+23 SET COUNT=COUNT+1
+24 SET ^XTMP("SDES927P_TIMEZONE",COUNT)=CLINICIEN_"^"_CLINICNAME_"^"_CLINICSTAT_"^"_SDDIV_"^"_SDINST
End DoDot:2
End DoDot:1
+25 ;
+26 SET ^XTMP("SDES927P_TIMEZONE",0)=$$FMADD^XLFDT(DT,30)_"^"_DT_"^SD*5.3*927"
+27 SET ^XTMP("SDES927P_TIMEZONE",1)="CLINIC IEN^CLINIC NAME^CLINIC STATUS^DIVISION^INSTITUTION"
+28 SET COUNT=COUNT+1
+29 SET ^XTMP("SDES927P_TIMEZONE",COUNT)="A total of "_COUNT_" records were identified"
+30 SET ^XTMP("SDES927P_TIMEZONE",COUNT+1)=""
+31 SET ^XTMP("SDES927P_TIMEZONE",COUNT+2)="SDES927P post install TIMEZONE (VSE-11069) has run to completion."
+32 DO MAIL2(.SDMAILLIST,SDMAILSUBJ,SDTICKET,"SDES927P_TIMEZONE")
+33 KILL ^XTMP("SDES927P_TIMEZONE")
+34 QUIT
VSE11381 ;
+1 SET SDTASKTAG="VSE11381TASK"
+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
VSE11381TASK ; Entry point for TASK
+1 DO VSE11381WORK
+2 QUIT
VSE11381WORK ;
+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 ; Skip adding index if there is no request pointer
if $GET(SDREQPTR)=""
QUIT
+11 ;W !,"kill SDEC(409.86,REQPTR,"_DA_","_DDA_")"
+12 ; Do we have a valid index
+13 IF '$DATA(^SDEC(409.86,"REQPTR",SDREQPTR,DDA))
SET ^SDEC(409.86,"REQPTR",SDREQPTR,DDA)=""
+14 ;i '$D(^SDEC(409.86,"REQPTR",SDREQPTR,DDA)) W !,"Add ",SDREQPTR_","_DDA
End DoDot:2
End DoDot:1
+15 QUIT
+16 ;
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_$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
