[Home] [Help]
408: --function metric
409: IF UPPER(l_metrics_rec.metric_calculation_type) = G_FUNCTION THEN
410: IF l_metrics_rec.function_name IS NULL
411: OR l_metrics_rec.function_name = FND_API.G_MISS_CHAR THEN
412: FND_MESSAGE.Set_Name ('AMS', 'AMS_MET_FUNC_BLANK');
413: FND_MSG_PUB.ADD;
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
416: l_metrics_rec.function_name := UPPER (l_metrics_rec.function_name);
706: THEN
707: -- Add error message to API message list.
708: --
709: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
710: FND_MESSAGE.set_name('AMS', 'AMS_METR_INVALID_UPDT_CHLD');
711: FND_MSG_PUB.ADD;
712: END IF;
713: RAISE FND_API.g_exc_error;
714: ELSE
737: -- If seeded then only update of enable flag is permitted.
738: IF (NOT l_seeded_ok) AND IsSeeded (l_metrics_rec.metric_id) THEN
739: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
740: THEN
741: FND_MESSAGE.set_name('AMS', 'AMS_METR_SEEDED_METR2');
742: FND_MSG_PUB.ADD;
743: END IF;
744:
745: RAISE FND_API.G_EXC_ERROR;
765: --function metric
766: IF UPPER(l_metrics_rec.metric_calculation_type) = G_FUNCTION THEN
767: IF l_metrics_rec.function_name IS NULL
768: OR l_metrics_rec.function_name = FND_API.G_MISS_CHAR THEN
769: FND_MESSAGE.Set_Name ('AMS', 'AMS_MET_FUNC_BLANK');
770: FND_MSG_PUB.ADD;
771: RAISE FND_API.G_EXC_ERROR;
772: END IF;
773: l_metrics_rec.function_name := UPPER (l_metrics_rec.function_name);
819: --
820: -- Add error message to API message list.
821: --
822: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
823: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
824: FND_MSG_PUB.ADD;
825: END IF;
826: RAISE FND_API.g_exc_error;
827: END IF;
846: --
847: -- Add error message to API message list.
848: --
849: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
850: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
851: FND_MSG_PUB.ADD;
852: END IF;
853: RAISE FND_API.g_exc_error;
854:
995: -- Check if record is seeded.
996: IF IsSeeded (p_metric_id) THEN
997: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
998: THEN
999: FND_MESSAGE.set_name('AMS', 'AMS_METR_SEEDED_METR3');
1000: FND_MSG_PUB.ADD;
1001: END IF;
1002:
1003: RAISE FND_API.G_EXC_ERROR;
1020: -- If any errors happen abort API.
1021:
1022: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1023: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1024: FND_MESSAGE.set_name('AMS', 'AMS_METR_CHILD_EXIST');
1025: FND_MSG_PUB.ADD;
1026: END IF;
1027: RAISE FND_API.G_EXC_ERROR;
1028: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1037:
1038: IF l_child_met_id IS NOT NULL THEN
1039: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1040: FND_MSG_PUB.Initialize;
1041: FND_MESSAGE.set_name('AMS', 'AMS_MET_ROLL_CHILD_EXISTS');
1042: FND_MSG_PUB.ADD;
1043: END IF;
1044: RAISE FND_API.G_EXC_ERROR;
1045: END IF;
1053:
1054: IF l_dep_met_id IS NOT NULL THEN
1055: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1056: FND_MSG_PUB.Initialize;
1057: FND_MESSAGE.set_name('AMS', 'AMS_MET_DEP_EXISTS');
1058: FND_MSG_PUB.ADD;
1059: END IF;
1060: RAISE FND_API.G_EXC_ERROR;
1061: END IF;
1067:
1068: IF l_sum_met_id IS NOT NULL THEN
1069: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1070: FND_MSG_PUB.Initialize;
1071: FND_MESSAGE.set_name('AMS', 'AMS_MET_SUM_CHILD_EXISTS');
1072: FND_MSG_PUB.ADD;
1073: END IF;
1074: RAISE FND_API.G_EXC_ERROR;
1075: END IF;
1085:
1086: IF (SQL%NOTFOUND) THEN
1087: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1088: THEN
1089: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1090: FND_MSG_PUB.ADD;
1091: END IF;
1092: RAISE FND_API.g_exc_error;
1093: END IF;
1098:
1099: IF (SQL%NOTFOUND) THEN
1100: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1101: THEN
1102: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1103: FND_MSG_PUB.ADD;
1104: END IF;
1105: RAISE FND_API.g_exc_error;
1106: END IF;
1253: CLOSE c_metrics_info;
1254: -- Error, check the msg level and added an error message to the
1255: -- API message list
1256: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1257: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1258: FND_MSG_PUB.ADD;
1259: END IF;
1260: RAISE FND_API.g_exc_error;
1261: END IF;
1297: WHEN Ams_Utility_Pvt.RESOURCE_LOCKED THEN
1298: x_return_status := FND_API.G_RET_STS_ERROR ;
1299:
1300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1301: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1302: FND_MSG_PUB.ADD;
1303: END IF;
1304:
1305: FND_MSG_PUB.Count_And_Get (
1505: THEN
1506: -- missing required fields
1507: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1508: THEN -- MMSG
1509: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_APP_ID');
1510: FND_MSG_PUB.ADD;
1511: END IF;
1512:
1513: x_return_status := FND_API.G_RET_STS_ERROR;
1522: THEN
1523: -- missing required fields
1524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1525: THEN -- MMSG
1526: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_ARC_USED_FOR');
1527: FND_MSG_PUB.ADD;
1528: END IF;
1529:
1530: x_return_status := FND_API.G_RET_STS_ERROR;
1539: THEN
1540: -- missing required fields
1541: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1542: THEN -- MMSG
1543: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_CALC_TYPE');
1544: FND_MSG_PUB.ADD;
1545: END IF;
1546:
1547: x_return_status := FND_API.G_RET_STS_ERROR;
1557: THEN
1558: -- missing required fields
1559: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1560: THEN -- MMSG
1561: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_CATEGORY');
1562: FND_MSG_PUB.ADD;
1563: END IF;
1564:
1565: x_return_status := FND_API.G_RET_STS_ERROR;
1574: THEN
1575: -- missing required fields
1576: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1577: THEN -- MMSG
1578: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_ACCRUAL_TYPE');
1579: FND_MSG_PUB.ADD;
1580: END IF;
1581:
1582: x_return_status := FND_API.G_RET_STS_ERROR;
1591: THEN
1592: -- missing required fields
1593: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1594: THEN -- MMSG
1595: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_VAL_TYPE');
1596: FND_MSG_PUB.ADD;
1597: END IF;
1598:
1599: x_return_status := FND_API.G_RET_STS_ERROR;
1608: THEN
1609: -- missing required fields
1610: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1611: THEN -- MMSG
1612: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_SENSITIVE');
1613: FND_MSG_PUB.ADD;
1614: END IF;
1615:
1616: x_return_status := FND_API.G_RET_STS_ERROR;
1625: THEN
1626: -- missing required fields
1627: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1628: THEN -- MMSG
1629: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_ENABLED_FLAG');
1630: FND_MSG_PUB.ADD;
1631: END IF;
1632:
1633: x_return_status := FND_API.G_RET_STS_ERROR;
1646: THEN
1647: -- missing required fields
1648: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1649: THEN -- MMSG
1650: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_UOM_TYPE');
1651: FND_MSG_PUB.Add;
1652: END IF;
1653:
1654: x_return_status := FND_API.G_RET_STS_ERROR;
1663: THEN
1664: -- missing required fields
1665: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1666: THEN -- MMSG
1667: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_DEF_UOM');
1668: FND_MSG_PUB.Add;
1669: END IF;
1670:
1671: x_return_status := FND_API.G_RET_STS_ERROR;
1683: THEN
1684: -- missing required fields
1685: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1686: THEN -- MMSG
1687: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_NAME');
1688: FND_MSG_PUB.ADD;
1689: END IF;
1690:
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1700: THEN
1701: -- missing required fields
1702: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1703: THEN -- MMSG
1704: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_MISSING_DISPLAY_TYPE');
1705: FND_MSG_PUB.ADD;
1706: END IF;
1707:
1708: x_return_status := FND_API.G_RET_STS_ERROR;
1775: ) = FND_API.g_false
1776: THEN
1777: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1778: THEN
1779: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_ID');
1780: FND_MSG_PUB.ADD;
1781: END IF;
1782: x_return_status := FND_API.g_ret_sts_error;
1783: RETURN;
1809: ) = FND_API.g_false
1810: THEN
1811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1812: THEN
1813: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_NAME');
1814: FND_MSG_PUB.add;
1815: END IF;
1816: x_return_status := FND_API.g_ret_sts_error;
1817: RETURN;
1823: p_metric_rec.arc_metric_used_for_object,p_metric_rec.metric_id);
1824: FETCH c_upd_get_dup_names INTO l_dummy;
1825: IF c_upd_get_dup_names%FOUND THEN
1826: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1827: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_NAME');
1828: FND_MSG_PUB.ADD;
1829: END IF;
1830: x_return_status := FND_API.g_ret_sts_error;
1831: END IF;
1836: p_metric_rec.arc_metric_used_for_object);
1837: FETCH c_crt_get_dup_names INTO l_dummy;
1838: IF c_crt_get_dup_names%FOUND THEN
1839: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1840: FND_MESSAGE.set_name('AMS', 'AMS_METR_DUP_NAME');
1841: FND_MSG_PUB.ADD;
1842: END IF;
1843: x_return_status := FND_API.g_ret_sts_error;
1844: END IF;
1944: IF c_check_metric_id%NOTFOUND
1945: THEN
1946: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1947: THEN
1948: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_PARENT_MET');
1949: FND_MSG_PUB.ADD;
1950: END IF;
1951:
1952: x_return_status := FND_API.G_RET_STS_ERROR;
1975: ) = FND_API.G_FALSE
1976: THEN
1977: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1978: THEN
1979: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_PARENT_MET');
1980: FND_MSG_PUB.ADD;
1981: END IF;
1982:
1983: x_return_status := FND_API.G_RET_STS_ERROR;
1997: IF c_check_metric_id%NOTFOUND
1998: THEN
1999: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2000: THEN
2001: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SUMMARY_MET');
2002: FND_MSG_PUB.ADD;
2003: END IF;
2004:
2005: x_return_status := FND_API.G_RET_STS_ERROR;
2028: ) = FND_API.G_FALSE
2029: THEN
2030: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2031: THEN
2032: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SUMMARY_MET');
2033: FND_MSG_PUB.ADD;
2034: END IF;
2035:
2036: x_return_status := FND_API.G_RET_STS_ERROR;
2047: IF c_check_uom%NOTFOUND
2048: THEN
2049: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2050: THEN
2051: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM_TYPE');
2052: FND_MSG_PUB.ADD;
2053: END IF;
2054:
2055: x_return_status := FND_API.G_RET_STS_ERROR;
2076: ) = FND_API.G_FALSE
2077: THEN
2078: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2079: THEN
2080: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM_TYPE');
2081: FND_MSG_PUB.ADD;
2082: END IF;
2083:
2084: x_return_status := FND_API.G_RET_STS_ERROR;
2095: IF c_check_category%NOTFOUND
2096: THEN
2097: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2098: THEN
2099: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_CATEGORY');
2100: FND_MSG_PUB.ADD;
2101: END IF;
2102:
2103: x_return_status := FND_API.G_RET_STS_ERROR;
2124: ,p_additional_where_clause => l_additional_where_clause
2125: ) = FND_API.G_FALSE
2126: THEN
2127: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2128: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CATEGORY');
2129: FND_MSG_PUB.ADD;
2130: END IF;
2131:
2132: x_return_status := FND_API.G_RET_STS_ERROR;
2150: = FND_API.G_FALSE
2151: THEN
2152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2153: THEN
2154: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SENS_FLAG');
2155: FND_MSG_PUB.ADD;
2156: END IF;
2157:
2158: x_return_status := FND_API.G_RET_STS_ERROR;
2166: = FND_API.G_FALSE
2167: THEN
2168: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2169: THEN
2170: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_ENABLED_FLAG');
2171: FND_MSG_PUB.ADD;
2172: END IF;
2173:
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2193: ,p_lookup_code => l_metrics_rec.accrual_type
2194: ) = FND_API.G_FALSE
2195: THEN
2196: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2197: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ACCRUAL_TYPE');
2198: FND_MSG_PUB.ADD;
2199: END IF;
2200:
2201: x_return_status := FND_API.G_RET_STS_ERROR;
2214: ,p_lookup_code => l_metrics_rec.metric_calculation_type
2215: ) = FND_API.G_FALSE
2216: THEN
2217: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2218: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CALC_TYPE');
2219: FND_MSG_PUB.ADD;
2220: END IF;
2221:
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2234: ,p_lookup_code => l_metrics_rec.DISPLAY_TYPE
2235: ) = FND_API.G_FALSE
2236: THEN
2237: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2238: FND_MESSAGE.Set_Name ('AMS', 'API_INCOMPLETE_INFO');
2239: FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2240: FND_MSG_PUB.ADD;
2241: END IF;
2242:
2235: ) = FND_API.G_FALSE
2236: THEN
2237: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2238: FND_MESSAGE.Set_Name ('AMS', 'API_INCOMPLETE_INFO');
2239: FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2240: FND_MSG_PUB.ADD;
2241: END IF;
2242:
2243: x_return_status := FND_API.G_RET_STS_ERROR;
2254: ,p_lookup_code => l_metrics_rec.value_type
2255: ) = FND_API.G_FALSE
2256: THEN
2257: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2258: FND_MESSAGE.Set_Name ('AMS', 'API_INCOMPLETE_INFO');
2259: FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2260: FND_MSG_PUB.ADD;
2261: END IF;
2262:
2255: ) = FND_API.G_FALSE
2256: THEN
2257: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2258: FND_MESSAGE.Set_Name ('AMS', 'API_INCOMPLETE_INFO');
2259: FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2260: FND_MSG_PUB.ADD;
2261: END IF;
2262:
2263: x_return_status := FND_API.G_RET_STS_ERROR;
2305: -- ) = FND_API.G_FALSE
2306: THEN
2307: ***/
2308: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2309: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_USED_BY');
2310: FND_MSG_PUB.ADD;
2311: END IF;
2312:
2313: x_return_status := FND_API.G_RET_STS_ERROR;
2410: END IF;
2411:
2412: -- If Child is Attached to One Off Event then Parent must be attached to Program
2413: --06/25/2001 huili for debug
2414: --FND_MESSAGE.set_name('AMS', p_parent_metric_used_by);
2415: --FND_MSG_PUB.add;
2416: IF p_metric_used_by = 'EONE' AND
2417: p_parent_metric_used_by <> 'RCAM'
2418: THEN
2534: IF c_check_subcategory%NOTFOUND
2535: THEN
2536: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2537: THEN
2538: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_SUB_CATEGORY');
2539: FND_MSG_PUB.ADD;
2540: END IF;
2541:
2542: x_return_status := FND_API.G_RET_STS_ERROR;
2555: IF c_check_uom%NOTFOUND
2556: THEN
2557: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2558: THEN
2559: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM');
2560: FND_MSG_PUB.ADD;
2561: END IF;
2562:
2563: x_return_status := FND_API.G_RET_STS_ERROR;
2589: ,p_additional_where_clause => l_additional_where_clause
2590: ) = FND_API.G_FALSE
2591: THEN
2592: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2593: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUB_CATEGORY');
2594: FND_MSG_PUB.ADD;
2595: END IF;
2596:
2597: x_return_status := FND_API.G_RET_STS_ERROR;
2622: ) = FND_API.G_FALSE
2623: THEN
2624: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2625: THEN
2626: FND_MESSAGE.Set_Name('AMS', 'AMS_METR_INVALID_UOM');
2627: FND_MSG_PUB.ADD;
2628: END IF;
2629:
2630: x_return_status := FND_API.G_RET_STS_ERROR;
2660: -- Has to change when routine for Validate Function is done
2661: IF p_complete_rec.accrual_type = G_FIXED THEN
2662: IF p_complete_rec.compute_using_function IS NOT NULL THEN
2663: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2664: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ACCR_VAR_FUN');
2665: FND_MSG_PUB.ADD;
2666: END IF;
2667: x_return_status := FND_API.G_RET_STS_ERROR;
2668: RETURN;
2670: IF p_complete_rec.metric_calculation_type = G_FUNCTION THEN
2671: IF p_complete_rec.function_name IS NULL THEN
2672: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
2673: THEN
2674: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CALC_FUNC');
2675: FND_MSG_PUB.ADD;
2676: END IF;
2677: x_return_status := FND_API.G_RET_STS_ERROR;
2678: RETURN;
2680: ELSE -- metric_calculation_type <> G_FUNCTION
2681: IF p_complete_rec.function_name IS NOT NULL THEN
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_CALC_FUNC');
2685: FND_MSG_PUB.ADD;
2686: END IF;
2687: x_return_status := FND_API.G_RET_STS_ERROR;
2688: RETURN;
2692: ELSIF p_complete_rec.accrual_type = G_VARIABLE THEN
2693: /** NOT TRUE ANY MORE
2694: IF p_complete_rec.function_name IS NOT NULL THEN
2695: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2696: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ACCR_FUN');
2697: FND_MSG_PUB.ADD;
2698: END IF;
2699: x_return_status := FND_API.G_RET_STS_ERROR;
2700: RETURN;
2701: END IF; -- function_name is not null
2702: **/
2703: IF p_complete_rec.compute_using_function IS NULL THEN
2704: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2705: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_COMP_FUNC');
2706: FND_MSG_PUB.ADD;
2707: END IF;
2708: x_return_status := FND_API.G_RET_STS_ERROR;
2709: RETURN;
2716: FETCH c_check_multiplier
2717: INTO l_category_id, l_object_type, l_calculation_type;
2718: IF c_check_multiplier%NOTFOUND 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_MULTI_METR');
2721: FND_MSG_PUB.ADD;
2722: END IF;
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: END IF;
2727: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2728: OPEN c_get_category_name(l_category_id);
2729: FETCH c_get_category_name INTO l_name;
2730: CLOSE c_get_category_name;
2731: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_MULTI_CAT');
2732: FND_MESSAGE.set_token('CATEGORY',
2733: NVL(l_name,to_char(l_category_id)), FALSE);
2734: FND_MSG_PUB.ADD;
2735: END IF;
2728: OPEN c_get_category_name(l_category_id);
2729: FETCH c_get_category_name INTO l_name;
2730: CLOSE c_get_category_name;
2731: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_MULTI_CAT');
2732: FND_MESSAGE.set_token('CATEGORY',
2733: NVL(l_name,to_char(l_category_id)), FALSE);
2734: FND_MSG_PUB.ADD;
2735: END IF;
2736: x_return_status := FND_API.G_RET_STS_ERROR;
2736: x_return_status := FND_API.G_RET_STS_ERROR;
2737: END IF;
2738: IF l_object_type <> p_complete_rec.arc_metric_used_for_object THEN
2739: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2740: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_MULTI_OBJ');
2741: l_name := AMS_UTILITY_PVT.get_lookup_meaning(
2742: 'AMS_METRIC_OBJECT_TYPE',l_object_type);
2743: FND_MESSAGE.set_token('OBJECT',
2744: NVL(l_name,l_object_type), FALSE);
2739: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2740: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_MULTI_OBJ');
2741: l_name := AMS_UTILITY_PVT.get_lookup_meaning(
2742: 'AMS_METRIC_OBJECT_TYPE',l_object_type);
2743: FND_MESSAGE.set_token('OBJECT',
2744: NVL(l_name,l_object_type), FALSE);
2745: FND_MSG_PUB.ADD;
2746: END IF;
2747: x_return_status := FND_API.G_RET_STS_ERROR;
2747: x_return_status := FND_API.G_RET_STS_ERROR;
2748: END IF;
2749: IF l_calculation_type NOT IN (G_MANUAL, G_FUNCTION) THEN
2750: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2751: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_MULTI_CALC');
2752: l_name := AMS_UTILITY_PVT.get_lookup_meaning(
2753: 'AMS_METRIC_CALCULATION_TYPE',l_calculation_type);
2754: FND_MESSAGE.set_token('CALCULATION',
2755: NVL(l_name,l_calculation_type), FALSE);
2750: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2751: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_MULTI_CALC');
2752: l_name := AMS_UTILITY_PVT.get_lookup_meaning(
2753: 'AMS_METRIC_CALCULATION_TYPE',l_calculation_type);
2754: FND_MESSAGE.set_token('CALCULATION',
2755: NVL(l_name,l_calculation_type), FALSE);
2756: FND_MSG_PUB.ADD;
2757: END IF;
2758: x_return_status := FND_API.G_RET_STS_ERROR;
2784: (l_metrics_rec.summary_metric_id IS NOT NULL AND
2785: l_metrics_rec.metric_parent_id IS NOT NULL )
2786: THEN
2787: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2788: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_SUMM');
2789: FND_MSG_PUB.Add;
2790: END IF;
2791: x_return_status := FND_API.G_RET_STS_ERROR;
2792: RETURN;
2799: p_complete_rec.metric_parent_id IS NOT NULL --AND
2800: --l_metrics_rec.metric_parent_id <> FND_API.G_MISS_NUM
2801: THEN
2802: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2803: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_SUMM_NOT_ROLL');
2804: FND_MSG_PUB.ADD;
2805: END IF;
2806: x_return_status := FND_API.G_RET_STS_ERROR;
2807: RETURN;
2818: CLOSE c_summary_count;
2819:
2820: IF l_count > 0 THEN
2821: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2822: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_SUMM');
2823: FND_MSG_PUB.ADD;
2824: END IF;
2825:
2826: x_return_status := FND_API.G_RET_STS_ERROR;
2851:
2852: -- IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2853: --
2854: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2855: -- FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_PARENT');
2856: -- FND_MSG_PUB.ADD;
2857: -- END IF;
2858: -- RETURN;
2859: -- END IF;
2865: -- The parent rollup metric category must be the same as the child's.
2866: IF p_complete_rec.metric_category <> l_rollup_metric_rec.metric_category
2867: THEN
2868: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2869: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_CAT');
2870: FND_MSG_PUB.ADD;
2871: END IF;
2872:
2873: x_return_status := FND_API.G_RET_STS_ERROR;
2882: -- END IF;
2883:
2884: IF p_complete_rec.value_type <> l_rollup_metric_rec.value_type THEN
2885: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2886: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_VAL');
2887: FND_MSG_PUB.ADD;
2888: END IF;
2889:
2890: x_return_status := FND_API.G_RET_STS_ERROR;
2898: -- END IF;
2899:
2900: IF p_complete_rec.uom_type <> l_rollup_metric_rec.uom_type THEN
2901: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2902: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_UOM');
2903: FND_MSG_PUB.ADD;
2904: END IF;
2905:
2906: x_return_status := FND_API.G_RET_STS_ERROR;
2916: -- that of the child's.
2917: -- IF l_metrics_rec.arc_metric_used_for_object <>
2918: -- l_rollup_metric_rec.arc_metric_used_for_object THEN
2919: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2920: -- FND_MESSAGE.Set_Name ('AMS', 'AMS_ARC_QUALIFIER_NOT_SAME');
2921: -- FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2922: -- FND_MSG_PUB.Add;
2923: -- END IF;
2924: --
2917: -- IF l_metrics_rec.arc_metric_used_for_object <>
2918: -- l_rollup_metric_rec.arc_metric_used_for_object THEN
2919: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2920: -- FND_MESSAGE.Set_Name ('AMS', 'AMS_ARC_QUALIFIER_NOT_SAME');
2921: -- FND_MESSAGE.Set_Token ('PARAM', l_lookup_type, FALSE);
2922: -- FND_MSG_PUB.Add;
2923: -- END IF;
2924: --
2925: -- x_return_status := FND_API.G_RET_STS_ERROR;
2937: CLOSE c_rollup_count;
2938:
2939: IF l_count > 0 THEN
2940: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2941: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_ROLL_SUMM');
2942: FND_MSG_PUB.ADD;
2943: END IF;
2944:
2945: x_return_status := FND_API.G_RET_STS_ERROR;
2962: -- The parent rollup metric category must be the same as the child's.
2963: IF p_complete_rec.metric_category <> l_summary_metric_rec.metric_category
2964: THEN
2965: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2966: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUMM_CAT');
2967: FND_MSG_PUB.ADD;
2968: END IF;
2969:
2970: x_return_status := FND_API.G_RET_STS_ERROR;
2977: -- END IF;
2978: -- The parent rollup metric unit of measure must be the same as the child's.
2979: IF p_complete_rec.uom_type <> l_summary_metric_rec.uom_type THEN
2980: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2981: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUMM_UOM');
2982: FND_MSG_PUB.ADD;
2983: END IF;
2984:
2985: x_return_status := FND_API.G_RET_STS_ERROR;
2993: -- The return value type of the parent metric must be the same
2994: -- as that of the child's.
2995: IF p_complete_rec.value_type <> l_summary_metric_rec.value_type THEN
2996: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2997: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUMM_VAL');
2998: FND_MSG_PUB.ADD;
2999: END IF;
3000:
3001: x_return_status := FND_API.G_RET_STS_ERROR;
3016: -- IF l_metrics_rec.arc_metric_used_for_object <>
3017: -- l_summary_metric_rec.arc_metric_used_for_object
3018: -- AND l_metrics_rec.metric_calculation_type <> G_ROLLUP THEN
3019: -- IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3020: -- FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_SUMM_OBJ');
3021: -- FND_MSG_PUB.ADD;
3022: -- END IF;
3023:
3024: -- x_return_status := FND_API.G_RET_STS_ERROR;
3032: IF p_complete_rec.accrual_type = 'VARIABLE'
3033: AND p_complete_rec.metric_category <> 901
3034: AND p_complete_rec.metric_category <> 902 THEN
3035: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3036: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CATEGORY');
3037: FND_MSG_PUB.ADD;
3038: END IF;
3039: x_return_status := FND_API.G_RET_STS_ERROR;
3040: RETURN;
3044: IF p_complete_rec.arc_metric_used_for_object <> 'ANY' AND
3045: p_complete_rec.metric_calculation_type IN (G_ROLLUP, G_SUMMARY)
3046: THEN
3047: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3048: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_USED_CALC');
3049: FND_MSG_PUB.ADD;
3050: END IF;
3051:
3052: x_return_status := FND_API.G_RET_STS_ERROR;
3057: IF p_complete_rec.arc_metric_used_for_object = 'ANY' AND
3058: p_complete_rec.metric_calculation_type NOT IN (G_ROLLUP, G_SUMMARY, G_FORMULA)
3059: THEN
3060: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3061: FND_MESSAGE.Set_Name ('AMS', 'AMS_METR_INVALID_CALC_USED');
3062: FND_MSG_PUB.ADD;
3063: END IF;
3064:
3065: x_return_status := FND_API.G_RET_STS_ERROR;
3220: -- End of the changes made by PTENDULK on 08/19/1999
3221: -- THEN
3222: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3223: -- THEN
3224: -- FND_MESSAGE.Set_Name('AMS', 'AMS_METR_CHILD_EXIST');
3225: -- FND_MSG_PUB.Add;
3226: -- END IF;
3227: -- x_return_status := FND_API.G_RET_STS_ERROR;
3228: -- RETURN;
3261: -- THEN
3262:
3263: -- IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3264: -- THEN
3265: -- FND_MESSAGE.Set_Name('AMS', 'AMS_METR_CHILD_EXIST');
3266: -- FND_MSG_PUB.Add;
3267: -- END IF;
3268: -- x_return_status := FND_API.G_RET_STS_ERROR;
3269: -- RETURN;
3342: FETCH c_metric INTO x_old_metric_rec;
3343: IF c_metric%NOTFOUND THEN
3344: CLOSE c_metric;
3345: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3346: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
3347: FND_MSG_PUB.ADD;
3348: END IF;
3349: RAISE FND_API.g_exc_error;
3350: END IF;
3590: END IF;
3591:
3592: IF x_func_type is null THEN
3593:
3594: FND_MESSAGE.Set_Name ('AMS', 'AMS_MET_FUNC_INVALID_DETAILS');
3595: FND_MSG_PUB.ADD;
3596: x_return_status := FND_API.G_RET_STS_ERROR;
3597:
3598: END IF;