[Home] [Help]
244: END;
245:
246: -- R12 modified
247: PROCEDURE create_forecast(p_api_version IN NUMBER,
248: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
249: p_commit IN VARCHAR2 := FND_API.g_false,
250: p_obj_type IN VARCHAR2,
251: p_obj_id IN NUMBER,
252: p_fcst_uom IN VARCHAR2,
245:
246: -- R12 modified
247: PROCEDURE create_forecast(p_api_version IN NUMBER,
248: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
249: p_commit IN VARCHAR2 := FND_API.g_false,
250: p_obj_type IN VARCHAR2,
251: p_obj_id IN NUMBER,
252: p_fcst_uom IN VARCHAR2,
253:
288: --
289:
290: SAVEPOINT Create_Forecast;
291:
292: IF FND_API.to_boolean(p_init_msg_list) THEN
293: FND_MSG_PUB.initialize;
294: END IF;
295:
296: IF NOT FND_API.compatible_api_call(l_api_version,
292: IF FND_API.to_boolean(p_init_msg_list) THEN
293: FND_MSG_PUB.initialize;
294: END IF;
295:
296: IF NOT FND_API.compatible_api_call(l_api_version,
297: p_api_version,
298: l_api_name,
299: g_pkg_name)
300: THEN
297: p_api_version,
298: l_api_name,
299: g_pkg_name)
300: THEN
301: RAISE FND_API.g_exc_unexpected_error;
302: END IF;
303: x_return_status := FND_API.g_ret_sts_success;
304:
305: IF x_forecast_id IS NULL
299: g_pkg_name)
300: THEN
301: RAISE FND_API.g_exc_unexpected_error;
302: END IF;
303: x_return_status := FND_API.g_ret_sts_success;
304:
305: IF x_forecast_id IS NULL
306: THEN
307: l_act_forecast_rec.arc_act_fcast_used_by := p_obj_type;
340:
341: p_act_forecast_rec => l_act_forecast_rec,
342: x_forecast_id => x_forecast_id );
343:
344: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
345: RAISE FND_API.G_EXC_ERROR;
346: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
341: p_act_forecast_rec => l_act_forecast_rec,
342: x_forecast_id => x_forecast_id );
343:
344: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
345: RAISE FND_API.G_EXC_ERROR;
346: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
349:
342: x_forecast_id => x_forecast_id );
343:
344: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
345: RAISE FND_API.G_EXC_ERROR;
346: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
349:
350: ----dbms_output.put_line( '-- 1.2 --' || x_forecast_id );
343:
344: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
345: RAISE FND_API.G_EXC_ERROR;
346: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
348: END IF;
349:
350: ----dbms_output.put_line( '-- 1.2 --' || x_forecast_id );
351: -- 11510
380: x_activity_metric_id := l_activity_metric_id;
381:
382: EXCEPTION
383:
384: WHEN FND_API.G_EXC_ERROR THEN
385:
386: ROLLBACK TO Create_Forecast;
387: x_return_status := FND_API.G_RET_STS_ERROR;
388: FND_MSG_PUB.Count_And_Get (
383:
384: WHEN FND_API.G_EXC_ERROR THEN
385:
386: ROLLBACK TO Create_Forecast;
387: x_return_status := FND_API.G_RET_STS_ERROR;
388: FND_MSG_PUB.Count_And_Get (
389: p_count => x_msg_count,
390: p_data => x_msg_data
391: );
389: p_count => x_msg_count,
390: p_data => x_msg_data
391: );
392:
393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
394:
395: ROLLBACK TO Create_Forecast;
396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
397: FND_MSG_PUB.Count_And_Get (
392:
393: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
394:
395: ROLLBACK TO Create_Forecast;
396: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
397: FND_MSG_PUB.Count_And_Get (
398: p_count => x_msg_count,
399: p_data => x_msg_data
400: );
401:
402: WHEN OTHERS THEN
403:
404: ROLLBACK TO Create_Forecast;
405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
406:
407: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
408: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
409: END IF;
421: -----------------------------------------------------------
422:
423: PROCEDURE create_dimentions (
424: p_api_version IN NUMBER,
425: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
426: p_commit IN VARCHAR2 := FND_API.g_false,
427: p_obj_type IN VARCHAR2,
428: p_obj_id IN NUMBER,
429: p_forecast_id IN NUMBER,
422:
423: PROCEDURE create_dimentions (
424: p_api_version IN NUMBER,
425: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
426: p_commit IN VARCHAR2 := FND_API.g_false,
427: p_obj_type IN VARCHAR2,
428: p_obj_id IN NUMBER,
429: p_forecast_id IN NUMBER,
430: x_return_status OUT NOCOPY VARCHAR2,
694: END IF;
695:
696: SAVEPOINT Create_Dimentions;
697:
698: IF FND_API.to_boolean(p_init_msg_list) THEN
699: FND_MSG_PUB.initialize;
700: END IF;
701:
702: IF NOT FND_API.compatible_api_call(l_api_version,
698: IF FND_API.to_boolean(p_init_msg_list) THEN
699: FND_MSG_PUB.initialize;
700: END IF;
701:
702: IF NOT FND_API.compatible_api_call(l_api_version,
703: p_api_version,
704: l_api_name,
705: g_pkg_name)
706: THEN
703: p_api_version,
704: l_api_name,
705: g_pkg_name)
706: THEN
707: RAISE FND_API.g_exc_unexpected_error;
708: END IF;
709:
710: x_return_status := FND_API.g_ret_sts_success;
711: ----dbms_output.put_line( ' -- IN create_dimentions -- ');
706: THEN
707: RAISE FND_API.g_exc_unexpected_error;
708: END IF;
709:
710: x_return_status := FND_API.g_ret_sts_success;
711: ----dbms_output.put_line( ' -- IN create_dimentions -- ');
712: IF p_obj_type IN ('CAMP', 'CSCH')
713: THEN
714:
824: if p_obj_type <> 'WKST'
825: then
826: FND_MESSAGE.set_name('OZF', 'OZF_FCST_PROD_MKT_REQD');
827: FND_MSG_PUB.add;
828: RAISE FND_API.G_EXC_ERROR;
829: end if;
830: END IF;
831:
832: -- 11510 : Worksheets will not have exclusions
897: END IF;
898:
899: EXCEPTION
900:
901: WHEN FND_API.G_EXC_ERROR THEN
902:
903: ROLLBACK TO Create_Dimentions;
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: FND_MSG_PUB.Count_And_Get (
900:
901: WHEN FND_API.G_EXC_ERROR THEN
902:
903: ROLLBACK TO Create_Dimentions;
904: x_return_status := FND_API.G_RET_STS_ERROR;
905: FND_MSG_PUB.Count_And_Get (
906: p_count => x_msg_count,
907: p_data => x_msg_data
908: );
907: p_data => x_msg_data
908: );
909:
910: WHEN OTHERS THEN
911: x_return_status := FND_API.g_ret_sts_unexp_error;
912: ROLLBACK TO Create_Dimentions;
913:
914: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
915: THEN
915: THEN
916: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
917: END IF;
918:
919: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
920: p_count => x_msg_count,
921: p_data => x_msg_data);
922:
923:
929: -----------------------------------------------------------
930:
931: PROCEDURE populate_fcst_products(
932: p_api_version IN NUMBER,
933: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
934: p_commit IN VARCHAR2 := FND_API.g_false,
935:
936: p_obj_type IN VARCHAR2,
937: p_obj_id IN NUMBER,
930:
931: PROCEDURE populate_fcst_products(
932: p_api_version IN NUMBER,
933: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
934: p_commit IN VARCHAR2 := FND_API.g_false,
935:
936: p_obj_type IN VARCHAR2,
937: p_obj_id IN NUMBER,
938: p_forecast_id IN NUMBER,
1015: END IF;
1016:
1017: SAVEPOINT Populate_Products;
1018:
1019: IF FND_API.to_boolean(p_init_msg_list) THEN
1020: FND_MSG_PUB.initialize;
1021: END IF;
1022:
1023: IF NOT FND_API.compatible_api_call(l_api_version,
1019: IF FND_API.to_boolean(p_init_msg_list) THEN
1020: FND_MSG_PUB.initialize;
1021: END IF;
1022:
1023: IF NOT FND_API.compatible_api_call(l_api_version,
1024: p_api_version,
1025: l_api_name,
1026: g_pkg_name)
1027: THEN
1024: p_api_version,
1025: l_api_name,
1026: g_pkg_name)
1027: THEN
1028: RAISE FND_API.g_exc_unexpected_error;
1029: END IF;
1030:
1031: x_return_status := FND_API.g_ret_sts_success;
1032:
1027: THEN
1028: RAISE FND_API.g_exc_unexpected_error;
1029: END IF;
1030:
1031: x_return_status := FND_API.g_ret_sts_success;
1032:
1033: delete from ozf_forecast_products
1034: where obj_type = p_obj_type
1035: and obj_id = p_obj_id ;
1170:
1171: EXCEPTION
1172:
1173: WHEN OTHERS THEN
1174: x_return_status := FND_API.g_ret_sts_unexp_error;
1175: ROLLBACK TO Populate_Products;
1176:
1177: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1178: THEN
1178: THEN
1179: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1180: END IF;
1181:
1182: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
1183: p_count => x_msg_count,
1184: p_data => x_msg_data);
1185:
1186: END populate_fcst_products;
1222:
1223:
1224: PROCEDURE populate_fcst_customers(
1225: p_api_version IN NUMBER,
1226: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1227: p_commit IN VARCHAR2 := FND_API.g_false,
1228:
1229: p_obj_type IN VARCHAR2,
1230: p_obj_id IN NUMBER,
1223:
1224: PROCEDURE populate_fcst_customers(
1225: p_api_version IN NUMBER,
1226: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1227: p_commit IN VARCHAR2 := FND_API.g_false,
1228:
1229: p_obj_type IN VARCHAR2,
1230: p_obj_id IN NUMBER,
1231: p_forecast_id IN NUMBER,
1303:
1304: END IF;
1305: SAVEPOINT Populate_Customers;
1306:
1307: IF FND_API.to_boolean(p_init_msg_list) THEN
1308: FND_MSG_PUB.initialize;
1309: END IF;
1310:
1311: IF NOT FND_API.compatible_api_call(l_api_version,
1307: IF FND_API.to_boolean(p_init_msg_list) THEN
1308: FND_MSG_PUB.initialize;
1309: END IF;
1310:
1311: IF NOT FND_API.compatible_api_call(l_api_version,
1312: p_api_version,
1313: l_api_name,
1314: g_pkg_name)
1315: THEN
1312: p_api_version,
1313: l_api_name,
1314: g_pkg_name)
1315: THEN
1316: RAISE FND_API.g_exc_unexpected_error;
1317: END IF;
1318:
1319: x_return_status := FND_API.g_ret_sts_success;
1320:
1315: THEN
1316: RAISE FND_API.g_exc_unexpected_error;
1317: END IF;
1318:
1319: x_return_status := FND_API.g_ret_sts_success;
1320:
1321: DELETE FROM ozf_forecast_customers
1322: WHERE obj_type = p_obj_type
1323: AND obj_id = p_obj_id ;
1444: END LOOP;
1445:
1446: EXCEPTION
1447: WHEN OTHERS THEN
1448: x_return_status := FND_API.g_ret_sts_unexp_error;
1449: ROLLBACK TO Populate_Customers;
1450:
1451: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1452: THEN
1452: THEN
1453: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1454: END IF;
1455:
1456: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
1457: p_count => x_msg_count,
1458: p_data => x_msg_data);
1459: x_msg_data := SQLERRM;
1460: END populate_fcst_customers;
1460: END populate_fcst_customers;
1461:
1462: PROCEDURE populate_fcst_periods(
1463: p_api_version IN NUMBER,
1464: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1465: p_commit IN VARCHAR2 := FND_API.g_false,
1466:
1467: p_obj_type IN VARCHAR2,
1468: p_obj_id IN NUMBER,
1461:
1462: PROCEDURE populate_fcst_periods(
1463: p_api_version IN NUMBER,
1464: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1465: p_commit IN VARCHAR2 := FND_API.g_false,
1466:
1467: p_obj_type IN VARCHAR2,
1468: p_obj_id IN NUMBER,
1469: p_start_date IN DATE,
1532: OZF_Utility_PVT.debug_message(l_full_name || ': Start Populate Periods');
1533: END IF;
1534: SAVEPOINT Populate_Periods;
1535:
1536: IF FND_API.to_boolean(p_init_msg_list) THEN
1537: FND_MSG_PUB.initialize;
1538: END IF;
1539:
1540: IF NOT FND_API.compatible_api_call(l_api_version,
1536: IF FND_API.to_boolean(p_init_msg_list) THEN
1537: FND_MSG_PUB.initialize;
1538: END IF;
1539:
1540: IF NOT FND_API.compatible_api_call(l_api_version,
1541: p_api_version,
1542: l_api_name,
1543: g_pkg_name)
1544: THEN
1541: p_api_version,
1542: l_api_name,
1543: g_pkg_name)
1544: THEN
1545: RAISE FND_API.g_exc_unexpected_error;
1546: END IF;
1547:
1548:
1549: x_return_status := FND_API.g_ret_sts_success;
1545: RAISE FND_API.g_exc_unexpected_error;
1546: END IF;
1547:
1548:
1549: x_return_status := FND_API.g_ret_sts_success;
1550:
1551: IF ( ( p_start_date IS NULL) OR (p_end_date IS NULL) )
1552: THEN
1553: return;
1648: END IF;
1649:
1650: EXCEPTION
1651: WHEN OTHERS THEN
1652: x_return_status := FND_API.g_ret_sts_unexp_error;
1653: ROLLBACK TO Populate_Periods;
1654:
1655: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
1656: THEN
1656: THEN
1657: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1658: END IF;
1659:
1660: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
1661: p_count => x_msg_count,
1662: p_data => x_msg_data);
1663:
1664:
1714: --------------------------------------------------
1715:
1716: PROCEDURE create_dimention_facts (
1717: p_api_version IN NUMBER,
1718: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1719: p_commit IN VARCHAR2 := FND_API.g_false,
1720: --R12 Baseline
1721: p_base_quantity_type IN VARCHAR2,
1722: p_obj_type IN VARCHAR2,
1715:
1716: PROCEDURE create_dimention_facts (
1717: p_api_version IN NUMBER,
1718: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1719: p_commit IN VARCHAR2 := FND_API.g_false,
1720: --R12 Baseline
1721: p_base_quantity_type IN VARCHAR2,
1722: p_obj_type IN VARCHAR2,
1723: p_obj_id IN NUMBER,
1924: END IF;
1925:
1926: SAVEPOINT Create_Dimention_Facts;
1927:
1928: IF FND_API.to_boolean(p_init_msg_list) THEN
1929: FND_MSG_PUB.initialize;
1930: END IF;
1931:
1932: IF NOT FND_API.compatible_api_call(l_api_version,
1928: IF FND_API.to_boolean(p_init_msg_list) THEN
1929: FND_MSG_PUB.initialize;
1930: END IF;
1931:
1932: IF NOT FND_API.compatible_api_call(l_api_version,
1933: p_api_version,
1934: l_api_name,
1935: g_pkg_name)
1936: THEN
1933: p_api_version,
1934: l_api_name,
1935: g_pkg_name)
1936: THEN
1937: RAISE FND_API.g_exc_unexpected_error;
1938: END IF;
1939:
1940: x_return_status := FND_API.g_ret_sts_success;
1941:
1936: THEN
1937: RAISE FND_API.g_exc_unexpected_error;
1938: END IF;
1939:
1940: x_return_status := FND_API.g_ret_sts_success;
1941:
1942: --dbms_output.put_line( ' ##### 1. create_dimention_facts -- ');
1943: l_product_attribute_context := p_product_attribute_context;
1944: l_product_attribute := p_product_attribute;
2133:
2134: EXCEPTION
2135:
2136: WHEN OTHERS THEN
2137: x_return_status := FND_API.g_ret_sts_unexp_error;
2138: ROLLBACK TO Create_Dimention_Facts;
2139:
2140: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
2141: THEN
2141: THEN
2142: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2143: END IF;
2144:
2145: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
2146: p_count => x_msg_count,
2147: p_data => x_msg_data);
2148:
2149: END create_dimention_facts;
2150:
2151:
2152: PROCEDURE create_fcst_facts(
2153: p_api_version IN NUMBER,
2154: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2155: p_commit IN VARCHAR2 := FND_API.g_false,
2156:
2157: --R12 Baseline
2158: p_base_quantity_type IN VARCHAR2,
2151:
2152: PROCEDURE create_fcst_facts(
2153: p_api_version IN NUMBER,
2154: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2155: p_commit IN VARCHAR2 := FND_API.g_false,
2156:
2157: --R12 Baseline
2158: p_base_quantity_type IN VARCHAR2,
2159:
2234: END IF;
2235:
2236: SAVEPOINT Create_Fcst_Facts;
2237:
2238: IF FND_API.to_boolean(p_init_msg_list) THEN
2239: FND_MSG_PUB.initialize;
2240: END IF;
2241:
2242: IF NOT FND_API.compatible_api_call(l_api_version,
2238: IF FND_API.to_boolean(p_init_msg_list) THEN
2239: FND_MSG_PUB.initialize;
2240: END IF;
2241:
2242: IF NOT FND_API.compatible_api_call(l_api_version,
2243: p_api_version,
2244: l_api_name,
2245: g_pkg_name)
2246: THEN
2243: p_api_version,
2244: l_api_name,
2245: g_pkg_name)
2246: THEN
2247: RAISE FND_API.g_exc_unexpected_error;
2248: END IF;
2249:
2250: x_return_status := FND_API.g_ret_sts_success;
2251:
2246: THEN
2247: RAISE FND_API.g_exc_unexpected_error;
2248: END IF;
2249:
2250: x_return_status := FND_API.g_ret_sts_success;
2251:
2252: --dbms_output.put_line( ' -- 1. create_fcst_facts -- ');
2253:
2254: IF ( p_level = 'ONE' )
2446:
2447: EXCEPTION
2448:
2449: WHEN OTHERS THEN
2450: x_return_status := FND_API.g_ret_sts_unexp_error;
2451:
2452: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
2453: THEN
2454: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2453: THEN
2454: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2455: END IF;
2456:
2457: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
2458: p_count => x_msg_count,
2459: p_data => x_msg_data);
2460:
2461:
2965: THEN
2966: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2967: END IF;
2968: --OZF_Utility_PVT.debug_message(' get_best_fit_lift : OTHER ERROR ' || sqlerrm );
2969: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
2970: p_count => l_msg_count,
2971: p_data => l_msg_data);
2972: Return 0; -- i.e. lift is ZERO
2973: END get_best_fit_lift; --end of function
2995: --***********************************************
2996: PROCEDURE adjust_baseline_spreads
2997: (
2998: p_api_version IN NUMBER,
2999: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3000: p_commit IN VARCHAR2 := FND_API.g_false,
3001: p_obj_type IN VARCHAR2,
3002: p_obj_id IN NUMBER,
3003: p_forecast_id IN NUMBER,
2996: PROCEDURE adjust_baseline_spreads
2997: (
2998: p_api_version IN NUMBER,
2999: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3000: p_commit IN VARCHAR2 := FND_API.g_false,
3001: p_obj_type IN VARCHAR2,
3002: p_obj_id IN NUMBER,
3003: p_forecast_id IN NUMBER,
3004: p_activity_metric_fact_id IN NUMBER,
3188: -- Initialize savepoint.
3189: --
3190: SAVEPOINT adjust_baseline_spreads;
3191:
3192: IF FND_API.to_boolean(p_init_msg_list) THEN
3193: FND_MSG_PUB.initialize;
3194: END IF;
3195:
3196: IF NOT FND_API.compatible_api_call(l_api_version,
3192: IF FND_API.to_boolean(p_init_msg_list) THEN
3193: FND_MSG_PUB.initialize;
3194: END IF;
3195:
3196: IF NOT FND_API.compatible_api_call(l_api_version,
3197: p_api_version,
3198: l_api_name,
3199: g_pkg_name)
3200: THEN
3197: p_api_version,
3198: l_api_name,
3199: g_pkg_name)
3200: THEN
3201: RAISE FND_API.g_exc_unexpected_error;
3202: END IF;
3203:
3204: x_return_status := FND_API.g_ret_sts_success;
3205:
3200: THEN
3201: RAISE FND_API.g_exc_unexpected_error;
3202: END IF;
3203:
3204: x_return_status := FND_API.g_ret_sts_success;
3205:
3206:
3207: -- First: Get Offer or Wkst Forecast Header Level Details from the forecast id
3208: IF p_obj_type = 'OFFR'
3459: WHEN OTHERS THEN
3460:
3461: ROLLBACK TO adjust_baseline_spreads;
3462:
3463: x_return_status := FND_API.g_ret_sts_unexp_error;
3464:
3465: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
3466: THEN
3467: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3466: THEN
3467: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3468: END IF;
3469:
3470: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
3471: p_count => x_msg_count,
3472: p_data => x_msg_data);
3473:
3474: END adjust_baseline_spreads; --end of procedure
3475:
3476: --- Forward Declaration of the procedure
3477: PROCEDURE get_discount_percent (
3478: p_api_version IN NUMBER,
3479: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3480: p_commit IN VARCHAR2 := FND_API.g_false,
3481: p_obj_type IN VARCHAR2,
3482: p_obj_id IN NUMBER,
3483: p_forecast_id IN NUMBER,
3476: --- Forward Declaration of the procedure
3477: PROCEDURE get_discount_percent (
3478: p_api_version IN NUMBER,
3479: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3480: p_commit IN VARCHAR2 := FND_API.g_false,
3481: p_obj_type IN VARCHAR2,
3482: p_obj_id IN NUMBER,
3483: p_forecast_id IN NUMBER,
3484: p_product_attribute IN VARCHAR2,
3493: --R12 Baseline
3494: --***********************************************
3495: PROCEDURE process_baseline_forecast(
3496: p_api_version IN NUMBER,
3497: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3498: p_commit IN VARCHAR2 := FND_API.g_false,
3499: p_obj_type IN VARCHAR2,
3500: p_obj_id IN NUMBER,
3501: p_forecast_id IN NUMBER,
3494: --***********************************************
3495: PROCEDURE process_baseline_forecast(
3496: p_api_version IN NUMBER,
3497: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
3498: p_commit IN VARCHAR2 := FND_API.g_false,
3499: p_obj_type IN VARCHAR2,
3500: p_obj_id IN NUMBER,
3501: p_forecast_id IN NUMBER,
3502: p_period_level IN NUMBER,
3723: -- Initialize savepoint.
3724: --
3725: SAVEPOINT process_baseline_forecast;
3726:
3727: IF FND_API.to_boolean(p_init_msg_list) THEN
3728: FND_MSG_PUB.initialize;
3729: END IF;
3730:
3731: IF NOT FND_API.compatible_api_call(l_api_version,
3727: IF FND_API.to_boolean(p_init_msg_list) THEN
3728: FND_MSG_PUB.initialize;
3729: END IF;
3730:
3731: IF NOT FND_API.compatible_api_call(l_api_version,
3732: p_api_version,
3733: l_api_name,
3734: g_pkg_name)
3735: THEN
3732: p_api_version,
3733: l_api_name,
3734: g_pkg_name)
3735: THEN
3736: RAISE FND_API.g_exc_unexpected_error;
3737: END IF;
3738:
3739: x_return_status := FND_API.g_ret_sts_success;
3740:
3735: THEN
3736: RAISE FND_API.g_exc_unexpected_error;
3737: END IF;
3738:
3739: x_return_status := FND_API.g_ret_sts_success;
3740:
3741:
3742: -- First: Get Offer or Wkst Forecast Header Level Details from the forecast id
3743: IF p_obj_type = 'OFFR'
3906: x_msg_data);
3907: --dbms_output.put_line( ' ~~ level_one_facts ~~: x_return_status == '|| x_return_status );
3908: --dbms_output.put_line( ' ~~ level_one_facts ~~: l_tpr_percent == '|| l_tpr_percent );
3909:
3910: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3911: RAISE FND_API.G_EXC_ERROR;
3912: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3914: END IF;
3907: --dbms_output.put_line( ' ~~ level_one_facts ~~: x_return_status == '|| x_return_status );
3908: --dbms_output.put_line( ' ~~ level_one_facts ~~: l_tpr_percent == '|| l_tpr_percent );
3909:
3910: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3911: RAISE FND_API.G_EXC_ERROR;
3912: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3914: END IF;
3915:
3908: --dbms_output.put_line( ' ~~ level_one_facts ~~: l_tpr_percent == '|| l_tpr_percent );
3909:
3910: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3911: RAISE FND_API.G_EXC_ERROR;
3912: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3914: END IF;
3915:
3916: UPDATE ozf_act_metric_facts_all prod_fact
3909:
3910: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3911: RAISE FND_API.G_EXC_ERROR;
3912: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3913: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3914: END IF;
3915:
3916: UPDATE ozf_act_metric_facts_all prod_fact
3917: SET tpr_percent = NVL(l_tpr_percent,0)
4137: WHEN OTHERS THEN
4138:
4139: ROLLBACK TO process_baseline_forecast;
4140:
4141: x_return_status := FND_API.g_ret_sts_unexp_error;
4142:
4143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
4144: THEN
4145: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4144: THEN
4145: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4146: END IF;
4147:
4148: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
4149: p_count => x_msg_count,
4150: p_data => x_msg_data);
4151:
4152:
4154: --***********************************************
4155:
4156: PROCEDURE create_wkst_forecasts(
4157: p_api_version IN NUMBER,
4158: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4159: p_commit IN VARCHAR2 := FND_API.g_false,
4160: p_worksheet_header_id IN NUMBER ,
4161: x_return_status OUT NOCOPY VARCHAR2,
4162: x_msg_count OUT NOCOPY NUMBER,
4155:
4156: PROCEDURE create_wkst_forecasts(
4157: p_api_version IN NUMBER,
4158: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4159: p_commit IN VARCHAR2 := FND_API.g_false,
4160: p_worksheet_header_id IN NUMBER ,
4161: x_return_status OUT NOCOPY VARCHAR2,
4162: x_msg_count OUT NOCOPY NUMBER,
4163: x_msg_data OUT NOCOPY VARCHAR2 )
4219: --
4220:
4221: SAVEPOINT Create_Wkst_Forecasts;
4222:
4223: IF FND_API.to_boolean(p_init_msg_list) THEN
4224: FND_MSG_PUB.initialize;
4225: END IF;
4226:
4227: IF NOT FND_API.compatible_api_call(l_api_version,
4223: IF FND_API.to_boolean(p_init_msg_list) THEN
4224: FND_MSG_PUB.initialize;
4225: END IF;
4226:
4227: IF NOT FND_API.compatible_api_call(l_api_version,
4228: p_api_version,
4229: l_api_name,
4230: g_pkg_name)
4231: THEN
4228: p_api_version,
4229: l_api_name,
4230: g_pkg_name)
4231: THEN
4232: RAISE FND_API.g_exc_unexpected_error;
4233: END IF;
4234:
4235: x_return_status := FND_API.g_ret_sts_success;
4236:
4231: THEN
4232: RAISE FND_API.g_exc_unexpected_error;
4233: END IF;
4234:
4235: x_return_status := FND_API.g_ret_sts_success;
4236:
4237: -- Start
4238: -- Process for all Worksheets for which forecast is not generated
4239: FOR i IN c_fcst_rec
4297: l_return_status,
4298: x_msg_count,
4299: x_msg_data) ;
4300:
4301: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4302: RAISE FND_API.G_EXC_ERROR;
4303: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4305: END IF;
4298: x_msg_count,
4299: x_msg_data) ;
4300:
4301: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4302: RAISE FND_API.G_EXC_ERROR;
4303: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4305: END IF;
4306: -- Create dimentions
4299: x_msg_data) ;
4300:
4301: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4302: RAISE FND_API.G_EXC_ERROR;
4303: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4305: END IF;
4306: -- Create dimentions
4307:
4300:
4301: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4302: RAISE FND_API.G_EXC_ERROR;
4303: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4305: END IF;
4306: -- Create dimentions
4307:
4308: create_dimentions (
4316: x_msg_count,
4317: x_msg_data ) ;
4318:
4319:
4320: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4321: RAISE FND_API.G_EXC_ERROR;
4322: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4324: END IF;
4317: x_msg_data ) ;
4318:
4319:
4320: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4321: RAISE FND_API.G_EXC_ERROR;
4322: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4324: END IF;
4325:
4318:
4319:
4320: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4321: RAISE FND_API.G_EXC_ERROR;
4322: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4324: END IF;
4325:
4326: -- Create products
4319:
4320: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4321: RAISE FND_API.G_EXC_ERROR;
4322: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4324: END IF;
4325:
4326: -- Create products
4327:
4336: x_msg_count,
4337: x_msg_data ) ;
4338:
4339:
4340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4341: RAISE FND_API.G_EXC_ERROR;
4342: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4344: END IF;
4337: x_msg_data ) ;
4338:
4339:
4340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4341: RAISE FND_API.G_EXC_ERROR;
4342: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4344: END IF;
4345:
4338:
4339:
4340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4341: RAISE FND_API.G_EXC_ERROR;
4342: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4344: END IF;
4345:
4346: -- Create customers
4339:
4340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4341: RAISE FND_API.G_EXC_ERROR;
4342: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4344: END IF;
4345:
4346: -- Create customers
4347:
4356: x_msg_count,
4357: x_msg_data);
4358:
4359:
4360: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4361: RAISE FND_API.G_EXC_ERROR;
4362: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4364: END IF;
4357: x_msg_data);
4358:
4359:
4360: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4361: RAISE FND_API.G_EXC_ERROR;
4362: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4364: END IF;
4365:
4358:
4359:
4360: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4361: RAISE FND_API.G_EXC_ERROR;
4362: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4364: END IF;
4365:
4366:
4359:
4360: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4361: RAISE FND_API.G_EXC_ERROR;
4362: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4364: END IF;
4365:
4366:
4367: IF l_base_quantity_type <> 'BASELINE' AND l_period_level IS NOT NULL
4379: l_return_status,
4380: x_msg_count,
4381: x_msg_data);
4382:
4383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4384: RAISE FND_API.G_EXC_ERROR;
4385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4387: END IF;
4380: x_msg_count,
4381: x_msg_data);
4382:
4383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4384: RAISE FND_API.G_EXC_ERROR;
4385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4387: END IF;
4388:
4381: x_msg_data);
4382:
4383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4384: RAISE FND_API.G_EXC_ERROR;
4385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4387: END IF;
4388:
4389: END IF;
4382:
4383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4384: RAISE FND_API.G_EXC_ERROR;
4385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4387: END IF;
4388:
4389: END IF;
4390:
4406: l_return_status,
4407: x_msg_count,
4408: x_msg_data);
4409:
4410: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4411: RAISE FND_API.G_EXC_ERROR;
4412: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4407: x_msg_count,
4408: x_msg_data);
4409:
4410: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4411: RAISE FND_API.G_EXC_ERROR;
4412: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4415:
4408: x_msg_data);
4409:
4410: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4411: RAISE FND_API.G_EXC_ERROR;
4412: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4415:
4416: populate_fcst_periods(p_api_version,
4409:
4410: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4411: RAISE FND_API.G_EXC_ERROR;
4412: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4414: END IF;
4415:
4416: populate_fcst_periods(p_api_version,
4417: p_init_msg_list,
4425: l_return_status,
4426: x_msg_count,
4427: x_msg_data);
4428:
4429: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4430: RAISE FND_API.G_EXC_ERROR;
4431: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4433: END IF;
4426: x_msg_count,
4427: x_msg_data);
4428:
4429: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4430: RAISE FND_API.G_EXC_ERROR;
4431: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4433: END IF;
4434:
4427: x_msg_data);
4428:
4429: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4430: RAISE FND_API.G_EXC_ERROR;
4431: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4433: END IF;
4434:
4435:
4428:
4429: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4430: RAISE FND_API.G_EXC_ERROR;
4431: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4432: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4433: END IF;
4434:
4435:
4436: process_baseline_forecast(p_api_version,
4445: l_return_status,
4446: x_msg_count,
4447: x_msg_data);
4448:
4449: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4450: RAISE FND_API.G_EXC_ERROR;
4451: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4453: END IF;
4446: x_msg_count,
4447: x_msg_data);
4448:
4449: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4450: RAISE FND_API.G_EXC_ERROR;
4451: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4453: END IF;
4454:
4447: x_msg_data);
4448:
4449: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4450: RAISE FND_API.G_EXC_ERROR;
4451: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4453: END IF;
4454:
4455:
4448:
4449: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4450: RAISE FND_API.G_EXC_ERROR;
4451: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4452: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4453: END IF;
4454:
4455:
4456: ELSE
4472: x_msg_count,
4473: x_msg_data);
4474:
4475:
4476: IF l_return_status = FND_API.g_ret_sts_error THEN
4477: RAISE FND_API.g_exc_error;
4478: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4479: RAISE FND_API.g_exc_unexpected_error;
4480: END IF;
4473: x_msg_data);
4474:
4475:
4476: IF l_return_status = FND_API.g_ret_sts_error THEN
4477: RAISE FND_API.g_exc_error;
4478: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4479: RAISE FND_API.g_exc_unexpected_error;
4480: END IF;
4481:
4474:
4475:
4476: IF l_return_status = FND_API.g_ret_sts_error THEN
4477: RAISE FND_API.g_exc_error;
4478: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4479: RAISE FND_API.g_exc_unexpected_error;
4480: END IF;
4481:
4482:
4475:
4476: IF l_return_status = FND_API.g_ret_sts_error THEN
4477: RAISE FND_API.g_exc_error;
4478: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4479: RAISE FND_API.g_exc_unexpected_error;
4480: END IF;
4481:
4482:
4483: create_fcst_facts(p_api_version,
4496: l_return_status,
4497: x_msg_count,
4498: x_msg_data);
4499:
4500: IF l_return_status = FND_API.g_ret_sts_error THEN
4501: RAISE FND_API.g_exc_error;
4502: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4503: RAISE FND_API.g_exc_unexpected_error;
4504: END IF;
4497: x_msg_count,
4498: x_msg_data);
4499:
4500: IF l_return_status = FND_API.g_ret_sts_error THEN
4501: RAISE FND_API.g_exc_error;
4502: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4503: RAISE FND_API.g_exc_unexpected_error;
4504: END IF;
4505:
4498: x_msg_data);
4499:
4500: IF l_return_status = FND_API.g_ret_sts_error THEN
4501: RAISE FND_API.g_exc_error;
4502: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4503: RAISE FND_API.g_exc_unexpected_error;
4504: END IF;
4505:
4506:
4499:
4500: IF l_return_status = FND_API.g_ret_sts_error THEN
4501: RAISE FND_API.g_exc_error;
4502: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4503: RAISE FND_API.g_exc_unexpected_error;
4504: END IF;
4505:
4506:
4507: UPDATE ozf_act_forecasts_all
4531: OZF_Utility_PVT.debug_message(l_full_name || ': End Create Wkst Forecasts');
4532: END IF;
4533:
4534: EXCEPTION
4535: WHEN FND_API.G_EXC_ERROR THEN
4536:
4537: ROLLBACK TO Create_Wkst_Forecasts;
4538: x_return_status := FND_API.G_RET_STS_ERROR;
4539: FND_MSG_PUB.Count_And_Get (
4534: EXCEPTION
4535: WHEN FND_API.G_EXC_ERROR THEN
4536:
4537: ROLLBACK TO Create_Wkst_Forecasts;
4538: x_return_status := FND_API.G_RET_STS_ERROR;
4539: FND_MSG_PUB.Count_And_Get (
4540: p_encoded => FND_API.g_false,
4541: p_count => x_msg_count,
4542: p_data => x_msg_data
4536:
4537: ROLLBACK TO Create_Wkst_Forecasts;
4538: x_return_status := FND_API.G_RET_STS_ERROR;
4539: FND_MSG_PUB.Count_And_Get (
4540: p_encoded => FND_API.g_false,
4541: p_count => x_msg_count,
4542: p_data => x_msg_data
4543: );
4544:
4541: p_count => x_msg_count,
4542: p_data => x_msg_data
4543: );
4544:
4545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4546:
4547: ROLLBACK TO Create_Wkst_Forecasts;
4548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4549: FND_MSG_PUB.Count_And_Get (
4544:
4545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4546:
4547: ROLLBACK TO Create_Wkst_Forecasts;
4548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4549: FND_MSG_PUB.Count_And_Get (
4550: p_count => x_msg_count,
4551: p_data => x_msg_data
4552: );
4553:
4554: WHEN OTHERS THEN
4555:
4556: ROLLBACK TO Create_Wkst_Forecasts;
4557: x_return_status := FND_API.g_ret_sts_unexp_error;
4558:
4559: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
4560: THEN
4561: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4560: THEN
4561: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4562: END IF;
4563:
4564: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
4565: p_count => x_msg_count,
4566: p_data => x_msg_data);
4567: END ; -- create_wkst_forecasts
4568:
4569:
4570: ------------------------------------------------
4571: PROCEDURE create_base_sales(
4572: p_api_version IN NUMBER,
4573: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4574: p_commit IN VARCHAR2 := FND_API.g_false,
4575:
4576: p_obj_type IN VARCHAR2,
4577: p_obj_id IN NUMBER,
4570: ------------------------------------------------
4571: PROCEDURE create_base_sales(
4572: p_api_version IN NUMBER,
4573: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4574: p_commit IN VARCHAR2 := FND_API.g_false,
4575:
4576: p_obj_type IN VARCHAR2,
4577: p_obj_id IN NUMBER,
4578: p_forecast_id IN NUMBER,
4683:
4684: SAVEPOINT Create_Base_Sales;
4685:
4686:
4687: IF FND_API.to_boolean(p_init_msg_list) THEN
4688: FND_MSG_PUB.initialize;
4689: END IF;
4690:
4691: IF NOT FND_API.compatible_api_call(l_api_version,
4687: IF FND_API.to_boolean(p_init_msg_list) THEN
4688: FND_MSG_PUB.initialize;
4689: END IF;
4690:
4691: IF NOT FND_API.compatible_api_call(l_api_version,
4692: p_api_version,
4693: l_api_name,
4694: g_pkg_name)
4695: THEN
4692: p_api_version,
4693: l_api_name,
4694: g_pkg_name)
4695: THEN
4696: RAISE FND_API.g_exc_unexpected_error;
4697: END IF;
4698:
4699: x_return_status := FND_API.g_ret_sts_success;
4700:
4695: THEN
4696: RAISE FND_API.g_exc_unexpected_error;
4697: END IF;
4698:
4699: x_return_status := FND_API.g_ret_sts_success;
4700:
4701:
4702: --dbms_output.put_line( ' -- b4 starting p_base_quantity_type: -- '||p_base_quantity_type);
4703: l_base_quantity_start_date := p_start_date;
4766: l_return_status,
4767: x_msg_count,
4768: x_msg_data) ;
4769:
4770: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4771: RAISE FND_API.G_EXC_ERROR;
4772: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774: END IF;
4767: x_msg_count,
4768: x_msg_data) ;
4769:
4770: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4771: RAISE FND_API.G_EXC_ERROR;
4772: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774: END IF;
4775:
4768: x_msg_data) ;
4769:
4770: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4771: RAISE FND_API.G_EXC_ERROR;
4772: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774: END IF;
4775:
4776: x_fcst_return_rec.forecast_id := l_forecast_id;
4769:
4770: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4771: RAISE FND_API.G_EXC_ERROR;
4772: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774: END IF;
4775:
4776: x_fcst_return_rec.forecast_id := l_forecast_id;
4777:
4789: x_msg_count,
4790: x_msg_data ) ;
4791:
4792:
4793: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4794: RAISE FND_API.G_EXC_ERROR;
4795: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4797: END IF;
4790: x_msg_data ) ;
4791:
4792:
4793: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4794: RAISE FND_API.G_EXC_ERROR;
4795: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4797: END IF;
4798:
4791:
4792:
4793: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4794: RAISE FND_API.G_EXC_ERROR;
4795: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4797: END IF;
4798:
4799:
4792:
4793: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4794: RAISE FND_API.G_EXC_ERROR;
4795: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4797: END IF;
4798:
4799:
4800: -- Create products
4811: x_msg_count,
4812: x_msg_data ) ;
4813:
4814:
4815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4816: RAISE FND_API.G_EXC_ERROR;
4817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4819: END IF;
4812: x_msg_data ) ;
4813:
4814:
4815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4816: RAISE FND_API.G_EXC_ERROR;
4817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4819: END IF;
4820:
4813:
4814:
4815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4816: RAISE FND_API.G_EXC_ERROR;
4817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4819: END IF;
4820:
4821: -- Create customers
4814:
4815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4816: RAISE FND_API.G_EXC_ERROR;
4817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4819: END IF;
4820:
4821: -- Create customers
4822:
4832: x_msg_count,
4833: x_msg_data);
4834:
4835:
4836: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4837: RAISE FND_API.G_EXC_ERROR;
4838: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4840: END IF;
4833: x_msg_data);
4834:
4835:
4836: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4837: RAISE FND_API.G_EXC_ERROR;
4838: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4840: END IF;
4841:
4834:
4835:
4836: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4837: RAISE FND_API.G_EXC_ERROR;
4838: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4840: END IF;
4841:
4842:
4835:
4836: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4837: RAISE FND_API.G_EXC_ERROR;
4838: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4840: END IF;
4841:
4842:
4843: --dbms_output.put_line( ' -- test offer_code -- ');
4860: l_return_status,
4861: x_msg_count,
4862: x_msg_data ) ;
4863:
4864: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4865: RAISE FND_API.G_EXC_ERROR;
4866: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4868: END IF;
4861: x_msg_count,
4862: x_msg_data ) ;
4863:
4864: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4865: RAISE FND_API.G_EXC_ERROR;
4866: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4868: END IF;
4869: --dbms_output.put_line( ' -- Got dimension: -- ');
4862: x_msg_data ) ;
4863:
4864: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4865: RAISE FND_API.G_EXC_ERROR;
4866: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4868: END IF;
4869: --dbms_output.put_line( ' -- Got dimension: -- ');
4870: -- Create products
4863:
4864: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4865: RAISE FND_API.G_EXC_ERROR;
4866: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4868: END IF;
4869: --dbms_output.put_line( ' -- Got dimension: -- ');
4870: -- Create products
4871: populate_fcst_products(
4879: x_msg_count,
4880: x_msg_data ) ;
4881:
4882:
4883: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4884: RAISE FND_API.G_EXC_ERROR;
4885: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4887: END IF;
4880: x_msg_data ) ;
4881:
4882:
4883: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4884: RAISE FND_API.G_EXC_ERROR;
4885: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4887: END IF;
4888:
4881:
4882:
4883: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4884: RAISE FND_API.G_EXC_ERROR;
4885: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4887: END IF;
4888:
4889: -- Create customers
4882:
4883: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4884: RAISE FND_API.G_EXC_ERROR;
4885: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4887: END IF;
4888:
4889: -- Create customers
4890: populate_fcst_customers(
4898: x_msg_count,
4899: x_msg_data);
4900:
4901:
4902: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4903: RAISE FND_API.G_EXC_ERROR;
4904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4906: END IF;
4899: x_msg_data);
4900:
4901:
4902: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4903: RAISE FND_API.G_EXC_ERROR;
4904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4906: END IF;
4907:
4900:
4901:
4902: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4903: RAISE FND_API.G_EXC_ERROR;
4904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4906: END IF;
4907:
4908: --dbms_output.put_line( ' -- 5 -- ');
4901:
4902: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4903: RAISE FND_API.G_EXC_ERROR;
4904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4906: END IF;
4907:
4908: --dbms_output.put_line( ' -- 5 -- ');
4909: populate_fcst_periods(p_api_version,
4918: l_return_status,
4919: x_msg_count,
4920: x_msg_data);
4921:
4922: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4923: RAISE FND_API.G_EXC_ERROR;
4924: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4926: END IF;
4919: x_msg_count,
4920: x_msg_data);
4921:
4922: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4923: RAISE FND_API.G_EXC_ERROR;
4924: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4926: END IF;
4927:
4920: x_msg_data);
4921:
4922: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4923: RAISE FND_API.G_EXC_ERROR;
4924: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4926: END IF;
4927:
4928: --dbms_output.put_line( ' -- 5.a -- ');
4921:
4922: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4923: RAISE FND_API.G_EXC_ERROR;
4924: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4925: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4926: END IF;
4927:
4928: --dbms_output.put_line( ' -- 5.a -- ');
4929: -- for get_sales() useful for period csr
4939: l_return_status,
4940: x_msg_count,
4941: x_msg_data);
4942:
4943: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4944: RAISE FND_API.G_EXC_ERROR;
4945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4947: END IF;
4940: x_msg_count,
4941: x_msg_data);
4942:
4943: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4944: RAISE FND_API.G_EXC_ERROR;
4945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4947: END IF;
4948:
4941: x_msg_data);
4942:
4943: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4944: RAISE FND_API.G_EXC_ERROR;
4945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4947: END IF;
4948:
4949: END IF; -- IF (p_base_quantity_type = 'OFFER_CODE')
4942:
4943: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4944: RAISE FND_API.G_EXC_ERROR;
4945: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4947: END IF;
4948:
4949: END IF; -- IF (p_base_quantity_type = 'OFFER_CODE')
4950:
4968: l_return_status,
4969: x_msg_count,
4970: x_msg_data);
4971:
4972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4973: RAISE FND_API.G_EXC_ERROR;
4974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4969: x_msg_count,
4970: x_msg_data);
4971:
4972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4973: RAISE FND_API.G_EXC_ERROR;
4974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4977:
4970: x_msg_data);
4971:
4972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4973: RAISE FND_API.G_EXC_ERROR;
4974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4977:
4978: --dbms_output.put_line( ' -- 5 b-- ');
4971:
4972: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4973: RAISE FND_API.G_EXC_ERROR;
4974: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4976: END IF;
4977:
4978: --dbms_output.put_line( ' -- 5 b-- ');
4979: populate_fcst_periods(p_api_version,
4988: l_return_status,
4989: x_msg_count,
4990: x_msg_data);
4991:
4992: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4993: RAISE FND_API.G_EXC_ERROR;
4994: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4996: END IF;
4989: x_msg_count,
4990: x_msg_data);
4991:
4992: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4993: RAISE FND_API.G_EXC_ERROR;
4994: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4996: END IF;
4997:
4990: x_msg_data);
4991:
4992: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4993: RAISE FND_API.G_EXC_ERROR;
4994: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4996: END IF;
4997:
4998: END IF; --IF (p_base_quantity_type <> 'BASELINE')
4991:
4992: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4993: RAISE FND_API.G_EXC_ERROR;
4994: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4995: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4996: END IF;
4997:
4998: END IF; --IF (p_base_quantity_type <> 'BASELINE')
4999:
5118: l_return_status,
5119: x_msg_count,
5120: x_msg_data);
5121:
5122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5123: RAISE FND_API.G_EXC_ERROR;
5124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5126: END IF;
5119: x_msg_count,
5120: x_msg_data);
5121:
5122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5123: RAISE FND_API.G_EXC_ERROR;
5124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5126: END IF;
5127:
5120: x_msg_data);
5121:
5122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5123: RAISE FND_API.G_EXC_ERROR;
5124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5126: END IF;
5127:
5128: populate_fcst_periods(p_api_version,
5121:
5122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5123: RAISE FND_API.G_EXC_ERROR;
5124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5126: END IF;
5127:
5128: populate_fcst_periods(p_api_version,
5129: p_init_msg_list,
5137: l_return_status,
5138: x_msg_count,
5139: x_msg_data);
5140:
5141: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5142: RAISE FND_API.G_EXC_ERROR;
5143: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5145: END IF;
5138: x_msg_count,
5139: x_msg_data);
5140:
5141: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5142: RAISE FND_API.G_EXC_ERROR;
5143: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5145: END IF;
5146:
5139: x_msg_data);
5140:
5141: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5142: RAISE FND_API.G_EXC_ERROR;
5143: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5145: END IF;
5146:
5147: process_baseline_forecast(p_api_version,
5140:
5141: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5142: RAISE FND_API.G_EXC_ERROR;
5143: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5145: END IF;
5146:
5147: process_baseline_forecast(p_api_version,
5148: p_init_msg_list,
5156: l_return_status,
5157: x_msg_count,
5158: x_msg_data);
5159:
5160: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5161: RAISE FND_API.G_EXC_ERROR;
5162: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5164: END IF;
5157: x_msg_count,
5158: x_msg_data);
5159:
5160: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5161: RAISE FND_API.G_EXC_ERROR;
5162: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5164: END IF;
5165:
5158: x_msg_data);
5159:
5160: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5161: RAISE FND_API.G_EXC_ERROR;
5162: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5164: END IF;
5165:
5166: GOTO end_of_create_base_sales;
5159:
5160: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5161: RAISE FND_API.G_EXC_ERROR;
5162: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5163: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5164: END IF;
5165:
5166: GOTO end_of_create_base_sales;
5167: END IF;
5203: l_return_status,
5204: x_msg_count,
5205: x_msg_data);
5206:
5207: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5208: RAISE FND_API.G_EXC_ERROR;
5209: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5211: END IF;
5204: x_msg_count,
5205: x_msg_data);
5206:
5207: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5208: RAISE FND_API.G_EXC_ERROR;
5209: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5211: END IF;
5212: END IF;
5205: x_msg_data);
5206:
5207: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5208: RAISE FND_API.G_EXC_ERROR;
5209: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5211: END IF;
5212: END IF;
5213:
5206:
5207: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5208: RAISE FND_API.G_EXC_ERROR;
5209: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5211: END IF;
5212: END IF;
5213:
5214: --dbms_output.put_line( ' -- Update - periods 2222 -- ');
5237: l_return_status,
5238: x_msg_count,
5239: x_msg_data);
5240:
5241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5242: RAISE FND_API.G_EXC_ERROR;
5243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5245: END IF;
5238: x_msg_count,
5239: x_msg_data);
5240:
5241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5242: RAISE FND_API.G_EXC_ERROR;
5243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5245: END IF;
5246:
5239: x_msg_data);
5240:
5241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5242: RAISE FND_API.G_EXC_ERROR;
5243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5245: END IF;
5246:
5247: END IF;
5240:
5241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5242: RAISE FND_API.G_EXC_ERROR;
5243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5245: END IF;
5246:
5247: END IF;
5248:
5275: l_return_status,
5276: x_msg_count,
5277: x_msg_data);
5278:
5279: IF l_return_status = FND_API.g_ret_sts_error THEN
5280: RAISE FND_API.g_exc_error;
5281: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5282: RAISE FND_API.g_exc_unexpected_error;
5283: END IF;
5276: x_msg_count,
5277: x_msg_data);
5278:
5279: IF l_return_status = FND_API.g_ret_sts_error THEN
5280: RAISE FND_API.g_exc_error;
5281: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5282: RAISE FND_API.g_exc_unexpected_error;
5283: END IF;
5284: --dbms_output.put_line( ' -- Update - allocate_facts -- ');
5277: x_msg_data);
5278:
5279: IF l_return_status = FND_API.g_ret_sts_error THEN
5280: RAISE FND_API.g_exc_error;
5281: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5282: RAISE FND_API.g_exc_unexpected_error;
5283: END IF;
5284: --dbms_output.put_line( ' -- Update - allocate_facts -- ');
5285: allocate_facts(
5278:
5279: IF l_return_status = FND_API.g_ret_sts_error THEN
5280: RAISE FND_API.g_exc_error;
5281: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5282: RAISE FND_API.g_exc_unexpected_error;
5283: END IF;
5284: --dbms_output.put_line( ' -- Update - allocate_facts -- ');
5285: allocate_facts(
5286: p_api_version ,
5293: l_return_status ,
5294: x_msg_count ,
5295: x_msg_data );
5296:
5297: IF l_return_status = FND_API.g_ret_sts_error THEN
5298: RAISE FND_API.g_exc_error;
5299: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5300: RAISE FND_API.g_exc_unexpected_error;
5301: END IF;
5294: x_msg_count ,
5295: x_msg_data );
5296:
5297: IF l_return_status = FND_API.g_ret_sts_error THEN
5298: RAISE FND_API.g_exc_error;
5299: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5300: RAISE FND_API.g_exc_unexpected_error;
5301: END IF;
5302:
5295: x_msg_data );
5296:
5297: IF l_return_status = FND_API.g_ret_sts_error THEN
5298: RAISE FND_API.g_exc_error;
5299: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5300: RAISE FND_API.g_exc_unexpected_error;
5301: END IF;
5302:
5303:
5296:
5297: IF l_return_status = FND_API.g_ret_sts_error THEN
5298: RAISE FND_API.g_exc_error;
5299: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5300: RAISE FND_API.g_exc_unexpected_error;
5301: END IF;
5302:
5303:
5304: END IF; -- forecast_id null ?
5316: --dbms_output.put_line( ' -- 15 -- ');
5317:
5318: EXCEPTION
5319:
5320: WHEN FND_API.G_EXC_ERROR THEN
5321:
5322: ROLLBACK TO Create_Base_Sales;
5323: x_return_status := FND_API.G_RET_STS_ERROR;
5324: FND_MSG_PUB.Count_And_Get (
5319:
5320: WHEN FND_API.G_EXC_ERROR THEN
5321:
5322: ROLLBACK TO Create_Base_Sales;
5323: x_return_status := FND_API.G_RET_STS_ERROR;
5324: FND_MSG_PUB.Count_And_Get (
5325: p_encoded => FND_API.g_false,
5326: p_count => x_msg_count,
5327: p_data => x_msg_data
5321:
5322: ROLLBACK TO Create_Base_Sales;
5323: x_return_status := FND_API.G_RET_STS_ERROR;
5324: FND_MSG_PUB.Count_And_Get (
5325: p_encoded => FND_API.g_false,
5326: p_count => x_msg_count,
5327: p_data => x_msg_data
5328: );
5329:
5326: p_count => x_msg_count,
5327: p_data => x_msg_data
5328: );
5329:
5330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5331:
5332: ROLLBACK TO Create_Base_Sales;
5333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5334: FND_MSG_PUB.Count_And_Get (
5329:
5330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5331:
5332: ROLLBACK TO Create_Base_Sales;
5333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5334: FND_MSG_PUB.Count_And_Get (
5335: p_count => x_msg_count,
5336: p_data => x_msg_data
5337: );
5338:
5339: WHEN OTHERS THEN
5340:
5341: ROLLBACK TO Create_Base_Sales;
5342: x_return_status := FND_API.g_ret_sts_unexp_error;
5343:
5344: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
5345: THEN
5346: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5345: THEN
5346: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5347: END IF;
5348:
5349: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
5350: p_count => x_msg_count,
5351: p_data => x_msg_data);
5352:
5353: END create_base_sales;
5357: ---------------------------------------------------------------
5358:
5359: PROCEDURE fcst_remqty(
5360: p_api_version IN NUMBER,
5361: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5362: p_commit IN VARCHAR2 := FND_API.g_false,
5363:
5364: p_forecast_id IN NUMBER,
5365:
5358:
5359: PROCEDURE fcst_remqty(
5360: p_api_version IN NUMBER,
5361: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5362: p_commit IN VARCHAR2 := FND_API.g_false,
5363:
5364: p_forecast_id IN NUMBER,
5365:
5366: x_return_status OUT NOCOPY VARCHAR2,
5414:
5415: END IF;
5416: SAVEPOINT Fcst_Remaining_Qty;
5417:
5418: IF FND_API.to_boolean(p_init_msg_list) THEN
5419: FND_MSG_PUB.initialize;
5420: END IF;
5421:
5422: IF NOT FND_API.compatible_api_call(l_api_version,
5418: IF FND_API.to_boolean(p_init_msg_list) THEN
5419: FND_MSG_PUB.initialize;
5420: END IF;
5421:
5422: IF NOT FND_API.compatible_api_call(l_api_version,
5423: p_api_version,
5424: l_api_name,
5425: g_pkg_name)
5426: THEN
5423: p_api_version,
5424: l_api_name,
5425: g_pkg_name)
5426: THEN
5427: RAISE FND_API.g_exc_unexpected_error;
5428: END IF;
5429: x_return_status := FND_API.g_ret_sts_success;
5430:
5431:
5425: g_pkg_name)
5426: THEN
5427: RAISE FND_API.g_exc_unexpected_error;
5428: END IF;
5429: x_return_status := FND_API.g_ret_sts_success;
5430:
5431:
5432: FOR record_l_one IN C1(p_forecast_id) LOOP
5433:
5477:
5478: EXCEPTION
5479:
5480: WHEN OTHERS THEN
5481: x_return_status := FND_API.g_ret_sts_unexp_error;
5482: ROLLBACK TO Fcst_Remaining_Qty;
5483:
5484: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
5485: THEN
5485: THEN
5486: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5487: END IF;
5488:
5489: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
5490: p_count => x_msg_count,
5491: p_data => x_msg_data);
5492:
5493:
5494: END fcst_remqty;
5495:
5496: PROCEDURE fcst_BL_remqty(
5497: p_api_version IN NUMBER,
5498: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5499: p_commit IN VARCHAR2 := FND_API.g_false,
5500:
5501: p_forecast_id IN NUMBER,
5502:
5495:
5496: PROCEDURE fcst_BL_remqty(
5497: p_api_version IN NUMBER,
5498: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5499: p_commit IN VARCHAR2 := FND_API.g_false,
5500:
5501: p_forecast_id IN NUMBER,
5502:
5503: x_return_status OUT NOCOPY VARCHAR2,
5551:
5552: END IF;
5553: SAVEPOINT Fcst_BL_Remaining_Qty;
5554:
5555: IF FND_API.to_boolean(p_init_msg_list) THEN
5556: FND_MSG_PUB.initialize;
5557: END IF;
5558:
5559: IF NOT FND_API.compatible_api_call(l_api_version,
5555: IF FND_API.to_boolean(p_init_msg_list) THEN
5556: FND_MSG_PUB.initialize;
5557: END IF;
5558:
5559: IF NOT FND_API.compatible_api_call(l_api_version,
5560: p_api_version,
5561: l_api_name,
5562: g_pkg_name)
5563: THEN
5560: p_api_version,
5561: l_api_name,
5562: g_pkg_name)
5563: THEN
5564: RAISE FND_API.g_exc_unexpected_error;
5565: END IF;
5566: x_return_status := FND_API.g_ret_sts_success;
5567:
5568: FOR record_l_one IN C1(p_forecast_id) LOOP
5562: g_pkg_name)
5563: THEN
5564: RAISE FND_API.g_exc_unexpected_error;
5565: END IF;
5566: x_return_status := FND_API.g_ret_sts_success;
5567:
5568: FOR record_l_one IN C1(p_forecast_id) LOOP
5569:
5570: l_two_f_quan := 0;
5613:
5614: EXCEPTION
5615:
5616: WHEN OTHERS THEN
5617: x_return_status := FND_API.g_ret_sts_unexp_error;
5618: ROLLBACK TO Fcst_BL_Remaining_Qty;
5619:
5620: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
5621: THEN
5621: THEN
5622: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5623: END IF;
5624:
5625: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
5626: p_count => x_msg_count,
5627: p_data => x_msg_data);
5628:
5629:
5630: END fcst_BL_remqty;
5631:
5632: PROCEDURE freeze_check(
5633: p_api_version IN NUMBER,
5634: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5635: p_commit IN VARCHAR2 := FND_API.g_false,
5636:
5637: p_forecast_id IN NUMBER,
5638:
5631:
5632: PROCEDURE freeze_check(
5633: p_api_version IN NUMBER,
5634: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5635: p_commit IN VARCHAR2 := FND_API.g_false,
5636:
5637: p_forecast_id IN NUMBER,
5638:
5639: x_return_status OUT NOCOPY VARCHAR2,
5687:
5688: END IF;
5689: SAVEPOINT freeze_check;
5690:
5691: IF FND_API.to_boolean(p_init_msg_list) THEN
5692: FND_MSG_PUB.initialize;
5693: END IF;
5694:
5695: IF NOT FND_API.compatible_api_call(l_api_version,
5691: IF FND_API.to_boolean(p_init_msg_list) THEN
5692: FND_MSG_PUB.initialize;
5693: END IF;
5694:
5695: IF NOT FND_API.compatible_api_call(l_api_version,
5696: p_api_version,
5697: l_api_name,
5698: g_pkg_name)
5699: THEN
5696: p_api_version,
5697: l_api_name,
5698: g_pkg_name)
5699: THEN
5700: RAISE FND_API.g_exc_unexpected_error;
5701: END IF;
5702: x_return_status := FND_API.g_ret_sts_success;
5703:
5704: -- Check if the forecast_remaining_quantity (=0 or not) for the forecast record
5698: g_pkg_name)
5699: THEN
5700: RAISE FND_API.g_exc_unexpected_error;
5701: END IF;
5702: x_return_status := FND_API.g_ret_sts_success;
5703:
5704: -- Check if the forecast_remaining_quantity (=0 or not) for the forecast record
5705: OPEN C_FcstRecord(p_forecast_id);
5706: FETCH C_FcstRecord INTO l_fcast_remaining_qty ;
5753: FND_MSG_PUB.Add;
5754: END IF;
5755:
5756: END IF;
5757: x_return_status := FND_API.G_RET_STS_ERROR;
5758: RAISE FND_API.G_EXC_ERROR;
5759: END IF;
5760:
5761: IF (OZF_DEBUG_HIGH_ON) THEN
5754: END IF;
5755:
5756: END IF;
5757: x_return_status := FND_API.G_RET_STS_ERROR;
5758: RAISE FND_API.G_EXC_ERROR;
5759: END IF;
5760:
5761: IF (OZF_DEBUG_HIGH_ON) THEN
5762:
5765: END IF;
5766:
5767: EXCEPTION
5768:
5769: WHEN FND_API.G_EXC_ERROR THEN
5770: ROLLBACK TO freeze_check;
5771: x_return_status := FND_API.G_RET_STS_ERROR;
5772: FND_MSG_PUB.Count_And_Get (
5773: p_encoded => FND_API.g_false,
5767: EXCEPTION
5768:
5769: WHEN FND_API.G_EXC_ERROR THEN
5770: ROLLBACK TO freeze_check;
5771: x_return_status := FND_API.G_RET_STS_ERROR;
5772: FND_MSG_PUB.Count_And_Get (
5773: p_encoded => FND_API.g_false,
5774: p_count => x_msg_count,
5775: p_data => x_msg_data
5769: WHEN FND_API.G_EXC_ERROR THEN
5770: ROLLBACK TO freeze_check;
5771: x_return_status := FND_API.G_RET_STS_ERROR;
5772: FND_MSG_PUB.Count_And_Get (
5773: p_encoded => FND_API.g_false,
5774: p_count => x_msg_count,
5775: p_data => x_msg_data
5776: );
5777:
5775: p_data => x_msg_data
5776: );
5777:
5778: WHEN OTHERS THEN
5779: x_return_status := FND_API.g_ret_sts_unexp_error;
5780:
5781: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
5782: THEN
5783: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5782: THEN
5783: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
5784: END IF;
5785:
5786: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
5787: p_count => x_msg_count,
5788: p_data => x_msg_data);
5789:
5790:
5794:
5795: --Procedure for creating a copy of an existing forecast
5796: PROCEDURE copy_forecast(
5797: p_api_version IN NUMBER,
5798: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5799: p_commit IN VARCHAR2 := FND_API.g_false,
5800: p_forecast_id IN NUMBER,
5801: x_return_status OUT NOCOPY VARCHAR2,
5802: x_msg_count OUT NOCOPY NUMBER,
5795: --Procedure for creating a copy of an existing forecast
5796: PROCEDURE copy_forecast(
5797: p_api_version IN NUMBER,
5798: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
5799: p_commit IN VARCHAR2 := FND_API.g_false,
5800: p_forecast_id IN NUMBER,
5801: x_return_status OUT NOCOPY VARCHAR2,
5802: x_msg_count OUT NOCOPY NUMBER,
5803: x_msg_data OUT NOCOPY VARCHAR2
5910: OZF_Utility_PVT.debug_message(l_full_name || ': start refresh parties');
5911:
5912: END IF;
5913:
5914: IF FND_API.to_boolean(p_init_msg_list) THEN
5915: FND_MSG_PUB.initialize;
5916: END IF;
5917:
5918: IF NOT FND_API.compatible_api_call(l_api_version,
5914: IF FND_API.to_boolean(p_init_msg_list) THEN
5915: FND_MSG_PUB.initialize;
5916: END IF;
5917:
5918: IF NOT FND_API.compatible_api_call(l_api_version,
5919: p_api_version,
5920: l_api_name,
5921: g_pkg_name)
5922: THEN
5919: p_api_version,
5920: l_api_name,
5921: g_pkg_name)
5922: THEN
5923: RAISE FND_API.g_exc_unexpected_error;
5924: END IF;
5925: x_return_status := FND_API.g_ret_sts_success;
5926:
5927:
5921: g_pkg_name)
5922: THEN
5923: RAISE FND_API.g_exc_unexpected_error;
5924: END IF;
5925: x_return_status := FND_API.g_ret_sts_success;
5926:
5927:
5928: -- Insert a new forecast record in the ozf_act_forecasts_all table taking the given forecastId as input
5929: OPEN c_act_forecast_id;
6413:
6414:
6415: EXCEPTION
6416: WHEN OTHERS THEN
6417: x_return_status := FND_API.g_ret_sts_unexp_error;
6418:
6419: ROLLBACK TO copy_forecast;
6420:
6421: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
6422: THEN
6423: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6424: END IF;
6425:
6426: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
6427: p_count => x_msg_count,
6428: p_data => x_msg_data);
6429:
6430:
6435:
6436:
6437: PROCEDURE cascade_update(
6438: p_api_version IN NUMBER,
6439: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6440: p_commit IN VARCHAR2 := FND_API.g_false,
6441:
6442: p_id IN NUMBER,
6443: p_value IN NUMBER,
6436:
6437: PROCEDURE cascade_update(
6438: p_api_version IN NUMBER,
6439: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6440: p_commit IN VARCHAR2 := FND_API.g_false,
6441:
6442: p_id IN NUMBER,
6443: p_value IN NUMBER,
6444: p_fwd_buy_value IN NUMBER,
6521: BEGIN
6522:
6523: -- IF (OZF_DEBUG_HIGH_ON) THEN OZF_Utility_PVT.debug_message(l_full_name || ': start refresh parties'); END IF;
6524:
6525: IF FND_API.to_boolean(p_init_msg_list) THEN
6526: FND_MSG_PUB.initialize;
6527: END IF;
6528:
6529: IF NOT FND_API.compatible_api_call(l_api_version,
6525: IF FND_API.to_boolean(p_init_msg_list) THEN
6526: FND_MSG_PUB.initialize;
6527: END IF;
6528:
6529: IF NOT FND_API.compatible_api_call(l_api_version,
6530: p_api_version,
6531: l_api_name,
6532: g_pkg_name)
6533: THEN
6530: p_api_version,
6531: l_api_name,
6532: g_pkg_name)
6533: THEN
6534: RAISE FND_API.g_exc_unexpected_error;
6535: END IF;
6536:
6537: x_return_status := FND_API.g_ret_sts_success;
6538:
6533: THEN
6534: RAISE FND_API.g_exc_unexpected_error;
6535: END IF;
6536:
6537: x_return_status := FND_API.g_ret_sts_success;
6538:
6539:
6540: IF (p_cascade_flag = 4) THEN
6541: -- Cascade_Update called on its own (not from Cascade_Level_One)
6906: END IF;
6907:
6908: EXCEPTION
6909: WHEN OTHERS THEN
6910: x_return_status := FND_API.g_ret_sts_unexp_error;
6911:
6912: FND_MESSAGE.set_name('OZF', 'OZF_OFFER_PARTY_STMT_FAILED');
6913: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
6914: FND_MSG_PUB.add;
6917: THEN
6918: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
6919: END IF;
6920:
6921: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
6922: p_count => x_msg_count,
6923: p_data => x_msg_data);
6924:
6925:
6928:
6929:
6930: PROCEDURE cascade_first_level(
6931: p_api_version IN NUMBER,
6932: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6933: p_commit IN VARCHAR2 := FND_API.g_false,
6934:
6935: p_fcast_value IN NUMBER,
6936: p_fwd_buy_value IN NUMBER,
6929:
6930: PROCEDURE cascade_first_level(
6931: p_api_version IN NUMBER,
6932: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
6933: p_commit IN VARCHAR2 := FND_API.g_false,
6934:
6935: p_fcast_value IN NUMBER,
6936: p_fwd_buy_value IN NUMBER,
6937: p_fcast_id IN NUMBER,
6984: BEGIN
6985:
6986: -- IF (OZF_DEBUG_HIGH_ON) THEN OZF_Utility_PVT.debug_message(l_full_name || ': start refresh parties'); END IF;
6987:
6988: IF FND_API.to_boolean(p_init_msg_list) THEN
6989: FND_MSG_PUB.initialize;
6990: END IF;
6991:
6992: IF NOT FND_API.compatible_api_call(l_api_version,
6988: IF FND_API.to_boolean(p_init_msg_list) THEN
6989: FND_MSG_PUB.initialize;
6990: END IF;
6991:
6992: IF NOT FND_API.compatible_api_call(l_api_version,
6993: p_api_version,
6994: l_api_name,
6995: g_pkg_name)
6996: THEN
6993: p_api_version,
6994: l_api_name,
6995: g_pkg_name)
6996: THEN
6997: RAISE FND_API.g_exc_unexpected_error;
6998: END IF;
6999:
7000: x_return_status := FND_API.g_ret_sts_success;
7001:
6996: THEN
6997: RAISE FND_API.g_exc_unexpected_error;
6998: END IF;
6999:
7000: x_return_status := FND_API.g_ret_sts_success;
7001:
7002: /* Commented for now (since values retrieved in Java class
7003: SELECT forecast_quantity, forward_buy_quantity, forecast_remaining_quantity
7004: INTO l_parent_fact_value, l_parent_fwd_buy_qty, l_fcst_remaining_quantity
7188: END LOOP;
7189:
7190: EXCEPTION
7191: WHEN OTHERS THEN
7192: x_return_status := FND_API.g_ret_sts_unexp_error;
7193:
7194: FND_MESSAGE.set_name('OZF', 'OZF_OFFER_PARTY_STMT_FAILED');
7195: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
7196: FND_MSG_PUB.add;
7199: THEN
7200: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7201: END IF;
7202:
7203: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
7204: p_count => x_msg_count,
7205: p_data => x_msg_data);
7206:
7207:
7237:
7238:
7239: PROCEDURE calc_perc(
7240: p_api_version IN NUMBER,
7241: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7242: p_commit IN VARCHAR2 := FND_API.g_false,
7243:
7244: p_used_by_id IN NUMBER,
7245: p_level_num IN NUMBER,
7238:
7239: PROCEDURE calc_perc(
7240: p_api_version IN NUMBER,
7241: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7242: p_commit IN VARCHAR2 := FND_API.g_false,
7243:
7244: p_used_by_id IN NUMBER,
7245: p_level_num IN NUMBER,
7246: p_spread_type IN VARCHAR2,
7347: BEGIN
7348:
7349: -- IF (OZF_DEBUG_HIGH_ON) THEN OZF_Utility_PVT.debug_message(l_full_name || ': start refresh parties'); END IF;
7350:
7351: IF FND_API.to_boolean(p_init_msg_list) THEN
7352: FND_MSG_PUB.initialize;
7353: END IF;
7354:
7355: IF NOT FND_API.compatible_api_call(l_api_version,
7351: IF FND_API.to_boolean(p_init_msg_list) THEN
7352: FND_MSG_PUB.initialize;
7353: END IF;
7354:
7355: IF NOT FND_API.compatible_api_call(l_api_version,
7356: p_api_version,
7357: l_api_name,
7358: g_pkg_name)
7359: THEN
7356: p_api_version,
7357: l_api_name,
7358: g_pkg_name)
7359: THEN
7360: RAISE FND_API.g_exc_unexpected_error;
7361: END IF;
7362:
7363: x_return_status := FND_API.g_ret_sts_success;
7364:
7359: THEN
7360: RAISE FND_API.g_exc_unexpected_error;
7361: END IF;
7362:
7363: x_return_status := FND_API.g_ret_sts_success;
7364:
7365: l_level_num := p_level_num;
7366:
7367: LOOP
7737: END LOOP;
7738:
7739: EXCEPTION
7740: WHEN OTHERS THEN
7741: x_return_status := FND_API.g_ret_sts_unexp_error;
7742:
7743: FND_MESSAGE.set_name('OZF', 'OZF_OFFER_PARTY_STMT_FAILED');
7744: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
7745: FND_MSG_PUB.add;
7748: THEN
7749: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
7750: END IF;
7751:
7752: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
7753: p_count => x_msg_count,
7754: p_data => x_msg_data);
7755:
7756: END calc_perc;
7756: END calc_perc;
7757:
7758: PROCEDURE get_list_price(
7759: p_api_version IN NUMBER,
7760: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7761: p_commit IN VARCHAR2 := FND_API.g_false,
7762:
7763: p_obj_type IN VARCHAR2,
7764: p_obj_id IN NUMBER,
7757:
7758: PROCEDURE get_list_price(
7759: p_api_version IN NUMBER,
7760: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
7761: p_commit IN VARCHAR2 := FND_API.g_false,
7762:
7763: p_obj_type IN VARCHAR2,
7764: p_obj_id IN NUMBER,
7765: p_forecast_id IN NUMBER,
7836: BEGIN
7837:
7838: -- IF (OZF_DEBUG_HIGH_ON) THEN OZF_Utility_PVT.debug_message(l_full_name || ': start get_list_price '); END IF;
7839:
7840: IF FND_API.to_boolean(p_init_msg_list) THEN
7841: FND_MSG_PUB.initialize;
7842: END IF;
7843:
7844: IF NOT FND_API.compatible_api_call(l_api_version,
7840: IF FND_API.to_boolean(p_init_msg_list) THEN
7841: FND_MSG_PUB.initialize;
7842: END IF;
7843:
7844: IF NOT FND_API.compatible_api_call(l_api_version,
7845: p_api_version,
7846: l_api_name,
7847: g_pkg_name)
7848: THEN
7845: p_api_version,
7846: l_api_name,
7847: g_pkg_name)
7848: THEN
7849: RAISE FND_API.g_exc_unexpected_error;
7850: END IF;
7851:
7852: x_return_status := FND_API.g_ret_sts_success;
7853:
7848: THEN
7849: RAISE FND_API.g_exc_unexpected_error;
7850: END IF;
7851:
7852: x_return_status := FND_API.g_ret_sts_success;
7853:
7854: -- Passing Information to the Pricing Engine
7855:
7856: -- Setting up the control record variables
7953: x_return_status_text);
7954:
7955: IF x_return_stat = 'E'
7956: THEN
7957: x_return_status := FND_API.G_RET_STS_ERROR;
7958: FND_MESSAGE.set_name('OZF', 'OZF_FCST_GET_LISTPRICE_FAILURE');
7959: FND_MESSAGE.set_token('ERR_MSG',x_return_status_text);
7960: FND_MSG_PUB.add;
7961: RAISE FND_API.G_EXC_ERROR;
7957: x_return_status := FND_API.G_RET_STS_ERROR;
7958: FND_MESSAGE.set_name('OZF', 'OZF_FCST_GET_LISTPRICE_FAILURE');
7959: FND_MESSAGE.set_token('ERR_MSG',x_return_status_text);
7960: FND_MSG_PUB.add;
7961: RAISE FND_API.G_EXC_ERROR;
7962: ELSE
7963:
7964: I := x_line_tbl.FIRST;
7965: IF I IS NOT NULL
7970: END IF;
7971:
7972: IF l_status_code <> 'UPDATED'
7973: THEN
7974: x_return_status := FND_API.G_RET_STS_ERROR;
7975: FND_MESSAGE.set_name('OZF', 'OZF_FCST_GET_LISTPRICE_FAILURE');
7976: FND_MESSAGE.set_token('ERR_MSG',l_status_text);
7977: FND_MSG_PUB.add;
7978: RAISE FND_API.G_EXC_ERROR;
7974: x_return_status := FND_API.G_RET_STS_ERROR;
7975: FND_MESSAGE.set_name('OZF', 'OZF_FCST_GET_LISTPRICE_FAILURE');
7976: FND_MESSAGE.set_token('ERR_MSG',l_status_text);
7977: FND_MSG_PUB.add;
7978: RAISE FND_API.G_EXC_ERROR;
7979:
7980: END IF;
7981:
7982: END IF;
7983:
7984:
7985: EXCEPTION
7986:
7987: WHEN FND_API.G_EXC_ERROR THEN
7988: IF (OZF_DEBUG_HIGH_ON) THEN
7989:
7990: OZF_Utility_PVT.debug_message('Validate_get_list_price_of_goods: ' || substr(sqlerrm, 1, 100));
7991: END IF;
7988: IF (OZF_DEBUG_HIGH_ON) THEN
7989:
7990: OZF_Utility_PVT.debug_message('Validate_get_list_price_of_goods: ' || substr(sqlerrm, 1, 100));
7991: END IF;
7992: x_return_status := FND_API.G_RET_STS_ERROR;
7993:
7994: FND_MSG_PUB.Count_And_Get (
7995: p_encoded => FND_API.g_false,
7996: p_count => x_msg_count,
7991: END IF;
7992: x_return_status := FND_API.G_RET_STS_ERROR;
7993:
7994: FND_MSG_PUB.Count_And_Get (
7995: p_encoded => FND_API.g_false,
7996: p_count => x_msg_count,
7997: p_data => x_msg_data
7998: );
7999:
7997: p_data => x_msg_data
7998: );
7999:
8000: WHEN OTHERS THEN
8001: x_return_status := FND_API.g_ret_sts_unexp_error;
8002:
8003: FND_MESSAGE.set_name('OZF', 'OZF_FCST_GET_LISTPRICE_FAILURE');
8004: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
8005: FND_MSG_PUB.add;
8008: THEN
8009: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8010: END IF;
8011:
8012: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
8013: p_count => x_msg_count,
8014: p_data => x_msg_data);
8015:
8016:
8024:
8025: l_api_version CONSTANT NUMBER := 1.0;
8026: l_api_name CONSTANT VARCHAR2(30) := 'get_product_list_price';
8027: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
8028: l_init_msg_list VARCHAR2(30) := FND_API.g_false;
8029: l_commit VARCHAR2(30) := FND_API.g_false;
8030: l_return_status VARCHAR2(1);
8031: l_msg_count NUMBER;
8032: l_msg_data VARCHAR2(2000);
8025: l_api_version CONSTANT NUMBER := 1.0;
8026: l_api_name CONSTANT VARCHAR2(30) := 'get_product_list_price';
8027: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
8028: l_init_msg_list VARCHAR2(30) := FND_API.g_false;
8029: l_commit VARCHAR2(30) := FND_API.g_false;
8030: l_return_status VARCHAR2(1);
8031: l_msg_count NUMBER;
8032: l_msg_data VARCHAR2(2000);
8033:
8105: THEN
8106: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8107: END IF;
8108: --OZF_Utility_PVT.debug_message(' get_product_list_price : OTHER ERROR ' || sqlerrm );
8109: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
8110: p_count => l_msg_count,
8111: p_data => l_msg_data);
8112: Return 33; -- i.e. list price is ZERO
8113: END get_product_list_price; --end of function
8114:
8115:
8116: PROCEDURE calc_cost_of_goods(
8117: p_api_version IN NUMBER,
8118: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
8119: p_commit IN VARCHAR2 := FND_API.g_false,
8120:
8121: p_obj_type IN VARCHAR2,
8122: p_obj_id IN NUMBER,
8115:
8116: PROCEDURE calc_cost_of_goods(
8117: p_api_version IN NUMBER,
8118: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
8119: p_commit IN VARCHAR2 := FND_API.g_false,
8120:
8121: p_obj_type IN VARCHAR2,
8122: p_obj_id IN NUMBER,
8123: p_product_attribute IN VARCHAR2,
8171: SAVEPOINT calc_cost_of_goods;
8172:
8173: -- IF (OZF_DEBUG_HIGH_ON) THEN OZF_Utility_PVT.debug_message(l_full_name || ': start refresh parties'); END IF;
8174:
8175: IF FND_API.to_boolean(p_init_msg_list) THEN
8176: FND_MSG_PUB.initialize;
8177: END IF;
8178:
8179: IF NOT FND_API.compatible_api_call(l_api_version,
8175: IF FND_API.to_boolean(p_init_msg_list) THEN
8176: FND_MSG_PUB.initialize;
8177: END IF;
8178:
8179: IF NOT FND_API.compatible_api_call(l_api_version,
8180: p_api_version,
8181: l_api_name,
8182: g_pkg_name)
8183: THEN
8180: p_api_version,
8181: l_api_name,
8182: g_pkg_name)
8183: THEN
8184: RAISE FND_API.g_exc_unexpected_error;
8185: END IF;
8186:
8187: x_return_status := FND_API.g_ret_sts_success;
8188:
8183: THEN
8184: RAISE FND_API.g_exc_unexpected_error;
8185: END IF;
8186:
8187: x_return_status := FND_API.g_ret_sts_success;
8188:
8189: l_org_id := FND_PROFILE.VALUE('QP_ORGANIZATION_ID') ;
8190:
8191: FOR i IN c_products(l_org_id)
8243: END IF;
8244:
8245: EXCEPTION
8246:
8247: WHEN FND_API.G_EXC_ERROR THEN
8248: -- IF (OZF_DEBUG_HIGH_ON) THEN OZF_Utility_PVT.debug_message('Validate_Standard_Cost_Of_Goods: ' || substr(sqlerrm, 1, 100)); END IF;
8249: ROLLBACK TO calc_cost_of_goods;
8250: x_return_status := FND_API.G_RET_STS_ERROR;
8251: FND_MSG_PUB.Count_And_Get (
8246:
8247: WHEN FND_API.G_EXC_ERROR THEN
8248: -- IF (OZF_DEBUG_HIGH_ON) THEN OZF_Utility_PVT.debug_message('Validate_Standard_Cost_Of_Goods: ' || substr(sqlerrm, 1, 100)); END IF;
8249: ROLLBACK TO calc_cost_of_goods;
8250: x_return_status := FND_API.G_RET_STS_ERROR;
8251: FND_MSG_PUB.Count_And_Get (
8252: p_encoded => FND_API.g_false,
8253: p_count => x_msg_count,
8254: p_data => x_msg_data
8248: -- IF (OZF_DEBUG_HIGH_ON) THEN OZF_Utility_PVT.debug_message('Validate_Standard_Cost_Of_Goods: ' || substr(sqlerrm, 1, 100)); END IF;
8249: ROLLBACK TO calc_cost_of_goods;
8250: x_return_status := FND_API.G_RET_STS_ERROR;
8251: FND_MSG_PUB.Count_And_Get (
8252: p_encoded => FND_API.g_false,
8253: p_count => x_msg_count,
8254: p_data => x_msg_data
8255: );
8256:
8254: p_data => x_msg_data
8255: );
8256:
8257: WHEN OTHERS THEN
8258: x_return_status := FND_API.g_ret_sts_unexp_error;
8259:
8260: FND_MESSAGE.set_name('OZF', 'OZF_FCST_CALC_COG_FAILED');
8261: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
8262: FND_MSG_PUB.add;
8265: THEN
8266: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8267: END IF;
8268:
8269: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
8270: p_count => x_msg_count,
8271: p_data => x_msg_data);
8272:
8273:
8325:
8326: l_api_version CONSTANT NUMBER := 1.0;
8327: l_api_name CONSTANT VARCHAR2(30) := 'get_product_cost';
8328: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
8329: l_init_msg_list VARCHAR2(30) := FND_API.g_false;
8330: l_commit VARCHAR2(30) := FND_API.g_false;
8331: l_return_status VARCHAR2(1);
8332: l_msg_count NUMBER;
8333: l_msg_data VARCHAR2(2000);
8326: l_api_version CONSTANT NUMBER := 1.0;
8327: l_api_name CONSTANT VARCHAR2(30) := 'get_product_cost';
8328: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
8329: l_init_msg_list VARCHAR2(30) := FND_API.g_false;
8330: l_commit VARCHAR2(30) := FND_API.g_false;
8331: l_return_status VARCHAR2(1);
8332: l_msg_count NUMBER;
8333: l_msg_data VARCHAR2(2000);
8334:
8417: THEN
8418: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8419: END IF;
8420: --OZF_Utility_PVT.debug_message(' get_product_cost : OTHER ERROR ' || sqlerrm );
8421: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
8422: p_count => l_msg_count,
8423: p_data => l_msg_data);
8424: Return 100; -- i.e. cost is ZERO
8425: END get_product_cost; --end of function
8427:
8428: --R12 : gives exact or equivalent discount percent
8429: PROCEDURE get_discount_percent (
8430: p_api_version IN NUMBER,
8431: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
8432: p_commit IN VARCHAR2 := FND_API.g_false,
8433: p_obj_type IN VARCHAR2,
8434: p_obj_id IN NUMBER,
8435: p_forecast_id IN NUMBER,
8428: --R12 : gives exact or equivalent discount percent
8429: PROCEDURE get_discount_percent (
8430: p_api_version IN NUMBER,
8431: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
8432: p_commit IN VARCHAR2 := FND_API.g_false,
8433: p_obj_type IN VARCHAR2,
8434: p_obj_id IN NUMBER,
8435: p_forecast_id IN NUMBER,
8436: p_product_attribute IN VARCHAR2,
8549: BEGIN
8550:
8551: SAVEPOINT get_discount_percent;
8552:
8553: IF FND_API.to_boolean(p_init_msg_list) THEN
8554: FND_MSG_PUB.initialize;
8555: END IF;
8556:
8557: IF NOT FND_API.compatible_api_call(l_api_version,
8553: IF FND_API.to_boolean(p_init_msg_list) THEN
8554: FND_MSG_PUB.initialize;
8555: END IF;
8556:
8557: IF NOT FND_API.compatible_api_call(l_api_version,
8558: p_api_version,
8559: l_api_name,
8560: g_pkg_name)
8561: THEN
8558: p_api_version,
8559: l_api_name,
8560: g_pkg_name)
8561: THEN
8562: RAISE FND_API.g_exc_unexpected_error;
8563: END IF;
8564:
8565: x_return_status := FND_API.g_ret_sts_success;
8566:
8561: THEN
8562: RAISE FND_API.g_exc_unexpected_error;
8563: END IF;
8564:
8565: x_return_status := FND_API.g_ret_sts_success;
8566:
8567:
8568: OPEN c_fcst_info;
8569: FETCH c_fcst_info INTO l_fcst_uom,l_price_list_id;
8591:
8592: --- l_list_price := 100;
8593:
8594: /*
8595: IF x_return_status = FND_API.g_ret_sts_error THEN
8596: RAISE FND_API.g_exc_error;
8597: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8598: RAISE FND_API.g_exc_unexpected_error;
8599: END IF;
8592: --- l_list_price := 100;
8593:
8594: /*
8595: IF x_return_status = FND_API.g_ret_sts_error THEN
8596: RAISE FND_API.g_exc_error;
8597: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8598: RAISE FND_API.g_exc_unexpected_error;
8599: END IF;
8600: */
8593:
8594: /*
8595: IF x_return_status = FND_API.g_ret_sts_error THEN
8596: RAISE FND_API.g_exc_error;
8597: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8598: RAISE FND_API.g_exc_unexpected_error;
8599: END IF;
8600: */
8601: IF p_obj_type = 'OFFR'
8594: /*
8595: IF x_return_status = FND_API.g_ret_sts_error THEN
8596: RAISE FND_API.g_exc_error;
8597: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8598: RAISE FND_API.g_exc_unexpected_error;
8599: END IF;
8600: */
8601: IF p_obj_type = 'OFFR'
8602: THEN
8697: x_tpr_percent := l_discount_value;
8698:
8699: EXCEPTION
8700:
8701: WHEN FND_API.g_exc_error THEN
8702:
8703: ROLLBACK TO get_discount_percent;
8704: x_return_status := FND_API.g_ret_sts_error;
8705: FND_MSG_PUB.Count_And_Get (
8700:
8701: WHEN FND_API.g_exc_error THEN
8702:
8703: ROLLBACK TO get_discount_percent;
8704: x_return_status := FND_API.g_ret_sts_error;
8705: FND_MSG_PUB.Count_And_Get (
8706: p_encoded => FND_API.g_false,
8707: p_count => x_msg_count,
8708: p_data => x_msg_data
8702:
8703: ROLLBACK TO get_discount_percent;
8704: x_return_status := FND_API.g_ret_sts_error;
8705: FND_MSG_PUB.Count_And_Get (
8706: p_encoded => FND_API.g_false,
8707: p_count => x_msg_count,
8708: p_data => x_msg_data
8709: );
8710:
8707: p_count => x_msg_count,
8708: p_data => x_msg_data
8709: );
8710:
8711: WHEN FND_API.g_exc_unexpected_error THEN
8712:
8713: ROLLBACK TO get_discount_percent;
8714: x_return_status := FND_API.g_ret_sts_unexp_error;
8715: FND_MSG_PUB.Count_And_Get (
8710:
8711: WHEN FND_API.g_exc_unexpected_error THEN
8712:
8713: ROLLBACK TO get_discount_percent;
8714: x_return_status := FND_API.g_ret_sts_unexp_error;
8715: FND_MSG_PUB.Count_And_Get (
8716: p_encoded => FND_API.g_false,
8717: p_count => x_msg_count,
8718: p_data => x_msg_data
8712:
8713: ROLLBACK TO get_discount_percent;
8714: x_return_status := FND_API.g_ret_sts_unexp_error;
8715: FND_MSG_PUB.Count_And_Get (
8716: p_encoded => FND_API.g_false,
8717: p_count => x_msg_count,
8718: p_data => x_msg_data
8719: );
8720:
8719: );
8720:
8721: WHEN OTHERS THEN
8722: ROLLBACK TO get_discount_percent;
8723: x_return_status := FND_API.g_ret_sts_unexp_error;
8724:
8725: FND_MESSAGE.set_name('OZF', 'OZF_FCST_GET_DISC_FAILED');
8726: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
8727: FND_MSG_PUB.add;
8730: THEN
8731: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
8732: END IF;
8733:
8734: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
8735: p_count => x_msg_count,
8736: p_data => x_msg_data);
8737:
8738:
8740:
8741:
8742: PROCEDURE get_discount_info(
8743: p_api_version IN NUMBER,
8744: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
8745: p_commit IN VARCHAR2 := FND_API.g_false,
8746:
8747: p_obj_type IN VARCHAR2,
8748: p_obj_id IN NUMBER,
8741:
8742: PROCEDURE get_discount_info(
8743: p_api_version IN NUMBER,
8744: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
8745: p_commit IN VARCHAR2 := FND_API.g_false,
8746:
8747: p_obj_type IN VARCHAR2,
8748: p_obj_id IN NUMBER,
8749: p_forecast_id IN NUMBER,
8925: BEGIN
8926:
8927: SAVEPOINT get_discount_info;
8928:
8929: IF FND_API.to_boolean(p_init_msg_list) THEN
8930: FND_MSG_PUB.initialize;
8931: END IF;
8932:
8933: IF NOT FND_API.compatible_api_call(l_api_version,
8929: IF FND_API.to_boolean(p_init_msg_list) THEN
8930: FND_MSG_PUB.initialize;
8931: END IF;
8932:
8933: IF NOT FND_API.compatible_api_call(l_api_version,
8934: p_api_version,
8935: l_api_name,
8936: g_pkg_name)
8937: THEN
8934: p_api_version,
8935: l_api_name,
8936: g_pkg_name)
8937: THEN
8938: RAISE FND_API.g_exc_unexpected_error;
8939: END IF;
8940:
8941: x_return_status := FND_API.g_ret_sts_success;
8942:
8937: THEN
8938: RAISE FND_API.g_exc_unexpected_error;
8939: END IF;
8940:
8941: x_return_status := FND_API.g_ret_sts_success;
8942:
8943:
8944: OPEN c_fcst_info;
8945: FETCH c_fcst_info INTO l_fcst_uom,l_price_list_id;
8965: x_msg_count ,
8966: x_msg_data );
8967:
8968: /*
8969: IF x_return_status = FND_API.g_ret_sts_error THEN
8970: RAISE FND_API.g_exc_error;
8971: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8972: RAISE FND_API.g_exc_unexpected_error;
8973: END IF;
8966: x_msg_data );
8967:
8968: /*
8969: IF x_return_status = FND_API.g_ret_sts_error THEN
8970: RAISE FND_API.g_exc_error;
8971: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8972: RAISE FND_API.g_exc_unexpected_error;
8973: END IF;
8974: */
8967:
8968: /*
8969: IF x_return_status = FND_API.g_ret_sts_error THEN
8970: RAISE FND_API.g_exc_error;
8971: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8972: RAISE FND_API.g_exc_unexpected_error;
8973: END IF;
8974: */
8975: IF p_obj_type = 'OFFR'
8968: /*
8969: IF x_return_status = FND_API.g_ret_sts_error THEN
8970: RAISE FND_API.g_exc_error;
8971: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
8972: RAISE FND_API.g_exc_unexpected_error;
8973: END IF;
8974: */
8975: IF p_obj_type = 'OFFR'
8976: THEN
9099: x_msg_count ,
9100: x_msg_data
9101: ) ;
9102:
9103: IF x_return_status = FND_API.g_ret_sts_error THEN
9104: RAISE FND_API.g_exc_error;
9105: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9106: RAISE FND_API.g_exc_unexpected_error;
9107: END IF;
9100: x_msg_data
9101: ) ;
9102:
9103: IF x_return_status = FND_API.g_ret_sts_error THEN
9104: RAISE FND_API.g_exc_error;
9105: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9106: RAISE FND_API.g_exc_unexpected_error;
9107: END IF;
9108:
9101: ) ;
9102:
9103: IF x_return_status = FND_API.g_ret_sts_error THEN
9104: RAISE FND_API.g_exc_error;
9105: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9106: RAISE FND_API.g_exc_unexpected_error;
9107: END IF;
9108:
9109: -- x_standard_cost := l_standard_cost ;
9102:
9103: IF x_return_status = FND_API.g_ret_sts_error THEN
9104: RAISE FND_API.g_exc_error;
9105: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9106: RAISE FND_API.g_exc_unexpected_error;
9107: END IF;
9108:
9109: -- x_standard_cost := l_standard_cost ;
9110:
9164: THEN
9165: FND_MESSAGE.Set_Name ('OZF', 'OZF_TP_COG_MISSING');
9166: FND_MESSAGE.Set_Token('PRODUCT', p_product_attr_value );
9167: FND_MSG_PUB.Add;
9168: RAISE FND_API.g_exc_error;
9169: END IF;
9170: */
9171: ELSE
9172: x_standard_cost := l_standard_cost;
9173: END IF;
9174:
9175: EXCEPTION
9176:
9177: WHEN FND_API.g_exc_error THEN
9178:
9179: ROLLBACK TO get_discount_info;
9180: x_return_status := FND_API.g_ret_sts_error;
9181: FND_MSG_PUB.Count_And_Get (
9176:
9177: WHEN FND_API.g_exc_error THEN
9178:
9179: ROLLBACK TO get_discount_info;
9180: x_return_status := FND_API.g_ret_sts_error;
9181: FND_MSG_PUB.Count_And_Get (
9182: p_encoded => FND_API.g_false,
9183: p_count => x_msg_count,
9184: p_data => x_msg_data
9178:
9179: ROLLBACK TO get_discount_info;
9180: x_return_status := FND_API.g_ret_sts_error;
9181: FND_MSG_PUB.Count_And_Get (
9182: p_encoded => FND_API.g_false,
9183: p_count => x_msg_count,
9184: p_data => x_msg_data
9185: );
9186:
9183: p_count => x_msg_count,
9184: p_data => x_msg_data
9185: );
9186:
9187: WHEN FND_API.g_exc_unexpected_error THEN
9188:
9189: ROLLBACK TO get_discount_info;
9190: x_return_status := FND_API.g_ret_sts_unexp_error;
9191: FND_MSG_PUB.Count_And_Get (
9186:
9187: WHEN FND_API.g_exc_unexpected_error THEN
9188:
9189: ROLLBACK TO get_discount_info;
9190: x_return_status := FND_API.g_ret_sts_unexp_error;
9191: FND_MSG_PUB.Count_And_Get (
9192: p_encoded => FND_API.g_false,
9193: p_count => x_msg_count,
9194: p_data => x_msg_data
9188:
9189: ROLLBACK TO get_discount_info;
9190: x_return_status := FND_API.g_ret_sts_unexp_error;
9191: FND_MSG_PUB.Count_And_Get (
9192: p_encoded => FND_API.g_false,
9193: p_count => x_msg_count,
9194: p_data => x_msg_data
9195: );
9196:
9195: );
9196:
9197: WHEN OTHERS THEN
9198: ROLLBACK TO get_discount_info;
9199: x_return_status := FND_API.g_ret_sts_unexp_error;
9200:
9201: FND_MESSAGE.set_name('OZF', 'OZF_FCST_GET_DISC_FAILED');
9202: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
9203: FND_MSG_PUB.add;
9206: THEN
9207: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9208: END IF;
9209:
9210: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
9211: p_count => x_msg_count,
9212: p_data => x_msg_data);
9213:
9214:
9217:
9218:
9219: PROCEDURE get_actual_sales(
9220: p_api_version IN NUMBER,
9221: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9222: p_commit IN VARCHAR2 := FND_API.g_false,
9223:
9224: p_obj_type IN VARCHAR2,
9225: p_obj_id IN NUMBER,
9218:
9219: PROCEDURE get_actual_sales(
9220: p_api_version IN NUMBER,
9221: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9222: p_commit IN VARCHAR2 := FND_API.g_false,
9223:
9224: p_obj_type IN VARCHAR2,
9225: p_obj_id IN NUMBER,
9226: p_product_attribute IN VARCHAR2,
9301: l_is_disc_exp VARCHAR2(10) := FND_PROFILE.VALUE('OZF_TREAT_DISCOUNT_AS_EXPENSE') ;
9302:
9303: BEGIN
9304:
9305: IF FND_API.to_boolean(p_init_msg_list) THEN
9306: FND_MSG_PUB.initialize;
9307: END IF;
9308:
9309: IF NOT FND_API.compatible_api_call(l_api_version,
9305: IF FND_API.to_boolean(p_init_msg_list) THEN
9306: FND_MSG_PUB.initialize;
9307: END IF;
9308:
9309: IF NOT FND_API.compatible_api_call(l_api_version,
9310: p_api_version,
9311: l_api_name,
9312: g_pkg_name)
9313: THEN
9310: p_api_version,
9311: l_api_name,
9312: g_pkg_name)
9313: THEN
9314: RAISE FND_API.g_exc_unexpected_error;
9315: END IF;
9316: x_return_status := FND_API.g_ret_sts_success;
9317:
9318:
9312: g_pkg_name)
9313: THEN
9314: RAISE FND_API.g_exc_unexpected_error;
9315: END IF;
9316: x_return_status := FND_API.g_ret_sts_success;
9317:
9318:
9319: FOR i IN c_actual_data
9320: LOOP
9367: x_actual_revenue := l_actual_revenue;
9368: x_actual_costs := l_actual_costs;
9369:
9370: EXCEPTION
9371: WHEN FND_API.G_EXC_ERROR THEN
9372:
9373: x_return_status := FND_API.G_RET_STS_ERROR;
9374: -- Standard call to get message count and if count=1, get the message
9375: FND_MSG_PUB.Count_And_Get (
9369:
9370: EXCEPTION
9371: WHEN FND_API.G_EXC_ERROR THEN
9372:
9373: x_return_status := FND_API.G_RET_STS_ERROR;
9374: -- Standard call to get message count and if count=1, get the message
9375: FND_MSG_PUB.Count_And_Get (
9376: p_encoded => FND_API.G_FALSE,
9377: p_count => x_msg_count,
9372:
9373: x_return_status := FND_API.G_RET_STS_ERROR;
9374: -- Standard call to get message count and if count=1, get the message
9375: FND_MSG_PUB.Count_And_Get (
9376: p_encoded => FND_API.G_FALSE,
9377: p_count => x_msg_count,
9378: p_data => x_msg_data
9379: );
9380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9376: p_encoded => FND_API.G_FALSE,
9377: p_count => x_msg_count,
9378: p_data => x_msg_data
9379: );
9380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9381:
9382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9383: -- Standard call to get message count and if count=1, get the message
9384: FND_MSG_PUB.Count_And_Get (
9378: p_data => x_msg_data
9379: );
9380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9381:
9382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9383: -- Standard call to get message count and if count=1, get the message
9384: FND_MSG_PUB.Count_And_Get (
9385: p_encoded => FND_API.G_FALSE,
9386: p_count => x_msg_count,
9381:
9382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9383: -- Standard call to get message count and if count=1, get the message
9384: FND_MSG_PUB.Count_And_Get (
9385: p_encoded => FND_API.G_FALSE,
9386: p_count => x_msg_count,
9387: p_data => x_msg_data
9388: );
9389: WHEN OTHERS THEN
9387: p_data => x_msg_data
9388: );
9389: WHEN OTHERS THEN
9390:
9391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9392:
9393: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9394: THEN
9395: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9395: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9396: END IF;
9397: -- Standard call to get message count and if count=1, get the message
9398: FND_MSG_PUB.Count_And_Get (
9399: p_encoded => FND_API.G_FALSE,
9400: p_count => x_msg_count,
9401: p_data => x_msg_data
9402: );
9403:
9405:
9406:
9407: PROCEDURE allocate_facts(
9408: p_api_version IN NUMBER,
9409: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9410: p_commit IN VARCHAR2 := FND_API.g_false,
9411:
9412: p_used_by_id IN NUMBER,
9413: p_dimention IN VARCHAR2,
9406:
9407: PROCEDURE allocate_facts(
9408: p_api_version IN NUMBER,
9409: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9410: p_commit IN VARCHAR2 := FND_API.g_false,
9411:
9412: p_used_by_id IN NUMBER,
9413: p_dimention IN VARCHAR2,
9414:
9451: BEGIN
9452:
9453: SAVEPOINT allocate_facts;
9454:
9455: IF FND_API.to_boolean(p_init_msg_list) THEN
9456: FND_MSG_PUB.initialize;
9457: END IF;
9458:
9459: IF NOT FND_API.compatible_api_call(l_api_version,
9455: IF FND_API.to_boolean(p_init_msg_list) THEN
9456: FND_MSG_PUB.initialize;
9457: END IF;
9458:
9459: IF NOT FND_API.compatible_api_call(l_api_version,
9460: p_api_version,
9461: l_api_name,
9462: g_pkg_name)
9463: THEN
9460: p_api_version,
9461: l_api_name,
9462: g_pkg_name)
9463: THEN
9464: RAISE FND_API.g_exc_unexpected_error;
9465: END IF;
9466:
9467: x_return_status := FND_API.g_ret_sts_success;
9468:
9463: THEN
9464: RAISE FND_API.g_exc_unexpected_error;
9465: END IF;
9466:
9467: x_return_status := FND_API.g_ret_sts_success;
9468:
9469: OPEN c1;
9470: FETCH c1 INTO l_offer_type, l_currency_code, l_spread_type;
9471: CLOSE c1;
9481: x_return_status ,
9482: x_msg_count ,
9483: x_msg_data );
9484:
9485: IF x_return_status = FND_API.g_ret_sts_error THEN
9486: RAISE FND_API.g_exc_error;
9487: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9488: RAISE FND_API.g_exc_unexpected_error;
9489: END IF;
9482: x_msg_count ,
9483: x_msg_data );
9484:
9485: IF x_return_status = FND_API.g_ret_sts_error THEN
9486: RAISE FND_API.g_exc_error;
9487: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9488: RAISE FND_API.g_exc_unexpected_error;
9489: END IF;
9490: ELSE
9483: x_msg_data );
9484:
9485: IF x_return_status = FND_API.g_ret_sts_error THEN
9486: RAISE FND_API.g_exc_error;
9487: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9488: RAISE FND_API.g_exc_unexpected_error;
9489: END IF;
9490: ELSE
9491: -- Update all records
9484:
9485: IF x_return_status = FND_API.g_ret_sts_error THEN
9486: RAISE FND_API.g_exc_error;
9487: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9488: RAISE FND_API.g_exc_unexpected_error;
9489: END IF;
9490: ELSE
9491: -- Update all records
9492:
9580: AND NVL(node_id,1) <> 3
9581: GROUP BY previous_fact_id ) ;
9582:
9583: EXCEPTION
9584: WHEN FND_API.G_EXC_ERROR THEN
9585: ROLLBACK TO allocate_facts ;
9586: x_return_status := FND_API.G_RET_STS_ERROR;
9587: -- Standard call to get message count and if count=1, get the message
9588: FND_MSG_PUB.Count_And_Get (
9582:
9583: EXCEPTION
9584: WHEN FND_API.G_EXC_ERROR THEN
9585: ROLLBACK TO allocate_facts ;
9586: x_return_status := FND_API.G_RET_STS_ERROR;
9587: -- Standard call to get message count and if count=1, get the message
9588: FND_MSG_PUB.Count_And_Get (
9589: p_encoded => FND_API.G_FALSE,
9590: p_count => x_msg_count,
9585: ROLLBACK TO allocate_facts ;
9586: x_return_status := FND_API.G_RET_STS_ERROR;
9587: -- Standard call to get message count and if count=1, get the message
9588: FND_MSG_PUB.Count_And_Get (
9589: p_encoded => FND_API.G_FALSE,
9590: p_count => x_msg_count,
9591: p_data => x_msg_data
9592: );
9593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9589: p_encoded => FND_API.G_FALSE,
9590: p_count => x_msg_count,
9591: p_data => x_msg_data
9592: );
9593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9594: ROLLBACK TO allocate_facts;
9595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9596: -- Standard call to get message count and if count=1, get the message
9597: FND_MSG_PUB.Count_And_Get (
9591: p_data => x_msg_data
9592: );
9593: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9594: ROLLBACK TO allocate_facts;
9595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9596: -- Standard call to get message count and if count=1, get the message
9597: FND_MSG_PUB.Count_And_Get (
9598: p_encoded => FND_API.G_FALSE,
9599: p_count => x_msg_count,
9594: ROLLBACK TO allocate_facts;
9595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9596: -- Standard call to get message count and if count=1, get the message
9597: FND_MSG_PUB.Count_And_Get (
9598: p_encoded => FND_API.G_FALSE,
9599: p_count => x_msg_count,
9600: p_data => x_msg_data
9601: );
9602: WHEN OTHERS THEN
9600: p_data => x_msg_data
9601: );
9602: WHEN OTHERS THEN
9603: ROLLBACK TO allocate_facts;
9604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9605: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9606: THEN
9607: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9608: END IF;
9607: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9608: END IF;
9609: -- Standard call to get message count and if count=1, get the message
9610: FND_MSG_PUB.Count_And_Get (
9611: p_encoded => FND_API.G_FALSE,
9612: p_count => x_msg_count,
9613: p_data => x_msg_data
9614: );
9615:
9618:
9619:
9620: PROCEDURE get_volume_offer_discount(
9621: p_api_version IN NUMBER,
9622: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9623: p_commit IN VARCHAR2 := FND_API.g_false,
9624:
9625: p_obj_type IN VARCHAR2,
9626: p_obj_id IN NUMBER,
9619:
9620: PROCEDURE get_volume_offer_discount(
9621: p_api_version IN NUMBER,
9622: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9623: p_commit IN VARCHAR2 := FND_API.g_false,
9624:
9625: p_obj_type IN VARCHAR2,
9626: p_obj_id IN NUMBER,
9627: p_forecast_id IN NUMBER,
9768: BEGIN
9769:
9770: SAVEPOINT get_volume_offer_discount;
9771:
9772: IF FND_API.to_boolean(p_init_msg_list) THEN
9773: FND_MSG_PUB.initialize;
9774: END IF;
9775:
9776: IF NOT FND_API.compatible_api_call(l_api_version,
9772: IF FND_API.to_boolean(p_init_msg_list) THEN
9773: FND_MSG_PUB.initialize;
9774: END IF;
9775:
9776: IF NOT FND_API.compatible_api_call(l_api_version,
9777: p_api_version,
9778: l_api_name,
9779: g_pkg_name)
9780: THEN
9777: p_api_version,
9778: l_api_name,
9779: g_pkg_name)
9780: THEN
9781: RAISE FND_API.g_exc_unexpected_error;
9782: END IF;
9783:
9784: x_return_status := FND_API.g_ret_sts_success;
9785:
9780: THEN
9781: RAISE FND_API.g_exc_unexpected_error;
9782: END IF;
9783:
9784: x_return_status := FND_API.g_ret_sts_success;
9785:
9786: OPEN c_fcst_info;
9787: FETCH c_fcst_info INTO l_fcst_uom,l_price_list_id;
9788: CLOSE c_fcst_info;
9819: x_return_status ,
9820: x_msg_count ,
9821: x_msg_data );
9822: /*
9823: IF x_return_status = FND_API.g_ret_sts_error THEN
9824: RAISE FND_API.g_exc_error;
9825: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9826: RAISE FND_API.g_exc_unexpected_error;
9827: END IF;
9820: x_msg_count ,
9821: x_msg_data );
9822: /*
9823: IF x_return_status = FND_API.g_ret_sts_error THEN
9824: RAISE FND_API.g_exc_error;
9825: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9826: RAISE FND_API.g_exc_unexpected_error;
9827: END IF;
9828: */
9821: x_msg_data );
9822: /*
9823: IF x_return_status = FND_API.g_ret_sts_error THEN
9824: RAISE FND_API.g_exc_error;
9825: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9826: RAISE FND_API.g_exc_unexpected_error;
9827: END IF;
9828: */
9829: -- Get List price and multiply by quantity to get overall value in amount
9822: /*
9823: IF x_return_status = FND_API.g_ret_sts_error THEN
9824: RAISE FND_API.g_exc_error;
9825: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
9826: RAISE FND_API.g_exc_unexpected_error;
9827: END IF;
9828: */
9829: -- Get List price and multiply by quantity to get overall value in amount
9830: l_overall_volume := l_overall_volume + l_list_price * j.qty ;
9858:
9859: END IF;
9860:
9861: IF(l_flag_error = true) THEN
9862: x_return_status := FND_API.G_RET_STS_ERROR;
9863: RAISE FND_API.G_EXC_ERROR;
9864: END IF;
9865:
9866: -- Set to false since we need to find this overall converted volume just once
9859: END IF;
9860:
9861: IF(l_flag_error = true) THEN
9862: x_return_status := FND_API.G_RET_STS_ERROR;
9863: RAISE FND_API.G_EXC_ERROR;
9864: END IF;
9865:
9866: -- Set to false since we need to find this overall converted volume just once
9867: l_flag_first_visit := false;
9896:
9897:
9898: EXCEPTION
9899:
9900: WHEN FND_API.g_exc_error THEN
9901:
9902: ROLLBACK TO get_volume_offer_discount;
9903: x_return_status := FND_API.g_ret_sts_error;
9904: FND_MSG_PUB.Count_And_Get (
9899:
9900: WHEN FND_API.g_exc_error THEN
9901:
9902: ROLLBACK TO get_volume_offer_discount;
9903: x_return_status := FND_API.g_ret_sts_error;
9904: FND_MSG_PUB.Count_And_Get (
9905: p_encoded => FND_API.g_false,
9906: p_count => x_msg_count,
9907: p_data => x_msg_data
9901:
9902: ROLLBACK TO get_volume_offer_discount;
9903: x_return_status := FND_API.g_ret_sts_error;
9904: FND_MSG_PUB.Count_And_Get (
9905: p_encoded => FND_API.g_false,
9906: p_count => x_msg_count,
9907: p_data => x_msg_data
9908: );
9909:
9906: p_count => x_msg_count,
9907: p_data => x_msg_data
9908: );
9909:
9910: WHEN FND_API.g_exc_unexpected_error THEN
9911:
9912: ROLLBACK TO get_volume_offer_discount;
9913: x_return_status := FND_API.g_ret_sts_unexp_error;
9914: FND_MSG_PUB.Count_And_Get (
9909:
9910: WHEN FND_API.g_exc_unexpected_error THEN
9911:
9912: ROLLBACK TO get_volume_offer_discount;
9913: x_return_status := FND_API.g_ret_sts_unexp_error;
9914: FND_MSG_PUB.Count_And_Get (
9915: p_encoded => FND_API.g_false,
9916: p_count => x_msg_count,
9917: p_data => x_msg_data
9911:
9912: ROLLBACK TO get_volume_offer_discount;
9913: x_return_status := FND_API.g_ret_sts_unexp_error;
9914: FND_MSG_PUB.Count_And_Get (
9915: p_encoded => FND_API.g_false,
9916: p_count => x_msg_count,
9917: p_data => x_msg_data
9918: );
9919:
9919:
9920: WHEN OTHERS THEN
9921:
9922: ROLLBACK TO get_volume_offer_discount;
9923: x_return_status := FND_API.g_ret_sts_unexp_error;
9924:
9925: FND_MESSAGE.set_name('OZF', 'OZF_GET_VOLUME_OFFER_DISCOUNT_FAILED');
9926: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
9927: FND_MSG_PUB.add;
9930: THEN
9931: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
9932: END IF;
9933:
9934: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
9935: p_count => x_msg_count,
9936: p_data => x_msg_data);
9937:
9938: END get_volume_offer_discount;
9940:
9941:
9942: PROCEDURE allocate_pg_facts(
9943: p_api_version IN NUMBER,
9944: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9945: p_commit IN VARCHAR2 := FND_API.g_false,
9946:
9947: p_used_by_id IN NUMBER,
9948: p_dimention IN VARCHAR2,
9941:
9942: PROCEDURE allocate_pg_facts(
9943: p_api_version IN NUMBER,
9944: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
9945: p_commit IN VARCHAR2 := FND_API.g_false,
9946:
9947: p_used_by_id IN NUMBER,
9948: p_dimention IN VARCHAR2,
9949: p_currency_code IN VARCHAR2,
10043: BEGIN
10044:
10045: SAVEPOINT allocate_pg_facts;
10046:
10047: IF FND_API.to_boolean(p_init_msg_list) THEN
10048: FND_MSG_PUB.initialize;
10049: END IF;
10050:
10051: IF NOT FND_API.compatible_api_call(l_api_version,
10047: IF FND_API.to_boolean(p_init_msg_list) THEN
10048: FND_MSG_PUB.initialize;
10049: END IF;
10050:
10051: IF NOT FND_API.compatible_api_call(l_api_version,
10052: p_api_version,
10053: l_api_name,
10054: g_pkg_name)
10055: THEN
10052: p_api_version,
10053: l_api_name,
10054: g_pkg_name)
10055: THEN
10056: RAISE FND_API.g_exc_unexpected_error;
10057: END IF;
10058:
10059: x_return_status := FND_API.g_ret_sts_success;
10060:
10055: THEN
10056: RAISE FND_API.g_exc_unexpected_error;
10057: END IF;
10058:
10059: x_return_status := FND_API.g_ret_sts_success;
10060:
10061: /*
10062: 1. Get all conversions first
10063: 2. If pricing_attribute is PRICING_ATTRBUTE12, then the Buy is in
10121: x_return_status ,
10122: x_msg_count ,
10123: x_msg_data );
10124:
10125: IF x_return_status = FND_API.g_ret_sts_error THEN
10126: RAISE FND_API.g_exc_error;
10127: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10128: RAISE FND_API.g_exc_unexpected_error;
10129: END IF;
10122: x_msg_count ,
10123: x_msg_data );
10124:
10125: IF x_return_status = FND_API.g_ret_sts_error THEN
10126: RAISE FND_API.g_exc_error;
10127: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10128: RAISE FND_API.g_exc_unexpected_error;
10129: END IF;
10130:
10123: x_msg_data );
10124:
10125: IF x_return_status = FND_API.g_ret_sts_error THEN
10126: RAISE FND_API.g_exc_error;
10127: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10128: RAISE FND_API.g_exc_unexpected_error;
10129: END IF;
10130:
10131: l_ratio := i.offer_product_qty/l_list_price ;
10124:
10125: IF x_return_status = FND_API.g_ret_sts_error THEN
10126: RAISE FND_API.g_exc_error;
10127: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
10128: RAISE FND_API.g_exc_unexpected_error;
10129: END IF;
10130:
10131: l_ratio := i.offer_product_qty/l_list_price ;
10132:
10158: END LOOP;
10159:
10160: IF(l_flag_error = true)
10161: THEN
10162: x_return_status := FND_API.G_RET_STS_ERROR;
10163: RAISE FND_API.G_EXC_ERROR;
10164: END IF;
10165:
10166: -- Proceed only when all the conversions and ratios are resolved
10159:
10160: IF(l_flag_error = true)
10161: THEN
10162: x_return_status := FND_API.G_RET_STS_ERROR;
10163: RAISE FND_API.G_EXC_ERROR;
10164: END IF;
10165:
10166: -- Proceed only when all the conversions and ratios are resolved
10167:
10213:
10214: END LOOP;
10215:
10216: EXCEPTION
10217: WHEN FND_API.G_EXC_ERROR THEN
10218: ROLLBACK TO allocate_pg_facts ;
10219: x_return_status := FND_API.G_RET_STS_ERROR;
10220: -- Standard call to get message count and if count=1, get the message
10221: FND_MSG_PUB.Count_And_Get (
10215:
10216: EXCEPTION
10217: WHEN FND_API.G_EXC_ERROR THEN
10218: ROLLBACK TO allocate_pg_facts ;
10219: x_return_status := FND_API.G_RET_STS_ERROR;
10220: -- Standard call to get message count and if count=1, get the message
10221: FND_MSG_PUB.Count_And_Get (
10222: p_encoded => FND_API.G_FALSE,
10223: p_count => x_msg_count,
10218: ROLLBACK TO allocate_pg_facts ;
10219: x_return_status := FND_API.G_RET_STS_ERROR;
10220: -- Standard call to get message count and if count=1, get the message
10221: FND_MSG_PUB.Count_And_Get (
10222: p_encoded => FND_API.G_FALSE,
10223: p_count => x_msg_count,
10224: p_data => x_msg_data
10225: );
10226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10222: p_encoded => FND_API.G_FALSE,
10223: p_count => x_msg_count,
10224: p_data => x_msg_data
10225: );
10226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10227: ROLLBACK TO allocate_pg_facts;
10228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10229: -- Standard call to get message count and if count=1, get the message
10230: FND_MSG_PUB.Count_And_Get (
10224: p_data => x_msg_data
10225: );
10226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10227: ROLLBACK TO allocate_pg_facts;
10228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10229: -- Standard call to get message count and if count=1, get the message
10230: FND_MSG_PUB.Count_And_Get (
10231: p_encoded => FND_API.G_FALSE,
10232: p_count => x_msg_count,
10227: ROLLBACK TO allocate_pg_facts;
10228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10229: -- Standard call to get message count and if count=1, get the message
10230: FND_MSG_PUB.Count_And_Get (
10231: p_encoded => FND_API.G_FALSE,
10232: p_count => x_msg_count,
10233: p_data => x_msg_data
10234: );
10235: WHEN OTHERS THEN
10233: p_data => x_msg_data
10234: );
10235: WHEN OTHERS THEN
10236: ROLLBACK TO allocate_pg_facts;
10237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10238: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10239: THEN
10240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
10241: END IF;
10240: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
10241: END IF;
10242: -- Standard call to get message count and if count=1, get the message
10243: FND_MSG_PUB.Count_And_Get (
10244: p_encoded => FND_API.G_FALSE,
10245: p_count => x_msg_count,
10246: p_data => x_msg_data
10247: );
10248:
10249: END ;
10250:
10251: PROCEDURE cascade_baseline_update(
10252: p_api_version IN NUMBER,
10253: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10254: p_commit IN VARCHAR2 := FND_API.g_false,
10255: p_id IN NUMBER,
10256: p_value IN NUMBER,
10257: p_fcast_id IN NUMBER,
10250:
10251: PROCEDURE cascade_baseline_update(
10252: p_api_version IN NUMBER,
10253: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10254: p_commit IN VARCHAR2 := FND_API.g_false,
10255: p_id IN NUMBER,
10256: p_value IN NUMBER,
10257: p_fcast_id IN NUMBER,
10258: p_rem_value IN NUMBER,
10329: l_return_status VARCHAR2(1);
10330:
10331: BEGIN
10332:
10333: IF FND_API.to_boolean(p_init_msg_list) THEN
10334: FND_MSG_PUB.initialize;
10335: END IF;
10336:
10337: IF NOT FND_API.compatible_api_call(l_api_version,
10333: IF FND_API.to_boolean(p_init_msg_list) THEN
10334: FND_MSG_PUB.initialize;
10335: END IF;
10336:
10337: IF NOT FND_API.compatible_api_call(l_api_version,
10338: p_api_version,
10339: l_api_name,
10340: g_pkg_name)
10341: THEN
10338: p_api_version,
10339: l_api_name,
10340: g_pkg_name)
10341: THEN
10342: RAISE FND_API.g_exc_unexpected_error;
10343: END IF;
10344:
10345: x_return_status := FND_API.g_ret_sts_success;
10346:
10341: THEN
10342: RAISE FND_API.g_exc_unexpected_error;
10343: END IF;
10344:
10345: x_return_status := FND_API.g_ret_sts_success;
10346:
10347: l_delta := p_rem_value;
10348:
10349: -- fact_value is the incremental_sales
10372: x_msg_count,
10373: x_msg_data
10374: );
10375:
10376: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10377: RAISE FND_API.G_EXC_ERROR;
10378: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10380: END IF;
10373: x_msg_data
10374: );
10375:
10376: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10377: RAISE FND_API.G_EXC_ERROR;
10378: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10380: END IF;
10381:
10374: );
10375:
10376: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10377: RAISE FND_API.G_EXC_ERROR;
10378: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10380: END IF;
10381:
10382: GOTO end_of_cascade_baseline_update;
10375:
10376: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10377: RAISE FND_API.G_EXC_ERROR;
10378: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10380: END IF;
10381:
10382: GOTO end_of_cascade_baseline_update;
10383:
10526: END IF;
10527:
10528: EXCEPTION
10529: WHEN OTHERS THEN
10530: x_return_status := FND_API.g_ret_sts_unexp_error;
10531:
10532: FND_MESSAGE.set_name('OZF', 'OZF_OFFER_PARTY_STMT_FAILED');
10533: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
10534: FND_MSG_PUB.add;
10537: THEN
10538: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10539: END IF;
10540:
10541: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
10542: p_count => x_msg_count,
10543: p_data => x_msg_data);
10544:
10545: END cascade_baseline_update;
10545: END cascade_baseline_update;
10546:
10547: PROCEDURE cascade_baseline_levels(
10548: p_api_version IN NUMBER,
10549: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10550: p_commit IN VARCHAR2 := FND_API.g_false,
10551: p_fcast_value IN NUMBER,
10552: p_fcast_id IN NUMBER,
10553: p_cascade_flag IN NUMBER,
10546:
10547: PROCEDURE cascade_baseline_levels(
10548: p_api_version IN NUMBER,
10549: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
10550: p_commit IN VARCHAR2 := FND_API.g_false,
10551: p_fcast_value IN NUMBER,
10552: p_fcast_id IN NUMBER,
10553: p_cascade_flag IN NUMBER,
10554: p_obj_type IN VARCHAR2,
10600: IF (OZF_DEBUG_HIGH_ON) THEN
10601: OZF_Utility_PVT.debug_message(l_full_name || ': Start Cascade Baseline Levels');
10602: END IF;
10603:
10604: IF FND_API.to_boolean(p_init_msg_list) THEN
10605: FND_MSG_PUB.initialize;
10606: END IF;
10607:
10608: IF NOT FND_API.compatible_api_call(l_api_version,
10604: IF FND_API.to_boolean(p_init_msg_list) THEN
10605: FND_MSG_PUB.initialize;
10606: END IF;
10607:
10608: IF NOT FND_API.compatible_api_call(l_api_version,
10609: p_api_version,
10610: l_api_name,
10611: g_pkg_name)
10612: THEN
10609: p_api_version,
10610: l_api_name,
10611: g_pkg_name)
10612: THEN
10613: RAISE FND_API.g_exc_unexpected_error;
10614: END IF;
10615:
10616: x_return_status := FND_API.g_ret_sts_success;
10617:
10612: THEN
10613: RAISE FND_API.g_exc_unexpected_error;
10614: END IF;
10615:
10616: x_return_status := FND_API.g_ret_sts_success;
10617:
10618: -- fact_value is the incremental_sales
10619:
10620: SELECT forecast_quantity, base_quantity, forecast_remaining_quantity
10703: END IF;
10704:
10705: EXCEPTION
10706: WHEN OTHERS THEN
10707: x_return_status := FND_API.g_ret_sts_unexp_error;
10708:
10709: FND_MESSAGE.set_name('OZF', 'OZF_OFFER_PARTY_STMT_FAILED');
10710: FND_MESSAGE.set_token('ERR_MSG',SQLERRM);
10711: FND_MSG_PUB.add;
10714: THEN
10715: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
10716: END IF;
10717:
10718: FND_MSG_PUB.count_and_get(p_encoded => FND_API.g_false,
10719: p_count => x_msg_count,
10720: p_data => x_msg_data);
10721:
10722: