------------------------SDT2ProcessOriginateCall--------------------------------------------------------------------------------------------------------------------------------------------------------ObjectName----------------------------------------ObjectType----------------------------------------!%()HeaderText------------------------------------!%()HeadingText----------------------------------- ProcessOriginateCall-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------()[8(! ; fpar OCArg OriginateCallArg;)]}}---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6()[8(! Procedure ProcessOriginateCall)]}----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------6()[(! l! 22!(P)[h(! l)[k(! 6)[n(! 6d! )]][ q(! 6)][&t(! 6&! d)[8(! )][}!%()HeadingText-----------------------------------!%()PageOrder-------------------------------------1---------------------------------------------------------------------------------------------------- ------------!%()HeaderText--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------(!,^!"^,)[6z(! 6^! ,)[8(!, LegIdTable (OCArg!legToBeCreated) := True)][(!&!"&)[  (! 6&! )[8(! RoutingInformation_ Present)][(!R!"R)[8(! 6! false)][6(! 6R! )[8( !q PIC!legID := OCArg!legToBeCreated, PIC!pic := CollectInformation, PIC!calledPartyNumber := OCArg! calledPartyID)][(!L!"L)[(! 6L! !)[8 (! PIC(PIC) to CS)][(!!")['(! 6&! d)[8(! )]]]]]]][(!RFFR!"FRR) [8(! 6_! true)][6(! 6~R! )[8(!q PIC!legID := OCArg!legToBeCreated, PIC!pic := AnalyseInformation, PIC!calledPartyNumber := OCArg! calledPartyID)][(!FFL!" FLF)[(! 6~L! !)[8(! PIC(PIC) to CS)][(!"FF--!"F)[(! 6-!)][)(!4!5!7)[!(! 1!!3)]}--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------P()]]]]]]]]]]][9(! 6! )[8(!W DCL RoutingInformationPresent Boolean := FALSE; /* For simulation purposes only. */)]][9(! 62! )[8(! DCL PIC PICArg;)]]]]}! )[8(! DCL PIC PICArg;)]]]]}-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------