The following lines contain the word 'select', 'insert', 'update' or 'delete':
FOR SELECT * FROM pon_price_element_types_vl
WHERE price_element_type_id = p_price_element_id;
FOR SELECT * FROM pon_price_element_types_vl
WHERE price_element_code = p_price_element_code;
FOR SELECT * FROM pon_price_element_types_vl
WHERE name = p_name;
PROCEDURE opm_create_update_cost_factor(
p_api_version IN NUMBER
,p_price_element_code IN pon_price_element_types.price_element_code%TYPE
,p_pricing_basis IN pon_price_element_types.pricing_basis%TYPE
,p_cost_component_class_id IN pon_price_element_types.cost_component_class_id%TYPE
,p_cost_analysis_code IN pon_price_element_types.cost_analysis_code%TYPE
,p_cost_acquisition_code IN pon_price_element_types.cost_acquisition_code%TYPE
,p_name IN pon_price_element_types_tl.name%TYPE
,p_description IN pon_price_element_types_tl.name%TYPE
,x_insert_update_action OUT NOCOPY VARCHAR2
,x_price_element_type_id OUT NOCOPY pon_price_element_types.price_element_type_id%TYPE
,x_pricing_basis OUT NOCOPY pon_price_element_types.pricing_basis%TYPE
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_data OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'CREATE_UPDATE_COST_FACTOR';
SELECT price_element_type_id
,pricing_basis
INTO l_price_element_type_id
,x_pricing_basis
FROM pon_price_element_types
WHERE price_element_code = p_price_element_code;
x_insert_update_action := 'UPDATE';
x_insert_update_action := 'INSERT';
SELECT 'x'
INTO l_temp
FROM fnd_lookups lkp
WHERE lkp.lookup_type = 'PON_PRICING_BASIS'
AND lkp.lookup_code = p_pricing_basis;
SELECT 'x'
INTO l_temp
FROM CM_ALYS_MST c
WHERE c.cost_analysis_code = p_cost_analysis_code;
SELECT 'x'
INTO l_temp
FROM cm_cmpt_mst_b c
WHERE c.cost_cmpntcls_id = p_cost_component_class_id;
SELECT language_code
INTO l_source_language
FROM fnd_languages fndlang
WHERE installed_flag = 'B';
IF x_insert_update_action = 'INSERT'
THEN
l_stage := '100: Insert cost factor';
INSERT INTO PON_PRICE_ELEMENT_TYPES
(
price_element_type_id
,trading_partner_id
,price_element_code
,pricing_basis
,enabled_flag
,system_flag
,creation_date
,created_by
,last_update_date
,last_updated_by
,allocation_basis
,invoice_line_type
,cost_analysis_code
,cost_component_class_id
,cost_acquisition_code
)
VALUES
(
pon_price_element_types_s.NEXTVAL
,0 -- trading_partner_id
,p_price_element_code
,p_pricing_basis
,'Y' -- enabled_flag
,'N' -- system_flag
,SYSDATE -- creation_date,
,fnd_global.user_id -- created_by
,SYSDATE -- last_update_date
,fnd_global.user_id -- last_updated_by
,NULL -- allocation_basis
,NULL -- invoice_line_type
,p_cost_analysis_code
,p_cost_component_class_id
,p_cost_acquisition_code
)
RETURNING
price_element_type_id INTO l_price_element_type_id;
l_stage := '120: Insert cost factor tl';
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
l_price_element_type_id
,0 -- trading_partner_id
,p_name
,p_description
,fndlang.language_code
,l_source_language -- source_lang
,SYSDATE -- creation_date
,fnd_global.user_id -- created_by
,SYSDATE -- last_update_date
,fnd_global.user_id -- last_updated_by
FROM fnd_languages fndlang
WHERE fndlang.installed_flag IN ('I','B');
l_stage := '150: Update cost factor';
UPDATE pon_price_element_types
SET
last_update_date = SYSDATE
,last_updated_by = fnd_global.user_id
,cost_analysis_code = p_cost_analysis_code
,cost_component_class_id = p_cost_component_class_id
,cost_acquisition_code = p_cost_acquisition_code
WHERE price_element_type_id = l_price_element_type_id;
l_stage := '160: Check rows update';
END opm_create_update_cost_factor;
SELECT *
FROM pon_price_element_types_vl
WHERE price_element_type_id = p_cf_type_id;
SELECT *
FROM pon_price_element_types_vl
WHERE price_element_code = p_cf_code;