- XMJMOI1 ;ISC-SF/GMB-Options at Ignore prompt (cont.) ;05/14/2002 15:28
- ;;8.0;MailMan;;Jun 28, 2002
- INIT(XMDUZ,XMZ,XMSUBJ,XMFROM,XMORIGN8,XMINSTR,XMRESTR,XMIEN,XMRESPSO,XMRESP) ;
- N XMZREC,XMIM,XMIU
- S XMZREC=^XMB(3.9,XMZ,0)
- D INMSG^XMXUTIL2(XMDUZ,0,XMZ,XMZREC,"I",.XMIM,.XMINSTR,.XMIU)
- S XMSUBJ=XMIM("SUBJ")
- S XMFROM=XMIM("FROM")
- S XMRESPSO=XMIM("RESPS")
- S XMIEN=XMIU("IEN")
- S XMORIGN8=XMIU("ORIGN8")
- S XMRESP=XMIU("RESP")
- D GETRESTR(XMDUZ,XMZ,XMZREC,.XMINSTR,.XMRESTR)
- Q
- GETRESTR(XMDUZ,XMZ,XMZREC,XMINSTR,XMRESTR) ;
- D GETRESTR^XMXSEC1(XMDUZ,XMZ,XMZREC,.XMINSTR,.XMRESTR) ; Get restricts
- I $D(XMRESTR("FLAGS")) K XMRESTR("FLAGS") ; We'll have these in XMINSTR("FLAGS"), and they may be changed during user edit.
- Q
- IMBACK(XMDIALOG) ;
- W $C(7),!!,$$EZBLD^DIALOG(XMDIALOG),!,$$EZBLD^DIALOG(34075),!! ; Finished. Now back to:
- 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_]
- Q
- PRIORITY ; For priority msgs, ask user if replies should be priority.
- ; Don't ask if the user has already issued a priority toggle,
- ; or if the user has chosen never to be asked.
- Q:XMDUZ=.5&(XMK>999)
- Q:$G(XMSETPRI)!$P(^XMB(3.7,DUZ,0),U,12)
- N DIR,Y,DIRUT
- ;This message is a priority message.
- ;Deliver future responses to this message as Priority Mail
- W !
- S DIR(0)="Y"
- D BLD^DIALOG(34081,"","","DIR(""A"")")
- S DIR("B")=$$EZBLD^DIALOG($S(XMINSTR("FLAGS")["K":39054,1:39053)) ; Yes / No
- S DIR("??")="^D QQPRI^XMJMOI1"
- D ^DIR Q:$D(DIRUT)
- I (XMINSTR("FLAGS")["K"&(Y=0))!(XMINSTR("FLAGS")'["K"&(Y=1)) D K^XMJMOI
- Q
- QQPRI ;
- N XMTEXT
- D BLD^DIALOG(34082,"","","XMTEXT","F")
- D MSG^DIALOG("WH","","","","XMTEXT")
- ;Your answer determines, for this message,
- ;how MailMan delivers responses to you.
- ;Note: Recipients can determine for themselves, on a message by message
- ;basis, how responses to priority messages are delivered to them.
- ;It follows that responses to priority messages are not necessarily
- ;delivered as Priority Mail to all recipients.
- Q
- RESETXMK(XMDUZ,XMZ,XMK,XMKN) ;
- D BSKT^XMJMP1(XMDUZ,XMZ,.XMK,.XMKN)
- N XMTEXT,XMPARM
- S XMPARM(1)=XMKN,XMPARM(2)=XMV("NAME")
- W !
- D BLD^DIALOG(34068,.XMPARM,"","XMTEXT","F")
- D MSG^DIALOG("WM","","","","XMTEXT")
- W !
- ; This message is now in the '|1|' basket.
- ; Someone acting for |2| must have moved it.
- Q
- READSET(XMDUZ,XMK,XMKN,XMZ,XMFROM,XMORIGN8,XMINSTR,XMIEN,XMDIR,XMOPT,XMOX) ;
- N XMIM,XMIU,XMDEF
- S XMIM("FROM")=XMFROM
- S XMIU("ORIGN8")=XMORIGN8
- S XMIU("IEN")=XMIEN
- D OPTMSG^XMXSEC2(XMDUZ,XMK,XMZ,.XMIM,.XMINSTR,.XMIU,.XMOPT,.XMOX,1)
- K XMOPT("QR"),XMOX("X",XMOX("O","QR")),XMOX("O","QR")
- D SET^XMXSEC1("Q xxx",37420.1,.XMOPT,.XMOX) ; Query recipient(s) xxx
- D SET^XMXSEC1("HU",37429,.XMOPT,.XMOX) ; Help:User Information
- D SET^XMXSEC1("HG",37430,.XMOPT,.XMOX) ; Help:Group Information
- D SET^XMXSEC1("BR",37446,.XMOPT,.XMOX) ; Print to the Browser
- I $D(XMOPT("B","?")) S XMOPT("BR","?")=XMOPT("B","?")
- E I '$$TEST^DDBRT S XMOPT("BR","?")=37446.9 ; The BROWSER device is not selectable from this terminal.
- S XMDIR("A")=$$EZBLD^DIALOG(34065,XMKN) ; Enter message action (in _XMKN_ basket):
- S XMDEF=$S(XMDUZ=.6:"I",XMINSTR("FLAGS")["N":"I",XMK=1:XMV("MSG DEF"),1:"I")
- S XMDIR("B")=XMOX("O",XMDEF)_":"_XMOPT(XMDEF)
- 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")_""""
- Q:XMK="!" ; Super Search (option XM SUPER SEARCH)
- I XMV("NOSEND") D
- . N I
- . F I="A","C","R","W" S XMOPT(I,"?")=37453 ; This session is concurrent with another. You may not do this.
- E I $G(XMOPT("A","?"))=37401.1 K XMOPT("A","?") ; You must have a Network Signature to Answer a message.
- D SET^XMXSEC1("RI",37443,.XMOPT,.XMOX) ; Reply and Include responses
- I $D(XMOPT("R","?")) S XMOPT("RI","?")=XMOPT("R","?")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMJMOI1 4016 printed Feb 18, 2025@23:38:17 Page 2
- XMJMOI1 ;ISC-SF/GMB-Options at Ignore prompt (cont.) ;05/14/2002 15:28
- +1 ;;8.0;MailMan;;Jun 28, 2002
- INIT(XMDUZ,XMZ,XMSUBJ,XMFROM,XMORIGN8,XMINSTR,XMRESTR,XMIEN,XMRESPSO,XMRESP) ;
- +1 NEW XMZREC,XMIM,XMIU
- +2 SET XMZREC=^XMB(3.9,XMZ,0)
- +3 DO INMSG^XMXUTIL2(XMDUZ,0,XMZ,XMZREC,"I",.XMIM,.XMINSTR,.XMIU)
- +4 SET XMSUBJ=XMIM("SUBJ")
- +5 SET XMFROM=XMIM("FROM")
- +6 SET XMRESPSO=XMIM("RESPS")
- +7 SET XMIEN=XMIU("IEN")
- +8 SET XMORIGN8=XMIU("ORIGN8")
- +9 SET XMRESP=XMIU("RESP")
- +10 DO GETRESTR(XMDUZ,XMZ,XMZREC,.XMINSTR,.XMRESTR)
- +11 QUIT
- GETRESTR(XMDUZ,XMZ,XMZREC,XMINSTR,XMRESTR) ;
- +1 ; Get restricts
- DO GETRESTR^XMXSEC1(XMDUZ,XMZ,XMZREC,.XMINSTR,.XMRESTR)
- +2 ; We'll have these in XMINSTR("FLAGS"), and they may be changed during user edit.
- IF $DATA(XMRESTR("FLAGS"))
- KILL XMRESTR("FLAGS")
- +3 QUIT
- IMBACK(XMDIALOG) ;
- +1 ; Finished. Now back to:
- WRITE $CHAR(7),!!,$$EZBLD^DIALOG(XMDIALOG),!,$$EZBLD^DIALOG(34075),!!
- +2 ; Subj: _XMSUBJ / [#_XMZ_]
- DO HEADER^XMJMP1(XMDUZ,XMK,XMKN,XMZ,$$ZREAD^XMXUTIL2(XMDUZ,XMZ),^XMB(3.9,XMZ,0),$$EZBLD^DIALOG(34536,XMSUBJ),$$EZBLD^DIALOG(34537,XMZ))
- +3 QUIT
- PRIORITY ; For priority msgs, ask user if replies should be priority.
- +1 ; Don't ask if the user has already issued a priority toggle,
- +2 ; or if the user has chosen never to be asked.
- +3 if XMDUZ=.5&(XMK>999)
- QUIT
- +4 if $GET(XMSETPRI)!$PIECE(^XMB(3.7,DUZ,0),U,12)
- QUIT
- +5 NEW DIR,Y,DIRUT
- +6 ;This message is a priority message.
- +7 ;Deliver future responses to this message as Priority Mail
- +8 WRITE !
- +9 SET DIR(0)="Y"
- +10 DO BLD^DIALOG(34081,"","","DIR(""A"")")
- +11 ; Yes / No
- SET DIR("B")=$$EZBLD^DIALOG($SELECT(XMINSTR("FLAGS")["K":39054,1:39053))
- +12 SET DIR("??")="^D QQPRI^XMJMOI1"
- +13 DO ^DIR
- if $DATA(DIRUT)
- QUIT
- +14 IF (XMINSTR("FLAGS")["K"&(Y=0))!(XMINSTR("FLAGS")'["K"&(Y=1))
- DO K^XMJMOI
- +15 QUIT
- QQPRI ;
- +1 NEW XMTEXT
- +2 DO BLD^DIALOG(34082,"","","XMTEXT","F")
- +3 DO MSG^DIALOG("WH","","","","XMTEXT")
- +4 ;Your answer determines, for this message,
- +5 ;how MailMan delivers responses to you.
- +6 ;Note: Recipients can determine for themselves, on a message by message
- +7 ;basis, how responses to priority messages are delivered to them.
- +8 ;It follows that responses to priority messages are not necessarily
- +9 ;delivered as Priority Mail to all recipients.
- +10 QUIT
- RESETXMK(XMDUZ,XMZ,XMK,XMKN) ;
- +1 DO BSKT^XMJMP1(XMDUZ,XMZ,.XMK,.XMKN)
- +2 NEW XMTEXT,XMPARM
- +3 SET XMPARM(1)=XMKN
- SET XMPARM(2)=XMV("NAME")
- +4 WRITE !
- +5 DO BLD^DIALOG(34068,.XMPARM,"","XMTEXT","F")
- +6 DO MSG^DIALOG("WM","","","","XMTEXT")
- +7 WRITE !
- +8 ; This message is now in the '|1|' basket.
- +9 ; Someone acting for |2| must have moved it.
- +10 QUIT
- READSET(XMDUZ,XMK,XMKN,XMZ,XMFROM,XMORIGN8,XMINSTR,XMIEN,XMDIR,XMOPT,XMOX) ;
- +1 NEW XMIM,XMIU,XMDEF
- +2 SET XMIM("FROM")=XMFROM
- +3 SET XMIU("ORIGN8")=XMORIGN8
- +4 SET XMIU("IEN")=XMIEN
- +5 DO OPTMSG^XMXSEC2(XMDUZ,XMK,XMZ,.XMIM,.XMINSTR,.XMIU,.XMOPT,.XMOX,1)
- +6 KILL XMOPT("QR"),XMOX("X",XMOX("O","QR")),XMOX("O","QR")
- +7 ; Query recipient(s) xxx
- DO SET^XMXSEC1("Q xxx",37420.1,.XMOPT,.XMOX)
- +8 ; Help:User Information
- DO SET^XMXSEC1("HU",37429,.XMOPT,.XMOX)
- +9 ; Help:Group Information
- DO SET^XMXSEC1("HG",37430,.XMOPT,.XMOX)
- +10 ; Print to the Browser
- DO SET^XMXSEC1("BR",37446,.XMOPT,.XMOX)
- +11 IF $DATA(XMOPT("B","?"))
- SET XMOPT("BR","?")=XMOPT("B","?")
- +12 ; The BROWSER device is not selectable from this terminal.
- IF '$TEST
- IF '$$TEST^DDBRT
- SET XMOPT("BR","?")=37446.9
- +13 ; Enter message action (in _XMKN_ basket):
- SET XMDIR("A")=$$EZBLD^DIALOG(34065,XMKN)
- +14 SET XMDEF=$SELECT(XMDUZ=.6:"I",XMINSTR("FLAGS")["N":"I",XMK=1:XMV("MSG DEF"),1:"I")
- +15 SET XMDIR("B")=XMOX("O",XMDEF)_":"_XMOPT(XMDEF)
- +16 SET 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")_""""
- +17 ; Super Search (option XM SUPER SEARCH)
- if XMK="!"
- QUIT
- +18 IF XMV("NOSEND")
- Begin DoDot:1
- +19 NEW I
- +20 ; This session is concurrent with another. You may not do this.
- FOR I="A","C","R","W"
- SET XMOPT(I,"?")=37453
- End DoDot:1
- +21 ; You must have a Network Signature to Answer a message.
- IF '$TEST
- IF $GET(XMOPT("A","?"))=37401.1
- KILL XMOPT("A","?")
- +22 ; Reply and Include responses
- DO SET^XMXSEC1("RI",37443,.XMOPT,.XMOX)
- +23 IF $DATA(XMOPT("R","?"))
- SET XMOPT("RI","?")=XMOPT("R","?")
- +24 QUIT