The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_price_element(p_type_id IN NUMBER,
p_code IN VARCHAR2,
p_name IN VARCHAR2,
p_description IN VARCHAR2,
p_enabledFlag IN VARCHAR2,
p_partyId IN NUMBER,
p_source_language IN VARCHAR2,
p_pricingBasis IN VARCHAR2,
p_contactId IN NUMBER,
p_result OUT NOCOPY NUMBER,
p_err_code OUT NOCOPY VARCHAR2,
p_err_msg OUT NOCOPY VARCHAR2) IS
x_err_loc integer;
insert into pon_price_element_types_tl(PRICE_ELEMENT_TYPE_ID,
TRADING_PARTNER_ID,
NAME,
DESCRIPTION,
LANGUAGE,
SOURCE_LANG,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
select p_type_id,
p_partyId,
p_name,
p_description,
a.language_code,
p_source_language,
sysdate,
p_contactId,
sysdate,
p_contactId
from fnd_languages a
where a.installed_flag in ('I', 'B');
RAISE_APPLICATION_ERROR(-20000, 'Exception at PON_PRICE_ELEMENTS_PKG.insert_price_element('|| x_err_loc || '): ' || p_err_code || ' : ' || p_err_msg);
PROCEDURE update_price_element(p_typeId IN NUMBER,
p_code IN VARCHAR2,
p_name IN VARCHAR2,
p_description IN VARCHAR2,
p_enabledFlag IN VARCHAR2,
p_partyId IN NUMBER,
p_language IN VARCHAR2,
p_pricingBasis IN VARCHAR2,
p_contactId IN NUMBER,
p_lastUpdate IN DATE,
p_result OUT NOCOPY NUMBER,
p_err_code OUT NOCOPY VARCHAR2,
p_err_msg OUT NOCOPY VARCHAR2) IS
x_updated varchar2(1) := 'N';
select 'Y'
into x_updated
from pon_price_element_types
where price_element_type_id = p_typeId
and last_update_date <> p_lastUpdate;
update pon_price_element_types_tl
set
name = p_name,
description = p_description,
source_lang = p_language,
last_updated_by = p_contactId,
last_update_date = sysdate
where
price_element_type_id = p_typeId and
language = p_language;
RAISE_APPLICATION_ERROR(-20000, 'Exception at PON_PRICE_ELEMENTS_PKG.update_price_element('|| x_err_loc || '): ' || p_err_code || ' : ' || p_err_msg);
INSERT INTO
PON_PRICE_ELEMENT_TYPES_TL (
PRICE_ELEMENT_TYPE_ID,
TRADING_PARTNER_ID,
NAME,
DESCRIPTION,
LANGUAGE,
SOURCE_LANG,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
)
SELECT
pe.PRICE_ELEMENT_TYPE_ID,
pe.TRADING_PARTNER_ID,
pe.NAME,
pe.DESCRIPTION,
lang.language_code,
pe.SOURCE_LANG,
sysdate,
pe.CREATED_BY,
sysdate,
pe.LAST_UPDATED_BY
FROM PON_PRICE_ELEMENT_TYPES_TL pe,
FND_LANGUAGES lang
WHERE pe.LANGUAGE = USERENV('LANG')
AND lang.INSTALLED_FLAG IN ('I','B')
AND NOT EXISTS (SELECT 'x'
FROM PON_PRICE_ELEMENT_TYPES_TL pe2
WHERE pe2.PRICE_ELEMENT_TYPE_ID = pe.PRICE_ELEMENT_TYPE_ID
AND pe2.language = lang.language_code);