The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT AMS_LIST_RULES_ALL_S.NEXTVAL
FROM DUAL;
SELECT COUNT(*)
FROM AMS_LIST_RULES_ALL
WHERE list_rule_id = lst_rule_id;
AMS_Utility_PVT.debug_message(l_full_name || ': insert');
INSERT INTO AMS_LIST_RULES_ALL
(
list_rule_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
object_version_number,
list_rule_name,
weightage_for_dedupe,
active_from_date,
active_to_date,
description,
org_id,
list_rule_type
)
VALUES
(
l_list_rule_rec.list_rule_id,
SYSDATE,
FND_GLOBAL.user_id,
SYSDATE,
FND_GLOBAL.user_id,
FND_GLOBAL.conc_login_id,
1,
l_list_rule_rec.list_rule_name,
l_list_rule_rec.weightage_for_dedupe,
SYSDATE,
l_list_rule_rec.active_to_date,
l_list_rule_rec.description,
l_list_rule_rec.org_id,
l_list_rule_rec.list_rule_type
);
PROCEDURE update_list_rule
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.g_false,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validation_level IN NUMBER := FND_API.g_valid_level_full,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_list_rule_rec IN list_rule_rec_type
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'update_list_rule';
SAVEPOINT update_list_rule;
p_validation_mode => JTF_PLSQL_API.g_update,
x_return_status => l_return_status,
p_list_rule_rec => l_list_rule_rec
);
AMS_Utility_PVT.debug_message(l_full_name||': update');
UPDATE AMS_LIST_RULES_ALL SET
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.conc_login_id,
object_version_number = l_list_rule_rec.object_version_number + 1,
list_rule_name = l_list_rule_rec.list_rule_name,
weightage_for_dedupe = l_list_rule_rec.weightage_for_dedupe,
active_from_date = l_list_rule_rec.active_from_date,
active_to_date = l_list_rule_rec.active_to_date,
description = l_list_rule_rec.description,
org_id = l_list_rule_rec.org_id,
list_rule_type = l_list_rule_rec.list_rule_type
WHERE list_rule_id = l_list_rule_rec.list_rule_id
AND object_version_number = l_list_rule_rec.object_version_number;
ROLLBACK TO update_list_rule;
ROLLBACK TO update_list_rule;
ROLLBACK TO update_list_rule;
END update_list_rule;
PROCEDURE delete_list_rule
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.g_false,
p_commit IN VARCHAR2 := FND_API.g_false,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_list_rule_id IN NUMBER,
p_object_version IN NUMBER
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'delete_list_rule';
SELECT COUNT(*)
FROM AMS_LIST_RULE_USAGES
WHERE list_rule_id = lst_rule_id;
SAVEPOINT delete_list_rule;
DELETE FROM AMS_LIST_RULES_ALL
WHERE list_rule_id = p_list_rule_id
AND object_version_number = p_object_version;
DELETE FROM AMS_LIST_RULE_FIELDS
WHERE list_rule_id = p_list_rule_id;
ROLLBACK TO delete_list_rule;
ROLLBACK TO delete_list_rule;
ROLLBACK TO delete_list_rule;
END delete_list_rule;
SELECT list_rule_id
FROM AMS_LIST_RULES_ALL
WHERE list_rule_id = p_list_rule_id
AND object_version_number = p_object_version
FOR UPDATE OF list_rule_id NOWAIT;
AND p_validation_mode = JTF_PLSQL_API.g_update THEN
IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
FND_MESSAGE.set_name('AMS', 'AMS_LIST_RULES_ALL_NO_ID');
AND p_validation_mode = JTF_PLSQL_API.g_update
THEN
IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
FND_MESSAGE.set_name('AMS', 'AMS_NO_OBJ_VER_NUM');
SELECT * FROM AMS_LIST_RULES_ALL
WHERE list_rule_id = p_list_rule_rec.list_rule_id;
x_list_rule_rec.last_update_date := FND_API.g_miss_date;
x_list_rule_rec.last_updated_by := FND_API.g_miss_num;
x_list_rule_rec.last_update_login := FND_API.g_miss_num;