17: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvrulb.pls';
18:
19: -- Hint: Primary key needs to be returned.
20:
21: AMS_DEBUG_HIGH_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
22: AMS_DEBUG_LOW_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: AMS_DEBUG_MEDIUM_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
24:
25: PROCEDURE Create_Ps_Rule(
18:
19: -- Hint: Primary key needs to be returned.
20:
21: AMS_DEBUG_HIGH_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
22: AMS_DEBUG_LOW_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: AMS_DEBUG_MEDIUM_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
24:
25: PROCEDURE Create_Ps_Rule(
26: p_api_version_number IN NUMBER,
19: -- Hint: Primary key needs to be returned.
20:
21: AMS_DEBUG_HIGH_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
22: AMS_DEBUG_LOW_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
23: AMS_DEBUG_MEDIUM_ON constant boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
24:
25: PROCEDURE Create_Ps_Rule(
26: p_api_version_number IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
105:
106: IF FND_API.to_Boolean( p_init_msg_list )
107:
108: THEN
109: FND_MSG_PUB.initialize;
110: END IF;
111:
112:
113: -- Debug Message
458: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
459: END IF;
460:
461: -- Standard call to get message count and if count is 1, get message info.
462: FND_MSG_PUB.Count_And_Get
463: (p_count => x_msg_count,
464: p_data => x_msg_data
465: );
466:
474: WHEN FND_API.G_EXC_ERROR THEN
475: ROLLBACK TO CREATE_Ps_Rule_PVT;
476: x_return_status := FND_API.G_RET_STS_ERROR;
477: -- Standard call to get message count and if count=1, get the message
478: FND_MSG_PUB.Count_And_Get (
479: p_encoded => FND_API.G_FALSE,
480: p_count => x_msg_count,
481: p_data => x_msg_data
482: );
484: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
485: ROLLBACK TO CREATE_Ps_Rule_PVT;
486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
487: -- Standard call to get message count and if count=1, get the message
488: FND_MSG_PUB.Count_And_Get (
489: p_encoded => FND_API.G_FALSE,
490: p_count => x_msg_count,
491: p_data => x_msg_data
492: );
493:
494: WHEN OTHERS THEN
495: ROLLBACK TO CREATE_Ps_Rule_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
498: THEN
499: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
500: END IF;
501: -- Standard call to get message count and if count=1, get the message
495: ROLLBACK TO CREATE_Ps_Rule_PVT;
496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
498: THEN
499: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
500: END IF;
501: -- Standard call to get message count and if count=1, get the message
502: FND_MSG_PUB.Count_And_Get (
503: p_encoded => FND_API.G_FALSE,
498: THEN
499: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
500: END IF;
501: -- Standard call to get message count and if count=1, get the message
502: FND_MSG_PUB.Count_And_Get (
503: p_encoded => FND_API.G_FALSE,
504: p_count => x_msg_count,
505: p_data => x_msg_data
506: );
555:
556: -- Initialize message list if p_init_msg_list is set to TRUE.
557: IF FND_API.to_Boolean( p_init_msg_list )
558: THEN
559: FND_MSG_PUB.initialize;
560: END IF;
561:
562: -- Debug Message
563: IF (AMS_DEBUG_HIGH_ON) THEN
701: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
702: END IF;
703:
704: -- Standard call to get message count and if count is 1, get message info.
705: FND_MSG_PUB.Count_And_Get
706: (p_count => x_msg_count,
707: p_data => x_msg_data
708: );
709: EXCEPTION
715: WHEN FND_API.G_EXC_ERROR THEN
716: ROLLBACK TO UPDATE_Ps_Rule_PVT;
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: -- Standard call to get message count and if count=1, get the message
719: FND_MSG_PUB.Count_And_Get (
720: p_encoded => FND_API.G_FALSE,
721: p_count => x_msg_count,
722: p_data => x_msg_data
723: );
725: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
726: ROLLBACK TO UPDATE_Ps_Rule_PVT;
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
728: -- Standard call to get message count and if count=1, get the message
729: FND_MSG_PUB.Count_And_Get (
730: p_encoded => FND_API.G_FALSE,
731: p_count => x_msg_count,
732: p_data => x_msg_data
733: );
734:
735: WHEN OTHERS THEN
736: ROLLBACK TO UPDATE_Ps_Rule_PVT;
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
738: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
739: THEN
740: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
741: END IF;
742: -- Standard call to get message count and if count=1, get the message
736: ROLLBACK TO UPDATE_Ps_Rule_PVT;
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
738: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
739: THEN
740: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
741: END IF;
742: -- Standard call to get message count and if count=1, get the message
743: FND_MSG_PUB.Count_And_Get (
744: p_encoded => FND_API.G_FALSE,
739: THEN
740: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
741: END IF;
742: -- Standard call to get message count and if count=1, get the message
743: FND_MSG_PUB.Count_And_Get (
744: p_encoded => FND_API.G_FALSE,
745: p_count => x_msg_count,
746: p_data => x_msg_data
747: );
840:
841: -- Initialize message list if p_init_msg_list is set to TRUE.
842: IF FND_API.to_Boolean( p_init_msg_list )
843: THEN
844: FND_MSG_PUB.initialize;
845: END IF;
846:
847: -- Debug Message
848: IF (AMS_DEBUG_HIGH_ON) THEN
1067:
1068: -- Initialize message list if p_init_msg_list is set to TRUE.
1069: IF FND_API.to_Boolean( p_init_msg_list )
1070: THEN
1071: FND_MSG_PUB.initialize;
1072: END IF;
1073:
1074: -- Debug Message
1075: IF (AMS_DEBUG_HIGH_ON) THEN
1108: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1109: END IF;
1110:
1111: -- Standard call to get message count and if count is 1, get message info.
1112: FND_MSG_PUB.Count_And_Get
1113: (p_count => x_msg_count,
1114: p_data => x_msg_data
1115: );
1116: EXCEPTION
1122: WHEN FND_API.G_EXC_ERROR THEN
1123: ROLLBACK TO DELETE_Ps_Rule_PVT;
1124: x_return_status := FND_API.G_RET_STS_ERROR;
1125: -- Standard call to get message count and if count=1, get the message
1126: FND_MSG_PUB.Count_And_Get (
1127: p_encoded => FND_API.G_FALSE,
1128: p_count => x_msg_count,
1129: p_data => x_msg_data
1130: );
1132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1133: ROLLBACK TO DELETE_Ps_Rule_PVT;
1134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1135: -- Standard call to get message count and if count=1, get the message
1136: FND_MSG_PUB.Count_And_Get (
1137: p_encoded => FND_API.G_FALSE,
1138: p_count => x_msg_count,
1139: p_data => x_msg_data
1140: );
1141:
1142: WHEN OTHERS THEN
1143: ROLLBACK TO DELETE_Ps_Rule_PVT;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1146: THEN
1147: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1148: END IF;
1149: -- Standard call to get message count and if count=1, get the message
1143: ROLLBACK TO DELETE_Ps_Rule_PVT;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1146: THEN
1147: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1148: END IF;
1149: -- Standard call to get message count and if count=1, get the message
1150: FND_MSG_PUB.Count_And_Get (
1151: p_encoded => FND_API.G_FALSE,
1146: THEN
1147: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1148: END IF;
1149: -- Standard call to get message count and if count=1, get the message
1150: FND_MSG_PUB.Count_And_Get (
1151: p_encoded => FND_API.G_FALSE,
1152: p_count => x_msg_count,
1153: p_data => x_msg_data
1154: );
1186:
1187: -- Initialize message list if p_init_msg_list is set to TRUE.
1188: IF FND_API.to_Boolean( p_init_msg_list )
1189: THEN
1190: FND_MSG_PUB.initialize;
1191: END IF;
1192:
1193: -- Debug Message
1194: IF (AMS_DEBUG_HIGH_ON) THEN
1230: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
1231: END IF;
1232:
1233: -- Standard call to get message count and if count is 1, get message info.
1234: FND_MSG_PUB.Count_And_Get
1235: (p_count => x_msg_count,
1236: p_data => x_msg_data
1237: );
1238: EXCEPTION
1244: WHEN FND_API.G_EXC_ERROR THEN
1245: ROLLBACK TO DELETE_Ps_Rule_PVT;
1246: x_return_status := FND_API.G_RET_STS_ERROR;
1247: -- Standard call to get message count and if count=1, get the message
1248: FND_MSG_PUB.Count_And_Get (
1249: p_encoded => FND_API.G_FALSE,
1250: p_count => x_msg_count,
1251: p_data => x_msg_data
1252: );
1254: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1255: ROLLBACK TO DELETE_Ps_Rule_PVT;
1256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1257: -- Standard call to get message count and if count=1, get the message
1258: FND_MSG_PUB.Count_And_Get (
1259: p_encoded => FND_API.G_FALSE,
1260: p_count => x_msg_count,
1261: p_data => x_msg_data
1262: );
1263:
1264: WHEN OTHERS THEN
1265: ROLLBACK TO DELETE_Ps_Rule_PVT;
1266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1267: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1268: THEN
1269: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1270: END IF;
1271: -- Standard call to get message count and if count=1, get the message
1265: ROLLBACK TO DELETE_Ps_Rule_PVT;
1266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1267: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1268: THEN
1269: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1270: END IF;
1271: -- Standard call to get message count and if count=1, get the message
1272: FND_MSG_PUB.Count_And_Get (
1273: p_encoded => FND_API.G_FALSE,
1268: THEN
1269: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1270: END IF;
1271: -- Standard call to get message count and if count=1, get the message
1272: FND_MSG_PUB.Count_And_Get (
1273: p_encoded => FND_API.G_FALSE,
1274: p_count => x_msg_count,
1275: p_data => x_msg_data
1276: );
1312:
1313: -- Initialize message list if p_init_msg_list is set to TRUE.
1314: IF FND_API.to_Boolean( p_init_msg_list )
1315: THEN
1316: FND_MSG_PUB.initialize;
1317: END IF;
1318:
1319: -- Standard call to check for call compatibility.
1320: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1344: FETCH c_Ps_Rule INTO l_RULE_ID;
1345:
1346: IF (c_Ps_Rule%NOTFOUND) THEN
1347: CLOSE c_Ps_Rule;
1348: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1349: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1350: FND_MSG_PUB.add;
1351: END IF;
1352: RAISE FND_API.g_exc_error;
1346: IF (c_Ps_Rule%NOTFOUND) THEN
1347: CLOSE c_Ps_Rule;
1348: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1349: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1350: FND_MSG_PUB.add;
1351: END IF;
1352: RAISE FND_API.g_exc_error;
1353: END IF;
1354:
1354:
1355: CLOSE c_Ps_Rule;
1356:
1357: -------------------- finish --------------------------
1358: FND_MSG_PUB.count_and_get(
1359: p_encoded => FND_API.g_false,
1360: p_count => x_msg_count,
1361: p_data => x_msg_data);
1362: IF (AMS_DEBUG_HIGH_ON) THEN
1372: WHEN FND_API.G_EXC_ERROR THEN
1373: ROLLBACK TO LOCK_Ps_Rule_PVT;
1374: x_return_status := FND_API.G_RET_STS_ERROR;
1375: -- Standard call to get message count and if count=1, get the message
1376: FND_MSG_PUB.Count_And_Get (
1377: p_encoded => FND_API.G_FALSE,
1378: p_count => x_msg_count,
1379: p_data => x_msg_data
1380: );
1382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1383: ROLLBACK TO LOCK_Ps_Rule_PVT;
1384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1385: -- Standard call to get message count and if count=1, get the message
1386: FND_MSG_PUB.Count_And_Get (
1387: p_encoded => FND_API.G_FALSE,
1388: p_count => x_msg_count,
1389: p_data => x_msg_data
1390: );
1391:
1392: WHEN OTHERS THEN
1393: ROLLBACK TO LOCK_Ps_Rule_PVT;
1394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1395: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1396: THEN
1397: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1398: END IF;
1399: -- Standard call to get message count and if count=1, get the message
1393: ROLLBACK TO LOCK_Ps_Rule_PVT;
1394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1395: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1396: THEN
1397: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1398: END IF;
1399: -- Standard call to get message count and if count=1, get the message
1400: FND_MSG_PUB.Count_And_Get (
1401: p_encoded => FND_API.G_FALSE,
1396: THEN
1397: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1398: END IF;
1399: -- Standard call to get message count and if count=1, get the message
1400: FND_MSG_PUB.Count_And_Get (
1401: p_encoded => FND_API.G_FALSE,
1402: p_count => x_msg_count,
1403: p_data => x_msg_data
1404: );
1991:
1992: -- Initialize message list if p_init_msg_list is set to TRUE.
1993: IF FND_API.to_Boolean( p_init_msg_list )
1994: THEN
1995: FND_MSG_PUB.initialize;
1996: END IF;
1997: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1998: Check_ps_rules_Items(
1999: p_ps_rules_rec => p_ps_rules_rec,
2023: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
2024: END IF;
2025:
2026: -- Standard call to get message count and if count is 1, get message info.
2027: FND_MSG_PUB.Count_And_Get
2028: (p_count => x_msg_count,
2029: p_data => x_msg_data
2030: );
2031: EXCEPTION
2037: WHEN FND_API.G_EXC_ERROR THEN
2038: ROLLBACK TO VALIDATE_Ps_Rule_;
2039: x_return_status := FND_API.G_RET_STS_ERROR;
2040: -- Standard call to get message count and if count=1, get the message
2041: FND_MSG_PUB.Count_And_Get (
2042: p_encoded => FND_API.G_FALSE,
2043: p_count => x_msg_count,
2044: p_data => x_msg_data
2045: );
2047: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2048: ROLLBACK TO VALIDATE_Ps_Rule_;
2049: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2050: -- Standard call to get message count and if count=1, get the message
2051: FND_MSG_PUB.Count_And_Get (
2052: p_encoded => FND_API.G_FALSE,
2053: p_count => x_msg_count,
2054: p_data => x_msg_data
2055: );
2056:
2057: WHEN OTHERS THEN
2058: ROLLBACK TO VALIDATE_Ps_Rule_;
2059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2060: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2061: THEN
2062: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2063: END IF;
2064: -- Standard call to get message count and if count=1, get the message
2058: ROLLBACK TO VALIDATE_Ps_Rule_;
2059: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2060: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2061: THEN
2062: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2063: END IF;
2064: -- Standard call to get message count and if count=1, get the message
2065: FND_MSG_PUB.Count_And_Get (
2066: p_encoded => FND_API.G_FALSE,
2061: THEN
2062: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2063: END IF;
2064: -- Standard call to get message count and if count=1, get the message
2065: FND_MSG_PUB.Count_And_Get (
2066: p_encoded => FND_API.G_FALSE,
2067: p_count => x_msg_count,
2068: p_data => x_msg_data
2069: );
2082: BEGIN
2083: -- Initialize message list if p_init_msg_list is set to TRUE.
2084: IF FND_API.to_Boolean( p_init_msg_list )
2085: THEN
2086: FND_MSG_PUB.initialize;
2087: END IF;
2088:
2089: -- Initialize API return status to SUCCESS
2090: x_return_status := FND_API.G_RET_STS_SUCCESS;
2099:
2100: AMS_UTILITY_PVT.debug_message('Private API: Validate_dm_model_rec');
2101: END IF;
2102: -- Standard call to get message count and if count is 1, get message info.
2103: FND_MSG_PUB.Count_And_Get
2104: (p_count => x_msg_count,
2105: p_data => x_msg_data
2106: );
2107: END Validate_ps_rules_Rec;