272: IF OZF_DEBUG_HIGH_ON THEN
273: OZF_Utility_PVT.debug_message(l_full_name||': start');
274: END IF;
275:
276: x_return_status := FND_API.g_ret_sts_success;
277:
278: ------------------------ start -------------------------
279: -- ---------------
280: -- REG_CREDIT_MEMO
305: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
306: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
307: FND_MSG_PUB.add;
308: END IF;
309: RAISE FND_API.g_exc_error;
310: END IF;
311: ELSE
312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
313: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
313: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
314: FND_MSG_PUB.add;
315: END IF;
316: RAISE FND_API.g_exc_error;
317: END IF;
318:
319: -- ------------
320: -- CREDIT_MEMO
356: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
357: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
358: FND_MSG_PUB.add;
359: END IF;
360: RAISE FND_API.g_exc_error;
361: END IF;
362: ELSE
363: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
364: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
363: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
364: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
365: FND_MSG_PUB.add;
366: END IF;
367: RAISE FND_API.g_exc_error;
368: END IF;
369:
370: -- Bug4308188: For deductions/overpayments amount is passed to accomodate
371: -- cases where CM is reapplied on the receipt.
399: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
400: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
401: FND_MSG_PUB.add;
402: END IF;
403: RAISE FND_API.g_exc_error;
404: END IF;
405: ELSE
406: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
407: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
406: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
407: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
408: FND_MSG_PUB.add;
409: END IF;
410: RAISE FND_API.g_exc_error;
411: END IF;
412:
413: --R12.1 Enhancement : For Accounting Only
414: -- ---------------
434: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
435: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
436: FND_MSG_PUB.add;
437: END IF;
438: RAISE FND_API.g_exc_error;
439: END IF;
440:
441: -- ---------------
442: -- CHARGEBACK
464: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
465: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
466: FND_MSG_PUB.add;
467: END IF;
468: RAISE FND_API.g_exc_error;
469: END IF;
470: ELSE
471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
472: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
471: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
472: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
473: FND_MSG_PUB.add;
474: END IF;
475: RAISE FND_API.g_exc_error;
476: END IF;
477:
478: -- ---------------
479: -- WRITE_OFF
502: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
503: FND_MESSAGE.set_token('ID', 'p_adjust_id');
504: FND_MSG_PUB.add;
505: END IF;
506: RAISE FND_API.g_exc_error;
507: END IF;
508: ELSIF p_deduction_type IN ('RECEIPT_OPM', 'RECEIPT_DED') THEN
509: IF p_cash_receipt_id IS NOT NULL THEN
510: IF OZF_DEBUG_HIGH_ON THEN
527: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
528: FND_MESSAGE.set_token('ID', 'p_adjust_id');
529: FND_MSG_PUB.add;
530: END IF;
531: RAISE FND_API.g_exc_error;
532: END IF;
533: ELSE
534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
535: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
535: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
536: FND_MSG_PUB.add;
537: END IF;
538: RAISE FND_API.g_exc_error;
539: END IF;
540:
541: -- ---------------
542: -- DEBIT_MEMO
578: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_ID_MISSING');
579: FND_MESSAGE.set_token('ID', 'p_customer_trx_id');
580: FND_MSG_PUB.add;
581: END IF;
582: RAISE FND_API.g_exc_error;
583: END IF;
584: ELSE
585: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
586: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
585: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
586: FND_MESSAGE.set_name('OZF', 'OZF_SETL_UPDPAY_DETL_ERR');
587: FND_MSG_PUB.add;
588: END IF;
589: RAISE FND_API.g_exc_error;
590: END IF;
591:
592: -- Bug4308188: For deductions/overpayments amount is passed to accomodate
593: -- cases where CM is reapplied on the receipt.
607: IF l_settlement_doc_tbl.count > 0 THEN
608: IF p_settlement_mode IS NULL THEN
609: FOR j IN l_settlement_doc_tbl.FIRST..l_settlement_doc_tbl.LAST LOOP
610: IF ((l_settlement_doc_tbl(j).settlement_id IS NOT NULL AND
611: l_settlement_doc_tbl(j).settlement_id <> FND_API.G_miss_num)
612: OR (l_settlement_doc_tbl(1).payment_method = 'ACCOUNTING_ONLY')) THEN
613: OZF_SETTLEMENT_DOC_PVT.Create_Settlement_Doc(
614: p_api_version_number => l_api_version,
615: p_init_msg_list => p_init_msg_list,
620: x_msg_data => x_msg_data,
621: p_settlement_doc_rec => l_settlement_doc_tbl(j),
622: x_settlement_doc_id => l_settlement_doc_id
623: );
624: IF l_return_status = FND_API.g_ret_sts_error THEN
625: RAISE FND_API.g_exc_error;
626: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
627: RAISE FND_API.g_exc_unexpected_error;
628: END IF;
621: p_settlement_doc_rec => l_settlement_doc_tbl(j),
622: x_settlement_doc_id => l_settlement_doc_id
623: );
624: IF l_return_status = FND_API.g_ret_sts_error THEN
625: RAISE FND_API.g_exc_error;
626: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
627: RAISE FND_API.g_exc_unexpected_error;
628: END IF;
629: -- should we check amount_settled equals to total of settle doc amount before closing claim?
622: x_settlement_doc_id => l_settlement_doc_id
623: );
624: IF l_return_status = FND_API.g_ret_sts_error THEN
625: RAISE FND_API.g_exc_error;
626: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
627: RAISE FND_API.g_exc_unexpected_error;
628: END IF;
629: -- should we check amount_settled equals to total of settle doc amount before closing claim?
630: --l_upd_claim_status := TRUE;
623: );
624: IF l_return_status = FND_API.g_ret_sts_error THEN
625: RAISE FND_API.g_exc_error;
626: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
627: RAISE FND_API.g_exc_unexpected_error;
628: END IF;
629: -- should we check amount_settled equals to total of settle doc amount before closing claim?
630: --l_upd_claim_status := TRUE;
631: END IF;
633:
634: ELSIF p_settlement_mode = 'MASS_SETTLEMENT' THEN
635: FOR j IN l_settlement_doc_tbl.FIRST..l_settlement_doc_tbl.LAST LOOP
636: IF l_settlement_doc_tbl(j).settlement_id IS NOT NULL AND
637: l_settlement_doc_tbl(j).settlement_id <> FND_API.G_miss_num THEN
638: l_settlement_doc_tbl(j).settlement_doc_id := p_settlement_doc_id;
639: OPEN csr_settle_doc_obj_ver(l_settlement_doc_tbl(j).settlement_doc_id);
640: FETCH csr_settle_doc_obj_ver INTO l_settlement_doc_tbl(j).object_version_number;
641: CLOSE csr_settle_doc_obj_ver;
650: x_msg_data => x_msg_data,
651: p_settlement_doc_rec => l_settlement_doc_tbl(j),
652: x_object_version_number => l_dummy_number
653: );
654: IF l_return_status = FND_API.g_ret_sts_error THEN
655: RAISE FND_API.g_exc_error;
656: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
657: RAISE FND_API.g_exc_unexpected_error;
658: END IF;
651: p_settlement_doc_rec => l_settlement_doc_tbl(j),
652: x_object_version_number => l_dummy_number
653: );
654: IF l_return_status = FND_API.g_ret_sts_error THEN
655: RAISE FND_API.g_exc_error;
656: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
657: RAISE FND_API.g_exc_unexpected_error;
658: END IF;
659: -- should we check amount_settled equals to total of settle doc amount before closing claim?
652: x_object_version_number => l_dummy_number
653: );
654: IF l_return_status = FND_API.g_ret_sts_error THEN
655: RAISE FND_API.g_exc_error;
656: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
657: RAISE FND_API.g_exc_unexpected_error;
658: END IF;
659: -- should we check amount_settled equals to total of settle doc amount before closing claim?
660: --l_upd_claim_status := TRUE;
653: );
654: IF l_return_status = FND_API.g_ret_sts_error THEN
655: RAISE FND_API.g_exc_error;
656: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
657: RAISE FND_API.g_exc_unexpected_error;
658: END IF;
659: -- should we check amount_settled equals to total of settle doc amount before closing claim?
660: --l_upd_claim_status := TRUE;
661: END IF;
667: IF OZF_DEBUG_HIGH_ON THEN
668: OZF_Utility_PVT.debug_message(l_full_name||': end');
669: END IF;
670: EXCEPTION
671: WHEN FND_API.g_exc_error THEN
672: x_return_status := FND_API.g_ret_sts_error;
673:
674: WHEN FND_API.g_exc_unexpected_error THEN
675: x_return_status := FND_API.g_ret_sts_unexp_error ;
668: OZF_Utility_PVT.debug_message(l_full_name||': end');
669: END IF;
670: EXCEPTION
671: WHEN FND_API.g_exc_error THEN
672: x_return_status := FND_API.g_ret_sts_error;
673:
674: WHEN FND_API.g_exc_unexpected_error THEN
675: x_return_status := FND_API.g_ret_sts_unexp_error ;
676:
670: EXCEPTION
671: WHEN FND_API.g_exc_error THEN
672: x_return_status := FND_API.g_ret_sts_error;
673:
674: WHEN FND_API.g_exc_unexpected_error THEN
675: x_return_status := FND_API.g_ret_sts_unexp_error ;
676:
677: WHEN OTHERS THEN
678: x_return_status := FND_API.g_ret_sts_unexp_error ;
671: WHEN FND_API.g_exc_error THEN
672: x_return_status := FND_API.g_ret_sts_error;
673:
674: WHEN FND_API.g_exc_unexpected_error THEN
675: x_return_status := FND_API.g_ret_sts_unexp_error ;
676:
677: WHEN OTHERS THEN
678: x_return_status := FND_API.g_ret_sts_unexp_error ;
679: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
674: WHEN FND_API.g_exc_unexpected_error THEN
675: x_return_status := FND_API.g_ret_sts_unexp_error ;
676:
677: WHEN OTHERS THEN
678: x_return_status := FND_API.g_ret_sts_unexp_error ;
679: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
680: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
681: END IF;
682:
725: IF OZF_DEBUG_HIGH_ON THEN
726: OZF_Utility_PVT.debug_message(l_full_name||': start');
727: END IF;
728:
729: x_return_status := FND_API.g_ret_sts_success;
730:
731: ------------------------ start -------------------------
732:
733: OPEN csr_function_currency;
747: X_RETURN_STATUS => l_return_status,
748: X_ACC_AMOUNT => l_acctd_amount_settled,
749: X_RATE => l_exchange_rate
750: );
751: IF l_return_status = FND_API.g_ret_sts_error THEN
752: RAISE FND_API.g_exc_error;
753: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
754: RAISE FND_API.g_exc_unexpected_error;
755: END IF;
748: X_ACC_AMOUNT => l_acctd_amount_settled,
749: X_RATE => l_exchange_rate
750: );
751: IF l_return_status = FND_API.g_ret_sts_error THEN
752: RAISE FND_API.g_exc_error;
753: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
754: RAISE FND_API.g_exc_unexpected_error;
755: END IF;
756: END IF;
749: X_RATE => l_exchange_rate
750: );
751: IF l_return_status = FND_API.g_ret_sts_error THEN
752: RAISE FND_API.g_exc_error;
753: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
754: RAISE FND_API.g_exc_unexpected_error;
755: END IF;
756: END IF;
757:
750: );
751: IF l_return_status = FND_API.g_ret_sts_error THEN
752: RAISE FND_API.g_exc_error;
753: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
754: RAISE FND_API.g_exc_unexpected_error;
755: END IF;
756: END IF;
757:
758: --Fix for Bug 7296882
781: X_RETURN_STATUS => l_return_status,
782: X_ACC_AMOUNT => l_acctd_amount_remaining,
783: X_RATE => l_exchange_rate
784: );
785: IF l_return_status = FND_API.g_ret_sts_error THEN
786: RAISE FND_API.g_exc_error;
787: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
788: RAISE FND_API.g_exc_unexpected_error;
789: END IF;
782: X_ACC_AMOUNT => l_acctd_amount_remaining,
783: X_RATE => l_exchange_rate
784: );
785: IF l_return_status = FND_API.g_ret_sts_error THEN
786: RAISE FND_API.g_exc_error;
787: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
788: RAISE FND_API.g_exc_unexpected_error;
789: END IF;
790: END IF;
783: X_RATE => l_exchange_rate
784: );
785: IF l_return_status = FND_API.g_ret_sts_error THEN
786: RAISE FND_API.g_exc_error;
787: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
788: RAISE FND_API.g_exc_unexpected_error;
789: END IF;
790: END IF;
791:
784: );
785: IF l_return_status = FND_API.g_ret_sts_error THEN
786: RAISE FND_API.g_exc_error;
787: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
788: RAISE FND_API.g_exc_unexpected_error;
789: END IF;
790: END IF;
791:
792: -- Bug3805485: Tax Accounted Amount Calculation
803: X_RETURN_STATUS => l_return_status,
804: X_ACC_AMOUNT => l_acctd_tax_amount,
805: X_RATE => l_exchange_rate
806: );
807: IF l_return_status = FND_API.g_ret_sts_error THEN
808: RAISE FND_API.g_exc_error;
809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
804: X_ACC_AMOUNT => l_acctd_tax_amount,
805: X_RATE => l_exchange_rate
806: );
807: IF l_return_status = FND_API.g_ret_sts_error THEN
808: RAISE FND_API.g_exc_error;
809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
812: END IF;
805: X_RATE => l_exchange_rate
806: );
807: IF l_return_status = FND_API.g_ret_sts_error THEN
808: RAISE FND_API.g_exc_error;
809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
812: END IF;
813:
806: );
807: IF l_return_status = FND_API.g_ret_sts_error THEN
808: RAISE FND_API.g_exc_error;
809: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
810: RAISE FND_API.g_exc_unexpected_error;
811: END IF;
812: END IF;
813:
814: IF OZF_DEBUG_HIGH_ON THEN
839: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
840: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
841: FND_MSG_PUB.Add;
842: END IF;
843: RAISE FND_API.g_exc_unexpected_error;
844: END;
845:
846:
847: IF OZF_DEBUG_HIGH_ON THEN
847: IF OZF_DEBUG_HIGH_ON THEN
848: OZF_Utility_PVT.debug_message(l_full_name||': end');
849: END IF;
850: EXCEPTION
851: WHEN FND_API.g_exc_error THEN
852: x_return_status := FND_API.g_ret_sts_error;
853:
854: WHEN FND_API.g_exc_unexpected_error THEN
855: x_return_status := FND_API.g_ret_sts_unexp_error ;
848: OZF_Utility_PVT.debug_message(l_full_name||': end');
849: END IF;
850: EXCEPTION
851: WHEN FND_API.g_exc_error THEN
852: x_return_status := FND_API.g_ret_sts_error;
853:
854: WHEN FND_API.g_exc_unexpected_error THEN
855: x_return_status := FND_API.g_ret_sts_unexp_error ;
856:
850: EXCEPTION
851: WHEN FND_API.g_exc_error THEN
852: x_return_status := FND_API.g_ret_sts_error;
853:
854: WHEN FND_API.g_exc_unexpected_error THEN
855: x_return_status := FND_API.g_ret_sts_unexp_error ;
856:
857: WHEN OTHERS THEN
858: x_return_status := FND_API.g_ret_sts_unexp_error ;
851: WHEN FND_API.g_exc_error THEN
852: x_return_status := FND_API.g_ret_sts_error;
853:
854: WHEN FND_API.g_exc_unexpected_error THEN
855: x_return_status := FND_API.g_ret_sts_unexp_error ;
856:
857: WHEN OTHERS THEN
858: x_return_status := FND_API.g_ret_sts_unexp_error ;
859: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
854: WHEN FND_API.g_exc_unexpected_error THEN
855: x_return_status := FND_API.g_ret_sts_unexp_error ;
856:
857: WHEN OTHERS THEN
858: x_return_status := FND_API.g_ret_sts_unexp_error ;
859: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
860: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
861: END IF;
862:
890: IF OZF_DEBUG_HIGH_ON THEN
891: OZF_Utility_PVT.debug_message(l_full_name||': start');
892: END IF;
893:
894: x_return_status := FND_API.g_ret_sts_success;
895:
896: ------------------------ start -------------------------
897: BEGIN
898: UPDATE ozf_claim_lines_all
904: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
905: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
906: FND_MSG_PUB.Add;
907: END IF;
908: RAISE FND_API.g_exc_unexpected_error;
909: END;
910:
911: IF OZF_DEBUG_HIGH_ON THEN
912: OZF_Utility_PVT.debug_message(l_full_name||': end');
911: IF OZF_DEBUG_HIGH_ON THEN
912: OZF_Utility_PVT.debug_message(l_full_name||': end');
913: END IF;
914: EXCEPTION
915: WHEN FND_API.g_exc_error THEN
916: x_return_status := FND_API.g_ret_sts_error;
917:
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
912: OZF_Utility_PVT.debug_message(l_full_name||': end');
913: END IF;
914: EXCEPTION
915: WHEN FND_API.g_exc_error THEN
916: x_return_status := FND_API.g_ret_sts_error;
917:
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
920:
914: EXCEPTION
915: WHEN FND_API.g_exc_error THEN
916: x_return_status := FND_API.g_ret_sts_error;
917:
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
920:
921: WHEN OTHERS THEN
922: x_return_status := FND_API.g_ret_sts_unexp_error ;
915: WHEN FND_API.g_exc_error THEN
916: x_return_status := FND_API.g_ret_sts_error;
917:
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
920:
921: WHEN OTHERS THEN
922: x_return_status := FND_API.g_ret_sts_unexp_error ;
923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
918: WHEN FND_API.g_exc_unexpected_error THEN
919: x_return_status := FND_API.g_ret_sts_unexp_error ;
920:
921: WHEN OTHERS THEN
922: x_return_status := FND_API.g_ret_sts_unexp_error ;
923: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
924: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
925: END IF;
926:
969: l_claim_history_id NUMBER;
970:
971: BEGIN
972:
973: x_return_status := FND_API.g_ret_sts_success;
974:
975: IF OZF_DEBUG_HIGH_ON THEN
976: OZF_UTILITY_PVT.debug_message(l_full_name ||': start');
977: END IF;
1003: p_claim_id => p_claim_id
1004: ,x_claim_rec => l_claim_rec
1005: ,x_return_status => x_return_status
1006: );
1007: IF x_return_status = FND_API.g_ret_sts_error THEN
1008: RAISE FND_API.g_exc_error;
1009: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1010: RAISE FND_API.g_exc_unexpected_error;
1011: END IF;
1004: ,x_claim_rec => l_claim_rec
1005: ,x_return_status => x_return_status
1006: );
1007: IF x_return_status = FND_API.g_ret_sts_error THEN
1008: RAISE FND_API.g_exc_error;
1009: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1010: RAISE FND_API.g_exc_unexpected_error;
1011: END IF;
1012:
1005: ,x_return_status => x_return_status
1006: );
1007: IF x_return_status = FND_API.g_ret_sts_error THEN
1008: RAISE FND_API.g_exc_error;
1009: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1010: RAISE FND_API.g_exc_unexpected_error;
1011: END IF;
1012:
1013:
1006: );
1007: IF x_return_status = FND_API.g_ret_sts_error THEN
1008: RAISE FND_API.g_exc_error;
1009: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1010: RAISE FND_API.g_exc_unexpected_error;
1011: END IF;
1012:
1013:
1014: -- Make a call to maintain history
1013:
1014: -- Make a call to maintain history
1015: OZF_CLAIM_PVT.Create_Claim_History (
1016: p_api_version => 1.0
1017: ,p_init_msg_list => FND_API.G_FALSE
1018: ,p_commit => FND_API.G_FALSE
1019: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1020: ,x_return_status => x_return_status
1021: ,x_msg_data => x_msg_data
1014: -- Make a call to maintain history
1015: OZF_CLAIM_PVT.Create_Claim_History (
1016: p_api_version => 1.0
1017: ,p_init_msg_list => FND_API.G_FALSE
1018: ,p_commit => FND_API.G_FALSE
1019: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1020: ,x_return_status => x_return_status
1021: ,x_msg_data => x_msg_data
1022: ,x_msg_count => x_msg_count
1015: OZF_CLAIM_PVT.Create_Claim_History (
1016: p_api_version => 1.0
1017: ,p_init_msg_list => FND_API.G_FALSE
1018: ,p_commit => FND_API.G_FALSE
1019: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1020: ,x_return_status => x_return_status
1021: ,x_msg_data => x_msg_data
1022: ,x_msg_count => x_msg_count
1023: ,p_claim => l_claim_rec
1024: ,p_event => 'UPDATE'
1025: ,x_need_to_create => l_need_to_create
1026: ,x_claim_history_id => l_claim_history_id
1027: );
1028: IF x_return_status = FND_API.g_ret_sts_error THEN
1029: RAISE FND_API.g_exc_error;
1030: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1031: RAISE FND_API.g_exc_unexpected_error;
1032: END IF;
1025: ,x_need_to_create => l_need_to_create
1026: ,x_claim_history_id => l_claim_history_id
1027: );
1028: IF x_return_status = FND_API.g_ret_sts_error THEN
1029: RAISE FND_API.g_exc_error;
1030: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1031: RAISE FND_API.g_exc_unexpected_error;
1032: END IF;
1033:
1026: ,x_claim_history_id => l_claim_history_id
1027: );
1028: IF x_return_status = FND_API.g_ret_sts_error THEN
1029: RAISE FND_API.g_exc_error;
1030: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1031: RAISE FND_API.g_exc_unexpected_error;
1032: END IF;
1033:
1034:
1027: );
1028: IF x_return_status = FND_API.g_ret_sts_error THEN
1029: RAISE FND_API.g_exc_error;
1030: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1031: RAISE FND_API.g_exc_unexpected_error;
1032: END IF;
1033:
1034:
1035: -- 2. Update the settlement document status if required.
1075: , p_body => l_notif_body
1076: , p_send_to_res_id => l_claim_rec.owner_id
1077: , x_notif_id => l_notif_id
1078: , x_return_status => x_return_status );
1079: IF x_return_status = FND_API.g_ret_sts_error THEN
1080: RAISE FND_API.g_exc_error;
1081: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1082: RAISE FND_API.g_exc_unexpected_error;
1083: END IF;
1076: , p_send_to_res_id => l_claim_rec.owner_id
1077: , x_notif_id => l_notif_id
1078: , x_return_status => x_return_status );
1079: IF x_return_status = FND_API.g_ret_sts_error THEN
1080: RAISE FND_API.g_exc_error;
1081: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1082: RAISE FND_API.g_exc_unexpected_error;
1083: END IF;
1084:
1077: , x_notif_id => l_notif_id
1078: , x_return_status => x_return_status );
1079: IF x_return_status = FND_API.g_ret_sts_error THEN
1080: RAISE FND_API.g_exc_error;
1081: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1082: RAISE FND_API.g_exc_unexpected_error;
1083: END IF;
1084:
1085: JTF_NOTES_PUB.create_note(
1078: , x_return_status => x_return_status );
1079: IF x_return_status = FND_API.g_ret_sts_error THEN
1080: RAISE FND_API.g_exc_error;
1081: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1082: RAISE FND_API.g_exc_unexpected_error;
1083: END IF;
1084:
1085: JTF_NOTES_PUB.create_note(
1086: p_api_version => 1.0
1097: ,x_jtf_note_id => l_note_id
1098: ,p_note_type => 'AMS_JUSTIFICATION'
1099: ,p_last_update_date => l_sys_date
1100: ,p_creation_date => l_sys_date);
1101: IF x_return_status = FND_API.g_ret_sts_error THEN
1102: RAISE FND_API.g_exc_error;
1103: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1104: RAISE FND_API.g_exc_unexpected_error;
1105: END IF;
1098: ,p_note_type => 'AMS_JUSTIFICATION'
1099: ,p_last_update_date => l_sys_date
1100: ,p_creation_date => l_sys_date);
1101: IF x_return_status = FND_API.g_ret_sts_error THEN
1102: RAISE FND_API.g_exc_error;
1103: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1104: RAISE FND_API.g_exc_unexpected_error;
1105: END IF;
1106:
1099: ,p_last_update_date => l_sys_date
1100: ,p_creation_date => l_sys_date);
1101: IF x_return_status = FND_API.g_ret_sts_error THEN
1102: RAISE FND_API.g_exc_error;
1103: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1104: RAISE FND_API.g_exc_unexpected_error;
1105: END IF;
1106:
1107:
1100: ,p_creation_date => l_sys_date);
1101: IF x_return_status = FND_API.g_ret_sts_error THEN
1102: RAISE FND_API.g_exc_error;
1103: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1104: RAISE FND_API.g_exc_unexpected_error;
1105: END IF;
1106:
1107:
1108: -- 4. Reverse Accruals for payables settlement if required
1107:
1108: -- 4. Reverse Accruals for payables settlement if required
1109: OZF_GL_INTERFACE_PVT.Revert_Gl_Entry (
1110: p_api_version => 1.0
1111: ,p_init_msg_list => FND_API.G_FALSE
1112: ,p_commit => FND_API.G_FALSE
1113: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1114: ,x_return_status => x_return_status
1115: ,x_msg_data => x_msg_data
1108: -- 4. Reverse Accruals for payables settlement if required
1109: OZF_GL_INTERFACE_PVT.Revert_Gl_Entry (
1110: p_api_version => 1.0
1111: ,p_init_msg_list => FND_API.G_FALSE
1112: ,p_commit => FND_API.G_FALSE
1113: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1114: ,x_return_status => x_return_status
1115: ,x_msg_data => x_msg_data
1116: ,x_msg_count => x_msg_count
1109: OZF_GL_INTERFACE_PVT.Revert_Gl_Entry (
1110: p_api_version => 1.0
1111: ,p_init_msg_list => FND_API.G_FALSE
1112: ,p_commit => FND_API.G_FALSE
1113: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1114: ,x_return_status => x_return_status
1115: ,x_msg_data => x_msg_data
1116: ,x_msg_count => x_msg_count
1117: ,p_claim_id => l_claim_rec.claim_id );
1114: ,x_return_status => x_return_status
1115: ,x_msg_data => x_msg_data
1116: ,x_msg_count => x_msg_count
1117: ,p_claim_id => l_claim_rec.claim_id );
1118: IF x_return_status = FND_API.g_ret_sts_error THEN
1119: RAISE FND_API.g_exc_error;
1120: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1121: RAISE FND_API.g_exc_unexpected_error;
1122: END IF;
1115: ,x_msg_data => x_msg_data
1116: ,x_msg_count => x_msg_count
1117: ,p_claim_id => l_claim_rec.claim_id );
1118: IF x_return_status = FND_API.g_ret_sts_error THEN
1119: RAISE FND_API.g_exc_error;
1120: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1121: RAISE FND_API.g_exc_unexpected_error;
1122: END IF;
1123:
1116: ,x_msg_count => x_msg_count
1117: ,p_claim_id => l_claim_rec.claim_id );
1118: IF x_return_status = FND_API.g_ret_sts_error THEN
1119: RAISE FND_API.g_exc_error;
1120: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1121: RAISE FND_API.g_exc_unexpected_error;
1122: END IF;
1123:
1124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_rec.claim_number);
1117: ,p_claim_id => l_claim_rec.claim_id );
1118: IF x_return_status = FND_API.g_ret_sts_error THEN
1119: RAISE FND_API.g_exc_error;
1120: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1121: RAISE FND_API.g_exc_unexpected_error;
1122: END IF;
1123:
1124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_rec.claim_number);
1125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Reopened. ');
1129: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
1130: END IF;
1131:
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135: FND_MSG_PUB.Count_And_Get(
1136: p_encoded => FND_API.g_false,
1137: p_count => x_msg_count,
1130: END IF;
1131:
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135: FND_MSG_PUB.Count_And_Get(
1136: p_encoded => FND_API.g_false,
1137: p_count => x_msg_count,
1138: p_data => x_msg_data
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135: FND_MSG_PUB.Count_And_Get(
1136: p_encoded => FND_API.g_false,
1137: p_count => x_msg_count,
1138: p_data => x_msg_data
1139: );
1140:
1137: p_count => x_msg_count,
1138: p_data => x_msg_data
1139: );
1140:
1141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1143: FND_MSG_PUB.Count_And_Get(
1144: p_encoded => FND_API.g_false,
1145: p_count => x_msg_count,
1138: p_data => x_msg_data
1139: );
1140:
1141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1143: FND_MSG_PUB.Count_And_Get(
1144: p_encoded => FND_API.g_false,
1145: p_count => x_msg_count,
1146: p_data => x_msg_data
1140:
1141: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1143: FND_MSG_PUB.Count_And_Get(
1144: p_encoded => FND_API.g_false,
1145: p_count => x_msg_count,
1146: p_data => x_msg_data
1147: );
1148:
1146: p_data => x_msg_data
1147: );
1148:
1149: WHEN OTHERS THEN
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1152: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1153: END IF;
1154: FND_MSG_PUB.Count_And_Get(
1151: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1152: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1153: END IF;
1154: FND_MSG_PUB.Count_And_Get(
1155: p_encoded => FND_API.g_false,
1156: p_count => x_msg_count,
1157: p_data => x_msg_data
1158: );
1159:
1236: l_payment_method VARCHAR2(30);
1237: l_settlement_amount NUMBER := p_settlement_amount;
1238:
1239: BEGIN
1240: x_return_status := FND_API.g_ret_sts_success;
1241:
1242: IF OZF_DEBUG_HIGH_ON THEN
1243: OZF_Utility_PVT.debug_message(l_full_name||': start');
1244: END IF;
1312: IF csr_debit_settlement%ISOPEN THEN
1313: CLOSE csr_debit_settlement;
1314: END IF;
1315:
1316: x_return_status := FND_API.g_ret_sts_unexp_error;
1317: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1318: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1319: END IF;
1320:
1376:
1377: l_counter NUMBER := 1;
1378:
1379: BEGIN
1380: x_return_status := FND_API.g_ret_sts_success;
1381:
1382: IF p_payment_method = 'RMA' THEN
1383: OPEN csr_rma_settlement(p_claim_id);
1384: LOOP
1421: -- x_settlement_doc_tbl.DELETE(l_counter); -- Last Record has junk
1422:
1423: EXCEPTION
1424: WHEN OTHERS THEN
1425: x_return_status := FND_API.g_ret_sts_unexp_error;
1426: IF OZF_DEBUG_LOW_ON THEN
1427: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1428: FND_MESSAGE.Set_Token('TEXT','Get_AR_Rec : Error');
1429: FND_MSG_PUB.Add;
1461: l_counter NUMBER := 1;
1462: l_total_rma_cr_amount NUMBER := 0;
1463:
1464: BEGIN
1465: x_return_status := FND_API.g_ret_sts_success;
1466:
1467: OPEN csr_rma_setl_doc(p_claim_id);
1468: LOOP
1469: FETCH csr_rma_setl_doc INTO x_settlement_doc_tbl(l_counter).settlement_id
1475: , x_settlement_doc_tbl(l_counter).claim_line_id
1476: , x_settlement_doc_tbl(l_counter).payment_method;
1477: EXIT WHEN csr_rma_setl_doc%NOTFOUND;
1478: IF x_settlement_doc_tbl(l_counter).settlement_id IS NOT NULL ANd
1479: x_settlement_doc_tbl(l_counter).settlement_id <> FND_API.g_miss_num THEN
1480: l_total_rma_cr_amount := l_total_rma_cr_amount + ABS(x_settlement_doc_tbl(l_counter).settlement_amount);
1481: END IF;
1482: l_counter := l_counter + 1;
1483: END LOOP;
1487: x_total_rma_cr_amount := l_total_rma_cr_amount;
1488:
1489: EXCEPTION
1490: WHEN OTHERS THEN
1491: x_return_status := FND_API.g_ret_sts_unexp_error;
1492: IF OZF_DEBUG_LOW_ON THEN
1493: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1494: FND_MESSAGE.Set_Token('TEXT','Get_RMA_Setl_Doc_Tbl : Error');
1495: FND_MSG_PUB.Add;
1709: --------------------- initialize -----------------------
1710: SAVEPOINT Update_Claim_From_Settlement;
1711:
1712: -- Standard call to check for call compatibility.
1713: IF NOT FND_API.Compatible_API_Call (
1714: l_api_version_number,
1715: p_api_version_number,
1716: l_api_name,
1717: G_PKG_NAME
1715: p_api_version_number,
1716: l_api_name,
1717: G_PKG_NAME
1718: ) THEN
1719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1720: END IF;
1721:
1722: -- Initialize message list if p_init_msg_list is set to TRUE.
1723: IF FND_API.to_Boolean(p_init_msg_list) THEN
1719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1720: END IF;
1721:
1722: -- Initialize message list if p_init_msg_list is set to TRUE.
1723: IF FND_API.to_Boolean(p_init_msg_list) THEN
1724: FND_MSG_PUB.initialize;
1725: END IF;
1726:
1727: x_return_status := FND_API.g_ret_sts_success;
1723: IF FND_API.to_Boolean(p_init_msg_list) THEN
1724: FND_MSG_PUB.initialize;
1725: END IF;
1726:
1727: x_return_status := FND_API.g_ret_sts_success;
1728:
1729: --------------------- start -----------------------
1730: IF OZF_DEBUG_HIGH_ON THEN
1731: OZF_Utility_PVT.debug_message(l_full_name||': start');
1763: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1764: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1765: FND_MSG_PUB.Add;
1766: END IF;
1767: RAISE FND_API.g_exc_unexpected_error;
1768: END;
1769:
1770:
1771: IF p_status_code = 'CLOSED' THEN
1770:
1771: IF p_status_code = 'CLOSED' THEN
1772: OZF_CLAIM_ACCRUAL_PVT.Adjust_Fund_Utilization(
1773: p_api_version => l_api_version_number
1774: ,p_init_msg_list => FND_API.g_false
1775: ,p_commit => FND_API.g_false
1776: ,p_validation_level => FND_API.g_valid_level_full
1777: ,x_return_status => l_return_status
1778: ,x_msg_count => x_msg_count
1771: IF p_status_code = 'CLOSED' THEN
1772: OZF_CLAIM_ACCRUAL_PVT.Adjust_Fund_Utilization(
1773: p_api_version => l_api_version_number
1774: ,p_init_msg_list => FND_API.g_false
1775: ,p_commit => FND_API.g_false
1776: ,p_validation_level => FND_API.g_valid_level_full
1777: ,x_return_status => l_return_status
1778: ,x_msg_count => x_msg_count
1779: ,x_msg_data => x_msg_data
1772: OZF_CLAIM_ACCRUAL_PVT.Adjust_Fund_Utilization(
1773: p_api_version => l_api_version_number
1774: ,p_init_msg_list => FND_API.g_false
1775: ,p_commit => FND_API.g_false
1776: ,p_validation_level => FND_API.g_valid_level_full
1777: ,x_return_status => l_return_status
1778: ,x_msg_count => x_msg_count
1779: ,x_msg_data => x_msg_data
1780: ,p_claim_id => p_claim_id
1780: ,p_claim_id => p_claim_id
1781: ,p_mode => 'UPD_SCAN'
1782: ,x_next_status => l_adj_util_result_status
1783: );
1784: IF l_return_status = FND_API.g_ret_sts_error THEN
1785: RAISE FND_API.g_exc_error;
1786: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1787: RAISE FND_API.g_exc_unexpected_error;
1788: END IF;
1781: ,p_mode => 'UPD_SCAN'
1782: ,x_next_status => l_adj_util_result_status
1783: );
1784: IF l_return_status = FND_API.g_ret_sts_error THEN
1785: RAISE FND_API.g_exc_error;
1786: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1787: RAISE FND_API.g_exc_unexpected_error;
1788: END IF;
1789:
1782: ,x_next_status => l_adj_util_result_status
1783: );
1784: IF l_return_status = FND_API.g_ret_sts_error THEN
1785: RAISE FND_API.g_exc_error;
1786: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1787: RAISE FND_API.g_exc_unexpected_error;
1788: END IF;
1789:
1790: IF l_adj_util_result_status = 'CLOSED' THEN
1783: );
1784: IF l_return_status = FND_API.g_ret_sts_error THEN
1785: RAISE FND_API.g_exc_error;
1786: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1787: RAISE FND_API.g_exc_unexpected_error;
1788: END IF;
1789:
1790: IF l_adj_util_result_status = 'CLOSED' THEN
1791: -- Update fund paid amount to sum of utilizations associated to a claim
1829: ,p_conv_date => SYSDATE
1830: ,p_from_amount => l_acctd_paid_amt
1831: ,x_to_amount => l_fund_curr_paid_amt
1832: );
1833: IF l_return_status = FND_API.g_ret_sts_error THEN
1834: RAISE FND_API.g_exc_error;
1835: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1836: RAISE FND_API.g_exc_unexpected_error;
1837: END IF;
1830: ,p_from_amount => l_acctd_paid_amt
1831: ,x_to_amount => l_fund_curr_paid_amt
1832: );
1833: IF l_return_status = FND_API.g_ret_sts_error THEN
1834: RAISE FND_API.g_exc_error;
1835: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1836: RAISE FND_API.g_exc_unexpected_error;
1837: END IF;
1838: END IF;
1831: ,x_to_amount => l_fund_curr_paid_amt
1832: );
1833: IF l_return_status = FND_API.g_ret_sts_error THEN
1834: RAISE FND_API.g_exc_error;
1835: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1836: RAISE FND_API.g_exc_unexpected_error;
1837: END IF;
1838: END IF;
1839:
1832: );
1833: IF l_return_status = FND_API.g_ret_sts_error THEN
1834: RAISE FND_API.g_exc_error;
1835: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1836: RAISE FND_API.g_exc_unexpected_error;
1837: END IF;
1838: END IF;
1839:
1840: IF l_fund_curr_paid_amt IS NOT NULL THEN
1847:
1848: -- Update Fund with paid_amt
1849: OZF_Funds_PVT.Update_Fund(
1850: p_api_version => 1.0
1851: ,p_init_msg_list => FND_API.g_false
1852: ,p_commit => FND_API.g_false
1853: ,p_validation_level => FND_API.g_valid_level_full
1854: ,x_return_status => l_return_status
1855: ,x_msg_count => x_msg_count
1848: -- Update Fund with paid_amt
1849: OZF_Funds_PVT.Update_Fund(
1850: p_api_version => 1.0
1851: ,p_init_msg_list => FND_API.g_false
1852: ,p_commit => FND_API.g_false
1853: ,p_validation_level => FND_API.g_valid_level_full
1854: ,x_return_status => l_return_status
1855: ,x_msg_count => x_msg_count
1856: ,x_msg_data => x_msg_data
1849: OZF_Funds_PVT.Update_Fund(
1850: p_api_version => 1.0
1851: ,p_init_msg_list => FND_API.g_false
1852: ,p_commit => FND_API.g_false
1853: ,p_validation_level => FND_API.g_valid_level_full
1854: ,x_return_status => l_return_status
1855: ,x_msg_count => x_msg_count
1856: ,x_msg_data => x_msg_data
1857: ,p_fund_rec => l_fund_rec
1856: ,x_msg_data => x_msg_data
1857: ,p_fund_rec => l_fund_rec
1858: ,p_mode => 'ADJUST'
1859: );
1860: IF l_return_status = FND_API.g_ret_sts_error THEN
1861: RAISE FND_API.G_EXC_ERROR;
1862: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1857: ,p_fund_rec => l_fund_rec
1858: ,p_mode => 'ADJUST'
1859: );
1860: IF l_return_status = FND_API.g_ret_sts_error THEN
1861: RAISE FND_API.G_EXC_ERROR;
1862: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1865:
1858: ,p_mode => 'ADJUST'
1859: );
1860: IF l_return_status = FND_API.g_ret_sts_error THEN
1861: RAISE FND_API.G_EXC_ERROR;
1862: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1865:
1866: l_objfundsum_rec.fund_id := l_fund_id;
1859: );
1860: IF l_return_status = FND_API.g_ret_sts_error THEN
1861: RAISE FND_API.G_EXC_ERROR;
1862: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: END IF;
1865:
1866: l_objfundsum_rec.fund_id := l_fund_id;
1867: l_objfundsum_rec.object_type := l_component_type;
1871: l_objfundsum_rec.univ_curr_paid_amt := l_univ_curr_paid_amt;
1872:
1873: ozf_objfundsum_pvt.process_objfundsum(
1874: p_api_version => 1.0,
1875: p_init_msg_list => Fnd_Api.G_FALSE,
1876: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
1877: p_objfundsum_rec => l_objfundsum_rec,
1878: x_return_status => l_return_status,
1879: x_msg_count => x_msg_count,
1872:
1873: ozf_objfundsum_pvt.process_objfundsum(
1874: p_api_version => 1.0,
1875: p_init_msg_list => Fnd_Api.G_FALSE,
1876: p_validation_level => Fnd_Api.G_VALID_LEVEL_NONE,
1877: p_objfundsum_rec => l_objfundsum_rec,
1878: x_return_status => l_return_status,
1879: x_msg_count => x_msg_count,
1880: x_msg_data => x_msg_data,
1879: x_msg_count => x_msg_count,
1880: x_msg_data => x_msg_data,
1881: x_objfundsum_id => l_dummy_id
1882: );
1883: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1884: RAISE fnd_api.g_exc_unexpected_error;
1885: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1886: RAISE fnd_api.g_exc_error;
1887: END IF;
1880: x_msg_data => x_msg_data,
1881: x_objfundsum_id => l_dummy_id
1882: );
1883: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1884: RAISE fnd_api.g_exc_unexpected_error;
1885: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1886: RAISE fnd_api.g_exc_error;
1887: END IF;
1888:
1881: x_objfundsum_id => l_dummy_id
1882: );
1883: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1884: RAISE fnd_api.g_exc_unexpected_error;
1885: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1886: RAISE fnd_api.g_exc_error;
1887: END IF;
1888:
1889: END LOOP;
1882: );
1883: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1884: RAISE fnd_api.g_exc_unexpected_error;
1885: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1886: RAISE fnd_api.g_exc_error;
1887: END IF;
1888:
1889: END LOOP;
1890: CLOSE csr_get_paid_amt;
1896: -- Raise Business Event (when claim is paid.) --
1897: ------------------------------------------------
1898: OZF_CLAIM_SETTLEMENT_PVT.Raise_Business_Event(
1899: p_api_version => l_api_version_number
1900: ,p_init_msg_list => FND_API.g_false
1901: ,p_commit => FND_API.g_false
1902: ,p_validation_level => FND_API.g_valid_level_full
1903: ,x_return_status => l_return_status
1904: ,x_msg_data => x_msg_data
1897: ------------------------------------------------
1898: OZF_CLAIM_SETTLEMENT_PVT.Raise_Business_Event(
1899: p_api_version => l_api_version_number
1900: ,p_init_msg_list => FND_API.g_false
1901: ,p_commit => FND_API.g_false
1902: ,p_validation_level => FND_API.g_valid_level_full
1903: ,x_return_status => l_return_status
1904: ,x_msg_data => x_msg_data
1905: ,x_msg_count => x_msg_count
1898: OZF_CLAIM_SETTLEMENT_PVT.Raise_Business_Event(
1899: p_api_version => l_api_version_number
1900: ,p_init_msg_list => FND_API.g_false
1901: ,p_commit => FND_API.g_false
1902: ,p_validation_level => FND_API.g_valid_level_full
1903: ,x_return_status => l_return_status
1904: ,x_msg_data => x_msg_data
1905: ,x_msg_count => x_msg_count
1906:
1908: ,p_old_status => 'PENDING_CLOSE'
1909: ,p_new_status => 'CLOSED'
1910: ,p_event_name => 'oracle.apps.ozf.claim.paymentPaid'
1911: );
1912: IF l_return_status = FND_API.g_ret_sts_error THEN
1913: RAISE FND_API.g_exc_error;
1914: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1915: RAISE FND_API.g_exc_unexpected_error;
1916: END IF;
1909: ,p_new_status => 'CLOSED'
1910: ,p_event_name => 'oracle.apps.ozf.claim.paymentPaid'
1911: );
1912: IF l_return_status = FND_API.g_ret_sts_error THEN
1913: RAISE FND_API.g_exc_error;
1914: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1915: RAISE FND_API.g_exc_unexpected_error;
1916: END IF;
1917: --R12.1 Enhancement : Call Price Protection Extract API START
1910: ,p_event_name => 'oracle.apps.ozf.claim.paymentPaid'
1911: );
1912: IF l_return_status = FND_API.g_ret_sts_error THEN
1913: RAISE FND_API.g_exc_error;
1914: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1915: RAISE FND_API.g_exc_unexpected_error;
1916: END IF;
1917: --R12.1 Enhancement : Call Price Protection Extract API START
1918: OPEN csr_claim_rec(p_claim_id);
1911: );
1912: IF l_return_status = FND_API.g_ret_sts_error THEN
1913: RAISE FND_API.g_exc_error;
1914: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1915: RAISE FND_API.g_exc_unexpected_error;
1916: END IF;
1917: --R12.1 Enhancement : Call Price Protection Extract API START
1918: OPEN csr_claim_rec(p_claim_id);
1919: FETCH csr_claim_rec INTO l_claim_rec.source_object_class
2024: p_userid =>l_claim_rec.created_by
2025: );
2026:
2027:
2028: IF x_return_status = FND_API.g_ret_sts_error THEN
2029: RAISE FND_API.g_exc_error;
2030: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2031: RAISE FND_API.g_exc_unexpected_error;
2032: END IF;
2025: );
2026:
2027:
2028: IF x_return_status = FND_API.g_ret_sts_error THEN
2029: RAISE FND_API.g_exc_error;
2030: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2031: RAISE FND_API.g_exc_unexpected_error;
2032: END IF;
2033:
2026:
2027:
2028: IF x_return_status = FND_API.g_ret_sts_error THEN
2029: RAISE FND_API.g_exc_error;
2030: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2031: RAISE FND_API.g_exc_unexpected_error;
2032: END IF;
2033:
2034: END IF;
2027:
2028: IF x_return_status = FND_API.g_ret_sts_error THEN
2029: RAISE FND_API.g_exc_error;
2030: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2031: RAISE FND_API.g_exc_unexpected_error;
2032: END IF;
2033:
2034: END IF;
2035: END IF;
2034: END IF;
2035: END IF;
2036: --R12.1 Enhancement : Call Price Protection Extract API END
2037: --------------------- finish -----------------------
2038: IF FND_API.to_boolean(p_commit) THEN
2039: COMMIT;
2040: END IF;
2041:
2042: FND_MSG_PUB.Count_And_Get(
2048: OZF_Utility_PVT.debug_message(l_full_name||': end');
2049: END IF;
2050:
2051: EXCEPTION
2052: WHEN FND_API.G_EXC_ERROR THEN
2053: ROLLBACK TO Update_Claim_From_Settlement;
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: FND_MSG_PUB.Count_And_Get(
2056: p_encoded => FND_API.g_false,
2050:
2051: EXCEPTION
2052: WHEN FND_API.G_EXC_ERROR THEN
2053: ROLLBACK TO Update_Claim_From_Settlement;
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: FND_MSG_PUB.Count_And_Get(
2056: p_encoded => FND_API.g_false,
2057: p_count => x_msg_count,
2058: p_data => x_msg_data
2052: WHEN FND_API.G_EXC_ERROR THEN
2053: ROLLBACK TO Update_Claim_From_Settlement;
2054: x_return_status := FND_API.G_RET_STS_ERROR;
2055: FND_MSG_PUB.Count_And_Get(
2056: p_encoded => FND_API.g_false,
2057: p_count => x_msg_count,
2058: p_data => x_msg_data
2059: );
2060:
2057: p_count => x_msg_count,
2058: p_data => x_msg_data
2059: );
2060:
2061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2062: ROLLBACK TO Update_Claim_From_Settlement;
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2064: FND_MSG_PUB.Count_And_Get(
2065: p_encoded => FND_API.g_false,
2059: );
2060:
2061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2062: ROLLBACK TO Update_Claim_From_Settlement;
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2064: FND_MSG_PUB.Count_And_Get(
2065: p_encoded => FND_API.g_false,
2066: p_count => x_msg_count,
2067: p_data => x_msg_data
2061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2062: ROLLBACK TO Update_Claim_From_Settlement;
2063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2064: FND_MSG_PUB.Count_And_Get(
2065: p_encoded => FND_API.g_false,
2066: p_count => x_msg_count,
2067: p_data => x_msg_data
2068: );
2069:
2068: );
2069:
2070: WHEN OTHERS THEN
2071: ROLLBACK TO Update_Claim_From_Settlement;
2072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2073: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2074: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2075: END IF;
2076: FND_MSG_PUB.Count_And_Get(
2073: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2074: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2075: END IF;
2076: FND_MSG_PUB.Count_And_Get(
2077: p_encoded => FND_API.g_false,
2078: p_count => x_msg_count,
2079: p_data => x_msg_data
2080: );
2081: END Update_Claim_From_Settlement;
2112: IF OZF_DEBUG_HIGH_ON THEN
2113: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2114: END IF;
2115:
2116: x_return_status := FND_API.g_ret_sts_success;
2117:
2118: /*----------------------------*
2119: | Create Split
2120: *----------------------------*/
2130: l_child_claim_tbl(1).parent_object_ver_num := p_claim_rec.object_version_number;
2131: l_child_claim_tbl(1).line_table := NULL;
2132: OZF_SPLIT_CLAIM_PVT.create_child_claim_tbl (
2133: p_api_version => l_api_version
2134: ,p_init_msg_list => FND_API.g_false
2135: ,p_commit => FND_API.g_false
2136: ,p_validation_level => FND_API.g_valid_level_full
2137: ,x_return_status => l_return_status
2138: ,x_msg_data => x_msg_data
2131: l_child_claim_tbl(1).line_table := NULL;
2132: OZF_SPLIT_CLAIM_PVT.create_child_claim_tbl (
2133: p_api_version => l_api_version
2134: ,p_init_msg_list => FND_API.g_false
2135: ,p_commit => FND_API.g_false
2136: ,p_validation_level => FND_API.g_valid_level_full
2137: ,x_return_status => l_return_status
2138: ,x_msg_data => x_msg_data
2139: ,x_msg_count => x_msg_count
2132: OZF_SPLIT_CLAIM_PVT.create_child_claim_tbl (
2133: p_api_version => l_api_version
2134: ,p_init_msg_list => FND_API.g_false
2135: ,p_commit => FND_API.g_false
2136: ,p_validation_level => FND_API.g_valid_level_full
2137: ,x_return_status => l_return_status
2138: ,x_msg_data => x_msg_data
2139: ,x_msg_count => x_msg_count
2140: ,p_child_claim_tbl => l_child_claim_tbl
2139: ,x_msg_count => x_msg_count
2140: ,p_child_claim_tbl => l_child_claim_tbl
2141: ,p_mode => 'AUTO'
2142: );
2143: IF l_return_status = FND_API.g_ret_sts_error THEN
2144: RAISE FND_API.g_exc_error;
2145: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2146: RAISE FND_API.g_exc_unexpected_error;
2147: END IF;
2140: ,p_child_claim_tbl => l_child_claim_tbl
2141: ,p_mode => 'AUTO'
2142: );
2143: IF l_return_status = FND_API.g_ret_sts_error THEN
2144: RAISE FND_API.g_exc_error;
2145: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2146: RAISE FND_API.g_exc_unexpected_error;
2147: END IF;
2148:
2141: ,p_mode => 'AUTO'
2142: );
2143: IF l_return_status = FND_API.g_ret_sts_error THEN
2144: RAISE FND_API.g_exc_error;
2145: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2146: RAISE FND_API.g_exc_unexpected_error;
2147: END IF;
2148:
2149:
2142: );
2143: IF l_return_status = FND_API.g_ret_sts_error THEN
2144: RAISE FND_API.g_exc_error;
2145: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2146: RAISE FND_API.g_exc_unexpected_error;
2147: END IF;
2148:
2149:
2150: OZF_AR_PAYMENT_PVT.Query_Claim(
2151: p_claim_id => p_claim_rec.claim_id
2152: ,x_claim_rec => l_claim_rec
2153: ,x_return_status => l_return_status
2154: );
2155: IF l_return_status = FND_API.g_ret_sts_error THEN
2156: RAISE FND_API.g_exc_error;
2157: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2158: RAISE FND_API.g_exc_unexpected_error;
2159: END IF;
2152: ,x_claim_rec => l_claim_rec
2153: ,x_return_status => l_return_status
2154: );
2155: IF l_return_status = FND_API.g_ret_sts_error THEN
2156: RAISE FND_API.g_exc_error;
2157: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2158: RAISE FND_API.g_exc_unexpected_error;
2159: END IF;
2160:
2153: ,x_return_status => l_return_status
2154: );
2155: IF l_return_status = FND_API.g_ret_sts_error THEN
2156: RAISE FND_API.g_exc_error;
2157: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2158: RAISE FND_API.g_exc_unexpected_error;
2159: END IF;
2160:
2161: Update_Claim_Tax_Amount(
2154: );
2155: IF l_return_status = FND_API.g_ret_sts_error THEN
2156: RAISE FND_API.g_exc_error;
2157: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2158: RAISE FND_API.g_exc_unexpected_error;
2159: END IF;
2160:
2161: Update_Claim_Tax_Amount(
2162: p_claim_rec => l_claim_rec
2163: ,x_return_status => l_return_status
2164: ,x_msg_data => x_msg_data
2165: ,x_msg_count => x_msg_count
2166: );
2167: IF l_return_status = FND_API.g_ret_sts_error THEN
2168: RAISE FND_API.G_EXC_ERROR;
2169: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2171: END IF;
2164: ,x_msg_data => x_msg_data
2165: ,x_msg_count => x_msg_count
2166: );
2167: IF l_return_status = FND_API.g_ret_sts_error THEN
2168: RAISE FND_API.G_EXC_ERROR;
2169: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2171: END IF;
2172:
2165: ,x_msg_count => x_msg_count
2166: );
2167: IF l_return_status = FND_API.g_ret_sts_error THEN
2168: RAISE FND_API.G_EXC_ERROR;
2169: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2171: END IF;
2172:
2173:
2166: );
2167: IF l_return_status = FND_API.g_ret_sts_error THEN
2168: RAISE FND_API.G_EXC_ERROR;
2169: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2171: END IF;
2172:
2173:
2174:
2175: IF OZF_DEBUG_HIGH_ON THEN
2176: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2177: END IF;
2178: EXCEPTION
2179: WHEN FND_API.G_EXC_ERROR THEN
2180: x_return_status := FND_API.G_RET_STS_ERROR;
2181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2183: WHEN OTHERS THEN
2176: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2177: END IF;
2178: EXCEPTION
2179: WHEN FND_API.G_EXC_ERROR THEN
2180: x_return_status := FND_API.G_RET_STS_ERROR;
2181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2183: WHEN OTHERS THEN
2184: IF OZF_DEBUG_LOW_ON THEN
2177: END IF;
2178: EXCEPTION
2179: WHEN FND_API.G_EXC_ERROR THEN
2180: x_return_status := FND_API.G_RET_STS_ERROR;
2181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2183: WHEN OTHERS THEN
2184: IF OZF_DEBUG_LOW_ON THEN
2185: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2178: EXCEPTION
2179: WHEN FND_API.G_EXC_ERROR THEN
2180: x_return_status := FND_API.G_RET_STS_ERROR;
2181: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2183: WHEN OTHERS THEN
2184: IF OZF_DEBUG_LOW_ON THEN
2185: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2186: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
2185: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2186: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
2187: FND_MSG_PUB.Add;
2188: END IF;
2189: x_return_status := FND_API.g_ret_sts_unexp_error;
2190:
2191: END Split_Claim_Settlement;
2192:
2193:
2245: IF OZF_DEBUG_HIGH_ON THEN
2246: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2247: END IF;
2248:
2249: x_return_status := FND_API.g_ret_sts_success;
2250:
2251: OZF_AR_PAYMENT_PVT.Query_Claim(
2252: p_claim_id => p_claim_rec.claim_id
2253: ,x_claim_rec => l_claim_rec
2252: p_claim_id => p_claim_rec.claim_id
2253: ,x_claim_rec => l_claim_rec
2254: ,x_return_status => l_return_status
2255: );
2256: IF l_return_status = FND_API.g_ret_sts_error THEN
2257: RAISE FND_API.g_exc_error;
2258: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2259: RAISE FND_API.g_exc_unexpected_error;
2260: END IF;
2253: ,x_claim_rec => l_claim_rec
2254: ,x_return_status => l_return_status
2255: );
2256: IF l_return_status = FND_API.g_ret_sts_error THEN
2257: RAISE FND_API.g_exc_error;
2258: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2259: RAISE FND_API.g_exc_unexpected_error;
2260: END IF;
2261:
2254: ,x_return_status => l_return_status
2255: );
2256: IF l_return_status = FND_API.g_ret_sts_error THEN
2257: RAISE FND_API.g_exc_error;
2258: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2259: RAISE FND_API.g_exc_unexpected_error;
2260: END IF;
2261:
2262: l_claim_object_version := l_claim_rec.object_version_number;
2255: );
2256: IF l_return_status = FND_API.g_ret_sts_error THEN
2257: RAISE FND_API.g_exc_error;
2258: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2259: RAISE FND_API.g_exc_unexpected_error;
2260: END IF;
2261:
2262: l_claim_object_version := l_claim_rec.object_version_number;
2263:
2270: l_claim_line_rec.claim_id := p_claim_rec.claim_id;
2271: l_claim_line_rec.claim_currency_amount := p_difference_amount;
2272: l_claim_line_rec.item_description := 'Write Off';
2273: l_claim_line_rec.comments := 'Write Off';
2274: l_claim_line_rec.update_from_tbl_flag := FND_API.g_true;
2275:
2276: OZF_Claim_Line_PVT.Create_Claim_Line(
2277: p_api_version => l_api_version,
2278: p_init_msg_list => FND_API.g_false,
2274: l_claim_line_rec.update_from_tbl_flag := FND_API.g_true;
2275:
2276: OZF_Claim_Line_PVT.Create_Claim_Line(
2277: p_api_version => l_api_version,
2278: p_init_msg_list => FND_API.g_false,
2279: p_commit => FND_API.g_false,
2280: p_validation_level => FND_API.g_valid_level_full,
2281: x_return_status => l_return_status,
2282: x_msg_count => x_msg_count,
2275:
2276: OZF_Claim_Line_PVT.Create_Claim_Line(
2277: p_api_version => l_api_version,
2278: p_init_msg_list => FND_API.g_false,
2279: p_commit => FND_API.g_false,
2280: p_validation_level => FND_API.g_valid_level_full,
2281: x_return_status => l_return_status,
2282: x_msg_count => x_msg_count,
2283: x_msg_data => x_msg_data,
2276: OZF_Claim_Line_PVT.Create_Claim_Line(
2277: p_api_version => l_api_version,
2278: p_init_msg_list => FND_API.g_false,
2279: p_commit => FND_API.g_false,
2280: p_validation_level => FND_API.g_valid_level_full,
2281: x_return_status => l_return_status,
2282: x_msg_count => x_msg_count,
2283: x_msg_data => x_msg_data,
2284: p_claim_line_rec => l_claim_line_rec,
2283: x_msg_data => x_msg_data,
2284: p_claim_line_rec => l_claim_line_rec,
2285: x_claim_line_id => l_claim_line_id
2286: );
2287: IF l_return_status = FND_API.g_ret_sts_error THEN
2288: RAISE FND_API.g_exc_error;
2289: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2290: RAISE FND_API.g_exc_unexpected_error;
2291: END IF;
2284: p_claim_line_rec => l_claim_line_rec,
2285: x_claim_line_id => l_claim_line_id
2286: );
2287: IF l_return_status = FND_API.g_ret_sts_error THEN
2288: RAISE FND_API.g_exc_error;
2289: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2290: RAISE FND_API.g_exc_unexpected_error;
2291: END IF;
2292:
2285: x_claim_line_id => l_claim_line_id
2286: );
2287: IF l_return_status = FND_API.g_ret_sts_error THEN
2288: RAISE FND_API.g_exc_error;
2289: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2290: RAISE FND_API.g_exc_unexpected_error;
2291: END IF;
2292:
2293: /*----------------------------*
2286: );
2287: IF l_return_status = FND_API.g_ret_sts_error THEN
2288: RAISE FND_API.g_exc_error;
2289: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2290: RAISE FND_API.g_exc_unexpected_error;
2291: END IF;
2292:
2293: /*----------------------------*
2294: | 1. Create Write off
2305: ,x_return_status => l_return_status
2306: ,x_msg_data => x_msg_data
2307: ,x_msg_count => x_msg_count
2308: );
2309: IF l_return_status = FND_API.g_ret_sts_error THEN
2310: RAISE FND_API.g_exc_error;
2311: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2312: RAISE FND_API.g_exc_unexpected_error;
2313: END IF;
2306: ,x_msg_data => x_msg_data
2307: ,x_msg_count => x_msg_count
2308: );
2309: IF l_return_status = FND_API.g_ret_sts_error THEN
2310: RAISE FND_API.g_exc_error;
2311: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2312: RAISE FND_API.g_exc_unexpected_error;
2313: END IF;
2314:
2307: ,x_msg_count => x_msg_count
2308: );
2309: IF l_return_status = FND_API.g_ret_sts_error THEN
2310: RAISE FND_API.g_exc_error;
2311: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2312: RAISE FND_API.g_exc_unexpected_error;
2313: END IF;
2314:
2315: /*----------------------*
2308: );
2309: IF l_return_status = FND_API.g_ret_sts_error THEN
2310: RAISE FND_API.g_exc_error;
2311: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2312: RAISE FND_API.g_exc_unexpected_error;
2313: END IF;
2314:
2315: /*----------------------*
2316: | Update Settled Amount|
2323: ,x_return_status => l_return_status
2324: ,x_msg_data => x_msg_data
2325: ,x_msg_count => x_msg_count
2326: );
2327: IF l_return_status = FND_API.g_ret_sts_error THEN
2328: RAISE FND_API.G_EXC_ERROR;
2329: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2331: END IF;
2324: ,x_msg_data => x_msg_data
2325: ,x_msg_count => x_msg_count
2326: );
2327: IF l_return_status = FND_API.g_ret_sts_error THEN
2328: RAISE FND_API.G_EXC_ERROR;
2329: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2331: END IF;
2332:
2325: ,x_msg_count => x_msg_count
2326: );
2327: IF l_return_status = FND_API.g_ret_sts_error THEN
2328: RAISE FND_API.G_EXC_ERROR;
2329: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2331: END IF;
2332:
2333:
2326: );
2327: IF l_return_status = FND_API.g_ret_sts_error THEN
2328: RAISE FND_API.G_EXC_ERROR;
2329: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2331: END IF;
2332:
2333:
2334: x_claim_object_version := l_claim_object_version;
2336: IF OZF_DEBUG_HIGH_ON THEN
2337: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2338: END IF;
2339: EXCEPTION
2340: WHEN FND_API.G_EXC_ERROR THEN
2341: x_return_status := FND_API.G_RET_STS_ERROR;
2342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2344: WHEN OTHERS THEN
2337: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2338: END IF;
2339: EXCEPTION
2340: WHEN FND_API.G_EXC_ERROR THEN
2341: x_return_status := FND_API.G_RET_STS_ERROR;
2342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2344: WHEN OTHERS THEN
2345: IF OZF_DEBUG_LOW_ON THEN
2338: END IF;
2339: EXCEPTION
2340: WHEN FND_API.G_EXC_ERROR THEN
2341: x_return_status := FND_API.G_RET_STS_ERROR;
2342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2344: WHEN OTHERS THEN
2345: IF OZF_DEBUG_LOW_ON THEN
2346: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2339: EXCEPTION
2340: WHEN FND_API.G_EXC_ERROR THEN
2341: x_return_status := FND_API.G_RET_STS_ERROR;
2342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2344: WHEN OTHERS THEN
2345: IF OZF_DEBUG_LOW_ON THEN
2346: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2347: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
2346: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2347: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
2348: FND_MSG_PUB.Add;
2349: END IF;
2350: x_return_status := FND_API.g_ret_sts_unexp_error;
2351:
2352: END Create_Write_Off;
2353:
2354:
2427: IF OZF_DEBUG_HIGH_ON THEN
2428: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2429: END IF;
2430: -- Initialize API return status to sucess
2431: x_return_status := FND_API.g_ret_sts_success;
2432:
2433: OPEN csr_rma_total_amount(p_claim_setl_rec.claim_id);
2434: FETCH csr_rma_total_amount INTO l_rma_cm_line_amount
2435: , l_rma_cm_tax_amount
2474: p_claim_id => p_claim_setl_rec.claim_id
2475: ,x_claim_rec => l_upd_claim_rec
2476: ,x_return_status => l_return_status
2477: );
2478: IF l_return_status = FND_API.g_ret_sts_error THEN
2479: RAISE FND_API.g_exc_error;
2480: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2481: RAISE FND_API.g_exc_unexpected_error;
2482: END IF;
2475: ,x_claim_rec => l_upd_claim_rec
2476: ,x_return_status => l_return_status
2477: );
2478: IF l_return_status = FND_API.g_ret_sts_error THEN
2479: RAISE FND_API.g_exc_error;
2480: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2481: RAISE FND_API.g_exc_unexpected_error;
2482: END IF;
2483:
2476: ,x_return_status => l_return_status
2477: );
2478: IF l_return_status = FND_API.g_ret_sts_error THEN
2479: RAISE FND_API.g_exc_error;
2480: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2481: RAISE FND_API.g_exc_unexpected_error;
2482: END IF;
2483:
2484:
2477: );
2478: IF l_return_status = FND_API.g_ret_sts_error THEN
2479: RAISE FND_API.g_exc_error;
2480: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2481: RAISE FND_API.g_exc_unexpected_error;
2482: END IF;
2483:
2484:
2485: -- ---------------------------
2518: ,x_return_status => l_return_status
2519: ,x_msg_data => x_msg_data
2520: ,x_msg_count => x_msg_count
2521: );
2522: IF l_return_status = FND_API.g_ret_sts_error THEN
2523: RAISE FND_API.G_EXC_ERROR;
2524: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2526: END IF;
2519: ,x_msg_data => x_msg_data
2520: ,x_msg_count => x_msg_count
2521: );
2522: IF l_return_status = FND_API.g_ret_sts_error THEN
2523: RAISE FND_API.G_EXC_ERROR;
2524: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2526: END IF;
2527:
2520: ,x_msg_count => x_msg_count
2521: );
2522: IF l_return_status = FND_API.g_ret_sts_error THEN
2523: RAISE FND_API.G_EXC_ERROR;
2524: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2526: END IF;
2527:
2528: END IF;
2521: );
2522: IF l_return_status = FND_API.g_ret_sts_error THEN
2523: RAISE FND_API.G_EXC_ERROR;
2524: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2526: END IF;
2527:
2528: END IF;
2529:
2546: p_claim_id => p_claim_setl_rec.claim_id
2547: ,x_claim_rec => l_claim_rec
2548: ,x_return_status => l_return_status
2549: );
2550: IF l_return_status = FND_API.g_ret_sts_error THEN
2551: RAISE FND_API.g_exc_error;
2552: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2553: RAISE FND_API.g_exc_unexpected_error;
2554: END IF;
2547: ,x_claim_rec => l_claim_rec
2548: ,x_return_status => l_return_status
2549: );
2550: IF l_return_status = FND_API.g_ret_sts_error THEN
2551: RAISE FND_API.g_exc_error;
2552: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2553: RAISE FND_API.g_exc_unexpected_error;
2554: END IF;
2555:
2548: ,x_return_status => l_return_status
2549: );
2550: IF l_return_status = FND_API.g_ret_sts_error THEN
2551: RAISE FND_API.g_exc_error;
2552: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2553: RAISE FND_API.g_exc_unexpected_error;
2554: END IF;
2555:
2556: Split_Claim_Settlement(
2549: );
2550: IF l_return_status = FND_API.g_ret_sts_error THEN
2551: RAISE FND_API.g_exc_error;
2552: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2553: RAISE FND_API.g_exc_unexpected_error;
2554: END IF;
2555:
2556: Split_Claim_Settlement(
2557: p_claim_rec => l_claim_rec
2559: ,x_return_status => l_return_status
2560: ,x_msg_data => x_msg_data
2561: ,x_msg_count => x_msg_count
2562: );
2563: IF l_return_status = FND_API.g_ret_sts_error THEN
2564: RAISE FND_API.g_exc_error;
2565: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2566: RAISE FND_API.g_exc_unexpected_error;
2567: END IF;
2560: ,x_msg_data => x_msg_data
2561: ,x_msg_count => x_msg_count
2562: );
2563: IF l_return_status = FND_API.g_ret_sts_error THEN
2564: RAISE FND_API.g_exc_error;
2565: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2566: RAISE FND_API.g_exc_unexpected_error;
2567: END IF;
2568:
2561: ,x_msg_count => x_msg_count
2562: );
2563: IF l_return_status = FND_API.g_ret_sts_error THEN
2564: RAISE FND_API.g_exc_error;
2565: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2566: RAISE FND_API.g_exc_unexpected_error;
2567: END IF;
2568:
2569: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
2562: );
2563: IF l_return_status = FND_API.g_ret_sts_error THEN
2564: RAISE FND_API.g_exc_error;
2565: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2566: RAISE FND_API.g_exc_unexpected_error;
2567: END IF;
2568:
2569: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
2570: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Split');
2576: p_claim_id => p_claim_setl_rec.claim_id
2577: ,x_claim_rec => l_claim_rec
2578: ,x_return_status => l_return_status
2579: );
2580: IF l_return_status = FND_API.g_ret_sts_error THEN
2581: RAISE FND_API.g_exc_error;
2582: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2583: RAISE FND_API.g_exc_unexpected_error;
2584: END IF;
2577: ,x_claim_rec => l_claim_rec
2578: ,x_return_status => l_return_status
2579: );
2580: IF l_return_status = FND_API.g_ret_sts_error THEN
2581: RAISE FND_API.g_exc_error;
2582: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2583: RAISE FND_API.g_exc_unexpected_error;
2584: END IF;
2585:
2578: ,x_return_status => l_return_status
2579: );
2580: IF l_return_status = FND_API.g_ret_sts_error THEN
2581: RAISE FND_API.g_exc_error;
2582: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2583: RAISE FND_API.g_exc_unexpected_error;
2584: END IF;
2585:
2586: -- Bug3951827: Settlement Amount is recalculated.
2579: );
2580: IF l_return_status = FND_API.g_ret_sts_error THEN
2581: RAISE FND_API.g_exc_error;
2582: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2583: RAISE FND_API.g_exc_unexpected_error;
2584: END IF;
2585:
2586: -- Bug3951827: Settlement Amount is recalculated.
2587: -- Bug4365819: Calculate settlement amount before write off
2605: ,x_return_status => l_return_status
2606: ,x_msg_data => x_msg_data
2607: ,x_msg_count => x_msg_count
2608: );
2609: IF l_return_status = FND_API.g_ret_sts_error THEN
2610: RAISE FND_API.g_exc_error;
2611: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2612: RAISE FND_API.g_exc_unexpected_error;
2613: END IF;
2606: ,x_msg_data => x_msg_data
2607: ,x_msg_count => x_msg_count
2608: );
2609: IF l_return_status = FND_API.g_ret_sts_error THEN
2610: RAISE FND_API.g_exc_error;
2611: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2612: RAISE FND_API.g_exc_unexpected_error;
2613: END IF;
2614:
2607: ,x_msg_count => x_msg_count
2608: );
2609: IF l_return_status = FND_API.g_ret_sts_error THEN
2610: RAISE FND_API.g_exc_error;
2611: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2612: RAISE FND_API.g_exc_unexpected_error;
2613: END IF;
2614:
2615: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Write Off ');
2608: );
2609: IF l_return_status = FND_API.g_ret_sts_error THEN
2610: RAISE FND_API.g_exc_error;
2611: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2612: RAISE FND_API.g_exc_unexpected_error;
2613: END IF;
2614:
2615: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Write Off ');
2616:
2619: p_claim_id => p_claim_setl_rec.claim_id
2620: ,x_claim_rec => l_claim_rec
2621: ,x_return_status => l_return_status
2622: );
2623: IF l_return_status = FND_API.g_ret_sts_error THEN
2624: RAISE FND_API.g_exc_error;
2625: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2626: RAISE FND_API.g_exc_unexpected_error;
2627: END IF;
2620: ,x_claim_rec => l_claim_rec
2621: ,x_return_status => l_return_status
2622: );
2623: IF l_return_status = FND_API.g_ret_sts_error THEN
2624: RAISE FND_API.g_exc_error;
2625: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2626: RAISE FND_API.g_exc_unexpected_error;
2627: END IF;
2628:
2621: ,x_return_status => l_return_status
2622: );
2623: IF l_return_status = FND_API.g_ret_sts_error THEN
2624: RAISE FND_API.g_exc_error;
2625: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2626: RAISE FND_API.g_exc_unexpected_error;
2627: END IF;
2628:
2629: END IF;
2622: );
2623: IF l_return_status = FND_API.g_ret_sts_error THEN
2624: RAISE FND_API.g_exc_error;
2625: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2626: RAISE FND_API.g_exc_unexpected_error;
2627: END IF;
2628:
2629: END IF;
2630:
2632: --------------- CLAIM ---------------
2633: IF p_claim_setl_rec.claim_class = 'CLAIM' THEN
2634: Update_Claim_From_Settlement(
2635: p_api_version_number => l_api_version,
2636: p_init_msg_list => FND_API.g_false,
2637: p_commit => FND_API.g_false,
2638: p_validation_level => FND_API.g_valid_level_full,
2639: x_return_status => l_return_status,
2640: x_msg_count => x_msg_count,
2633: IF p_claim_setl_rec.claim_class = 'CLAIM' THEN
2634: Update_Claim_From_Settlement(
2635: p_api_version_number => l_api_version,
2636: p_init_msg_list => FND_API.g_false,
2637: p_commit => FND_API.g_false,
2638: p_validation_level => FND_API.g_valid_level_full,
2639: x_return_status => l_return_status,
2640: x_msg_count => x_msg_count,
2641: x_msg_data => x_msg_data,
2634: Update_Claim_From_Settlement(
2635: p_api_version_number => l_api_version,
2636: p_init_msg_list => FND_API.g_false,
2637: p_commit => FND_API.g_false,
2638: p_validation_level => FND_API.g_valid_level_full,
2639: x_return_status => l_return_status,
2640: x_msg_count => x_msg_count,
2641: x_msg_data => x_msg_data,
2642: p_claim_id => p_claim_setl_rec.claim_id,
2643: p_object_version_number => p_claim_setl_rec.object_version_number,
2644: p_status_code => 'CLOSED',
2645: p_payment_status => 'PAID'
2646: );
2647: IF l_return_status = FND_API.g_ret_sts_error THEN
2648: RAISE FND_API.g_exc_error;
2649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2644: p_status_code => 'CLOSED',
2645: p_payment_status => 'PAID'
2646: );
2647: IF l_return_status = FND_API.g_ret_sts_error THEN
2648: RAISE FND_API.g_exc_error;
2649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2652:
2645: p_payment_status => 'PAID'
2646: );
2647: IF l_return_status = FND_API.g_ret_sts_error THEN
2648: RAISE FND_API.g_exc_error;
2649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2652:
2653:
2646: );
2647: IF l_return_status = FND_API.g_ret_sts_error THEN
2648: RAISE FND_API.g_exc_error;
2649: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2650: RAISE FND_API.g_exc_unexpected_error;
2651: END IF;
2652:
2653:
2654: --------------- DEDUCTION ---------------
2662: ,p_claim_amount => l_settlement_amount
2663: ,p_claim_number => l_claim_rec.claim_number
2664: ,x_return_status => l_return_status
2665: );
2666: IF l_return_status = FND_API.g_ret_sts_error THEN
2667: l_inv_bal_error := TRUE;
2668: OZF_UTILITY_PVT.write_conc_log;
2669:
2670: --Raise exception to allow for rollback of split
2667: l_inv_bal_error := TRUE;
2668: OZF_UTILITY_PVT.write_conc_log;
2669:
2670: --Raise exception to allow for rollback of split
2671: RAISE FND_API.g_exc_error;
2672: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2673: RAISE FND_API.g_exc_error;
2674: END IF;
2675: END IF;
2668: OZF_UTILITY_PVT.write_conc_log;
2669:
2670: --Raise exception to allow for rollback of split
2671: RAISE FND_API.g_exc_error;
2672: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2673: RAISE FND_API.g_exc_error;
2674: END IF;
2675: END IF;
2676:
2669:
2670: --Raise exception to allow for rollback of split
2671: RAISE FND_API.g_exc_error;
2672: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2673: RAISE FND_API.g_exc_error;
2674: END IF;
2675: END IF;
2676:
2677: IF NOT l_inv_bal_error THEN
2683: ,x_return_status => l_return_status
2684: ,x_msg_data => x_msg_data
2685: ,x_msg_count => x_msg_count
2686: );
2687: IF l_return_status = FND_API.g_ret_sts_error THEN
2688: RAISE FND_API.g_exc_error;
2689: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2690: RAISE FND_API.g_exc_unexpected_error;
2691: END IF;
2684: ,x_msg_data => x_msg_data
2685: ,x_msg_count => x_msg_count
2686: );
2687: IF l_return_status = FND_API.g_ret_sts_error THEN
2688: RAISE FND_API.g_exc_error;
2689: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2690: RAISE FND_API.g_exc_unexpected_error;
2691: END IF;
2692: END IF; -- end of if not invoice balance error
2685: ,x_msg_count => x_msg_count
2686: );
2687: IF l_return_status = FND_API.g_ret_sts_error THEN
2688: RAISE FND_API.g_exc_error;
2689: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2690: RAISE FND_API.g_exc_unexpected_error;
2691: END IF;
2692: END IF; -- end of if not invoice balance error
2693:
2686: );
2687: IF l_return_status = FND_API.g_ret_sts_error THEN
2688: RAISE FND_API.g_exc_error;
2689: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2690: RAISE FND_API.g_exc_unexpected_error;
2691: END IF;
2692: END IF; -- end of if not invoice balance error
2693:
2694:
2702: ,x_return_status => l_return_status
2703: ,x_msg_data => x_msg_data
2704: ,x_msg_count => x_msg_count
2705: );
2706: IF l_return_status = FND_API.g_ret_sts_error THEN
2707: RAISE FND_API.g_exc_error;
2708: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2709: RAISE FND_API.g_exc_unexpected_error;
2710: END IF;
2703: ,x_msg_data => x_msg_data
2704: ,x_msg_count => x_msg_count
2705: );
2706: IF l_return_status = FND_API.g_ret_sts_error THEN
2707: RAISE FND_API.g_exc_error;
2708: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2709: RAISE FND_API.g_exc_unexpected_error;
2710: END IF;
2711:
2704: ,x_msg_count => x_msg_count
2705: );
2706: IF l_return_status = FND_API.g_ret_sts_error THEN
2707: RAISE FND_API.g_exc_error;
2708: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2709: RAISE FND_API.g_exc_unexpected_error;
2710: END IF;
2711:
2712: END IF;
2705: );
2706: IF l_return_status = FND_API.g_ret_sts_error THEN
2707: RAISE FND_API.g_exc_error;
2708: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2709: RAISE FND_API.g_exc_unexpected_error;
2710: END IF;
2711:
2712: END IF;
2713:
2718: IF OZF_DEBUG_HIGH_ON THEN
2719: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2720: END IF;
2721: EXCEPTION
2722: WHEN FND_API.G_EXC_ERROR THEN
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2726: WHEN OTHERS THEN
2719: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2720: END IF;
2721: EXCEPTION
2722: WHEN FND_API.G_EXC_ERROR THEN
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2726: WHEN OTHERS THEN
2727: IF OZF_DEBUG_LOW_ON THEN
2720: END IF;
2721: EXCEPTION
2722: WHEN FND_API.G_EXC_ERROR THEN
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2726: WHEN OTHERS THEN
2727: IF OZF_DEBUG_LOW_ON THEN
2728: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2721: EXCEPTION
2722: WHEN FND_API.G_EXC_ERROR THEN
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2726: WHEN OTHERS THEN
2727: IF OZF_DEBUG_LOW_ON THEN
2728: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2729: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
2728: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2729: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
2730: FND_MSG_PUB.Add;
2731: END IF;
2732: x_return_status := FND_API.g_ret_sts_unexp_error;
2733:
2734: END Process_RMA_settlement;
2735:
2736:
2913: --------------------- initialize -----------------------
2914: SAVEPOINT Get_RMA_Settlement;
2915:
2916: -- Standard call to check for call compatibility.
2917: IF NOT FND_API.Compatible_API_Call (
2918: l_api_version,
2919: p_api_version_number,
2920: l_api_name,
2921: G_PKG_NAME
2919: p_api_version_number,
2920: l_api_name,
2921: G_PKG_NAME
2922: ) THEN
2923: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2924: END IF;
2925:
2926: -- Initialize message list if p_init_msg_list is set to TRUE.
2927: IF FND_API.to_Boolean(p_init_msg_list) THEN
2923: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2924: END IF;
2925:
2926: -- Initialize message list if p_init_msg_list is set to TRUE.
2927: IF FND_API.to_Boolean(p_init_msg_list) THEN
2928: FND_MSG_PUB.initialize;
2929: END IF;
2930:
2931: x_return_status := FND_API.g_ret_sts_success;
2927: IF FND_API.to_Boolean(p_init_msg_list) THEN
2928: FND_MSG_PUB.initialize;
2929: END IF;
2930:
2931: x_return_status := FND_API.g_ret_sts_success;
2932:
2933: --------------------- start -----------------------
2934: IF OZF_DEBUG_HIGH_ON THEN
2935: OZF_UTILITY_PVT.debug_message(l_full_name ||': start');
3034: p_claim_id => l_claim_rma_fetch(i).claim_id
3035: ,x_return_status => l_return_status
3036: ,x_msg_count => x_msg_count
3037: ,x_msg_data => x_msg_data );
3038: IF l_return_status = FND_API.g_ret_sts_error THEN
3039: RAISE FND_API.g_exc_error;
3040: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3041: RAISE FND_API.g_exc_unexpected_error;
3042: END IF;
3035: ,x_return_status => l_return_status
3036: ,x_msg_count => x_msg_count
3037: ,x_msg_data => x_msg_data );
3038: IF l_return_status = FND_API.g_ret_sts_error THEN
3039: RAISE FND_API.g_exc_error;
3040: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3041: RAISE FND_API.g_exc_unexpected_error;
3042: END IF;
3043: l_reopened_claims := l_reopened_claims + 1;
3036: ,x_msg_count => x_msg_count
3037: ,x_msg_data => x_msg_data );
3038: IF l_return_status = FND_API.g_ret_sts_error THEN
3039: RAISE FND_API.g_exc_error;
3040: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3041: RAISE FND_API.g_exc_unexpected_error;
3042: END IF;
3043: l_reopened_claims := l_reopened_claims + 1;
3044:
3037: ,x_msg_data => x_msg_data );
3038: IF l_return_status = FND_API.g_ret_sts_error THEN
3039: RAISE FND_API.g_exc_error;
3040: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3041: RAISE FND_API.g_exc_unexpected_error;
3042: END IF;
3043: l_reopened_claims := l_reopened_claims + 1;
3044:
3045: ELSE
3051: p_settlement_amount => (l_claim_rma_fetch(i).amount_remaining + l_claim_rma_fetch(i).amount_settled),
3052: x_settlement_doc_tbl => l_settlement_doc_tbl,
3053: x_return_status => l_return_status
3054: );
3055: IF l_return_status = FND_API.g_ret_sts_error THEN
3056: RAISE FND_API.g_exc_error;
3057: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3058: RAISE FND_API.g_exc_unexpected_error;
3059: END IF;
3052: x_settlement_doc_tbl => l_settlement_doc_tbl,
3053: x_return_status => l_return_status
3054: );
3055: IF l_return_status = FND_API.g_ret_sts_error THEN
3056: RAISE FND_API.g_exc_error;
3057: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3058: RAISE FND_API.g_exc_unexpected_error;
3059: END IF;
3060:
3053: x_return_status => l_return_status
3054: );
3055: IF l_return_status = FND_API.g_ret_sts_error THEN
3056: RAISE FND_API.g_exc_error;
3057: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3058: RAISE FND_API.g_exc_unexpected_error;
3059: END IF;
3060:
3061: j := l_settlement_doc_tbl.FIRST;
3054: );
3055: IF l_return_status = FND_API.g_ret_sts_error THEN
3056: RAISE FND_API.g_exc_error;
3057: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3058: RAISE FND_API.g_exc_unexpected_error;
3059: END IF;
3060:
3061: j := l_settlement_doc_tbl.FIRST;
3062: IF j IS NOT NULL THEN
3061: j := l_settlement_doc_tbl.FIRST;
3062: IF j IS NOT NULL THEN
3063: LOOP
3064: IF l_settlement_doc_tbl(j).settlement_id IS NOT NULL AND
3065: l_settlement_doc_tbl(j).settlement_id <> FND_API.g_miss_num THEN
3066: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AR Transactinn# = ' || l_settlement_doc_tbl(j).settlement_number);
3067: Create_Settlement_Doc(
3068: p_api_version_number => l_api_version,
3069: p_init_msg_list => FND_API.g_false,
3065: l_settlement_doc_tbl(j).settlement_id <> FND_API.g_miss_num THEN
3066: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AR Transactinn# = ' || l_settlement_doc_tbl(j).settlement_number);
3067: Create_Settlement_Doc(
3068: p_api_version_number => l_api_version,
3069: p_init_msg_list => FND_API.g_false,
3070: p_commit => FND_API.g_false,
3071: p_validation_level => FND_API.g_valid_level_full,
3072: x_return_status => l_return_status,
3073: x_msg_count => x_msg_count,
3066: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AR Transactinn# = ' || l_settlement_doc_tbl(j).settlement_number);
3067: Create_Settlement_Doc(
3068: p_api_version_number => l_api_version,
3069: p_init_msg_list => FND_API.g_false,
3070: p_commit => FND_API.g_false,
3071: p_validation_level => FND_API.g_valid_level_full,
3072: x_return_status => l_return_status,
3073: x_msg_count => x_msg_count,
3074: x_msg_data => x_msg_data,
3067: Create_Settlement_Doc(
3068: p_api_version_number => l_api_version,
3069: p_init_msg_list => FND_API.g_false,
3070: p_commit => FND_API.g_false,
3071: p_validation_level => FND_API.g_valid_level_full,
3072: x_return_status => l_return_status,
3073: x_msg_count => x_msg_count,
3074: x_msg_data => x_msg_data,
3075: p_settlement_doc_rec => l_settlement_doc_tbl(j),
3074: x_msg_data => x_msg_data,
3075: p_settlement_doc_rec => l_settlement_doc_tbl(j),
3076: x_settlement_doc_id => l_settlement_doc_id
3077: );
3078: IF l_return_status = FND_API.g_ret_sts_error THEN
3079: RAISE FND_API.g_exc_error;
3080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3081: RAISE FND_API.g_exc_unexpected_error;
3082: END IF;
3075: p_settlement_doc_rec => l_settlement_doc_tbl(j),
3076: x_settlement_doc_id => l_settlement_doc_id
3077: );
3078: IF l_return_status = FND_API.g_ret_sts_error THEN
3079: RAISE FND_API.g_exc_error;
3080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3081: RAISE FND_API.g_exc_unexpected_error;
3082: END IF;
3083:
3076: x_settlement_doc_id => l_settlement_doc_id
3077: );
3078: IF l_return_status = FND_API.g_ret_sts_error THEN
3079: RAISE FND_API.g_exc_error;
3080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3081: RAISE FND_API.g_exc_unexpected_error;
3082: END IF;
3083:
3084: -- Commented for Bug4953844
3077: );
3078: IF l_return_status = FND_API.g_ret_sts_error THEN
3079: RAISE FND_API.g_exc_error;
3080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3081: RAISE FND_API.g_exc_unexpected_error;
3082: END IF;
3083:
3084: -- Commented for Bug4953844
3085: /*Update_Claim_Line_Status(
3087: ,x_return_status => l_return_status
3088: ,x_msg_data => x_msg_data
3089: ,x_msg_count => x_msg_count
3090: );
3091: IF l_return_status = FND_API.g_ret_sts_error THEN
3092: RAISE FND_API.g_exc_error;
3093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3094: RAISE FND_API.g_exc_unexpected_error;
3095: END IF; */
3088: ,x_msg_data => x_msg_data
3089: ,x_msg_count => x_msg_count
3090: );
3091: IF l_return_status = FND_API.g_ret_sts_error THEN
3092: RAISE FND_API.g_exc_error;
3093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3094: RAISE FND_API.g_exc_unexpected_error;
3095: END IF; */
3096: END IF;
3089: ,x_msg_count => x_msg_count
3090: );
3091: IF l_return_status = FND_API.g_ret_sts_error THEN
3092: RAISE FND_API.g_exc_error;
3093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3094: RAISE FND_API.g_exc_unexpected_error;
3095: END IF; */
3096: END IF;
3097: EXIT WHEN j = l_settlement_doc_tbl.LAST;
3090: );
3091: IF l_return_status = FND_API.g_ret_sts_error THEN
3092: RAISE FND_API.g_exc_error;
3093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3094: RAISE FND_API.g_exc_unexpected_error;
3095: END IF; */
3096: END IF;
3097: EXIT WHEN j = l_settlement_doc_tbl.LAST;
3098: j := l_settlement_doc_tbl.NEXT(j);
3127: END IF;
3128: END IF; -- end if l_claim_rma_fetch.claim_id is not null and g_miss_num
3129:
3130: EXCEPTION
3131: WHEN FND_API.G_EXC_ERROR THEN
3132: ROLLBACK TO RMA_CR_FETCH;
3133: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3134: OZF_UTILITY_PVT.write_conc_log;
3135: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3133: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3134: OZF_UTILITY_PVT.write_conc_log;
3135: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3136:
3137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3138: ROLLBACK TO RMA_CR_FETCH;
3139: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3140: OZF_UTILITY_PVT.write_conc_log;
3141: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3216: BEGIN
3217: SAVEPOINT RMA_SETL;
3218:
3219: IF l_claim_rma_setl(i).claim_id IS NOT NULL AND
3220: l_claim_rma_setl(i).claim_id <> FND_API.g_miss_num THEN
3221:
3222: BEGIN
3223: OPEN csr_claim_lock(l_claim_rma_setl(i).claim_id);
3224: FETCH csr_claim_lock INTO l_claim_lock_rec;
3241: x_settlement_doc_tbl => l_settlement_doc_tbl,
3242: x_total_rma_cr_amount => l_total_rma_cr_amount,
3243: x_return_status => l_return_status
3244: );
3245: IF l_return_status = FND_API.g_ret_sts_error THEN
3246: RAISE FND_API.g_exc_error;
3247: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3248: RAISE FND_API.g_exc_unexpected_error;
3249: END IF;
3242: x_total_rma_cr_amount => l_total_rma_cr_amount,
3243: x_return_status => l_return_status
3244: );
3245: IF l_return_status = FND_API.g_ret_sts_error THEN
3246: RAISE FND_API.g_exc_error;
3247: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3248: RAISE FND_API.g_exc_unexpected_error;
3249: END IF;
3250:
3243: x_return_status => l_return_status
3244: );
3245: IF l_return_status = FND_API.g_ret_sts_error THEN
3246: RAISE FND_API.g_exc_error;
3247: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3248: RAISE FND_API.g_exc_unexpected_error;
3249: END IF;
3250:
3251: OZF_AR_PAYMENT_PVT.Query_Claim(
3244: );
3245: IF l_return_status = FND_API.g_ret_sts_error THEN
3246: RAISE FND_API.g_exc_error;
3247: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3248: RAISE FND_API.g_exc_unexpected_error;
3249: END IF;
3250:
3251: OZF_AR_PAYMENT_PVT.Query_Claim(
3252: p_claim_id => l_claim_rma_setl(i).claim_id
3252: p_claim_id => l_claim_rma_setl(i).claim_id
3253: ,x_claim_rec => l_claim_setl_rec
3254: ,x_return_status => l_return_status
3255: );
3256: IF l_return_status = FND_API.g_ret_sts_error THEN
3257: RAISE FND_API.g_exc_error;
3258: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3259: RAISE FND_API.g_exc_unexpected_error;
3260: END IF;
3253: ,x_claim_rec => l_claim_setl_rec
3254: ,x_return_status => l_return_status
3255: );
3256: IF l_return_status = FND_API.g_ret_sts_error THEN
3257: RAISE FND_API.g_exc_error;
3258: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3259: RAISE FND_API.g_exc_unexpected_error;
3260: END IF;
3261:
3254: ,x_return_status => l_return_status
3255: );
3256: IF l_return_status = FND_API.g_ret_sts_error THEN
3257: RAISE FND_API.g_exc_error;
3258: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3259: RAISE FND_API.g_exc_unexpected_error;
3260: END IF;
3261:
3262: --------------- CLAIM / DEDUCTION :: RMA ---------------
3255: );
3256: IF l_return_status = FND_API.g_ret_sts_error THEN
3257: RAISE FND_API.g_exc_error;
3258: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3259: RAISE FND_API.g_exc_unexpected_error;
3260: END IF;
3261:
3262: --------------- CLAIM / DEDUCTION :: RMA ---------------
3263: Process_RMA_settlement(
3267: ,x_return_status => l_return_status
3268: ,x_msg_count => x_msg_count
3269: ,x_msg_data => x_msg_data
3270: );
3271: IF l_return_status = FND_API.g_ret_sts_error THEN
3272: RAISE FND_API.g_exc_error;
3273: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3274: RAISE FND_API.g_exc_unexpected_error;
3275: END IF;
3268: ,x_msg_count => x_msg_count
3269: ,x_msg_data => x_msg_data
3270: );
3271: IF l_return_status = FND_API.g_ret_sts_error THEN
3272: RAISE FND_API.g_exc_error;
3273: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3274: RAISE FND_API.g_exc_unexpected_error;
3275: END IF;
3276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Success. ');
3269: ,x_msg_data => x_msg_data
3270: );
3271: IF l_return_status = FND_API.g_ret_sts_error THEN
3272: RAISE FND_API.g_exc_error;
3273: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3274: RAISE FND_API.g_exc_unexpected_error;
3275: END IF;
3276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Success. ');
3277: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3270: );
3271: IF l_return_status = FND_API.g_ret_sts_error THEN
3272: RAISE FND_API.g_exc_error;
3273: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3274: RAISE FND_API.g_exc_unexpected_error;
3275: END IF;
3276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Success. ');
3277: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3278: l_successful_claims := l_successful_claims + 1;
3277: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3278: l_successful_claims := l_successful_claims + 1;
3279: END IF; -- end if l_claim_rma_setl.claim_id is not null and g_miss_num
3280: EXCEPTION
3281: WHEN FND_API.G_EXC_ERROR THEN
3282: ROLLBACK TO RMA_SETL;
3283: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3284: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3285: OZF_UTILITY_PVT.write_conc_log;
3284: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3285: OZF_UTILITY_PVT.write_conc_log;
3286: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3288: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3289: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3290: l_failed_claims := l_failed_claims + 1;
3291:
3292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3288: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3289: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3290: l_failed_claims := l_failed_claims + 1;
3291:
3292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3293: ROLLBACK TO RMA_SETL;
3294: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3295: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3296: OZF_UTILITY_PVT.write_conc_log;
3295: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3296: OZF_UTILITY_PVT.write_conc_log;
3297: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3298: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3299: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3300: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3301: l_failed_claims := l_failed_claims + 1;
3302:
3303: WHEN OTHERS THEN
3317:
3318: END IF;
3319:
3320: --------------------- finish -----------------------
3321: IF FND_API.to_boolean(p_commit) THEN
3322: COMMIT;
3323: END IF;
3324: IF OZF_DEBUG_HIGH_ON THEN
3325: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
3330:
3331: EXCEPTION
3332: WHEN OTHERS THEN
3333: ROLLBACK TO Get_RMA_Settlement;
3334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3335: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3336: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3337: END IF;
3338: FND_MSG_PUB.Count_And_Get(
3335: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3336: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3337: END IF;
3338: FND_MSG_PUB.Count_And_Get(
3339: p_encoded => FND_API.g_false,
3340: p_count => x_msg_count,
3341: p_data => x_msg_data
3342: );
3343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for RMA Settlement Failed.');
3436: --------------------- initialize -----------------------
3437: SAVEPOINT Get_Receivable_Settlement;
3438:
3439: -- Standard call to check for call compatibility.
3440: IF NOT FND_API.Compatible_API_Call (
3441: l_api_version,
3442: p_api_version_number,
3443: l_api_name,
3444: G_PKG_NAME
3442: p_api_version_number,
3443: l_api_name,
3444: G_PKG_NAME
3445: ) THEN
3446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3447: END IF;
3448:
3449: -- Initialize message list if p_init_msg_list is set to TRUE.
3450: IF FND_API.to_Boolean(p_init_msg_list) THEN
3446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3447: END IF;
3448:
3449: -- Initialize message list if p_init_msg_list is set to TRUE.
3450: IF FND_API.to_Boolean(p_init_msg_list) THEN
3451: FND_MSG_PUB.initialize;
3452: END IF;
3453:
3454: x_return_status := FND_API.g_ret_sts_success;
3450: IF FND_API.to_Boolean(p_init_msg_list) THEN
3451: FND_MSG_PUB.initialize;
3452: END IF;
3453:
3454: x_return_status := FND_API.g_ret_sts_success;
3455:
3456: --------------------- start -----------------------
3457: IF OZF_DEBUG_HIGH_ON THEN
3458: OZF_UTILITY_PVT.debug_message(l_full_name ||': start');
3532: BEGIN
3533: SAVEPOINT AR_SETTLEMENT;
3534:
3535: IF l_claim_id_ver(i).claim_id IS NOT NULL AND
3536: l_claim_id_ver(i).claim_id <> FND_API.g_miss_num THEN
3537: BEGIN
3538: OPEN csr_claim_lock(l_claim_id_ver(i).claim_id);
3539: FETCH csr_claim_lock INTO l_claim_lock_rec;
3540: If (csr_claim_lock%NOTFOUND) then
3555: p_settlement_amount => (l_claim_id_ver(i).amount_remaining + l_claim_id_ver(i).amount_settled),
3556: x_settlement_doc_tbl => l_settlement_doc_tbl,
3557: x_return_status => l_return_status
3558: );
3559: IF l_return_status = FND_API.g_ret_sts_error THEN
3560: RAISE FND_API.g_exc_error;
3561: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3562: RAISE FND_API.g_exc_unexpected_error;
3563: END IF;
3556: x_settlement_doc_tbl => l_settlement_doc_tbl,
3557: x_return_status => l_return_status
3558: );
3559: IF l_return_status = FND_API.g_ret_sts_error THEN
3560: RAISE FND_API.g_exc_error;
3561: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3562: RAISE FND_API.g_exc_unexpected_error;
3563: END IF;
3564:
3557: x_return_status => l_return_status
3558: );
3559: IF l_return_status = FND_API.g_ret_sts_error THEN
3560: RAISE FND_API.g_exc_error;
3561: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3562: RAISE FND_API.g_exc_unexpected_error;
3563: END IF;
3564:
3565: IF l_settlement_doc_tbl.count > 0 THEN
3558: );
3559: IF l_return_status = FND_API.g_ret_sts_error THEN
3560: RAISE FND_API.g_exc_error;
3561: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3562: RAISE FND_API.g_exc_unexpected_error;
3563: END IF;
3564:
3565: IF l_settlement_doc_tbl.count > 0 THEN
3566:
3574: p_claim_id => l_claim_id_ver(i).claim_id
3575: ,x_claim_rec => l_claim_rec
3576: ,x_return_status => l_return_status
3577: );
3578: IF l_return_status = FND_API.g_ret_sts_error THEN
3579: RAISE FND_API.g_exc_error;
3580: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3581: RAISE FND_API.g_exc_unexpected_error;
3582: END IF;
3575: ,x_claim_rec => l_claim_rec
3576: ,x_return_status => l_return_status
3577: );
3578: IF l_return_status = FND_API.g_ret_sts_error THEN
3579: RAISE FND_API.g_exc_error;
3580: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3581: RAISE FND_API.g_exc_unexpected_error;
3582: END IF;
3583:
3576: ,x_return_status => l_return_status
3577: );
3578: IF l_return_status = FND_API.g_ret_sts_error THEN
3579: RAISE FND_API.g_exc_error;
3580: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3581: RAISE FND_API.g_exc_unexpected_error;
3582: END IF;
3583:
3584: -- ---------------------------
3577: );
3578: IF l_return_status = FND_API.g_ret_sts_error THEN
3579: RAISE FND_API.g_exc_error;
3580: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3581: RAISE FND_API.g_exc_unexpected_error;
3582: END IF;
3583:
3584: -- ---------------------------
3585: -- 2. Classify Deduction Type
3670: ,x_return_status => l_return_status
3671: ,x_msg_data => x_msg_data
3672: ,x_msg_count => x_msg_count
3673: );
3674: IF l_return_status = FND_API.g_ret_sts_error THEN
3675: RAISE FND_API.G_EXC_ERROR;
3676: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3678: END IF;
3671: ,x_msg_data => x_msg_data
3672: ,x_msg_count => x_msg_count
3673: );
3674: IF l_return_status = FND_API.g_ret_sts_error THEN
3675: RAISE FND_API.G_EXC_ERROR;
3676: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3678: END IF;
3679:
3672: ,x_msg_count => x_msg_count
3673: );
3674: IF l_return_status = FND_API.g_ret_sts_error THEN
3675: RAISE FND_API.G_EXC_ERROR;
3676: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3678: END IF;
3679:
3680: END IF;
3673: );
3674: IF l_return_status = FND_API.g_ret_sts_error THEN
3675: RAISE FND_API.G_EXC_ERROR;
3676: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3678: END IF;
3679:
3680: END IF;
3681:
3701: p_claim_id => l_claim_id_ver(i).claim_id
3702: ,x_claim_rec => l_claim_rec
3703: ,x_return_status => l_return_status
3704: );
3705: IF l_return_status = FND_API.g_ret_sts_error THEN
3706: RAISE FND_API.g_exc_error;
3707: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3708: RAISE FND_API.g_exc_unexpected_error;
3709: END IF;
3702: ,x_claim_rec => l_claim_rec
3703: ,x_return_status => l_return_status
3704: );
3705: IF l_return_status = FND_API.g_ret_sts_error THEN
3706: RAISE FND_API.g_exc_error;
3707: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3708: RAISE FND_API.g_exc_unexpected_error;
3709: END IF;
3710:
3703: ,x_return_status => l_return_status
3704: );
3705: IF l_return_status = FND_API.g_ret_sts_error THEN
3706: RAISE FND_API.g_exc_error;
3707: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3708: RAISE FND_API.g_exc_unexpected_error;
3709: END IF;
3710:
3711: Split_Claim_Settlement(
3704: );
3705: IF l_return_status = FND_API.g_ret_sts_error THEN
3706: RAISE FND_API.g_exc_error;
3707: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3708: RAISE FND_API.g_exc_unexpected_error;
3709: END IF;
3710:
3711: Split_Claim_Settlement(
3712: p_claim_rec => l_claim_rec
3714: ,x_return_status => l_return_status
3715: ,x_msg_data => x_msg_data
3716: ,x_msg_count => x_msg_count
3717: );
3718: IF l_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3715: ,x_msg_data => x_msg_data
3716: ,x_msg_count => x_msg_count
3717: );
3718: IF l_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3723:
3716: ,x_msg_count => x_msg_count
3717: );
3718: IF l_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3723:
3724: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
3717: );
3718: IF l_return_status = FND_API.g_ret_sts_error THEN
3719: RAISE FND_API.g_exc_error;
3720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3723:
3724: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
3725: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Split');
3731: p_claim_id => l_claim_id_ver(i).claim_id
3732: ,x_claim_rec => l_claim_rec
3733: ,x_return_status => l_return_status
3734: );
3735: IF l_return_status = FND_API.g_ret_sts_error THEN
3736: RAISE FND_API.g_exc_error;
3737: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3738: RAISE FND_API.g_exc_unexpected_error;
3739: END IF;
3732: ,x_claim_rec => l_claim_rec
3733: ,x_return_status => l_return_status
3734: );
3735: IF l_return_status = FND_API.g_ret_sts_error THEN
3736: RAISE FND_API.g_exc_error;
3737: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3738: RAISE FND_API.g_exc_unexpected_error;
3739: END IF;
3740:
3733: ,x_return_status => l_return_status
3734: );
3735: IF l_return_status = FND_API.g_ret_sts_error THEN
3736: RAISE FND_API.g_exc_error;
3737: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3738: RAISE FND_API.g_exc_unexpected_error;
3739: END IF;
3740:
3741:
3734: );
3735: IF l_return_status = FND_API.g_ret_sts_error THEN
3736: RAISE FND_API.g_exc_error;
3737: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3738: RAISE FND_API.g_exc_unexpected_error;
3739: END IF;
3740:
3741:
3742: -- Bug4087329: Settlement Amount is recalculated.
3760: ,x_return_status => l_return_status
3761: ,x_msg_data => x_msg_data
3762: ,x_msg_count => x_msg_count
3763: );
3764: IF l_return_status = FND_API.g_ret_sts_error THEN
3765: RAISE FND_API.g_exc_error;
3766: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3767: RAISE FND_API.g_exc_unexpected_error;
3768: END IF;
3761: ,x_msg_data => x_msg_data
3762: ,x_msg_count => x_msg_count
3763: );
3764: IF l_return_status = FND_API.g_ret_sts_error THEN
3765: RAISE FND_API.g_exc_error;
3766: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3767: RAISE FND_API.g_exc_unexpected_error;
3768: END IF;
3769:
3762: ,x_msg_count => x_msg_count
3763: );
3764: IF l_return_status = FND_API.g_ret_sts_error THEN
3765: RAISE FND_API.g_exc_error;
3766: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3767: RAISE FND_API.g_exc_unexpected_error;
3768: END IF;
3769:
3770: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Write Off ');
3763: );
3764: IF l_return_status = FND_API.g_ret_sts_error THEN
3765: RAISE FND_API.g_exc_error;
3766: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3767: RAISE FND_API.g_exc_unexpected_error;
3768: END IF;
3769:
3770: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Write Off ');
3771:
3774: p_claim_id => l_claim_id_ver(i).claim_id
3775: ,x_claim_rec => l_claim_rec
3776: ,x_return_status => l_return_status
3777: );
3778: IF l_return_status = FND_API.g_ret_sts_error THEN
3779: RAISE FND_API.g_exc_error;
3780: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3781: RAISE FND_API.g_exc_unexpected_error;
3782: END IF;
3775: ,x_claim_rec => l_claim_rec
3776: ,x_return_status => l_return_status
3777: );
3778: IF l_return_status = FND_API.g_ret_sts_error THEN
3779: RAISE FND_API.g_exc_error;
3780: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3781: RAISE FND_API.g_exc_unexpected_error;
3782: END IF;
3783:
3776: ,x_return_status => l_return_status
3777: );
3778: IF l_return_status = FND_API.g_ret_sts_error THEN
3779: RAISE FND_API.g_exc_error;
3780: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3781: RAISE FND_API.g_exc_unexpected_error;
3782: END IF;
3783:
3784: END IF;
3777: );
3778: IF l_return_status = FND_API.g_ret_sts_error THEN
3779: RAISE FND_API.g_exc_error;
3780: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3781: RAISE FND_API.g_exc_unexpected_error;
3782: END IF;
3783:
3784: END IF;
3785:
3788: -- 5. Create the Settlement Docs
3789: -- ---------------------------------
3790: IF l_claim_id_ver(i).claim_class IN ('DEDUCTION', 'OVERPAYMENT') AND
3791: l_settlement_doc_tbl(1).settlement_id IS NOT NULL AND
3792: l_settlement_doc_tbl(1).settlement_id <> FND_API.G_miss_num THEN
3793:
3794: IF l_deduction_type IN ('SOURCE_DED', 'RECEIPT_DED') THEN
3795: IF l_deduction_type = 'SOURCE_DED' THEN
3796: OZF_CLAIM_SETTLEMENT_PVT.Check_Transaction_Balance(
3798: ,p_claim_amount => (l_settlement_doc_tbl(1).settlement_amount * -1)
3799: ,p_claim_number => l_claim_rec.claim_number
3800: ,x_return_status => l_return_status
3801: );
3802: IF l_return_status = FND_API.g_ret_sts_error THEN
3803: l_inv_bal_error := TRUE;
3804: OZF_UTILITY_PVT.write_conc_log;
3805: --Raise exception to allow for rollback of split
3806: RAISE FND_API.g_exc_error;
3802: IF l_return_status = FND_API.g_ret_sts_error THEN
3803: l_inv_bal_error := TRUE;
3804: OZF_UTILITY_PVT.write_conc_log;
3805: --Raise exception to allow for rollback of split
3806: RAISE FND_API.g_exc_error;
3807: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3808: RAISE FND_API.g_exc_error;
3809: END IF;
3810: END IF;
3803: l_inv_bal_error := TRUE;
3804: OZF_UTILITY_PVT.write_conc_log;
3805: --Raise exception to allow for rollback of split
3806: RAISE FND_API.g_exc_error;
3807: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3808: RAISE FND_API.g_exc_error;
3809: END IF;
3810: END IF;
3811:
3804: OZF_UTILITY_PVT.write_conc_log;
3805: --Raise exception to allow for rollback of split
3806: RAISE FND_API.g_exc_error;
3807: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3808: RAISE FND_API.g_exc_error;
3809: END IF;
3810: END IF;
3811:
3812: IF NOT l_inv_bal_error THEN
3819: ,x_return_status => l_return_status
3820: ,x_msg_data => x_msg_data
3821: ,x_msg_count => x_msg_count
3822: );
3823: IF l_return_status = FND_API.g_ret_sts_error THEN
3824: RAISE FND_API.g_exc_error;
3825: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3826: RAISE FND_API.g_exc_unexpected_error;
3827: END IF;
3820: ,x_msg_data => x_msg_data
3821: ,x_msg_count => x_msg_count
3822: );
3823: IF l_return_status = FND_API.g_ret_sts_error THEN
3824: RAISE FND_API.g_exc_error;
3825: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3826: RAISE FND_API.g_exc_unexpected_error;
3827: END IF;
3828:
3821: ,x_msg_count => x_msg_count
3822: );
3823: IF l_return_status = FND_API.g_ret_sts_error THEN
3824: RAISE FND_API.g_exc_error;
3825: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3826: RAISE FND_API.g_exc_unexpected_error;
3827: END IF;
3828:
3829: END IF;
3822: );
3823: IF l_return_status = FND_API.g_ret_sts_error THEN
3824: RAISE FND_API.g_exc_error;
3825: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3826: RAISE FND_API.g_exc_unexpected_error;
3827: END IF;
3828:
3829: END IF;
3830:
3838: ,x_return_status => l_return_status
3839: ,x_msg_data => x_msg_data
3840: ,x_msg_count => x_msg_count
3841: );
3842: IF l_return_status = FND_API.g_ret_sts_error THEN
3843: RAISE FND_API.g_exc_error;
3844: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3845: RAISE FND_API.g_exc_unexpected_error;
3846: END IF;
3839: ,x_msg_data => x_msg_data
3840: ,x_msg_count => x_msg_count
3841: );
3842: IF l_return_status = FND_API.g_ret_sts_error THEN
3843: RAISE FND_API.g_exc_error;
3844: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3845: RAISE FND_API.g_exc_unexpected_error;
3846: END IF;
3847:
3840: ,x_msg_count => x_msg_count
3841: );
3842: IF l_return_status = FND_API.g_ret_sts_error THEN
3843: RAISE FND_API.g_exc_error;
3844: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3845: RAISE FND_API.g_exc_unexpected_error;
3846: END IF;
3847:
3848: END IF;
3841: );
3842: IF l_return_status = FND_API.g_ret_sts_error THEN
3843: RAISE FND_API.g_exc_error;
3844: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3845: RAISE FND_API.g_exc_unexpected_error;
3846: END IF;
3847:
3848: END IF;
3849:
3854: l_upd_claim_status := FALSE;
3855:
3856: FOR j IN l_settlement_doc_tbl.FIRST..l_settlement_doc_tbl.LAST LOOP
3857: IF l_settlement_doc_tbl(j).settlement_id is not null AND
3858: l_settlement_doc_tbl(j).settlement_id <> FND_API.g_miss_num THEN
3859: l_settlement_doc_tbl(j).settlement_date := SYSDATE;
3860: l_settlement_doc_tbl(j).payment_method := l_claim_rec.payment_method;
3861:
3862: Create_Settlement_Doc(
3860: l_settlement_doc_tbl(j).payment_method := l_claim_rec.payment_method;
3861:
3862: Create_Settlement_Doc(
3863: p_api_version_number => l_api_version,
3864: p_init_msg_list => FND_API.g_false,
3865: p_commit => FND_API.g_false,
3866: p_validation_level => FND_API.g_valid_level_full,
3867: x_return_status => l_return_status,
3868: x_msg_count => x_msg_count,
3861:
3862: Create_Settlement_Doc(
3863: p_api_version_number => l_api_version,
3864: p_init_msg_list => FND_API.g_false,
3865: p_commit => FND_API.g_false,
3866: p_validation_level => FND_API.g_valid_level_full,
3867: x_return_status => l_return_status,
3868: x_msg_count => x_msg_count,
3869: x_msg_data => x_msg_data,
3862: Create_Settlement_Doc(
3863: p_api_version_number => l_api_version,
3864: p_init_msg_list => FND_API.g_false,
3865: p_commit => FND_API.g_false,
3866: p_validation_level => FND_API.g_valid_level_full,
3867: x_return_status => l_return_status,
3868: x_msg_count => x_msg_count,
3869: x_msg_data => x_msg_data,
3870: p_settlement_doc_rec => l_settlement_doc_tbl(j),
3869: x_msg_data => x_msg_data,
3870: p_settlement_doc_rec => l_settlement_doc_tbl(j),
3871: x_settlement_doc_id => l_settlement_doc_id
3872: );
3873: IF l_return_status = FND_API.g_ret_sts_error THEN
3874: RAISE FND_API.g_exc_error;
3875: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3876: RAISE FND_API.g_exc_unexpected_error;
3877: END IF;
3870: p_settlement_doc_rec => l_settlement_doc_tbl(j),
3871: x_settlement_doc_id => l_settlement_doc_id
3872: );
3873: IF l_return_status = FND_API.g_ret_sts_error THEN
3874: RAISE FND_API.g_exc_error;
3875: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3876: RAISE FND_API.g_exc_unexpected_error;
3877: END IF;
3878:
3871: x_settlement_doc_id => l_settlement_doc_id
3872: );
3873: IF l_return_status = FND_API.g_ret_sts_error THEN
3874: RAISE FND_API.g_exc_error;
3875: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3876: RAISE FND_API.g_exc_unexpected_error;
3877: END IF;
3878:
3879: l_upd_claim_status := TRUE;
3872: );
3873: IF l_return_status = FND_API.g_ret_sts_error THEN
3874: RAISE FND_API.g_exc_error;
3875: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3876: RAISE FND_API.g_exc_unexpected_error;
3877: END IF;
3878:
3879: l_upd_claim_status := TRUE;
3880: END IF;
3882:
3883: IF l_upd_claim_status THEN
3884: Update_Claim_From_Settlement(
3885: p_api_version_number => l_api_version,
3886: p_init_msg_list => FND_API.g_false,
3887: p_commit => FND_API.g_false,
3888: p_validation_level => FND_API.g_valid_level_full,
3889: x_return_status => l_return_status,
3890: x_msg_count => x_msg_count,
3883: IF l_upd_claim_status THEN
3884: Update_Claim_From_Settlement(
3885: p_api_version_number => l_api_version,
3886: p_init_msg_list => FND_API.g_false,
3887: p_commit => FND_API.g_false,
3888: p_validation_level => FND_API.g_valid_level_full,
3889: x_return_status => l_return_status,
3890: x_msg_count => x_msg_count,
3891: x_msg_data => x_msg_data,
3884: Update_Claim_From_Settlement(
3885: p_api_version_number => l_api_version,
3886: p_init_msg_list => FND_API.g_false,
3887: p_commit => FND_API.g_false,
3888: p_validation_level => FND_API.g_valid_level_full,
3889: x_return_status => l_return_status,
3890: x_msg_count => x_msg_count,
3891: x_msg_data => x_msg_data,
3892: p_claim_id => l_claim_id_ver(i).claim_id,
3893: p_object_version_number => l_claim_id_ver(i).object_version_number,
3894: p_status_code => 'CLOSED',
3895: p_payment_status => 'PAID'
3896: );
3897: IF l_return_status = FND_API.g_ret_sts_error THEN
3898: RAISE FND_API.g_exc_error;
3899: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3900: RAISE FND_API.g_exc_unexpected_error;
3901: END IF;
3894: p_status_code => 'CLOSED',
3895: p_payment_status => 'PAID'
3896: );
3897: IF l_return_status = FND_API.g_ret_sts_error THEN
3898: RAISE FND_API.g_exc_error;
3899: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3900: RAISE FND_API.g_exc_unexpected_error;
3901: END IF;
3902:
3895: p_payment_status => 'PAID'
3896: );
3897: IF l_return_status = FND_API.g_ret_sts_error THEN
3898: RAISE FND_API.g_exc_error;
3899: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3900: RAISE FND_API.g_exc_unexpected_error;
3901: END IF;
3902:
3903: END IF; -- end if l_upd_claim_status
3896: );
3897: IF l_return_status = FND_API.g_ret_sts_error THEN
3898: RAISE FND_API.g_exc_error;
3899: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3900: RAISE FND_API.g_exc_unexpected_error;
3901: END IF;
3902:
3903: END IF; -- end if l_upd_claim_status
3904: END IF; -- end if l_claim_id_ver(i).claim_class IN ('DEDUCTION', 'OVERPAYMENT')
3912: END IF; -- end if l_settlement_doc_tbl.count > 0
3913: END IF; -- end if l_claim_id_ver.claim_id is not null and g_miss_num
3914:
3915: EXCEPTION
3916: WHEN FND_API.G_EXC_ERROR THEN
3917: ROLLBACK TO AR_SETTLEMENT;
3918: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3919: OZF_UTILITY_PVT.write_conc_log;
3920: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3919: OZF_UTILITY_PVT.write_conc_log;
3920: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3921:
3922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3923: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3924: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3925:
3926: l_failed_claims := l_failed_claims + 1;
3927:
3924: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3925:
3926: l_failed_claims := l_failed_claims + 1;
3927:
3928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3929: ROLLBACK TO AR_SETTLEMENT;
3930: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3931: OZF_UTILITY_PVT.write_conc_log;
3932: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3931: OZF_UTILITY_PVT.write_conc_log;
3932: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3933:
3934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3937:
3938: l_failed_claims := l_failed_claims + 1;
3939:
3963: END LOOP;
3964: END IF; -- end if l_claim_id_ver.count > 0
3965:
3966: --------------------- finish -----------------------
3967: IF FND_API.to_boolean(p_commit) THEN
3968: COMMIT;
3969: END IF;
3970:
3971: IF OZF_DEBUG_HIGH_ON THEN
3977:
3978: EXCEPTION
3979: WHEN OTHERS THEN
3980: ROLLBACK TO Get_Receivable_Settlement;
3981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3982: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3983: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3984: END IF;
3985: FND_MSG_PUB.Count_And_Get(
3982: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3983: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3984: END IF;
3985: FND_MSG_PUB.Count_And_Get(
3986: p_encoded => FND_API.g_false,
3987: p_count => x_msg_count,
3988: p_data => x_msg_data
3989: );
3990: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Receivable Settlement Failed.');
4094: --------------------- initialize -----------------------
4095: SAVEPOINT Get_Payable_Settlement;
4096:
4097: -- Standard call to check for call compatibility.
4098: IF NOT FND_API.Compatible_API_Call (
4099: l_api_version_number,
4100: p_api_version_number,
4101: l_api_name,
4102: G_PKG_NAME
4100: p_api_version_number,
4101: l_api_name,
4102: G_PKG_NAME
4103: ) THEN
4104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4105: END IF;
4106:
4107: -- Initialize message list if p_init_msg_list is set to TRUE.
4108: IF FND_API.to_Boolean(p_init_msg_list) THEN
4104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4105: END IF;
4106:
4107: -- Initialize message list if p_init_msg_list is set to TRUE.
4108: IF FND_API.to_Boolean(p_init_msg_list) THEN
4109: FND_MSG_PUB.initialize;
4110: END IF;
4111:
4112: x_return_status := FND_API.g_ret_sts_success;
4108: IF FND_API.to_Boolean(p_init_msg_list) THEN
4109: FND_MSG_PUB.initialize;
4110: END IF;
4111:
4112: x_return_status := FND_API.g_ret_sts_success;
4113:
4114: --------------------- start -----------------------
4115: IF OZF_DEBUG_HIGH_ON THEN
4116: OZF_UTILITY_PVT.debug_message(l_full_name ||': start');
4216: p_claim_id => l_claim_id_ver(i).claim_id
4217: ,x_return_status => l_return_status
4218: ,x_msg_count => x_msg_count
4219: ,x_msg_data => x_msg_data );
4220: IF l_return_status = FND_API.g_ret_sts_error THEN
4221: RAISE FND_API.g_exc_error;
4222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4223: RAISE FND_API.g_exc_unexpected_error;
4224: END IF;
4217: ,x_return_status => l_return_status
4218: ,x_msg_count => x_msg_count
4219: ,x_msg_data => x_msg_data );
4220: IF l_return_status = FND_API.g_ret_sts_error THEN
4221: RAISE FND_API.g_exc_error;
4222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4223: RAISE FND_API.g_exc_unexpected_error;
4224: END IF;
4225:
4218: ,x_msg_count => x_msg_count
4219: ,x_msg_data => x_msg_data );
4220: IF l_return_status = FND_API.g_ret_sts_error THEN
4221: RAISE FND_API.g_exc_error;
4222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4223: RAISE FND_API.g_exc_unexpected_error;
4224: END IF;
4225:
4226: IF l_claim_id_ver(i).payment_method IN ( 'CHECK','EFT','WIRE','AP_DEFAULT') THEN
4219: ,x_msg_data => x_msg_data );
4220: IF l_return_status = FND_API.g_ret_sts_error THEN
4221: RAISE FND_API.g_exc_error;
4222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4223: RAISE FND_API.g_exc_unexpected_error;
4224: END IF;
4225:
4226: IF l_claim_id_ver(i).payment_method IN ( 'CHECK','EFT','WIRE','AP_DEFAULT') THEN
4227: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Deleting settlement docs ' );
4248: p_claim_id => l_claim_id_ver(i).claim_id
4249: ,x_claim_rec => l_claim_rec
4250: ,x_return_status => l_return_status
4251: );
4252: IF l_return_status = FND_API.g_ret_sts_error THEN
4253: RAISE FND_API.g_exc_error;
4254: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4255: RAISE FND_API.g_exc_unexpected_error;
4256: END IF;
4249: ,x_claim_rec => l_claim_rec
4250: ,x_return_status => l_return_status
4251: );
4252: IF l_return_status = FND_API.g_ret_sts_error THEN
4253: RAISE FND_API.g_exc_error;
4254: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4255: RAISE FND_API.g_exc_unexpected_error;
4256: END IF;
4257:
4250: ,x_return_status => l_return_status
4251: );
4252: IF l_return_status = FND_API.g_ret_sts_error THEN
4253: RAISE FND_API.g_exc_error;
4254: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4255: RAISE FND_API.g_exc_unexpected_error;
4256: END IF;
4257:
4258:
4251: );
4252: IF l_return_status = FND_API.g_ret_sts_error THEN
4253: RAISE FND_API.g_exc_error;
4254: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4255: RAISE FND_API.g_exc_unexpected_error;
4256: END IF;
4257:
4258:
4259: l_difference_amount := l_gross_amt - l_claim_rec.amount_settled ;
4283: x_settlement_doc_tbl => l_settlement_doc_tbl,
4284: x_invoice_amount => l_invoice_amount,
4285: x_return_status => l_return_status
4286: );
4287: IF l_return_status = FND_API.g_ret_sts_error THEN
4288: RAISE FND_API.g_exc_error;
4289: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4290: RAISE FND_API.g_exc_unexpected_error;
4291: END IF;
4284: x_invoice_amount => l_invoice_amount,
4285: x_return_status => l_return_status
4286: );
4287: IF l_return_status = FND_API.g_ret_sts_error THEN
4288: RAISE FND_API.g_exc_error;
4289: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4290: RAISE FND_API.g_exc_unexpected_error;
4291: END IF;
4292:
4285: x_return_status => l_return_status
4286: );
4287: IF l_return_status = FND_API.g_ret_sts_error THEN
4288: RAISE FND_API.g_exc_error;
4289: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4290: RAISE FND_API.g_exc_unexpected_error;
4291: END IF;
4292:
4293: IF l_settlement_doc_tbl.count > 0 AND l_settlement_doc_tbl(1).settlement_id is not null
4286: );
4287: IF l_return_status = FND_API.g_ret_sts_error THEN
4288: RAISE FND_API.g_exc_error;
4289: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4290: RAISE FND_API.g_exc_unexpected_error;
4291: END IF;
4292:
4293: IF l_settlement_doc_tbl.count > 0 AND l_settlement_doc_tbl(1).settlement_id is not null
4294: THEN
4297:
4298: l_settle_doc_id := NULL;
4299:
4300: IF l_settlement_doc_tbl(j).status_code = 'RECONCILED' THEN
4301: l_pay_clear_flag := FND_API.g_true;
4302: ELSE
4303: l_pay_clear_flag := FND_API.g_false;
4304: END IF;
4305:
4299:
4300: IF l_settlement_doc_tbl(j).status_code = 'RECONCILED' THEN
4301: l_pay_clear_flag := FND_API.g_true;
4302: ELSE
4303: l_pay_clear_flag := FND_API.g_false;
4304: END IF;
4305:
4306: OPEN csr_settle_doc_exist(l_settlement_doc_tbl(j).settlement_id);
4307: FETCH csr_settle_doc_exist INTO l_settle_doc_id, l_settle_obj_ver
4324: OZF_UTILITY_PVT.debug_message('Updating settlement doc ');
4325: END IF;
4326: Update_Settlement_Doc(
4327: p_api_version_number => 1.0,
4328: p_init_msg_list => FND_API.g_false,
4329: p_commit => p_commit,
4330: p_validation_level => FND_API.g_valid_level_full,
4331: x_return_status => l_return_status,
4332: x_msg_count => x_msg_count,
4326: Update_Settlement_Doc(
4327: p_api_version_number => 1.0,
4328: p_init_msg_list => FND_API.g_false,
4329: p_commit => p_commit,
4330: p_validation_level => FND_API.g_valid_level_full,
4331: x_return_status => l_return_status,
4332: x_msg_count => x_msg_count,
4333: x_msg_data => x_msg_data,
4334: p_settlement_doc_rec => l_settlement_doc_tbl(j),
4333: x_msg_data => x_msg_data,
4334: p_settlement_doc_rec => l_settlement_doc_tbl(j),
4335: x_object_version_number => l_settlement_doc_tbl(j).object_version_number
4336: );
4337: IF l_return_status = FND_API.g_ret_sts_error THEN
4338: RAISE FND_API.g_exc_error;
4339: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4340: RAISE FND_API.g_exc_unexpected_error;
4341: END IF;
4334: p_settlement_doc_rec => l_settlement_doc_tbl(j),
4335: x_object_version_number => l_settlement_doc_tbl(j).object_version_number
4336: );
4337: IF l_return_status = FND_API.g_ret_sts_error THEN
4338: RAISE FND_API.g_exc_error;
4339: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4340: RAISE FND_API.g_exc_unexpected_error;
4341: END IF;
4342:
4335: x_object_version_number => l_settlement_doc_tbl(j).object_version_number
4336: );
4337: IF l_return_status = FND_API.g_ret_sts_error THEN
4338: RAISE FND_API.g_exc_error;
4339: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4340: RAISE FND_API.g_exc_unexpected_error;
4341: END IF;
4342:
4343: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Update settlement doc :: settlement_doc_id='||l_settlement_doc_tbl(j).settlement_id);
4336: );
4337: IF l_return_status = FND_API.g_ret_sts_error THEN
4338: RAISE FND_API.g_exc_error;
4339: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4340: RAISE FND_API.g_exc_unexpected_error;
4341: END IF;
4342:
4343: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Update settlement doc :: settlement_doc_id='||l_settlement_doc_tbl(j).settlement_id);
4344: END IF;
4344: END IF;
4345: ELSE
4346: Create_Settlement_Doc(
4347: p_api_version_number => 1.0,
4348: p_init_msg_list => FND_API.g_false,
4349: p_commit => p_commit,
4350: p_validation_level => FND_API.g_valid_level_full,
4351: x_return_status => l_return_status,
4352: x_msg_count => x_msg_count,
4346: Create_Settlement_Doc(
4347: p_api_version_number => 1.0,
4348: p_init_msg_list => FND_API.g_false,
4349: p_commit => p_commit,
4350: p_validation_level => FND_API.g_valid_level_full,
4351: x_return_status => l_return_status,
4352: x_msg_count => x_msg_count,
4353: x_msg_data => x_msg_data,
4354: p_settlement_doc_rec => l_settlement_doc_tbl(j),
4353: x_msg_data => x_msg_data,
4354: p_settlement_doc_rec => l_settlement_doc_tbl(j),
4355: x_settlement_doc_id => l_settlement_doc_id
4356: );
4357: IF l_return_status = FND_API.g_ret_sts_error THEN
4358: RAISE FND_API.g_exc_error;
4359: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4360: RAISE FND_API.g_exc_unexpected_error;
4361: END IF;
4354: p_settlement_doc_rec => l_settlement_doc_tbl(j),
4355: x_settlement_doc_id => l_settlement_doc_id
4356: );
4357: IF l_return_status = FND_API.g_ret_sts_error THEN
4358: RAISE FND_API.g_exc_error;
4359: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4360: RAISE FND_API.g_exc_unexpected_error;
4361: END IF;
4362:
4355: x_settlement_doc_id => l_settlement_doc_id
4356: );
4357: IF l_return_status = FND_API.g_ret_sts_error THEN
4358: RAISE FND_API.g_exc_error;
4359: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4360: RAISE FND_API.g_exc_unexpected_error;
4361: END IF;
4362:
4363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Create settlement doc :: settlement_doc_id = '||l_settlement_doc_id);
4356: );
4357: IF l_return_status = FND_API.g_ret_sts_error THEN
4358: RAISE FND_API.g_exc_error;
4359: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4360: RAISE FND_API.g_exc_unexpected_error;
4361: END IF;
4362:
4363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Create settlement doc :: settlement_doc_id = '||l_settlement_doc_id);
4364:
4395: ,x_return_status => l_return_status
4396: ,x_msg_data => x_msg_data
4397: ,x_msg_count => x_msg_count
4398: );
4399: IF l_return_status = FND_API.g_ret_sts_error THEN
4400: RAISE FND_API.G_EXC_ERROR;
4401: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4403: END IF;
4396: ,x_msg_data => x_msg_data
4397: ,x_msg_count => x_msg_count
4398: );
4399: IF l_return_status = FND_API.g_ret_sts_error THEN
4400: RAISE FND_API.G_EXC_ERROR;
4401: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4403: END IF;
4404: END IF;
4397: ,x_msg_count => x_msg_count
4398: );
4399: IF l_return_status = FND_API.g_ret_sts_error THEN
4400: RAISE FND_API.G_EXC_ERROR;
4401: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4403: END IF;
4404: END IF;
4405:
4398: );
4399: IF l_return_status = FND_API.g_ret_sts_error THEN
4400: RAISE FND_API.G_EXC_ERROR;
4401: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4403: END IF;
4404: END IF;
4405:
4406: -- Split Claim : if there is difference amount --
4409: p_claim_id => l_claim_id_ver(i).claim_id
4410: ,x_claim_rec => l_claim_rec
4411: ,x_return_status => l_return_status
4412: );
4413: IF l_return_status = FND_API.g_ret_sts_error THEN
4414: RAISE FND_API.g_exc_error;
4415: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4416: RAISE FND_API.g_exc_unexpected_error;
4417: END IF;
4410: ,x_claim_rec => l_claim_rec
4411: ,x_return_status => l_return_status
4412: );
4413: IF l_return_status = FND_API.g_ret_sts_error THEN
4414: RAISE FND_API.g_exc_error;
4415: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4416: RAISE FND_API.g_exc_unexpected_error;
4417: END IF;
4418:
4411: ,x_return_status => l_return_status
4412: );
4413: IF l_return_status = FND_API.g_ret_sts_error THEN
4414: RAISE FND_API.g_exc_error;
4415: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4416: RAISE FND_API.g_exc_unexpected_error;
4417: END IF;
4418:
4419: Split_Claim_Settlement(
4412: );
4413: IF l_return_status = FND_API.g_ret_sts_error THEN
4414: RAISE FND_API.g_exc_error;
4415: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4416: RAISE FND_API.g_exc_unexpected_error;
4417: END IF;
4418:
4419: Split_Claim_Settlement(
4420: p_claim_rec => l_claim_rec
4422: ,x_return_status => l_return_status
4423: ,x_msg_data => x_msg_data
4424: ,x_msg_count => x_msg_count
4425: );
4426: IF l_return_status = FND_API.g_ret_sts_error THEN
4427: RAISE FND_API.g_exc_error;
4428: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4429: RAISE FND_API.g_exc_unexpected_error;
4430: END IF;
4423: ,x_msg_data => x_msg_data
4424: ,x_msg_count => x_msg_count
4425: );
4426: IF l_return_status = FND_API.g_ret_sts_error THEN
4427: RAISE FND_API.g_exc_error;
4428: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4429: RAISE FND_API.g_exc_unexpected_error;
4430: END IF;
4431:
4424: ,x_msg_count => x_msg_count
4425: );
4426: IF l_return_status = FND_API.g_ret_sts_error THEN
4427: RAISE FND_API.g_exc_error;
4428: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4429: RAISE FND_API.g_exc_unexpected_error;
4430: END IF;
4431:
4432: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
4425: );
4426: IF l_return_status = FND_API.g_ret_sts_error THEN
4427: RAISE FND_API.g_exc_error;
4428: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4429: RAISE FND_API.g_exc_unexpected_error;
4430: END IF;
4431:
4432: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
4433: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Split');
4437: p_claim_id => l_claim_id_ver(i).claim_id
4438: ,x_claim_rec => l_claim_rec
4439: ,x_return_status => l_return_status
4440: );
4441: IF l_return_status = FND_API.g_ret_sts_error THEN
4442: RAISE FND_API.g_exc_error;
4443: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4444: RAISE FND_API.g_exc_unexpected_error;
4445: END IF;
4438: ,x_claim_rec => l_claim_rec
4439: ,x_return_status => l_return_status
4440: );
4441: IF l_return_status = FND_API.g_ret_sts_error THEN
4442: RAISE FND_API.g_exc_error;
4443: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4444: RAISE FND_API.g_exc_unexpected_error;
4445: END IF;
4446:
4439: ,x_return_status => l_return_status
4440: );
4441: IF l_return_status = FND_API.g_ret_sts_error THEN
4442: RAISE FND_API.g_exc_error;
4443: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4444: RAISE FND_API.g_exc_unexpected_error;
4445: END IF;
4446:
4447: --- Close Claim
4440: );
4441: IF l_return_status = FND_API.g_ret_sts_error THEN
4442: RAISE FND_API.g_exc_error;
4443: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4444: RAISE FND_API.g_exc_unexpected_error;
4445: END IF;
4446:
4447: --- Close Claim
4448: Update_Claim_From_Settlement(
4446:
4447: --- Close Claim
4448: Update_Claim_From_Settlement(
4449: p_api_version_number => l_api_version_number,
4450: p_init_msg_list => FND_API.g_false,
4451: p_commit => FND_API.g_false,
4452: p_validation_level => FND_API.g_valid_level_full,
4453: x_return_status => l_return_status,
4454: x_msg_count => x_msg_count,
4447: --- Close Claim
4448: Update_Claim_From_Settlement(
4449: p_api_version_number => l_api_version_number,
4450: p_init_msg_list => FND_API.g_false,
4451: p_commit => FND_API.g_false,
4452: p_validation_level => FND_API.g_valid_level_full,
4453: x_return_status => l_return_status,
4454: x_msg_count => x_msg_count,
4455: x_msg_data => x_msg_data,
4448: Update_Claim_From_Settlement(
4449: p_api_version_number => l_api_version_number,
4450: p_init_msg_list => FND_API.g_false,
4451: p_commit => FND_API.g_false,
4452: p_validation_level => FND_API.g_valid_level_full,
4453: x_return_status => l_return_status,
4454: x_msg_count => x_msg_count,
4455: x_msg_data => x_msg_data,
4456: p_claim_id => l_claim_rec.claim_id,
4457: p_object_version_number => l_claim_rec.object_version_number,
4458: p_status_code => 'CLOSED',
4459: p_payment_status => 'PAID'
4460: );
4461: IF l_return_status = FND_API.g_ret_sts_error THEN
4462: RAISE FND_API.g_exc_error;
4463: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4464: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4465: RAISE FND_API.g_exc_unexpected_error;
4458: p_status_code => 'CLOSED',
4459: p_payment_status => 'PAID'
4460: );
4461: IF l_return_status = FND_API.g_ret_sts_error THEN
4462: RAISE FND_API.g_exc_error;
4463: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4464: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4465: RAISE FND_API.g_exc_unexpected_error;
4466: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4460: );
4461: IF l_return_status = FND_API.g_ret_sts_error THEN
4462: RAISE FND_API.g_exc_error;
4463: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4464: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4465: RAISE FND_API.g_exc_unexpected_error;
4466: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4467: END IF;
4468: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Success.');
4461: IF l_return_status = FND_API.g_ret_sts_error THEN
4462: RAISE FND_API.g_exc_error;
4463: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4464: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4465: RAISE FND_API.g_exc_unexpected_error;
4466: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4467: END IF;
4468: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Success.');
4469:
4480: END IF; -- l_settlement_doc_tbl.count > 0
4481: END IF; -- Camcelled;
4482:
4483: EXCEPTION
4484: WHEN FND_API.G_EXC_ERROR THEN
4485: ROLLBACK TO AP_SETTLEMENT;
4486: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4487: OZF_UTILITY_PVT.write_conc_log;
4488: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4486: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4487: OZF_UTILITY_PVT.write_conc_log;
4488: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4490: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4492: l_failed_claims := l_failed_claims + 1;
4493:
4494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4490: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4492: l_failed_claims := l_failed_claims + 1;
4493:
4494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4495: ROLLBACK TO AP_SETTLEMENT;
4496: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4497: OZF_UTILITY_PVT.write_conc_log;
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4496: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4497: OZF_UTILITY_PVT.write_conc_log;
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4500: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4502: l_failed_claims := l_failed_claims + 1;
4503:
4504: WHEN OTHERS THEN
4514: END LOOP;
4515:
4516:
4517: --------------------- finish -----------------------
4518: IF FND_API.to_boolean(p_commit) THEN
4519: COMMIT;
4520: END IF;
4521:
4522: FND_MSG_PUB.Count_And_Get(
4531: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims failed to be fetched for AP Settlement : ' || l_failed_claims);
4532: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims reopened for AP Settlement : ' || l_reopened_claims);
4533:
4534: EXCEPTION
4535: WHEN FND_API.G_EXC_ERROR THEN
4536: ROLLBACK TO Get_Payable_Settlement;
4537: x_return_status := FND_API.g_ret_sts_error;
4538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4539: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4533:
4534: EXCEPTION
4535: WHEN FND_API.G_EXC_ERROR THEN
4536: ROLLBACK TO Get_Payable_Settlement;
4537: x_return_status := FND_API.g_ret_sts_error;
4538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4539: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4541: FND_MSG_PUB.Count_And_Get(
4535: WHEN FND_API.G_EXC_ERROR THEN
4536: ROLLBACK TO Get_Payable_Settlement;
4537: x_return_status := FND_API.g_ret_sts_error;
4538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4539: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4541: FND_MSG_PUB.Count_And_Get(
4542: p_encoded => FND_API.g_false,
4543: p_count => x_msg_count,
4538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4539: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4541: FND_MSG_PUB.Count_And_Get(
4542: p_encoded => FND_API.g_false,
4543: p_count => x_msg_count,
4544: p_data => x_msg_data
4545: );
4546:
4543: p_count => x_msg_count,
4544: p_data => x_msg_data
4545: );
4546:
4547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4548: ROLLBACK TO Get_Payable_Settlement;
4549: x_return_status := FND_API.g_ret_sts_unexp_error;
4550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4545: );
4546:
4547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4548: ROLLBACK TO Get_Payable_Settlement;
4549: x_return_status := FND_API.g_ret_sts_unexp_error;
4550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4552: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4553: FND_MSG_PUB.Count_And_Get(
4547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4548: ROLLBACK TO Get_Payable_Settlement;
4549: x_return_status := FND_API.g_ret_sts_unexp_error;
4550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4552: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4553: FND_MSG_PUB.Count_And_Get(
4554: p_encoded => FND_API.g_false,
4555: p_count => x_msg_count,
4550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4552: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4553: FND_MSG_PUB.Count_And_Get(
4554: p_encoded => FND_API.g_false,
4555: p_count => x_msg_count,
4556: p_data => x_msg_data
4557: );
4558:
4557: );
4558:
4559: WHEN OTHERS THEN
4560: ROLLBACK TO Get_Payable_Settlement;
4561: x_return_status := FND_API.g_ret_sts_unexp_error;
4562: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4563: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
4564: END IF;
4565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4566: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
4567: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4568: FND_MSG_PUB.Count_And_Get(
4569: p_encoded => FND_API.g_false,
4570: p_count => x_msg_count,
4571: p_data => x_msg_data
4572: );
4573: End Get_Payable_Settlement;
4712:
4713: IF p_payment_method IS NULL OR p_payment_method IN ( 'CREDIT_MEMO', 'DEBIT_MEMO') THEN
4714: Get_Receivable_Settlement(
4715: p_api_version_number => 1.0,
4716: p_init_msg_list => FND_API.g_false,
4717: p_commit => FND_API.g_false,
4718: p_validation_level => FND_API.g_valid_level_full,
4719:
4720: p_claim_class => p_claim_class,
4713: IF p_payment_method IS NULL OR p_payment_method IN ( 'CREDIT_MEMO', 'DEBIT_MEMO') THEN
4714: Get_Receivable_Settlement(
4715: p_api_version_number => 1.0,
4716: p_init_msg_list => FND_API.g_false,
4717: p_commit => FND_API.g_false,
4718: p_validation_level => FND_API.g_valid_level_full,
4719:
4720: p_claim_class => p_claim_class,
4721: p_payment_method => p_payment_method,
4714: Get_Receivable_Settlement(
4715: p_api_version_number => 1.0,
4716: p_init_msg_list => FND_API.g_false,
4717: p_commit => FND_API.g_false,
4718: p_validation_level => FND_API.g_valid_level_full,
4719:
4720: p_claim_class => p_claim_class,
4721: p_payment_method => p_payment_method,
4722: p_cust_account_id => p_cust_account_id,
4726: x_return_status => l_return_status,
4727: x_msg_count => l_msg_count,
4728: x_msg_data => l_msg_data
4729: );
4730: IF l_return_status = FND_API.g_ret_sts_error THEN
4731: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4732: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4733: FND_MSG_PUB.add;
4734: END IF;
4731: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4732: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4733: FND_MSG_PUB.add;
4734: END IF;
4735: RAISE FND_API.g_exc_error;
4736: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4737: RAISE FND_API.g_exc_unexpected_error;
4738: END IF;
4739:
4732: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4733: FND_MSG_PUB.add;
4734: END IF;
4735: RAISE FND_API.g_exc_error;
4736: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4737: RAISE FND_API.g_exc_unexpected_error;
4738: END IF;
4739:
4740: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4733: FND_MSG_PUB.add;
4734: END IF;
4735: RAISE FND_API.g_exc_error;
4736: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4737: RAISE FND_API.g_exc_unexpected_error;
4738: END IF;
4739:
4740: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4746:
4747: IF p_payment_method IS NULL OR p_payment_method IN ( 'CHECK','EFT','WIRE','AP_DEFAULT','AP_DEBIT') THEN
4748: Get_Payable_Settlement(
4749: p_api_version_number => 1.0,
4750: p_init_msg_list => FND_API.g_false,
4751: p_commit => FND_API.g_false,
4752: p_validation_level => FND_API.g_valid_level_full,
4753:
4754: p_claim_class => p_claim_class,
4747: IF p_payment_method IS NULL OR p_payment_method IN ( 'CHECK','EFT','WIRE','AP_DEFAULT','AP_DEBIT') THEN
4748: Get_Payable_Settlement(
4749: p_api_version_number => 1.0,
4750: p_init_msg_list => FND_API.g_false,
4751: p_commit => FND_API.g_false,
4752: p_validation_level => FND_API.g_valid_level_full,
4753:
4754: p_claim_class => p_claim_class,
4755: p_payment_method => p_payment_method,
4748: Get_Payable_Settlement(
4749: p_api_version_number => 1.0,
4750: p_init_msg_list => FND_API.g_false,
4751: p_commit => FND_API.g_false,
4752: p_validation_level => FND_API.g_valid_level_full,
4753:
4754: p_claim_class => p_claim_class,
4755: p_payment_method => p_payment_method,
4756: p_cust_account_id => p_cust_account_id,
4760: x_return_status => l_return_status,
4761: x_msg_count => l_msg_count,
4762: x_msg_data => l_msg_data
4763: );
4764: IF l_return_status = FND_API.g_ret_sts_error THEN
4765: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4766: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AP_FETCH_ERR');
4767: FND_MSG_PUB.add;
4768: END IF;
4765: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4766: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AP_FETCH_ERR');
4767: FND_MSG_PUB.add;
4768: END IF;
4769: RAISE FND_API.g_exc_error;
4770: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4771: RAISE FND_API.g_exc_unexpected_error;
4772: END IF;
4773:
4766: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AP_FETCH_ERR');
4767: FND_MSG_PUB.add;
4768: END IF;
4769: RAISE FND_API.g_exc_error;
4770: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4771: RAISE FND_API.g_exc_unexpected_error;
4772: END IF;
4773:
4774: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4767: FND_MSG_PUB.add;
4768: END IF;
4769: RAISE FND_API.g_exc_error;
4770: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4771: RAISE FND_API.g_exc_unexpected_error;
4772: END IF;
4773:
4774: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4779:
4780: IF p_payment_method IS NULL OR p_payment_method = 'RMA' THEN
4781: Get_RMA_Settlement(
4782: p_api_version_number => 1.0,
4783: p_init_msg_list => FND_API.g_false,
4784: p_commit => FND_API.g_false,
4785: p_validation_level => FND_API.g_valid_level_full,
4786:
4787: p_claim_class => p_claim_class,
4780: IF p_payment_method IS NULL OR p_payment_method = 'RMA' THEN
4781: Get_RMA_Settlement(
4782: p_api_version_number => 1.0,
4783: p_init_msg_list => FND_API.g_false,
4784: p_commit => FND_API.g_false,
4785: p_validation_level => FND_API.g_valid_level_full,
4786:
4787: p_claim_class => p_claim_class,
4788: p_payment_method => p_payment_method,
4781: Get_RMA_Settlement(
4782: p_api_version_number => 1.0,
4783: p_init_msg_list => FND_API.g_false,
4784: p_commit => FND_API.g_false,
4785: p_validation_level => FND_API.g_valid_level_full,
4786:
4787: p_claim_class => p_claim_class,
4788: p_payment_method => p_payment_method,
4789: p_cust_account_id => p_cust_account_id,
4793: x_return_status => l_return_status,
4794: x_msg_count => l_msg_count,
4795: x_msg_data => l_msg_data
4796: );
4797: IF l_return_status = FND_API.g_ret_sts_error THEN
4798: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4799: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4800: FND_MSG_PUB.add;
4801: END IF;
4798: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4799: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4800: FND_MSG_PUB.add;
4801: END IF;
4802: RAISE FND_API.g_exc_error;
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: /*
4799: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_AR_FETCH_ERR');
4800: FND_MSG_PUB.add;
4801: END IF;
4802: RAISE FND_API.g_exc_error;
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: /*
4807: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4800: FND_MSG_PUB.add;
4801: END IF;
4802: RAISE FND_API.g_exc_error;
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: /*
4807: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4808: FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_RETURN_STATUS ');
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: /*
4807: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4808: FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_RETURN_STATUS ');
4809: END IF;
4810: */
4811:
4820: END LOOP;
4821: END IF;
4822:
4823: EXCEPTION
4824: WHEN FND_API.g_exc_error THEN
4825: ROLLBACK TO Populate_Settlement_Data;
4826: OZF_UTILITY_PVT.write_conc_log;
4827: ERRBUF := l_msg_data;
4828: RETCODE := 2;
4829: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || l_msg_data ||')');
4830: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4832:
4833: WHEN FND_API.g_exc_unexpected_error THEN
4834: ROLLBACK TO Populate_Settlement_Data;
4835: OZF_UTILITY_PVT.write_conc_log;
4836: ERRBUF := l_msg_data;
4837: RETCODE := 2;
4914: IF OZF_DEBUG_HIGH_ON THEN
4915: OZF_Utility_PVT.debug_message(l_full_name||': start');
4916: END IF;
4917:
4918: IF FND_API.to_boolean(p_init_msg_list) THEN
4919: FND_MSG_PUB.initialize;
4920: END IF;
4921:
4922: IF NOT FND_API.compatible_api_call(
4918: IF FND_API.to_boolean(p_init_msg_list) THEN
4919: FND_MSG_PUB.initialize;
4920: END IF;
4921:
4922: IF NOT FND_API.compatible_api_call(
4923: l_api_version,
4924: p_api_version_number,
4925: l_api_name,
4926: G_PKG_NAME
4924: p_api_version_number,
4925: l_api_name,
4926: G_PKG_NAME
4927: ) THEN
4928: RAISE FND_API.g_exc_unexpected_error;
4929: END IF;
4930:
4931: x_return_status := FND_API.g_ret_sts_success;
4932:
4927: ) THEN
4928: RAISE FND_API.g_exc_unexpected_error;
4929: END IF;
4930:
4931: x_return_status := FND_API.g_ret_sts_success;
4932:
4933: l_created_by := NVL(FND_GLOBAL.user_id,-1);
4934: l_updated_by := NVL(FND_GLOBAL.user_id,-1);
4935: l_last_update_login := NVL(FND_GLOBAL.conc_login_id,-1);
4938: --------------------- validate -----------------------
4939: -- Validate Environment
4940: IF FND_GLOBAL.user_Id IS NULL THEN
4941: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_USER_PROFILE_MISSING');
4942: RAISE FND_API.G_EXC_ERROR;
4943: END IF;
4944:
4945: IF ( P_validation_level >= FND_API.g_valid_level_full) THEN
4946: Validate_Settlement_Doc(
4941: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_USER_PROFILE_MISSING');
4942: RAISE FND_API.G_EXC_ERROR;
4943: END IF;
4944:
4945: IF ( P_validation_level >= FND_API.g_valid_level_full) THEN
4946: Validate_Settlement_Doc(
4947: p_api_version_number => 1.0,
4948: p_init_msg_list => FND_API.G_FALSE,
4949: p_validation_level => p_validation_level,
4944:
4945: IF ( P_validation_level >= FND_API.g_valid_level_full) THEN
4946: Validate_Settlement_Doc(
4947: p_api_version_number => 1.0,
4948: p_init_msg_list => FND_API.G_FALSE,
4949: p_validation_level => p_validation_level,
4950: p_settlement_doc_rec => p_settlement_doc_rec,
4951: x_return_status => l_return_status,
4952: x_msg_count => x_msg_count,
4951: x_return_status => l_return_status,
4952: x_msg_count => x_msg_count,
4953: x_msg_data => x_msg_data
4954: );
4955: IF l_return_status <> FND_API.g_ret_sts_success THEN
4956: RAISE FND_API.g_exc_error;
4957: END IF;
4958: END IF;
4959:
4952: x_msg_count => x_msg_count,
4953: x_msg_data => x_msg_data
4954: );
4955: IF l_return_status <> FND_API.g_ret_sts_success THEN
4956: RAISE FND_API.g_exc_error;
4957: END IF;
4958: END IF;
4959:
4960: OPEN csr_claim_currency(l_settlement_doc_rec.claim_id);
4976: X_ACC_AMOUNT => l_settlement_doc_rec.settlement_acctd_amount,
4977: X_RATE => l_exchange_rate
4978: );
4979:
4980: IF l_return_status = FND_API.g_ret_sts_error THEN
4981: RAISE FND_API.g_exc_error;
4982: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4983: RAISE FND_API.g_exc_unexpected_error;
4984: END IF;
4977: X_RATE => l_exchange_rate
4978: );
4979:
4980: IF l_return_status = FND_API.g_ret_sts_error THEN
4981: RAISE FND_API.g_exc_error;
4982: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4983: RAISE FND_API.g_exc_unexpected_error;
4984: END IF;
4985: END IF;
4978: );
4979:
4980: IF l_return_status = FND_API.g_ret_sts_error THEN
4981: RAISE FND_API.g_exc_error;
4982: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4983: RAISE FND_API.g_exc_unexpected_error;
4984: END IF;
4985: END IF;
4986:
4979:
4980: IF l_return_status = FND_API.g_ret_sts_error THEN
4981: RAISE FND_API.g_exc_error;
4982: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4983: RAISE FND_API.g_exc_unexpected_error;
4984: END IF;
4985: END IF;
4986:
4987: -------------------------- insert --------------------------
4985: END IF;
4986:
4987: -------------------------- insert --------------------------
4988: IF p_settlement_doc_rec.settlement_doc_id IS NULL OR
4989: p_settlement_doc_rec.settlement_doc_id = FND_API.G_MISS_NUM THEN
4990: LOOP
4991: -- Get the identifier
4992: OPEN c_settlement_doc_seq;
4993: FETCH c_settlement_doc_seq INTO l_settlement_doc_rec.settlement_doc_id;
5001: END LOOP;
5002: END IF;
5003:
5004:
5005: if l_settlement_doc_rec.claim_line_id = FND_API.G_MISS_NUM THEN
5006: l_settlement_doc_rec.claim_line_id := null;
5007: end if;
5008:
5009:
5064: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5065: FND_MESSAGE.Set_Token('TEXT',SQLERRM);
5066: FND_MSG_PUB.add;
5067: END IF;
5068: RAISE FND_API.g_exc_error;
5069: END;
5070:
5071: ------------------------- finish -------------------------------
5072: x_settlement_doc_id := l_settlement_doc_rec.settlement_doc_id;
5071: ------------------------- finish -------------------------------
5072: x_settlement_doc_id := l_settlement_doc_rec.settlement_doc_id;
5073:
5074: -- Check for commit
5075: IF FND_API.to_boolean(p_commit) THEN
5076: COMMIT;
5077: END IF;
5078:
5079: FND_MSG_PUB.count_and_get(
5076: COMMIT;
5077: END IF;
5078:
5079: FND_MSG_PUB.count_and_get(
5080: p_encoded => FND_API.g_false,
5081: p_count => x_msg_count,
5082: p_data => x_msg_data
5083: );
5084:
5086: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5087: END IF;
5088:
5089: EXCEPTION
5090: WHEN FND_API.g_exc_error THEN
5091: ROLLBACK TO Create_Settlement_Doc;
5092: x_return_status := FND_API.g_ret_sts_error;
5093: FND_MSG_PUB.Count_And_Get (
5094: p_encoded => FND_API.g_false,
5088:
5089: EXCEPTION
5090: WHEN FND_API.g_exc_error THEN
5091: ROLLBACK TO Create_Settlement_Doc;
5092: x_return_status := FND_API.g_ret_sts_error;
5093: FND_MSG_PUB.Count_And_Get (
5094: p_encoded => FND_API.g_false,
5095: p_count => x_msg_count,
5096: p_data => x_msg_data
5090: WHEN FND_API.g_exc_error THEN
5091: ROLLBACK TO Create_Settlement_Doc;
5092: x_return_status := FND_API.g_ret_sts_error;
5093: FND_MSG_PUB.Count_And_Get (
5094: p_encoded => FND_API.g_false,
5095: p_count => x_msg_count,
5096: p_data => x_msg_data
5097: );
5098:
5095: p_count => x_msg_count,
5096: p_data => x_msg_data
5097: );
5098:
5099: WHEN FND_API.g_exc_unexpected_error THEN
5100: ROLLBACK TO Create_Settlement_Doc;
5101: x_return_status := FND_API.g_ret_sts_unexp_error;
5102: FND_MSG_PUB.Count_And_Get (
5103: p_encoded => FND_API.g_false,
5097: );
5098:
5099: WHEN FND_API.g_exc_unexpected_error THEN
5100: ROLLBACK TO Create_Settlement_Doc;
5101: x_return_status := FND_API.g_ret_sts_unexp_error;
5102: FND_MSG_PUB.Count_And_Get (
5103: p_encoded => FND_API.g_false,
5104: p_count => x_msg_count,
5105: p_data => x_msg_data
5099: WHEN FND_API.g_exc_unexpected_error THEN
5100: ROLLBACK TO Create_Settlement_Doc;
5101: x_return_status := FND_API.g_ret_sts_unexp_error;
5102: FND_MSG_PUB.Count_And_Get (
5103: p_encoded => FND_API.g_false,
5104: p_count => x_msg_count,
5105: p_data => x_msg_data
5106: );
5107:
5106: );
5107:
5108: WHEN OTHERS THEN
5109: ROLLBACK TO Create_Settlement_Doc;
5110: x_return_status := FND_API.g_ret_sts_unexp_error;
5111: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5112: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5113: END IF;
5114: FND_MSG_PUB.Count_And_Get (
5111: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5112: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5113: END IF;
5114: FND_MSG_PUB.Count_And_Get (
5115: p_encoded => FND_API.g_false,
5116: p_count => x_msg_count,
5117: p_data => x_msg_data
5118: );
5119:
5179: IF OZF_DEBUG_HIGH_ON THEN
5180: OZF_Utility_PVT.debug_message(l_full_name||': start');
5181: END IF;
5182:
5183: IF FND_API.to_boolean(p_init_msg_list) THEN
5184: FND_MSG_PUB.initialize;
5185: END IF;
5186:
5187: IF NOT FND_API.compatible_api_call(
5183: IF FND_API.to_boolean(p_init_msg_list) THEN
5184: FND_MSG_PUB.initialize;
5185: END IF;
5186:
5187: IF NOT FND_API.compatible_api_call(
5188: l_api_version,
5189: p_api_version_number,
5190: l_api_name,
5191: G_PKG_NAME
5189: p_api_version_number,
5190: l_api_name,
5191: G_PKG_NAME
5192: ) THEN
5193: RAISE FND_API.g_exc_unexpected_error;
5194: END IF;
5195:
5196: x_return_status := FND_API.g_ret_sts_success;
5197:
5192: ) THEN
5193: RAISE FND_API.g_exc_unexpected_error;
5194: END IF;
5195:
5196: x_return_status := FND_API.g_ret_sts_success;
5197:
5198:
5199: l_last_updated_by := NVL(FND_GLOBAL.user_id,-1);
5200: l_last_update_login := NVL(FND_GLOBAL.conc_login_id,-1);
5202:
5203: ----------------------- validate ----------------------
5204: -- Varify object_version_number
5205: IF p_settlement_doc_rec.object_version_number is NULL or
5206: p_settlement_doc_rec.object_version_number = FND_API.G_MISS_NUM THEN
5207: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
5208: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
5209: FND_MSG_PUB.ADD;
5210: END IF;
5207: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
5208: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
5209: FND_MSG_PUB.ADD;
5210: END IF;
5211: RAISE FND_API.G_EXC_ERROR;
5212: END IF;
5213:
5214: OPEN csr_settle_obj_ver(p_settlement_doc_rec.settlement_doc_id);
5215: FETCH csr_settle_obj_ver INTO l_object_version_number;
5219: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.g_msg_lvl_error) THEN
5220: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
5221: FND_MSG_PUB.ADD;
5222: END IF;
5223: RAISE FND_API.G_EXC_ERROR;
5224: END IF;
5225:
5226: l_object_version_number := l_object_version_number + 1;
5227:
5238: p_validation_mode => JTF_PLSQL_API.g_update,
5239: x_return_status => l_return_status
5240: );
5241:
5242: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5243: RAISE FND_API.g_exc_unexpected_error;
5244: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
5245: RAISE FND_API.g_exc_error;
5246: END IF;
5239: x_return_status => l_return_status
5240: );
5241:
5242: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5243: RAISE FND_API.g_exc_unexpected_error;
5244: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
5245: RAISE FND_API.g_exc_error;
5246: END IF;
5247: END IF;
5240: );
5241:
5242: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5243: RAISE FND_API.g_exc_unexpected_error;
5244: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
5245: RAISE FND_API.g_exc_error;
5246: END IF;
5247: END IF;
5248:
5241:
5242: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5243: RAISE FND_API.g_exc_unexpected_error;
5244: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
5245: RAISE FND_API.g_exc_error;
5246: END IF;
5247: END IF;
5248:
5249: -- record level validation
5252: P_settlement_doc_rec => p_settlement_doc_rec,
5253: p_complete_rec => l_complete_doc_rec,
5254: x_return_status => l_return_status
5255: );
5256: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5257: RAISE FND_API.g_exc_unexpected_error;
5258: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
5259: RAISE FND_API.g_exc_error;
5260: END IF;
5253: p_complete_rec => l_complete_doc_rec,
5254: x_return_status => l_return_status
5255: );
5256: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5257: RAISE FND_API.g_exc_unexpected_error;
5258: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
5259: RAISE FND_API.g_exc_error;
5260: END IF;
5261: END IF;
5254: x_return_status => l_return_status
5255: );
5256: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5257: RAISE FND_API.g_exc_unexpected_error;
5258: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
5259: RAISE FND_API.g_exc_error;
5260: END IF;
5261: END IF;
5262:
5255: );
5256: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5257: RAISE FND_API.g_exc_unexpected_error;
5258: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
5259: RAISE FND_API.g_exc_error;
5260: END IF;
5261: END IF;
5262:
5263: OPEN csr_claim_currency(l_complete_doc_rec.claim_id);
5279: X_ACC_AMOUNT => l_complete_doc_rec.settlement_acctd_amount,
5280: X_RATE => l_exchange_rate
5281: );
5282:
5283: IF l_return_status = FND_API.g_ret_sts_error THEN
5284: RAISE FND_API.g_exc_error;
5285: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5286: RAISE FND_API.g_exc_unexpected_error;
5287: END IF;
5280: X_RATE => l_exchange_rate
5281: );
5282:
5283: IF l_return_status = FND_API.g_ret_sts_error THEN
5284: RAISE FND_API.g_exc_error;
5285: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5286: RAISE FND_API.g_exc_unexpected_error;
5287: END IF;
5288: END IF;
5281: );
5282:
5283: IF l_return_status = FND_API.g_ret_sts_error THEN
5284: RAISE FND_API.g_exc_error;
5285: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5286: RAISE FND_API.g_exc_unexpected_error;
5287: END IF;
5288: END IF;
5289:
5282:
5283: IF l_return_status = FND_API.g_ret_sts_error THEN
5284: RAISE FND_API.g_exc_error;
5285: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5286: RAISE FND_API.g_exc_unexpected_error;
5287: END IF;
5288: END IF;
5289:
5290: -------------------------- update --------------------
5341: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5342: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
5343: FND_MSG_PUB.add;
5344: END IF;
5345: RAISE FND_API.g_exc_error;
5346: END;
5347:
5348:
5349: /*
5391: -------------------- finish --------------------------
5392: x_object_version_number := l_object_version_number;
5393:
5394: -- Check for commit
5395: IF FND_API.to_boolean(p_commit) THEN
5396: COMMIT;
5397: END IF;
5398:
5399: FND_MSG_PUB.count_and_get(
5396: COMMIT;
5397: END IF;
5398:
5399: FND_MSG_PUB.count_and_get(
5400: p_encoded => FND_API.g_false,
5401: p_count => x_msg_count,
5402: p_data => x_msg_data
5403: );
5404:
5406: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5407: END IF;
5408:
5409: EXCEPTION
5410: WHEN FND_API.g_exc_error THEN
5411: ROLLBACK TO Update_Settlement_Doc;
5412: x_return_status := FND_API.g_ret_sts_error;
5413: FND_MSG_PUB.Count_And_Get (
5414: p_encoded => FND_API.g_false,
5408:
5409: EXCEPTION
5410: WHEN FND_API.g_exc_error THEN
5411: ROLLBACK TO Update_Settlement_Doc;
5412: x_return_status := FND_API.g_ret_sts_error;
5413: FND_MSG_PUB.Count_And_Get (
5414: p_encoded => FND_API.g_false,
5415: p_count => x_msg_count,
5416: p_data => x_msg_data
5410: WHEN FND_API.g_exc_error THEN
5411: ROLLBACK TO Update_Settlement_Doc;
5412: x_return_status := FND_API.g_ret_sts_error;
5413: FND_MSG_PUB.Count_And_Get (
5414: p_encoded => FND_API.g_false,
5415: p_count => x_msg_count,
5416: p_data => x_msg_data
5417: );
5418:
5415: p_count => x_msg_count,
5416: p_data => x_msg_data
5417: );
5418:
5419: WHEN FND_API.g_exc_unexpected_error THEN
5420: ROLLBACK TO Update_Settlement_Doc;
5421: x_return_status := FND_API.g_ret_sts_unexp_error;
5422: FND_MSG_PUB.Count_And_Get (
5423: p_encoded => FND_API.g_false,
5417: );
5418:
5419: WHEN FND_API.g_exc_unexpected_error THEN
5420: ROLLBACK TO Update_Settlement_Doc;
5421: x_return_status := FND_API.g_ret_sts_unexp_error;
5422: FND_MSG_PUB.Count_And_Get (
5423: p_encoded => FND_API.g_false,
5424: p_count => x_msg_count,
5425: p_data => x_msg_data
5419: WHEN FND_API.g_exc_unexpected_error THEN
5420: ROLLBACK TO Update_Settlement_Doc;
5421: x_return_status := FND_API.g_ret_sts_unexp_error;
5422: FND_MSG_PUB.Count_And_Get (
5423: p_encoded => FND_API.g_false,
5424: p_count => x_msg_count,
5425: p_data => x_msg_data
5426: );
5427:
5426: );
5427:
5428: WHEN OTHERS THEN
5429: ROLLBACK TO Update_Settlement_Doc;
5430: x_return_status := FND_API.g_ret_sts_unexp_error;
5431: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5432: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5433: END IF;
5434: FND_MSG_PUB.Count_And_Get (
5431: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5432: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5433: END IF;
5434: FND_MSG_PUB.Count_And_Get (
5435: p_encoded => FND_API.g_false,
5436: p_count => x_msg_count,
5437: p_data => x_msg_data
5438: );
5439:
5478: IF OZF_DEBUG_HIGH_ON THEN
5479: OZF_Utility_PVT.debug_message(l_full_name||': start');
5480: END IF;
5481:
5482: IF FND_API.to_boolean(p_init_msg_list) THEN
5483: FND_MSG_PUB.initialize;
5484: END IF;
5485:
5486: IF NOT FND_API.compatible_api_call(
5482: IF FND_API.to_boolean(p_init_msg_list) THEN
5483: FND_MSG_PUB.initialize;
5484: END IF;
5485:
5486: IF NOT FND_API.compatible_api_call(
5487: l_api_version,
5488: p_api_version_number,
5489: l_api_name,
5490: G_PKG_NAME
5488: p_api_version_number,
5489: l_api_name,
5490: G_PKG_NAME
5491: ) THEN
5492: RAISE FND_API.g_exc_unexpected_error;
5493: END IF;
5494:
5495: x_return_status := FND_API.g_ret_sts_success;
5496:
5491: ) THEN
5492: RAISE FND_API.g_exc_unexpected_error;
5493: END IF;
5494:
5495: x_return_status := FND_API.g_ret_sts_success;
5496:
5497: -- Validate object_version_number
5498: OPEN csr_settle_obj_ver(p_settlement_doc_id);
5499: FETCH csr_settle_obj_ver INTO l_object_version;
5514: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5515: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
5516: FND_MSG_PUB.add;
5517: END IF;
5518: RAISE FND_API.g_exc_error;
5519: END;
5520: ELSE
5521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5522: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5522: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5523: FND_MSG_PUB.add;
5524: END IF;
5525: RAISE FND_API.g_exc_error;
5526: END IF;
5527:
5528: /*
5529: DELETE FROM ozf_settlement_docs_all
5534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5535: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
5536: FND_MSG_PUB.add;
5537: END IF;
5538: RAISE FND_API.g_exc_error;
5539: END IF;
5540: */
5541: -------------------- finish --------------------------
5542: IF FND_API.to_boolean(p_commit) THEN
5538: RAISE FND_API.g_exc_error;
5539: END IF;
5540: */
5541: -------------------- finish --------------------------
5542: IF FND_API.to_boolean(p_commit) THEN
5543: COMMIT;
5544: END IF;
5545:
5546: FND_MSG_PUB.count_and_get(
5543: COMMIT;
5544: END IF;
5545:
5546: FND_MSG_PUB.count_and_get(
5547: p_encoded => FND_API.g_false,
5548: p_count => x_msg_count,
5549: p_data => x_msg_data
5550: );
5551:
5553: OZF_Utility_PVT.debug_message(l_full_name ||': end');
5554: END IF;
5555:
5556: EXCEPTION
5557: WHEN FND_API.g_exc_error THEN
5558: ROLLBACK TO Delete_Settlement_Doc;
5559: x_return_status := FND_API.g_ret_sts_error;
5560: FND_MSG_PUB.Count_And_Get (
5561: p_encoded => FND_API.g_false,
5555:
5556: EXCEPTION
5557: WHEN FND_API.g_exc_error THEN
5558: ROLLBACK TO Delete_Settlement_Doc;
5559: x_return_status := FND_API.g_ret_sts_error;
5560: FND_MSG_PUB.Count_And_Get (
5561: p_encoded => FND_API.g_false,
5562: p_count => x_msg_count,
5563: p_data => x_msg_data
5557: WHEN FND_API.g_exc_error THEN
5558: ROLLBACK TO Delete_Settlement_Doc;
5559: x_return_status := FND_API.g_ret_sts_error;
5560: FND_MSG_PUB.Count_And_Get (
5561: p_encoded => FND_API.g_false,
5562: p_count => x_msg_count,
5563: p_data => x_msg_data
5564: );
5565:
5562: p_count => x_msg_count,
5563: p_data => x_msg_data
5564: );
5565:
5566: WHEN FND_API.g_exc_unexpected_error THEN
5567: ROLLBACK TO Delete_Settlement_Doc;
5568: x_return_status := FND_API.g_ret_sts_unexp_error;
5569: FND_MSG_PUB.Count_And_Get (
5570: p_encoded => FND_API.g_false,
5564: );
5565:
5566: WHEN FND_API.g_exc_unexpected_error THEN
5567: ROLLBACK TO Delete_Settlement_Doc;
5568: x_return_status := FND_API.g_ret_sts_unexp_error;
5569: FND_MSG_PUB.Count_And_Get (
5570: p_encoded => FND_API.g_false,
5571: p_count => x_msg_count,
5572: p_data => x_msg_data
5566: WHEN FND_API.g_exc_unexpected_error THEN
5567: ROLLBACK TO Delete_Settlement_Doc;
5568: x_return_status := FND_API.g_ret_sts_unexp_error;
5569: FND_MSG_PUB.Count_And_Get (
5570: p_encoded => FND_API.g_false,
5571: p_count => x_msg_count,
5572: p_data => x_msg_data
5573: );
5574:
5573: );
5574:
5575: WHEN OTHERS THEN
5576: ROLLBACK TO Delete_Settlement_Doc;
5577: x_return_status := FND_API.g_ret_sts_unexp_error;
5578: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5579: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5580: END IF;
5581: FND_MSG_PUB.Count_And_Get (
5578: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5579: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
5580: END IF;
5581: FND_MSG_PUB.Count_And_Get (
5582: p_encoded => FND_API.g_false,
5583: p_count => x_msg_count,
5584: p_data => x_msg_data
5585: );
5586: End Delete_Settlement_Doc;
5625: IF OZF_DEBUG_HIGH_ON THEN
5626: OZF_Utility_PVT.debug_message(l_full_name||': start');
5627: END IF;
5628:
5629: IF FND_API.to_boolean(p_init_msg_list) THEN
5630: FND_MSG_PUB.initialize;
5631: END IF;
5632:
5633: IF NOT FND_API.compatible_api_call(
5629: IF FND_API.to_boolean(p_init_msg_list) THEN
5630: FND_MSG_PUB.initialize;
5631: END IF;
5632:
5633: IF NOT FND_API.compatible_api_call(
5634: l_api_version,
5635: p_api_version_number,
5636: l_api_name,
5637: g_pkg_name
5635: p_api_version_number,
5636: l_api_name,
5637: g_pkg_name
5638: ) THEN
5639: RAISE FND_API.g_exc_unexpected_error;
5640: END IF;
5641:
5642: x_return_status := FND_API.g_ret_sts_success;
5643:
5638: ) THEN
5639: RAISE FND_API.g_exc_unexpected_error;
5640: END IF;
5641:
5642: x_return_status := FND_API.g_ret_sts_success;
5643:
5644: ------------------------ lock -------------------------
5645: IF OZF_DEBUG_HIGH_ON THEN
5646: OZF_Utility_PVT.debug_message(l_full_name||': lock');
5653: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5654: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
5655: FND_MSG_PUB.add;
5656: END IF;
5657: RAISE FND_API.g_exc_error;
5658: END IF;
5659: CLOSE c_Settlement_Doc;
5660:
5661: -------------------- finish --------------------------
5659: CLOSE c_Settlement_Doc;
5660:
5661: -------------------- finish --------------------------
5662: FND_MSG_PUB.count_and_get(
5663: p_encoded => FND_API.g_false,
5664: p_count => x_msg_count,
5665: p_data => x_msg_data
5666: );
5667:
5670: END IF;
5671:
5672: EXCEPTION
5673: WHEN OZF_Utility_PVT.resource_locked THEN
5674: x_return_status := FND_API.g_ret_sts_error;
5675: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5676: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
5677: FND_MSG_PUB.add;
5678: END IF;
5676: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
5677: FND_MSG_PUB.add;
5678: END IF;
5679: FND_MSG_PUB.count_and_get(
5680: p_encoded => FND_API.g_false,
5681: p_count => x_msg_count,
5682: p_data => x_msg_data
5683: );
5684:
5681: p_count => x_msg_count,
5682: p_data => x_msg_data
5683: );
5684:
5685: WHEN FND_API.g_exc_error THEN
5686: x_return_status := FND_API.g_ret_sts_error;
5687: FND_MSG_PUB.count_and_get(
5688: p_encoded => FND_API.g_false,
5689: p_count => x_msg_count,
5682: p_data => x_msg_data
5683: );
5684:
5685: WHEN FND_API.g_exc_error THEN
5686: x_return_status := FND_API.g_ret_sts_error;
5687: FND_MSG_PUB.count_and_get(
5688: p_encoded => FND_API.g_false,
5689: p_count => x_msg_count,
5690: p_data => x_msg_data
5684:
5685: WHEN FND_API.g_exc_error THEN
5686: x_return_status := FND_API.g_ret_sts_error;
5687: FND_MSG_PUB.count_and_get(
5688: p_encoded => FND_API.g_false,
5689: p_count => x_msg_count,
5690: p_data => x_msg_data
5691: );
5692:
5689: p_count => x_msg_count,
5690: p_data => x_msg_data
5691: );
5692:
5693: WHEN FND_API.g_exc_unexpected_error THEN
5694: x_return_status := FND_API.g_ret_sts_unexp_error ;
5695: FND_MSG_PUB.count_and_get(
5696: p_encoded => FND_API.g_false,
5697: p_count => x_msg_count,
5690: p_data => x_msg_data
5691: );
5692:
5693: WHEN FND_API.g_exc_unexpected_error THEN
5694: x_return_status := FND_API.g_ret_sts_unexp_error ;
5695: FND_MSG_PUB.count_and_get(
5696: p_encoded => FND_API.g_false,
5697: p_count => x_msg_count,
5698: p_data => x_msg_data
5692:
5693: WHEN FND_API.g_exc_unexpected_error THEN
5694: x_return_status := FND_API.g_ret_sts_unexp_error ;
5695: FND_MSG_PUB.count_and_get(
5696: p_encoded => FND_API.g_false,
5697: p_count => x_msg_count,
5698: p_data => x_msg_data
5699: );
5700:
5698: p_data => x_msg_data
5699: );
5700:
5701: WHEN OTHERS THEN
5702: x_return_status := FND_API.g_ret_sts_unexp_error ;
5703: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5704: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5705: END IF;
5706: FND_MSG_PUB.count_and_get(
5703: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5704: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5705: END IF;
5706: FND_MSG_PUB.count_and_get(
5707: p_encoded => FND_API.g_false,
5708: p_count => x_msg_count,
5709: p_data => x_msg_data
5710: );
5711:
5728: IS
5729: l_valid_flag VARCHAR2(1);
5730:
5731: BEGIN
5732: x_return_status := FND_API.g_ret_sts_success;
5733: /*
5734: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
5735: l_valid_flag := OZF_Utility_PVT.check_uniqueness(
5736: 'OZF_SETTLEMENT_DOCS_ALL',
5743: ''' AND SETTLEMENT_DOC_ID <> ' || p_settlement_doc_rec.SETTLEMENT_DOC_ID
5744: );
5745: END IF;
5746:
5747: IF l_valid_flag = FND_API.g_false THEN
5748: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_SETTLEMENT_DOC_ID_DUPLICATE');
5749: x_return_status := FND_API.g_ret_sts_error;
5750: RETURN;
5751: END IF;
5745: END IF;
5746:
5747: IF l_valid_flag = FND_API.g_false THEN
5748: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_SETTLEMENT_DOC_ID_DUPLICATE');
5749: x_return_status := FND_API.g_ret_sts_error;
5750: RETURN;
5751: END IF;
5752: */
5753: END Check_Settle_Doc_Uk_Items;
5767: x_return_status OUT NOCOPY VARCHAR2
5768: )
5769: IS
5770: BEGIN
5771: x_return_status := FND_API.g_ret_sts_success;
5772:
5773: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
5774: /*
5775: IF p_settlement_doc_rec.settlement_doc_id = FND_API.g_miss_num OR
5771: x_return_status := FND_API.g_ret_sts_success;
5772:
5773: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
5774: /*
5775: IF p_settlement_doc_rec.settlement_doc_id = FND_API.g_miss_num OR
5776: p_settlement_doc_rec.settlement_doc_id IS NULL THEN
5777: x_return_status := FND_API.g_ret_sts_error;
5778: RETURN;
5779: END IF;
5773: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
5774: /*
5775: IF p_settlement_doc_rec.settlement_doc_id = FND_API.g_miss_num OR
5776: p_settlement_doc_rec.settlement_doc_id IS NULL THEN
5777: x_return_status := FND_API.g_ret_sts_error;
5778: RETURN;
5779: END IF;
5780:
5781: IF p_settlement_doc_rec.object_version_number = FND_API.g_miss_num OR
5777: x_return_status := FND_API.g_ret_sts_error;
5778: RETURN;
5779: END IF;
5780:
5781: IF p_settlement_doc_rec.object_version_number = FND_API.g_miss_num OR
5782: p_settlement_doc_rec.object_version_number IS NULL THEN
5783: x_return_status := FND_API.g_ret_sts_error;
5784: RETURN;
5785: END IF;
5779: END IF;
5780:
5781: IF p_settlement_doc_rec.object_version_number = FND_API.g_miss_num OR
5782: p_settlement_doc_rec.object_version_number IS NULL THEN
5783: x_return_status := FND_API.g_ret_sts_error;
5784: RETURN;
5785: END IF;
5786:
5787: IF p_settlement_doc_rec.last_update_date = FND_API.g_miss_date OR
5783: x_return_status := FND_API.g_ret_sts_error;
5784: RETURN;
5785: END IF;
5786:
5787: IF p_settlement_doc_rec.last_update_date = FND_API.g_miss_date OR
5788: p_settlement_doc_rec.last_update_date IS NULL THEN
5789: x_return_status := FND_API.g_ret_sts_error;
5790: RETURN;
5791: END IF;
5785: END IF;
5786:
5787: IF p_settlement_doc_rec.last_update_date = FND_API.g_miss_date OR
5788: p_settlement_doc_rec.last_update_date IS NULL THEN
5789: x_return_status := FND_API.g_ret_sts_error;
5790: RETURN;
5791: END IF;
5792:
5793: IF p_settlement_doc_rec.last_updated_by = FND_API.g_miss_num OR
5789: x_return_status := FND_API.g_ret_sts_error;
5790: RETURN;
5791: END IF;
5792:
5793: IF p_settlement_doc_rec.last_updated_by = FND_API.g_miss_num OR
5794: p_settlement_doc_rec.last_updated_by IS NULL THEN
5795: x_return_status := FND_API.g_ret_sts_error;
5796: RETURN;
5797: END IF;
5791: END IF;
5792:
5793: IF p_settlement_doc_rec.last_updated_by = FND_API.g_miss_num OR
5794: p_settlement_doc_rec.last_updated_by IS NULL THEN
5795: x_return_status := FND_API.g_ret_sts_error;
5796: RETURN;
5797: END IF;
5798:
5799: IF p_settlement_doc_rec.creation_date = FND_API.g_miss_date OR
5795: x_return_status := FND_API.g_ret_sts_error;
5796: RETURN;
5797: END IF;
5798:
5799: IF p_settlement_doc_rec.creation_date = FND_API.g_miss_date OR
5800: p_settlement_doc_rec.creation_date IS NULL THEN
5801: x_return_status := FND_API.g_ret_sts_error;
5802: RETURN;
5803: END IF;
5797: END IF;
5798:
5799: IF p_settlement_doc_rec.creation_date = FND_API.g_miss_date OR
5800: p_settlement_doc_rec.creation_date IS NULL THEN
5801: x_return_status := FND_API.g_ret_sts_error;
5802: RETURN;
5803: END IF;
5804:
5805: IF p_settlement_doc_rec.created_by = FND_API.g_miss_num OR
5801: x_return_status := FND_API.g_ret_sts_error;
5802: RETURN;
5803: END IF;
5804:
5805: IF p_settlement_doc_rec.created_by = FND_API.g_miss_num OR
5806: p_settlement_doc_rec.created_by IS NULL THEN
5807: x_return_status := FND_API.g_ret_sts_error;
5808: RETURN;
5809: END IF;
5803: END IF;
5804:
5805: IF p_settlement_doc_rec.created_by = FND_API.g_miss_num OR
5806: p_settlement_doc_rec.created_by IS NULL THEN
5807: x_return_status := FND_API.g_ret_sts_error;
5808: RETURN;
5809: END IF;
5810: */
5811: IF p_settlement_doc_rec.claim_id = FND_API.g_miss_num OR
5807: x_return_status := FND_API.g_ret_sts_error;
5808: RETURN;
5809: END IF;
5810: */
5811: IF p_settlement_doc_rec.claim_id = FND_API.g_miss_num OR
5812: p_settlement_doc_rec.claim_id IS NULL THEN
5813: x_return_status := FND_API.g_ret_sts_error;
5814: RETURN;
5815: END IF;
5809: END IF;
5810: */
5811: IF p_settlement_doc_rec.claim_id = FND_API.g_miss_num OR
5812: p_settlement_doc_rec.claim_id IS NULL THEN
5813: x_return_status := FND_API.g_ret_sts_error;
5814: RETURN;
5815: END IF;
5816: ELSE
5817: IF p_settlement_doc_rec.settlement_doc_id IS NULL THEN
5814: RETURN;
5815: END IF;
5816: ELSE
5817: IF p_settlement_doc_rec.settlement_doc_id IS NULL THEN
5818: x_return_status := FND_API.g_ret_sts_error;
5819: RETURN;
5820: END IF;
5821: /*
5822: IF p_settlement_doc_rec.object_version_number IS NULL THEN
5819: RETURN;
5820: END IF;
5821: /*
5822: IF p_settlement_doc_rec.object_version_number IS NULL THEN
5823: x_return_status := FND_API.g_ret_sts_error;
5824: RETURN;
5825: END IF;
5826:
5827: IF p_settlement_doc_rec.last_update_date IS NULL THEN
5824: RETURN;
5825: END IF;
5826:
5827: IF p_settlement_doc_rec.last_update_date IS NULL THEN
5828: x_return_status := FND_API.g_ret_sts_error;
5829: RETURN;
5830: END IF;
5831:
5832: IF p_settlement_doc_rec.last_updated_by IS NULL THEN
5829: RETURN;
5830: END IF;
5831:
5832: IF p_settlement_doc_rec.last_updated_by IS NULL THEN
5833: x_return_status := FND_API.g_ret_sts_error;
5834: RETURN;
5835: END IF;
5836:
5837: IF p_settlement_doc_rec.creation_date IS NULL THEN
5834: RETURN;
5835: END IF;
5836:
5837: IF p_settlement_doc_rec.creation_date IS NULL THEN
5838: x_return_status := FND_API.g_ret_sts_error;
5839: RETURN;
5840: END IF;
5841:
5842: IF p_settlement_doc_rec.created_by IS NULL THEN
5839: RETURN;
5840: END IF;
5841:
5842: IF p_settlement_doc_rec.created_by IS NULL THEN
5843: x_return_status := FND_API.g_ret_sts_error;
5844: RETURN;
5845: END IF;
5846: */
5847: IF p_settlement_doc_rec.claim_id IS NULL THEN
5844: RETURN;
5845: END IF;
5846: */
5847: IF p_settlement_doc_rec.claim_id IS NULL THEN
5848: x_return_status := FND_API.g_ret_sts_error;
5849: RETURN;
5850: END IF;
5851: END IF;
5852:
5866: x_return_status OUT NOCOPY VARCHAR2
5867: )
5868: IS
5869: BEGIN
5870: x_return_status := FND_API.g_ret_sts_success;
5871:
5872: -- Enter custom code here
5873:
5874: END Check_Settle_Doc_FK_Items;
5887: x_return_status OUT NOCOPY VARCHAR2
5888: )
5889: IS
5890: BEGIN
5891: x_return_status := FND_API.g_ret_sts_success;
5892:
5893: -- Enter custom code here
5894:
5895: END Check_Settle_Doc_Lk_Items;
5916: p_settlement_doc_rec => p_settlement_doc_rec,
5917: p_validation_mode => p_validation_mode,
5918: x_return_status => x_return_status
5919: );
5920: IF x_return_status <> FND_API.g_ret_sts_success THEN
5921: RETURN;
5922: END IF;
5923:
5924: -- Check Items Required/NOT NULL API calls
5926: p_settlement_doc_rec => p_settlement_doc_rec,
5927: p_validation_mode => p_validation_mode,
5928: x_return_status => x_return_status
5929: );
5930: IF x_return_status <> FND_API.g_ret_sts_success THEN
5931: RETURN;
5932: END IF;
5933:
5934: -- Check Items Foreign Keys API calls
5935: Check_Settle_Doc_FK_Items(
5936: p_settlement_doc_rec => p_settlement_doc_rec,
5937: x_return_status => x_return_status
5938: );
5939: IF x_return_status <> FND_API.g_ret_sts_success THEN
5940: RETURN;
5941: END IF;
5942:
5943: -- Check Items Lookups
5944: Check_Settle_Doc_LK_Items(
5945: p_settlement_doc_rec => p_settlement_doc_rec,
5946: x_return_status => x_return_status
5947: );
5948: IF x_return_status <> FND_API.g_ret_sts_success THEN
5949: RETURN;
5950: END IF;
5951:
5952: END Check_Settle_doc_Items;
5981: FETCH c_complete INTO l_settlement_doc_rec;
5982: CLOSE c_complete;
5983:
5984: -- settlement_doc_id
5985: IF p_settlement_doc_rec.settlement_doc_id = FND_API.g_miss_num THEN
5986: x_complete_rec.settlement_doc_id := NULL;
5987: END IF;
5988: IF p_settlement_doc_rec.settlement_doc_id IS NULL THEN
5989: x_complete_rec.settlement_doc_id := l_settlement_doc_rec.settlement_doc_id;
5989: x_complete_rec.settlement_doc_id := l_settlement_doc_rec.settlement_doc_id;
5990: END IF;
5991:
5992: -- object_version_number
5993: IF p_settlement_doc_rec.object_version_number = FND_API.g_miss_num THEN
5994: x_complete_rec.object_version_number := NULL;
5995: END IF;
5996: IF p_settlement_doc_rec.object_version_number IS NULL THEN
5997: x_complete_rec.object_version_number := l_settlement_doc_rec.object_version_number;
5997: x_complete_rec.object_version_number := l_settlement_doc_rec.object_version_number;
5998: END IF;
5999:
6000: -- last_update_date
6001: IF p_settlement_doc_rec.last_update_date = FND_API.g_miss_date THEN
6002: x_complete_rec.last_update_date := NULL;
6003: END IF;
6004: IF p_settlement_doc_rec.last_update_date IS NULL THEN
6005: x_complete_rec.last_update_date := l_settlement_doc_rec.last_update_date;
6005: x_complete_rec.last_update_date := l_settlement_doc_rec.last_update_date;
6006: END IF;
6007:
6008: -- last_updated_by
6009: IF p_settlement_doc_rec.last_updated_by = FND_API.g_miss_num THEN
6010: x_complete_rec.last_updated_by := NULL;
6011: END IF;
6012: IF p_settlement_doc_rec.last_updated_by IS NULL THEN
6013: x_complete_rec.last_updated_by := l_settlement_doc_rec.last_updated_by;
6013: x_complete_rec.last_updated_by := l_settlement_doc_rec.last_updated_by;
6014: END IF;
6015:
6016: -- creation_date
6017: IF p_settlement_doc_rec.creation_date = FND_API.g_miss_date THEN
6018: x_complete_rec.creation_date := NULL;
6019: END IF;
6020: IF p_settlement_doc_rec.creation_date IS NULL THEN
6021: x_complete_rec.creation_date := l_settlement_doc_rec.creation_date;
6021: x_complete_rec.creation_date := l_settlement_doc_rec.creation_date;
6022: END IF;
6023:
6024: -- created_by
6025: IF p_settlement_doc_rec.created_by = FND_API.g_miss_num THEN
6026: x_complete_rec.created_by := NULL;
6027: END IF;
6028: IF p_settlement_doc_rec.created_by IS NULL THEN
6029: x_complete_rec.created_by := l_settlement_doc_rec.created_by;
6029: x_complete_rec.created_by := l_settlement_doc_rec.created_by;
6030: END IF;
6031:
6032: -- last_update_login
6033: IF p_settlement_doc_rec.last_update_login = FND_API.g_miss_num THEN
6034: x_complete_rec.last_update_login := NULL;
6035: END IF;
6036: IF p_settlement_doc_rec.last_update_login IS NULL THEN
6037: x_complete_rec.last_update_login := l_settlement_doc_rec.last_update_login;
6037: x_complete_rec.last_update_login := l_settlement_doc_rec.last_update_login;
6038: END IF;
6039:
6040: -- request_id
6041: IF p_settlement_doc_rec.request_id = FND_API.g_miss_num THEN
6042: x_complete_rec.request_id := NULL;
6043: END IF;
6044: IF p_settlement_doc_rec.request_id IS NULL THEN
6045: x_complete_rec.request_id := l_settlement_doc_rec.request_id;
6045: x_complete_rec.request_id := l_settlement_doc_rec.request_id;
6046: END IF;
6047:
6048: -- program_application_id
6049: IF p_settlement_doc_rec.program_application_id = FND_API.g_miss_num THEN
6050: x_complete_rec.program_application_id := NULL;
6051: END IF;
6052: IF p_settlement_doc_rec.program_application_id IS NULL THEN
6053: x_complete_rec.program_application_id := l_settlement_doc_rec.program_application_id;
6053: x_complete_rec.program_application_id := l_settlement_doc_rec.program_application_id;
6054: END IF;
6055:
6056: -- program_update_date
6057: IF p_settlement_doc_rec.program_update_date = FND_API.g_miss_date THEN
6058: x_complete_rec.program_update_date := NULL;
6059: END IF;
6060: IF p_settlement_doc_rec.program_update_date IS NULL THEN
6061: x_complete_rec.program_update_date := l_settlement_doc_rec.program_update_date;
6061: x_complete_rec.program_update_date := l_settlement_doc_rec.program_update_date;
6062: END IF;
6063:
6064: -- program_id
6065: IF p_settlement_doc_rec.program_id = FND_API.g_miss_num THEN
6066: x_complete_rec.program_id := NULL;
6067: END IF;
6068: IF p_settlement_doc_rec.program_id IS NULL THEN
6069: x_complete_rec.program_id := l_settlement_doc_rec.program_id;
6069: x_complete_rec.program_id := l_settlement_doc_rec.program_id;
6070: END IF;
6071:
6072: -- created_from
6073: IF p_settlement_doc_rec.created_from = FND_API.g_miss_char THEN
6074: x_complete_rec.created_from := NULL;
6075: END IF;
6076: IF p_settlement_doc_rec.created_from IS NULL THEN
6077: x_complete_rec.created_from := l_settlement_doc_rec.created_from;
6077: x_complete_rec.created_from := l_settlement_doc_rec.created_from;
6078: END IF;
6079:
6080: -- claim_id
6081: IF p_settlement_doc_rec.claim_id = FND_API.g_miss_num THEN
6082: x_complete_rec.claim_id := NULL;
6083: END IF;
6084: IF p_settlement_doc_rec.claim_id IS NULL THEN
6085: x_complete_rec.claim_id := l_settlement_doc_rec.claim_id;
6085: x_complete_rec.claim_id := l_settlement_doc_rec.claim_id;
6086: END IF;
6087:
6088: -- claim_line_id
6089: IF p_settlement_doc_rec.claim_line_id = FND_API.g_miss_num THEN
6090: x_complete_rec.claim_line_id := NULL;
6091: END IF;
6092: IF p_settlement_doc_rec.claim_line_id IS NULL THEN
6093: x_complete_rec.claim_line_id := l_settlement_doc_rec.claim_line_id;
6093: x_complete_rec.claim_line_id := l_settlement_doc_rec.claim_line_id;
6094: END IF;
6095:
6096: -- payment_method
6097: IF p_settlement_doc_rec.payment_method = FND_API.g_miss_char THEN
6098: x_complete_rec.payment_method := NULL;
6099: END IF;
6100: IF p_settlement_doc_rec.payment_method IS NULL THEN
6101: x_complete_rec.payment_method := l_settlement_doc_rec.payment_method;
6101: x_complete_rec.payment_method := l_settlement_doc_rec.payment_method;
6102: END IF;
6103:
6104: -- settlement_id
6105: IF p_settlement_doc_rec.settlement_id = FND_API.g_miss_num THEN
6106: x_complete_rec.settlement_id := NULL;
6107: END IF;
6108: IF p_settlement_doc_rec.settlement_id IS NULL THEN
6109: x_complete_rec.settlement_id := l_settlement_doc_rec.settlement_id;
6109: x_complete_rec.settlement_id := l_settlement_doc_rec.settlement_id;
6110: END IF;
6111:
6112: -- settlement_type
6113: IF p_settlement_doc_rec.settlement_type = FND_API.g_miss_char THEN
6114: x_complete_rec.settlement_type := NULL;
6115: END IF;
6116: IF p_settlement_doc_rec.settlement_type IS NULL THEN
6117: x_complete_rec.settlement_type := l_settlement_doc_rec.settlement_type;
6117: x_complete_rec.settlement_type := l_settlement_doc_rec.settlement_type;
6118: END IF;
6119:
6120: -- settlement_type_id
6121: IF p_settlement_doc_rec.settlement_type_id = FND_API.g_miss_num THEN
6122: x_complete_rec.settlement_type_id := NULL;
6123: END IF;
6124: IF p_settlement_doc_rec.settlement_type_id IS NULL THEN
6125: x_complete_rec.settlement_type_id := l_settlement_doc_rec.settlement_type_id;
6125: x_complete_rec.settlement_type_id := l_settlement_doc_rec.settlement_type_id;
6126: END IF;
6127:
6128: -- settlement_number
6129: IF p_settlement_doc_rec.settlement_number = FND_API.g_miss_char THEN
6130: x_complete_rec.settlement_number := NULL;
6131: END IF;
6132: IF p_settlement_doc_rec.settlement_number IS NULL THEN
6133: x_complete_rec.settlement_number := l_settlement_doc_rec.settlement_number;
6133: x_complete_rec.settlement_number := l_settlement_doc_rec.settlement_number;
6134: END IF;
6135:
6136: -- settlement_date
6137: IF p_settlement_doc_rec.settlement_date = FND_API.g_miss_date THEN
6138: x_complete_rec.settlement_date := NULL;
6139: END IF;
6140: IF p_settlement_doc_rec.settlement_date IS NULL THEN
6141: x_complete_rec.settlement_date := l_settlement_doc_rec.settlement_date;
6141: x_complete_rec.settlement_date := l_settlement_doc_rec.settlement_date;
6142: END IF;
6143:
6144: -- settlement_amount
6145: IF p_settlement_doc_rec.settlement_amount = FND_API.g_miss_num THEN
6146: x_complete_rec.settlement_amount := NULL;
6147: END IF;
6148: IF p_settlement_doc_rec.settlement_amount IS NULL THEN
6149: x_complete_rec.settlement_amount := l_settlement_doc_rec.settlement_amount;
6149: x_complete_rec.settlement_amount := l_settlement_doc_rec.settlement_amount;
6150: END IF;
6151:
6152: -- status_code
6153: IF p_settlement_doc_rec.status_code = FND_API.g_miss_char THEN
6154: x_complete_rec.status_code := NULL;
6155: END IF;
6156: IF p_settlement_doc_rec.status_code IS NULL THEN
6157: x_complete_rec.status_code := l_settlement_doc_rec.status_code;
6157: x_complete_rec.status_code := l_settlement_doc_rec.status_code;
6158: END IF;
6159:
6160: -- attribute_category
6161: IF p_settlement_doc_rec.attribute_category = FND_API.g_miss_char THEN
6162: x_complete_rec.attribute_category := NULL;
6163: END IF;
6164: IF p_settlement_doc_rec.attribute_category IS NULL THEN
6165: x_complete_rec.attribute_category := l_settlement_doc_rec.attribute_category;
6165: x_complete_rec.attribute_category := l_settlement_doc_rec.attribute_category;
6166: END IF;
6167:
6168: -- attribute1
6169: IF p_settlement_doc_rec.attribute1 = FND_API.g_miss_char THEN
6170: x_complete_rec.attribute1 := NULL;
6171: END IF;
6172: IF p_settlement_doc_rec.attribute1 IS NULL THEN
6173: x_complete_rec.attribute1 := l_settlement_doc_rec.attribute1;
6173: x_complete_rec.attribute1 := l_settlement_doc_rec.attribute1;
6174: END IF;
6175:
6176: -- attribute2
6177: IF p_settlement_doc_rec.attribute2 = FND_API.g_miss_char THEN
6178: x_complete_rec.attribute2 := NULL;
6179: END IF;
6180: IF p_settlement_doc_rec.attribute2 IS NULL THEN
6181: x_complete_rec.attribute2 := l_settlement_doc_rec.attribute2;
6181: x_complete_rec.attribute2 := l_settlement_doc_rec.attribute2;
6182: END IF;
6183:
6184: -- attribute3
6185: IF p_settlement_doc_rec.attribute3 = FND_API.g_miss_char THEN
6186: x_complete_rec.attribute3 := NULL;
6187: END IF;
6188: IF p_settlement_doc_rec.attribute3 IS NULL THEN
6189: x_complete_rec.attribute3 := l_settlement_doc_rec.attribute3;
6189: x_complete_rec.attribute3 := l_settlement_doc_rec.attribute3;
6190: END IF;
6191:
6192: -- attribute4
6193: IF p_settlement_doc_rec.attribute4 = FND_API.g_miss_char THEN
6194: x_complete_rec.attribute4 := NULL;
6195: END IF;
6196: IF p_settlement_doc_rec.attribute4 IS NULL THEN
6197: x_complete_rec.attribute4 := l_settlement_doc_rec.attribute4;
6197: x_complete_rec.attribute4 := l_settlement_doc_rec.attribute4;
6198: END IF;
6199:
6200: -- attribute5
6201: IF p_settlement_doc_rec.attribute5 = FND_API.g_miss_char THEN
6202: x_complete_rec.attribute5 := NULL;
6203: END IF;
6204: IF p_settlement_doc_rec.attribute5 IS NULL THEN
6205: x_complete_rec.attribute5 := l_settlement_doc_rec.attribute5;
6205: x_complete_rec.attribute5 := l_settlement_doc_rec.attribute5;
6206: END IF;
6207:
6208: -- attribute6
6209: IF p_settlement_doc_rec.attribute6 = FND_API.g_miss_char THEN
6210: x_complete_rec.attribute6 := NULL;
6211: END IF;
6212: IF p_settlement_doc_rec.attribute6 IS NULL THEN
6213: x_complete_rec.attribute6 := l_settlement_doc_rec.attribute6;
6213: x_complete_rec.attribute6 := l_settlement_doc_rec.attribute6;
6214: END IF;
6215:
6216: -- attribute7
6217: IF p_settlement_doc_rec.attribute7 = FND_API.g_miss_char THEN
6218: x_complete_rec.attribute7 := NULL;
6219: END IF;
6220: IF p_settlement_doc_rec.attribute7 IS NULL THEN
6221: x_complete_rec.attribute7 := l_settlement_doc_rec.attribute7;
6221: x_complete_rec.attribute7 := l_settlement_doc_rec.attribute7;
6222: END IF;
6223:
6224: -- attribute8
6225: IF p_settlement_doc_rec.attribute8 = FND_API.g_miss_char THEN
6226: x_complete_rec.attribute8 := NULL;
6227: END IF;
6228: IF p_settlement_doc_rec.attribute8 IS NULL THEN
6229: x_complete_rec.attribute8 := l_settlement_doc_rec.attribute8;
6229: x_complete_rec.attribute8 := l_settlement_doc_rec.attribute8;
6230: END IF;
6231:
6232: -- attribute9
6233: IF p_settlement_doc_rec.attribute9 = FND_API.g_miss_char THEN
6234: x_complete_rec.attribute9 := NULL;
6235: END IF;
6236: IF p_settlement_doc_rec.attribute9 IS NULL THEN
6237: x_complete_rec.attribute9 := l_settlement_doc_rec.attribute9;
6237: x_complete_rec.attribute9 := l_settlement_doc_rec.attribute9;
6238: END IF;
6239:
6240: -- attribute10
6241: IF p_settlement_doc_rec.attribute10 = FND_API.g_miss_char THEN
6242: x_complete_rec.attribute10 := NULL;
6243: END IF;
6244: IF p_settlement_doc_rec.attribute10 IS NULL THEN
6245: x_complete_rec.attribute10 := l_settlement_doc_rec.attribute10;
6245: x_complete_rec.attribute10 := l_settlement_doc_rec.attribute10;
6246: END IF;
6247:
6248: -- attribute11
6249: IF p_settlement_doc_rec.attribute11 = FND_API.g_miss_char THEN
6250: x_complete_rec.attribute11 := NULL;
6251: END IF;
6252: IF p_settlement_doc_rec.attribute11 IS NULL THEN
6253: x_complete_rec.attribute11 := l_settlement_doc_rec.attribute11;
6253: x_complete_rec.attribute11 := l_settlement_doc_rec.attribute11;
6254: END IF;
6255:
6256: -- attribute12
6257: IF p_settlement_doc_rec.attribute12 = FND_API.g_miss_char THEN
6258: x_complete_rec.attribute12 := NULL;
6259: END IF;
6260: IF p_settlement_doc_rec.attribute12 IS NULL THEN
6261: x_complete_rec.attribute12 := l_settlement_doc_rec.attribute12;
6261: x_complete_rec.attribute12 := l_settlement_doc_rec.attribute12;
6262: END IF;
6263:
6264: -- attribute13
6265: IF p_settlement_doc_rec.attribute13 = FND_API.g_miss_char THEN
6266: x_complete_rec.attribute13 := NULL;
6267: END IF;
6268: IF p_settlement_doc_rec.attribute13 IS NULL THEN
6269: x_complete_rec.attribute13 := l_settlement_doc_rec.attribute13;
6269: x_complete_rec.attribute13 := l_settlement_doc_rec.attribute13;
6270: END IF;
6271:
6272: -- attribute14
6273: IF p_settlement_doc_rec.attribute14 = FND_API.g_miss_char THEN
6274: x_complete_rec.attribute14 := NULL;
6275: END IF;
6276: IF p_settlement_doc_rec.attribute14 IS NULL THEN
6277: x_complete_rec.attribute14 := l_settlement_doc_rec.attribute14;
6277: x_complete_rec.attribute14 := l_settlement_doc_rec.attribute14;
6278: END IF;
6279:
6280: -- attribute15
6281: IF p_settlement_doc_rec.attribute15 = FND_API.g_miss_char THEN
6282: x_complete_rec.attribute15 := NULL;
6283: END IF;
6284: IF p_settlement_doc_rec.attribute15 IS NULL THEN
6285: x_complete_rec.attribute15 := l_settlement_doc_rec.attribute15;
6285: x_complete_rec.attribute15 := l_settlement_doc_rec.attribute15;
6286: END IF;
6287:
6288: -- org_id
6289: IF p_settlement_doc_rec.org_id = FND_API.g_miss_num THEN
6290: x_complete_rec.org_id := NULL;
6291: END IF;
6292: IF p_settlement_doc_rec.org_id IS NULL THEN
6293: x_complete_rec.org_id := l_settlement_doc_rec.org_id;
6294: END IF;
6295:
6296:
6297: -- payment_reference_id
6298: IF p_settlement_doc_rec.payment_reference_id = FND_API.g_miss_num THEN
6299: x_complete_rec.payment_reference_id := NULL;
6300: END IF;
6301: IF p_settlement_doc_rec.payment_reference_id IS NULL THEN
6302: x_complete_rec.payment_reference_id := l_settlement_doc_rec.payment_reference_id;
6302: x_complete_rec.payment_reference_id := l_settlement_doc_rec.payment_reference_id;
6303: END IF;
6304:
6305: -- payment_reference_number
6306: IF p_settlement_doc_rec.payment_reference_number = FND_API.g_miss_char THEN
6307: x_complete_rec.payment_reference_number := NULL;
6308: END IF;
6309: IF p_settlement_doc_rec.payment_reference_number IS NULL THEN
6310: x_complete_rec.payment_reference_number := l_settlement_doc_rec.payment_reference_number;
6310: x_complete_rec.payment_reference_number := l_settlement_doc_rec.payment_reference_number;
6311: END IF;
6312:
6313: -- payment_status
6314: IF p_settlement_doc_rec.payment_status = FND_API.g_miss_char THEN
6315: x_complete_rec.payment_status := NULL;
6316: END IF;
6317: IF p_settlement_doc_rec.payment_status IS NULL THEN
6318: x_complete_rec.payment_status := l_settlement_doc_rec.payment_status;
6318: x_complete_rec.payment_status := l_settlement_doc_rec.payment_status;
6319: END IF;
6320:
6321: -- group_claim_id
6322: IF p_settlement_doc_rec.group_claim_id = FND_API.g_miss_num THEN
6323: x_complete_rec.group_claim_id := NULL;
6324: END IF;
6325: IF p_settlement_doc_rec.group_claim_id IS NULL THEN
6326: x_complete_rec.group_claim_id := l_settlement_doc_rec.group_claim_id;
6326: x_complete_rec.group_claim_id := l_settlement_doc_rec.group_claim_id;
6327: END IF;
6328:
6329: -- gl_date
6330: IF p_settlement_doc_rec.gl_date = FND_API.g_miss_date THEN
6331: x_complete_rec.gl_date := NULL;
6332: END IF;
6333: IF p_settlement_doc_rec.gl_date IS NULL THEN
6334: x_complete_rec.gl_date := l_settlement_doc_rec.gl_date;
6334: x_complete_rec.gl_date := l_settlement_doc_rec.gl_date;
6335: END IF;
6336:
6337: -- wo_rec_trx_id
6338: IF p_settlement_doc_rec.wo_rec_trx_id = FND_API.g_miss_num THEN
6339: x_complete_rec.wo_rec_trx_id := NULL;
6340: END IF;
6341: IF p_settlement_doc_rec.wo_rec_trx_id IS NULL THEN
6342: x_complete_rec.wo_rec_trx_id := l_settlement_doc_rec.wo_rec_trx_id;
6376: IF OZF_DEBUG_HIGH_ON THEN
6377: OZF_Utility_PVT.debug_message(l_full_name||': start');
6378: END IF;
6379:
6380: IF FND_API.to_boolean(p_init_msg_list) THEN
6381: FND_MSG_PUB.initialize;
6382: END IF;
6383:
6384: IF NOT FND_API.compatible_api_call(
6380: IF FND_API.to_boolean(p_init_msg_list) THEN
6381: FND_MSG_PUB.initialize;
6382: END IF;
6383:
6384: IF NOT FND_API.compatible_api_call(
6385: l_api_version,
6386: p_api_version_number,
6387: l_api_name,
6388: g_pkg_name
6386: p_api_version_number,
6387: l_api_name,
6388: g_pkg_name
6389: ) THEN
6390: RAISE FND_API.g_exc_unexpected_error;
6391: END IF;
6392:
6393: x_return_status := FND_API.g_ret_sts_success;
6394:
6389: ) THEN
6390: RAISE FND_API.g_exc_unexpected_error;
6391: END IF;
6392:
6393: x_return_status := FND_API.g_ret_sts_success;
6394:
6395: ---------------------- validate ------------------------
6396: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
6397: Check_Settle_Doc_Items(
6398: p_settlement_doc_rec => p_settlement_doc_rec,
6399: p_validation_mode => JTF_PLSQL_API.g_create,
6400: x_return_status => x_return_status
6401: );
6402: IF x_return_status = FND_API.g_ret_sts_error THEN
6403: RAISE FND_API.g_exc_error;
6404: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
6405: RAISE FND_API.g_exc_unexpected_error;
6406: END IF;
6399: p_validation_mode => JTF_PLSQL_API.g_create,
6400: x_return_status => x_return_status
6401: );
6402: IF x_return_status = FND_API.g_ret_sts_error THEN
6403: RAISE FND_API.g_exc_error;
6404: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
6405: RAISE FND_API.g_exc_unexpected_error;
6406: END IF;
6407: END IF;
6400: x_return_status => x_return_status
6401: );
6402: IF x_return_status = FND_API.g_ret_sts_error THEN
6403: RAISE FND_API.g_exc_error;
6404: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
6405: RAISE FND_API.g_exc_unexpected_error;
6406: END IF;
6407: END IF;
6408:
6401: );
6402: IF x_return_status = FND_API.g_ret_sts_error THEN
6403: RAISE FND_API.g_exc_error;
6404: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
6405: RAISE FND_API.g_exc_unexpected_error;
6406: END IF;
6407: END IF;
6408:
6409: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
6412: p_complete_rec => NULL,
6413: x_return_status => l_return_status
6414: );
6415:
6416: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6417: RAISE FND_API.g_exc_unexpected_error;
6418: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
6419: RAISE FND_API.g_exc_error;
6420: END IF;
6413: x_return_status => l_return_status
6414: );
6415:
6416: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6417: RAISE FND_API.g_exc_unexpected_error;
6418: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
6419: RAISE FND_API.g_exc_error;
6420: END IF;
6421: END IF;
6414: );
6415:
6416: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6417: RAISE FND_API.g_exc_unexpected_error;
6418: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
6419: RAISE FND_API.g_exc_error;
6420: END IF;
6421: END IF;
6422:
6415:
6416: IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6417: RAISE FND_API.g_exc_unexpected_error;
6418: ELSIF l_return_status = FND_API.g_ret_sts_error THEN
6419: RAISE FND_API.g_exc_error;
6420: END IF;
6421: END IF;
6422:
6423: -------------------- finish --------------------------
6421: END IF;
6422:
6423: -------------------- finish --------------------------
6424: FND_MSG_PUB.count_and_get(
6425: p_encoded => FND_API.g_false,
6426: p_count => x_msg_count,
6427: p_data => x_msg_data
6428: );
6429:
6431: OZF_Utility_PVT.debug_message(l_full_name ||': end');
6432: END IF;
6433:
6434: EXCEPTION
6435: WHEN FND_API.g_exc_error THEN
6436: x_return_status := FND_API.g_ret_sts_error;
6437: FND_MSG_PUB.count_and_get(
6438: p_encoded => FND_API.g_false,
6439: p_count => x_msg_count,
6432: END IF;
6433:
6434: EXCEPTION
6435: WHEN FND_API.g_exc_error THEN
6436: x_return_status := FND_API.g_ret_sts_error;
6437: FND_MSG_PUB.count_and_get(
6438: p_encoded => FND_API.g_false,
6439: p_count => x_msg_count,
6440: p_data => x_msg_data
6434: EXCEPTION
6435: WHEN FND_API.g_exc_error THEN
6436: x_return_status := FND_API.g_ret_sts_error;
6437: FND_MSG_PUB.count_and_get(
6438: p_encoded => FND_API.g_false,
6439: p_count => x_msg_count,
6440: p_data => x_msg_data
6441: );
6442:
6439: p_count => x_msg_count,
6440: p_data => x_msg_data
6441: );
6442:
6443: WHEN FND_API.g_exc_unexpected_error THEN
6444: x_return_status := FND_API.g_ret_sts_unexp_error ;
6445: FND_MSG_PUB.count_and_get(
6446: p_encoded => FND_API.g_false,
6447: p_count => x_msg_count,
6440: p_data => x_msg_data
6441: );
6442:
6443: WHEN FND_API.g_exc_unexpected_error THEN
6444: x_return_status := FND_API.g_ret_sts_unexp_error ;
6445: FND_MSG_PUB.count_and_get(
6446: p_encoded => FND_API.g_false,
6447: p_count => x_msg_count,
6448: p_data => x_msg_data
6442:
6443: WHEN FND_API.g_exc_unexpected_error THEN
6444: x_return_status := FND_API.g_ret_sts_unexp_error ;
6445: FND_MSG_PUB.count_and_get(
6446: p_encoded => FND_API.g_false,
6447: p_count => x_msg_count,
6448: p_data => x_msg_data
6449: );
6450:
6448: p_data => x_msg_data
6449: );
6450:
6451: WHEN OTHERS THEN
6452: x_return_status := FND_API.g_ret_sts_unexp_error;
6453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6454: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6455: END IF;
6456: FND_MSG_PUB.count_and_get(
6453: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6454: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6455: END IF;
6456: FND_MSG_PUB.count_and_get(
6457: p_encoded => FND_API.g_false,
6458: p_count => x_msg_count,
6459: p_data => x_msg_data
6460: );
6461:
6476: x_return_status OUT NOCOPY VARCHAR2
6477: )
6478: IS
6479: BEGIN
6480: x_return_status := FND_API.g_ret_sts_success;
6481:
6482: -- do other record level checkings
6483:
6484: END Check_Settle_Doc_Record;
6511:
6512: -- Standard begin of API savepoint
6513: SAVEPOINT Create_Settlement_Doc_Tbl;
6514: -- Standard call to check for call compatibility.
6515: IF NOT FND_API.Compatible_API_Call (
6516: l_api_version,
6517: p_api_version_number,
6518: l_api_name,
6519: G_PKG_NAME)
6517: p_api_version_number,
6518: l_api_name,
6519: G_PKG_NAME)
6520: THEN
6521: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6522: END IF;
6523:
6524: -- Debug Message
6525: IF OZF_DEBUG_LOW_ON THEN
6528: FND_MSG_PUB.Add;
6529: END IF;
6530:
6531: --Initialize message list if p_init_msg_list is TRUE.
6532: IF FND_API.To_Boolean (p_init_msg_list) THEN
6533: FND_MSG_PUB.initialize;
6534: END IF;
6535:
6536: -- Initialize API return status to sucess
6533: FND_MSG_PUB.initialize;
6534: END IF;
6535:
6536: -- Initialize API return status to sucess
6537: x_return_status := FND_API.G_RET_STS_SUCCESS;
6538: x_settlement_doc_id_tbl := JTF_NUMBER_TABLE();
6539:
6540: For i in 1..p_settlement_doc_tbl.count LOOP
6541:
6542: l_settlement_doc := p_settlement_doc_tbl(i);
6543:
6544: OZF_SETTLEMENT_DOC_PVT.Create_Settlement_Doc(
6545: p_api_version_number => 1.0,
6546: p_init_msg_list => FND_API.G_FALSE,
6547: p_commit => FND_API.G_FALSE,
6548: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6549: x_return_status => l_return_status,
6550: x_msg_count => l_msg_count,
6543:
6544: OZF_SETTLEMENT_DOC_PVT.Create_Settlement_Doc(
6545: p_api_version_number => 1.0,
6546: p_init_msg_list => FND_API.G_FALSE,
6547: p_commit => FND_API.G_FALSE,
6548: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6549: x_return_status => l_return_status,
6550: x_msg_count => l_msg_count,
6551: x_msg_data => l_msg_data,
6544: OZF_SETTLEMENT_DOC_PVT.Create_Settlement_Doc(
6545: p_api_version_number => 1.0,
6546: p_init_msg_list => FND_API.G_FALSE,
6547: p_commit => FND_API.G_FALSE,
6548: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6549: x_return_status => l_return_status,
6550: x_msg_count => l_msg_count,
6551: x_msg_data => l_msg_data,
6552: p_settlement_doc_rec => l_settlement_doc,
6553: x_settlement_doc_id => l_settlement_doc_id
6554: );
6555:
6556: -- Check return status from the above procedure call
6557: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6558: RAISE FND_API.G_EXC_ERROR;
6559: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6561: END IF;
6554: );
6555:
6556: -- Check return status from the above procedure call
6557: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6558: RAISE FND_API.G_EXC_ERROR;
6559: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6561: END IF;
6562:
6555:
6556: -- Check return status from the above procedure call
6557: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6558: RAISE FND_API.G_EXC_ERROR;
6559: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6561: END IF;
6562:
6563: x_settlement_doc_id_tbl.extend(i);
6556: -- Check return status from the above procedure call
6557: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6558: RAISE FND_API.G_EXC_ERROR;
6559: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6561: END IF;
6562:
6563: x_settlement_doc_id_tbl.extend(i);
6564: x_settlement_doc_id_tbl(i) := l_settlement_doc_id;
6573: FND_MSG_PUB.Add;
6574: END IF;
6575: --Standard call to get message count and if count=1, get the message
6576: FND_MSG_PUB.Count_And_Get (
6577: p_encoded => FND_API.G_FALSE,
6578: p_count => x_msg_count,
6579: p_data => x_msg_data
6580: );
6581: EXCEPTION
6578: p_count => x_msg_count,
6579: p_data => x_msg_data
6580: );
6581: EXCEPTION
6582: WHEN FND_API.G_EXC_ERROR THEN
6583: ROLLBACK TO Create_Settlement_Doc_Tbl;
6584: x_return_status := FND_API.G_RET_STS_ERROR;
6585: -- Standard call to get message count and if count=1, get the message
6586: FND_MSG_PUB.Count_And_Get (
6580: );
6581: EXCEPTION
6582: WHEN FND_API.G_EXC_ERROR THEN
6583: ROLLBACK TO Create_Settlement_Doc_Tbl;
6584: x_return_status := FND_API.G_RET_STS_ERROR;
6585: -- Standard call to get message count and if count=1, get the message
6586: FND_MSG_PUB.Count_And_Get (
6587: p_encoded => FND_API.G_FALSE,
6588: p_count => x_msg_count,
6583: ROLLBACK TO Create_Settlement_Doc_Tbl;
6584: x_return_status := FND_API.G_RET_STS_ERROR;
6585: -- Standard call to get message count and if count=1, get the message
6586: FND_MSG_PUB.Count_And_Get (
6587: p_encoded => FND_API.G_FALSE,
6588: p_count => x_msg_count,
6589: p_data => x_msg_data
6590: );
6591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6587: p_encoded => FND_API.G_FALSE,
6588: p_count => x_msg_count,
6589: p_data => x_msg_data
6590: );
6591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6592: ROLLBACK TO Create_Settlement_Doc_Tbl;
6593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6594: -- Standard call to get message count and if count=1, get the message
6595: FND_MSG_PUB.Count_And_Get (
6589: p_data => x_msg_data
6590: );
6591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6592: ROLLBACK TO Create_Settlement_Doc_Tbl;
6593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6594: -- Standard call to get message count and if count=1, get the message
6595: FND_MSG_PUB.Count_And_Get (
6596: p_encoded => FND_API.G_FALSE,
6597: p_count => x_msg_count,
6592: ROLLBACK TO Create_Settlement_Doc_Tbl;
6593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6594: -- Standard call to get message count and if count=1, get the message
6595: FND_MSG_PUB.Count_And_Get (
6596: p_encoded => FND_API.G_FALSE,
6597: p_count => x_msg_count,
6598: p_data => x_msg_data
6599: );
6600: WHEN OTHERS THEN
6598: p_data => x_msg_data
6599: );
6600: WHEN OTHERS THEN
6601: ROLLBACK TO Create_Settlement_Doc_Tbl;
6602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6603: -- Standard call to get message count and if count=1, get the message
6604: FND_MSG_PUB.Count_And_Get (
6605: p_encoded => FND_API.G_FALSE,
6606: p_count => x_msg_count,
6601: ROLLBACK TO Create_Settlement_Doc_Tbl;
6602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6603: -- Standard call to get message count and if count=1, get the message
6604: FND_MSG_PUB.Count_And_Get (
6605: p_encoded => FND_API.G_FALSE,
6606: p_count => x_msg_count,
6607: p_data => x_msg_data );
6608:
6609: END Create_Settlement_Doc_Tbl;
6633: BEGIN
6634: -- Standard begin of API savepoint
6635: SAVEPOINT Update_Settlement_Doc_Tbl;
6636: -- Standard call to check for call compatibility.
6637: IF NOT FND_API.Compatible_API_Call (
6638: l_api_version,
6639: p_api_version_number,
6640: l_api_name,
6641: G_PKG_NAME) THEN
6638: l_api_version,
6639: p_api_version_number,
6640: l_api_name,
6641: G_PKG_NAME) THEN
6642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6643: END IF;
6644:
6645: -- Debug Message
6646: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
6649: FND_MSG_PUB.Add;
6650: END IF;
6651:
6652: --Initialize message list if p_init_msg_list is TRUE.
6653: IF FND_API.To_Boolean (p_init_msg_list) THEN
6654: FND_MSG_PUB.initialize;
6655: END IF;
6656:
6657: -- Initialize API return status to sucess
6654: FND_MSG_PUB.initialize;
6655: END IF;
6656:
6657: -- Initialize API return status to sucess
6658: x_return_status := FND_API.G_RET_STS_SUCCESS;
6659:
6660: For i in 1..p_settlement_doc_tbl.count LOOP
6661:
6662: l_settlement_doc := p_settlement_doc_tbl(i);
6662: l_settlement_doc := p_settlement_doc_tbl(i);
6663:
6664: OZF_SETTLEMENT_DOC_PVT.Update_Settlement_Doc(
6665: p_api_version_number => l_api_version,
6666: p_init_msg_list => FND_API.G_FALSE,
6667: p_commit => FND_API.G_FALSE,
6668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6669: x_return_status => l_return_status,
6670: x_msg_count => l_msg_count,
6663:
6664: OZF_SETTLEMENT_DOC_PVT.Update_Settlement_Doc(
6665: p_api_version_number => l_api_version,
6666: p_init_msg_list => FND_API.G_FALSE,
6667: p_commit => FND_API.G_FALSE,
6668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6669: x_return_status => l_return_status,
6670: x_msg_count => l_msg_count,
6671: x_msg_data => l_msg_data,
6664: OZF_SETTLEMENT_DOC_PVT.Update_Settlement_Doc(
6665: p_api_version_number => l_api_version,
6666: p_init_msg_list => FND_API.G_FALSE,
6667: p_commit => FND_API.G_FALSE,
6668: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6669: x_return_status => l_return_status,
6670: x_msg_count => l_msg_count,
6671: x_msg_data => l_msg_data,
6672:
6673: p_settlement_doc_rec => l_settlement_doc,
6674: x_object_version_number => l_object_version_number
6675: );
6676:
6677: IF l_return_status = FND_API.g_ret_sts_error THEN
6678: RAISE FND_API.g_exc_error;
6679: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6680: RAISE FND_API.g_exc_unexpected_error;
6681: END IF;
6674: x_object_version_number => l_object_version_number
6675: );
6676:
6677: IF l_return_status = FND_API.g_ret_sts_error THEN
6678: RAISE FND_API.g_exc_error;
6679: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6680: RAISE FND_API.g_exc_unexpected_error;
6681: END IF;
6682: END LOOP;
6675: );
6676:
6677: IF l_return_status = FND_API.g_ret_sts_error THEN
6678: RAISE FND_API.g_exc_error;
6679: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6680: RAISE FND_API.g_exc_unexpected_error;
6681: END IF;
6682: END LOOP;
6683:
6676:
6677: IF l_return_status = FND_API.g_ret_sts_error THEN
6678: RAISE FND_API.g_exc_error;
6679: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
6680: RAISE FND_API.g_exc_unexpected_error;
6681: END IF;
6682: END LOOP;
6683:
6684: -- Debug Message
6688: FND_MSG_PUB.Add;
6689: END IF;
6690: --Standard call to get message count and if count=1, get the message
6691: FND_MSG_PUB.Count_And_Get (
6692: p_encoded => FND_API.G_FALSE,
6693: p_count => x_msg_count,
6694: p_data => x_msg_data
6695: );
6696: EXCEPTION
6693: p_count => x_msg_count,
6694: p_data => x_msg_data
6695: );
6696: EXCEPTION
6697: WHEN FND_API.G_EXC_ERROR THEN
6698: ROLLBACK TO Update_Settlement_Doc_Tbl;
6699: x_return_status := FND_API.G_RET_STS_ERROR;
6700: -- Standard call to get message count and if count=1, get the message
6701: FND_MSG_PUB.Count_And_Get (
6695: );
6696: EXCEPTION
6697: WHEN FND_API.G_EXC_ERROR THEN
6698: ROLLBACK TO Update_Settlement_Doc_Tbl;
6699: x_return_status := FND_API.G_RET_STS_ERROR;
6700: -- Standard call to get message count and if count=1, get the message
6701: FND_MSG_PUB.Count_And_Get (
6702: p_encoded => FND_API.G_FALSE,
6703: p_count => x_msg_count,
6698: ROLLBACK TO Update_Settlement_Doc_Tbl;
6699: x_return_status := FND_API.G_RET_STS_ERROR;
6700: -- Standard call to get message count and if count=1, get the message
6701: FND_MSG_PUB.Count_And_Get (
6702: p_encoded => FND_API.G_FALSE,
6703: p_count => x_msg_count,
6704: p_data => x_msg_data
6705: );
6706: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6702: p_encoded => FND_API.G_FALSE,
6703: p_count => x_msg_count,
6704: p_data => x_msg_data
6705: );
6706: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6707: ROLLBACK TO Update_Settlement_Doc_Tbl;
6708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6709: -- Standard call to get message count and if count=1, get the message
6710: FND_MSG_PUB.Count_And_Get (
6704: p_data => x_msg_data
6705: );
6706: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6707: ROLLBACK TO Update_Settlement_Doc_Tbl;
6708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6709: -- Standard call to get message count and if count=1, get the message
6710: FND_MSG_PUB.Count_And_Get (
6711: p_encoded => FND_API.G_FALSE,
6712: p_count => x_msg_count,
6707: ROLLBACK TO Update_Settlement_Doc_Tbl;
6708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6709: -- Standard call to get message count and if count=1, get the message
6710: FND_MSG_PUB.Count_And_Get (
6711: p_encoded => FND_API.G_FALSE,
6712: p_count => x_msg_count,
6713: p_data => x_msg_data
6714: );
6715: WHEN OTHERS THEN
6713: p_data => x_msg_data
6714: );
6715: WHEN OTHERS THEN
6716: ROLLBACK TO Update_Settlement_Doc_Tbl;
6717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6718: -- Standard call to get message count and if count=1, get the message
6719: FND_MSG_PUB.Count_And_Get (
6720: p_encoded => FND_API.G_FALSE,
6721: p_count => x_msg_count,
6716: ROLLBACK TO Update_Settlement_Doc_Tbl;
6717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6718: -- Standard call to get message count and if count=1, get the message
6719: FND_MSG_PUB.Count_And_Get (
6720: p_encoded => FND_API.G_FALSE,
6721: p_count => x_msg_count,
6722: p_data => x_msg_data
6723: );
6724: END Update_Settlement_Doc_Tbl;