source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMJMOI1.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.8 KB
Line 
1XMJMOI1 ;ISC-SF/GMB-Options at Ignore prompt (cont.) ;05/14/2002 15:28
2 ;;8.0;MailMan;;Jun 28, 2002
3INIT(XMDUZ,XMZ,XMSUBJ,XMFROM,XMORIGN8,XMINSTR,XMRESTR,XMIEN,XMRESPSO,XMRESP) ;
4 N XMZREC,XMIM,XMIU
5 S XMZREC=^XMB(3.9,XMZ,0)
6 D INMSG^XMXUTIL2(XMDUZ,0,XMZ,XMZREC,"I",.XMIM,.XMINSTR,.XMIU)
7 S XMSUBJ=XMIM("SUBJ")
8 S XMFROM=XMIM("FROM")
9 S XMRESPSO=XMIM("RESPS")
10 S XMIEN=XMIU("IEN")
11 S XMORIGN8=XMIU("ORIGN8")
12 S XMRESP=XMIU("RESP")
13 D GETRESTR(XMDUZ,XMZ,XMZREC,.XMINSTR,.XMRESTR)
14 Q
15GETRESTR(XMDUZ,XMZ,XMZREC,XMINSTR,XMRESTR) ;
16 D GETRESTR^XMXSEC1(XMDUZ,XMZ,XMZREC,.XMINSTR,.XMRESTR) ; Get restricts
17 I $D(XMRESTR("FLAGS")) K XMRESTR("FLAGS") ; We'll have these in XMINSTR("FLAGS"), and they may be changed during user edit.
18 Q
19IMBACK(XMDIALOG) ;
20 W $C(7),!!,$$EZBLD^DIALOG(XMDIALOG),!,$$EZBLD^DIALOG(34075),!! ; Finished. Now back to:
21 D HEADER^XMJMP1(XMDUZ,XMK,XMKN,XMZ,$$ZREAD^XMXUTIL2(XMDUZ,XMZ),^XMB(3.9,XMZ,0),$$EZBLD^DIALOG(34536,XMSUBJ),$$EZBLD^DIALOG(34537,XMZ)) ; Subj: _XMSUBJ / [#_XMZ_]
22 Q
23PRIORITY ; For priority msgs, ask user if replies should be priority.
24 ; Don't ask if the user has already issued a priority toggle,
25 ; or if the user has chosen never to be asked.
26 Q:XMDUZ=.5&(XMK>999)
27 Q:$G(XMSETPRI)!$P(^XMB(3.7,DUZ,0),U,12)
28 N DIR,Y,DIRUT
29 ;This message is a priority message.
30 ;Deliver future responses to this message as Priority Mail
31 W !
32 S DIR(0)="Y"
33 D BLD^DIALOG(34081,"","","DIR(""A"")")
34 S DIR("B")=$$EZBLD^DIALOG($S(XMINSTR("FLAGS")["K":39054,1:39053)) ; Yes / No
35 S DIR("??")="^D QQPRI^XMJMOI1"
36 D ^DIR Q:$D(DIRUT)
37 I (XMINSTR("FLAGS")["K"&(Y=0))!(XMINSTR("FLAGS")'["K"&(Y=1)) D K^XMJMOI
38 Q
39QQPRI ;
40 N XMTEXT
41 D BLD^DIALOG(34082,"","","XMTEXT","F")
42 D MSG^DIALOG("WH","","","","XMTEXT")
43 ;Your answer determines, for this message,
44 ;how MailMan delivers responses to you.
45 ;Note: Recipients can determine for themselves, on a message by message
46 ;basis, how responses to priority messages are delivered to them.
47 ;It follows that responses to priority messages are not necessarily
48 ;delivered as Priority Mail to all recipients.
49 Q
50RESETXMK(XMDUZ,XMZ,XMK,XMKN) ;
51 D BSKT^XMJMP1(XMDUZ,XMZ,.XMK,.XMKN)
52 N XMTEXT,XMPARM
53 S XMPARM(1)=XMKN,XMPARM(2)=XMV("NAME")
54 W !
55 D BLD^DIALOG(34068,.XMPARM,"","XMTEXT","F")
56 D MSG^DIALOG("WM","","","","XMTEXT")
57 W !
58 ; This message is now in the '|1|' basket.
59 ; Someone acting for |2| must have moved it.
60 Q
61READSET(XMDUZ,XMK,XMKN,XMZ,XMFROM,XMORIGN8,XMINSTR,XMIEN,XMDIR,XMOPT,XMOX) ;
62 N XMIM,XMIU,XMDEF
63 S XMIM("FROM")=XMFROM
64 S XMIU("ORIGN8")=XMORIGN8
65 S XMIU("IEN")=XMIEN
66 D OPTMSG^XMXSEC2(XMDUZ,XMK,XMZ,.XMIM,.XMINSTR,.XMIU,.XMOPT,.XMOX,1)
67 K XMOPT("QR"),XMOX("X",XMOX("O","QR")),XMOX("O","QR")
68 D SET^XMXSEC1("Q xxx",37420.1,.XMOPT,.XMOX) ; Query recipient(s) xxx
69 D SET^XMXSEC1("HU",37429,.XMOPT,.XMOX) ; Help:User Information
70 D SET^XMXSEC1("HG",37430,.XMOPT,.XMOX) ; Help:Group Information
71 D SET^XMXSEC1("BR",37446,.XMOPT,.XMOX) ; Print to the Browser
72 I $D(XMOPT("B","?")) S XMOPT("BR","?")=XMOPT("B","?")
73 E I '$$TEST^DDBRT S XMOPT("BR","?")=37446.9 ; The BROWSER device is not selectable from this terminal.
74 S XMDIR("A")=$$EZBLD^DIALOG(34065,XMKN) ; Enter message action (in _XMKN_ basket):
75 S XMDEF=$S(XMDUZ=.6:"I",XMINSTR("FLAGS")["N":"I",XMK=1:XMV("MSG DEF"),1:"I")
76 S XMDIR("B")=XMOX("O",XMDEF)_":"_XMOPT(XMDEF)
77 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")_""""
78 Q:XMK="!" ; Super Search (option XM SUPER SEARCH)
79 I XMV("NOSEND") D
80 . N I
81 . F I="A","C","R","W" S XMOPT(I,"?")=37453 ; This session is concurrent with another. You may not do this.
82 E I $G(XMOPT("A","?"))=37401.1 K XMOPT("A","?") ; You must have a Network Signature to Answer a message.
83 D SET^XMXSEC1("RI",37443,.XMOPT,.XMOX) ; Reply and Include responses
84 I $D(XMOPT("R","?")) S XMOPT("RI","?")=XMOPT("R","?")
85 Q
Note: See TracBrowser for help on using the repository browser.