------------------------SDT2˙˙˙˙GetDPIndex_A--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText------------------------------------!%()HeadingText----------------------------------- ˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙GetDPIndex_A-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ˙˙˙˙6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------˙˙˙˙()[8(!D ; FPAR IN eventType EventTypeBCUSMType, IN/OUT EventIndex Integer;)]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------Z˙˙˙˙()[8(! Procedure GetDPIndex_A)]}}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.˙˙˙˙()[(! ! ú–!(d)[h(! )[k(! 6)[n(! 6d! )]][ q(! 6Ť)][&t(! 6&ú! Čd)[8(! )][z!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- --------˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙˙----˙˙˙˙!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------˙˙˙˙(!Š^А!"АŠ^)[6w(! 6&! Čd)[8(! EventIndex:=1)][€(!ŠôŠ&!"Š&Šô)[ ƒ(! 6&&! Č d)[8(!E EventTable(legId)(EventIndex)(derviceKey)! EventTypeBCUSM=EventType)][Œ(!ŠŠŠź!"ŠźŠŠ)[8(! 6ŁŁ! false)][ }(! 6&ź! Čd)[ 8(! EventIndex= NumOfBCUSMEvents)][†(!Š ŠR!"ŠRŠ )[8(! 6Ł9! false)][6‰(! 6&R! Čd)[8(! EventIndex:= EventIndex + 1)][ (!2ŠśŠĎŻĎŻ Š Š&!"Š&Šś)[(! 6Š !)][)ƒ()]]]][˜(!îî„î„R!"„Rîî)[8 (! 6! true)][(! 6„î!)]['’(! 6 R! Čd)[8(! )]]]]][•(!îX„X„R!"„RîX)[8(! 6q! t rue)][)’()]]]]]]][9›(! 6! )[8(!< DCL legID LegID_AType :=0, serviceKey ServiceKey_AType:=1;)]]]]}---------------------------------------------------------------------------------------------------------—˙˙˙˙(!4›!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P˙˙˙˙