[Home] [Help]
210: msc_util.msc_log ('*****--- Update_Summary_Flag ---*****');
211: msc_util.msc_log (' Plan ID : '|| p_plan_id || ' Status : ' || p_status);
212: END IF;
213:
214: x_return_status := FND_API.G_RET_STS_SUCCESS;
215:
216: update msc_plans
217: set summary_flag = p_status
218: where plan_id = p_plan_id;
221: WHEN OTHERS THEN
222: IF PG_DEBUG in ('Y', 'C') THEN
223: msc_util.msc_log ('Cannot Update. Error : ' || sqlerrm);
224: END IF;
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226:
227: END Update_Summary_Flag;
228:
229: --p_index is the length by which the record has to be extended, default is 1.
238: msc_util.msc_log('***** Begin Extend_Atp_Peg Procedure *****');
239: msc_util.msc_log ('p_index : ' || p_index);
240: END IF;
241:
242: x_return_status := FND_API.G_RET_STS_SUCCESS;
243:
244: atp_peg_tab.reference_item_id.Extend(p_index);
245: atp_peg_tab.base_item_id.Extend(p_index);
246: atp_peg_tab.inventory_item_id.Extend(p_index);
300: WHEN OTHERS THEN
301: IF PG_DEBUG in ('Y', 'C') THEN
302: msc_util.msc_log ('Extend_Atp_Peg: Problems in Extending record ERROR:'|| sqlerrm);
303: END IF;
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305:
306: END Extend_Atp_Peg;
307:
308: -- This procedure initializes the ATP PEgging PL/SQL Array
314: IF PG_DEBUG in ('Y', 'C') THEN
315: msc_util.msc_log('***** Begin Extend_Atp_Peg Procedure *****');
316: END IF;
317:
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
319:
320: atp_peg_tab.reference_item_id := MRP_ATP_PUB.number_arr();
321: atp_peg_tab.base_item_id := MRP_ATP_PUB.number_arr();
322: atp_peg_tab.inventory_item_id := MRP_ATP_PUB.number_arr();
372: WHEN OTHERS THEN
373: IF PG_DEBUG in ('Y', 'C') THEN
374: msc_util.msc_log ('Init_Atp_Peg: Problems in Extending record ERROR:'|| sqlerrm);
375: END IF;
376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377:
378: END Init_Atp_Peg;
379:
380: -- This procedure extends the ATP Detail Peg Record of Tables by p_index.
388: msc_util.msc_log('***** Begin Extend_Atp_Peg_Det Procedure *****');
389: msc_util.msc_log ('p_index : ' || p_index);
390: END IF;
391:
392: x_return_status := FND_API.G_RET_STS_SUCCESS;
393:
394: atp_peg_det.reference_item_id.Extend(p_index);
395: atp_peg_det.base_item_id.Extend(p_index);
396: atp_peg_det.inventory_item_id.Extend(p_index);
448: WHEN OTHERS THEN
449: IF PG_DEBUG in ('Y', 'C') THEN
450: msc_util.msc_log ('Extend_Atp_Peg_Det: Problems in Extending record ERROR:'|| sqlerrm);
451: END IF;
452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
453:
454: END Extend_Atp_Peg_Det;
455:
456:
516: msc_util.msc_log (' End Item Usage of parent -- p_end_item_usage: '
517: || p_end_item_usage);
518: END IF;
519:
520: x_return_status := FND_API.G_RET_STS_SUCCESS;
521:
522: l_row_count := x_atp_peg_tab.pegging_id.COUNT;
523:
524: IF PG_DEBUG in ('Y', 'C') THEN
1005: WHEN OTHERS THEN
1006: IF PG_DEBUG in ('Y', 'C') THEN
1007: msc_util.msc_log ('Calculate_Relief_Quantities. '|| sqlcode || ': ' || sqlerrm);
1008: END IF;
1009: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1010:
1011: END Calculate_Relief_Quantities;
1012:
1013: -- This procedure creates the pegging for resources and also
1034: IF PG_DEBUG in ('Y', 'C') THEN
1035: msc_util.msc_log('***** Begin Generate_Resource_Pegging Procedure *****');
1036: END IF;
1037:
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039:
1040: l_loop_count := atp_peg_tab.inventory_item_id.COUNT;
1041: l_new_count := l_loop_count ;
1042:
1198: WHEN OTHERS THEN
1199: IF PG_DEBUG in ('Y', 'C') THEN
1200: msc_util.msc_log ('Generate_Resource_Pegging. Error : ' || sqlerrm);
1201: END IF;
1202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203:
1204: END Generate_Resource_Pegging ;
1205:
1206: -- This procedures obtains the forecast consumption for Configuration Items
1241: atp_peg_tab.inventory_item_id(k) );
1242: msc_util.msc_log(' Base Model Id : ' || atp_peg_tab.base_item_id(k) );
1243: END IF;
1244:
1245: x_return_status := FND_API.G_RET_STS_SUCCESS;
1246:
1247: -- Initialize Variables
1248: l_fcst_mod_flag := 0;
1249:
1686: WHEN OTHERS THEN
1687: IF PG_DEBUG in ('Y', 'C') THEN
1688: msc_util.msc_log ('Get_Forecast_Consumption. Error : ' || sqlerrm);
1689: END IF;
1690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691:
1692: END Get_Forecast_Consumption;
1693:
1694: -- This procedure transforms a flat combined supply/demand pegging into a two
1705: IF PG_DEBUG in ('Y', 'C') THEN
1706: msc_util.msc_log('***** Begin Create_Simple_Pegging Procedure *****');
1707: END IF;
1708:
1709: x_return_status := FND_API.G_RET_STS_SUCCESS;
1710:
1711: IF PG_DEBUG in ('Y', 'C') THEN
1712: msc_util.msc_log(' atp_peg_det.reference_item_id.COUNT ' ||
1713: atp_peg_det.reference_item_id.COUNT);
1843: WHEN OTHERS THEN
1844: IF PG_DEBUG in ('Y', 'C') THEN
1845: msc_util.msc_log ('Create_Simple_Pegging. Error : ' || sqlerrm);
1846: END IF;
1847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1848:
1849: END Create_Simple_Pegging;
1850:
1851: -- Bug 3344102 Procedure begin
1875: msc_util.msc_log(' User Id Paramenter : ' || p_user_id );
1876: msc_util.msc_log(' Date Parameter : ' || p_sysdate );
1877: END IF;
1878:
1879: x_return_status := FND_API.G_RET_STS_SUCCESS;
1880:
1881: -- Set the relief type for only demands with Allocated ATP on.
1882: l_relief_type := 5;
1883:
1991: IF PG_DEBUG in ('Y', 'C') THEN
1992: msc_util.msc_log('Inside main exception of Create_Pre_Allocation_Reliefs');
1993: msc_util.msc_log ('Create_Pre_Allocation_Reliefs. Error : ' || sqlcode || ': '|| sqlerrm);
1994: END IF;
1995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1996:
1997: END Create_Pre_Allocation_Reliefs;
1998: -- Bug 3344102 Procedure End
1999:
2026: msc_util.msc_log('***** Begin Get_Pegging_Data_Loop (Get_Pegging_Loop) *****');
2027: msc_util.msc_log('Get_Pegging_Loop : p_plan_id ' || p_plan_id);
2028: END IF;
2029:
2030: x_return_status := FND_API.G_RET_STS_SUCCESS;
2031:
2032: -- Initialize variables;
2033: -- First get the performance parameters.
2034:
2800: WHEN OTHERS THEN
2801: IF PG_DEBUG in ('Y', 'C') THEN
2802: msc_util.msc_log ('Get_Pegging_Data_Loop. Error : ' || sqlcode || ': ' || sqlerrm);
2803: END IF;
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2805:
2806: END Get_Pegging_Data_Loop;
2807: -- End Bug 3750638 Move all the pegging releated SQLs into this procedure.
2808:
3273: Get_Pegging_Data_Loop ( p_plan_id,
3274: c_items_rec,
3275: l_return_status);
3276:
3277: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3278: IF PG_DEBUG in ('Y', 'C') THEN
3279: msc_util.msc_log('Gen_Atp_Pegging: ' ||
3280: 'Error occured in procedure Get_Pegging_Data_Loop');
3281: END IF;
3278: IF PG_DEBUG in ('Y', 'C') THEN
3279: msc_util.msc_log('Gen_Atp_Pegging: ' ||
3280: 'Error occured in procedure Get_Pegging_Data_Loop');
3281: END IF;
3282: RAISE FND_API.G_EXC_ERROR;
3283: END IF;
3284: -- End Bug 3750638 Call the SQL statements now moved to a new procedure
3285:
3286:
4374: l_return_status);
4375:
4376: END IF;
4377: -- CTO-PF end
4378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4379: IF PG_DEBUG in ('Y', 'C') THEN
4380: msc_util.msc_log('Gen_Atp_Pegging: ' ||
4381: 'Error occured in procedure Create_Pre_Allocation_Reliefs');
4382: END IF;
4379: IF PG_DEBUG in ('Y', 'C') THEN
4380: msc_util.msc_log('Gen_Atp_Pegging: ' ||
4381: 'Error occured in procedure Create_Pre_Allocation_Reliefs');
4382: END IF;
4383: RAISE FND_API.G_EXC_ERROR;
4384: END IF;
4385: -- End Bug 3344102 After Call to creation of Allocated ATP Pegging Data.
4386:
4387: IF p_share_partition = 'Y' THEN
4609: -- Update summary flag to signify begining of pegging generation
4610: Update_Summary_Flag ( p_plan_id,
4611: MSC_POST_PRO.G_SF_ATPPEG_RUNNING,
4612: l_return_status);
4613: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4614: IF PG_DEBUG in ('Y', 'C') THEN
4615: msc_util.msc_log('Post_Plan_Pegging: ' ||
4616: 'Error occured in procedure Update_Summary_Flag');
4617: END IF;
4614: IF PG_DEBUG in ('Y', 'C') THEN
4615: msc_util.msc_log('Post_Plan_Pegging: ' ||
4616: 'Error occured in procedure Update_Summary_Flag');
4617: END IF;
4618: RAISE FND_API.G_EXC_ERROR;
4619: END IF;
4620: BEGIN
4621: IF fnd_global.conc_request_id > 0 THEN
4622: select logfile_name
4677: -- Update summary flag to signify end of pegging generation
4678: Update_Summary_Flag ( p_plan_id,
4679: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED,
4680: l_return_status);
4681: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4682: IF PG_DEBUG in ('Y', 'C') THEN
4683: msc_util.msc_log('Post_Plan_Pegging: ' ||
4684: 'Error occured in procedure Update_Summary_Flag');
4685: END IF;
4682: IF PG_DEBUG in ('Y', 'C') THEN
4683: msc_util.msc_log('Post_Plan_Pegging: ' ||
4684: 'Error occured in procedure Update_Summary_Flag');
4685: END IF;
4686: RAISE FND_API.G_EXC_ERROR;
4687: END IF;
4688: EXCEPTION
4689: WHEN OTHERS THEN
4690: Update_Summary_Flag ( p_plan_id,
4690: Update_Summary_Flag ( p_plan_id,
4691: NVL(l_summary_flag, 1),
4692: l_return_status);
4693:
4694: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4695: IF PG_DEBUG in ('Y', 'C') THEN
4696: msc_util.msc_log('Post_Plan_Pegging: ' ||
4697: 'Error occured in procedure Update_Summary_Flag');
4698: END IF;
4769: || p_identifier ||' : plan id = '||p_plan_id);
4770: msc_sch_wb.atp_debug('Add_Offset_Demands: ' || 'Config Line Id = ' || p_config_line_id );
4771: END IF;
4772:
4773: x_return_status := FND_API.G_RET_STS_SUCCESS;
4774:
4775: l_sysdate := sysdate;
4776: l_user_id := FND_GLOBAL.USER_ID;
4777:
5230:
5231: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Demands');
5233: END IF;
5234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5235: -- Bug 3319810 Enable exception generation.
5236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5237: END Add_Offset_Demands;
5238:
5232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Demands');
5233: END IF;
5234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5235: -- Bug 3319810 Enable exception generation.
5236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5237: END Add_Offset_Demands;
5238:
5239: PROCEDURE Add_Offset_Supplies (
5240: p_identifier IN NUMBER,
5298: || p_identifier ||' : plan id = '||p_plan_id);
5299: msc_sch_wb.atp_debug('Add_Offset_Supplies: ' || 'Config Line Id = ' || p_config_line_id );
5300: END IF;
5301:
5302: x_return_status := FND_API.G_RET_STS_SUCCESS;
5303:
5304: l_sysdate := sysdate;
5305: l_user_id := FND_GLOBAL.USER_ID;
5306:
5683:
5684: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5685: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Supplies');
5686: END IF;
5687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5688: -- Bug 3319810 Enable exception generation.
5689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5690:
5691: END Add_Offset_Supplies;
5685: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Supplies');
5686: END IF;
5687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5688: -- Bug 3319810 Enable exception generation.
5689: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5690:
5691: END Add_Offset_Supplies;
5692:
5693: PROCEDURE Add_Offset_Resource_Reqs (
5741: || p_identifier ||' : plan id = '||p_plan_id);
5742: msc_sch_wb.atp_debug('Add_Offset_Resource_Reqs: Config Line Id = ' || p_config_line_id );
5743: END IF ;
5744:
5745: x_return_status := FND_API.G_RET_STS_SUCCESS;
5746:
5747: -- CTO_PF_PRJ_2 Changes
5748: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
5749: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
5954:
5955: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5956: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Resource_Reqs');
5957: END IF;
5958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5959: -- Bug 3319810 Enable exception generation.
5960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5961:
5962: END Add_Offset_Resource_Reqs;
5956: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Resource_Reqs');
5957: END IF;
5958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5959: -- Bug 3319810 Enable exception generation.
5960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5961:
5962: END Add_Offset_Resource_Reqs;
5963:
5964: PROCEDURE Add_Offset_Data (
5995: msc_sch_wb.atp_debug('Add_Offset_Data p_refresh_number :' || p_refresh_number);
5996: msc_sch_wb.atp_debug('Add_Offset_Data p_order_number :' || p_order_number);
5997: END IF;
5998:
5999: x_return_status := FND_API.G_RET_STS_SUCCESS;
6000:
6001:
6002: -- Bug 3717618 Flip the order of calls to
6003: -- Add Offset records, First call Offset Supplies and
6065:
6066: IF PG_DEBUG in ('Y', 'C') THEN
6067: msc_sch_wb.atp_debug('Add_Offset_Data: ERROR' || sqlerrm );
6068: END IF;
6069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6070: -- Bug 3319810 Enable exception generation.
6071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6072: END Add_Offset_Data;
6073:
6067: msc_sch_wb.atp_debug('Add_Offset_Data: ERROR' || sqlerrm );
6068: END IF;
6069: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6070: -- Bug 3319810 Enable exception generation.
6071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6072: END Add_Offset_Data;
6073:
6074: PROCEDURE Remove_Offset_Demands (
6075: --p_identifiers IN MRP_ATP_PUB.Number_Arr,
6104: );
6105: END LOOP;
6106: END IF;
6107:
6108: x_return_status := FND_API.G_RET_STS_SUCCESS;
6109:
6110: -- CTO_PF_PRJ_2 Impacts
6111: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6112: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6208:
6209: IF PG_DEBUG in ('Y', 'C') THEN
6210: msc_sch_wb.atp_debug('Remove_Offset_Demands: ERROR' || sqlerrm );
6211: END IF;
6212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6213: -- Bug 3319810 Enable exception generation.
6214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6215:
6216: END Remove_Offset_Demands;
6210: msc_sch_wb.atp_debug('Remove_Offset_Demands: ERROR' || sqlerrm );
6211: END IF;
6212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6213: -- Bug 3319810 Enable exception generation.
6214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6215:
6216: END Remove_Offset_Demands;
6217:
6218: PROCEDURE Remove_Offset_Supplies (
6249: END LOOP;
6250: END IF;
6251:
6252:
6253: x_return_status := FND_API.G_RET_STS_SUCCESS;
6254:
6255: -- CTO_PF_PRJ_2 Changes Set Relief Type
6256: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6257: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6390:
6391: IF PG_DEBUG in ('Y', 'C') THEN
6392: msc_sch_wb.atp_debug('Remove_Offset_Supplies: ERROR' || sqlerrm );
6393: END IF;
6394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6395: -- Bug 3319810 Enable exception generation.
6396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6397:
6398: END Remove_Offset_Supplies;
6392: msc_sch_wb.atp_debug('Remove_Offset_Supplies: ERROR' || sqlerrm );
6393: END IF;
6394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6395: -- Bug 3319810 Enable exception generation.
6396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6397:
6398: END Remove_Offset_Supplies;
6399:
6400:
6426: );
6427: END LOOP;
6428: END IF;
6429:
6430: x_return_status := FND_API.G_RET_STS_SUCCESS;
6431:
6432: --Bug 3629191
6433: FORALL m IN 1..p_del_resrc_reqs.COUNT
6434: DELETE msc_resource_requirements
6472:
6473: IF PG_DEBUG in ('Y', 'C') THEN
6474: msc_sch_wb.atp_debug('Remove_Offset_Supplies: ERROR' || sqlerrm );
6475: END IF;
6476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6477: -- Bug 3319810 Enable exception generation.
6478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6479:
6480: END Remove_Offset_Resource_Reqs;
6474: msc_sch_wb.atp_debug('Remove_Offset_Supplies: ERROR' || sqlerrm );
6475: END IF;
6476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6477: -- Bug 3319810 Enable exception generation.
6478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6479:
6480: END Remove_Offset_Resource_Reqs;
6481:
6482: PROCEDURE Remove_Offset_Data (
6498: IF PG_DEBUG in ('Y', 'C') THEN
6499: msc_sch_wb.atp_debug('**********Begin Remove_Offset_Data Procedure************');
6500: END IF;
6501:
6502: x_return_status := FND_API.G_RET_STS_SUCCESS;
6503:
6504: Remove_Offset_Demands ( --p_identifiers, p_plan_ids,
6505: p_atp_peg_demands_plan_ids, --Bug 3629191
6506: p_inv_item_ids, p_del_demand_ids,p_demand_source_type, x_return_status);--cmro
6536:
6537: IF PG_DEBUG in ('Y', 'C') THEN
6538: msc_sch_wb.atp_debug('Remove_Offset_Data: ERROR' || sqlerrm );
6539: END IF;
6540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6541: -- Bug 3319810 Enable exception generation.
6542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6543: END Remove_Offset_Data;
6544:
6538: msc_sch_wb.atp_debug('Remove_Offset_Data: ERROR' || sqlerrm );
6539: END IF;
6540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6541: -- Bug 3319810 Enable exception generation.
6542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6543: END Remove_Offset_Data;
6544:
6545: -- Create Simplified pegging data for PF ATP Scenario.
6546: -- CTO_PF_PRJ_2 New procedure for CTO PF Cross Project Impacts.
6570: msc_sch_wb.atp_debug('Plan Id : ' || p_plan_id);
6571: msc_sch_wb.atp_debug('MSC_ATP_PVT.G_HYBRID_ALLOC_ATP : ' || MSC_ATP_PVT.G_HYBRID_ALLOC_ATP);
6572: END IF;
6573:
6574: x_return_status := FND_API.G_RET_STS_SUCCESS;
6575:
6576: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6577: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6578: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
6751:
6752: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6753: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Create_PF_Atp_Pegging');
6754: END IF;
6755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6757:
6758: END Create_PF_Atp_Pegging;
6759: -- End CTO_PF_PRJ_2
6752: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6753: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Create_PF_Atp_Pegging');
6754: END IF;
6755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6757:
6758: END Create_PF_Atp_Pegging;
6759: -- End CTO_PF_PRJ_2
6760:
6801: msc_sch_wb.atp_debug('Demand. Source Type p_demand_source_type : ' || p_demand_source_type);
6802: msc_sch_wb.atp_debug('MSC_ATP_PVT.G_HYBRID_ALLOC_ATP : ' || MSC_ATP_PVT.G_HYBRID_ALLOC_ATP);
6803: END IF;
6804:
6805: x_return_status := FND_API.G_RET_STS_SUCCESS;
6806:
6807: -- CTO_PF_PRJ_2 Impacts
6808: IF (MSC_ATP_PVT.G_CTO_PF_ATP = 'Y') THEN
6809: l_insert_temp_table := 'MSC_ATP_PEG_TEMP';
7495:
7496: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7497: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Create_Atp_Pegging');
7498: END IF;
7499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7501:
7502: END Create_Atp_Pegging;
7503:
7496: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7497: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Create_Atp_Pegging');
7498: END IF;
7499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7501:
7502: END Create_Atp_Pegging;
7503:
7504: END MSC_ATP_PEG;