Virtual Hometerm Subsystem (VHS) Manual (G06.24+, H06.04+, J06.03+)

ViewPoint Event Filter
Virtual Hometerm Subsystem (VHS) Manual—429311-002
I-2
--
-- Passes action-attention and action-completion events
--
IF TOKENPRESENT ( ZEMS^TKN^ACTION^NEEDED ) THEN PASS 1;
--
-- Testing for <> false for critical events
--
IF ZEMS^TKN^EMPHASIS <> [ZSPI^VAL^FALSE] THEN PASS 2;
--
--
-- All text events from VHS processes
-- that match the list of key words in (MATCH ...)
-- will be passed as critical events, otherwise they
-- will be passed as informative events.
--
IF (zems^tkn^eventnumber = 6 ) AND
( (MATCH (zems^tkn^text, "*ABNORMAL*")) OR
(MATCH (zems^tkn^text, "*A B N O R M A L*")) OR
(MATCH (zems^tkn^text, "*CALL USER*")) OR
(MATCH (zems^tkn^text, "*LOCKED*")) OR
(MATCH (zems^tkn^text, "*ACTION*")) OR
(MATCH (zems^tkn^text, "*WARNING*")) OR
(MATCH (zems^tkn^text, "*PROBLEM*")) OR
(MATCH (zems^tkn^text, "*INFORM*")) OR
(MATCH (zems^tkn^text, "*NOT TERMINATED*")) OR
(MATCH (zems^tkn^text, "*NOT COMPLETE*")) OR
(MATCH (zems^tkn^text, "*NOT UPDATED*")) OR
(MATCH (zems^tkn^text, "*UNKNOWN*")) OR
(MATCH (zems^tkn^text, "*UNSUCCESS*")) OR
(MATCH (zems^tkn^text, "*OVERFLOW*"))
)
THEN
PASS 2
ELSE
IF (zems^tkn^eventnumber = 6 )
THEN
PASS;
END
ELSE FAIL;
END;