9:
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_MASS_SETTLEMENT_PVT';
11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvmstb.pls';
12:
13: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15:
16: /*=======================================================================*
17: | PROCEDURE
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_MASS_SETTLEMENT_PVT';
11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvmstb.pls';
12:
13: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15:
16: /*=======================================================================*
17: | PROCEDURE
18: | Close_Claim
40: WHERE group_claim_id = p_group_claim_id
41: AND claim_id = p_claim_id;
42: EXCEPTION
43: WHEN OTHERS THEN
44: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
45: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
46: FND_MSG_PUB.add;
47: END IF;
48: IF OZF_DEBUG_LOW_ON THEN
42: EXCEPTION
43: WHEN OTHERS THEN
44: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
45: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
46: FND_MSG_PUB.add;
47: END IF;
48: IF OZF_DEBUG_LOW_ON THEN
49: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
50: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
47: END IF;
48: IF OZF_DEBUG_LOW_ON THEN
49: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
50: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
51: FND_MSG_PUB.Add;
52: END IF;
53: x_return_status := FND_API.g_ret_sts_unexp_error;
54: END;
55:
538: x_return_status := FND_API.g_ret_sts_unexp_error ;
539:
540: WHEN OTHERS THEN
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
543: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
544: END IF;
545:
546: END Pay_by_Open_Receipt;
539:
540: WHEN OTHERS THEN
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
543: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
544: END IF;
545:
546: END Pay_by_Open_Receipt;
547:
928: x_return_status := FND_API.g_ret_sts_unexp_error ;
929:
930: WHEN OTHERS THEN
931: x_return_status := FND_API.g_ret_sts_unexp_error ;
932: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
933: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
934: END IF;
935:
936: END Pay_by_Credit_Memo;
929:
930: WHEN OTHERS THEN
931: x_return_status := FND_API.g_ret_sts_unexp_error ;
932: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
933: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
934: END IF;
935:
936: END Pay_by_Credit_Memo;
937:
1142:
1143: l_online_upd_ded_status := TRUE;
1144: END IF;
1145: ELSE
1146: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1147: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
1148: FND_MSG_PUB.add;
1149: END IF;
1150: END IF;
1144: END IF;
1145: ELSE
1146: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1147: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
1148: FND_MSG_PUB.add;
1149: END IF;
1150: END IF;
1151:
1152:
1191: x_return_status := FND_API.g_ret_sts_unexp_error ;
1192:
1193: WHEN OTHERS THEN
1194: x_return_status := FND_API.g_ret_sts_unexp_error ;
1195: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1196: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1197: END IF;
1198:
1199: END Pay_by_Debit_Memo;
1192:
1193: WHEN OTHERS THEN
1194: x_return_status := FND_API.g_ret_sts_unexp_error ;
1195: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1196: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1197: END IF;
1198:
1199: END Pay_by_Debit_Memo;
1200:
1308: END IF;
1309: END IF;
1310:
1311: ELSE
1312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1313: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
1314: FND_MSG_PUB.add;
1315: END IF;
1316: END IF;
1310:
1311: ELSE
1312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1313: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
1314: FND_MSG_PUB.add;
1315: END IF;
1316: END IF;
1317:
1318:
1327: x_return_status := FND_API.g_ret_sts_unexp_error ;
1328:
1329: WHEN OTHERS THEN
1330: x_return_status := FND_API.g_ret_sts_unexp_error ;
1331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1332: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1333: END IF;
1334:
1335: END Pay_by_Chargeback;
1328:
1329: WHEN OTHERS THEN
1330: x_return_status := FND_API.g_ret_sts_unexp_error ;
1331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1332: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1333: END IF;
1334:
1335: END Pay_by_Chargeback;
1336:
1400: )
1401: WHERE claim_id = p_claim_rec.claim_id;
1402: EXCEPTION
1403: WHEN OTHERS THEN
1404: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1405: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
1406: FND_MSG_PUB.add;
1407: END IF;
1408: IF OZF_DEBUG_LOW_ON THEN
1402: EXCEPTION
1403: WHEN OTHERS THEN
1404: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1405: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
1406: FND_MSG_PUB.add;
1407: END IF;
1408: IF OZF_DEBUG_LOW_ON THEN
1409: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1410: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1407: END IF;
1408: IF OZF_DEBUG_LOW_ON THEN
1409: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1410: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1411: FND_MSG_PUB.Add;
1412: END IF;
1413: RAISE FND_API.g_exc_unexpected_error;
1414: END;
1415:
1462: x_return_status := FND_API.g_ret_sts_unexp_error ;
1463:
1464: WHEN OTHERS THEN
1465: x_return_status := FND_API.g_ret_sts_unexp_error ;
1466: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1467: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1468: END IF;
1469:
1470: END Pay_by_Write_Off;
1463:
1464: WHEN OTHERS THEN
1465: x_return_status := FND_API.g_ret_sts_unexp_error ;
1466: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1467: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1468: END IF;
1469:
1470: END Pay_by_Write_Off;
1471:
1610: RAISE FND_API.g_exc_unexpected_error;
1611: END IF;
1612:
1613: ELSE
1614: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1615: FND_MESSAGE.set_name('AMS', 'AMS_AR_PAYMENT_NOTMATCH');
1616: FND_MSG_PUB.add;
1617: END IF;
1618: RAISE FND_API.g_exc_error;
1612:
1613: ELSE
1614: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1615: FND_MESSAGE.set_name('AMS', 'AMS_AR_PAYMENT_NOTMATCH');
1616: FND_MSG_PUB.add;
1617: END IF;
1618: RAISE FND_API.g_exc_error;
1619: END IF;
1620:
1629: x_return_status := FND_API.g_ret_sts_unexp_error ;
1630:
1631: WHEN OTHERS THEN
1632: x_return_status := FND_API.g_ret_sts_unexp_error ;
1633: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1634: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1635: END IF;
1636:
1637: END Pay_by_On_Account_Credit;
1630:
1631: WHEN OTHERS THEN
1632: x_return_status := FND_API.g_ret_sts_unexp_error ;
1633: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1634: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1635: END IF;
1636:
1637: END Pay_by_On_Account_Credit;
1638:
2154: EXCEPTION
2155: WHEN FND_API.g_exc_error THEN
2156: ROLLBACK TO Break_Mass_Settlement;
2157: x_return_status := FND_API.g_ret_sts_error;
2158: FND_MSG_PUB.count_and_get (
2159: p_encoded => FND_API.g_false
2160: ,p_count => x_msg_count
2161: ,p_data => x_msg_data
2162: );
2163:
2164: WHEN FND_API.g_exc_unexpected_error THEN
2165: ROLLBACK TO Break_Mass_Settlement;
2166: x_return_status := FND_API.g_ret_sts_unexp_error ;
2167: FND_MSG_PUB.count_and_get (
2168: p_encoded => FND_API.g_false
2169: ,p_count => x_msg_count
2170: ,p_data => x_msg_data
2171: );
2172:
2173: WHEN OTHERS THEN
2174: ROLLBACK TO Break_Mass_Settlement;
2175: x_return_status := FND_API.g_ret_sts_unexp_error ;
2176: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2177: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2178: END IF;
2179: FND_MSG_PUB.count_and_get(
2180: p_encoded => FND_API.g_false
2173: WHEN OTHERS THEN
2174: ROLLBACK TO Break_Mass_Settlement;
2175: x_return_status := FND_API.g_ret_sts_unexp_error ;
2176: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2177: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2178: END IF;
2179: FND_MSG_PUB.count_and_get(
2180: p_encoded => FND_API.g_false
2181: ,p_count => x_msg_count
2175: x_return_status := FND_API.g_ret_sts_unexp_error ;
2176: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2177: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2178: END IF;
2179: FND_MSG_PUB.count_and_get(
2180: p_encoded => FND_API.g_false
2181: ,p_count => x_msg_count
2182: ,p_data => x_msg_data
2183: );
2268:
2269: i := x_claim_tbl.FIRST;
2270: IF i IS NOT NULL THEN
2271: LOOP
2272: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2273: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2274: FND_MESSAGE.Set_Token('TEXT', x_claim_tbl(i).claim_number);
2275: FND_MSG_PUB.Add;
2276: END IF;
2271: LOOP
2272: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2273: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2274: FND_MESSAGE.Set_Token('TEXT', x_claim_tbl(i).claim_number);
2275: FND_MSG_PUB.Add;
2276: END IF;
2277:
2278: OZF_Claim_PVT.Update_Claim (
2279: p_api_version => l_api_version
2306: EXCEPTION
2307: WHEN FND_API.g_exc_error THEN
2308: ROLLBACK TO Complete_Mass_Settlement;
2309: x_return_status := FND_API.g_ret_sts_error;
2310: FND_MSG_PUB.count_and_get (
2311: p_encoded => FND_API.g_false
2312: ,p_count => x_msg_count
2313: ,p_data => x_msg_data
2314: );
2315:
2316: WHEN FND_API.g_exc_unexpected_error THEN
2317: ROLLBACK TO Complete_Mass_Settlement;
2318: x_return_status := FND_API.g_ret_sts_unexp_error ;
2319: FND_MSG_PUB.count_and_get (
2320: p_encoded => FND_API.g_false
2321: ,p_count => x_msg_count
2322: ,p_data => x_msg_data
2323: );
2324:
2325: WHEN OTHERS THEN
2326: ROLLBACK TO Complete_Mass_Settlement;
2327: x_return_status := FND_API.g_ret_sts_unexp_error ;
2328: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2329: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2330: END IF;
2331: FND_MSG_PUB.count_and_get(
2332: p_encoded => FND_API.g_false
2325: WHEN OTHERS THEN
2326: ROLLBACK TO Complete_Mass_Settlement;
2327: x_return_status := FND_API.g_ret_sts_unexp_error ;
2328: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2329: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2330: END IF;
2331: FND_MSG_PUB.count_and_get(
2332: p_encoded => FND_API.g_false
2333: ,p_count => x_msg_count
2327: x_return_status := FND_API.g_ret_sts_unexp_error ;
2328: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2329: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2330: END IF;
2331: FND_MSG_PUB.count_and_get(
2332: p_encoded => FND_API.g_false
2333: ,p_count => x_msg_count
2334: ,p_data => x_msg_data
2335: );
2531: EXCEPTION
2532: WHEN FND_API.g_exc_error THEN
2533: ROLLBACK TO Approve_Mass_Settlement;
2534: x_return_status := FND_API.g_ret_sts_error;
2535: FND_MSG_PUB.count_and_get (
2536: p_encoded => FND_API.g_false
2537: ,p_count => x_msg_count
2538: ,p_data => x_msg_data
2539: );
2540:
2541: WHEN FND_API.g_exc_unexpected_error THEN
2542: ROLLBACK TO Approve_Mass_Settlement;
2543: x_return_status := FND_API.g_ret_sts_unexp_error ;
2544: FND_MSG_PUB.count_and_get (
2545: p_encoded => FND_API.g_false
2546: ,p_count => x_msg_count
2547: ,p_data => x_msg_data
2548: );
2549:
2550: WHEN OTHERS THEN
2551: ROLLBACK TO Approve_Mass_Settlement;
2552: x_return_status := FND_API.g_ret_sts_unexp_error ;
2553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2554: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2555: END IF;
2556: FND_MSG_PUB.count_and_get(
2557: p_encoded => FND_API.g_false
2550: WHEN OTHERS THEN
2551: ROLLBACK TO Approve_Mass_Settlement;
2552: x_return_status := FND_API.g_ret_sts_unexp_error ;
2553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2554: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2555: END IF;
2556: FND_MSG_PUB.count_and_get(
2557: p_encoded => FND_API.g_false
2558: ,p_count => x_msg_count
2552: x_return_status := FND_API.g_ret_sts_unexp_error ;
2553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2554: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2555: END IF;
2556: FND_MSG_PUB.count_and_get(
2557: p_encoded => FND_API.g_false
2558: ,p_count => x_msg_count
2559: ,p_data => x_msg_data
2560: );
2630:
2631: EXCEPTION
2632: WHEN OTHERS THEN
2633: ROLLBACK TO Reject_Mass_Payment;
2634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2635: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
2636: FND_MSG_PUB.add;
2637: END IF;
2638: IF OZF_DEBUG_LOW_ON THEN
2632: WHEN OTHERS THEN
2633: ROLLBACK TO Reject_Mass_Payment;
2634: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2635: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
2636: FND_MSG_PUB.add;
2637: END IF;
2638: IF OZF_DEBUG_LOW_ON THEN
2639: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2640: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2637: END IF;
2638: IF OZF_DEBUG_LOW_ON THEN
2639: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2640: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2641: FND_MSG_PUB.Add;
2642: END IF;
2643: RAISE FND_API.g_exc_unexpected_error;
2644: END;
2645:
2649:
2650: EXCEPTION
2651: WHEN FND_API.g_exc_error THEN
2652: x_return_status := FND_API.g_ret_sts_error;
2653: FND_MSG_PUB.count_and_get (
2654: p_encoded => FND_API.g_false
2655: ,p_count => x_msg_count
2656: ,p_data => x_msg_data
2657: );
2657: );
2658:
2659: WHEN FND_API.g_exc_unexpected_error THEN
2660: x_return_status := FND_API.g_ret_sts_unexp_error ;
2661: FND_MSG_PUB.count_and_get (
2662: p_encoded => FND_API.g_false
2663: ,p_count => x_msg_count
2664: ,p_data => x_msg_data
2665: );
2665: );
2666:
2667: WHEN OTHERS THEN
2668: x_return_status := FND_API.g_ret_sts_unexp_error ;
2669: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2670: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2671: END IF;
2672: FND_MSG_PUB.count_and_get(
2673: p_encoded => FND_API.g_false
2666:
2667: WHEN OTHERS THEN
2668: x_return_status := FND_API.g_ret_sts_unexp_error ;
2669: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2670: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2671: END IF;
2672: FND_MSG_PUB.count_and_get(
2673: p_encoded => FND_API.g_false
2674: ,p_count => x_msg_count
2668: x_return_status := FND_API.g_ret_sts_unexp_error ;
2669: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2670: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2671: END IF;
2672: FND_MSG_PUB.count_and_get(
2673: p_encoded => FND_API.g_false
2674: ,p_count => x_msg_count
2675: ,p_data => x_msg_data
2676: );
2900: SET payment_status = 'PENDING_PAID'
2901: WHERE settlement_doc_id = l_settlement_doc_tbl(j).settlement_doc_id;
2902: EXCEPTION
2903: WHEN OTHERS THEN
2904: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2905: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_ERR');
2906: FND_MSG_PUB.add;
2907: END IF;
2908: IF OZF_DEBUG_LOW_ON THEN
2902: EXCEPTION
2903: WHEN OTHERS THEN
2904: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2905: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_ERR');
2906: FND_MSG_PUB.add;
2907: END IF;
2908: IF OZF_DEBUG_LOW_ON THEN
2909: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2910: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2907: END IF;
2908: IF OZF_DEBUG_LOW_ON THEN
2909: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2910: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2911: FND_MSG_PUB.Add;
2912: END IF;
2913: RAISE FND_API.g_exc_unexpected_error;
2914: END;
2915:
3096: , user_status_id = l_close_user_status_id
3097: WHERE claim_id = p_group_claim_id;
3098: EXCEPTION
3099: WHEN OTHERS THEN
3100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3101: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3102: FND_MSG_PUB.add;
3103: END IF;
3104: IF OZF_DEBUG_LOW_ON THEN
3098: EXCEPTION
3099: WHEN OTHERS THEN
3100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3101: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3102: FND_MSG_PUB.add;
3103: END IF;
3104: IF OZF_DEBUG_LOW_ON THEN
3105: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3106: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3103: END IF;
3104: IF OZF_DEBUG_LOW_ON THEN
3105: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3106: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3107: FND_MSG_PUB.Add;
3108: END IF;
3109: RAISE FND_API.g_exc_unexpected_error;
3110: END;
3111:
3116: EXCEPTION
3117: WHEN FND_API.g_exc_error THEN
3118: ROLLBACK TO Start_Mass_Payment;
3119: x_return_status := FND_API.g_ret_sts_error;
3120: FND_MSG_PUB.count_and_get (
3121: p_encoded => FND_API.g_false
3122: ,p_count => x_msg_count
3123: ,p_data => x_msg_data
3124: );
3125:
3126: WHEN FND_API.g_exc_unexpected_error THEN
3127: ROLLBACK TO Start_Mass_Payment;
3128: x_return_status := FND_API.g_ret_sts_unexp_error ;
3129: FND_MSG_PUB.count_and_get (
3130: p_encoded => FND_API.g_false
3131: ,p_count => x_msg_count
3132: ,p_data => x_msg_data
3133: );
3134:
3135: WHEN OTHERS THEN
3136: ROLLBACK TO Start_Mass_Payment;
3137: x_return_status := FND_API.g_ret_sts_unexp_error ;
3138: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3139: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3140: END IF;
3141: FND_MSG_PUB.count_and_get(
3142: p_encoded => FND_API.g_false
3135: WHEN OTHERS THEN
3136: ROLLBACK TO Start_Mass_Payment;
3137: x_return_status := FND_API.g_ret_sts_unexp_error ;
3138: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3139: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3140: END IF;
3141: FND_MSG_PUB.count_and_get(
3142: p_encoded => FND_API.g_false
3143: ,p_count => x_msg_count
3137: x_return_status := FND_API.g_ret_sts_unexp_error ;
3138: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3139: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3140: END IF;
3141: FND_MSG_PUB.count_and_get(
3142: p_encoded => FND_API.g_false
3143: ,p_count => x_msg_count
3144: ,p_data => x_msg_data
3145: );
3309: END IF;
3310:
3311: -- Initialize message list if p_init_msg_list is set to TRUE.
3312: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3313: FND_MSG_PUB.initialize;
3314: END IF;
3315:
3316: -- Initialize API return status to SUCCESS
3317: x_return_status := FND_API.G_RET_STS_SUCCESS;
3350: END IF;
3351:
3352: IF p_open_claim_tbl.LAST > 1 AND
3353: NOT ARP_DEDUCTION_COVER.negative_rct_writeoffs_allowed THEN
3354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3355: FND_MESSAGE.Set_Name('OZF','OZF_SETL_MUL_CLA_NS');
3356: FND_MSG_PUB.Add;
3357: END IF;
3358: RAISE FND_API.g_exc_error;
3352: IF p_open_claim_tbl.LAST > 1 AND
3353: NOT ARP_DEDUCTION_COVER.negative_rct_writeoffs_allowed THEN
3354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3355: FND_MESSAGE.Set_Name('OZF','OZF_SETL_MUL_CLA_NS');
3356: FND_MSG_PUB.Add;
3357: END IF;
3358: RAISE FND_API.g_exc_error;
3359: END IF;
3360:
3370: IF i IS NOT NULL THEN
3371: LOOP
3372: IF l_settlement_type = 'DEDUCTION' AND
3373: p_open_transaction_tbl(i).trx_class <> 'CM' THEN
3374: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3375: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_POCM');
3376: FND_MSG_PUB.Add;
3377: END IF;
3378: RAISE FND_API.g_exc_error;
3372: IF l_settlement_type = 'DEDUCTION' AND
3373: p_open_transaction_tbl(i).trx_class <> 'CM' THEN
3374: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3375: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_POCM');
3376: FND_MSG_PUB.Add;
3377: END IF;
3378: RAISE FND_API.g_exc_error;
3379: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3380: p_open_transaction_tbl(i).trx_class NOT IN ('INVOICE', 'INV', 'DM', 'CB') THEN
3377: END IF;
3378: RAISE FND_API.g_exc_error;
3379: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3380: p_open_transaction_tbl(i).trx_class NOT IN ('INVOICE', 'INV', 'DM', 'CB') THEN
3381: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3382: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_PODM');
3383: FND_MSG_PUB.Add;
3384: END IF;
3385: RAISE FND_API.g_exc_error;
3379: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3380: p_open_transaction_tbl(i).trx_class NOT IN ('INVOICE', 'INV', 'DM', 'CB') THEN
3381: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3382: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_PODM');
3383: FND_MSG_PUB.Add;
3384: END IF;
3385: RAISE FND_API.g_exc_error;
3386: END IF;
3387:
3394: END LOOP;
3395: END IF;
3396:
3397: IF ABS(l_open_claim_amt) < ABS(l_open_trx_amt) THEN
3398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3399: FND_MESSAGE.Set_Name('OZF','OZF_SETL_TRX_AMT_ERR');
3400: FND_MSG_PUB.Add;
3401: END IF;
3402: RAISE FND_API.g_exc_error;
3396:
3397: IF ABS(l_open_claim_amt) < ABS(l_open_trx_amt) THEN
3398: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3399: FND_MESSAGE.Set_Name('OZF','OZF_SETL_TRX_AMT_ERR');
3400: FND_MSG_PUB.Add;
3401: END IF;
3402: RAISE FND_API.g_exc_error;
3403: END IF;
3404:
3406: IF i IS NOT NULL THEN
3407: LOOP
3408: IF l_settlement_type = 'DEDUCTION' AND
3409: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'CHARGEBACK') THEN
3410: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3411: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_ERR');
3412: FND_MSG_PUB.Add;
3413: END IF;
3414: RAISE FND_API.g_exc_error;
3408: IF l_settlement_type = 'DEDUCTION' AND
3409: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'CHARGEBACK') THEN
3410: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3411: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_ERR');
3412: FND_MSG_PUB.Add;
3413: END IF;
3414: RAISE FND_API.g_exc_error;
3415: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3416: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'ON_ACCT_CREDIT') THEN
3413: END IF;
3414: RAISE FND_API.g_exc_error;
3415: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3416: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'ON_ACCT_CREDIT') THEN
3417: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3418: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_ERR');
3419: FND_MSG_PUB.Add;
3420: END IF;
3421: RAISE FND_API.g_exc_error;
3415: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3416: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'ON_ACCT_CREDIT') THEN
3417: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3418: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_ERR');
3419: FND_MSG_PUB.Add;
3420: END IF;
3421: RAISE FND_API.g_exc_error;
3422: END IF;
3423:
3436:
3437:
3438:
3439: IF ABS(l_open_claim_amt) < (ABS(l_open_trx_amt) + ABS(l_pay_method_amt)) THEN
3440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3441: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPN_CLA_AMT_ERR');
3442: FND_MSG_PUB.Add;
3443: END IF;
3444: RAISE FND_API.g_exc_error;
3438:
3439: IF ABS(l_open_claim_amt) < (ABS(l_open_trx_amt) + ABS(l_pay_method_amt)) THEN
3440: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3441: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPN_CLA_AMT_ERR');
3442: FND_MSG_PUB.Add;
3443: END IF;
3444: RAISE FND_API.g_exc_error;
3445: END IF;
3446:
3447: --bug4768031
3448: IF (ABS(l_open_trx_amt) = 0 AND ABS(l_pay_method_amt) = 0 AND
3449: ((l_overpayment_count = 0 AND l_deduction_count > 0) OR
3450: (l_overpayment_count > 0 AND l_deduction_count = 0))) THEN
3451: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3452: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_OPM_ERR');
3453: FND_MSG_PUB.Add;
3454: END IF;
3455: RAISE FND_API.g_exc_error;
3449: ((l_overpayment_count = 0 AND l_deduction_count > 0) OR
3450: (l_overpayment_count > 0 AND l_deduction_count = 0))) THEN
3451: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3452: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_OPM_ERR');
3453: FND_MSG_PUB.Add;
3454: END IF;
3455: RAISE FND_API.g_exc_error;
3456: END IF;
3457:
3584: --, wo_rec_trx_id = l_wo_rec_trx_id
3585: WHERE claim_id = l_open_claim_tbl(i).claim_id;
3586: EXCEPTION
3587: WHEN OTHERS THEN
3588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3589: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3590: FND_MSG_PUB.add;
3591: END IF;
3592: IF OZF_DEBUG_LOW_ON THEN
3586: EXCEPTION
3587: WHEN OTHERS THEN
3588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3589: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3590: FND_MSG_PUB.add;
3591: END IF;
3592: IF OZF_DEBUG_LOW_ON THEN
3593: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3594: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3591: END IF;
3592: IF OZF_DEBUG_LOW_ON THEN
3593: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3594: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3595: FND_MSG_PUB.Add;
3596: END IF;
3597: RAISE FND_API.g_exc_unexpected_error;
3598: END;
3599:
3638: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3639: RAISE FND_API.g_exc_unexpected_error;
3640: END IF;
3641: ELSIF ABS(l_open_claim_tbl(i).amount_settled) > ABS(l_claim_amount_rem) THEN
3642: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3643: FND_MESSAGE.Set_Name('OZF','OZF_SETL_CLA_AMT_ERR');
3644: FND_MSG_PUB.Add;
3645: END IF;
3646: RAISE FND_API.g_exc_error;
3640: END IF;
3641: ELSIF ABS(l_open_claim_tbl(i).amount_settled) > ABS(l_claim_amount_rem) THEN
3642: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3643: FND_MESSAGE.Set_Name('OZF','OZF_SETL_CLA_AMT_ERR');
3644: FND_MSG_PUB.Add;
3645: END IF;
3646: RAISE FND_API.g_exc_error;
3647: END IF;
3648: EXIT WHEN i = l_open_claim_tbl.LAST;
3709: l_group_settle_doc_tbl(l_idx_setl_doc).gl_date := SYSDATE;
3710: END IF;
3711:
3712: IF l_group_settle_doc_tbl(l_idx_setl_doc).gl_date IS NULL THEN
3713: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3714: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_GL_DATE');
3715: FND_MSG_PUB.Add;
3716: END IF;
3717: RAISE FND_API.g_exc_error;
3711:
3712: IF l_group_settle_doc_tbl(l_idx_setl_doc).gl_date IS NULL THEN
3713: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3714: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_GL_DATE');
3715: FND_MSG_PUB.Add;
3716: END IF;
3717: RAISE FND_API.g_exc_error;
3718: END IF;
3719: END IF;
3849: --//End Bugfix# 7439145
3850:
3851: EXCEPTION
3852: WHEN OTHERS THEN
3853: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3854: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3855: FND_MSG_PUB.add;
3856: END IF;
3857: IF OZF_DEBUG_LOW_ON THEN
3851: EXCEPTION
3852: WHEN OTHERS THEN
3853: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3854: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3855: FND_MSG_PUB.add;
3856: END IF;
3857: IF OZF_DEBUG_LOW_ON THEN
3858: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3859: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3856: END IF;
3857: IF OZF_DEBUG_LOW_ON THEN
3858: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3859: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3860: FND_MSG_PUB.Add;
3861: END IF;
3862: RAISE FND_API.g_exc_unexpected_error;
3863: END;
3864:
3939: IF FND_API.to_Boolean(p_commit) THEN
3940: COMMIT WORK;
3941: END IF;
3942:
3943: FND_MSG_PUB.count_and_get(
3944: p_encoded => FND_API.g_false,
3945: p_count => x_msg_count,
3946: p_data => x_msg_data
3947: );
3951: EXCEPTION
3952: WHEN FND_API.g_exc_error THEN
3953: ROLLBACK TO Settle_Mass_Settlement;
3954: x_return_status := FND_API.g_ret_sts_error;
3955: FND_MSG_PUB.count_and_get (
3956: p_encoded => FND_API.g_false
3957: ,p_count => x_msg_count
3958: ,p_data => x_msg_data
3959: );
3960:
3961: WHEN FND_API.g_exc_unexpected_error THEN
3962: ROLLBACK TO Settle_Mass_Settlement;
3963: x_return_status := FND_API.g_ret_sts_unexp_error ;
3964: FND_MSG_PUB.count_and_get (
3965: p_encoded => FND_API.g_false
3966: ,p_count => x_msg_count
3967: ,p_data => x_msg_data
3968: );
3969:
3970: WHEN OTHERS THEN
3971: ROLLBACK TO Settle_Mass_Settlement;
3972: x_return_status := FND_API.g_ret_sts_unexp_error ;
3973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3974: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3975: END IF;
3976: FND_MSG_PUB.count_and_get(
3977: p_encoded => FND_API.g_false
3970: WHEN OTHERS THEN
3971: ROLLBACK TO Settle_Mass_Settlement;
3972: x_return_status := FND_API.g_ret_sts_unexp_error ;
3973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3974: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3975: END IF;
3976: FND_MSG_PUB.count_and_get(
3977: p_encoded => FND_API.g_false
3978: ,p_count => x_msg_count
3972: x_return_status := FND_API.g_ret_sts_unexp_error ;
3973: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3974: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3975: END IF;
3976: FND_MSG_PUB.count_and_get(
3977: p_encoded => FND_API.g_false
3978: ,p_count => x_msg_count
3979: ,p_data => x_msg_data
3980: );