------------------------SDT2 J PIC_Send_Call--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%&()LinkEndpoints--------------------------------!%()PageOrder------------------------------------- /PIC_Send_Call-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(!l Redefined Procedure <> PIC_Send_Call)]}------------------------------------------------------------------------------------------------------------------------------()[(! l! 22!(P)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][3t(! 6d! d)[8(!' Wait_for_ _terminating_ _end_response)][(!^!"^)[w(! 6d! d!)[8(! Service_ FeatureInd (SFtArg))][(!&!"&)[6z(! 6d&! d)[8(! Result := MidCall)][(!!")['}(! 6d! d)[8(! )]]]]]]][(!"^ww!"^)[(! 6! d!)[8(! redefined PIC (PIC))][(!&!"& (!4!5!7)[!(! 1!!3)[!(! 2!!3)[!(! 3!!3)]]]}(! 4!!3)]]]]}--------------------------------------------!%()PageOrder-------------------------------------1------------------------------------------------2------------------------------------------------3------------------------------------------------ &!%()HeadingTextl! 22!(1)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][3t(! 6 ! )[8 Wait_for)[%O(! 6&! d)[8(! MapFromPIC (pic))][R(!!")[ (! 6! d)[8(! PIC! pic)][E(!X R!"RX)[8(! 6! Disconnect_ Leg)][ -(! 6 R! d)[8(! PIC! party)][9(! !"  )[8(! 6! localParty)][60(! 6! d)[8(! Result := DL_A)][?(!L~!"~L)['6(! 6~! d)[8(! )]]]]][<(!!")[8(! 63! remoteParty)][63(! 6! d)[8(! Result := DL_B)][B(!"Lee~!"~L)[(! 6e!)][)6()]]]]]][(!XR!"RX)[8(! 6-! Release_ Call)][6(! 6R! d)[8(! rArg!cause := pic!cause)][(!!")[6(! 6! d)[8(! Result := SCFRelease)][H(!"Lee~!"~L)[(! 6e!)][)6()]]]]]][(! !" )[8(! 6 9! Send_ STUI)][(! 6!Z)][(! 6! d)[8(! Send_ STUI)]]][(!X!"X)[8(! 6'! Else)][6(! 6! d)[8(! 'Error situation')][(!L~!"~L)[(! 6~!Z)][3(! 6~! d)[8(! -)]]]]]]]]]]]][3(! 6d! d)[8(!' Wait_for_ _terminating_ _end_response)][(!x!"x)[(! 6d! d!)[8(! SetCS)][(!@!"@)[6(! 6d@! d)[8(! CS := Sender)][(!4!"4)[(! 64!Z)][3(! 6d4! d)[8(! -)]]]]]]][^(!"x!"x)[U(! 6^! d!)[8(!# SetLegID (currentLegID, newLegID))][[(!@!"@)[6X(! 6^@! d)[8(! obcsmPars! legID := newLegID)][a(!"4!"(()[(! l! 22!(d)[(! l)[(! 6)[(! 6d! )]][ (! 6)][(! 6R,! d)[8(! Send_ STUI)][(!!")[6&(! 6 ! ,)[8(! udArg!infoDirection := pic!infoDirection, udArg!uSIServiceIndicator := pic!uSIServiceIndicator, udArg!uSIInformation := pic!uSIInformation)][)(!X!"X)[ (! 6R! d)[8(! PIC!party)][ (!R^^R!"^RR"r_ _terminating_ _end_response)]]]]]]]]]]]]][(!*!")[8(! 6 ! false)][(! 6!)][)()]]]]]][h(!']]}nse)]]]]]]]]}2)][(!^!"^)[ (! 6^! d)[8(!) callingPartysCategoryPresent(obcsmPars))][(!X!"X! d!)[8(!! DataReq (udArg,senderRef) to CS)][(!L~!"~L)[(! 6~!Z)][)()]]]]]]]]]]]]]}()]]]]]]]]]}6^! d)[8(!" locationNumberPresent(obcsmPars))][(!R!"R)[8(! 6k! true)][6(! 6^! d)[8(!2 SIRArg!locationNumber:= obcsmPars!locationNumber)][(!L!"L)[ (! 6^L! d)[8(!( originalCalledNumberPresent(obcsmPars))][ (!!")[8(! 6! true)][6(! 6^! d)[8(!> SIRArg!originalCalledNumber:= obcsmPars!originalCalledNumber)][(!F!!"F)[ (! 6^! d)[8(!. userTeleserviceInformationPresent(obcsmPars))][(!@!"@)[8(! 6'7)[8(! 6w! remoteParty)][6(! 6R! d)[8(!. udArg!callRef := O2I(First(obcsmPars!legID)))][(!^^!"^^)[(! 6#! d!)[8(!7 DataReq_ Ind(UDArg,,obcsmPars!legID, senderRef) to CS)][ (!!")[(! 6!)[8(! To remote Party)]]]$[#(!"^L^ee~!"~^L)[(! 6e!)][3(! 6R~! d)[8(! -)]]]]]]][ (!R!"%R)[8(! 6! localParty)][6(! 6RR! d)[8(! udArg!callRef := sigConID)][(!!")[(! 6R()[(! l! 22!(t)[,(! l)[/(! 6)[2(! 6d! )]][ 5(! 6)][&8(! 6! d)[8(! redefine,L !" L)[8(! 6-! true)][(! 6 !Z)][3G(! 6 ! d)[8(!' Wait_for_ _terminating_ _end_response)]]]]]]4)[(! 6!)][)()]]]]]][(!"x!"x)[(! 6X! d!)[8(! DataIn)d (udArg))][(!@!"@)[6(! 6X@! d)[8(! dpUTSIArg!party := localParty)][(!!")[6*(! 6&! ,)[8(! dpUTSIArg! legID:=obcsmPars!legID, dpUTSIArg!uSIServiceIndicator:= udArg!uSIServiceIndicator, dpUTSIArg!uSIInformation := udArg!uSIInformation)][(!l!"3 d)[8(!0 SIRArg!callingParty_ Number := obcsmPars! cgPN)][(!!")[6(! 6! d)[8(!f sirArg!callRef :=O2I(First(obcsmPars!leg1d)][_(!&X!"X&)[ A(! 6X! d)[8(! Reinvoke)][ b(!!")[>(! 6X!-)[8(! In IN CS-2 the call processing may temporarily exit the SendCall PIC (e.g. due to a ServiceFeatureInd generating a MidCall DP). When call processing resumes, the PIC SendCall is reinvoked. This should not generate a new SetupReqI.nd.)]]][e(! !" )[8(! 6! False)][6D(! 6 ! d)[8(! setupSent := True)][k(!!"0()[w(!GSDL)]}-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------)[ (! 6! d)[8(! cgPNPresent (obcsmPars))][(!L!"L)[8(! 63! true)][6(! 6L! +ID)), sirArg!calledPartyNumber := obcsmPars!routingInfo!cdPN)][(!Fx!"xF)[%:(! 6x! d)[8(! MapToSIRArg (sirArg))][@(!2!")[6(! 6! d)[8(! 'Send stored STUI with Setup')][(!r!"r)[Y(! 6! d!6l)[(! 6X! d!)[8(! DPUTSI (dpUTSIArg) to CS)][(!"4!"4)[(! 6!)][4)()]]]]]]]]]][(!"x!"x)[(! 6! d!)[8(! DataReqInd (UDArg))][(!@!"5@)[6(! 6@! d)[8(! dpUTSIArg!party := remoteParty)][(!"!")[(! 6!)][))[8(!/ SetupReqInd (SIRArg,, obcsmPars!legID) to CS)][}(!:!":)[(! 6:!Z)][3\(! 6:! d)[8(!' Wait_fo! true)][6(! 6^@! d)[8(!J SIRArg!userTeleserviceInformation:= obcsmPars!userTeleserviceInformation)][(!!")[ (! 6^! 8 d)[8(!! genericNumberPresent(obcsmPars))][(!:l!"l:)[8(! 6S! true)][6(! 6^l! d)[8(!0 SIRArg!genericN9umber:= obcsmPars!genericNumber)][(!!")[(! 6!Z)][(! 6^! d)[8(! MAPPING_CONTPIC12)]]]]][(!*^:dd!"^)[8(! 6}!! false)][(! 6!)][)()]]]]]][(!*^dd!";^)[8(! 6}! false)][(! 6!)][)()]]]]]][(!*^~d~d!"^~)[8(! 6}! fals(! MAPPING_CONTPIC12)][ (!^!"^)[ (! 6! d)[8(!) forwardCallIndicatorsPresent(obcsmPars))][ (!&!"?&)[8(! 6- ! true)][6(! 6&! d)[8(!@ SIRArg!forwardCallIndicators:= obcsmPars!forwardCallIndicators)][(!R!"R@)[ (! 6R! d)[8(!% redirectingNumberPresent(obcsmPars))][(!!")[8(! 6-! true)][6(! 6! A d)[8(!8 SIRArg!redirectingNumber:= obcsmPars!redirectingNumber)][(!L~!"~L)[ (! 6~! d)[8(!* redirectingInformationPresent(obcBsmPars))][(!!")[8(! 6-! true)][6(! 6! d)[8(!B SIRArg!redirectingInformation:= obcsmPars!redirectingInformation)][C(!x!"x)[ (! 6! d)[8(!' uSIServiceIndicatorPresent(obcsmPars))][(!@!"@)[8D(! 6-'! true)][6(! 6@! d)[8(!< SIRArg!uSIServiceIndicator:= obcsmPars!uSIServiceIndicator)]["(!!")[ (! 6!E d)[8(!" uSIInformationPresent(obcsmPars))][%(!:l!"l:)[8(! 6-S! true)][6(! 6l! d)[8(!2 SIRArg!uSIIFnformation:= obcsmPars!uSIInformation)][((!!")[(! 6!Z)][(! 6! d)[8(! SEND_SETUPREQIND2)]]]]][+(!*G!")[8(! 6!! false)][(! 6!)][)()]]]]]][.(!*!"H)[8(! 6! false)][(! 6!)][)()]]]]]][1(!*!")[8(! 6!I false)][(! 6!)][)()]]]]]][4(!*ee~!"~)[8(! 6! false)][(! 6e!)][)J()]]]]]][7(!*  R!"R)[8(! 6! false)][(! 6 !)][)()]]]]]]]}--------------------------------------------