The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT object_version_number
FROM ams_list_fields_b
WHERE list_field_id = p_listfield_id
AND object_version_number = p_object_version
FOR UPDATE NOWAIT;
PROCEDURE Update_ListField (
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 VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2,
p_listfield_rec IN List_Field_Rec_Type
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Update_ListField';
SAVEPOINT Update_ListField;
p_validation_mode => JTF_PLSQL_API.g_update,
x_return_status => l_return_status
);
UPDATE ams_list_fields_b
SET
object_version_number = object_version_number + 1,
field_table_name = l_listfield_rec.field_table_name,
field_column_name = l_listfield_rec.field_column_name,
column_data_type = l_listfield_rec.column_data_type,
column_data_length = l_listfield_rec.column_data_length,
enabled_flag = l_listfield_rec.enabled_flag,
list_type_field_apply_on = l_listfield_rec.list_type_field_apply_on,
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.conc_login_id
WHERE list_field_id = l_listfield_rec.list_field_id;
UPDATE ams_list_fields_tl
SET
description = l_listfield_rec.description,
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.conc_login_id,
source_lang = USERENV('LANG')
WHERE list_field_id = l_listfield_rec.list_field_id
AND USERENV('LANG') IN (language, source_lang);
ROLLBACK TO Update_ListField;
ROLLBACK TO Update_ListField;
ROLLBACK TO Update_ListField;
END Update_ListField;
x_listfield_rec.last_update_date := FND_API.g_miss_date;
x_listfield_rec.last_updated_by := FND_API.g_miss_num;
x_listfield_rec.last_update_login := FND_API.g_miss_num;
SELECT *
FROM ams_list_fields_b
WHERE list_field_id = p_listfield_rec.list_field_id
;