SDES915P ;ALB/TAW,TJB - SD*5.3*915 Post Init Routine ; June 25, 2025
;;5.3;SCHEDULING;**915**;AUG 13, 1993;Build 2
;;Per VHA Directive 6402, this routine should not be modified
;;
Q
;
EN ;
D TASK,TASK1
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*915 Post-Install to update DIRECT PATIENT SCHEDULING field in")
D MES^XPDUTL(" HOSPITAL LOCATION file (#44)")
D MES^XPDUTL("")
N ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
S ZTDESC="SD*5.3*915 Post Install Routine Task 1"
D NOW^%DTC
S ZTDTH=X,ZTIO="",ZTRTN="DIRPAT^SDES915P",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
;
TASK1 ; tasks off process to check 409.831 file for clinic resource pointing at the same clinic
D MES^XPDUTL("")
D MES^XPDUTL(" SD*5.3*915 Post-Install to check for duplicate clinic resources")
D MES^XPDUTL(" on file 409.831 pointing to the same clinic (file #44) entry")
D MES^XPDUTL(" is being queued to run in the background.")
D MES^XPDUTL("")
N ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
S ZTDESC="SD*5.3*915 Post Install Routine Task "
D NOW^%DTC S ZTDTH=X,ZTIO="",ZTRTN="DUPCLIN^SDES915P",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
;
DIRPAT ;
N CLNIEN,CLNNAME,RETURN,ERRORS,FDA,FIELD,UPDATECNT,STOPCODE,ERRORCNT
S (CLNIEN,CLNNAME,RETURN,ERRORS,FDA,FIELD,UPDATECNT,STOPCODE,ERRORCNT)=""
S (CLNNAME,CLNIEN)="",UPDATECNT=0
K ^XTMP("SDES915P","VSE-10065")
D GETSC ;Look up the stop codes
;Loop over all Clinics in 44
F S CLNNAME=$O(^SC("AG","C",CLNNAME)) Q:CLNNAME="" D
.S CLNIEN=""
.F S CLNIEN=$O(^SC("AG","C",CLNNAME,CLNIEN)) Q:CLNIEN="" D
..K RETURN
..D GETS^DIQ(44,CLNIEN_",","8;61;62;2503;2505;2506","I","RETURN","ERRORS")
..I $D(RETURN)<1 Q
..; Ensure we have the array built for empty fields
..F FIELD=8,61,62,2503,2505,2506 S RETURN(44,CLNIEN_",",FIELD,"I")=$G(RETURN(44,CLNIEN_",",FIELD,"I"))
..I ($E(RETURN(44,CLNIEN_",",61,"I"))="Y"),($E(RETURN(44,CLNIEN_",",62,"I"))="N") S UPDATECNT=UPDATECNT+1,^XTMP("SDES915P","VSE-10065",UPDATECNT)=CLNIEN_" : Invalid Patient scheduling on field 61 and 62" Q
..I $E(RETURN(44,CLNIEN_",",61,"I"))="Y" Q
..I $E(RETURN(44,CLNIEN_",",62,"I"))="N" Q
..; Check if clinics are inactive and have no future reactivation
..I RETURN(44,CLNIEN_",",2505,"I")'="" Q:$$CLNINACTIVE(CLNIEN,RETURN(44,CLNIEN_",",2506,"I"))
..; Stop Code
..I '$$VALIDSC(RETURN(44,CLNIEN_",",8,"I")) Q
..; Credit Stop Code
..I '$$VALIDCSC(RETURN(44,CLNIEN_",",2503,"I")) Q
..;
..; Direct Patient Scheduling = Y
..S FDA(44,CLNIEN_",",61)="Y"
..D FILE^DIE("","FDA","ERRORS")
..K FDA,ERRORS
..S UPDATECNT=UPDATECNT+1
..S ^XTMP("SDES915P","VSE-10065",UPDATECNT)=CLNIEN_" : "_$S($D(ERRORS):"ERROR",1:"UPDATED")
S ^XTMP("SDES915P","VSE-10065",UPDATECNT+1)="Done : "_UPDATECNT_" clinics"
D MAIL
K ^XTMP("SDES915P","VSE-10065")
Q
CLNINACTIVE(CLNIEN,REACTDT) ;
N INACTIVE
S INACTIVE=1
; Is the clinic active as of today
S INACTIVE=$$INACTIVE^SDES2UTIL(CLNIEN,DT)
; Clinic is considered active if there is a future reactivation date
I REACTDT,INACTIVE S:(REACTDT'<DT) INACTIVE=0
;
Q INACTIVE
;
VALIDSC(SC) ;
N VALID
S VALID=0
I SC,$D(STOPCODE("SC",SC)) S VALID=1
Q VALID
;
VALIDCSC(CSC) ;
N VALID
S VALID=0
I CSC="" S VALID=1
I CSC,$D(STOPCODE("CSC",CSC)) S VALID=1
Q VALID
;
GETSC ;Build an array of stop codes
N CODE,IEN
F CODE=322,323,350 D
.S IEN=$O(^DIC(40.7,"C",CODE,""))
.S:IEN STOPCODE("SC",IEN)=CODE
F CODE=117,123,125,160,185,186,187 D
.S IEN=$O(^DIC(40.7,"C",CODE,""))
.S:IEN STOPCODE("CSC",IEN)=CODE
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(""SDES915P"",""VSE-10065"","
S XMSUB=MESS1_"SD*5.3*915 - Post Install Data Report VSE-10065"
S XMDUZ=.5,XMY(DUZ)="",XMY(XMDUZ)=""
S XMY("BARBER.LORI@DOMAIN.EXT")=""
S XMY("DUNNAM.DAVID@DOMAIN.EXT")=""
S XMY("WISE,TODD_A@DOMAIN.EXT")=""
D ^XMD
Q
;
DUPCLIN ;
N I,FL,ZN,CLIEN,LIST,OUT,MISS,DUPS,RESIEN,RTIEN,RTNAM,RTSTAT,XT,XTMM
K DUPS,MISS,CLIEN,^XTMP("SDES915P","VSE-10278")
S XTMM=$NA(^XTMP("SDES915P","VSE-10278"))
S I=0
F S I=$O(^SDEC(409.831,I)) Q:'+I S ZN=^SDEC(409.831,I,0) D:$P(ZN,U,11)["SC("
. I $P(ZN,U,4)="" S MISS(I)=ZN Q
. S DUPS($P(ZN,U,4))=$G(DUPS($P(ZN,U,4)))+1,DUPS($P(ZN,U,4),I)=ZN
;
S FL="ClinIEN^ClinName^ClinStat^ResourceIEN^ResourceClinIEN^ResourceClinName^ResourceClinStat^ResourceName^ResourceTypeInt"
S CLIEN="",I=0
F S CLIEN=$O(DUPS(CLIEN)) Q:CLIEN="" D
. Q:DUPS(CLIEN)=1
. S LIST=CLIEN_U_$P(^SC(CLIEN,0),U)_U_$S($$INACTIVE^SDES2UTIL(CLIEN)=1:"INACTIVE",1:"ACTIVE")
. S RESIEN="" F S RESIEN=$O(DUPS(CLIEN,RESIEN)) Q:RESIEN="" D
.. S RTIEN=$P($P(DUPS(CLIEN,RESIEN),U,11),";"),RTNAM=$S($D(^SC(RTIEN,0)):$P($G(^SC(RTIEN,0)),U),1:"Missing Clinic")
.. S RTSTAT=$S($$INACTIVE^SDES2UTIL(RTIEN)=1:"INACTIVE",RTNAM="Missing Clinic":"N/A",1:"ACTIVE")
.. S I=I+1,OUT(I)=LIST_U_RESIEN_U_RTIEN_U_RTNAM_U_RTSTAT_U_$P(DUPS(CLIEN,RESIEN),U)_U_$P(DUPS(CLIEN,RESIEN),U,11)
;
S @XTMM@(1)=" "
S @XTMM@(2)=FL
S @XTMM@(3)=" "
S XT=3,I=""
F S I=$O(OUT(I)) Q:'+I S XT=XT+1,@XTMM@(XT)=OUT(I)
I $D(MISS)>0 D
. S XT=XT+1,@XTMM@(XT)=" "
. S XT=XT+1,@XTMM@(XT)="Missing Clinics on Resource"
. S I="" F S I=$O(MISS(I)) Q:'+I S XT=XT+1,@XTMM@(XT)=I_U_MISS(I)
. S XT=XT+1,@XTMM@(XT)=" "
S XT=XT+1,@XTMM@(XT)=" "
S XT=XT+1,@XTMM@(XT)="DONE"
S XT=XT+1,@XTMM@(XT)=" "
D MAIL1
Q
;
MAIL1 ;
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(""SDES915P"",""VSE-10278"","
S XMSUB=MESS1_"SD*5.3*915 - Post Install Data Report VSE-10278"
S XMDUZ=.5,XMY(DUZ)="",XMY(XMDUZ)=""
S XMY("BARBER.LORI@DOMAIN.EXT")=""
S XMY("DUNNAM.DAVID@DOMAIN.EXT")=""
S XMY("BOYDA.THOMAS@DOMAIN.EXT")=""
D ^XMD
K ^XTMP("SDES915P","VSE-10278")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES915P 6646 printed Sep 23, 2025@20:32:21 Page 2
SDES915P ;ALB/TAW,TJB - SD*5.3*915 Post Init Routine ; June 25, 2025
+1 ;;5.3;SCHEDULING;**915**;AUG 13, 1993;Build 2
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;;
+4 QUIT
+5 ;
EN ;
+1 DO TASK
DO TASK1
+2 QUIT
+3 ;
+4 ;
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*915 Post-Install to update DIRECT PATIENT SCHEDULING field in")
+3 DO MES^XPDUTL(" HOSPITAL LOCATION file (#44)")
+4 DO MES^XPDUTL("")
+5 NEW ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
+6 SET ZTDESC="SD*5.3*915 Post Install Routine Task 1"
+7 DO NOW^%DTC
+8 SET ZTDTH=X
SET ZTIO=""
SET ZTRTN="DIRPAT^SDES915P"
SET ZTSAVE("*")=""
+9 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 ;
TASK1 ; tasks off process to check 409.831 file for clinic resource pointing at the same clinic
+1 DO MES^XPDUTL("")
+2 DO MES^XPDUTL(" SD*5.3*915 Post-Install to check for duplicate clinic resources")
+3 DO MES^XPDUTL(" on file 409.831 pointing to the same clinic (file #44) entry")
+4 DO MES^XPDUTL(" is being queued to run in the background.")
+5 DO MES^XPDUTL("")
+6 NEW ZTDESC,ZTRTN,ZTIO,ZTSK,X,ZTDTH,ZTSAVE
+7 SET ZTDESC="SD*5.3*915 Post Install Routine Task "
+8 DO NOW^%DTC
SET ZTDTH=X
SET ZTIO=""
SET ZTRTN="DUPCLIN^SDES915P"
SET ZTSAVE("*")=""
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 ;
DIRPAT ;
+1 NEW CLNIEN,CLNNAME,RETURN,ERRORS,FDA,FIELD,UPDATECNT,STOPCODE,ERRORCNT
+2 SET (CLNIEN,CLNNAME,RETURN,ERRORS,FDA,FIELD,UPDATECNT,STOPCODE,ERRORCNT)=""
+3 SET (CLNNAME,CLNIEN)=""
SET UPDATECNT=0
+4 KILL ^XTMP("SDES915P","VSE-10065")
+5 ;Look up the stop codes
DO GETSC
+6 ;Loop over all Clinics in 44
+7 FOR
SET CLNNAME=$ORDER(^SC("AG","C",CLNNAME))
if CLNNAME=""
QUIT
Begin DoDot:1
+8 SET CLNIEN=""
+9 FOR
SET CLNIEN=$ORDER(^SC("AG","C",CLNNAME,CLNIEN))
if CLNIEN=""
QUIT
Begin DoDot:2
+10 KILL RETURN
+11 DO GETS^DIQ(44,CLNIEN_",","8;61;62;2503;2505;2506","I","RETURN","ERRORS")
+12 IF $DATA(RETURN)<1
QUIT
+13 ; Ensure we have the array built for empty fields
+14 FOR FIELD=8,61,62,2503,2505,2506
SET RETURN(44,CLNIEN_",",FIELD,"I")=$GET(RETURN(44,CLNIEN_",",FIELD,"I"))
+15 IF ($EXTRACT(RETURN(44,CLNIEN_",",61,"I"))="Y")
IF ($EXTRACT(RETURN(44,CLNIEN_",",62,"I"))="N")
SET UPDATECNT=UPDATECNT+1
SET ^XTMP("SDES915P","VSE-10065",UPDATECNT)=CLNIEN_" : Invalid Patient scheduling on field 61 and 62"
QUIT
+16 IF $EXTRACT(RETURN(44,CLNIEN_",",61,"I"))="Y"
QUIT
+17 IF $EXTRACT(RETURN(44,CLNIEN_",",62,"I"))="N"
QUIT
+18 ; Check if clinics are inactive and have no future reactivation
+19 IF RETURN(44,CLNIEN_",",2505,"I")'=""
if $$CLNINACTIVE(CLNIEN,RETURN(44,CLNIEN_",",2506,"I"))
QUIT
+20 ; Stop Code
+21 IF '$$VALIDSC(RETURN(44,CLNIEN_",",8,"I"))
QUIT
+22 ; Credit Stop Code
+23 IF '$$VALIDCSC(RETURN(44,CLNIEN_",",2503,"I"))
QUIT
+24 ;
+25 ; Direct Patient Scheduling = Y
+26 SET FDA(44,CLNIEN_",",61)="Y"
+27 DO FILE^DIE("","FDA","ERRORS")
+28 KILL FDA,ERRORS
+29 SET UPDATECNT=UPDATECNT+1
+30 SET ^XTMP("SDES915P","VSE-10065",UPDATECNT)=CLNIEN_" : "_$SELECT($DATA(ERRORS):"ERROR",1:"UPDATED")
End DoDot:2
End DoDot:1
+31 SET ^XTMP("SDES915P","VSE-10065",UPDATECNT+1)="Done : "_UPDATECNT_" clinics"
+32 DO MAIL
+33 KILL ^XTMP("SDES915P","VSE-10065")
+34 QUIT
CLNINACTIVE(CLNIEN,REACTDT) ;
+1 NEW INACTIVE
+2 SET INACTIVE=1
+3 ; Is the clinic active as of today
+4 SET INACTIVE=$$INACTIVE^SDES2UTIL(CLNIEN,DT)
+5 ; Clinic is considered active if there is a future reactivation date
+6 IF REACTDT
IF INACTIVE
if (REACTDT'<DT)
SET INACTIVE=0
+7 ;
+8 QUIT INACTIVE
+9 ;
VALIDSC(SC) ;
+1 NEW VALID
+2 SET VALID=0
+3 IF SC
IF $DATA(STOPCODE("SC",SC))
SET VALID=1
+4 QUIT VALID
+5 ;
VALIDCSC(CSC) ;
+1 NEW VALID
+2 SET VALID=0
+3 IF CSC=""
SET VALID=1
+4 IF CSC
IF $DATA(STOPCODE("CSC",CSC))
SET VALID=1
+5 QUIT VALID
+6 ;
GETSC ;Build an array of stop codes
+1 NEW CODE,IEN
+2 FOR CODE=322,323,350
Begin DoDot:1
+3 SET IEN=$ORDER(^DIC(40.7,"C",CODE,""))
+4 if IEN
SET STOPCODE("SC",IEN)=CODE
End DoDot:1
+5 FOR CODE=117,123,125,160,185,186,187
Begin DoDot:1
+6 SET IEN=$ORDER(^DIC(40.7,"C",CODE,""))
+7 if IEN
SET STOPCODE("CSC",IEN)=CODE
End DoDot:1
+8 QUIT
+9 ;
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(""SDES915P"",""VSE-10065"","
+7 SET XMSUB=MESS1_"SD*5.3*915 - Post Install Data Report VSE-10065"
+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("WISE,TODD_A@DOMAIN.EXT")=""
+12 DO ^XMD
+13 QUIT
+14 ;
DUPCLIN ;
+1 NEW I,FL,ZN,CLIEN,LIST,OUT,MISS,DUPS,RESIEN,RTIEN,RTNAM,RTSTAT,XT,XTMM
+2 KILL DUPS,MISS,CLIEN,^XTMP("SDES915P","VSE-10278")
+3 SET XTMM=$NAME(^XTMP("SDES915P","VSE-10278"))
+4 SET I=0
+5 FOR
SET I=$ORDER(^SDEC(409.831,I))
if '+I
QUIT
SET ZN=^SDEC(409.831,I,0)
if $PIECE(ZN,U,11)["SC("
Begin DoDot:1
+6 IF $PIECE(ZN,U,4)=""
SET MISS(I)=ZN
QUIT
+7 SET DUPS($PIECE(ZN,U,4))=$GET(DUPS($PIECE(ZN,U,4)))+1
SET DUPS($PIECE(ZN,U,4),I)=ZN
End DoDot:1
+8 ;
+9 SET FL="ClinIEN^ClinName^ClinStat^ResourceIEN^ResourceClinIEN^ResourceClinName^ResourceClinStat^ResourceName^ResourceTypeInt"
+10 SET CLIEN=""
SET I=0
+11 FOR
SET CLIEN=$ORDER(DUPS(CLIEN))
if CLIEN=""
QUIT
Begin DoDot:1
+12 if DUPS(CLIEN)=1
QUIT
+13 SET LIST=CLIEN_U_$PIECE(^SC(CLIEN,0),U)_U_$SELECT($$INACTIVE^SDES2UTIL(CLIEN)=1:"INACTIVE",1:"ACTIVE")
+14 SET RESIEN=""
FOR
SET RESIEN=$ORDER(DUPS(CLIEN,RESIEN))
if RESIEN=""
QUIT
Begin DoDot:2
+15 SET RTIEN=$PIECE($PIECE(DUPS(CLIEN,RESIEN),U,11),";")
SET RTNAM=$SELECT($DATA(^SC(RTIEN,0)):$PIECE($GET(^SC(RTIEN,0)),U),1:"Missing Clinic")
+16 SET RTSTAT=$SELECT($$INACTIVE^SDES2UTIL(RTIEN)=1:"INACTIVE",RTNAM="Missing Clinic":"N/A",1:"ACTIVE")
+17 SET I=I+1
SET OUT(I)=LIST_U_RESIEN_U_RTIEN_U_RTNAM_U_RTSTAT_U_$PIECE(DUPS(CLIEN,RESIEN),U)_U_$PIECE(DUPS(CLIEN,RESIEN),U,11)
End DoDot:2
End DoDot:1
+18 ;
+19 SET @XTMM@(1)=" "
+20 SET @XTMM@(2)=FL
+21 SET @XTMM@(3)=" "
+22 SET XT=3
SET I=""
+23 FOR
SET I=$ORDER(OUT(I))
if '+I
QUIT
SET XT=XT+1
SET @XTMM@(XT)=OUT(I)
+24 IF $DATA(MISS)>0
Begin DoDot:1
+25 SET XT=XT+1
SET @XTMM@(XT)=" "
+26 SET XT=XT+1
SET @XTMM@(XT)="Missing Clinics on Resource"
+27 SET I=""
FOR
SET I=$ORDER(MISS(I))
if '+I
QUIT
SET XT=XT+1
SET @XTMM@(XT)=I_U_MISS(I)
+28 SET XT=XT+1
SET @XTMM@(XT)=" "
End DoDot:1
+29 SET XT=XT+1
SET @XTMM@(XT)=" "
+30 SET XT=XT+1
SET @XTMM@(XT)="DONE"
+31 SET XT=XT+1
SET @XTMM@(XT)=" "
+32 DO MAIL1
+33 QUIT
+34 ;
MAIL1 ;
+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(""SDES915P"",""VSE-10278"","
+7 SET XMSUB=MESS1_"SD*5.3*915 - Post Install Data Report VSE-10278"
+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("BOYDA.THOMAS@DOMAIN.EXT")=""
+12 DO ^XMD
+13 KILL ^XTMP("SDES915P","VSE-10278")
+14 QUIT
