612:
613:
614: EXCEPTION
615: WHEN OTHERS THEN
616: RAISE Fnd_Api.g_exc_error;
617: ozf_utility_pvt.debug_message('Exception in raising business event for Target Approval');
618: END;
619:
620:
713: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN',l_object_type);
714: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_object_id);
715: fnd_msg_pub.ADD;
716: END IF;
717: RAISE fnd_api.g_exc_unexpected_error;
718: END IF;
719:
720: UPDATE OZF_PRODUCT_ALLOCATIONS p
721: SET p.TARGET = p.TARGET + l_diff_target,
731: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN',l_object_type);
732: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_object_id);
733: fnd_msg_pub.ADD;
734: END IF;
735: RAISE fnd_api.g_exc_unexpected_error;
736: END IF;
737:
738: /*---------------------------------------------------------------------------------------------------
739: UPDATE OZF_TIME_ALLOCATIONS t
756: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
757: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
758: fnd_msg_pub.ADD;
759: END IF;
760: RAISE fnd_api.g_exc_unexpected_error;
761: END IF;
762:
763: UPDATE OZF_PRODUCT_ALLOCATIONS p
764: SET p.TARGET = p.TARGET + l_diff_target,
774: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
775: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
776: fnd_msg_pub.ADD;
777: END IF;
778: RAISE fnd_api.g_exc_unexpected_error;
779: END IF;
780: ---------------------------------------------------------------------------------------------------
781: */
782:
804: -- -----------------------------------------------------------------
805: PROCEDURE create_old_fact_product_spread
806: (
807: p_api_version IN NUMBER,
808: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
809: p_commit IN VARCHAR2 := FND_API.G_FALSE,
810: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
811: x_return_status OUT NOCOPY VARCHAR2,
812: x_error_number OUT NOCOPY NUMBER,
805: PROCEDURE create_old_fact_product_spread
806: (
807: p_api_version IN NUMBER,
808: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
809: p_commit IN VARCHAR2 := FND_API.G_FALSE,
810: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
811: x_return_status OUT NOCOPY VARCHAR2,
812: x_error_number OUT NOCOPY NUMBER,
813: x_error_message OUT NOCOPY VARCHAR2,
806: (
807: p_api_version IN NUMBER,
808: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
809: p_commit IN VARCHAR2 := FND_API.G_FALSE,
810: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
811: x_return_status OUT NOCOPY VARCHAR2,
812: x_error_number OUT NOCOPY NUMBER,
813: x_error_message OUT NOCOPY VARCHAR2,
814: p_fact_id IN NUMBER
1066: -- Standard Start of API savepoint
1067: SAVEPOINT create_old_fact_product_spread;
1068:
1069: -- Standard call to check for call compatibility.
1070: IF NOT FND_API.compatible_api_call(l_api_version,
1071: p_api_version,
1072: l_api_name,
1073: g_pkg_name)
1074: THEN
1071: p_api_version,
1072: l_api_name,
1073: g_pkg_name)
1074: THEN
1075: RAISE FND_API.g_exc_unexpected_error;
1076: END IF;
1077:
1078: -- Initialize message list if p_init_msg_list is set to TRUE.
1079: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1075: RAISE FND_API.g_exc_unexpected_error;
1076: END IF;
1077:
1078: -- Initialize message list if p_init_msg_list is set to TRUE.
1079: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1080: FND_MSG_PUB.initialize;
1081: END IF;
1082:
1083: -- Initialize API return status to SUCCESS
1080: FND_MSG_PUB.initialize;
1081: END IF;
1082:
1083: -- Initialize API return status to SUCCESS
1084: x_return_status := FND_API.g_ret_sts_success;
1085:
1086: l_fact_id := p_fact_id;
1087:
1088: OPEN fact_csr(l_fact_id);
1412: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN','FACT');
1413: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_fact_id);
1414: fnd_msg_pub.ADD;
1415: END IF;
1416: RAISE fnd_api.g_exc_unexpected_error;
1417: END IF;
1418:
1419:
1420: UPDATE OZF_PRODUCT_ALLOCATIONS p
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: END IF;
1441:
1452: WHEN OZF_TP_DIFF_TIME_SPREAD THEN
1453: ROLLBACK TO create_old_fact_product_spread;
1454: FND_MESSAGE.set_name('OZF', 'OZF_TP_DIFF_TIME_SPREAD_TXT');
1455: FND_MSG_PUB.add;
1456: x_return_status := FND_API.g_ret_sts_error ;
1457: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1458: p_data => x_error_message);
1459: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : TIME SPREAD MISMATCH EXCEPTION = '||sqlerrm(sqlcode));
1460: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DIFF_TIME_SPREAD_TXT'));
1462: WHEN OZF_TP_BLANK_PERIOD_TBL THEN
1463: ROLLBACK TO create_old_fact_product_spread;
1464: FND_MESSAGE.set_name('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT');
1465: FND_MSG_PUB.add;
1466: x_return_status := FND_API.g_ret_sts_error ;
1467: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1468: p_data => x_error_message);
1469: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
1470: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
1468: p_data => x_error_message);
1469: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
1470: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
1471:
1472: WHEN FND_API.G_EXC_ERROR THEN
1473: ROLLBACK TO create_old_fact_product_spread;
1474: x_return_status := FND_API.g_ret_sts_error ;
1475: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1476: p_data => x_error_message);
1470: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
1471:
1472: WHEN FND_API.G_EXC_ERROR THEN
1473: ROLLBACK TO create_old_fact_product_spread;
1474: x_return_status := FND_API.g_ret_sts_error ;
1475: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1476: p_data => x_error_message);
1477:
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1474: x_return_status := FND_API.g_ret_sts_error ;
1475: FND_MSG_PUB.count_and_get (p_count => x_error_number,
1476: p_data => x_error_message);
1477:
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: ROLLBACK TO create_old_fact_product_spread;
1480: x_return_status := FND_API.g_ret_sts_unexp_error ;
1481: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
1482: p_data => x_error_message);
1476: p_data => x_error_message);
1477:
1478: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1479: ROLLBACK TO create_old_fact_product_spread;
1480: x_return_status := FND_API.g_ret_sts_unexp_error ;
1481: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
1482: p_data => x_error_message);
1483:
1484: WHEN OTHERS THEN
1482: p_data => x_error_message);
1483:
1484: WHEN OTHERS THEN
1485: ROLLBACK TO create_old_fact_product_spread;
1486: x_return_status := FND_API.g_ret_sts_unexp_error ;
1487: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1488: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
1489: END IF;
1490: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
1511: -- -----------------------------------------------------------------
1512: PROCEDURE create_fact_product_spread
1513: (
1514: p_api_version IN NUMBER,
1515: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1516: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1517: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1518: x_return_status OUT NOCOPY VARCHAR2,
1519: x_error_number OUT NOCOPY NUMBER,
1512: PROCEDURE create_fact_product_spread
1513: (
1514: p_api_version IN NUMBER,
1515: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1516: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1517: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1518: x_return_status OUT NOCOPY VARCHAR2,
1519: x_error_number OUT NOCOPY NUMBER,
1520: x_error_message OUT NOCOPY VARCHAR2,
1513: (
1514: p_api_version IN NUMBER,
1515: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1516: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1517: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1518: x_return_status OUT NOCOPY VARCHAR2,
1519: x_error_number OUT NOCOPY NUMBER,
1520: x_error_message OUT NOCOPY VARCHAR2,
1521: p_fact_id IN NUMBER
1775: -- Standard Start of API savepoint
1776: SAVEPOINT create_fact_product_spread;
1777:
1778: -- Standard call to check for call compatibility.
1779: IF NOT FND_API.compatible_api_call(l_api_version,
1780: p_api_version,
1781: l_api_name,
1782: g_pkg_name)
1783: THEN
1780: p_api_version,
1781: l_api_name,
1782: g_pkg_name)
1783: THEN
1784: RAISE FND_API.g_exc_unexpected_error;
1785: END IF;
1786:
1787: -- Initialize message list if p_init_msg_list is set to TRUE.
1788: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1784: RAISE FND_API.g_exc_unexpected_error;
1785: END IF;
1786:
1787: -- Initialize message list if p_init_msg_list is set to TRUE.
1788: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1789: FND_MSG_PUB.initialize;
1790: END IF;
1791:
1792: -- Initialize API return status to SUCCESS
1789: FND_MSG_PUB.initialize;
1790: END IF;
1791:
1792: -- Initialize API return status to SUCCESS
1793: x_return_status := FND_API.g_ret_sts_success;
1794:
1795: l_fact_id := p_fact_id;
1796:
1797: OPEN fact_csr(l_fact_id);
2119: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
2120: fnd_msg_pub.ADD;
2121: END IF;
2122:
2123: RAISE fnd_api.g_exc_unexpected_error;
2124: END IF;
2125:
2126: UPDATE OZF_PRODUCT_ALLOCATIONS p
2127: SET p.TARGET = (SELECT SUM(ti.TARGET)
2140: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
2141: fnd_msg_pub.ADD;
2142: END IF;
2143:
2144: RAISE fnd_api.g_exc_unexpected_error;
2145: END IF;
2146:
2147:
2148:
2170: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
2171: fnd_msg_pub.ADD;
2172: END IF;
2173:
2174: RAISE fnd_api.g_exc_unexpected_error;
2175: END IF;
2176: */
2177: UPDATE OZF_TIME_ALLOCATIONS t
2178: SET t.TARGET = ROUND((NVL(l_fact_rec.recommend_total_amount, 0) / l_denominator), 0),
2191: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2192: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
2193: fnd_msg_pub.ADD;
2194: END IF;
2195: RAISE fnd_api.g_exc_unexpected_error;
2196: END IF;
2197:
2198: UPDATE OZF_PRODUCT_ALLOCATIONS p
2199: SET p.TARGET = (SELECT SUM(ti.TARGET)
2213: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
2214: fnd_msg_pub.ADD;
2215: END IF;
2216:
2217: RAISE fnd_api.g_exc_unexpected_error;
2218: END IF;
2219:
2220:
2221: END IF;
2272: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2273: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
2274: fnd_msg_pub.ADD;
2275: END IF;
2276: RAISE fnd_api.g_exc_unexpected_error;
2277: END IF;
2278:
2279: UPDATE OZF_PRODUCT_ALLOCATIONS p
2280: SET p.TARGET = p.TARGET + l_diff_target,
2290: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
2291: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
2292: fnd_msg_pub.ADD;
2293: END IF;
2294: RAISE fnd_api.g_exc_unexpected_error;
2295: END IF;
2296: */
2297:
2298:
2311: WHEN OZF_TP_DIFF_TIME_SPREAD THEN
2312: ROLLBACK TO create_fact_product_spread;
2313: FND_MESSAGE.set_name('OZF', 'OZF_TP_DIFF_TIME_SPREAD_TXT');
2314: FND_MSG_PUB.add;
2315: x_return_status := FND_API.g_ret_sts_error ;
2316: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2317: p_data => x_error_message);
2318: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : TIME SPREAD MISMATCH EXCEPTION = '||sqlerrm(sqlcode));
2319: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DIFF_TIME_SPREAD_TXT'));
2321: WHEN OZF_TP_BLANK_PERIOD_TBL THEN
2322: ROLLBACK TO create_fact_product_spread;
2323: FND_MESSAGE.set_name('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT');
2324: FND_MSG_PUB.add;
2325: x_return_status := FND_API.g_ret_sts_error ;
2326: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2327: p_data => x_error_message);
2328: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
2329: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
2327: p_data => x_error_message);
2328: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
2329: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
2330:
2331: WHEN FND_API.G_EXC_ERROR THEN
2332: ROLLBACK TO create_fact_product_spread;
2333: x_return_status := FND_API.g_ret_sts_error ;
2334: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2335: p_data => x_error_message);
2329: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
2330:
2331: WHEN FND_API.G_EXC_ERROR THEN
2332: ROLLBACK TO create_fact_product_spread;
2333: x_return_status := FND_API.g_ret_sts_error ;
2334: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2335: p_data => x_error_message);
2336:
2337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2333: x_return_status := FND_API.g_ret_sts_error ;
2334: FND_MSG_PUB.count_and_get (p_count => x_error_number,
2335: p_data => x_error_message);
2336:
2337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2338: ROLLBACK TO create_fact_product_spread;
2339: x_return_status := FND_API.g_ret_sts_unexp_error ;
2340: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
2341: p_data => x_error_message);
2335: p_data => x_error_message);
2336:
2337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2338: ROLLBACK TO create_fact_product_spread;
2339: x_return_status := FND_API.g_ret_sts_unexp_error ;
2340: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
2341: p_data => x_error_message);
2342:
2343: WHEN OTHERS THEN
2341: p_data => x_error_message);
2342:
2343: WHEN OTHERS THEN
2344: ROLLBACK TO create_fact_product_spread;
2345: x_return_status := FND_API.g_ret_sts_unexp_error ;
2346: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2347: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
2348: END IF;
2349: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
2367: -- -----------------------------------------------------------------
2368: PROCEDURE create_root_product_spread
2369: (
2370: p_api_version IN NUMBER,
2371: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2372: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2373: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2374: x_return_status OUT NOCOPY VARCHAR2,
2375: x_error_number OUT NOCOPY NUMBER,
2368: PROCEDURE create_root_product_spread
2369: (
2370: p_api_version IN NUMBER,
2371: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2372: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2373: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2374: x_return_status OUT NOCOPY VARCHAR2,
2375: x_error_number OUT NOCOPY NUMBER,
2376: x_error_message OUT NOCOPY VARCHAR2,
2369: (
2370: p_api_version IN NUMBER,
2371: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2372: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2373: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2374: x_return_status OUT NOCOPY VARCHAR2,
2375: x_error_number OUT NOCOPY NUMBER,
2376: x_error_message OUT NOCOPY VARCHAR2,
2377: p_fund_id IN NUMBER
2594: -- Standard Start of API savepoint
2595: SAVEPOINT create_root_product_spread;
2596:
2597: -- Standard call to check for call compatibility.
2598: IF NOT FND_API.compatible_api_call(l_api_version,
2599: p_api_version,
2600: l_api_name,
2601: g_pkg_name)
2602: THEN
2599: p_api_version,
2600: l_api_name,
2601: g_pkg_name)
2602: THEN
2603: RAISE FND_API.g_exc_unexpected_error;
2604: END IF;
2605:
2606: -- Initialize message list if p_init_msg_list is set to TRUE.
2607: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2603: RAISE FND_API.g_exc_unexpected_error;
2604: END IF;
2605:
2606: -- Initialize message list if p_init_msg_list is set to TRUE.
2607: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2608: FND_MSG_PUB.initialize;
2609: END IF;
2610:
2611: -- Initialize API return status to SUCCESS
2608: FND_MSG_PUB.initialize;
2609: END IF;
2610:
2611: -- Initialize API return status to SUCCESS
2612: x_return_status := FND_API.g_ret_sts_success;
2613:
2614: l_fund_id := p_fund_id;
2615:
2616: OPEN fund_csr(l_fund_id);
3131: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
3132: fnd_msg_pub.ADD;
3133: END IF;
3134:
3135: RAISE fnd_api.g_exc_unexpected_error;
3136: END IF;
3137: */
3138:
3139: UPDATE OZF_TIME_ALLOCATIONS t
3153: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
3154: fnd_msg_pub.ADD;
3155: END IF;
3156:
3157: RAISE fnd_api.g_exc_unexpected_error;
3158: END IF;
3159:
3160:
3161: UPDATE OZF_PRODUCT_ALLOCATIONS p
3175: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
3176: fnd_msg_pub.ADD;
3177: END IF;
3178:
3179: RAISE fnd_api.g_exc_unexpected_error;
3180: END IF;
3181:
3182:
3183:
3206: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
3207: fnd_msg_pub.ADD;
3208: END IF;
3209:
3210: RAISE fnd_api.g_exc_unexpected_error;
3211: END IF;
3212: */
3213: UPDATE OZF_TIME_ALLOCATIONS t
3214: SET t.TARGET = ROUND((l_total_root_quota / l_denominator), 0),
3227: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3228: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
3229: fnd_msg_pub.ADD;
3230: END IF;
3231: RAISE fnd_api.g_exc_unexpected_error;
3232: END IF;
3233:
3234:
3235: UPDATE OZF_PRODUCT_ALLOCATIONS p
3250: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
3251: fnd_msg_pub.ADD;
3252: END IF;
3253:
3254: RAISE fnd_api.g_exc_unexpected_error;
3255: END IF;
3256:
3257:
3258: -------BEGIN: ORIGINAL FIX for difference due to ROUNDING --------------------------------------------------|
3409: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
3410: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
3411: fnd_msg_pub.ADD;
3412: END IF;
3413: RAISE fnd_api.g_exc_unexpected_error;
3414: END IF;
3415: END IF;
3416:
3417: --------END : NEW FIX for difference due to ROUNDING --------------------------------------------------|
3425: WHEN OZF_TP_BLANK_PERIOD_TBL THEN
3426: ROLLBACK TO create_root_product_spread;
3427: FND_MESSAGE.set_name('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT');
3428: FND_MSG_PUB.add;
3429: x_return_status := FND_API.g_ret_sts_error ;
3430: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3431: p_data => x_error_message);
3432: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
3433: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
3431: p_data => x_error_message);
3432: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : BLANK PERIOD TABLE EXCEPTION = '||sqlerrm(sqlcode));
3433: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
3434:
3435: WHEN FND_API.G_EXC_ERROR THEN
3436: ROLLBACK TO create_root_product_spread;
3437: x_return_status := FND_API.g_ret_sts_error ;
3438: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3439: p_data => x_error_message);
3433: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_BLANK_PERIOD_TBL_TXT'));
3434:
3435: WHEN FND_API.G_EXC_ERROR THEN
3436: ROLLBACK TO create_root_product_spread;
3437: x_return_status := FND_API.g_ret_sts_error ;
3438: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3439: p_data => x_error_message);
3440:
3441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3437: x_return_status := FND_API.g_ret_sts_error ;
3438: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3439: p_data => x_error_message);
3440:
3441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3442: ROLLBACK TO create_root_product_spread;
3443: x_return_status := FND_API.g_ret_sts_unexp_error ;
3444: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3445: p_data => x_error_message);
3439: p_data => x_error_message);
3440:
3441: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3442: ROLLBACK TO create_root_product_spread;
3443: x_return_status := FND_API.g_ret_sts_unexp_error ;
3444: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3445: p_data => x_error_message);
3446:
3447: WHEN OTHERS THEN
3445: p_data => x_error_message);
3446:
3447: WHEN OTHERS THEN
3448: ROLLBACK TO create_root_product_spread;
3449: x_return_status := FND_API.g_ret_sts_unexp_error ;
3450: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3451: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3452: END IF;
3453: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3474: -- -----------------------------------------------------------------
3475: PROCEDURE publish_fact_product_spread
3476: (
3477: p_api_version IN NUMBER,
3478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3481: x_return_status OUT NOCOPY VARCHAR2,
3482: x_error_number OUT NOCOPY NUMBER,
3475: PROCEDURE publish_fact_product_spread
3476: (
3477: p_api_version IN NUMBER,
3478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3481: x_return_status OUT NOCOPY VARCHAR2,
3482: x_error_number OUT NOCOPY NUMBER,
3483: x_error_message OUT NOCOPY VARCHAR2,
3476: (
3477: p_api_version IN NUMBER,
3478: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3479: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3480: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3481: x_return_status OUT NOCOPY VARCHAR2,
3482: x_error_number OUT NOCOPY NUMBER,
3483: x_error_message OUT NOCOPY VARCHAR2,
3484: p_fact_id IN NUMBER
3521: -- Standard Start of API savepoint
3522: SAVEPOINT publish_fact_product_spread;
3523:
3524: -- Standard call to check for call compatibility.
3525: IF NOT FND_API.compatible_api_call(l_api_version,
3526: p_api_version,
3527: l_api_name,
3528: g_pkg_name)
3529: THEN
3526: p_api_version,
3527: l_api_name,
3528: g_pkg_name)
3529: THEN
3530: RAISE FND_API.g_exc_unexpected_error;
3531: END IF;
3532:
3533: -- Initialize message list if p_init_msg_list is set to TRUE.
3534: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3530: RAISE FND_API.g_exc_unexpected_error;
3531: END IF;
3532:
3533: -- Initialize message list if p_init_msg_list is set to TRUE.
3534: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3535: FND_MSG_PUB.initialize;
3536: END IF;
3537:
3538: -- Initialize API return status to SUCCESS
3535: FND_MSG_PUB.initialize;
3536: END IF;
3537:
3538: -- Initialize API return status to SUCCESS
3539: x_return_status := FND_API.g_ret_sts_success;
3540:
3541: l_fact_id := p_fact_id;
3542:
3543: OPEN fact_csr(l_fact_id);
3592: WHEN OZF_TP_OPER_NOT_ALLOWED THEN
3593: ROLLBACK TO publish_fact_product_spread;
3594: FND_MESSAGE.set_name('OZF', 'OZF_TP_OPER_NOT_ALLOWED_TXT');
3595: FND_MSG_PUB.add;
3596: x_return_status := FND_API.g_ret_sts_error ;
3597: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3598: p_data => x_error_message);
3599: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_OPER_NOT_ALLOWED_TXT'));
3600:
3597: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3598: p_data => x_error_message);
3599: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_OPER_NOT_ALLOWED_TXT'));
3600:
3601: WHEN FND_API.G_EXC_ERROR THEN
3602: ROLLBACK TO publish_fact_product_spread;
3603: x_return_status := FND_API.g_ret_sts_error ;
3604: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3605: p_data => x_error_message);
3599: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_OPER_NOT_ALLOWED_TXT'));
3600:
3601: WHEN FND_API.G_EXC_ERROR THEN
3602: ROLLBACK TO publish_fact_product_spread;
3603: x_return_status := FND_API.g_ret_sts_error ;
3604: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3605: p_data => x_error_message);
3606:
3607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3603: x_return_status := FND_API.g_ret_sts_error ;
3604: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3605: p_data => x_error_message);
3606:
3607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3608: ROLLBACK TO publish_fact_product_spread;
3609: x_return_status := FND_API.g_ret_sts_unexp_error ;
3610: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3611: p_data => x_error_message);
3605: p_data => x_error_message);
3606:
3607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3608: ROLLBACK TO publish_fact_product_spread;
3609: x_return_status := FND_API.g_ret_sts_unexp_error ;
3610: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3611: p_data => x_error_message);
3612:
3613: WHEN OTHERS THEN
3611: p_data => x_error_message);
3612:
3613: WHEN OTHERS THEN
3614: ROLLBACK TO publish_fact_product_spread;
3615: x_return_status := FND_API.g_ret_sts_unexp_error ;
3616: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3617: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3618: END IF;
3619: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3632: -- ------------------------------------------------------------------------
3633: PROCEDURE delete_fact_product_spread
3634: (
3635: p_api_version IN NUMBER,
3636: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3637: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3638: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3639: x_return_status OUT NOCOPY VARCHAR2,
3640: x_error_number OUT NOCOPY NUMBER,
3633: PROCEDURE delete_fact_product_spread
3634: (
3635: p_api_version IN NUMBER,
3636: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3637: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3638: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3639: x_return_status OUT NOCOPY VARCHAR2,
3640: x_error_number OUT NOCOPY NUMBER,
3641: x_error_message OUT NOCOPY VARCHAR2,
3634: (
3635: p_api_version IN NUMBER,
3636: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3637: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3638: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3639: x_return_status OUT NOCOPY VARCHAR2,
3640: x_error_number OUT NOCOPY NUMBER,
3641: x_error_message OUT NOCOPY VARCHAR2,
3642: p_fact_id IN NUMBER
3666: -- Standard Start of API savepoint
3667: SAVEPOINT delete_fact_product_spread;
3668:
3669: -- Standard call to check for call compatibility.
3670: IF NOT FND_API.compatible_api_call(l_api_version,
3671: p_api_version,
3672: l_api_name,
3673: g_pkg_name)
3674: THEN
3671: p_api_version,
3672: l_api_name,
3673: g_pkg_name)
3674: THEN
3675: RAISE FND_API.g_exc_unexpected_error;
3676: END IF;
3677:
3678: -- Initialize message list if p_init_msg_list is set to TRUE.
3679: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3675: RAISE FND_API.g_exc_unexpected_error;
3676: END IF;
3677:
3678: -- Initialize message list if p_init_msg_list is set to TRUE.
3679: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3680: FND_MSG_PUB.initialize;
3681: END IF;
3682:
3683: -- Initialize API return status to SUCCESS
3680: FND_MSG_PUB.initialize;
3681: END IF;
3682:
3683: -- Initialize API return status to SUCCESS
3684: x_return_status := FND_API.g_ret_sts_success;
3685:
3686: l_fact_id := p_fact_id;
3687:
3688: ------- Start Deleting Product and Time Allocation Records -----------------------
3706: || 'FOR Fact_id = '|| l_fact_id || ' ; ');
3707: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- end');
3708:
3709: EXCEPTION
3710: WHEN FND_API.G_EXC_ERROR THEN
3711: ROLLBACK TO delete_fact_product_spread;
3712: x_return_status := FND_API.g_ret_sts_error ;
3713: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3714: p_data => x_error_message);
3708:
3709: EXCEPTION
3710: WHEN FND_API.G_EXC_ERROR THEN
3711: ROLLBACK TO delete_fact_product_spread;
3712: x_return_status := FND_API.g_ret_sts_error ;
3713: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3714: p_data => x_error_message);
3715:
3716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3712: x_return_status := FND_API.g_ret_sts_error ;
3713: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3714: p_data => x_error_message);
3715:
3716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3717: ROLLBACK TO delete_fact_product_spread;
3718: x_return_status := FND_API.g_ret_sts_unexp_error ;
3719: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3720: p_data => x_error_message);
3714: p_data => x_error_message);
3715:
3716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3717: ROLLBACK TO delete_fact_product_spread;
3718: x_return_status := FND_API.g_ret_sts_unexp_error ;
3719: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3720: p_data => x_error_message);
3721:
3722: WHEN OTHERS THEN
3720: p_data => x_error_message);
3721:
3722: WHEN OTHERS THEN
3723: ROLLBACK TO delete_fact_product_spread;
3724: x_return_status := FND_API.g_ret_sts_unexp_error ;
3725: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3726: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3727: END IF;
3728: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3742: -- --------------------------------------------------------------------
3743: PROCEDURE delete_cascade_product_spread
3744: (
3745: p_api_version IN NUMBER,
3746: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3747: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3748: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3749: x_return_status OUT NOCOPY VARCHAR2,
3750: x_error_number OUT NOCOPY NUMBER,
3743: PROCEDURE delete_cascade_product_spread
3744: (
3745: p_api_version IN NUMBER,
3746: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3747: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3748: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3749: x_return_status OUT NOCOPY VARCHAR2,
3750: x_error_number OUT NOCOPY NUMBER,
3751: x_error_message OUT NOCOPY VARCHAR2,
3744: (
3745: p_api_version IN NUMBER,
3746: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3747: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3748: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3749: x_return_status OUT NOCOPY VARCHAR2,
3750: x_error_number OUT NOCOPY NUMBER,
3751: x_error_message OUT NOCOPY VARCHAR2,
3752: p_fund_id IN NUMBER
3840: -- Standard Start of API savepoint
3841: SAVEPOINT delete_cascade_product_spread;
3842:
3843: -- Standard call to check for call compatibility.
3844: IF NOT FND_API.compatible_api_call(l_api_version,
3845: p_api_version,
3846: l_api_name,
3847: g_pkg_name)
3848: THEN
3845: p_api_version,
3846: l_api_name,
3847: g_pkg_name)
3848: THEN
3849: RAISE FND_API.g_exc_unexpected_error;
3850: END IF;
3851:
3852: -- Initialize message list if p_init_msg_list is set to TRUE.
3853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3849: RAISE FND_API.g_exc_unexpected_error;
3850: END IF;
3851:
3852: -- Initialize message list if p_init_msg_list is set to TRUE.
3853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3854: FND_MSG_PUB.initialize;
3855: END IF;
3856:
3857: -- Initialize API return status to SUCCESS
3854: FND_MSG_PUB.initialize;
3855: END IF;
3856:
3857: -- Initialize API return status to SUCCESS
3858: x_return_status := FND_API.g_ret_sts_success;
3859:
3860: l_fund_id := p_fund_id;
3861:
3862: OPEN fund_csr(l_fund_id);
3926: WHEN OZF_TP_CHG_PS_NOT_ALLOWED THEN
3927: ROLLBACK TO delete_cascade_product_spread;
3928: FND_MESSAGE.set_name('OZF', 'OZF_TP_CHG_PS_NOT_ALLOWED_TXT');
3929: FND_MSG_PUB.add;
3930: x_return_status := FND_API.g_ret_sts_error ;
3931: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3932: p_data => x_error_message);
3933: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_CHG_PS_NOT_ALLOWED_TXT'));
3934:
3931: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3932: p_data => x_error_message);
3933: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_CHG_PS_NOT_ALLOWED_TXT'));
3934:
3935: WHEN FND_API.G_EXC_ERROR THEN
3936: ROLLBACK TO delete_cascade_product_spread;
3937: x_return_status := FND_API.g_ret_sts_error ;
3938: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3939: p_data => x_error_message);
3933: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_CHG_PS_NOT_ALLOWED_TXT'));
3934:
3935: WHEN FND_API.G_EXC_ERROR THEN
3936: ROLLBACK TO delete_cascade_product_spread;
3937: x_return_status := FND_API.g_ret_sts_error ;
3938: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3939: p_data => x_error_message);
3940:
3941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3937: x_return_status := FND_API.g_ret_sts_error ;
3938: FND_MSG_PUB.count_and_get (p_count => x_error_number,
3939: p_data => x_error_message);
3940:
3941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3942: ROLLBACK TO delete_cascade_product_spread;
3943: x_return_status := FND_API.g_ret_sts_unexp_error ;
3944: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3945: p_data => x_error_message);
3939: p_data => x_error_message);
3940:
3941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3942: ROLLBACK TO delete_cascade_product_spread;
3943: x_return_status := FND_API.g_ret_sts_unexp_error ;
3944: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3945: p_data => x_error_message);
3946:
3947: WHEN OTHERS THEN
3945: p_data => x_error_message);
3946:
3947: WHEN OTHERS THEN
3948: ROLLBACK TO delete_cascade_product_spread;
3949: x_return_status := FND_API.g_ret_sts_unexp_error ;
3950: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3951: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
3952: END IF;
3953: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
3969: -- -----------------------------------------------------------------
3970: PROCEDURE add_cascade_product_spread
3971: (
3972: p_api_version IN NUMBER,
3973: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3974: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3975: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3976: x_return_status OUT NOCOPY VARCHAR2,
3977: x_error_number OUT NOCOPY NUMBER,
3970: PROCEDURE add_cascade_product_spread
3971: (
3972: p_api_version IN NUMBER,
3973: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3974: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3975: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3976: x_return_status OUT NOCOPY VARCHAR2,
3977: x_error_number OUT NOCOPY NUMBER,
3978: x_error_message OUT NOCOPY VARCHAR2,
3971: (
3972: p_api_version IN NUMBER,
3973: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3974: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3975: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3976: x_return_status OUT NOCOPY VARCHAR2,
3977: x_error_number OUT NOCOPY NUMBER,
3978: x_error_message OUT NOCOPY VARCHAR2,
3979: p_fund_id IN NUMBER,
4150: -- Standard Start of API savepoint
4151: SAVEPOINT add_cascade_product_spread;
4152:
4153: -- Standard call to check for call compatibility.
4154: IF NOT FND_API.compatible_api_call(l_api_version,
4155: p_api_version,
4156: l_api_name,
4157: g_pkg_name)
4158: THEN
4155: p_api_version,
4156: l_api_name,
4157: g_pkg_name)
4158: THEN
4159: RAISE FND_API.g_exc_unexpected_error;
4160: END IF;
4161:
4162: -- Initialize message list if p_init_msg_list is set to TRUE.
4163: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4159: RAISE FND_API.g_exc_unexpected_error;
4160: END IF;
4161:
4162: -- Initialize message list if p_init_msg_list is set to TRUE.
4163: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4164: FND_MSG_PUB.initialize;
4165: END IF;
4166:
4167: -- Initialize API return status to SUCCESS
4164: FND_MSG_PUB.initialize;
4165: END IF;
4166:
4167: -- Initialize API return status to SUCCESS
4168: x_return_status := FND_API.g_ret_sts_success;
4169:
4170: l_fund_id := p_fund_id;
4171:
4172: OPEN fund_csr(l_fund_id);
4360: WHEN OZF_TP_ADDITEM_NOT_ALLOWED THEN
4361: ROLLBACK TO add_cascade_product_spread;
4362: FND_MESSAGE.set_name('OZF', 'OZF_TP_ADDITEM_NOT_ALLOWED_TXT');
4363: FND_MSG_PUB.add;
4364: x_return_status := FND_API.g_ret_sts_error ;
4365: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4366: p_data => x_error_message);
4367: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_ADDITEM_NOT_ALLOWED_TXT'));
4368:
4365: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4366: p_data => x_error_message);
4367: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_ADDITEM_NOT_ALLOWED_TXT'));
4368:
4369: WHEN FND_API.G_EXC_ERROR THEN
4370: ROLLBACK TO add_cascade_product_spread;
4371: x_return_status := FND_API.g_ret_sts_error ;
4372: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4373: p_data => x_error_message);
4367: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_ADDITEM_NOT_ALLOWED_TXT'));
4368:
4369: WHEN FND_API.G_EXC_ERROR THEN
4370: ROLLBACK TO add_cascade_product_spread;
4371: x_return_status := FND_API.g_ret_sts_error ;
4372: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4373: p_data => x_error_message);
4374:
4375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4371: x_return_status := FND_API.g_ret_sts_error ;
4372: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4373: p_data => x_error_message);
4374:
4375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4376: ROLLBACK TO add_cascade_product_spread;
4377: x_return_status := FND_API.g_ret_sts_unexp_error ;
4378: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4379: p_data => x_error_message);
4373: p_data => x_error_message);
4374:
4375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4376: ROLLBACK TO add_cascade_product_spread;
4377: x_return_status := FND_API.g_ret_sts_unexp_error ;
4378: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4379: p_data => x_error_message);
4380:
4381: WHEN OTHERS THEN
4379: p_data => x_error_message);
4380:
4381: WHEN OTHERS THEN
4382: ROLLBACK TO add_cascade_product_spread;
4383: x_return_status := FND_API.g_ret_sts_unexp_error ;
4384: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4385: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4386: END IF;
4387: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4406: -- -----------------------------------------------------------------
4407: PROCEDURE delete_single_product
4408: (
4409: p_api_version IN NUMBER,
4410: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4411: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4412: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4413: x_return_status OUT NOCOPY VARCHAR2,
4414: x_error_number OUT NOCOPY NUMBER,
4407: PROCEDURE delete_single_product
4408: (
4409: p_api_version IN NUMBER,
4410: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4411: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4412: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4413: x_return_status OUT NOCOPY VARCHAR2,
4414: x_error_number OUT NOCOPY NUMBER,
4415: x_error_message OUT NOCOPY VARCHAR2,
4408: (
4409: p_api_version IN NUMBER,
4410: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4411: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4412: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4413: x_return_status OUT NOCOPY VARCHAR2,
4414: x_error_number OUT NOCOPY NUMBER,
4415: x_error_message OUT NOCOPY VARCHAR2,
4416: p_fund_id IN NUMBER,
4590: -- Standard Start of API savepoint
4591: SAVEPOINT delete_single_product;
4592:
4593: -- Standard call to check for call compatibility.
4594: IF NOT FND_API.compatible_api_call(l_api_version,
4595: p_api_version,
4596: l_api_name,
4597: g_pkg_name)
4598: THEN
4595: p_api_version,
4596: l_api_name,
4597: g_pkg_name)
4598: THEN
4599: RAISE FND_API.g_exc_unexpected_error;
4600: END IF;
4601:
4602: -- Initialize message list if p_init_msg_list is set to TRUE.
4603: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4599: RAISE FND_API.g_exc_unexpected_error;
4600: END IF;
4601:
4602: -- Initialize message list if p_init_msg_list is set to TRUE.
4603: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4604: FND_MSG_PUB.initialize;
4605: END IF;
4606:
4607: -- Initialize API return status to SUCCESS
4604: FND_MSG_PUB.initialize;
4605: END IF;
4606:
4607: -- Initialize API return status to SUCCESS
4608: x_return_status := FND_API.g_ret_sts_success;
4609:
4610: l_fund_id := p_fund_id;
4611:
4612: OPEN fund_csr(l_fund_id);
4715: WHEN OZF_TP_DELITEM_NOT_ALLOWED THEN
4716: ROLLBACK TO delete_single_product;
4717: FND_MESSAGE.set_name('OZF', 'OZF_TP_DELITEM_NOT_ALLOWED_TXT');
4718: FND_MSG_PUB.add;
4719: x_return_status := FND_API.g_ret_sts_error ;
4720: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4721: p_data => x_error_message);
4722: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DELITEM_NOT_ALLOWED_TXT'));
4723:
4720: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4721: p_data => x_error_message);
4722: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DELITEM_NOT_ALLOWED_TXT'));
4723:
4724: WHEN FND_API.G_EXC_ERROR THEN
4725: ROLLBACK TO delete_single_product;
4726: x_return_status := FND_API.g_ret_sts_error ;
4727: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4728: p_data => x_error_message);
4722: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_DELITEM_NOT_ALLOWED_TXT'));
4723:
4724: WHEN FND_API.G_EXC_ERROR THEN
4725: ROLLBACK TO delete_single_product;
4726: x_return_status := FND_API.g_ret_sts_error ;
4727: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4728: p_data => x_error_message);
4729:
4730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4726: x_return_status := FND_API.g_ret_sts_error ;
4727: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4728: p_data => x_error_message);
4729:
4730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4731: ROLLBACK TO delete_single_product;
4732: x_return_status := FND_API.g_ret_sts_unexp_error ;
4733: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4734: p_data => x_error_message);
4728: p_data => x_error_message);
4729:
4730: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4731: ROLLBACK TO delete_single_product;
4732: x_return_status := FND_API.g_ret_sts_unexp_error ;
4733: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4734: p_data => x_error_message);
4735:
4736: WHEN OTHERS THEN
4734: p_data => x_error_message);
4735:
4736: WHEN OTHERS THEN
4737: ROLLBACK TO delete_single_product;
4738: x_return_status := FND_API.g_ret_sts_unexp_error ;
4739: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4740: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4741: END IF;
4742: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4756: -- ------------------------------------------------------------------------
4757: PROCEDURE delete_target_allocation
4758: (
4759: p_api_version IN NUMBER,
4760: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4761: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4762: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4763: x_return_status OUT NOCOPY VARCHAR2,
4764: x_error_number OUT NOCOPY NUMBER,
4757: PROCEDURE delete_target_allocation
4758: (
4759: p_api_version IN NUMBER,
4760: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4761: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4762: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4763: x_return_status OUT NOCOPY VARCHAR2,
4764: x_error_number OUT NOCOPY NUMBER,
4765: x_error_message OUT NOCOPY VARCHAR2,
4758: (
4759: p_api_version IN NUMBER,
4760: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4761: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4762: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4763: x_return_status OUT NOCOPY VARCHAR2,
4764: x_error_number OUT NOCOPY NUMBER,
4765: x_error_message OUT NOCOPY VARCHAR2,
4766: p_fund_id IN NUMBER
4800: -- Standard Start of API savepoint
4801: SAVEPOINT delete_target_allocation;
4802:
4803: -- Standard call to check for call compatibility.
4804: IF NOT FND_API.compatible_api_call(l_api_version,
4805: p_api_version,
4806: l_api_name,
4807: g_pkg_name)
4808: THEN
4805: p_api_version,
4806: l_api_name,
4807: g_pkg_name)
4808: THEN
4809: RAISE FND_API.g_exc_unexpected_error;
4810: END IF;
4811:
4812: -- Initialize message list if p_init_msg_list is set to TRUE.
4813: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4809: RAISE FND_API.g_exc_unexpected_error;
4810: END IF;
4811:
4812: -- Initialize message list if p_init_msg_list is set to TRUE.
4813: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4814: FND_MSG_PUB.initialize;
4815: END IF;
4816:
4817: -- Initialize API return status to SUCCESS
4814: FND_MSG_PUB.initialize;
4815: END IF;
4816:
4817: -- Initialize API return status to SUCCESS
4818: x_return_status := FND_API.g_ret_sts_success;
4819:
4820: l_fund_id := p_fund_id;
4821:
4822: ------- Start Deleting Product and Time Allocation Records -----------------------
4855:
4856: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- end');
4857:
4858: EXCEPTION
4859: WHEN FND_API.G_EXC_ERROR THEN
4860: ROLLBACK TO delete_target_allocation;
4861: x_return_status := FND_API.g_ret_sts_error ;
4862: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4863: p_data => x_error_message);
4857:
4858: EXCEPTION
4859: WHEN FND_API.G_EXC_ERROR THEN
4860: ROLLBACK TO delete_target_allocation;
4861: x_return_status := FND_API.g_ret_sts_error ;
4862: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4863: p_data => x_error_message);
4864:
4865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4861: x_return_status := FND_API.g_ret_sts_error ;
4862: FND_MSG_PUB.count_and_get (p_count => x_error_number,
4863: p_data => x_error_message);
4864:
4865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4866: ROLLBACK TO delete_target_allocation;
4867: x_return_status := FND_API.g_ret_sts_unexp_error ;
4868: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4869: p_data => x_error_message);
4863: p_data => x_error_message);
4864:
4865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4866: ROLLBACK TO delete_target_allocation;
4867: x_return_status := FND_API.g_ret_sts_unexp_error ;
4868: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4869: p_data => x_error_message);
4870:
4871: WHEN OTHERS THEN
4869: p_data => x_error_message);
4870:
4871: WHEN OTHERS THEN
4872: ROLLBACK TO delete_target_allocation;
4873: x_return_status := FND_API.g_ret_sts_unexp_error ;
4874: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4875: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
4876: END IF;
4877: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
4897: -- -----------------------------------------------------------------
4898: PROCEDURE old_allocate_target_first_time
4899: (
4900: p_api_version IN NUMBER,
4901: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4902: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4903: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4904: x_return_status OUT NOCOPY VARCHAR2,
4905: x_error_number OUT NOCOPY NUMBER,
4898: PROCEDURE old_allocate_target_first_time
4899: (
4900: p_api_version IN NUMBER,
4901: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4902: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4903: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4904: x_return_status OUT NOCOPY VARCHAR2,
4905: x_error_number OUT NOCOPY NUMBER,
4906: x_error_message OUT NOCOPY VARCHAR2,
4899: (
4900: p_api_version IN NUMBER,
4901: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4902: p_commit IN VARCHAR2 := FND_API.G_FALSE,
4903: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4904: x_return_status OUT NOCOPY VARCHAR2,
4905: x_error_number OUT NOCOPY NUMBER,
4906: x_error_message OUT NOCOPY VARCHAR2,
4907: p_fund_id IN NUMBER
5263: SAVEPOINT old_allocate_target_first_time;
5264:
5265:
5266: -- Standard call to check for call compatibility.
5267: IF NOT FND_API.compatible_api_call(l_api_version,
5268: p_api_version,
5269: l_api_name,
5270: g_pkg_name)
5271: THEN
5268: p_api_version,
5269: l_api_name,
5270: g_pkg_name)
5271: THEN
5272: RAISE FND_API.g_exc_unexpected_error;
5273: END IF;
5274:
5275: -- Initialize message list if p_init_msg_list is set to TRUE.
5276: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5272: RAISE FND_API.g_exc_unexpected_error;
5273: END IF;
5274:
5275: -- Initialize message list if p_init_msg_list is set to TRUE.
5276: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5277: FND_MSG_PUB.initialize;
5278: END IF;
5279:
5280: -- Initialize API return status to SUCCESS
5277: FND_MSG_PUB.initialize;
5278: END IF;
5279:
5280: -- Initialize API return status to SUCCESS
5281: x_return_status := FND_API.g_ret_sts_success;
5282:
5283: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- start');
5284:
5285: l_fund_id := p_fund_id;
5924: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN','UNALLOCATED FUND');
5925: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_fund_id);
5926: fnd_msg_pub.ADD;
5927: END IF;
5928: RAISE fnd_api.g_exc_unexpected_error;
5929: END IF;
5930:
5931: END IF;
5932: END IF;
5947: WHEN OZF_TP_INVALID_PARAM THEN
5948: ROLLBACK TO old_allocate_target_first_time;
5949: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
5950: FND_MSG_PUB.add;
5951: x_return_status := FND_API.g_ret_sts_error ;
5952: FND_MSG_PUB.count_and_get (p_count => x_error_number,
5953: p_data => x_error_message);
5954: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
5955: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
5953: p_data => x_error_message);
5954: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
5955: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
5956:
5957: WHEN FND_API.G_EXC_ERROR THEN
5958: ROLLBACK TO old_allocate_target_first_time;
5959: x_return_status := FND_API.g_ret_sts_error ;
5960: FND_MSG_PUB.count_and_get (p_count => x_error_number,
5961: p_data => x_error_message);
5955: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
5956:
5957: WHEN FND_API.G_EXC_ERROR THEN
5958: ROLLBACK TO old_allocate_target_first_time;
5959: x_return_status := FND_API.g_ret_sts_error ;
5960: FND_MSG_PUB.count_and_get (p_count => x_error_number,
5961: p_data => x_error_message);
5962:
5963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5959: x_return_status := FND_API.g_ret_sts_error ;
5960: FND_MSG_PUB.count_and_get (p_count => x_error_number,
5961: p_data => x_error_message);
5962:
5963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5964: ROLLBACK TO old_allocate_target_first_time;
5965: x_return_status := FND_API.g_ret_sts_unexp_error ;
5966: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
5967: p_data => x_error_message);
5961: p_data => x_error_message);
5962:
5963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5964: ROLLBACK TO old_allocate_target_first_time;
5965: x_return_status := FND_API.g_ret_sts_unexp_error ;
5966: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
5967: p_data => x_error_message);
5968:
5969: WHEN OTHERS THEN
5973: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
5974: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
5975: FND_MSG_PUB.add;
5976:
5977: x_return_status := FND_API.g_ret_sts_unexp_error ;
5978: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5979: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
5980: END IF;
5981: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
6001: -- -----------------------------------------------------------------
6002: PROCEDURE allocate_target_first_time
6003: (
6004: p_api_version IN NUMBER,
6005: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6006: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6007: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6008: x_return_status OUT NOCOPY VARCHAR2,
6009: x_error_number OUT NOCOPY NUMBER,
6002: PROCEDURE allocate_target_first_time
6003: (
6004: p_api_version IN NUMBER,
6005: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6006: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6007: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6008: x_return_status OUT NOCOPY VARCHAR2,
6009: x_error_number OUT NOCOPY NUMBER,
6010: x_error_message OUT NOCOPY VARCHAR2,
6003: (
6004: p_api_version IN NUMBER,
6005: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
6006: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6007: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6008: x_return_status OUT NOCOPY VARCHAR2,
6009: x_error_number OUT NOCOPY NUMBER,
6010: x_error_message OUT NOCOPY VARCHAR2,
6011: p_fund_id IN NUMBER
6373: SAVEPOINT allocate_target_first_time;
6374:
6375:
6376: -- Standard call to check for call compatibility.
6377: IF NOT FND_API.compatible_api_call(l_api_version,
6378: p_api_version,
6379: l_api_name,
6380: g_pkg_name)
6381: THEN
6378: p_api_version,
6379: l_api_name,
6380: g_pkg_name)
6381: THEN
6382: RAISE FND_API.g_exc_unexpected_error;
6383: END IF;
6384:
6385: -- Initialize message list if p_init_msg_list is set to TRUE.
6386: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6382: RAISE FND_API.g_exc_unexpected_error;
6383: END IF;
6384:
6385: -- Initialize message list if p_init_msg_list is set to TRUE.
6386: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6387: FND_MSG_PUB.initialize;
6388: END IF;
6389:
6390: -- Initialize API return status to SUCCESS
6387: FND_MSG_PUB.initialize;
6388: END IF;
6389:
6390: -- Initialize API return status to SUCCESS
6391: x_return_status := FND_API.g_ret_sts_success;
6392:
6393: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- start');
6394:
6395: l_fund_id := p_fund_id;
6686: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
6687: fnd_msg_pub.ADD;
6688: END IF;
6689:
6690: RAISE fnd_api.g_exc_unexpected_error;
6691: END IF;
6692:
6693: EXCEPTION
6694: WHEN OTHERS THEN
6917: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
6918: fnd_msg_pub.ADD;
6919: END IF;
6920:
6921: RAISE fnd_api.g_exc_unexpected_error;
6922: END IF;
6923:
6924: UPDATE OZF_PRODUCT_ALLOCATIONS p
6925: SET p.TARGET = (SELECT SUM(ti.TARGET)
6938: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
6939: fnd_msg_pub.ADD;
6940: END IF;
6941:
6942: RAISE fnd_api.g_exc_unexpected_error;
6943: END IF;
6944:
6945:
6946:
6968: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
6969: fnd_msg_pub.ADD;
6970: END IF;
6971:
6972: RAISE fnd_api.g_exc_unexpected_error;
6973: END IF;
6974: */
6975:
6976: UPDATE OZF_TIME_ALLOCATIONS t
6990: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
6991: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
6992: fnd_msg_pub.ADD;
6993: END IF;
6994: RAISE fnd_api.g_exc_unexpected_error;
6995: END IF;
6996:
6997: UPDATE OZF_PRODUCT_ALLOCATIONS p
6998: SET p.TARGET = (SELECT SUM(ti.TARGET)
7012: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
7013: fnd_msg_pub.ADD;
7014: END IF;
7015:
7016: RAISE fnd_api.g_exc_unexpected_error;
7017: END IF;
7018:
7019:
7020:
7103: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7104: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7105: fnd_msg_pub.ADD;
7106: END IF;
7107: RAISE fnd_api.g_exc_unexpected_error;
7108: END IF;
7109:
7110: UPDATE OZF_PRODUCT_ALLOCATIONS p
7111: SET p.TARGET = p.TARGET + l_diff_target,
7119: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7120: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
7121: fnd_msg_pub.ADD;
7122: END IF;
7123: RAISE fnd_api.g_exc_unexpected_error;
7124: END IF;
7125: */
7126:
7127:
7146: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7147: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7148: fnd_msg_pub.ADD;
7149: END IF;
7150: RAISE fnd_api.g_exc_unexpected_error;
7151: END IF;
7152:
7153: UPDATE OZF_PRODUCT_ALLOCATIONS p
7154: SET p.TARGET = p.TARGET + l_diff_target,
7164: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7165: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
7166: fnd_msg_pub.ADD;
7167: END IF;
7168: RAISE fnd_api.g_exc_unexpected_error;
7169: END IF;
7170: ---------------------------------------------------------------------------------------------------
7171: */
7172:
7357: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN','UNALLOCATED FUND');
7358: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_fund_id);
7359: fnd_msg_pub.ADD;
7360: END IF;
7361: RAISE fnd_api.g_exc_unexpected_error;
7362: END IF;
7363:
7364: END IF;
7365: END IF;
7417: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7418: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7419: fnd_msg_pub.ADD;
7420: END IF;
7421: RAISE fnd_api.g_exc_unexpected_error;
7422: END IF;
7423:
7424:
7425: UPDATE OZF_ACCOUNT_ALLOCATIONS a
7437: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7438: fnd_msg_pub.ADD;
7439: END IF;
7440:
7441: RAISE fnd_api.g_exc_unexpected_error;
7442: END IF;
7443: */
7444:
7445:
7498: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN','QUOTA');
7499: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN',l_fund_id);
7500: fnd_msg_pub.ADD;
7501: END IF;
7502: RAISE fnd_api.g_exc_unexpected_error;
7503: END IF;
7504:
7505:
7506: -- OZF_UTILITY_PVT.debug_message('4.mkothari--'||'ALL TARGETS AccAllocID=> '||l_temp_account_allocation_id|| ';');
7519: fnd_message.set_token('OZF_TP_OBJECT_TYPE_TOKEN', 'ACCOUNT ALLOCATION');
7520: fnd_message.set_token('OZF_TP_OBJECT_ID_TOKEN', l_temp_account_allocation_id);
7521: fnd_msg_pub.ADD;
7522: END IF;
7523: RAISE fnd_api.g_exc_unexpected_error;
7524: END IF;
7525:
7526:
7527:
7579: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7580: fnd_message.set_name ('OZF', 'OZF_TP_TIMEALLOC_NOT_FOUND_TXT');
7581: fnd_msg_pub.ADD;
7582: END IF;
7583: RAISE fnd_api.g_exc_unexpected_error;
7584: END IF;
7585:
7586: UPDATE OZF_PRODUCT_ALLOCATIONS p
7587: SET p.TARGET = p.TARGET + l_diff_target,
7595: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
7596: fnd_message.set_name ('OZF', 'OZF_TP_PRODALLOC_NOT_FOUND_TXT');
7597: fnd_msg_pub.ADD;
7598: END IF;
7599: RAISE fnd_api.g_exc_unexpected_error;
7600: END IF;
7601:
7602: */
7603:
7614: WHEN OZF_TP_INVALID_PARAM THEN
7615: ROLLBACK TO allocate_target_first_time;
7616: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
7617: FND_MSG_PUB.add;
7618: x_return_status := FND_API.g_ret_sts_error ;
7619: FND_MSG_PUB.count_and_get (p_count => x_error_number,
7620: p_data => x_error_message);
7621: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
7622: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
7620: p_data => x_error_message);
7621: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
7622: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
7623:
7624: WHEN FND_API.G_EXC_ERROR THEN
7625: ROLLBACK TO allocate_target_first_time;
7626: x_return_status := FND_API.g_ret_sts_error ;
7627: FND_MSG_PUB.count_and_get (p_count => x_error_number,
7628: p_data => x_error_message);
7622: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
7623:
7624: WHEN FND_API.G_EXC_ERROR THEN
7625: ROLLBACK TO allocate_target_first_time;
7626: x_return_status := FND_API.g_ret_sts_error ;
7627: FND_MSG_PUB.count_and_get (p_count => x_error_number,
7628: p_data => x_error_message);
7629:
7630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7626: x_return_status := FND_API.g_ret_sts_error ;
7627: FND_MSG_PUB.count_and_get (p_count => x_error_number,
7628: p_data => x_error_message);
7629:
7630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7631: ROLLBACK TO allocate_target_first_time;
7632: x_return_status := FND_API.g_ret_sts_unexp_error ;
7633: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
7634: p_data => x_error_message);
7628: p_data => x_error_message);
7629:
7630: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7631: ROLLBACK TO allocate_target_first_time;
7632: x_return_status := FND_API.g_ret_sts_unexp_error ;
7633: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
7634: p_data => x_error_message);
7635:
7636: WHEN OTHERS THEN
7640: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
7641: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
7642: FND_MSG_PUB.add;
7643:
7644: x_return_status := FND_API.g_ret_sts_unexp_error ;
7645: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7646: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
7647: END IF;
7648: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
7672: -- -----------------------------------------------------------------
7673: PROCEDURE allocate_target_addon
7674: (
7675: p_api_version IN NUMBER,
7676: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7677: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7678: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7679: x_return_status OUT NOCOPY VARCHAR2,
7680: x_error_number OUT NOCOPY NUMBER,
7673: PROCEDURE allocate_target_addon
7674: (
7675: p_api_version IN NUMBER,
7676: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7677: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7678: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7679: x_return_status OUT NOCOPY VARCHAR2,
7680: x_error_number OUT NOCOPY NUMBER,
7681: x_error_message OUT NOCOPY VARCHAR2,
7674: (
7675: p_api_version IN NUMBER,
7676: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
7677: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7678: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7679: x_return_status OUT NOCOPY VARCHAR2,
7680: x_error_number OUT NOCOPY NUMBER,
7681: x_error_message OUT NOCOPY VARCHAR2,
7682: p_fund_id IN NUMBER,
8038: SAVEPOINT allocate_target_addon;
8039:
8040:
8041: -- Standard call to check for call compatibility.
8042: IF NOT FND_API.compatible_api_call(l_api_version,
8043: p_api_version,
8044: l_api_name,
8045: g_pkg_name)
8046: THEN
8043: p_api_version,
8044: l_api_name,
8045: g_pkg_name)
8046: THEN
8047: RAISE FND_API.g_exc_unexpected_error;
8048: END IF;
8049:
8050: -- Initialize message list if p_init_msg_list is set to TRUE.
8051: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8047: RAISE FND_API.g_exc_unexpected_error;
8048: END IF;
8049:
8050: -- Initialize message list if p_init_msg_list is set to TRUE.
8051: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8052: FND_MSG_PUB.initialize;
8053: END IF;
8054:
8055: -- Initialize API return status to SUCCESS
8052: FND_MSG_PUB.initialize;
8053: END IF;
8054:
8055: -- Initialize API return status to SUCCESS
8056: x_return_status := FND_API.g_ret_sts_success;
8057:
8058: OZF_UTILITY_PVT.debug_message('Private API: ' || l_full_api_name || ' -- start');
8059:
8060: l_fund_id := p_fund_id;
8111: );
8112: EXCEPTION
8113: WHEN OTHERS THEN
8114: ROLLBACK TO allocate_target_addon;
8115: x_return_status := FND_API.g_ret_sts_unexp_error ;
8116: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8117: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
8118: END IF;
8119: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8532: WHEN OZF_TP_INVALID_PARAM THEN
8533: ROLLBACK TO allocate_target_addon;
8534: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
8535: FND_MSG_PUB.add;
8536: x_return_status := FND_API.g_ret_sts_error ;
8537: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8538: p_data => x_error_message);
8539: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8540: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8538: p_data => x_error_message);
8539: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8540: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8541:
8542: WHEN FND_API.G_EXC_ERROR THEN
8543: ROLLBACK TO allocate_target_addon;
8544: x_return_status := FND_API.g_ret_sts_error ;
8545: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8546: p_data => x_error_message);
8540: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8541:
8542: WHEN FND_API.G_EXC_ERROR THEN
8543: ROLLBACK TO allocate_target_addon;
8544: x_return_status := FND_API.g_ret_sts_error ;
8545: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8546: p_data => x_error_message);
8547:
8548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8544: x_return_status := FND_API.g_ret_sts_error ;
8545: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8546: p_data => x_error_message);
8547:
8548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8549: ROLLBACK TO allocate_target_addon;
8550: x_return_status := FND_API.g_ret_sts_unexp_error ;
8551: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8552: p_data => x_error_message);
8546: p_data => x_error_message);
8547:
8548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8549: ROLLBACK TO allocate_target_addon;
8550: x_return_status := FND_API.g_ret_sts_unexp_error ;
8551: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8552: p_data => x_error_message);
8553:
8554: WHEN OTHERS THEN
8558: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
8559: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
8560: FND_MSG_PUB.add;
8561:
8562: x_return_status := FND_API.g_ret_sts_unexp_error ;
8563: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8564: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
8565: END IF;
8566: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8628: -- -----------------------------------------------------------------
8629: PROCEDURE setup_product_spread
8630: (
8631: p_api_version IN NUMBER,
8632: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8633: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8634: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8635: x_return_status OUT NOCOPY VARCHAR2,
8636: x_error_number OUT NOCOPY NUMBER,
8629: PROCEDURE setup_product_spread
8630: (
8631: p_api_version IN NUMBER,
8632: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8633: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8634: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8635: x_return_status OUT NOCOPY VARCHAR2,
8636: x_error_number OUT NOCOPY NUMBER,
8637: x_error_message OUT NOCOPY VARCHAR2,
8630: (
8631: p_api_version IN NUMBER,
8632: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8633: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8634: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8635: x_return_status OUT NOCOPY VARCHAR2,
8636: x_error_number OUT NOCOPY NUMBER,
8637: x_error_message OUT NOCOPY VARCHAR2,
8638: p_mode IN VARCHAR2,
8654: SAVEPOINT setup_product_spread;
8655:
8656:
8657: -- Standard call to check for call compatibility.
8658: IF NOT FND_API.compatible_api_call(l_api_version,
8659: p_api_version,
8660: l_api_name,
8661: g_pkg_name)
8662: THEN
8659: p_api_version,
8660: l_api_name,
8661: g_pkg_name)
8662: THEN
8663: RAISE FND_API.g_exc_unexpected_error;
8664: END IF;
8665:
8666: -- Initialize message list if p_init_msg_list is set to TRUE.
8667: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8663: RAISE FND_API.g_exc_unexpected_error;
8664: END IF;
8665:
8666: -- Initialize message list if p_init_msg_list is set to TRUE.
8667: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8668: FND_MSG_PUB.initialize;
8669: END IF;
8670:
8671: -- Initialize API return status to SUCCESS
8668: FND_MSG_PUB.initialize;
8669: END IF;
8670:
8671: -- Initialize API return status to SUCCESS
8672: x_return_status := FND_API.g_ret_sts_success;
8673:
8674: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- start');
8675:
8676: l_mode := p_mode;
8747: END IF;
8748:
8749:
8750: -- If any errors happen abort API.
8751: IF x_return_status = FND_API.g_ret_sts_error THEN
8752: RAISE FND_API.g_exc_error;
8753: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8754: RAISE FND_API.g_exc_unexpected_error;
8755: END IF;
8748:
8749:
8750: -- If any errors happen abort API.
8751: IF x_return_status = FND_API.g_ret_sts_error THEN
8752: RAISE FND_API.g_exc_error;
8753: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8754: RAISE FND_API.g_exc_unexpected_error;
8755: END IF;
8756:
8749:
8750: -- If any errors happen abort API.
8751: IF x_return_status = FND_API.g_ret_sts_error THEN
8752: RAISE FND_API.g_exc_error;
8753: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8754: RAISE FND_API.g_exc_unexpected_error;
8755: END IF;
8756:
8757: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
8750: -- If any errors happen abort API.
8751: IF x_return_status = FND_API.g_ret_sts_error THEN
8752: RAISE FND_API.g_exc_error;
8753: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8754: RAISE FND_API.g_exc_unexpected_error;
8755: END IF;
8756:
8757: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
8758:
8761: WHEN OZF_TP_INVALID_PARAM THEN
8762: ROLLBACK TO setup_product_spread;
8763: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
8764: FND_MSG_PUB.add;
8765: x_return_status := FND_API.g_ret_sts_error ;
8766: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8767: p_data => x_error_message);
8768: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8769: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8767: p_data => x_error_message);
8768: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8769: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8770:
8771: WHEN FND_API.G_EXC_ERROR THEN
8772: ROLLBACK TO setup_product_spread;
8773: x_return_status := FND_API.g_ret_sts_error ;
8774: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8775: p_data => x_error_message);
8769: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8770:
8771: WHEN FND_API.G_EXC_ERROR THEN
8772: ROLLBACK TO setup_product_spread;
8773: x_return_status := FND_API.g_ret_sts_error ;
8774: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8775: p_data => x_error_message);
8776:
8777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8773: x_return_status := FND_API.g_ret_sts_error ;
8774: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8775: p_data => x_error_message);
8776:
8777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8778: ROLLBACK TO setup_product_spread;
8779: x_return_status := FND_API.g_ret_sts_unexp_error ;
8780: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8781: p_data => x_error_message);
8775: p_data => x_error_message);
8776:
8777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8778: ROLLBACK TO setup_product_spread;
8779: x_return_status := FND_API.g_ret_sts_unexp_error ;
8780: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8781: p_data => x_error_message);
8782:
8783: WHEN OTHERS THEN
8787: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
8788: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
8789: FND_MSG_PUB.add;
8790:
8791: x_return_status := FND_API.g_ret_sts_unexp_error ;
8792: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8793: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
8794: END IF;
8795: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8816: -- -----------------------------------------------------------------
8817: PROCEDURE cascade_product_spread
8818: (
8819: p_api_version IN NUMBER,
8820: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8821: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8822: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8823: x_return_status OUT NOCOPY VARCHAR2,
8824: x_error_number OUT NOCOPY NUMBER,
8817: PROCEDURE cascade_product_spread
8818: (
8819: p_api_version IN NUMBER,
8820: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8821: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8822: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8823: x_return_status OUT NOCOPY VARCHAR2,
8824: x_error_number OUT NOCOPY NUMBER,
8825: x_error_message OUT NOCOPY VARCHAR2,
8818: (
8819: p_api_version IN NUMBER,
8820: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8821: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8822: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8823: x_return_status OUT NOCOPY VARCHAR2,
8824: x_error_number OUT NOCOPY NUMBER,
8825: x_error_message OUT NOCOPY VARCHAR2,
8826: p_mode IN VARCHAR2,
8844: SAVEPOINT cascade_product_spread;
8845:
8846:
8847: -- Standard call to check for call compatibility.
8848: IF NOT FND_API.compatible_api_call(l_api_version,
8849: p_api_version,
8850: l_api_name,
8851: g_pkg_name)
8852: THEN
8849: p_api_version,
8850: l_api_name,
8851: g_pkg_name)
8852: THEN
8853: RAISE FND_API.g_exc_unexpected_error;
8854: END IF;
8855:
8856: -- Initialize message list if p_init_msg_list is set to TRUE.
8857: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8853: RAISE FND_API.g_exc_unexpected_error;
8854: END IF;
8855:
8856: -- Initialize message list if p_init_msg_list is set to TRUE.
8857: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8858: FND_MSG_PUB.initialize;
8859: END IF;
8860:
8861: -- Initialize API return status to SUCCESS
8858: FND_MSG_PUB.initialize;
8859: END IF;
8860:
8861: -- Initialize API return status to SUCCESS
8862: x_return_status := FND_API.g_ret_sts_success;
8863:
8864: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- start');
8865:
8866: l_mode := p_mode;
8912: END IF;
8913:
8914:
8915: -- If any errors happen abort API.
8916: IF x_return_status = FND_API.g_ret_sts_error THEN
8917: RAISE FND_API.g_exc_error;
8918: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8919: RAISE FND_API.g_exc_unexpected_error;
8920: END IF;
8913:
8914:
8915: -- If any errors happen abort API.
8916: IF x_return_status = FND_API.g_ret_sts_error THEN
8917: RAISE FND_API.g_exc_error;
8918: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8919: RAISE FND_API.g_exc_unexpected_error;
8920: END IF;
8921:
8914:
8915: -- If any errors happen abort API.
8916: IF x_return_status = FND_API.g_ret_sts_error THEN
8917: RAISE FND_API.g_exc_error;
8918: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8919: RAISE FND_API.g_exc_unexpected_error;
8920: END IF;
8921:
8922: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
8915: -- If any errors happen abort API.
8916: IF x_return_status = FND_API.g_ret_sts_error THEN
8917: RAISE FND_API.g_exc_error;
8918: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8919: RAISE FND_API.g_exc_unexpected_error;
8920: END IF;
8921:
8922: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
8923:
8926: WHEN OZF_TP_INVALID_PARAM THEN
8927: ROLLBACK TO cascade_product_spread;
8928: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
8929: FND_MSG_PUB.add;
8930: x_return_status := FND_API.g_ret_sts_error ;
8931: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8932: p_data => x_error_message);
8933: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8934: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8932: p_data => x_error_message);
8933: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
8934: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8935:
8936: WHEN FND_API.G_EXC_ERROR THEN
8937: ROLLBACK TO cascade_product_spread;
8938: x_return_status := FND_API.g_ret_sts_error ;
8939: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8940: p_data => x_error_message);
8934: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
8935:
8936: WHEN FND_API.G_EXC_ERROR THEN
8937: ROLLBACK TO cascade_product_spread;
8938: x_return_status := FND_API.g_ret_sts_error ;
8939: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8940: p_data => x_error_message);
8941:
8942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8938: x_return_status := FND_API.g_ret_sts_error ;
8939: FND_MSG_PUB.count_and_get (p_count => x_error_number,
8940: p_data => x_error_message);
8941:
8942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8943: ROLLBACK TO cascade_product_spread;
8944: x_return_status := FND_API.g_ret_sts_unexp_error ;
8945: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8946: p_data => x_error_message);
8940: p_data => x_error_message);
8941:
8942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8943: ROLLBACK TO cascade_product_spread;
8944: x_return_status := FND_API.g_ret_sts_unexp_error ;
8945: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8946: p_data => x_error_message);
8947:
8948: WHEN OTHERS THEN
8952: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
8953: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
8954: FND_MSG_PUB.add;
8955:
8956: x_return_status := FND_API.g_ret_sts_unexp_error ;
8957: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8958: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
8959: END IF;
8960: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
8976: -- -----------------------------------------------------------------
8977: PROCEDURE allocate_target
8978: (
8979: p_api_version IN NUMBER,
8980: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8981: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8982: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8983: x_return_status OUT NOCOPY VARCHAR2,
8984: x_error_number OUT NOCOPY NUMBER,
8977: PROCEDURE allocate_target
8978: (
8979: p_api_version IN NUMBER,
8980: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8981: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8982: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8983: x_return_status OUT NOCOPY VARCHAR2,
8984: x_error_number OUT NOCOPY NUMBER,
8985: x_error_message OUT NOCOPY VARCHAR2,
8978: (
8979: p_api_version IN NUMBER,
8980: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
8981: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8982: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8983: x_return_status OUT NOCOPY VARCHAR2,
8984: x_error_number OUT NOCOPY NUMBER,
8985: x_error_message OUT NOCOPY VARCHAR2,
8986: p_mode IN VARCHAR2,
9016: SAVEPOINT allocate_target;
9017:
9018:
9019: -- Standard call to check for call compatibility.
9020: IF NOT FND_API.compatible_api_call(l_api_version,
9021: p_api_version,
9022: l_api_name,
9023: g_pkg_name)
9024: THEN
9021: p_api_version,
9022: l_api_name,
9023: g_pkg_name)
9024: THEN
9025: RAISE FND_API.g_exc_unexpected_error;
9026: END IF;
9027:
9028: -- Initialize message list if p_init_msg_list is set to TRUE.
9029: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9025: RAISE FND_API.g_exc_unexpected_error;
9026: END IF;
9027:
9028: -- Initialize message list if p_init_msg_list is set to TRUE.
9029: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9030: FND_MSG_PUB.initialize;
9031: END IF;
9032:
9033: -- Initialize API return status to SUCCESS
9030: FND_MSG_PUB.initialize;
9031: END IF;
9032:
9033: -- Initialize API return status to SUCCESS
9034: x_return_status := FND_API.g_ret_sts_success;
9035:
9036: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- start');
9037:
9038: l_mode := p_mode;
9109: END IF;
9110:
9111:
9112: -- If any errors happen abort API.
9113: IF x_return_status = FND_API.g_ret_sts_error THEN
9114: RAISE FND_API.g_exc_error;
9115: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9116: RAISE FND_API.g_exc_unexpected_error;
9117: END IF;
9110:
9111:
9112: -- If any errors happen abort API.
9113: IF x_return_status = FND_API.g_ret_sts_error THEN
9114: RAISE FND_API.g_exc_error;
9115: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9116: RAISE FND_API.g_exc_unexpected_error;
9117: END IF;
9118:
9111:
9112: -- If any errors happen abort API.
9113: IF x_return_status = FND_API.g_ret_sts_error THEN
9114: RAISE FND_API.g_exc_error;
9115: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9116: RAISE FND_API.g_exc_unexpected_error;
9117: END IF;
9118:
9119: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
9112: -- If any errors happen abort API.
9113: IF x_return_status = FND_API.g_ret_sts_error THEN
9114: RAISE FND_API.g_exc_error;
9115: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9116: RAISE FND_API.g_exc_unexpected_error;
9117: END IF;
9118:
9119: OZF_UTILITY_PVT.debug_message('Public API: ' || l_full_api_name || ' -- end');
9120:
9123: WHEN OZF_TP_INVALID_PARAM THEN
9124: ROLLBACK TO allocate_target;
9125: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
9126: FND_MSG_PUB.add;
9127: x_return_status := FND_API.g_ret_sts_error ;
9128: FND_MSG_PUB.count_and_get (p_count => x_error_number,
9129: p_data => x_error_message);
9130: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
9131: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
9129: p_data => x_error_message);
9130: OZF_UTILITY_PVT.debug_message(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
9131: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
9132:
9133: WHEN FND_API.G_EXC_ERROR THEN
9134: ROLLBACK TO allocate_target;
9135: x_return_status := FND_API.g_ret_sts_error ;
9136: FND_MSG_PUB.count_and_get (p_count => x_error_number,
9137: p_data => x_error_message);
9131: OZF_UTILITY_PVT.debug_message(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
9132:
9133: WHEN FND_API.G_EXC_ERROR THEN
9134: ROLLBACK TO allocate_target;
9135: x_return_status := FND_API.g_ret_sts_error ;
9136: FND_MSG_PUB.count_and_get (p_count => x_error_number,
9137: p_data => x_error_message);
9138:
9139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9135: x_return_status := FND_API.g_ret_sts_error ;
9136: FND_MSG_PUB.count_and_get (p_count => x_error_number,
9137: p_data => x_error_message);
9138:
9139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9140: ROLLBACK TO allocate_target;
9141: x_return_status := FND_API.g_ret_sts_unexp_error ;
9142: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
9143: p_data => x_error_message);
9137: p_data => x_error_message);
9138:
9139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9140: ROLLBACK TO allocate_target;
9141: x_return_status := FND_API.g_ret_sts_unexp_error ;
9142: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
9143: p_data => x_error_message);
9144:
9145: WHEN OTHERS THEN
9149: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
9150: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
9151: FND_MSG_PUB.add;
9152:
9153: x_return_status := FND_API.g_ret_sts_unexp_error ;
9154: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9155: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
9156: END IF;
9157: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
9308: -- -----------------------------------------------------------------
9309: PROCEDURE adjust_target_for_acct_added
9310: (
9311: p_api_version IN NUMBER,
9312: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9313: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9314: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9315: x_return_status OUT NOCOPY VARCHAR2,
9316: x_error_number OUT NOCOPY NUMBER,
9309: PROCEDURE adjust_target_for_acct_added
9310: (
9311: p_api_version IN NUMBER,
9312: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9313: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9314: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9315: x_return_status OUT NOCOPY VARCHAR2,
9316: x_error_number OUT NOCOPY NUMBER,
9317: x_error_message OUT NOCOPY VARCHAR2,
9310: (
9311: p_api_version IN NUMBER,
9312: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
9313: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9314: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9315: x_return_status OUT NOCOPY VARCHAR2,
9316: x_error_number OUT NOCOPY NUMBER,
9317: x_error_message OUT NOCOPY VARCHAR2,
9318: p_fund_id IN NUMBER,
9512: SAVEPOINT adjust_target_for_acct_added;
9513:
9514:
9515: -- Standard call to check for call compatibility.
9516: IF NOT FND_API.compatible_api_call(l_api_version,
9517: p_api_version,
9518: l_api_name,
9519: g_pkg_name)
9520: THEN
9517: p_api_version,
9518: l_api_name,
9519: g_pkg_name)
9520: THEN
9521: RAISE FND_API.g_exc_unexpected_error;
9522: END IF;
9523:
9524: -- Initialize message list if p_init_msg_list is set to TRUE.
9525: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9521: RAISE FND_API.g_exc_unexpected_error;
9522: END IF;
9523:
9524: -- Initialize message list if p_init_msg_list is set to TRUE.
9525: IF FND_API.to_Boolean( p_init_msg_list ) THEN
9526: FND_MSG_PUB.initialize;
9527: END IF;
9528:
9529: -- Initialize API return status to SUCCESS
9526: FND_MSG_PUB.initialize;
9527: END IF;
9528:
9529: -- Initialize API return status to SUCCESS
9530: x_return_status := FND_API.g_ret_sts_success;
9531:
9532: Ozf_Utility_pvt.write_conc_log('Private API: ' || l_full_api_name || ' -- start');
9533:
9534: Ozf_Utility_pvt.write_conc_log('- Parameter - p_fund_id ==> ' || p_fund_id);
10191: WHEN OZF_TP_INVALID_PARAM THEN
10192: ROLLBACK TO adjust_target_for_acct_added;
10193: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
10194: FND_MSG_PUB.add;
10195: x_return_status := FND_API.g_ret_sts_error ;
10196: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10197: p_data => x_error_message);
10198: Ozf_Utility_pvt.write_conc_log(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
10199: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10197: p_data => x_error_message);
10198: Ozf_Utility_pvt.write_conc_log(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
10199: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10200:
10201: WHEN FND_API.G_EXC_ERROR THEN
10202: ROLLBACK TO adjust_target_for_acct_added;
10203: x_return_status := FND_API.g_ret_sts_error ;
10204: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10205: p_data => x_error_message);
10199: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10200:
10201: WHEN FND_API.G_EXC_ERROR THEN
10202: ROLLBACK TO adjust_target_for_acct_added;
10203: x_return_status := FND_API.g_ret_sts_error ;
10204: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10205: p_data => x_error_message);
10206:
10207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10203: x_return_status := FND_API.g_ret_sts_error ;
10204: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10205: p_data => x_error_message);
10206:
10207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10208: ROLLBACK TO adjust_target_for_acct_added;
10209: x_return_status := FND_API.g_ret_sts_unexp_error ;
10210: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10211: p_data => x_error_message);
10205: p_data => x_error_message);
10206:
10207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10208: ROLLBACK TO adjust_target_for_acct_added;
10209: x_return_status := FND_API.g_ret_sts_unexp_error ;
10210: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10211: p_data => x_error_message);
10212:
10213: WHEN OTHERS THEN
10217: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
10218: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
10219: FND_MSG_PUB.add;
10220:
10221: x_return_status := FND_API.g_ret_sts_unexp_error ;
10222: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10223: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
10224: END IF;
10225: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10240: -- -----------------------------------------------------------------
10241: PROCEDURE adjust_target_for_acct_deleted
10242: (
10243: p_api_version IN NUMBER,
10244: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10245: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10246: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10247: x_return_status OUT NOCOPY VARCHAR2,
10248: x_error_number OUT NOCOPY NUMBER,
10241: PROCEDURE adjust_target_for_acct_deleted
10242: (
10243: p_api_version IN NUMBER,
10244: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10245: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10246: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10247: x_return_status OUT NOCOPY VARCHAR2,
10248: x_error_number OUT NOCOPY NUMBER,
10249: x_error_message OUT NOCOPY VARCHAR2,
10242: (
10243: p_api_version IN NUMBER,
10244: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
10245: p_commit IN VARCHAR2 := FND_API.G_FALSE,
10246: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
10247: x_return_status OUT NOCOPY VARCHAR2,
10248: x_error_number OUT NOCOPY NUMBER,
10249: x_error_message OUT NOCOPY VARCHAR2,
10250: p_fund_id IN NUMBER,
10265: SAVEPOINT adjust_target_for_acct_deleted;
10266:
10267:
10268: -- Standard call to check for call compatibility.
10269: IF NOT FND_API.compatible_api_call(l_api_version,
10270: p_api_version,
10271: l_api_name,
10272: g_pkg_name)
10273: THEN
10270: p_api_version,
10271: l_api_name,
10272: g_pkg_name)
10273: THEN
10274: RAISE FND_API.g_exc_unexpected_error;
10275: END IF;
10276:
10277: -- Initialize message list if p_init_msg_list is set to TRUE.
10278: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10274: RAISE FND_API.g_exc_unexpected_error;
10275: END IF;
10276:
10277: -- Initialize message list if p_init_msg_list is set to TRUE.
10278: IF FND_API.to_Boolean( p_init_msg_list ) THEN
10279: FND_MSG_PUB.initialize;
10280: END IF;
10281:
10282: -- Initialize API return status to SUCCESS
10279: FND_MSG_PUB.initialize;
10280: END IF;
10281:
10282: -- Initialize API return status to SUCCESS
10283: x_return_status := FND_API.g_ret_sts_success;
10284:
10285: Ozf_Utility_pvt.write_conc_log('Private API: ' || l_full_api_name || ' -- start');
10286:
10287: IF p_fund_id IS NULL OR p_ship_to_site_use_id IS NULL
10482: WHEN OZF_TP_INVALID_PARAM THEN
10483: ROLLBACK TO adjust_target_for_acct_deleted;
10484: FND_MESSAGE.set_name('OZF', 'OZF_TP_INVALID_PARAM_TXT');
10485: FND_MSG_PUB.add;
10486: x_return_status := FND_API.g_ret_sts_error ;
10487: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10488: p_data => x_error_message);
10489: Ozf_Utility_pvt.write_conc_log(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
10490: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10488: p_data => x_error_message);
10489: Ozf_Utility_pvt.write_conc_log(l_full_api_name||' : INVALID PARAMETER EXCEPTION = '||sqlerrm(sqlcode));
10490: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10491:
10492: WHEN FND_API.G_EXC_ERROR THEN
10493: ROLLBACK TO adjust_target_for_acct_deleted;
10494: x_return_status := FND_API.g_ret_sts_error ;
10495: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10496: p_data => x_error_message);
10490: Ozf_Utility_pvt.write_conc_log(fnd_message.get_string('OZF', 'OZF_TP_INVALID_PARAM_TXT'));
10491:
10492: WHEN FND_API.G_EXC_ERROR THEN
10493: ROLLBACK TO adjust_target_for_acct_deleted;
10494: x_return_status := FND_API.g_ret_sts_error ;
10495: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10496: p_data => x_error_message);
10497:
10498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10494: x_return_status := FND_API.g_ret_sts_error ;
10495: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10496: p_data => x_error_message);
10497:
10498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10499: ROLLBACK TO adjust_target_for_acct_deleted;
10500: x_return_status := FND_API.g_ret_sts_unexp_error ;
10501: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10502: p_data => x_error_message);
10496: p_data => x_error_message);
10497:
10498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10499: ROLLBACK TO adjust_target_for_acct_deleted;
10500: x_return_status := FND_API.g_ret_sts_unexp_error ;
10501: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10502: p_data => x_error_message);
10503:
10504: WHEN OTHERS THEN
10508: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
10509: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
10510: FND_MSG_PUB.add;
10511:
10512: x_return_status := FND_API.g_ret_sts_unexp_error ;
10513: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10514: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
10515: END IF;
10516: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
10541: p_terr_id IN NUMBER := NULL
10542: ) IS
10543: p_api_version CONSTANT NUMBER := 1.0;
10544: x_return_status VARCHAR2(1) ;
10545: l_init_msg_list VARCHAR2(10) := FND_API.G_FALSE;
10546: l_api_version CONSTANT NUMBER := 1.0;
10547: l_api_name CONSTANT VARCHAR2(30) := 'adjust_account_targets';
10548: l_full_api_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
10549: l_object_version_number NUMBER := 1;
10823: -- Standard Start of API savepoint
10824: SAVEPOINT adjust_account_targets;
10825:
10826: -- Standard call to check for call compatibility.
10827: IF NOT FND_API.compatible_api_call(l_api_version,
10828: p_api_version,
10829: l_api_name,
10830: g_pkg_name)
10831: THEN
10828: p_api_version,
10829: l_api_name,
10830: g_pkg_name)
10831: THEN
10832: RAISE FND_API.g_exc_unexpected_error;
10833: END IF;
10834:
10835: -- Initialize message list if l_init_msg_list is set to TRUE.
10836: IF FND_API.to_Boolean( l_init_msg_list ) THEN
10832: RAISE FND_API.g_exc_unexpected_error;
10833: END IF;
10834:
10835: -- Initialize message list if l_init_msg_list is set to TRUE.
10836: IF FND_API.to_Boolean( l_init_msg_list ) THEN
10837: FND_MSG_PUB.initialize;
10838: END IF;
10839:
10840: -- Initialize API return status to SUCCESS
10837: FND_MSG_PUB.initialize;
10838: END IF;
10839:
10840: -- Initialize API return status to SUCCESS
10841: x_return_status := FND_API.g_ret_sts_success;
10842:
10843: Ozf_Utility_pvt.write_conc_log('Private API: ' || l_full_api_name || ' -- start');
10844:
10845: FOR terr IN terr_list_csr
10873: p_terr_id => terr.node_id,
10874: p_ship_to_site_use_id => new_accounts.site_use_id
10875: );
10876:
10877: IF x_return_status = FND_API.g_ret_sts_error
10878: THEN
10879: RAISE FND_API.g_exc_error;
10880: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10881: RAISE FND_API.g_exc_unexpected_error;
10875: );
10876:
10877: IF x_return_status = FND_API.g_ret_sts_error
10878: THEN
10879: RAISE FND_API.g_exc_error;
10880: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10881: RAISE FND_API.g_exc_unexpected_error;
10882: END IF;
10883:
10876:
10877: IF x_return_status = FND_API.g_ret_sts_error
10878: THEN
10879: RAISE FND_API.g_exc_error;
10880: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10881: RAISE FND_API.g_exc_unexpected_error;
10882: END IF;
10883:
10884: END LOOP; -- allocation_list_csr(quota.fund_id)
10877: IF x_return_status = FND_API.g_ret_sts_error
10878: THEN
10879: RAISE FND_API.g_exc_error;
10880: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10881: RAISE FND_API.g_exc_unexpected_error;
10882: END IF;
10883:
10884: END LOOP; -- allocation_list_csr(quota.fund_id)
10885:
10906: p_fund_id => quota.fund_id,
10907: p_ship_to_site_use_id => del_accounts.site_use_id
10908: );
10909:
10910: IF x_return_status = FND_API.g_ret_sts_error
10911: THEN
10912: RAISE FND_API.g_exc_error;
10913: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10914: RAISE FND_API.g_exc_unexpected_error;
10908: );
10909:
10910: IF x_return_status = FND_API.g_ret_sts_error
10911: THEN
10912: RAISE FND_API.g_exc_error;
10913: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10914: RAISE FND_API.g_exc_unexpected_error;
10915: END IF;
10916:
10909:
10910: IF x_return_status = FND_API.g_ret_sts_error
10911: THEN
10912: RAISE FND_API.g_exc_error;
10913: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10914: RAISE FND_API.g_exc_unexpected_error;
10915: END IF;
10916:
10917: END LOOP; -- del_quota_list_csr(terr.node_id, del_accounts.site_use_id)
10910: IF x_return_status = FND_API.g_ret_sts_error
10911: THEN
10912: RAISE FND_API.g_exc_error;
10913: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10914: RAISE FND_API.g_exc_unexpected_error;
10915: END IF;
10916:
10917: END LOOP; -- del_quota_list_csr(terr.node_id, del_accounts.site_use_id)
10918:
10986: Ozf_Utility_pvt.write_conc_log('Private API: ' || l_full_api_name || ' -- end');
10987:
10988: EXCEPTION
10989:
10990: WHEN FND_API.G_EXC_ERROR THEN
10991: ROLLBACK TO adjust_account_targets;
10992: x_return_status := FND_API.g_ret_sts_error ;
10993: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10994: p_data => x_error_message);
10988: EXCEPTION
10989:
10990: WHEN FND_API.G_EXC_ERROR THEN
10991: ROLLBACK TO adjust_account_targets;
10992: x_return_status := FND_API.g_ret_sts_error ;
10993: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10994: p_data => x_error_message);
10995:
10996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10992: x_return_status := FND_API.g_ret_sts_error ;
10993: FND_MSG_PUB.count_and_get (p_count => x_error_number,
10994: p_data => x_error_message);
10995:
10996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10997: ROLLBACK TO adjust_account_targets;
10998: x_return_status := FND_API.g_ret_sts_unexp_error ;
10999: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
11000: p_data => x_error_message);
10994: p_data => x_error_message);
10995:
10996: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10997: ROLLBACK TO adjust_account_targets;
10998: x_return_status := FND_API.g_ret_sts_unexp_error ;
10999: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,
11000: p_data => x_error_message);
11001:
11002: WHEN OTHERS THEN
11006: FND_MESSAGE.set_token('OZF_TP_SQLERRM_TOKEN',SQLERRM);
11007: FND_MESSAGE.set_token('OZF_TP_SQLCODE_TOKEN',SQLCODE);
11008: FND_MSG_PUB.add;
11009:
11010: x_return_status := FND_API.g_ret_sts_unexp_error ;
11011: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11012: FND_MSG_PUB.Add_Exc_Msg (g_pkg_name, l_api_name);
11013: END IF;
11014: FND_MSG_PUB.Count_And_Get (p_count => x_error_number,