[Home] [Help]
33: | to call the Costing upgrade program. |
34: | 24-Aug-2006 Jorge Larre Bug 5473838: when calling the Costing upgrade |
35: | program, X_init_msg_list must be passed the value FND_API.G_FALSE. |
36: | 05-SEP-2006 Jorge Larre Bug 5484337: AR needs to store the calling |
37: | parameters in a new table (XLA_UPGRADE_REQUESTS). Add ledger_id and |
38: | period_name as calling parameters in set_status_code. |
39: | 07-NOV-2006 Jorge Larre Bug 5648571: Obsolete the procedure |
40: | set_status_code. This change is to be in sync with xlaugupg.pkh. |
41: | The code is left commented in case we decide to use it again. |
175: ||' is: '
176: ||p_status_code,c_level_statement,l_log_module);
177: END IF;
178:
179: UPDATE xla_upgrade_requests
180: SET status_code = p_status_code,
181: last_update_date = SYSDATE
182: WHERE application_id = p_application_id
183: AND program_code = 'ONDEMAND UPGRADE'
1186: -- Check the status of the previous run
1187: BEGIN
1188: SELECT status_code
1189: INTO l_prev_run_status
1190: FROM xla_upgrade_requests
1191: WHERE application_id = p_application_id
1192: AND program_code = 'ONDEMAND UPGRADE';
1193: EXCEPTION
1194: WHEN no_data_found THEN
1210:
1211: -- Extra Validation in place to not to allow any two concurrent program's
1212: -- to run simultaneously
1213: EXECUTE IMMEDIATE 'LOCK TABLE XLA_UPGRADE_DATES IN EXCLUSIVE MODE NOWAIT ';
1214: EXECUTE IMMEDIATE 'LOCK TABLE XLA_UPGRADE_REQUESTS IN EXCLUSIVE MODE NOWAIT ';
1215:
1216: SELECT Count(1)
1217: INTO l_hotpatch_running
1218: FROM xla_upgrade_requests
1214: EXECUTE IMMEDIATE 'LOCK TABLE XLA_UPGRADE_REQUESTS IN EXCLUSIVE MODE NOWAIT ';
1215:
1216: SELECT Count(1)
1217: INTO l_hotpatch_running
1218: FROM xla_upgrade_requests
1219: WHERE application_id = 602
1220: AND status_code IN (C_INITIAL_STATUS , C_PROGRESS_STATUS) ;
1221:
1222: IF( l_hotpatch_running > 0 ) THEN
1385: l_upg_end_date,
1386: l_upg_number_of_workers,
1387: l_upg_batch_size,
1388: l_upg_period_name
1389: FROM xla_upgrade_requests xur
1390: WHERE xur.application_id = p_application_id
1391: AND xur.program_code = 'ONDEMAND UPGRADE';
1392:
1393: IF (c_level_statement >= g_log_level) THEN
1425: RAISE recovery_run_incorrect;
1426: END IF;
1427:
1428: ELSIF l_prev_run_status = C_INITIAL_STATUS THEN
1429: INSERT INTO xla_upgrade_requests
1430: (application_id,
1431: request_control_id,
1432: status_code,
1433: phase_num,
1449: SYSDATE,
1450: -169,
1451: 'ONDEMAND UPGRADE');
1452: IF (c_level_statement >= g_log_level) THEN
1453: Trace('Inserted a row into XLA_UPGRADE_REQUESTS for application: '||p_application_id,c_level_statement,l_log_module);
1454: END IF;
1455: END IF;
1456:
1457: -- This has been achieved by CP Incompatibility, by making upgrade CP incompatible with itself.
1475:
1476: IF l_start_date <> l_end_date THEN
1477:
1478: /* Update the data for the current run */
1479: UPDATE xla_upgrade_requests
1480: SET status_code = C_PROGRESS_STATUS,
1481: request_control_id = xla_upgrade_requests_s.nextval,
1482: batch_size = p_batch_size,
1483: workers_num = p_number_of_workers,
1477:
1478: /* Update the data for the current run */
1479: UPDATE xla_upgrade_requests
1480: SET status_code = C_PROGRESS_STATUS,
1481: request_control_id = xla_upgrade_requests_s.nextval,
1482: batch_size = p_batch_size,
1483: workers_num = p_number_of_workers,
1484: period_name = p_period_name,
1485: start_date = l_start_date,