source: WorldVistAEHR/trunk/r/MAILMAN-XM/XMJMFB.m@ 837

XMJMFB ;ISC-SF/GMB-Find message: multiple conditions ;07/12/2002  10:40

 ;;8.0;MailMan;;Jun 28, 2002

 ; Replaces ^XMAL0,^XMAL0A (ISC-WASH/JSH/CAP)

 ; XMF("BSKT")  =number - Look in this basket ONLY

 ;              =*      - Look in all baskets

 ; XMF("SUBJ")  Subject contains this string

 ; XMF("SUBJ","S") Look for this string in the subject

 ; XMF("FLINE") Message has this many or more lines

 ; XMF("TLINE") Message has this many or fewer lines

 ; XMF("FROM")  Message is from this person

 ; XMF("TO")    Message is to this person

 ; XMF("FDATE") Message was sent on or after this date

 ; XMF("TDATE") Message was sent on or before this date

 ; XMF("RFROM") Message has a response from this person

 ; XMF("TEXT")  Message contains this string

 ; XMF("TEXT","S") Look for this string in the message

 ; XMF("TEXT","L") =1 - Look in message only

 ;                 =2 - Look in both message and responses

 ;                 =3 - Look in responses only

 ; XMF("TEXT","C") =0 - Search is not case-sensitive

 ;                 =1 - Search is case-sensitive

