The following lines contain the word 'select', 'insert', 'update' or 'delete':
select user_id into v_userid
from fnd_user where upper(user_name) = upper(p_username);
select user_id into v_userid
from fnd_oam_metalink_cred
where user_id = v_userid;
update fnd_oam_metalink_cred set
metalink_user_id = p_metalink_userid,
metalink_password = v_enc,
email_address = p_email_address,
last_updated_by = v_userid,
last_update_date = sysdate,
last_update_login = 0
where user_id = v_userid;
insert into fnd_oam_metalink_cred (
user_id,
metalink_user_id,
metalink_password,
email_address,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
values (
v_userid,
p_metalink_userid,
v_enc,
p_email_address,
v_userid,
sysdate,
v_userid,
sysdate,
0);
select fom.metalink_user_id,
fom.metalink_password,
fom.email_address
into p_metalink_userid,
v_enc,
p_email_address
from fnd_oam_metalink_cred fom,
fnd_user fu
where fu.user_id = fom.user_id
and upper(fu.user_name) = upper(p_username);