The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 1 into l_flag
from ieo_svr_servers a,
ieo_svr_comp_defs b
where a.server_id = P_SERVER_ID
and b.comp_def_id = P_COMP_DEF_ID
and a.type_id = b.server_type_id;
select 1 into l_flag
from ieo_svr_comps
where server_id = P_SERVER_ID
and comp_def_id = P_COMP_DEF_ID
and object_ref is not null;
select comp_def_name into l_comp_name
from ieo_svr_comp_defs
where comp_def_id = P_COMP_DEF_ID;
insert into IEO_SVR_COMPS
( COMP_ID
, SERVER_ID
, COMP_DEF_ID
, COMP_NAME
, OBJECT_REF
)
values ( IEO_SVR_COMPS_S1.NEXTVAL
, P_SERVER_ID
, P_COMP_DEF_ID
, l_comp_name
, empty_blob()
);
select 1 into l_data_valid_flag
from ieo_svr_servers a,
ieo_svr_comp_defs b
where a.server_id = P_SERVER_ID
and b.comp_def_id = P_COMP_DEF_ID
and a.type_id = b.server_type_id;
update IEO_SVR_COMPS
set OBJECT_REF = P_OBJECT_REF
where server_id = P_SERVER_ID
and comp_def_id = P_COMP_DEF_ID;
select comp_def_name into l_comp_name
from ieo_svr_comp_defs
where comp_def_id = P_COMP_DEF_ID;
insert into IEO_SVR_COMPS
( COMP_ID
, SERVER_ID
, COMP_DEF_ID
, COMP_NAME
, OBJECT_REF
)
values ( IEO_SVR_COMPS_S1.NEXTVAL
, P_SERVER_ID
, P_COMP_DEF_ID
, l_comp_name
, empty_blob()
);
update IEO_SVR_COMPS
set OBJECT_REF = P_OBJECT_REF
where server_id = P_SERVER_ID
and comp_def_id = P_COMP_DEF_ID;