FIND1(XMDUZ,XMF,XMWAIT) ;

 N XMK,XMKN,XMKZ,XMCNT,XMABORT,XMLEN,XMFIRST,XMPAGE,XMDETAIL,XMPMAX,XMMORE,XMZOOM,XMCD,XMOPT,XMOX

 K ^TMP("XM",$J,"MSG"),^TMP("XM",$J,".")

 S XMKZ="",(XMPAGE,XMCNT,XMZOOM,XMCD,XMABORT)=0,(XMDETAIL,XMMORE)=1,XMPMAX=IOSL-3

 D INIT1(XMDUZ,.XMF,XMDETAIL,XMPMAX,.XMK,.XMKN,.XMLEN)

 D SETOPT^XMJMLR1(XMDUZ,$S(XMDUZ'=.5:0,XMK<1000:0,1:XMK),.XMOPT,.XMOX)

 F  D  Q:XMABORT

 . I XMCD S XMCD=0,XMDETAIL='XMDETAIL D INIT1(XMDUZ,.XMF,XMDETAIL,XMPMAX,.XMK,.XMKN,.XMLEN)

 . D DISPLAY1(XMDUZ,.XMF,XMDETAIL,.XMK,XMKN,.XMKZ,.XMCNT,.XMFIRST,.XMPAGE,.XMMORE,.XMLEN,XMZOOM,XMPMAX)

 . I XMCNT=0 S XMABORT=1 Q

 . D CHOOSE^XMJMLN(XMDUZ,0,XMK,.XMKZ,.XMFIRST,.XMPAGE,XMMORE,.XMLEN,.XMZOOM,.XMOPT,.XMOX,"READMSG^XMJMFB",.XMABORT)

 . S:'$D(^TMP("XM",$J,"MSG")) XMABORT=1

 I XMCNT=0 D

 . W $C(7),$$EZBLD^DIALOG(34401) ;   No matches found.

 . Q:'$G(XMWAIT)

 . W ! D WAIT^XMXUTIL

 K ^TMP("XM",$J,"MSG"),^TMP("XM",$J,".")

 Q

INIT1(XMDUZ,XMF,XMDETAIL,XMPMAX,XMK,XMKN,XMLEN) ;

 S:$D(XMF("SUBJ")) XMF("SUBJ","S")=$$UP^XLFSTR(XMF("SUBJ"))

 S:$D(XMF("TEXT")) XMF("TEXT","S")=$S('XMF("TEXT","C"):$$UP^XLFSTR(XMF("TEXT")),1:XMF("TEXT"))

 S XMK=XMF("BSKT")

 S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U)

 D INIT^XMJML(XMDUZ,XMK,XMKN,XMDETAIL,.XMLEN,1)

 Q

DISPLAY1(XMDUZ,XMF,XMDETAIL,XMK,XMKN,XMKZ,XMCNT,XMFIRST,XMPAGE,XMMORE,XMLEN,XMZOOM,XMPMAX) ;

 N XMREC,XMZ

 S XMFIRST(XMPAGE)=XMKZ

 D HEADER^XMJML(XMDETAIL,.XMLEN,$$EZBLD^DIALOG(34404,XMKN)) ; XMKN_ Basket Search

 I XMZOOM D  Q

 . F  S XMKZ=$O(^TMP("XM",$J,".",XMKZ),XMV("ORDER")) Q:XMKZ=""  D  Q:$Y>XMPMAX

 . . S XMREC=^TMP("XM",$J,"MSG",XMKZ)

 . . D LISTMSG^XMJML($P(XMREC,U,1),$P(XMREC,U,2),XMKZ,$P(XMREC,U,3),XMDETAIL,.XMLEN)

 F  S XMKZ=$O(^TMP("XM",$J,"MSG",XMKZ),XMV("ORDER")) Q:XMKZ=""  D  Q:$Y>XMPMAX

 . S XMREC=^TMP("XM",$J,"MSG",XMKZ)

 . D LISTMSG^XMJML($P(XMREC,U,1),$P(XMREC,U,2),XMKZ,$P(XMREC,U,3),XMDETAIL,.XMLEN)

 Q:$Y>XMPMAX!'XMMORE

 D CHKNLST1(XMDUZ,.XMF,XMDETAIL,XMK,XMKN,.XMKZ,.XMCNT,XMPMAX,.XMLEN)

 S:XMKZ'>0 XMMORE=0

 W:'XMMORE !,$$EZBLD^DIALOG(34402) ; Search finished.

 Q

CHKNLST1(XMDUZ,XMF,XMDETAIL,XMK,XMKN,XMKZ,XMCNT,XMPMAX,XMLEN) ; Check and List

 N XMZ

 S:XMKZ="" XMKZ=$O(^TMP("XM",$J,"MSG",""),-XMV("ORDER"))

 F  S XMKZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ),XMV("ORDER")) Q:XMKZ'>0  D  Q:$Y>XMPMAX

 . S XMZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZ,0))

 . I '$D(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)) D ADDITC^XMUT4A(XMDUZ,XMK,XMZ,XMKZ)

 . Q:'$$GOODMSG(XMDUZ,XMK,XMZ,.XMF)

 . S XMCNT=XMCNT+1

 . D LISTMSG^XMJML(XMK,XMKN,XMKZ,XMZ,XMDETAIL,.XMLEN)

 . S ^TMP("XM",$J,"MSG",XMKZ)=XMK_U_XMKN_U_XMZ

 Q

FINDALL(XMDUZ,XMF) ;

 N XMK,XMKN,XMKZZ,XMKZ,XMCNT,XMABORT,XMLEN,XMFIRST,XMPAGE,XMDETAIL,XMPMAX,XMMORE,XMZOOM,XMCD,XMOPT,XMOX

 S (XMKZ,XMKZZ)="",(XMK,XMPAGE,XMCNT,XMZOOM,XMCD,XMABORT)=0,(XMDETAIL,XMMORE)=1,XMPMAX=IOSL-3

 D INITA(XMDUZ,.XMF,.XMK,.XMKN,.XMKZZ,.XMLEN,.XMABORT) Q:XMABORT

 D SETOPT^XMJMLR1(XMDUZ,0,.XMOPT,.XMOX)

 K ^TMP("XM",$J,"MSG"),^TMP("XM",$J,".")

 F  D  Q:XMABORT

 . D DISPLAYA(XMDUZ,.XMF,.XMDETAIL,.XMK,XMKN,.XMKZZ,.XMKZ,.XMCNT,.XMFIRST,.XMPAGE,.XMMORE,.XMLEN,XMZOOM,XMPMAX)

 . D CHOOSE^XMJMLN(XMDUZ,1,0,.XMKZ,.XMFIRST,.XMPAGE,XMMORE,.XMLEN,.XMZOOM,.XMOPT,.XMOX,"READMSG^XMJMFB",.XMABORT)

 . S:'$D(^TMP("XM",$J,"MSG")) XMABORT=1

 K ^TMP("XM",$J,"MSG"),^TMP("XM",$J,".")

 Q

