The following lines contain the word 'select', 'insert', 'update' or 'delete':
select count(*)
into n
from amw_account_assertions
where natural_account_id = p_natural_account_id
and assertion_code = p_assertion_code;
select count(*)
into n
from amw_account_assertions
where natural_account_id = p_natural_account_id
and assertion_code = p_assertion_code;
select meaning
into yes
from fnd_lookups
where lookup_type='YES_NO'
and lookup_code='Y';
select meaning
into no
from fnd_lookups
where lookup_type='YES_NO'
and lookup_code='N';
p_select_flag IN VARCHAR2,
p_natural_account_id IN NUMBER,
p_assertion_code IN VARCHAR2
)
IS
l_creation_date date;
l_last_update_date date;
l_last_updated_by number;
l_last_update_login number;
delete from amw_account_assertions
where natural_account_id = p_natural_account_id
and assertion_code = p_assertion_code;
if (p_select_flag = 'Y') then
l_creation_date := SYSDATE;
l_last_update_date := SYSDATE;
l_last_updated_by := FND_GLOBAL.USER_ID;
l_last_update_login := FND_GLOBAL.USER_ID;
select amw_account_assertion_s.nextval into l_account_assertion_id from dual;
insert into amw_account_assertions (account_assertion_id,
natural_account_id,
assertion_code,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login,
object_version_number)
values (l_account_assertion_id,
p_natural_account_id,
p_assertion_code,
l_creation_date,
l_created_by,
l_last_update_date,
l_last_updated_by,
l_last_update_login,
l_object_version_number);