[Home] [Help]
194: -- Return if any AAD has a higher version in the working area then the
195: -- original version of the one in the staging area
196: CURSOR c_invalid_versions IS
197: SELECT distinct t.name
198: FROM xla_product_rules_b w
199: , xla_product_rules_b s
200: , xla_staging_components_h h
201: , xla_product_rules_tl t
202: WHERE w.version_num > h.version_num
195: -- original version of the one in the staging area
196: CURSOR c_invalid_versions IS
197: SELECT distinct t.name
198: FROM xla_product_rules_b w
199: , xla_product_rules_b s
200: , xla_staging_components_h h
201: , xla_product_rules_tl t
202: WHERE w.version_num > h.version_num
203: AND w.amb_context_code = g_amb_context_code
299: PROCEDURE clean_oracle_aads
300: IS
301: CURSOR c_all_comps IS
302: SELECT w.product_rule_code, w.version_num
303: FROM xla_product_rules_b w
304: WHERE w.application_id = g_application_id
305: AND w.amb_context_code = g_amb_context_code
306: AND w.product_rule_type_code = C_OWNER_SYSTEM
307: AND NOT EXISTS ( SELECT 1
304: WHERE w.application_id = g_application_id
305: AND w.amb_context_code = g_amb_context_code
306: AND w.product_rule_type_code = C_OWNER_SYSTEM
307: AND NOT EXISTS ( SELECT 1
308: FROM xla_product_rules_b s
309: WHERE s.application_id = g_application_id
310: AND s.amb_context_code = g_staging_context_code
311: AND s.product_rule_type_code = C_OWNER_SYSTEM
312: AND s.product_rule_code = w.product_rule_code);
525: p_encoded_message => '# xla_product_rules_tl deleted = '||l_num_rows,
526: p_component_code => 'clean_oracle_aads');
527:
528: FORALL i IN 1..l_codes.COUNT
529: DELETE FROM xla_product_rules_b w
530: WHERE application_id = g_application_id
531: AND amb_context_code = g_amb_context_code
532: AND product_rule_type_code = C_OWNER_SYSTEM
533: AND product_rule_code = l_codes(i);
532: AND product_rule_type_code = C_OWNER_SYSTEM
533: AND product_rule_code = l_codes(i);
534: l_num_rows := SQL%ROWCOUNT;
535: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
536: trace(p_msg => '# xla_product_rules_b deleted = '||l_num_rows,
537: p_module => l_log_module,
538: p_level => C_LEVEL_STATEMENT);
539: END IF;
540: -- Bug : 9923803
543: p_amb_context_code => g_amb_context_code,
544: p_application_id => g_application_id,
545: p_request_code => 'IMPORT' ,
546: p_log_type_code => 'MERGE',
547: p_encoded_message => '# xla_product_rules_b deleted = '||l_num_rows,
548: p_component_code => 'clean_oracle_aads');
549: IF (C_LEVEL_PROCEDURE >= g_log_level) THEN
550: trace(p_msg => 'BEGIN of procedure clean_oracle_aads',
551: p_module => l_log_module,
2153: ,sysdate
2154: ,xla_environment_pkg.g_prog_appl_id
2155: ,xla_environment_pkg.g_prog_id
2156: ,xla_environment_pkg.g_req_Id
2157: FROM xla_product_rules_b s
2158: , xla_product_rules_b w
2159: WHERE s.application_id = g_application_id
2160: AND s.amb_context_code = g_staging_context_code
2161: AND w.application_id = g_application_id
2154: ,xla_environment_pkg.g_prog_appl_id
2155: ,xla_environment_pkg.g_prog_id
2156: ,xla_environment_pkg.g_req_Id
2157: FROM xla_product_rules_b s
2158: , xla_product_rules_b w
2159: WHERE s.application_id = g_application_id
2160: AND s.amb_context_code = g_staging_context_code
2161: AND w.application_id = g_application_id
2162: AND w.amb_context_code = g_amb_context_code
2347: p_encoded_message =>'Number of Rows inserted into aads_gt from xla_aad_header_ac_assgns is :'||l_num_rows,
2348: p_component_code => 'merge_aads');
2349:
2350:
2351: UPDATE xla_product_rules_b pr
2352: SET compile_status_code= nvl((select compile_status_code
2353: from xla_product_rules_b pr1
2354: where pr1.product_rule_code = pr.product_rule_code
2355: and pr1.product_rule_type_code = pr.product_rule_type_code
2349:
2350:
2351: UPDATE xla_product_rules_b pr
2352: SET compile_status_code= nvl((select compile_status_code
2353: from xla_product_rules_b pr1
2354: where pr1.product_rule_code = pr.product_rule_code
2355: and pr1.product_rule_type_code = pr.product_rule_type_code
2356: and pr1.amb_context_code = g_amb_context_code
2357: and pr1.application_id = g_application_id
2376: p_component_code => 'merge_aads');
2377:
2378: -- Delete the AAD from the working area if it already exists in the
2379: -- staging area
2380: DELETE FROM xla_product_rules_b w
2381: WHERE application_id = g_application_id
2382: AND amb_context_code = g_amb_context_code
2383: AND EXISTS (SELECT 1
2384: FROM xla_product_rules_b s
2380: DELETE FROM xla_product_rules_b w
2381: WHERE application_id = g_application_id
2382: AND amb_context_code = g_amb_context_code
2383: AND EXISTS (SELECT 1
2384: FROM xla_product_rules_b s
2385: WHERE s.application_id = g_application_id
2386: AND s.amb_context_code = g_staging_context_code
2387: AND s.product_rule_type_code = w.product_rule_type_code
2388: AND s.product_rule_code = w.product_rule_code);
2387: AND s.product_rule_type_code = w.product_rule_type_code
2388: AND s.product_rule_code = w.product_rule_code);
2389: l_num_rows := SQL%ROWCOUNT;
2390: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
2391: trace(p_msg => '# xla_product_rules_b deleted : '||l_num_rows,
2392: p_module => l_log_module,
2393: p_level => C_LEVEL_STATEMENT);
2394: END IF;
2395: -- Bug : 9923803
2398: p_amb_context_code => g_amb_context_code,
2399: p_application_id => g_application_id,
2400: p_request_code => 'IMPORT' ,
2401: p_log_type_code => 'MERGE',
2402: p_encoded_message =>'# xla_product_rules_b deleted : '||l_num_rows,
2403: p_component_code => 'merge_aads');
2404:
2405: DELETE FROM xla_product_rules_tl w
2406: WHERE application_id = g_application_id
2527: p_component_code => 'merge_aads');
2528: END IF;
2529:
2530: -- Move the AAD from staging area to working area
2531: UPDATE xla_product_rules_b
2532: SET amb_context_code = g_amb_context_code
2533: WHERE application_id = g_application_id
2534: AND amb_context_code = g_staging_context_code;
2535: l_num_rows := SQL%ROWCOUNT;
2533: WHERE application_id = g_application_id
2534: AND amb_context_code = g_staging_context_code;
2535: l_num_rows := SQL%ROWCOUNT;
2536: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
2537: trace(p_msg => '# xla_product_rules_b updated : '||l_num_rows,
2538: p_module => l_log_module,
2539: p_level => C_LEVEL_STATEMENT);
2540: END IF;
2541: -- Bug : 9923803
2544: p_amb_context_code => g_amb_context_code,
2545: p_application_id => g_application_id,
2546: p_request_code => 'IMPORT' ,
2547: p_log_type_code => 'MERGE',
2548: p_encoded_message =>'# xla_product_rules_b updated : '||l_num_rows,
2549: p_component_code => 'merge_aads');
2550:
2551: UPDATE xla_product_rules_tl w
2552: SET amb_context_code = g_amb_context_code