1: PACKAGE BODY arp_process_det_pkg AS
2: /* $Header: ARDLAPPB.pls 120.20.12010000.3 2008/11/18 13:28:11 dgaurab ship $*/
3: g_gt_id NUMBER := 0;
4: g_payschedule_trx ar_payment_schedules%ROWTYPE;
5: g_payschedule_rec ar_payment_schedules%ROWTYPE;
613: arp_standard.debug('get_inv_ps -');
614: EXCEPTION
615: WHEN no_customer_trx_cache THEN
616: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
617: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_inv_ps-no_customer_trx_cache
618: Please verify if initialization has been successfully' );
619: FND_MSG_PUB.ADD;
620: x_return_status := FND_API.G_RET_STS_ERROR;
621: arp_standard.debug
621: arp_standard.debug
622: ('EXCEPTION get_inv_ps no_installed_inv_allowed customer_trx_id '||g_customer_trx.customer_trx_id);
623: WHEN no_installed_inv_allowed THEN
624: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
625: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_inv_ps-no_installed_inv_allowed customer_trx_id:'
626: ||g_customer_trx.customer_trx_id);
627: FND_MSG_PUB.ADD;
628: x_return_status := FND_API.G_RET_STS_ERROR;
629: arp_standard.debug
629: arp_standard.debug
630: ('EXCEPTION get_inv_ps no_installed_inv_allowed customer_trx_id '||g_customer_trx.customer_trx_id);
631: WHEN no_op_trx_pay_schedule THEN
632: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
633: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_inv_ps-no_open_trx_pay_schedule customer_trx_id:'
634: ||g_customer_trx.customer_trx_id);
635: FND_MSG_PUB.ADD;
636: x_return_status := FND_API.G_RET_STS_ERROR;
637: arp_standard.debug
637: arp_standard.debug
638: ('EXCEPTION get_inv_ps no_op_trx_pay_schedule customer_trx_id '||g_customer_trx.customer_trx_id);
639: WHEN OTHERS THEN
640: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
641: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_inv_ps-'||SQLERRM);
642: FND_MSG_PUB.ADD;
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: arp_standard.debug('EXCEPTION get_inv_ps OTHERS '||SQLERRM);
645: END get_inv_ps;
678: arp_standard.debug('get_rec_ps -');
679: EXCEPTION
680: WHEN no_op_rec_pay_schedule THEN
681: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
682: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_rec_ps no_open_rec_pay_schedule' );
683: FND_MSG_PUB.ADD;
684: x_return_status := FND_API.G_RET_STS_ERROR;
685: arp_standard.debug
686: ('EXCEPTION get_rec_ps no_op_rec_pay_schedule p_cr_id '||p_cr_id);
685: arp_standard.debug
686: ('EXCEPTION get_rec_ps no_op_rec_pay_schedule p_cr_id '||p_cr_id);
687: WHEN OTHERS THEN
688: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
689: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_rec_ps:'||SQLERRM );
690: FND_MSG_PUB.ADD;
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: arp_standard.debug
693: ('EXCEPTION get_rec_ps OTHERS '||SQLERRM);
880: RETURN 'Y';
881: END IF;
882: END is_bucket_concern;
883: BEGIN
884: arp_standard.debug('arp_process_det_pkg.upd_inv_ps+' );
885: arp_standard.debug(' p_line_applied :'||p_line_applied);
886: arp_standard.debug(' p_tax_applied :'||p_tax_applied);
887: arp_standard.debug(' p_freight_applied :'||p_freight_applied);
888: arp_standard.debug(' p_charges_applied :'||p_charges_applied);
1050: l_apps_rec.STATUS := 'APP';
1051: insert_rapps_p(p_app_rec => l_apps_rec,
1052: x_return_status => x_return_status);
1053: x_app_rec := l_apps_rec;
1054: arp_standard.debug( 'arp_process_det_pkg.upd_inv_ps-' );
1055: EXCEPTION
1056: WHEN neg_app_amt THEN
1057: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
1058: IF l_earned_concern = 'PBLINENEG' THEN
1055: EXCEPTION
1056: WHEN neg_app_amt THEN
1057: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
1058: IF l_earned_concern = 'PBLINENEG' THEN
1059: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-line applied amt is negative');
1060: ELSIF l_earned_concern = 'PBTAXNEG' THEN
1061: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax applied amt is negative');
1062: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1063: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight applied amt is negative');
1057: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
1058: IF l_earned_concern = 'PBLINENEG' THEN
1059: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-line applied amt is negative');
1060: ELSIF l_earned_concern = 'PBTAXNEG' THEN
1061: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax applied amt is negative');
1062: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1063: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight applied amt is negative');
1064: ELSIF l_earned_concern = 'PBCHRGNEG' THEN
1065: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-charge applied amt is negative');
1059: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-line applied amt is negative');
1060: ELSIF l_earned_concern = 'PBTAXNEG' THEN
1061: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax applied amt is negative');
1062: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1063: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight applied amt is negative');
1064: ELSIF l_earned_concern = 'PBCHRGNEG' THEN
1065: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-charge applied amt is negative');
1066: END IF;
1067: FND_MSG_PUB.ADD;
1061: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax applied amt is negative');
1062: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1063: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight applied amt is negative');
1064: ELSIF l_earned_concern = 'PBCHRGNEG' THEN
1065: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-charge applied amt is negative');
1066: END IF;
1067: FND_MSG_PUB.ADD;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: WHEN neg_earned_amt THEN
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: WHEN neg_earned_amt THEN
1070: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
1071: IF l_earned_concern = 'PBLINENEG' THEN
1072: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-line earned amt is negative');
1073: ELSIF l_earned_concern = 'PBTAXNEG' THEN
1074: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax earned amt is negative');
1075: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1076: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight earned amt is negative');
1070: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
1071: IF l_earned_concern = 'PBLINENEG' THEN
1072: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-line earned amt is negative');
1073: ELSIF l_earned_concern = 'PBTAXNEG' THEN
1074: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax earned amt is negative');
1075: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1076: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight earned amt is negative');
1077: ELSIF l_earned_concern = 'PBCHRGNEG' THEN
1078: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-charge earned amt is negative');
1072: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-line earned amt is negative');
1073: ELSIF l_earned_concern = 'PBTAXNEG' THEN
1074: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax earned amt is negative');
1075: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1076: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight earned amt is negative');
1077: ELSIF l_earned_concern = 'PBCHRGNEG' THEN
1078: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-charge earned amt is negative');
1079: END IF;
1080: FND_MSG_PUB.ADD;
1074: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax earned amt is negative');
1075: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1076: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight earned amt is negative');
1077: ELSIF l_earned_concern = 'PBCHRGNEG' THEN
1078: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-charge earned amt is negative');
1079: END IF;
1080: FND_MSG_PUB.ADD;
1081: x_return_status := FND_API.G_RET_STS_ERROR;
1082: WHEN neg_unearned_amt THEN
1081: x_return_status := FND_API.G_RET_STS_ERROR;
1082: WHEN neg_unearned_amt THEN
1083: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
1084: IF l_earned_concern = 'PBLINENEG' THEN
1085: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-line unearned amt is negative');
1086: ELSIF l_earned_concern = 'PBTAXNEG' THEN
1087: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax unearned amt is negative');
1088: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1089: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight unearned amt is negative');
1083: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
1084: IF l_earned_concern = 'PBLINENEG' THEN
1085: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-line unearned amt is negative');
1086: ELSIF l_earned_concern = 'PBTAXNEG' THEN
1087: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax unearned amt is negative');
1088: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1089: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight unearned amt is negative');
1090: ELSIF l_earned_concern = 'PBCHRGNEG' THEN
1091: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-charge unearned amt is negative');
1085: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-line unearned amt is negative');
1086: ELSIF l_earned_concern = 'PBTAXNEG' THEN
1087: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax unearned amt is negative');
1088: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1089: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight unearned amt is negative');
1090: ELSIF l_earned_concern = 'PBCHRGNEG' THEN
1091: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-charge unearned amt is negative');
1092: END IF;
1093: FND_MSG_PUB.ADD;
1087: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-tax unearned amt is negative');
1088: ELSIF l_earned_concern = 'PBFRTNEG' THEN
1089: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-freight unearned amt is negative');
1090: ELSIF l_earned_concern = 'PBCHRGNEG' THEN
1091: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-charge unearned amt is negative');
1092: END IF;
1093: FND_MSG_PUB.ADD;
1094: x_return_status := FND_API.G_RET_STS_ERROR;
1095: WHEN OTHERS THEN
1093: FND_MSG_PUB.ADD;
1094: x_return_status := FND_API.G_RET_STS_ERROR;
1095: WHEN OTHERS THEN
1096: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
1097: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-'||SQLERRM );
1098: FND_MSG_PUB.ADD;
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1100: arp_util.debug('EXCEPTION OTHERS arp_process_det_pkg.upd_inv_ps:'||SQLERRM );
1101: END upd_inv_ps;
1096: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
1097: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.upd_inv_ps-'||SQLERRM );
1098: FND_MSG_PUB.ADD;
1099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1100: arp_util.debug('EXCEPTION OTHERS arp_process_det_pkg.upd_inv_ps:'||SQLERRM );
1101: END upd_inv_ps;
1102:
1103:
1104:
2597: WHEN OTHERS THEN
2598: ROLLBACK TO final_commit;
2599: arp_standard.debug('EXCEPTION OTHERS final_commit:'||SQLERRM);
2600: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
2601: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.final_commit-'||SQLERRM );
2602: FND_MSG_PUB.ADD;
2603: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2604: p_count => x_msg_count,
2605: p_data => x_msg_data);
2712: x_return_status := FND_API.G_RET_STS_SUCCESS;
2713: WHEN OTHERS THEN
2714: arp_standard.debug('EXCEPTION OTHERS get_latest_amount_remaining:'||SQLERRM);
2715: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
2716: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_latest_amount_remaining-'||SQLERRM );
2717: FND_MSG_PUB.ADD;
2718: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
2719: p_count => x_msg_count,
2720: p_data => x_msg_data);
3050: EXCEPTION
3051: WHEN OTHERS THEN
3052: arp_standard.debug('EXCEPTION OTHERS get_latest_amount_applied:'||SQLERRM);
3053: FND_MESSAGE.SET_NAME( 'AR', 'AR_CUST_API_ERROR' );
3054: FND_MESSAGE.SET_TOKEN( 'TEXT', 'arp_process_det_pkg.get_latest_amount_applied-'||SQLERRM );
3055: FND_MSG_PUB.ADD;
3056: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
3057: p_count => x_msg_count,
3058: p_data => x_msg_data);
3446:
3447:
3448:
3449:
3450: END arp_process_det_pkg;