230: row_count NUMBER; -- Number of rows returned by fetch
231: tax_csegs VARCHAR2(750); -- Holds concatenated segments
232: message VARCHAR2(250);
233: BEGIN
234: dbms_sql.bind_variable(ccid_cursor, ':tax_ccid', non_bal_tax_ccid);
235: dbms_sql.bind_variable(ccid_cursor, ':eff_date', journal_eff_date);
236: dbms_sql.bind_variable(ccid_cursor, ':bal_seg_val', bal_seg_val);
237: dbms_sql.bind_variable(ccid_cursor, ':coa_id', coa_id);
238:
231: tax_csegs VARCHAR2(750); -- Holds concatenated segments
232: message VARCHAR2(250);
233: BEGIN
234: dbms_sql.bind_variable(ccid_cursor, ':tax_ccid', non_bal_tax_ccid);
235: dbms_sql.bind_variable(ccid_cursor, ':eff_date', journal_eff_date);
236: dbms_sql.bind_variable(ccid_cursor, ':bal_seg_val', bal_seg_val);
237: dbms_sql.bind_variable(ccid_cursor, ':coa_id', coa_id);
238:
239: row_count := dbms_sql.execute_and_fetch(ccid_cursor);
232: message VARCHAR2(250);
233: BEGIN
234: dbms_sql.bind_variable(ccid_cursor, ':tax_ccid', non_bal_tax_ccid);
235: dbms_sql.bind_variable(ccid_cursor, ':eff_date', journal_eff_date);
236: dbms_sql.bind_variable(ccid_cursor, ':bal_seg_val', bal_seg_val);
237: dbms_sql.bind_variable(ccid_cursor, ':coa_id', coa_id);
238:
239: row_count := dbms_sql.execute_and_fetch(ccid_cursor);
240:
233: BEGIN
234: dbms_sql.bind_variable(ccid_cursor, ':tax_ccid', non_bal_tax_ccid);
235: dbms_sql.bind_variable(ccid_cursor, ':eff_date', journal_eff_date);
236: dbms_sql.bind_variable(ccid_cursor, ':bal_seg_val', bal_seg_val);
237: dbms_sql.bind_variable(ccid_cursor, ':coa_id', coa_id);
238:
239: row_count := dbms_sql.execute_and_fetch(ccid_cursor);
240:
241: IF (row_count = 0) THEN
235: dbms_sql.bind_variable(ccid_cursor, ':eff_date', journal_eff_date);
236: dbms_sql.bind_variable(ccid_cursor, ':bal_seg_val', bal_seg_val);
237: dbms_sql.bind_variable(ccid_cursor, ':coa_id', coa_id);
238:
239: row_count := dbms_sql.execute_and_fetch(ccid_cursor);
240:
241: IF (row_count = 0) THEN
242: fnd_message.set_name('SQLGL', 'GL_CTAX_BAD_TAX_CCID');
243: fnd_message.set_token('TAX_CODE', tax_code);
244: app_exception.raise_exception;
245: END IF;
246:
247:
248: dbms_sql.column_value(ccid_cursor, 1, tax_ccid);
249: dbms_sql.column_value(ccid_cursor, 2, tax_csegs);
250:
251: bad_acct := FALSE;
252: bad_csegs := null;
245: END IF;
246:
247:
248: dbms_sql.column_value(ccid_cursor, 1, tax_ccid);
249: dbms_sql.column_value(ccid_cursor, 2, tax_csegs);
250:
251: bad_acct := FALSE;
252: bad_csegs := null;
253: IF (tax_ccid IS NULL) THEN
289: build_selects(coa_id => coa_id,
290: calculation_level => calculation_level);
291:
292: -- Setup the lines cursor
293: lines_cursor := dbms_sql.open_cursor;
294: dbms_sql.parse(lines_cursor, line_select, dbms_sql.v7);
295: dbms_sql.define_column(lines_cursor, 1, next_line_num);
296: dbms_sql.define_column(lines_cursor, 2, next_eff_date);
297: dbms_sql.define_column(lines_cursor, 3, next_ent_dr);
290: calculation_level => calculation_level);
291:
292: -- Setup the lines cursor
293: lines_cursor := dbms_sql.open_cursor;
294: dbms_sql.parse(lines_cursor, line_select, dbms_sql.v7);
295: dbms_sql.define_column(lines_cursor, 1, next_line_num);
296: dbms_sql.define_column(lines_cursor, 2, next_eff_date);
297: dbms_sql.define_column(lines_cursor, 3, next_ent_dr);
298: dbms_sql.define_column(lines_cursor, 4, next_ent_cr);
291:
292: -- Setup the lines cursor
293: lines_cursor := dbms_sql.open_cursor;
294: dbms_sql.parse(lines_cursor, line_select, dbms_sql.v7);
295: dbms_sql.define_column(lines_cursor, 1, next_line_num);
296: dbms_sql.define_column(lines_cursor, 2, next_eff_date);
297: dbms_sql.define_column(lines_cursor, 3, next_ent_dr);
298: dbms_sql.define_column(lines_cursor, 4, next_ent_cr);
299: dbms_sql.define_column(lines_cursor, 5, next_rounding_rule, 1);
292: -- Setup the lines cursor
293: lines_cursor := dbms_sql.open_cursor;
294: dbms_sql.parse(lines_cursor, line_select, dbms_sql.v7);
295: dbms_sql.define_column(lines_cursor, 1, next_line_num);
296: dbms_sql.define_column(lines_cursor, 2, next_eff_date);
297: dbms_sql.define_column(lines_cursor, 3, next_ent_dr);
298: dbms_sql.define_column(lines_cursor, 4, next_ent_cr);
299: dbms_sql.define_column(lines_cursor, 5, next_rounding_rule, 1);
300: dbms_sql.define_column(lines_cursor, 6, next_description, 250);
293: lines_cursor := dbms_sql.open_cursor;
294: dbms_sql.parse(lines_cursor, line_select, dbms_sql.v7);
295: dbms_sql.define_column(lines_cursor, 1, next_line_num);
296: dbms_sql.define_column(lines_cursor, 2, next_eff_date);
297: dbms_sql.define_column(lines_cursor, 3, next_ent_dr);
298: dbms_sql.define_column(lines_cursor, 4, next_ent_cr);
299: dbms_sql.define_column(lines_cursor, 5, next_rounding_rule, 1);
300: dbms_sql.define_column(lines_cursor, 6, next_description, 250);
301: dbms_sql.define_column(lines_cursor, 7, next_incl_tax, 1);
294: dbms_sql.parse(lines_cursor, line_select, dbms_sql.v7);
295: dbms_sql.define_column(lines_cursor, 1, next_line_num);
296: dbms_sql.define_column(lines_cursor, 2, next_eff_date);
297: dbms_sql.define_column(lines_cursor, 3, next_ent_dr);
298: dbms_sql.define_column(lines_cursor, 4, next_ent_cr);
299: dbms_sql.define_column(lines_cursor, 5, next_rounding_rule, 1);
300: dbms_sql.define_column(lines_cursor, 6, next_description, 250);
301: dbms_sql.define_column(lines_cursor, 7, next_incl_tax, 1);
302: dbms_sql.define_column(lines_cursor, 8, next_tax_type, 1);
295: dbms_sql.define_column(lines_cursor, 1, next_line_num);
296: dbms_sql.define_column(lines_cursor, 2, next_eff_date);
297: dbms_sql.define_column(lines_cursor, 3, next_ent_dr);
298: dbms_sql.define_column(lines_cursor, 4, next_ent_cr);
299: dbms_sql.define_column(lines_cursor, 5, next_rounding_rule, 1);
300: dbms_sql.define_column(lines_cursor, 6, next_description, 250);
301: dbms_sql.define_column(lines_cursor, 7, next_incl_tax, 1);
302: dbms_sql.define_column(lines_cursor, 8, next_tax_type, 1);
303: dbms_sql.define_column(lines_cursor, 9, next_tax_code_id);
296: dbms_sql.define_column(lines_cursor, 2, next_eff_date);
297: dbms_sql.define_column(lines_cursor, 3, next_ent_dr);
298: dbms_sql.define_column(lines_cursor, 4, next_ent_cr);
299: dbms_sql.define_column(lines_cursor, 5, next_rounding_rule, 1);
300: dbms_sql.define_column(lines_cursor, 6, next_description, 250);
301: dbms_sql.define_column(lines_cursor, 7, next_incl_tax, 1);
302: dbms_sql.define_column(lines_cursor, 8, next_tax_type, 1);
303: dbms_sql.define_column(lines_cursor, 9, next_tax_code_id);
304: dbms_sql.define_column(lines_cursor, 10, next_bal_seg_val, 25);
297: dbms_sql.define_column(lines_cursor, 3, next_ent_dr);
298: dbms_sql.define_column(lines_cursor, 4, next_ent_cr);
299: dbms_sql.define_column(lines_cursor, 5, next_rounding_rule, 1);
300: dbms_sql.define_column(lines_cursor, 6, next_description, 250);
301: dbms_sql.define_column(lines_cursor, 7, next_incl_tax, 1);
302: dbms_sql.define_column(lines_cursor, 8, next_tax_type, 1);
303: dbms_sql.define_column(lines_cursor, 9, next_tax_code_id);
304: dbms_sql.define_column(lines_cursor, 10, next_bal_seg_val, 25);
305:
298: dbms_sql.define_column(lines_cursor, 4, next_ent_cr);
299: dbms_sql.define_column(lines_cursor, 5, next_rounding_rule, 1);
300: dbms_sql.define_column(lines_cursor, 6, next_description, 250);
301: dbms_sql.define_column(lines_cursor, 7, next_incl_tax, 1);
302: dbms_sql.define_column(lines_cursor, 8, next_tax_type, 1);
303: dbms_sql.define_column(lines_cursor, 9, next_tax_code_id);
304: dbms_sql.define_column(lines_cursor, 10, next_bal_seg_val, 25);
305:
306: -- Setup the ccid cursor
299: dbms_sql.define_column(lines_cursor, 5, next_rounding_rule, 1);
300: dbms_sql.define_column(lines_cursor, 6, next_description, 250);
301: dbms_sql.define_column(lines_cursor, 7, next_incl_tax, 1);
302: dbms_sql.define_column(lines_cursor, 8, next_tax_type, 1);
303: dbms_sql.define_column(lines_cursor, 9, next_tax_code_id);
304: dbms_sql.define_column(lines_cursor, 10, next_bal_seg_val, 25);
305:
306: -- Setup the ccid cursor
307: ccid_cursor := dbms_sql.open_cursor;
300: dbms_sql.define_column(lines_cursor, 6, next_description, 250);
301: dbms_sql.define_column(lines_cursor, 7, next_incl_tax, 1);
302: dbms_sql.define_column(lines_cursor, 8, next_tax_type, 1);
303: dbms_sql.define_column(lines_cursor, 9, next_tax_code_id);
304: dbms_sql.define_column(lines_cursor, 10, next_bal_seg_val, 25);
305:
306: -- Setup the ccid cursor
307: ccid_cursor := dbms_sql.open_cursor;
308: dbms_sql.parse(ccid_cursor, ccid_select, dbms_sql.v7);
303: dbms_sql.define_column(lines_cursor, 9, next_tax_code_id);
304: dbms_sql.define_column(lines_cursor, 10, next_bal_seg_val, 25);
305:
306: -- Setup the ccid cursor
307: ccid_cursor := dbms_sql.open_cursor;
308: dbms_sql.parse(ccid_cursor, ccid_select, dbms_sql.v7);
309: dbms_sql.define_column(ccid_cursor, 1, tax_ccid);
310: dbms_sql.define_column(ccid_cursor, 2, tax_csegs, 750);
311: END define_cursor;
304: dbms_sql.define_column(lines_cursor, 10, next_bal_seg_val, 25);
305:
306: -- Setup the ccid cursor
307: ccid_cursor := dbms_sql.open_cursor;
308: dbms_sql.parse(ccid_cursor, ccid_select, dbms_sql.v7);
309: dbms_sql.define_column(ccid_cursor, 1, tax_ccid);
310: dbms_sql.define_column(ccid_cursor, 2, tax_csegs, 750);
311: END define_cursor;
312:
305:
306: -- Setup the ccid cursor
307: ccid_cursor := dbms_sql.open_cursor;
308: dbms_sql.parse(ccid_cursor, ccid_select, dbms_sql.v7);
309: dbms_sql.define_column(ccid_cursor, 1, tax_ccid);
310: dbms_sql.define_column(ccid_cursor, 2, tax_csegs, 750);
311: END define_cursor;
312:
313: PROCEDURE bind_cursor(header_id NUMBER) IS
306: -- Setup the ccid cursor
307: ccid_cursor := dbms_sql.open_cursor;
308: dbms_sql.parse(ccid_cursor, ccid_select, dbms_sql.v7);
309: dbms_sql.define_column(ccid_cursor, 1, tax_ccid);
310: dbms_sql.define_column(ccid_cursor, 2, tax_csegs, 750);
311: END define_cursor;
312:
313: PROCEDURE bind_cursor(header_id NUMBER) IS
314: BEGIN
311: END define_cursor;
312:
313: PROCEDURE bind_cursor(header_id NUMBER) IS
314: BEGIN
315: dbms_sql.bind_variable(lines_cursor, ':header', header_id);
316: END bind_cursor;
317:
318: PROCEDURE execute_cursor IS
319: dummy NUMBER;
320: BEGIN
321: -- Setup everything for the fetch
322: no_next_record := FALSE;
323: first_time := TRUE;
324: dummy := dbms_sql.execute(lines_cursor);
325: END execute_cursor;
326:
327: PROCEDURE fetch_cursor(coa_id NUMBER,
328: lgr_id NUMBER,
377: IF ( (first_time)
378: OR (calculation_level = 'L')
379: ) THEN
380:
381: row_count := dbms_sql.fetch_rows(lines_cursor);
382: IF (row_count = 0) THEN
383: no_more_records := TRUE;
384: RETURN;
385: END IF;
384: RETURN;
385: END IF;
386:
387: -- Get a journal line
388: dbms_sql.column_value(lines_cursor, 1, line_num);
389: dbms_sql.column_value(lines_cursor, 2, eff_date);
390: dbms_sql.column_value(lines_cursor, 3, ent_dr);
391: dbms_sql.column_value(lines_cursor, 4, ent_cr);
392: dbms_sql.column_value(lines_cursor, 5, rounding_rule);
385: END IF;
386:
387: -- Get a journal line
388: dbms_sql.column_value(lines_cursor, 1, line_num);
389: dbms_sql.column_value(lines_cursor, 2, eff_date);
390: dbms_sql.column_value(lines_cursor, 3, ent_dr);
391: dbms_sql.column_value(lines_cursor, 4, ent_cr);
392: dbms_sql.column_value(lines_cursor, 5, rounding_rule);
393: dbms_sql.column_value(lines_cursor, 6, description);
386:
387: -- Get a journal line
388: dbms_sql.column_value(lines_cursor, 1, line_num);
389: dbms_sql.column_value(lines_cursor, 2, eff_date);
390: dbms_sql.column_value(lines_cursor, 3, ent_dr);
391: dbms_sql.column_value(lines_cursor, 4, ent_cr);
392: dbms_sql.column_value(lines_cursor, 5, rounding_rule);
393: dbms_sql.column_value(lines_cursor, 6, description);
394: dbms_sql.column_value(lines_cursor, 7, incl_tax);
387: -- Get a journal line
388: dbms_sql.column_value(lines_cursor, 1, line_num);
389: dbms_sql.column_value(lines_cursor, 2, eff_date);
390: dbms_sql.column_value(lines_cursor, 3, ent_dr);
391: dbms_sql.column_value(lines_cursor, 4, ent_cr);
392: dbms_sql.column_value(lines_cursor, 5, rounding_rule);
393: dbms_sql.column_value(lines_cursor, 6, description);
394: dbms_sql.column_value(lines_cursor, 7, incl_tax);
395: dbms_sql.column_value(lines_cursor, 8, tax_type);
388: dbms_sql.column_value(lines_cursor, 1, line_num);
389: dbms_sql.column_value(lines_cursor, 2, eff_date);
390: dbms_sql.column_value(lines_cursor, 3, ent_dr);
391: dbms_sql.column_value(lines_cursor, 4, ent_cr);
392: dbms_sql.column_value(lines_cursor, 5, rounding_rule);
393: dbms_sql.column_value(lines_cursor, 6, description);
394: dbms_sql.column_value(lines_cursor, 7, incl_tax);
395: dbms_sql.column_value(lines_cursor, 8, tax_type);
396: dbms_sql.column_value(lines_cursor, 9, tax_code_id);
389: dbms_sql.column_value(lines_cursor, 2, eff_date);
390: dbms_sql.column_value(lines_cursor, 3, ent_dr);
391: dbms_sql.column_value(lines_cursor, 4, ent_cr);
392: dbms_sql.column_value(lines_cursor, 5, rounding_rule);
393: dbms_sql.column_value(lines_cursor, 6, description);
394: dbms_sql.column_value(lines_cursor, 7, incl_tax);
395: dbms_sql.column_value(lines_cursor, 8, tax_type);
396: dbms_sql.column_value(lines_cursor, 9, tax_code_id);
397: dbms_sql.column_value(lines_cursor, 10, bal_seg_val);
390: dbms_sql.column_value(lines_cursor, 3, ent_dr);
391: dbms_sql.column_value(lines_cursor, 4, ent_cr);
392: dbms_sql.column_value(lines_cursor, 5, rounding_rule);
393: dbms_sql.column_value(lines_cursor, 6, description);
394: dbms_sql.column_value(lines_cursor, 7, incl_tax);
395: dbms_sql.column_value(lines_cursor, 8, tax_type);
396: dbms_sql.column_value(lines_cursor, 9, tax_code_id);
397: dbms_sql.column_value(lines_cursor, 10, bal_seg_val);
398:
391: dbms_sql.column_value(lines_cursor, 4, ent_cr);
392: dbms_sql.column_value(lines_cursor, 5, rounding_rule);
393: dbms_sql.column_value(lines_cursor, 6, description);
394: dbms_sql.column_value(lines_cursor, 7, incl_tax);
395: dbms_sql.column_value(lines_cursor, 8, tax_type);
396: dbms_sql.column_value(lines_cursor, 9, tax_code_id);
397: dbms_sql.column_value(lines_cursor, 10, bal_seg_val);
398:
399: -- Get the base tax rate and ccid
392: dbms_sql.column_value(lines_cursor, 5, rounding_rule);
393: dbms_sql.column_value(lines_cursor, 6, description);
394: dbms_sql.column_value(lines_cursor, 7, incl_tax);
395: dbms_sql.column_value(lines_cursor, 8, tax_type);
396: dbms_sql.column_value(lines_cursor, 9, tax_code_id);
397: dbms_sql.column_value(lines_cursor, 10, bal_seg_val);
398:
399: -- Get the base tax rate and ccid
400: zx_gl_tax_options_pkg.get_tax_rate_and_account
393: dbms_sql.column_value(lines_cursor, 6, description);
394: dbms_sql.column_value(lines_cursor, 7, incl_tax);
395: dbms_sql.column_value(lines_cursor, 8, tax_type);
396: dbms_sql.column_value(lines_cursor, 9, tax_code_id);
397: dbms_sql.column_value(lines_cursor, 10, bal_seg_val);
398:
399: -- Get the base tax rate and ccid
400: zx_gl_tax_options_pkg.get_tax_rate_and_account
401: (1.0, lgr_id, org_id, tax_type, tax_code_id,
473:
474: -- If the calculation level is journal, then
475: -- fetch the next row
476: IF (calculation_level <> 'L') THEN
477: row_count := dbms_sql.fetch_rows(lines_cursor);
478: IF (row_count = 0) THEN
479: no_next_record := TRUE;
480: END IF;
481:
478: IF (row_count = 0) THEN
479: no_next_record := TRUE;
480: END IF;
481:
482: dbms_sql.column_value(lines_cursor, 1, next_line_num);
483: dbms_sql.column_value(lines_cursor, 2, next_eff_date);
484: dbms_sql.column_value(lines_cursor, 3, next_ent_dr);
485: dbms_sql.column_value(lines_cursor, 4, next_ent_cr);
486: dbms_sql.column_value(lines_cursor, 5, next_rounding_rule);
479: no_next_record := TRUE;
480: END IF;
481:
482: dbms_sql.column_value(lines_cursor, 1, next_line_num);
483: dbms_sql.column_value(lines_cursor, 2, next_eff_date);
484: dbms_sql.column_value(lines_cursor, 3, next_ent_dr);
485: dbms_sql.column_value(lines_cursor, 4, next_ent_cr);
486: dbms_sql.column_value(lines_cursor, 5, next_rounding_rule);
487: dbms_sql.column_value(lines_cursor, 6, next_description);
480: END IF;
481:
482: dbms_sql.column_value(lines_cursor, 1, next_line_num);
483: dbms_sql.column_value(lines_cursor, 2, next_eff_date);
484: dbms_sql.column_value(lines_cursor, 3, next_ent_dr);
485: dbms_sql.column_value(lines_cursor, 4, next_ent_cr);
486: dbms_sql.column_value(lines_cursor, 5, next_rounding_rule);
487: dbms_sql.column_value(lines_cursor, 6, next_description);
488: dbms_sql.column_value(lines_cursor, 7, next_incl_tax);
481:
482: dbms_sql.column_value(lines_cursor, 1, next_line_num);
483: dbms_sql.column_value(lines_cursor, 2, next_eff_date);
484: dbms_sql.column_value(lines_cursor, 3, next_ent_dr);
485: dbms_sql.column_value(lines_cursor, 4, next_ent_cr);
486: dbms_sql.column_value(lines_cursor, 5, next_rounding_rule);
487: dbms_sql.column_value(lines_cursor, 6, next_description);
488: dbms_sql.column_value(lines_cursor, 7, next_incl_tax);
489: dbms_sql.column_value(lines_cursor, 8, next_tax_type);
482: dbms_sql.column_value(lines_cursor, 1, next_line_num);
483: dbms_sql.column_value(lines_cursor, 2, next_eff_date);
484: dbms_sql.column_value(lines_cursor, 3, next_ent_dr);
485: dbms_sql.column_value(lines_cursor, 4, next_ent_cr);
486: dbms_sql.column_value(lines_cursor, 5, next_rounding_rule);
487: dbms_sql.column_value(lines_cursor, 6, next_description);
488: dbms_sql.column_value(lines_cursor, 7, next_incl_tax);
489: dbms_sql.column_value(lines_cursor, 8, next_tax_type);
490: dbms_sql.column_value(lines_cursor, 9, next_tax_code_id);
483: dbms_sql.column_value(lines_cursor, 2, next_eff_date);
484: dbms_sql.column_value(lines_cursor, 3, next_ent_dr);
485: dbms_sql.column_value(lines_cursor, 4, next_ent_cr);
486: dbms_sql.column_value(lines_cursor, 5, next_rounding_rule);
487: dbms_sql.column_value(lines_cursor, 6, next_description);
488: dbms_sql.column_value(lines_cursor, 7, next_incl_tax);
489: dbms_sql.column_value(lines_cursor, 8, next_tax_type);
490: dbms_sql.column_value(lines_cursor, 9, next_tax_code_id);
491: dbms_sql.column_value(lines_cursor, 10, next_bal_seg_val);
484: dbms_sql.column_value(lines_cursor, 3, next_ent_dr);
485: dbms_sql.column_value(lines_cursor, 4, next_ent_cr);
486: dbms_sql.column_value(lines_cursor, 5, next_rounding_rule);
487: dbms_sql.column_value(lines_cursor, 6, next_description);
488: dbms_sql.column_value(lines_cursor, 7, next_incl_tax);
489: dbms_sql.column_value(lines_cursor, 8, next_tax_type);
490: dbms_sql.column_value(lines_cursor, 9, next_tax_code_id);
491: dbms_sql.column_value(lines_cursor, 10, next_bal_seg_val);
492: END IF;
485: dbms_sql.column_value(lines_cursor, 4, next_ent_cr);
486: dbms_sql.column_value(lines_cursor, 5, next_rounding_rule);
487: dbms_sql.column_value(lines_cursor, 6, next_description);
488: dbms_sql.column_value(lines_cursor, 7, next_incl_tax);
489: dbms_sql.column_value(lines_cursor, 8, next_tax_type);
490: dbms_sql.column_value(lines_cursor, 9, next_tax_code_id);
491: dbms_sql.column_value(lines_cursor, 10, next_bal_seg_val);
492: END IF;
493:
486: dbms_sql.column_value(lines_cursor, 5, next_rounding_rule);
487: dbms_sql.column_value(lines_cursor, 6, next_description);
488: dbms_sql.column_value(lines_cursor, 7, next_incl_tax);
489: dbms_sql.column_value(lines_cursor, 8, next_tax_type);
490: dbms_sql.column_value(lines_cursor, 9, next_tax_code_id);
491: dbms_sql.column_value(lines_cursor, 10, next_bal_seg_val);
492: END IF;
493:
494: -- Determine if the current record is the last one in its
487: dbms_sql.column_value(lines_cursor, 6, next_description);
488: dbms_sql.column_value(lines_cursor, 7, next_incl_tax);
489: dbms_sql.column_value(lines_cursor, 8, next_tax_type);
490: dbms_sql.column_value(lines_cursor, 9, next_tax_code_id);
491: dbms_sql.column_value(lines_cursor, 10, next_bal_seg_val);
492: END IF;
493:
494: -- Determine if the current record is the last one in its
495: -- group
566: END fetch_cursor;
567:
568: PROCEDURE close_cursor IS
569: BEGIN
570: dbms_sql.close_cursor(lines_cursor);
571: dbms_sql.close_cursor(ccid_cursor);
572: END close_cursor;
573:
574: END GL_CALCULATE_TAX2_PKG;
567:
568: PROCEDURE close_cursor IS
569: BEGIN
570: dbms_sql.close_cursor(lines_cursor);
571: dbms_sql.close_cursor(ccid_cursor);
572: END close_cursor;
573:
574: END GL_CALCULATE_TAX2_PKG;