| [613] | 1 | XMJMP2 ;ISC-SF/GMB-Print,Backup (cont.) ;05/20/2002 14:21
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | CHECK(XMDUZ,XMZ,XMZREC,XMNOGO) ;
|
|---|
| 4 | D CONFID(XMDUZ,XMZ,XMZREC,.XMNOGO) Q:XMNOGO
|
|---|
| 5 | D SCRAMBLE(XMZ,XMZREC,.XMNOGO)
|
|---|
| 6 | Q
|
|---|
| 7 | CONFID(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
|
|---|
| 20 | SCRAMBLE(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
|
|---|
| 44 | NOGOID(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
|
|---|
| 52 | NOGOMSG(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
|
|---|
