- 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 Dec 13, 2024@02:12:08 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