source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMJMP2.m@ 1211

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1XMJMP2 ;ISC-SF/GMB-Print,Backup (cont.) ;05/20/2002 14:21
2 ;;8.0;MailMan;;Jun 28, 2002
3CHECK(XMDUZ,XMZ,XMZREC,XMNOGO) ;
4 D CONFID(XMDUZ,XMZ,XMZREC,.XMNOGO) Q:XMNOGO
5 D SCRAMBLE(XMZ,XMZREC,.XMNOGO)
6 Q
7CONFID(XMDUZ,XMZ,XMZREC,XMNOGO) ; Check to see if msg is confidential
8 Q:XMDUZ=DUZ
9 Q:$$SURRACC^XMXSEC(XMDUZ,"",XMZ,XMZREC) ; "access"
10 S XMNOGO=1
11 I $D(ZTQUEUED) D Q
12 . S XMNOGO(1)=^TMP("XMERR",$J,XMERR,"TEXT",1)
13 . K XMERR,^TMP("XMERR",$J)
14 U IO(0) ; In case we are not printing to terminal
15 D NOGOID(XMZ,XMZREC)
16 W !,^TMP("XMERR",$J,XMERR,"TEXT",1)
17 K XMERR,^TMP("XMERR",$J)
18 U IO
19 Q
20SCRAMBLE(XMZ,XMZREC,XMNOGO) ;
21 ; If '$D(ZTQUEUED), and scrambled, ask the user for the password.
22 Q:'$D(^XMB(3.9,XMZ,"K"))!$D(XMSECURE)
23 I XMPAKMAN D Q
24 . N XMERRMSG
25 . S XMERRMSG=$$EZBLD^DIALOG(37416.4) ; You may not Print a secure KIDS or PackMan message.
26 . S XMNOGO=1
27 . I $D(ZTQUEUED) D Q
28 . . S XMNOGO(1)=XMERRMSG
29 . U IO(0) ; In case we are not printing to terminal
30 . D NOGOID(XMZ,XMZREC)
31 . W !,XMERRMSG
32 . U IO
33 I $D(ZTQUEUED) D Q
34 . S XMNOGO=1
35 . ;This message has been secured with a password.
36 . ;When a range of messages is queued to print,
37 . ;those messages with passwords cannot be printed because
38 . ;there is no opportunity to ask for the password.
39 . D BLD^DIALOG(34521,"","","XMNOGO")
40 U IO(0) ; In case we are not printing to terminal
41 S:'$$KEYOK^XMJMCODE(XMZ,$P(XMZREC,U,10)) XMNOGO=1
42 U IO
43 Q
44NOGOID(XMZ,XMZREC,XMNOCR) ;
45 N XMSUBJ
46 S XMSUBJ=$P(XMZREC,U,1)
47 S:XMSUBJ["~U~" XMSUBJ=$$DECODEUP^XMXUTIL1(XMSUBJ)
48 W !,$$EZBLD^DIALOG(34536,XMSUBJ)," ",$$EZBLD^DIALOG(34537,XMZ) ; Subj: _XMSUBJ_ _[#_XMZ_]
49 W !,$$EZBLD^DIALOG(34538,$$NAME^XMXUTIL($P(XMZREC,U,2),1)) ; From:
50 W:'$G(XMNOCR) !
51 Q
52NOGOMSG(XMDUZ,XMZ,XMZREC,XMNOGO) ;
53 N I
54 D NOGOID(XMZ,XMZREC)
55 S I=""
56 F S I=$O(XMNOGO(I)) Q:I="" D
57 . W !,XMNOGO(I)
58 Q
Note: See TracBrowser for help on using the repository browser.