[Home] [Help]
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;
483:
484: BEGIN
485: -------------------- initialize -----------------------
486: IF g_debug THEN
487: OZF_Utility_PVT.debug_message(l_full_name||': start');
488: END IF;
489:
490: x_return_status := FND_API.g_ret_sts_success;
491:
541: RAISE FND_API.g_exc_unexpected_error;
542: END IF;
543:
544: IF g_debug THEN
545: OZF_Utility_PVT.debug_message(l_full_name||': end');
546: END IF;
547: EXCEPTION
548: WHEN FND_API.g_exc_error THEN
549: x_return_status := FND_API.g_ret_sts_error;
592:
593: BEGIN
594: -------------------- initialize -----------------------
595: IF g_debug THEN
596: OZF_Utility_PVT.debug_message(l_full_name||': start');
597: END IF;
598:
599: x_return_status := FND_API.g_ret_sts_success;
600:
638: RAISE FND_API.g_exc_unexpected_error;
639: END IF;
640:
641: IF g_debug THEN
642: OZF_Utility_PVT.debug_message(l_full_name||': end');
643: END IF;
644: EXCEPTION
645: WHEN FND_API.g_exc_error THEN
646: x_return_status := FND_API.g_ret_sts_error;
707:
708: BEGIN
709: -------------------- initialize -----------------------
710: IF g_debug THEN
711: OZF_Utility_PVT.debug_message(l_full_name||': start');
712: END IF;
713:
714: x_return_status := FND_API.g_ret_sts_success;
715:
732: FETCH csr_payment_schedule INTO l_payment_schedule_id;
733: CLOSE csr_payment_schedule;
734:
735: IF g_debug THEN
736: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
737: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
738: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
739: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
740: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
733: CLOSE csr_payment_schedule;
734:
735: IF g_debug THEN
736: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
737: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
738: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
739: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
740: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
741: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
734:
735: IF g_debug THEN
736: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
737: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
738: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
739: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
740: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
741: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
742: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
735: IF g_debug THEN
736: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
737: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
738: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
739: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
740: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
741: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
742: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
743: END IF;
736: OZF_Utility_PVT.debug_message('cash_receipt_id='||p_cash_receipt_id);
737: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
738: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
739: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
740: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
741: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
742: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
743: END IF;
744:
737: OZF_Utility_PVT.debug_message('receipt_number='||p_receipt_number);
738: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
739: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
740: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
741: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
742: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
743: END IF;
744:
745: AR_RECEIPT_API_COVER.Apply(
738: OZF_Utility_PVT.debug_message('customer_trx_id='||p_customer_trx_id);
739: OZF_Utility_PVT.debug_message('trx_number='||p_trx_number);
740: OZF_Utility_PVT.debug_message('applied_payment_schedule_id='||l_payment_schedule_id);
741: OZF_Utility_PVT.debug_message('new_applied_amount='||p_new_applied_amount);
742: OZF_Utility_PVT.debug_message('new_applied_from_amount='||p_new_applied_from_amount); --4684931
743: END IF;
744:
745: AR_RECEIPT_API_COVER.Apply(
746: -- Standard API parameters.
803: RAISE FND_API.g_exc_unexpected_error;
804: END IF;
805:
806: IF g_debug THEN
807: OZF_Utility_PVT.debug_message(l_full_name||': end');
808: END IF;
809: EXCEPTION
810: WHEN FND_API.g_exc_error THEN
811: x_return_status := FND_API.g_ret_sts_error;
853:
854: BEGIN
855: -------------------- initialize -----------------------
856: IF g_debug THEN
857: OZF_Utility_PVT.debug_message(l_full_name||': start');
858: END IF;
859:
860: x_return_status := FND_API.g_ret_sts_success;
861:
891: RAISE FND_API.g_exc_unexpected_error;
892: END IF;
893:
894: IF g_debug THEN
895: OZF_Utility_PVT.debug_message(l_full_name||': end');
896: END IF;
897: EXCEPTION
898: WHEN FND_API.g_exc_error THEN
899: x_return_status := FND_API.g_ret_sts_error;
1004:
1005: BEGIN
1006: -------------------- initialize -----------------------
1007: IF g_debug THEN
1008: OZF_Utility_PVT.debug_message(l_full_name||': start');
1009: END IF;
1010:
1011: x_return_status := FND_API.g_ret_sts_success;
1012:
1059: END IF;
1060:
1061:
1062: IF g_debug THEN
1063: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1064: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1065: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1066: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1067: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1060:
1061:
1062: IF g_debug THEN
1063: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1064: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1065: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1066: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1067: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1068: END IF;
1061:
1062: IF g_debug THEN
1063: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1064: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1065: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1066: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1067: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1068: END IF;
1069:
1062: IF g_debug THEN
1063: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1064: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1065: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1066: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1067: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1068: END IF;
1069:
1070: OPEN csr_batch_source(p_claim_rec.set_of_books_id);
1063: OZF_Utility_PVT.debug_message(l_full_name||': request credit memo amount = '||p_claim_rec.amount_settled);
1064: OZF_Utility_PVT.debug_message(l_full_name||': request credit to line amount = '||l_line_amount);
1065: OZF_Utility_PVT.debug_message(l_full_name||': request credit to tax amount = '||l_tax_amount);
1066: OZF_Utility_PVT.debug_message(l_full_name||': request credit to freight amount = '||l_freight_amount);
1067: OZF_Utility_PVT.debug_message(l_full_name||': Line Level Credit = '||l_line_credit_flag);
1068: END IF;
1069:
1070: OPEN csr_batch_source(p_claim_rec.set_of_books_id);
1071: FETCH csr_batch_source INTO l_batch_source_name;
1186:
1187: x_cm_amount := l_x_line_amount + l_x_tax_amount + l_x_freight_amount;
1188:
1189: IF g_debug THEN
1190: OZF_Utility_PVT.debug_message(l_full_name||': credit memo id => '||x_cm_customer_trx_id);
1191: OZF_Utility_PVT.debug_message(l_full_name||': credit memo amount => '||x_cm_amount);
1192: END IF;
1193:
1194: --IF p_deduction_type = 'SOURCE_DED' THEN
1187: x_cm_amount := l_x_line_amount + l_x_tax_amount + l_x_freight_amount;
1188:
1189: IF g_debug THEN
1190: OZF_Utility_PVT.debug_message(l_full_name||': credit memo id => '||x_cm_customer_trx_id);
1191: OZF_Utility_PVT.debug_message(l_full_name||': credit memo amount => '||x_cm_amount);
1192: END IF;
1193:
1194: --IF p_deduction_type = 'SOURCE_DED' THEN
1195: IF p_upd_dispute_flag = FND_API.g_true THEN
1210: END IF;
1211: END IF; -- end if p_deduction_type = 'SOURCE_DED'
1212:
1213: IF g_debug THEN
1214: OZF_Utility_PVT.debug_message(l_full_name||': end');
1215: END IF;
1216: EXCEPTION
1217: WHEN FND_API.g_exc_error THEN
1218: x_return_status := FND_API.g_ret_sts_error;
1322:
1323: BEGIN
1324: -------------------- initialize -----------------------
1325: IF g_debug THEN
1326: OZF_Utility_PVT.debug_message(l_full_name||': start');
1327: END IF;
1328:
1329: x_return_status := FND_API.g_ret_sts_success;
1330:
1460: -- Pass LE
1461: l_chargeback_rec.legal_entity_id := p_claim_rec.legal_entity_id;
1462:
1463: IF g_debug THEN
1464: OZF_Utility_PVT.debug_message(l_full_name||': chargeback amount='||l_chargeback_rec.amount);
1465: END IF;
1466:
1467: ARP_CHARGEBACK_COVER.create_chargeback (
1468: p_chargeback_rec => l_chargeback_rec,
1489: RAISE FND_API.g_exc_unexpected_error;
1490: END IF;
1491:
1492: IF g_debug THEN
1493: OZF_Utility_PVT.debug_message(l_full_name||': end');
1494: END IF;
1495: EXCEPTION
1496: WHEN FND_API.g_exc_error THEN
1497: x_return_status := FND_API.g_ret_sts_error;
2025:
2026: BEGIN
2027: -------------------- initialize -----------------------
2028: IF g_debug THEN
2029: OZF_Utility_PVT.debug_message(l_full_name||': start');
2030: END IF;
2031:
2032: x_return_status := FND_API.g_ret_sts_success;
2033:
2049: RAISE FND_API.g_exc_unexpected_error;
2050: END;
2051:
2052: IF g_debug THEN
2053: OZF_Utility_PVT.debug_message(l_full_name||': end');
2054: END IF;
2055: EXCEPTION
2056: WHEN FND_API.g_exc_unexpected_error THEN
2057: x_return_status := FND_API.g_ret_sts_unexp_error ;
2112: x_return_status := FND_API.g_ret_sts_success;
2113:
2114:
2115: IF g_debug THEN
2116: OZF_Utility_PVT.debug_message( l_full_name || ' : Start');
2117: END IF;
2118:
2119: OPEN csr_claim_line_invoice(p_claim_id, p_invoice_id);
2120: LOOP
2127: x_cm_line_tbl(l_counter).price := l_trx_lines.rate;
2128: x_cm_line_tbl(l_counter).extended_amount := l_trx_lines.amount * -1;
2129:
2130: IF g_debug THEN
2131: 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);
2132: OZF_Utility_PVT.debug_message('x_cm_line_tbl('||l_counter||').extended_amount='||x_cm_line_tbl(l_counter).extended_amount);
2133: END IF;
2134: l_counter := l_counter +1;
2135: END IF;
2128: x_cm_line_tbl(l_counter).extended_amount := l_trx_lines.amount * -1;
2129:
2130: IF g_debug THEN
2131: 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);
2132: OZF_Utility_PVT.debug_message('x_cm_line_tbl('||l_counter||').extended_amount='||x_cm_line_tbl(l_counter).extended_amount);
2133: END IF;
2134: l_counter := l_counter +1;
2135: END IF;
2136:
2149: END IF;
2150:
2151: END LOOP;
2152: IF g_debug THEN
2153: OZF_Utility_PVT.debug_message('l_line_credit = '||l_line_credit);
2154: OZF_Utility_PVT.debug_message('l_tax_credit = '||l_tax_credit);
2155: OZF_Utility_PVT.debug_message('l_freight_credit = '||l_freight_credit);
2156: OZF_Utility_PVT.debug_message('l_total_credit = '||l_total_credit);
2157: END IF;
2150:
2151: END LOOP;
2152: IF g_debug THEN
2153: OZF_Utility_PVT.debug_message('l_line_credit = '||l_line_credit);
2154: OZF_Utility_PVT.debug_message('l_tax_credit = '||l_tax_credit);
2155: OZF_Utility_PVT.debug_message('l_freight_credit = '||l_freight_credit);
2156: OZF_Utility_PVT.debug_message('l_total_credit = '||l_total_credit);
2157: END IF;
2158: CLOSE csr_claim_line_invoice;
2151: END LOOP;
2152: IF g_debug THEN
2153: OZF_Utility_PVT.debug_message('l_line_credit = '||l_line_credit);
2154: OZF_Utility_PVT.debug_message('l_tax_credit = '||l_tax_credit);
2155: OZF_Utility_PVT.debug_message('l_freight_credit = '||l_freight_credit);
2156: OZF_Utility_PVT.debug_message('l_total_credit = '||l_total_credit);
2157: END IF;
2158: CLOSE csr_claim_line_invoice;
2159:
2152: IF g_debug THEN
2153: OZF_Utility_PVT.debug_message('l_line_credit = '||l_line_credit);
2154: OZF_Utility_PVT.debug_message('l_tax_credit = '||l_tax_credit);
2155: OZF_Utility_PVT.debug_message('l_freight_credit = '||l_freight_credit);
2156: OZF_Utility_PVT.debug_message('l_total_credit = '||l_total_credit);
2157: END IF;
2158: CLOSE csr_claim_line_invoice;
2159:
2160:
2163: x_freight_credit := l_freight_credit;
2164: x_total_credit := l_total_credit;
2165:
2166: IF g_debug THEN
2167: OZF_Utility_PVT.debug_message( l_full_name || ' : End');
2168: END IF;
2169:
2170:
2171: EXCEPTION
2274:
2275: BEGIN
2276: -------------------- initialize -----------------------
2277: IF g_debug THEN
2278: OZF_Utility_PVT.debug_message(l_full_name||': start');
2279: END IF;
2280:
2281: x_return_status := FND_API.g_ret_sts_success;
2282:
2293: *------------------------------------------------------------*/
2294:
2295: -- Update dispute amount.
2296: IF g_debug THEN
2297: OZF_Utility_PVT.debug_message('Source Deduction -> Update dispute amount');
2298: END IF;
2299: Update_dispute_amount(
2300: p_claim_rec => p_claim_rec
2301: ,p_dispute_amount => l_cm_amount
2317: p_tax_credit = 0 AND
2318: p_freight_credit = 0 AND
2319: p_total_credit <> 0 THEN
2320: IF g_debug THEN
2321: OZF_Utility_PVT.debug_message('Invoice Deduction[Credit to --] -> Create Credit Memo');
2322: END IF;
2323: Create_AR_Credit_Memo(
2324: p_claim_rec => p_claim_rec
2325: ,p_customer_trx_id => p_claim_rec.source_object_id
2357:
2358:
2359: -- 1. Unapply invoice from receipt.
2360: IF g_debug THEN
2361: OZF_Utility_PVT.debug_message('Invoice Deduction[Credit to Line/Tax/Freight] -> 1. Unapply invoice from receipt.');
2362: END IF;
2363: -- Bug4118351: Do not unapply if original amount applied is zero.
2364: IF l_old_applied_invoice.amount_applied <> 0 THEN
2365: Unapply_from_Receipt(
2377: END IF;
2378:
2379: -- 2. Create credit memo for the invoice
2380: IF g_debug THEN
2381: OZF_Utility_PVT.debug_message('Invoice Deduction[Credit to Line/Tax/Freight] -> 2. Create credit memo for the invoice');
2382: END IF;
2383: Create_AR_Credit_Memo(
2384: p_claim_rec => p_claim_rec
2385: ,p_customer_trx_id => p_claim_rec.source_object_id
2406: END IF;
2407:
2408: -- 3. Apply invoice back on receipt.
2409: IF g_debug THEN
2410: OZF_Utility_PVT.debug_message('Invoice Deduction[Credit to Line/Tax/Freight] -> 3. Apply invoice back on receipt');
2411: END IF;
2412: --IF (l_old_applied_invoice.amount_due_remaining + l_cm_amount) = 0 THEN
2413: IF l_old_applied_invoice.amount_due_remaining = p_claim_rec.amount_settled THEN
2414: l_old_applied_invoice.application_ref_type := NULL;
2462: | Modified for 4308173
2463: *------------------------------------------------------------*/
2464:
2465: IF g_debug THEN
2466: OZF_Utility_PVT.debug_message('Receipt Deduction -> 1. Unapply associated invoice from receipt');
2467: END IF;
2468:
2469:
2470: OPEN csr_old_applied_amount( p_claim_rec.receipt_id, p_invoice_id);
2485: END IF;
2486:
2487:
2488: IF g_debug THEN
2489: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply_Claim_Investigation.');
2490: END IF;
2491: OPEN csr_old_claim_investigation(p_claim_rec.receipt_id, p_claim_rec.root_claim_id);
2492: FETCH csr_old_claim_investigation INTO l_old_applied_claim_amount;
2493: CLOSE csr_old_claim_investigation;
2508: END IF;
2509:
2510:
2511: IF g_debug THEN
2512: OZF_Utility_PVT.debug_message('Receipt Deduction -> 3. Validate Invoice.');
2513: END IF;
2514: OZF_AR_VALIDATION_PVT.Validate_CreditTo_Information(
2515: p_claim_rec => p_claim_rec
2516: ,p_invoice_id => p_invoice_id
2530: p_freight_credit = 0 AND
2531: p_total_credit <> 0 THEN
2532:
2533: IF g_debug THEN
2534: OZF_Utility_PVT.debug_message('Receipt Deduction -> 4. Apply same associated invoice with reduced amount');
2535: END IF;
2536: l_new_applied_amount := l_old_applied_invoice.amount_applied - p_sttlmnt_amt;
2537:
2538:
2559: END IF;
2560:
2561: -- 4. Create credit memo for the invoice.
2562: IF g_debug THEN
2563: OZF_Utility_PVT.debug_message('Receipt Deduction -> 5. Create credit memo for the invoice.');
2564: END IF;
2565: Create_AR_Credit_Memo(
2566: p_claim_rec => p_claim_rec
2567: ,p_customer_trx_id => p_invoice_id
2592: -- Claim Investigation (Deduction) - Credit to Tax/Line/Freight
2593: -- ----------------------------------------------
2594: -- 3. Apply same associated invoice if balance amount is zero.
2595: IF g_debug THEN
2596: OZF_Utility_PVT.debug_message('Receipt Deduction -> 3. Apply same associated invoice if balance amount is zero.');
2597: END IF;
2598: l_new_applied_amount := l_old_applied_invoice.amount_applied - p_claim_rec.amount_settled;
2599:
2600: IF l_new_applied_amount = 0 THEN
2622: END IF;
2623:
2624: -- 4. Create credit memo for the invoice.
2625: IF g_debug THEN
2626: OZF_Utility_PVT.debug_message('Receipt Deduction -> 4. Create credit memo for the invoice.');
2627: END IF;
2628: Create_AR_Credit_Memo(
2629: p_claim_rec => p_claim_rec
2630: ,p_customer_trx_id => p_invoice_id
2651: END IF;
2652:
2653:
2654: IF g_debug THEN
2655: OZF_Utility_PVT.debug_message('Receipt Deduction -> 5. Apply same associated invoice with reduced amount');
2656: END IF;
2657: l_new_applied_amount := l_old_applied_invoice.amount_applied - p_sttlmnt_amt;
2658:
2659: IF l_new_applied_amount <> 0 THEN
2693: p_tax_credit = 0 AND
2694: p_freight_credit = 0 AND
2695: p_total_credit <> 0 THEN
2696: IF g_debug THEN
2697: OZF_Utility_PVT.debug_message('Claim [Invoice Credit to --] -> 1. Create Credit Memo');
2698: END IF;
2699: -- 1. Create credit memo for the invoice
2700: Create_AR_Credit_Memo(
2701: p_claim_rec => p_claim_rec
2723: END IF;
2724: ELSE
2725: -- 1. Create credit memo for the invoice
2726: IF g_debug THEN
2727: OZF_Utility_PVT.debug_message('Claim [Invoice Credit to Line/Tax/Freight] -> 1. Create credit memo for the invoice');
2728: END IF;
2729: Create_AR_Credit_Memo(
2730: p_claim_rec => p_claim_rec
2731: ,p_customer_trx_id => p_invoice_id
2780: END IF;
2781: END IF;
2782:
2783: IF g_debug THEN
2784: OZF_Utility_PVT.debug_message(l_full_name||': end');
2785: END IF;
2786: EXCEPTION
2787: WHEN FND_API.g_exc_error THEN
2788: x_return_status := FND_API.g_ret_sts_error;
2918:
2919: BEGIN
2920: -------------------- initialize -----------------------
2921: IF g_debug THEN
2922: OZF_Utility_PVT.debug_message(l_full_name||': start');
2923: END IF;
2924:
2925: SAVEPOINT Pay_by_Invoice_Credit;
2926:
2943:
2944:
2945: IF g_debug THEN
2946: IF l_process_setl_wf THEN
2947: OZF_Utility_PVT.debug_message('Process Settlement Workflow? -> Yes' );
2948: ELSE
2949: OZF_Utility_PVT.debug_message('Process Settlement Workflow? -> No' );
2950: END IF;
2951: END IF;
2945: IF g_debug THEN
2946: IF l_process_setl_wf THEN
2947: OZF_Utility_PVT.debug_message('Process Settlement Workflow? -> Yes' );
2948: ELSE
2949: OZF_Utility_PVT.debug_message('Process Settlement Workflow? -> No' );
2950: END IF;
2951: END IF;
2952:
2953: IF l_process_setl_wf THEN
3172:
3173: BEGIN
3174: -------------------- initialize -----------------------
3175: IF g_debug THEN
3176: OZF_Utility_PVT.debug_message(l_full_name||': start');
3177: END IF;
3178: x_return_status := FND_API.g_ret_sts_success;
3179:
3180: ------------------------ start -------------------------
3183: /*------------------------------------------------------------*
3184: | No payment reference specified (No open credit memo specified) -> AutoInvoice
3185: *------------------------------------------------------------*/
3186: IF g_debug THEN
3187: OZF_Utility_PVT.debug_message('No payment reference specified (No open credit memo specified) -> AutoInvoice.');
3188: END IF;
3189: -- 1. AutoInvoice
3190: OZF_AR_INTERFACE_PVT.Interface_Claim(
3191: p_api_version => l_api_version
3265: FETCH csr_trx_currency INTO l_trx_currency;
3266: CLOSE csr_trx_currency;
3267:
3268: IF g_debug THEN
3269: OZF_Utility_PVT.debug_message('Invoice Deduction -> 1. Update amount in dispute');
3270: END IF;
3271: -- 1. Update amount in dispute
3272: Update_dispute_amount(
3273: p_claim_rec => p_claim_rec
3283: END IF;
3284:
3285: IF l_cm_applied_on_rec_amt IS NULL THEN
3286: IF g_debug THEN
3287: OZF_Utility_PVT.debug_message('Invoice Deduction -> 2. Apply creit memo on receipt');
3288: END IF;
3289: --4684931
3290: IF l_trx_currency = p_claim_rec.currency_code THEN
3291: l_p_new_applied_amount := p_credit_memo_amount * -1;
3315: RAISE FND_API.g_exc_unexpected_error;
3316: END IF;
3317: ELSE
3318: IF g_debug THEN
3319: OZF_Utility_PVT.debug_message('Invoice Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
3320: OZF_Utility_PVT.debug_message('Invoice Deduction -> 2. Reapply credit memo with new amount on receipt');
3321: END IF;
3322:
3323: l_settlement_amount := (p_credit_memo_amount * -1) ; -- Bug4308188
3316: END IF;
3317: ELSE
3318: IF g_debug THEN
3319: OZF_Utility_PVT.debug_message('Invoice Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
3320: OZF_Utility_PVT.debug_message('Invoice Deduction -> 2. Reapply credit memo with new amount on receipt');
3321: END IF;
3322:
3323: l_settlement_amount := (p_credit_memo_amount * -1) ; -- Bug4308188
3324:
3345:
3346: END IF;
3347:
3348: IF g_debug THEN
3349: OZF_Utility_PVT.debug_message('Invoice Deduction -> 3. Unapply claim investigation');
3350: OZF_Utility_PVT.debug_message('original invoice deduction amount = '||l_old_applied_invoice.amount_applied);
3351: OZF_Utility_PVT.debug_message('reapply invoice deduction amount = '||(l_old_applied_invoice.amount_applied + p_credit_memo_amount));
3352: END IF;
3353: -- 3. Reapply claim investigation
3346: END IF;
3347:
3348: IF g_debug THEN
3349: OZF_Utility_PVT.debug_message('Invoice Deduction -> 3. Unapply claim investigation');
3350: OZF_Utility_PVT.debug_message('original invoice deduction amount = '||l_old_applied_invoice.amount_applied);
3351: OZF_Utility_PVT.debug_message('reapply invoice deduction amount = '||(l_old_applied_invoice.amount_applied + p_credit_memo_amount));
3352: END IF;
3353: -- 3. Reapply claim investigation
3354: Unapply_Claim_Investigation(
3347:
3348: IF g_debug THEN
3349: OZF_Utility_PVT.debug_message('Invoice Deduction -> 3. Unapply claim investigation');
3350: OZF_Utility_PVT.debug_message('original invoice deduction amount = '||l_old_applied_invoice.amount_applied);
3351: OZF_Utility_PVT.debug_message('reapply invoice deduction amount = '||(l_old_applied_invoice.amount_applied + p_credit_memo_amount));
3352: END IF;
3353: -- 3. Reapply claim investigation
3354: Unapply_Claim_Investigation(
3355: p_claim_rec => p_claim_rec
3383: | 1. Apply credit memo with increased amount on receipt
3384: | 2. Unapply claim investigation
3385: *------------------------------------------------------------*/
3386: IF g_debug THEN
3387: OZF_Utility_PVT.debug_message('Receipt Deduction -> 1. Apply creit memo on receipt');
3388: END IF;
3389:
3390: --4684931
3391: IF l_receipt_currency = l_trx_currency THEN
3413: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3414: RAISE FND_API.g_exc_unexpected_error;
3415: END IF;
3416: IF g_debug THEN
3417: OZF_Utility_PVT.debug_message('Receipt Deduction -> 2. Unapply claim investigation');
3418: END IF;
3419: ELSE
3420: /*------------------------------------------------------------*
3421: | Receipt Deduction
3420: /*------------------------------------------------------------*
3421: | Receipt Deduction
3422: *------------------------------------------------------------*/
3423: IF g_debug THEN
3424: OZF_Utility_PVT.debug_message('Receipt Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
3425: END IF;
3426:
3427: IF g_debug THEN
3428: OZF_Utility_PVT.debug_message('Receipt Deduction -> 1. Reapply creit memo with increased amount on receipt');
3424: OZF_Utility_PVT.debug_message('Receipt Deduction: Pay by Previous Open Credit Memo which already exists on the receipt');
3425: END IF;
3426:
3427: IF g_debug THEN
3428: OZF_Utility_PVT.debug_message('Receipt Deduction -> 1. Reapply creit memo with increased amount on receipt');
3429: END IF;
3430:
3431: l_settlement_amount := (p_credit_memo_amount * -1); -- Bug4308188
3432: --4684931
3458: FETCH csr_claim_investigation_amount INTO l_orig_dispute_amount;
3459: CLOSE csr_claim_investigation_amount;
3460:
3461: IF g_debug THEN
3462: OZF_Utility_PVT.debug_message('original claim investigation amount = '||l_orig_dispute_amount);
3463: OZF_Utility_PVT.debug_message('reapply claim investigation amount = '||(l_orig_dispute_amount + p_credit_memo_amount));
3464: END IF;
3465: Unapply_Claim_Investigation(
3466: p_claim_rec => p_claim_rec
3459: CLOSE csr_claim_investigation_amount;
3460:
3461: IF g_debug THEN
3462: OZF_Utility_PVT.debug_message('original claim investigation amount = '||l_orig_dispute_amount);
3463: OZF_Utility_PVT.debug_message('reapply claim investigation amount = '||(l_orig_dispute_amount + p_credit_memo_amount));
3464: END IF;
3465: Unapply_Claim_Investigation(
3466: p_claim_rec => p_claim_rec
3467: ,p_reapply_amount => l_orig_dispute_amount + p_credit_memo_amount --(l_orig_reapply_amount - p_credit_memo_amount) * -1
3506: END IF;
3507: END IF;
3508:
3509: IF g_debug THEN
3510: OZF_Utility_PVT.debug_message(l_full_name||': end');
3511: END IF;
3512: EXCEPTION
3513: WHEN FND_API.g_exc_error THEN
3514: x_return_status := FND_API.g_ret_sts_error;
3563:
3564: BEGIN
3565: -------------------- initialize -----------------------
3566: IF g_debug THEN
3567: OZF_Utility_PVT.debug_message(l_full_name||': start');
3568: END IF;
3569:
3570: x_return_status := FND_API.g_ret_sts_success;
3571:
3590: | Overpayment -> 1. Unapply claim investigation
3591: | 2. Apply On Account Credit
3592: *------------------------------------------------------------*/
3593: IF g_debug THEN
3594: OZF_Utility_PVT.debug_message('Overpayment -> 1. Unapply claim investigation.');
3595: END IF;
3596: -- 1. Unapply claim investigation
3597: OPEN csr_old_claim_investigation(p_claim_rec.receipt_id, p_claim_rec.root_claim_id);
3598: FETCH csr_old_claim_investigation INTO l_old_applied_claim_amount;
3613: RAISE FND_API.g_exc_unexpected_error;
3614: END IF;
3615:
3616: IF g_debug THEN
3617: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply On Account Credit.');
3618: END IF;
3619: --2. Apply On Account Credit
3620: Apply_On_Account_Credit(
3621: p_claim_rec => p_claim_rec
3633: | Update Deduction payment detail
3634: *------------------------------------------------------------*/
3635: -- Update Deduction payment detail
3636: IF g_debug THEN
3637: OZF_Utility_PVT.debug_message('cash_receipt_id = '||p_claim_rec.receipt_id);
3638: END IF;
3639: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
3640: p_api_version => l_api_version
3641: ,p_init_msg_list => FND_API.g_false
3664: RAISE FND_API.g_exc_error;
3665: END IF;
3666:
3667: IF g_debug THEN
3668: OZF_Utility_PVT.debug_message(l_full_name||': end');
3669: END IF;
3670: EXCEPTION
3671: WHEN FND_API.g_exc_error THEN
3672: x_return_status := FND_API.g_ret_sts_error;
3711:
3712: BEGIN
3713: -------------------- initialize -----------------------
3714: IF g_debug THEN
3715: OZF_Utility_PVT.debug_message(l_full_name||': start');
3716: END IF;
3717:
3718: x_return_status := FND_API.g_ret_sts_success;
3719:
3789: END IF;
3790:
3791:
3792: IF g_debug THEN
3793: OZF_Utility_PVT.debug_message(l_full_name||': end');
3794: END IF;
3795: EXCEPTION
3796: WHEN FND_API.g_exc_error THEN
3797: x_return_status := FND_API.g_ret_sts_error;
3835:
3836: BEGIN
3837: -------------------- initialize -----------------------
3838: IF g_debug THEN
3839: OZF_Utility_PVT.debug_message(l_full_name||': start');
3840: END IF;
3841:
3842: x_return_status := FND_API.g_ret_sts_success;
3843:
3891: END IF;
3892: END IF;
3893:
3894: IF g_debug THEN
3895: OZF_Utility_PVT.debug_message(l_full_name||': end');
3896: END IF;
3897: EXCEPTION
3898: WHEN FND_API.g_exc_error THEN
3899: x_return_status := FND_API.g_ret_sts_error;
4002:
4003: BEGIN
4004: -------------------- initialize -----------------------
4005: IF g_debug THEN
4006: OZF_Utility_PVT.debug_message(l_full_name||': start');
4007: END IF;
4008:
4009: x_return_status := FND_API.g_ret_sts_success;
4010:
4070: OPEN csr_dm_exist_on_rec(p_claim_rec.receipt_id, p_payment_reference_id);
4071: 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
4072: CLOSE csr_dm_exist_on_rec;
4073:
4074: OZF_Utility_PVT.debug_message('Overpayment -> 1. Unapply claim investigation');
4075: -- 1. Unapply claim investigation
4076: OPEN csr_claim_investigation_amount(p_claim_rec.root_claim_id);
4077: FETCH csr_claim_investigation_amount INTO l_orig_dispute_amount;
4078: CLOSE csr_claim_investigation_amount;
4076: OPEN csr_claim_investigation_amount(p_claim_rec.root_claim_id);
4077: FETCH csr_claim_investigation_amount INTO l_orig_dispute_amount;
4078: CLOSE csr_claim_investigation_amount;
4079:
4080: OZF_Utility_PVT.debug_message('original overpayment amount = '||l_orig_dispute_amount);
4081: OZF_Utility_PVT.debug_message('reapply overpayment amount = '||(l_orig_dispute_amount + p_debit_memo_amount));
4082:
4083: Unapply_Claim_Investigation(
4084: p_claim_rec => p_claim_rec
4077: FETCH csr_claim_investigation_amount INTO l_orig_dispute_amount;
4078: CLOSE csr_claim_investigation_amount;
4079:
4080: OZF_Utility_PVT.debug_message('original overpayment amount = '||l_orig_dispute_amount);
4081: OZF_Utility_PVT.debug_message('reapply overpayment amount = '||(l_orig_dispute_amount + p_debit_memo_amount));
4082:
4083: Unapply_Claim_Investigation(
4084: p_claim_rec => p_claim_rec
4085: ,p_reapply_amount => (l_orig_dispute_amount + p_debit_memo_amount)
4094: END IF;
4095:
4096: l_stlmnt_amount := NVL(l_dm_applied_on_rec_amt,0) + (p_debit_memo_amount * -1);
4097: IF l_dm_applied_on_rec_amt IS NULL THEN
4098: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo on receipt');
4099: --bug4684931
4100: IF l_receipt_currency = l_trx_currency THEN
4101: l_p_new_applied_amount := NVL(l_dm_applied_on_rec_amt,0) + (p_debit_memo_amount * -1);
4102: l_p_new_applied_from_amount := NULL;
4123: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4124: RAISE FND_API.g_exc_unexpected_error;
4125: END IF;
4126: ELSE
4127: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
4128: OZF_Utility_PVT.debug_message('Overpayment -> 1.5. Unapply debit memo on receipt');
4129: -- 1.5. Unapply creit memo on receipt
4130: Unapply_from_Receipt(
4131: p_cash_receipt_id => p_claim_rec.receipt_id
4124: RAISE FND_API.g_exc_unexpected_error;
4125: END IF;
4126: ELSE
4127: OZF_Utility_PVT.debug_message('Overpayment: Pay by Previous Open Debit Memo which already exists on the receipt');
4128: OZF_Utility_PVT.debug_message('Overpayment -> 1.5. Unapply debit memo on receipt');
4129: -- 1.5. Unapply creit memo on receipt
4130: Unapply_from_Receipt(
4131: p_cash_receipt_id => p_claim_rec.receipt_id
4132: ,p_customer_trx_id => p_payment_reference_id
4139: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4140: RAISE FND_API.g_exc_unexpected_error;
4141: END IF;
4142:
4143: OZF_Utility_PVT.debug_message('Overpayment -> 2. Apply debit memo with increased amount on receipt');
4144: l_settlement_amount := (p_debit_memo_amount * -1); -- Bug4308188
4145:
4146: --bug 4684931
4147: IF l_receipt_currency = l_trx_currency THEN
4212: END IF;
4213: END IF;
4214:
4215: IF g_debug THEN
4216: OZF_Utility_PVT.debug_message(l_full_name||': end');
4217: END IF;
4218: EXCEPTION
4219: WHEN FND_API.g_exc_error THEN
4220: x_return_status := FND_API.g_ret_sts_error;
4257:
4258: BEGIN
4259: -------------------- initialize -----------------------
4260: IF g_debug THEN
4261: OZF_Utility_PVT.debug_message(l_full_name||': start');
4262: END IF;
4263:
4264: x_return_status := FND_API.g_ret_sts_success;
4265:
4287: END IF;
4288: END IF;
4289:
4290: IF g_debug THEN
4291: OZF_Utility_PVT.debug_message(l_full_name||': end');
4292: END IF;
4293: EXCEPTION
4294: WHEN FND_API.g_exc_error THEN
4295: x_return_status := FND_API.g_ret_sts_error;
4340: -------------------- initialize -----------------------
4341: SAVEPOINT Create_AR_Payment;
4342:
4343: IF g_debug THEN
4344: OZF_Utility_PVT.debug_message(l_full_name||': start');
4345: END IF;
4346:
4347: IF FND_API.to_boolean(p_init_msg_list) THEN
4348: FND_MSG_PUB.initialize;
4371: RAISE FND_API.g_exc_unexpected_error;
4372: END IF;
4373:
4374: IF g_debug THEN
4375: OZF_Utility_PVT.debug_message('Create Payment for ==> '||l_claim_rec.claim_number);
4376: END IF;
4377:
4378: IF l_claim_rec.claim_class = 'DEDUCTION' THEN
4379: IF l_claim_rec.source_object_class IS NOT NULL AND
4413: ,x_msg_data => x_msg_data
4414: ,x_msg_count => x_msg_count
4415: );
4416:
4417: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_return_status);
4418: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
4419: IF l_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4414: ,x_msg_count => x_msg_count
4415: );
4416:
4417: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_return_status);
4418: OZF_Utility_PVT.debug_message('After calling the close_claim ==> '||l_claim_rec.claim_id);
4419: IF l_return_status = FND_API.g_ret_sts_error THEN
4420: RAISE FND_API.g_exc_error;
4421: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4420: RAISE FND_API.g_exc_error;
4421: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4422: RAISE FND_API.g_exc_unexpected_error;
4423: END IF;
4424: OZF_Utility_PVT.debug_message('Before calling the update_payment_detail ==> '||l_claim_rec.claim_id);
4425: -- To create the settlement doc.
4426: OZF_SETTLEMENT_DOC_PVT.Update_Payment_Detail(
4427: p_api_version => l_api_version
4428: ,p_init_msg_list => FND_API.g_false
4437: ,p_cash_receipt_id => NULL
4438: ,p_customer_trx_id => NULL --l_claim_rec.source_object_id
4439: ,p_adjust_id => NULL
4440: );
4441: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_return_status);
4442: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
4443: IF l_return_status = FND_API.g_ret_sts_error THEN
4444: RAISE FND_API.g_exc_error;
4445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4438: ,p_customer_trx_id => NULL --l_claim_rec.source_object_id
4439: ,p_adjust_id => NULL
4440: );
4441: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_return_status);
4442: OZF_Utility_PVT.debug_message('After calling update_payment_detail ==> '||l_claim_rec.claim_id);
4443: IF l_return_status = FND_API.g_ret_sts_error THEN
4444: RAISE FND_API.g_exc_error;
4445: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4446: RAISE FND_API.g_exc_unexpected_error;
4566: RAISE FND_API.g_exc_unexpected_error;
4567: END IF;
4568:
4569: ELSE
4570: OZF_Utility_PVT.debug_message('KP1 Test: end');
4571: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4572: FND_MESSAGE.set_name('OZF', 'OZF_DED_PAYMETHOD_ERR');
4573: FND_MESSAGE.set_token('PAYMENT_METHOD', l_claim_rec.payment_method);
4574: FND_MSG_PUB.add;
4585: p_data => x_msg_data
4586: );
4587:
4588: IF g_debug THEN
4589: OZF_Utility_PVT.debug_message(l_full_name ||': end');
4590: END IF;
4591:
4592: EXCEPTION
4593: WHEN FND_API.g_exc_error THEN
4647:
4648: BEGIN
4649: -------------------- initialize -----------------------
4650: IF g_debug THEN
4651: OZF_Utility_PVT.debug_message(l_full_name||': start');
4652: END IF;
4653: x_return_status := FND_API.g_ret_sts_success;
4654:
4655: /*------------------------------------------------------------*
4683: RAISE FND_API.g_exc_unexpected_error;
4684: END IF;
4685:
4686: IF g_debug THEN
4687: OZF_Utility_PVT.debug_message(l_full_name||': end');
4688: END IF;
4689:
4690: EXCEPTION
4691: WHEN FND_API.g_exc_error THEN