source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMXSEC3.m@ 691

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1XMXSEC3 ;ISC-SF/GMB-Message security and restrictions (cont.) ;04/18/2002 08:01
2 ;;8.0;MailMan;;Jun 28, 2002
3 ; All entry points covered by DBIA 2733.
4OPTWNO(XMORIGN8) ; Surrogate does not have 'write' privilege.
5 D Q("A",37401.5) ; You need 'send' privilege to Answer a message.
6 D Q("C",37403.5) ; You need 'send' privilege to Copy a message.
7 D Q("E",37405.5) ; You need 'send' privilege to Edit a message.
8 I XMORIGN8 D Q("IN",37409.5) ; You need 'send' privilege to toggle 'Information only'.
9 E D Q("IN",37409.1) ; Only the originator may toggle 'Information only'.
10 D Q("W",37444.5) ; You need 'send' privilege to Write (send) a message.
11 Q
12Q(XMCD,XMDN) ;
13 I $G(XMQDNUM) S XMOPT(XMCD,"?")=XMDN Q
14 S XMOPT(XMCD,"?")=$$EZBLD^DIALOG(XMDN)
15 Q
16DOSHARE(XMDUZ,XMK,XMORIGN8,XMINSTR) ;
17 N I,XMNO
18 S XMNO=$S($G(XMQDNUM):37462,1:$$EZBLD^DIALOG(37462)) ; You may not do this in SHARED,MAIL.
19 F I="A","E","IN","K","L","N","W","X" S XMOPT(I,"?")=XMNO
20 Q:XMORIGN8
21 D Q("C",37403.6) ; Only the originator may Copy a message in SHARED,MAIL.
22 D Q("F",37406.6) ; Only the originator may Forward a message from SHARED,MAIL.
23 I XMK,$S($D(^XUSEC("XMMGR",DUZ)):0,$D(^XMB(3.7,"AB",DUZ,.5)):0,1:1) D
24 . N DIR,I
25 . ; You must be the originator, hold the XMMGR key,
26 . ; or be a POSTMASTER surrogate to do this in SHARED,MAIL.
27 . I $G(XMQDNUM) D Q
28 . . F I="D","S","T","V" S XMOPT(I,"?")=37461
29 . D BLD^DIALOG(37461,"","","DIR(""?"")")
30 . F I="D","S","T","V" M XMOPT(I,"?")=DIR("?")
31 Q
32DOPOST ; You may not do this with messages in the transmit queues.
33 N XMNO,I
34 S XMNO=$S($G(XMQDNUM):37251,1:$$EZBLD^DIALOG(37251))
35 F I="A","AA","B","C","E","IN","H","K","L","N","P","R","S","T","V","W","X" S XMOPT(I,"?")=XMNO
36 K XMOPT("X"),XMOX("X",XMOX("O","X")),XMOX("O","X")
37 D SET^XMXSEC2("X",37447,.XMOPT,.XMOX) ; Xmit Priority Toggle
38 Q
Note: See TracBrowser for help on using the repository browser.