The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT location_type_id
FROM JTF_LOC_TYPES_B
WHERE location_type_id = p_loc_type_id
AND object_version_number = p_object_version
FOR UPDATE OF location_type_id NOWAIT;
SELECT location_type_id
FROM JTF_LOC_TYPES_TL
WHERE location_type_id = p_loc_type_id
AND USERENV('LANG') IN (language, source_lang)
FOR UPDATE OF location_type_id NOWAIT;
PROCEDURE update_loc_type
(
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 /* file.sql.39 change */ VARCHAR2,
x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
p_loc_type_rec IN loc_type_rec_type
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'update_loc_type';
SAVEPOINT update_loc_type;
p_validation_mode => JTF_PLSQL_API.g_update,
x_return_status => l_return_status,
p_loc_type_rec => p_loc_type_rec
);
JTF_Utility_PVT.debug_message(l_full_name ||': update');
UPDATE JTF_LOC_TYPES_B SET
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.conc_login_id,
object_version_number = p_loc_type_rec.object_version_number + 1,
location_type_code = p_loc_type_rec.location_type_code
WHERE location_type_id = p_loc_type_rec.location_type_id
AND object_version_number = p_loc_type_rec.object_version_number;
UPDATE JTF_LOC_TYPES_TL SET
last_update_date = SYSDATE,
last_updated_by = FND_GLOBAL.user_id,
last_update_login = FND_GLOBAL.conc_login_id,
location_type_name = p_loc_type_rec.location_type_name,
location_type_description = p_loc_type_rec.description,
source_lang = USERENV('LANG')
WHERE location_type_id = p_loc_type_rec.location_type_id
AND USERENV('LANG') IN (language, source_lang);
ROLLBACK TO update_loc_type;
ROLLBACK TO update_loc_type;
ROLLBACK TO update_loc_type;
END update_loc_type;