The following lines contain the word 'select', 'insert', 'update' or 'delete':
(p_msg => ' SQL - Select from xla_product_rules_b'
,p_level => C_LEVEL_PROCEDURE
,p_module => l_log_module);
SELECT compile_status_code
INTO l_status
FROM xla_product_rules_b
WHERE application_id = p_application_id
AND product_rule_code = p_product_rule_code
AND product_rule_type_code = p_product_rule_type_code
AND nvl(amb_context_code,'@') = nvl(p_amb_context_code,'@')
;
UPDATE xla_product_rules_b
SET compile_status_code = p_status_new
WHERE compile_status_code = NVL(p_status_old, compile_status_code)
AND application_id = p_application_id
AND product_rule_code = p_product_rule_code
AND product_rule_type_code = p_product_rule_type_code
AND nvl(amb_context_code,'@') = nvl(p_amb_context_code,'@')
;