------------------------SDT2˙˙˙˙IsDPArmed_A--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText------------------------------------!%()HeadingText----------------------------------- ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙IsDPArmed_A--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ˙˙˙˙6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙()[8(!^ ; FPAR IN legID LegID_AType, IN eventTypeBCUSM EventTypeBCUSMType; returns Armed Boolean;)]}s ReturnValue Boolean;)]}------------------------------------------------------------------------------------------------------------------t˙˙˙˙()[8(! Procedure IsDPArmed_A)]}}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙()[(! ! ú–!(d)[h(! )[k(! 6)[n(! 6d! )]][ q(! 6Ť)][&t(! 6&ú! Čd)[8(! )][z!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ---- ----˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙----˙˙˙˙!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------˙˙˙˙(!Š^А!"АŠ^)[%w(! 6&! Čd)[8(!# GetDPIndex (eventTypeBCUSM,Event))][€(!ŠôŠ&!"Š&Šô)[6ž(!  6&&! Čd)[8(! serviceKey:=1)][Ą(!ŠŠŠź!"ŠźŠŠ)[ }(! 6&ź! Čd)[8(!3 EventTable(legID)(Event)(serviceKey)! monitorMode)][Ş (!Š ŠR!"ŠRŠ )[8(! 6Ł9! transparent)][ ­(! 6&R! Čd)[8(!! ServiceKey= MaxNumOfServiceKeys)][ś(!&„„č!" č&„)[8(! 6Š! false)][6ł(! 6,č! Čd)[8(! serviceKey:= serviceKey +1)][š(!2L°K°KŁŠŁŠź!"Šź L)[(! 6ŠŁ!)][)}()]]]][°(!ŠśŠč!"ŠčŠś)[8(! 6ŁĎ! true)][6ƒ(! 6&č! Čd)[8(! Ar(!4š!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P˙˙˙˙med:= false)][’(!"ŠLŠe„e„~!"„~ŠL)[(! 6„e!)]['(! 6 ~! Čd)[8(! )]]]]]]][˜(!îî„î„R!"„Rîî)[8(! 6! interrupted, notifyAndContinue)][6Œ(! 6 R! Čd)[8(! Armed:= true)][•(!„ś„~!"„~„ś)[)()]]]]]]]]]]][9›(! 6! )[8(! DCL Event Integer;)]]]]}-----------------------------------------------------------------------------------------------------------------------------------------------q˙˙˙˙