The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT AMS_LIST_WORD_FIELDS_S.NEXTVAL
FROM DUAL;
SELECT COUNT(*)
FROM AMS_LIST_WORD_FIELDS
WHERE list_word_field_id = wrd_fld_id;
AMS_Utility_PVT.debug_message(l_full_name || ': insert');
INSERT INTO AMS_LIST_WORD_FIELDS
(
list_word_field_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
object_version_number,
field_table_name,
field_column_name,
list_word_replaces_id,
original_word,
replacement_word,
enabled_flag,
description
)
VALUES
(
l_wrd_fld_rec.list_word_field_id,
SYSDATE,
FND_GLOBAL.user_id,
SYSDATE,
FND_GLOBAL.user_id,
FND_GLOBAL.conc_login_id,
1,
l_wrd_fld_rec.field_table_name,
l_wrd_fld_rec.field_column_name,
l_wrd_fld_rec.list_word_replaces_id,
l_wrd_fld_rec.original_word,
l_wrd_fld_rec.replacement_word,
l_wrd_fld_rec.enabled_flag,
l_wrd_fld_rec.description
);
PROCEDURE update_list_word_field
(
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_wrd_fld_rec IN wrd_fld_rec_type
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'update_list_word_field';
SAVEPOINT update_list_word_field;
p_validation_mode => JTF_PLSQL_API.g_update,
x_return_status => l_return_status,
p_wrd_fld_rec => l_wrd_fld_rec
);
AMS_Utility_PVT.debug_message(l_full_name||': update');
UPDATE AMS_LIST_WORD_FIELDS SET
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.conc_login_id,
object_version_number = l_wrd_fld_rec.object_version_number + 1,
field_table_name = l_wrd_fld_rec.field_table_name,
field_column_name = l_wrd_fld_rec.field_column_name,
list_word_replaces_id = l_wrd_fld_rec.list_word_replaces_id,
original_word = l_wrd_fld_rec.original_word,
replacement_word = l_wrd_fld_rec.replacement_word,
enabled_flag = l_wrd_fld_rec.enabled_flag,
description = l_wrd_fld_rec.description
WHERE list_word_field_id = l_wrd_fld_rec.list_word_field_id
AND object_version_number = l_wrd_fld_rec.object_version_number;
ROLLBACK TO update_list_word_field;
ROLLBACK TO update_list_word_field;
ROLLBACK TO update_list_word_field;
END update_list_word_field;
PROCEDURE delete_list_word_field
(
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_wrd_fld_id IN NUMBER,
p_object_version IN NUMBER
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'delete_list_word_field';
SAVEPOINT delete_list_word_field;
AMS_Utility_PVT.debug_message(l_full_name || ': delete');
DELETE FROM AMS_LIST_WORD_FIELDS
WHERE list_word_field_id = p_wrd_fld_id
AND object_version_number = p_object_version;
ROLLBACK TO delete_list_word_field;
ROLLBACK TO delete_list_word_field;
ROLLBACK TO delete_list_word_field;
END delete_list_word_field;
SELECT list_word_field_id
FROM AMS_LIST_WORD_FIELDS
WHERE list_word_field_id = p_wrd_fld_id
AND object_version_number = p_object_version
FOR UPDATE OF list_word_field_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_WORD_FIELDS_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_WORD_FIELDS
WHERE list_word_field_id = p_wrd_fld_rec.list_word_field_id;
x_wrd_fld_rec.last_update_date := FND_API.g_miss_date;
x_wrd_fld_rec.last_updated_by := FND_API.g_miss_num;
x_wrd_fld_rec.last_update_login := FND_API.g_miss_num;