INITA(XMDUZ,XMF,XMK,XMKN,XMKZZ,XMLEN,XMABORT) ;

 S:$D(XMF("SUBJ")) XMF("SUBJ","S")=$$UP^XLFSTR(XMF("SUBJ"))

 S:$D(XMF("TEXT")) XMF("TEXT","S")=$S('XMF("TEXT","C"):$$UP^XLFSTR(XMF("TEXT")),1:XMF("TEXT"))

 S XMLEN("XMKZ")=0

 F  S XMK=$O(^XMB(3.7,XMDUZ,2,XMK)) Q:XMK'>0  D  Q:$D(XMKN)

 . F  S XMKZZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZZ),XMV("ORDER")) Q:XMKZZ'>0  D  Q:$D(XMKN)

 . . S XMZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZZ,0))

 . . Q:'$$GOODMSG(XMDUZ,XMK,XMZ,.XMF)

 . . S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U)

 I $D(XMKN) S XMKZZ=XMKZZ-XMV("ORDER") Q

 S XMABORT=1

 W $C(7),$$EZBLD^DIALOG(34401),! ;   No matches found.

 D WAIT^XMXUTIL

 Q

DISPLAYA(XMDUZ,XMF,XMDETAIL,XMK,XMKN,XMKZZ,XMKZ,XMCNT,XMFIRST,XMPAGE,XMMORE,XMLEN,XMZOOM,XMPMAX) ;

 N XMREC,XMZ

 S XMFIRST(XMPAGE)=XMKZ

 I XMCD D

 . S XMCD=0,XMDETAIL='XMDETAIL

 . D INIT^XMJML(XMDUZ,XMK,XMKN,XMDETAIL,.XMLEN)

 E  I $L(XMCNT+XMPMAX)>XMLEN("XMKZ") D

 . S XMLEN("XMKZ")=$L(XMCNT+XMPMAX)

 . D INIT^XMJML(XMDUZ,XMK,XMKN,XMDETAIL,.XMLEN)

 D HEADER^XMJML(XMDETAIL,.XMLEN,$$EZBLD^DIALOG(34405)) ; All Baskets Search

 I XMZOOM D  Q

 . F  S XMKZ=$O(^TMP("XM",$J,".",XMKZ)) Q:XMKZ=""  D  Q:$Y>XMPMAX

 . . S XMREC=^TMP("XM",$J,"MSG",XMKZ)

 . . D LISTMSG^XMJML($P(XMREC,U,1),$P(XMREC,U,2),XMKZ,$P(XMREC,U,3),XMDETAIL,.XMLEN)

 F  S XMKZ=$O(^TMP("XM",$J,"MSG",XMKZ)) Q:XMKZ=""  D  Q:$Y>XMPMAX

 . S XMREC=^TMP("XM",$J,"MSG",XMKZ)

 . D LISTMSG^XMJML($P(XMREC,U,1),$P(XMREC,U,2),XMKZ,$P(XMREC,U,3),XMDETAIL,.XMLEN)

 Q:$Y>XMPMAX!'XMMORE

 S XMK=XMK-.01

 F  S XMK=$O(^XMB(3.7,XMDUZ,2,XMK)) Q:XMK'>0  D  Q:$Y>XMPMAX

 . S XMKN=$P(^XMB(3.7,XMDUZ,2,XMK,0),U)

 . D CHKNLSTA(XMDUZ,.XMF,XMDETAIL,XMK,XMKN,.XMKZZ,.XMCNT,XMPMAX,.XMLEN)

 I XMK'>0,XMKZZ'>0 S XMMORE=0

 S XMKZ=XMCNT

 W:'XMMORE !,$$EZBLD^DIALOG(34402) ; Search finished.

 Q

