EMS FastStart Manual

Filter
EMS FastStart Manual133701
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;