1: PACKAGE BODY MSC_POST_PRO
2: -- $Header: MSCPOSTB.pls 120.22 2011/10/13 09:19:37 vjuluri ship $
3: AS
4:
5: MAXVALUE CONSTANT NUMBER := 999999;
591: END;
592: END IF;
593:
594: ---- clean tables
595: MSC_POST_PRO.CLEAN_TABLES(l_applsys_schema);
596:
597: --update the so_tbl_status to 1 so that user can do ATP
598: BEGIN
599: UPDATE msc_apps_instances
614: msc_util.msc_log(sqlerrm);
615: ERRBUF := sqlerrm;
616: RETCODE := G_ERROR;
617: --- clean tables
618: MSC_POST_PRO.CLEAN_TABLES(l_applsys_schema);
619: ----update so_tbl_status
620: BEGIN
621: UPDATE msc_apps_instances
622: set so_tbl_status = 1,
1055: ELSIF G_ALLOC_ATP = 'Y' AND G_CLASS_HRCHY = 1 AND G_ALLOC_METHOD = 1 THEN
1056: -- we are doing Allocated ATP so we need to call post_plan_allocation
1057: msc_util.msc_log('Doing demand priority allocated ATP. Will call post_plan_allocation ');
1058:
1059: msc_post_pro.post_plan_allocation(ERRBUF, RETCODE, l_plan_to_use);
1060:
1061: IF RETCODE <> G_SUCCESS THEN
1062: msc_util.msc_log('LOAD_PLAN_SD: ' || 'Post plan allocation failed. Will exit');
1063: RETURN;
1224: ELSE
1225: -- PF setup does not exist
1226: l_time_phased_pf := 2;
1227: END IF;
1228: MSC_POST_PRO.LOAD_PLAN_SUMMARY_SD(l_plan_to_use,
1229: share_partition,
1230: l_optimized_plan,
1231: 1, -- p_full_refresh : Full summation
1232: l_time_phased_pf, -- p_time_phased_pf : Time phased pf setup exists
1235: null, -- p_new_refresh_number : Null for full summation
1236: l_sysdate);
1237: -- ATP4drp Call Resource summation only for non-DRP plan
1238: IF l_plan_type <> 5 THEN
1239: MSC_POST_PRO.LOAD_RESOURCES(l_plan_to_use,
1240: share_partition,
1241: l_applsys_schema,
1242: 1, -- Full summation
1243: l_plan_start_date,
1243: l_plan_start_date,
1244: l_sysdate);
1245: END IF;
1246: -- End ATP4drp
1247: MSC_POST_PRO.INSERT_SUPPLIER_DATA(l_plan_to_use,
1248: share_partition,
1249: l_applsys_schema,
1250: 1, -- Full summation
1251: l_sysdate);
1518: RETCODE := G_SUCCESS;
1519: RETURN;
1520: END IF;
1521:
1522: MSC_POST_PRO.LOAD_PLAN_SUMMARY_SD(p_plan_id,
1523: null, -- p_share_partition -> Not required for
1524: null, -- p_optimized_plan, -> incremental summation
1525: 2, -- Incremental summation
1526: l_time_phased,
1530: l_sysdate);
1531:
1532: -- ATP4drp Call Resource summation only for non-DRP plan
1533: IF l_plan_type <> 5 THEN
1534: MSC_POST_PRO.LOAD_RESOURCES(p_plan_id,
1535: null, -- p_share_partition -> Not required for
1536: null, -- p_optimized_plan, -> incremental summation
1537: 2, -- Incremental summation
1538: l_plan_start_date,
1541: l_new_refresh_number);
1542: END IF;
1543: -- End ATP4drp
1544:
1545: MSC_POST_PRO.INSERT_SUPPLIER_DATA(p_plan_id,
1546: null, -- p_share_partition -> Not required for
1547: null, -- p_applsys_schema -> incremental summation
1548: 2, -- Incremental summation
1549: l_sysdate,
3935: IF P_COLLECT_TYPE = 1 THEN ---- full refresh
3936:
3937: IF REFRESH_SO = 1 THEN -- full refresh S/O and S/D
3938:
3939: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 3);
3940:
3941: ELSE
3942:
3943: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 2); --full S/D
3939: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 3);
3940:
3941: ELSE
3942:
3943: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 2); --full S/D
3944: IF RETCODE <> G_SUCCESS THEN
3945: RETURN;
3946: END IF;
3947: MSC_POST_PRO.LOAD_NET_SO(ERRBUF, RETCODE, P_INSTANCE_ID); -- Net S/O
3943: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 2); --full S/D
3944: IF RETCODE <> G_SUCCESS THEN
3945: RETURN;
3946: END IF;
3947: MSC_POST_PRO.LOAD_NET_SO(ERRBUF, RETCODE, P_INSTANCE_ID); -- Net S/O
3948:
3949: END IF;
3950:
3951: ELSIF P_COLLECT_TYPE = 2 THEN ---- Net change Refresh
3949: END IF;
3950:
3951: ELSIF P_COLLECT_TYPE = 2 THEN ---- Net change Refresh
3952:
3953: MSC_POST_PRO.LOAD_NET_SO(ERRBUF, RETCODE, P_INSTANCE_ID); -- Net SO
3954: IF RETCODE <> G_SUCCESS THEN
3955: RETURN;
3956: END IF;
3957: MSC_POST_PRO.LOAD_NET_SD(ERRBUF, RETCODE, P_INSTANCE_ID); -- Net SD
3953: MSC_POST_PRO.LOAD_NET_SO(ERRBUF, RETCODE, P_INSTANCE_ID); -- Net SO
3954: IF RETCODE <> G_SUCCESS THEN
3955: RETURN;
3956: END IF;
3957: MSC_POST_PRO.LOAD_NET_SD(ERRBUF, RETCODE, P_INSTANCE_ID); -- Net SD
3958:
3959: ELSIF P_COLLECT_TYPE = 3 THEN ---TARGETED
3960:
3961: IF REFRESH_SO = 1 AND REFRESH_SD = 1 THEN
3959: ELSIF P_COLLECT_TYPE = 3 THEN ---TARGETED
3960:
3961: IF REFRESH_SO = 1 AND REFRESH_SD = 1 THEN
3962:
3963: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 3); -- full S/O, S/D
3964:
3965: ELSIF REFRESH_SO = 1 THEN
3966:
3967: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 1); -- full S/O
3963: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 3); -- full S/O, S/D
3964:
3965: ELSIF REFRESH_SO = 1 THEN
3966:
3967: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 1); -- full S/O
3968:
3969: ELSIF REFRESH_SD = 1 THEN
3970:
3971: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 2); -- full S/D
3967: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 1); -- full S/O
3968:
3969: ELSIF REFRESH_SD = 1 THEN
3970:
3971: MSC_POST_PRO.LOAD_SUPPLY_DEMAND(ERRBUF, RETCODE, P_INSTANCE_ID, 2); -- full S/D
3972:
3973: END IF;
3974: END IF;
3975: IF RETCODE <> G_SUCCESS THEN
9034: WHEN others THEN
9035: msc_util.msc_log('Exception in Delete_CTO_BOM_OSS :' || SQLCODE || '-' || SQLERRM);
9036: END Delete_CTO_BOM_OSS;
9037:
9038: END MSC_POST_PRO;