Routine: HLEVAPI0

Information

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

Name	Comments	DBIA/ICR reference
ONOFFM(HLEVIENE,STATUS)	;Turn on/off event monitor...	ICR #4226 Status: Withdrawn Usage: Controlled Subscription
ONOFFS(HLEVIEN,STATUS)	; Turn on/off system...
ONOFF(FILE,HLEVIENE,STATUS)	; Turn on/off event monitor or system... ; FILE can = 776.1 or 776.999 ; Actually, HLEVIENE can be the IEN of the monitor, or the system. ; If STATUS="A", sets status to ACTIVE. ; If STATUS="I", sets status to INACTIVE. ; If STATUS=null or undefined (not passed), present status returned...
ONOFFEV	; Turn on/off event monitor
S7761
VIEW7761(IEN)	; Actual display code for entry...
SH7761(TAG,VAL)	;
ONOFFPAR	; Turn on/off parameters...
ACTINACT(FILE,IEN,FLD,TAG)	; Turn on/off status fields...
EVENTCHK(HLEVIENM)	; Loop thru all MONITORs... ; NOEVCHK,ZTSKMST -- req
EVRES(HLEVIENM,HLEVIENE,RES,HLEVIENJ)	; Record result of queued task... ; ZTSK -- req
RUNEV(LASTRUN,LAPSE)	; Is LASTRUN (FM) LAPSE(min) before NOW?
OKMCODE(MREF)	; Is this a valid M subrtn^rtn reference?
Q1TIME(HLEVIENE,OVERRIDE,QTIME,XTMP)	; Start a one-time run of event monitor (w/no master job)
EOR	;HLEVAPI0 - Event Monitor APIs ;5/16/03 14:42

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: S7761+1
Function Call: WRITE	Prompt: !!,"Recent Checks of the Monitor by Master Job" Line Location: S7761+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: S7761+8
Function Call: WRITE	Prompt: !,"Check-time",?18,"Results" Line Location: S7761+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: S7761+10
Function Call: WRITE	Prompt: !,$$SDT^HLEVX001($P(DATA,U,2)),?18,$$STAT2M^HLEVX001($P(DATA,U)) Line Location: S7761+14
Function Call: WRITE	Prompt: ! Line Location: S7761+15
Function Call: WRITE	Prompt: ! Line Location: S7761+20
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Parameter ""Variable"" Descriptors ",IOM,"-") Line Location: VIEW7761+14
Function Call: WRITE	Prompt: !,?25,"Parameter - "_PCE_" = ",PAR(PCE) Line Location: VIEW7761+16
Function Call: WRITE	Prompt: !,?(35-$L(TAG)-2),TAG,":",?45,VAL Line Location: SH7761+1
Function Call: WRITE	Prompt: ! Line Location: ONOFFPAR+5
Function Call: WRITE	Prompt: ! Line Location: ONOFFPAR+13
Function Call: WRITE	Prompt: ! Line Location: ONOFFPAR+14
Function Call: WRITE	Prompt: " ... nothing changed ..." Line Location: ACTINACT+4
Function Call: WRITE	Prompt: " changed!" Line Location: ACTINACT+7