The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(user_name) into l_user_count
from fnd_user
where user_name = l_user_name;
select user_id into l_user_id from fnd_user where user_name = l_user_name;
select count(user_name) into l_user_count
from fnd_user
where user_name = l_user_name
and user_guid is not null;
fnd_user_pkg.UpdateUser(x_user_name => l_user_name,
x_owner => 'CUST',
x_description => l_description,
x_fax => l_fax,
x_email_address => l_email_address,
x_user_guid => l_user_guid,
x_change_source => fnd_user_pkg.change_source_oid);