2283: BEGIN
2284: CheckUpgradedCustomer( l_FromRel9 );
2285: IF l_FromRel9 = 'Y'
2286: THEN
2287: arp_standard.fnd_message('AR_WWS_CASH_BASIS');
2288: ELSE
2289: IF p_Report.Trade = 'Y' OR
2290: p_Report.Misc = 'Y' OR
2291: p_Report.Ccurr = 'Y' OR
2348: EXCEPTION
2349: WHEN OTHERS THEN
2350: WriteToLogFile(l_excep_level,'DeleteFromCBD', 'Exception:IGIRCBJO.Report( p_Report ):'||sqlerrm );
2351: IF ( l_unexp_level >= l_debug_level ) THEN
2352: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
2353: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2354: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2355: FND_LOG.MESSAGE ( l_unexp_level,l_path || 'DeleteFromCBD', TRUE);
2356: END IF;
2349: WHEN OTHERS THEN
2350: WriteToLogFile(l_excep_level,'DeleteFromCBD', 'Exception:IGIRCBJO.Report( p_Report ):'||sqlerrm );
2351: IF ( l_unexp_level >= l_debug_level ) THEN
2352: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
2353: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2354: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2355: FND_LOG.MESSAGE ( l_unexp_level,l_path || 'DeleteFromCBD', TRUE);
2356: END IF;
2357: RAISE_APPLICATION_ERROR( -20000, sqlerrm||'$Revision: 120.7.12000000.3 $:Report( p_Report ):' );
2350: WriteToLogFile(l_excep_level,'DeleteFromCBD', 'Exception:IGIRCBJO.Report( p_Report ):'||sqlerrm );
2351: IF ( l_unexp_level >= l_debug_level ) THEN
2352: FND_MESSAGE.SET_NAME('IGI','IGI_LOGGING_UNEXP_ERROR');
2353: FND_MESSAGE.SET_TOKEN('CODE',SQLCODE);
2354: FND_MESSAGE.SET_TOKEN('MSG', SQLERRM);
2355: FND_LOG.MESSAGE ( l_unexp_level,l_path || 'DeleteFromCBD', TRUE);
2356: END IF;
2357: RAISE_APPLICATION_ERROR( -20000, sqlerrm||'$Revision: 120.7.12000000.3 $:Report( p_Report ):' );
2358: END;