[Home] [Help]
1531:
1532: print_dates_qtys(x_atp_dates, x_atp_qtys);
1533:
1534: IF MSC_ATP_PVT.G_RES_CONSUME = 'Y' THEN
1535: MSC_ATP_PROC.atp_consume(x_atp_qtys, x_atp_qtys.COUNT);
1536: END IF;
1537:
1538: END get_res_avail_summ;
1539:
1624: END IF;
1625: END IF;
1626:
1627: IF MSC_ATP_PVT.G_RES_CONSUME = 'Y' THEN
1628: MSC_ATP_PROC.atp_consume(x_atp_qtys, x_atp_qtys.COUNT);
1629: END IF;
1630:
1631: END get_res_avail;
1632:
1722: );
1723: END IF;
1724: END IF;
1725:
1726: MSC_ATP_PROC.get_period_data_from_SD_temp(x_atp_period);
1727: x_atp_period.cumulative_quantity := x_atp_period.period_quantity;
1728:
1729: print_dates_qtys(x_atp_period.period_start_date,x_atp_period.period_quantity);
1730: IF MSC_ATP_PVT.G_RES_CONSUME = 'Y' THEN
1727: x_atp_period.cumulative_quantity := x_atp_period.period_quantity;
1728:
1729: print_dates_qtys(x_atp_period.period_start_date,x_atp_period.period_quantity);
1730: IF MSC_ATP_PVT.G_RES_CONSUME = 'Y' THEN
1731: MSC_ATP_PROC.atp_consume(x_atp_period.Cumulative_Quantity,
1732: x_atp_period.Cumulative_Quantity.count);
1733: END IF;
1734:
1735: END get_res_avail_dtls;
1784: x_atp_period
1785: );
1786:
1787: IF p_itf IS NOT NULL THEN
1788: MSC_ATP_PROC.add_inf_time_fence_to_period(
1789: p_level,
1790: MSC_ATP_PVT.G_ORDER_LINE_ID, -- identifier
1791: p_scenario_id,
1792: p_item_id,
4176: g_atp_record.instance_id := p_atp_record.instance_id;
4177: g_atp_record.identifier := p_atp_record.identifier;
4178:
4179: --5147647, populating the global item info rec.
4180: MSC_ATP_PROC.get_global_item_info(p_atp_record.instance_id,
4181: p_plan_id,
4182: l_substitute_id, --sr_inventory_item_id
4183: p_atp_record.organization_id,
4184: l_item_info_rec );
4255: END IF;
4256:
4257: /*
4258: -- New procedure for obtaining plan data : Supplier Capacity Lead Time (SCLT) proj.
4259: MSC_ATP_PROC.get_global_plan_info(g_atp_record.instance_id,
4260: g_atp_record.request_item_id,
4261: g_atp_record.organization_id,
4262: g_atp_record.demand_class);*/
4263:
4334: -- Call Item Info Global Procedure to obtain Component Substitute
4335: -- Data into memory.
4336: -- ATP4drp Bug 3986053, 4052808
4337: -- Once the item changes the corresponding global data should change.
4338: MSC_ATP_PROC.get_global_item_info(g_atp_record.instance_id,
4339: --3917625: Read data from the plan
4340: -- -1,
4341: p_plan_id,
4342: g_atp_record.request_item_id,
4489: -- for performance reason, we call these function here and
4490: -- then populate the pegging tree with the values
4491:
4492: /* Modularize Item and Org Info */
4493: MSC_ATP_PROC.get_global_org_info (g_atp_record.instance_id,
4494: g_atp_record.organization_id);
4495: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
4496: /*Modularize Item and Org Info */
4497:
4635: MSC_ATP_PVT.G_DEMAND_PEGGING_ID);
4636: END IF;
4637:
4638:
4639: MSC_ATP_PROC.Details_Output(g_atp_period,
4640: g_atp_supply_demand,
4641: l_atp_period,
4642: l_supply_demand,
4643: l_return_status);
4794: -- get the infinite time fence date if it exists
4795: /*l_infinite_time_fence_date := MSC_ATP_FUNC.get_infinite_time_fence_date(p_mat_atp_info_rec.instance_id,
4796: p_mat_atp_info_rec.inventory_item_id,p_mat_atp_info_rec.organization_id, p_mat_atp_info_rec.plan_id); */
4797: --diag_atp
4798: MSC_ATP_PROC.get_infinite_time_fence_date(p_mat_atp_info_rec.instance_id,
4799: p_mat_atp_info_rec.inventory_item_id,
4800: p_mat_atp_info_rec.organization_id,
4801: p_mat_atp_info_rec.plan_id,
4802: l_infinite_time_fence_date,
4843: -- msc_calendar.select_calendar_defaults(p_mat_atp_info_rec.organization_id,p_mat_atp_info_rec.instance_id,
4844: -- l_calendar_code, l_exception_set_id);
4845: /* Modularize Item and Org Info */
4846: -- changed call, re-use info already obtained.
4847: MSC_ATP_PROC.get_global_org_info(p_mat_atp_info_rec.instance_id, p_mat_atp_info_rec.organization_id);
4848: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
4849: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
4850: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
4851: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
5013: END IF;
5014: RAISE FND_API.G_EXC_ERROR;
5015: END IF;
5016: ELSE
5017: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, l_atp_qty_tab.count);
5018: END IF;
5019: IF PG_DEBUG in ('Y', 'C') THEN
5020: msc_sch_wb.atp_debug('Get_Material_Atp_Info: ' || 'after atp_consume');
5021: END IF;
5080:
5081: -- we are using allocated atp
5082: /* Modularize Item and Org Info */
5083: -- changed call, re-use info already obtained.
5084: MSC_ATP_PROC.get_global_org_info(p_mat_atp_info_rec.instance_id, p_mat_atp_info_rec.organization_id);
5085: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
5086: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
5087: l_calendar_exception_set_id :=
5088: MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
5406: -- store in variables instead of joining it
5407:
5408: /* Modularize Item and Org Info */
5409: -- changed call, re-use info already obtained.
5410: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
5411: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
5412: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
5413: l_calendar_exception_set_id :=
5414: MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
5511: END IF;
5512: RAISE FND_API.G_EXC_ERROR;
5513: END IF;
5514: ELSE
5515: MSC_ATP_PROC.get_period_data_from_SD_temp(x_atp_period);
5516: END IF;
5517:
5518: x_atp_period.Cumulative_Quantity := x_atp_period.Period_Quantity;
5519:
5538: RAISE FND_API.G_EXC_ERROR;
5539: END IF;
5540: -- time_phased_atp changes end
5541: ELSE
5542: MSC_ATP_PROC.atp_consume(x_atp_period.Cumulative_Quantity,
5543: x_atp_period.Cumulative_Quantity.COUNT);
5544: END IF;
5545:
5546: IF PG_DEBUG in ('Y', 'C') THEN
5557: END IF;
5558: /* Cum drop issue changes end*/
5559:
5560: IF l_infinite_time_fence_date IS NOT NULL THEN
5561: MSC_ATP_PROC.add_inf_time_fence_to_period(
5562: p_level,
5563: p_identifier,
5564: p_scenario_id,
5565: p_inventory_item_id,
5745: -- store in variables instead of joining it
5746:
5747: /* Modularize Item and Org Info */
5748: -- changed call, re-use info already obtained.
5749: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
5750: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
5751: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
5752: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
5753: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
5756: /*Modularize Item and Org Info */
5757:
5758: /* Modularize Item and Org Info */
5759: -- Move the item fetch outside of the IF ELSE for BOR
5760: MSC_ATP_PROC.get_global_item_info(p_instance_id,
5761: --3917625: Read data from the plan
5762: -- -1,
5763: p_plan_id,
5764: p_inventory_item_id,
6325: -- effective date should be greater than or equal to greatest of PTF date,
6326: -- sysdate and start date, disable date
6327: -- should be less than or equal to greatest of PTF date, sysdate and start date
6328: -- Note p_requested_date is used instead of C2.calendar_date currently,
6329: -- since p_requested_date is used in MSC_ATP_PROC.get_process_effectivity
6330: -- and also from performance considerations.
6331: AND TRUNC(proc.effectivity_date) <=
6332: TRUNC(GREATEST(p_requested_date, sysdate, MSC_ATP_PVT.G_PTF_DATE))
6333: AND TRUNC(NVL(proc.disable_date,GREATEST(p_requested_date, sysdate, MSC_ATP_PVT.G_PTF_DATE)+1))
6968: -- effective date should be greater than or equal to greatest of PTF date,
6969: -- sysdate and start date, disable date
6970: -- should be less than or equal to greatest of PTF date, sysdate and start date
6971: -- Note p_requested_date is used instead of C2.calendar_date currently,
6972: -- since p_requested_date is used in MSC_ATP_PROC.get_process_effectivity
6973: -- and also from performance considerations.
6974: AND TRUNC(proc.effectivity_date) <=
6975: TRUNC(GREATEST(p_requested_date, sysdate, MSC_ATP_PVT.G_PTF_DATE))
6976: AND TRUNC(NVL(proc.disable_date,GREATEST(p_requested_date, sysdate, MSC_ATP_PVT.G_PTF_DATE)+1))
7571: -- Bug 3036513 Get infinite time fence date for resource
7572: -- Existing SQL commented out.
7573: -- Call the Library routine that is now common for both items and resources.
7574:
7575: MSC_ATP_PROC.get_infinite_time_fence_date ( p_instance_id,
7576: l_inv_item_id,
7577: p_organization_id,
7578: p_plan_id,
7579: l_infinite_time_fence_date,
8440: -- dept for supply or demand pegging tree, we need to get the name
8441: -- each time.
8442: --diag_atp: we are already getting the department code in actual query
8443: IF l_res_requirements.department_code(j) is null THEN
8444: MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8445: l_res_requirements.department_id(j),
8446: l_resource_id,
8447: p_organization_id,
8448: l_department_code,
8453: END IF;
8454:
8455: IF NVL(l_res_requirements.department_id(j), -1) <> NVL(l_res_requirements.owning_department_id(j),
8456: NVL(l_res_requirements.department_id(j), -1)) THEN
8457: MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8458: l_res_requirements.owning_department_id(j),
8459: l_resource_id,
8460: p_organization_id,
8461: l_owning_department_code,
8554: --diag_atp: we already got the owning department code before adding pegging for resource demand
8555: l_department_code := l_owning_department_code;
8556:
8557:
8558: /*MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8559: l_department_id,
8560: l_resource_id,
8561: p_organization_id,
8562: l_department_code,
8763: -- each time.
8764:
8765: --diag_atp: we are already getting the department code in actual query
8766: IF l_res_requirements.department_code(j) is null THEN
8767: MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8768: l_res_requirements.department_id(j),
8769: l_resource_id,
8770: p_organization_id,
8771: l_department_code,
8778: END IF;
8779:
8780: IF NVL(l_res_requirements.department_id(j), -1) <> NVL(l_res_requirements.owning_department_id(j),
8781: NVL(l_res_requirements.department_id(j), -1)) THEN
8782: MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8783: l_res_requirements.owning_department_id(j),
8784: l_resource_id,
8785: p_organization_id,
8786: l_owning_department_code,
8879: --diag_atp: we already got the owning department code before adding pegging for resource demand
8880: l_department_code := l_owning_department_code;
8881:
8882:
8883: /*MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8884: l_department_id,
8885: l_resource_id,
8886: p_organization_id,
8887: l_department_code,
9034: END IF;
9035: END LOOP;
9036: -- End Bug 4108546
9037:
9038: MSC_ATP_PROC.Details_Output(l_atp_period,
9039: l_atp_supply_demand,
9040: x_atp_period,
9041: x_atp_supply_demand,
9042: l_return_status);
9642: --S_cto_rearch: If ATP flag on config is 'Y, N' then we check base model's
9643: -- cpacity based on bom level atp flag and atp flags of base model
9644: -- In this case we just need to check capacity on model. So model is only
9645: --component we need to check capacity on.
9646: MSC_ATP_PROC.get_global_item_info(p_instance_id,
9647: --3917625: Read data from the plan
9648: -- -1,
9649: p_plan_id,
9650: p_inventory_item_id,
9938: IF i <> 1 THEN
9939: -- (3004862) circular BOM issue: Call get process effectivity again
9940: -- for the Phantom Component's Bill.
9941: msc_sch_wb.atp_debug('Calling Process effectivity for Phantom:'|| l_explode_comp.component_identifier(i));
9942: MSC_ATP_PROC.get_process_effectivity(
9943: p_plan_id,
9944: l_explode_comp.component_identifier(i),
9945: p_organization_id,
9946: p_instance_id,
10600: l_atp_rec.inventory_item_id := l_comp_requirements.match_item_family_id(j);
10601: l_atp_rec.request_item_id := l_comp_requirements.match_item_id(j);
10602: -- time_phased_atp changes end
10603: /*
10604: MSC_ATP_PROC.get_global_plan_info(p_instance_id,
10605: --l_atp_rec.inventory_item_id,
10606: l_atp_rec.request_item_id, -- time_phased_atp
10607: l_atp_rec.organization_id,
10608: l_atp_rec.demand_class);*/
10656:
10657: IF l_plan_found_for_match = 0 THEN
10658: -- New procedure for obtaining plan data : Supplier Capacity Lead Time (SCLT) proj.
10659: /*
10660: MSC_ATP_PROC.get_global_plan_info(p_instance_id,
10661: --l_atp_rec.inventory_item_id,
10662: l_atp_rec.request_item_id, -- time_phased_atp
10663: l_atp_rec.organization_id,
10664: l_atp_rec.demand_class);*/
10929: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10930: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10931: END IF;
10932:
10933: MSC_ATP_PROC.Details_Output(l_atp_period,
10934: l_atp_supply_demand,
10935: x_atp_period,
10936: x_atp_supply_demand,
10937: x_return_status);
11258: /* Modularize Item and Org Info */
11259: -- changed call, re-use info already obtained.
11260: -- Assumption is that since the instance and org is obtained using the plan_id,
11261: -- they are the same as the parameters p_sup_atp_info_rec.instance_id, p_sup_atp_info_rec.organization_id.
11262: MSC_ATP_PROC.get_global_org_info(l_instance_id, l_org_id);
11263: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
11264: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
11265: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
11266:
11601: ORDER BY SD_DATE;
11602:
11603: END IF;
11604:
11605: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, l_atp_qty_tab.COUNT);
11606:
11607: /* Cum drop issue changes begin*/
11608: MSC_AATP_PROC.Atp_Remove_Negatives(l_atp_qty_tab, l_return_status);
11609: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11690: <= trunc(least(p_sup_atp_info_rec.last_cap_date,l_cutoff_date)))
11691: GROUP BY l_date
11692: ORDER BY l_date;
11693:
11694: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, l_atp_qty_tab.COUNT);
11695:
11696: /* Cum drop issue changes begin*/
11697: MSC_AATP_PROC.Atp_Remove_Negatives(l_atp_qty_tab, l_return_status);
11698: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11767: <= trunc(least(p_sup_atp_info_rec.last_cap_date,l_cutoff_date)))
11768: GROUP BY l_date
11769: ORDER BY l_date;
11770:
11771: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, l_atp_qty_tab.COUNT);
11772:
11773: /* Cum drop issue changes begin*/
11774: MSC_AATP_PROC.Atp_Remove_Negatives(l_atp_qty_tab, l_return_status);
11775: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12129: msc_sch_wb.atp_debug('Get_Supplier_Atp_Info: ' || 'after inserting into msc_atp_sd_details_temp');
12130: msc_sch_wb.atp_debug('Get_Supplier_Atp_Info: ' || 'rows processed: ' || SQL%ROWCOUNT);
12131: END IF;
12132:
12133: MSC_ATP_PROC.get_period_data_from_SD_temp(x_atp_period);
12134:
12135: x_atp_period.Cumulative_Quantity := x_atp_period.Period_Quantity;
12136: IF PG_DEBUG in ('Y', 'C') THEN
12137: msc_sch_wb.atp_debug('Get_Supplier_Atp_Info: ' || 'before atp_consume');
12138: END IF;
12139: -- do the accumulation
12140: -- 1487804
12141: -- atp_consume(x_atp_period.Cumulative_Quantity, m);
12142: MSC_ATP_PROC.atp_consume(x_atp_period.Cumulative_Quantity,
12143: x_atp_period.Cumulative_Quantity.COUNT);
12144:
12145: IF PG_DEBUG in ('Y', 'C') THEN
12146: msc_sch_wb.atp_debug('Get_Supplier_Atp_Info: ' || 'after atp_consume');
12657: RAISE NO_DATA_FOUND;
12658: END IF;
12659:
12660: -- do accumulation for transportation capacity
12661: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, i);
12662: MSC_ATP_PROC.atp_consume(l_atp_qty_tab2, i);
12663:
12664: IF PG_DEBUG in ('Y', 'C') THEN
12665: msc_sch_wb.atp_debug('Get_Transport_Cap_Atp_Info: ' || 'just before printing values');
12658: END IF;
12659:
12660: -- do accumulation for transportation capacity
12661: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, i);
12662: MSC_ATP_PROC.atp_consume(l_atp_qty_tab2, i);
12663:
12664: IF PG_DEBUG in ('Y', 'C') THEN
12665: msc_sch_wb.atp_debug('Get_Transport_Cap_Atp_Info: ' || 'just before printing values');
12666: END IF;
13448: END IF;
13449:
13450: l_atp_period.Cumulative_Quantity := l_atp_period.Period_Quantity;
13451: -- do the accumulation
13452: MSC_ATP_PROC.atp_consume(l_atp_period.Cumulative_Quantity, m);
13453:
13454: l_atp_period2.Cumulative_Quantity := l_atp_period2.Period_Quantity;
13455: -- do the accumulation
13456: MSC_ATP_PROC.atp_consume(l_atp_period2.Cumulative_Quantity, m);
13452: MSC_ATP_PROC.atp_consume(l_atp_period.Cumulative_Quantity, m);
13453:
13454: l_atp_period2.Cumulative_Quantity := l_atp_period2.Period_Quantity;
13455: -- do the accumulation
13456: MSC_ATP_PROC.atp_consume(l_atp_period2.Cumulative_Quantity, m);
13457:
13458: END IF;
13459:
13460: MSC_ATP_PROC.Details_Output(l_atp_period2, l_atp_supply_demand2, l_atp_period, l_atp_supply_demand,
13456: MSC_ATP_PROC.atp_consume(l_atp_period2.Cumulative_Quantity, m);
13457:
13458: END IF;
13459:
13460: MSC_ATP_PROC.Details_Output(l_atp_period2, l_atp_supply_demand2, l_atp_period, l_atp_supply_demand,
13461: x_return_status);
13462:
13463: x_atp_period := l_atp_period;
13464: x_atp_supply_demand := l_atp_supply_demand;