------------------------SDT2 <BDPFiltering--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeaderText------------------------------------ ;DPFiltering---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! Procedure DPFiltering)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[(! l! 22!(d)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][9(! 6d! )[8(! DCL No (!4z!5!7)[!(! 1!!3)[!(! 2!!3)[!(! 3!!3)[!(! 4!!3)]]]]}--------------------------------------------!%()PageOrder-------------------------------------1-------------------------------------------------2-------------------------------------------------3-------------------------------------------------  !%()HeadingText-----------------------------------2------------------------------------------------------------------------------------------------------------------------------------------------------- -------- --------0--------()[8(! ;FPAR IN DP DPArg;)]}BCSMType, IN LegId LegIdType, IN Party PartyType;)]}------------------------------------------------------------------------------------------------------------------------------------------------------------,OfLegs Natural;)]][&t(! 6R! d)[8(! )][z(!^!"^)[ w(! 6 ! ,)[8(! DP! bcsmEvent)][(!  R!"R )[8(! 6?! oMidCall, tMidCall)][(! 6R!Z)][}(! 6R! ,)[8(! MidCall)]]][(!& R!"R&)[8(! 6?! oDisconnect, tDisconnect)][(! 6R!Z)][(! 6 R! ,)[8(! Dis_ connect)]]][(!L@ @R!"@RL)[8(! 6Y&! oAbandon, tAbandon)][(! 6@R!Z)][(! 6R! ,)[8(! Abandon)]]]]]]]]}-------------------------------()[(! l! 22!(d)[(! l)[(! 6)[(! 6d! )]][ (! 6)][(! 6! ,)[8(! MidCall)][z(!R^R!"RR^)[6(! 6! ,)[8(!$ NoOfMidCallDPs := NoOfMidCallDPs+1)][(!R&RX!"RXR&)[6(! 6X! d)[8(! NoOfLegs := call NoOfLegs)][(!RR!"RR)[ (! 6! )[8(! NoOfMidCallDPs = NoOfLegs)][ (!RR!"RR)[(! 6 !)[8(! Received all MidCall DPs?)]]][(!RRL!"LR)[8(! 6k! false)]['(! 6L! d)[8(! )]]][(!RRL!"RLR)[8(! 6k! true)][ (! 6L! )[8(! CP!ControllingLeg! BCSM)][(!F!"F)[8(! 6! Originating)][6(! 6F! )[8(!8 DP!legID := ControllingLegID, DP!bcsmEvent := oMidCall)][(!"@YRYR!"R@)[(! 6RY!)][(! 6! d!)[8(! DPMidCall(DP) to SSF)][(!RR:!"R:R)[6P(! 6:! ,)[8(! NoOfMidCallDPs := 0)][S(!RR!"RR)['(! 6!  d)[8(! )]]]]]]]]][(!F!"F)[8(! 6-! Terminating)][6(! 6F! )[8(!8 DP!legID := Controlli9rR!"RRr)[6(! 6! d)[8(! )][1(!!")[7 (! 6!)[8(!A oMidCallDPs := false, tMidCallDPs := false, NoOfMidCallDPs := 0)]]][(!R:R!"RR:)['(! 6! d)[8(! )]]]]]]][(!xx!"x)[8(! 6! false)][(! 6x! d!)[8(! DP(oMidCall, 0) to SSF)][ (!@@r@!"r@@@)[(! 6r!)[8(! All BCSMs are O)]]][ (!"rRR!"Rr)[(! 6R!)][)()]]]]]][(!,,!",)[8(! 6E! false)][(! 6! d!)[8(! DP(tMidCall, 0) to SSF)][ (!@@!"@@)[(! 6!)[8(! All BCSMs are T)]]][(!",r,RR!"R,r)[(! 6R!)][)()]]]]]]]]]]]][(!"R&R??X!"XR&)[8(! 6 ! tMidCall)][6(! 6X! d)[8(! tMidCallDPs := true)][(!"RR!"A()[(! l! 22!(P)[(! l)[(! 6)[(! 6d! )]][ "(! 6)][(! 6! ,)[8(! Dis_ connect)][(! ^ !"  ^)[ (! 6! d)[8(! DP!Party)][(!  X!" X )[8(! 69 ! LocalParty)][6(! 6X! ,)[8(!+ NoOfDisconnectDPs := NoOfDisconnectDPs +1)][(!   !"   )[6(! 6 ! ,)[8(! NoOfLegs := call NoOfLegs)][(!  !"  )[ (! 6X! )[8(! NoOfDisconnectDPs = NoOfLegs)][(!XLL!"!XL)[8(! 6e! false)]['(! 6! d)[8(! )]]][)(!  !"  )[8(! 69! true)][ "(! 6X! )[8(! CP!ControllingLeg! BCSM)][(!Xx^x^!"^Xx)[8(! 6w! Originating)][6(! 6d! )[8#(!; DP!legID := ControllingLegID, DP!bcsmEvent := oDisconnect)][ (!"^^! ! :!" :^)[(! 6 !!)][(! 6:! d!$)[8(! DPDis_ connect(DP) to SSF)][&(!  !"  )[6\(! 6! d)[8(! NoOf_ DisconnectDPs :=0)][_(! 4 f!"% f 4)['(! 6f! d)[8(! )]]]]]]]]][(!xx!"x)[8(! 6! Terminating)][6(! 6&! )[8(!; DP!legID := ControllingLegID, DP!bcsmEvent := tDisconnect)][#(!"! ! :!" :)[)()]]]]]]]]]]]][(!X!'"X)[8(! 6 ! RemoteParty)][(! 6~X! d!)[8(! DP_ Disconnect(DP) to SSF)][$(!!":tDPs := false, NoOfDisconnectDPs := 0)]]][(!  4!" 4 )['(! 64! d)[8(! )]]]]]]][(!!"))[8(! 6'! false)][(! 6F! d!)[8(!& DPDisconnect (oDisconnect, 0) to SSF)][ (!@!"@)[(! *6@!)[8(! All BCSMs are O)]]][ (!"! ! l!" l)[(! 6 !!)][)()]]]]]][(!FF!"+F)[8(! 6_! false)][(! 6! d!)[8(!& DPDisconnect (tDisconnect, 0) to SSF)][ (!^!",^)[(! 6!)[8(! All BCSMs are T)]]][(!"! ! l!" l)[(! 6 !!)][)()]]]]]]]]]]]][(!"-  !" )[8(! 6! tDisconnect)][6(! 6R! d)[8(! tDisconnectDPs := true)][(!"Rk k .!" R)[)()]]]]]]]][(!,,!",)[8(! 6E! RemoteParty)][(! 6~! d!)[8@()[(! l! 22!(d)['(! l)[*(! 6)[-(! 6d! )]][ 0(! 6)][3(! 6! ,)[8(! Abandon)13-------------------------------------------------4------------------------------------------------------------------------------------------------------------------------------------------------------- --------/----------------][(!R,R^!"R^R,)[69(! 6^! ,)[8(!$ NoOfAbandonDPs := NoOfAbandonDPs+1)][,(!RR&!"R&R)[62(! 6&! ,)[8(! NoOfLegs := call NoOfLegs)][(!RR!"RR)[ K(! 6! )[8(! NoOfAbandonDPs = NoOfLegs)][3(!R,R,!",R)[8(! 6Ek! false)]['Q(! 6! d)[8(! )]]][M(!RR!"RR)[48(! 6k! true)][ /(! 6! )[8(! CP!ControllingLeg! BCSM)][>(!~~!"~)[8(! 6! Originating)]5[62(! 6! )[8(!8 DP!legID := ControllingLegID, DP!bcsmEvent := oAbandon)][D(!"'R'Rr!"Rr)[(! 6R'!)][86(! 6r! d!)[8(! DPAbandon (DP) to SSF)][J(!RR!"RR)[6b(! 6! d)[8(! NoOf_ AbandonDPs :=0)][e7(!RlR!"RRl)[';(! 6! d)[8(! )]]]]]]]]][A(!~~!"~)[8(! 6-! 8Terminating)][65(! 6! )[8(!8 DP!legID := ControllingLegID, DP!bcsmEvent := tAbandon)][G(!"'R'Rr!"Rr)[)8()]]]]]]]]]]]]]]]}(!ngLegID, DP!bcsmEvent := tMidCall)][(!"@YRYR!"R@)[)()]]]]]]]]]]]]]]]}(!8 DP!legID := ControllingLegID, DP!bcsmEvent := tMidCall)][(!"@)['!(! 6~! d)[8(! )]]]]]]]]]]}(!RlR!"RRl)['r(! 6! d)[8(! )]]]]]]][(!@O()[w(!GSDL)]})[8(! 6! false)][f(! 6x@! d!)[8(! DPAbandon (oAbandon, 0) to SSF)][ (!@rrr!"rr@YRYR!"R@)[)()]]]]]]]]]]]][w(!,,!",)[8(! 6-E! remoteParty)][n(! 6! =d!)[8(! DP_ MidCall(DP) to SSF)][t(!&!"&)['q(! 6&! d)[8(! )]]]]]]]]]]}(!rr!">rr)[](! 6@!)[8(! All BCSMs are T)]]][(!",,RR!"R,)[(! 6R!)][)l()]]]]]]]]]]]?][(!"RXRqq!"RX)[8(! 6?! tAbandon)][6H(! 6! d)[8(! tAbandonDPs := true)][(!"RB(!& DPDisconnect(DP, LegId,Party) to SSF)][$(!&X!"X&)['!(! 6~X! d)[8(! )]]]]]]]]]]}--------------------------------------------------------R)[)()]]]]]]]]]]]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------7R !"R )[)()]]]]]]]]]]]}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------O(