Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XMJMP2

XMJMP2.m

Go to the documentation of this file.
  1. XMJMP2 ;ISC-SF/GMB-Print,Backup (cont.) ;05/20/2002 14:21
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. CHECK(XMDUZ,XMZ,XMZREC,XMNOGO) ;
  1. D CONFID(XMDUZ,XMZ,XMZREC,.XMNOGO) Q:XMNOGO
  1. D SCRAMBLE(XMZ,XMZREC,.XMNOGO)
  1. Q
  1. CONFID(XMDUZ,XMZ,XMZREC,XMNOGO) ; Check to see if msg is confidential
  1. Q:XMDUZ=DUZ
  1. Q:$$SURRACC^XMXSEC(XMDUZ,"",XMZ,XMZREC) ; "access"
  1. S XMNOGO=1
  1. I $D(ZTQUEUED) D Q
  1. . S XMNOGO(1)=^TMP("XMERR",$J,XMERR,"TEXT",1)
  1. . K XMERR,^TMP("XMERR",$J)
  1. U IO(0) ; In case we are not printing to terminal
  1. D NOGOID(XMZ,XMZREC)
  1. W !,^TMP("XMERR",$J,XMERR,"TEXT",1)
  1. K XMERR,^TMP("XMERR",$J)
  1. U IO
  1. Q
  1. SCRAMBLE(XMZ,XMZREC,XMNOGO) ;
  1. ; If '$D(ZTQUEUED), and scrambled, ask the user for the password.
  1. Q:'$D(^XMB(3.9,XMZ,"K"))!$D(XMSECURE)
  1. I XMPAKMAN D Q
  1. . N XMERRMSG
  1. . S XMERRMSG=$$EZBLD^DIALOG(37416.4) ; You may not Print a secure KIDS or PackMan message.
  1. . S XMNOGO=1
  1. . I $D(ZTQUEUED) D Q
  1. . . S XMNOGO(1)=XMERRMSG
  1. . U IO(0) ; In case we are not printing to terminal
  1. . D NOGOID(XMZ,XMZREC)
  1. . W !,XMERRMSG
  1. . U IO
  1. I $D(ZTQUEUED) D Q
  1. . S XMNOGO=1
  1. . ;This message has been secured with a password.
  1. . ;When a range of messages is queued to print,
  1. . ;those messages with passwords cannot be printed because
  1. . ;there is no opportunity to ask for the password.
  1. . D BLD^DIALOG(34521,"","","XMNOGO")
  1. U IO(0) ; In case we are not printing to terminal
  1. S:'$$KEYOK^XMJMCODE(XMZ,$P(XMZREC,U,10)) XMNOGO=1
  1. U IO
  1. Q
  1. NOGOID(XMZ,XMZREC,XMNOCR) ;
  1. N XMSUBJ
  1. S XMSUBJ=$P(XMZREC,U,1)
  1. S:XMSUBJ["~U~" XMSUBJ=$$DECODEUP^XMXUTIL1(XMSUBJ)
  1. W !,$$EZBLD^DIALOG(34536,XMSUBJ)," ",$$EZBLD^DIALOG(34537,XMZ) ; Subj: _XMSUBJ_ _[#_XMZ_]
  1. W !,$$EZBLD^DIALOG(34538,$$NAME^XMXUTIL($P(XMZREC,U,2),1)) ; From:
  1. W:'$G(XMNOCR) !
  1. Q
  1. NOGOMSG(XMDUZ,XMZ,XMZREC,XMNOGO) ;
  1. N I
  1. D NOGOID(XMZ,XMZREC)
  1. S I=""
  1. F S I=$O(XMNOGO(I)) Q:I="" D
  1. . W !,XMNOGO(I)
  1. Q