EMS FastStart Manual
Filter
EMS FastStart Manual–133701
E-2
--
-- 2. Subsystem ID: ............... Pass
-- Subsystem ID = ATM^VAL^SSID
--
-- 3. Event Number: ............... Pass
-- Event Number = *
--
-- 4. Token Present: .............. Pass
-- Token Name = *
--
-- 5. Specific Token Value: ....... Pass
-- Token Value = *
-- 6. Text: ....................... Pass
-- Text = *
-- 7. Other ....................... Pass
-- Other = *
--
----------------------------------------------------------------------
[#SET ZEMS^VAL^SSID [ZSPI^VAL^TANDEM].[ZSPI^SSN^ZEMS].0]
[#SET ATM^VAL^SSID [ATM^VAL^OWNER].[ATM^SSN^NUMBER].0]
FILTER ATM^DEFAULT^FILTER;
BEGIN SSID ( ZEMS^VAL^SSID )
 IF ZSPI^TKN^SSID = SSID ( ATM^VAL^SSID ) THEN
 BEGIN
 --
 -- fails 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
 ELSE FAIL;
 END;
 --
 -- 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 other events from ATM^VAL^SSID are passed
 --
 PASS;
 END
 ELSE FAIL;
END;










