[Home] [Help]
84: -- "Get_Function_Type".
85: -- 10/09/2001 huili Remove the schema checking for seeded function
86: -- metrics.
87: -- 10/12/2001 huili Pass the "FND_API.G_FALSE" to the "p_encoded"
88: -- parameter of the "FND_MSG_PUB.Count_And_Get"
89: -- module.
90: -- 10/29/2001 huili Add the " Inter_Metric_Validation" module and link
91: -- it to the "update_metric" module.
92: -- 12/26/2001 dmvincen Metrics can rollup to any type of object.
335: --
336: -- Initialize message list if p_init_msg_list is set to TRUE.
337: --
338: IF FND_API.To_Boolean (p_init_msg_list) THEN
339: FND_MSG_PUB.Initialize;
340: END IF;
341:
342: --
343: -- Standard check for API version compatibility.
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);
417:
557: --
558: -- Standard API to get message count, and if 1,
559: -- set the message data OUT variable.
560: --
561: FND_MSG_PUB.Count_And_Get (
562: p_count => x_msg_count,
563: p_data => x_msg_data,
564: p_encoded => FND_API.G_FALSE
565: );
573: EXCEPTION
574: WHEN FND_API.G_EXC_ERROR THEN
575: ROLLBACK TO Create_Metric_pvt;
576: x_return_status := FND_API.G_RET_STS_ERROR;
577: FND_MSG_PUB.Count_And_Get (
578: p_encoded => FND_API.g_false,
579: p_count => x_msg_count,
580: p_data => x_msg_data
581: );
581: );
582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583: ROLLBACK TO Create_Metric_pvt;
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
585: FND_MSG_PUB.Count_And_Get (
586: p_encoded => FND_API.g_false,
587: p_count => x_msg_count,
588: p_data => x_msg_data
589: );
589: );
590: WHEN OTHERS THEN
591: ROLLBACK TO Create_Metric_pvt;
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
594: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
595: END IF;
596: FND_MSG_PUB.Count_And_Get (
597: p_encoded => FND_API.g_false,
590: WHEN OTHERS THEN
591: ROLLBACK TO Create_Metric_pvt;
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
594: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
595: END IF;
596: FND_MSG_PUB.Count_And_Get (
597: p_encoded => FND_API.g_false,
598: p_count => x_msg_count,
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
593: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
594: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
595: END IF;
596: FND_MSG_PUB.Count_And_Get (
597: p_encoded => FND_API.g_false,
598: p_count => x_msg_count,
599: p_data => x_msg_data
600: );
655: --
656: -- Initialize message list if p_init_msg_list is set to TRUE.
657: --
658: IF FND_API.To_Boolean (p_init_msg_list) THEN
659: FND_MSG_PUB.Initialize;
660: END IF;
661:
662: --
663: -- Standard check for API version compatibility.
705: OR l_metrics_rec.target_type <> l_old_metrics_rec.target_type
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;
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
715: l_return_status := FND_API.G_RET_STS_SUCCESS;
735: END IF;
736:
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;
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;
746: END IF;
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);
774:
818: THEN
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;
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;
828:
845: THEN
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;
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:
855: END IF;
865: --
866: -- Standard API to get message count, and if 1,
867: -- set the message data OUT variable.
868: --
869: FND_MSG_PUB.Count_And_Get (
870: p_count => x_msg_count,
871: p_data => x_msg_data,
872: p_encoded => FND_API.G_FALSE
873: );
881: EXCEPTION
882: WHEN FND_API.G_EXC_ERROR THEN
883: ROLLBACK TO Update_Metric_pvt;
884: x_return_status := FND_API.G_RET_STS_ERROR;
885: FND_MSG_PUB.Count_And_Get (
886: p_encoded => FND_API.g_false,
887: p_count => x_msg_count,
888: p_data => x_msg_data
889: );
889: );
890: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
891: ROLLBACK TO Update_Metric_pvt;
892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
893: FND_MSG_PUB.Count_And_Get (
894: p_encoded => FND_API.g_false,
895: p_count => x_msg_count,
896: p_data => x_msg_data
897: );
897: );
898: WHEN OTHERS THEN
899: ROLLBACK TO Update_Metric_pvt;
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
902: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
903: END IF;
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.g_false,
898: WHEN OTHERS THEN
899: ROLLBACK TO Update_Metric_pvt;
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
902: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
903: END IF;
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.g_false,
906: p_count => x_msg_count,
900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
901: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
902: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
903: END IF;
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.g_false,
906: p_count => x_msg_count,
907: p_data => x_msg_data
908: );
976: --
977: -- Initialize message list if p_init_msg_list is set to TRUE.
978: --
979: IF FND_API.To_Boolean (p_init_msg_list) THEN
980: FND_MSG_PUB.Initialize;
981: END IF;
982:
983: --
984: -- Standard check for API version compatibility.
993:
994: --
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;
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;
1004: END IF;
1019:
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;
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
1029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1035: FETCH c_child_met_id INTO l_child_met_id;
1036: CLOSE c_child_met_id;
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;
1036: CLOSE c_child_met_id;
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;
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;
1046: -- end addition
1051: FETCH c_check_depend_met INTO l_dep_met_id;
1052: CLOSE c_check_depend_met;
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;
1052: CLOSE c_check_depend_met;
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;
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;
1062:
1065: FETCH c_sum_met_id INTO l_sum_met_id;
1066: CLOSE c_sum_met_id;
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;
1066: CLOSE c_sum_met_id;
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;
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;
1076: -- end addition
1083: AND object_version_number = p_object_version_number;
1084:
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;
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;
1094:
1096: DELETE FROM ams_metrics_all_tl
1097: WHERE metric_id = p_metric_id;
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;
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;
1107:
1127: --
1128: -- Standard API to get message count, and if 1,
1129: -- set the message data OUT variable.
1130: --
1131: FND_MSG_PUB.Count_And_Get (
1132: p_count => x_msg_count,
1133: p_data => x_msg_data,
1134: p_encoded => FND_API.G_FALSE
1135: );
1137: EXCEPTION
1138: WHEN FND_API.G_EXC_ERROR THEN
1139: ROLLBACK TO Delete_Metric_pvt;
1140: x_return_status := FND_API.G_RET_STS_ERROR;
1141: FND_MSG_PUB.Count_And_Get (
1142: p_encoded => FND_API.g_false,
1143: p_count => x_msg_count,
1144: p_data => x_msg_data
1145: );
1145: );
1146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1147: ROLLBACK TO Delete_Metric_pvt;
1148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1149: FND_MSG_PUB.Count_And_Get (
1150: p_encoded => FND_API.g_false,
1151: p_count => x_msg_count,
1152: p_data => x_msg_data
1153: );
1153: );
1154: WHEN OTHERS THEN
1155: ROLLBACK TO Delete_Metric_pvt;
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1158: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1159: END IF;
1160: FND_MSG_PUB.Count_And_Get (
1161: p_encoded => FND_API.g_false,
1154: WHEN OTHERS THEN
1155: ROLLBACK TO Delete_Metric_pvt;
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1158: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1159: END IF;
1160: FND_MSG_PUB.Count_And_Get (
1161: p_encoded => FND_API.g_false,
1162: p_count => x_msg_count,
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1158: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1159: END IF;
1160: FND_MSG_PUB.Count_And_Get (
1161: p_encoded => FND_API.g_false,
1162: p_count => x_msg_count,
1163: p_data => x_msg_data
1164: );
1220: --
1221: -- Initialize message list if p_init_msg_list is set to TRUE.
1222: --
1223: IF FND_API.To_Boolean (p_init_msg_list) THEN
1224: FND_MSG_PUB.Initialize;
1225: END IF;
1226:
1227: --
1228: -- Standard check for API version compatibility.
1252: THEN
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;
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;
1262: CLOSE c_metrics_info;
1267: --
1268: -- Standard API to get message count, and if 1,
1269: -- set the message data OUT variable.
1270: --
1271: FND_MSG_PUB.Count_And_Get (
1272: p_count => x_msg_count,
1273: p_data => x_msg_data,
1274: p_encoded => FND_API.G_FALSE
1275: );
1282:
1283: EXCEPTION
1284: WHEN FND_API.G_EXC_ERROR THEN
1285: x_return_status := FND_API.G_RET_STS_ERROR;
1286: FND_MSG_PUB.Count_And_Get (
1287: p_count => x_msg_count,
1288: p_data => x_msg_data
1289: );
1290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1288: p_data => x_msg_data
1289: );
1290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1292: FND_MSG_PUB.Count_And_Get (
1293: p_encoded => FND_API.g_false,
1294: p_count => x_msg_count,
1295: p_data => x_msg_data
1296: );
1296: );
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:
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 (
1306: p_count => x_msg_count,
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 (
1306: p_count => x_msg_count,
1307: p_data => x_msg_data,
1308: p_encoded => FND_API.G_FALSE
1309: );
1308: p_encoded => FND_API.G_FALSE
1309: );
1310: WHEN OTHERS THEN
1311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1312: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1313: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1314: END IF;
1315: FND_MSG_PUB.Count_And_Get (
1316: p_count => x_msg_count,
1309: );
1310: WHEN OTHERS THEN
1311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1312: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1313: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1314: END IF;
1315: FND_MSG_PUB.Count_And_Get (
1316: p_count => x_msg_count,
1317: p_data => x_msg_data,
1311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1312: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1313: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1314: END IF;
1315: FND_MSG_PUB.Count_And_Get (
1316: p_count => x_msg_count,
1317: p_data => x_msg_data,
1318: p_encoded => FND_API.G_FALSE
1319: );
1363: --
1364: -- Initialize message list if p_init_msg_list is set to TRUE.
1365: --
1366: IF FND_API.To_Boolean (p_init_msg_list) THEN
1367: FND_MSG_PUB.Initialize;
1368: END IF;
1369:
1370: --
1371: -- Standard check for API version compatibility.
1431: --
1432: -- Standard API to get message count, and if 1,
1433: -- set the message data OUT variable.
1434: --
1435: FND_MSG_PUB.Count_And_Get (
1436: p_count => x_msg_count,
1437: p_data => x_msg_data,
1438: p_encoded => FND_API.G_FALSE
1439: );
1446:
1447: EXCEPTION
1448: WHEN FND_API.G_EXC_ERROR THEN
1449: x_return_status := FND_API.G_RET_STS_ERROR;
1450: FND_MSG_PUB.Count_And_Get (
1451: p_encoded => FND_API.g_false,
1452: p_count => x_msg_count,
1453: p_data => x_msg_data
1454: );
1453: p_data => x_msg_data
1454: );
1455: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1457: FND_MSG_PUB.Count_And_Get (
1458: p_encoded => FND_API.g_false,
1459: p_count => x_msg_count,
1460: p_data => x_msg_data
1461: );
1460: p_data => x_msg_data
1461: );
1462: WHEN OTHERS THEN
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1465: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1466: END IF;
1467: FND_MSG_PUB.Count_And_Get (
1468: p_encoded => FND_API.g_false,
1461: );
1462: WHEN OTHERS THEN
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1465: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1466: END IF;
1467: FND_MSG_PUB.Count_And_Get (
1468: p_encoded => FND_API.g_false,
1469: p_count => x_msg_count,
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1465: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, L_API_NAME);
1466: END IF;
1467: FND_MSG_PUB.Count_And_Get (
1468: p_encoded => FND_API.g_false,
1469: p_count => x_msg_count,
1470: p_data => x_msg_data
1471: );
1503:
1504: IF p_metric_rec.application_id IS NULL
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;
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;
1514:
1520:
1521: IF p_metric_rec.arc_metric_used_for_object IS NULL
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;
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;
1531:
1537:
1538: IF p_metric_rec.metric_calculation_type IS NULL
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;
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;
1548:
1555: IF p_metric_rec.metric_calculation_type <> G_FORMULA AND
1556: p_metric_rec.metric_category IS NULL
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;
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;
1566:
1572:
1573: IF p_metric_rec.accrual_type IS NULL
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;
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;
1583:
1589:
1590: IF p_metric_rec.value_type IS NULL
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;
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;
1600:
1606:
1607: IF p_metric_rec.sensitive_data_flag IS NULL
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;
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;
1617:
1623:
1624: IF p_metric_rec.enabled_flag IS NULL
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;
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;
1634:
1644:
1645: IF p_metric_rec.uom_type IS NULL
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;
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;
1655:
1661:
1662: IF p_metric_rec.default_uom_code IS NULL
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;
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;
1672:
1681:
1682: IF p_metric_rec.metrics_name IS NULL
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;
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;
1692:
1698:
1699: IF p_metric_rec.DISPLAY_TYPE IS NULL
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;
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;
1709:
1773: p_table_name => 'ams_metrics_vl',
1774: p_where_clause => l_where_clause
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;
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;
1784: END IF;
1807: p_table_name => 'ams_metrics_vl',
1808: p_where_clause => l_where_clause
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;
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;
1818: END IF;
1822: OPEN c_upd_get_dup_names(p_metric_rec.metrics_name,
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;
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;
1832: CLOSE c_upd_get_dup_names;
1835: OPEN c_crt_get_dup_names(p_metric_rec.metrics_name,
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;
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;
1845: CLOSE c_crt_get_dup_names;
1942:
1943: OPEN c_check_metric_id(l_metrics_rec.metric_parent_id,G_ROLLUP);
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;
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;
1953: CLOSE c_check_metric_id;
1973: ,p_pk_data_type => l_pk_data_type
1974: ,p_additional_where_clause => l_additional_where_clause
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;
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;
1984: RETURN;*/
1995:
1996: OPEN c_check_metric_id(l_metrics_rec.metric_parent_id,G_SUMMARY);
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;
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;
2006: CLOSE c_check_metric_id;
2026: ,p_pk_data_type => l_pk_data_type
2027: ,p_additional_where_clause => l_additional_where_clause
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;
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;
2037: RETURN;
2045:
2046: OPEN c_check_uom(l_metrics_rec.uom_type);
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;
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;
2056: CLOSE c_check_uom;
2074: ,p_pk_data_type => l_pk_data_type
2075: ,p_additional_where_clause => l_additional_where_clause
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;
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;
2085: RETURN;
2093:
2094: OPEN c_check_category(l_metrics_rec.metric_category);
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;
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;
2104: CLOSE c_check_category;
2123: ,p_pk_data_type => l_pk_data_type
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:
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;
2133: RETURN;
2148: IF l_metrics_rec.sensitive_data_flag <> FND_API.G_MISS_CHAR THEN
2149: IF Ams_Utility_Pvt.Is_Y_Or_N(l_metrics_rec.sensitive_data_flag)
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;
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;
2159: RETURN;
2164: IF l_metrics_rec.enabled_flag <> FND_API.G_MISS_CHAR THEN
2165: IF Ams_Utility_Pvt.Is_Y_Or_N(l_metrics_rec.enabled_flag)
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;
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;
2175: RETURN;
2192: ,p_lookup_type => l_lookup_type
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:
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;
2202: RETURN;
2213: ,p_lookup_type => l_lookup_type
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:
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;
2223: RETURN;
2233: ,p_lookup_type => l_lookup_type
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;
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;
2244: RETURN;
2253: ,p_lookup_type => l_lookup_type
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;
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;
2264: RETURN;
2304: -- ,p_lookup_code => l_metrics_rec.arc_metric_used_for_object
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:
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;
2314: RETURN;
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
2419: x_return_status := FND_API.G_RET_STS_ERROR;
2532: /*sunkumar 20 april 2004*/
2533: OPEN c_check_subcategory(p_complete_rec.metric_sub_category,p_complete_rec.metric_category);
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;
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;
2543: CLOSE c_check_subcategory;
2553:
2554: OPEN c_check_uom(p_complete_rec.default_uom_code,p_complete_rec.uom_type);
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;
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;
2564: CLOSE c_check_uom;
2588: ,p_pk_data_type => l_pk_data_type
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:
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;
2598: RETURN;
2620: ,p_pk_data_type => l_pk_data_type
2621: ,p_additional_where_clause => l_additional_where_clause
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;
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;
2631: RETURN;
2659: *****/
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;
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;
2669: ELSE -- compute_using_function is null
2668: RETURN;
2669: ELSE -- compute_using_function is null
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;
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;
2679: END IF; -- function_name is null
2678: RETURN;
2679: END IF; -- function_name is null
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;
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;
2689: END IF; -- function_name is not null
2691: END IF; -- compute_using_function is not null
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;
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
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;
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;
2710: ELSE
2715: l_calculation_type := null;
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;
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;
2725: CLOSE c_check_multiplier;
2723: x_return_status := FND_API.G_RET_STS_ERROR;
2724: END IF;
2725: CLOSE c_check_multiplier;
2726: IF l_category_id IN (G_COST_ID,G_REVENUE_ID) THEN
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');
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;
2737: END IF;
2738: IF l_object_type <> p_complete_rec.arc_metric_used_for_object THEN
2735: END IF;
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',
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;
2748: END IF;
2749: IF l_calculation_type NOT IN (G_MANUAL, G_FUNCTION) THEN
2746: END IF;
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',
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;
2759: END IF;
2760: END IF; -- compute_using_function is null
2783: l_metrics_rec.metric_parent_id <> FND_API.G_MISS_NUM ) AND
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;
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;
2793: END IF;
2798: IF p_complete_rec.metric_calculation_type = G_SUMMARY AND
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;
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;
2808: END IF;
2817: FETCH c_summary_count INTO l_count;
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:
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;
2827: RETURN;
2850:
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;
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;
2860:
2864: -- 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:
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;
2874: RETURN;
2881: -- l_metrics_rec.value_type := p_complete_rec.value_type ;
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:
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;
2891: RETURN;
2897: -- l_metrics_rec.uom_type := p_complete_rec.uom_type ;
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:
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;
2907: RETURN;
2915: -- The return value type of the parent metric must be the same as
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;
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;
2926: -- END IF;
2936: FETCH c_rollup_count INTO l_count;
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:
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;
2946: RETURN;
2961: -- END IF;
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:
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;
2971: RETURN;
2976: -- l_metrics_rec.uom_type := p_complete_rec.uom_type ;
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:
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;
2986: RETURN;
2992: -- END IF;
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:
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;
3002: RETURN;
3015: -- This code is not applicable.
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:
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;
3025: -- RETURN;
3031: --huili added on 05/10/2001
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;
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;
3041: END IF;
3043: -- 04-OCT-2001 DMVINCEN New object type for summary and rollup.
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:
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;
3053: RETURN;
3056: -- 04-OCT-2001 DMVINCEN New object type for summary and rollup.
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:
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;
3066: RETURN;
3218: -- p_pk_data_type => AMS_Utility_PVT.G_NUMBER
3219: -- ) = FND_API.G_TRUE
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;
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;
3229: -- END IF;
3259: -- ) = FND_API.G_TRUE
3260: -- End of the changes made by PTENDULK on 08/19/1999
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;
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;
3270: -- END IF;
3341: OPEN c_metric(p_metric_rec.metric_id);
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;
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;
3351: CLOSE c_metric;
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;
3599: