The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure set_update_program( p_sr_rec in out nocopy
CS_ServiceRequest_PVT.service_request_rec_type) as
begin
p_sr_rec.last_update_program_code := 'BIV_SR_UPDATE';
select incident_type_id, incident_status_id
from cs_incidents_all_b
where incident_id = p_sr_id;
select status_group_id
from cs_sr_type_mapping
where incident_type_id = l_type_id
and responsibility_id = fnd_profile.value('RESP_ID');
select status_group_id
from cs_incident_types_b
where incident_type_id = l_type_id;
select transition_ind
from cs_sr_status_groups_b
where status_group_id = l_status_group_id
and sysdate between nvl(start_date,sysdate-1) and nvl(end_date,sysdate+1);
l_lov_sttmnt1 := 'select incident_status_id, name, '' ''
select st.incident_status_id, st.name, '' ''
select st.incident_status_id, st.name, '' ''
select st.incident_status_id, st.name, '' ''