[Home] [Help]
214: l_current_atp.atp_period,
215: l_current_atp.atp_qty,
216: l_return_status
217: );
218: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
219: IF PG_DEBUG in ('Y', 'C') THEN
220: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Item_Prealloc_Avail_Pf_Summ');
221: END IF;
222: RAISE FND_API.G_EXC_ERROR;
218: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
219: IF PG_DEBUG in ('Y', 'C') THEN
220: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Item_Prealloc_Avail_Pf_Summ');
221: END IF;
222: RAISE FND_API.G_EXC_ERROR;
223: END IF;
224:
225: END IF; -- IF Not_PF_Case THEN
226:
281: l_current_atp.atp_period,
282: l_current_atp.atp_qty,
283: l_return_status
284: );
285: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
286: IF PG_DEBUG in ('Y', 'C') THEN
287: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Item_Prealloc_Avail_Pf');
288: END IF;
289: RAISE FND_API.G_EXC_ERROR;
285: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
286: IF PG_DEBUG in ('Y', 'C') THEN
287: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Item_Prealloc_Avail_Pf');
288: END IF;
289: RAISE FND_API.G_EXC_ERROR;
290: END IF;
291: END IF; -- IF Not_PF_Case THEN
292:
293: END IF; -- IF MSC_ATP_PVT.G_SUMMARY_FLAG = 'Y' THEN -- For summary enhancement
316: p_scenario_id,
317: l_uom_code,
318: l_return_status
319: );
320: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
321: IF PG_DEBUG in ('Y', 'C') THEN
322: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Item_Prealloc_Avail_Pf_Dtls');
323: END IF;
324: RAISE FND_API.G_EXC_ERROR;
320: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
321: IF PG_DEBUG in ('Y', 'C') THEN
322: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Item_Prealloc_Avail_Pf_Dtls');
323: END IF;
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
326: ELSE -- IF Not_PF_Case THEN
327: INSERT INTO msc_atp_sd_details_temp (
328: ATP_Level,
509:
510: -- time_phased_atp
511: IF l_time_phased_atp='Y' THEN
512: MSC_ATP_PF.Get_Period_Data_From_Sd_Temp(x_atp_period, l_return_status);
513: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
514: IF PG_DEBUG in ('Y', 'C') THEN
515: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Get_Period_Data_From_Sd_Temp');
516: END IF;
517: RAISE FND_API.G_EXC_ERROR;
513: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
514: IF PG_DEBUG in ('Y', 'C') THEN
515: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Get_Period_Data_From_Sd_Temp');
516: END IF;
517: RAISE FND_API.G_EXC_ERROR;
518: END IF;
519: ELSE
520: --MSC_ATP_PROC.get_period_data_from_SD_temp(x_atp_period);
521: /* time_phased_atp
521: /* time_phased_atp
522: call new procedure to fix the issue of not displaying correct quantities in ATP SD Window when
523: user opens ATP SD window from ATP pegging in allocated scenarios*/
524: MSC_ATP_PROC.Get_Alloc_Data_From_Sd_Temp(x_atp_period, l_return_status);
525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
526: IF PG_DEBUG in ('Y', 'C') THEN
527: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Get_Alloc_Data_From_Sd_Temp');
528: END IF;
529: RAISE FND_API.G_EXC_ERROR;
525: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
526: IF PG_DEBUG in ('Y', 'C') THEN
527: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Get_Alloc_Data_From_Sd_Temp');
528: END IF;
529: RAISE FND_API.G_EXC_ERROR;
530: END IF;
531: END IF;
532:
533: l_current_atp.atp_period := x_atp_period.Period_Start_Date;
555: l_return_status,
556: l_current_atp.atp_period,
557: MSC_ATP_PF.Bw_Fw_Cum, --b/w, f/w consumption and accumulation
558: p_atf_date);
559: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
560: IF PG_DEBUG in ('Y', 'C') THEN
561: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Pf_Atp_Consume');
562: END IF;
563: RAISE FND_API.G_EXC_ERROR;
559: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
560: IF PG_DEBUG in ('Y', 'C') THEN
561: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Pf_Atp_Consume');
562: END IF;
563: RAISE FND_API.G_EXC_ERROR;
564: END IF;
565: ELSE
566: MSC_ATP_PROC.Atp_Consume(l_current_atp.atp_qty, l_current_atp.atp_qty.COUNT);
567: END IF;
567: END IF;
568:
569: /* Cum drop issue changes begin*/
570: MSC_AATP_PROC.Atp_Remove_Negatives(l_current_atp.atp_qty, l_return_status);
571: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
572: IF PG_DEBUG in ('Y', 'C') THEN
573: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Atp_Remove_Negatives');
574: END IF;
575: RAISE FND_API.G_EXC_ERROR;
571: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
572: IF PG_DEBUG in ('Y', 'C') THEN
573: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Atp_Remove_Negatives');
574: END IF;
575: RAISE FND_API.G_EXC_ERROR;
576: END IF;
577: /* Cum drop issue changes end*/
578:
579: IF PG_DEBUG in ('Y', 'C') THEN
910: IF PG_DEBUG in ('Y', 'C') THEN
911: msc_sch_wb.atp_debug('**********Begin Get_Forward_Material_Atp Procedure************');
912: END IF;
913: -- initialize API return status to success
914: x_return_status := FND_API.G_RET_STS_SUCCESS;
915: x_atp_pegging_tab := MRP_ATP_PUB.Number_Arr();
916:
917: IF PG_DEBUG in ('Y', 'C') THEN
918: msc_sch_wb.atp_debug('********** INPUT DATA:Get_Forward_Material_Atp **********');
1246: l_atp_qty_tab,
1247: l_atp_dc_tab,
1248: l_return_status
1249: );
1250: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251: IF PG_DEBUG in ('Y', 'C') THEN
1252: msc_sch_wb.atp_debug('Get_Forward_Material_Atp: ' || 'Error occured in procedure Get_Forward_Mat_Pf_Summ');
1253: END IF;
1254: RAISE FND_API.G_EXC_ERROR;
1250: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1251: IF PG_DEBUG in ('Y', 'C') THEN
1252: msc_sch_wb.atp_debug('Get_Forward_Material_Atp: ' || 'Error occured in procedure Get_Forward_Mat_Pf_Summ');
1253: END IF;
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1256:
1257: END IF; -- IF Not_PF_Case THEN
1258:
1332: l_atp_qty_tab,
1333: l_atp_dc_tab,
1334: l_return_status
1335: );
1336: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1337: IF PG_DEBUG in ('Y', 'C') THEN
1338: msc_sch_wb.atp_debug('Get_Forward_Material_Atp: ' || 'Error occured in procedure Get_Forward_Mat_Pf');
1339: END IF;
1340: RAISE FND_API.G_EXC_ERROR;
1336: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1337: IF PG_DEBUG in ('Y', 'C') THEN
1338: msc_sch_wb.atp_debug('Get_Forward_Material_Atp: ' || 'Error occured in procedure Get_Forward_Mat_Pf');
1339: END IF;
1340: RAISE FND_API.G_EXC_ERROR;
1341: END IF;
1342:
1343: END IF; -- IF Not_PF_Case THEN
1344:
1383: l_dc_start_index,
1384: l_dc_end_index,
1385: l_return_status
1386: );
1387: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1388: IF PG_DEBUG in ('Y', 'C') THEN
1389: msc_sch_wb.atp_debug('Get_Forward_Material_Atp: ' || 'Error occured in procedure Pf_Atp_Alloc_Consume');
1390: END IF;
1391: RAISE FND_API.G_EXC_ERROR;
1387: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1388: IF PG_DEBUG in ('Y', 'C') THEN
1389: msc_sch_wb.atp_debug('Get_Forward_Material_Atp: ' || 'Error occured in procedure Pf_Atp_Alloc_Consume');
1390: END IF;
1391: RAISE FND_API.G_EXC_ERROR;
1392: END IF;
1393: ELSE
1394: atp_alloc_consume(l_atp_qty_tab, l_atp_dc_tab, l_dc_list_tab, l_dc_start_index, l_dc_end_index);
1395: END IF;
1405: END IF;
1406:
1407: /* Cum drop issue changes begin*/
1408: MSC_AATP_PROC.Atp_Remove_Negatives(l_atp_qty_tab, l_return_status);
1409: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1410: IF PG_DEBUG in ('Y', 'C') THEN
1411: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Atp_Remove_Negatives');
1412: END IF;
1413: RAISE FND_API.G_EXC_ERROR;
1409: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1410: IF PG_DEBUG in ('Y', 'C') THEN
1411: msc_sch_wb.atp_debug('Item_Pre_Allocated_Atp: ' || 'Error occured in procedure Atp_Remove_Negatives');
1412: END IF;
1413: RAISE FND_API.G_EXC_ERROR;
1414: END IF;
1415: /* Cum drop issue changes end*/
1416:
1417:
2100: p_demand_source_type,--cmro
2101: --bug3684383
2102: p_order_number,
2103: l_return_status);
2104: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2105: IF PG_DEBUG in ('Y', 'C') THEN
2106: msc_sch_wb.atp_debug('Get_Forward_Material_Atp: ' || 'Error occured in procedure Add_PF_Stealing_Supply_Details');
2107: END IF;
2108: RAISE FND_API.G_EXC_ERROR;
2104: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2105: IF PG_DEBUG in ('Y', 'C') THEN
2106: msc_sch_wb.atp_debug('Get_Forward_Material_Atp: ' || 'Error occured in procedure Add_PF_Stealing_Supply_Details');
2107: END IF;
2108: RAISE FND_API.G_EXC_ERROR;
2109: END IF;
2110: END IF;
2111: -- time_phased_atp changes end
2112:
2191: END IF;
2192: x_requested_date_quantity := 0.0;
2193: x_atp_date_this_level := TRUNC(l_infinite_time_fence_date);
2194: x_atp_date_quantity_this_level := MSC_ATP_PVT.INFINITE_NUMBER;
2195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2196:
2197: /*IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2198: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , 'Get_Forward_Material_Atp');
2199: END IF;*/ --bug3583705
2197: /*IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2198: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , 'Get_Forward_Material_Atp');
2199: END IF;*/ --bug3583705
2200:
2201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2202: END Get_Forward_Material_Atp;
2203:
2204:
2205: END MSC_AATP_REQ;