------------------------SDT2 KdPIC_Send_Call--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()HeadingText----------------------------------- APIC_Send_Call-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!a ;FPAR IN/OUT Result PICResultType, IN Reinvoke Boolean; /* Note: Used for IN CS-2. */)]}-----------------------------------------------------------------------------------------------------------------------------------------w()[8(!j Virtual Procedure <> PIC_Send_Call)]}--------------------------------------------------------------------------------------------------------------------------------()[(! l! 22!()[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][&t(! 6,! d)[8(! virtual) !%()HeadingText-----------------------------------!%()PageOrder-------------------------------------%2------------------------------------------------2-------------------------------------------------  !%()HeaderText------------------------------------1()PageOrder------------------------------------------------------------------------------------------------------------------------------------------- ------------------------(!4!5!7)[!(! 1!!3)[!(! 2!!3)[!(! 3!!3)[!(! 4!!3)]]]]}(! 5!!3)]]]]]}][(!!")[6z(! 6! d)[8(! setupSent := True)][(!&X!"X&)[ (! 6X ! d)[8(! cgPNPresent (obcsmPars))][(!!")[8(! 6! true)][6(! 6! d)[8(!0 SIRArg!callingPa rty_ Number := obcsmPars! cgPN)][(!R!"R)[6}(! 6! d)[8(!g SIRArg!callRef := O2I(First(obcsmPars!legID)), SIRArg!calledPartyNumber := obcsmPars!ro8()[(! l! 22!(n)[(! l)[(! 6)[(! 6d! )]][ (! 6)][3(! 6^! d)[8(!( Wait_for _ _terminating_ _end_response)][ ^(!^!"^)[[(! 6^!)[8(! Continued on next page.)]]][(!&!"&)[(! 6&! d!)[8(! SetupResp_ Conf (SCRArg))][((!!")[6%(! 6! d)[8(! Result := Answer)][(!" XX!"X )[(! 6X!)]['(! 6! d)[8(! )]]]]]]][(!"XX&!"X&)[(! 6&! d!)[8(! CallProgress_ ReqInd (CPArg))][(!XX!"XX)[ (! 6! d)[8(! CPArg!cause)][(!R!"R)[8(! 63! No_ Indication)][6(! 6R! d)[8(! CPArg!cause :=NoIndication)][(!!")[6(! 6! d)[8(! CPArg!callRef :=sigConID)][(!L~!"~L)[(! 6~! d!)[8(!! CallProgress_ Req (CPArg) to CS)][ (!!")[(! 6!Z)][3(! 6! d)[8(! -)]]]]]]]]][(!X X!"XX )[8(! 6q9! Bpty_ Alerted)][6(! 6! d)[8(! alertingSent := true)][(!XX!"XX)[6(! 6! d)[8(! Result := Alerting)]["(!X~X!"XX~)[)()]]]]]][(!*!")[8(! 6 9! else)][(! 6!)][)()]]]]]][(!"rr&!"r&)[(! 6&! d!)[8(! Release_ ReqInd (RArg))][(!rr!"rr)[6(! 6! d)[8(!) cause := rArg!cause, setupSent := False)][(!r rR!"rRr )[(! 6rR!Z)][(! 6R! d)[8(! Release_ Analysis)]]]]]]]]]]}ysis)]]]]]]]]]]}s)]]]]()[(! l! 22!(F)[1(! l)[4(! 6)[7(! 6d! )]][ :(! 6)][3d(! 6! d)[8(!( Wait_for2)[8(!! CallProgress_ Req (3rg) to CS)][ (!!"4)[6(!56! d)[8(! SE !!_ _terminating_ _end_response)][ g(!!")[a(! 6!)[8(! Continued from previous page.)]]][j(!^^&!"^&^)[=(! 6&! d!)[8(!7 Subsequent_ AddressInd (SAArg), AddressEndInd (AEArg))][L(!^^!"^^)[6@(! 6! d)[8(! 'Buffer digits')][O(!^ ^R!"^R^ )[ C(! 6R! ,)[8(!A 'Enough significant digits received to be sent to remote party')][R(!^^L!"^L^)[8(! 6w! 'Yes')][6(! 6L! d)[8(!. saArg!callRef := O2I(First(obcsmPars!legID)))][(!^^!"^^)[F(! 6! d!)[8(!: Subsequent_ AddressReqInd (SAArg,,obcsmPars!legID) to CS)][X(!^F^!"^^F)[(! 6 ^!Z)][3I(! 6! d)[8(! -)]]]]]]][U(!*^^!"^)[8(! 6! 'No')][(! 6^5()[(! 4! 22!(e)[(! 4)[(! 6)[(! 6d! )]][ (! 6)][9p(! 6! )[8(! /* Rout"eFailure1 is detected when a route is busy at the SSF; RouteFailure2 is detected when a route is busy at a node other than the SSF; RouteFailure is received from the terminating call portion. */)]][9s(! 6! )[8(!#\ /* BptyBusy_NDUB event occurs when e.g. an indication of a T_Busy event specifying user busy is received from the terminating portion of the call (i.e network-determined-user-busy), while theBptyBusy_UDUB event occurs when an indication of a Cal$l Rejected event specifying user busy is received from the terminating portion of the call. */)]][m(! 62! d)[8(! Release_ Analysis)][(!&X!"X&)[% v(! 62X! d)[8(! cause)][(! !" )[8(! 6! tException)][6(! 62 ! d)[8(! Resul&t := Failure)][(!!")['(! 62! d)[8(! )]]]]][(! !" )[8(! '6 ! RouteFailure1, RouteFailure2)][ (! 6 ! d)[8(! routeListPresent (obcsmPars))][(!XRR!"XR)[8(! 6k! (true)][ (! 6&! ,)[8(!@ routeIx = Length (obcsmPars!routeList) /*All routes handled?*/)][(!&~!"~&)[8(! 6! true)])[6(! 6^~! d)[8(! routeIx := 1)][(!",,F!",F)[(! 6,!)][ (! 6F! ,)[8*(!, cdPNIx = numOfCDPNs /*All CDPNs handled?*/)][(!,,!",,)[8(! 6E! false)][6(! 6! d)[8(!F cdPNIx := cdPNIx+1 /*+Mark next CDPN as destination routing address*/)][(!,r,!",,r)[6(! 6! d)[8(!! Result := Analyse_marked_ _CDPN)][(!,,:!",,:,)['(! 6:! d)[8(! )]]]]]]][(!",,&&!"&,)[8(! 6?! true)][6 (! -6! d)[8(! Result := Failure)][(!"&r&!,!,:!",:&r)[(! 6,!!)][)()]]]]]]]][(!L~!".~L)[8(! 6e! false)][6(! 6X~! d)[8(! routeIx := routeIx+1)][(!!")[6(! 6X/! d)[8(! Result := Select_next_ _Route)][(!"x!,!,:!",:x)[(! 6&!!)][)()]]]]]]]][(!R,0R,F!",FR)[8(! 6Ek! false)][)()]]]][(! !" )[8(! 63! bPtyBusyNDUB, bPtyBusyUDUB)][16(! 6 ! d)[8(! routeIx := 1)][(!F!"F)[ (! 6F! ,)[8(!, cdPNIx = numOfCDPNs /*All CDPNs handled?*/)]2[(!!")[8(! 63! false)][6(! 6! d)[8(!F cdPNIx := cdPNIx+1 /*Mark next CDPN as destination routing address*/)][3(!r!"r)[6(! 6! d)[8(!! Result := Analyse_marked_ _CDPN)][(!"!,!,:!",:)[4(! 6!!)][)()]]]]]][(!!")[8(! 6'! true)][(! 6!)][6(! 6! H!)][)I()]]]]]]]][B(!"^^  &!"&^)[3(! 6&! d!)[8(! Release_ Ind (RArg))][ <(!RXX6!"X XRX)[6(! 6&!)[8(!% The calling party has disconnected.)]]][?(!!")[69(! 6! d)7[8(! Result := ARelease)][H(! R!"R )['E(! 6R! d)[8(! )]]]]]]][(!"^^  &!"&:utingInfo!cdPN)][(!!")[%(! 6! d)[8(! MapToSIRArg (SIRArg))][(!~!"~)[9(! 6! d!)[8(!/ SetupReqInd (SIRArg,, obcsmPars!legID) to CS)][(!F!"F)[(! 6F!Z)][3(! 6F?^)[W(! 6~&! d!)[8(! virtual PIC (PIC))][l(!!")[ Z(! 6~! d)[8(! PIC! pic;)][o(! !" )[8(! 69! Release_ Call)][6](! 6~! d)[8(! Result := SCFRelease)][x(!!"<)[6(! 6~! d)[8(! rArg!cause := pic!cause)][(!~!"~)['f(! 6~! d)[8(! )]]=]]]]][r(!F!"F)[8(! 6! OException)][6`(! 6x! d)[8(! Result := Exception)][{(!">!")[(! 6!)][)f()]]]][u(!F!"F)[8(! 6! Else)][6c(! 6rG! d)[8(!' Wait_for_ _terminating_ _end_response)]]]]]]]]]]][(!*kk!")[8(! 6 ! false)][(! 6k!@)][)}()]]]]]]]]]}()]]]]]]]]]}! d)[8(! BCSM_MAPPING_SETUPREQIND)]][(! 6FL! d)[8(! SEND_SETUPREQIND)]]]]} 6Fl! ,)[8(!' Wait_for_ _te()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------rminating_ _end_response)]]]]]]]]}d)[8(! BCSM_MAPPING_SETUPREQIND)]]]]]]][(!*LXLX__x!"xL)[8(! 6qe! false)][(! 6_"C!)][)}()]]]]]][(!Lrr!"rL)[8(! 6! true)][(! 6r!Z)][3(! 6! ,)[8(!'D Wait_for_ _terminating_ _end_response)]]]]]]]][9(! 6d! )[8(! DCL Reinvoke Boolean;)]][(! 6x! d)[8(! SEND_SETUPREQIND)][(!@r!"Er@)[(! 6xr! d!)[8(!/ SetupReqInd (SIRArg,, obcsmPars!legID) to CS)][(!l!"l)[(! 6l!FZ)][3(! 6Fl! ,)[8(!' Wait_for_ _terminating_ _end_response)]]]]]]]]}---------------------------------------------------------------------------------------------------------------------------------------yb! d)[8(! 'Error situation')][~(!!")[(! 6!Z)][3i(! 6r! d)[8(! -)]]]]]]]]]]]]}CSM_MAPd)[8(! Result := Busy)][!(!"r!,!,:!",:r)[(! 6!!)][)()]]]]]]]][(!FF !"F I)[8(! 6_! BptyNo_ Answer)][6*(! 6 ! d)[8(! Result := NoAnswer)][0(!FF!"FF)['-(! 6! J d)[8(! )]]]]][(!!")[8(! 6'! else)][)()]]]]]]]}]]}6k! true)][6(! 6^! d)[8(!2 SIRArg!locationNumber:= obcsmPars!locationNumber)][(!L!"L)[ (! 6^L! d)[8(!( originalCalledNumberPresent(obcsmPars))][(L!!")[8(! 6! true)][6(! 6^! d)[8(!> SIRArg!originalCalledNumber:= obcsmPars!originalCalledNumber)][ (!FM!"F)[ (! 6^! d)[8(!. userTeleserviceInformationPresent(obcsmPars))][(!@!"@)[8(! 6'N! true)][6(! 6^@! d)[8(!J SIRArg!userTeleserviceInformation:= obcsmPars!userTeleserviceInformation)][(!!")[ (! 6^! O d)[8(!! genericNumberPresent(obcsmPars))][(!:l!"l:)[8(! 6S! true)][6(! 6^l! d)[8(!0 SIRArg!genericNuPmber:= obcsmPars!genericNumber)][(!!")[(! 6!Z)][(! 6^! d)[8(! MAPPING_CONTPIC1)]]]]][(!*^Qdd!"^)[8(! 6}!! false)][(! 6!)][)()]]]]]][(!*^dd!"R^)[8(! 6}! false)][(! 6!)][)()]]]]]][ (!*^~d~d!"^~)[8(! 6}! false)S][(! 6!)][)()]]]]]][#(!*^ d d33L!"L^ )[8(! 69! false)][(! 63!)][)()]]]T]]][&(!*^dd!"^)[8(! 6}! false)][(! 6!)][)()]]]]][)(! 6! d)[8(U! MAPPING_CONTPIC1)][S(!^!"^)[ ,(! 6! d)[8(!) forwardCallIndicatorsPresent(obcsmPars))][V(!&!"V&)[8(! 6- ! true)][6/(! 6&! d)[8(!@ SIRArg!forwardCallIndicators:= obcsmPars!forwardCallIndicators)][(!R!"RW)[ 8(! 6R! d)[8(!% redirectingNumberPresent(obcsmPars))][b(!!")[8(! 6-! true)][6;(! 6! Xd)[8(!8 SIRArg!redirectingNumber:= obcsmPars!redirectingNumber)][e(!L~!"~L)[ >(! 6~! d)[8(!* redirectingInformationPresent(obcsmPYars))][h(!!")[8(! 6-! true)][6A(! 6! d)[8(!B SIRArg!redirectingInformation:= obcsmPars!redirectingInformation)][kZ(!x!"x)[ D(! 6! d)[8(!' uSIServiceIndicatorPresent(obcsmPars))][n(!@!"@)[8([! 6-'! true)][6G(! 6@! d)[8(!< SIRArg!uSIServiceIndicator:= obcsmPars!uSIServiceIndicator)][q(!!")[ J(! 6! \ d)[8(!" uSIInformationPresent(obcsmPars))][t(!:l!"l:)[8(! 6-S! true)][6M(! 6l! d)[8(!2 SIRArg!uSIInfo]rmation:= obcsmPars!uSIInformation)][w(!!")[(! 6!Z)][P(! 6! d)[8(! SEND_SETUPREQIND)]]]]][z(!*^!")[8(! 6!! false)][(! 6!)][)P()]]]]]][}(!*!"_)[8(! 6! false)][(! 6!)][)J()]]]]]][(!*!")[8(! 6! fa`lse)][(! 6!)][)D()]]]]]][(!*ee~!"~)[8(! 6! false)][(! 6e!)][)>(a)]]]]]][(!*  R!"R)[8(! 6! false)][(! 6 !)][)8()]]]]]]]}()]]]]]][ (!*^~d~Bd!"^~)[8(! 6}! false)][(! 6!)][)()]]]]]][#(!*^ d d33L!"L^c )[8(! 69! false)][(! 63!)][)()]]]]]][&(!*^dd!"^)[8(! 6}! false)][d(! 6!)][)()]]]]]]]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------5