The following lines contain the word 'select', 'insert', 'update' or 'delete':
select null
into l_dummy
from fnd_application
where application_short_name = upper(p_appl_shortname);
select application_id
into l_appl_id
from fnd_application
where application_short_name = upper(p_appl_sn);
select patch_level
into l_patch_level
from fnd_product_installations
where application_id = p_appl_id
and install_group_num in (0, 1)
and rownum = 1;
select patch_level
into l_patch_level
from fnd_product_installations
where application_id = p_appl_id
and install_group_num in (0, 1)
and rownum = 1;
update fnd_product_installations
set patch_level = l_new_patch_level
where application_id in (
select application_id
from fnd_application
where application_short_name = upper(p_appl_shortname));