Routine: HLEVSRV2

Information

HLEVSRV2 ;O-OIFO/LJA - Event Monitor SERVER ;02/04/2004 14:42

Name	Comments	DBIA/ICR reference
QUERYSTR	; Generate $QUERY strings...
STRING()	; Ask user to input values to be built into a search string
QUERYRT()	;
EXRT
QUERYST(ROOT)	;
EXST
QUERYLM()	;
EXLM
QUERYFL()	;
EXFL
TAG(TXT)
HD
EX
MONITOR(TXT)	; User requested that a monitor be run... ; XTMP -- req
FT(PMT,DEF,WAY)	; Return user-input text...
ADDMAIL(TXT)	; Add TXT, but be sure it is on or after NUM
EOR	;HLEVSRV2 - Event Monitor SERVER ;5/16/03 14:42

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Search string = ",IOINHI,STRING,IOINORM Line Location: QUERYSTR+9
Function Call: WRITE	Prompt: !!,IOINHI,"Paste the following ""search strings"" into an email message and send to the" Line Location: QUERYSTR+12
Function Call: WRITE	Prompt: !,"S.HLEV-INFORMATION-SERVER@REMOTE-SITE.",IOINORM Line Location: QUERYSTR+13
Function Call: WRITE	Prompt: !! Line Location: QUERYSTR+14
Function Call: WRITE	Prompt: !,STRING Line Location: QUERYSTR+18
Function Call: WRITE	Prompt: ! Line Location: QUERYRT+4
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EXRT+0
Function Call: WRITE	Prompt: ! Line Location: QUERYST+5
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EXST+0
Function Call: READ	Formatting: !! Prompt: "Enter LIMIT: " Variable: VAL Timeout: 60 Line Location: QUERYLM+4
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EXLM+0
Function Call: WRITE	Prompt: ! Line Location: QUERYFL+4
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EXFL+0
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("----------- "_IOINHI_TXT_IOINORM_"-----------",IOM+$L(IOINHI)+$L(IOINORM)) Line Location: TAG+0
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("$QUERY String Generator",IOM) Line Location: HD+0
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HD+1
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EX+0