8: G_OVERPAYMENT_CLASS_NAME CONSTANT VARCHAR2(30) := 'OVERPAYMENT';
9: G_CHARGE_CLASS_NAME CONSTANT VARCHAR2(30) := 'CHARGE';
10: G_APPROVAL_TYPE CONSTANT VARCHAR2(30) := 'CLAIM';
11:
12: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
13: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
14:
15: /*=======================================================================*
16: | PROCEDURE
9: G_CHARGE_CLASS_NAME CONSTANT VARCHAR2(30) := 'CHARGE';
10: G_APPROVAL_TYPE CONSTANT VARCHAR2(30) := 'CLAIM';
11:
12: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
13: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
14:
15: /*=======================================================================*
16: | PROCEDURE
17: | Process_Settlement_WF
53: EXCEPTION
54: WHEN OTHERS THEN
55: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
56: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
57: FND_MSG_PUB.Add;
58: RAISE FND_API.g_exc_unexpected_error;
59: END;
60:
61: IF OZF_DEBUG_HIGH_ON THEN
66: x_return_status := FND_API.g_ret_sts_unexp_error ;
67:
68: WHEN OTHERS THEN
69: x_return_status := FND_API.g_ret_sts_unexp_error ;
70: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
71: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
72: END IF;
73:
74: END Process_Settlement_WF;
67:
68: WHEN OTHERS THEN
69: x_return_status := FND_API.g_ret_sts_unexp_error ;
70: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
71: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
72: END IF;
73:
74: END Process_Settlement_WF;
75:
108: FETCH csr_invoice_balance INTO l_invoice_balance_due,l_trx_number;
109: CLOSE csr_invoice_balance;
110:
111: IF p_claim_amount > l_invoice_balance_due THEN
112: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
113: FND_MESSAGE.set_name('OZF', 'OZF_SETL_INVOICE_BAL_ERR');
114: FND_MESSAGE.set_token('TRX_NUMBER', l_trx_number);
115: FND_MSG_PUB.add;
116: END IF;
111: IF p_claim_amount > l_invoice_balance_due THEN
112: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
113: FND_MESSAGE.set_name('OZF', 'OZF_SETL_INVOICE_BAL_ERR');
114: FND_MESSAGE.set_token('TRX_NUMBER', l_trx_number);
115: FND_MSG_PUB.add;
116: END IF;
117: RAISE FND_API.G_EXC_ERROR;
118: END IF;
119:
120: EXCEPTION
121: WHEN FND_API.G_EXC_ERROR THEN
122: x_return_status := FND_API.g_ret_sts_error;
123: WHEN OTHERS THEN
124: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
125: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CHK_TRANS_BAL_UERR');
126: FND_MSG_PUB.add;
127: END IF;
128: x_return_status := FND_API.g_ret_sts_unexp_error;
122: x_return_status := FND_API.g_ret_sts_error;
123: WHEN OTHERS THEN
124: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
125: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CHK_TRANS_BAL_UERR');
126: FND_MSG_PUB.add;
127: END IF;
128: x_return_status := FND_API.g_ret_sts_unexp_error;
129: END Check_Transaction_Balance;
130:
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200: WHEN OTHERS THEN
201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
202: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
203: END IF;
204: x_return_status := FND_API.g_ret_sts_unexp_error;
205:
198: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200: WHEN OTHERS THEN
201: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
202: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
203: END IF;
204: x_return_status := FND_API.g_ret_sts_unexp_error;
205:
206: END Reopen_Claim_for_Completion;
338: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: WHEN OTHERS THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
343: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
344: END IF;
345:
346: END Check_Create_Trd_Prfl;
339: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
340: WHEN OTHERS THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
343: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
344: END IF;
345:
346: END Check_Create_Trd_Prfl;
347:
436: x_return_status := FND_API.G_RET_STS_ERROR;
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439: WHEN OTHERS THEN
440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
441: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
442: END IF;
443: x_return_status := FND_API.g_ret_sts_unexp_error;
444:
437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439: WHEN OTHERS THEN
440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
441: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
442: END IF;
443: x_return_status := FND_API.g_ret_sts_unexp_error;
444:
445: END Remove_Utilization;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: WHEN OTHERS THEN
500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
501: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
502: END IF;
503: x_return_status := FND_API.g_ret_sts_unexp_error;
504:
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499: WHEN OTHERS THEN
500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
501: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
502: END IF;
503: x_return_status := FND_API.g_ret_sts_unexp_error;
504:
505: END Duplicate_Claim_for_Completion;
556: x_return_status := FND_API.G_RET_STS_ERROR;
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: WHEN OTHERS THEN
560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
561: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
562: END IF;
563: x_return_status := FND_API.g_ret_sts_unexp_error;
564:
557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: WHEN OTHERS THEN
560: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
561: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
562: END IF;
563: x_return_status := FND_API.g_ret_sts_unexp_error;
564:
565: END Cancel_Claim_for_Completion;
620: EXCEPTION
621: WHEN OTHERS THEN
622: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
623: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
624: FND_MSG_PUB.Add;
625: RAISE FND_API.g_exc_unexpected_error;
626: END;
627: END IF;
628: */
637: WHEN OTHERS THEN
638: IF OZF_DEBUG_LOW_ON THEN
639: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
640: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
641: FND_MSG_PUB.Add;
642: END IF;
643: x_return_status := FND_API.g_ret_sts_unexp_error;
644:
645: END Cancel_Claim_for_Settlement;
713: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: WHEN OTHERS THEN
716: x_return_status := FND_API.g_ret_sts_unexp_error;
717: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
718: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
719: END IF;
720:
721: END Reject_Claim_for_Completion;
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
715: WHEN OTHERS THEN
716: x_return_status := FND_API.g_ret_sts_unexp_error;
717: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
718: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
719: END IF;
720:
721: END Reject_Claim_for_Completion;
722:
776: EXCEPTION
777: WHEN OTHERS THEN
778: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
779: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
780: FND_MSG_PUB.Add;
781: RAISE FND_API.g_exc_unexpected_error;
782: END;
783: END IF;
784: */
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: WHEN OTHERS THEN
794: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
795: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
796: END IF;
797: x_return_status := FND_API.g_ret_sts_unexp_error;
798:
791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
793: WHEN OTHERS THEN
794: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
795: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
796: END IF;
797: x_return_status := FND_API.g_ret_sts_unexp_error;
798:
799: END Reject_Claim_for_Settlement;
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: WHEN OTHERS THEN
865: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
866: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
867: END IF;
868: x_return_status := FND_API.g_ret_sts_unexp_error;
869:
862: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
864: WHEN OTHERS THEN
865: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
866: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
867: END IF;
868: x_return_status := FND_API.g_ret_sts_unexp_error;
869:
870: END Complete_Claim_for_Completion;
921: x_return_status := FND_API.G_RET_STS_ERROR;
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: WHEN OTHERS THEN
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
927: END IF;
928: x_return_status := FND_API.g_ret_sts_unexp_error;
929:
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: WHEN OTHERS THEN
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
926: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
927: END IF;
928: x_return_status := FND_API.g_ret_sts_unexp_error;
929:
930: END Complete_Claim_for_Settlement;
995: CLOSE csr_claim_perf_appr_req;
996:
997: IF p_claim_rec.approved_flag = 'N' AND
998: l_perf_appr_req = 'N' THEN
999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1000: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PERF_APPR_REQ');
1001: FND_MSG_PUB.add;
1002: END IF;
1003: RAISE FND_API.g_exc_error;
997: IF p_claim_rec.approved_flag = 'N' AND
998: l_perf_appr_req = 'N' THEN
999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1000: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PERF_APPR_REQ');
1001: FND_MSG_PUB.add;
1002: END IF;
1003: RAISE FND_API.g_exc_error;
1004: END IF;
1005:
1063: /*
1064: -- ABS(l_claim_amount_remaining) should be >= 0 now
1065:
1066: IF ABS(l_claim_amount_remaining) THEN
1067: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1068: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AMT_ERR');
1069: FND_MSG_PUB.add;
1070: END IF;
1071: RAISE FND_API.g_exc_error;
1065:
1066: IF ABS(l_claim_amount_remaining) THEN
1067: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1068: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AMT_ERR');
1069: FND_MSG_PUB.add;
1070: END IF;
1071: RAISE FND_API.g_exc_error;
1072: END IF;
1073: */
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: WHEN OTHERS THEN
1088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1089: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1090: END IF;
1091: x_return_status := FND_API.g_ret_sts_unexp_error;
1092:
1085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: WHEN OTHERS THEN
1088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1089: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1090: END IF;
1091: x_return_status := FND_API.g_ret_sts_unexp_error;
1092:
1093: END Approve_Claim_for_Completion;
1207: x_return_status := FND_API.G_RET_STS_ERROR;
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210: WHEN OTHERS THEN
1211: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1212: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1213: END IF;
1214: x_return_status := FND_API.g_ret_sts_unexp_error;
1215:
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1210: WHEN OTHERS THEN
1211: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1212: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1213: END IF;
1214: x_return_status := FND_API.g_ret_sts_unexp_error;
1215:
1216: END Approve_Claim_for_Settlement;
1380: l_claim_amount_remaining := l_claim_amount_remaining * -1;
1381: END IF;
1382:
1383: IF (l_claim_amount_remaining < 0) THEN
1384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1385: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AMT_ERR');
1386: FND_MSG_PUB.add;
1387: END IF;
1388: RAISE FND_API.g_exc_error;
1382:
1383: IF (l_claim_amount_remaining < 0) THEN
1384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1385: FND_MESSAGE.set_name('OZF', 'OZF_SETL_AMT_ERR');
1386: FND_MSG_PUB.add;
1387: END IF;
1388: RAISE FND_API.g_exc_error;
1389: END IF;
1390: */
1515: | 5. Previouse Open Credit Memo/Debit Memo: balance checking
1516: *---------------------------------------------------------*/
1517: IF p_claim_rec.payment_method IN ('PREV_CREDIT_MEMO', 'PREV_DEBIT_MEMO') THEN
1518: IF p_claim_rec.payment_reference_id IS NULL THEN
1519: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1520: FND_MESSAGE.set_name('OZF', 'OZF_PAY_REFERENCE_REQD');
1521: FND_MSG_PUB.add;
1522: END IF;
1523: RAISE FND_API.G_EXC_ERROR;
1517: IF p_claim_rec.payment_method IN ('PREV_CREDIT_MEMO', 'PREV_DEBIT_MEMO') THEN
1518: IF p_claim_rec.payment_reference_id IS NULL THEN
1519: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1520: FND_MESSAGE.set_name('OZF', 'OZF_PAY_REFERENCE_REQD');
1521: FND_MSG_PUB.add;
1522: END IF;
1523: RAISE FND_API.G_EXC_ERROR;
1524: ELSE
1525: OPEN csr_trx_balance(p_claim_rec.payment_reference_id);
1527: CLOSE csr_trx_balance;
1528:
1529: IF x_claim_rec.currency_code = l_trx_currency AND
1530: ABS(p_claim_rec.amount_remaining) > ABS(l_trx_balance) THEN
1531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1532: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CM_DM_OP_BAL_ERR');
1533: FND_MSG_PUB.add;
1534: END IF;
1535: RAISE FND_API.G_EXC_ERROR;
1529: IF x_claim_rec.currency_code = l_trx_currency AND
1530: ABS(p_claim_rec.amount_remaining) > ABS(l_trx_balance) THEN
1531: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1532: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CM_DM_OP_BAL_ERR');
1533: FND_MSG_PUB.add;
1534: END IF;
1535: RAISE FND_API.G_EXC_ERROR;
1536: END IF;
1537: END IF;
1565: *---------------------------------------------------------*/
1566: x_claim_rec.payment_status := 'PENDING';
1567:
1568: ELSE
1569: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1570: FND_MESSAGE.set_name('OZF', 'OZF_SETL_ADJ_OVER_UTIZ_ERR');
1571: FND_MSG_PUB.add;
1572: END IF;
1573: IF OZF_DEBUG_LOW_ON THEN
1567:
1568: ELSE
1569: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1570: FND_MESSAGE.set_name('OZF', 'OZF_SETL_ADJ_OVER_UTIZ_ERR');
1571: FND_MSG_PUB.add;
1572: END IF;
1573: IF OZF_DEBUG_LOW_ON THEN
1574: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1575: FND_MESSAGE.Set_Token('TEXT', 'Status return from OZF_CLAIM_LINE_PVT.Adjust_Fund_Utilization = '||l_adj_util_result_status);
1572: END IF;
1573: IF OZF_DEBUG_LOW_ON THEN
1574: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1575: FND_MESSAGE.Set_Token('TEXT', 'Status return from OZF_CLAIM_LINE_PVT.Adjust_Fund_Utilization = '||l_adj_util_result_status);
1576: FND_MSG_PUB.Add;
1577: END IF;
1578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1579: END IF; -- end of if l_adj_util_result_status
1580: END IF; -- enf of if referral claim approval
1594: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596:
1597: WHEN OTHERS THEN
1598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1599: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1600: END IF;
1601: x_return_status := FND_API.g_ret_sts_unexp_error;
1602:
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596:
1597: WHEN OTHERS THEN
1598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1599: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1600: END IF;
1601: x_return_status := FND_API.g_ret_sts_unexp_error;
1602:
1603: END Create_Payment_for_Completion;
1739: EXCEPTION
1740: WHEN OTHERS THEN
1741: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1742: FND_MESSAGE.Set_Token('TEXT','Promo Err: ' || sqlerrm);
1743: FND_MSG_PUB.Add;
1744: RAISE FND_API.g_exc_unexpected_error;
1745: END;
1746: ELSE -- non promotional claims
1747: /*---------------------------------------------------------*
1995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1997:
1998: WHEN OTHERS THEN
1999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2000: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2001: END IF;
2002: x_return_status := FND_API.g_ret_sts_unexp_error;
2003:
1996: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1997:
1998: WHEN OTHERS THEN
1999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2000: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2001: END IF;
2002: x_return_status := FND_API.g_ret_sts_unexp_error;
2003:
2004: END Create_Payment_for_Settlement;
2090: x_return_status := FND_API.G_RET_STS_ERROR;
2091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2093: WHEN OTHERS THEN
2094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2095: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2096: END IF;
2097: x_return_status := FND_API.g_ret_sts_unexp_error;
2098:
2091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2092: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2093: WHEN OTHERS THEN
2094: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2095: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2096: END IF;
2097: x_return_status := FND_API.g_ret_sts_unexp_error;
2098:
2099: END Update_Claim_Remaining_Amount;
2125: WHERE lookup_type = 'OZF_CLAIM_STATUS'
2126: AND lookup_code = c_status_code;
2127:
2128: BEGIN
2129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2130: OPEN csr_status_meaning(p_prev_status);
2131: FETCH csr_status_meaning INTO l_prev_status_meaning;
2132: IF csr_status_meaning%NOTFOUND THEN
2133: CLOSE csr_status_meaning;
2147:
2148: FND_MESSAGE.set_name('OZF', 'OZF_SETL_STATUS_RULE_ERR');
2149: FND_MESSAGE.set_token('PREV_STATUS', l_prev_status_meaning);
2150: FND_MESSAGE.set_token('CURR_STATUS', l_curr_status_meaning);
2151: FND_MSG_PUB.add;
2152: END IF;
2153: EXCEPTION
2154: WHEN OTHERS THEN
2155: IF csr_status_meaning%ISOPEN THEN
2234:
2235: x_approval_require := l_approval_require;
2236: EXCEPTION
2237: WHEN OTHERS THEN
2238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2239: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CHK_APPR_UNEXPERR');
2240: FND_MSG_PUB.add;
2241: END IF;
2242: x_return_status := FND_API.g_ret_sts_unexp_error;
2236: EXCEPTION
2237: WHEN OTHERS THEN
2238: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2239: FND_MESSAGE.set_name('OZF', 'OZF_SETL_CHK_APPR_UNEXPERR');
2240: FND_MSG_PUB.add;
2241: END IF;
2242: x_return_status := FND_API.g_ret_sts_unexp_error;
2243: END Claim_Approval_Required;
2244:
2293: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2294: END IF;
2295:
2296: IF FND_API.to_boolean(p_init_msg_list) THEN
2297: FND_MSG_PUB.initialize;
2298: END IF;
2299:
2300: IF NOT FND_API.compatible_api_call(
2301: l_api_version,
2708: COMMIT;
2709: END IF;
2710: */
2711:
2712: FND_MSG_PUB.count_and_get(
2713: p_encoded => FND_API.g_false,
2714: p_count => x_msg_count,
2715: p_data => x_msg_data
2716: );
2722: EXCEPTION
2723: WHEN FND_API.g_exc_error THEN
2724: ROLLBACK TO Complete_Settlement;
2725: x_return_status := FND_API.g_ret_sts_error;
2726: FND_MSG_PUB.count_and_get (
2727: p_encoded => FND_API.g_false,
2728: p_count => x_msg_count,
2729: p_data => x_msg_data
2730: );
2730: );
2731: WHEN FND_API.g_exc_unexpected_error THEN
2732: ROLLBACK TO Complete_Settlement;
2733: x_return_status := FND_API.g_ret_sts_unexp_error ;
2734: FND_MSG_PUB.count_and_get (
2735: p_encoded => FND_API.g_false,
2736: p_count => x_msg_count,
2737: p_data => x_msg_data
2738: );
2738: );
2739: WHEN OTHERS THEN
2740: ROLLBACK TO Complete_Settlement;
2741: x_return_status := FND_API.g_ret_sts_unexp_error ;
2742: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2743: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2744: END IF;
2745: FND_MSG_PUB.count_and_get (
2746: p_encoded => FND_API.g_false,
2739: WHEN OTHERS THEN
2740: ROLLBACK TO Complete_Settlement;
2741: x_return_status := FND_API.g_ret_sts_unexp_error ;
2742: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2743: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2744: END IF;
2745: FND_MSG_PUB.count_and_get (
2746: p_encoded => FND_API.g_false,
2747: p_count => x_msg_count,
2741: x_return_status := FND_API.g_ret_sts_unexp_error ;
2742: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2743: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
2744: END IF;
2745: FND_MSG_PUB.count_and_get (
2746: p_encoded => FND_API.g_false,
2747: p_count => x_msg_count,
2748: p_data => x_msg_data
2749: );
2800: OZF_Utility_PVT.debug_message(l_full_name||' : start');
2801: END IF;
2802:
2803: IF FND_API.to_boolean(p_init_msg_list) THEN
2804: FND_MSG_PUB.initialize;
2805: END IF;
2806:
2807: IF NOT FND_API.compatible_api_call(
2808: l_api_version,
3014: COMMIT;
3015: END IF;
3016: */
3017:
3018: FND_MSG_PUB.count_and_get(
3019: p_encoded => FND_API.g_false,
3020: p_count => x_msg_count,
3021: p_data => x_msg_data
3022: );
3028: EXCEPTION
3029: WHEN FND_API.g_exc_error THEN
3030: ROLLBACK TO Settle_Claim;
3031: x_return_status := FND_API.g_ret_sts_error;
3032: FND_MSG_PUB.count_and_get (
3033: p_encoded => FND_API.g_false,
3034: p_count => x_msg_count,
3035: p_data => x_msg_data
3036: );
3036: );
3037: WHEN FND_API.g_exc_unexpected_error THEN
3038: ROLLBACK TO Settle_Claim;
3039: x_return_status := FND_API.g_ret_sts_unexp_error ;
3040: FND_MSG_PUB.count_and_get (
3041: p_encoded => FND_API.g_false,
3042: p_count => x_msg_count,
3043: p_data => x_msg_data
3044: );
3044: );
3045: WHEN OTHERS THEN
3046: ROLLBACK TO Settle_Claim;
3047: x_return_status := FND_API.g_ret_sts_unexp_error ;
3048: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3049: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3050: END IF;
3051: FND_MSG_PUB.count_and_get (
3052: p_encoded => FND_API.g_false,
3045: WHEN OTHERS THEN
3046: ROLLBACK TO Settle_Claim;
3047: x_return_status := FND_API.g_ret_sts_unexp_error ;
3048: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3049: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3050: END IF;
3051: FND_MSG_PUB.count_and_get (
3052: p_encoded => FND_API.g_false,
3053: p_count => x_msg_count,
3047: x_return_status := FND_API.g_ret_sts_unexp_error ;
3048: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3049: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3050: END IF;
3051: FND_MSG_PUB.count_and_get (
3052: p_encoded => FND_API.g_false,
3053: p_count => x_msg_count,
3054: p_data => x_msg_data
3055: );
3108: OZF_Utility_PVT.debug_message(l_full_name||' : event = '||p_event_name);
3109: END IF;
3110:
3111: IF FND_API.to_boolean(p_init_msg_list) THEN
3112: FND_MSG_PUB.initialize;
3113: END IF;
3114:
3115: IF NOT FND_API.compatible_api_call(
3116: l_api_version,
3160: IF FND_API.to_boolean(p_commit) THEN
3161: COMMIT;
3162: END IF;
3163:
3164: FND_MSG_PUB.count_and_get(
3165: p_encoded => FND_API.g_false,
3166: p_count => x_msg_count,
3167: p_data => x_msg_data
3168: );
3174: EXCEPTION
3175: WHEN FND_API.g_exc_error THEN
3176: ROLLBACK TO Raise_Business_Event;
3177: x_return_status := FND_API.g_ret_sts_error;
3178: FND_MSG_PUB.count_and_get (
3179: p_encoded => FND_API.g_false,
3180: p_count => x_msg_count,
3181: p_data => x_msg_data
3182: );
3182: );
3183: WHEN FND_API.g_exc_unexpected_error THEN
3184: ROLLBACK TO Raise_Business_Event;
3185: x_return_status := FND_API.g_ret_sts_unexp_error ;
3186: FND_MSG_PUB.count_and_get (
3187: p_encoded => FND_API.g_false,
3188: p_count => x_msg_count,
3189: p_data => x_msg_data
3190: );
3190: );
3191: WHEN OTHERS THEN
3192: ROLLBACK TO Raise_Business_Event;
3193: x_return_status := FND_API.g_ret_sts_unexp_error ;
3194: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3195: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3196: END IF;
3197: FND_MSG_PUB.count_and_get (
3198: p_encoded => FND_API.g_false,
3191: WHEN OTHERS THEN
3192: ROLLBACK TO Raise_Business_Event;
3193: x_return_status := FND_API.g_ret_sts_unexp_error ;
3194: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3195: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3196: END IF;
3197: FND_MSG_PUB.count_and_get (
3198: p_encoded => FND_API.g_false,
3199: p_count => x_msg_count,
3193: x_return_status := FND_API.g_ret_sts_unexp_error ;
3194: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3195: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
3196: END IF;
3197: FND_MSG_PUB.count_and_get (
3198: p_encoded => FND_API.g_false,
3199: p_count => x_msg_count,
3200: p_data => x_msg_data
3201: );