------------------------SDT2  ImportEventRecord--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeaderText------------------------------------  ImportEventRecord----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! Procedure ImportEventRecord)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------3()[(! l! !(P)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][9(! 6! )[8(!Q DCL event EventTypeBCSM := origAttemptAuthorized, serviceKey ServiceKey := 1;)]][&(! 6&! d)[8(! )][(!&!"&)[6(! 6&&! d)[8(!h EventTable(LegId)(Event)(ServiceKey)! monitorMode := ImportEventRecord(Event)(ServiceKey)! monitorMode)][(!!")[ (! 6&! d)[8(! (!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P!%()PageOrder-------------------------------------1------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------!%()HeadingText-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------()[8(!D ; FPAR IN legID LegType, IN/OUT ImportEventRecord EventRecordType;)]}]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------Z serviceKey = numOfServiceKeys)][(!&R!"R&)[8(! 6! false)][6(! 6,R! d)[8(! ServiceKey := ServiceKey + 1)][ (!2  &!"&)[(! 6 !)][)()]]]][(! R!"R )[8(! 6 9! true)][6(! 6&R! d)[8(! ServiceKey := 1)][(!!")[ (! 6&! d)[8(! Event = callAccepted)][(!&~!"~&)[8(! 63! false)][6(! 6,~! d)[8(! Event := Succ(Event))][ (!2  &!"&)[(! 6!)][)()]]]][ (!L~!"~L)[8(! 6e! true)]['(! 6&~! d)[8(! )]]]]]]]]]]]]]]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------