3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_AR_PAYMENT_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(15) := 'ozfvcarpb.pls';
6:
7: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8:
9: /*=======================================================================*
10: | PROCEDURE
11: | Query_Claim
278: WHERE claim_id = p_claim_id ;
279: x_return_status := FND_API.g_ret_sts_success;
280: EXCEPTION
281: WHEN OTHERS THEN
282: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
283: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_QUERY_ERROR');
284: FND_MSG_PUB.add;
285: END IF;
286: x_return_status := FND_API.g_ret_sts_unexp_error;
280: EXCEPTION
281: WHEN OTHERS THEN
282: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
283: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_QUERY_ERROR');
284: FND_MSG_PUB.add;
285: END IF;
286: x_return_status := FND_API.g_ret_sts_unexp_error;
287: END Query_Claim;
288:
348: x_return_status := FND_API.g_ret_sts_unexp_error ;
349:
350: WHEN OTHERS THEN
351: x_return_status := FND_API.g_ret_sts_unexp_error ;
352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
353: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
354: END IF;
355:
356: END Close_Claim;
349:
350: WHEN OTHERS THEN
351: x_return_status := FND_API.g_ret_sts_unexp_error ;
352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
353: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
354: END IF;
355:
356: END Close_Claim;
357:
403: x_msg_count => x_msg_count,
404: x_msg_data => x_msg_data
405: );
406: IF l_return_status = FND_API.g_ret_sts_error THEN
407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
408: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_ERR');
409: FND_MSG_PUB.add;
410: END IF;
411: RAISE FND_API.g_exc_error;
405: );
406: IF l_return_status = FND_API.g_ret_sts_error THEN
407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
408: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_ERR');
409: FND_MSG_PUB.add;
410: END IF;
411: RAISE FND_API.g_exc_error;
412: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
413: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
409: FND_MSG_PUB.add;
410: END IF;
411: RAISE FND_API.g_exc_error;
412: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
413: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
414: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_UERR');
415: FND_MSG_PUB.add;
416: END IF;
417: RAISE FND_API.g_exc_unexpected_error;
411: RAISE FND_API.g_exc_error;
412: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
413: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
414: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_SPLIT_REAPP_UERR');
415: FND_MSG_PUB.add;
416: END IF;
417: RAISE FND_API.g_exc_unexpected_error;
418: END IF;
419:
428: x_return_status := FND_API.g_ret_sts_unexp_error ;
429:
430: WHEN OTHERS THEN
431: x_return_status := FND_API.g_ret_sts_unexp_error ;
432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
433: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
434: END IF;
435:
436: END Unapply_Claim_Investigation;
429:
430: WHEN OTHERS THEN
431: x_return_status := FND_API.g_ret_sts_unexp_error ;
432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
433: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
434: END IF;
435:
436: END Unapply_Claim_Investigation;
437:
582: p_secondary_application_ref_id => l_secondary_appl_ref_id,
583: p_customer_reference => l_customer_reference --11.5.10 enhancements. TM should pass.
584: );
585: IF l_return_status = FND_API.g_ret_sts_error THEN
586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
587: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_ERR');
588: FND_MSG_PUB.add;
589: END IF;
590: RAISE FND_API.g_exc_error;
584: );
585: IF l_return_status = FND_API.g_ret_sts_error THEN
586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
587: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_ERR');
588: FND_MSG_PUB.add;
589: END IF;
590: RAISE FND_API.g_exc_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
588: FND_MSG_PUB.add;
589: END IF;
590: RAISE FND_API.g_exc_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
593: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_UERR');
594: FND_MSG_PUB.add;
595: END IF;
596: RAISE FND_API.g_exc_unexpected_error;
590: RAISE FND_API.g_exc_error;
591: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
593: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_REC_APPACC_UERR');
594: FND_MSG_PUB.add;
595: END IF;
596: RAISE FND_API.g_exc_unexpected_error;
597: END IF;
598:
607: x_return_status := FND_API.g_ret_sts_unexp_error ;
608:
609: WHEN OTHERS THEN
610: x_return_status := FND_API.g_ret_sts_unexp_error ;
611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
612: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
613: END IF;
614:
615: END Apply_On_Account_Credit;
608:
609: WHEN OTHERS THEN
610: x_return_status := FND_API.g_ret_sts_unexp_error ;
611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
612: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
613: END IF;
614:
615: END Apply_On_Account_Credit;
616:
679: p_called_from => NULL,
680: p_cancel_claim_flag => 'N'
681: );
682: IF l_return_status = FND_API.g_ret_sts_error THEN
683: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
684: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_ERR');
685: FND_MSG_PUB.add;
686: END IF;
687: RAISE FND_API.g_exc_error;
681: );
682: IF l_return_status = FND_API.g_ret_sts_error THEN
683: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
684: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_ERR');
685: FND_MSG_PUB.add;
686: END IF;
687: RAISE FND_API.g_exc_error;
688: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
689: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
685: FND_MSG_PUB.add;
686: END IF;
687: RAISE FND_API.g_exc_error;
688: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
689: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
690: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_UERR');
691: FND_MSG_PUB.add;
692: END IF;
693: RAISE FND_API.g_exc_unexpected_error;
687: RAISE FND_API.g_exc_error;
688: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
689: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
690: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_UNAPP_UERR');
691: FND_MSG_PUB.add;
692: END IF;
693: RAISE FND_API.g_exc_unexpected_error;
694: END IF;
695:
704: x_return_status := FND_API.g_ret_sts_unexp_error ;
705:
706: WHEN OTHERS THEN
707: x_return_status := FND_API.g_ret_sts_unexp_error ;
708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
709: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
710: END IF;
711:
712: END Unapply_from_Receipt;
705:
706: WHEN OTHERS THEN
707: x_return_status := FND_API.g_ret_sts_unexp_error ;
708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
709: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
710: END IF;
711:
712: END Unapply_from_Receipt;
713:
834: FETCH csr_trx_balance INTO l_balance_amount;
835: CLOSE csr_trx_balance;
836:
837: IF ABS(p_new_applied_amount) > l_balance_amount THEN
838: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
839: FND_MESSAGE.set_name('OZF', 'OZF_SETL_TRX_BAL_ERR');
840: FND_MESSAGE.set_token('APPLY_AMT', p_new_applied_amount);
841: FND_MSG_PUB.add;
842: END IF;
837: IF ABS(p_new_applied_amount) > l_balance_amount THEN
838: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
839: FND_MESSAGE.set_name('OZF', 'OZF_SETL_TRX_BAL_ERR');
840: FND_MESSAGE.set_token('APPLY_AMT', p_new_applied_amount);
841: FND_MSG_PUB.add;
842: END IF;
843: RAISE FND_API.G_EXC_ERROR;
844: END IF;
845:
983: p_customer_reference => p_customer_reference,
984: p_called_from => 'OZFAPI' --Fix for bug 13560662
985: );
986: IF l_return_status = FND_API.g_ret_sts_error THEN
987: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
988: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_ERR');
989: FND_MSG_PUB.add;
990: END IF;
991: RAISE FND_API.g_exc_error;
985: );
986: IF l_return_status = FND_API.g_ret_sts_error THEN
987: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
988: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_ERR');
989: FND_MSG_PUB.add;
990: END IF;
991: RAISE FND_API.g_exc_error;
992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
993: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
989: FND_MSG_PUB.add;
990: END IF;
991: RAISE FND_API.g_exc_error;
992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
993: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
994: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_UERR');
995: FND_MSG_PUB.add;
996: END IF;
997: RAISE FND_API.g_exc_unexpected_error;
991: RAISE FND_API.g_exc_error;
992: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
993: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
994: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_REC_APP_UERR');
995: FND_MSG_PUB.add;
996: END IF;
997: RAISE FND_API.g_exc_unexpected_error;
998: END IF;
999:
1008: x_return_status := FND_API.g_ret_sts_unexp_error ;
1009:
1010: WHEN OTHERS THEN
1011: x_return_status := FND_API.g_ret_sts_unexp_error ;
1012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1013: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1014: END IF;
1015:
1016: END Apply_on_Receipt;
1009:
1010: WHEN OTHERS THEN
1011: x_return_status := FND_API.g_ret_sts_unexp_error ;
1012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1013: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1014: END IF;
1015:
1016: END Apply_on_Receipt;
1017:
1071: x_msg_count => x_msg_count,
1072: x_msg_data => x_msg_data
1073: );
1074: IF l_return_status = FND_API.g_ret_sts_error THEN
1075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1076: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_ERR');
1077: FND_MSG_PUB.add;
1078: END IF;
1079: RAISE FND_API.g_exc_error;
1073: );
1074: IF l_return_status = FND_API.g_ret_sts_error THEN
1075: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1076: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_ERR');
1077: FND_MSG_PUB.add;
1078: END IF;
1079: RAISE FND_API.g_exc_error;
1080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1077: FND_MSG_PUB.add;
1078: END IF;
1079: RAISE FND_API.g_exc_error;
1080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1082: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_UERR');
1083: FND_MSG_PUB.add;
1084: END IF;
1085: RAISE FND_API.g_exc_unexpected_error;
1079: RAISE FND_API.g_exc_error;
1080: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1082: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_UPD_DISPUTE_UERR');
1083: FND_MSG_PUB.add;
1084: END IF;
1085: RAISE FND_API.g_exc_unexpected_error;
1086: END IF;
1087:
1096: x_return_status := FND_API.g_ret_sts_unexp_error ;
1097:
1098: WHEN OTHERS THEN
1099: x_return_status := FND_API.g_ret_sts_unexp_error ;
1100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1101: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1102: END IF;
1103:
1104: END Update_Dispute_Amount;
1097:
1098: WHEN OTHERS THEN
1099: x_return_status := FND_API.g_ret_sts_unexp_error ;
1100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1101: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1102: END IF;
1103:
1104: END Update_Dispute_Amount;
1105:
1398: p_interface_attribute_rec => l_interface_attribute_rec, -- Bug#11741663 -> header attributes
1399: x_request_id => l_request_id
1400: );
1401: IF l_return_status = FND_API.g_ret_sts_error THEN
1402: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1403: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_ERR');
1404: FND_MSG_PUB.add;
1405: END IF;
1406: RAISE FND_API.g_exc_error;
1400: );
1401: IF l_return_status = FND_API.g_ret_sts_error THEN
1402: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1403: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_ERR');
1404: FND_MSG_PUB.add;
1405: END IF;
1406: RAISE FND_API.g_exc_error;
1407: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1404: FND_MSG_PUB.add;
1405: END IF;
1406: RAISE FND_API.g_exc_error;
1407: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_UERR');
1410: FND_MSG_PUB.add;
1411: END IF;
1412: RAISE FND_API.g_exc_unexpected_error;
1406: RAISE FND_API.g_exc_error;
1407: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1409: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CM_REQ_UERR');
1410: FND_MSG_PUB.add;
1411: END IF;
1412: RAISE FND_API.g_exc_unexpected_error;
1413: END IF;
1414:
1446: RAISE FND_API.g_exc_unexpected_error;
1447: END IF;
1448:
1449: IF x_cm_customer_trx_id IS NULL THEN
1450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1451: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CRE_ARCM_ERR');
1452: FND_MSG_PUB.add;
1453: END IF;
1454: RAISE FND_API.g_exc_error;
1448:
1449: IF x_cm_customer_trx_id IS NULL THEN
1450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1451: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CRE_ARCM_ERR');
1452: FND_MSG_PUB.add;
1453: END IF;
1454: RAISE FND_API.g_exc_error;
1455: -- [04/29/2002]: due to the rollback problem on ar credit memo api, instead of
1456: -- raising error to rollback, calling settlement workflow to proceed.
1464: EXCEPTION
1465: WHEN OTHERS THEN
1466: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1467: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1468: FND_MSG_PUB.Add;
1469: RAISE FND_API.g_exc_unexpected_error;
1470: END;
1471: END IF;
1472:
1507: x_return_status := FND_API.g_ret_sts_unexp_error ;
1508:
1509: WHEN OTHERS THEN
1510: x_return_status := FND_API.g_ret_sts_unexp_error ;
1511: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1512: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1513: END IF;
1514:
1515: END Create_AR_Credit_Memo;
1508:
1509: WHEN OTHERS THEN
1510: x_return_status := FND_API.g_ret_sts_unexp_error ;
1511: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1512: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1513: END IF;
1514:
1515: END Create_AR_Credit_Memo;
1516:
1625: CLOSE csr_sysparam_trx;
1626: END IF;
1627:
1628: IF l_cb_trx_type_id IS NULL THEN
1629: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1630: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CB_TRX_ID_REQ');
1631: FND_MSG_PUB.add;
1632: END IF;
1633: ELSE
1627:
1628: IF l_cb_trx_type_id IS NULL THEN
1629: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1630: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CB_TRX_ID_REQ');
1631: FND_MSG_PUB.add;
1632: END IF;
1633: ELSE
1634: l_chargeback_rec.cust_trx_type_id := l_cb_trx_type_id;
1635: END IF;
1763: x_msg_count => x_msg_count,
1764: x_msg_data => x_msg_data
1765: );
1766: IF l_return_status = FND_API.g_ret_sts_error THEN
1767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1768: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_ERR');
1769: FND_MSG_PUB.add;
1770: END IF;
1771: RAISE FND_API.g_exc_error;
1765: );
1766: IF l_return_status = FND_API.g_ret_sts_error THEN
1767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1768: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_ERR');
1769: FND_MSG_PUB.add;
1770: END IF;
1771: RAISE FND_API.g_exc_error;
1772: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1773: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1769: FND_MSG_PUB.add;
1770: END IF;
1771: RAISE FND_API.g_exc_error;
1772: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1773: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1774: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_UERR');
1775: FND_MSG_PUB.add;
1776: END IF;
1777: RAISE FND_API.g_exc_unexpected_error;
1771: RAISE FND_API.g_exc_error;
1772: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1773: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1774: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AR_CRE_CB_UERR');
1775: FND_MSG_PUB.add;
1776: END IF;
1777: RAISE FND_API.g_exc_unexpected_error;
1778: END IF;
1779:
1788: x_return_status := FND_API.g_ret_sts_unexp_error ;
1789:
1790: WHEN OTHERS THEN
1791: x_return_status := FND_API.g_ret_sts_unexp_error ;
1792: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1793: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1794: END IF;
1795:
1796: END Create_AR_Chargeback;
1789:
1790: WHEN OTHERS THEN
1791: x_return_status := FND_API.g_ret_sts_unexp_error ;
1792: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1793: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1794: END IF;
1795:
1796: END Create_AR_Chargeback;
1797:
2121: OZF_Utility_PVT.debug_message('After calling AR Adjustmnet API l_x_wo_adjust_id :' || l_x_wo_adjust_id);
2122: END IF;
2123:
2124: IF l_return_status = FND_API.g_ret_sts_error THEN
2125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2126: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_ERR');
2127: FND_MSG_PUB.add;
2128: END IF;
2129: RAISE FND_API.g_exc_error;
2123:
2124: IF l_return_status = FND_API.g_ret_sts_error THEN
2125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2126: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_ERR');
2127: FND_MSG_PUB.add;
2128: END IF;
2129: RAISE FND_API.g_exc_error;
2130: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2127: FND_MSG_PUB.add;
2128: END IF;
2129: RAISE FND_API.g_exc_error;
2130: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2132: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_UERR');
2133: FND_MSG_PUB.add;
2134: END IF;
2135: RAISE FND_API.g_exc_unexpected_error;
2129: RAISE FND_API.g_exc_error;
2130: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2131: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2132: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_ADJ_UERR');
2133: FND_MSG_PUB.add;
2134: END IF;
2135: RAISE FND_API.g_exc_unexpected_error;
2136: END IF;
2137:
2213: x_msg_count => x_msg_count,
2214: x_msg_data => x_msg_data
2215: );
2216: IF l_return_status = FND_API.g_ret_sts_error THEN
2217: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2218: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_ERR');
2219: FND_MSG_PUB.add;
2220: END IF;
2221: RAISE FND_API.g_exc_error;
2215: );
2216: IF l_return_status = FND_API.g_ret_sts_error THEN
2217: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2218: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_ERR');
2219: FND_MSG_PUB.add;
2220: END IF;
2221: RAISE FND_API.g_exc_error;
2222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2219: FND_MSG_PUB.add;
2220: END IF;
2221: RAISE FND_API.g_exc_error;
2222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2224: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_UERR');
2225: FND_MSG_PUB.add;
2226: END IF;
2227: RAISE FND_API.g_exc_unexpected_error;
2221: RAISE FND_API.g_exc_error;
2222: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2223: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2224: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_UPD_DISPUTE_UERR');
2225: FND_MSG_PUB.add;
2226: END IF;
2227: RAISE FND_API.g_exc_unexpected_error;
2228: END IF;
2229:
2274: x_msg_count => x_msg_count,
2275: x_msg_data => x_msg_data
2276: );
2277: IF l_return_status = FND_API.g_ret_sts_error THEN
2278: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2279: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_ERR');
2280: FND_MSG_PUB.add;
2281: END IF;
2282: RAISE FND_API.g_exc_error;
2276: );
2277: IF l_return_status = FND_API.g_ret_sts_error THEN
2278: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2279: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_ERR');
2280: FND_MSG_PUB.add;
2281: END IF;
2282: RAISE FND_API.g_exc_error;
2283: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2280: FND_MSG_PUB.add;
2281: END IF;
2282: RAISE FND_API.g_exc_error;
2283: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2285: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_UERR');
2286: FND_MSG_PUB.add;
2287: END IF;
2288: RAISE FND_API.g_exc_unexpected_error;
2282: RAISE FND_API.g_exc_error;
2283: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2284: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2285: FND_MESSAGE.set_name('AMS', 'AMS_SETL_AR_CRE_REC_WO_UERR');
2286: FND_MSG_PUB.add;
2287: END IF;
2288: RAISE FND_API.g_exc_unexpected_error;
2289: END IF;
2290:
2343: AND wo_rec_trx_id IS NULL;
2344:
2345: EXCEPTION
2346: WHEN OTHERS THEN
2347: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2348: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GRP_UPD_DEDU_ERR');
2349: FND_MSG_PUB.add;
2350: END IF;
2351:
2345: EXCEPTION
2346: WHEN OTHERS THEN
2347: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2348: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GRP_UPD_DEDU_ERR');
2349: FND_MSG_PUB.add;
2350: END IF;
2351:
2352: IF g_debug THEN
2353: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2351:
2352: IF g_debug THEN
2353: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2354: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2355: FND_MSG_PUB.Add;
2356: END IF;
2357: RAISE FND_API.g_exc_unexpected_error;
2358: END;
2359: END IF;
2370: x_return_status := FND_API.g_ret_sts_unexp_error ;
2371:
2372: WHEN OTHERS THEN
2373: x_return_status := FND_API.g_ret_sts_unexp_error ;
2374: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2375: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2376: END IF;
2377:
2378: END Create_AR_Write_Off;
2371:
2372: WHEN OTHERS THEN
2373: x_return_status := FND_API.g_ret_sts_unexp_error ;
2374: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2375: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2376: END IF;
2377:
2378: END Create_AR_Write_Off;
2379:
2422: EXCEPTION
2423: WHEN OTHERS THEN
2424: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2425: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2426: FND_MSG_PUB.Add;
2427: RAISE FND_API.g_exc_unexpected_error;
2428: END;
2429:
2430: IF g_debug THEN
2435: x_return_status := FND_API.g_ret_sts_unexp_error ;
2436:
2437: WHEN OTHERS THEN
2438: x_return_status := FND_API.g_ret_sts_unexp_error ;
2439: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2440: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2441: END IF;
2442:
2443: END Process_Settlement_WF;
2436:
2437: WHEN OTHERS THEN
2438: x_return_status := FND_API.g_ret_sts_unexp_error ;
2439: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2440: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2441: END IF;
2442:
2443: END Process_Settlement_WF;
2444:
2571:
2572:
2573: EXCEPTION
2574: WHEN OTHERS THEN
2575: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2576: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2577: END IF;
2578: x_return_status := FND_API.g_ret_sts_unexp_error;
2579: END Get_Inv_Credit_Details;
2572:
2573: EXCEPTION
2574: WHEN OTHERS THEN
2575: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2576: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2577: END IF;
2578: x_return_status := FND_API.g_ret_sts_unexp_error;
2579: END Get_Inv_Credit_Details;
2580:
3258: x_return_status := FND_API.g_ret_sts_unexp_error ;
3259:
3260: WHEN OTHERS THEN
3261: x_return_status := FND_API.g_ret_sts_unexp_error ;
3262: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3263: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3264: END IF;
3265:
3266: END Pay_by_Single_Invoice_Credit;
3259:
3260: WHEN OTHERS THEN
3261: x_return_status := FND_API.g_ret_sts_unexp_error ;
3262: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3263: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3264: END IF;
3265:
3266: END Pay_by_Single_Invoice_Credit;
3267:
3645: END IF;
3646: END IF;
3647:
3648: ELSE --p_deduction_type NOT IN ('SOURCE_DED', 'RECEIPT_DED', 'CLAIM')
3649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3650: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
3651: FND_MESSAGE.set_token('CLAIM_NUMBER', p_claim_rec.claim_number);
3652: FND_MSG_PUB.add;
3653: END IF;
3648: ELSE --p_deduction_type NOT IN ('SOURCE_DED', 'RECEIPT_DED', 'CLAIM')
3649: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3650: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
3651: FND_MESSAGE.set_token('CLAIM_NUMBER', p_claim_rec.claim_number);
3652: FND_MSG_PUB.add;
3653: END IF;
3654: RAISE FND_API.g_exc_error;
3655: END IF;
3656: EXCEPTION
3664:
3665: WHEN OTHERS THEN
3666: x_return_status := FND_API.g_ret_sts_unexp_error ;
3667: ROLLBACK TO Pay_by_Invoice_Credit;
3668: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3669: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3670: END IF;
3671:
3672: END Pay_By_Invoice_credit;
3665: WHEN OTHERS THEN
3666: x_return_status := FND_API.g_ret_sts_unexp_error ;
3667: ROLLBACK TO Pay_by_Invoice_Credit;
3668: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3669: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3670: END IF;
3671:
3672: END Pay_By_Invoice_credit;
3673:
4138: x_return_status := FND_API.g_ret_sts_unexp_error ;
4139:
4140: WHEN OTHERS THEN
4141: x_return_status := FND_API.g_ret_sts_unexp_error ;
4142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4143: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4144: END IF;
4145:
4146: END Pay_by_Credit_Memo;
4139:
4140: WHEN OTHERS THEN
4141: x_return_status := FND_API.g_ret_sts_unexp_error ;
4142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4143: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4144: END IF;
4145:
4146: END Pay_by_Credit_Memo;
4147:
4277: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4278: RAISE FND_API.g_exc_unexpected_error;
4279: END IF;
4280: ELSE
4281: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4282: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
4283: FND_MSG_PUB.add;
4284: END IF;
4285: RAISE FND_API.g_exc_error;
4279: END IF;
4280: ELSE
4281: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4282: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
4283: FND_MSG_PUB.add;
4284: END IF;
4285: RAISE FND_API.g_exc_error;
4286: END IF;
4287:
4296: x_return_status := FND_API.g_ret_sts_unexp_error ;
4297:
4298: WHEN OTHERS THEN
4299: x_return_status := FND_API.g_ret_sts_unexp_error ;
4300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4301: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4302: END IF;
4303:
4304: END Pay_by_On_Account_Credit;
4297:
4298: WHEN OTHERS THEN
4299: x_return_status := FND_API.g_ret_sts_unexp_error ;
4300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4301: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4302: END IF;
4303:
4304: END Pay_by_On_Account_Credit;
4305:
4402: END IF;
4403: END IF;
4404:
4405: ELSE
4406: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4407: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
4408: FND_MSG_PUB.add;
4409: END IF;
4410: END IF;
4404:
4405: ELSE
4406: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4407: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
4408: FND_MSG_PUB.add;
4409: END IF;
4410: END IF;
4411:
4412:
4421: x_return_status := FND_API.g_ret_sts_unexp_error ;
4422:
4423: WHEN OTHERS THEN
4424: x_return_status := FND_API.g_ret_sts_unexp_error ;
4425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4426: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4427: END IF;
4428:
4429: END Pay_by_Chargeback;
4422:
4423: WHEN OTHERS THEN
4424: x_return_status := FND_API.g_ret_sts_unexp_error ;
4425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4426: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4427: END IF;
4428:
4429: END Pay_by_Chargeback;
4430:
4523: x_return_status := FND_API.g_ret_sts_unexp_error ;
4524:
4525: WHEN OTHERS THEN
4526: x_return_status := FND_API.g_ret_sts_unexp_error ;
4527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4528: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4529: END IF;
4530:
4531: END Pay_by_Write_Off;
4524:
4525: WHEN OTHERS THEN
4526: x_return_status := FND_API.g_ret_sts_unexp_error ;
4527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4528: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4529: END IF;
4530:
4531: END Pay_by_Write_Off;
4532:
5117:
5118: END IF; -- end of dedecution type check
5119: END IF;
5120: ELSE
5121: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5122: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
5123: FND_MSG_PUB.add;
5124: END IF;
5125: RAISE FND_API.g_exc_error;
5119: END IF;
5120: ELSE
5121: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5122: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
5123: FND_MSG_PUB.add;
5124: END IF;
5125: RAISE FND_API.g_exc_error;
5126: END IF;
5127:
5165: x_return_status := FND_API.g_ret_sts_unexp_error ;
5166:
5167: WHEN OTHERS THEN
5168: x_return_status := FND_API.g_ret_sts_unexp_error ;
5169: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5170: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5171: END IF;
5172:
5173: END Pay_by_Debit_Memo;
5166:
5167: WHEN OTHERS THEN
5168: x_return_status := FND_API.g_ret_sts_unexp_error ;
5169: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5170: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5171: END IF;
5172:
5173: END Pay_by_Debit_Memo;
5174:
5218: EXCEPTION
5219: WHEN OTHERS THEN
5220: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5221: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
5222: FND_MSG_PUB.Add;
5223: RAISE FND_API.g_exc_unexpected_error;
5224: END;
5225: ELSE
5226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5222: FND_MSG_PUB.Add;
5223: RAISE FND_API.g_exc_unexpected_error;
5224: END;
5225: ELSE
5226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5227: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
5228: FND_MSG_PUB.add;
5229: END IF;
5230: END IF;
5224: END;
5225: ELSE
5226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5227: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
5228: FND_MSG_PUB.add;
5229: END IF;
5230: END IF;
5231:
5232: IF g_debug THEN
5240: x_return_status := FND_API.g_ret_sts_unexp_error ;
5241:
5242: WHEN OTHERS THEN
5243: x_return_status := FND_API.g_ret_sts_unexp_error ;
5244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5245: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5246: END IF;
5247:
5248: END Pay_by_Contra_Charge;
5241:
5242: WHEN OTHERS THEN
5243: x_return_status := FND_API.g_ret_sts_unexp_error ;
5244: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5245: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5246: END IF;
5247:
5248: END Pay_by_Contra_Charge;
5249:
5286: OZF_Utility_PVT.debug_message(l_full_name||': start');
5287: END IF;
5288:
5289: IF FND_API.to_boolean(p_init_msg_list) THEN
5290: FND_MSG_PUB.initialize;
5291: END IF;
5292:
5293: IF NOT FND_API.compatible_api_call(
5294: l_api_version,
5337: l_deduction_type := 'CLAIM';
5338: ELSIF l_claim_rec.claim_class = 'CHARGE' THEN
5339: l_deduction_type := 'CHARGE';
5340: ELSE
5341: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5342: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DED_TYPE_ERR');
5343: FND_MSG_PUB.add;
5344: END IF;
5345: END IF;
5339: l_deduction_type := 'CHARGE';
5340: ELSE
5341: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5342: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DED_TYPE_ERR');
5343: FND_MSG_PUB.add;
5344: END IF;
5345: END IF;
5346:
5347: --R12.1 Enhancement start :Close the claim contains the payment method as ACCOUNTING_ONLY
5518: RAISE FND_API.g_exc_unexpected_error;
5519: END IF;
5520:
5521: ELSE
5522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5523: FND_MESSAGE.set_name('OZF', 'OZF_DED_PAYMETHOD_ERR');
5524: FND_MESSAGE.set_token('PAYMENT_METHOD', l_claim_rec.payment_method);
5525: FND_MSG_PUB.add;
5526: END IF;
5521: ELSE
5522: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5523: FND_MESSAGE.set_name('OZF', 'OZF_DED_PAYMETHOD_ERR');
5524: FND_MESSAGE.set_token('PAYMENT_METHOD', l_claim_rec.payment_method);
5525: FND_MSG_PUB.add;
5526: END IF;
5527: RAISE FND_API.g_exc_error;
5528: END IF;
5529:
5529:
5530: END IF;
5531:
5532: ------------------------ finish ------------------------
5533: FND_MSG_PUB.count_and_get(
5534: p_encoded => FND_API.g_false,
5535: p_count => x_msg_count,
5536: p_data => x_msg_data
5537: );
5543: EXCEPTION
5544: WHEN FND_API.g_exc_error THEN
5545: ROLLBACK TO Create_AR_Payment;
5546: x_return_status := FND_API.g_ret_sts_error;
5547: FND_MSG_PUB.count_and_get (
5548: p_encoded => FND_API.g_false
5549: ,p_count => x_msg_count
5550: ,p_data => x_msg_data
5551: );
5552:
5553: WHEN FND_API.g_exc_unexpected_error THEN
5554: ROLLBACK TO Create_AR_Payment;
5555: x_return_status := FND_API.g_ret_sts_unexp_error ;
5556: FND_MSG_PUB.count_and_get (
5557: p_encoded => FND_API.g_false
5558: ,p_count => x_msg_count
5559: ,p_data => x_msg_data
5560: );
5561:
5562: WHEN OTHERS THEN
5563: ROLLBACK TO Create_AR_Payment;
5564: x_return_status := FND_API.g_ret_sts_unexp_error ;
5565: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5566: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5567: END IF;
5568: FND_MSG_PUB.count_and_get(
5569: p_encoded => FND_API.g_false
5562: WHEN OTHERS THEN
5563: ROLLBACK TO Create_AR_Payment;
5564: x_return_status := FND_API.g_ret_sts_unexp_error ;
5565: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5566: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5567: END IF;
5568: FND_MSG_PUB.count_and_get(
5569: p_encoded => FND_API.g_false
5570: ,p_count => x_msg_count
5564: x_return_status := FND_API.g_ret_sts_unexp_error ;
5565: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5566: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5567: END IF;
5568: FND_MSG_PUB.count_and_get(
5569: p_encoded => FND_API.g_false
5570: ,p_count => x_msg_count
5571: ,p_data => x_msg_data
5572: );
5646: x_return_status := FND_API.g_ret_sts_unexp_error ;
5647:
5648: WHEN OTHERS THEN
5649: x_return_status := FND_API.g_ret_sts_unexp_error ;
5650: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5651: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5652: END IF;
5653:
5654: END Pay_by_RMA_Inv_CM;
5647:
5648: WHEN OTHERS THEN
5649: x_return_status := FND_API.g_ret_sts_unexp_error ;
5650: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5651: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5652: END IF;
5653:
5654: END Pay_by_RMA_Inv_CM;
5655: