ViewPoint Manual

Customizing ViewPoint
ViewPoint Manual—426801-001
6-8
The Default Alternate-Events Filter
) and
-- Test for matching process name (if provided).
( not tokenpresent(zvpt^fltr^processname) or
decompose(zvpt^fltr^processname,destination name,name part) =
decompose(ssid(zems^val^ssid,zems^tkn^xsenderid^pd),
destination name,name part)
) and
-- Test for matching event text (if provided).
( not tokenpresent(zvpt^fltr^eventtext) or
emstextmatch((
[insertcommas [init^template^key:numbers(0:19)]]),
zvpt^fltr^eventtext)
)
--
-- and ...
-- user may add custom conditions here.
--
then
-- conditions specified were met.
begin
if zvpt^fltr^discard = [zspi^val^true] then fail;
end
else
-- conditions specified were not met
begin
if zvpt^fltr^select = [zspi^val^true] then fail;
end;
end; -- select or discard conditions
-----------------------------------------------------------
-- Events which have passed the conditions above will be
-- processed using Viewpoint's default filtering rules:
-- 1) events with a suppress^display token value equal to
-- true will fail unless the event is an action
-- completion event -- then it will pass with a pass
-- code value of 3.
-- 2) events with an action^needed token will be passed
-- with a pass code of 1.
-- 3) events with an emphasis token value which is not
-- false will be passed with a pass code 2.
-- 4) All other events pass with no pass code.
-----------------------------------------------------------
begin ssid(zems^val^ssid) -- zems ssid section.
-- fail on suppress^display events which are not
-- action-completion.
if zems^tkn^suppress^display = [zspi^val^true] then
begin
if tokenpresent (zems^tkn^action^needed) and
zems^tkn^action^needed = [zspi^val^false] then pass 3
Figure 6-2. Default Alternate-Events Filter Source Code (page 3 of 4)