source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMJMLR1.m@ 1384

XMJMLR1 ;ISC-SF/GMB-List/Read messages in basket (cont.) ;05/20/2002  15:15
 ;;8.0;MailMan;;Jun 28, 2002
 ; Replaces 1^XMAL0 (ISC-WASH/THM/CAP)
XMDIR(XMDUZ,XMLO,XMHI,XMPAGE,XMMORE,XMHELP,XMINSTR,XMOPT,XMOX,XMY,XMABORT) ;
 N XMX K XMY
 D ZOOMOPT(.XMOPT)
 F  D  Q:$D(XMY)!XMABORT
 . W !,$$EZBLD^DIALOG(34050) ; Enter message number or command:
 . R XMX:DTIME I '$T S XMABORT=1 Q
 . I XMX[U S XMABORT=1 Q
 . I "="[XMX S XMY=XMX Q
 . I XMX?.E1C.E D HELPSCR Q
 . I $E(XMX)="?" D QUESTION Q
 . I '$$OK K XMY D HELPSCR Q
 . Q:'$D(XMOPT(XMY,"?"))
 . D SHOWERR
 I $G(XMY)="=" K XMY
 Q
OK() ;
 N XMLO
 S XMLO=0
 I XMX?1N.N Q $$NUMBERZ
 I $E(XMX)="." Q $$DOT
 S XMY=XMX
 I XMX?1(1"+",1"-").N Q $L(XMX)<26
 S XMY=$$COMMAND^XMJDIR(.XMOPT,.XMOX,XMX)
 Q XMY'=-1
NUMBERZ() ;
 Q:$L(XMX)>25 0
 S (XMX,XMY)=+XMX
 I XMX'<XMLO,XMX'>XMHI Q 1
 I $D(^XMB(3.9,XMX,0)) Q 1
 Q 0
DOT() ;
 N XMXR,I,XMOK,XMSTRIKE
 S XMOK=1
 S XMX=$TR(XMX," ")
 I $E(XMX,2)="-" S XMSTRIKE=1,XMX=$E(XMX,3,999)
 E  S XMSTRIKE=0,XMX=$E(XMX,2,999)
 I XMX="*" S XMY="."_$S(XMSTRIKE:"-",1:"")_XMX Q 1
 F I=1:1:$L(XMX,",") D  Q:'XMOK
 . S XMXR=$P(XMX,",",I)
 . I XMXR?1.25N1"-"1.25N D  Q
 . . I $P(XMXR,"-",1)<XMLO S XMOK=0 Q
 . . I $P(XMXR,"-",2)>XMHI S XMOK=0 Q
 . . I $P(XMXR,"-",1)>$P(XMXR,"-",2) S XMOK=0
 . I XMXR?1.25N D  Q
 . . I XMXR<XMLO S XMOK=0 Q
 . . I XMXR>XMHI S XMOK=0
 . I XMXR?1.25N1"-" D  Q
 . . I $P(XMXR,"-",1)<XMLO S XMOK=0 Q
 . . I $P(XMXR,"-",1)>XMHI S XMOK=0
 . S XMOK=0
 I XMOK S XMY="."_$S(XMSTRIKE:"-",1:"")_XMX Q 1
 Q 0
SHOWERR ;
 D SHOWERR^XMJDIR(.XMOPT,XMY)
 D WAIT^XMXUTIL
 S XMY="="
 Q
QUESTION ;
 I XMX="?" D HELPSCR Q
 I XMX?2."?"!("?HELP"[$$UP^XLFSTR(XMX)) S XQH=XMHELP D EN^XQH S XMY="=" Q
 I $L(XMX)>64 D HELPSCR Q
 I XMX?2"?"1N.N,$D(^XMB(3.9,$E(XMX,3,99),0)) S XMY=$E(XMX,3,99) Q
 I '$D(XMOPT("Q")) D HELPSCR Q
 S XMY="Q"
 I $D(XMOPT("Q","?")) D SHOWERR Q
 N I F I=1,2 Q:$E(XMX,I+1)'="?"
 S XMY=XMY_I,XMY(0)=$E(XMX,I+1,99)
 Q
HELPSCR ;
 N XMTEXT,XMPARM,XMLINES
 W !
 S XMPARM(1)=XMLO,XMPARM(2)=XMHI
 D BLD^DIALOG($S($G(XMINSTR("GOTO")):34051,1:34051.1),.XMPARM,"","XMTEXT","F") ; Enter a message number (_XMLO_-_XMHI_) to read a message.
 I $D(XMOPT("Q")),'$D(XMOPT("Q","?")) D BLD^DIALOG(34052,"","","XMTEXT","FS")
 ; ?string             Search for messages in this basket whose subject
 ;                     contains the specified string
 ; ??string            Search for messages you once sent or received
 ;                     whose subject begins with the specified string
 D BLD^DIALOG(34053,"","","XMTEXT","FS")
 ; .(-)n or n-m,a,c-d  (de)select message n or a list of messages
 ; .(-)*               (de)select all messages
 S XMLINES=IOSL-DIHELP-5
 D MSG^DIALOG("WH","",$G(IOM),"","XMTEXT")
 D HELPCMD^XMJDIR(.XMOPT,.XMOX,.XMLINES)
 I XMMORE D
 . I XMPAGE D BLD^DIALOG($S($G(XMINSTR("GOTO")):34055,1:34056),"","","XMTEXT","FS") Q
 . D BLD^DIALOG($S($G(XMINSTR("GOTO")):34057,1:34058),"","","XMTEXT","FS")
 E  D
 . I XMPAGE D BLD^DIALOG($S($G(XMINSTR("GOTO")):34060,1:34061),"","","XMTEXT","FS") Q
 . D BLD^DIALOG(34059,"","","XMTEXT","FS")
 ; Press ENTER or + to go to the next page.  Enter +n to page forward n pages.
 ; Enter - to go to the previous page.  Enter -n to page back n pages.
 ; Enter 0 to go to the first page; = to refresh this page; ^ to exit.
 D MSG^DIALOG("WH","",$G(IOM),"","XMTEXT")
 W !
 Q
SETOPT(XMDUZ,XMK,XMOPT,XMOX) ;
 D OPTGRP^XMXSEC1(XMDUZ,XMK,.XMOPT,.XMOX,1)
 D SET^XMXSEC1("CD",37221,.XMOPT,.XMOX) ; Change Detail
 D SET^XMXSEC1("O",37222,.XMOPT,.XMOX) ; Opposite selection toggle
 D SET^XMXSEC1("Z",37223,.XMOPT,.XMOX) ; Zoom selection toggle
 Q
ZOOMOPT(XMOPT) ;
 N I
 I $D(^TMP("XM",$J,".")) D  Q
 . I $D(XMOPT("Z","?")) K XMOPT("O","?"),XMOPT("Z","?")
 . I $D(XMOPT("Q")) F I="Q","N","R" S XMOPT(I,"?")=37232 ; You can't do this with messages selected.
 F I="O","Z" S XMOPT(I,"?")=37231 ; You can't do this unless messages are selected.
 I $D(XMOPT("Q")) K XMOPT("Q","?"),XMOPT("N","?"),XMOPT("R","?")
 Q
FWD(XMDUZ,XMZ,XMZREC,XMWAIT,XMOK) ; User is trying to access a message.
 N X        ; User (XMDUZ) is not authorized to see it.  If user (DUZ)
 S XMOK=0   ; is, then we'll give him a chance to forward it.
 I '$D(^TMP("XMERR",$J,"E",37103)) D  Q
 . D SHOW^XMJERR ; User (XMDUZ and/or DUZ) is not authorized to see it.
 . D:XMWAIT WAIT^XMXUTIL
 ; User is trying to access a message as a surrogate for someone else.
 ; User (DUZ) is authorized to see the message, but the someone else
 ; (XMDUZ) isn't.  We must check to see if we can allow the user to
 ; forward the message to XMDUZ. 
 D NOGOID^XMJMP2(XMZ,XMZREC,1) ; Show 'subject' & 'from'
 D SHOW^XMJERR
 S X=$$FORWARD^XMXSEC(DUZ,XMZ,XMZREC)
 I XMDUZ=.6 D
 . I $$CLOSED^XMXSEC(XMZREC) D ERRSET^XMXUTIL(39020) Q
 . I $$CONFID^XMXSEC(XMZREC) D ERRSET^XMXUTIL(39021)
 I $D(XMERR) D  Q
 . D SHOW^XMJERR
 . D:XMWAIT WAIT^XMXUTIL
 N DIR,X,Y
 W !
 S DIR(0)="Y"
 ;Do you want to forward this message to |1|
 D BLD^DIALOG(37104,XMV("NAME"),"","DIR(""A"")","F")
 S DIR("B")=$$EZBLD^DIALOG(39053) ; No
 D ^DIR Q:'Y!$D(DIRUT)
 K DIR,X,Y
 N XMERROR,XMINSTR,XMMSG
 I XMDUZ=.6 D ASKSHARE^XMXADDR1(.XMINSTR) Q:$D(XMERROR)
 S XMINSTR("FWD BY")=XMV("DUZ NAME")
 D FWDMSG^XMXMSGS(DUZ,"",XMZ,XMDUZ,.XMINSTR,.XMMSG)
 I $D(XMERR) D  Q
 . D SHOW^XMJERR
 . D:XMWAIT WAIT^XMXUTIL
 I $D(XMMSG) D
 . W !,XMMSG
 . D:XMWAIT WAIT^XMXUTIL
 S XMOK=1
 Q