[Home] [Help]
182: ) IS
183: l_parent_org_idx NUMBER;
184: BEGIN
185:
186: x_pegging_rec.session_id:= MSC_ATP_PVT.G_SESSION_ID;
187: x_pegging_rec.order_line_id := MSC_ATP_PVT.G_ORDER_LINE_ID;
188:
189: x_pegging_rec.organization_id := org_avail_info.organization_id(p_org_idx);
190:
183: l_parent_org_idx NUMBER;
184: BEGIN
185:
186: x_pegging_rec.session_id:= MSC_ATP_PVT.G_SESSION_ID;
187: x_pegging_rec.order_line_id := MSC_ATP_PVT.G_ORDER_LINE_ID;
188:
189: x_pegging_rec.organization_id := org_avail_info.organization_id(p_org_idx);
190:
191: x_pegging_rec.organization_code := org_avail_info.org_code(p_org_idx);
202: x_pegging_rec.supplier_site_id := NULL;
203: x_pegging_rec.supplier_site_name := NULL;
204: x_pegging_rec.substitution_window := item_availability_info.substitution_window(p_item_idx);
205:
206: x_pegging_rec.summary_flag := MSC_ATP_PVT.G_SUMMARY_FLAG;
207: --bug3467631 start
208: x_pegging_rec.aggregate_time_fence_date:= org_avail_info.Atf_Date(p_org_idx);
209: --populating atf date in pegging as records are deleted from alloc table
210: --based on atf date also.
270:
271: -- for demo:1153192
272: x_pegging_rec.constraint_flag := 'N';
273: x_pegging_rec.component_identifier :=
274: NVL(p_atp_record.component_identifier, MSC_ATP_PVT.G_COMP_LINE_ID);
275:
276: --- bug 2152184: For PF based ATP inventory_item_id field contains id for PF item
277: --- cto looks at pegging tree to place their demands. Since CTO expects to find
278: -- id for the requested item, we add the following column. CTO will now read from this column
370: x_pegging_rec.organization_code := org_avail_info.org_code(p_org_idx);
371:
372: x_pegging_rec.identifier2:= org_avail_info.plan_id(l_parent_idx);
373: x_pegging_rec.identifier3 := p_transaction_id;
374: x_pegging_rec.supply_demand_source_type:= MSC_ATP_PVT.TRANSFER;
375:
376: x_pegging_rec.supply_demand_quantity := p_PO_qty;
377: x_pegging_rec.supply_demand_type:= 2;
378: x_pegging_rec.supply_demand_date:= org_avail_info.requested_ship_date(l_parent_idx);
375:
376: x_pegging_rec.supply_demand_quantity := p_PO_qty;
377: x_pegging_rec.supply_demand_type:= 2;
378: x_pegging_rec.supply_demand_date:= org_avail_info.requested_ship_date(l_parent_idx);
379: x_pegging_rec.source_type := MSC_ATP_PVT.TRANSFER;
380:
381: -- for demo:1153192
382: x_pegging_rec.component_identifier :=
383: NVL(p_atp_record.component_identifier, MSC_ATP_PVT.G_COMP_LINE_ID);
379: x_pegging_rec.source_type := MSC_ATP_PVT.TRANSFER;
380:
381: -- for demo:1153192
382: x_pegging_rec.component_identifier :=
383: NVL(p_atp_record.component_identifier, MSC_ATP_PVT.G_COMP_LINE_ID);
384: --bug3467631
385: x_pegging_rec.request_item_id := NVL(p_atp_record.request_item_id,
386: p_atp_record.inventory_item_id);
387:
505: x_pegging_rec.organization_id:= org_avail_info.organization_id(p_org_idx);
506: x_pegging_rec.organization_code := org_avail_info.org_code(p_org_idx);
507: x_pegging_rec.identifier2 := org_avail_info.plan_id(p_org_idx);
508: x_pegging_rec.identifier3 := p_transaction_id;
509: x_pegging_rec.supply_demand_source_type:= MSC_ATP_PVT.ATP;
510: -- dsting 2754446
511: -- x_pegging_rec.supply_demand_quantity:= org_avail_info.request_date_quantity(p_org_idx);
512: x_pegging_rec.supply_demand_quantity:= org_avail_info.req_date_unadj_qty(p_org_idx);
513: x_pegging_rec.supply_demand_date:= org_avail_info.requested_ship_date(p_org_idx);
513: x_pegging_rec.supply_demand_date:= org_avail_info.requested_ship_date(p_org_idx);
514: x_pegging_rec.supply_demand_type:= 2;
515: x_pegging_rec.source_type := 0;
516: x_pegging_rec.component_identifier :=
517: NVL(p_atp_record.component_identifier, MSC_ATP_PVT.G_COMP_LINE_ID);
518:
519: IF NVL(org_avail_info.constraint_type(p_org_idx), NOSOURCES_NONCONSTRAINT)
520: <> NOSOURCES_NONCONSTRAINT
521: THEN
646: L_DEMAND_SATISFIED_FLAG number;
647: l_org_item_detail_flag number;
648: l_item_ctp_info Item_Info_Rec_Typ;
649: l_null_item_avail_info Item_Info_Rec_Typ;
650: l_item_attribute_rec MSC_ATP_PVT.item_attribute_rec;
651: l_plan_info_rec MSC_ATP_PVT.plan_info_rec; --- for bug 2392456
652:
653: L_HIGHEST_REV_ITEM_ID number;
654: L_ITEM_COUNT number;
647: l_org_item_detail_flag number;
648: l_item_ctp_info Item_Info_Rec_Typ;
649: l_null_item_avail_info Item_Info_Rec_Typ;
650: l_item_attribute_rec MSC_ATP_PVT.item_attribute_rec;
651: l_plan_info_rec MSC_ATP_PVT.plan_info_rec; --- for bug 2392456
652:
653: L_HIGHEST_REV_ITEM_ID number;
654: L_ITEM_COUNT number;
655: L_ASSIGN_SET_ID number;
772: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Insert_Flag:' || to_char(p_atp_record.Insert_Flag) );
773: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Error_Code:' || to_char(p_atp_record.Error_Code) );
774: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Order_Number:' || to_char(p_atp_record.Order_Number) );
775: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'P_scenario_id := ' || p_scenario_id);
776: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_DIAGNOSTIC_ATP ' || MSC_ATP_PVT.G_DIAGNOSTIC_ATP);
777: -- Bug 3826234
778: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'shipping_cal_code ' || p_atp_record.shipping_cal_code);
779: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'manufacturing_cal_code ' || p_atp_record.manufacturing_cal_code);
780: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'receiving_cal_code ' || p_atp_record.receiving_cal_code);
779: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'manufacturing_cal_code ' || p_atp_record.manufacturing_cal_code);
780: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'receiving_cal_code ' || p_atp_record.receiving_cal_code);
781: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'intransit_cal_code ' || p_atp_record.intransit_cal_code);
782: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'to_organization_id ' || p_atp_record.to_organization_id);
783: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'MSC_ATP_PVT.G_ALLOCATED_ATP ' || MSC_ATP_PVT.G_ALLOCATED_ATP);
784: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'MSC_ATP_PVT.G_PLAN_INFO_REC.plan_type ' || MSC_ATP_PVT.G_PLAN_INFO_REC.plan_type);
785: END IF;
786: --- first we set the Request Item's sr_inv_id to a global variable
787: --bug3467631 In PF cases request_item_id has member_id
780: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'receiving_cal_code ' || p_atp_record.receiving_cal_code);
781: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'intransit_cal_code ' || p_atp_record.intransit_cal_code);
782: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'to_organization_id ' || p_atp_record.to_organization_id);
783: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'MSC_ATP_PVT.G_ALLOCATED_ATP ' || MSC_ATP_PVT.G_ALLOCATED_ATP);
784: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'MSC_ATP_PVT.G_PLAN_INFO_REC.plan_type ' || MSC_ATP_PVT.G_PLAN_INFO_REC.plan_type);
785: END IF;
786: --- first we set the Request Item's sr_inv_id to a global variable
787: --bug3467631 In PF cases request_item_id has member_id
788: --MSC_ATP_SUBST.G_REQ_ITEM_SR_INV_ID := p_atp_record.inventory_item_id;
1029: org_availability_info.org_code(l_process_org_cntr) := l_org_code;
1030:
1031: -- ATP4drp Do not fetch family data for DRP plans.
1032: -- ALLOC ATP CHANGES, l_plan_info_rec.plan_type will be NULL if only one record
1033: IF nvl(l_plan_info_rec.plan_type, NVL(MSC_ATP_PVT.G_PLAN_INFO_REC.plan_type, 1)) <> 5 THEN
1034: /* time_phased_atp
1035: populate family_id and atf_date*/
1036: MSC_ATP_PF.Get_Family_Item_Info(
1037: p_atp_record.instance_id,
1052: RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054: ELSE -- DRP plan re-set variables.
1055: -- Allocated and PF ATP de-supported for DRP Plans.
1056: MSC_ATP_PVT.G_ALLOCATED_ATP := 'N';
1057: org_availability_info.family_sr_id(l_process_org_cntr) :=
1058: item_availability_info.sr_inventory_item_id(l_item_cntr);
1059: org_availability_info.family_dest_id(l_process_org_cntr) :=
1060: item_availability_info.inventory_item_id(l_item_cntr);
1071: /* To support new logic for dependent demands allocation in time phased PF rule based AATP scenarios
1072: Set global variable. This is used in Get_Item_Demand_Alloc_Percent function*/
1073: IF org_availability_info.atf_date(l_process_org_cntr) is not null THEN
1074: /* Set global variable. This is used in Get_Item_Demand_Alloc_Percent function*/
1075: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'Y';
1076: ELSE
1077: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'N';
1078: END IF;
1079:
1073: IF org_availability_info.atf_date(l_process_org_cntr) is not null THEN
1074: /* Set global variable. This is used in Get_Item_Demand_Alloc_Percent function*/
1075: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'Y';
1076: ELSE
1077: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'N';
1078: END IF;
1079:
1080: -- dsting 2754446 Add uom conversion
1081: -- l_net_demand and demand_quantity stays in request org's uom
1135: item_availability_info.sr_inventory_item_id(l_item_cntr),
1136: org_availability_info.organization_id(l_process_org_cntr),
1137: l_item_attribute_rec);--bug3298426
1138:
1139: l_item_attribute_rec := MSC_ATP_PVT.G_ITEM_INFO_REC;--bug3298426
1140: -- store values
1141: org_availability_info.atp_flag(l_process_org_cntr) := l_item_attribute_rec.atp_flag;
1142: org_availability_info.atp_comp_flag(l_process_org_cntr) := l_item_attribute_rec.atp_comp_flag;
1143: org_availability_info.post_pro_lt(l_process_org_cntr) := l_item_attribute_rec.post_pro_lt;
1189: END IF;
1190: ---alloc
1191:
1192: -- ALLOC ATP CHANGES, 12973673
1193: IF (MSC_ATP_PVT.G_INV_CTP = 4 and MSC_ATP_PVT.G_HYBRID_ALLOC_ATP = 'Y') THEN
1194: IF PG_DEBUG in ('Y', 'C') THEN
1195: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_HYBRID_ALLOC_ATP is Y');
1196: END IF;
1197:
1194: IF PG_DEBUG in ('Y', 'C') THEN
1195: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_HYBRID_ALLOC_ATP is Y');
1196: END IF;
1197:
1198: MSC_ATP_PVT.G_ALLOCATED_ATP := MSC_ATP_FUNC.check_alloc_exists(p_atp_record.instance_id,
1199: -1, --PLAN_ID
1200: item_availability_info.sr_inventory_item_id(l_item_cntr),
1201: org_availability_info.organization_id(l_process_org_cntr),
1202: nvl(l_requested_ship_date,trunc(sysdate)));
1201: org_availability_info.organization_id(l_process_org_cntr),
1202: nvl(l_requested_ship_date,trunc(sysdate)));
1203:
1204: IF PG_DEBUG in ('Y', 'C') THEN
1205: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'MSC_ATP_PVT.G_ALLOCATED_ATP = '||MSC_ATP_PVT.G_ALLOCATED_ATP);
1206: END IF;
1207: END IF;
1208:
1209: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') THEN
1205: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'MSC_ATP_PVT.G_ALLOCATED_ATP = '||MSC_ATP_PVT.G_ALLOCATED_ATP);
1206: END IF;
1207: END IF;
1208:
1209: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') THEN
1210: /* To support new logic for dependent demands allocation in time phased PF rule based AATP scenarios
1211: Making changes to support new allocation logic for time_phased_atp changes too that were missed
1212: out earlier as part of this exercise*/
1213: IF org_availability_info.atf_date(l_process_org_cntr) is not null THEN
1229: RAISE FND_API.G_EXC_ERROR;
1230: END IF;
1231:
1232: IF l_requested_ship_date <= org_availability_info.atf_date(l_process_org_cntr) THEN
1233: IF MSC_ATP_PVT.G_MEM_RULE_WITHIN_ATF = 'Y' THEN
1234: l_item_to_use := item_availability_info.inventory_item_id(l_item_cntr);
1235: ELSE
1236: --bug3467631 family_dest_id is item-org attribute
1237: --l_item_to_use := item_availability_info.family_dest_id(l_item_cntr);
1237: --l_item_to_use := item_availability_info.family_dest_id(l_item_cntr);
1238: l_item_to_use := org_availability_info.family_dest_id(l_process_org_cntr);
1239: END IF;
1240: ELSE
1241: IF MSC_ATP_PVT.G_PF_RULE_OUTSIDE_ATF = 'Y' THEN
1242: --bug3467631 family_dest_id is item-org attribute
1243: --l_item_to_use := item_availability_info.family_dest_id(l_item_cntr);
1244: l_item_to_use := org_availability_info.family_dest_id(l_process_org_cntr);
1245: ELSE
1256: /* New allocation logic for time_phased_atp changes end */
1257:
1258: --- get the demand class
1259: l_demand_class :=
1260: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(MSC_ATP_PVT.G_PARTNER_ID,
1261: MSC_ATP_PVT.G_PARTNER_SITE_ID,
1262: l_item_to_use,
1263: org_availability_info.organization_id(l_process_org_cntr),
1264: p_atp_record.instance_id,
1257:
1258: --- get the demand class
1259: l_demand_class :=
1260: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(MSC_ATP_PVT.G_PARTNER_ID,
1261: MSC_ATP_PVT.G_PARTNER_SITE_ID,
1262: l_item_to_use,
1263: org_availability_info.organization_id(l_process_org_cntr),
1264: p_atp_record.instance_id,
1265: l_requested_ship_date,
1270: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'demand_class = '|| l_demand_class);
1271: END IF;
1272:
1273: org_availability_info.demand_class(l_process_org_cntr) := l_demand_class;
1274: org_availability_info.allocation_rule(l_process_org_cntr) := MSC_ATP_PVT.G_ALLOCATION_RULE_NAME;
1275:
1276: --- we store demand class for top org so that we can use it during CTP/ Forward search etc
1277: IF l_process_org_cntr = 1 THEN
1278: item_availability_info.demand_class(l_item_cntr) := l_demand_class;
1476: l_atp_insert_rec.origination_type := 30;
1477:
1478: l_atp_insert_rec.demand_source_line := p_atp_record.demand_source_line;
1479:
1480: IF MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y' and l_atp_flag in ('Y', 'C') and l_net_demand > 0 THEN
1481: --- if we are doing allocated atp then we would need to do stealing
1482: --- In case of stealing we would need to put only demand for available quantity
1483: --- If we put ordered quantity then we would need to readjust this demand again
1484: ----Instea we just put how the available qty so that we do not need to re-adjust the demand
1501: ELSE
1502: -- dependent demand
1503: -- this is not the top level demand, which we should consider it
1504: -- as planned order demand
1505: IF (NVL(MSC_ATP_PVT.G_PLAN_INFO_REC.plan_type,1) <> 5) THEN --4686870
1506: l_atp_insert_rec.origination_type := 1;
1507: ELSE
1508: l_atp_insert_rec.origination_type := -200;
1509: END IF; --4686870
1510:
1511: l_atp_insert_rec.demand_source_line := null;
1512:
1513: -- dsting diag_atp
1514: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP THEN
1515: IF PG_DEBUG in ('Y', 'C') THEN
1516: msc_sch_wb.atp_debug('place full dmd: ' || l_net_demand);
1517: END IF;
1518: -- dsting 2754446
1619: msc_sch_wb.atp_debug('steal_qty: ' || org_availability_info.steal_qty(1));
1620: msc_sch_wb.atp_debug('net_dmd: ' || l_net_demand);
1621: END IF;
1622:
1623: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND (l_atp_flag in ('Y', 'C')) and l_net_demand > 0 THEN
1624:
1625: IF PG_DEBUG in ('Y', 'C') THEN
1626: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'we are in the setup for stealing');
1627: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'l_net_demand := ' || l_net_demand);
1625: IF PG_DEBUG in ('Y', 'C') THEN
1626: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'we are in the setup for stealing');
1627: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'l_net_demand := ' || l_net_demand);
1628: END IF;
1629: g_atp_record.error_code := MSC_ATP_PVT.ALLSUCCESS;
1630:
1631: -- time_phased_atp
1632: g_atp_record.inventory_item_id := org_availability_info.family_sr_id(l_process_org_cntr);
1633:
1676:
1677: -- 2754446
1678: l_stealing_requested_date_qty := g_atp_record.quantity_ordered;
1679: -- l_stealing_requested_date_qty := l_net_demand;
1680: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := org_availability_info.demand_pegging_id(1);
1681:
1682: -- time_phased_atp
1683: g_atp_record.atf_date := org_availability_info.atf_date(l_process_org_cntr);
1684: l_post_stealing_dmd := g_atp_record.quantity_ordered; --bug3467631 change done
1749: to_char(l_net_demand));
1750: END IF;
1751:
1752: -- dsting diag_atp
1753: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP <> DIAGNOSTIC_ATP THEN
1754: --- now we update the demand
1755: IF l_process_org_cntr =1 THEN
1756: IF PG_DEBUG in ('Y', 'C') THEN
1757: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Top Org, update demand');
1868: NULL,
1869: org_availability_info.assign_set_id(l_parent_org_cntr),
1870: l_item_sourcing_info_rec,
1871: --MRP_ATP_PUB.number_arr(NULL),
1872: MSC_ATP_PVT.G_SESSION_ID,
1873: l_sources,
1874: l_return_status);
1875: IF l_sources.source_type.count = 0 THEN
1876: org_availability_info.constraint_type(l_parent_org_cntr) := NOSOURCES_NONCONSTRAINT;
1876: org_availability_info.constraint_type(l_parent_org_cntr) := NOSOURCES_NONCONSTRAINT;
1877: END IF;
1878: ELSE
1879: l_sources := l_null_sources;
1880: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP THEN
1881: IF PG_DEBUG in ('Y', 'C') THEN
1882: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'constraint type: MATERIAL_CONSTRAINT');
1883: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'make_buy_code: ' || l_make_buy_cd);
1884: END IF;
1899: END IF;
1900:
1901: FOR i in 1..l_sources.organization_id.count LOOP
1902:
1903: IF l_sources.source_type(i) = MSC_ATP_PVT.TRANSFER THEN
1904:
1905: -- we only consider 'Transfer' type sources in this pass
1906:
1907: l_to_location_id := null;
1925: msc_sch_wb.atp_debug('* Receiving Org ID : '|| org_availability_info.organization_id(l_parent_org_cntr) );
1926: msc_sch_wb.atp_debug('* Ship Method : '|| l_sources.Ship_Method(i) );
1927: END IF;
1928:
1929: IF l_sources.source_type(i) = MSC_ATP_PVT.TRANSFER THEN
1930: -- receiving party is org
1931: l_receiving_cal_code := MSC_CALENDAR.Get_Calendar_Code(
1932: p_atp_record.instance_id,
1933: null,
2183: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'PO Pegging id := ' || l_pegging_id);
2184: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Src Organization_id := ' || l_sources.organization_id(i));
2185: END IF;
2186: org_availability_info.PO_pegging_id(l_count) := l_pegging_id;
2187: ELSIF MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP THEN
2188: l_transfer_found := 1;
2189:
2190: Prep_Common_pegging_rec(
2191: l_pegging_rec,
2319: IF PG_DEBUG in ('Y', 'C') THEN
2320: msc_sch_wb.atp_debug('lt or ptf constraint end_pegging_id: ' || org_availability_info.demand_pegging_id(1));
2321: END IF;
2322:
2323: MSC_ATP_PVT.G_demand_pegging_id := org_availability_info.demand_pegging_id(1);
2324: l_pegging_rec.organization_id :=
2325: org_availability_info.organization_id(l_parent_org_cntr);
2326: l_pegging_rec.organization_code := MSC_ATP_FUNC.get_org_code(
2327: p_atp_record.instance_id,
2344:
2345: l_pegging_rec.supply_demand_quantity := 0;
2346: l_pegging_rec.supply_demand_type := 2; -- supply
2347: l_pegging_rec.supply_demand_date:= org_availability_info.requested_ship_date(l_parent_org_cntr);
2348: l_pegging_rec.source_type := MSC_ATP_PVT.TRANSFER;
2349:
2350: l_pegging_rec.atp_level := p_level+1;
2351: l_pegging_rec.scenario_id := p_scenario_id;
2352: l_pegging_rec.pegging_type := TRANSFER_PEG_TYP;
2382: END IF;
2383:
2384: -- if this is diagnostic atp, and there are no transfer sources, and we cannot create
2385: -- a supply on the demanded item then flag it as a material constraint.
2386: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP AND l_transfer_found <> 1 AND
2387: l_create_supply_on_orig_item = 0
2388: THEN
2389: org_availability_info.constraint_type(l_parent_org_cntr) := MATERIAL_CONSTRAINT;
2390: END IF;
2418:
2419: -- dsting diag_atp
2420: -- I need to know the quantity from children in advance to balance supply/demand
2421: /* 2754446 I'm doing this in advance already
2422: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP THEN
2423: FOR j in reverse 2..org_availability_info.organization_id.count LOOP
2424: l_parent_index := org_availability_info.parent_org_idx(j);
2425: -- 2754446
2426: l_addt_qty := LEAST((GREATEST(org_availability_info.request_date_quantity(j), 0) +
2488: END IF;
2489:
2490: IF j = 1 THEN
2491: --- bug 2344501: set the error only if it is a top org
2492: p_atp_record.error_code := MSC_ATP_PVT.ATP_NOT_APPL;
2493: END IF;
2494:
2495: l_transaction_id := NULL;
2496: IF j > 1 AND (l_available_quantity > 0 OR MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP) THEN
2492: p_atp_record.error_code := MSC_ATP_PVT.ATP_NOT_APPL;
2493: END IF;
2494:
2495: l_transaction_id := NULL;
2496: IF j > 1 AND (l_available_quantity > 0 OR MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP) THEN
2497:
2498: -- dsting diag_atp
2499: -- may need to adjust the PO for diagnostic atp
2500: -- IF l_available_quantity >0 THEN
2506: l_PO_qty := CEIL(ROUND(l_PO_qty,10));
2507: END IF;
2508:
2509: -- Begin ATP4drp Create Planned Arrivals for DRP plans
2510: IF (NVL(MSC_ATP_PVT.G_PLAN_INFO_REC.plan_type,1) = 5) THEN
2511: l_supply_rec.instance_id := p_atp_record.instance_id;
2512: l_supply_rec.plan_id := org_availability_info.plan_id(l_parent_index);
2513: l_supply_rec.inventory_item_id := org_availability_info.family_dest_id(l_parent_index);
2514: -- DRP Plan re-set to member For time_phased_atp
2659: msc_sch_wb.atp_debug('l_available_quantity: ' || l_available_quantity);
2660: END IF;
2661:
2662: -- dsting do not update demands for diagnostic atp
2663: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP <> DIAGNOSTIC_ATP THEN
2664:
2665: IF j > 1 AND l_available_quantity <= 0
2666: THEN
2667: --- if we do nto get anything from this org then we remove the demand
2746: msc_sch_wb.atp_debug('dmd qty: ' || org_availability_info.demand_quantity(j));
2747: msc_sch_Wb.atp_debug('conv rate: ' || org_availability_info.conversion_rate(l_parent_index));
2748: END IF;
2749:
2750: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP OR
2751: (l_available_quantity > 0 or j =1)
2752: THEN
2753: --- now add demand pegging
2754: IF PG_DEBUG in ('Y', 'C') THEN
2761: j,
2762: item_availability_info,
2763: l_item_cntr);
2764:
2765: IF j =1 OR MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP THEN
2766: --- if it is top org then we add complete quantity
2767: -- dsting or if we're doing diagnostic atp
2768: -- dsting 2754446
2769: l_pegging_rec.supply_demand_quantity:= org_availability_info.demand_quantity(j);
2815: IF PG_DEBUG in ('Y', 'C') THEN
2816: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'after adding Supply and Demand Pegging');
2817: END IF;
2818: --- now add planned order
2819: IF j > 1 and (l_available_quantity > 0 or MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP) THEN
2820: --- we create planned order for tier 2 orgs only
2821: -- we create the planned order in parent org
2822: IF PG_DEBUG in ('Y', 'C') THEN
2823: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'l_available_quantity > 0 or Diagnostic ATP');
2834: IF ((j = org_availability_info.parent_org_idx.count OR
2835: org_availability_info.parent_org_idx(j+1) <>
2836: org_availability_info.parent_org_idx(j)) AND
2837: NOT (l_parent_index = 1 and l_create_supply_on_orig_item = 1)
2838: ) AND MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP
2839: THEN
2840: -- dsting 2754446
2841: l_diag_supply_qty := (org_availability_info.demand_quantity(l_parent_index) -
2842: NVL(org_availability_info.quantity_from_children(l_parent_index), 0) -
2870: OR MSC_ATP_SUBST.G_TOP_LAST_PO_PEGGING = org_availability_info.PO_Pegging_id(j)
2871: THEN
2872:
2873: -- Begin ATP4drp Create Planned Arrivals for DRP plans
2874: IF (NVL(MSC_ATP_PVT.G_PLAN_INFO_REC.plan_type,1) = 5) THEN
2875: l_supply_rec.instance_id := p_atp_record.instance_id;
2876: l_supply_rec.plan_id := org_availability_info.plan_id(l_parent_index);
2877: l_supply_rec.inventory_item_id := org_availability_info.family_dest_id(l_parent_index);
2878: -- DRP Plan re-set to member For time_phased_atp
2969: -- dsting open a planned order supply in the org to balance the
2970: -- demand if it is not a constraint node and its demand is greater than the supply
2971: IF org_availability_info.constraint_type(j) = NOSOURCES_NONCONSTRAINT AND
2972: org_availability_info.demand_quantity(j) > l_available_quantity AND
2973: MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP
2974: THEN
2975:
2976: IF PG_DEBUG in ('Y', 'C') THEN
2977: msc_sch_wb.atp_debug('balance supply/demand for nonconstrained node');
2976: IF PG_DEBUG in ('Y', 'C') THEN
2977: msc_sch_wb.atp_debug('balance supply/demand for nonconstrained node');
2978: END IF;
2979: -- Begin ATP4drp Create Planned Arrivals for DRP plans
2980: IF (NVL(MSC_ATP_PVT.G_PLAN_INFO_REC.plan_type,1) = 5) THEN
2981: l_supply_rec.instance_id := p_atp_record.instance_id;
2982: l_supply_rec.plan_id := org_availability_info.plan_id(l_parent_index);
2983: l_supply_rec.inventory_item_id := org_availability_info.family_dest_id(l_parent_index);
2984: -- DRP Plan re-set to member For time_phased_atp
3099:
3100:
3101: /* --- now set the quantity from children
3102: -- dsting I already got it for diagnostic atp
3103: IF j > 1 AND MSC_ATP_PVT.G_DIAGNOSTIC_ATP <> DIAGNOSTIC_ATP THEN
3104: l_PO_qty := org_availability_info.real_dmd_qty(j)
3105: * org_availability_info.conversion_rate(l_parent_index)
3106: / org_availability_info.conversion_rate(j);
3107:
3221: -- time_phased_atp changes end
3222:
3223: --p_atp_record.End_pegging_id := item_availability_info.End_pegging_id(l_item_cntr);
3224: --- this variable is populated in end_peggign id for this line in procedure schedule
3225: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := item_availability_info.End_pegging_id(l_item_cntr);
3226: l_demand_pegging_id := item_availability_info.End_pegging_id(l_item_cntr);
3227:
3228: p_atp_record.requested_date_quantity := item_availability_info.request_date_quantity(l_item_cntr);
3229: p_atp_record.available_quantity := item_availability_info.request_date_quantity(l_item_cntr);
3285: MSC_ATP_DB_UTILS.Remove_Invalid_SD_Rec(
3286: item_availability_info.End_pegging_id(i),
3287: null,
3288: item_availability_info.plan_id(i),
3289: MSC_ATP_PVT.UNDO,
3290: null,
3291: l_return_status);
3292: END IF;
3293: END LOOP;
3412: ELSE
3413: l_insert_flag := p_atp_record.insert_flag;
3414: END IF;
3415:
3416: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP THEN
3417: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := item_availability_info.end_pegging_id(1);
3418: END IF;
3419:
3420: FOR i in reverse 1..l_item_ctp_info.inventory_item_id.count LOOP
3413: l_insert_flag := p_atp_record.insert_flag;
3414: END IF;
3415:
3416: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP THEN
3417: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := item_availability_info.end_pegging_id(1);
3418: END IF;
3419:
3420: FOR i in reverse 1..l_item_ctp_info.inventory_item_id.count LOOP
3421:
3432: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'end pegging id := ' || l_item_ctp_info.end_pegging_id(i));
3433: END IF;
3434:
3435: -- ALLOC ATP CHANGES, 12973673
3436: IF (MSC_ATP_PVT.G_INV_CTP = 4 AND MSC_ATP_PVT.G_HYBRID_ALLOC_ATP = 'Y') THEN
3437: IF PG_DEBUG in ('Y', 'C') THEN
3438: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_HYBRID_ALLOC_ATP is Y');
3439: END IF;
3440:
3437: IF PG_DEBUG in ('Y', 'C') THEN
3438: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_HYBRID_ALLOC_ATP is Y');
3439: END IF;
3440:
3441: MSC_ATP_PVT.G_ALLOCATED_ATP := MSC_ATP_FUNC.check_alloc_exists(p_atp_record.instance_id,
3442: -1, --PLAN_ID
3443: l_item_ctp_info.sr_inventory_item_id(i),
3444: p_atp_record.organization_id,
3445: nvl(l_requested_ship_date,trunc(sysdate)));
3444: p_atp_record.organization_id,
3445: nvl(l_requested_ship_date,trunc(sysdate)));
3446:
3447: IF PG_DEBUG in ('Y', 'C') THEN
3448: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'MSC_ATP_PVT.G_ALLOCATED_ATP = '||MSC_ATP_PVT.G_ALLOCATED_ATP);
3449: END IF;
3450: END IF;
3451:
3452: IF l_item_ctp_info.atp_comp_flag(i) in ('Y', 'C', 'R') and l_item_ctp_info.create_supply_flag(i) = 1 THEN
3460: -- no need to do uom conversion
3461: l_atp_rec.instance_id := p_atp_record.instance_id;
3462: -- what do we need to do with thie ???
3463: l_atp_rec.demand_source_line := null;
3464: l_atp_rec.identifier := MSC_ATP_PVT.G_ORDER_LINE_ID;
3465: l_atp_rec.component_identifier := null ; --l_comp_requirements.component_identifier(j);
3466:
3467: -- time_phased_atp bug3467631
3468: l_atp_rec.inventory_item_id := l_item_ctp_info.family_sr_id(i);
3505:
3506: l_atp_rec.original_item_flag := 1;
3507: l_atp_rec.top_tier_org_flag := 1;
3508: l_atp_rec.delivery_lead_time := 0;
3509: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := l_item_ctp_info.end_pegging_id(i);
3510: --diag_atp
3511: l_atp_rec.plan_name := l_item_ctp_info.plan_name(i);
3512:
3513: -- dsting diag_atp
3510: --diag_atp
3511: l_atp_rec.plan_name := l_item_ctp_info.plan_name(i);
3512:
3513: -- dsting diag_atp
3514: MSC_ATP_PVT.G_HAVE_MAKE_BUY_PARENT := 0;
3515:
3516: -- bug3467631 done for ship_rec_cal
3517: l_atp_rec.shipping_cal_code := p_atp_record.shipping_cal_code;
3518: l_atp_rec.receiving_cal_code := p_atp_record.receiving_cal_code;
3518: l_atp_rec.receiving_cal_code := p_atp_record.receiving_cal_code;
3519: l_atp_rec.intransit_cal_code := p_atp_record.intransit_cal_code;
3520: l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;
3521:
3522: l_alloc_atp := MSC_ATP_PVT.G_ALLOCATED_ATP; --ALLOC ATP CHANGES, 12973673
3523: MSC_ATP_PVT.ATP_Check(l_atp_rec,
3524: l_plan_id,
3525: p_level ,
3526: p_scenario_id,
3519: l_atp_rec.intransit_cal_code := p_atp_record.intransit_cal_code;
3520: l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;
3521:
3522: l_alloc_atp := MSC_ATP_PVT.G_ALLOCATED_ATP; --ALLOC ATP CHANGES, 12973673
3523: MSC_ATP_PVT.ATP_Check(l_atp_rec,
3524: l_plan_id,
3525: p_level ,
3526: p_scenario_id,
3527: 1,
3530: l_assign_set_id,
3531: l_atp_period,
3532: l_atp_supply_demand,
3533: x_return_status);
3534: IF MSC_ATP_PVT.G_HYBRID_ALLOC_ATP = 'Y' THEN
3535: MSC_ATP_PVT.G_ALLOCATED_ATP := l_alloc_atp; --ALLOC ATP CHANGES, 12973673
3536: END IF;
3537: ELSE
3538: l_atp_rec.requested_date_quantity := 0;
3531: l_atp_period,
3532: l_atp_supply_demand,
3533: x_return_status);
3534: IF MSC_ATP_PVT.G_HYBRID_ALLOC_ATP = 'Y' THEN
3535: MSC_ATP_PVT.G_ALLOCATED_ATP := l_alloc_atp; --ALLOC ATP CHANGES, 12973673
3536: END IF;
3537: ELSE
3538: l_atp_rec.requested_date_quantity := 0;
3539: --Bug 3878343 , set l_atp_period to NULL, incase CTP is not done.
3665: END IF;
3666: -- time_phased_atp changes end
3667: --p_atp_record.End_pegging_id := item_availability_info.End_pegging_id(l_item_cntr);
3668: --- this variable is populated in end_peggign id for this line in procedure schedule
3669: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := l_item_ctp_info.End_pegging_id(i);
3670: l_demand_pegging_id := l_item_ctp_info.End_pegging_id(i);
3671:
3672: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
3673: /* ship_rec_cal
3729: MSC_ATP_DB_UTILS.Remove_Invalid_SD_Rec(
3730: item_availability_info.End_pegging_id(j),
3731: null,
3732: item_availability_info.plan_id(j),
3733: MSC_ATP_PVT.UNDO,
3734: null,
3735: l_return_status);
3736:
3737: END IF; -- IF item_availability_info.inventory_item_id(j) <> l_item_ctp_info.inventory
3743: -- now we have found enough quantity for ordered item as well so we will update the columns
3744: IF PG_DEBUG in ('Y', 'C') THEN
3745: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'demand met by a subst, provide detail for origninal item');
3746: END IF;
3747: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := l_demand_pegging_id;
3748: p_atp_record.req_item_req_date_qty := p_atp_record.quantity_ordered;
3749:
3750: IF NVL(p_atp_record.atp_lead_time, 0) > 0 THEN
3751: /* ship_rec_cal
3789: MSC_ATP_DB_UTILS.Remove_Invalid_SD_Rec(
3790: item_availability_info.End_pegging_id(l_item_count),
3791: null,
3792: item_availability_info.plan_id(l_item_count),
3793: MSC_ATP_PVT.UNDO,
3794: null,
3795: l_return_status);
3796: END IF;
3797:
3853: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'p_atp_record.inventory_item_name: ' || p_atp_record.inventory_item_name );
3854: END IF;
3855:
3856: -- dsting skip Forward scheduling for diagnostic ATP
3857: IF MSC_ATP_PVT.G_DIAGNOSTIC_ATP = DIAGNOSTIC_ATP THEN
3858: IF PG_DEBUG in ('Y', 'C') THEN
3859: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'no forward pass for diagnostic ATP');
3860: END IF;
3861:
3916: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Net demand future case := ' || l_net_demand);
3917: END IF;
3918:
3919: -- ALLOC ATP CHANGES, 12973673
3920: IF (MSC_ATP_PVT.G_INV_CTP = 4 AND MSC_ATP_PVT.G_HYBRID_ALLOC_ATP = 'Y') THEN
3921: IF PG_DEBUG in ('Y', 'C') THEN
3922: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_HYBRID_ALLOC_ATP is Y');
3923: END IF;
3924:
3921: IF PG_DEBUG in ('Y', 'C') THEN
3922: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_HYBRID_ALLOC_ATP is Y');
3923: END IF;
3924:
3925: MSC_ATP_PVT.G_ALLOCATED_ATP := MSC_ATP_FUNC.check_alloc_exists(p_atp_record.instance_id,
3926: -1, --PLAN_ID
3927: item_availability_info.sr_inventory_item_id(i),
3928: p_atp_record.organization_id,
3929: nvl(l_requested_ship_date,trunc(sysdate)));
3928: p_atp_record.organization_id,
3929: nvl(l_requested_ship_date,trunc(sysdate)));
3930:
3931: IF PG_DEBUG in ('Y', 'C') THEN
3932: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'MSC_ATP_PVT.G_ALLOCATED_ATP = '||MSC_ATP_PVT.G_ALLOCATED_ATP);
3933: END IF;
3934: END IF;
3935:
3936: --- first update the demand so that the picture gets adjusted
3996: /* To support new logic for dependent demands allocation in time phased PF rule based AATP scenarios
3997: Set global variable. This is used in Get_Item_Demand_Alloc_Percent function*/
3998: IF item_availability_info.atf_date(i) is not null THEN
3999: /* Set global variable. This is used in Get_Item_Demand_Alloc_Percent function*/
4000: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'Y';
4001: ELSE
4002: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'N';
4003: END IF;
4004:
3998: IF item_availability_info.atf_date(i) is not null THEN
3999: /* Set global variable. This is used in Get_Item_Demand_Alloc_Percent function*/
4000: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'Y';
4001: ELSE
4002: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'N';
4003: END IF;
4004:
4005: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4006: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4001: ELSE
4002: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'N';
4003: END IF;
4004:
4005: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4006: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4007: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) THEN
4008:
4009: IF PG_DEBUG in ('Y', 'C') THEN
4002: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'N';
4003: END IF;
4004:
4005: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4006: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4007: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) THEN
4008:
4009: IF PG_DEBUG in ('Y', 'C') THEN
4010: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Allocated ATP with demand priority');
4003: END IF;
4004:
4005: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4006: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4007: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) THEN
4008:
4009: IF PG_DEBUG in ('Y', 'C') THEN
4010: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Allocated ATP with demand priority');
4011: END IF;
4009: IF PG_DEBUG in ('Y', 'C') THEN
4010: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Allocated ATP with demand priority');
4011: END IF;
4012: ---forward steal
4013: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := item_availability_info.end_pegging_id(i);
4014:
4015: -- dsting setting global item_attributes so get_forward_material_atp populates the
4016: -- item attributes in pegging. Since G_ITEM_INFO_REC may not be the
4017: -- item we are processing (ie a substitute)
4014:
4015: -- dsting setting global item_attributes so get_forward_material_atp populates the
4016: -- item attributes in pegging. Since G_ITEM_INFO_REC may not be the
4017: -- item we are processing (ie a substitute)
4018: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i); --bug3467631
4019: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4020: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4021: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i); --6719242
4022: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4015: -- dsting setting global item_attributes so get_forward_material_atp populates the
4016: -- item attributes in pegging. Since G_ITEM_INFO_REC may not be the
4017: -- item we are processing (ie a substitute)
4018: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i); --bug3467631
4019: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4020: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4021: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i); --6719242
4022: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4023: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4016: -- item attributes in pegging. Since G_ITEM_INFO_REC may not be the
4017: -- item we are processing (ie a substitute)
4018: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i); --bug3467631
4019: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4020: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4021: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i); --6719242
4022: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4023: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4024: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4017: -- item we are processing (ie a substitute)
4018: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i); --bug3467631
4019: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4020: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4021: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i); --6719242
4022: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4023: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4024: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4025: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4018: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i); --bug3467631
4019: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4020: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4021: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i); --6719242
4022: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4023: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4024: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4025: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4026: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4019: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4020: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4021: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i); --6719242
4022: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4023: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4024: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4025: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4026: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4027: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4020: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4021: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i); --6719242
4022: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4023: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4024: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4025: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4026: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4027: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4028: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4021: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i); --6719242
4022: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4023: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4024: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4025: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4026: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4027: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4028: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4029: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4022: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4023: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4024: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4025: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4026: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4027: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4028: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4029: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4030: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4023: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4024: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4025: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4026: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4027: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4028: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4029: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4030: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4031: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4024: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4025: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4026: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4027: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4028: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4029: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4030: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4031: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4032: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4025: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4026: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4027: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4028: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4029: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4030: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4031: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4032: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4033: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4026: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4027: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4028: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4029: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4030: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4031: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4032: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4033: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4034: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4027: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4028: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4029: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4030: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4031: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4032: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4033: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4034: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4035: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4028: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4029: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4030: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4031: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4032: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4033: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4034: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4035: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4036: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4029: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4030: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4031: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4032: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4033: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4034: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4035: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4036: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4037: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := NULL;
4030: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4031: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4032: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4033: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4034: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4035: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4036: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4037: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := NULL;
4038:
4031: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4032: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4033: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4034: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4035: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4036: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4037: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := NULL;
4038:
4039: MSC_AATP_REQ.Get_Forward_Material_Atp(
4032: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4033: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4034: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4035: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4036: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4037: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := NULL;
4038:
4039: MSC_AATP_REQ.Get_Forward_Material_Atp(
4040: p_atp_record.instance_id,
4033: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4034: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4035: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4036: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4037: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := NULL;
4038:
4039: MSC_AATP_REQ.Get_Forward_Material_Atp(
4040: p_atp_record.instance_id,
4041: item_availability_info.plan_id(i),
4084: ELSE
4085: IF PG_DEBUG in ('Y', 'C') THEN
4086: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'ATP without demand priority allocated ATP');
4087: END IF;
4088: --bug3467631 Inside Forward Scheduling re-initializing MSC_ATP_PVT.G_ITEM_INFO_REC
4089: --otherwise it will have substitute's values even when we are processing member item.
4090: --bug3467631 start
4091: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i);
4092: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i);
4087: END IF;
4088: --bug3467631 Inside Forward Scheduling re-initializing MSC_ATP_PVT.G_ITEM_INFO_REC
4089: --otherwise it will have substitute's values even when we are processing member item.
4090: --bug3467631 start
4091: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i);
4092: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i);
4093: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4094: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4095: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4088: --bug3467631 Inside Forward Scheduling re-initializing MSC_ATP_PVT.G_ITEM_INFO_REC
4089: --otherwise it will have substitute's values even when we are processing member item.
4090: --bug3467631 start
4091: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i);
4092: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i);
4093: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4094: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4095: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4096: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4089: --otherwise it will have substitute's values even when we are processing member item.
4090: --bug3467631 start
4091: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i);
4092: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i);
4093: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4094: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4095: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4096: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4097: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4090: --bug3467631 start
4091: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i);
4092: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i);
4093: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4094: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4095: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4096: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4097: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4098: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4091: MSC_ATP_PVT.G_ITEM_INFO_REC.product_family_id := item_availability_info.family_dest_id(i);
4092: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i);
4093: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4094: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4095: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4096: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4097: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4098: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4099: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4092: MSC_ATP_PVT.G_ITEM_INFO_REC.inventory_item_id := item_availability_info.inventory_item_id(i);
4093: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4094: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4095: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4096: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4097: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4098: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4099: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4100: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4093: MSC_ATP_PVT.G_ITEM_INFO_REC.dest_inv_item_id := item_availability_info.inventory_item_id(i); --6719242
4094: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4095: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4096: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4097: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4098: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4099: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4100: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4101: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4094: MSC_ATP_PVT.G_ITEM_INFO_REC.item_name := item_availability_info.item_name(i); --6719242
4095: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4096: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4097: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4098: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4099: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4100: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4101: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4102: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4095: MSC_ATP_PVT.G_ITEM_INFO_REC.sr_inv_item_id := item_availability_info.sr_inventory_item_id(i); --6719242
4096: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4097: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4098: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4099: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4100: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4101: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4102: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4103: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4096: MSC_ATP_PVT.G_ITEM_INFO_REC.instance_id := p_atp_record.instance_id; --6719242
4097: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4098: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4099: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4100: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4101: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4102: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4103: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4104: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4097: MSC_ATP_PVT.G_ITEM_INFO_REC.organization_id := p_atp_record.organization_id; --6719242
4098: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4099: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4100: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4101: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4102: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4103: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4104: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4105: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4098: MSC_ATP_PVT.G_ITEM_INFO_REC.plan_id := item_availability_info.plan_id(i); --6719242
4099: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4100: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4101: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4102: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4103: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4104: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4105: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4106: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4099: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_flag := item_availability_info.atp_flag(i);
4100: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4101: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4102: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4103: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4104: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4105: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4106: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4107: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4100: MSC_ATP_PVT.G_ITEM_INFO_REC.atp_comp_flag := item_availability_info.atp_comp_flag(i);
4101: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4102: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4103: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4104: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4105: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4106: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4107: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4108: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4101: MSC_ATP_PVT.G_ITEM_INFO_REC.pre_pro_lt := item_availability_info.pre_pro_lt(i);
4102: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4103: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4104: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4105: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4106: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4107: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4108: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4109: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4102: MSC_ATP_PVT.G_ITEM_INFO_REC.post_pro_lt := item_availability_info.post_pro_lt(i);
4103: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4104: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4105: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4106: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4107: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4108: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4109: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4110: --bug3467631 end
4103: MSC_ATP_PVT.G_ITEM_INFO_REC.fixed_lt := item_availability_info.fixed_lt(i);
4104: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4105: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4106: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4107: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4108: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4109: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4110: --bug3467631 end
4111: -- time_phased_atp changes begin
4104: MSC_ATP_PVT.G_ITEM_INFO_REC.variable_lt := item_availability_info.variable_lt(i);
4105: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4106: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4107: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4108: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4109: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4110: --bug3467631 end
4111: -- time_phased_atp changes begin
4112: l_mat_atp_info_rec.instance_id := p_atp_record.instance_id;
4105: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_weight := item_availability_info.unit_weight(i);
4106: MSC_ATP_PVT.G_ITEM_INFO_REC.unit_volume := item_availability_info.unit_volume(i);
4107: MSC_ATP_PVT.G_ITEM_INFO_REC.weight_uom := item_availability_info.weight_uom(i);
4108: MSC_ATP_PVT.G_ITEM_INFO_REC.volume_uom := item_availability_info.volume_uom(i);
4109: MSC_ATP_PVT.G_ITEM_INFO_REC.substitution_window := item_availability_info.substitution_window(i);
4110: --bug3467631 end
4111: -- time_phased_atp changes begin
4112: l_mat_atp_info_rec.instance_id := p_atp_record.instance_id;
4113: l_mat_atp_info_rec.plan_id := item_availability_info.plan_id(i);
4208: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'l_atp_date_this_level := ' || l_atp_date_this_level);
4209: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'l_atp_date_quantity_this_level := ' || l_atp_date_quantity_this_level);
4210: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'l_atf_date_qty := ' || l_atf_date_qty); --bug3467631
4211: END IF;
4212: END IF; --- IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4213: --bug3467631 start
4214: --added to set atf_date_quantity for item
4215: IF l_mat_atp_info_rec.requested_date > l_mat_atp_info_rec.atf_date THEN
4216: item_availability_info.atf_date_quantity(i) :=
4229: -- time_phased_atp
4230: item_availability_info.used_available_quantity(i) :=
4231: LEAST(GREATEST(l_used_available_quantity, 0) +
4232: GREATEST(item_availability_info.request_date_quantity(i),0),
4233: MSC_ATP_PVT.INFINITE_NUMBER);--bug3467631
4234: IF PG_DEBUG in ('Y', 'C') THEN --bug3467631
4235: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'item_availability_info.atf_date_quantity(i) := ' ||
4236: item_availability_info.atf_date_quantity(i)); --bug3467631
4237: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'item_availability_info.used_available_quantity(i) := ' ||
4276: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Future atp date :=' || item_availability_info.future_atp_date(i));
4277: END IF;
4278:
4279: -- ALLOC ATP CHANGES, 12973673
4280: IF (MSC_ATP_PVT.G_INV_CTP = 4 AND MSC_ATP_PVT.G_HYBRID_ALLOC_ATP = 'Y') THEN
4281: IF PG_DEBUG in ('Y', 'C') THEN
4282: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_HYBRID_ALLOC_ATP is Y');
4283: END IF;
4284:
4281: IF PG_DEBUG in ('Y', 'C') THEN
4282: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_HYBRID_ALLOC_ATP is Y');
4283: END IF;
4284:
4285: MSC_ATP_PVT.G_ALLOCATED_ATP := MSC_ATP_FUNC.check_alloc_exists(p_atp_record.instance_id,
4286: -1, --PLAN_ID
4287: l_item_ctp_info.sr_inventory_item_id(i),
4288: p_atp_record.organization_id,
4289: nvl(l_requested_ship_date,trunc(sysdate)));
4288: p_atp_record.organization_id,
4289: nvl(l_requested_ship_date,trunc(sysdate)));
4290:
4291: IF PG_DEBUG in ('Y', 'C') THEN
4292: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'MSC_ATP_PVT.G_ALLOCATED_ATP = '||MSC_ATP_PVT.G_ALLOCATED_ATP);
4293: END IF;
4294: END IF;
4295:
4296: IF l_item_ctp_info.atp_comp_flag(i) in ('Y', 'C', 'R') and l_item_ctp_info.create_supply_flag(i) = 1 THEN
4327: -- no need to do uom conversion
4328: l_atp_rec.instance_id := p_atp_record.instance_id;
4329: -- what do we need to do with thie ???
4330: l_atp_rec.demand_source_line := null;
4331: l_atp_rec.identifier := MSC_ATP_PVT.G_ORDER_LINE_ID;
4332: --- what do we do with this??
4333: l_atp_rec.component_identifier := null; -- l_comp_requirements.component_identifier(j);
4334:
4335: -- time_phased_atp
4363:
4364: --diag_atp: pass the plan name so that if PO are created then plan_name is used for pegging
4365: l_atp_rec.plan_name := l_item_ctp_info.plan_name(i);
4366:
4367: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := l_item_ctp_info.end_pegging_id(i);
4368: l_atp_rec.top_tier_org_flag := 1;
4369: l_atp_rec.original_item_flag := 1;
4370: -- bug3467631 done for ship_rec_cal
4371: l_atp_rec.shipping_cal_code := p_atp_record.shipping_cal_code;
4372: l_atp_rec.receiving_cal_code := p_atp_record.receiving_cal_code;
4373: l_atp_rec.intransit_cal_code := p_atp_record.intransit_cal_code;
4374: l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;
4375:
4376: l_alloc_atp := MSC_ATP_PVT.G_ALLOCATED_ATP; --ALLOC ATP CHANGES, 12973673
4377:
4378: MSC_ATP_PVT.ATP_Check(l_atp_rec,
4379: l_plan_id,
4380: p_level ,
4374: l_atp_rec.manufacturing_cal_code := p_atp_record.manufacturing_cal_code;
4375:
4376: l_alloc_atp := MSC_ATP_PVT.G_ALLOCATED_ATP; --ALLOC ATP CHANGES, 12973673
4377:
4378: MSC_ATP_PVT.ATP_Check(l_atp_rec,
4379: l_plan_id,
4380: p_level ,
4381: p_scenario_id,
4382: 2, -- forward schedulling
4385: l_assign_set_id,
4386: l_atp_period,
4387: l_atp_supply_demand,
4388: x_return_status);
4389: IF MSC_ATP_PVT.G_HYBRID_ALLOC_ATP = 'Y' THEN
4390: MSC_ATP_PVT.G_ALLOCATED_ATP := l_alloc_atp; --ALLOC ATP CHANGES, 12973673
4391: END IF;
4392:
4393: IF PG_DEBUG in ('Y', 'C') THEN
4386: l_atp_period,
4387: l_atp_supply_demand,
4388: x_return_status);
4389: IF MSC_ATP_PVT.G_HYBRID_ALLOC_ATP = 'Y' THEN
4390: MSC_ATP_PVT.G_ALLOCATED_ATP := l_alloc_atp; --ALLOC ATP CHANGES, 12973673
4391: END IF;
4392:
4393: IF PG_DEBUG in ('Y', 'C') THEN
4394: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Date from multi level CTP := ' || l_atp_rec.ship_date);
4436: item_availability_info.future_atp_date(l_item_idx) := l_atp_rec.ship_date;
4437: item_availability_info.atp_date_quantity(l_item_idx) :=
4438: l_atp_rec.available_quantity;
4439: ---- remove forward stealing pegging
4440: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4441: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4442: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) THEN
4443:
4444: --- recreate forward pegging array
4437: item_availability_info.atp_date_quantity(l_item_idx) :=
4438: l_atp_rec.available_quantity;
4439: ---- remove forward stealing pegging
4440: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4441: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4442: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) THEN
4443:
4444: --- recreate forward pegging array
4445: l_atp_pegging_tab.delete;
4438: l_atp_rec.available_quantity;
4439: ---- remove forward stealing pegging
4440: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4441: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4442: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) THEN
4443:
4444: --- recreate forward pegging array
4445: l_atp_pegging_tab.delete;
4446: IF PG_DEBUG in ('Y', 'C') THEN
4463: --- going down is worse than date on this level.
4464: --- we remove pegging and supply demands
4465: IF PG_DEBUG in ('Y', 'C') THEN
4466: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Staying on this level is OK. We remove pegging for current level');
4467: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_FUTURE_PEGGING_ID := ' || MSC_ATP_PVT.G_FUTURE_PEGGING_ID);
4468: END IF;
4469: MSC_ATP_DB_UTILS.Remove_Invalid_SD_Rec(
4470: MSC_ATP_PVT.G_FUTURE_PEGGING_ID,
4471: null,
4466: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Staying on this level is OK. We remove pegging for current level');
4467: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'G_FUTURE_PEGGING_ID := ' || MSC_ATP_PVT.G_FUTURE_PEGGING_ID);
4468: END IF;
4469: MSC_ATP_DB_UTILS.Remove_Invalid_SD_Rec(
4470: MSC_ATP_PVT.G_FUTURE_PEGGING_ID,
4471: null,
4472: l_plan_id,
4473: MSC_ATP_PVT.UNDO,
4474: null,
4469: MSC_ATP_DB_UTILS.Remove_Invalid_SD_Rec(
4470: MSC_ATP_PVT.G_FUTURE_PEGGING_ID,
4471: null,
4472: l_plan_id,
4473: MSC_ATP_PVT.UNDO,
4474: null,
4475: l_return_status);
4476:
4477:
4497:
4498: IF (l_org_item_detail_flag = 1 AND l_satisfied_by_subst_flag = 1) THEN
4499: -- demand has already beed satisfied by a substitute
4500: --- so we just add data for original item
4501: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := l_demand_pegging_id;
4502: p_atp_record.request_item_id := item_availability_info.sr_inventory_item_id(l_item_count);
4503: p_atp_record.req_item_req_date_qty := item_availability_info.request_date_quantity(l_item_count);
4504:
4505: --p_atp_record.req_item_available_date := item_availability_info.future_atp_date(l_item_count);
4527: --p_atp_record.request_item_name := item_availability_info.item_name(l_item_count); --bug3467631
4528: --p_atp_record.original_item_name := item_availability_info.item_name(l_item_count);
4529:
4530: ---- remove forward stealing pegging
4531: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4532: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4533: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) AND
4534: item_availability_info.atp_flag(l_item_count) in ('Y', 'C') THEN
4535:
4528: --p_atp_record.original_item_name := item_availability_info.item_name(l_item_count);
4529:
4530: ---- remove forward stealing pegging
4531: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4532: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4533: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) AND
4534: item_availability_info.atp_flag(l_item_count) in ('Y', 'C') THEN
4535:
4536: --- recreate forward pegging array
4529:
4530: ---- remove forward stealing pegging
4531: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4532: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4533: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) AND
4534: item_availability_info.atp_flag(l_item_count) in ('Y', 'C') THEN
4535:
4536: --- recreate forward pegging array
4537: l_atp_pegging_tab.delete;
4555: MSC_ATP_DB_UTILS.Remove_Invalid_SD_Rec(
4556: item_availability_info.End_pegging_id(l_item_count),
4557: null,
4558: item_availability_info.plan_id(l_item_count),
4559: MSC_ATP_PVT.UNDO,
4560: null,
4561: l_return_status);
4562:
4563: ELSE
4613: IF PG_DEBUG in ('Y', 'C') THEN
4614: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'p_atp_record.inventory_item_id := '|| p_atp_record.inventory_item_id);
4615: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'end_pegging_id := ' || item_availability_info.end_pegging_id(l_item_idx));
4616: END IF;
4617: MSC_ATP_PVT.G_DEMAND_PEGGING_ID := item_availability_info.end_pegging_id(l_item_idx);
4618:
4619: --- now populate the info for original item
4620: -- time_phased_atp
4621: --bug3709707 atf_date also populated so that correct atf date is returned to schedule
4689: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'item is non-atpable, dont do pegging');
4690: END IF;
4691: ELSE
4692: ---forward steal: demand has already been created, we dont want to create it again
4693: IF NOT((MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4694: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4695: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
4696: IF PG_DEBUG in ('Y', 'C') THEN
4697: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Add pegging and s/d details for SRS');
4690: END IF;
4691: ELSE
4692: ---forward steal: demand has already been created, we dont want to create it again
4693: IF NOT((MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4694: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4695: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
4696: IF PG_DEBUG in ('Y', 'C') THEN
4697: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Add pegging and s/d details for SRS');
4698: END IF;
4691: ELSE
4692: ---forward steal: demand has already been created, we dont want to create it again
4693: IF NOT((MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4694: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4695: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
4696: IF PG_DEBUG in ('Y', 'C') THEN
4697: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Add pegging and s/d details for SRS');
4698: END IF;
4699:
4696: IF PG_DEBUG in ('Y', 'C') THEN
4697: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Add pegging and s/d details for SRS');
4698: END IF;
4699:
4700: l_pegging_rec.session_id:= MSC_ATP_PVT.G_SESSION_ID;
4701: l_pegging_rec.order_line_id:= MSC_ATP_PVT.G_ORDER_LINE_ID;
4702: l_pegging_rec.parent_pegging_id:= item_availability_info.end_pegging_id(l_item_idx);
4703: l_pegging_rec.pegging_id := item_availability_info.future_supply_peg_id(l_item_idx);
4704: l_pegging_rec.end_pegging_id := item_availability_info.end_pegging_id(l_item_idx);
4697: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Add pegging and s/d details for SRS');
4698: END IF;
4699:
4700: l_pegging_rec.session_id:= MSC_ATP_PVT.G_SESSION_ID;
4701: l_pegging_rec.order_line_id:= MSC_ATP_PVT.G_ORDER_LINE_ID;
4702: l_pegging_rec.parent_pegging_id:= item_availability_info.end_pegging_id(l_item_idx);
4703: l_pegging_rec.pegging_id := item_availability_info.future_supply_peg_id(l_item_idx);
4704: l_pegging_rec.end_pegging_id := item_availability_info.end_pegging_id(l_item_idx);
4705: l_pegging_rec.atp_level:= p_level + 1;
4739: l_pegging_rec.supplier_name := NULL;
4740: l_pegging_rec.supplier_site_id := NULL;
4741: l_pegging_rec.supplier_site_name := NULL;
4742: l_pegging_rec.scenario_id:= p_scenario_id;
4743: l_pegging_rec.supply_demand_source_type:= MSC_ATP_PVT.ATP;
4744: l_pegging_rec.supply_demand_quantity:= item_availability_info.atp_date_quantity(l_item_idx);
4745: l_pegging_rec.supply_demand_date:= item_availability_info.future_atp_date(l_item_idx);
4746: l_pegging_rec.supply_demand_type:= 2;
4747: l_pegging_rec.source_type := 0;
4745: l_pegging_rec.supply_demand_date:= item_availability_info.future_atp_date(l_item_idx);
4746: l_pegging_rec.supply_demand_type:= 2;
4747: l_pegging_rec.source_type := 0;
4748: l_pegging_rec.component_identifier :=
4749: NVL(p_atp_record.component_identifier, MSC_ATP_PVT.G_COMP_LINE_ID);
4750:
4751: l_pegging_rec.constraint_flag := 'N';
4752:
4753:
4750:
4751: l_pegging_rec.constraint_flag := 'N';
4752:
4753:
4754: l_pegging_rec.summary_flag := MSC_ATP_PVT.G_SUMMARY_FLAG;
4755: l_pegging_rec.request_item_id := p_atp_record.request_item_id;
4756:
4757: MSC_ATP_SUBST.add_pegging(l_pegging_rec);
4758: IF PG_DEBUG in ('Y', 'C') THEN
4767: x_atp_period,
4768: x_atp_supply_demand,
4769: l_return_status);
4770: END IF;
4771: END IF; -- IF NOT((MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4772: END IF;
4773: --- now delete pegging and supply demand info
4774: IF PG_DEBUG in ('Y', 'C') THEN
4775: msc_Sch_wb.atp_debug('ATP_Check_Subst: ' || 'Remove pegging and supply demand details for all items');
4792: msc_sch_wb.atp_debug('ATP_Check_Subst: ' || 'Remove Pegging for item := '
4793: || item_availability_info.inventory_item_id(j));
4794: END IF;
4795: ---- remove forward stealing pegging
4796: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4797: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4798: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) AND
4799: (item_availability_info.atp_flag(j) in ('Y', 'C')) THEN
4800:
4793: || item_availability_info.inventory_item_id(j));
4794: END IF;
4795: ---- remove forward stealing pegging
4796: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4797: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4798: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) AND
4799: (item_availability_info.atp_flag(j) in ('Y', 'C')) THEN
4800:
4801: --- recreate forward pegging array
4794: END IF;
4795: ---- remove forward stealing pegging
4796: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
4797: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
4798: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) AND
4799: (item_availability_info.atp_flag(j) in ('Y', 'C')) THEN
4800:
4801: --- recreate forward pegging array
4802: l_atp_pegging_tab.delete;
4819: MSC_ATP_DB_UTILS.Remove_Invalid_SD_Rec(
4820: item_availability_info.End_pegging_id(j),
4821: null,
4822: item_availability_info.plan_id(j),
4823: MSC_ATP_PVT.UNDO,
4824: null,
4825: l_return_status);
4826:
4827: END IF; -- IF item_availability_info.inventory_item_id(j) <> l_item_ctp_info.inventory
4836: IF ((NVL(l_org_item_detail_flag, -1) <>1 OR NVL(l_satisfied_by_subst_flag,-1) <> 1)) THEN
4837:
4838: IF item_availability_info.atp_flag(l_item_idx) = 'N'
4839: and item_availability_info.atp_comp_flag(l_item_idx) = 'N' THEN
4840: p_atp_record.error_code := MSC_ATP_PVT.ATP_NOT_APPL;
4841: --- if item we used to satify the demand is non-atpable then we want to show thate error
4842: -- we will come here only if date is apps due
4843: ELSE
4844: IF PG_DEBUG in ('Y', 'C') THEN
4844: IF PG_DEBUG in ('Y', 'C') THEN
4845: msc_Sch_wb.atp_debug('ATP_Check_Subst: ' || 'Set error code');
4846: END IF;
4847: IF p_atp_record.ship_date is not NULL THEN
4848: p_atp_record.error_code := MSC_ATP_PVT.ATP_REQ_DATE_FAIL;
4849:
4850: ELSE
4851: p_atp_record.error_code := MSC_ATP_PVT.ATP_REQ_QTY_FAIL;
4852: END IF;
4847: IF p_atp_record.ship_date is not NULL THEN
4848: p_atp_record.error_code := MSC_ATP_PVT.ATP_REQ_DATE_FAIL;
4849:
4850: ELSE
4851: p_atp_record.error_code := MSC_ATP_PVT.ATP_REQ_QTY_FAIL;
4852: END IF;
4853: END IF;
4854: END IF;
4855:
4858: null;
4859: END IF ; --- if l_substitution_type = ALL_OR_NOTHING THEN
4860: EXCEPTION
4861:
4862: WHEN MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL THEN --bug3583705
4863: IF PG_DEBUG in ('Y', 'C') THEN
4864: msc_sch_wb.atp_debug('MAtching cal date not found, in atp_check_subs');
4865: END IF;
4866: p_atp_record.error_code := MSC_ATP_PVT.NO_MATCHING_CAL_DATE;
4862: WHEN MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL THEN --bug3583705
4863: IF PG_DEBUG in ('Y', 'C') THEN
4864: msc_sch_wb.atp_debug('MAtching cal date not found, in atp_check_subs');
4865: END IF;
4866: p_atp_record.error_code := MSC_ATP_PVT.NO_MATCHING_CAL_DATE;
4867: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
4868:
4869: WHEN OTHERS THEN
4870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4863: IF PG_DEBUG in ('Y', 'C') THEN
4864: msc_sch_wb.atp_debug('MAtching cal date not found, in atp_check_subs');
4865: END IF;
4866: p_atp_record.error_code := MSC_ATP_PVT.NO_MATCHING_CAL_DATE;
4867: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
4868:
4869: WHEN OTHERS THEN
4870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4871:
4870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4871:
4872: -- dsting set error_code
4873: --bug3583705 start
4874: --p_atp_record.error_code := MSC_ATP_PVT.ATP_PROCESSING_ERROR;
4875: /* Check if this is actually coming from a calendar routine*/
4876: l_encoded_text := fnd_message.GET_ENCODED;
4877: IF l_encoded_text IS NULL THEN
4878: l_msg_app := NULL;
4883:
4884: -- Error Handling Changes
4885: IF (p_atp_record.error_code IS NULL) or (p_atp_record.error_code IN (0,61,150)) THEN
4886: IF l_msg_app='MRP' AND l_msg_name='GEN-DATE OUT OF BOUNDS' THEN
4887: p_atp_record.error_code := MSC_ATP_PVT.NO_MATCHING_CAL_DATE;
4888: IF PG_DEBUG in ('Y', 'C') THEN
4889: msc_sch_wb.atp_debug('ATP_CHECK_SUBS: NO_MATCHING_CAL_DATE');
4890: END IF;
4891: ELSE
4888: IF PG_DEBUG in ('Y', 'C') THEN
4889: msc_sch_wb.atp_debug('ATP_CHECK_SUBS: NO_MATCHING_CAL_DATE');
4890: END IF;
4891: ELSE
4892: p_atp_record.error_code := MSC_ATP_PVT.ATP_PROCESSING_ERROR; -- ATP Processing Error
4893: IF PG_DEBUG in ('Y', 'C') THEN
4894: msc_sch_wb.atp_debug('ATP_CHECK_SUBS: ATP_PROCESSING_ERROR');
4895: END IF;
4896: END IF;
4911:
4912: MSC_ATP_DB_UTILS.Remove_Invalid_SD_Rec(item_availability_info.end_pegging_id(i),
4913: null,
4914: item_availability_info.plan_id(i),
4915: MSC_ATP_PVT.UNDO,
4916: null,
4917: l_return_status);
4918:
4919: END LOOP;
4918:
4919: END LOOP;
4920:
4921: IF l_msg_app='MRP' AND l_msg_name='GEN-DATE OUT OF BOUNDS' THEN --bug3583705
4922: RAISE MSC_ATP_PVT.NO_MATCHING_DATE_IN_CAL;
4923: ELSE
4924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4925: END IF;
4926: END ATP_Check_Subst;
4959:
4960: l_request_date := trunc(p_request_date);
4961:
4962: IF PG_DEBUG in ('Y', 'C') THEN
4963: msc_sch_wb.atp_debug('Get_Item_Substitutes: ' || 'G_HIERARCHY_PROFILE = '||MSC_ATP_PVT.G_HIERARCHY_PROFILE);
4964: END IF;
4965: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 2) THEN
4966: IF PG_DEBUG in ('Y', 'C') THEN
4967: msc_sch_wb.atp_debug('Get_Item_Substitutes: ' || 'Customer class alloc atp. Set the local varibale from global var');
4961:
4962: IF PG_DEBUG in ('Y', 'C') THEN
4963: msc_sch_wb.atp_debug('Get_Item_Substitutes: ' || 'G_HIERARCHY_PROFILE = '||MSC_ATP_PVT.G_HIERARCHY_PROFILE);
4964: END IF;
4965: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 2) THEN
4966: IF PG_DEBUG in ('Y', 'C') THEN
4967: msc_sch_wb.atp_debug('Get_Item_Substitutes: ' || 'Customer class alloc atp. Set the local varibale from global var');
4968: END IF;
4969: l_customer_id := MSC_ATP_PVT.G_PARTNER_ID;
4965: IF (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 2) THEN
4966: IF PG_DEBUG in ('Y', 'C') THEN
4967: msc_sch_wb.atp_debug('Get_Item_Substitutes: ' || 'Customer class alloc atp. Set the local varibale from global var');
4968: END IF;
4969: l_customer_id := MSC_ATP_PVT.G_PARTNER_ID;
4970: l_customer_site_id := MSC_ATP_PVT.G_PARTNER_SITE_ID;
4971: ELSIF p_customer_id is not null
4972: --and p_customer_site_id is not null
4973: THEN
4966: IF PG_DEBUG in ('Y', 'C') THEN
4967: msc_sch_wb.atp_debug('Get_Item_Substitutes: ' || 'Customer class alloc atp. Set the local varibale from global var');
4968: END IF;
4969: l_customer_id := MSC_ATP_PVT.G_PARTNER_ID;
4970: l_customer_site_id := MSC_ATP_PVT.G_PARTNER_SITE_ID;
4971: ELSIF p_customer_id is not null
4972: --and p_customer_site_id is not null
4973: THEN
4974:
5437: IF PG_DEBUG in ('Y', 'C') THEN
5438: msc_sch_wb.atp_debug('Update_demand: ' || 'Number of Rows Updated := ' || SQL%ROWCOUNT);
5439: END IF;
5440:
5441: IF MSC_ATP_PVT.G_INV_CTP = 4 and MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y'
5442: AND MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 1 THEN
5443:
5444: IF PG_DEBUG in ('Y', 'C') THEN
5445: msc_sch_wb.atp_debug('Update_demand: ' || 'Update preallocated demand');
5438: msc_sch_wb.atp_debug('Update_demand: ' || 'Number of Rows Updated := ' || SQL%ROWCOUNT);
5439: END IF;
5440:
5441: IF MSC_ATP_PVT.G_INV_CTP = 4 and MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y'
5442: AND MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 1 THEN
5443:
5444: IF PG_DEBUG in ('Y', 'C') THEN
5445: msc_sch_wb.atp_debug('Update_demand: ' || 'Update preallocated demand');
5446: END IF;
5477: IF PG_DEBUG in ('Y', 'C') THEN
5478: msc_sch_wb.atp_debug('Delete_demand_subst: ' || 'Number of Rows deleted := ' || SQL%ROWCOUNT);
5479: END IF;
5480:
5481: IF MSC_ATP_PVT.G_INV_CTP = 4 and MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y'
5482: AND MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 1 THEN
5483:
5484: IF PG_DEBUG in ('Y', 'C') THEN
5485: msc_sch_wb.atp_debug('Delete_demand_subst: ' || 'Delete Allocated demand');
5478: msc_sch_wb.atp_debug('Delete_demand_subst: ' || 'Number of Rows deleted := ' || SQL%ROWCOUNT);
5479: END IF;
5480:
5481: IF MSC_ATP_PVT.G_INV_CTP = 4 and MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y'
5482: AND MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 1 THEN
5483:
5484: IF PG_DEBUG in ('Y', 'C') THEN
5485: msc_sch_wb.atp_debug('Delete_demand_subst: ' || 'Delete Allocated demand');
5486: END IF;
5629: p_pegging_rec.supply_demand_source_type,
5630: p_pegging_rec.supply_demand_quantity,
5631: p_pegging_rec.supply_demand_type,
5632: p_pegging_rec.supply_demand_date,
5633: --NVL(MSC_ATP_PVT.G_DEMAND_PEGGING_ID, msc_full_pegging_s.currval),
5634: p_pegging_rec.end_pegging_id,
5635: p_pegging_rec.constraint_flag,
5636: p_pegging_rec.allocated_quantity, -- 1527660
5637: p_pegging_rec.number1,
5666: -- p_pegging_rec.REQUIRED_DATE,
5667: -- Bug 2748730. Move the required_date to day end only when the pegging is for demand line
5668: -- This is applicable irrespective of whether the line is overridden or not
5669: DECODE(p_pegging_rec.supply_demand_type,
5670: 1, TRUNC(p_pegging_rec.REQUIRED_DATE) + MSC_ATP_PVT.G_END_OF_DAY,
5671: p_pegging_rec.REQUIRED_DATE),
5672: p_pegging_rec.OPERATION_SEQUENCE_ID,
5673: p_pegging_rec.SOURCING_RULE_NAME,
5674: p_pegging_rec.OFFSET,
6133: ---STOLEN_FLAG) -- 02/16: Stealing
6134: VALUES(
6135: msc_demands_s.nextval,
6136: p_atp_rec.quantity_ordered,
6137: TRUNC(p_atp_rec.requested_ship_date) + MSC_ATP_PVT.G_END_OF_DAY , -- For bug 2259824
6138: 1, -- discrete demand
6139: p_atp_rec.origination_type,
6140: p_atp_rec.inventory_item_id,
6141: p_plan_id,
6154: 30, p_atp_rec.order_number,
6155: null),
6156: decode(p_atp_rec.origination_type, 6, 2, 30, 2, null),
6157: decode(p_atp_rec.origination_type, 6, 0, 30, 0, null),
6158: MSC_ATP_PVT.G_PARTNER_ID,
6159: MSC_ATP_PVT.G_PARTNER_SITE_ID,
6160: p_atp_rec.request_item_id,
6161: l_record_source) -- For plan order pegging
6162: --1657855, remove support for min allocation
6155: null),
6156: decode(p_atp_rec.origination_type, 6, 2, 30, 2, null),
6157: decode(p_atp_rec.origination_type, 6, 0, 30, 0, null),
6158: MSC_ATP_PVT.G_PARTNER_ID,
6159: MSC_ATP_PVT.G_PARTNER_SITE_ID,
6160: p_atp_rec.request_item_id,
6161: l_record_source) -- For plan order pegging
6162: --1657855, remove support for min allocation
6163: ---p_atp_rec.stolen_flag)
6164: RETURNING DEMAND_ID INTO x_demand_id;
6165: IF PG_DEBUG in ('Y', 'C') THEN
6166: msc_sch_wb.atp_debug('Add_Mat_Demand: ' || 'Numbe of rows inserted := ' || SQL%ROWCOUNT);
6167: END IF;
6168: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6169: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6170: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
6171: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
6172:
6165: IF PG_DEBUG in ('Y', 'C') THEN
6166: msc_sch_wb.atp_debug('Add_Mat_Demand: ' || 'Numbe of rows inserted := ' || SQL%ROWCOUNT);
6167: END IF;
6168: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6169: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6170: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
6171: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
6172:
6173: IF PG_DEBUG in ('Y', 'C') THEN
6166: msc_sch_wb.atp_debug('Add_Mat_Demand: ' || 'Numbe of rows inserted := ' || SQL%ROWCOUNT);
6167: END IF;
6168: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6169: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6170: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
6171: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
6172:
6173: IF PG_DEBUG in ('Y', 'C') THEN
6174: msc_sch_wb.atp_debug('Add_Mat_Demand: before insert into'||
6167: END IF;
6168: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6169: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6170: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
6171: (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
6172:
6173: IF PG_DEBUG in ('Y', 'C') THEN
6174: msc_sch_wb.atp_debug('Add_Mat_Demand: before insert into'||
6175: ' msc_alloc_demands');