The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure Update_Entry(p_object_code IN varchar2,
p_object_id IN number,
x_return_status OUT varchar2,
x_error_message OUT varchar2) IS
l_exist number;
select count(1) into l_exist
from ASF_RECORD_VIEW_HISTORY
where OBJECT_CODE = p_object_code
and OBJECT_ID = p_object_id
and LAST_UPDATED_BY = g_user_id;
update ASF_RECORD_VIEW_HISTORY
set LAST_UPDATE_DATE = l_date
where OBJECT_CODE = p_object_code
and OBJECT_ID = p_object_id
and LAST_UPDATED_BY = g_user_id;
select count(1) into l_exist
from JTF_OBJECTS_B
where OBJECT_CODE = p_object_code
and nvl(START_DATE_ACTIVE, l_date) <= l_date
and nvl(END_DATE_ACTIVE, l_date) >= l_date;
insert into ASF_RECORD_VIEW_HISTORY (
OBJECT_CODE,
OBJECT_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE)
values (
p_object_code,
p_object_id,
g_user_id,
l_date,
g_user_id,
l_date);
END Update_Entry;