[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,
6329: -- effective date should be greater than or equal to greatest of PTF date,
6330: -- sysdate and start date, disable date
6331: -- should be less than or equal to greatest of PTF date, sysdate and start date
6332: -- Note p_requested_date is used instead of C2.calendar_date currently,
6333: -- since p_requested_date is used in MSC_ATP_PROC.get_process_effectivity
6334: -- and also from performance considerations.
6335: AND TRUNC(proc.effectivity_date) <=
6336: TRUNC(GREATEST(p_requested_date, sysdate, MSC_ATP_PVT.G_PTF_DATE))
6337: AND TRUNC(NVL(proc.disable_date,GREATEST(p_requested_date, sysdate, MSC_ATP_PVT.G_PTF_DATE)+1))
6972: -- effective date should be greater than or equal to greatest of PTF date,
6973: -- sysdate and start date, disable date
6974: -- should be less than or equal to greatest of PTF date, sysdate and start date
6975: -- Note p_requested_date is used instead of C2.calendar_date currently,
6976: -- since p_requested_date is used in MSC_ATP_PROC.get_process_effectivity
6977: -- and also from performance considerations.
6978: AND TRUNC(proc.effectivity_date) <=
6979: TRUNC(GREATEST(p_requested_date, sysdate, MSC_ATP_PVT.G_PTF_DATE))
6980: AND TRUNC(NVL(proc.disable_date,GREATEST(p_requested_date, sysdate, MSC_ATP_PVT.G_PTF_DATE)+1))
7575: -- Bug 3036513 Get infinite time fence date for resource
7576: -- Existing SQL commented out.
7577: -- Call the Library routine that is now common for both items and resources.
7578:
7579: MSC_ATP_PROC.get_infinite_time_fence_date ( p_instance_id,
7580: l_inv_item_id,
7581: p_organization_id,
7582: p_plan_id,
7583: l_infinite_time_fence_date,
8444: -- dept for supply or demand pegging tree, we need to get the name
8445: -- each time.
8446: --diag_atp: we are already getting the department code in actual query
8447: IF l_res_requirements.department_code(j) is null THEN
8448: MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8449: l_res_requirements.department_id(j),
8450: l_resource_id,
8451: p_organization_id,
8452: l_department_code,
8457: END IF;
8458:
8459: IF NVL(l_res_requirements.department_id(j), -1) <> NVL(l_res_requirements.owning_department_id(j),
8460: NVL(l_res_requirements.department_id(j), -1)) THEN
8461: MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8462: l_res_requirements.owning_department_id(j),
8463: l_resource_id,
8464: p_organization_id,
8465: l_owning_department_code,
8558: --diag_atp: we already got the owning department code before adding pegging for resource demand
8559: l_department_code := l_owning_department_code;
8560:
8561:
8562: /*MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8563: l_department_id,
8564: l_resource_id,
8565: p_organization_id,
8566: l_department_code,
8767: -- each time.
8768:
8769: --diag_atp: we are already getting the department code in actual query
8770: IF l_res_requirements.department_code(j) is null THEN
8771: MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8772: l_res_requirements.department_id(j),
8773: l_resource_id,
8774: p_organization_id,
8775: l_department_code,
8782: END IF;
8783:
8784: IF NVL(l_res_requirements.department_id(j), -1) <> NVL(l_res_requirements.owning_department_id(j),
8785: NVL(l_res_requirements.department_id(j), -1)) THEN
8786: MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8787: l_res_requirements.owning_department_id(j),
8788: l_resource_id,
8789: p_organization_id,
8790: l_owning_department_code,
8883: --diag_atp: we already got the owning department code before adding pegging for resource demand
8884: l_department_code := l_owning_department_code;
8885:
8886:
8887: /*MSC_ATP_PROC.get_dept_res_code(p_instance_id,
8888: l_department_id,
8889: l_resource_id,
8890: p_organization_id,
8891: l_department_code,
9038: END IF;
9039: END LOOP;
9040: -- End Bug 4108546
9041:
9042: MSC_ATP_PROC.Details_Output(l_atp_period,
9043: l_atp_supply_demand,
9044: x_atp_period,
9045: x_atp_supply_demand,
9046: l_return_status);
9648: --S_cto_rearch: If ATP flag on config is 'Y, N' then we check base model's
9649: -- cpacity based on bom level atp flag and atp flags of base model
9650: -- In this case we just need to check capacity on model. So model is only
9651: --component we need to check capacity on.
9652: MSC_ATP_PROC.get_global_item_info(p_instance_id,
9653: --3917625: Read data from the plan
9654: -- -1,
9655: p_plan_id,
9656: p_inventory_item_id,
9944: IF i <> 1 THEN
9945: -- (3004862) circular BOM issue: Call get process effectivity again
9946: -- for the Phantom Component's Bill.
9947: msc_sch_wb.atp_debug('Calling Process effectivity for Phantom:'|| l_explode_comp.component_identifier(i));
9948: MSC_ATP_PROC.get_process_effectivity(
9949: p_plan_id,
9950: l_explode_comp.component_identifier(i),
9951: p_organization_id,
9952: p_instance_id,
10615: l_atp_rec.inventory_item_id := l_comp_requirements.match_item_family_id(j);
10616: l_atp_rec.request_item_id := l_comp_requirements.match_item_id(j);
10617: -- time_phased_atp changes end
10618: /*
10619: MSC_ATP_PROC.get_global_plan_info(p_instance_id,
10620: --l_atp_rec.inventory_item_id,
10621: l_atp_rec.request_item_id, -- time_phased_atp
10622: l_atp_rec.organization_id,
10623: l_atp_rec.demand_class);*/
10671:
10672: IF l_plan_found_for_match = 0 THEN
10673: -- New procedure for obtaining plan data : Supplier Capacity Lead Time (SCLT) proj.
10674: /*
10675: MSC_ATP_PROC.get_global_plan_info(p_instance_id,
10676: --l_atp_rec.inventory_item_id,
10677: l_atp_rec.request_item_id, -- time_phased_atp
10678: l_atp_rec.organization_id,
10679: l_atp_rec.demand_class);*/
10954: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10956: END IF;
10957:
10958: MSC_ATP_PROC.Details_Output(l_atp_period,
10959: l_atp_supply_demand,
10960: x_atp_period,
10961: x_atp_supply_demand,
10962: x_return_status);
11291: /* Modularize Item and Org Info */
11292: -- changed call, re-use info already obtained.
11293: -- Assumption is that since the instance and org is obtained using the plan_id,
11294: -- they are the same as the parameters p_sup_atp_info_rec.instance_id, p_sup_atp_info_rec.organization_id.
11295: MSC_ATP_PROC.get_global_org_info(l_instance_id, l_org_id);
11296: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
11297: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
11298: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
11299:
11634: ORDER BY SD_DATE;
11635:
11636: END IF;
11637:
11638: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, l_atp_qty_tab.COUNT);
11639:
11640: /* Cum drop issue changes begin*/
11641: MSC_AATP_PROC.Atp_Remove_Negatives(l_atp_qty_tab, l_return_status);
11642: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11723: <= trunc(least(p_sup_atp_info_rec.last_cap_date,l_cutoff_date)))
11724: GROUP BY l_date
11725: ORDER BY l_date;
11726:
11727: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, l_atp_qty_tab.COUNT);
11728:
11729: /* Cum drop issue changes begin*/
11730: MSC_AATP_PROC.Atp_Remove_Negatives(l_atp_qty_tab, l_return_status);
11731: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11800: <= trunc(least(p_sup_atp_info_rec.last_cap_date,l_cutoff_date)))
11801: GROUP BY l_date
11802: ORDER BY l_date;
11803:
11804: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, l_atp_qty_tab.COUNT);
11805:
11806: /* Cum drop issue changes begin*/
11807: MSC_AATP_PROC.Atp_Remove_Negatives(l_atp_qty_tab, l_return_status);
11808: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12162: msc_sch_wb.atp_debug('Get_Supplier_Atp_Info: ' || 'after inserting into msc_atp_sd_details_temp');
12163: msc_sch_wb.atp_debug('Get_Supplier_Atp_Info: ' || 'rows processed: ' || SQL%ROWCOUNT);
12164: END IF;
12165:
12166: MSC_ATP_PROC.get_period_data_from_SD_temp(x_atp_period);
12167:
12168: x_atp_period.Cumulative_Quantity := x_atp_period.Period_Quantity;
12169: IF PG_DEBUG in ('Y', 'C') THEN
12170: msc_sch_wb.atp_debug('Get_Supplier_Atp_Info: ' || 'before atp_consume');
12171: END IF;
12172: -- do the accumulation
12173: -- 1487804
12174: -- atp_consume(x_atp_period.Cumulative_Quantity, m);
12175: MSC_ATP_PROC.atp_consume(x_atp_period.Cumulative_Quantity,
12176: x_atp_period.Cumulative_Quantity.COUNT);
12177:
12178: IF PG_DEBUG in ('Y', 'C') THEN
12179: msc_sch_wb.atp_debug('Get_Supplier_Atp_Info: ' || 'after atp_consume');
12690: RAISE NO_DATA_FOUND;
12691: END IF;
12692:
12693: -- do accumulation for transportation capacity
12694: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, i);
12695: MSC_ATP_PROC.atp_consume(l_atp_qty_tab2, i);
12696:
12697: IF PG_DEBUG in ('Y', 'C') THEN
12698: msc_sch_wb.atp_debug('Get_Transport_Cap_Atp_Info: ' || 'just before printing values');
12691: END IF;
12692:
12693: -- do accumulation for transportation capacity
12694: MSC_ATP_PROC.atp_consume(l_atp_qty_tab, i);
12695: MSC_ATP_PROC.atp_consume(l_atp_qty_tab2, i);
12696:
12697: IF PG_DEBUG in ('Y', 'C') THEN
12698: msc_sch_wb.atp_debug('Get_Transport_Cap_Atp_Info: ' || 'just before printing values');
12699: END IF;
13481: END IF;
13482:
13483: l_atp_period.Cumulative_Quantity := l_atp_period.Period_Quantity;
13484: -- do the accumulation
13485: MSC_ATP_PROC.atp_consume(l_atp_period.Cumulative_Quantity, m);
13486:
13487: l_atp_period2.Cumulative_Quantity := l_atp_period2.Period_Quantity;
13488: -- do the accumulation
13489: MSC_ATP_PROC.atp_consume(l_atp_period2.Cumulative_Quantity, m);
13485: MSC_ATP_PROC.atp_consume(l_atp_period.Cumulative_Quantity, m);
13486:
13487: l_atp_period2.Cumulative_Quantity := l_atp_period2.Period_Quantity;
13488: -- do the accumulation
13489: MSC_ATP_PROC.atp_consume(l_atp_period2.Cumulative_Quantity, m);
13490:
13491: END IF;
13492:
13493: MSC_ATP_PROC.Details_Output(l_atp_period2, l_atp_supply_demand2, l_atp_period, l_atp_supply_demand,
13489: MSC_ATP_PROC.atp_consume(l_atp_period2.Cumulative_Quantity, m);
13490:
13491: END IF;
13492:
13493: MSC_ATP_PROC.Details_Output(l_atp_period2, l_atp_supply_demand2, l_atp_period, l_atp_supply_demand,
13494: x_return_status);
13495:
13496: x_atp_period := l_atp_period;
13497: x_atp_supply_demand := l_atp_supply_demand;