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

The VHS GUI
Virtual Hometerm Subsystem (VHS) Manual—429311-002
8-10
Multiple Node Recommended Setup
-- VhsGui Filter used by an EMS Forwarding Distributor
[SINK [#LOAD $SYSTEM.ZSPIDEF.ZSPITACL]]
[SINK [#LOAD $SYSTEM.ZSPIDEF.ZEMSTACL]]
[SINK [#LOAD $SYSTEM.ZSPIDEF.ZVHSTACL]]
[#DEF zems^val^ss text |body|[zspi^val^TANDEM].[zspi^ssn^zems].0]
[#DEF zvhs^val^ss text |body|[zspi^val^TANDEM].[zspi^ssn^zvhs].0]
FILTER VhsGui^Forwarding^Filter;
BEGIN SSID(ZEMS^VAL^SS)
IF ZSPI^TKN^SSID = SSID (ZVHS^VAL^SS) THEN
BEGIN
IF ( ZEMS^TKN^EVENTNUMBER = [ZVHS^EVT^PROMPT] ) OR
( ZEMS^TKN^EVENTNUMBER = [ZVHS^EVT^REPLY] ) OR
( ZEMS^TKN^EVENTNUMBER = [ZVHS^EVT^REMOVE^PROMPT] ) OR
( ZEMS^TKN^EVENTNUMBER = [ZVHS^EVT^PROMPT^RESEND] ) OR
( ZEMS^TKN^EVENTNUMBER = [ZVHS^EVT^CLEAN^PROMPT^FILE] ) OR
( ZEMS^TKN^EVENTNUMBER = [ZVHS^EVT^PROMPT^CANCEL] ) OR
( ZEMS^TKN^EVENTNUMBER = [ZVHS^EVT^BAD^REPLY] )
THEN PASS
ELSE FAIL;
ELSE
FAIL;
END;