The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT xpa.application_id
, xpa.entity_code
, xpa.event_class_code
, xpa.event_type_code
, xpa.product_rule_type_code
, xpa.product_rule_code
, xpa.locking_status_flag
, xpa.validation_status_code
FROM xla_line_defn_ac_assgns xld
,xla_aad_line_defn_assgns xal
,xla_prod_acct_headers xpa
WHERE xpa.application_id = xal.application_id
AND xpa.amb_context_code = xal.amb_context_code
AND xpa.product_rule_type_code = xal.product_rule_type_code
AND xpa.product_rule_code = xal.product_rule_code
AND xpa.event_class_code = xal.event_class_code
AND xpa.event_type_code = xal.event_type_code
AND xal.application_id = xld.application_id
AND xal.amb_context_code = xld.amb_context_code
AND xal.event_class_code = xld.event_class_code
AND xal.event_type_code = xld.event_type_code
AND xal.line_definition_owner_code = xld.line_definition_owner_code
AND xal.line_definition_code = xld.line_definition_code
AND xld.amb_context_code = p_amb_context_code
AND xld.analytical_criterion_type_code = p_anal_criterion_type_code
AND xld.analytical_criterion_code = p_analytical_criterion_code
FOR UPDATE NOWAIT;
SELECT xpa.application_id
, xpa.entity_code
, xpa.event_class_code
, xpa.event_type_code
, xpa.product_rule_type_code
, xpa.product_rule_code
, xpa.locking_status_flag
, xpa.validation_status_code
FROM xla_aad_header_ac_assgns xah
,xla_prod_acct_headers xpa
WHERE xpa.application_id = xah.application_id
AND xpa.amb_context_code = xah.amb_context_code
AND xpa.product_rule_type_code = xah.product_rule_type_code
AND xpa.product_rule_code = xah.product_rule_code
AND xpa.event_class_code = xah.event_class_code
AND xpa.event_type_code = xah.event_type_code
AND xah.amb_context_code = p_amb_context_code
AND xah.analytical_criterion_type_code = p_anal_criterion_type_code
AND xah.analytical_criterion_code = p_analytical_criterion_code
FOR UPDATE NOWAIT;
CURSOR c_update_aads IS
SELECT xpa.application_id, xpa.event_class_code,
xpa.product_rule_type_code, xpa.product_rule_code
FROM xla_aad_header_ac_assgns xah
,xla_prod_acct_headers xpa
WHERE xpa.application_id = xah.application_id
AND xpa.amb_context_code = xah.amb_context_code
AND xpa.product_rule_type_code = xah.product_rule_type_code
AND xpa.product_rule_code = xah.product_rule_code
AND xpa.event_class_code = xah.event_class_code
AND xpa.event_type_code = xah.event_type_code
AND xah.amb_context_code = p_amb_context_code
AND xah.analytical_criterion_type_code = p_anal_criterion_type_code
AND xah.analytical_criterion_code = p_analytical_criterion_code
UNION
SELECT xpa.application_id, xpa.event_class_code,
xpa.product_rule_type_code, xpa.product_rule_code
FROM xla_prod_acct_headers xpa
,xla_aad_line_defn_assgns xal
,xla_line_defn_ac_assgns xac
WHERE xpa.application_id = xal.application_id
AND xpa.amb_context_code = xal.amb_context_code
AND xpa.product_rule_type_code = xal.product_rule_type_code
AND xpa.product_rule_code = xal.product_rule_code
AND xpa.event_class_code = xal.event_class_code
AND xpa.event_type_code = xal.event_type_code
AND xal.application_id = xac.application_id
AND xal.amb_context_code = xac.amb_context_code
AND xal.event_class_code = xac.event_class_code
AND xal.event_type_code = xac.event_type_code
AND xal.line_definition_owner_code = xac.line_definition_owner_code
AND xal.line_definition_code = xac.line_definition_code
AND xac.amb_context_code = p_amb_context_code
AND xac.analytical_criterion_type_code = p_anal_criterion_type_code
AND xac.analytical_criterion_code = p_analytical_criterion_code;
UPDATE xla_line_definitions_b xld
SET validation_status_code = 'N'
, last_update_date = sysdate
, last_updated_by = xla_environment_pkg.g_usr_id
, last_update_login = xla_environment_pkg.g_login_id
WHERE xld.amb_context_code = p_amb_context_code
AND xld.validation_status_code <> 'N'
AND EXISTS
(SELECT 'X'
FROM xla_line_defn_ac_assgns xac
WHERE xac.amb_context_code = p_amb_context_code
AND xac.analytical_criterion_type_code = p_anal_criterion_type_code
AND xac.analytical_criterion_code = p_analytical_criterion_code
AND xac.application_id = xld.application_id
AND xac.event_class_code = xld.event_class_code
AND xac.event_type_code = xld.event_type_code
AND xac.line_definition_owner_code = xld.line_definition_owner_code
AND xac.line_definition_code = xld.line_definition_code);
OPEN c_update_aads;
FETCH c_update_aads BULK COLLECT INTO l_application_ids
,l_event_class_codes
,l_product_rule_type_codes
,l_product_rule_codes;
CLOSE c_update_aads;
UPDATE xla_product_rules_b
SET compile_status_code = 'N'
, updated_flag = 'Y'
, last_update_date = sysdate
, last_updated_by = xla_environment_pkg.g_usr_id
, last_update_login = xla_environment_pkg.g_login_id
WHERE application_id = l_application_ids(i)
AND amb_context_code = p_amb_context_code
AND product_rule_type_code = l_product_rule_type_codes(i)
AND product_rule_code = l_product_rule_codes(i)
AND (compile_status_code <> 'N' OR
updated_flag <> 'Y');
UPDATE xla_prod_acct_headers
SET validation_status_code = 'N'
, last_update_date = sysdate
, last_updated_by = xla_environment_pkg.g_usr_id
, last_update_login = xla_environment_pkg.g_login_id
WHERE application_id = l_application_ids(i)
AND amb_context_code = p_amb_context_code
AND event_class_code = l_event_class_codes(i)
AND product_rule_type_code = l_product_rule_type_codes(i)
AND product_rule_code = l_product_rule_codes(i)
AND validation_status_code <> 'N';
UPDATE xla_appli_amb_contexts
SET updated_flag = 'Y'
, last_update_date = sysdate
, last_updated_by = xla_environment_pkg.g_usr_id
, last_update_login = xla_environment_pkg.g_login_id
WHERE application_id = l_application_ids(i)
AND amb_context_code = p_amb_context_code
AND updated_flag <> 'Y';
IF c_update_aads%ISOPEN THEN
CLOSE c_update_aads;
IF c_update_aads%ISOPEN THEN
CLOSE c_update_aads;