27: is
28:
29: icvalue varchar2(25);
30:
31: l_segment_array FND_FLEX_EXT.SEGMENTARRAY;
32: l_number_of_segments NUMBER;
33: l_delimiter VARCHAR2(1);
34: l_chart_of_accounts_id NUMBER;
35: l_concatenated_segments gl_code_combinations_kfv.concatenated_segments%TYPE;
42: INTO l_concatenated_segments, l_chart_of_accounts_id
43: FROM gl_code_combinations_kfv
44: WHERE code_combination_id = ccid;
45:
46: l_delimiter := fnd_flex_ext.get_delimiter('SQLGL', 'GL#', l_chart_of_accounts_id);
47:
48: l_number_of_segments := fnd_flex_ext.breakup_segments(l_concatenated_segments,
49: l_delimiter,
50: l_segment_array);
44: WHERE code_combination_id = ccid;
45:
46: l_delimiter := fnd_flex_ext.get_delimiter('SQLGL', 'GL#', l_chart_of_accounts_id);
47:
48: l_number_of_segments := fnd_flex_ext.breakup_segments(l_concatenated_segments,
49: l_delimiter,
50: l_segment_array);
51: icvalue := l_segment_array(intercompany_column_number);
52: return icvalue;
218: intercompany_seg_val IN VARCHAR2,
219: bal_seg_column_number IN NUMBER,
220: intercompany_column_number IN NUMBER,
221: gl_date IN DATE) RETURN NUMBER IS
222: l_segment_array FND_FLEX_EXT.SEGMENTARRAY;
223: l_flag BOOLEAN;
224: l_no_of_segments NUMBER;
225: l_ccid NUMBER;
226: l_rule VARCHAR2(1000);
262: 'APPL=SQLGL;NAME=GL_NO_PARENT_SEGMENT_ALLOWED\nN\0' ||
263: 'GL_GLOBAL\nDETAIL_POSTING_ALLOWED' ||
264: '\nI\n' ||
265: 'APPL=SQLGL;NAME=GL_JE_POSTING_NOT_ALLOWED\nY';
266: l_delimiter := fnd_flex_ext.get_delimiter('SQLGL', 'GL#', chart_of_accounts_id);
267: l_flag := fnd_flex_ext.get_segments('SQLGL', 'GL#', chart_of_accounts_id, ccid,
268: l_no_of_segments, l_segment_array);
269: IF l_flag = FALSE THEN
270: IF (FND_LOG.LEVEL_ERROR >= g_debug_level) THEN
263: 'GL_GLOBAL\nDETAIL_POSTING_ALLOWED' ||
264: '\nI\n' ||
265: 'APPL=SQLGL;NAME=GL_JE_POSTING_NOT_ALLOWED\nY';
266: l_delimiter := fnd_flex_ext.get_delimiter('SQLGL', 'GL#', chart_of_accounts_id);
267: l_flag := fnd_flex_ext.get_segments('SQLGL', 'GL#', chart_of_accounts_id, ccid,
268: l_no_of_segments, l_segment_array);
269: IF l_flag = FALSE THEN
270: IF (FND_LOG.LEVEL_ERROR >= g_debug_level) THEN
271: l_error_message := FND_FLEX_KEYVAL.ERROR_MESSAGE;
284: AND bal_seg_column_number <> intercompany_column_number
285: THEN
286: l_segment_array(intercompany_column_number) := intercompany_seg_val;
287: END IF;
288: l_cat_segs := fnd_flex_ext.concatenate_segments(l_no_of_segments, l_segment_array, l_delimiter);
289: l_flag := fnd_flex_keyval.validate_segs('CREATE_COMBINATION','SQLGL',
290: 'GL#', chart_of_accounts_id, l_cat_segs,
291: 'V', gl_date, 'ALL', NULL, l_rule, l_where_clause,
292: l_get_column, FALSE, FALSE,
319: bal_seg_val IN VARCHAR2,
320: intercompany_seg_val IN VARCHAR2,
321: bal_seg_column_number IN NUMBER,
322: intercompany_column_number IN NUMBER) RETURN VARCHAR2 IS
323: l_segment_array FND_FLEX_EXT.SEGMENTARRAY;
324: l_flag BOOLEAN;
325: l_no_of_segments NUMBER;
326: l_delimiter VARCHAR2(1);
327: l_cat_segs VARCHAR2(2000);
334: l_ccid := -ccid;
335: ELSE
336: l_ccid := ccid;
337: END IF;
338: l_delimiter := fnd_flex_ext.get_delimiter('SQLGL', 'GL#', chart_of_accounts_id);
339: l_flag := fnd_flex_ext.get_segments('SQLGL', 'GL#', chart_of_accounts_id, l_ccid,
340: l_no_of_segments, l_segment_array);
341: IF ccid < 0 THEN
342: l_segment_array(bal_seg_column_number) := bal_seg_val;
335: ELSE
336: l_ccid := ccid;
337: END IF;
338: l_delimiter := fnd_flex_ext.get_delimiter('SQLGL', 'GL#', chart_of_accounts_id);
339: l_flag := fnd_flex_ext.get_segments('SQLGL', 'GL#', chart_of_accounts_id, l_ccid,
340: l_no_of_segments, l_segment_array);
341: IF ccid < 0 THEN
342: l_segment_array(bal_seg_column_number) := bal_seg_val;
343: IF intercompany_column_number IS NOT NULL THEN
343: IF intercompany_column_number IS NOT NULL THEN
344: l_segment_array(intercompany_column_number) := intercompany_seg_val;
345: END IF;
346: END IF;
347: l_cat_segs := fnd_flex_ext.concatenate_segments(l_no_of_segments, l_segment_array, l_delimiter);
348: RETURN l_cat_segs;
349: ELSE
350: RETURN NULL;
351: END IF;