The following lines contain the word 'select', 'insert', 'update' or 'delete':
delete from FND_MO_PRODUCT_INIT
where APPLICATION_SHORT_NAME = upper(p_appl_short_name);
p_last_update_date in varchar2,
p_custom_mode in varchar2) is
f_luby number; -- entity owner in file
f_ludate date; -- entity update date in file
db_ludate date; -- entity update date in db
f_ludate := nvl(to_date(p_last_update_date, 'YYYY/MM/DD'),
sysdate);
select LAST_UPDATED_BY, LAST_UPDATE_DATE
into db_luby, db_ludate
from FND_MO_PRODUCT_INIT
where application_short_name = upper(p_appl_short_name);
update FND_MO_PRODUCT_INIT
set LAST_UPDATED_BY = f_luby,
LAST_UPDATE_DATE = f_ludate,
LAST_UPDATE_LOGIN = 0,
STATUS = nvl(p_status,'N')
where APPLICATION_SHORT_NAME = upper(p_appl_short_name);
insert into FND_MO_PRODUCT_INIT(
APPLICATION_SHORT_NAME,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
STATUS)
values(
upper(p_appl_short_name),
f_ludate,
f_luby,
f_ludate,
f_luby,
0,
nvl(upper(p_status),'N'));