[Home] [Help]
42: P_ORG_ID IN NUMBER,
43: P_CCID OUT NOCOPY VARCHAR2,
44: P_ERROR_MESSAGE OUT NOCOPY VARCHAR2)
45: IS
46: l_segments FND_FLEX_EXT.SEGMENTARRAY;
47: l_code_combination_id NUMBER;
48: l_num_segments NUMBER;
49: l_flex_segment_number NUMBER;
50: l_cc_flex_segment_number NUMBER;
114: ----------------------------------------
115: l_debug_info := 'Get Segment Delimiter';
116: ----------------------------------------
117:
118: l_flex_segment_delimiter := FND_FLEX_EXT.GET_DELIMITER(
119: 'SQLGL',
120: 'GL#',
121: l_chart_of_accounts_id);
122:
160: l_debug_info := 'Get ccid account segments';
161: -----------------------------------------------------------------
162: if (nvl(P_CODE_COMBINATION_ID,-1) <> -1) then
163:
164: IF (NOT FND_FLEX_EXT.GET_SEGMENTS(
165: 'SQLGL',
166: 'GL#',
167: l_chart_of_accounts_id,
168: P_CODE_COMBINATION_ID,
193:
194: --------------------------------------------------------------
195: l_debug_info := 'Retrieve new ccid with overlaid segments';
196:
197: l_concatenated_segments := FND_FLEX_EXT.concatenate_segments(l_num_segments,
198: l_segments,
199: l_flex_segment_delimiter);
200:
201: IF (NOT AP_CARD_UTILITY_PKG.GET_COMBINATION_ID(
228: p_key_flex_code IN VARCHAR2,
229: p_structure_number IN NUMBER,
230: p_validation_date IN DATE,
231: p_n_segments IN NUMBER,
232: p_segments IN fnd_flex_ext.SegmentArray,
233: p_concatSegments IN VARCHAR2,
234: p_combination_id OUT NOCOPY NUMBER,
235: p_return_error_message IN OUT NOCOPY VARCHAR2) RETURN BOOLEAN IS
236: -------------------------------------------------------------------------------
453: L_DEFAULT_EMP_CCID NUMBER;
454: L_FLEX_SEGMENT_DELIMITER VARCHAR2(1);
455: L_FLEX_SEGMENT_NUMBER NUMBER;
456: L_NUM_SEGMENTS NUMBER;
457: L_DEFAULT_EMP_SEGMENTS FND_FLEX_EXT.SEGMENTARRAY;
458: L_CONCATENATED_SEGMENTS VARCHAR2(2000);
459: L_APPCOL_NAME FND_ID_FLEX_SEGMENTS_VL.APPLICATION_COLUMN_NAME%TYPE;
460: L_SEG_NAME FND_ID_FLEX_SEGMENTS_VL.SEGMENT_NAME%TYPE;
461: L_PROMPT FND_ID_FLEX_SEGMENTS_VL.FORM_LEFT_PROMPT%TYPE;
503: l_chart_of_accounts_id := l_ou_chart_of_accounts_id;
504:
505: -- Get the character used as the segment delimiter. This would be
506: -- used to prepare the concatenated segment from segment array to a string.
507: l_flex_segment_delimiter := FND_FLEX_EXT.GET_DELIMITER(
508: 'SQLGL',
509: 'GL#',
510: l_chart_of_accounts_id);
511:
522: end if;
523:
524: -- Get the segment array and number of segments for the employee
525: -- code combination id.
526: if (NOT FND_FLEX_EXT.GET_SEGMENTS(
527: 'SQLGL',
528: 'GL#',
529: l_chart_of_accounts_id,
530: l_default_emp_ccid,
571:
572: -- Get the concatenated segments with all segments set to null, except the
573: -- costcenter, Concatenates segments from segment array
574: -- (l_default_emp_segments) to a string(l_concatenated_segments).
575: l_concatenated_segments := FND_FLEX_EXT.concatenate_segments(l_num_segments,
576: l_default_emp_segments,
577: l_flex_segment_delimiter);
578:
579: /* -----------------------------------------------------------------------+