XMJMOIE ;ISC-SF/GMB-Edit msg that user has sent to self ;04/19/2002 11:01
;;8.0;MailMan;;Jun 28, 2002
EDIT(XMDUZ,XMK,XMZ,XMSUBJ,XMINSTR,XMRESTR) ;
N XMABORT,XMDIR,XMOPT,XMOX,XMY
S XMABORT=0
F D Q:XMABORT
. D SENDSET(.XMINSTR,.XMOPT,.XMOX,.XMDIR)
. D XMDIR^XMJDIR(.XMDIR,.XMOPT,.XMOX,.XMY,.XMABORT) Q:XMABORT
. K XMDIR,XMOPT,XMOX
. D @XMY
Q
SENDSET(XMINSTR,XMOPT,XMOX,XMDIR) ;
D OPTEDIT^XMXSEC2(.XMINSTR,.XMOPT,.XMOX,1)
I $G(XMOPT("NS","?"))=37309.1 K XMOPT("NS","?") ; You have no Network Signature.
D SET^XMXSEC2("IM",37445,.XMOPT,.XMOX) ; Include responses from another message
S XMDIR("A")=$$EZBLD^DIALOG(34066) ; Select Edit option:
S XMDIR("??")="XM-U-MO-EDIT"
Q
C ; Confidential msg
N XMMSG
D CONFID^XMXEDIT(XMZ,.XMINSTR,.XMMSG) I $D(XMERR) D SHOW^XMJERR Q
W !,XMMSG
Q
D ; Delivery basket
N XMMSG
I $D(XMINSTR("RCPT BSKT")) D Q
. D DELIVER^XMXEDIT(XMZ,"@",.XMINSTR,.XMMSG)
. W !,XMMSG
D D^XMJMSO
Q:'$D(XMINSTR("RCPT BSKT"))
D DELIVER^XMXEDIT(XMZ,XMINSTR("RCPT BSKT"),.XMINSTR,.XMMSG)
Q
ES ; Edit Subject
D ES^XMJMSO
Q
ET ; Edit Text
I $G(XMPAKMAN) Q:$$NOPAKEDT^XMJMSO
I $D(XMSECURE) D
. N XMIA S XMIA=1
. D DECMSG^XMJMCODE(XMZ)
D BODY^XMJMS(XMDUZ,XMZ,XMSUBJ,.XMRESTR)
I $D(XMSECURE) D
. N XMIA S XMIA=1
. D ENCMSG^XMJMCODE(XMZ)
Q
I ; Information only msg
N XMMSG
D INFO^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
W !,XMMSG
Q
IM ; Include responses from another message
;I $G(XMPAKMAN) Q:$$NOPAKEDT^XMJMSO
I $G(XMPAKMAN) D Q
. W !,$$EZBLD^DIALOG(37445.4) ; You may not Include anything into a KIDS or PackMan message.
I $D(XMSECURE) D
. N XMIA S XMIA=1
. D DECMSG^XMJMCODE(XMZ)
D INCL^XMJMRO(XMDUZ,XMZ,XMZ,XMSUBJ,.XMRESTR,2,.XMABORT)
I $D(XMSECURE) D
. N XMIA S XMIA=1
. D ENCMSG^XMJMCODE(XMZ)
Q
NS ; Add Network Signature
D NS^XMJMSO
Q
P ; Priority msg
N XMMSG
D PRIORITY^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
W !,XMMSG
Q
R ; Confirm receipt of msg
N XMMSG
D CONFIRM^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
W !,XMMSG
Q
S ; Scramble msg
N XMMSG
I $D(XMSECURE) D Q
. D SCRAMBLE^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
. W !,XMMSG
D S^XMJMSO
Q:'$D(XMINSTR("SCR KEY"))
D SCRAMBLE^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
Q
V ; Vaporize date
N XMMSG
I $G(XMINSTR("VAPOR")) D Q
. D VAPOR^XMXEDIT(XMZ,"@",.XMINSTR,.XMMSG)
. I XMK D KVAPOR^XMXUTIL(XMDUZ,XMK,XMZ,"@")
. W !,XMMSG
D V^XMJMSO
Q:'$D(XMINSTR("VAPOR"))
I XMK D KVAPOR^XMXUTIL(XMDUZ,XMK,XMZ,XMINSTR("VAPOR"))
D VAPOR^XMXEDIT(XMZ,XMINSTR("VAPOR"),.XMINSTR,.XMMSG)
Q
X ; Closed msg
N XMMSG
D CLOSED^XMXEDIT(XMZ,.XMINSTR,.XMMSG) I $D(XMERR) D SHOW^XMJERR Q
W !,XMMSG
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMJMOIE 2659 printed Oct 16, 2024@18:12:52 Page 2
XMJMOIE ;ISC-SF/GMB-Edit msg that user has sent to self ;04/19/2002 11:01
+1 ;;8.0;MailMan;;Jun 28, 2002
EDIT(XMDUZ,XMK,XMZ,XMSUBJ,XMINSTR,XMRESTR) ;
+1 NEW XMABORT,XMDIR,XMOPT,XMOX,XMY
+2 SET XMABORT=0
+3 FOR
Begin DoDot:1
+4 DO SENDSET(.XMINSTR,.XMOPT,.XMOX,.XMDIR)
+5 DO XMDIR^XMJDIR(.XMDIR,.XMOPT,.XMOX,.XMY,.XMABORT)
if XMABORT
QUIT
+6 KILL XMDIR,XMOPT,XMOX
+7 DO @XMY
End DoDot:1
if XMABORT
QUIT
+8 QUIT
SENDSET(XMINSTR,XMOPT,XMOX,XMDIR) ;
+1 DO OPTEDIT^XMXSEC2(.XMINSTR,.XMOPT,.XMOX,1)
+2 ; You have no Network Signature.
IF $GET(XMOPT("NS","?"))=37309.1
KILL XMOPT("NS","?")
+3 ; Include responses from another message
DO SET^XMXSEC2("IM",37445,.XMOPT,.XMOX)
+4 ; Select Edit option:
SET XMDIR("A")=$$EZBLD^DIALOG(34066)
+5 SET XMDIR("??")="XM-U-MO-EDIT"
+6 QUIT
C ; Confidential msg
+1 NEW XMMSG
+2 DO CONFID^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
IF $DATA(XMERR)
DO SHOW^XMJERR
QUIT
+3 WRITE !,XMMSG
+4 QUIT
D ; Delivery basket
+1 NEW XMMSG
+2 IF $DATA(XMINSTR("RCPT BSKT"))
Begin DoDot:1
+3 DO DELIVER^XMXEDIT(XMZ,"@",.XMINSTR,.XMMSG)
+4 WRITE !,XMMSG
End DoDot:1
QUIT
+5 DO D^XMJMSO
+6 if '$DATA(XMINSTR("RCPT BSKT"))
QUIT
+7 DO DELIVER^XMXEDIT(XMZ,XMINSTR("RCPT BSKT"),.XMINSTR,.XMMSG)
+8 QUIT
ES ; Edit Subject
+1 DO ES^XMJMSO
+2 QUIT
ET ; Edit Text
+1 IF $GET(XMPAKMAN)
if $$NOPAKEDT^XMJMSO
QUIT
+2 IF $DATA(XMSECURE)
Begin DoDot:1
+3 NEW XMIA
SET XMIA=1
+4 DO DECMSG^XMJMCODE(XMZ)
End DoDot:1
+5 DO BODY^XMJMS(XMDUZ,XMZ,XMSUBJ,.XMRESTR)
+6 IF $DATA(XMSECURE)
Begin DoDot:1
+7 NEW XMIA
SET XMIA=1
+8 DO ENCMSG^XMJMCODE(XMZ)
End DoDot:1
+9 QUIT
I ; Information only msg
+1 NEW XMMSG
+2 DO INFO^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
+3 WRITE !,XMMSG
+4 QUIT
IM ; Include responses from another message
+1 ;I $G(XMPAKMAN) Q:$$NOPAKEDT^XMJMSO
+2 IF $GET(XMPAKMAN)
Begin DoDot:1
+3 ; You may not Include anything into a KIDS or PackMan message.
WRITE !,$$EZBLD^DIALOG(37445.4)
End DoDot:1
QUIT
+4 IF $DATA(XMSECURE)
Begin DoDot:1
+5 NEW XMIA
SET XMIA=1
+6 DO DECMSG^XMJMCODE(XMZ)
End DoDot:1
+7 DO INCL^XMJMRO(XMDUZ,XMZ,XMZ,XMSUBJ,.XMRESTR,2,.XMABORT)
+8 IF $DATA(XMSECURE)
Begin DoDot:1
+9 NEW XMIA
SET XMIA=1
+10 DO ENCMSG^XMJMCODE(XMZ)
End DoDot:1
+11 QUIT
NS ; Add Network Signature
+1 DO NS^XMJMSO
+2 QUIT
P ; Priority msg
+1 NEW XMMSG
+2 DO PRIORITY^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
+3 WRITE !,XMMSG
+4 QUIT
R ; Confirm receipt of msg
+1 NEW XMMSG
+2 DO CONFIRM^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
+3 WRITE !,XMMSG
+4 QUIT
S ; Scramble msg
+1 NEW XMMSG
+2 IF $DATA(XMSECURE)
Begin DoDot:1
+3 DO SCRAMBLE^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
+4 WRITE !,XMMSG
End DoDot:1
QUIT
+5 DO S^XMJMSO
+6 if '$DATA(XMINSTR("SCR KEY"))
QUIT
+7 DO SCRAMBLE^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
+8 QUIT
V ; Vaporize date
+1 NEW XMMSG
+2 IF $GET(XMINSTR("VAPOR"))
Begin DoDot:1
+3 DO VAPOR^XMXEDIT(XMZ,"@",.XMINSTR,.XMMSG)
+4 IF XMK
DO KVAPOR^XMXUTIL(XMDUZ,XMK,XMZ,"@")
+5 WRITE !,XMMSG
End DoDot:1
QUIT
+6 DO V^XMJMSO
+7 if '$DATA(XMINSTR("VAPOR"))
QUIT
+8 IF XMK
DO KVAPOR^XMXUTIL(XMDUZ,XMK,XMZ,XMINSTR("VAPOR"))
+9 DO VAPOR^XMXEDIT(XMZ,XMINSTR("VAPOR"),.XMINSTR,.XMMSG)
+10 QUIT
X ; Closed msg
+1 NEW XMMSG
+2 DO CLOSED^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
IF $DATA(XMERR)
DO SHOW^XMJERR
QUIT
+3 WRITE !,XMMSG
+4 QUIT
