126: p_chart_of_accts IN VARCHAR2) return NUMBER IS
127:
128:
129: l_nsegs number;
130: l_passed_segs_array fnd_flex_ext.SegmentArray;
131: l_db_segs_array_low fnd_flex_ext.SegmentArray;
132: l_db_segs_array_high fnd_flex_ext.SegmentArray;
133: i number;
134: -- 1 stands for account in the range, 0 stands for account NOT in range.
127:
128:
129: l_nsegs number;
130: l_passed_segs_array fnd_flex_ext.SegmentArray;
131: l_db_segs_array_low fnd_flex_ext.SegmentArray;
132: l_db_segs_array_high fnd_flex_ext.SegmentArray;
133: i number;
134: -- 1 stands for account in the range, 0 stands for account NOT in range.
135: in_range number := 1;
128:
129: l_nsegs number;
130: l_passed_segs_array fnd_flex_ext.SegmentArray;
131: l_db_segs_array_low fnd_flex_ext.SegmentArray;
132: l_db_segs_array_high fnd_flex_ext.SegmentArray;
133: i number;
134: -- 1 stands for account in the range, 0 stands for account NOT in range.
135: in_range number := 1;
136:
148: --AP_LOGGING_PKG.AP_End_Block(debug_loc);
149: --AP_LOGGING_PKG.AP_End_Log;
150:
151:
152: -- Call fnd_flex_ext.breakup_segments to break up segments
153: l_nsegs := fnd_flex_ext.breakup_segments
154: (concatenated_segs => p_passed_concat_segs,
155: delimiter => g_delimiter,
156: segments => l_passed_segs_array);
149: --AP_LOGGING_PKG.AP_End_Log;
150:
151:
152: -- Call fnd_flex_ext.breakup_segments to break up segments
153: l_nsegs := fnd_flex_ext.breakup_segments
154: (concatenated_segs => p_passed_concat_segs,
155: delimiter => g_delimiter,
156: segments => l_passed_segs_array);
157:
167: END IF;
168: RETURN in_range;
169:
170:
171: l_nsegs := fnd_flex_ext.breakup_segments
172: (concatenated_segs => p_db_concat_segs_low,
173: delimiter => g_delimiter,
174: segments => l_db_segs_array_low);
175:
172: (concatenated_segs => p_db_concat_segs_low,
173: delimiter => g_delimiter,
174: segments => l_db_segs_array_low);
175:
176: l_nsegs := fnd_flex_ext.breakup_segments
177: (concatenated_segs => p_db_concat_segs_high,
178: delimiter => g_delimiter,
179: segments => l_db_segs_array_high);
180:
308:
309: l_chart_of_accts gl_sets_of_books.chart_of_accounts_id%TYPE;
310: l_delimiter varchar2(1);
311: l_nsegs number;
312: l_form_segs_array_low fnd_flex_ext.SegmentArray;
313: l_form_segs_array_high fnd_flex_ext.SegmentArray;
314: l_db_segs_array_low fnd_flex_ext.SegmentArray;
315: l_db_segs_array_high fnd_flex_ext.SegmentArray;
316: i number;
309: l_chart_of_accts gl_sets_of_books.chart_of_accounts_id%TYPE;
310: l_delimiter varchar2(1);
311: l_nsegs number;
312: l_form_segs_array_low fnd_flex_ext.SegmentArray;
313: l_form_segs_array_high fnd_flex_ext.SegmentArray;
314: l_db_segs_array_low fnd_flex_ext.SegmentArray;
315: l_db_segs_array_high fnd_flex_ext.SegmentArray;
316: i number;
317: -- 1 stands for overlapping, 0 stands for NOT overlapping
310: l_delimiter varchar2(1);
311: l_nsegs number;
312: l_form_segs_array_low fnd_flex_ext.SegmentArray;
313: l_form_segs_array_high fnd_flex_ext.SegmentArray;
314: l_db_segs_array_low fnd_flex_ext.SegmentArray;
315: l_db_segs_array_high fnd_flex_ext.SegmentArray;
316: i number;
317: -- 1 stands for overlapping, 0 stands for NOT overlapping
318: account_overlap number :=1;
311: l_nsegs number;
312: l_form_segs_array_low fnd_flex_ext.SegmentArray;
313: l_form_segs_array_high fnd_flex_ext.SegmentArray;
314: l_db_segs_array_low fnd_flex_ext.SegmentArray;
315: l_db_segs_array_high fnd_flex_ext.SegmentArray;
316: i number;
317: -- 1 stands for overlapping, 0 stands for NOT overlapping
318: account_overlap number :=1;
319:
333: FROM gl_sets_of_books,ap_system_parameters_all
334: WHERE gl_sets_of_books.set_of_books_id = ap_system_parameters_all.set_of_books_id;
335:
336:
337: -- Call fnd_flex_ext.get_delimiter to get delimiter
338:
339:
340: l_delimiter := fnd_flex_ext.get_delimiter
341: (application_short_name => 'SQLGL',
336:
337: -- Call fnd_flex_ext.get_delimiter to get delimiter
338:
339:
340: l_delimiter := fnd_flex_ext.get_delimiter
341: (application_short_name => 'SQLGL',
342: key_flex_code => 'GL#',
343: structure_number => l_chart_of_accts);
344:
342: key_flex_code => 'GL#',
343: structure_number => l_chart_of_accts);
344:
345:
346: -- Call fnd_flex_ext.breakup_segments to break up segments
347:
348:
349: l_nsegs := fnd_flex_ext.breakup_segments
350: (concatenated_segs => p_form_concat_segs_low,
345:
346: -- Call fnd_flex_ext.breakup_segments to break up segments
347:
348:
349: l_nsegs := fnd_flex_ext.breakup_segments
350: (concatenated_segs => p_form_concat_segs_low,
351: delimiter => l_delimiter,
352: segments => l_form_segs_array_low);
353:
351: delimiter => l_delimiter,
352: segments => l_form_segs_array_low);
353:
354:
355: l_nsegs := fnd_flex_ext.breakup_segments
356: (concatenated_segs => p_form_concat_segs_high,
357: delimiter => l_delimiter,
358: segments => l_form_segs_array_high);
359:
359:
360:
361:
362:
363: l_nsegs := fnd_flex_ext.breakup_segments
364: (concatenated_segs => p_db_concat_segs_low,
365: delimiter => l_delimiter,
366: segments => l_db_segs_array_low);
367:
365: delimiter => l_delimiter,
366: segments => l_db_segs_array_low);
367:
368:
369: l_nsegs := fnd_flex_ext.breakup_segments
370: (concatenated_segs => p_db_concat_segs_high,
371: delimiter => l_delimiter,
372: segments => l_db_segs_array_high);
373:
749:
750: -- initialize;
751: g_chart_of_accts := p_chart_of_accounts_id;
752:
753: -- Call fnd_flex_ext.get_delimiter to get delimiter
754:
755: g_delimiter := fnd_flex_ext.get_delimiter
756: (application_short_name => 'SQLGL',
757: key_flex_code => 'GL#',
751: g_chart_of_accts := p_chart_of_accounts_id;
752:
753: -- Call fnd_flex_ext.get_delimiter to get delimiter
754:
755: g_delimiter := fnd_flex_ext.get_delimiter
756: (application_short_name => 'SQLGL',
757: key_flex_code => 'GL#',
758: structure_number => g_chart_of_accts);
759:
786: FETCH c_get_match_on_tax_flag into l_match_on_tax_flag;
787: CLOSE c_get_match_on_tax_flag;
788: == */
789:
790: lp_concatenate := fnd_flex_ext.get_segs
791: ('SQLGL','GL#', g_chart_of_accts, p_code_combination_id);
792:
793: IF lp_concatenate is null then
794: lp_concatenate := p_concatenated_segments;
845: OPEN c_chart_of_accts;
846: FETCH c_chart_of_accts INTO g_chart_of_accts;
847: CLOSE c_chart_of_accts;
848:
849: -- Call fnd_flex_ext.get_delimiter to get delimiter
850:
851: g_delimiter := fnd_flex_ext.get_delimiter
852: (application_short_name => 'SQLGL',
853: key_flex_code => 'GL#',
847: CLOSE c_chart_of_accts;
848:
849: -- Call fnd_flex_ext.get_delimiter to get delimiter
850:
851: g_delimiter := fnd_flex_ext.get_delimiter
852: (application_short_name => 'SQLGL',
853: key_flex_code => 'GL#',
854: structure_number => g_chart_of_accts);
855: