The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_SVR_RT_INFO
(P_SERVER_ID IN NUMBER
,P_COMP_DEF_ID IN NUMBER
,P_DNS_NAME IN VARCHAR2
,P_IP_ADDRESS IN VARCHAR2
,P_WIRE_PROTOCOL IN VARCHAR2
,P_PORT IN NUMBER
,P_EXTRA IN VARCHAR2
,X_RESULT IN OUT NOCOPY NUMBER
)
AS
l_result NUMBER;
select comp_id into l_seq_id
from ieo_svr_comps
where server_id = P_SERVER_ID
and comp_def_id = P_COMP_DEF_ID;
update ieo_svr_servers
set dns_name = P_DNS_NAME,
ip_address = P_IP_ADDRESS,
last_update_date = sysdate
where server_id = P_SERVER_ID;
update ieo_svr_protocol_map
set wire_protocol = P_WIRE_PROTOCOL,
port = P_PORT,
extra = P_EXTRA,
last_updated_by = NVL(FND_GLOBAL.user_id,-1),
last_update_date = sysdate
where comp_id = l_seq_id;
insert into ieo_svr_protocol_map (
comp_id,
wire_protocol,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
port,
extra )
values (
l_seq_id,
P_WIRE_PROTOCOL,
NVL(FND_GLOBAL.user_id,-1),
sysdate,
NVL(FND_GLOBAL.conc_login_id,-1),
sysdate,
NVL(FND_GLOBAL.conc_login_id,-1),
P_PORT,
P_EXTRA);
END UPDATE_SVR_RT_INFO;