CHKNLSTA(XMDUZ,XMF,XMDETAIL,XMK,XMKN,XMKZZ,XMCNT,XMPMAX,XMLEN) ; Check and List

 N XMZ

 F  S XMKZZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZZ),XMV("ORDER")) Q:XMKZZ'>0  D  Q:$Y>XMPMAX

 . S XMZ=$O(^XMB(3.7,XMDUZ,2,XMK,1,"C",XMKZZ,0))

 . I '$D(^XMB(3.7,XMDUZ,2,XMK,1,XMZ,0)) D ADDITC^XMUT4A(XMDUZ,XMK,XMZ,XMKZZ)

 . Q:'$$GOODMSG(XMDUZ,XMK,XMZ,.XMF)

 . I $L(XMKN)>$G(XMLEN("BSKT")) D

 . . S XMLEN("BSKT")=$$MIN^XLFMTH($L(XMKN),10)

 . . D INIT^XMJML(XMDUZ,XMK,XMKN,XMDETAIL,.XMLEN)

 . S XMCNT=XMCNT+1

 . D LISTMSG^XMJML(XMK,XMKN,XMCNT,XMZ,XMDETAIL,.XMLEN)

 . S ^TMP("XM",$J,"MSG",XMCNT)=XMK_U_XMKN_U_XMZ

 Q

GOODMSG(XMDUZ,XMK,XMZ,XMF) ;

 N XMZREC,XMNOGOOD,XMZFROM,XMZDATE

 S XMZREC=$G(^XMB(3.9,XMZ,0))

 I XMZREC="",XMK D ZAPIT^XMXMSGS2(XMDUZ,XMK,XMZ) Q 0

 I $D(XMF("SUBJ")),$$UP^XLFSTR($P(XMZREC,U,1))'[XMF("SUBJ","S") Q 0

 I $D(XMF("FROM")) Q:'$$GOODFROM(XMZREC,XMF("FROM")) 0

 I $D(XMF("FLINE"))!$D(XMF("TLINE")) D  Q:XMNOGOOD 0

 . N XMLINES

 . S XMNOGOOD=1

 . S XMLINES=$$LINE^XMXUTIL2(XMZ)

 . I $D(XMF("FLINE")),XMLINES<XMF("FLINE") Q

 . I $D(XMF("TLINE")),XMF("TLINE")<XMLINES Q

 . S XMNOGOOD=0

 I $D(XMF("FDATE"))!$D(XMF("TDATE")) D  Q:XMNOGOOD 0

 . S XMNOGOOD=1

 . S XMZDATE=$P(XMZREC,U,3)

 . S:XMZDATE'=+XMZDATE XMZDATE=$$CONVERT^XMXUTIL1(XMZDATE)

 . S XMZDATE=$P(XMZDATE,".")

 . I $D(XMF("FDATE")),XMZDATE<XMF("FDATE") Q

 . I $D(XMF("TDATE")),XMF("TDATE")<XMZDATE Q

 . S XMNOGOOD=0

 I $D(XMF("TO")) D  Q:XMNOGOOD 0

 . I $D(^XMB(3.9,XMZ,6,"B",XMF("TO"))) S XMNOGOOD=0 Q

 . I $L(XMF("TO"))>30,$D(^XMB(3.9,XMZ,6,"B",$E(XMF("TO"),1,30))),XMF("TO")=$P($G(^XMB(3.9,XMZ,6,+$O(^XMB(3.9,XMZ,6,"B",$E(XMF("TO"),1,30),0)),0)),U,1) S XMNOGOOD=0 Q

 . S XMNOGOOD=1

 . Q:XMF("TO")'["@"

 . N XMTOX,XMTO

 . S XMTO=""

 . F  S XMTO=$O(^XMB(3.9,XMZ,6,"B",XMTO)) Q:XMTO=""  D  Q:'XMNOGOOD

 . . Q:XMTO'["@"

 . . S XMTOX=$$UP^XLFSTR(XMTO)

 . . Q:$P(XMTOX,"@")'[$P(XMF("TO"),"@")

 . . Q:$P(XMTOX,"@",2)'[$P(XMF("TO"),"@",2)

 . . S XMNOGOOD=0

 I $D(XMF("RFROM")) D  Q:XMNOGOOD 0

 . N XMIEN,XMZR

 . S XMNOGOOD=1

 . S XMIEN=0

 . F  S XMIEN=$O(^XMB(3.9,XMZ,3,XMIEN)) Q:'XMIEN  S XMZR=^(XMIEN,0) I $$GOODFROM($G(^XMB(3.9,XMZR,0)),XMF("RFROM")) S XMNOGOOD=0 Q

 I $D(XMF("TEXT")) D  Q:XMNOGOOD 0

 . S XMNOGOOD=1

 . I XMF("TEXT","L")<3 D  Q:XMF("TEXT","L")=1!(XMNOGOOD=0)

 . . S:$$GOODTEXT(XMZ,XMF("TEXT","S"),XMF("TEXT","C")) XMNOGOOD=0

 . N XMIEN,XMZR

 . S XMIEN=0

 . F  S XMIEN=$O(^XMB(3.9,XMZ,3,XMIEN)) Q:'XMIEN  S XMZR=^(XMIEN,0) I $$GOODTEXT(XMZR,XMF("TEXT","S"),XMF("TEXT","C")) S XMNOGOOD=0 Q

 Q 1

