------------------------SDT2˙˙˙˙DisarmDPs_A--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText-----------------------------------1------------------------------------------------- ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙DisarmDPs_A---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ˙˙˙˙6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙()[8(! Procedure DisarmDPs_A)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙()[(! ! ú–!(<)[h(! )[k(! 6)[n(! 6d! )]][ q(! 6Ť)][9t(! 6 d! )[8(!? DCL Even (!4Ş!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P˙˙˙˙!%()PageOrder-------------------------------------1------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------˙˙˙˙˙˙˙˙˙˙˙˙--------˙˙˙˙!%()HeadingText-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------˙˙˙˙()[8(!7 ; fpar in legID LegID_AType, in MaxEvent Event_AType;)]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------M˙˙˙˙t Event_AType := 1, serviceKey ServiceKey_AType := 1;)]][&w(! 6 ! Čd)[8(! )][}(!„ô„&!"„&„ô)[6z(! 6 &! Čd)[8(!B  eventTable(legID)(event)(serviceKey)! monitorMode := transparent)][ƒ(!„Š„ź!"„ź„Š)[ €(! 6 ź! Čd)[8(!" serviceKey = MaxNumOfServiceKEys)][Ą(! îŠîŠR!"ŠR î)[8(! 6Ł! false)][6ž(! 6&R! Čd)[8(! ServiceKey:= ServiceKey+1)][§(!2ŠśŠčwčw „ „ &!"„&Šś)[(! 6„ !)][)z()]]]][‰(!„ „R!"„R„ )[8(! 69! true)][6†(! 6 R! Č d)[8(! ServiceKey :=1)][(!„ś„č!"„脜)[ Œ(! 6 č! Čd)[8(! event= maxEvent)][›(! ŠŠ~!"Š~ )[8(! 6Ł3! false)][6˜(! 6&~! Čd)[8(! event:= event +1)][Ş(!2ŠâŠww „ „&!"„&Šâ)[(! 6wč!Ś˙˙˙)][)z()]]]][•(!„L„~!"„~„L)[8(! 6e! true)]['’(! 6 ~! Čd)[8(! )]]]]]]]]]]]]]]}-------------ó˙˙˙˙