631:
632:
633: EXCEPTION
634: WHEN OTHERS THEN
635: RAISE Fnd_Api.g_exc_error;
636: ozf_utility_pvt.debug_message('Exception in raising business event for Target Approval');
637: END;
638:
639:
732: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN',l_object_type);
733: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_object_id);
734: fnd_msg_pub.ADD;
735: END IF;
736: RAISE fnd_api.g_exc_unexpected_error;
737: END IF;
738:
739: UPDATE OZF_PRODUCT_ALLOCATIONS p
740: SET p.TARGET = p.TARGET + l_diff_target,
750: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN',l_object_type);
751: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_object_id);
752: fnd_msg_pub.ADD;
753: END IF;
754: RAISE fnd_api.g_exc_unexpected_error;
755: END IF;
756:
757: /*---------------------------------------------------------------------------------------------------
758: UPDATE OZF_TIME_ALLOCATIONS t
775: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
776: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
777: fnd_msg_pub.ADD;
778: END IF;
779: RAISE fnd_api.g_exc_unexpected_error;
780: END IF;
781:
782: UPDATE OZF_PRODUCT_ALLOCATIONS p
783: SET p.TARGET = p.TARGET + l_diff_target,
793: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
794: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
795: fnd_msg_pub.ADD;
796: END IF;
797: RAISE fnd_api.g_exc_unexpected_error;
798: END IF;
799: ---------------------------------------------------------------------------------------------------
800: */
801:
823: -- -----------------------------------------------------------------
824: PROCEDURE create_old_fact_product_spread
825: (
826: p_api_version IN NUMBER,
827: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
828: p_commit IN VARCHAR2 := FND_API.G_FALSE,
829: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
830: x_return_status OUT NOCOPY VARCHAR2,
831: x_error_number OUT NOCOPY NUMBER,
824: PROCEDURE create_old_fact_product_spread
825: (
826: p_api_version IN NUMBER,
827: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
828: p_commit IN VARCHAR2 := FND_API.G_FALSE,
829: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
830: x_return_status OUT NOCOPY VARCHAR2,
831: x_error_number OUT NOCOPY NUMBER,
832: x_error_message OUT NOCOPY VARCHAR2,
825: (
826: p_api_version IN NUMBER,
827: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
828: p_commit IN VARCHAR2 := FND_API.G_FALSE,
829: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
830: x_return_status OUT NOCOPY VARCHAR2,
831: x_error_number OUT NOCOPY NUMBER,
832: x_error_message OUT NOCOPY VARCHAR2,
833: p_fact_id IN NUMBER
1085: -- Standard Start of API savepoint
1086: SAVEPOINT create_old_fact_product_spread;
1087:
1088: -- Standard call to check for call compatibility.
1089: IF NOT FND_API.compatible_api_call(l_api_version,
1090: p_api_version,
1091: l_api_name,
1092: g_pkg_name)
1093: THEN
1090: p_api_version,
1091: l_api_name,
1092: g_pkg_name)
1093: THEN
1094: RAISE FND_API.g_exc_unexpected_error;
1095: END IF;
1096:
1097: -- Initialize message list if p_init_msg_list is set to TRUE.
1098: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1094: RAISE FND_API.g_exc_unexpected_error;
1095: END IF;
1096:
1097: -- Initialize message list if p_init_msg_list is set to TRUE.
1098: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1099: FND_MSG_PUB.initialize;
1100: END IF;
1101:
1102: -- Initialize API return status to SUCCESS
1099: FND_MSG_PUB.initialize;
1100: END IF;
1101:
1102: -- Initialize API return status to SUCCESS
1103: x_return_status := FND_API.g_ret_sts_success;
1104:
1105: l_fact_id := p_fact_id;
1106:
1107: OPEN fact_csr(l_fact_id);
1433: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN','FACT');
1434: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_fact_id);
1435: fnd_msg_pub.ADD;
1436: END IF;
1437: RAISE fnd_api.g_exc_unexpected_error;
1438: END IF;
1439:
1440:
1441: UPDATE OZF_PRODUCT_ALLOCATIONS p
1454: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN','FACT');
1455: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_fact_id);
1456: fnd_msg_pub.ADD;
1457: END IF;
1458: RAISE fnd_api.g_exc_unexpected_error;
1459: END IF;
1460:
1461: END IF;
1462:
1473: WHEN OZF_TP_DIFF_TIME_SPREAD THEN
1474: ROLLBACK TO create_old_fact_product_spread;
1475: FND_MESSAGE.set_name('OZF', 'OZF_TP_DIFF_TIME_SPREAD_TXT');
1476: FND_MSG_PUB.add;
1477: x_return_status := FND_API.g_ret_sts_error ;
1478: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1479: p_data => x_error_message);
1480: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : TIME SPREAD MISMATCH EXCEPTION = '||sqlerrm(sqlcode));
1481: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DIFF_TIME_SPREAD_TXT'));
1483: WHEN OZF_TP_BLANK_PERIOD_TBL THEN
1484: ROLLBACK TO create_old_fact_product_spread;
1485: FND_MESSAGE.set_name('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT');
1486: FND_MSG_PUB.add;
1487: x_return_status := FND_API.g_ret_sts_error ;
1488: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1489: p_data => x_error_message);
1490: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
1491: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
1489: p_data => x_error_message);
1490: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
1491: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
1492:
1493: WHEN FND_API.G_EXC_ERROR THEN
1494: ROLLBACK TO create_old_fact_product_spread;
1495: x_return_status := FND_API.g_ret_sts_error ;
1496: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1497: p_data => x_error_message);
1491: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
1492:
1493: WHEN FND_API.G_EXC_ERROR THEN
1494: ROLLBACK TO create_old_fact_product_spread;
1495: x_return_status := FND_API.g_ret_sts_error ;
1496: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1497: p_data => x_error_message);
1498:
1499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1495: x_return_status := FND_API.g_ret_sts_error ;
1496: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1497: p_data => x_error_message);
1498:
1499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1500: ROLLBACK TO create_old_fact_product_spread;
1501: x_return_status := FND_API.g_ret_sts_unexp_error ;
1502: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
1503: p_data => x_error_message);
1497: p_data => x_error_message);
1498:
1499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1500: ROLLBACK TO create_old_fact_product_spread;
1501: x_return_status := FND_API.g_ret_sts_unexp_error ;
1502: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
1503: p_data => x_error_message);
1504:
1505: WHEN OTHERS THEN
1503: p_data => x_error_message);
1504:
1505: WHEN OTHERS THEN
1506: ROLLBACK TO create_old_fact_product_spread;
1507: x_return_status := FND_API.g_ret_sts_unexp_error ;
1508: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1509: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1510: END IF;
1511: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
1532: -- -----------------------------------------------------------------
1533: PROCEDURE create_fact_product_spread
1534: (
1535: p_api_version IN NUMBER,
1536: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1537: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1538: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1539: x_return_status OUT NOCOPY VARCHAR2,
1540: x_error_number OUT NOCOPY NUMBER,
1533: PROCEDURE create_fact_product_spread
1534: (
1535: p_api_version IN NUMBER,
1536: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1537: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1538: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1539: x_return_status OUT NOCOPY VARCHAR2,
1540: x_error_number OUT NOCOPY NUMBER,
1541: x_error_message OUT NOCOPY VARCHAR2,
1534: (
1535: p_api_version IN NUMBER,
1536: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1537: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1538: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1539: x_return_status OUT NOCOPY VARCHAR2,
1540: x_error_number OUT NOCOPY NUMBER,
1541: x_error_message OUT NOCOPY VARCHAR2,
1542: p_fact_id IN NUMBER
1796: -- Standard Start of API savepoint
1797: SAVEPOINT create_fact_product_spread;
1798:
1799: -- Standard call to check for call compatibility.
1800: IF NOT FND_API.compatible_api_call(l_api_version,
1801: p_api_version,
1802: l_api_name,
1803: g_pkg_name)
1804: THEN
1801: p_api_version,
1802: l_api_name,
1803: g_pkg_name)
1804: THEN
1805: RAISE FND_API.g_exc_unexpected_error;
1806: END IF;
1807:
1808: -- Initialize message list if p_init_msg_list is set to TRUE.
1809: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1805: RAISE FND_API.g_exc_unexpected_error;
1806: END IF;
1807:
1808: -- Initialize message list if p_init_msg_list is set to TRUE.
1809: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1810: FND_MSG_PUB.initialize;
1811: END IF;
1812:
1813: -- Initialize API return status to SUCCESS
1810: FND_MSG_PUB.initialize;
1811: END IF;
1812:
1813: -- Initialize API return status to SUCCESS
1814: x_return_status := FND_API.g_ret_sts_success;
1815:
1816: l_fact_id := p_fact_id;
1817:
1818: OPEN fact_csr(l_fact_id);
2142: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
2143: fnd_msg_pub.ADD;
2144: END IF;
2145:
2146: RAISE fnd_api.g_exc_unexpected_error;
2147: END IF;
2148:
2149: UPDATE OZF_PRODUCT_ALLOCATIONS p
2150: SET p.TARGET = (SELECT SUM(ti.TARGET)
2163: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
2164: fnd_msg_pub.ADD;
2165: END IF;
2166:
2167: RAISE fnd_api.g_exc_unexpected_error;
2168: END IF;
2169:
2170:
2171:
2193: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
2194: fnd_msg_pub.ADD;
2195: END IF;
2196:
2197: RAISE fnd_api.g_exc_unexpected_error;
2198: END IF;
2199: */
2200: UPDATE OZF_TIME_ALLOCATIONS t
2201: SET t.TARGET = ROUND((NVL(l_fact_rec.recommend_total_amount, 0) / l_denominator), 0),
2214: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2215: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
2216: fnd_msg_pub.ADD;
2217: END IF;
2218: RAISE fnd_api.g_exc_unexpected_error;
2219: END IF;
2220:
2221: UPDATE OZF_PRODUCT_ALLOCATIONS p
2222: SET p.TARGET = (SELECT SUM(ti.TARGET)
2236: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
2237: fnd_msg_pub.ADD;
2238: END IF;
2239:
2240: RAISE fnd_api.g_exc_unexpected_error;
2241: END IF;
2242:
2243:
2244: END IF;
2295: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2296: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
2297: fnd_msg_pub.ADD;
2298: END IF;
2299: RAISE fnd_api.g_exc_unexpected_error;
2300: END IF;
2301:
2302: UPDATE OZF_PRODUCT_ALLOCATIONS p
2303: SET p.TARGET = p.TARGET + l_diff_target,
2313: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2314: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
2315: fnd_msg_pub.ADD;
2316: END IF;
2317: RAISE fnd_api.g_exc_unexpected_error;
2318: END IF;
2319: */
2320:
2321:
2334: WHEN OZF_TP_DIFF_TIME_SPREAD THEN
2335: ROLLBACK TO create_fact_product_spread;
2336: FND_MESSAGE.set_name('OZF', 'OZF_TP_DIFF_TIME_SPREAD_TXT');
2337: FND_MSG_PUB.add;
2338: x_return_status := FND_API.g_ret_sts_error ;
2339: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2340: p_data => x_error_message);
2341: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : TIME SPREAD MISMATCH EXCEPTION = '||sqlerrm(sqlcode));
2342: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DIFF_TIME_SPREAD_TXT'));
2344: WHEN OZF_TP_BLANK_PERIOD_TBL THEN
2345: ROLLBACK TO create_fact_product_spread;
2346: FND_MESSAGE.set_name('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT');
2347: FND_MSG_PUB.add;
2348: x_return_status := FND_API.g_ret_sts_error ;
2349: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2350: p_data => x_error_message);
2351: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
2352: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
2350: p_data => x_error_message);
2351: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
2352: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
2353:
2354: WHEN FND_API.G_EXC_ERROR THEN
2355: ROLLBACK TO create_fact_product_spread;
2356: x_return_status := FND_API.g_ret_sts_error ;
2357: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2358: p_data => x_error_message);
2352: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
2353:
2354: WHEN FND_API.G_EXC_ERROR THEN
2355: ROLLBACK TO create_fact_product_spread;
2356: x_return_status := FND_API.g_ret_sts_error ;
2357: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2358: p_data => x_error_message);
2359:
2360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2356: x_return_status := FND_API.g_ret_sts_error ;
2357: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2358: p_data => x_error_message);
2359:
2360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2361: ROLLBACK TO create_fact_product_spread;
2362: x_return_status := FND_API.g_ret_sts_unexp_error ;
2363: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
2364: p_data => x_error_message);
2358: p_data => x_error_message);
2359:
2360: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2361: ROLLBACK TO create_fact_product_spread;
2362: x_return_status := FND_API.g_ret_sts_unexp_error ;
2363: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
2364: p_data => x_error_message);
2365:
2366: WHEN OTHERS THEN
2364: p_data => x_error_message);
2365:
2366: WHEN OTHERS THEN
2367: ROLLBACK TO create_fact_product_spread;
2368: x_return_status := FND_API.g_ret_sts_unexp_error ;
2369: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2370: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2371: END IF;
2372: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
2390: -- -----------------------------------------------------------------
2391: PROCEDURE create_root_product_spread
2392: (
2393: p_api_version IN NUMBER,
2394: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2395: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2396: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2397: x_return_status OUT NOCOPY VARCHAR2,
2398: x_error_number OUT NOCOPY NUMBER,
2391: PROCEDURE create_root_product_spread
2392: (
2393: p_api_version IN NUMBER,
2394: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2395: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2396: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2397: x_return_status OUT NOCOPY VARCHAR2,
2398: x_error_number OUT NOCOPY NUMBER,
2399: x_error_message OUT NOCOPY VARCHAR2,
2392: (
2393: p_api_version IN NUMBER,
2394: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2395: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2396: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2397: x_return_status OUT NOCOPY VARCHAR2,
2398: x_error_number OUT NOCOPY NUMBER,
2399: x_error_message OUT NOCOPY VARCHAR2,
2400: p_fund_id IN NUMBER
2617: -- Standard Start of API savepoint
2618: SAVEPOINT create_root_product_spread;
2619:
2620: -- Standard call to check for call compatibility.
2621: IF NOT FND_API.compatible_api_call(l_api_version,
2622: p_api_version,
2623: l_api_name,
2624: g_pkg_name)
2625: THEN
2622: p_api_version,
2623: l_api_name,
2624: g_pkg_name)
2625: THEN
2626: RAISE FND_API.g_exc_unexpected_error;
2627: END IF;
2628:
2629: -- Initialize message list if p_init_msg_list is set to TRUE.
2630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2626: RAISE FND_API.g_exc_unexpected_error;
2627: END IF;
2628:
2629: -- Initialize message list if p_init_msg_list is set to TRUE.
2630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2631: FND_MSG_PUB.initialize;
2632: END IF;
2633:
2634: -- Initialize API return status to SUCCESS
2631: FND_MSG_PUB.initialize;
2632: END IF;
2633:
2634: -- Initialize API return status to SUCCESS
2635: x_return_status := FND_API.g_ret_sts_success;
2636:
2637: l_fund_id := p_fund_id;
2638:
2639: OPEN fund_csr(l_fund_id);
3156: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
3157: fnd_msg_pub.ADD;
3158: END IF;
3159:
3160: RAISE fnd_api.g_exc_unexpected_error;
3161: END IF;
3162: */
3163:
3164: UPDATE OZF_TIME_ALLOCATIONS t
3178: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
3179: fnd_msg_pub.ADD;
3180: END IF;
3181:
3182: RAISE fnd_api.g_exc_unexpected_error;
3183: END IF;
3184:
3185:
3186: UPDATE OZF_PRODUCT_ALLOCATIONS p
3200: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
3201: fnd_msg_pub.ADD;
3202: END IF;
3203:
3204: RAISE fnd_api.g_exc_unexpected_error;
3205: END IF;
3206:
3207:
3208:
3231: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
3232: fnd_msg_pub.ADD;
3233: END IF;
3234:
3235: RAISE fnd_api.g_exc_unexpected_error;
3236: END IF;
3237: */
3238: UPDATE OZF_TIME_ALLOCATIONS t
3239: SET t.TARGET = ROUND((l_total_root_quota / l_denominator), 0),
3252: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3253: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
3254: fnd_msg_pub.ADD;
3255: END IF;
3256: RAISE fnd_api.g_exc_unexpected_error;
3257: END IF;
3258:
3259:
3260: UPDATE OZF_PRODUCT_ALLOCATIONS p
3275: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
3276: fnd_msg_pub.ADD;
3277: END IF;
3278:
3279: RAISE fnd_api.g_exc_unexpected_error;
3280: END IF;
3281:
3282:
3283: -------BEGIN: ORIGINAL FIX for difference due to ROUNDING --------------------------------------------------|
3434: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3435: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
3436: fnd_msg_pub.ADD;
3437: END IF;
3438: RAISE fnd_api.g_exc_unexpected_error;
3439: END IF;
3440: END IF;
3441:
3442: --------END : NEW FIX for difference due to ROUNDING --------------------------------------------------|
3450: WHEN OZF_TP_BLANK_PERIOD_TBL THEN
3451: ROLLBACK TO create_root_product_spread;
3452: FND_MESSAGE.set_name('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT');
3453: FND_MSG_PUB.add;
3454: x_return_status := FND_API.g_ret_sts_error ;
3455: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3456: p_data => x_error_message);
3457: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
3458: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
3456: p_data => x_error_message);
3457: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
3458: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
3459:
3460: WHEN FND_API.G_EXC_ERROR THEN
3461: ROLLBACK TO create_root_product_spread;
3462: x_return_status := FND_API.g_ret_sts_error ;
3463: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3464: p_data => x_error_message);
3458: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
3459:
3460: WHEN FND_API.G_EXC_ERROR THEN
3461: ROLLBACK TO create_root_product_spread;
3462: x_return_status := FND_API.g_ret_sts_error ;
3463: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3464: p_data => x_error_message);
3465:
3466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3462: x_return_status := FND_API.g_ret_sts_error ;
3463: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3464: p_data => x_error_message);
3465:
3466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3467: ROLLBACK TO create_root_product_spread;
3468: x_return_status := FND_API.g_ret_sts_unexp_error ;
3469: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3470: p_data => x_error_message);
3464: p_data => x_error_message);
3465:
3466: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3467: ROLLBACK TO create_root_product_spread;
3468: x_return_status := FND_API.g_ret_sts_unexp_error ;
3469: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3470: p_data => x_error_message);
3471:
3472: WHEN OTHERS THEN
3470: p_data => x_error_message);
3471:
3472: WHEN OTHERS THEN
3473: ROLLBACK TO create_root_product_spread;
3474: x_return_status := FND_API.g_ret_sts_unexp_error ;
3475: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3476: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3477: END IF;
3478: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3499: -- -----------------------------------------------------------------
3500: PROCEDURE publish_fact_product_spread
3501: (
3502: p_api_version IN NUMBER,
3503: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3504: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3505: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3506: x_return_status OUT NOCOPY VARCHAR2,
3507: x_error_number OUT NOCOPY NUMBER,
3500: PROCEDURE publish_fact_product_spread
3501: (
3502: p_api_version IN NUMBER,
3503: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3504: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3505: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3506: x_return_status OUT NOCOPY VARCHAR2,
3507: x_error_number OUT NOCOPY NUMBER,
3508: x_error_message OUT NOCOPY VARCHAR2,
3501: (
3502: p_api_version IN NUMBER,
3503: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3504: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3505: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3506: x_return_status OUT NOCOPY VARCHAR2,
3507: x_error_number OUT NOCOPY NUMBER,
3508: x_error_message OUT NOCOPY VARCHAR2,
3509: p_fact_id IN NUMBER
3546: -- Standard Start of API savepoint
3547: SAVEPOINT publish_fact_product_spread;
3548:
3549: -- Standard call to check for call compatibility.
3550: IF NOT FND_API.compatible_api_call(l_api_version,
3551: p_api_version,
3552: l_api_name,
3553: g_pkg_name)
3554: THEN
3551: p_api_version,
3552: l_api_name,
3553: g_pkg_name)
3554: THEN
3555: RAISE FND_API.g_exc_unexpected_error;
3556: END IF;
3557:
3558: -- Initialize message list if p_init_msg_list is set to TRUE.
3559: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3555: RAISE FND_API.g_exc_unexpected_error;
3556: END IF;
3557:
3558: -- Initialize message list if p_init_msg_list is set to TRUE.
3559: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3560: FND_MSG_PUB.initialize;
3561: END IF;
3562:
3563: -- Initialize API return status to SUCCESS
3560: FND_MSG_PUB.initialize;
3561: END IF;
3562:
3563: -- Initialize API return status to SUCCESS
3564: x_return_status := FND_API.g_ret_sts_success;
3565:
3566: l_fact_id := p_fact_id;
3567:
3568: OPEN fact_csr(l_fact_id);
3617: WHEN OZF_TP_OPER_NOT_ALLOWED THEN
3618: ROLLBACK TO publish_fact_product_spread;
3619: FND_MESSAGE.set_name('OZF', 'OZF_TP_OPER_NOT_ALLOWED_TXT');
3620: FND_MSG_PUB.add;
3621: x_return_status := FND_API.g_ret_sts_error ;
3622: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3623: p_data => x_error_message);
3624: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_OPER_NOT_ALLOWED_TXT'));
3625:
3622: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3623: p_data => x_error_message);
3624: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_OPER_NOT_ALLOWED_TXT'));
3625:
3626: WHEN FND_API.G_EXC_ERROR THEN
3627: ROLLBACK TO publish_fact_product_spread;
3628: x_return_status := FND_API.g_ret_sts_error ;
3629: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3630: p_data => x_error_message);
3624: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_OPER_NOT_ALLOWED_TXT'));
3625:
3626: WHEN FND_API.G_EXC_ERROR THEN
3627: ROLLBACK TO publish_fact_product_spread;
3628: x_return_status := FND_API.g_ret_sts_error ;
3629: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3630: p_data => x_error_message);
3631:
3632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3628: x_return_status := FND_API.g_ret_sts_error ;
3629: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3630: p_data => x_error_message);
3631:
3632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3633: ROLLBACK TO publish_fact_product_spread;
3634: x_return_status := FND_API.g_ret_sts_unexp_error ;
3635: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3636: p_data => x_error_message);
3630: p_data => x_error_message);
3631:
3632: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3633: ROLLBACK TO publish_fact_product_spread;
3634: x_return_status := FND_API.g_ret_sts_unexp_error ;
3635: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3636: p_data => x_error_message);
3637:
3638: WHEN OTHERS THEN
3636: p_data => x_error_message);
3637:
3638: WHEN OTHERS THEN
3639: ROLLBACK TO publish_fact_product_spread;
3640: x_return_status := FND_API.g_ret_sts_unexp_error ;
3641: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3642: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3643: END IF;
3644: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3657: -- ------------------------------------------------------------------------
3658: PROCEDURE delete_fact_product_spread
3659: (
3660: p_api_version IN NUMBER,
3661: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3662: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3663: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3664: x_return_status OUT NOCOPY VARCHAR2,
3665: x_error_number OUT NOCOPY NUMBER,
3658: PROCEDURE delete_fact_product_spread
3659: (
3660: p_api_version IN NUMBER,
3661: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3662: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3663: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3664: x_return_status OUT NOCOPY VARCHAR2,
3665: x_error_number OUT NOCOPY NUMBER,
3666: x_error_message OUT NOCOPY VARCHAR2,
3659: (
3660: p_api_version IN NUMBER,
3661: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3662: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3663: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3664: x_return_status OUT NOCOPY VARCHAR2,
3665: x_error_number OUT NOCOPY NUMBER,
3666: x_error_message OUT NOCOPY VARCHAR2,
3667: p_fact_id IN NUMBER
3691: -- Standard Start of API savepoint
3692: SAVEPOINT delete_fact_product_spread;
3693:
3694: -- Standard call to check for call compatibility.
3695: IF NOT FND_API.compatible_api_call(l_api_version,
3696: p_api_version,
3697: l_api_name,
3698: g_pkg_name)
3699: THEN
3696: p_api_version,
3697: l_api_name,
3698: g_pkg_name)
3699: THEN
3700: RAISE FND_API.g_exc_unexpected_error;
3701: END IF;
3702:
3703: -- Initialize message list if p_init_msg_list is set to TRUE.
3704: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3700: RAISE FND_API.g_exc_unexpected_error;
3701: END IF;
3702:
3703: -- Initialize message list if p_init_msg_list is set to TRUE.
3704: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3705: FND_MSG_PUB.initialize;
3706: END IF;
3707:
3708: -- Initialize API return status to SUCCESS
3705: FND_MSG_PUB.initialize;
3706: END IF;
3707:
3708: -- Initialize API return status to SUCCESS
3709: x_return_status := FND_API.g_ret_sts_success;
3710:
3711: l_fact_id := p_fact_id;
3712:
3713: ------- Start Deleting Product and Time Allocation Records -----------------------
3731: || 'FOR Fact_id = '|| l_fact_id || ' ; ');
3732: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- end');
3733:
3734: EXCEPTION
3735: WHEN FND_API.G_EXC_ERROR THEN
3736: ROLLBACK TO delete_fact_product_spread;
3737: x_return_status := FND_API.g_ret_sts_error ;
3738: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3739: p_data => x_error_message);
3733:
3734: EXCEPTION
3735: WHEN FND_API.G_EXC_ERROR THEN
3736: ROLLBACK TO delete_fact_product_spread;
3737: x_return_status := FND_API.g_ret_sts_error ;
3738: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3739: p_data => x_error_message);
3740:
3741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3737: x_return_status := FND_API.g_ret_sts_error ;
3738: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3739: p_data => x_error_message);
3740:
3741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3742: ROLLBACK TO delete_fact_product_spread;
3743: x_return_status := FND_API.g_ret_sts_unexp_error ;
3744: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3745: p_data => x_error_message);
3739: p_data => x_error_message);
3740:
3741: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3742: ROLLBACK TO delete_fact_product_spread;
3743: x_return_status := FND_API.g_ret_sts_unexp_error ;
3744: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3745: p_data => x_error_message);
3746:
3747: WHEN OTHERS THEN
3745: p_data => x_error_message);
3746:
3747: WHEN OTHERS THEN
3748: ROLLBACK TO delete_fact_product_spread;
3749: x_return_status := FND_API.g_ret_sts_unexp_error ;
3750: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3751: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3752: END IF;
3753: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3767: -- --------------------------------------------------------------------
3768: PROCEDURE delete_cascade_product_spread
3769: (
3770: p_api_version IN NUMBER,
3771: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3772: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3773: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3774: x_return_status OUT NOCOPY VARCHAR2,
3775: x_error_number OUT NOCOPY NUMBER,
3768: PROCEDURE delete_cascade_product_spread
3769: (
3770: p_api_version IN NUMBER,
3771: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3772: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3773: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3774: x_return_status OUT NOCOPY VARCHAR2,
3775: x_error_number OUT NOCOPY NUMBER,
3776: x_error_message OUT NOCOPY VARCHAR2,
3769: (
3770: p_api_version IN NUMBER,
3771: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3772: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3773: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3774: x_return_status OUT NOCOPY VARCHAR2,
3775: x_error_number OUT NOCOPY NUMBER,
3776: x_error_message OUT NOCOPY VARCHAR2,
3777: p_fund_id IN NUMBER
3865: -- Standard Start of API savepoint
3866: SAVEPOINT delete_cascade_product_spread;
3867:
3868: -- Standard call to check for call compatibility.
3869: IF NOT FND_API.compatible_api_call(l_api_version,
3870: p_api_version,
3871: l_api_name,
3872: g_pkg_name)
3873: THEN
3870: p_api_version,
3871: l_api_name,
3872: g_pkg_name)
3873: THEN
3874: RAISE FND_API.g_exc_unexpected_error;
3875: END IF;
3876:
3877: -- Initialize message list if p_init_msg_list is set to TRUE.
3878: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3874: RAISE FND_API.g_exc_unexpected_error;
3875: END IF;
3876:
3877: -- Initialize message list if p_init_msg_list is set to TRUE.
3878: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3879: FND_MSG_PUB.initialize;
3880: END IF;
3881:
3882: -- Initialize API return status to SUCCESS
3879: FND_MSG_PUB.initialize;
3880: END IF;
3881:
3882: -- Initialize API return status to SUCCESS
3883: x_return_status := FND_API.g_ret_sts_success;
3884:
3885: l_fund_id := p_fund_id;
3886:
3887: OPEN fund_csr(l_fund_id);
3951: WHEN OZF_TP_CHG_PS_NOT_ALLOWED THEN
3952: ROLLBACK TO delete_cascade_product_spread;
3953: FND_MESSAGE.set_name('OZF', 'OZF_TP_CHG_PS_NOT_ALLOWED_TXT');
3954: FND_MSG_PUB.add;
3955: x_return_status := FND_API.g_ret_sts_error ;
3956: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3957: p_data => x_error_message);
3958: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_CHG_PS_NOT_ALLOWED_TXT'));
3959:
3956: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3957: p_data => x_error_message);
3958: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_CHG_PS_NOT_ALLOWED_TXT'));
3959:
3960: WHEN FND_API.G_EXC_ERROR THEN
3961: ROLLBACK TO delete_cascade_product_spread;
3962: x_return_status := FND_API.g_ret_sts_error ;
3963: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3964: p_data => x_error_message);
3958: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_CHG_PS_NOT_ALLOWED_TXT'));
3959:
3960: WHEN FND_API.G_EXC_ERROR THEN
3961: ROLLBACK TO delete_cascade_product_spread;
3962: x_return_status := FND_API.g_ret_sts_error ;
3963: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3964: p_data => x_error_message);
3965:
3966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3962: x_return_status := FND_API.g_ret_sts_error ;
3963: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3964: p_data => x_error_message);
3965:
3966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3967: ROLLBACK TO delete_cascade_product_spread;
3968: x_return_status := FND_API.g_ret_sts_unexp_error ;
3969: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3970: p_data => x_error_message);
3964: p_data => x_error_message);
3965:
3966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3967: ROLLBACK TO delete_cascade_product_spread;
3968: x_return_status := FND_API.g_ret_sts_unexp_error ;
3969: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3970: p_data => x_error_message);
3971:
3972: WHEN OTHERS THEN
3970: p_data => x_error_message);
3971:
3972: WHEN OTHERS THEN
3973: ROLLBACK TO delete_cascade_product_spread;
3974: x_return_status := FND_API.g_ret_sts_unexp_error ;
3975: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3976: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3977: END IF;
3978: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3994: -- -----------------------------------------------------------------
3995: PROCEDURE add_cascade_product_spread
3996: (
3997: p_api_version IN NUMBER,
3998: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3999: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4000: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4001: x_return_status OUT NOCOPY VARCHAR2,
4002: x_error_number OUT NOCOPY NUMBER,
3995: PROCEDURE add_cascade_product_spread
3996: (
3997: p_api_version IN NUMBER,
3998: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3999: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4000: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4001: x_return_status OUT NOCOPY VARCHAR2,
4002: x_error_number OUT NOCOPY NUMBER,
4003: x_error_message OUT NOCOPY VARCHAR2,
3996: (
3997: p_api_version IN NUMBER,
3998: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3999: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4000: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4001: x_return_status OUT NOCOPY VARCHAR2,
4002: x_error_number OUT NOCOPY NUMBER,
4003: x_error_message OUT NOCOPY VARCHAR2,
4004: p_fund_id IN NUMBER,
4175: -- Standard Start of API savepoint
4176: SAVEPOINT add_cascade_product_spread;
4177:
4178: -- Standard call to check for call compatibility.
4179: IF NOT FND_API.compatible_api_call(l_api_version,
4180: p_api_version,
4181: l_api_name,
4182: g_pkg_name)
4183: THEN
4180: p_api_version,
4181: l_api_name,
4182: g_pkg_name)
4183: THEN
4184: RAISE FND_API.g_exc_unexpected_error;
4185: END IF;
4186:
4187: -- Initialize message list if p_init_msg_list is set to TRUE.
4188: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4184: RAISE FND_API.g_exc_unexpected_error;
4185: END IF;
4186:
4187: -- Initialize message list if p_init_msg_list is set to TRUE.
4188: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4189: FND_MSG_PUB.initialize;
4190: END IF;
4191:
4192: -- Initialize API return status to SUCCESS
4189: FND_MSG_PUB.initialize;
4190: END IF;
4191:
4192: -- Initialize API return status to SUCCESS
4193: x_return_status := FND_API.g_ret_sts_success;
4194:
4195: l_fund_id := p_fund_id;
4196:
4197: OPEN fund_csr(l_fund_id);
4387: WHEN OZF_TP_ADDITEM_NOT_ALLOWED THEN
4388: ROLLBACK TO add_cascade_product_spread;
4389: FND_MESSAGE.set_name('OZF', 'OZF_TP_ADDITEM_NOT_ALLOWED_TXT');
4390: FND_MSG_PUB.add;
4391: x_return_status := FND_API.g_ret_sts_error ;
4392: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4393: p_data => x_error_message);
4394: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_ADDITEM_NOT_ALLOWED_TXT'));
4395:
4392: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4393: p_data => x_error_message);
4394: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_ADDITEM_NOT_ALLOWED_TXT'));
4395:
4396: WHEN FND_API.G_EXC_ERROR THEN
4397: ROLLBACK TO add_cascade_product_spread;
4398: x_return_status := FND_API.g_ret_sts_error ;
4399: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4400: p_data => x_error_message);
4394: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_ADDITEM_NOT_ALLOWED_TXT'));
4395:
4396: WHEN FND_API.G_EXC_ERROR THEN
4397: ROLLBACK TO add_cascade_product_spread;
4398: x_return_status := FND_API.g_ret_sts_error ;
4399: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4400: p_data => x_error_message);
4401:
4402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4398: x_return_status := FND_API.g_ret_sts_error ;
4399: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4400: p_data => x_error_message);
4401:
4402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4403: ROLLBACK TO add_cascade_product_spread;
4404: x_return_status := FND_API.g_ret_sts_unexp_error ;
4405: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4406: p_data => x_error_message);
4400: p_data => x_error_message);
4401:
4402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4403: ROLLBACK TO add_cascade_product_spread;
4404: x_return_status := FND_API.g_ret_sts_unexp_error ;
4405: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4406: p_data => x_error_message);
4407:
4408: WHEN OTHERS THEN
4406: p_data => x_error_message);
4407:
4408: WHEN OTHERS THEN
4409: ROLLBACK TO add_cascade_product_spread;
4410: x_return_status := FND_API.g_ret_sts_unexp_error ;
4411: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4412: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4413: END IF;
4414: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4433: -- -----------------------------------------------------------------
4434: PROCEDURE delete_single_product
4435: (
4436: p_api_version IN NUMBER,
4437: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4438: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4439: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4440: x_return_status OUT NOCOPY VARCHAR2,
4441: x_error_number OUT NOCOPY NUMBER,
4434: PROCEDURE delete_single_product
4435: (
4436: p_api_version IN NUMBER,
4437: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4438: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4439: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4440: x_return_status OUT NOCOPY VARCHAR2,
4441: x_error_number OUT NOCOPY NUMBER,
4442: x_error_message OUT NOCOPY VARCHAR2,
4435: (
4436: p_api_version IN NUMBER,
4437: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4438: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4439: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4440: x_return_status OUT NOCOPY VARCHAR2,
4441: x_error_number OUT NOCOPY NUMBER,
4442: x_error_message OUT NOCOPY VARCHAR2,
4443: p_fund_id IN NUMBER,
4617: -- Standard Start of API savepoint
4618: SAVEPOINT delete_single_product;
4619:
4620: -- Standard call to check for call compatibility.
4621: IF NOT FND_API.compatible_api_call(l_api_version,
4622: p_api_version,
4623: l_api_name,
4624: g_pkg_name)
4625: THEN
4622: p_api_version,
4623: l_api_name,
4624: g_pkg_name)
4625: THEN
4626: RAISE FND_API.g_exc_unexpected_error;
4627: END IF;
4628:
4629: -- Initialize message list if p_init_msg_list is set to TRUE.
4630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4626: RAISE FND_API.g_exc_unexpected_error;
4627: END IF;
4628:
4629: -- Initialize message list if p_init_msg_list is set to TRUE.
4630: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4631: FND_MSG_PUB.initialize;
4632: END IF;
4633:
4634: -- Initialize API return status to SUCCESS
4631: FND_MSG_PUB.initialize;
4632: END IF;
4633:
4634: -- Initialize API return status to SUCCESS
4635: x_return_status := FND_API.g_ret_sts_success;
4636:
4637: l_fund_id := p_fund_id;
4638:
4639: OPEN fund_csr(l_fund_id);
4742: WHEN OZF_TP_DELITEM_NOT_ALLOWED THEN
4743: ROLLBACK TO delete_single_product;
4744: FND_MESSAGE.set_name('OZF', 'OZF_TP_DELITEM_NOT_ALLOWED_TXT');
4745: FND_MSG_PUB.add;
4746: x_return_status := FND_API.g_ret_sts_error ;
4747: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4748: p_data => x_error_message);
4749: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DELITEM_NOT_ALLOWED_TXT'));
4750:
4747: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4748: p_data => x_error_message);
4749: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DELITEM_NOT_ALLOWED_TXT'));
4750:
4751: WHEN FND_API.G_EXC_ERROR THEN
4752: ROLLBACK TO delete_single_product;
4753: x_return_status := FND_API.g_ret_sts_error ;
4754: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4755: p_data => x_error_message);
4749: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DELITEM_NOT_ALLOWED_TXT'));
4750:
4751: WHEN FND_API.G_EXC_ERROR THEN
4752: ROLLBACK TO delete_single_product;
4753: x_return_status := FND_API.g_ret_sts_error ;
4754: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4755: p_data => x_error_message);
4756:
4757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4753: x_return_status := FND_API.g_ret_sts_error ;
4754: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4755: p_data => x_error_message);
4756:
4757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4758: ROLLBACK TO delete_single_product;
4759: x_return_status := FND_API.g_ret_sts_unexp_error ;
4760: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4761: p_data => x_error_message);
4755: p_data => x_error_message);
4756:
4757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4758: ROLLBACK TO delete_single_product;
4759: x_return_status := FND_API.g_ret_sts_unexp_error ;
4760: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4761: p_data => x_error_message);
4762:
4763: WHEN OTHERS THEN
4761: p_data => x_error_message);
4762:
4763: WHEN OTHERS THEN
4764: ROLLBACK TO delete_single_product;
4765: x_return_status := FND_API.g_ret_sts_unexp_error ;
4766: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4767: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4768: END IF;
4769: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4783: -- ------------------------------------------------------------------------
4784: PROCEDURE delete_target_allocation
4785: (
4786: p_api_version IN NUMBER,
4787: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4788: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4789: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4790: x_return_status OUT NOCOPY VARCHAR2,
4791: x_error_number OUT NOCOPY NUMBER,
4784: PROCEDURE delete_target_allocation
4785: (
4786: p_api_version IN NUMBER,
4787: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4788: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4789: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4790: x_return_status OUT NOCOPY VARCHAR2,
4791: x_error_number OUT NOCOPY NUMBER,
4792: x_error_message OUT NOCOPY VARCHAR2,
4785: (
4786: p_api_version IN NUMBER,
4787: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4788: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4789: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4790: x_return_status OUT NOCOPY VARCHAR2,
4791: x_error_number OUT NOCOPY NUMBER,
4792: x_error_message OUT NOCOPY VARCHAR2,
4793: p_fund_id IN NUMBER
4827: -- Standard Start of API savepoint
4828: SAVEPOINT delete_target_allocation;
4829:
4830: -- Standard call to check for call compatibility.
4831: IF NOT FND_API.compatible_api_call(l_api_version,
4832: p_api_version,
4833: l_api_name,
4834: g_pkg_name)
4835: THEN
4832: p_api_version,
4833: l_api_name,
4834: g_pkg_name)
4835: THEN
4836: RAISE FND_API.g_exc_unexpected_error;
4837: END IF;
4838:
4839: -- Initialize message list if p_init_msg_list is set to TRUE.
4840: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4836: RAISE FND_API.g_exc_unexpected_error;
4837: END IF;
4838:
4839: -- Initialize message list if p_init_msg_list is set to TRUE.
4840: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4841: FND_MSG_PUB.initialize;
4842: END IF;
4843:
4844: -- Initialize API return status to SUCCESS
4841: FND_MSG_PUB.initialize;
4842: END IF;
4843:
4844: -- Initialize API return status to SUCCESS
4845: x_return_status := FND_API.g_ret_sts_success;
4846:
4847: l_fund_id := p_fund_id;
4848:
4849: ------- Start Deleting Product and Time Allocation Records -----------------------
4882:
4883: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- end');
4884:
4885: EXCEPTION
4886: WHEN FND_API.G_EXC_ERROR THEN
4887: ROLLBACK TO delete_target_allocation;
4888: x_return_status := FND_API.g_ret_sts_error ;
4889: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4890: p_data => x_error_message);
4884:
4885: EXCEPTION
4886: WHEN FND_API.G_EXC_ERROR THEN
4887: ROLLBACK TO delete_target_allocation;
4888: x_return_status := FND_API.g_ret_sts_error ;
4889: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4890: p_data => x_error_message);
4891:
4892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4888: x_return_status := FND_API.g_ret_sts_error ;
4889: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4890: p_data => x_error_message);
4891:
4892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4893: ROLLBACK TO delete_target_allocation;
4894: x_return_status := FND_API.g_ret_sts_unexp_error ;
4895: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4896: p_data => x_error_message);
4890: p_data => x_error_message);
4891:
4892: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4893: ROLLBACK TO delete_target_allocation;
4894: x_return_status := FND_API.g_ret_sts_unexp_error ;
4895: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4896: p_data => x_error_message);
4897:
4898: WHEN OTHERS THEN
4896: p_data => x_error_message);
4897:
4898: WHEN OTHERS THEN
4899: ROLLBACK TO delete_target_allocation;
4900: x_return_status := FND_API.g_ret_sts_unexp_error ;
4901: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4902: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4903: END IF;
4904: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4924: -- -----------------------------------------------------------------
4925: PROCEDURE old_allocate_target_first_time
4926: (
4927: p_api_version IN NUMBER,
4928: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4929: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4930: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4931: x_return_status OUT NOCOPY VARCHAR2,
4932: x_error_number OUT NOCOPY NUMBER,
4925: PROCEDURE old_allocate_target_first_time
4926: (
4927: p_api_version IN NUMBER,
4928: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4929: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4930: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4931: x_return_status OUT NOCOPY VARCHAR2,
4932: x_error_number OUT NOCOPY NUMBER,
4933: x_error_message OUT NOCOPY VARCHAR2,
4926: (
4927: p_api_version IN NUMBER,
4928: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4929: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4930: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4931: x_return_status OUT NOCOPY VARCHAR2,
4932: x_error_number OUT NOCOPY NUMBER,
4933: x_error_message OUT NOCOPY VARCHAR2,
4934: p_fund_id IN NUMBER
5290: SAVEPOINT old_allocate_target_first_time;
5291:
5292:
5293: -- Standard call to check for call compatibility.
5294: IF NOT FND_API.compatible_api_call(l_api_version,
5295: p_api_version,
5296: l_api_name,
5297: g_pkg_name)
5298: THEN
5295: p_api_version,
5296: l_api_name,
5297: g_pkg_name)
5298: THEN
5299: RAISE FND_API.g_exc_unexpected_error;
5300: END IF;
5301:
5302: -- Initialize message list if p_init_msg_list is set to TRUE.
5303: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5299: RAISE FND_API.g_exc_unexpected_error;
5300: END IF;
5301:
5302: -- Initialize message list if p_init_msg_list is set to TRUE.
5303: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5304: FND_MSG_PUB.initialize;
5305: END IF;
5306:
5307: -- Initialize API return status to SUCCESS
5304: FND_MSG_PUB.initialize;
5305: END IF;
5306:
5307: -- Initialize API return status to SUCCESS
5308: x_return_status := FND_API.g_ret_sts_success;
5309:
5310: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- start');
5311:
5312: l_fund_id := p_fund_id;
5953: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN','UNALLOCATED FUND');
5954: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_fund_id);
5955: fnd_msg_pub.ADD;
5956: END IF;
5957: RAISE fnd_api.g_exc_unexpected_error;
5958: END IF;
5959:
5960: END IF;
5961: END IF;
5976: WHEN OZF_TP_INVALID_PARAM THEN
5977: ROLLBACK TO old_allocate_target_first_time;
5978: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
5979: FND_MSG_PUB.add;
5980: x_return_status := FND_API.g_ret_sts_error ;
5981: FND_MSG_PUB.count_and_get (p_count => x_error_number,
5982: p_data => x_error_message);
5983: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
5984: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
5982: p_data => x_error_message);
5983: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
5984: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
5985:
5986: WHEN FND_API.G_EXC_ERROR THEN
5987: ROLLBACK TO old_allocate_target_first_time;
5988: x_return_status := FND_API.g_ret_sts_error ;
5989: FND_MSG_PUB.count_and_get (p_count => x_error_number,
5990: p_data => x_error_message);
5984: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
5985:
5986: WHEN FND_API.G_EXC_ERROR THEN
5987: ROLLBACK TO old_allocate_target_first_time;
5988: x_return_status := FND_API.g_ret_sts_error ;
5989: FND_MSG_PUB.count_and_get (p_count => x_error_number,
5990: p_data => x_error_message);
5991:
5992: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5988: x_return_status := FND_API.g_ret_sts_error ;
5989: FND_MSG_PUB.count_and_get (p_count => x_error_number,
5990: p_data => x_error_message);
5991:
5992: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5993: ROLLBACK TO old_allocate_target_first_time;
5994: x_return_status := FND_API.g_ret_sts_unexp_error ;
5995: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
5996: p_data => x_error_message);
5990: p_data => x_error_message);
5991:
5992: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5993: ROLLBACK TO old_allocate_target_first_time;
5994: x_return_status := FND_API.g_ret_sts_unexp_error ;
5995: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
5996: p_data => x_error_message);
5997:
5998: WHEN OTHERS THEN
6002: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
6003: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
6004: FND_MSG_PUB.add;
6005:
6006: x_return_status := FND_API.g_ret_sts_unexp_error ;
6007: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6008: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
6009: END IF;
6010: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
6030: -- -----------------------------------------------------------------
6031: PROCEDURE allocate_target_first_time
6032: (
6033: p_api_version IN NUMBER,
6034: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6035: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6036: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6037: x_return_status OUT NOCOPY VARCHAR2,
6038: x_error_number OUT NOCOPY NUMBER,
6031: PROCEDURE allocate_target_first_time
6032: (
6033: p_api_version IN NUMBER,
6034: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6035: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6036: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6037: x_return_status OUT NOCOPY VARCHAR2,
6038: x_error_number OUT NOCOPY NUMBER,
6039: x_error_message OUT NOCOPY VARCHAR2,
6032: (
6033: p_api_version IN NUMBER,
6034: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6035: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6036: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6037: x_return_status OUT NOCOPY VARCHAR2,
6038: x_error_number OUT NOCOPY NUMBER,
6039: x_error_message OUT NOCOPY VARCHAR2,
6040: p_fund_id IN NUMBER
6402: SAVEPOINT allocate_target_first_time;
6403:
6404:
6405: -- Standard call to check for call compatibility.
6406: IF NOT FND_API.compatible_api_call(l_api_version,
6407: p_api_version,
6408: l_api_name,
6409: g_pkg_name)
6410: THEN
6407: p_api_version,
6408: l_api_name,
6409: g_pkg_name)
6410: THEN
6411: RAISE FND_API.g_exc_unexpected_error;
6412: END IF;
6413:
6414: -- Initialize message list if p_init_msg_list is set to TRUE.
6415: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6411: RAISE FND_API.g_exc_unexpected_error;
6412: END IF;
6413:
6414: -- Initialize message list if p_init_msg_list is set to TRUE.
6415: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6416: FND_MSG_PUB.initialize;
6417: END IF;
6418:
6419: -- Initialize API return status to SUCCESS
6416: FND_MSG_PUB.initialize;
6417: END IF;
6418:
6419: -- Initialize API return status to SUCCESS
6420: x_return_status := FND_API.g_ret_sts_success;
6421:
6422: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- start');
6423:
6424: l_fund_id := p_fund_id;
6717: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
6718: fnd_msg_pub.ADD;
6719: END IF;
6720:
6721: RAISE fnd_api.g_exc_unexpected_error;
6722: END IF;
6723:
6724: EXCEPTION
6725: WHEN OTHERS THEN
6948: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
6949: fnd_msg_pub.ADD;
6950: END IF;
6951:
6952: RAISE fnd_api.g_exc_unexpected_error;
6953: END IF;
6954:
6955: UPDATE OZF_PRODUCT_ALLOCATIONS p
6956: SET p.TARGET = (SELECT SUM(ti.TARGET)
6969: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
6970: fnd_msg_pub.ADD;
6971: END IF;
6972:
6973: RAISE fnd_api.g_exc_unexpected_error;
6974: END IF;
6975:
6976:
6977:
6999: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
7000: fnd_msg_pub.ADD;
7001: END IF;
7002:
7003: RAISE fnd_api.g_exc_unexpected_error;
7004: END IF;
7005: */
7006:
7007: UPDATE OZF_TIME_ALLOCATIONS t
7021: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7022: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7023: fnd_msg_pub.ADD;
7024: END IF;
7025: RAISE fnd_api.g_exc_unexpected_error;
7026: END IF;
7027:
7028: UPDATE OZF_PRODUCT_ALLOCATIONS p
7029: SET p.TARGET = (SELECT SUM(ti.TARGET)
7043: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
7044: fnd_msg_pub.ADD;
7045: END IF;
7046:
7047: RAISE fnd_api.g_exc_unexpected_error;
7048: END IF;
7049:
7050:
7051:
7134: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7135: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7136: fnd_msg_pub.ADD;
7137: END IF;
7138: RAISE fnd_api.g_exc_unexpected_error;
7139: END IF;
7140:
7141: UPDATE OZF_PRODUCT_ALLOCATIONS p
7142: SET p.TARGET = p.TARGET + l_diff_target,
7150: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7151: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
7152: fnd_msg_pub.ADD;
7153: END IF;
7154: RAISE fnd_api.g_exc_unexpected_error;
7155: END IF;
7156: */
7157:
7158:
7177: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7178: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7179: fnd_msg_pub.ADD;
7180: END IF;
7181: RAISE fnd_api.g_exc_unexpected_error;
7182: END IF;
7183:
7184: UPDATE OZF_PRODUCT_ALLOCATIONS p
7185: SET p.TARGET = p.TARGET + l_diff_target,
7195: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7196: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
7197: fnd_msg_pub.ADD;
7198: END IF;
7199: RAISE fnd_api.g_exc_unexpected_error;
7200: END IF;
7201: ---------------------------------------------------------------------------------------------------
7202: */
7203:
7388: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN','UNALLOCATED FUND');
7389: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_fund_id);
7390: fnd_msg_pub.ADD;
7391: END IF;
7392: RAISE fnd_api.g_exc_unexpected_error;
7393: END IF;
7394:
7395: END IF;
7396: END IF;
7448: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7449: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7450: fnd_msg_pub.ADD;
7451: END IF;
7452: RAISE fnd_api.g_exc_unexpected_error;
7453: END IF;
7454:
7455:
7456: UPDATE OZF_ACCOUNT_ALLOCATIONS a
7468: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7469: fnd_msg_pub.ADD;
7470: END IF;
7471:
7472: RAISE fnd_api.g_exc_unexpected_error;
7473: END IF;
7474: */
7475:
7476:
7529: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN','QUOTA');
7530: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_fund_id);
7531: fnd_msg_pub.ADD;
7532: END IF;
7533: RAISE fnd_api.g_exc_unexpected_error;
7534: END IF;
7535:
7536:
7537: -- OZF_UTILITY_PVT.debug_message('4.mkothari--'||'ALL TARGETS AccAllocID=> '||l_temp_account_allocation_id|| ';');
7550: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN', 'ACCOUNT ALLOCATION');
7551: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN', l_temp_account_allocation_id);
7552: fnd_msg_pub.ADD;
7553: END IF;
7554: RAISE fnd_api.g_exc_unexpected_error;
7555: END IF;
7556:
7557:
7558:
7610: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7611: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7612: fnd_msg_pub.ADD;
7613: END IF;
7614: RAISE fnd_api.g_exc_unexpected_error;
7615: END IF;
7616:
7617: UPDATE OZF_PRODUCT_ALLOCATIONS p
7618: SET p.TARGET = p.TARGET + l_diff_target,
7626: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7627: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
7628: fnd_msg_pub.ADD;
7629: END IF;
7630: RAISE fnd_api.g_exc_unexpected_error;
7631: END IF;
7632:
7633: */
7634:
7645: WHEN OZF_TP_INVALID_PARAM THEN
7646: ROLLBACK TO allocate_target_first_time;
7647: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
7648: FND_MSG_PUB.add;
7649: x_return_status := FND_API.g_ret_sts_error ;
7650: FND_MSG_PUB.count_and_get (p_count => x_error_number,
7651: p_data => x_error_message);
7652: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
7653: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
7651: p_data => x_error_message);
7652: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
7653: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
7654:
7655: WHEN FND_API.G_EXC_ERROR THEN
7656: ROLLBACK TO allocate_target_first_time;
7657: x_return_status := FND_API.g_ret_sts_error ;
7658: FND_MSG_PUB.count_and_get (p_count => x_error_number,
7659: p_data => x_error_message);
7653: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
7654:
7655: WHEN FND_API.G_EXC_ERROR THEN
7656: ROLLBACK TO allocate_target_first_time;
7657: x_return_status := FND_API.g_ret_sts_error ;
7658: FND_MSG_PUB.count_and_get (p_count => x_error_number,
7659: p_data => x_error_message);
7660:
7661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7657: x_return_status := FND_API.g_ret_sts_error ;
7658: FND_MSG_PUB.count_and_get (p_count => x_error_number,
7659: p_data => x_error_message);
7660:
7661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7662: ROLLBACK TO allocate_target_first_time;
7663: x_return_status := FND_API.g_ret_sts_unexp_error ;
7664: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
7665: p_data => x_error_message);
7659: p_data => x_error_message);
7660:
7661: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7662: ROLLBACK TO allocate_target_first_time;
7663: x_return_status := FND_API.g_ret_sts_unexp_error ;
7664: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
7665: p_data => x_error_message);
7666:
7667: WHEN OTHERS THEN
7671: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
7672: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
7673: FND_MSG_PUB.add;
7674:
7675: x_return_status := FND_API.g_ret_sts_unexp_error ;
7676: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7677: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7678: END IF;
7679: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
7703: -- -----------------------------------------------------------------
7704: PROCEDURE allocate_target_addon
7705: (
7706: p_api_version IN NUMBER,
7707: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7708: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7709: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7710: x_return_status OUT NOCOPY VARCHAR2,
7711: x_error_number OUT NOCOPY NUMBER,
7704: PROCEDURE allocate_target_addon
7705: (
7706: p_api_version IN NUMBER,
7707: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7708: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7709: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7710: x_return_status OUT NOCOPY VARCHAR2,
7711: x_error_number OUT NOCOPY NUMBER,
7712: x_error_message OUT NOCOPY VARCHAR2,
7705: (
7706: p_api_version IN NUMBER,
7707: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7708: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7709: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7710: x_return_status OUT NOCOPY VARCHAR2,
7711: x_error_number OUT NOCOPY NUMBER,
7712: x_error_message OUT NOCOPY VARCHAR2,
7713: p_fund_id IN NUMBER,
8069: SAVEPOINT allocate_target_addon;
8070:
8071:
8072: -- Standard call to check for call compatibility.
8073: IF NOT FND_API.compatible_api_call(l_api_version,
8074: p_api_version,
8075: l_api_name,
8076: g_pkg_name)
8077: THEN
8074: p_api_version,
8075: l_api_name,
8076: g_pkg_name)
8077: THEN
8078: RAISE FND_API.g_exc_unexpected_error;
8079: END IF;
8080:
8081: -- Initialize message list if p_init_msg_list is set to TRUE.
8082: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8078: RAISE FND_API.g_exc_unexpected_error;
8079: END IF;
8080:
8081: -- Initialize message list if p_init_msg_list is set to TRUE.
8082: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8083: FND_MSG_PUB.initialize;
8084: END IF;
8085:
8086: -- Initialize API return status to SUCCESS
8083: FND_MSG_PUB.initialize;
8084: END IF;
8085:
8086: -- Initialize API return status to SUCCESS
8087: x_return_status := FND_API.g_ret_sts_success;
8088:
8089: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- start');
8090:
8091: l_fund_id := p_fund_id;
8144: );
8145: EXCEPTION
8146: WHEN OTHERS THEN
8147: ROLLBACK TO allocate_target_addon;
8148: x_return_status := FND_API.g_ret_sts_unexp_error ;
8149: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8150: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
8151: END IF;
8152: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8565: WHEN OZF_TP_INVALID_PARAM THEN
8566: ROLLBACK TO allocate_target_addon;
8567: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
8568: FND_MSG_PUB.add;
8569: x_return_status := FND_API.g_ret_sts_error ;
8570: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8571: p_data => x_error_message);
8572: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8573: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8571: p_data => x_error_message);
8572: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8573: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8574:
8575: WHEN FND_API.G_EXC_ERROR THEN
8576: ROLLBACK TO allocate_target_addon;
8577: x_return_status := FND_API.g_ret_sts_error ;
8578: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8579: p_data => x_error_message);
8573: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8574:
8575: WHEN FND_API.G_EXC_ERROR THEN
8576: ROLLBACK TO allocate_target_addon;
8577: x_return_status := FND_API.g_ret_sts_error ;
8578: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8579: p_data => x_error_message);
8580:
8581: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8577: x_return_status := FND_API.g_ret_sts_error ;
8578: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8579: p_data => x_error_message);
8580:
8581: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8582: ROLLBACK TO allocate_target_addon;
8583: x_return_status := FND_API.g_ret_sts_unexp_error ;
8584: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8585: p_data => x_error_message);
8579: p_data => x_error_message);
8580:
8581: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8582: ROLLBACK TO allocate_target_addon;
8583: x_return_status := FND_API.g_ret_sts_unexp_error ;
8584: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8585: p_data => x_error_message);
8586:
8587: WHEN OTHERS THEN
8591: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
8592: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
8593: FND_MSG_PUB.add;
8594:
8595: x_return_status := FND_API.g_ret_sts_unexp_error ;
8596: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8597: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
8598: END IF;
8599: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8661: -- -----------------------------------------------------------------
8662: PROCEDURE setup_product_spread
8663: (
8664: p_api_version IN NUMBER,
8665: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8666: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8667: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8668: x_return_status OUT NOCOPY VARCHAR2,
8669: x_error_number OUT NOCOPY NUMBER,
8662: PROCEDURE setup_product_spread
8663: (
8664: p_api_version IN NUMBER,
8665: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8666: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8667: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8668: x_return_status OUT NOCOPY VARCHAR2,
8669: x_error_number OUT NOCOPY NUMBER,
8670: x_error_message OUT NOCOPY VARCHAR2,
8663: (
8664: p_api_version IN NUMBER,
8665: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8666: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8667: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8668: x_return_status OUT NOCOPY VARCHAR2,
8669: x_error_number OUT NOCOPY NUMBER,
8670: x_error_message OUT NOCOPY VARCHAR2,
8671: p_mode IN VARCHAR2,
8687: SAVEPOINT setup_product_spread;
8688:
8689:
8690: -- Standard call to check for call compatibility.
8691: IF NOT FND_API.compatible_api_call(l_api_version,
8692: p_api_version,
8693: l_api_name,
8694: g_pkg_name)
8695: THEN
8692: p_api_version,
8693: l_api_name,
8694: g_pkg_name)
8695: THEN
8696: RAISE FND_API.g_exc_unexpected_error;
8697: END IF;
8698:
8699: -- Initialize message list if p_init_msg_list is set to TRUE.
8700: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8696: RAISE FND_API.g_exc_unexpected_error;
8697: END IF;
8698:
8699: -- Initialize message list if p_init_msg_list is set to TRUE.
8700: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8701: FND_MSG_PUB.initialize;
8702: END IF;
8703:
8704: -- Initialize API return status to SUCCESS
8701: FND_MSG_PUB.initialize;
8702: END IF;
8703:
8704: -- Initialize API return status to SUCCESS
8705: x_return_status := FND_API.g_ret_sts_success;
8706:
8707: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- start');
8708:
8709: l_mode := p_mode;
8780: END IF;
8781:
8782:
8783: -- If any errors happen abort API.
8784: IF x_return_status = FND_API.g_ret_sts_error THEN
8785: RAISE FND_API.g_exc_error;
8786: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8787: RAISE FND_API.g_exc_unexpected_error;
8788: END IF;
8781:
8782:
8783: -- If any errors happen abort API.
8784: IF x_return_status = FND_API.g_ret_sts_error THEN
8785: RAISE FND_API.g_exc_error;
8786: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8787: RAISE FND_API.g_exc_unexpected_error;
8788: END IF;
8789:
8782:
8783: -- If any errors happen abort API.
8784: IF x_return_status = FND_API.g_ret_sts_error THEN
8785: RAISE FND_API.g_exc_error;
8786: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8787: RAISE FND_API.g_exc_unexpected_error;
8788: END IF;
8789:
8790: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
8783: -- If any errors happen abort API.
8784: IF x_return_status = FND_API.g_ret_sts_error THEN
8785: RAISE FND_API.g_exc_error;
8786: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8787: RAISE FND_API.g_exc_unexpected_error;
8788: END IF;
8789:
8790: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
8791:
8794: WHEN OZF_TP_INVALID_PARAM THEN
8795: ROLLBACK TO setup_product_spread;
8796: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
8797: FND_MSG_PUB.add;
8798: x_return_status := FND_API.g_ret_sts_error ;
8799: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8800: p_data => x_error_message);
8801: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8802: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8800: p_data => x_error_message);
8801: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8802: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8803:
8804: WHEN FND_API.G_EXC_ERROR THEN
8805: ROLLBACK TO setup_product_spread;
8806: x_return_status := FND_API.g_ret_sts_error ;
8807: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8808: p_data => x_error_message);
8802: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8803:
8804: WHEN FND_API.G_EXC_ERROR THEN
8805: ROLLBACK TO setup_product_spread;
8806: x_return_status := FND_API.g_ret_sts_error ;
8807: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8808: p_data => x_error_message);
8809:
8810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8806: x_return_status := FND_API.g_ret_sts_error ;
8807: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8808: p_data => x_error_message);
8809:
8810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8811: ROLLBACK TO setup_product_spread;
8812: x_return_status := FND_API.g_ret_sts_unexp_error ;
8813: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8814: p_data => x_error_message);
8808: p_data => x_error_message);
8809:
8810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8811: ROLLBACK TO setup_product_spread;
8812: x_return_status := FND_API.g_ret_sts_unexp_error ;
8813: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8814: p_data => x_error_message);
8815:
8816: WHEN OTHERS THEN
8820: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
8821: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
8822: FND_MSG_PUB.add;
8823:
8824: x_return_status := FND_API.g_ret_sts_unexp_error ;
8825: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8826: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
8827: END IF;
8828: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8849: -- -----------------------------------------------------------------
8850: PROCEDURE cascade_product_spread
8851: (
8852: p_api_version IN NUMBER,
8853: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8854: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8855: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8856: x_return_status OUT NOCOPY VARCHAR2,
8857: x_error_number OUT NOCOPY NUMBER,
8850: PROCEDURE cascade_product_spread
8851: (
8852: p_api_version IN NUMBER,
8853: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8854: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8855: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8856: x_return_status OUT NOCOPY VARCHAR2,
8857: x_error_number OUT NOCOPY NUMBER,
8858: x_error_message OUT NOCOPY VARCHAR2,
8851: (
8852: p_api_version IN NUMBER,
8853: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8854: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8855: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8856: x_return_status OUT NOCOPY VARCHAR2,
8857: x_error_number OUT NOCOPY NUMBER,
8858: x_error_message OUT NOCOPY VARCHAR2,
8859: p_mode IN VARCHAR2,
8877: SAVEPOINT cascade_product_spread;
8878:
8879:
8880: -- Standard call to check for call compatibility.
8881: IF NOT FND_API.compatible_api_call(l_api_version,
8882: p_api_version,
8883: l_api_name,
8884: g_pkg_name)
8885: THEN
8882: p_api_version,
8883: l_api_name,
8884: g_pkg_name)
8885: THEN
8886: RAISE FND_API.g_exc_unexpected_error;
8887: END IF;
8888:
8889: -- Initialize message list if p_init_msg_list is set to TRUE.
8890: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8886: RAISE FND_API.g_exc_unexpected_error;
8887: END IF;
8888:
8889: -- Initialize message list if p_init_msg_list is set to TRUE.
8890: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8891: FND_MSG_PUB.initialize;
8892: END IF;
8893:
8894: -- Initialize API return status to SUCCESS
8891: FND_MSG_PUB.initialize;
8892: END IF;
8893:
8894: -- Initialize API return status to SUCCESS
8895: x_return_status := FND_API.g_ret_sts_success;
8896:
8897: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- start');
8898:
8899: l_mode := p_mode;
8945: END IF;
8946:
8947:
8948: -- If any errors happen abort API.
8949: IF x_return_status = FND_API.g_ret_sts_error THEN
8950: RAISE FND_API.g_exc_error;
8951: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8952: RAISE FND_API.g_exc_unexpected_error;
8953: END IF;
8946:
8947:
8948: -- If any errors happen abort API.
8949: IF x_return_status = FND_API.g_ret_sts_error THEN
8950: RAISE FND_API.g_exc_error;
8951: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8952: RAISE FND_API.g_exc_unexpected_error;
8953: END IF;
8954:
8947:
8948: -- If any errors happen abort API.
8949: IF x_return_status = FND_API.g_ret_sts_error THEN
8950: RAISE FND_API.g_exc_error;
8951: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8952: RAISE FND_API.g_exc_unexpected_error;
8953: END IF;
8954:
8955: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
8948: -- If any errors happen abort API.
8949: IF x_return_status = FND_API.g_ret_sts_error THEN
8950: RAISE FND_API.g_exc_error;
8951: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8952: RAISE FND_API.g_exc_unexpected_error;
8953: END IF;
8954:
8955: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
8956:
8959: WHEN OZF_TP_INVALID_PARAM THEN
8960: ROLLBACK TO cascade_product_spread;
8961: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
8962: FND_MSG_PUB.add;
8963: x_return_status := FND_API.g_ret_sts_error ;
8964: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8965: p_data => x_error_message);
8966: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8967: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8965: p_data => x_error_message);
8966: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8967: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8968:
8969: WHEN FND_API.G_EXC_ERROR THEN
8970: ROLLBACK TO cascade_product_spread;
8971: x_return_status := FND_API.g_ret_sts_error ;
8972: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8973: p_data => x_error_message);
8967: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8968:
8969: WHEN FND_API.G_EXC_ERROR THEN
8970: ROLLBACK TO cascade_product_spread;
8971: x_return_status := FND_API.g_ret_sts_error ;
8972: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8973: p_data => x_error_message);
8974:
8975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8971: x_return_status := FND_API.g_ret_sts_error ;
8972: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8973: p_data => x_error_message);
8974:
8975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8976: ROLLBACK TO cascade_product_spread;
8977: x_return_status := FND_API.g_ret_sts_unexp_error ;
8978: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8979: p_data => x_error_message);
8973: p_data => x_error_message);
8974:
8975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8976: ROLLBACK TO cascade_product_spread;
8977: x_return_status := FND_API.g_ret_sts_unexp_error ;
8978: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8979: p_data => x_error_message);
8980:
8981: WHEN OTHERS THEN
8985: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
8986: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
8987: FND_MSG_PUB.add;
8988:
8989: x_return_status := FND_API.g_ret_sts_unexp_error ;
8990: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8991: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
8992: END IF;
8993: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
9009: -- -----------------------------------------------------------------
9010: PROCEDURE allocate_target
9011: (
9012: p_api_version IN NUMBER,
9013: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9014: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9015: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9016: x_return_status OUT NOCOPY VARCHAR2,
9017: x_error_number OUT NOCOPY NUMBER,
9010: PROCEDURE allocate_target
9011: (
9012: p_api_version IN NUMBER,
9013: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9014: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9015: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9016: x_return_status OUT NOCOPY VARCHAR2,
9017: x_error_number OUT NOCOPY NUMBER,
9018: x_error_message OUT NOCOPY VARCHAR2,
9011: (
9012: p_api_version IN NUMBER,
9013: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9014: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9015: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9016: x_return_status OUT NOCOPY VARCHAR2,
9017: x_error_number OUT NOCOPY NUMBER,
9018: x_error_message OUT NOCOPY VARCHAR2,
9019: p_mode IN VARCHAR2,
9049: SAVEPOINT allocate_target;
9050:
9051:
9052: -- Standard call to check for call compatibility.
9053: IF NOT FND_API.compatible_api_call(l_api_version,
9054: p_api_version,
9055: l_api_name,
9056: g_pkg_name)
9057: THEN
9054: p_api_version,
9055: l_api_name,
9056: g_pkg_name)
9057: THEN
9058: RAISE FND_API.g_exc_unexpected_error;
9059: END IF;
9060:
9061: -- Initialize message list if p_init_msg_list is set to TRUE.
9062: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9058: RAISE FND_API.g_exc_unexpected_error;
9059: END IF;
9060:
9061: -- Initialize message list if p_init_msg_list is set to TRUE.
9062: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9063: FND_MSG_PUB.initialize;
9064: END IF;
9065:
9066: -- Initialize API return status to SUCCESS
9063: FND_MSG_PUB.initialize;
9064: END IF;
9065:
9066: -- Initialize API return status to SUCCESS
9067: x_return_status := FND_API.g_ret_sts_success;
9068:
9069: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- start');
9070:
9071: l_mode := p_mode;
9142: END IF;
9143:
9144:
9145: -- If any errors happen abort API.
9146: IF x_return_status = FND_API.g_ret_sts_error THEN
9147: RAISE FND_API.g_exc_error;
9148: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9149: RAISE FND_API.g_exc_unexpected_error;
9150: END IF;
9143:
9144:
9145: -- If any errors happen abort API.
9146: IF x_return_status = FND_API.g_ret_sts_error THEN
9147: RAISE FND_API.g_exc_error;
9148: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9149: RAISE FND_API.g_exc_unexpected_error;
9150: END IF;
9151:
9144:
9145: -- If any errors happen abort API.
9146: IF x_return_status = FND_API.g_ret_sts_error THEN
9147: RAISE FND_API.g_exc_error;
9148: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9149: RAISE FND_API.g_exc_unexpected_error;
9150: END IF;
9151:
9152: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
9145: -- If any errors happen abort API.
9146: IF x_return_status = FND_API.g_ret_sts_error THEN
9147: RAISE FND_API.g_exc_error;
9148: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9149: RAISE FND_API.g_exc_unexpected_error;
9150: END IF;
9151:
9152: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
9153:
9156: WHEN OZF_TP_INVALID_PARAM THEN
9157: ROLLBACK TO allocate_target;
9158: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
9159: FND_MSG_PUB.add;
9160: x_return_status := FND_API.g_ret_sts_error ;
9161: FND_MSG_PUB.count_and_get (p_count => x_error_number,
9162: p_data => x_error_message);
9163: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
9164: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
9162: p_data => x_error_message);
9163: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
9164: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
9165:
9166: WHEN FND_API.G_EXC_ERROR THEN
9167: ROLLBACK TO allocate_target;
9168: x_return_status := FND_API.g_ret_sts_error ;
9169: FND_MSG_PUB.count_and_get (p_count => x_error_number,
9170: p_data => x_error_message);
9164: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
9165:
9166: WHEN FND_API.G_EXC_ERROR THEN
9167: ROLLBACK TO allocate_target;
9168: x_return_status := FND_API.g_ret_sts_error ;
9169: FND_MSG_PUB.count_and_get (p_count => x_error_number,
9170: p_data => x_error_message);
9171:
9172: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9168: x_return_status := FND_API.g_ret_sts_error ;
9169: FND_MSG_PUB.count_and_get (p_count => x_error_number,
9170: p_data => x_error_message);
9171:
9172: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9173: ROLLBACK TO allocate_target;
9174: x_return_status := FND_API.g_ret_sts_unexp_error ;
9175: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
9176: p_data => x_error_message);
9170: p_data => x_error_message);
9171:
9172: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9173: ROLLBACK TO allocate_target;
9174: x_return_status := FND_API.g_ret_sts_unexp_error ;
9175: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
9176: p_data => x_error_message);
9177:
9178: WHEN OTHERS THEN
9182: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
9183: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
9184: FND_MSG_PUB.add;
9185:
9186: x_return_status := FND_API.g_ret_sts_unexp_error ;
9187: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9188: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
9189: END IF;
9190: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
9341: -- -----------------------------------------------------------------
9342: PROCEDURE adjust_target_for_acct_added
9343: (
9344: p_api_version IN NUMBER,
9345: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9346: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9347: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9348: x_return_status OUT NOCOPY VARCHAR2,
9349: x_error_number OUT NOCOPY NUMBER,
9342: PROCEDURE adjust_target_for_acct_added
9343: (
9344: p_api_version IN NUMBER,
9345: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9346: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9347: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9348: x_return_status OUT NOCOPY VARCHAR2,
9349: x_error_number OUT NOCOPY NUMBER,
9350: x_error_message OUT NOCOPY VARCHAR2,
9343: (
9344: p_api_version IN NUMBER,
9345: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9346: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9347: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9348: x_return_status OUT NOCOPY VARCHAR2,
9349: x_error_number OUT NOCOPY NUMBER,
9350: x_error_message OUT NOCOPY VARCHAR2,
9351: p_fund_id IN NUMBER,
9545: SAVEPOINT adjust_target_for_acct_added;
9546:
9547:
9548: -- Standard call to check for call compatibility.
9549: IF NOT FND_API.compatible_api_call(l_api_version,
9550: p_api_version,
9551: l_api_name,
9552: g_pkg_name)
9553: THEN
9550: p_api_version,
9551: l_api_name,
9552: g_pkg_name)
9553: THEN
9554: RAISE FND_API.g_exc_unexpected_error;
9555: END IF;
9556:
9557: -- Initialize message list if p_init_msg_list is set to TRUE.
9558: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9554: RAISE FND_API.g_exc_unexpected_error;
9555: END IF;
9556:
9557: -- Initialize message list if p_init_msg_list is set to TRUE.
9558: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9559: FND_MSG_PUB.initialize;
9560: END IF;
9561:
9562: -- Initialize API return status to SUCCESS
9559: FND_MSG_PUB.initialize;
9560: END IF;
9561:
9562: -- Initialize API return status to SUCCESS
9563: x_return_status := FND_API.g_ret_sts_success;
9564:
9565: Ozf_Utility_pvt.write_conc_log('Private API: ' || l_full_api_name || ' -- start');
9566:
9567: Ozf_Utility_pvt.write_conc_log('- Parameter - p_fund_id ==> ' || p_fund_id);
10226: WHEN OZF_TP_INVALID_PARAM THEN
10227: ROLLBACK TO adjust_target_for_acct_added;
10228: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
10229: FND_MSG_PUB.add;
10230: x_return_status := FND_API.g_ret_sts_error ;
10231: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10232: p_data => x_error_message);
10233: Ozf_Utility_pvt.write_conc_log(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
10234: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10232: p_data => x_error_message);
10233: Ozf_Utility_pvt.write_conc_log(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
10234: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10235:
10236: WHEN FND_API.G_EXC_ERROR THEN
10237: ROLLBACK TO adjust_target_for_acct_added;
10238: x_return_status := FND_API.g_ret_sts_error ;
10239: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10240: p_data => x_error_message);
10234: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10235:
10236: WHEN FND_API.G_EXC_ERROR THEN
10237: ROLLBACK TO adjust_target_for_acct_added;
10238: x_return_status := FND_API.g_ret_sts_error ;
10239: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10240: p_data => x_error_message);
10241:
10242: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10238: x_return_status := FND_API.g_ret_sts_error ;
10239: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10240: p_data => x_error_message);
10241:
10242: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10243: ROLLBACK TO adjust_target_for_acct_added;
10244: x_return_status := FND_API.g_ret_sts_unexp_error ;
10245: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10246: p_data => x_error_message);
10240: p_data => x_error_message);
10241:
10242: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10243: ROLLBACK TO adjust_target_for_acct_added;
10244: x_return_status := FND_API.g_ret_sts_unexp_error ;
10245: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10246: p_data => x_error_message);
10247:
10248: WHEN OTHERS THEN
10252: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
10253: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
10254: FND_MSG_PUB.add;
10255:
10256: x_return_status := FND_API.g_ret_sts_unexp_error ;
10257: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10258: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
10259: END IF;
10260: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10275: -- -----------------------------------------------------------------
10276: PROCEDURE adjust_target_for_acct_deleted
10277: (
10278: p_api_version IN NUMBER,
10279: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10280: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10281: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10282: x_return_status OUT NOCOPY VARCHAR2,
10283: x_error_number OUT NOCOPY NUMBER,
10276: PROCEDURE adjust_target_for_acct_deleted
10277: (
10278: p_api_version IN NUMBER,
10279: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10280: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10281: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10282: x_return_status OUT NOCOPY VARCHAR2,
10283: x_error_number OUT NOCOPY NUMBER,
10284: x_error_message OUT NOCOPY VARCHAR2,
10277: (
10278: p_api_version IN NUMBER,
10279: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10280: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10281: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10282: x_return_status OUT NOCOPY VARCHAR2,
10283: x_error_number OUT NOCOPY NUMBER,
10284: x_error_message OUT NOCOPY VARCHAR2,
10285: p_fund_id IN NUMBER,
10300: SAVEPOINT adjust_target_for_acct_deleted;
10301:
10302:
10303: -- Standard call to check for call compatibility.
10304: IF NOT FND_API.compatible_api_call(l_api_version,
10305: p_api_version,
10306: l_api_name,
10307: g_pkg_name)
10308: THEN
10305: p_api_version,
10306: l_api_name,
10307: g_pkg_name)
10308: THEN
10309: RAISE FND_API.g_exc_unexpected_error;
10310: END IF;
10311:
10312: -- Initialize message list if p_init_msg_list is set to TRUE.
10313: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10309: RAISE FND_API.g_exc_unexpected_error;
10310: END IF;
10311:
10312: -- Initialize message list if p_init_msg_list is set to TRUE.
10313: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10314: FND_MSG_PUB.initialize;
10315: END IF;
10316:
10317: -- Initialize API return status to SUCCESS
10314: FND_MSG_PUB.initialize;
10315: END IF;
10316:
10317: -- Initialize API return status to SUCCESS
10318: x_return_status := FND_API.g_ret_sts_success;
10319:
10320: Ozf_Utility_pvt.write_conc_log('Private API: ' || l_full_api_name || ' -- start');
10321:
10322: IF p_fund_id IS NULL OR p_ship_to_site_use_id IS NULL
10517: WHEN OZF_TP_INVALID_PARAM THEN
10518: ROLLBACK TO adjust_target_for_acct_deleted;
10519: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
10520: FND_MSG_PUB.add;
10521: x_return_status := FND_API.g_ret_sts_error ;
10522: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10523: p_data => x_error_message);
10524: Ozf_Utility_pvt.write_conc_log(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
10525: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10523: p_data => x_error_message);
10524: Ozf_Utility_pvt.write_conc_log(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
10525: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10526:
10527: WHEN FND_API.G_EXC_ERROR THEN
10528: ROLLBACK TO adjust_target_for_acct_deleted;
10529: x_return_status := FND_API.g_ret_sts_error ;
10530: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10531: p_data => x_error_message);
10525: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10526:
10527: WHEN FND_API.G_EXC_ERROR THEN
10528: ROLLBACK TO adjust_target_for_acct_deleted;
10529: x_return_status := FND_API.g_ret_sts_error ;
10530: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10531: p_data => x_error_message);
10532:
10533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10529: x_return_status := FND_API.g_ret_sts_error ;
10530: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10531: p_data => x_error_message);
10532:
10533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10534: ROLLBACK TO adjust_target_for_acct_deleted;
10535: x_return_status := FND_API.g_ret_sts_unexp_error ;
10536: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10537: p_data => x_error_message);
10531: p_data => x_error_message);
10532:
10533: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10534: ROLLBACK TO adjust_target_for_acct_deleted;
10535: x_return_status := FND_API.g_ret_sts_unexp_error ;
10536: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10537: p_data => x_error_message);
10538:
10539: WHEN OTHERS THEN
10543: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
10544: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
10545: FND_MSG_PUB.add;
10546:
10547: x_return_status := FND_API.g_ret_sts_unexp_error ;
10548: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10549: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
10550: END IF;
10551: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10576: p_terr_id IN NUMBER := NULL
10577: ) IS
10578: p_api_version CONSTANT NUMBER := 1.0;
10579: x_return_status VARCHAR2(1) ;
10580: l_init_msg_list VARCHAR2(10) := FND_API.G_FALSE;
10581: l_api_version CONSTANT NUMBER := 1.0;
10582: l_api_name CONSTANT VARCHAR2(30) := 'adjust_account_targets';
10583: l_full_api_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
10584: l_object_version_number NUMBER := 1;
10858: -- Standard Start of API savepoint
10859: SAVEPOINT adjust_account_targets;
10860:
10861: -- Standard call to check for call compatibility.
10862: IF NOT FND_API.compatible_api_call(l_api_version,
10863: p_api_version,
10864: l_api_name,
10865: g_pkg_name)
10866: THEN
10863: p_api_version,
10864: l_api_name,
10865: g_pkg_name)
10866: THEN
10867: RAISE FND_API.g_exc_unexpected_error;
10868: END IF;
10869:
10870: -- Initialize message list if l_init_msg_list is set to TRUE.
10871: IF FND_API.to_Boolean( l_init_msg_list ) THEN
10867: RAISE FND_API.g_exc_unexpected_error;
10868: END IF;
10869:
10870: -- Initialize message list if l_init_msg_list is set to TRUE.
10871: IF FND_API.to_Boolean( l_init_msg_list ) THEN
10872: FND_MSG_PUB.initialize;
10873: END IF;
10874:
10875: -- Initialize API return status to SUCCESS
10872: FND_MSG_PUB.initialize;
10873: END IF;
10874:
10875: -- Initialize API return status to SUCCESS
10876: x_return_status := FND_API.g_ret_sts_success;
10877:
10878: Ozf_Utility_pvt.write_conc_log('Private API: ' || l_full_api_name || ' -- start');
10879:
10880: FOR terr IN terr_list_csr
10908: p_terr_id => terr.node_id,
10909: p_ship_to_site_use_id => new_accounts.site_use_id
10910: );
10911:
10912: IF x_return_status = FND_API.g_ret_sts_error
10913: THEN
10914: RAISE FND_API.g_exc_error;
10915: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10916: RAISE FND_API.g_exc_unexpected_error;
10910: );
10911:
10912: IF x_return_status = FND_API.g_ret_sts_error
10913: THEN
10914: RAISE FND_API.g_exc_error;
10915: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10916: RAISE FND_API.g_exc_unexpected_error;
10917: END IF;
10918:
10911:
10912: IF x_return_status = FND_API.g_ret_sts_error
10913: THEN
10914: RAISE FND_API.g_exc_error;
10915: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10916: RAISE FND_API.g_exc_unexpected_error;
10917: END IF;
10918:
10919: END LOOP; -- allocation_list_csr(quota.fund_id)
10912: IF x_return_status = FND_API.g_ret_sts_error
10913: THEN
10914: RAISE FND_API.g_exc_error;
10915: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10916: RAISE FND_API.g_exc_unexpected_error;
10917: END IF;
10918:
10919: END LOOP; -- allocation_list_csr(quota.fund_id)
10920:
10941: p_fund_id => quota.fund_id,
10942: p_ship_to_site_use_id => del_accounts.site_use_id
10943: );
10944:
10945: IF x_return_status = FND_API.g_ret_sts_error
10946: THEN
10947: RAISE FND_API.g_exc_error;
10948: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10949: RAISE FND_API.g_exc_unexpected_error;
10943: );
10944:
10945: IF x_return_status = FND_API.g_ret_sts_error
10946: THEN
10947: RAISE FND_API.g_exc_error;
10948: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10949: RAISE FND_API.g_exc_unexpected_error;
10950: END IF;
10951:
10944:
10945: IF x_return_status = FND_API.g_ret_sts_error
10946: THEN
10947: RAISE FND_API.g_exc_error;
10948: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10949: RAISE FND_API.g_exc_unexpected_error;
10950: END IF;
10951:
10952: END LOOP; -- del_quota_list_csr(terr.node_id, del_accounts.site_use_id)
10945: IF x_return_status = FND_API.g_ret_sts_error
10946: THEN
10947: RAISE FND_API.g_exc_error;
10948: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10949: RAISE FND_API.g_exc_unexpected_error;
10950: END IF;
10951:
10952: END LOOP; -- del_quota_list_csr(terr.node_id, del_accounts.site_use_id)
10953:
11021: Ozf_Utility_pvt.write_conc_log('Private API: ' || l_full_api_name || ' -- end');
11022:
11023: EXCEPTION
11024:
11025: WHEN FND_API.G_EXC_ERROR THEN
11026: ROLLBACK TO adjust_account_targets;
11027: x_return_status := FND_API.g_ret_sts_error ;
11028: FND_MSG_PUB.count_and_get (p_count => x_error_number,
11029: p_data => x_error_message);
11023: EXCEPTION
11024:
11025: WHEN FND_API.G_EXC_ERROR THEN
11026: ROLLBACK TO adjust_account_targets;
11027: x_return_status := FND_API.g_ret_sts_error ;
11028: FND_MSG_PUB.count_and_get (p_count => x_error_number,
11029: p_data => x_error_message);
11030:
11031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11027: x_return_status := FND_API.g_ret_sts_error ;
11028: FND_MSG_PUB.count_and_get (p_count => x_error_number,
11029: p_data => x_error_message);
11030:
11031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11032: ROLLBACK TO adjust_account_targets;
11033: x_return_status := FND_API.g_ret_sts_unexp_error ;
11034: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
11035: p_data => x_error_message);
11029: p_data => x_error_message);
11030:
11031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11032: ROLLBACK TO adjust_account_targets;
11033: x_return_status := FND_API.g_ret_sts_unexp_error ;
11034: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
11035: p_data => x_error_message);
11036:
11037: WHEN OTHERS THEN
11041: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
11042: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
11043: FND_MSG_PUB.add;
11044:
11045: x_return_status := FND_API.g_ret_sts_unexp_error ;
11046: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11047: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
11048: END IF;
11049: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,