GOODFROM(XMZREC,XMF) ; Returns 1 if msg is from XMF; 0 if not

 N XMZFROM

 S XMZFROM=$P(XMZREC,U,2)

 I XMF=+XMF,XMF=XMZFROM Q 1

 Q:XMF'["@" 0

 S XMZFROM=$$UP^XLFSTR(XMZFROM)

 Q:$P(XMZFROM,"@")'[$P(XMF,"@") 0

 Q:$P(XMZFROM,"@",2)'[$P(XMF,"@",2) 0

 Q 1

GOODTEXT(XMZ,XMF,XMFMATTR) ; Returns positive number if msg contains XMF; 0 if not

 N I

 S I=.999999

 I XMFMATTR D

 . F  S I=$O(^XMB(3.9,XMZ,2,I)) Q:'I  Q:^(I,0)[XMF

 E  D

 . F  S I=$O(^XMB(3.9,XMZ,2,I)) Q:'I  Q:$$UP^XLFSTR(^(I,0))[XMF

 Q +I

READMSG ; (XMDUZ,XMKZ,XMREC) <- needed!

 N XMK,XMKN,XMZ,XMRDR  ; $G(XMRDR) is checked in READMSG^XMJBM

 S XMK=$P(XMREC,U,1),XMKN=$P(XMREC,U,2),XMZ=$P(XMREC,U,3)

 D READMSG^XMJBM(XMDUZ,XMK,XMKN,XMZ)

 Q:$D(^XMB(3.7,"M",XMZ,XMDUZ,XMK))

 I XMF("BSKT")=XMK K ^TMP("XM",$J,"MSG",XMKZ) Q

 S XMK=+$O(^XMB(3.7,"M",XMZ,XMDUZ,0))

 S ^TMP("XM",$J,"MSG",XMKZ)=XMK_U_$S(XMK=0:$$EZBLD^DIALOG(34014),1:$P(^XMB(3.7,XMDUZ,2,XMK,0),U))_U_XMZ ; * N/A *

 Q