Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMJMOIE

XMJMOIE.m

Go to the documentation of this file.
  1. XMJMOIE ;ISC-SF/GMB-Edit msg that user has sent to self ;04/19/2002 11:01
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. EDIT(XMDUZ,XMK,XMZ,XMSUBJ,XMINSTR,XMRESTR) ;
  1. N XMABORT,XMDIR,XMOPT,XMOX,XMY
  1. S XMABORT=0
  1. F D Q:XMABORT
  1. . D SENDSET(.XMINSTR,.XMOPT,.XMOX,.XMDIR)
  1. . D XMDIR^XMJDIR(.XMDIR,.XMOPT,.XMOX,.XMY,.XMABORT) Q:XMABORT
  1. . K XMDIR,XMOPT,XMOX
  1. . D @XMY
  1. Q
  1. SENDSET(XMINSTR,XMOPT,XMOX,XMDIR) ;
  1. D OPTEDIT^XMXSEC2(.XMINSTR,.XMOPT,.XMOX,1)
  1. I $G(XMOPT("NS","?"))=37309.1 K XMOPT("NS","?") ; You have no Network Signature.
  1. D SET^XMXSEC2("IM",37445,.XMOPT,.XMOX) ; Include responses from another message
  1. S XMDIR("A")=$$EZBLD^DIALOG(34066) ; Select Edit option:
  1. S XMDIR("??")="XM-U-MO-EDIT"
  1. Q
  1. C ; Confidential msg
  1. N XMMSG
  1. D CONFID^XMXEDIT(XMZ,.XMINSTR,.XMMSG) I $D(XMERR) D SHOW^XMJERR Q
  1. W !,XMMSG
  1. Q
  1. D ; Delivery basket
  1. N XMMSG
  1. I $D(XMINSTR("RCPT BSKT")) D Q
  1. . D DELIVER^XMXEDIT(XMZ,"@",.XMINSTR,.XMMSG)
  1. . W !,XMMSG
  1. D D^XMJMSO
  1. Q:'$D(XMINSTR("RCPT BSKT"))
  1. D DELIVER^XMXEDIT(XMZ,XMINSTR("RCPT BSKT"),.XMINSTR,.XMMSG)
  1. Q
  1. ES ; Edit Subject
  1. D ES^XMJMSO
  1. Q
  1. ET ; Edit Text
  1. I $G(XMPAKMAN) Q:$$NOPAKEDT^XMJMSO
  1. I $D(XMSECURE) D
  1. . N XMIA S XMIA=1
  1. . D DECMSG^XMJMCODE(XMZ)
  1. D BODY^XMJMS(XMDUZ,XMZ,XMSUBJ,.XMRESTR)
  1. I $D(XMSECURE) D
  1. . N XMIA S XMIA=1
  1. . D ENCMSG^XMJMCODE(XMZ)
  1. Q
  1. I ; Information only msg
  1. N XMMSG
  1. D INFO^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
  1. W !,XMMSG
  1. Q
  1. IM ; Include responses from another message
  1. ;I $G(XMPAKMAN) Q:$$NOPAKEDT^XMJMSO
  1. I $G(XMPAKMAN) D Q
  1. . W !,$$EZBLD^DIALOG(37445.4) ; You may not Include anything into a KIDS or PackMan message.
  1. I $D(XMSECURE) D
  1. . N XMIA S XMIA=1
  1. . D DECMSG^XMJMCODE(XMZ)
  1. D INCL^XMJMRO(XMDUZ,XMZ,XMZ,XMSUBJ,.XMRESTR,2,.XMABORT)
  1. I $D(XMSECURE) D
  1. . N XMIA S XMIA=1
  1. . D ENCMSG^XMJMCODE(XMZ)
  1. Q
  1. NS ; Add Network Signature
  1. D NS^XMJMSO
  1. Q
  1. P ; Priority msg
  1. N XMMSG
  1. D PRIORITY^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
  1. W !,XMMSG
  1. Q
  1. R ; Confirm receipt of msg
  1. N XMMSG
  1. D CONFIRM^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
  1. W !,XMMSG
  1. Q
  1. S ; Scramble msg
  1. N XMMSG
  1. I $D(XMSECURE) D Q
  1. . D SCRAMBLE^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
  1. . W !,XMMSG
  1. D S^XMJMSO
  1. Q:'$D(XMINSTR("SCR KEY"))
  1. D SCRAMBLE^XMXEDIT(XMZ,.XMINSTR,.XMMSG)
  1. Q
  1. V ; Vaporize date
  1. N XMMSG
  1. I $G(XMINSTR("VAPOR")) D Q
  1. . D VAPOR^XMXEDIT(XMZ,"@",.XMINSTR,.XMMSG)
  1. . I XMK D KVAPOR^XMXUTIL(XMDUZ,XMK,XMZ,"@")
  1. . W !,XMMSG
  1. D V^XMJMSO
  1. Q:'$D(XMINSTR("VAPOR"))
  1. I XMK D KVAPOR^XMXUTIL(XMDUZ,XMK,XMZ,XMINSTR("VAPOR"))
  1. D VAPOR^XMXEDIT(XMZ,XMINSTR("VAPOR"),.XMINSTR,.XMMSG)
  1. Q
  1. X ; Closed msg
  1. N XMMSG
  1. D CLOSED^XMXEDIT(XMZ,.XMINSTR,.XMMSG) I $D(XMERR) D SHOW^XMJERR Q
  1. W !,XMMSG
  1. Q