84: FROM AMS_IBA_PS_RULES
85: WHERE (POSTING_ID = l_p_id AND RULEGROUP_ID = l_r_id);
86:
87: BEGIN
88: -- Standard Start of API savepoint
89:
90: SAVEPOINT CREATE_Ps_Rule_PVT;
91:
92: -- Standard call to check for call compatibility.
88: -- Standard Start of API savepoint
89:
90: SAVEPOINT CREATE_Ps_Rule_PVT;
91:
92: -- Standard call to check for call compatibility.
93:
94: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
95: p_api_version_number,
96: l_api_name,
440: -- End of API body
441: --
442:
443:
444: -- Standard check for p_commit
445:
446: IF FND_API.to_Boolean( p_commit )
447:
448: THEN
457:
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: );
473:
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
483:
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
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,
504: p_count => x_msg_count,
505: p_data => x_msg_data
540: WHERE rulegroup_id = rgp_id
541: and rownum <= 1;
542:
543: BEGIN
544: -- Standard Start of API savepoint
545: SAVEPOINT UPDATE_Ps_Rule_PVT;
546:
547: -- Standard call to check for call compatibility.
548: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
543: BEGIN
544: -- Standard Start of API savepoint
545: SAVEPOINT UPDATE_Ps_Rule_PVT;
546:
547: -- Standard call to check for call compatibility.
548: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
549: p_api_version_number,
550: l_api_name,
551: G_PKG_NAME)
688: --
689: -- End of API body.
690: --
691:
692: -- Standard check for p_commit
693: IF FND_API.to_Boolean( p_commit )
694: THEN
695: COMMIT WORK;
696: END IF;
700:
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: );
714:
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
724:
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
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,
745: p_count => x_msg_count,
746: p_data => x_msg_data
825: oe_debug_pub.debug_on;
826:
827: oe_debug_pub.add('Begining of Update_Ps_Rule_Alt');
828: */
829: -- Standard Start of API savepoint
830: SAVEPOINT UPDATE_Ps_Rule_PVT;
831:
832: -- Standard call to check for call compatibility.
833: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
828: */
829: -- Standard Start of API savepoint
830: SAVEPOINT UPDATE_Ps_Rule_PVT;
831:
832: -- Standard call to check for call compatibility.
833: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
834: p_api_version_number,
835: l_api_name,
836: G_PKG_NAME)
1052: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1053: l_object_version_number NUMBER;
1054:
1055: BEGIN
1056: -- Standard Start of API savepoint
1057: SAVEPOINT DELETE_Ps_Rule_PVT;
1058:
1059: -- Standard call to check for call compatibility.
1060: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1055: BEGIN
1056: -- Standard Start of API savepoint
1057: SAVEPOINT DELETE_Ps_Rule_PVT;
1058:
1059: -- Standard call to check for call compatibility.
1060: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1061: p_api_version_number,
1062: l_api_name,
1063: G_PKG_NAME)
1095: --
1096: -- End of API body
1097: --
1098:
1099: -- Standard check for p_commit
1100: IF FND_API.to_Boolean( p_commit )
1101: THEN
1102: COMMIT WORK;
1103: END IF;
1107:
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: );
1121:
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
1131:
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
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,
1152: p_count => x_msg_count,
1153: p_data => x_msg_data
1171: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1172: l_object_version_number NUMBER;
1173:
1174: BEGIN
1175: -- Standard Start of API savepoint
1176: SAVEPOINT DELETE_Ps_Rule_PVT;
1177:
1178: -- Standard call to check for call compatibility.
1179: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1174: BEGIN
1175: -- Standard Start of API savepoint
1176: SAVEPOINT DELETE_Ps_Rule_PVT;
1177:
1178: -- Standard call to check for call compatibility.
1179: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1180: p_api_version_number,
1181: l_api_name,
1182: G_PKG_NAME)
1217: --
1218: -- End of API body
1219: --
1220:
1221: -- Standard check for p_commit
1222: IF FND_API.to_Boolean( p_commit )
1223: THEN
1224: COMMIT WORK;
1225: END IF;
1229:
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: );
1243:
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
1253:
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
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,
1274: p_count => x_msg_count,
1275: p_data => x_msg_data
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,
1321: p_api_version_number,
1322: l_api_name,
1323: G_PKG_NAME)
1371:
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
1381:
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
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,
1402: p_count => x_msg_count,
1403: p_data => x_msg_data
1976: l_object_version_number NUMBER;
1977: l_ps_rules_rec AMS_Ps_Rule_PVT.ps_rules_rec_type;
1978:
1979: BEGIN
1980: -- Standard Start of API savepoint
1981: SAVEPOINT VALIDATE_Ps_Rule_;
1982:
1983: -- Standard call to check for call compatibility.
1984: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1979: BEGIN
1980: -- Standard Start of API savepoint
1981: SAVEPOINT VALIDATE_Ps_Rule_;
1982:
1983: -- Standard call to check for call compatibility.
1984: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1985: p_api_version_number,
1986: l_api_name,
1987: G_PKG_NAME)
2022:
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: );
2036:
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
2046:
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
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,
2067: p_count => x_msg_count,
2068: p_data => x_msg_data
2098: IF (AMS_DEBUG_HIGH_ON) THEN
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: );