490: PROCEDURE debug( p_line IN VARCHAR2 ) IS
491: BEGIN
492: IF PG_DEBUG IN ('C','Y')
493: THEN
494: arp_util.debug( p_line );
495: END IF;
496: END;
497:
498: PROCEDURE debug( p_str VARCHAR2, p_print_level BINARY_INTEGER ) IS
498: PROCEDURE debug( p_str VARCHAR2, p_print_level BINARY_INTEGER ) IS
499: BEGIN
500: IF PG_DEBUG IN ('C','Y')
501: THEN
502: arp_util.debug( p_str, p_print_level );
503: END IF;
504: END;
505:
506: PROCEDURE enable_debug IS
504: END;
505:
506: PROCEDURE enable_debug IS
507: BEGIN
508: arp_util.enable_debug;
509: END;
510:
511: PROCEDURE disable_debug IS
512: BEGIN
509: END;
510:
511: PROCEDURE disable_debug IS
512: BEGIN
513: arp_util.disable_debug;
514: END;
515:
516: PROCEDURE print_fcn_label( p_label VARCHAR2 ) IS
517: BEGIN
516: PROCEDURE print_fcn_label( p_label VARCHAR2 ) IS
517: BEGIN
518: IF PG_DEBUG IN ('C', 'Y')
519: THEN
520: arp_util.print_fcn_label( p_label );
521: END IF;
522: END;
523:
524: PROCEDURE print_fcn_label2( p_label VARCHAR2 ) IS
524: PROCEDURE print_fcn_label2( p_label VARCHAR2 ) IS
525: BEGIN
526: IF PG_DEBUG IN ('C', 'Y')
527: THEN
528: arp_util.print_fcn_label2( p_label );
529: END IF;
530: END;
531:
532: PROCEDURE close_cursor( p_cursor_handle IN OUT NOCOPY INTEGER ) IS
530: END;
531:
532: PROCEDURE close_cursor( p_cursor_handle IN OUT NOCOPY INTEGER ) IS
533: BEGIN
534: arp_util.close_cursor( p_cursor_handle );
535: END;
536:
537:
538:
5161:
5162:
5163: IF (p_request_id IS NULL AND g_called_from = 'FORMS' ) THEN
5164: IF PG_DEBUG in ('Y', 'C') THEN
5165: arp_util.debug('calling mrc engine for insertion of gl dist data');
5166: END IF;
5167: --BUG#2750340
5168: FOR i IN p_low .. p_high LOOP
5169: inext := p_select_tab.customer_trx_id(i);
5926: g_test_collectibility AND
5927: NOT g_called_collectibility) THEN
5928:
5929: IF PG_DEBUG in ('Y', 'C') THEN
5930: arp_util.debug(' testing collectibility...');
5931: END IF;
5932:
5933: -- the following logic was enhanced to distinguish the
5934: -- call to revenue management from invoice api and others.
5966: THEN
5967:
5968: IF PG_DEBUG in ('Y','C')
5969: THEN
5970: arp_util.debug('failed contingencies = ' || l_error_count);
5971: END IF;
5972:
5973: p_failure_count := nvl(p_failure_count,0) +
5974: nvl(l_error_count,0);
7775:
7776:
7777: EXCEPTION
7778: WHEN OTHERS THEN
7779: arp_util.debug('Error getting system information');
7780: RAISE;
7781: END;
7782:
7783: