[Home] [Help]
133: x_return_status OUT NOCOPY VARCHAR2)
134: IS
135: -- local variables
136: l_request_date DATE;
137: l_plan_info_rec MSC_ATP_PVT.plan_info_rec;
138: l_infinite_time_fence_date DATE;
139: l_atp_period MRP_ATP_PUB.ATP_Period_Typ;
140: l_counter PLS_INTEGER;
141: l_return_status VARCHAR2(10) := FND_API.G_RET_STS_SUCCESS;
170: IF PG_DEBUG in ('Y', 'C') THEN
171: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'There is no matching calander date');
172: END IF;
173: x_return_status := FND_API.G_RET_STS_ERROR;
174: Set_Error(MSC_ATP_PVT.NO_MATCHING_CAL_DATE);
175: return;
176: END IF;
177: IF PG_DEBUG in ('Y', 'C') THEN
178: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Request Date : '||to_char(l_request_date, 'DD-MON-YYYY'));
178: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Request Date : '||to_char(l_request_date, 'DD-MON-YYYY'));
179: END IF;
180:
181: -- Check the profile settings.
182: -- IF (MSC_ATP_PVT.G_INV_CTP <> 4 OR MSC_ATP_PVT.G_ALLOCATED_ATP <> 'Y') THEN
183: -- bug 2813095 (ssurendr) breaking the validations into two
184: IF (MSC_ATP_PVT.G_INV_CTP <> 4) THEN
185: IF PG_DEBUG in ('Y', 'C') THEN
186: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'INV_CTP is not 4');
180:
181: -- Check the profile settings.
182: -- IF (MSC_ATP_PVT.G_INV_CTP <> 4 OR MSC_ATP_PVT.G_ALLOCATED_ATP <> 'Y') THEN
183: -- bug 2813095 (ssurendr) breaking the validations into two
184: IF (MSC_ATP_PVT.G_INV_CTP <> 4) THEN
185: IF PG_DEBUG in ('Y', 'C') THEN
186: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'INV_CTP is not 4');
187: END IF;
188: Set_Error(MSC_ATP_PVT.INVALID_INV_CTP_PROFILE_SETUP);
184: IF (MSC_ATP_PVT.G_INV_CTP <> 4) THEN
185: IF PG_DEBUG in ('Y', 'C') THEN
186: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'INV_CTP is not 4');
187: END IF;
188: Set_Error(MSC_ATP_PVT.INVALID_INV_CTP_PROFILE_SETUP);
189: x_return_status := FND_API.G_RET_STS_ERROR;
190: return;
191: END IF;
192:
189: x_return_status := FND_API.G_RET_STS_ERROR;
190: return;
191: END IF;
192:
193: IF (MSC_ATP_PVT.G_ALLOCATED_ATP <> 'Y') THEN
194: IF PG_DEBUG in ('Y', 'C') THEN
195: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Enable Allocated ATP is not Yes');
196: END IF;
197: Set_Error(MSC_ATP_PVT.INVALID_ALLOC_ATP_OFF);
193: IF (MSC_ATP_PVT.G_ALLOCATED_ATP <> 'Y') THEN
194: IF PG_DEBUG in ('Y', 'C') THEN
195: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Enable Allocated ATP is not Yes');
196: END IF;
197: Set_Error(MSC_ATP_PVT.INVALID_ALLOC_ATP_OFF);
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: return;
200: END IF;
201:
206: IF PG_DEBUG in ('Y', 'C') THEN
207: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Plan_ID is null or -1');
208: END IF;
209: x_return_status := FND_API.G_RET_STS_ERROR;
210: Set_Error(MSC_ATP_PVT.PLAN_NOT_FOUND);
211: return;
212: ELSIF (l_plan_info_rec.plan_id = -100) THEN
213: IF PG_DEBUG in ('Y', 'C') THEN
214: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Plan_ID is -100 : Summary is Running');
213: IF PG_DEBUG in ('Y', 'C') THEN
214: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Plan_ID is -100 : Summary is Running');
215: END IF;
216: x_return_status := FND_API.G_RET_STS_ERROR;
217: Set_Error(MSC_ATP_PVT.SUMM_CONC_PROG_RUNNING);
218: return;
219: ELSIF (l_plan_info_rec.plan_id = -200) THEN
220: IF PG_DEBUG in ('Y', 'C') THEN
221: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Plan_ID is -200 : Post Plan Alloc progranm has not been run');
220: IF PG_DEBUG in ('Y', 'C') THEN
221: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Plan_ID is -200 : Post Plan Alloc progranm has not been run');
222: END IF;
223: x_return_status := FND_API.G_RET_STS_ERROR;
224: Set_Error(MSC_ATP_PVT.RUN_POST_PLAN_ALLOC);
225: return;
226: ELSIF (l_plan_info_rec.plan_id = -300) THEN
227: IF PG_DEBUG in ('Y', 'C') THEN
228: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Plan_ID is -300 : ATP Downtime');
227: IF PG_DEBUG in ('Y', 'C') THEN
228: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Plan_ID is -300 : ATP Downtime');
229: END IF;
230: x_return_status := FND_API.G_RET_STS_ERROR;
231: Set_Error(MSC_ATP_PVT.TRY_ATP_LATER);
232: return;
233: END IF;
234:
235: -- Get the infinite time fence date
263: IF PG_DEBUG in ('Y', 'C') THEN
264: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'l_atp_period is NULL');
265: END IF;
266: -- rajjain bug 2951786 05/13/2003
267: Set_Error(MSC_ATP_PVT.NO_SUPPLY_DEMAND);
268: --Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
269: x_return_status := FND_API.G_RET_STS_ERROR;
270: Commit;
271: return;
264: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'l_atp_period is NULL');
265: END IF;
266: -- rajjain bug 2951786 05/13/2003
267: Set_Error(MSC_ATP_PVT.NO_SUPPLY_DEMAND);
268: --Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
269: x_return_status := FND_API.G_RET_STS_ERROR;
270: Commit;
271: return;
272: END IF;
312: IF PG_DEBUG in ('Y', 'C') THEN
313: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Error in View_Allocation_Details: Expected Error Raised' || to_char(sqlcode) || ':' || SQLERRM);
314: END IF;
315: x_return_status := FND_API.G_RET_STS_ERROR;
316: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
317:
318: WHEN MSC_ATP_PUB.ATP_INVALID_OBJECTS_FOUND THEN
319: IF PG_DEBUG in ('Y', 'C') THEN
320: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Error in View_Allocation_Details: Invalid Objects Found');
319: IF PG_DEBUG in ('Y', 'C') THEN
320: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Error in View_Allocation_Details: Invalid Objects Found');
321: END IF;
322: x_return_status := FND_API.G_RET_STS_ERROR;
323: Set_Error(MSC_ATP_PVT.ATP_INVALID_OBJECTS);
324:
325: WHEN OTHERS THEN
326: IF PG_DEBUG in ('Y', 'C') THEN
327: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Error in View_Allocation_Details: Unexpected Error Raised: ' || to_char(sqlcode) || ':' || SQLERRM);
326: IF PG_DEBUG in ('Y', 'C') THEN
327: msc_sch_wb.atp_debug('View_Allocation_Details: ' || 'Error in View_Allocation_Details: Unexpected Error Raised: ' || to_char(sqlcode) || ':' || SQLERRM);
328: END IF;
329: x_return_status := FND_API.G_RET_STS_ERROR;
330: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
331:
332: END View_allocation_Details;
333:
334:
400: BEGIN
401: -- Debug Messages
402: IF PG_DEBUG in ('Y', 'C') THEN
403: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || '*********Inside procedure Compute_Allocation_Details ********');
404: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_INV_CTP= ' || MSC_ATP_PVT.G_INV_CTP);
405: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_HIERARCHY_PROFILE = '|| MSC_ATP_PVT.G_HIERARCHY_PROFILE );
406: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_ALLOCATED_ATP = ' || MSC_ATP_PVT.G_ALLOCATED_ATP );
407: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_ALLOCATION_METHOD = '|| MSC_ATP_PVT.G_ALLOCATION_METHOD );
408: END IF;
401: -- Debug Messages
402: IF PG_DEBUG in ('Y', 'C') THEN
403: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || '*********Inside procedure Compute_Allocation_Details ********');
404: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_INV_CTP= ' || MSC_ATP_PVT.G_INV_CTP);
405: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_HIERARCHY_PROFILE = '|| MSC_ATP_PVT.G_HIERARCHY_PROFILE );
406: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_ALLOCATED_ATP = ' || MSC_ATP_PVT.G_ALLOCATED_ATP );
407: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_ALLOCATION_METHOD = '|| MSC_ATP_PVT.G_ALLOCATION_METHOD );
408: END IF;
409:
402: IF PG_DEBUG in ('Y', 'C') THEN
403: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || '*********Inside procedure Compute_Allocation_Details ********');
404: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_INV_CTP= ' || MSC_ATP_PVT.G_INV_CTP);
405: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_HIERARCHY_PROFILE = '|| MSC_ATP_PVT.G_HIERARCHY_PROFILE );
406: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_ALLOCATED_ATP = ' || MSC_ATP_PVT.G_ALLOCATED_ATP );
407: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_ALLOCATION_METHOD = '|| MSC_ATP_PVT.G_ALLOCATION_METHOD );
408: END IF;
409:
410: -- Initialization section.
403: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || '*********Inside procedure Compute_Allocation_Details ********');
404: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_INV_CTP= ' || MSC_ATP_PVT.G_INV_CTP);
405: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_HIERARCHY_PROFILE = '|| MSC_ATP_PVT.G_HIERARCHY_PROFILE );
406: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_ALLOCATED_ATP = ' || MSC_ATP_PVT.G_ALLOCATED_ATP );
407: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_ALLOCATION_METHOD = '|| MSC_ATP_PVT.G_ALLOCATION_METHOD );
408: END IF;
409:
410: -- Initialization section.
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
412: l_scenario_id := 0;
413: l_record_type := 2;
414: /* To support new logic for dependent demands allocation in time phased PF rule based AATP scenarios
415: Reset global variable*/
416: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'N';
417:
418: -- Get inventory_item_id and uom_code from msc_system_items
419: BEGIN
420: -- bug 2763784 (ssurendr)
442: WHEN OTHERS THEN
443: IF PG_DEBUG in ('Y', 'C') THEN
444: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'Error selecting inventory item id from msc_system_items: ' || to_char(sqlcode) || ':' || SQLERRM);
445: END IF;
446: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
447: x_return_status := FND_API.G_RET_STS_ERROR;
448: return;
449: END;
450:
472: l_time_phased_atp := 'Y';
473: G_ATF_DATE := l_atf_date;
474: /* To support new logic for dependent demands allocation in time phased PF rule based AATP scenarios
475: Set global variable too. This is used in Get_Item_Demand_Alloc_Percent function*/
476: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'Y';
477: IF PG_DEBUG in ('Y', 'C') THEN
478: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'Time phased atp = ' || l_time_phased_atp);
479: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_TIME_PHASED_PF_ENABLED = ' || MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED);
480: END IF;
475: Set global variable too. This is used in Get_Item_Demand_Alloc_Percent function*/
476: MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED := 'Y';
477: IF PG_DEBUG in ('Y', 'C') THEN
478: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'Time phased atp = ' || l_time_phased_atp);
479: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'G_TIME_PHASED_PF_ENABLED = ' || MSC_ATP_PVT.G_TIME_PHASED_PF_ENABLED);
480: END IF;
481: END IF;
482:
483: -- For new allocation logic for time phased ATP
488: IF l_atp_flag <> 'Y' THEN
489: IF PG_DEBUG in ('Y', 'C') THEN
490: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'Item not ATPable');
491: END IF;
492: Set_Error(MSC_ATP_PVT.ATP_NOT_APPL);
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: return;
495: END IF;
496:
520: RAISE FND_API.G_EXC_ERROR;
521: END IF;
522:
523: IF p_request_date <= l_atf_date THEN
524: IF MSC_ATP_PVT.G_MEM_RULE_WITHIN_ATF = 'Y' THEN
525: l_item_to_use := l_inv_item_id;
526: ELSE
527: l_item_to_use := l_pf_dest_id;
528: END IF;
526: ELSE
527: l_item_to_use := l_pf_dest_id;
528: END IF;
529: ELSE
530: IF MSC_ATP_PVT.G_PF_RULE_OUTSIDE_ATF = 'Y' THEN
531: l_item_to_use := l_pf_dest_id;
532: ELSE
533: l_item_to_use := l_inv_item_id;
534: END IF;
542: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'Item to be used = '||l_item_to_use);
543: END IF;
544: /* New allocation logic for time_phased_atp changes end */
545:
546: IF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) THEN
547: -- Demand Priority
548: IF PG_DEBUG in ('Y', 'C') THEN
549: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'We are in Demand Priority Allocation');
550: END IF;
571: IF (SQL%ROWCOUNT = 0) THEN
572: IF PG_DEBUG in ('Y', 'C') THEN
573: msc_sch_wb.atp_debug('No Demand Class found');
574: END IF;
575: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
576: x_return_status := FND_API.G_RET_STS_ERROR;
577: return;
578: END IF;
579: IF PG_DEBUG in ('Y', 'C') THEN
737: END IF;
738:
739: -- bug 2763784 (ssurendr)
740: -- Should not error out if no s/d record found
741: --Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
742: --x_return_status := FND_API.G_RET_STS_ERROR;
743: --return;
744: ELSE
745: IF PG_DEBUG in ('Y', 'C') THEN
927: l_count := x_atp_period.Period_Start_Date.COUNT;
928:
929: x_atp_period.Demand_Class(l_count) := l_all_dc_list_tab(l_index_counter);
930: x_atp_period.Period_Start_Date(l_count) := p_infinite_time_fence_date;
931: x_atp_period.Allocated_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
932: x_atp_period.Supply_Adjustment_Quantity(l_count) := 0;
933: x_atp_period.Total_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
934: x_atp_period.Total_Demand_Quantity(l_count) := 0;
935: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
929: x_atp_period.Demand_Class(l_count) := l_all_dc_list_tab(l_index_counter);
930: x_atp_period.Period_Start_Date(l_count) := p_infinite_time_fence_date;
931: x_atp_period.Allocated_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
932: x_atp_period.Supply_Adjustment_Quantity(l_count) := 0;
933: x_atp_period.Total_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
934: x_atp_period.Total_Demand_Quantity(l_count) := 0;
935: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
936: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
937: x_atp_period.Backward_Forward_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
932: x_atp_period.Supply_Adjustment_Quantity(l_count) := 0;
933: x_atp_period.Total_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
934: x_atp_period.Total_Demand_Quantity(l_count) := 0;
935: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
936: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
937: x_atp_period.Backward_Forward_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
938: x_atp_period.Period_End_Date(l_count) := p_infinite_time_fence_date;
939: x_atp_period.Cumulative_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
940: x_atp_period.Inventory_Item_Id(l_count) := p_inventory_item_id;
933: x_atp_period.Total_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
934: x_atp_period.Total_Demand_Quantity(l_count) := 0;
935: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
936: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
937: x_atp_period.Backward_Forward_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
938: x_atp_period.Period_End_Date(l_count) := p_infinite_time_fence_date;
939: x_atp_period.Cumulative_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
940: x_atp_period.Inventory_Item_Id(l_count) := p_inventory_item_id;
941: x_atp_period.Organization_Id(l_count) := p_organization_id;
935: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
936: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
937: x_atp_period.Backward_Forward_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
938: x_atp_period.Period_End_Date(l_count) := p_infinite_time_fence_date;
939: x_atp_period.Cumulative_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
940: x_atp_period.Inventory_Item_Id(l_count) := p_inventory_item_id;
941: x_atp_period.Organization_Id(l_count) := p_organization_id;
942: x_atp_period.Identifier1(l_count) := p_instance_id;
943: x_atp_period.Scenario_Id(l_count) := l_scenario_id;
975: END IF;
976: END IF;
977: -- time_phased_atp changes end
978:
979: ELSIF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 2)) THEN
980: -- IF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) THEN
981:
982: -- Rule based allocation; Demand class case
983: -- initialize l_level_id. level_id remains -1 for demand class allocation
976: END IF;
977: -- time_phased_atp changes end
978:
979: ELSIF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 2)) THEN
980: -- IF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 1) THEN
981:
982: -- Rule based allocation; Demand class case
983: -- initialize l_level_id. level_id remains -1 for demand class allocation
984: l_level_id := -1;
1003: IF (SQL%ROWCOUNT = 0) THEN
1004: IF PG_DEBUG in ('Y', 'C') THEN
1005: msc_sch_wb.atp_debug('No Demand Class found');
1006: END IF;
1007: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
1008: x_return_status := FND_API.G_RET_STS_ERROR;
1009: return;
1010: END IF;
1011:
1011:
1012:
1013: /* Modularize Item and Org Info */
1014: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
1015: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1016: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1017: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1018: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1019: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1012:
1013: /* Modularize Item and Org Info */
1014: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
1015: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1016: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1017: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1018: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1019: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1020:
1013: /* Modularize Item and Org Info */
1014: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
1015: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1016: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1017: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1018: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1019: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1020:
1021: -- Bug 3823042
1014: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
1015: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1016: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1017: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1018: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1019: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1020:
1021: -- Bug 3823042
1022: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(
1015: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1016: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1017: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1018: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1019: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1020:
1021: -- Bug 3823042
1022: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(
1023: l_calendar_code,
1076: END IF;
1077: -- time_phased_atp changes end
1078: ELSE
1079:
1080: IF ( MSC_ATP_PVT.G_OPTIMIZED_PLAN = 1) THEN
1081: -- Bug 3823042: optimized plan, donot use msc_calendar_dates
1082:
1083: IF PG_DEBUG in ('Y', 'C') THEN
1084: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'User defined demand class, Optimized plan');
1102: 1 col7, -- supply_demand_type
1103: -- Bug 3823042
1104: GREATEST(TRUNC(DECODE(D.RECORD_SOURCE,
1105: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1106: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1107: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1108: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_sys_next_date) col8,
1109: --C.PRIOR_DATE col8, -- supply_demand_date
1110: -1 * (D.USING_REQUIREMENT_QUANTITY - NVL(d.reserved_quantity, 0)) col9, -- supply_demand_quantity -- Bug 3823042
1117: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1118: null, null, l_item_to_use, p_organization_id,
1119: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1120: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1121: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1122: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1123: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1124: D.DEMAND_CLASS)),
1125: -23453, DECODE(D.DEMAND_CLASS, null, null,
1127: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1128: null, null, l_item_to_use, p_organization_id,
1129: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1130: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1131: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1132: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1133: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1134: D.DEMAND_CLASS)),
1135: d.organization_id, DECODE(D.DEMAND_CLASS, null, null,
1137: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1138: null, null, l_item_to_use, p_organization_id,
1139: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1140: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1141: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1142: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1143: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1144: D.DEMAND_CLASS)), NULL),
1145: 30, decode(d.source_organization_id,
1148: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1149: null, null, l_item_to_use, p_organization_id,
1150: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1151: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1152: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1153: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1154: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1155: D.DEMAND_CLASS)),
1156: -23453, DECODE(D.DEMAND_CLASS, null, null,
1158: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1159: null, null, l_item_to_use, p_organization_id,
1160: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1161: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1162: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1163: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1164: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1165: D.DEMAND_CLASS)),
1166: d.organization_id, DECODE(D.DEMAND_CLASS, null, null,
1168: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1169: null, null, l_item_to_use, p_organization_id,
1170: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1171: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1172: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1173: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1174: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1175: D.DEMAND_CLASS)), NULL),
1176: DECODE(D.DEMAND_CLASS, null, null,
1178: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1179: null, null, l_item_to_use, p_organization_id,
1180: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1181: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1182: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1183: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1184: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1185: D.DEMAND_CLASS))),
1186: TEMP.DEMAND_CLASS, 1,
1187: MSC_AATP_FUNC.Get_Item_Demand_Alloc_Percent(p_plan_id,
1188: D.DEMAND_ID,
1189: TRUNC(DECODE(D.RECORD_SOURCE,
1190: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1191: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1192: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1193: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
1194: --c.prior_date,
1195: D.USING_ASSEMBLY_ITEM_ID,
1207: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1208: null, null, l_item_to_use, p_organization_id,
1209: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1210: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1211: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1212: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1213: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1214: D.DEMAND_CLASS)),
1215: -23453, DECODE(D.DEMAND_CLASS, null, null,
1217: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1218: null, null, l_item_to_use, p_organization_id,
1219: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1220: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1221: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1222: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1223: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1224: D.DEMAND_CLASS)),
1225: d.organization_id, DECODE(D.DEMAND_CLASS, null, null,
1227: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1228: null, null, l_item_to_use, p_organization_id,
1229: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1230: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1231: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1232: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1233: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1234: D.DEMAND_CLASS)), TEMP.DEMAND_CLASS),
1235: 30, decode(d.source_organization_id,
1238: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1239: null, null, l_item_to_use, p_organization_id,
1240: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1241: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1242: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1243: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1244: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1245: D.DEMAND_CLASS)),
1246: -23453, DECODE(D.DEMAND_CLASS, null, null,
1248: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1249: null, null, l_item_to_use, p_organization_id,
1250: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1251: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1252: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1253: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1254: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1255: D.DEMAND_CLASS)),
1256: d.organization_id, DECODE(D.DEMAND_CLASS, null, null,
1258: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1259: null, null, l_item_to_use, p_organization_id,
1260: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1261: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1262: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1263: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1264: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1265: D.DEMAND_CLASS)), TEMP.DEMAND_CLASS),
1266: DECODE(D.DEMAND_CLASS, null, null,
1268: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
1269: null, null, l_item_to_use, p_organization_id,
1270: p_instance_id, /*c.prior_date,*/ TRUNC(DECODE(D.RECORD_SOURCE,
1271: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1272: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1273: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1274: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_level_id, D.DEMAND_CLASS),
1275: D.DEMAND_CLASS))),
1276: TEMP.DEMAND_CLASS,
1321: -- Bug 3550296 and 3574164. IMPLEMENT_DATE AND DMD_SATISFIED_DATE are changed to
1322: -- IMPLEMENT_SHIP_DATE and PLANNED_SHIP_DATE resp.
1323: TRUNC(DECODE(RECORD_SOURCE,
1324: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1325: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1326: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1327: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))))
1328: AND
1329: TRUNC(NVL(D.ASSEMBLY_DEMAND_COMP_DATE,
1328: AND
1329: TRUNC(NVL(D.ASSEMBLY_DEMAND_COMP_DATE,
1330: DECODE(RECORD_SOURCE,
1331: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1332: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1333: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1334: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))))
1335: AND (( D.ORIGINATION_TYPE = 4
1336: AND C.SEQ_NUM IS NOT NULL) OR
1339: */
1340: -- Bug 3823042, donot use msc_calendar_dates
1341: AND TRUNC(DECODE(RECORD_SOURCE,
1342: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1343: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1344: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1345: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))) < TRUNC(p_infinite_time_fence_date) -- Bug 3823042, pitf is not NULL in PDS case
1346: -- bug 2763784 (ssurendr)
1347: -- Should not select supply/demand where the original quantity itself is 0
1629: -- Bug 3550296 and 3574164. IMPLEMENT_DATE AND DMD_SATISFIED_DATE are changed to
1630: -- IMPLEMENT_SHIP_DATE and PLANNED_SHIP_DATE resp.
1631: TRUNC(DECODE(RECORD_SOURCE,
1632: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1633: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1634: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1635: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))))
1636: AND
1637: TRUNC(NVL(D.ASSEMBLY_DEMAND_COMP_DATE,
1636: AND
1637: TRUNC(NVL(D.ASSEMBLY_DEMAND_COMP_DATE,
1638: DECODE(RECORD_SOURCE,
1639: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
1640: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
1641: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
1642: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))))
1643: AND (( D.ORIGINATION_TYPE = 4
1644: AND C.SEQ_NUM IS NOT NULL) OR
1745: END IF;
1746:
1747: -- bug 2763784 (ssurendr)
1748: -- Should not error out if no s/d record found
1749: --Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
1750: --x_return_status := FND_API.G_RET_STS_ERROR;
1751: --return;
1752: SELECT demand_class
1753: BULK COLLECT INTO l_dc_list_tab
1919: l_count := x_atp_period.Period_Start_Date.COUNT;
1920:
1921: x_atp_period.Demand_Class(l_count) := l_dc_list_tab(l_index_counter);
1922: x_atp_period.Period_Start_Date(l_count) := p_infinite_time_fence_date;
1923: x_atp_period.Total_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1924: x_atp_period.Total_Demand_Quantity(l_count) := 0;
1925: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
1926: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1927: x_atp_period.Period_End_Date(l_count) := p_infinite_time_fence_date;
1922: x_atp_period.Period_Start_Date(l_count) := p_infinite_time_fence_date;
1923: x_atp_period.Total_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1924: x_atp_period.Total_Demand_Quantity(l_count) := 0;
1925: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
1926: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1927: x_atp_period.Period_End_Date(l_count) := p_infinite_time_fence_date;
1928: x_atp_period.Cumulative_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1929: x_atp_period.Inventory_Item_Id(l_count) := p_inventory_item_id;
1930: x_atp_period.Organization_Id(l_count) := p_organization_id;
1924: x_atp_period.Total_Demand_Quantity(l_count) := 0;
1925: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
1926: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1927: x_atp_period.Period_End_Date(l_count) := p_infinite_time_fence_date;
1928: x_atp_period.Cumulative_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1929: x_atp_period.Inventory_Item_Id(l_count) := p_inventory_item_id;
1930: x_atp_period.Organization_Id(l_count) := p_organization_id;
1931: x_atp_period.Identifier1(l_count) := p_instance_id;
1932: x_atp_period.Scenario_Id(l_count) := l_scenario_id;
1930: x_atp_period.Organization_Id(l_count) := p_organization_id;
1931: x_atp_period.Identifier1(l_count) := p_instance_id;
1932: x_atp_period.Scenario_Id(l_count) := l_scenario_id;
1933: x_atp_period.Level(l_count) := l_level_id;
1934: x_atp_period.Backward_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1935: x_atp_period.Demand_Adjustment_Quantity(l_count) := 0;
1936: x_atp_period.Adjusted_Availability_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1937:
1938: IF G_ATP_FW_CONSUME_METHOD = 2 THEN
1932: x_atp_period.Scenario_Id(l_count) := l_scenario_id;
1933: x_atp_period.Level(l_count) := l_level_id;
1934: x_atp_period.Backward_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1935: x_atp_period.Demand_Adjustment_Quantity(l_count) := 0;
1936: x_atp_period.Adjusted_Availability_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1937:
1938: IF G_ATP_FW_CONSUME_METHOD = 2 THEN
1939: x_atp_period.Adjusted_Cum_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1940: END IF;
1935: x_atp_period.Demand_Adjustment_Quantity(l_count) := 0;
1936: x_atp_period.Adjusted_Availability_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1937:
1938: IF G_ATP_FW_CONSUME_METHOD = 2 THEN
1939: x_atp_period.Adjusted_Cum_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
1940: END IF;
1941: --END IF;
1942:
1943: END LOOP;
1944: IF PG_DEBUG in ('Y', 'C') THEN
1945: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'After computing period_end_date and appending infinite time fence records');
1946: END IF;
1947:
1948: ELSIF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 2 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 2) THEN
1949: -- ELSIF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 2) THEN
1950:
1951: -- initialize l_level_id. We first select all leaf node records
1952: l_level_id := 3;
1945: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'After computing period_end_date and appending infinite time fence records');
1946: END IF;
1947:
1948: ELSIF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 2 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 2) THEN
1949: -- ELSIF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1 AND MSC_ATP_PVT.G_ALLOCATION_METHOD = 2) THEN
1950:
1951: -- initialize l_level_id. We first select all leaf node records
1952: l_level_id := 3;
1953:
1956: END IF;
1957:
1958: /* Modularize Item and Org Info */
1959: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
1960: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1961: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1962: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1963: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1964: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1957:
1958: /* Modularize Item and Org Info */
1959: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
1960: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1961: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1962: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1963: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1964: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1965:
1958: /* Modularize Item and Org Info */
1959: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
1960: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1961: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1962: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1963: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1964: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1965:
1966: -- Bug 3823042
1959: MSC_ATP_PROC.get_global_org_info(p_instance_id, p_organization_id);
1960: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1961: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1962: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1963: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1964: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1965:
1966: -- Bug 3823042
1967: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(
1960: l_default_atp_rule_id := MSC_ATP_PVT.G_ORG_INFO_REC.default_atp_rule_id;
1961: l_calendar_code := MSC_ATP_PVT.G_ORG_INFO_REC.cal_code;
1962: l_calendar_exception_set_id := MSC_ATP_PVT.G_ORG_INFO_REC.cal_exception_set_id;
1963: l_default_demand_class := MSC_ATP_PVT.G_ORG_INFO_REC.default_demand_class;
1964: l_org_code := MSC_ATP_PVT.G_ORG_INFO_REC.org_code;
1965:
1966: -- Bug 3823042
1967: l_sys_next_date := MSC_CALENDAR.NEXT_WORK_DAY(
1968: l_calendar_code,
2009: -- Need an appropriate error message.
2010: IF PG_DEBUG in ('Y', 'C') THEN
2011: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'No Demand Class found');
2012: END IF;
2013: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
2014: x_return_status := FND_API.G_RET_STS_ERROR;
2015: return;
2016: END IF;
2017:
2059: END IF;
2060: RAISE FND_API.G_EXC_ERROR;
2061: END IF;
2062: ELSE
2063: IF (MSC_ATP_PVT.G_OPTIMIZED_PLAN = 1) THEN
2064: -- Bug 3823042: optimized plan, donot use msc_calendar_dates
2065:
2066: IF PG_DEBUG in ('Y', 'C') THEN
2067: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'User defined customer class, Optimized plan');
2089: --C.PRIOR_DATE col8, -- supply_demand_date
2090: GREATEST(
2091: TRUNC(DECODE(D.RECORD_SOURCE,
2092: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2093: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2094: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2095: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))), l_sys_next_date) col8,
2096: -1 * (D.USING_REQUIREMENT_QUANTITY - NVL(d.reserved_quantity, 0)) col9, -- supply_demand_quantity -- Bug 3823042
2097: decode(D.ORIGINATION_TYPE,-100,30,D.ORIGINATION_TYPE) col10, -- supply_demand_source_type -- Bug 3823042
2104: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2105: p_organization_id, p_instance_id, /*c.prior_date, */
2106: TRUNC(DECODE(D.RECORD_SOURCE,
2107: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2108: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2109: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2110: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2111: l_level_id, NULL),
2112: -23453, MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
2113: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2114: p_organization_id, p_instance_id, /*c.prior_date,*/
2115: TRUNC(DECODE(D.RECORD_SOURCE,
2116: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2117: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2118: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2119: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2120: l_level_id, NULL),
2121: d.organization_id, MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
2122: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2123: p_organization_id, p_instance_id, /*c.prior_date,*/
2124: TRUNC(DECODE(D.RECORD_SOURCE,
2125: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2126: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2127: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2128: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2129: l_level_id, NULL),
2130: NULL),
2133: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2134: p_organization_id, p_instance_id, /*c.prior_date, */
2135: TRUNC(DECODE(D.RECORD_SOURCE,
2136: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2137: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2138: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2139: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2140: l_level_id, NULL),
2141: -23453, MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
2142: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2143: p_organization_id, p_instance_id, /*c.prior_date,*/
2144: TRUNC(DECODE(D.RECORD_SOURCE,
2145: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2146: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2147: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2148: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2149: l_level_id, NULL),
2150: d.organization_id, MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
2151: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2152: p_organization_id, p_instance_id, /*c.prior_date,*/
2153: TRUNC(DECODE(D.RECORD_SOURCE,
2154: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2155: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2156: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2157: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2158: l_level_id, NULL),
2159: NULL),
2160: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(D.CUSTOMER_ID, D.SHIP_TO_SITE_ID,
2161: l_item_to_use, p_organization_id, p_instance_id, /*c.prior_date*/
2162: TRUNC(DECODE(D.RECORD_SOURCE,
2163: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2164: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2165: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2166: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2167: l_level_id, NULL))),
2168: TEMP.LEVEL_3_DEMAND_CLASS, 1,
2170: D.DEMAND_ID,
2171: --c.prior_date,
2172: TRUNC(DECODE(D.RECORD_SOURCE,
2173: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2174: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2175: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2176: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2177: D.USING_ASSEMBLY_ITEM_ID,
2178: DECODE(D.SOURCE_ORGANIZATION_ID,
2190: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2191: p_organization_id, p_instance_id, /*c.prior_date, */
2192: TRUNC(DECODE(D.RECORD_SOURCE,
2193: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2194: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2195: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2196: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2197: l_level_id, NULL),
2198: -23453, MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
2199: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2200: p_organization_id, p_instance_id, /*c.prior_date, */
2201: TRUNC(DECODE(D.RECORD_SOURCE,
2202: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2203: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2204: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2205: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2206: l_level_id, NULL),
2207: d.organization_id, MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
2208: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2209: p_organization_id, p_instance_id, /*c.prior_date, */
2210: TRUNC(DECODE(D.RECORD_SOURCE,
2211: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2212: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2213: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2214: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2215: l_level_id, NULL),
2216: TEMP.LEVEL_3_DEMAND_CLASS),
2219: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2220: p_organization_id, p_instance_id, /*c.prior_date, */
2221: TRUNC(DECODE(D.RECORD_SOURCE,
2222: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2223: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2224: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2225: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2226: l_level_id, NULL),
2227: -23453, MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
2228: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2229: p_organization_id, p_instance_id, /*c.prior_date, */
2230: TRUNC(DECODE(D.RECORD_SOURCE,
2231: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2232: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2233: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2234: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2235: l_level_id, NULL),
2236: d.organization_id, MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(
2237: D.CUSTOMER_ID, D.SHIP_TO_SITE_ID, l_item_to_use,
2238: p_organization_id, p_instance_id, /*c.prior_date,*/
2239: TRUNC(DECODE(D.RECORD_SOURCE,
2240: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2241: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2242: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2243: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2244: l_level_id, NULL),
2245: TEMP.LEVEL_3_DEMAND_CLASS),
2246: MSC_AATP_FUNC.Get_Hierarchy_Demand_Class(D.CUSTOMER_ID, D.SHIP_TO_SITE_ID,
2247: l_item_to_use, p_organization_id, p_instance_id, /*c.prior_date,*/
2248: TRUNC(DECODE(D.RECORD_SOURCE,
2249: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2250: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2251: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2252: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))),
2253: l_level_id, NULL))),
2254: TEMP.LEVEL_3_DEMAND_CLASS,
2303: -- Bug 3550296 and 3574164. IMPLEMENT_DATE AND DMD_SATISFIED_DATE are changed to
2304: -- IMPLEMENT_SHIP_DATE and PLANNED_SHIP_DATE resp.
2305: TRUNC(DECODE(RECORD_SOURCE,
2306: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2307: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2308: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2309: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))))
2310: AND
2311: TRUNC(NVL(D.ASSEMBLY_DEMAND_COMP_DATE,
2310: AND
2311: TRUNC(NVL(D.ASSEMBLY_DEMAND_COMP_DATE,
2312: DECODE(RECORD_SOURCE,
2313: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2314: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2315: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2316: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))))
2317: AND (( D.ORIGINATION_TYPE = 4
2318: AND C.SEQ_NUM IS NOT NULL) OR
2320: AND C.PRIOR_DATE < NVL(p_infinite_time_fence_date, C.PRIOR_DATE + 1)
2321: */
2322: AND TRUNC(DECODE(RECORD_SOURCE,
2323: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2324: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2325: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2326: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))) < TRUNC(p_infinite_time_fence_date)
2327: -- bug 2763784 (ssurendr)
2328: -- Should not select supply/demand where the original quantity itself is 0
2611: -- Bug 3550296 and 3574164. IMPLEMENT_DATE AND DMD_SATISFIED_DATE are changed to
2612: -- IMPLEMENT_SHIP_DATE and PLANNED_SHIP_DATE resp.
2613: TRUNC(DECODE(RECORD_SOURCE,
2614: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2615: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2616: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2617: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))))
2618: AND
2619: TRUNC(NVL(D.ASSEMBLY_DEMAND_COMP_DATE,
2618: AND
2619: TRUNC(NVL(D.ASSEMBLY_DEMAND_COMP_DATE,
2620: DECODE(RECORD_SOURCE,
2621: 2, NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE),
2622: DECODE(MSC_ATP_PVT.G_HP_DEMAND_BUCKETING_PREF,
2623: 2, NVL(D.IMPLEMENT_SHIP_DATE,NVL(D.FIRM_DATE,NVL(D.PLANNED_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE))),
2624: NVL(D.SCHEDULE_SHIP_DATE,D.USING_ASSEMBLY_DEMAND_DATE)))))
2625: AND (( D.ORIGINATION_TYPE = 4
2626: AND C.SEQ_NUM IS NOT NULL) OR
2736: END IF;
2737:
2738: -- bug 2763784 (ssurendr)
2739: -- Should not error out if no s/d record found
2740: --Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
2741: --x_return_status := FND_API.G_RET_STS_ERROR;
2742: --return;
2743: SELECT LEVEL_3_DEMAND_CLASS, LEVEL_1_DEMAND_CLASS, PARTNER_ID, PARTNER_SITE_ID
2744: BULK COLLECT INTO l_dc_list_tab, l_class_tab, l_customer_id_tab, l_customer_site_id_tab
2937: x_atp_period.Customer_Id(l_count) := l_customer_id_tab(l_index_counter);
2938: x_atp_period.Customer_Site_Id(l_count) := l_customer_site_id_tab(l_index_counter);
2939: END IF;
2940: x_atp_period.Period_Start_Date(l_count) := p_infinite_time_fence_date;
2941: x_atp_period.Total_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2942: x_atp_period.Total_Demand_Quantity(l_count) := 0;
2943: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
2944: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2945: x_atp_period.Period_End_Date(l_count) := p_infinite_time_fence_date;
2940: x_atp_period.Period_Start_Date(l_count) := p_infinite_time_fence_date;
2941: x_atp_period.Total_Supply_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2942: x_atp_period.Total_Demand_Quantity(l_count) := 0;
2943: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
2944: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2945: x_atp_period.Period_End_Date(l_count) := p_infinite_time_fence_date;
2946: x_atp_period.Cumulative_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2947: x_atp_period.Inventory_Item_Id(l_count) := p_inventory_item_id;
2948: x_atp_period.Organization_Id(l_count) := p_organization_id;
2942: x_atp_period.Total_Demand_Quantity(l_count) := 0;
2943: x_atp_period.Total_Bucketed_Demand_Quantity(l_count) := 0; -- for time_phased_atp
2944: x_atp_period.Period_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2945: x_atp_period.Period_End_Date(l_count) := p_infinite_time_fence_date;
2946: x_atp_period.Cumulative_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2947: x_atp_period.Inventory_Item_Id(l_count) := p_inventory_item_id;
2948: x_atp_period.Organization_Id(l_count) := p_organization_id;
2949: x_atp_period.Identifier1(l_count) := p_instance_id;
2950: x_atp_period.Scenario_Id(l_count) := l_scenario_id;
2948: x_atp_period.Organization_Id(l_count) := p_organization_id;
2949: x_atp_period.Identifier1(l_count) := p_instance_id;
2950: x_atp_period.Scenario_Id(l_count) := l_scenario_id;
2951: x_atp_period.Level(l_count) := l_level_id;
2952: x_atp_period.Backward_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2953: x_atp_period.Demand_Adjustment_Quantity(l_count) := 0;
2954: x_atp_period.Adjusted_Availability_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2955:
2956: IF G_ATP_FW_CONSUME_METHOD = 2 THEN
2950: x_atp_period.Scenario_Id(l_count) := l_scenario_id;
2951: x_atp_period.Level(l_count) := l_level_id;
2952: x_atp_period.Backward_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2953: x_atp_period.Demand_Adjustment_Quantity(l_count) := 0;
2954: x_atp_period.Adjusted_Availability_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2955:
2956: IF G_ATP_FW_CONSUME_METHOD = 2 THEN
2957: x_atp_period.Adjusted_Cum_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2958: END IF;
2953: x_atp_period.Demand_Adjustment_Quantity(l_count) := 0;
2954: x_atp_period.Adjusted_Availability_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2955:
2956: IF G_ATP_FW_CONSUME_METHOD = 2 THEN
2957: x_atp_period.Adjusted_Cum_Quantity(l_count) := MSC_ATP_PVT.INFINITE_NUMBER;
2958: END IF;
2959: --END IF; -- Bug 3823042
2960:
2961: END LOOP;
2968: IF PG_DEBUG in ('Y', 'C') THEN
2969: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'Profiles ALLOCATION_METHOD and CLASS_HIERARCHY are not set properly');
2970: END IF;
2971: x_return_status := FND_API.G_RET_STS_ERROR;
2972: Set_Error(MSC_ATP_PVT.INVALID_ALLOC_PROFILE_SETUP);
2973: return;
2974:
2975: END IF;
2976: /* We have computed horizontal period. */
2984: IF PG_DEBUG in ('Y', 'C') THEN
2985: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'Error in Compute_Allocation_Details: Invalid Objects Found');
2986: END IF;
2987: x_return_status := FND_API.G_RET_STS_ERROR;
2988: Set_Error(MSC_ATP_PVT.ATP_INVALID_OBJECTS);
2989:
2990: WHEN OTHERS THEN
2991: IF PG_DEBUG in ('Y', 'C') THEN
2992: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'Error in Compute_Allocation_Details: ' || to_char(sqlcode) || ':' || SQLERRM);
2991: IF PG_DEBUG in ('Y', 'C') THEN
2992: msc_sch_wb.atp_debug('Compute_Allocation_Details: ' || 'Error in Compute_Allocation_Details: ' || to_char(sqlcode) || ':' || SQLERRM);
2993: END IF;
2994: x_return_status := FND_API.G_RET_STS_ERROR;
2995: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
2996:
2997: END Compute_allocation_Details;
2998:
2999:
3031: x_return_status := FND_API.G_RET_STS_SUCCESS;
3032: l_record_type := 1;
3033: l_scenario_id := 0;
3034:
3035: IF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
3036: -- Demand priority; Demand class
3037: l_level_id := -1;
3038:
3039: /* Insert ATP Period Information */
3209: SELECT
3210: mapt.period_start_date period_start_date,
3211: DECODE(mapt.period_start_date,
3212: p_infinite_time_fence_date,
3213: MSC_ATP_PVT.INFINITE_NUMBER,
3214: SUM(DECODE(mapt.period_start_date,
3215: madt.period_start_date,
3216: madt.allocated_supply_quantity, 0))) allocated_supply_quantity,
3217: DECODE(mapt.period_start_date,
3221: madt.period_start_date,
3222: madt.supply_adjustment_quantity, 0))) supply_adjustment_quantity,
3223: DECODE(mapt.period_start_date,
3224: p_infinite_time_fence_date,
3225: MSC_ATP_PVT.INFINITE_NUMBER,
3226: SUM(DECODE(mapt.period_start_date,
3227: madt.period_start_date,
3228: madt.total_supply_quantity, 0))) total_supply_quantity,
3229: DECODE(mapt.period_start_date,
3240: --madt.total_demand_quantity, 0))) total_bucketed_demand_quantity, -- for time_phased_atp
3241: madt.total_bucketed_demand_quantity, 0))) total_bucketed_demand_quantity, --bug3519965
3242: DECODE(mapt.period_start_date,
3243: p_infinite_time_fence_date,
3244: MSC_ATP_PVT.INFINITE_NUMBER,
3245: SUM(DECODE(mapt.period_start_date,
3246: madt.period_start_date,
3247: madt.period_quantity, 0))) period_quantity,
3248: DECODE(mapt.period_start_date,
3246: madt.period_start_date,
3247: madt.period_quantity, 0))) period_quantity,
3248: DECODE(mapt.period_start_date,
3249: p_infinite_time_fence_date,
3250: MSC_ATP_PVT.INFINITE_NUMBER,
3251: SUM(DECODE(mapt.period_start_date,
3252: madt.period_start_date,
3253: madt.backward_forward_quantity, 0))) backward_forward_quantity,
3254: DECODE(mapt.period_start_date,
3252: madt.period_start_date,
3253: madt.backward_forward_quantity, 0))) backward_forward_quantity,
3254: DECODE(mapt.period_start_date,
3255: p_infinite_time_fence_date,
3256: MSC_ATP_PVT.INFINITE_NUMBER,
3257: -- rajjain 02/13/2003 Bug 2795372
3258: SUM(GREATEST(madt.cumulative_quantity, 0))) cumulative_quantity
3259: FROM
3260: MRP_ATP_DETAILS_TEMP madt,
3274: IF PG_DEBUG in ('Y', 'C') THEN
3275: msc_sch_wb.atp_debug('Insert_Allocation_Details: ' || 'After the summing SQL for Total');
3276: END IF;
3277:
3278: ELSIF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 2)) THEN
3279: -- IF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
3280: -- Rule based allocation; Demand class
3281:
3282: -- initialize l_level_id
3275: msc_sch_wb.atp_debug('Insert_Allocation_Details: ' || 'After the summing SQL for Total');
3276: END IF;
3277:
3278: ELSIF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 2)) THEN
3279: -- IF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 1)) THEN
3280: -- Rule based allocation; Demand class
3281:
3282: -- initialize l_level_id
3283: l_level_id := -1;
3561: madt.period_start_date period_start_date,
3562: madt.period_end_date period_end_date,
3563: DECODE(madt.period_start_date,
3564: p_infinite_time_fence_date,
3565: MSC_ATP_PVT.INFINITE_NUMBER,
3566: SUM(madt.allocated_supply_quantity)) allocated_supply_quantity,
3567: DECODE(madt.period_start_date,
3568: p_infinite_time_fence_date,
3569: 0,
3573: 0,
3574: SUM(madt.total_bucketed_demand_quantity)) total_bucketed_demand_quantity, -- for time_phased_atp
3575: DECODE(madt.period_start_date,
3576: p_infinite_time_fence_date,
3577: MSC_ATP_PVT.INFINITE_NUMBER,
3578: SUM(madt.period_quantity)) period_quantity,
3579: DECODE(madt.period_start_date,
3580: p_infinite_time_fence_date,
3581: MSC_ATP_PVT.INFINITE_NUMBER,
3577: MSC_ATP_PVT.INFINITE_NUMBER,
3578: SUM(madt.period_quantity)) period_quantity,
3579: DECODE(madt.period_start_date,
3580: p_infinite_time_fence_date,
3581: MSC_ATP_PVT.INFINITE_NUMBER,
3582: SUM(madt.cumulative_quantity)) cumulative_quantity,
3583: DECODE(madt.period_start_date,
3584: p_infinite_time_fence_date,
3585: MSC_ATP_PVT.INFINITE_NUMBER,
3581: MSC_ATP_PVT.INFINITE_NUMBER,
3582: SUM(madt.cumulative_quantity)) cumulative_quantity,
3583: DECODE(madt.period_start_date,
3584: p_infinite_time_fence_date,
3585: MSC_ATP_PVT.INFINITE_NUMBER,
3586: SUM(madt.backward_quantity)) backward_quantity,
3587: DECODE(madt.period_start_date,
3588: p_infinite_time_fence_date,
3589: 0,
3589: 0,
3590: SUM(madt.demand_adjustment_quantity)) demand_adjustment_quantity,
3591: DECODE(madt.period_start_date,
3592: p_infinite_time_fence_date,
3593: MSC_ATP_PVT.INFINITE_NUMBER,
3594: SUM(madt.adjusted_availability_quantity)) adjusted_availability_quantity,
3595: DECODE(madt.period_start_date,
3596: p_infinite_time_fence_date,
3597: MSC_ATP_PVT.INFINITE_NUMBER,
3593: MSC_ATP_PVT.INFINITE_NUMBER,
3594: SUM(madt.adjusted_availability_quantity)) adjusted_availability_quantity,
3595: DECODE(madt.period_start_date,
3596: p_infinite_time_fence_date,
3597: MSC_ATP_PVT.INFINITE_NUMBER,
3598: SUM(madt.adjusted_cum_quantity)) adjusted_cum_quantity
3599: FROM
3600: MRP_ATP_DETAILS_TEMP madt
3601: WHERE
3618: AND madt.Period_Start_Date between mv.Effective_Date and mv.Disable_Date
3619: AND mv.Level_Id = madt.Atp_Level
3620: AND mv.Inventory_Item_Id = Decode(sign(trunc(madt.Period_Start_Date) - G_ATF_Date),
3621: 1, p_dest_family_item_id,
3622: Decode(MSC_ATP_PVT.G_MEM_RULE_WITHIN_ATF,
3623: 'Y', p_dest_inv_item_id,
3624: p_dest_family_item_id)))
3625: WHERE madt.Record_Type = 1
3626: AND madt.Session_Id = p_session_id;
3646: IF PG_DEBUG in ('Y', 'C') THEN
3647: msc_sch_wb.atp_debug('Insert_Allocation_Details: ' || 'After the summing SQL for Total');
3648: END IF;
3649:
3650: ELSIF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 2) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 2)) THEN
3651: -- ELSIF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 2)) THEN
3652: -- Rule based allocation; customer class
3653:
3654: -- initialize l_level_id
3647: msc_sch_wb.atp_debug('Insert_Allocation_Details: ' || 'After the summing SQL for Total');
3648: END IF;
3649:
3650: ELSIF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 2) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 2)) THEN
3651: -- ELSIF ((MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND (MSC_ATP_PVT.G_ALLOCATION_METHOD = 2)) THEN
3652: -- Rule based allocation; customer class
3653:
3654: -- initialize l_level_id
3655: l_level_id := 3;
3963: madt.period_start_date period_start_date,
3964: madt.period_end_date period_end_date,
3965: DECODE(madt.period_start_date,
3966: p_infinite_time_fence_date,
3967: MSC_ATP_PVT.INFINITE_NUMBER,
3968: SUM(madt.allocated_supply_quantity)) allocated_supply_quantity,
3969: DECODE(madt.period_start_date,
3970: p_infinite_time_fence_date,
3971: 0,
3975: 0,
3976: SUM(madt.total_bucketed_demand_quantity)) total_bucketed_demand_quantity, -- for time_phased_atp
3977: DECODE(madt.period_start_date,
3978: p_infinite_time_fence_date,
3979: MSC_ATP_PVT.INFINITE_NUMBER,
3980: SUM(madt.period_quantity)) period_quantity,
3981: DECODE(madt.period_start_date,
3982: p_infinite_time_fence_date,
3983: MSC_ATP_PVT.INFINITE_NUMBER,
3979: MSC_ATP_PVT.INFINITE_NUMBER,
3980: SUM(madt.period_quantity)) period_quantity,
3981: DECODE(madt.period_start_date,
3982: p_infinite_time_fence_date,
3983: MSC_ATP_PVT.INFINITE_NUMBER,
3984: SUM(madt.cumulative_quantity)) cumulative_quantity,
3985: DECODE(madt.period_start_date,
3986: p_infinite_time_fence_date,
3987: MSC_ATP_PVT.INFINITE_NUMBER,
3983: MSC_ATP_PVT.INFINITE_NUMBER,
3984: SUM(madt.cumulative_quantity)) cumulative_quantity,
3985: DECODE(madt.period_start_date,
3986: p_infinite_time_fence_date,
3987: MSC_ATP_PVT.INFINITE_NUMBER,
3988: SUM(madt.backward_quantity)) backward_quantity,
3989: DECODE(madt.period_start_date,
3990: p_infinite_time_fence_date,
3991: 0,
3991: 0,
3992: SUM(madt.demand_adjustment_quantity)) demand_adjustment_quantity,
3993: DECODE(madt.period_start_date,
3994: p_infinite_time_fence_date,
3995: MSC_ATP_PVT.INFINITE_NUMBER,
3996: SUM(madt.adjusted_availability_quantity)) adjusted_availability_quantity,
3997: DECODE(madt.period_start_date,
3998: p_infinite_time_fence_date,
3999: MSC_ATP_PVT.INFINITE_NUMBER,
3995: MSC_ATP_PVT.INFINITE_NUMBER,
3996: SUM(madt.adjusted_availability_quantity)) adjusted_availability_quantity,
3997: DECODE(madt.period_start_date,
3998: p_infinite_time_fence_date,
3999: MSC_ATP_PVT.INFINITE_NUMBER,
4000: SUM(madt.adjusted_cum_quantity)) adjusted_cum_quantity
4001: FROM
4002: MRP_ATP_DETAILS_TEMP madt
4003: WHERE
4012: IF (SQL%ROWCOUNT = 0) THEN
4013: IF PG_DEBUG in ('Y', 'C') THEN
4014: msc_sch_wb.atp_debug('Insert_Allocation_Details: ' || 'Error occured while doing sub-Total for customer level');
4015: END IF;
4016: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
4017: x_return_status := FND_API.G_RET_STS_ERROR;
4018: return;
4019: END IF;
4020:
4090: madt.period_start_date period_start_date,
4091: madt.period_end_date period_end_date,
4092: DECODE(madt.period_start_date,
4093: p_infinite_time_fence_date,
4094: MSC_ATP_PVT.INFINITE_NUMBER,
4095: SUM(madt.allocated_supply_quantity)) allocated_supply_quantity,
4096: DECODE(madt.period_start_date,
4097: p_infinite_time_fence_date,
4098: 0,
4102: 0,
4103: SUM(madt.total_bucketed_demand_quantity)) total_bucketed_demand_quantity, -- for time_phased_atp
4104: DECODE(madt.period_start_date,
4105: p_infinite_time_fence_date,
4106: MSC_ATP_PVT.INFINITE_NUMBER,
4107: SUM(madt.period_quantity)) period_quantity,
4108: DECODE(madt.period_start_date,
4109: p_infinite_time_fence_date,
4110: MSC_ATP_PVT.INFINITE_NUMBER,
4106: MSC_ATP_PVT.INFINITE_NUMBER,
4107: SUM(madt.period_quantity)) period_quantity,
4108: DECODE(madt.period_start_date,
4109: p_infinite_time_fence_date,
4110: MSC_ATP_PVT.INFINITE_NUMBER,
4111: SUM(madt.cumulative_quantity)) cumulative_quantity,
4112: DECODE(madt.period_start_date,
4113: p_infinite_time_fence_date,
4114: MSC_ATP_PVT.INFINITE_NUMBER,
4110: MSC_ATP_PVT.INFINITE_NUMBER,
4111: SUM(madt.cumulative_quantity)) cumulative_quantity,
4112: DECODE(madt.period_start_date,
4113: p_infinite_time_fence_date,
4114: MSC_ATP_PVT.INFINITE_NUMBER,
4115: SUM(madt.backward_quantity)) backward_quantity,
4116: DECODE(madt.period_start_date,
4117: p_infinite_time_fence_date,
4118: 0,
4118: 0,
4119: SUM(madt.demand_adjustment_quantity)) demand_adjustment_quantity,
4120: DECODE(madt.period_start_date,
4121: p_infinite_time_fence_date,
4122: MSC_ATP_PVT.INFINITE_NUMBER,
4123: SUM(madt.adjusted_availability_quantity)) adjusted_availability_quantity,
4124: DECODE(madt.period_start_date,
4125: p_infinite_time_fence_date,
4126: MSC_ATP_PVT.INFINITE_NUMBER,
4122: MSC_ATP_PVT.INFINITE_NUMBER,
4123: SUM(madt.adjusted_availability_quantity)) adjusted_availability_quantity,
4124: DECODE(madt.period_start_date,
4125: p_infinite_time_fence_date,
4126: MSC_ATP_PVT.INFINITE_NUMBER,
4127: SUM(madt.adjusted_cum_quantity)) adjusted_cum_quantity
4128: FROM
4129: MRP_ATP_DETAILS_TEMP madt
4130: WHERE
4138: IF (SQL%ROWCOUNT = 0) THEN
4139: IF PG_DEBUG in ('Y', 'C') THEN
4140: msc_sch_wb.atp_debug('Insert_Allocation_Details: ' || 'Error occured while doing sub-Total for customer class level');
4141: END IF;
4142: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
4143: x_return_status := FND_API.G_RET_STS_ERROR;
4144: return;
4145: END IF;
4146:
4213: madt.period_start_date period_start_date,
4214: madt.period_end_date period_end_date,
4215: DECODE(madt.period_start_date,
4216: p_infinite_time_fence_date,
4217: MSC_ATP_PVT.INFINITE_NUMBER,
4218: SUM(madt.allocated_supply_quantity)) allocated_supply_quantity,
4219: DECODE(madt.period_start_date,
4220: p_infinite_time_fence_date,
4221: 0,
4225: 0,
4226: SUM(madt.total_bucketed_demand_quantity)) total_bucketed_demand_quantity, -- for time_phased_atp
4227: DECODE(madt.period_start_date,
4228: p_infinite_time_fence_date,
4229: MSC_ATP_PVT.INFINITE_NUMBER,
4230: SUM(madt.period_quantity)) period_quantity,
4231: DECODE(madt.period_start_date,
4232: p_infinite_time_fence_date,
4233: MSC_ATP_PVT.INFINITE_NUMBER,
4229: MSC_ATP_PVT.INFINITE_NUMBER,
4230: SUM(madt.period_quantity)) period_quantity,
4231: DECODE(madt.period_start_date,
4232: p_infinite_time_fence_date,
4233: MSC_ATP_PVT.INFINITE_NUMBER,
4234: SUM(madt.cumulative_quantity)) cumulative_quantity,
4235: DECODE(madt.period_start_date,
4236: p_infinite_time_fence_date,
4237: MSC_ATP_PVT.INFINITE_NUMBER,
4233: MSC_ATP_PVT.INFINITE_NUMBER,
4234: SUM(madt.cumulative_quantity)) cumulative_quantity,
4235: DECODE(madt.period_start_date,
4236: p_infinite_time_fence_date,
4237: MSC_ATP_PVT.INFINITE_NUMBER,
4238: SUM(madt.backward_quantity)) backward_quantity,
4239: DECODE(madt.period_start_date,
4240: p_infinite_time_fence_date,
4241: 0,
4241: 0,
4242: SUM(madt.demand_adjustment_quantity)) demand_adjustment_quantity,
4243: DECODE(madt.period_start_date,
4244: p_infinite_time_fence_date,
4245: MSC_ATP_PVT.INFINITE_NUMBER,
4246: SUM(madt.adjusted_availability_quantity)) adjusted_availability_quantity,
4247: DECODE(madt.period_start_date,
4248: p_infinite_time_fence_date,
4249: MSC_ATP_PVT.INFINITE_NUMBER,
4245: MSC_ATP_PVT.INFINITE_NUMBER,
4246: SUM(madt.adjusted_availability_quantity)) adjusted_availability_quantity,
4247: DECODE(madt.period_start_date,
4248: p_infinite_time_fence_date,
4249: MSC_ATP_PVT.INFINITE_NUMBER,
4250: SUM(madt.adjusted_cum_quantity)) adjusted_cum_quantity
4251: FROM
4252: MRP_ATP_DETAILS_TEMP madt
4253: WHERE
4261: IF (SQL%ROWCOUNT = 0) THEN
4262: IF PG_DEBUG in ('Y', 'C') THEN
4263: msc_sch_wb.atp_debug('Insert_Allocation_Details: ' || 'Error occured while doing grand-Total for customer class case');
4264: END IF;
4265: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
4266: x_return_status := FND_API.G_RET_STS_ERROR;
4267: return;
4268: END IF;
4269:
4287: AND madt.Period_Start_Date between mv.Effective_Date and mv.Disable_Date
4288: AND mv.Level_Id = madt.Atp_Level
4289: AND mv.Inventory_Item_Id = Decode(sign(trunc(madt.Period_Start_Date) - G_ATF_Date),
4290: 1, p_dest_family_item_id,
4291: Decode(MSC_ATP_PVT.G_MEM_RULE_WITHIN_ATF,
4292: 'Y', p_dest_inv_item_id,
4293: p_dest_family_item_id)))
4294: WHERE madt.Record_Type = 1
4295: AND madt.Session_Id = p_session_id;
4329: IF PG_DEBUG in ('Y', 'C') THEN
4330: msc_sch_wb.atp_debug('Insert_Allocation_Details: ' || 'Error in Insert_Allocation_Details: ' || to_char(sqlcode) || ':' || SQLERRM);
4331: END IF;
4332: x_return_status := FND_API.G_RET_STS_ERROR;
4333: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
4334:
4335: END Insert_allocation_Details;
4336:
4337: /*--Refresh_Allocation_Details----------------------------------------------
4521: IF PG_DEBUG in ('Y', 'C') THEN
4522: msc_sch_wb.atp_debug('Backward_Consume: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
4523: END IF;
4524: x_return_status := FND_API.G_RET_STS_ERROR;
4525: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
4526:
4527: END Backward_Consume;
4528:
4529:
4629: IF PG_DEBUG in ('Y', 'C') THEN
4630: msc_sch_wb.atp_debug('Forward_Consume: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
4631: END IF;
4632: x_return_status := FND_API.G_RET_STS_ERROR;
4633: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
4634:
4635: END Forward_Consume;
4636:
4637:
4811: IF PG_DEBUG in ('Y', 'C') THEN
4812: msc_sch_wb.atp_debug('Backward_Forward_Consume: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
4813: END IF;
4814: x_return_status := FND_API.G_RET_STS_ERROR;
4815: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
4816:
4817: END Backward_Forward_Consume;
4818:
4819:
4857: IF PG_DEBUG in ('Y', 'C') THEN
4858: msc_sch_wb.atp_debug('Compute_Cum: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
4859: END IF;
4860: x_return_status := FND_API.G_RET_STS_ERROR;
4861: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
4862: END Compute_Cum;
4863:
4864:
4865: /*--Compute_Cum------------------------------------------------------------
4907: IF PG_DEBUG in ('Y', 'C') THEN
4908: msc_sch_wb.atp_debug('Compute_Cum_Individual: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
4909: END IF;
4910: x_return_status := FND_API.G_RET_STS_ERROR;
4911: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
4912: END Compute_Cum_Individual;
4913:
4914:
4915:
5042: IF PG_DEBUG in ('Y', 'C') THEN
5043: msc_sch_wb.atp_debug('Adjust_Allocation_Details: ' || 'l_dc_count: ' || l_dc_count);
5044: END IF;
5045:
5046: IF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) THEN
5047: -- Demand class case
5048:
5049: IF PG_DEBUG in ('Y', 'C') THEN
5050: msc_sch_wb.atp_debug('Adjust_Allocation_Details: ' || 'Demand class case.');
5199:
5200: END LOOP;
5201:
5202:
5203: ELSIF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 2) THEN
5204: -- IF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) THEN
5205: -- Customer class heirarchy
5206:
5207: IF PG_DEBUG in ('Y', 'C') THEN
5200: END LOOP;
5201:
5202:
5203: ELSIF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 2) THEN
5204: -- IF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) THEN
5205: -- Customer class heirarchy
5206:
5207: IF PG_DEBUG in ('Y', 'C') THEN
5208: msc_sch_wb.atp_debug('Adjust_Allocation_Details: ' || 'Customer class case.');
5623: END LOOP;
5624: END IF;
5625: END LOOP;
5626:
5627: END IF; -- ELSIF (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) THEN
5628:
5629: IF G_ATP_FW_CONSUME_METHOD = 1 THEN
5630: -- steal from lower priority
5631:
5653: IF PG_DEBUG in ('Y', 'C') THEN
5654: msc_sch_wb.atp_debug('Adjust_Allocation_Details: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
5655: END IF;
5656: x_return_status := FND_API.G_RET_STS_ERROR;
5657: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
5658: END Adjust_Allocation_Details;
5659:
5660:
5661:
5809: IF PG_DEBUG in ('Y', 'C') THEN
5810: msc_sch_wb.atp_debug('Demand_Class_Consumption: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
5811: END IF;
5812: x_return_status := FND_API.G_RET_STS_ERROR;
5813: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
5814: END Demand_Class_Consumption;
5815:
5816:
5817: /*--Add_to_Next_Steal------------------------------------------------------
5966: IF PG_DEBUG in ('Y', 'C') THEN
5967: msc_sch_wb.atp_debug('Add_to_Next_Steal: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
5968: END IF;
5969: x_return_status := FND_API.G_RET_STS_ERROR;
5970: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
5971: END Add_to_Next_Steal;
5972:
5973:
5974:
6038: IF PG_DEBUG in ('Y', 'C') THEN
6039: msc_sch_wb.atp_debug('Add_to_Current_Atp: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
6040: END IF;
6041: x_return_status := FND_API.G_RET_STS_ERROR;
6042: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
6043: END Add_to_Current_Atp;
6044:
6045:
6046: /*--Remove_Negatives-------------------------------------------------------
6079: IF PG_DEBUG in ('Y', 'C') THEN
6080: msc_sch_wb.atp_debug('Remove_Negatives: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
6081: END IF;
6082: x_return_status := FND_API.G_RET_STS_ERROR;
6083: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
6084: END Remove_Negatives;
6085:
6086:
6087: /*--Adjust_Cum-------------------------------------------------------------
6158: IF PG_DEBUG in ('Y', 'C') THEN
6159: msc_sch_wb.atp_debug('Adjust_Cum: ' || 'Error occurred: ' || to_char(sqlcode) || ':' || SQLERRM);
6160: END IF;
6161: x_return_status := FND_API.G_RET_STS_ERROR;
6162: Set_Error(MSC_ATP_PVT.ATP_PROCESSING_ERROR);
6163: END Adjust_Cum;
6164:
6165:
6166: /*--Set_Error--------------------------------------------------------------