576:
577: --Force a No data found exception to be raised if call made and no rows to delete
578: SELECT 'x'
579: INTO l_dummy
580: FROM dual
581: WHERE l_dummy = 'Y';
582:
583: IF PG_DEBUG in ('Y', 'C') THEN
584: arp_standard.debug('ARP_RECEIPTS_MAIN.Delete_MCD()-');
1981: END IF;
1982:
1983:
1984: /*-------------------------------------------------------------------+
1985: | Set counters to indicate dual creation of receivables for CM and |
1986: | CM and Invoices for CM applications - detail level of granularity |
1987: +-------------------------------------------------------------------*/
1988: IF p_app_rec.application_type = 'CM' THEN
1989: l_j := 2;
2523:
2524:
2525: END IF; --application to Bill or Transaction
2526:
2527: END LOOP; --dual call to allocation routine
2528:
2529: ELSE
2530: /*-----------------------------------------------------------------------+
2531: | do not call the Tax accounting to move deferred tax this happens when |
3040: +------------------------------------------------------------------------------*/
3041: IF NOT l_mcd_exists THEN
3042: select 'x'
3043: into l_dummy
3044: from dual
3045: where 1 = 2;
3046: END IF;
3047:
3048: /*--------------------------------------------------------------------------------------------+