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

XMJMRO.m

Go to the documentation of this file. 
  1. XMJMRO ;ISC-SF/GMB-Options at 'reply' transmit prompt ;12/05/2001  15:40
  1.  ;;8.0;MailMan;;Jun 28, 2002
  1.  ; Replaces ^XMA22 (ISC-WASH/CAP/THM)
  1. REPLYMSG(XMDUZ,XMK,XMKN,XMZO,XMZ,XMSUBJ,XMRESTR,XMPTR,XMRESPSO,XMRESP,XMABORT) ;
  1.  N XMFINISH,XMLINE,XMDIR,XMY,XMOPT,XMOX
  1.  S XMFINISH=0
  1.  F  D  Q:XMFINISH!XMABORT
  1.  . N XMNAME
  1.  . I XMPTR D CHKRESP^XMJMP(XMDUZ,XMZO,XMRESPSO,XMRESP)
  1.  . D REPLYSET(XMDUZ,.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. REPLYSET(XMDUZ,XMOPT,XMOX,XMDIR) ;
  1.  D SET^XMXSEC2("B",37331,.XMOPT,.XMOX) ; Backup to review message
  1.  D SET^XMXSEC2("E",37341,.XMOPT,.XMOX) ; Edit Reply
  1.  D SET^XMXSEC2("I",37342,.XMOPT,.XMOX) ; Include previous responses in reply
  1.  D SET^XMXSEC2("Q",37417,.XMOPT,.XMOX) ; Query
  1.  D SET^XMXSEC2("Q xxx",37420.1,.XMOPT,.XMOX) ; Query recipient(s) xxx
  1.  D SET^XMXSEC2("QD",37418,.XMOPT,.XMOX) ; Query Detailed
  1.  D SET^XMXSEC2("QN",37419,.XMOPT,.XMOX) ; Query Network
  1.  D SET^XMXSEC2("QC",37431,.XMOPT,.XMOX) ; Query Current
  1.  D SET^XMXSEC2("QNC",37432,.XMOPT,.XMOX) ; Query Not Current
  1.  D SET^XMXSEC2("QT",37433,.XMOPT,.XMOX) ; Query Terminated
  1.  D SET^XMXSEC2("T",37334,.XMOPT,.XMOX) ; Transmit now
  1.  S XMDIR("A")=$$EZBLD^DIALOG(34067) ; Select Message option:
  1.  S XMDIR("B")=XMOX("O","T")_":"_XMOPT("T")
  1.  S XMDIR("PRE")="I XMX?1(1"""_XMOX("O","Q")_" "",1"""_$$LOW^XLFSTR(XMOX("O","Q"))_" "",1"""_XMOX("O","QD")_" "",1"""_$$LOW^XLFSTR(XMOX("O","QD"))_" "").E S XMNAME=$P(XMX,"" "",2,99),XMX="""_XMOX("O","QD")_""""
  1.  S XMDIR("??")="XM-U-MO-REPLY"
  1.  Q
  1. B ; Backup to review message
  1.  D BACKUP^XMJMP(XMDUZ,XMK,XMKN,XMZO)
  1.  S XMRESP=$P($G(^XMB(3.9,XMZO,1,XMPTR,0)),U,2)
  1.  Q
  1. E ; Edit msg
  1.  D BODY^XMJMS(XMDUZ,XMZ,XMSUBJ,.XMRESTR,.XMABORT)
  1.  Q
  1. I ; Include responses from this or another message in reply
  1.  D INCL(XMDUZ,XMZO,XMZ,XMSUBJ,.XMRESTR,1,.XMABORT)
  1.  Q
  1. INCL(XMDUZ,XMZO,XMZ,XMSUBJ,XMRESTR,XMINCL,XMABORT) ; Include responses in a message
  1.  N XMWHICH,XMNONE,XMZI
  1.  S XMNONE=0
  1.  D WHICH^XMJMR1(XMDUZ,XMZO,XMINCL,.XMZI,.XMWHICH,.XMNONE) Q:XMNONE
  1.  Q:'$D(XMWHICH)
  1.  D COPYTEXT^XMJMR1(XMZI,XMZ,XMWHICH,(XMZI'=XMZO))
  1.  D BODY^XMJMS(XMDUZ,XMZ,XMSUBJ,.XMRESTR,.XMABORT)
  1.  Q
  1. Q ; Query
  1.  D Q^XMJMQ(XMDUZ,XMK,XMKN,XMZO)
  1.  Q
  1. QC ; Query Current
  1.  D QX^XMJMQ(XMDUZ,XMK,XMKN,XMZO,"QC")
  1.  Q
  1. QD ; Query Detailed
  1.  I $D(XMNAME) D QNAMEX^XMJMQ(XMDUZ,XMK,XMKN,XMZO,XMNAME) Q
  1.  D QD^XMJMQ(XMDUZ,XMK,XMKN,XMZO)
  1.  Q
  1. QN ; Query Network
  1.  D QN^XMJMQ(XMDUZ,XMK,XMKN,XMZO)
  1.  Q
  1. QNC ; Query Not Current
  1.  D QX^XMJMQ(XMDUZ,XMK,XMKN,XMZO,"QNC")
  1.  Q
  1. QT ; Query Terminated
  1.  D QX^XMJMQ(XMDUZ,XMK,XMKN,XMZO,"QT")
  1.  Q
  1. T ; Transmit now
  1.  N XMIA
  1.  S (XMFINISH,XMIA)=1
  1.  W $$EZBLD^DIALOG(34216) ; Sending local reply...
  1.  D DOREPLY^XMXREPLY(XMDUZ,XMZO,XMZ)
  1.  W !,$$EZBLD^DIALOG(34213) ;   Sent
  1.  Q