764: l_flex_segment_delimiter varchar2(1);
765: l_concatenated_segments varchar2(2000);
766: l_debug_info varchar2(2000);
767:
768: l_cp_clearing_account_segments FND_FLEX_EXT.SEGMENTARRAY;
769: l_default_emp_segments FND_FLEX_EXT.SEGMENTARRAY;
770:
771: BEGIN
772:
765: l_concatenated_segments varchar2(2000);
766: l_debug_info varchar2(2000);
767:
768: l_cp_clearing_account_segments FND_FLEX_EXT.SEGMENTARRAY;
769: l_default_emp_segments FND_FLEX_EXT.SEGMENTARRAY;
770:
771: BEGIN
772:
773: -- Bug: 11743748
821: -----------------------------------------------------------------
822: l_debug_info := 'Get employee default ccid account segments';
823: -----------------------------------------------------------------
824: IF (l_default_emp_ccid IS NOT NULL) THEN
825: IF (NOT FND_FLEX_EXT.GET_SEGMENTS(
826: 'SQLGL',
827: 'GL#',
828: l_chart_of_accounts_id,
829: l_default_emp_ccid,
837: -----------------------------------------------------------------
838: l_debug_info := 'Get card program clearing account segments';
839: -----------------------------------------------------------------
840: IF (l_expense_clearing_ccid IS NOT NULL) THEN
841: IF (NOT FND_FLEX_EXT.GET_SEGMENTS(
842: 'SQLGL',
843: 'GL#',
844: l_chart_of_accounts_id,
845: l_expense_clearing_ccid,
870:
871: ----------------------------------------
872: l_debug_info := 'Get Segment Delimiter like .';
873: ----------------------------------------
874: l_flex_segment_delimiter := FND_FLEX_EXT.GET_DELIMITER(
875: 'SQLGL',
876: 'GL#',
877: l_chart_of_accounts_id);
878:
883:
884: --------------------------------------------------------------
885: l_debug_info := 'Get Concatenate segments to retrieve new clearing ccid';
886: --------------------------------------------------------------
887: l_concatenated_segments := FND_FLEX_EXT.concatenate_segments(l_num_segments,
888: l_cp_clearing_account_segments,
889: l_flex_segment_delimiter);
890:
891: ------------------------------------------------------------------------