331: -- IF (AMS_DEBUG_HIGH_ON) THEN AMS_Utility_PVT.debug_message(' Top level budget available amount: ' || l_avail_amount); END IF;
332: IF l_allocation_amount > l_avail_amount THEN
333: -- top level allocation amount can not exceed fund's available amount
334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
335: FND_MESSAGE.Set_Name ('AMS', 'AMS_FUND_INV_CHILD_AMT');
336: FND_MESSAGE.Set_Token('SUMAMT', l_allocation_amount);
337: FND_MESSAGE.Set_Token('NODEVALUE', 'FUND');
338: FND_MESSAGE.Set_Token('PAMT', l_avail_amount);
339: FND_MSG_PUB.Add;
332: IF l_allocation_amount > l_avail_amount THEN
333: -- top level allocation amount can not exceed fund's available amount
334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
335: FND_MESSAGE.Set_Name ('AMS', 'AMS_FUND_INV_CHILD_AMT');
336: FND_MESSAGE.Set_Token('SUMAMT', l_allocation_amount);
337: FND_MESSAGE.Set_Token('NODEVALUE', 'FUND');
338: FND_MESSAGE.Set_Token('PAMT', l_avail_amount);
339: FND_MSG_PUB.Add;
340: END IF;
333: -- top level allocation amount can not exceed fund's available amount
334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
335: FND_MESSAGE.Set_Name ('AMS', 'AMS_FUND_INV_CHILD_AMT');
336: FND_MESSAGE.Set_Token('SUMAMT', l_allocation_amount);
337: FND_MESSAGE.Set_Token('NODEVALUE', 'FUND');
338: FND_MESSAGE.Set_Token('PAMT', l_avail_amount);
339: FND_MSG_PUB.Add;
340: END IF;
341: x_return_status := FND_API.G_RET_STS_ERROR;
334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
335: FND_MESSAGE.Set_Name ('AMS', 'AMS_FUND_INV_CHILD_AMT');
336: FND_MESSAGE.Set_Token('SUMAMT', l_allocation_amount);
337: FND_MESSAGE.Set_Token('NODEVALUE', 'FUND');
338: FND_MESSAGE.Set_Token('PAMT', l_avail_amount);
339: FND_MSG_PUB.Add;
340: END IF;
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: RAISE FND_API.G_EXC_ERROR;
356: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
357: OPEN c_fundfact_getnodeinfo(factrec.hierarchy_id, factrec.node_id);
358: FETCH c_fundfact_getnodeinfo INTO l_node_value;
359: CLOSE c_fundfact_getnodeinfo;
360: FND_MESSAGE.Set_Name ('AMS', 'AMS_FUND_INV_CHILD_AMT');
361: FND_MESSAGE.Set_Token('SUMAMT', l_child_sum_amount);
362: FND_MESSAGE.Set_Token('NODEVALUE', l_node_value);
363: FND_MESSAGE.Set_Token('PAMT', l_avail_amount);
364: FND_MSG_PUB.Add;
357: OPEN c_fundfact_getnodeinfo(factrec.hierarchy_id, factrec.node_id);
358: FETCH c_fundfact_getnodeinfo INTO l_node_value;
359: CLOSE c_fundfact_getnodeinfo;
360: FND_MESSAGE.Set_Name ('AMS', 'AMS_FUND_INV_CHILD_AMT');
361: FND_MESSAGE.Set_Token('SUMAMT', l_child_sum_amount);
362: FND_MESSAGE.Set_Token('NODEVALUE', l_node_value);
363: FND_MESSAGE.Set_Token('PAMT', l_avail_amount);
364: FND_MSG_PUB.Add;
365: END IF;
358: FETCH c_fundfact_getnodeinfo INTO l_node_value;
359: CLOSE c_fundfact_getnodeinfo;
360: FND_MESSAGE.Set_Name ('AMS', 'AMS_FUND_INV_CHILD_AMT');
361: FND_MESSAGE.Set_Token('SUMAMT', l_child_sum_amount);
362: FND_MESSAGE.Set_Token('NODEVALUE', l_node_value);
363: FND_MESSAGE.Set_Token('PAMT', l_avail_amount);
364: FND_MSG_PUB.Add;
365: END IF;
366: x_return_status := FND_API.G_RET_STS_ERROR;
359: CLOSE c_fundfact_getnodeinfo;
360: FND_MESSAGE.Set_Name ('AMS', 'AMS_FUND_INV_CHILD_AMT');
361: FND_MESSAGE.Set_Token('SUMAMT', l_child_sum_amount);
362: FND_MESSAGE.Set_Token('NODEVALUE', l_node_value);
363: FND_MESSAGE.Set_Token('PAMT', l_avail_amount);
364: FND_MSG_PUB.Add;
365: END IF;
366: x_return_status := FND_API.G_RET_STS_ERROR;
367: RAISE FND_API.G_EXC_ERROR;
1138: --
1139: -- Add error message to API message list.
1140: --
1141: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1142: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1143: FND_MSG_PUB.add;
1144: END IF;
1145: RAISE FND_API.g_exc_error;
1146: END IF;
1296: CLOSE c_act_metric_fact_info;
1297: -- Error, check the msg level and added an error message to the
1298: -- API message list
1299: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1300: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1301: FND_MSG_PUB.add;
1302: END IF;
1303: RAISE FND_API.g_exc_error;
1304: END IF;
1340: WHEN AMS_Utility_PVT.RESOURCE_LOCKED THEN
1341: x_return_status := FND_API.G_RET_STS_ERROR ;
1342:
1343: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1344: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1345: FND_MSG_PUB.add;
1346: END IF;
1347:
1348: FND_MSG_PUB.Count_And_Get (
1394: FETCH c_act_metric_fact INTO l_act_metric_fact_rec;
1395: IF c_act_metric_fact%NOTFOUND THEN
1396: CLOSE c_act_metric_fact;
1397: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1398: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1399: FND_MSG_PUB.add;
1400: END IF;
1401: RAISE FND_API.g_exc_error;
1402: END IF;
1888:
1889: IF (SQL%NOTFOUND) THEN
1890: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1891: THEN
1892: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1893: FND_MSG_PUB.add;
1894: END IF;
1895: RAISE FND_API.g_exc_error;
1896: END IF;
2165: THEN
2166: -- missing required fields
2167: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2168: THEN -- MMSG
2169: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_ARC_USED_FOR');
2170: FND_MSG_PUB.Add;
2171: END IF;
2172:
2173: x_return_status := FND_API.G_RET_STS_ERROR;
2184: THEN
2185: -- missing required fields
2186: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2187: THEN -- MMSG
2188: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_ARC_USED_FOR');
2189: FND_MSG_PUB.Add;
2190: END IF;
2191:
2192: x_return_status := FND_API.G_RET_STS_ERROR;
2203: THEN
2204: -- missing required fields
2205: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2206: THEN -- MMSG
2207: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_VAL_TYPE');
2208: FND_MSG_PUB.Add;
2209: END IF;
2210:
2211: x_return_status := FND_API.G_RET_STS_ERROR;
2223: THEN
2224: -- missing required fields
2225: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2226: THEN -- MMSG
2227: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_ACT_METRIC_ID');
2228: FND_MSG_PUB.Add;
2229: END IF;
2230:
2231: x_return_status := FND_API.G_RET_STS_ERROR;
2242: THEN
2243: -- missing required fields
2244: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2245: THEN -- MMSG
2246: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_TRAN_FCST_VAL');
2247: FND_MSG_PUB.Add;
2248: END IF;
2249:
2250: x_return_status := FND_API.G_RET_STS_ERROR;
2261: THEN
2262: -- missing required fields
2263: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2264: THEN -- MMSG
2265: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_FUNC_CUR_CODE');
2266: FND_MSG_PUB.Add;
2267: END IF;
2268:
2269: x_return_status := FND_API.G_RET_STS_ERROR;
2280: THEN
2281: -- missing required fields
2282: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2283: THEN -- MMSG
2284: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_FUNC_FCST_VAL');
2285: FND_MSG_PUB.Add;
2286: END IF;
2287:
2288: x_return_status := FND_API.G_RET_STS_ERROR;
2300: THEN
2301: -- missing required fields
2302: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2303: THEN -- MMSG
2304: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_METRIC_ID');
2305: FND_MSG_PUB.Add;
2306: END IF;
2307:
2308: x_return_status := FND_API.G_RET_STS_ERROR;
2320: THEN
2321: -- missing required fields
2322: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2323: THEN -- MMSG
2324: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_TIME_ID1');
2325: FND_MSG_PUB.Add;
2326: END IF;
2327:
2328: x_return_status := FND_API.G_RET_STS_ERROR;
2351:
2352: -- missing required fields
2353: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2354: THEN -- MMSG
2355: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_NODE_ID');
2356: FND_MSG_PUB.Add;
2357: END IF;
2358:
2359: x_return_status := FND_API.G_RET_STS_ERROR;
2369: THEN
2370: -- missing required fields
2371: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2372: THEN -- MMSG
2373: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_FACT_VAL');
2374: FND_MSG_PUB.Add;
2375: END IF;
2376:
2377: x_return_status := FND_API.G_RET_STS_ERROR;
2429: ) = FND_API.g_false
2430: THEN
2431: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2432: THEN
2433: FND_MESSAGE.set_name('AMS', 'AMS_METR_FACT_DUP_ID');
2434: FND_MSG_PUB.add;
2435: END IF;
2436: x_return_status := FND_API.g_ret_sts_error;
2437: RETURN;
2512: ) = FND_API.G_FALSE
2513: THEN
2514: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2515: THEN
2516: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_MET');
2517: FND_MSG_PUB.Add;
2518: END IF;
2519:
2520: x_return_status := FND_API.G_RET_STS_ERROR;
2530: IF l_act_metric_fact_rec.arc_act_metric_used_by NOT IN
2531: ('CAMP','CSCH','EVEH','EVEO','DELV','FUND','FCST')
2532: THEN
2533: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2534: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_USED_BY');
2535: FND_MSG_PUB.Add;
2536: END IF;
2537:
2538: x_return_status := FND_API.G_RET_STS_ERROR;
2561: ) = FND_API.G_FALSE
2562: THEN
2563: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2564: THEN
2565: FND_MESSAGE.Set_Name('AMS', 'AMS_HIER_INVALID');
2566: FND_MSG_PUB.Add;
2567: END IF;
2568:
2569: x_return_status := FND_API.G_RET_STS_ERROR;
2596:
2597: IF c_hierarchy_node_check%FOUND THEN
2598: CLOSE c_hierarchy_node_check;
2599: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2600: FND_MESSAGE.set_name('AMS', 'AMS_METR_FACT_DUP_NODE_ID');
2601: FND_MSG_PUB.add;
2602: RAISE FND_API.g_exc_error;
2603: END IF;
2604: ELSE
2680: THEN
2681:
2682: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2683: THEN
2684: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_ACT_USAGE');
2685: FND_MSG_PUB.Add;
2686: END IF;
2687:
2688: x_return_status := FND_API.G_RET_STS_ERROR;
2716: ,p_additional_where_clause => NULL
2717: ) = FND_API.G_FALSE
2718: THEN
2719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2720: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_USED_BY');
2721: FND_MSG_PUB.Add;
2722: END IF;
2723:
2724: x_return_status := FND_API.G_RET_STS_ERROR;