311:
312: BEGIN
313: -------------------- initialize -----------------------
314: IF g_debug THEN
315: OZF_Utility_PVT.debug_message(l_full_name||': start');
316: END IF;
317:
318: x_return_status := FND_API.g_ret_sts_success;
319:
337: RAISE FND_API.g_exc_unexpected_error;
338: END IF;
339:
340: IF g_debug THEN
341: OZF_Utility_PVT.debug_message(l_full_name||': end');
342: END IF;
343: EXCEPTION
344: WHEN FND_API.g_exc_error THEN
345: x_return_status := FND_API.g_ret_sts_error;
381:
382: BEGIN
383: -------------------- initialize -----------------------
384: IF g_debug THEN
385: OZF_Utility_PVT.debug_message(l_full_name||': start');
386: END IF;
387:
388: x_return_status := FND_API.g_ret_sts_success;
389:
388: x_return_status := FND_API.g_ret_sts_success;
389:
390: ------------------------ start -------------------------
391: IF g_debug THEN
392: OZF_Utility_PVT.debug_message('Reapply amount='||p_reapply_amount);
393: END IF;
394: -- For partical settlement
395: ARP_DEDUCTION_COVER.split_claim_reapplication(
396: p_claim_id => p_claim_rec.root_claim_id,
417: RAISE FND_API.g_exc_unexpected_error;
418: END IF;
419:
420: IF g_debug THEN
421: OZF_Utility_PVT.debug_message(l_full_name||': end');
422: END IF;
423: EXCEPTION
424: WHEN FND_API.g_exc_error THEN
425: x_return_status := FND_API.g_ret_sts_error;
509:
510: BEGIN
511: -------------------- initialize -----------------------
512: IF g_debug THEN
513: OZF_Utility_PVT.debug_message(l_full_name||': start');
514: END IF;
515:
516: x_return_status := FND_API.g_ret_sts_success;
517:
545: , l_attribute_rec.attribute15;
546: CLOSE csr_rec_flex_flds;
547:
548: IF g_debug THEN
549: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute1 = '||l_attribute_rec.attribute1);
550: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute2 = '||l_attribute_rec.attribute2);
551: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3);
552: END IF;
553: -- bug#9279072(-)
546: CLOSE csr_rec_flex_flds;
547:
548: IF g_debug THEN
549: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute1 = '||l_attribute_rec.attribute1);
550: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute2 = '||l_attribute_rec.attribute2);
551: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3);
552: END IF;
553: -- bug#9279072(-)
554:
547:
548: IF g_debug THEN
549: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute1 = '||l_attribute_rec.attribute1);
550: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute2 = '||l_attribute_rec.attribute2);
551: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3);
552: END IF;
553: -- bug#9279072(-)
554:
555: l_amount_applied := NVL(p_credit_amount, p_claim_rec.amount_settled) * -1;
596: RAISE FND_API.g_exc_unexpected_error;
597: END IF;
598:
599: IF g_debug THEN
600: OZF_Utility_PVT.debug_message(l_full_name||': end');
601: END IF;
602: EXCEPTION
603: WHEN FND_API.g_exc_error THEN
604: x_return_status := FND_API.g_ret_sts_error;
647:
648: BEGIN
649: -------------------- initialize -----------------------
650: IF g_debug THEN
651: OZF_Utility_PVT.debug_message(l_full_name||': start');
652: END IF;
653:
654: x_return_status := FND_API.g_ret_sts_success;
655:
693: RAISE FND_API.g_exc_unexpected_error;
694: END IF;
695:
696: IF g_debug THEN
697: OZF_Utility_PVT.debug_message(l_full_name||': end');
698: END IF;
699: EXCEPTION
700: WHEN FND_API.g_exc_error THEN
701: x_return_status := FND_API.g_ret_sts_error;
822:
823: BEGIN
824: -------------------- initialize -----------------------
825: IF g_debug THEN
826: OZF_Utility_PVT.debug_message(l_full_name||': start');
827: END IF;
828:
829: x_return_status := FND_API.g_ret_sts_success;
830:
847: FETCH csr_payment_schedule INTO l_payment_schedule_id;
848: CLOSE csr_payment_schedule;
849:
850: IF g_debug THEN
851: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
852: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
853: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
854: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
855: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
848: CLOSE csr_payment_schedule;
849:
850: IF g_debug THEN
851: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
852: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
853: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
854: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
855: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
856: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
849:
850: IF g_debug THEN
851: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
852: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
853: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
854: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
855: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
856: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
857: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
850: IF g_debug THEN
851: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
852: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
853: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
854: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
855: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
856: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
857: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
858: OZF_Utility_PVT.debug_message('Claim_ID='||p_claim_id); --4684931
851: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
852: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
853: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
854: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
855: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
856: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
857: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
858: OZF_Utility_PVT.debug_message('Claim_ID='||p_claim_id); --4684931
859: END IF;
852: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
853: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
854: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
855: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
856: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
857: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
858: OZF_Utility_PVT.debug_message('Claim_ID='||p_claim_id); --4684931
859: END IF;
860:
853: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
854: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
855: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
856: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
857: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
858: OZF_Utility_PVT.debug_message('Claim_ID='||p_claim_id); --4684931
859: END IF;
860:
861: OPEN csr_claim_trx(p_claim_id);
854: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
855: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
856: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
857: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
858: OZF_Utility_PVT.debug_message('Claim_ID='||p_claim_id); --4684931
859: END IF;
860:
861: OPEN csr_claim_trx(p_claim_id);
862: FETCH csr_claim_trx INTO l_claim_trx_id, l_payment_method;
862: FETCH csr_claim_trx INTO l_claim_trx_id, l_payment_method;
863: CLOSE csr_claim_trx;
864:
865: IF g_debug THEN
866: OZF_Utility_PVT.debug_message('Claim Transaction Number ='||l_claim_trx_id);
867: OZF_Utility_PVT.debug_message('Claim Payment Method ='||l_payment_method);
868: END IF;
869:
870:
863: CLOSE csr_claim_trx;
864:
865: IF g_debug THEN
866: OZF_Utility_PVT.debug_message('Claim Transaction Number ='||l_claim_trx_id);
867: OZF_Utility_PVT.debug_message('Claim Payment Method ='||l_payment_method);
868: END IF;
869:
870:
871: IF l_payment_method IS NOT NULL
912: CLOSE csr_rec_flex_flds;
913: END IF;
914:
915: IF g_debug THEN
916: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute1 = '||l_attribute_rec.attribute1);
917: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute2 = '||l_attribute_rec.attribute2);
918: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3);
919: END IF;
920: -- bug#9279072(-)
913: END IF;
914:
915: IF g_debug THEN
916: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute1 = '||l_attribute_rec.attribute1);
917: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute2 = '||l_attribute_rec.attribute2);
918: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3);
919: END IF;
920: -- bug#9279072(-)
921:
914:
915: IF g_debug THEN
916: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute1 = '||l_attribute_rec.attribute1);
917: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute2 = '||l_attribute_rec.attribute2);
918: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3);
919: END IF;
920: -- bug#9279072(-)
921:
922: IF g_debug THEN
919: END IF;
920: -- bug#9279072(-)
921:
922: IF g_debug THEN
923: OZF_Utility_PVT.debug_message('p_comments ='||p_comments);
924: OZF_Utility_PVT.debug_message('p_payment_set_id='||p_payment_set_id);
925: OZF_Utility_PVT.debug_message('p_application_ref_type='||p_application_ref_type);
926: OZF_Utility_PVT.debug_message('p_application_ref_id='||p_application_ref_id);
927: OZF_Utility_PVT.debug_message('p_application_ref_num='||p_application_ref_num);
920: -- bug#9279072(-)
921:
922: IF g_debug THEN
923: OZF_Utility_PVT.debug_message('p_comments ='||p_comments);
924: OZF_Utility_PVT.debug_message('p_payment_set_id='||p_payment_set_id);
925: OZF_Utility_PVT.debug_message('p_application_ref_type='||p_application_ref_type);
926: OZF_Utility_PVT.debug_message('p_application_ref_id='||p_application_ref_id);
927: OZF_Utility_PVT.debug_message('p_application_ref_num='||p_application_ref_num);
928: OZF_Utility_PVT.debug_message('p_secondary_application_ref_id='||p_secondary_application_ref_id);
921:
922: IF g_debug THEN
923: OZF_Utility_PVT.debug_message('p_comments ='||p_comments);
924: OZF_Utility_PVT.debug_message('p_payment_set_id='||p_payment_set_id);
925: OZF_Utility_PVT.debug_message('p_application_ref_type='||p_application_ref_type);
926: OZF_Utility_PVT.debug_message('p_application_ref_id='||p_application_ref_id);
927: OZF_Utility_PVT.debug_message('p_application_ref_num='||p_application_ref_num);
928: OZF_Utility_PVT.debug_message('p_secondary_application_ref_id='||p_secondary_application_ref_id);
929: OZF_Utility_PVT.debug_message('p_application_ref_reason='||p_application_ref_reason); --4684931
922: IF g_debug THEN
923: OZF_Utility_PVT.debug_message('p_comments ='||p_comments);
924: OZF_Utility_PVT.debug_message('p_payment_set_id='||p_payment_set_id);
925: OZF_Utility_PVT.debug_message('p_application_ref_type='||p_application_ref_type);
926: OZF_Utility_PVT.debug_message('p_application_ref_id='||p_application_ref_id);
927: OZF_Utility_PVT.debug_message('p_application_ref_num='||p_application_ref_num);
928: OZF_Utility_PVT.debug_message('p_secondary_application_ref_id='||p_secondary_application_ref_id);
929: OZF_Utility_PVT.debug_message('p_application_ref_reason='||p_application_ref_reason); --4684931
930: OZF_Utility_PVT.debug_message('p_customer_reference='||p_customer_reference); --4684931
923: OZF_Utility_PVT.debug_message('p_comments ='||p_comments);
924: OZF_Utility_PVT.debug_message('p_payment_set_id='||p_payment_set_id);
925: OZF_Utility_PVT.debug_message('p_application_ref_type='||p_application_ref_type);
926: OZF_Utility_PVT.debug_message('p_application_ref_id='||p_application_ref_id);
927: OZF_Utility_PVT.debug_message('p_application_ref_num='||p_application_ref_num);
928: OZF_Utility_PVT.debug_message('p_secondary_application_ref_id='||p_secondary_application_ref_id);
929: OZF_Utility_PVT.debug_message('p_application_ref_reason='||p_application_ref_reason); --4684931
930: OZF_Utility_PVT.debug_message('p_customer_reference='||p_customer_reference); --4684931
931: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3); --4684931
924: OZF_Utility_PVT.debug_message('p_payment_set_id='||p_payment_set_id);
925: OZF_Utility_PVT.debug_message('p_application_ref_type='||p_application_ref_type);
926: OZF_Utility_PVT.debug_message('p_application_ref_id='||p_application_ref_id);
927: OZF_Utility_PVT.debug_message('p_application_ref_num='||p_application_ref_num);
928: OZF_Utility_PVT.debug_message('p_secondary_application_ref_id='||p_secondary_application_ref_id);
929: OZF_Utility_PVT.debug_message('p_application_ref_reason='||p_application_ref_reason); --4684931
930: OZF_Utility_PVT.debug_message('p_customer_reference='||p_customer_reference); --4684931
931: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3); --4684931
932: END IF;
925: OZF_Utility_PVT.debug_message('p_application_ref_type='||p_application_ref_type);
926: OZF_Utility_PVT.debug_message('p_application_ref_id='||p_application_ref_id);
927: OZF_Utility_PVT.debug_message('p_application_ref_num='||p_application_ref_num);
928: OZF_Utility_PVT.debug_message('p_secondary_application_ref_id='||p_secondary_application_ref_id);
929: OZF_Utility_PVT.debug_message('p_application_ref_reason='||p_application_ref_reason); --4684931
930: OZF_Utility_PVT.debug_message('p_customer_reference='||p_customer_reference); --4684931
931: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3); --4684931
932: END IF;
933:
926: OZF_Utility_PVT.debug_message('p_application_ref_id='||p_application_ref_id);
927: OZF_Utility_PVT.debug_message('p_application_ref_num='||p_application_ref_num);
928: OZF_Utility_PVT.debug_message('p_secondary_application_ref_id='||p_secondary_application_ref_id);
929: OZF_Utility_PVT.debug_message('p_application_ref_reason='||p_application_ref_reason); --4684931
930: OZF_Utility_PVT.debug_message('p_customer_reference='||p_customer_reference); --4684931
931: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3); --4684931
932: END IF;
933:
934:
927: OZF_Utility_PVT.debug_message('p_application_ref_num='||p_application_ref_num);
928: OZF_Utility_PVT.debug_message('p_secondary_application_ref_id='||p_secondary_application_ref_id);
929: OZF_Utility_PVT.debug_message('p_application_ref_reason='||p_application_ref_reason); --4684931
930: OZF_Utility_PVT.debug_message('p_customer_reference='||p_customer_reference); --4684931
931: OZF_Utility_PVT.debug_message('l_attribute_rec.attribute3 = '||l_attribute_rec.attribute3); --4684931
932: END IF;
933:
934:
935:
997: RAISE FND_API.g_exc_unexpected_error;
998: END IF;
999:
1000: IF g_debug THEN
1001: OZF_Utility_PVT.debug_message(l_full_name||': end');
1002: END IF;
1003: EXCEPTION
1004: WHEN FND_API.g_exc_error THEN
1005: x_return_status := FND_API.g_ret_sts_error;
1047:
1048: BEGIN
1049: -------------------- initialize -----------------------
1050: IF g_debug THEN
1051: OZF_Utility_PVT.debug_message(l_full_name||': start');
1052: END IF;
1053:
1054: x_return_status := FND_API.g_ret_sts_success;
1055:
1085: RAISE FND_API.g_exc_unexpected_error;
1086: END IF;
1087:
1088: IF g_debug THEN
1089: OZF_Utility_PVT.debug_message(l_full_name||': end');
1090: END IF;
1091: EXCEPTION
1092: WHEN FND_API.g_exc_error THEN
1093: x_return_status := FND_API.g_ret_sts_error;
1237:
1238: BEGIN
1239: -------------------- initialize -----------------------
1240: IF g_debug THEN
1241: OZF_Utility_PVT.debug_message(l_full_name||': start');
1242: END IF;
1243:
1244: x_return_status := FND_API.g_ret_sts_success;
1245: IF g_debug THEN
1242: END IF;
1243:
1244: x_return_status := FND_API.g_ret_sts_success;
1245: IF g_debug THEN
1246: OZF_Utility_PVT.debug_message(l_full_name||': p_total_credit = '|| p_total_credit);
1247: OZF_Utility_PVT.debug_message(l_full_name||': p_line_credit = '|| p_line_credit);
1248: OZF_Utility_PVT.debug_message(l_full_name||': p_tax_credit = '|| p_tax_credit);
1249: OZF_Utility_PVT.debug_message(l_full_name||': p_freight_credit = '|| p_freight_credit);
1250: OZF_Utility_PVT.debug_message(l_full_name||': p_cm_line_tbl count = '|| p_cm_line_tbl.COUNT);
1243:
1244: x_return_status := FND_API.g_ret_sts_success;
1245: IF g_debug THEN
1246: OZF_Utility_PVT.debug_message(l_full_name||': p_total_credit = '|| p_total_credit);
1247: OZF_Utility_PVT.debug_message(l_full_name||': p_line_credit = '|| p_line_credit);
1248: OZF_Utility_PVT.debug_message(l_full_name||': p_tax_credit = '|| p_tax_credit);
1249: OZF_Utility_PVT.debug_message(l_full_name||': p_freight_credit = '|| p_freight_credit);
1250: OZF_Utility_PVT.debug_message(l_full_name||': p_cm_line_tbl count = '|| p_cm_line_tbl.COUNT);
1251: END IF;
1244: x_return_status := FND_API.g_ret_sts_success;
1245: IF g_debug THEN
1246: OZF_Utility_PVT.debug_message(l_full_name||': p_total_credit = '|| p_total_credit);
1247: OZF_Utility_PVT.debug_message(l_full_name||': p_line_credit = '|| p_line_credit);
1248: OZF_Utility_PVT.debug_message(l_full_name||': p_tax_credit = '|| p_tax_credit);
1249: OZF_Utility_PVT.debug_message(l_full_name||': p_freight_credit = '|| p_freight_credit);
1250: OZF_Utility_PVT.debug_message(l_full_name||': p_cm_line_tbl count = '|| p_cm_line_tbl.COUNT);
1251: END IF;
1252: ------------------------ start -------------------------
1245: IF g_debug THEN
1246: OZF_Utility_PVT.debug_message(l_full_name||': p_total_credit = '|| p_total_credit);
1247: OZF_Utility_PVT.debug_message(l_full_name||': p_line_credit = '|| p_line_credit);
1248: OZF_Utility_PVT.debug_message(l_full_name||': p_tax_credit = '|| p_tax_credit);
1249: OZF_Utility_PVT.debug_message(l_full_name||': p_freight_credit = '|| p_freight_credit);
1250: OZF_Utility_PVT.debug_message(l_full_name||': p_cm_line_tbl count = '|| p_cm_line_tbl.COUNT);
1251: END IF;
1252: ------------------------ start -------------------------
1253: /* Logic Changed for Bug3963604 */
1246: OZF_Utility_PVT.debug_message(l_full_name||': p_total_credit = '|| p_total_credit);
1247: OZF_Utility_PVT.debug_message(l_full_name||': p_line_credit = '|| p_line_credit);
1248: OZF_Utility_PVT.debug_message(l_full_name||': p_tax_credit = '|| p_tax_credit);
1249: OZF_Utility_PVT.debug_message(l_full_name||': p_freight_credit = '|| p_freight_credit);
1250: OZF_Utility_PVT.debug_message(l_full_name||': p_cm_line_tbl count = '|| p_cm_line_tbl.COUNT);
1251: END IF;
1252: ------------------------ start -------------------------
1253: /* Logic Changed for Bug3963604 */
1254: IF p_total_credit = 0 AND p_line_credit = 0 AND
1298: END IF;
1299:
1300:
1301: IF g_debug THEN
1302: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1303: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1304: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1305: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1306: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1299:
1300:
1301: IF g_debug THEN
1302: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1303: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1304: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1305: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1306: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1307: END IF;
1300:
1301: IF g_debug THEN
1302: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1303: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1304: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1305: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1306: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1307: END IF;
1308:
1301: IF g_debug THEN
1302: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1303: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1304: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1305: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1306: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1307: END IF;
1308:
1309: OPEN csr_batch_source(p_claim_rec.set_of_books_id);
1302: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1303: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1304: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1305: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1306: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1307: END IF;
1308:
1309: OPEN csr_batch_source(p_claim_rec.set_of_books_id);
1310: FETCH csr_batch_source INTO l_batch_source_name;
1472:
1473: x_cm_amount := l_x_line_amount + l_x_tax_amount + l_x_freight_amount;
1474:
1475: IF g_debug THEN
1476: OZF_Utility_PVT.debug_message(l_full_name||': credit memo id => '||x_cm_customer_trx_id);
1477: OZF_Utility_PVT.debug_message(l_full_name||': credit memo amount => '||x_cm_amount);
1478: END IF;
1479:
1480: --IF p_deduction_type = 'SOURCE_DED' THEN
1473: x_cm_amount := l_x_line_amount + l_x_tax_amount + l_x_freight_amount;
1474:
1475: IF g_debug THEN
1476: OZF_Utility_PVT.debug_message(l_full_name||': credit memo id => '||x_cm_customer_trx_id);
1477: OZF_Utility_PVT.debug_message(l_full_name||': credit memo amount => '||x_cm_amount);
1478: END IF;
1479:
1480: --IF p_deduction_type = 'SOURCE_DED' THEN
1481: IF p_upd_dispute_flag = FND_API.g_true THEN
1496: END IF;
1497: END IF; -- end if p_deduction_type = 'SOURCE_DED'
1498:
1499: IF g_debug THEN
1500: OZF_Utility_PVT.debug_message(l_full_name||': end');
1501: END IF;
1502: EXCEPTION
1503: WHEN FND_API.g_exc_error THEN
1504: x_return_status := FND_API.g_ret_sts_error;
1608:
1609: BEGIN
1610: -------------------- initialize -----------------------
1611: IF g_debug THEN
1612: OZF_Utility_PVT.debug_message(l_full_name||': start');
1613: END IF;
1614:
1615: x_return_status := FND_API.g_ret_sts_success;
1616:
1748: -- Pass LE
1749: l_chargeback_rec.legal_entity_id := p_claim_rec.legal_entity_id;
1750:
1751: IF g_debug THEN
1752: OZF_Utility_PVT.debug_message(l_full_name||': chargeback amount='||l_chargeback_rec.amount);
1753: END IF;
1754:
1755: ARP_CHARGEBACK_COVER.create_chargeback (
1756: p_chargeback_rec => l_chargeback_rec,
1777: RAISE FND_API.g_exc_unexpected_error;
1778: END IF;
1779:
1780: IF g_debug THEN
1781: OZF_Utility_PVT.debug_message(l_full_name||': end');
1782: END IF;
1783: EXCEPTION
1784: WHEN FND_API.g_exc_error THEN
1785: x_return_status := FND_API.g_ret_sts_error;
1934:
1935: BEGIN
1936: -------------------- initialize -----------------------
1937: IF g_debug THEN
1938: OZF_Utility_PVT.debug_message(l_full_name||': start');
1939: END IF;
1940: x_return_status := FND_API.g_ret_sts_success;
1941:
1942: --//Bug 5345095
1964: l_neg_wo_rec_trx_id := NVL(l_neg_wo_rec_trx_id, l_sp_neg_wo_rec_trx_id);
1965: END IF;
1966:
1967: IF g_debug THEN
1968: OZF_Utility_PVT.debug_message('p_deduction_type:' || p_deduction_type);
1969: END IF;
1970:
1971: ------------------------ start -------------------------
1972: IF p_deduction_type IN ('SOURCE_DED','SOURCE_OPM') THEN
1987: FETCH csr_reason_code INTO l_reason_code;
1988: CLOSE csr_reason_code;
1989:
1990: IF g_debug THEN
1991: OZF_Utility_PVT.debug_message('p_claim_rec.receipt_id:' || p_claim_rec.receipt_id);
1992: OZF_Utility_PVT.debug_message('p_claim_rec.source_object_id:' || p_claim_rec.source_object_id);
1993: OZF_Utility_PVT.debug_message('p_claim_rec.root_claim_id:' || p_claim_rec.root_claim_id);
1994: END IF;
1995:
1988: CLOSE csr_reason_code;
1989:
1990: IF g_debug THEN
1991: OZF_Utility_PVT.debug_message('p_claim_rec.receipt_id:' || p_claim_rec.receipt_id);
1992: OZF_Utility_PVT.debug_message('p_claim_rec.source_object_id:' || p_claim_rec.source_object_id);
1993: OZF_Utility_PVT.debug_message('p_claim_rec.root_claim_id:' || p_claim_rec.root_claim_id);
1994: END IF;
1995:
1996: OPEN csr_get_amount_dtls( p_claim_rec.receipt_id
1989:
1990: IF g_debug THEN
1991: OZF_Utility_PVT.debug_message('p_claim_rec.receipt_id:' || p_claim_rec.receipt_id);
1992: OZF_Utility_PVT.debug_message('p_claim_rec.source_object_id:' || p_claim_rec.source_object_id);
1993: OZF_Utility_PVT.debug_message('p_claim_rec.root_claim_id:' || p_claim_rec.root_claim_id);
1994: END IF;
1995:
1996: OPEN csr_get_amount_dtls( p_claim_rec.receipt_id
1997: , p_claim_rec.source_object_id
2081: -- bug # 7484916 fixed by ateotia (+)
2082: --FOR l_idx IN l_writeoff_dtls.FIRST..l_writeoff_dtls.LAST LOOP
2083:
2084: IF g_debug THEN
2085: OZF_Utility_PVT.debug_message('l_writeoff_dtls.COUNT:' || l_writeoff_dtls.COUNT);
2086: END IF;
2087:
2088: IF (l_writeoff_dtls.COUNT > 0) THEN
2089: FOR rowCount IN l_writeoff_dtls.FIRST..l_writeoff_dtls.LAST LOOP
2091: t_adj_rec.type := l_writeoff_dtls(rowCount).type;
2092: t_adj_rec.amount := l_writeoff_dtls(rowCount).writeoff_amount * -1;
2093: -- bug # 7484916 fixed by ateotia (-)
2094: IF g_debug THEN
2095: OZF_Utility_PVT.debug_message('Before calling AR Adjustmnet API');
2096: OZF_Utility_PVT.debug_message('t_adj_rec.amount:' || t_adj_rec.amount);
2097: END IF;
2098:
2099: AR_ADJUST_PUB.Create_Adjustment (
2092: t_adj_rec.amount := l_writeoff_dtls(rowCount).writeoff_amount * -1;
2093: -- bug # 7484916 fixed by ateotia (-)
2094: IF g_debug THEN
2095: OZF_Utility_PVT.debug_message('Before calling AR Adjustmnet API');
2096: OZF_Utility_PVT.debug_message('t_adj_rec.amount:' || t_adj_rec.amount);
2097: END IF;
2098:
2099: AR_ADJUST_PUB.Create_Adjustment (
2100: p_api_name => 'AR_ADJUST_PUB.Create_Adjustment',
2115: p_old_adjust_id => NULL
2116: );
2117:
2118: IF g_debug THEN
2119: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_return_status :' || l_return_status);
2120: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_x_new_adjust_number :' || l_x_new_adjust_number);
2121: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_x_wo_adjust_id :' || l_x_wo_adjust_id);
2122: END IF;
2123:
2116: );
2117:
2118: IF g_debug THEN
2119: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_return_status :' || l_return_status);
2120: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_x_new_adjust_number :' || l_x_new_adjust_number);
2121: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_x_wo_adjust_id :' || l_x_wo_adjust_id);
2122: END IF;
2123:
2124: IF l_return_status = FND_API.g_ret_sts_error THEN
2117:
2118: IF g_debug THEN
2119: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_return_status :' || l_return_status);
2120: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_x_new_adjust_number :' || l_x_new_adjust_number);
2121: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_x_wo_adjust_id :' || l_x_wo_adjust_id);
2122: END IF;
2123:
2124: IF l_return_status = FND_API.g_ret_sts_error THEN
2125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2139: | Update Deduction payment detail
2140: *------------------------------------------------------------*/
2141:
2142: IF g_debug THEN
2143: OZF_Utility_PVT.debug_message('l_x_wo_adjust_id :' || l_x_wo_adjust_id);
2144: OZF_Utility_PVT.debug_message('p_claim_rec.payment_method :' || p_claim_rec.payment_method);
2145: OZF_Utility_PVT.debug_message('p_settlement_doc_id :' || p_settlement_doc_id);
2146: END IF;
2147:
2140: *------------------------------------------------------------*/
2141:
2142: IF g_debug THEN
2143: OZF_Utility_PVT.debug_message('l_x_wo_adjust_id :' || l_x_wo_adjust_id);
2144: OZF_Utility_PVT.debug_message('p_claim_rec.payment_method :' || p_claim_rec.payment_method);
2145: OZF_Utility_PVT.debug_message('p_settlement_doc_id :' || p_settlement_doc_id);
2146: END IF;
2147:
2148:
2141:
2142: IF g_debug THEN
2143: OZF_Utility_PVT.debug_message('l_x_wo_adjust_id :' || l_x_wo_adjust_id);
2144: OZF_Utility_PVT.debug_message('p_claim_rec.payment_method :' || p_claim_rec.payment_method);
2145: OZF_Utility_PVT.debug_message('p_settlement_doc_id :' || p_settlement_doc_id);
2146: END IF;
2147:
2148:
2149: IF l_x_wo_adjust_id IS NOT NULL THEN
2359: END IF;
2360:
2361: AMS_Utility_PVT.debug_message(l_full_name||': end');
2362:
2363: OZF_Utility_PVT.debug_message(l_full_name||': end');
2364:
2365: EXCEPTION
2366: WHEN FND_API.g_exc_error THEN
2367: x_return_status := FND_API.g_ret_sts_error;
2403:
2404: BEGIN
2405: -------------------- initialize -----------------------
2406: IF g_debug THEN
2407: OZF_Utility_PVT.debug_message(l_full_name||': start');
2408: END IF;
2409:
2410: x_return_status := FND_API.g_ret_sts_success;
2411:
2427: RAISE FND_API.g_exc_unexpected_error;
2428: END;
2429:
2430: IF g_debug THEN
2431: OZF_Utility_PVT.debug_message(l_full_name||': end');
2432: END IF;
2433: EXCEPTION
2434: WHEN FND_API.g_exc_unexpected_error THEN
2435: x_return_status := FND_API.g_ret_sts_unexp_error ;
2514: x_return_status := FND_API.g_ret_sts_success;
2515:
2516:
2517: IF g_debug THEN
2518: OZF_Utility_PVT.debug_message( l_full_name || ' : Start');
2519: END IF;
2520:
2521: OPEN csr_claim_line_invoice(p_claim_id, p_invoice_id);
2522: LOOP
2529: x_cm_line_tbl(l_counter).price := l_trx_lines.rate;
2530: x_cm_line_tbl(l_counter).extended_amount := l_trx_lines.amount * -1;
2531:
2532: IF g_debug THEN
2533: OZF_Utility_PVT.debug_message('x_cm_line_tbl('||l_counter||').customer_trx_line_id='||x_cm_line_tbl(l_counter).customer_trx_line_id);
2534: OZF_Utility_PVT.debug_message('x_cm_line_tbl('||l_counter||').extended_amount='||x_cm_line_tbl(l_counter).extended_amount);
2535: END IF;
2536: l_counter := l_counter +1;
2537: END IF;
2530: x_cm_line_tbl(l_counter).extended_amount := l_trx_lines.amount * -1;
2531:
2532: IF g_debug THEN
2533: OZF_Utility_PVT.debug_message('x_cm_line_tbl('||l_counter||').customer_trx_line_id='||x_cm_line_tbl(l_counter).customer_trx_line_id);
2534: OZF_Utility_PVT.debug_message('x_cm_line_tbl('||l_counter||').extended_amount='||x_cm_line_tbl(l_counter).extended_amount);
2535: END IF;
2536: l_counter := l_counter +1;
2537: END IF;
2538:
2551: END IF;
2552:
2553: END LOOP;
2554: IF g_debug THEN
2555: OZF_Utility_PVT.debug_message('l_line_credit = '||l_line_credit);
2556: OZF_Utility_PVT.debug_message('l_tax_credit = '||l_tax_credit);
2557: OZF_Utility_PVT.debug_message('l_freight_credit = '||l_freight_credit);
2558: OZF_Utility_PVT.debug_message('l_total_credit = '||l_total_credit);
2559: END IF;
2552:
2553: END LOOP;
2554: IF g_debug THEN
2555: OZF_Utility_PVT.debug_message('l_line_credit = '||l_line_credit);
2556: OZF_Utility_PVT.debug_message('l_tax_credit = '||l_tax_credit);
2557: OZF_Utility_PVT.debug_message('l_freight_credit = '||l_freight_credit);
2558: OZF_Utility_PVT.debug_message('l_total_credit = '||l_total_credit);
2559: END IF;
2560: CLOSE csr_claim_line_invoice;
2553: END LOOP;
2554: IF g_debug THEN
2555: OZF_Utility_PVT.debug_message('l_line_credit = '||l_line_credit);
2556: OZF_Utility_PVT.debug_message('l_tax_credit = '||l_tax_credit);
2557: OZF_Utility_PVT.debug_message('l_freight_credit = '||l_freight_credit);
2558: OZF_Utility_PVT.debug_message('l_total_credit = '||l_total_credit);
2559: END IF;
2560: CLOSE csr_claim_line_invoice;
2561:
2554: IF g_debug THEN
2555: OZF_Utility_PVT.debug_message('l_line_credit = '||l_line_credit);
2556: OZF_Utility_PVT.debug_message('l_tax_credit = '||l_tax_credit);
2557: OZF_Utility_PVT.debug_message('l_freight_credit = '||l_freight_credit);
2558: OZF_Utility_PVT.debug_message('l_total_credit = '||l_total_credit);
2559: END IF;
2560: CLOSE csr_claim_line_invoice;
2561:
2562:
2565: x_freight_credit := l_freight_credit;
2566: x_total_credit := l_total_credit;
2567:
2568: IF g_debug THEN
2569: OZF_Utility_PVT.debug_message( l_full_name || ' : End');
2570: END IF;
2571:
2572:
2573: EXCEPTION
2699:
2700: BEGIN
2701: -------------------- initialize -----------------------
2702: IF g_debug THEN
2703: OZF_Utility_PVT.debug_message(l_full_name||': start');
2704: END IF;
2705:
2706: x_return_status := FND_API.g_ret_sts_success;
2707:
2718: *------------------------------------------------------------*/
2719:
2720: -- Update dispute amount.
2721: IF g_debug THEN
2722: OZF_Utility_PVT.debug_message('Source Deduction -> Update dispute amount');
2723: END IF;
2724: Update_dispute_amount(
2725: p_claim_rec => p_claim_rec
2726: ,p_dispute_amount => l_cm_amount
2742: p_tax_credit = 0 AND
2743: p_freight_credit = 0 AND
2744: p_total_credit <> 0 THEN
2745: IF g_debug THEN
2746: OZF_Utility_PVT.debug_message('Invoice Deduction[Credit to --] -> Create Credit Memo');
2747: END IF;
2748: Create_AR_Credit_Memo(
2749: p_claim_rec => p_claim_rec
2750: ,p_customer_trx_id => p_claim_rec.source_object_id
2782:
2783:
2784: -- 1. Unapply invoice from receipt.
2785: IF g_debug THEN
2786: OZF_Utility_PVT.debug_message('Invoice Deduction[Credit to Line/Tax/Freight] -> 1. Unapply invoice from receipt.');
2787: END IF;
2788: -- Bug4118351: Do not unapply if original amount applied is zero.
2789: IF l_old_applied_invoice.amount_applied <> 0 THEN
2790: Unapply_from_Receipt(
2802: END IF;
2803:
2804: -- 2. Create credit memo for the invoice
2805: IF g_debug THEN
2806: OZF_Utility_PVT.debug_message('Invoice Deduction[Credit to Line/Tax/Freight] -> 2. Create credit memo for the invoice');
2807: END IF;
2808: Create_AR_Credit_Memo(
2809: p_claim_rec => p_claim_rec
2810: ,p_customer_trx_id => p_claim_rec.source_object_id
2831: END IF;
2832:
2833: -- 3. Apply invoice back on receipt.
2834: IF g_debug THEN
2835: OZF_Utility_PVT.debug_message('Invoice Deduction[Credit to Line/Tax/Freight] -> 3. Apply invoice back on receipt');
2836: END IF;
2837: --IF (l_old_applied_invoice.amount_due_remaining + l_cm_amount) = 0 THEN
2838: IF l_old_applied_invoice.amount_due_remaining = p_claim_rec.amount_settled THEN
2839: l_old_applied_invoice.application_ref_type := NULL;
2888: | Modified for 4308173
2889: *------------------------------------------------------------*/
2890:
2891: IF g_debug THEN
2892: OZF_Utility_PVT.debug_message('Receipt Deduction -> 1. Unapply associated invoice from receipt');
2893: END IF;
2894:
2895: IF p_invoice_id <> 0 THEN --..Added for Bugfix : 12340283, Skip Unapply_from_Receipt if there is no associated receipt with Invoice.
2896:
2917: FETCH csr_receipt_details INTO l_old_applied_invoice;
2918: CLOSE csr_receipt_details;
2919:
2920: IF g_debug THEN
2921: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_type :'||l_old_applied_invoice.application_ref_type);
2922: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_id :'||l_old_applied_invoice.application_ref_id);
2923: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_num :'||l_old_applied_invoice.application_ref_num);
2924: OZF_Utility_PVT.debug_message('l_old_applied_invoice.secondary_application_ref_id :'||l_old_applied_invoice.secondary_application_ref_id);
2925: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_reason :'||l_old_applied_invoice.application_ref_reason);
2918: CLOSE csr_receipt_details;
2919:
2920: IF g_debug THEN
2921: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_type :'||l_old_applied_invoice.application_ref_type);
2922: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_id :'||l_old_applied_invoice.application_ref_id);
2923: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_num :'||l_old_applied_invoice.application_ref_num);
2924: OZF_Utility_PVT.debug_message('l_old_applied_invoice.secondary_application_ref_id :'||l_old_applied_invoice.secondary_application_ref_id);
2925: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_reason :'||l_old_applied_invoice.application_ref_reason);
2926: OZF_Utility_PVT.debug_message('l_old_applied_invoice.customer_reference :'||l_old_applied_invoice.customer_reference);
2919:
2920: IF g_debug THEN
2921: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_type :'||l_old_applied_invoice.application_ref_type);
2922: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_id :'||l_old_applied_invoice.application_ref_id);
2923: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_num :'||l_old_applied_invoice.application_ref_num);
2924: OZF_Utility_PVT.debug_message('l_old_applied_invoice.secondary_application_ref_id :'||l_old_applied_invoice.secondary_application_ref_id);
2925: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_reason :'||l_old_applied_invoice.application_ref_reason);
2926: OZF_Utility_PVT.debug_message('l_old_applied_invoice.customer_reference :'||l_old_applied_invoice.customer_reference);
2927: END IF;
2920: IF g_debug THEN
2921: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_type :'||l_old_applied_invoice.application_ref_type);
2922: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_id :'||l_old_applied_invoice.application_ref_id);
2923: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_num :'||l_old_applied_invoice.application_ref_num);
2924: OZF_Utility_PVT.debug_message('l_old_applied_invoice.secondary_application_ref_id :'||l_old_applied_invoice.secondary_application_ref_id);
2925: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_reason :'||l_old_applied_invoice.application_ref_reason);
2926: OZF_Utility_PVT.debug_message('l_old_applied_invoice.customer_reference :'||l_old_applied_invoice.customer_reference);
2927: END IF;
2928:
2921: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_type :'||l_old_applied_invoice.application_ref_type);
2922: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_id :'||l_old_applied_invoice.application_ref_id);
2923: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_num :'||l_old_applied_invoice.application_ref_num);
2924: OZF_Utility_PVT.debug_message('l_old_applied_invoice.secondary_application_ref_id :'||l_old_applied_invoice.secondary_application_ref_id);
2925: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_reason :'||l_old_applied_invoice.application_ref_reason);
2926: OZF_Utility_PVT.debug_message('l_old_applied_invoice.customer_reference :'||l_old_applied_invoice.customer_reference);
2927: END IF;
2928:
2929: END IF; -- p_invoice_id <> 0 THEN
2922: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_id :'||l_old_applied_invoice.application_ref_id);
2923: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_num :'||l_old_applied_invoice.application_ref_num);
2924: OZF_Utility_PVT.debug_message('l_old_applied_invoice.secondary_application_ref_id :'||l_old_applied_invoice.secondary_application_ref_id);
2925: OZF_Utility_PVT.debug_message('l_old_applied_invoice.application_ref_reason :'||l_old_applied_invoice.application_ref_reason);
2926: OZF_Utility_PVT.debug_message('l_old_applied_invoice.customer_reference :'||l_old_applied_invoice.customer_reference);
2927: END IF;
2928:
2929: END IF; -- p_invoice_id <> 0 THEN
2930:
2928:
2929: END IF; -- p_invoice_id <> 0 THEN
2930:
2931: IF g_debug THEN
2932: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply_Claim_Investigation.');
2933: END IF;
2934: OPEN csr_old_claim_investigation(p_claim_rec.receipt_id, p_claim_rec.root_claim_id);
2935: FETCH csr_old_claim_investigation INTO l_old_applied_claim_amount;
2936: CLOSE csr_old_claim_investigation;
2951: END IF;
2952:
2953:
2954: IF g_debug THEN
2955: OZF_Utility_PVT.debug_message('Receipt Deduction -> 3. Validate Invoice.');
2956: END IF;
2957: OZF_AR_VALIDATION_PVT.Validate_CreditTo_Information(
2958: p_claim_rec => p_claim_rec
2959: ,p_invoice_id => p_pay_invoice_id
2974: p_freight_credit = 0 AND
2975: p_total_credit <> 0 THEN
2976:
2977: IF g_debug THEN
2978: OZF_Utility_PVT.debug_message('Receipt Deduction -> 4. Apply same associated invoice with reduced amount');
2979: END IF;
2980:
2981: IF l_old_applied_invoice.amount_applied <> 0 THEN
2982: l_new_applied_amount := l_old_applied_invoice.amount_applied - p_sttlmnt_amt;
3011: END IF;
3012:
3013: -- 4. Create credit memo for the invoice.
3014: IF g_debug THEN
3015: OZF_Utility_PVT.debug_message('Receipt Deduction -> 5. Create credit memo for the invoice.');
3016: END IF;
3017: Create_AR_Credit_Memo(
3018: p_claim_rec => p_claim_rec
3019: ,p_customer_trx_id => p_pay_invoice_id
3044: -- Claim Investigation (Deduction) - Credit to Tax/Line/Freight
3045: -- ----------------------------------------------
3046: -- 3. Apply same associated invoice if balance amount is zero.
3047: IF g_debug THEN
3048: OZF_Utility_PVT.debug_message('Receipt Deduction -> 3. Apply same associated invoice if balance amount is zero.');
3049: END IF;
3050: IF l_old_applied_invoice.amount_applied <> 0 THEN
3051: l_new_applied_amount := l_old_applied_invoice.amount_applied - p_claim_rec.amount_settled;
3052: ELSE
3081: END IF;
3082:
3083: -- 4. Create credit memo for the invoice.
3084: IF g_debug THEN
3085: OZF_Utility_PVT.debug_message('Receipt Deduction -> 4. Create credit memo for the invoice.');
3086: END IF;
3087: Create_AR_Credit_Memo(
3088: p_claim_rec => p_claim_rec
3089: ,p_customer_trx_id => p_pay_invoice_id
3110: END IF;
3111:
3112:
3113: IF g_debug THEN
3114: OZF_Utility_PVT.debug_message('Receipt Deduction -> 5. Apply same associated invoice with reduced amount');
3115: END IF;
3116:
3117: IF l_old_applied_invoice.amount_applied <> 0 THEN
3118: l_new_applied_amount := l_old_applied_invoice.amount_applied - p_sttlmnt_amt;
3160: p_tax_credit = 0 AND
3161: p_freight_credit = 0 AND
3162: p_total_credit <> 0 THEN
3163: IF g_debug THEN
3164: OZF_Utility_PVT.debug_message('Claim [Invoice Credit to --] -> 1. Create Credit Memo');
3165: END IF;
3166: -- 1. Create credit memo for the invoice
3167: Create_AR_Credit_Memo(
3168: p_claim_rec => p_claim_rec
3190: END IF;
3191: ELSE
3192: -- 1. Create credit memo for the invoice
3193: IF g_debug THEN
3194: OZF_Utility_PVT.debug_message('Claim [Invoice Credit to Line/Tax/Freight] -> 1. Create credit memo for the invoice');
3195: END IF;
3196: Create_AR_Credit_Memo(
3197: p_claim_rec => p_claim_rec
3198: ,p_customer_trx_id => p_invoice_id
3247: END IF;
3248: END IF;
3249:
3250: IF g_debug THEN
3251: OZF_Utility_PVT.debug_message(l_full_name||': end');
3252: END IF;
3253: EXCEPTION
3254: WHEN FND_API.g_exc_error THEN
3255: x_return_status := FND_API.g_ret_sts_error;
3423:
3424: BEGIN
3425: -------------------- initialize -----------------------
3426: IF g_debug THEN
3427: OZF_Utility_PVT.debug_message(l_full_name||': start');
3428: END IF;
3429:
3430: SAVEPOINT Pay_by_Invoice_Credit;
3431:
3450:
3451:
3452: IF g_debug THEN
3453: IF l_process_setl_wf THEN
3454: OZF_Utility_PVT.debug_message('Process Settlement Workflow? -> Yes' );
3455: ELSE
3456: OZF_Utility_PVT.debug_message('Process Settlement Workflow? -> No' );
3457: END IF;
3458: END IF;
3452: IF g_debug THEN
3453: IF l_process_setl_wf THEN
3454: OZF_Utility_PVT.debug_message('Process Settlement Workflow? -> Yes' );
3455: ELSE
3456: OZF_Utility_PVT.debug_message('Process Settlement Workflow? -> No' );
3457: END IF;
3458: END IF;
3459:
3460: IF l_process_setl_wf THEN
3789:
3790: BEGIN
3791: -------------------- initialize -----------------------
3792: IF g_debug THEN
3793: OZF_Utility_PVT.debug_message(l_full_name||': start');
3794: END IF;
3795: x_return_status := FND_API.g_ret_sts_success;
3796:
3797: ------------------------ start -------------------------
3800: /*------------------------------------------------------------*
3801: | No payment reference specified (No open credit memo specified) -> AutoInvoice
3802: *------------------------------------------------------------*/
3803: IF g_debug THEN
3804: OZF_Utility_PVT.debug_message('No payment reference specified (No open credit memo specified) -> AutoInvoice.');
3805: END IF;
3806: -- 1. AutoInvoice
3807: OZF_AR_INTERFACE_PVT.Interface_Claim(
3808: p_api_version => l_api_version
3818: RAISE FND_API.g_exc_error;
3819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3820: RAISE FND_API.g_exc_unexpected_error;
3821: END IF;
3822: OZF_Utility_PVT.debug_message('Return Status after OZF_AR_INTERFACE_PVT.Interface_Claim:' || l_return_status);
3823: --2. Update Deduction payment detail --
3824: l_online_upd_ded_status := FALSE;
3825:
3826: ELSE -- payment_reference_id is not null and deduction_type IN ('SOURCE_DED', 'RECEIPT_DED')
3884: FETCH csr_trx_currency INTO l_trx_currency;
3885: CLOSE csr_trx_currency;
3886:
3887: IF g_debug THEN
3888: OZF_Utility_PVT.debug_message('Invoice Deduction -> 1. Update amount in dispute');
3889: END IF;
3890: -- 1. Update amount in dispute
3891: Update_dispute_amount(
3892: p_claim_rec => p_claim_rec
3902: END IF;
3903:
3904: IF l_cm_applied_on_rec_amt IS NULL THEN
3905: IF g_debug THEN
3906: OZF_Utility_PVT.debug_message('Invoice Deduction -> 2. Apply creit memo on receipt');
3907: END IF;
3908: --4684931
3909: IF l_trx_currency = p_claim_rec.currency_code THEN
3910: l_p_new_applied_amount := p_credit_memo_amount * -1;
3935: RAISE FND_API.g_exc_unexpected_error;
3936: END IF;
3937: ELSE
3938: IF g_debug THEN
3939: OZF_Utility_PVT.debug_message('Invoice Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
3940: OZF_Utility_PVT.debug_message('Invoice Deduction -> 2. Reapply credit memo with new amount on receipt');
3941: END IF;
3942:
3943: l_settlement_amount := (p_credit_memo_amount * -1) ; -- Bug4308188
3936: END IF;
3937: ELSE
3938: IF g_debug THEN
3939: OZF_Utility_PVT.debug_message('Invoice Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
3940: OZF_Utility_PVT.debug_message('Invoice Deduction -> 2. Reapply credit memo with new amount on receipt');
3941: END IF;
3942:
3943: l_settlement_amount := (p_credit_memo_amount * -1) ; -- Bug4308188
3944:
3965:
3966: END IF;
3967:
3968: IF g_debug THEN
3969: OZF_Utility_PVT.debug_message('Invoice Deduction -> 3. Unapply claim investigation');
3970: OZF_Utility_PVT.debug_message('original invoice deduction amount = '||l_old_applied_invoice.amount_applied);
3971: OZF_Utility_PVT.debug_message('reapply invoice deduction amount = '||(l_old_applied_invoice.amount_applied + p_credit_memo_amount));
3972: END IF;
3973: -- 3. Reapply claim investigation
3966: END IF;
3967:
3968: IF g_debug THEN
3969: OZF_Utility_PVT.debug_message('Invoice Deduction -> 3. Unapply claim investigation');
3970: OZF_Utility_PVT.debug_message('original invoice deduction amount = '||l_old_applied_invoice.amount_applied);
3971: OZF_Utility_PVT.debug_message('reapply invoice deduction amount = '||(l_old_applied_invoice.amount_applied + p_credit_memo_amount));
3972: END IF;
3973: -- 3. Reapply claim investigation
3974: Unapply_Claim_Investigation(
3967:
3968: IF g_debug THEN
3969: OZF_Utility_PVT.debug_message('Invoice Deduction -> 3. Unapply claim investigation');
3970: OZF_Utility_PVT.debug_message('original invoice deduction amount = '||l_old_applied_invoice.amount_applied);
3971: OZF_Utility_PVT.debug_message('reapply invoice deduction amount = '||(l_old_applied_invoice.amount_applied + p_credit_memo_amount));
3972: END IF;
3973: -- 3. Reapply claim investigation
3974: Unapply_Claim_Investigation(
3975: p_claim_rec => p_claim_rec
4003: | 1. Apply credit memo with increased amount on receipt
4004: | 2. Unapply claim investigation
4005: *------------------------------------------------------------*/
4006: IF g_debug THEN
4007: OZF_Utility_PVT.debug_message('Receipt Deduction -> 1. Apply creit memo on receipt');
4008: END IF;
4009:
4010: --4684931
4011: IF l_receipt_currency = l_trx_currency THEN
4034: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4035: RAISE FND_API.g_exc_unexpected_error;
4036: END IF;
4037: IF g_debug THEN
4038: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply claim investigation');
4039: END IF;
4040: ELSE
4041: /*------------------------------------------------------------*
4042: | Receipt Deduction
4041: /*------------------------------------------------------------*
4042: | Receipt Deduction
4043: *------------------------------------------------------------*/
4044: IF g_debug THEN
4045: OZF_Utility_PVT.debug_message('Receipt Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
4046: END IF;
4047:
4048: IF g_debug THEN
4049: OZF_Utility_PVT.debug_message('Receipt Deduction -> 1. Reapply creit memo with increased amount on receipt');
4045: OZF_Utility_PVT.debug_message('Receipt Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
4046: END IF;
4047:
4048: IF g_debug THEN
4049: OZF_Utility_PVT.debug_message('Receipt Deduction -> 1. Reapply creit memo with increased amount on receipt');
4050: END IF;
4051:
4052: l_settlement_amount := (p_credit_memo_amount * -1); -- Bug4308188
4053: --4684931
4079: FETCH csr_claim_investigation_amount INTO l_orig_dispute_amount;
4080: CLOSE csr_claim_investigation_amount;
4081:
4082: IF g_debug THEN
4083: OZF_Utility_PVT.debug_message('original claim investigation amount = '||l_orig_dispute_amount);
4084: OZF_Utility_PVT.debug_message('reapply claim investigation amount = '||(l_orig_dispute_amount + p_credit_memo_amount));
4085: END IF;
4086: Unapply_Claim_Investigation(
4087: p_claim_rec => p_claim_rec
4080: CLOSE csr_claim_investigation_amount;
4081:
4082: IF g_debug THEN
4083: OZF_Utility_PVT.debug_message('original claim investigation amount = '||l_orig_dispute_amount);
4084: OZF_Utility_PVT.debug_message('reapply claim investigation amount = '||(l_orig_dispute_amount + p_credit_memo_amount));
4085: END IF;
4086: Unapply_Claim_Investigation(
4087: p_claim_rec => p_claim_rec
4088: ,p_reapply_amount => l_orig_dispute_amount + p_credit_memo_amount --(l_orig_reapply_amount - p_credit_memo_amount) * -1
4127: END IF;
4128: END IF;
4129:
4130: IF g_debug THEN
4131: OZF_Utility_PVT.debug_message(l_full_name||': end');
4132: END IF;
4133: EXCEPTION
4134: WHEN FND_API.g_exc_error THEN
4135: x_return_status := FND_API.g_ret_sts_error;
4184:
4185: BEGIN
4186: -------------------- initialize -----------------------
4187: IF g_debug THEN
4188: OZF_Utility_PVT.debug_message(l_full_name||': start');
4189: END IF;
4190:
4191: x_return_status := FND_API.g_ret_sts_success;
4192:
4211: | Overpayment -> 1. Unapply claim investigation
4212: | 2. Apply On Account Credit
4213: *------------------------------------------------------------*/
4214: IF g_debug THEN
4215: OZF_Utility_PVT.debug_message('Overpayment -> 1. Unapply claim investigation.');
4216: END IF;
4217: -- 1. Unapply claim investigation
4218: OPEN csr_old_claim_investigation(p_claim_rec.receipt_id, p_claim_rec.root_claim_id);
4219: FETCH csr_old_claim_investigation INTO l_old_applied_claim_amount;
4234: RAISE FND_API.g_exc_unexpected_error;
4235: END IF;
4236:
4237: IF g_debug THEN
4238: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply On Account Credit.');
4239: END IF;
4240: --2. Apply On Account Credit
4241: Apply_On_Account_Credit(
4242: p_claim_rec => p_claim_rec
4254: | Update Deduction payment detail
4255: *------------------------------------------------------------*/
4256: -- Update Deduction payment detail
4257: IF g_debug THEN
4258: OZF_Utility_PVT.debug_message('cash_receipt_id = '||p_claim_rec.receipt_id);
4259: END IF;
4260: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4261: p_api_version => l_api_version
4262: ,p_init_msg_list => FND_API.g_false
4285: RAISE FND_API.g_exc_error;
4286: END IF;
4287:
4288: IF g_debug THEN
4289: OZF_Utility_PVT.debug_message(l_full_name||': end');
4290: END IF;
4291: EXCEPTION
4292: WHEN FND_API.g_exc_error THEN
4293: x_return_status := FND_API.g_ret_sts_error;
4332:
4333: BEGIN
4334: -------------------- initialize -----------------------
4335: IF g_debug THEN
4336: OZF_Utility_PVT.debug_message(l_full_name||': start');
4337: END IF;
4338:
4339: x_return_status := FND_API.g_ret_sts_success;
4340:
4410: END IF;
4411:
4412:
4413: IF g_debug THEN
4414: OZF_Utility_PVT.debug_message(l_full_name||': end');
4415: END IF;
4416: EXCEPTION
4417: WHEN FND_API.g_exc_error THEN
4418: x_return_status := FND_API.g_ret_sts_error;
4456:
4457: BEGIN
4458: -------------------- initialize -----------------------
4459: IF g_debug THEN
4460: OZF_Utility_PVT.debug_message(l_full_name||': start');
4461: END IF;
4462:
4463: x_return_status := FND_API.g_ret_sts_success;
4464:
4512: END IF;
4513: END IF;
4514:
4515: IF g_debug THEN
4516: OZF_Utility_PVT.debug_message(l_full_name||': end');
4517: END IF;
4518: EXCEPTION
4519: WHEN FND_API.g_exc_error THEN
4520: x_return_status := FND_API.g_ret_sts_error;
4679:
4680: BEGIN
4681: -------------------- initialize -----------------------
4682: IF g_debug THEN
4683: OZF_Utility_PVT.debug_message(l_full_name||': start');
4684: END IF;
4685:
4686: x_return_status := FND_API.g_ret_sts_success;
4687:
4749: OPEN csr_dm_exist_on_rec(p_claim_rec.receipt_id, p_payment_reference_id);
4750: FETCH csr_dm_exist_on_rec INTO l_dm_applied_on_rec_amt, l_dm_applied_on_rec_amt_from, l_apply_date; -- Fix for Bug 3091401. TM passes old apply date
4751: CLOSE csr_dm_exist_on_rec;
4752:
4753: OZF_Utility_PVT.debug_message('Overpayment -> 1. Unapply claim investigation');
4754: -- 1. Unapply claim investigation
4755: OPEN csr_claim_investigation_amount(p_claim_rec.root_claim_id);
4756: FETCH csr_claim_investigation_amount INTO l_orig_dispute_amount;
4757: CLOSE csr_claim_investigation_amount;
4755: OPEN csr_claim_investigation_amount(p_claim_rec.root_claim_id);
4756: FETCH csr_claim_investigation_amount INTO l_orig_dispute_amount;
4757: CLOSE csr_claim_investigation_amount;
4758:
4759: OZF_Utility_PVT.debug_message('original overpayment amount = '||l_orig_dispute_amount);
4760: OZF_Utility_PVT.debug_message('reapply overpayment amount = '||(l_orig_dispute_amount + p_debit_memo_amount));
4761:
4762: Unapply_Claim_Investigation(
4763: p_claim_rec => p_claim_rec
4756: FETCH csr_claim_investigation_amount INTO l_orig_dispute_amount;
4757: CLOSE csr_claim_investigation_amount;
4758:
4759: OZF_Utility_PVT.debug_message('original overpayment amount = '||l_orig_dispute_amount);
4760: OZF_Utility_PVT.debug_message('reapply overpayment amount = '||(l_orig_dispute_amount + p_debit_memo_amount));
4761:
4762: Unapply_Claim_Investigation(
4763: p_claim_rec => p_claim_rec
4764: ,p_reapply_amount => (l_orig_dispute_amount + p_debit_memo_amount)
4773: END IF;
4774:
4775: l_stlmnt_amount := NVL(l_dm_applied_on_rec_amt,0) + (p_debit_memo_amount * -1);
4776: IF l_dm_applied_on_rec_amt IS NULL THEN
4777: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo on receipt');
4778: --bug4684931
4779: IF l_receipt_currency = l_trx_currency THEN
4780: l_p_new_applied_amount := NVL(l_dm_applied_on_rec_amt,0) + (p_debit_memo_amount * -1);
4781: l_p_new_applied_from_amount := NULL;
4803: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4804: RAISE FND_API.g_exc_unexpected_error;
4805: END IF;
4806: ELSE
4807: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
4808: OZF_Utility_PVT.debug_message('Overpayment -> 1.5. Unapply debit memo on receipt');
4809: -- 1.5. Unapply creit memo on receipt
4810: Unapply_from_Receipt(
4811: p_cash_receipt_id => p_claim_rec.receipt_id
4804: RAISE FND_API.g_exc_unexpected_error;
4805: END IF;
4806: ELSE
4807: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
4808: OZF_Utility_PVT.debug_message('Overpayment -> 1.5. Unapply debit memo on receipt');
4809: -- 1.5. Unapply creit memo on receipt
4810: Unapply_from_Receipt(
4811: p_cash_receipt_id => p_claim_rec.receipt_id
4812: ,p_customer_trx_id => p_payment_reference_id
4819: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4820: RAISE FND_API.g_exc_unexpected_error;
4821: END IF;
4822:
4823: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo with increased amount on receipt');
4824: l_settlement_amount := (p_debit_memo_amount * -1); -- Bug4308188
4825:
4826: --bug 4684931
4827: IF l_receipt_currency = l_trx_currency THEN
5154: END IF;
5155: END IF;
5156:
5157: IF g_debug THEN
5158: OZF_Utility_PVT.debug_message(l_full_name||': end');
5159: END IF;
5160: EXCEPTION
5161: WHEN FND_API.g_exc_error THEN
5162: x_return_status := FND_API.g_ret_sts_error;
5199:
5200: BEGIN
5201: -------------------- initialize -----------------------
5202: IF g_debug THEN
5203: OZF_Utility_PVT.debug_message(l_full_name||': start');
5204: END IF;
5205:
5206: x_return_status := FND_API.g_ret_sts_success;
5207:
5229: END IF;
5230: END IF;
5231:
5232: IF g_debug THEN
5233: OZF_Utility_PVT.debug_message(l_full_name||': end');
5234: END IF;
5235: EXCEPTION
5236: WHEN FND_API.g_exc_error THEN
5237: x_return_status := FND_API.g_ret_sts_error;
5282: -------------------- initialize -----------------------
5283: SAVEPOINT Create_AR_Payment;
5284:
5285: IF g_debug THEN
5286: OZF_Utility_PVT.debug_message(l_full_name||': start');
5287: END IF;
5288:
5289: IF FND_API.to_boolean(p_init_msg_list) THEN
5290: FND_MSG_PUB.initialize;
5313: RAISE FND_API.g_exc_unexpected_error;
5314: END IF;
5315:
5316: IF g_debug THEN
5317: OZF_Utility_PVT.debug_message('Create Payment for ==> '||l_claim_rec.claim_number);
5318: END IF;
5319:
5320: IF l_claim_rec.claim_class = 'DEDUCTION' THEN
5321: IF l_claim_rec.source_object_class IS NOT NULL AND
5356: ,x_msg_count => x_msg_count
5357: );
5358:
5359: IF g_debug THEN
5360: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_return_status);
5361: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
5362: END IF;
5363: IF l_return_status = FND_API.g_ret_sts_error THEN
5364: RAISE FND_API.g_exc_error;
5357: );
5358:
5359: IF g_debug THEN
5360: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_return_status);
5361: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
5362: END IF;
5363: IF l_return_status = FND_API.g_ret_sts_error THEN
5364: RAISE FND_API.g_exc_error;
5365: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5366: RAISE FND_API.g_exc_unexpected_error;
5367: END IF;
5368:
5369: IF g_debug THEN
5370: OZF_Utility_PVT.debug_message('Before calling the update_payment_detail ==> '||l_claim_rec.claim_id);
5371: END IF;
5372: -- To create the settlement doc.
5373: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
5374: p_api_version => l_api_version
5385: ,p_customer_trx_id => NULL --l_claim_rec.source_object_id
5386: ,p_adjust_id => NULL
5387: );
5388: IF g_debug THEN
5389: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_return_status);
5390: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
5391: END IF;
5392: IF l_return_status = FND_API.g_ret_sts_error THEN
5393: RAISE FND_API.g_exc_error;
5386: ,p_adjust_id => NULL
5387: );
5388: IF g_debug THEN
5389: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_return_status);
5390: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
5391: END IF;
5392: IF l_return_status = FND_API.g_ret_sts_error THEN
5393: RAISE FND_API.g_exc_error;
5394: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5536: p_data => x_msg_data
5537: );
5538:
5539: IF g_debug THEN
5540: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5541: END IF;
5542:
5543: EXCEPTION
5544: WHEN FND_API.g_exc_error THEN
5598:
5599: BEGIN
5600: -------------------- initialize -----------------------
5601: IF g_debug THEN
5602: OZF_Utility_PVT.debug_message(l_full_name||': start');
5603: END IF;
5604: x_return_status := FND_API.g_ret_sts_success;
5605:
5606: /*------------------------------------------------------------*
5634: RAISE FND_API.g_exc_unexpected_error;
5635: END IF;
5636:
5637: IF g_debug THEN
5638: OZF_Utility_PVT.debug_message(l_full_name||': end');
5639: END IF;
5640:
5641: EXCEPTION
5642: WHEN FND_API.g_exc_error THEN