1: PACKAGE BODY ar_upgrade_cash_accrual AS
2: /* $Header: ARUPGLZB.pls 120.20 2010/07/02 20:06:25 nemani ship $ */
3:
4: g_ae_sys_rec arp_acct_main.ae_sys_rec_type;
5: g_ind_current NUMBER := -9;
3303: EXCEPTION
3304: WHEN over_applications THEN
3305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3306: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
3307: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION over_applications in ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
3308: sum amount remaining from the invoice:'||l_rem ||'
3309: sum of application buckets :'||l_entire );
3310: FND_MSG_PUB.ADD;
3311: arp_standard.debug('EXCEPTION fnd_api.g_exc_error - over applications ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
3307: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION over_applications in ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
3308: sum amount remaining from the invoice:'||l_rem ||'
3309: sum of application buckets :'||l_entire );
3310: FND_MSG_PUB.ADD;
3311: arp_standard.debug('EXCEPTION fnd_api.g_exc_error - over applications ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
3312: sum amount remaining from the invoice:'||l_rem ||'
3313: sum of application buckets :'||l_entire );
3314: WHEN fnd_api.g_exc_error THEN
3315: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
3312: sum amount remaining from the invoice:'||l_rem ||'
3313: sum of application buckets :'||l_entire );
3314: WHEN fnd_api.g_exc_error THEN
3315: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
3316: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION fnd_api.g_exc_error in ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT' );
3317: FND_MSG_PUB.ADD;
3318: arp_standard.debug('EXCEPTION fnd_api.g_exc_error - fnd_api.g_exc_error ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT');
3319: WHEN OTHERS THEN
3320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3314: WHEN fnd_api.g_exc_error THEN
3315: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
3316: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION fnd_api.g_exc_error in ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT' );
3317: FND_MSG_PUB.ADD;
3318: arp_standard.debug('EXCEPTION fnd_api.g_exc_error - fnd_api.g_exc_error ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT');
3319: WHEN OTHERS THEN
3320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3321: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
3322: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION - OTHERS ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT: '||SQLERRM );
3318: arp_standard.debug('EXCEPTION fnd_api.g_exc_error - fnd_api.g_exc_error ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT');
3319: WHEN OTHERS THEN
3320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3321: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
3322: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION - OTHERS ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT: '||SQLERRM );
3323: FND_MSG_PUB.ADD;
3324: arp_standard.debug('EXCEPTION - OTHERS ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT: '||SQLERRM);
3325: END COMPARE_RA_REM_AMT;
3326:
3320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3321: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
3322: FND_MESSAGE.SET_TOKEN( 'TEXT', 'EXCEPTION - OTHERS ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT: '||SQLERRM );
3323: FND_MSG_PUB.ADD;
3324: arp_standard.debug('EXCEPTION - OTHERS ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT: '||SQLERRM);
3325: END COMPARE_RA_REM_AMT;
3326:
3327:
3328:
3879: arp_standard.debug('lease_app_bucket_amts -');
3880:
3881: EXCEPTION
3882: WHEN over_applications THEN
3883: arp_standard.debug('EXCEPTION fnd_api.g_exc_error - over applications ar_upgrade_cash_accrual.COMPARE_RA_REM_AMT
3884: sum amount remaining from the invoice:'||l_rem ||'
3885: sum of application buckets :'||l_app );
3886:
3887: END;