455: -- Bug 540962: error count variable needs to be initialized
456:
457: l_error_count := 0;
458:
459: l_cursor := dbms_sql.open_cursor;
460:
461: l_sql_statement :=
462: 'SELECT ct.previous_customer_trx_id previous_customer_trx_id,
463: ct.trx_number trx_number,
474: arp_util.debug('check_tax_and_accounting: ' || 'sql statement: ');
475: arp_util.debug('check_tax_and_accounting: ' || l_sql_statement );
476: END IF;
477:
478: dbms_sql.parse(l_cursor,
479: l_sql_statement,
480: dbms_sql.v7);
481:
482: dbms_sql.define_column(l_cursor, 1, l_previous_customer_trx_id);
476: END IF;
477:
478: dbms_sql.parse(l_cursor,
479: l_sql_statement,
480: dbms_sql.v7);
481:
482: dbms_sql.define_column(l_cursor, 1, l_previous_customer_trx_id);
483: dbms_sql.define_column(l_cursor, 2, l_trx_number, 20);
484: dbms_sql.define_column(l_cursor, 3, l_invoicing_rule_id);
478: dbms_sql.parse(l_cursor,
479: l_sql_statement,
480: dbms_sql.v7);
481:
482: dbms_sql.define_column(l_cursor, 1, l_previous_customer_trx_id);
483: dbms_sql.define_column(l_cursor, 2, l_trx_number, 20);
484: dbms_sql.define_column(l_cursor, 3, l_invoicing_rule_id);
485: dbms_sql.define_column(l_cursor, 4, l_class, 20);
486: dbms_sql.define_column(l_cursor, 5, l_tax_calculation_flag, 1);
479: l_sql_statement,
480: dbms_sql.v7);
481:
482: dbms_sql.define_column(l_cursor, 1, l_previous_customer_trx_id);
483: dbms_sql.define_column(l_cursor, 2, l_trx_number, 20);
484: dbms_sql.define_column(l_cursor, 3, l_invoicing_rule_id);
485: dbms_sql.define_column(l_cursor, 4, l_class, 20);
486: dbms_sql.define_column(l_cursor, 5, l_tax_calculation_flag, 1);
487: dbms_sql.define_column(l_cursor, 6, l_customer_trx_id);
480: dbms_sql.v7);
481:
482: dbms_sql.define_column(l_cursor, 1, l_previous_customer_trx_id);
483: dbms_sql.define_column(l_cursor, 2, l_trx_number, 20);
484: dbms_sql.define_column(l_cursor, 3, l_invoicing_rule_id);
485: dbms_sql.define_column(l_cursor, 4, l_class, 20);
486: dbms_sql.define_column(l_cursor, 5, l_tax_calculation_flag, 1);
487: dbms_sql.define_column(l_cursor, 6, l_customer_trx_id);
488: l_dummy := dbms_sql.execute(l_cursor);
481:
482: dbms_sql.define_column(l_cursor, 1, l_previous_customer_trx_id);
483: dbms_sql.define_column(l_cursor, 2, l_trx_number, 20);
484: dbms_sql.define_column(l_cursor, 3, l_invoicing_rule_id);
485: dbms_sql.define_column(l_cursor, 4, l_class, 20);
486: dbms_sql.define_column(l_cursor, 5, l_tax_calculation_flag, 1);
487: dbms_sql.define_column(l_cursor, 6, l_customer_trx_id);
488: l_dummy := dbms_sql.execute(l_cursor);
489:
482: dbms_sql.define_column(l_cursor, 1, l_previous_customer_trx_id);
483: dbms_sql.define_column(l_cursor, 2, l_trx_number, 20);
484: dbms_sql.define_column(l_cursor, 3, l_invoicing_rule_id);
485: dbms_sql.define_column(l_cursor, 4, l_class, 20);
486: dbms_sql.define_column(l_cursor, 5, l_tax_calculation_flag, 1);
487: dbms_sql.define_column(l_cursor, 6, l_customer_trx_id);
488: l_dummy := dbms_sql.execute(l_cursor);
489:
490:
483: dbms_sql.define_column(l_cursor, 2, l_trx_number, 20);
484: dbms_sql.define_column(l_cursor, 3, l_invoicing_rule_id);
485: dbms_sql.define_column(l_cursor, 4, l_class, 20);
486: dbms_sql.define_column(l_cursor, 5, l_tax_calculation_flag, 1);
487: dbms_sql.define_column(l_cursor, 6, l_customer_trx_id);
488: l_dummy := dbms_sql.execute(l_cursor);
489:
490:
491: LOOP
484: dbms_sql.define_column(l_cursor, 3, l_invoicing_rule_id);
485: dbms_sql.define_column(l_cursor, 4, l_class, 20);
486: dbms_sql.define_column(l_cursor, 5, l_tax_calculation_flag, 1);
487: dbms_sql.define_column(l_cursor, 6, l_customer_trx_id);
488: l_dummy := dbms_sql.execute(l_cursor);
489:
490:
491: LOOP
492: IF (dbms_sql.fetch_rows(l_cursor) > 0)
488: l_dummy := dbms_sql.execute(l_cursor);
489:
490:
491: LOOP
492: IF (dbms_sql.fetch_rows(l_cursor) > 0)
493: THEN
494:
495: dbms_sql.column_value(l_cursor, 1, l_previous_customer_trx_id);
496: dbms_sql.column_value(l_cursor, 2, l_trx_number);
491: LOOP
492: IF (dbms_sql.fetch_rows(l_cursor) > 0)
493: THEN
494:
495: dbms_sql.column_value(l_cursor, 1, l_previous_customer_trx_id);
496: dbms_sql.column_value(l_cursor, 2, l_trx_number);
497: dbms_sql.column_value(l_cursor, 3, l_invoicing_rule_id);
498: dbms_sql.column_value(l_cursor, 4, l_class);
499: dbms_sql.column_value(l_cursor, 5, l_tax_calculation_flag);
492: IF (dbms_sql.fetch_rows(l_cursor) > 0)
493: THEN
494:
495: dbms_sql.column_value(l_cursor, 1, l_previous_customer_trx_id);
496: dbms_sql.column_value(l_cursor, 2, l_trx_number);
497: dbms_sql.column_value(l_cursor, 3, l_invoicing_rule_id);
498: dbms_sql.column_value(l_cursor, 4, l_class);
499: dbms_sql.column_value(l_cursor, 5, l_tax_calculation_flag);
500: dbms_sql.column_value(l_cursor, 6, l_customer_trx_id);
493: THEN
494:
495: dbms_sql.column_value(l_cursor, 1, l_previous_customer_trx_id);
496: dbms_sql.column_value(l_cursor, 2, l_trx_number);
497: dbms_sql.column_value(l_cursor, 3, l_invoicing_rule_id);
498: dbms_sql.column_value(l_cursor, 4, l_class);
499: dbms_sql.column_value(l_cursor, 5, l_tax_calculation_flag);
500: dbms_sql.column_value(l_cursor, 6, l_customer_trx_id);
501:
494:
495: dbms_sql.column_value(l_cursor, 1, l_previous_customer_trx_id);
496: dbms_sql.column_value(l_cursor, 2, l_trx_number);
497: dbms_sql.column_value(l_cursor, 3, l_invoicing_rule_id);
498: dbms_sql.column_value(l_cursor, 4, l_class);
499: dbms_sql.column_value(l_cursor, 5, l_tax_calculation_flag);
500: dbms_sql.column_value(l_cursor, 6, l_customer_trx_id);
501:
502: IF PG_DEBUG in ('Y', 'C') THEN
495: dbms_sql.column_value(l_cursor, 1, l_previous_customer_trx_id);
496: dbms_sql.column_value(l_cursor, 2, l_trx_number);
497: dbms_sql.column_value(l_cursor, 3, l_invoicing_rule_id);
498: dbms_sql.column_value(l_cursor, 4, l_class);
499: dbms_sql.column_value(l_cursor, 5, l_tax_calculation_flag);
500: dbms_sql.column_value(l_cursor, 6, l_customer_trx_id);
501:
502: IF PG_DEBUG in ('Y', 'C') THEN
503: arp_util.debug('check_tax_and_accounting: ' || '');
496: dbms_sql.column_value(l_cursor, 2, l_trx_number);
497: dbms_sql.column_value(l_cursor, 3, l_invoicing_rule_id);
498: dbms_sql.column_value(l_cursor, 4, l_class);
499: dbms_sql.column_value(l_cursor, 5, l_tax_calculation_flag);
500: dbms_sql.column_value(l_cursor, 6, l_customer_trx_id);
501:
502: IF PG_DEBUG in ('Y', 'C') THEN
503: arp_util.debug('check_tax_and_accounting: ' || '');
504: arp_util.debug('check_tax_and_accounting: ' || 'Checking: ');
542: arp_util.debug('check_tax_and_accounting: ' || 'p_error_other_line_number = ' ||
543: l_error_other_line_number);
544: END IF;
545:
546: dbms_sql.close_cursor(l_cursor);
547:
548: IF PG_DEBUG in ('Y', 'C') THEN
549: arp_util.debug('check_tax_and_accounting: ' || 'returning FALSE');
550: arp_util.debug('check_tax_and_accounting: ' ||
558: EXIT;
559: END IF;
560: END LOOP;
561:
562: dbms_sql.close_cursor(l_cursor);
563:
564: IF PG_DEBUG in ('Y', 'C') THEN
565: arp_util.debug('check_tax_and_accounting: ' || 'returning TRUE');
566: arp_util.debug('arp_trx_validate.check_tax_and_accounting()-');
576: arp_util.debug('======= parameters for check_tax_and_accounting: ' ||
577: '=======');
578: arp_util.debug('check_tax_and_accounting: ' || 'p_query_string = ' || p_query_string );
579: END IF;
580: IF (dbms_sql.is_open(l_cursor))
581: THEN dbms_sql.close_cursor(l_cursor);
582: END IF;
583:
584: RAISE;
577: '=======');
578: arp_util.debug('check_tax_and_accounting: ' || 'p_query_string = ' || p_query_string );
579: END IF;
580: IF (dbms_sql.is_open(l_cursor))
581: THEN dbms_sql.close_cursor(l_cursor);
582: END IF;
583:
584: RAISE;
585: