XMJMF ;ISC-SF/GMB-Find messages based on criteria ;07/10/2002 09:58
;;8.0;MailMan;;Jun 28, 2002
; Replaces ^XMA03,^XMAL0,^XMAL0A (ISC-WASH/CAP/THM)
; Entry points used by MailMan options (not covered by DBIA):
; FIND XMSEARCH
; SUPER XM SUPER SEARCH
FINDBSKT(XMDUZ,XMK,XMKN) ; Find messages in a particular basket
FIND ; Find messages in any basket or find any message
S XMDIR("A")=$$EZBLD^DIALOG(34410) ; Select message search method:
D SET^XMXSEC1("S",34411,.XMOPT,.XMOX) ; S:Search all messages by subject only
D SET^XMXSEC1("A",34413,.XMOPT,.XMOX) ; A:Search all messages by multiple criteria
D SET^XMXSEC1("M",34412,.XMOPT,.XMOX) ; M:Search my Mailbox by multiple criteria
S XMDIR(0)="S" ; show the choices
D XMDIR^XMJDIR(.XMDIR,.XMOPT,.XMOX,.XMY,.XMABORT) Q:XMABORT
S ; Search all existing messages by subject
S DIR("A")=$$EZBLD^DIALOG(34415) ; Enter the string that the subject starts with
;The string may be from 3 to 30 characters.
;We will find all messages whose subject starts with the string you enter.
;We will search all existing messages which you have ever had access to,
;whether they are in your mailbox or not.
;The search is case-sensitive.
S DIR("??")="XM-U-Q-SEARCH SYSTEM"
D ^DIR Q:$D(DIRUT)
W !,$$EZBLD^DIALOG(34417) ; Searching...
A ; Search all existing messages by multiple criteria
; * * * * * WARNING * * * * *
I $G(XMFLAG)="U" D
. D BLD^DIALOG(34418.5,"","","XMTEXT","F")
. ;This is the Super Search which looks at all messages
. ;in the MESSAGE file which were sent by anyone and everyone during the
. ;entire time period you select, regardless of whether or not you are
. ;party to the messages. This is a very powerful search and should not
. ;be abused. You should have good reason and authorization to be here.
. D BLD^DIALOG(34418,"","","XMTEXT","F")
. ;This search looks at all messages in the MESSAGE file which were sent
. ;to you or by you during the entire time period you select.
;This search can take a very long time, depending on how many messages
;were sent at this site during the time period you select, and how many
;search criteria you specify. The more messages to search, the more
;search criteria you specify, the longer the search will take.
; This search can be VERY SLOW. Be forewarned!
M ; Search my mailbox by multiple criteria
SUPER ; Super Search all messages in the Message file
I $D(XMV("ERROR")) D ERROR^XM(.XMV,"ERROR") Q