The following lines contain the word 'select', 'insert', 'update' or 'delete':
X_LAST_UPDATE_DATE in VARCHAR2,
X_LAST_UPDATE_LOGIN in VARCHAR2,
X_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(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
SELECT LAST_UPDATED_BY, LAST_UPDATE_DATE
into db_luby, db_ludate
FROM FND_INDUSTRIES
WHERE INDUSTRY_ID = X_INDUSTRY_ID AND
CREATED_BY = f_creator AND
LANGUAGE = userenv('LANG');
update fnd_industries set
industry_name = X_INDUSTRY_NAME,
description = X_DESCRIPTION,
last_update_date = f_ludate,
last_updated_by = f_luby,
last_update_login = 0,
source_lang = userenv('LANG')
where industry_id = X_INDUSTRY_ID
AND userenv('LANG') in (language, source_lang);
X_LAST_UPDATE_DATE in VARCHAR2,
X_LAST_UPDATE_LOGIN in VARCHAR2,
X_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(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
SELECT LAST_UPDATED_BY, LAST_UPDATE_DATE
into db_luby, db_ludate
FROM FND_INDUSTRIES
WHERE INDUSTRY_ID = X_INDUSTRY_ID AND
CREATED_BY = f_creator AND
LANGUAGE = userenv('LANG');
update fnd_industries set
industry_name = X_INDUSTRY_NAME,
description = X_DESCRIPTION,
last_update_date = f_ludate,
last_updated_by = f_luby,
last_update_login = 0
where industry_id = X_INDUSTRY_ID
AND userenv('LANG') in (language, source_lang);
insert into fnd_industries(
industry_id,
industry_name,
description,
created_by,
creation_date,
last_update_date,
last_updated_by,
last_update_login,
source_lang,
language )
select
X_INDUSTRY_ID,
X_INDUSTRY_NAME,
X_DESCRIPTION,
f_creator,
f_ludate,
f_ludate,
f_luby,
0,
userenv('LANG'),
l.language_code
from
fnd_languages l
where l.installed_flag in ('I', 'B')
and not exists
(select null
from fnd_industries t
where t.industry_id = x_industry_id
and t.language = l.language_code);
insert into fnd_industries(
industry_id,
industry_name,
description,
created_by,
creation_date,
last_update_date,
last_updated_by,
last_update_login,
source_lang,
language )
select
b.industry_id,
b.industry_name,
b.description,
b.created_by,
b.creation_date,
b.last_update_date,
b.last_updated_by,
b.last_update_login,
b.source_lang,
l.language_code
from fnd_industries b, fnd_languages l
where l.INSTALLED_FLAG in ('I', 'B')
and b.language = userenv('LANG')
and not exists
(select NULL
from fnd_industries t
where t.industry_id = b.industry_id
and t.language = l.language_code);