| 1 | XMJMRO ;ISC-SF/GMB-Options at 'reply' transmit prompt ;12/05/2001 15:40
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | ; Replaces ^XMA22 (ISC-WASH/CAP/THM)
|
|---|
| 4 | REPLYMSG(XMDUZ,XMK,XMKN,XMZO,XMZ,XMSUBJ,XMRESTR,XMPTR,XMRESPSO,XMRESP,XMABORT) ;
|
|---|
| 5 | N XMFINISH,XMLINE,XMDIR,XMY,XMOPT,XMOX
|
|---|
| 6 | S XMFINISH=0
|
|---|
| 7 | F D Q:XMFINISH!XMABORT
|
|---|
| 8 | . N XMNAME
|
|---|
| 9 | . I XMPTR D CHKRESP^XMJMP(XMDUZ,XMZO,XMRESPSO,XMRESP)
|
|---|
| 10 | . D REPLYSET(XMDUZ,.XMOPT,.XMOX,.XMDIR)
|
|---|
| 11 | . D XMDIR^XMJDIR(.XMDIR,.XMOPT,.XMOX,.XMY,.XMABORT) Q:XMABORT
|
|---|
| 12 | . K XMDIR,XMOPT,XMOX
|
|---|
| 13 | . D @XMY
|
|---|
| 14 | Q
|
|---|
| 15 | REPLYSET(XMDUZ,XMOPT,XMOX,XMDIR) ;
|
|---|
| 16 | D SET^XMXSEC2("B",37331,.XMOPT,.XMOX) ; Backup to review message
|
|---|
| 17 | D SET^XMXSEC2("E",37341,.XMOPT,.XMOX) ; Edit Reply
|
|---|
| 18 | D SET^XMXSEC2("I",37342,.XMOPT,.XMOX) ; Include previous responses in reply
|
|---|
| 19 | D SET^XMXSEC2("Q",37417,.XMOPT,.XMOX) ; Query
|
|---|
| 20 | D SET^XMXSEC2("Q xxx",37420.1,.XMOPT,.XMOX) ; Query recipient(s) xxx
|
|---|
| 21 | D SET^XMXSEC2("QD",37418,.XMOPT,.XMOX) ; Query Detailed
|
|---|
| 22 | D SET^XMXSEC2("QN",37419,.XMOPT,.XMOX) ; Query Network
|
|---|
| 23 | D SET^XMXSEC2("QC",37431,.XMOPT,.XMOX) ; Query Current
|
|---|
| 24 | D SET^XMXSEC2("QNC",37432,.XMOPT,.XMOX) ; Query Not Current
|
|---|
| 25 | D SET^XMXSEC2("QT",37433,.XMOPT,.XMOX) ; Query Terminated
|
|---|
| 26 | D SET^XMXSEC2("T",37334,.XMOPT,.XMOX) ; Transmit now
|
|---|
| 27 | S XMDIR("A")=$$EZBLD^DIALOG(34067) ; Select Message option:
|
|---|
| 28 | S XMDIR("B")=XMOX("O","T")_":"_XMOPT("T")
|
|---|
| 29 | 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")_""""
|
|---|
| 30 | S XMDIR("??")="XM-U-MO-REPLY"
|
|---|
| 31 | Q
|
|---|
| 32 | B ; Backup to review message
|
|---|
| 33 | D BACKUP^XMJMP(XMDUZ,XMK,XMKN,XMZO)
|
|---|
| 34 | S XMRESP=$P($G(^XMB(3.9,XMZO,1,XMPTR,0)),U,2)
|
|---|
| 35 | Q
|
|---|
| 36 | E ; Edit msg
|
|---|
| 37 | D BODY^XMJMS(XMDUZ,XMZ,XMSUBJ,.XMRESTR,.XMABORT)
|
|---|
| 38 | Q
|
|---|
| 39 | I ; Include responses from this or another message in reply
|
|---|
| 40 | D INCL(XMDUZ,XMZO,XMZ,XMSUBJ,.XMRESTR,1,.XMABORT)
|
|---|
| 41 | Q
|
|---|
| 42 | INCL(XMDUZ,XMZO,XMZ,XMSUBJ,XMRESTR,XMINCL,XMABORT) ; Include responses in a message
|
|---|
| 43 | N XMWHICH,XMNONE,XMZI
|
|---|
| 44 | S XMNONE=0
|
|---|
| 45 | D WHICH^XMJMR1(XMDUZ,XMZO,XMINCL,.XMZI,.XMWHICH,.XMNONE) Q:XMNONE
|
|---|
| 46 | Q:'$D(XMWHICH)
|
|---|
| 47 | D COPYTEXT^XMJMR1(XMZI,XMZ,XMWHICH,(XMZI'=XMZO))
|
|---|
| 48 | D BODY^XMJMS(XMDUZ,XMZ,XMSUBJ,.XMRESTR,.XMABORT)
|
|---|
| 49 | Q
|
|---|
| 50 | Q ; Query
|
|---|
| 51 | D Q^XMJMQ(XMDUZ,XMK,XMKN,XMZO)
|
|---|
| 52 | Q
|
|---|
| 53 | QC ; Query Current
|
|---|
| 54 | D QX^XMJMQ(XMDUZ,XMK,XMKN,XMZO,"QC")
|
|---|
| 55 | Q
|
|---|
| 56 | QD ; Query Detailed
|
|---|
| 57 | I $D(XMNAME) D QNAMEX^XMJMQ(XMDUZ,XMK,XMKN,XMZO,XMNAME) Q
|
|---|
| 58 | D QD^XMJMQ(XMDUZ,XMK,XMKN,XMZO)
|
|---|
| 59 | Q
|
|---|
| 60 | QN ; Query Network
|
|---|
| 61 | D QN^XMJMQ(XMDUZ,XMK,XMKN,XMZO)
|
|---|
| 62 | Q
|
|---|
| 63 | QNC ; Query Not Current
|
|---|
| 64 | D QX^XMJMQ(XMDUZ,XMK,XMKN,XMZO,"QNC")
|
|---|
| 65 | Q
|
|---|
| 66 | QT ; Query Terminated
|
|---|
| 67 | D QX^XMJMQ(XMDUZ,XMK,XMKN,XMZO,"QT")
|
|---|
| 68 | Q
|
|---|
| 69 | T ; Transmit now
|
|---|
| 70 | N XMIA
|
|---|
| 71 | S (XMFINISH,XMIA)=1
|
|---|
| 72 | W $$EZBLD^DIALOG(34216) ; Sending local reply...
|
|---|
| 73 | D DOREPLY^XMXREPLY(XMDUZ,XMZO,XMZ)
|
|---|
| 74 | W !,$$EZBLD^DIALOG(34213) ; Sent
|
|---|
| 75 | Q
|
|---|
