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:
926: x_return_status := FND_API.g_ret_sts_unexp_error ;
927:
928: WHEN OTHERS THEN
929: x_return_status := FND_API.g_ret_sts_unexp_error ;
930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
931: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
932: END IF;
933:
934: END Pay_by_Credit_Memo;
927:
928: WHEN OTHERS THEN
929: x_return_status := FND_API.g_ret_sts_unexp_error ;
930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
931: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
932: END IF;
933:
934: END Pay_by_Credit_Memo;
935:
1138:
1139: l_online_upd_ded_status := TRUE;
1140: END IF;
1141: ELSE
1142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1143: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
1144: FND_MSG_PUB.add;
1145: END IF;
1146: END IF;
1140: END IF;
1141: ELSE
1142: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1143: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
1144: FND_MSG_PUB.add;
1145: END IF;
1146: END IF;
1147:
1148:
1187: x_return_status := FND_API.g_ret_sts_unexp_error ;
1188:
1189: WHEN OTHERS THEN
1190: x_return_status := FND_API.g_ret_sts_unexp_error ;
1191: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1192: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1193: END IF;
1194:
1195: END Pay_by_Debit_Memo;
1188:
1189: WHEN OTHERS THEN
1190: x_return_status := FND_API.g_ret_sts_unexp_error ;
1191: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1192: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1193: END IF;
1194:
1195: END Pay_by_Debit_Memo;
1196:
1304: END IF;
1305: END IF;
1306:
1307: ELSE
1308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1309: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
1310: FND_MSG_PUB.add;
1311: END IF;
1312: END IF;
1306:
1307: ELSE
1308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1309: FND_MESSAGE.set_name('OZF', 'OZF_AR_PAYMENT_NOTMATCH');
1310: FND_MSG_PUB.add;
1311: END IF;
1312: END IF;
1313:
1314:
1323: x_return_status := FND_API.g_ret_sts_unexp_error ;
1324:
1325: WHEN OTHERS THEN
1326: x_return_status := FND_API.g_ret_sts_unexp_error ;
1327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1328: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1329: END IF;
1330:
1331: END Pay_by_Chargeback;
1324:
1325: WHEN OTHERS THEN
1326: x_return_status := FND_API.g_ret_sts_unexp_error ;
1327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1328: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1329: END IF;
1330:
1331: END Pay_by_Chargeback;
1332:
1396: )
1397: WHERE claim_id = p_claim_rec.claim_id;
1398: EXCEPTION
1399: WHEN OTHERS THEN
1400: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1401: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
1402: FND_MSG_PUB.add;
1403: END IF;
1404: IF OZF_DEBUG_LOW_ON THEN
1398: EXCEPTION
1399: WHEN OTHERS THEN
1400: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1401: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
1402: FND_MSG_PUB.add;
1403: END IF;
1404: IF OZF_DEBUG_LOW_ON THEN
1405: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1406: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1403: END IF;
1404: IF OZF_DEBUG_LOW_ON THEN
1405: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1406: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1407: FND_MSG_PUB.Add;
1408: END IF;
1409: RAISE FND_API.g_exc_unexpected_error;
1410: END;
1411:
1456: x_return_status := FND_API.g_ret_sts_unexp_error ;
1457:
1458: WHEN OTHERS THEN
1459: x_return_status := FND_API.g_ret_sts_unexp_error ;
1460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1461: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1462: END IF;
1463:
1464: END Pay_by_Write_Off;
1457:
1458: WHEN OTHERS THEN
1459: x_return_status := FND_API.g_ret_sts_unexp_error ;
1460: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1461: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1462: END IF;
1463:
1464: END Pay_by_Write_Off;
1465:
1604: RAISE FND_API.g_exc_unexpected_error;
1605: END IF;
1606:
1607: ELSE
1608: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1609: FND_MESSAGE.set_name('AMS', 'AMS_AR_PAYMENT_NOTMATCH');
1610: FND_MSG_PUB.add;
1611: END IF;
1612: RAISE FND_API.g_exc_error;
1606:
1607: ELSE
1608: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1609: FND_MESSAGE.set_name('AMS', 'AMS_AR_PAYMENT_NOTMATCH');
1610: FND_MSG_PUB.add;
1611: END IF;
1612: RAISE FND_API.g_exc_error;
1613: END IF;
1614:
1623: x_return_status := FND_API.g_ret_sts_unexp_error ;
1624:
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.g_ret_sts_unexp_error ;
1627: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1628: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1629: END IF;
1630:
1631: END Pay_by_On_Account_Credit;
1624:
1625: WHEN OTHERS THEN
1626: x_return_status := FND_API.g_ret_sts_unexp_error ;
1627: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1628: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1629: END IF;
1630:
1631: END Pay_by_On_Account_Credit;
1632:
2148: EXCEPTION
2149: WHEN FND_API.g_exc_error THEN
2150: ROLLBACK TO Break_Mass_Settlement;
2151: x_return_status := FND_API.g_ret_sts_error;
2152: FND_MSG_PUB.count_and_get (
2153: p_encoded => FND_API.g_false
2154: ,p_count => x_msg_count
2155: ,p_data => x_msg_data
2156: );
2157:
2158: WHEN FND_API.g_exc_unexpected_error THEN
2159: ROLLBACK TO Break_Mass_Settlement;
2160: x_return_status := FND_API.g_ret_sts_unexp_error ;
2161: FND_MSG_PUB.count_and_get (
2162: p_encoded => FND_API.g_false
2163: ,p_count => x_msg_count
2164: ,p_data => x_msg_data
2165: );
2166:
2167: WHEN OTHERS THEN
2168: ROLLBACK TO Break_Mass_Settlement;
2169: x_return_status := FND_API.g_ret_sts_unexp_error ;
2170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2171: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2172: END IF;
2173: FND_MSG_PUB.count_and_get(
2174: p_encoded => FND_API.g_false
2167: WHEN OTHERS THEN
2168: ROLLBACK TO Break_Mass_Settlement;
2169: x_return_status := FND_API.g_ret_sts_unexp_error ;
2170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2171: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2172: END IF;
2173: FND_MSG_PUB.count_and_get(
2174: p_encoded => FND_API.g_false
2175: ,p_count => x_msg_count
2169: x_return_status := FND_API.g_ret_sts_unexp_error ;
2170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2171: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2172: END IF;
2173: FND_MSG_PUB.count_and_get(
2174: p_encoded => FND_API.g_false
2175: ,p_count => x_msg_count
2176: ,p_data => x_msg_data
2177: );
2262:
2263: i := x_claim_tbl.FIRST;
2264: IF i IS NOT NULL THEN
2265: LOOP
2266: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2267: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2268: FND_MESSAGE.Set_Token('TEXT', x_claim_tbl(i).claim_number);
2269: FND_MSG_PUB.Add;
2270: END IF;
2265: LOOP
2266: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2267: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2268: FND_MESSAGE.Set_Token('TEXT', x_claim_tbl(i).claim_number);
2269: FND_MSG_PUB.Add;
2270: END IF;
2271:
2272: OZF_Claim_PVT.Update_Claim (
2273: p_api_version => l_api_version
2300: EXCEPTION
2301: WHEN FND_API.g_exc_error THEN
2302: ROLLBACK TO Complete_Mass_Settlement;
2303: x_return_status := FND_API.g_ret_sts_error;
2304: FND_MSG_PUB.count_and_get (
2305: p_encoded => FND_API.g_false
2306: ,p_count => x_msg_count
2307: ,p_data => x_msg_data
2308: );
2309:
2310: WHEN FND_API.g_exc_unexpected_error THEN
2311: ROLLBACK TO Complete_Mass_Settlement;
2312: x_return_status := FND_API.g_ret_sts_unexp_error ;
2313: FND_MSG_PUB.count_and_get (
2314: p_encoded => FND_API.g_false
2315: ,p_count => x_msg_count
2316: ,p_data => x_msg_data
2317: );
2318:
2319: WHEN OTHERS THEN
2320: ROLLBACK TO Complete_Mass_Settlement;
2321: x_return_status := FND_API.g_ret_sts_unexp_error ;
2322: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2323: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2324: END IF;
2325: FND_MSG_PUB.count_and_get(
2326: p_encoded => FND_API.g_false
2319: WHEN OTHERS THEN
2320: ROLLBACK TO Complete_Mass_Settlement;
2321: x_return_status := FND_API.g_ret_sts_unexp_error ;
2322: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2323: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2324: END IF;
2325: FND_MSG_PUB.count_and_get(
2326: p_encoded => FND_API.g_false
2327: ,p_count => x_msg_count
2321: x_return_status := FND_API.g_ret_sts_unexp_error ;
2322: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2323: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2324: END IF;
2325: FND_MSG_PUB.count_and_get(
2326: p_encoded => FND_API.g_false
2327: ,p_count => x_msg_count
2328: ,p_data => x_msg_data
2329: );
2510: EXCEPTION
2511: WHEN FND_API.g_exc_error THEN
2512: ROLLBACK TO Approve_Mass_Settlement;
2513: x_return_status := FND_API.g_ret_sts_error;
2514: FND_MSG_PUB.count_and_get (
2515: p_encoded => FND_API.g_false
2516: ,p_count => x_msg_count
2517: ,p_data => x_msg_data
2518: );
2519:
2520: WHEN FND_API.g_exc_unexpected_error THEN
2521: ROLLBACK TO Approve_Mass_Settlement;
2522: x_return_status := FND_API.g_ret_sts_unexp_error ;
2523: FND_MSG_PUB.count_and_get (
2524: p_encoded => FND_API.g_false
2525: ,p_count => x_msg_count
2526: ,p_data => x_msg_data
2527: );
2528:
2529: WHEN OTHERS THEN
2530: ROLLBACK TO Approve_Mass_Settlement;
2531: x_return_status := FND_API.g_ret_sts_unexp_error ;
2532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2533: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2534: END IF;
2535: FND_MSG_PUB.count_and_get(
2536: p_encoded => FND_API.g_false
2529: WHEN OTHERS THEN
2530: ROLLBACK TO Approve_Mass_Settlement;
2531: x_return_status := FND_API.g_ret_sts_unexp_error ;
2532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2533: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2534: END IF;
2535: FND_MSG_PUB.count_and_get(
2536: p_encoded => FND_API.g_false
2537: ,p_count => x_msg_count
2531: x_return_status := FND_API.g_ret_sts_unexp_error ;
2532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2533: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2534: END IF;
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: );
2609:
2610: EXCEPTION
2611: WHEN OTHERS THEN
2612: ROLLBACK TO Reject_Mass_Payment;
2613: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2614: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
2615: FND_MSG_PUB.add;
2616: END IF;
2617: IF OZF_DEBUG_LOW_ON THEN
2611: WHEN OTHERS THEN
2612: ROLLBACK TO Reject_Mass_Payment;
2613: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2614: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
2615: FND_MSG_PUB.add;
2616: END IF;
2617: IF OZF_DEBUG_LOW_ON THEN
2618: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2619: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2616: END IF;
2617: IF OZF_DEBUG_LOW_ON THEN
2618: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2619: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2620: FND_MSG_PUB.Add;
2621: END IF;
2622: RAISE FND_API.g_exc_unexpected_error;
2623: END;
2624:
2628:
2629: EXCEPTION
2630: WHEN FND_API.g_exc_error THEN
2631: x_return_status := FND_API.g_ret_sts_error;
2632: FND_MSG_PUB.count_and_get (
2633: p_encoded => FND_API.g_false
2634: ,p_count => x_msg_count
2635: ,p_data => x_msg_data
2636: );
2636: );
2637:
2638: WHEN FND_API.g_exc_unexpected_error THEN
2639: x_return_status := FND_API.g_ret_sts_unexp_error ;
2640: FND_MSG_PUB.count_and_get (
2641: p_encoded => FND_API.g_false
2642: ,p_count => x_msg_count
2643: ,p_data => x_msg_data
2644: );
2644: );
2645:
2646: WHEN OTHERS THEN
2647: x_return_status := FND_API.g_ret_sts_unexp_error ;
2648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2649: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2650: END IF;
2651: FND_MSG_PUB.count_and_get(
2652: p_encoded => FND_API.g_false
2645:
2646: WHEN OTHERS THEN
2647: x_return_status := FND_API.g_ret_sts_unexp_error ;
2648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2649: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2650: END IF;
2651: FND_MSG_PUB.count_and_get(
2652: p_encoded => FND_API.g_false
2653: ,p_count => x_msg_count
2647: x_return_status := FND_API.g_ret_sts_unexp_error ;
2648: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2649: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2650: END IF;
2651: FND_MSG_PUB.count_and_get(
2652: p_encoded => FND_API.g_false
2653: ,p_count => x_msg_count
2654: ,p_data => x_msg_data
2655: );
2820: SET payment_status = 'PENDING_PAID'
2821: WHERE settlement_doc_id = l_settlement_doc_tbl(j).settlement_doc_id;
2822: EXCEPTION
2823: WHEN OTHERS THEN
2824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2825: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_ERR');
2826: FND_MSG_PUB.add;
2827: END IF;
2828: IF OZF_DEBUG_LOW_ON THEN
2822: EXCEPTION
2823: WHEN OTHERS THEN
2824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2825: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_ERR');
2826: FND_MSG_PUB.add;
2827: END IF;
2828: IF OZF_DEBUG_LOW_ON THEN
2829: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2830: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2827: END IF;
2828: IF OZF_DEBUG_LOW_ON THEN
2829: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2830: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2831: FND_MSG_PUB.Add;
2832: END IF;
2833: RAISE FND_API.g_exc_unexpected_error;
2834: END;
2835:
2973: , user_status_id = l_close_user_status_id
2974: WHERE claim_id = p_group_claim_id;
2975: EXCEPTION
2976: WHEN OTHERS THEN
2977: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2978: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
2979: FND_MSG_PUB.add;
2980: END IF;
2981: IF OZF_DEBUG_LOW_ON THEN
2975: EXCEPTION
2976: WHEN OTHERS THEN
2977: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2978: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
2979: FND_MSG_PUB.add;
2980: END IF;
2981: IF OZF_DEBUG_LOW_ON THEN
2982: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2983: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2980: END IF;
2981: IF OZF_DEBUG_LOW_ON THEN
2982: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2983: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
2984: FND_MSG_PUB.Add;
2985: END IF;
2986: RAISE FND_API.g_exc_unexpected_error;
2987: END;
2988:
2993: EXCEPTION
2994: WHEN FND_API.g_exc_error THEN
2995: ROLLBACK TO Start_Mass_Payment;
2996: x_return_status := FND_API.g_ret_sts_error;
2997: FND_MSG_PUB.count_and_get (
2998: p_encoded => FND_API.g_false
2999: ,p_count => x_msg_count
3000: ,p_data => x_msg_data
3001: );
3002:
3003: WHEN FND_API.g_exc_unexpected_error THEN
3004: ROLLBACK TO Start_Mass_Payment;
3005: x_return_status := FND_API.g_ret_sts_unexp_error ;
3006: FND_MSG_PUB.count_and_get (
3007: p_encoded => FND_API.g_false
3008: ,p_count => x_msg_count
3009: ,p_data => x_msg_data
3010: );
3011:
3012: WHEN OTHERS THEN
3013: ROLLBACK TO Start_Mass_Payment;
3014: x_return_status := FND_API.g_ret_sts_unexp_error ;
3015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3016: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3017: END IF;
3018: FND_MSG_PUB.count_and_get(
3019: p_encoded => FND_API.g_false
3012: WHEN OTHERS THEN
3013: ROLLBACK TO Start_Mass_Payment;
3014: x_return_status := FND_API.g_ret_sts_unexp_error ;
3015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3016: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3017: END IF;
3018: FND_MSG_PUB.count_and_get(
3019: p_encoded => FND_API.g_false
3020: ,p_count => x_msg_count
3014: x_return_status := FND_API.g_ret_sts_unexp_error ;
3015: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3016: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3017: END IF;
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: );
3163: END IF;
3164:
3165: -- Initialize message list if p_init_msg_list is set to TRUE.
3166: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3167: FND_MSG_PUB.initialize;
3168: END IF;
3169:
3170: -- Initialize API return status to SUCCESS
3171: x_return_status := FND_API.G_RET_STS_SUCCESS;
3203: END IF;
3204:
3205: IF p_open_claim_tbl.LAST > 1 AND
3206: NOT ARP_DEDUCTION_COVER.negative_rct_writeoffs_allowed THEN
3207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3208: FND_MESSAGE.Set_Name('OZF','OZF_SETL_MUL_CLA_NS');
3209: FND_MSG_PUB.Add;
3210: END IF;
3211: RAISE FND_API.g_exc_error;
3205: IF p_open_claim_tbl.LAST > 1 AND
3206: NOT ARP_DEDUCTION_COVER.negative_rct_writeoffs_allowed THEN
3207: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3208: FND_MESSAGE.Set_Name('OZF','OZF_SETL_MUL_CLA_NS');
3209: FND_MSG_PUB.Add;
3210: END IF;
3211: RAISE FND_API.g_exc_error;
3212: END IF;
3213:
3223: IF i IS NOT NULL THEN
3224: LOOP
3225: IF l_settlement_type = 'DEDUCTION' AND
3226: p_open_transaction_tbl(i).trx_class <> 'CM' THEN
3227: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3228: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_POCM');
3229: FND_MSG_PUB.Add;
3230: END IF;
3231: RAISE FND_API.g_exc_error;
3225: IF l_settlement_type = 'DEDUCTION' AND
3226: p_open_transaction_tbl(i).trx_class <> 'CM' THEN
3227: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3228: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_POCM');
3229: FND_MSG_PUB.Add;
3230: END IF;
3231: RAISE FND_API.g_exc_error;
3232: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3233: p_open_transaction_tbl(i).trx_class NOT IN ('INVOICE', 'INV', 'DM', 'CB') THEN
3230: END IF;
3231: RAISE FND_API.g_exc_error;
3232: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3233: p_open_transaction_tbl(i).trx_class NOT IN ('INVOICE', 'INV', 'DM', 'CB') THEN
3234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3235: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_PODM');
3236: FND_MSG_PUB.Add;
3237: END IF;
3238: RAISE FND_API.g_exc_error;
3232: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3233: p_open_transaction_tbl(i).trx_class NOT IN ('INVOICE', 'INV', 'DM', 'CB') THEN
3234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3235: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_PODM');
3236: FND_MSG_PUB.Add;
3237: END IF;
3238: RAISE FND_API.g_exc_error;
3239: END IF;
3240:
3247: END LOOP;
3248: END IF;
3249:
3250: IF ABS(l_open_claim_amt) < ABS(l_open_trx_amt) THEN
3251: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3252: FND_MESSAGE.Set_Name('OZF','OZF_SETL_TRX_AMT_ERR');
3253: FND_MSG_PUB.Add;
3254: END IF;
3255: RAISE FND_API.g_exc_error;
3249:
3250: IF ABS(l_open_claim_amt) < ABS(l_open_trx_amt) THEN
3251: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3252: FND_MESSAGE.Set_Name('OZF','OZF_SETL_TRX_AMT_ERR');
3253: FND_MSG_PUB.Add;
3254: END IF;
3255: RAISE FND_API.g_exc_error;
3256: END IF;
3257:
3259: IF i IS NOT NULL THEN
3260: LOOP
3261: IF l_settlement_type = 'DEDUCTION' AND
3262: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'CHARGEBACK') THEN
3263: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3264: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_ERR');
3265: FND_MSG_PUB.Add;
3266: END IF;
3267: RAISE FND_API.g_exc_error;
3261: IF l_settlement_type = 'DEDUCTION' AND
3262: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'CHARGEBACK') THEN
3263: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3264: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_ERR');
3265: FND_MSG_PUB.Add;
3266: END IF;
3267: RAISE FND_API.g_exc_error;
3268: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3269: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'ON_ACCT_CREDIT') THEN
3266: END IF;
3267: RAISE FND_API.g_exc_error;
3268: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3269: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'ON_ACCT_CREDIT') THEN
3270: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3271: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_ERR');
3272: FND_MSG_PUB.Add;
3273: END IF;
3274: RAISE FND_API.g_exc_error;
3268: ELSIF l_settlement_type = 'OVERPAYMENT' AND
3269: p_payment_method_tbl(i).payment_method NOT IN ('WRITE_OFF', 'ON_ACCT_CREDIT') THEN
3270: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3271: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPM_ERR');
3272: FND_MSG_PUB.Add;
3273: END IF;
3274: RAISE FND_API.g_exc_error;
3275: END IF;
3276:
3289:
3290:
3291:
3292: IF ABS(l_open_claim_amt) < (ABS(l_open_trx_amt) + ABS(l_pay_method_amt)) THEN
3293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3294: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPN_CLA_AMT_ERR');
3295: FND_MSG_PUB.Add;
3296: END IF;
3297: RAISE FND_API.g_exc_error;
3291:
3292: IF ABS(l_open_claim_amt) < (ABS(l_open_trx_amt) + ABS(l_pay_method_amt)) THEN
3293: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3294: FND_MESSAGE.Set_Name('OZF','OZF_SETL_OPN_CLA_AMT_ERR');
3295: FND_MSG_PUB.Add;
3296: END IF;
3297: RAISE FND_API.g_exc_error;
3298: END IF;
3299:
3300: --bug4768031
3301: IF (ABS(l_open_trx_amt) = 0 AND ABS(l_pay_method_amt) = 0 AND
3302: ((l_overpayment_count = 0 AND l_deduction_count > 0) OR
3303: (l_overpayment_count > 0 AND l_deduction_count = 0))) THEN
3304: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3305: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_OPM_ERR');
3306: FND_MSG_PUB.Add;
3307: END IF;
3308: RAISE FND_API.g_exc_error;
3302: ((l_overpayment_count = 0 AND l_deduction_count > 0) OR
3303: (l_overpayment_count > 0 AND l_deduction_count = 0))) THEN
3304: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3305: FND_MESSAGE.Set_Name('OZF','OZF_SETL_DED_OPM_ERR');
3306: FND_MSG_PUB.Add;
3307: END IF;
3308: RAISE FND_API.g_exc_error;
3309: END IF;
3310:
3428: --, wo_rec_trx_id = l_wo_rec_trx_id
3429: WHERE claim_id = l_open_claim_tbl(i).claim_id;
3430: EXCEPTION
3431: WHEN OTHERS THEN
3432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3433: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3434: FND_MSG_PUB.add;
3435: END IF;
3436: IF OZF_DEBUG_LOW_ON THEN
3430: EXCEPTION
3431: WHEN OTHERS THEN
3432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3433: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3434: FND_MSG_PUB.add;
3435: END IF;
3436: IF OZF_DEBUG_LOW_ON THEN
3437: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3438: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3435: END IF;
3436: IF OZF_DEBUG_LOW_ON THEN
3437: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3438: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3439: FND_MSG_PUB.Add;
3440: END IF;
3441: RAISE FND_API.g_exc_unexpected_error;
3442: END;
3443:
3482: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3483: RAISE FND_API.g_exc_unexpected_error;
3484: END IF;
3485: ELSIF ABS(l_open_claim_tbl(i).amount_settled) > ABS(l_claim_amount_rem) THEN
3486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3487: FND_MESSAGE.Set_Name('OZF','OZF_SETL_CLA_AMT_ERR');
3488: FND_MSG_PUB.Add;
3489: END IF;
3490: RAISE FND_API.g_exc_error;
3484: END IF;
3485: ELSIF ABS(l_open_claim_tbl(i).amount_settled) > ABS(l_claim_amount_rem) THEN
3486: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3487: FND_MESSAGE.Set_Name('OZF','OZF_SETL_CLA_AMT_ERR');
3488: FND_MSG_PUB.Add;
3489: END IF;
3490: RAISE FND_API.g_exc_error;
3491: END IF;
3492: EXIT WHEN i = l_open_claim_tbl.LAST;
3553: l_group_settle_doc_tbl(l_idx_setl_doc).gl_date := SYSDATE;
3554: END IF;
3555:
3556: IF l_group_settle_doc_tbl(l_idx_setl_doc).gl_date IS NULL THEN
3557: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3558: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_GL_DATE');
3559: FND_MSG_PUB.Add;
3560: END IF;
3561: RAISE FND_API.g_exc_error;
3555:
3556: IF l_group_settle_doc_tbl(l_idx_setl_doc).gl_date IS NULL THEN
3557: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3558: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_GL_DATE');
3559: FND_MSG_PUB.Add;
3560: END IF;
3561: RAISE FND_API.g_exc_error;
3562: END IF;
3563: END IF;
3687: --//End Bugfix# 7439145
3688:
3689: EXCEPTION
3690: WHEN OTHERS THEN
3691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3692: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3693: FND_MSG_PUB.add;
3694: END IF;
3695: IF OZF_DEBUG_LOW_ON THEN
3689: EXCEPTION
3690: WHEN OTHERS THEN
3691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3692: FND_MESSAGE.set_name('OZF', 'OZF_SETL_DOC_UPD_CLAM_ERR');
3693: FND_MSG_PUB.add;
3694: END IF;
3695: IF OZF_DEBUG_LOW_ON THEN
3696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3697: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3694: END IF;
3695: IF OZF_DEBUG_LOW_ON THEN
3696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3697: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3698: FND_MSG_PUB.Add;
3699: END IF;
3700: RAISE FND_API.g_exc_unexpected_error;
3701: END;
3702:
3777: IF FND_API.to_Boolean(p_commit) THEN
3778: COMMIT WORK;
3779: END IF;
3780:
3781: FND_MSG_PUB.count_and_get(
3782: p_encoded => FND_API.g_false,
3783: p_count => x_msg_count,
3784: p_data => x_msg_data
3785: );
3789: EXCEPTION
3790: WHEN FND_API.g_exc_error THEN
3791: ROLLBACK TO Settle_Mass_Settlement;
3792: x_return_status := FND_API.g_ret_sts_error;
3793: FND_MSG_PUB.count_and_get (
3794: p_encoded => FND_API.g_false
3795: ,p_count => x_msg_count
3796: ,p_data => x_msg_data
3797: );
3798:
3799: WHEN FND_API.g_exc_unexpected_error THEN
3800: ROLLBACK TO Settle_Mass_Settlement;
3801: x_return_status := FND_API.g_ret_sts_unexp_error ;
3802: FND_MSG_PUB.count_and_get (
3803: p_encoded => FND_API.g_false
3804: ,p_count => x_msg_count
3805: ,p_data => x_msg_data
3806: );
3807:
3808: WHEN OTHERS THEN
3809: ROLLBACK TO Settle_Mass_Settlement;
3810: x_return_status := FND_API.g_ret_sts_unexp_error ;
3811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3812: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3813: END IF;
3814: FND_MSG_PUB.count_and_get(
3815: p_encoded => FND_API.g_false
3808: WHEN OTHERS THEN
3809: ROLLBACK TO Settle_Mass_Settlement;
3810: x_return_status := FND_API.g_ret_sts_unexp_error ;
3811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3812: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3813: END IF;
3814: FND_MSG_PUB.count_and_get(
3815: p_encoded => FND_API.g_false
3816: ,p_count => x_msg_count
3810: x_return_status := FND_API.g_ret_sts_unexp_error ;
3811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3812: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3813: END IF;
3814: FND_MSG_PUB.count_and_get(
3815: p_encoded => FND_API.g_false
3816: ,p_count => x_msg_count
3817: ,p_data => x_msg_data
3818: );