[Home] [Help]
24:
25: COMMIT;
26:
27: IF lvs_request_id=0 THEN
28: MSC_UTIL.msc_Debug('Launch Refresh MV MSCREFSN failed');
29: RETURN FALSE;
30: ELSE
31: MSC_UTIL.msc_Debug('Launched Program MSCREFSN Request:'|| to_char(lvs_request_id));
32: END IF;
27: IF lvs_request_id=0 THEN
28: MSC_UTIL.msc_Debug('Launch Refresh MV MSCREFSN failed');
29: RETURN FALSE;
30: ELSE
31: MSC_UTIL.msc_Debug('Launched Program MSCREFSN Request:'|| to_char(lvs_request_id));
32: END IF;
33:
34: LOOP
35: /* come out of function only when the MSCPDCP is complete - reqd for Collections incompatibility */
44: l_dev_status,
45: l_message);
46:
47: IF (l_call_status=FALSE) THEN
48: MSC_UTIL.msc_Debug('Failure in verifying request:'|| to_char(lvs_request_id));
49: RETURN FALSE;
50: END IF;
51:
52: EXIT WHEN l_dev_phase = 'COMPLETE';
56: RETURN TRUE;
57:
58: EXCEPTION
59: WHEN OTHERS THEN
60: MSC_UTIL.msc_Debug('Failure in verifying request:'|| to_char(lvs_request_id));
61: RETURN FALSE;
62: END LAUNCH_REFRESH_MV;
63: -- Modification for bug 1863615 - removed the plan horizon date parameter
64: -- ************************* msc_launch_plan ******************************* --
209: v_new_plan_id := arg_plan_id;
210: CLOSE check_plan_id;
211: ELSE
212: CLOSE check_plan_id;
213: msc_util.msc_debug('Plan Id changed.');
214: OPEN get_plan_id(arg_designator);
215: FETCH get_plan_id INTO v_new_plan_id;
216: CLOSE get_plan_id;
217: msc_util.msc_debug('New Plan Id is '||v_new_plan_id);
213: msc_util.msc_debug('Plan Id changed.');
214: OPEN get_plan_id(arg_designator);
215: FETCH get_plan_id INTO v_new_plan_id;
216: CLOSE get_plan_id;
217: msc_util.msc_debug('New Plan Id is '||v_new_plan_id);
218: END IF;
219:
220: --Additional code for release reschedules bug#2881012
221:
358: else -- v_rec_c1.plan_completion_date is null then
359: -- ------------------------------------
360: -- if plan run is not complete then...
361: -- ------------------------------------
362: -- MSC_UTIL.msc_Debug('phase '||L_phase||' '||L_message);
363: IF upper(l_dev_phase) <>'COMPLETE' THEN
364: IF v_rec_c1.summary_flag = 2 THEN
365: v_lookup_name:= 'MSC_POST_PROCESS_RUNNING';
366: RAISE v_ex_error_plan_launch;
406: -- Var_Temp_plan_id <>-1, Temp. plan exists.
407: -- Delete the temp. plan because, for any plan,
408: -- only one temp. plan can exist at any instance.
409: -- ----------------------------------------------
410: MSC_UTIL.msc_Debug('deleting temp_plan '||var_temp_plan_id);
411: msc_copy_plan_options.delete_temp_plan(errbuf, retcode, var_temp_desig_id, TRUE);
412: if retcode >0 then
413: raise v_ex_error_plan_launch;
414: end if;
449: set purge_current_plan = decode(p_24x7atp,3,2,1)
450: where designator_id = var_desig_id;
451:
452: msc_copy_plan_options.init_plan_id('N',NULL,NULL);
453: MSC_UTIL.msc_Debug('Copying plan options...' );
454: msc_copy_plan_options.copy_plan_options
455: ( v_plan_id , -- > p_source_plan_id
456: nvl(substr(to_char(v_plan_id),-10),v_plan_id), -- > p_dest_plan_name
457: var_desc, -- > p_dest_plan_desc
475: end if;
476: msc_copy_plan_options.init_plan_id('N',NULL,NULL);
477:
478: if var_overwrite_all<> 1 then
479: MSC_UTIL.msc_Debug('copying firm orders...' );
480: msc_copy_plan_options.copy_firm_orders(errbuf, retcode, v_plan_id, var_temp_plan_id);
481: if nvl(retcode,0) > 0 then
482: raise v_ex_error_plan_launch;
483: end if;
488:
489: /*----------------------------------------+
490: | Update msc_plans with plan horizon date |
491: +----------------------------------------*/
492: MSC_UTIL.msc_Debug('******About to Launch Plan******');
493: -- Modification for bug 1863615
494: -- IF arg_plan_horizon IS NULL THEN
495: -- months := fnd_profile.value('MRP_CUTOFF_DATE_OFFSET');
496:
701: l_platform_type := 0;
702: END IF;
703:
704: IF l_platform_type = 0 THEN
705: MSC_UTIL.msc_Debug('Launching Snapshot for 32 bit');
706: var_snapshot_req_id := NULL;
707: IF (arg_netchange_mode = SYS_NO) THEN
708: var_snapshot_req_id := FND_REQUEST.SUBMIT_REQUEST(
709: 'MSC', -- application
736: );
737: END IF;
738:
739: ELSIF l_platform_type = 1 THEN
740: MSC_UTIL.msc_Debug('Launching Snapshot for 64 bit Sun');
741: var_snapshot_req_id := NULL;
742: IF (arg_netchange_mode = SYS_NO) THEN
743: var_snapshot_req_id := FND_REQUEST.SUBMIT_REQUEST(
744: 'MSC', -- application
770: 1 -- p_snap_static_entities
771: );
772: END IF;
773: ELSIF l_platform_type = 2 THEN
774: MSC_UTIL.msc_Debug('Launching Snapshot for 64 bit HP');
775: var_snapshot_req_id := NULL;
776: IF (arg_netchange_mode = SYS_NO) THEN
777: var_snapshot_req_id := FND_REQUEST.SUBMIT_REQUEST(
778: 'MSC', -- application
804: 1 -- p_snap_static_entities
805: );
806: END IF;
807: ELSIF l_platform_type = 3 THEN
808: MSC_UTIL.msc_Debug('Launching Snapshot for 64 bit AIX');
809: var_snapshot_req_id := NULL;
810: IF (arg_netchange_mode = SYS_NO) THEN
811: var_snapshot_req_id := FND_REQUEST.SUBMIT_REQUEST(
812: 'MSC', -- application
839: );
840: END IF;
841:
842: ELSIF l_platform_type = 4 THEN
843: MSC_UTIL.msc_Debug('Launching Snapshot for Linux 64bit');
844: var_snapshot_req_id := NULL;
845: IF (arg_netchange_mode = SYS_NO) THEN
846: var_snapshot_req_id := FND_REQUEST.SUBMIT_REQUEST(
847: 'MSC', -- application
873: );
874: END IF;
875:
876: ELSIF l_platform_type = 5 THEN
877: MSC_UTIL.msc_Debug('Launching Snapshot for HP Itanium 64bit');
878: var_snapshot_req_id := NULL;
879: IF (arg_netchange_mode = SYS_NO) THEN
880: var_snapshot_req_id := FND_REQUEST.SUBMIT_REQUEST(
881: 'MSC', -- application
907: );
908: END IF;
909:
910: ELSIF l_platform_type = 6 THEN
911: MSC_UTIL.msc_Debug('Launching Snapshot for Z-Linux 64bit');
912: var_snapshot_req_id := NULL;
913: IF (arg_netchange_mode = SYS_NO) THEN
914: var_snapshot_req_id := FND_REQUEST.SUBMIT_REQUEST(
915: 'MSC', -- application
953: WHERE plan_id = v_plan_id;
954:
955: COMMIT;
956:
957: MSC_UTIL.msc_Debug('Launched Snapshot:'||
958: to_char(var_snapshot_req_id));
959:
960: END IF; /* if arg_launch_snapshot = SYS_YES */
961:
1109: SET request_id = var_snapshot_req_id
1110: WHERE plan_id = v_plan_id;
1111:
1112: COMMIT;
1113: MSC_UTIL.msc_Debug('Launched Planner:'||
1114: to_char(var_planner_req_id));
1115: END IF;
1116:
1117: begin
1137: commit;
1138: end if;
1139:
1140: --pabram..phub
1141: MSC_UTIL.msc_Debug('phub archive_flag :'|| to_char(p_archive_flag));
1142: update msc_plans
1143: set archive_flag = p_archive_flag
1144: where plan_id = v_plan_id;
1145: commit;
1143: set archive_flag = p_archive_flag
1144: where plan_id = v_plan_id;
1145: commit;
1146: --pabram..phub ends
1147: MSC_UTIL.msc_Debug('Exiting with Success');
1148: retcode := 0;
1149: errbuf := NULL;
1150: return;
1151: EXCEPTION
1624: l_Counter NUMBER;
1625: l_max_tries CONSTANT Number := 100000;
1626: BEGIN
1627: savepoint BF_UPD_PREF;
1628: MSC_UTIL.msc_Debug('Updating preferences...');
1629: -- update w/b preferences
1630: l_Counter := 0;
1631: LOOP
1632: BEGIN
1646: IF c_pref%ISOPEN THEN
1647: CLOSE c_pref;
1648: END IF;
1649: IF l_Counter > l_max_tries THEN
1650: MSC_UTIL.msc_Debug('Unable to lock preference rows.');
1651: --RAISE;
1652: rollback to BF_UPD_PREF;
1653: EXIT;
1654: END IF;
1652: rollback to BF_UPD_PREF;
1653: EXIT;
1654: END IF;
1655: IF TRUNC(l_Counter/100)*100 = l_Counter THEN
1656: MSC_UTIL.msc_Debug('Unable to lock preference rows: ('||l_Counter||') Tries...');
1657: END IF;
1658: END;
1659: END LOOP;
1660:
1658: END;
1659: END LOOP;
1660:
1661: savepoint BF_UPD_SCHD;
1662: MSC_UTIL.msc_Debug('Updating schedules...');
1663: -- update supply/demand schedules
1664: l_Counter := 0;
1665: l_rowlist.delete;
1666: LOOP
1684: IF c_pref%ISOPEN THEN
1685: CLOSE c_pref;
1686: END IF;
1687: IF l_Counter > l_max_tries THEN
1688: MSC_UTIL.msc_Debug('Unable to lock schedules rows.');
1689: --RAISE;
1690: rollback to BF_UPD_SCHD;
1691: EXIT;
1692: END IF;
1690: rollback to BF_UPD_SCHD;
1691: EXIT;
1692: END IF;
1693: IF TRUNC(l_Counter/100)*100 = l_Counter THEN
1694: MSC_UTIL.msc_Debug('Unable to lock schedules rows: ('||l_Counter||') Tries...');
1695: END IF;
1696: END;
1697: END LOOP;
1698:
1697: END LOOP;
1698:
1699: EXCEPTION
1700: WHEN OTHERS THEN
1701: MSC_UTIL.msc_Debug('Error updating preferences and schedules.');
1702: RAISE;
1703: END;
1704: -- Bug#7449943
1705: Update msc_plans_other
1712: -- To delete the Original Plan,
1713: -- ---------------------------------
1714: -- Modified (forward port) for the bug # 3021850
1715: if nvl(v_org_desig_cur.purge_current_plan,1) = 1 THEN
1716: MSC_UTIL.msc_Debug('Purging Original plan...' );
1717: MSC_COPY_PLAN_OPTIONS.delete_temp_plan
1718: (errbuf, retcode, v_org_desig_cur.designator_id,FALSE);
1719:
1720: if nvl(retcode,0) >0 then
1787:
1788: COMMIT;
1789:
1790: EXCEPTION WHEN OTHERS THEN
1791: MSC_UTIL.msc_Debug('Error while updating msc_plans.planning_mode. Plan_id = '||to_char(arg_plan_id));
1792: MSC_UTIL.msc_Debug(SQLERRM);
1793: END;
1794:
1795: v_plan_id := arg_plan_id;
1788: COMMIT;
1789:
1790: EXCEPTION WHEN OTHERS THEN
1791: MSC_UTIL.msc_Debug('Error while updating msc_plans.planning_mode. Plan_id = '||to_char(arg_plan_id));
1792: MSC_UTIL.msc_Debug(SQLERRM);
1793: END;
1794:
1795: v_plan_id := arg_plan_id;
1796: open C1(v_plan_id);
1882: , 1 -- Netchange_mode
1883: , 1 -- p_snap_static_entities
1884: );
1885: COMMIT;
1886: MSC_UTIL.msc_Debug('Launched Snapshot:'||to_char(var_snapshot_req_id));
1887: END IF; /* if arg_launch_snapshot = SYS_YES */
1888:
1889: IF (((arg_launch_scheduler = SYS_YES) AND (arg_launch_snapshot = SYS_NO)) or
1890: (arg_launch_scheduler = DS_OLS_ONLY)
1915: errbuf := 'Invalid Platform Type: '||to_char(l_platform_type);
1916: return;
1917: END CASE;
1918:
1919: MSC_UTIL.msc_Debug('Launched Program:'||l_executable_name);
1920:
1921: var_planner_req_id := FND_REQUEST.SUBMIT_REQUEST('MSO' -- application
1922: , l_executable_name
1923: , NULL -- description
1938: errbuf := 'Invalid Platform Type: '||to_char(l_platform_type);
1939: return;
1940: END CASE;
1941:
1942: MSC_UTIL.msc_Debug('Launched Program:'||l_executable_name);
1943:
1944: var_planner_req_id := FND_REQUEST.SUBMIT_REQUEST('MSO' -- application
1945: , l_executable_name
1946: , NULL -- description
1994: END IF;
1995: COMMIT;
1996: END IF;
1997:
1998: MSC_UTIL.msc_Debug('Launched Planner:'||to_char(var_planner_req_id));
1999: END IF;
2000:
2001: MSC_UTIL.msc_Debug('Exiting with Success');
2002: retcode := 0;
1997:
1998: MSC_UTIL.msc_Debug('Launched Planner:'||to_char(var_planner_req_id));
1999: END IF;
2000:
2001: MSC_UTIL.msc_Debug('Exiting with Success');
2002: retcode := 0;
2003: errbuf := NULL;
2004:
2005: EXCEPTION
2225: TYPE tab_type IS TABLE OF ROWID INDEX BY BINARY_INTEGER;
2226: l_rowlist tab_type;
2227:
2228: begin
2229: MSC_UTIL.msc_Debug('Debug Only: In process_child_rp_plans...');
2230: --Step 1: Check for lock and update child plan rows
2231: savepoint BF_UPD_CHILD_RP;
2232: MSC_UTIL.msc_Debug('In process_child_rp_plans: Attempting to update Msc_Plans for child rp plans...');
2233: l_Counter := 0;
2228: begin
2229: MSC_UTIL.msc_Debug('Debug Only: In process_child_rp_plans...');
2230: --Step 1: Check for lock and update child plan rows
2231: savepoint BF_UPD_CHILD_RP;
2232: MSC_UTIL.msc_Debug('In process_child_rp_plans: Attempting to update Msc_Plans for child rp plans...');
2233: l_Counter := 0;
2234: MSC_UTIL.msc_Debug('Debug Only: Attempting to lock any child plans...');
2235: LOOP
2236: BEGIN
2230: --Step 1: Check for lock and update child plan rows
2231: savepoint BF_UPD_CHILD_RP;
2232: MSC_UTIL.msc_Debug('In process_child_rp_plans: Attempting to update Msc_Plans for child rp plans...');
2233: l_Counter := 0;
2234: MSC_UTIL.msc_Debug('Debug Only: Attempting to lock any child plans...');
2235: LOOP
2236: BEGIN
2237: EXIT WHEN l_Counter > l_max_tries;
2238: l_Counter := l_Counter + 1;
2239: OPEN c_lock_child_plans(arg_plan_id);
2240: FETCH c_lock_child_plans BULK COLLECT INTO l_rowlist;
2241: CLOSE c_lock_child_plans;
2242:
2243: MSC_UTIL.msc_Debug('Debug Only: Got count of child plans...'||l_rowlist.count);
2244:
2245: FORALL I IN 1..l_rowlist.count
2246: UPDATE MSC_PLANS
2247: SET plan_completion_date=null,
2247: SET plan_completion_date=null,
2248: has_run=0,
2249: base_plan_id=null
2250: WHERE ROWID=l_rowlist(I);
2251: MSC_UTIL.msc_Debug('Debug Only: Updated child plans...'||l_rowlist.count);
2252: EXIT;
2253:
2254: EXCEPTION
2255: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
2256: IF c_lock_child_plans%ISOPEN THEN
2257: CLOSE c_lock_child_plans;
2258: END IF;
2259: IF l_Counter > l_max_tries THEN
2260: MSC_UTIL.msc_Debug('Unable to lock msc_plans for updating Calculate lateness constraints.');
2261: --RAISE;
2262: rollback to BF_UPD_CHILD_RP;
2263: EXIT;
2264: END IF;
2262: rollback to BF_UPD_CHILD_RP;
2263: EXIT;
2264: END IF;
2265: IF TRUNC(l_Counter/100)*100 = l_Counter THEN
2266: MSC_UTIL.msc_Debug('Unable to lock/update msc_plans row after: ('||l_Counter||') Tries...');
2267: END IF;
2268: END;
2269: END LOOP;
2270: MSC_UTIL.msc_Debug('Debug Only: Out of lock loop...');
2266: MSC_UTIL.msc_Debug('Unable to lock/update msc_plans row after: ('||l_Counter||') Tries...');
2267: END IF;
2268: END;
2269: END LOOP;
2270: MSC_UTIL.msc_Debug('Debug Only: Out of lock loop...');
2271: /*-- Step 1*/
2272:
2273: exception when others then
2274: MSC_UTIL.msc_Debug('Error in procedure process_child_rp_plans');
2270: MSC_UTIL.msc_Debug('Debug Only: Out of lock loop...');
2271: /*-- Step 1*/
2272:
2273: exception when others then
2274: MSC_UTIL.msc_Debug('Error in procedure process_child_rp_plans');
2275: end process_child_rp_plans;
2276:
2277:
2278: PROCEDURE msc_launch_rp_plan (
2328: FETCH c_ws_status INTO l_free_ws;
2329: CLOSE c_ws_status;
2330:
2331: if l_free_ws = 0 then -- check for free ws
2332: MSC_UTIL.msc_Debug('Unable to proceed with Plan Launch. Either the chosen RP plan is in progress, or No free web services available for running RP... ');
2333: retcode := 2;
2334: errbuf := 'Unable to proceed with Plan Launch. Either the chosen RP plan is in progress, or No free web services available for running RP... ';
2335: else
2336: -- continue with procedure logic
2337:
2338: /*Step 1: Check for lock and update lateness_constraints*/
2339:
2340: savepoint BF_UPD_RP;
2341: MSC_UTIL.msc_Debug('In msc_launch_rp_plan: Attempting to update Msc_Plans for lateness constraints...');
2342:
2343: l_Counter := 0;
2344: LOOP
2345: BEGIN
2348: OPEN c_lock_plan_row(arg_plan_id);
2349: FETCH c_lock_plan_row INTO l_row;
2350: CLOSE c_lock_plan_row;
2351:
2352: MSC_UTIL.msc_Debug('Locked the plan...');
2353:
2354: UPDATE MSC_PLANS
2355: SET
2356: STATUS=1,
2356: STATUS=1,
2357: COMPUTE_CONSTRAINTS = nvl(arg_calc_lateness,2),
2358: SAVE_TO_DB =nvl(arg_save_option,3)
2359: WHERE ROWID=l_row;
2360: MSC_UTIL.msc_Debug('After update...');
2361:
2362: OPEN c_get_designator(arg_plan_id);
2363: FETCH c_get_designator INTO l_designator;
2364: CLOSE c_get_designator;
2369: IF c_lock_plan_row%ISOPEN THEN
2370: CLOSE c_lock_plan_row;
2371: END IF;
2372: IF l_Counter > l_max_tries THEN
2373: MSC_UTIL.msc_Debug('Unable to lock msc_plans for updating Calculate lateness constraints.');
2374: --RAISE;
2375: rollback to BF_UPD_RP;
2376: EXIT;
2377: END IF;
2375: rollback to BF_UPD_RP;
2376: EXIT;
2377: END IF;
2378: IF TRUNC(l_Counter/100)*100 = l_Counter THEN
2379: MSC_UTIL.msc_Debug('Unable to lock/update msc_plans row after: ('||l_Counter||') Tries...');
2380: END IF;
2381: END;
2382: END LOOP;
2383:
2380: END IF;
2381: END;
2382: END LOOP;
2383:
2384: MSC_UTIL.msc_Debug('Debug Only: Out of lock loop...');
2385: /*-- Step 1*/
2386:
2387: /*Step 2: Process Child Plans*/
2388: MSC_UTIL.msc_Debug('Debug Only: Attempting to process child plans if any...');
2384: MSC_UTIL.msc_Debug('Debug Only: Out of lock loop...');
2385: /*-- Step 1*/
2386:
2387: /*Step 2: Process Child Plans*/
2388: MSC_UTIL.msc_Debug('Debug Only: Attempting to process child plans if any...');
2389: process_child_rp_plans(arg_plan_id);
2390:
2391:
2392: /*Step 1.1: Process Child Plans*/
2389: process_child_rp_plans(arg_plan_id);
2390:
2391:
2392: /*Step 1.1: Process Child Plans*/
2393: MSC_UTIL.msc_Debug('Debug Only: Attempting to delete user actions if any...');
2394: begin
2395:
2396: DELETE FROM MSC_USER_ACTIONS WHERE PLAN_ID= arg_plan_id;
2397:
2395:
2396: DELETE FROM MSC_USER_ACTIONS WHERE PLAN_ID= arg_plan_id;
2397:
2398: exception when others then
2399: MSC_UTIL.msc_Debug('Debug Only: Error while attempting to delete user actions');
2400: MSC_UTIL.msc_Debug('Debug Only: Error is'||sqlerrm);
2401: retcode := 2;
2402: errbuf := sqlerrm;
2403: return;
2396: DELETE FROM MSC_USER_ACTIONS WHERE PLAN_ID= arg_plan_id;
2397:
2398: exception when others then
2399: MSC_UTIL.msc_Debug('Debug Only: Error while attempting to delete user actions');
2400: MSC_UTIL.msc_Debug('Debug Only: Error is'||sqlerrm);
2401: retcode := 2;
2402: errbuf := sqlerrm;
2403: return;
2404: end;
2405:
2406: /*-- Step 1.1*/
2407:
2408: /*-- Step 2*/
2409: MSC_UTIL.msc_Debug('Debug Only: Attempting to launch the rapid plan...');
2410: MSC_LAUNCH_PLAN(
2411: errbuf,
2412: retcode,
2413: l_designator,
2420:
2421: end if; -- end of check for free ws
2422:
2423: exception when others then
2424: MSC_UTIL.msc_Debug('Error in procedure msc_launch_rp_plans');
2425: retcode := 2;
2426: errbuf := sqlerrm;
2427:
2428: end msc_launch_rp_plan;