[Home] [Help]
661: p_atp_table.Config_item_line_id(m));
662: END IF;
663: END IF;
664: IF p_atp_table.old_source_organization_id(m) IS NOT NULL THEN
665: l_pf_item_id(m) := MSC_ATP_PF.Get_PF_Atp_Item_Id(p_instance_id,
666: l_plan_id,
667: p_atp_table.inventory_item_id(m),
668: p_atp_table.old_source_organization_id(m));
669: --l_old_org_id(m) := l_atp_table.old_source_organization_id(m);
1897: END IF;
1898: --- we get PF item id only if its a case of new schedulling
1899: -- if its a reschedulling then we mayalready have got the id just for deleting
1900: ---the previous order. For reschedulling we handel it in the elase part
1901: l_process_item_id := MSC_ATP_PF.Get_PF_Atp_Item_Id(p_instance_id,
1902: l_plan_id,
1903: l_requested_item_id,
1904: l_process_org_id);
1905: ELSE
1976: msc_sch_wb.atp_debug('Match Found, find plan for matched item');
1977: END IF;
1978:
1979: /* time_phased_atp changes begin*/
1980: l_match_item_family_id := MSC_ATP_PF.Get_PF_Atp_Item_Id(
1981: p_instance_id,
1982: l_plan_id,
1983: l_atp_table.match_item_id(i),
1984: l_process_org_id
1984: l_process_org_id
1985: );
1986:
1987: /* Call new procedure Get_PF_Plan_Info*/
1988: MSC_ATP_PF.Get_PF_Plan_Info(
1989: p_instance_id,
1990: l_atp_table.match_item_id(i),
1991: l_match_item_family_id,
1992: l_process_org_id,
2059: END IF;
2060: IF l_plan_found_for_match = 2 THEN
2061: /* time_phased_atp changes begin
2062: Call new procedure Get_PF_Plan_Info*/
2063: MSC_ATP_PF.Get_PF_Plan_Info(
2064: p_instance_id,
2065: l_requested_item_id,
2066: l_process_item_id,
2067: l_process_org_id,
2264: END IF;
2265:
2266: END IF;
2267: --- bug 2152184: Retrival of PF item needs to be done on ODS data. Moved the call before plan is retrieved
2268: /*l_process_item_id := MSC_ATP_PF.Get_PF_Atp_Item_Id(p_instance_id,
2269: l_plan_id,
2270: l_requested_item_id,
2271: l_process_org_id); */
2272:
2956: /* time_phased_atp
2957: Substitution window should not be more than aggregate time fence days*/
2958: IF (l_pf_atp = 'Y' OR l_time_phased_atp = 'Y') THEN
2959: l_item_substitute_rec.substitution_window(l_count) := LEAST(MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window,
2960: nvl(MSC_ATP_PF.Get_Atf_Days(
2961: p_instance_id,
2962: l_inventory_item_id,
2963: l_atp_rec.organization_id
2964: ),
6839: l_mem_stealing_qty NUMBER;
6840: l_pf_stealing_qty NUMBER;
6841: l_sub_qty_before_atf NUMBER;
6842: l_sub_qty_after_atf NUMBER;
6843: l_bucketed_demands_rec MSC_ATP_PF.Bucketed_Demands_Rec;
6844: l_mat_atp_info_rec MSC_ATP_REQ.Atp_Info_Rec;
6845: l_atf_date_qty NUMBER;
6846: l_item_to_use NUMBER;
6847: l_used_available_quantity NUMBER; --bug3409973
7725: Modularize Item and Org Info */
7726:
7727: /* New allocation logic for time_phased_atp changes begin */
7728: IF l_time_phased_atp = 'Y' THEN
7729: MSC_ATP_PF.Set_Alloc_Rule_Variables(
7730: l_inv_item_id,
7731: PF_ITEM_INFO_REC.dest_inv_item_id,
7732: p_atp_record.organization_id,
7733: p_atp_record.instance_id,
9246: l_atp_insert_rec.quantity_ordered := l_atp_insert_rec.quantity_ordered - greatest(l_sub_requested_date_quantity, 0);
9247: l_atp_insert_rec.requested_date_quantity := l_atp_insert_rec.requested_date_quantity - greatest(l_sub_requested_date_quantity, 0);
9248: -- No need to change ATF date qty, let it be the same. Increment_Bucketed_Demands_Qty will take care of whether to use
9249: -- qty upto ATF completely.
9250: MSC_ATP_PF.Increment_Bucketed_Demands_Qty(
9251: l_atp_insert_rec,
9252: p_plan_id,
9253: l_demand_id,
9254: l_return_status
9500: --using the same insert rec we prepared earlier
9501: l_atp_insert_rec.quantity_ordered := p_atp_record.quantity_ordered;
9502: l_atp_insert_rec.requested_date_quantity := l_atp_insert_rec.requested_date_quantity + nvl(l_stealing_qty, 0);
9503: l_atp_insert_rec.atf_date_quantity := l_atp_insert_rec.atf_date_quantity + nvl(l_mem_stealing_qty, 0);
9504: MSC_ATP_PF.Increment_Bucketed_Demands_Qty(
9505: l_atp_insert_rec,
9506: p_plan_id,
9507: l_demand_id,
9508: l_return_status
9693: l_atp_insert_rec.requested_date_quantity := GREATEST(p_atp_record.requested_date_quantity, 0)
9694: + nvl(l_stealing_requested_date_qty, 0);
9695: l_atp_insert_rec.atf_date_quantity := NVL(p_atp_record.atf_date_quantity, 0);
9696: --5211558 not needed as when comp flag is no then only one iteration
9697: MSC_ATP_PF.Increment_Bucketed_Demands_Qty(
9698: l_atp_insert_rec,
9699: p_plan_id,
9700: l_demand_id,
9701: l_return_status
10014: l_bkwd_pass_atf_date_qty := p_atp_record.atf_date_quantity;
10015: END IF;
10016: --bug3397904 end
10017: --5211558 not needed as when comp flag is no then only one iteration
10018: MSC_ATP_PF.Move_PF_Bucketed_Demands(
10019: p_plan_id,
10020: l_demand_id,
10021: p_atp_record.requested_ship_date,
10022: l_atp_date_this_level,
11436: l_atp_rec.organization_id,
11437: l_atp_rec.demand_class);*/
11438:
11439: --Bug4548245 When we call this procedure from schedule then we check in ODS data
11440: l_atp_rec.inventory_item_id := MSC_ATP_PF.Get_PF_Atp_Item_Id(l_atp_rec.instance_id,
11441: -1,
11442: l_atp_rec.request_item_id,
11443: l_atp_rec.organization_id);
11444: --set the correct family item value
11444: --set the correct family item value
11445: --Bug4548245 end
11446: /* time_phased_atp changes begin
11447: Call new procedure Get_PF_Plan_Info*/
11448: MSC_ATP_PF.Get_PF_Plan_Info(
11449: l_atp_rec.instance_id,
11450: l_atp_rec.request_item_id,
11451: l_atp_rec.inventory_item_id,
11452: l_atp_rec.organization_id,
13661:
13662: IF MSC_ATP_PVT.G_INV_CTP = 4 THEN
13663: --4501944, call get_pf_plan_info in make cases too.
13664: MSC_ATP_PVT.G_PLAN_INFO_REC.plan_id := NULL; --NULL the plan_id in global array so that get_plan_info gets called properly
13665: MSC_ATP_PF.Get_PF_Plan_Info(
13666: p_atp_record.instance_id,
13667: p_atp_record.request_item_id,
13668: p_atp_record.inventory_item_id,
13669: p_atp_record.organization_id,
15751: l_atp_insert_rec.quantity_ordered := p_atp_record.quantity_ordered - l_net_demand;
15752: l_atp_insert_rec.requested_date_quantity := l_atp_insert_rec.quantity_ordered;
15753: l_atp_insert_rec.atf_date_quantity := GREATEST(NVL(p_atp_record.atf_date_quantity,
15754: 0), 0); --7185041
15755: MSC_ATP_PF.Increment_Bucketed_Demands_Qty(
15756: l_atp_insert_rec,
15757: p_plan_id,
15758: l_demand_id,
15759: l_return_status
15878: l_atp_insert_rec.quantity_ordered := p_atp_record.quantity_ordered;
15879: l_atp_insert_rec.requested_date_quantity := p_atp_record.combined_requested_date_qty;
15880: l_atp_insert_rec.atf_date_quantity := GREATEST(NVL(p_atp_record.atf_date_quantity,
15881: 0), 0); --7185041
15882: MSC_ATP_PF.Increment_Bucketed_Demands_Qty(
15883: l_atp_insert_rec,
15884: p_plan_id,
15885: l_demand_id,
15886: l_return_status
15966: /* time_phased_atp
15967: Update PF Bucketed Demands to qty we could find in backward case*/
15968: --5211558 we want to update the demands only in first pass and not in further passes
15969: IF l_time_phased_atp = 'Y' and MSC_ATP_PVT.G_OPTIONAL_FW is null THEN
15970: MSC_ATP_PF.Update_PF_Bucketed_Demands(
15971: p_plan_id,
15972: l_demand_id,
15973: l_requested_ship_date,
15974: p_atp_record.atf_date,
16132:
16133: /* time_phased_atp*/
16134: --5211558 not needed here as this is executed in forward pass
16135: IF l_time_phased_atp = 'Y' THEN
16136: MSC_ATP_PF.Move_PF_Bucketed_Demands(
16137: p_plan_id,
16138: l_demand_id,
16139: p_atp_record.requested_ship_date,
16140: p_atp_record.ship_date,