------------------------SDT2 TerminatingBCSM--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeaderText------------------------------------ kTerminatingBCSM------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------15-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!W Virtual Process Type <> TerminatingBCSM)]}---------------------------------------------------------------------------------------------------------------------------------------------------m4! d)[8(! )]]]]]]]]7)[h(! 6! l4)[14(! 6)[n(! 6,14 )]][ q(! 6)][A vvM PIC PICArg, DP DPArg;)]][9T (! 6&! )[8(! DCL /* SigCon primitive parameters. */ aeArg AddressEndType, cpArg CallProgressType, farg FailureType, rarg ReleaseType, sftArg ServiceFeatureType, sirArg SetupIRType, scrArg SetupCRType, saArg SubsequentAddressType;)]]]]}ressType;)]]]]} ReleaseType, SFtArg ServiceFeatureType, SArg SetupType, SAArg SubsequentAddressType;)]]]]})[8(!w TIMER NoAnswerT := 15000, SuspendT := 3600000; DCL Bvirtual PIC_ _tAlerting)]][9(! 62F! )[8(!8 /* Procedure definitions for Detection Points (DPs) */)]][$(! 6d! ^!)[(! 6'!$ virtual DP_termAttempt_ Authorized)]][$I(! 6&! ^!)[(! 6q@! virtual DP_tNoAnswer)]][$k(! 6! ^!)[(! 6@! virtual DP_tDisconnect)]][$(! .()[(! l! 22!(P)[h(! l)[(! 6)[ (! 6d! )]][ (! 6)][2 (! 6 ,! d)[8(! )][  (! 6d@! d)[8(! PIC_tActive (PICResult))][(!!")[(! 6!Z)][3(! 6d! d)[8(! PICK(!!")[6 (! 6 ! d)[8(! CS := Parent)][ (!&!"&)[ (! 6 ! (! 6 ! d!)[8(!* ReleaseReqInd (RArg) to CS /*to O_BCSM*/)][ (!@r!"r@)[6 (! 6 r! d)[8(! 'Clear call')]!%()PageOrder-------------------------------------1-----------------------------------------------2-----------------------------------------------3----------------------------------------------- g{!%()HeadingText-----------------------------------4-----------------------------------------------4-----------------------------------------------4------------------------------------------------  [ (!!")[ (! 6 ! d!)[8(!# BCSMStop (LegId,LocalParty) to CS)][ (!l!"l!")[8(! 6! AptyAbandon)][6 (! 6&! d)[8(!- DP!legID := legID, DP!bcsmEvent := tAbandon)][ (! R!"n)[4 (! 6 ! d)[8(! )]]]]]]]]]]]]]]]]]]]]]]]]]][ (! 6d! d)[8(! PIC_T_Null)][ (!"X&&!"&X)~!"~)[(! 6,! d)[8(! DPResult = SCFRelease)][(!"--F!"xF)[ll)][r(!^!"^)[o(! 62! d)[8(! virtual PICResult = Success)][~(!&!"&)[%uent_ _Call)][(!^!"^)[c(! 62! d)[8(! virtual PICResult = Alerting)][(!&!"&)[%/_tAbandon)]]]]]]][(!"^wrwr!"r^)[u(! 6! d)[8(! PICResult = Exception)][(!rr&!"r&6()[8(! ;FPAR StartState BCSMStateType, /* The start state of the BCSM. */ LegId LegType; /* The LegID as assigned by the CS. */ )]}ption)][(!"xx33L!"Lx(! 62! d)[8(! PIC_tActive (PICResult))][(!@!"@)[(! 6@!Z)][3t(! 62@! d)[8(! ~)[(! 62! d)[8(! DPResult = Resume)][(!F!"xF)[4(! 62F! d)[8(! )]]]]][(!"[(! 6&!)][) ()]]][ (! 6d ! d)[8(!$ PIC_Authorise_Termination_ Attempt)][ (!"&&!"&)[!)[8(! DP(DP) to CS)][3(!!")[(! 6!Z)][3(! 6! d)[8(! Wait_T_Busy)]]]]]]]]][!(!x!"x)[8(! 6 x! AccessMaintenance_ Busy)][6 (! 6! d)[8(!$ DPReason:= AccessMaintenance_ Busy)][ (!!")[) ()]]]][B (!XFF!"XF)[8(! 6_! AccessCustomer_ Busy)][6 (! 6! d)[8(!! DPReason:= AccessCustomer_ Busy)][ (!"''!")[(! 6'!)][) ()]]]][ (!XFLFL!"LXF)[8(! 6e_! BptyNDUB)][6 (! 6! d)[8(! DPReason:= BptyNDUB)][" (!"LL''!"L)[(! 6'!)][) ()]]]][( (!XFFFF!"FXF)[8(! 6__! PSTNLineBusy)][6% (! 6! d)[8(! DPReason:= PSTNLineBusy)][+  (!"FF''!"F)[(! 6L'!)][) ()]]]][1 (!XF@F@!"@XF)[8(! 6Y_! !TrunkGroupBusy)][6. (! 6! d)[8(! DPReason:= TrunkGroupBusy)][ (!2__:x:!"x:)[K (! 6x!)[8"(!q For Conventional trunks, SS7-supported trunks, Private facility trunks check all trunks in the selected trunk.)]]][4 (!"@@''!"@)[(! 6F'!#)][) ()]]]]]]]][ (!XRR!"XR)[8(! 6k! BptyBusy_UDUB)][6^ (! 6 ! d)[8(! DPCause:= BptyBusy_UDUB)][ p ()(! PIC_tAlerting)][(! R!"R )[(! 62R! d)[8(! PICResult = Answer)][(!!")[)[W(! 6&l! d!)[8(!$ BCSMStop (LegId,RemoteParty) to CS)][t (!!"4)[4q (! 6&! d)[8(! )]]]]]]dCS)][" (!!")[6(! 6&! d)[8(!+ 'Normal clearing - calling party abandon')][ (!:l!"l:%^)[(! 6&! d)[8(! PICResult = NoAnswer)][(!&!"&)[%(! 6&&! d)[8(! DP_tNoAnswer (DPResY!")[(! 6!)][)()]]]]][3(! 62! d)[8(! DP_tAbandon)][(!~!"!"  !"  )[a (! 6 !)[8(!i The call cannot be presented,e.g. ISDN user determined user busy, ISUP release message with busy cause.)]]][ (dling')][ (!F!"F)[6 (! 6 F! d)[8(! RArg!BCSMId := RemBCSMId)][ (!!")[  6! ,)[8(! DPResult = CS_Stop)][:(!rl!"lr)[47(! 6@l! d)[8(! )]]]]]]]]}top)][:(!rl!)[(! 6'!)][) ()]]]]]]]]]}"@@''!"@)[(! 6F'!)][) ()]]]]]]]][ (!XRR!"B62! d)[8(! )]]]]][(!"  &!"&)[(! 6,&! d)[8(! DPResult = SCFRelease)][(!"(6d! ^!)[(! 6! virtual DP_tBusy)]][$(! 6&! ^!)[(! 6q! virtual DP_tMidCall)]][$(! 6d! ^!)[x(! 62&! d)[8(! PIC_tAlerting (PICResult))][(!!")[(! 6!Z)][3(! 62! d)[8$ DPResult = Resume)][(!:!":)[%(! 62:! d)[8(! PIC_ _TException)][((!!")[4F Success, ARelease, BRelease, Alerting, Busy, Answer, NoAnswer, MidCall, Exception, SCFRelease, /* Used with ReleaseCall. */ Reanswer, Suspended, DL_A, DL_B; /* Used with DisconnectLeg */ ENDNEWTYPE;)]]]]}@!"@)[(! 6@!Z)][3(! 6&@! d)[8(! DP_tAbandon)]]]]]]][(!"!"t(!x!"x)[%(! 62! d)[8(!# PIC_Select_ _Facility (PICResult))][T(!@!"@)[(! 6[f(! 6,! d)[8(! PICResult = Answer)][(!&!"&)[%{(! 6,&! d)[8(! DP_tAnswer (DPResult))][(!5!")[(! 6!Z)][3(! 6,! d)[8(! DP_tAnswer)]]]]]]][(!"^ww!"'r)[%(! 6&! d)[8(! PIC_ _TException)][(!rr!"rrr)[4(! 6! d)[8(! )]]]]]]][(!";P_tBusy (DPResult))][(!!")[(! 6!Z)][3(! 6 ! d)[8(! DP_tBusy)]]]]]]][(!"^w~w8~!"~^)[l(! 6! d)[8(! PICResult = Failure)][(!~~&!"~&~)[%(! 6&! d)[89(!# PIC_Select_ _Facility (PICResult))][(!~~!"~~)[(! 6~!Z)][3(! 6! d)[8(! PIC_Select_ _Facility)]]]]]]][(! 6r !)][)()]]]]]]]})[L(! l)[O(! 6)[R(! 6d! )]][ U(! 6)]]]}p(! 6dF! ,)[8(! DP_tNoAn6^wlwl!"l^)[r(! 6! d)[8(! PICResult = SCFRelease)][(!"ll r r&!"r&l)[:all_ _Active)][(!x!"x)[(! 6d! d)[8(! DPResult = Resume)][(!@!"@)[% DPResult = SCFRelease)][(!:!":)[%(! 6x:! d)[8(! PIC_ _TException)][(!!")[all_ _Active)][[(!!")[4(! 62! d)[8(! DPResult = Resume)][j(!&X!"X&)[%C?(! 62X! d)[8(! PIC_tActive (PICResult))][y(!!")[(! 6!Z)][3O(! 62! d)[8(! PIC@_tActive)]]]]]]][^(!"!")[7(! 6,! d)[8(! DPResult = ARelease)][m(!&X!"XA&)[%F(! 6,X! d)[8(!% DP_tDisconnect (DPResult, ARelease))][|(!!")[(! 6!Z)][3R(! 6,! W)[,(! 6R! ,)[8(! DPResult = BRelease)][;(!r!"r)[%2(! 6R! ,)[8(!% 14(! 6l!Z)][35(! 6l! ,)[8(! DP_Disconnect)]]]]]]][G(!"!" [,(6!)[8(! 6!Z)][3r(! 6~! d)[8(! DP_tAbandon)]]]]]]][Z(!"!")[=(! 6x! d)[8P()[(! :! 22!(P)[(! :)[(! 6)[(! 6d! )]][ (! 6)][9 (! 6! )[8(! DCL )]][ (! 62! d)[8(! )]]]]]]][(!"r!"r)[(! 6,! d)[8(! DPResult = ARelease)]["(!(! 6&! d)[8(! DP_tAbandon (DPResult))][(!xx!"xx)[(! 6x!Z)][3(! 6! d)[8(! DP6'!)][6 (! 6! d)[8(!7 DP!legID := legID, DP!bcsmEvent := tCalled_ PartyBusy)][ (!l!"l)[(! 6l! dF)[8(! 6x! AccessOutOfOrder)][6 (! 6d! d)[8(! DPReason:= AccessOutOfOrder )][ (!"''!")[(! H%(! 6 ! d)[8(! PIC_ _TException)][(!@@!"@@@)[4(! 6! d)[8(! )]]]]]]]]]]}3(! 6L! m_tActive)]]]]]]][D(!"x!"x)[)(! 6^! d)[8(! DPResult = ARelease)][8(!@!"@Q!Z)][3(! 6~! d)[8(! DP_tDisconnect)]]]]]]][(!"r!"r)[(! 6x! d)[8(!=(!:!":)[%(! 6~:! d)[8(!% DP_tDisconnect (DPResult, ARelease))][(!!")[(! 6L /* Pointer to the call segment. */ CS PId, /* Address of remote O-BCSM. */ remLegID LegType, remCSAID CSAID, calledPartyNumber CalledPartyNumber, /* Other variables. */ PICResult PICResultType, DPResult DPResultType, DPCause Cause, )[4V(! 6x! d)[8(! )]]]]]]][](!"!")[#(! 6r! d)[8(! PICResult = Exception)](! PICResult = SCFRelease)][C(!&X!"X&)[%S(! 6xX! d)[8(! PIC_ _TException)][Y(!!" O)[%/(! 6^@! d)[8(!% DP_tDisconnect (DPResult, ARelease))][>(!!")[(! 6!Z)][35(! 6^! Rd)[8(! DP_tDisconnect)]]]]]]][G(!"x!"x)[,(! 6X! d)[8(! DPResult = BRelease)][;(!S@!"@)[%2(! 6X@! d)[8(!% DP_tDisconnect (DPResult, BRelease))][A(!"!")[(! 6T!)][)5()]]]]]][(!"x!"x)[(! 6R! d)[8(! DPResult = SCFRelease)][(!@!"b(! 6L! d)[8(! )]]]]]]]]}()]]]]][3(! 62! ,)[8(! DP_tMidCall_ _Active)][(!!")[(! A)[(! 6?q! virtual PIC_Present_ _Call)]][$(! 6d ! ^)[(! 6R! PIC_ _TException)]][$(! 6 ! ^!)[(! 6?9! d)[8(! DP_tDisconnect)]]]]]]][a(!"!")[:(! 6&! d)[8(! DPResult = BRelease)][p(!&XX!"X&)[%I(! 6&X! d)[8(!% DP_tDisconnect (DPResult, BRelease))][(!"!")[(! 6`ult))][(!!")[(! 6!Z)][3(! 6&! d)[8(! DP_tNoAnswer)]]]]]]][(!"^ww!"Z^)[i(! 6 ! d)[8(! PICResult = Busy)][(!&!"&)[%~(! 6 &! d)[8(! D7[4(! 6x! d)[8(! )]]]]]]]]]]}l)[(! 6)[(! 6d! )]][ (! 6)]]]}(! 6d! d)[8(! DP_tBusyJ PICResult = ARelease)][(!xx!"xx)[%(! 6! d)[8(! DP_tAbandon (DPResult))][&(!xLx~!"x~xDPCause:= BptyBusy_NDUB)][(!L!"L)[ (! 6! d)[8(! RArg!CS1Reason)][T(!FF!"I]]]][(!" @ @X!"@X)[(! 6X! d)[8(! DPResult = SCFRelease)][(!@@ !"@ @)[J)[(! 6!Z)][3<(! 6,! d)[8(! DP_tBusy)]]]]]]]]]]]]][(!"!")[(! 6e!)][)R()]]]]]][d(!"!")[=(! 6 ! d)[8(! DPResult = SCFRelease)][s(!&X!"aX&)[%L(! 6 X! d)[8(! PIC_ _TException)][(!!" )[4U(! 6 ! d)[8(! )]]]]]]@)[%(! 6R@! d)[8(! PIC_ _TException)][(!!")[4(! 6R! d)[8(! )]]]]]]c][4(!"x!"x)[1(! 6L! d)[8(! DPResult = CS_Stop)][:(!!")[47U]]]]]]]]]]]]]]]]]]]]]]}!BCSMId!AddressType := FromAddress, RArg!BCSMId!LegId := LegId)][t (!@!"@)[ (! 6&@! d!)[8(! ReleaseReq (RArg) to E&! d)[8(! DPResult = ARelease)][(!x!"x)[%(! 6&! d)[8(! DP_tAbandon (DPResult))][(!2(! 6d! CS)][`(! )][.(! )[8(! 6 2! (T_BCSM_Out))]][(! 62!)][.(! )[8(! 6 ! (T_BCSM_In))]][(()[(! l! 22!(8)[h(! 6! l4)[k(! 6)[n(! 6,! )]][ q(! 6)][A(!2!)[frl!"rlr:)[%(! 6l! d)[8(! PIC_ _TException)][(!rr!"r4rr)[4(! 6! d)[8(! 6! ,)[8(! PIC_ _TException)][(!!")[4(! 6L! d)[8(! )]]]]]]]]]]}(! 6!)][)w")[%(! 62! d)[8(!' DP_termAttempt_ Authorized (DPResult))][(!L~!"~L)[(! 6~!Z)][|()[w(!GSDL)]}@)[*(! 6@! d!)[8(!# BCSMStop (LegId,LocalParty) to CS)][k (!!")[4h (!()[(! l! 22!(P)[(! l)[(! 6)[(! 6d! )]][ (! 6)]]]} (! 6,! d)[8(! PIC_Pres<)][>(!X:Xl!"XlX:)[(! 6Xl!Z)][35(! 6l! ,)[8(! DP_tDisconnect)]]]]]]][G(!"!"BR )[(! 6&R! d!)[8(! DPAbandon (DP) to CS)][(!!")[(! 6!Z)][3(! 6&o! d)[8(! Wait_T_Abandon)][(!L~!"~L)[(! 6&~! d!)[8(! PICResume /* from SSF */)][ (!t = ARelease)][u(!&X!"X&)[%o(! 6~X! d)[8(! DP_tAbandon (DPResult))][x(!!")[Dd)[8(! PICResult = Busy)][N(!:l!"l:)[%9(! 6,l! d)[8(! DP_tBusy (DPResult))][Q(!!"_6LL! d)[8(! PIC_Select__ Facility)][ y (!"~~!"~~)[j (! 6!)[8(!d A timer expiry upon sending the firsst Circuit Reservation Message or a continuity check failure.)]]]]]]][(!!")[8(! 6 ! BptyBusy_NDUB)][6(! 6! d)[8(! ])[(! 6 ! d)[8(! DPResult = SCFRelease)][!(!x!"x)[%(! 6 ! d)[8(! PIC_ _TException)][$(!x][)()]]]]]][(!"!")[w(! 6&! d)[8(! PICResult = MidCall)][(!:l!"lzR)[8(! 6! else)][%(! 6LR! d)[8(! PIC_T_Null (PICResult))][(!!")[(! 6 (!&XX!"&X)[8(! 6! ELSE)][(! 6!Z)][3p (! 6,! d)[8(! -)]]][ (!@!"r@)[4 (! 6 @! d)[8(! )]]]]]]]]]]]]][(!" 99R!"R )[(! 6&R! )][3(! 6,! d)[8(! DP_tAbandon)]]]]]]][(!"r!"r)[(! 6&! d)[8(! DPResult = SCFRel:)[%(! 6&l! d)[8(! DP_tMidCall (DPResult, true))][(!!")[(! 6!Z)][3(! 6&! }()[(! l! 22!(d)[(! l)[(! 6)[(! 6d! )]][ (! 6 )][9(! 62! )[8(!7 /* Proce3(! 62~! d)[8(! DP_termAttempt_ Authorized)][ (!!")[(! 62! d)[8(! DPResult = Resume)][3d)[8(! DP_tMidCall_ _Active)]]]]]]][(!"rr!"r)[(! 6! d)[8(! PICResult = Exception)][(!r:hrL)[4(! 6~! d)[8(! )]]]]]]][ (!" 9l9lR!"lR )[(! 6R! d)[8(! PICResult = Sult = Success)][B(!:l!"l:)[%-(! 62l! d)[8(! PIC_Present_ _Call (PICResult))][E(!!"()[(! l! 22!(d)[n(! l)[q(! 6)[t(! 6d! )]][ w(! 6)][9(! 6X,! )[8(!* /***** T-BCSM FOR CORE INAP CS-1. *****/)]][9z(! 6! )[8(!% /***** DATA TYPE DEFINITIONS *****/)]][9}(! 6X! )[8(!6 NEWTYPE DPResultType LITERALS Resume, SelectFacility, PresentCall, ARelease, BRelease, MidCall, SCFRelease, /* Used with ReleaseCall. */ Answer, Alerting, DL_A, DL_B, /* Used with DisconnectLeg */ CS_Stop; ENDNEWTYPE; NEWTYPE PICResultType LITERALS Failure, 1:!":)[%(! 6,:! d)[8(! DP_tAbandon (DPResult))][+(!!")[(! 6!Zy!Z)][3(! 6L! d)[8(! PIC_T_Null)]]]]]]]]]][9(! 6^! )[8(!6 /* The BCSM may be started from different states. */)]]]]}!"^PIC_tActive)][(!!")[z(! 62! d)[8(! PICResult = ARelease)][(!:l!"l:)[%(! 62l! d)[8(!% DP_tDisconnect (DPResult, ARelease))][(!!")[(! 6!Z)][3(! 62! d)[8(!"^wxwx!"x^)[o(! 6! d)[8(! PICResult = ARelease)][(!xx&!"x&x)[%Gease)][%(!:!":)[% (! 6&:! d)[8(! PIC_ _TException)][.(!!")[4(! 6&! d)[8(! )]]]]]]]][3(! 6! d)[8(! DP_tNoAnswer)][(!r!"r)[(! 6! d)[8DP_tDisconnect (DPResult, BRelease))][A(!":SXSXl!"Xl:)[(! 6XS!)][)5()]]]]]][(!"FF!"F)[(! 6! ,)[8(! DPResult = SCFRelease)][(!FrF!"FFr)[%(! 6! ,)[8(! PIC_ _TExcep%(! 62! d)[8(! DP_tAnswer (DPResult))][ (!L~!"~L)[(! 6~!Z)][3,(! 62~! d)[8(!  DP_tAnswer)][P(!!")[/(! 62! d)[8(! DPResult = Resume)][S(!x!"x)[%2tion)][(!F:Fl!"FFlF:)[4(! 6l! d)[8(! )]]]]]]][4(!"!")[1(! +(! 6! virtual DP_tAnswer)]][$(! 6&! ^!)[(! 6q! virtual DP_tAbandon)]]]]}(! 6 ! ,)[8(! DP_tBusy)]]]]]]]]]]}terface goes down.[\(!"&??X!"X&)[(! 6?!)][)S()]]]]]]]})[(! 6!)][)S()]]]]]]]}r@)[(! iX&)[(! 6?!)][)1()]]]]]]]}! ,)[8(! DP_tAbandon)]]]]]]]]]]}~ ~R!"~R~ )[(! 6~R!Z)][3QVpCFRelease)][(!"llrr!"rl)[(! 6r!)][)()]]]]]]]]]][(!"^ww!"^)4@!Z)][3'(! 62@! d)[8(! PIC_Select_ _Facility)][?(!!")[*(! 62! d)[8(! virtual PICRes!"L''!"L)[(! 6'!)][) ()]]]]]]]]]})[8(! 6Y_! TrunkGroupBusy)][6. (! 6! d)[8(! DPReason:= TrunkGroupBusy)][ (!2__:x:!"x:)[K (! 6x!)[8(!q For Conventional trunks, SS7-supported trunks, Private facility trunks check all trunks in the selected trunk.)]]][4 (!"@@''!"@)[(! 6F'!)][) ()]]]]]]]][ (!XRR!"XR)[8(! 6k! BptyBusy_UDUB)][6^ (! 6 ! d)[8(! DPCause:= BptyBusy_UDUB)][ p (!"  !"  )[a (! 6 !)[8(!i The call cannot be presented,e.g. ISDN user determined user busy, ISUP release message with busy cause.)]]][ (!"L''!"L,l)[4 (! 6 ! d)[8(! )]]]]]]]]]]]]]]]]}! True)][6 (! 6! d)[8(!< DP!legID := legID, DP!bcsmEvent := termAttempt_ Authorized)][ (!l)[ (! 6 ! d!)[8(!* ReleaseReqInd (RArg) to CS /*to O_BCSM*/)][ (!@r!"r@)[6 (! 6 r! d)[8(!4!5!7)[!(! 1!!3)[!(! 2!!3)[!(! 3!!3)[!(! 4!!3)[!(! 5!!3)[!(! 6!!3)[!(! 7!!3)[!(! 8!!3)]]]]]]]]}(! 9!!3)[! (! 10!!3)[! (! 11!!3)[!d)[8(! StartState)][(! &&R!"&R )[8(! 6?! WaitMidCall)][%Z(! 6R! d)[8(! DP_tMidCall (DPResult, tru (! 6! d)[8(! Terminating_ LineState)][ (! !" )[ (! 6 ! d)[8(! RArg!CS1Cause)]['(!(! 6-!)][)()]]]]][3(! 62! d)[8(! DP_tBusy)][(!r!"r)[(! 62! d)[8(!0(! 6k! SS7_Failure)][6-(! 6L! d)[8(! DPCause:= SS7_Failure)][3(!L!"L)[(! 6L!Z)][g (! rL!"L)[(! 6L!Z)][d (! 62L! d)[8(! T__ Exception)]]]]][0(!XRR!"XR)[8orise_Termination_ Attempt)][ (!"&&~!"&~)[ (! 6~! d!)[8(! DP(DP) to CS)][ (!&&!"&&)[(! 6&!Z)][3 (! 6! d)[8(!) Wait_ _Termination_Attempt_ _Authorised)]]]]]][6(! 6! d)[8(!< DP!legID := legID, DP!bcsmEvent := termAttempt_ Authorized)]][ (! 6~! d)[8(! T_Exception)][ (!"L!"L)[6 (! 6 ! d)[8(! 'Exception handling')][ (!F!"F)[6 (! 6 F! d)[8(! RArg!BCSMId := RemBCSMId)][ (!!"]]]]}(!"~~!"~)[@(! 6! d)[8(! DPResult = CS_Stop)][v(!~&~!"~ ~~&)[4X[8(!D RArg!BCSMId!AddressType := FromAddress, RArg!BCSMId!LegId := LegId)][t (!@!"@)[ (! 6&@! d!)[8(! ReleaseReq (RArg) to &(! 'Clear call')][ (!!")[ (! 6 ! d!)[8(!# BCSMStop (LegId,LocalParty) to CS)][ (!l!"!")[6u (! 6&! d)[8(! RArg!CS1Cause := AptyAbandon)][x (!x!"x)[6q (! 6&! d)(! DPResult = Resume)][(!:!":)[%(! 6:! d)[8(! PIC_ _TException)][(!!"&L&~!"&~&L)[ (! 6~! d!)[8(! DP(DP) to CS)][ (!&&!"&&)[(! 6&!Z)][3 (! 6! d)[8(!) Wait_ _Termination_Attempt_ _Authorised)]]]]]]][ (!!")[8(! 6! False /*termination_denied*/)][6 (! 6 ! d)[8(!# RArg!CS1Cause:= TerminationDenied)][ (!L!"L)[6 (! 6 ! d)[8(! 'Exception han*(! 6&!)][) ()]]][ (! 6~! d)[8(! T_Exception)][ (!"L!"L)[(! 6!)][) ()]]]]]}(! -)]]]]]]]]]]})[8(!& Subsequent_ AddressReq (SAArg) to CS)][W(!R!"R)[(! 6R!Z)][3N(! 6 R! e))][(!&&!"&&)[(! 6&!Z)][3(! 6! d)[8(! DP_tMidCall_ _Active)]]]]][(!R!"v)[(! 6!Z)][30(! 62! d)[8(! PIC_Present_ _Call)]]]]]]][H(!"!")[3(! 6,! q! 6!Z)]][96(! 6&&! )[8(!- /**** VARIABLE AND TIMER DECLARATIONS ****/)]][9t(! 6&! )[8(!T TIMER NoAnswerT := 15000, SuspendT := 3600000; DCL N d)[8(! PICResult = ARelease)][(!!")[%(! 6&! d)[8(! DP_tAbandon (DPResult))][(!L~!"()[(! l! 22!()[(! l)[(! 6)[(! 6d! )]][ (! 6)][3(! 62! d)[8(! DP_tDisc)[4(! 6! d)[8(! )]]]]]]][(!"r!"r)[(! 6~! d)[8(! DPResult = ARelease)][M)[8(!' PIC_Authorize_ _Termination_ _Attempt)][(! R!"R )[(! 62R! d)[8(! PICResult = Success)][(!!j5ize_ _Termination_ _Attempt)][(!,6,&!",&,7)[(! 6&! ,)[88(! PICResult = Success)][(! ()[(! l! 22!(d)[(! l)[(! 6)[(! 6d! )]][ (! 6)][31(! 62,! d)[8(! DP_tMidC>(! DP_tDisconnect)]]]]]]][(!"!")[}(! 6,! d)[8(! PICResult = BRelease)][(!:l!"l:)[%(! 6,l! d)[8(!% DP_tDisconnect (DPResult, BRelease))][(!"!")[(! 6!)u(! 6 R! d)[8(! PICResult = Failure)][(!!")[%(! 6 ! d)[8(! PIC_ _TException)][(!L()[(! l! 22!(P)[h(! l)[(! 6)[A (! 6d! )]][ (! 6)]]]} (! 6d ! d)[8(!$ PIC_Auth~!"~L)[4(! 6 ~! d)[8(! )]]]]]]]]]]]]]]]]}(!!")[(! 6!Z)][3Q(! 6&  X!"X)[(! 6~X! d)[8(! DPResult = ARelease)][(! !" )[%(! 6~ ! d)[8(! DP_tAbandon (DPResult))][(!!")[(! 6!Z)][3(! 6~! d)[8(! DP_tAbandon)]]]^onnect)][(!&!"&)[(! 62&! d)[8(! DPResult = Resume)][(!!")[4(! -(! 62&! d)[8(!3 PIC_Authorize_ _Termination_ _Attempt (PICResult))][{(!!")[(! 6!Z)][3(! 62! d)[8(! PICResult = Exception)][(!rr!"rr)[%(! 6! d)[8(! PIC_ _TException)][)(!rLr~!"rr~~L)[(! 6x~!Z)][3(! 6~! d)[8(! DP_tAbandon)]]]]]]][(!" 9r9rR!"rR )[(! 6R! dr)][(!!")[%(! 6&! d)[8(! DP_tNoAnswer (DPResult))][#(!L~!"~L)[(! ɐRR!"R)[8(! 6k! C_CalledParty_ CallRejected)][6$(! 62! d)[8(!' DPCause:= C_CalledParty_ CallRejected)][*(!~L)[(! 6~!Z)][3(! 6&~! d)[8(! DP_tAbandon)]]]]]]][(!" 99R!"R )[()[(! ! 22!(L)[(! )[(! 6)[(! 6d! )]][ (! 6)][3`(! 62! d)[8(! PIC_Pres8t_ _Call)][&(!!"9)[#(! 62! ,)[8(! PICResult = Exception)][\(! %Sl6~!Z)][3(! 6&~! d)[8(! DP_tNoAnswer)]]]]]]][(!" 9x9xR!"xR )[(! 6R! d)[8(!\()[(! l! 22!(P)[(! l)[(! 6)[(! 6d! )]][ (! 6)]]]}(! 6,! d)[8(! PIC_tAleC(! )]]]]]]][(!"ll!"l)[(! 6! d)[8(! PICResult = SCFRelease)][(!"l:lSrSrl!"rll:)[(! 6rS!)][)()]]]]]]]]]][Y(!"!")[8(! 6,! d)[8(! DPResult = ARelease)][\(!x!"x)[%;(! 6,! d)[8(!% DP_tDisconnect (DPResult, ARelease))][_(!@!"@)[(! 6@!Z)][3>(! 6,@! d)[8(! DP_tDisconnect)]]]]]]][b(!"!")[A(! 6&! d)[8(! DPResult = BRelease)][e(!x!"x)[%D(! 6&! d)[8(!% DP_tDisconnect (DPResult, BRelease))][h(!"''@!"@)[(! 6'!)][)>()]]]]]][k(!"ll!"l)[G(! 6! d)[8(! DPResult = SCFRelease)][n(!lxl!"llx)[%J(! 6! d)[8(! PIC_ _TException)][q(!ll@!"lrl@l)[4M(! 6@! d)[8(! )]]]]]]]]]]]]][(!" 99R!"R )[(! 6&R! d)[8(! PICResult = NoAnswe()[(! l! 22!(w)[`(! l)[c(! 6)[f(! 6d! )]][ i(! 6)][3l(! 62! d)[8(! PIC_T_Nudure definitions for Points In Call (PICs) */)]][$(! 6d! ^)[(! 6! PIC_T_ _Null)]][$(! 6! ^)[(! 6?! PIC_Select_ _Facility)]][$(! 6! ^!)[(! 6! virtual PIC_tActive)]][$(! 6dX! ^)[(! 6q!' PIC_Authorize_ _Termination_ _Attempt)]][$(! 6X! ^!V