Routine: HLEVAPI2

Information

HLEVAPI2 ;O-OIFO/LJA - Event Monitor APIs ;02/04/2004 14:42

Name	Comments	DBIA/ICR reference
VARLIST(HLEVIENJ,SUB)	; Return event variable information in ^TMP($J,SUB)...
PREVENT(HLEVIENE,SUB,STATUS)	; Return <PR>evious <event> runs in ^TMP($J,SUB)
EVCHKD(HLEVIENM,HLEVIENE,HLEVIENJ,STATUS)	; Event code finished. Mark event check multiple in 776.2 done... ; ZTSK -- req
ADDXMYS(HLEVIENE,XTMP)	; Set up XMY()s...
MGRP(HLEVIENE)	; Return G.MAIL-GROUP...
LOADBODY(HLEVIENJ,SVSUB)	; Load body into global to mail...
LOADDGBL(HLEVIENJ,SUBDD,SVSUB)	; Load event text into global to mail...
DEBUGSET	; Set debugging on/off for a tag...
DSET1	;
DSET2(TAG,CUT)	;
DEBUG(TAG,TMPSUB)	; Conditionally store ^XTMP debug data... ; Pass-by-reference references to save by merging... ; TMPSUB(SAVESUB)=REFERENCE ; (E.g., TMPSUB("HLEVREP")=$NA(^TMP($J,"HLEVREP")))
ASKDATE(DATEPMT,PARM,DEFAULT)	; Select date...
LOG(ETYPE,STORE)	; Log event type, record variables, create index...
LOGVAR(IEN,VAR)	; Store variable in 776.4...
LOGQUERY(IEN,QUERYBEG,QUERYEND)	; Store ARR() in 776.4...
SV(VAR,VAL)	; Store individual variable... (Increments CT, updates ZERO, ; and creates MIEN.) ; CT,IEN,ZERO -- req --> CT,MIEN,ZERO
EOR	;HLEVAPI2 - Event Monitor APIs ;5/16/03 14:42

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Current debug sets..." Line Location: DSET1+5
Function Call: WRITE	Prompt: ! Line Location: DSET1+6
Function Call: WRITE	Prompt: !,TAG,?20,CUT,"..." Line Location: DSET1+10
Function Call: READ	Formatting: !! Prompt: "Tag: " Variable: TAG Timeout: 99 Line Location: DSET1+12
Function Call: WRITE	Prompt: " ... set to ",CUT," ..." Line Location: DSET1+14
Function Call: WRITE	Prompt: " removing data..." Line Location: DSET1+19
Function Call: WRITE	Prompt: " setting cutoff time..." Line Location: DSET1+22