[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:
1684: WHEN OTHERS THEN
1685: IF PG_DEBUG in ('Y', 'C') THEN
1686: msc_util.msc_log ('Get_Forecast_Consumption. Error : ' || sqlerrm);
1687: END IF;
1688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1689:
1690: END Get_Forecast_Consumption;
1691:
1692: -- This procedure transforms a flat combined supply/demand pegging into a two
1703: IF PG_DEBUG in ('Y', 'C') THEN
1704: msc_util.msc_log('***** Begin Create_Simple_Pegging Procedure *****');
1705: END IF;
1706:
1707: x_return_status := FND_API.G_RET_STS_SUCCESS;
1708:
1709: IF PG_DEBUG in ('Y', 'C') THEN
1710: msc_util.msc_log(' atp_peg_det.reference_item_id.COUNT ' ||
1711: atp_peg_det.reference_item_id.COUNT);
1841: WHEN OTHERS THEN
1842: IF PG_DEBUG in ('Y', 'C') THEN
1843: msc_util.msc_log ('Create_Simple_Pegging. Error : ' || sqlerrm);
1844: END IF;
1845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1846:
1847: END Create_Simple_Pegging;
1848:
1849: -- Bug 3344102 Procedure begin
1873: msc_util.msc_log(' User Id Paramenter : ' || p_user_id );
1874: msc_util.msc_log(' Date Parameter : ' || p_sysdate );
1875: END IF;
1876:
1877: x_return_status := FND_API.G_RET_STS_SUCCESS;
1878:
1879: -- Set the relief type for only demands with Allocated ATP on.
1880: l_relief_type := 5;
1881:
1989: IF PG_DEBUG in ('Y', 'C') THEN
1990: msc_util.msc_log('Inside main exception of Create_Pre_Allocation_Reliefs');
1991: msc_util.msc_log ('Create_Pre_Allocation_Reliefs. Error : ' || sqlcode || ': '|| sqlerrm);
1992: END IF;
1993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1994:
1995: END Create_Pre_Allocation_Reliefs;
1996: -- Bug 3344102 Procedure End
1997:
2024: msc_util.msc_log('***** Begin Get_Pegging_Data_Loop (Get_Pegging_Loop) *****');
2025: msc_util.msc_log('Get_Pegging_Loop : p_plan_id ' || p_plan_id);
2026: END IF;
2027:
2028: x_return_status := FND_API.G_RET_STS_SUCCESS;
2029:
2030: -- Initialize variables;
2031: -- First get the performance parameters.
2032:
2798: WHEN OTHERS THEN
2799: IF PG_DEBUG in ('Y', 'C') THEN
2800: msc_util.msc_log ('Get_Pegging_Data_Loop. Error : ' || sqlcode || ': ' || sqlerrm);
2801: END IF;
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2803:
2804: END Get_Pegging_Data_Loop;
2805: -- End Bug 3750638 Move all the pegging releated SQLs into this procedure.
2806:
3271: Get_Pegging_Data_Loop ( p_plan_id,
3272: c_items_rec,
3273: l_return_status);
3274:
3275: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3276: IF PG_DEBUG in ('Y', 'C') THEN
3277: msc_util.msc_log('Gen_Atp_Pegging: ' ||
3278: 'Error occured in procedure Get_Pegging_Data_Loop');
3279: END IF;
3276: IF PG_DEBUG in ('Y', 'C') THEN
3277: msc_util.msc_log('Gen_Atp_Pegging: ' ||
3278: 'Error occured in procedure Get_Pegging_Data_Loop');
3279: END IF;
3280: RAISE FND_API.G_EXC_ERROR;
3281: END IF;
3282: -- End Bug 3750638 Call the SQL statements now moved to a new procedure
3283:
3284:
4372: l_return_status);
4373:
4374: END IF;
4375: -- CTO-PF end
4376: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4377: IF PG_DEBUG in ('Y', 'C') THEN
4378: msc_util.msc_log('Gen_Atp_Pegging: ' ||
4379: 'Error occured in procedure Create_Pre_Allocation_Reliefs');
4380: END IF;
4377: IF PG_DEBUG in ('Y', 'C') THEN
4378: msc_util.msc_log('Gen_Atp_Pegging: ' ||
4379: 'Error occured in procedure Create_Pre_Allocation_Reliefs');
4380: END IF;
4381: RAISE FND_API.G_EXC_ERROR;
4382: END IF;
4383: -- End Bug 3344102 After Call to creation of Allocated ATP Pegging Data.
4384:
4385: IF p_share_partition = 'Y' THEN
4603: -- Update summary flag to signify begining of pegging generation
4604: Update_Summary_Flag ( p_plan_id,
4605: MSC_POST_PRO.G_SF_ATPPEG_RUNNING,
4606: l_return_status);
4607: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4608: IF PG_DEBUG in ('Y', 'C') THEN
4609: msc_util.msc_log('Post_Plan_Pegging: ' ||
4610: 'Error occured in procedure Update_Summary_Flag');
4611: END IF;
4608: IF PG_DEBUG in ('Y', 'C') THEN
4609: msc_util.msc_log('Post_Plan_Pegging: ' ||
4610: 'Error occured in procedure Update_Summary_Flag');
4611: END IF;
4612: RAISE FND_API.G_EXC_ERROR;
4613: END IF;
4614: BEGIN
4615: IF fnd_global.conc_request_id > 0 THEN
4616: select logfile_name
4663: -- Update summary flag to signify end of pegging generation
4664: Update_Summary_Flag ( p_plan_id,
4665: MSC_POST_PRO.G_SF_ATPPEG_COMPLETED,
4666: l_return_status);
4667: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4668: IF PG_DEBUG in ('Y', 'C') THEN
4669: msc_util.msc_log('Post_Plan_Pegging: ' ||
4670: 'Error occured in procedure Update_Summary_Flag');
4671: END IF;
4668: IF PG_DEBUG in ('Y', 'C') THEN
4669: msc_util.msc_log('Post_Plan_Pegging: ' ||
4670: 'Error occured in procedure Update_Summary_Flag');
4671: END IF;
4672: RAISE FND_API.G_EXC_ERROR;
4673: END IF;
4674: EXCEPTION
4675: WHEN OTHERS THEN
4676: Update_Summary_Flag ( p_plan_id,
4676: Update_Summary_Flag ( p_plan_id,
4677: NVL(l_summary_flag, 1),
4678: l_return_status);
4679:
4680: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4681: IF PG_DEBUG in ('Y', 'C') THEN
4682: msc_util.msc_log('Post_Plan_Pegging: ' ||
4683: 'Error occured in procedure Update_Summary_Flag');
4684: END IF;
4755: || p_identifier ||' : plan id = '||p_plan_id);
4756: msc_sch_wb.atp_debug('Add_Offset_Demands: ' || 'Config Line Id = ' || p_config_line_id );
4757: END IF;
4758:
4759: x_return_status := FND_API.G_RET_STS_SUCCESS;
4760:
4761: l_sysdate := sysdate;
4762: l_user_id := FND_GLOBAL.USER_ID;
4763:
5216:
5217: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5218: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Demands');
5219: END IF;
5220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5221: -- Bug 3319810 Enable exception generation.
5222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5223: END Add_Offset_Demands;
5224:
5218: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Demands');
5219: END IF;
5220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5221: -- Bug 3319810 Enable exception generation.
5222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5223: END Add_Offset_Demands;
5224:
5225: PROCEDURE Add_Offset_Supplies (
5226: p_identifier IN NUMBER,
5284: || p_identifier ||' : plan id = '||p_plan_id);
5285: msc_sch_wb.atp_debug('Add_Offset_Supplies: ' || 'Config Line Id = ' || p_config_line_id );
5286: END IF;
5287:
5288: x_return_status := FND_API.G_RET_STS_SUCCESS;
5289:
5290: l_sysdate := sysdate;
5291: l_user_id := FND_GLOBAL.USER_ID;
5292:
5669:
5670: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5671: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Supplies');
5672: END IF;
5673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5674: -- Bug 3319810 Enable exception generation.
5675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5676:
5677: END Add_Offset_Supplies;
5671: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Supplies');
5672: END IF;
5673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5674: -- Bug 3319810 Enable exception generation.
5675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5676:
5677: END Add_Offset_Supplies;
5678:
5679: PROCEDURE Add_Offset_Resource_Reqs (
5727: || p_identifier ||' : plan id = '||p_plan_id);
5728: msc_sch_wb.atp_debug('Add_Offset_Resource_Reqs: Config Line Id = ' || p_config_line_id );
5729: END IF ;
5730:
5731: x_return_status := FND_API.G_RET_STS_SUCCESS;
5732:
5733: -- CTO_PF_PRJ_2 Changes
5734: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
5735: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
5940:
5941: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5942: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Resource_Reqs');
5943: END IF;
5944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5945: -- Bug 3319810 Enable exception generation.
5946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5947:
5948: END Add_Offset_Resource_Reqs;
5942: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Add_Offset_Resource_Reqs');
5943: END IF;
5944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5945: -- Bug 3319810 Enable exception generation.
5946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5947:
5948: END Add_Offset_Resource_Reqs;
5949:
5950: PROCEDURE Add_Offset_Data (
5981: msc_sch_wb.atp_debug('Add_Offset_Data p_refresh_number :' || p_refresh_number);
5982: msc_sch_wb.atp_debug('Add_Offset_Data p_order_number :' || p_order_number);
5983: END IF;
5984:
5985: x_return_status := FND_API.G_RET_STS_SUCCESS;
5986:
5987:
5988: -- Bug 3717618 Flip the order of calls to
5989: -- Add Offset records, First call Offset Supplies and
6051:
6052: IF PG_DEBUG in ('Y', 'C') THEN
6053: msc_sch_wb.atp_debug('Add_Offset_Data: ERROR' || sqlerrm );
6054: END IF;
6055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6056: -- Bug 3319810 Enable exception generation.
6057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6058: END Add_Offset_Data;
6059:
6053: msc_sch_wb.atp_debug('Add_Offset_Data: ERROR' || sqlerrm );
6054: END IF;
6055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6056: -- Bug 3319810 Enable exception generation.
6057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6058: END Add_Offset_Data;
6059:
6060: PROCEDURE Remove_Offset_Demands (
6061: --p_identifiers IN MRP_ATP_PUB.Number_Arr,
6090: );
6091: END LOOP;
6092: END IF;
6093:
6094: x_return_status := FND_API.G_RET_STS_SUCCESS;
6095:
6096: -- CTO_PF_PRJ_2 Impacts
6097: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6098: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6194:
6195: IF PG_DEBUG in ('Y', 'C') THEN
6196: msc_sch_wb.atp_debug('Remove_Offset_Demands: ERROR' || sqlerrm );
6197: END IF;
6198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6199: -- Bug 3319810 Enable exception generation.
6200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6201:
6202: END Remove_Offset_Demands;
6196: msc_sch_wb.atp_debug('Remove_Offset_Demands: ERROR' || sqlerrm );
6197: END IF;
6198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6199: -- Bug 3319810 Enable exception generation.
6200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6201:
6202: END Remove_Offset_Demands;
6203:
6204: PROCEDURE Remove_Offset_Supplies (
6235: END LOOP;
6236: END IF;
6237:
6238:
6239: x_return_status := FND_API.G_RET_STS_SUCCESS;
6240:
6241: -- CTO_PF_PRJ_2 Changes Set Relief Type
6242: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6243: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6376:
6377: IF PG_DEBUG in ('Y', 'C') THEN
6378: msc_sch_wb.atp_debug('Remove_Offset_Supplies: ERROR' || sqlerrm );
6379: END IF;
6380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6381: -- Bug 3319810 Enable exception generation.
6382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6383:
6384: END Remove_Offset_Supplies;
6378: msc_sch_wb.atp_debug('Remove_Offset_Supplies: ERROR' || sqlerrm );
6379: END IF;
6380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6381: -- Bug 3319810 Enable exception generation.
6382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6383:
6384: END Remove_Offset_Supplies;
6385:
6386:
6412: );
6413: END LOOP;
6414: END IF;
6415:
6416: x_return_status := FND_API.G_RET_STS_SUCCESS;
6417:
6418: --Bug 3629191
6419: FORALL m IN 1..p_del_resrc_reqs.COUNT
6420: DELETE msc_resource_requirements
6458:
6459: IF PG_DEBUG in ('Y', 'C') THEN
6460: msc_sch_wb.atp_debug('Remove_Offset_Supplies: ERROR' || sqlerrm );
6461: END IF;
6462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6463: -- Bug 3319810 Enable exception generation.
6464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6465:
6466: END Remove_Offset_Resource_Reqs;
6460: msc_sch_wb.atp_debug('Remove_Offset_Supplies: ERROR' || sqlerrm );
6461: END IF;
6462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6463: -- Bug 3319810 Enable exception generation.
6464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6465:
6466: END Remove_Offset_Resource_Reqs;
6467:
6468: PROCEDURE Remove_Offset_Data (
6484: IF PG_DEBUG in ('Y', 'C') THEN
6485: msc_sch_wb.atp_debug('**********Begin Remove_Offset_Data Procedure************');
6486: END IF;
6487:
6488: x_return_status := FND_API.G_RET_STS_SUCCESS;
6489:
6490: Remove_Offset_Demands ( --p_identifiers, p_plan_ids,
6491: p_atp_peg_demands_plan_ids, --Bug 3629191
6492: p_inv_item_ids, p_del_demand_ids,p_demand_source_type, x_return_status);--cmro
6522:
6523: IF PG_DEBUG in ('Y', 'C') THEN
6524: msc_sch_wb.atp_debug('Remove_Offset_Data: ERROR' || sqlerrm );
6525: END IF;
6526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6527: -- Bug 3319810 Enable exception generation.
6528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6529: END Remove_Offset_Data;
6530:
6524: msc_sch_wb.atp_debug('Remove_Offset_Data: ERROR' || sqlerrm );
6525: END IF;
6526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6527: -- Bug 3319810 Enable exception generation.
6528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6529: END Remove_Offset_Data;
6530:
6531: -- Create Simplified pegging data for PF ATP Scenario.
6532: -- CTO_PF_PRJ_2 New procedure for CTO PF Cross Project Impacts.
6555: msc_sch_wb.atp_debug('SO End Demand Id : ' || p_end_demand_id);
6556: msc_sch_wb.atp_debug('Plan Id : ' || p_plan_id);
6557: END IF;
6558:
6559: x_return_status := FND_API.G_RET_STS_SUCCESS;
6560:
6561: IF ((MSC_ATP_PVT.G_INV_CTP = 4) AND
6562: (MSC_ATP_PVT.G_ALLOCATED_ATP = 'Y') AND
6563: (MSC_ATP_PVT.G_HIERARCHY_PROFILE = 1) AND
6676:
6677: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6678: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Create_PF_Atp_Pegging');
6679: END IF;
6680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6682:
6683: END Create_PF_Atp_Pegging;
6684: -- End CTO_PF_PRJ_2
6677: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6678: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Create_PF_Atp_Pegging');
6679: END IF;
6680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6682:
6683: END Create_PF_Atp_Pegging;
6684: -- End CTO_PF_PRJ_2
6685:
6725: msc_sch_wb.atp_debug('Config. Line Id p_config_order_line_id : ' || p_config_order_line_id);
6726: msc_sch_wb.atp_debug('Demand. Source Type p_demand_source_type : ' || p_demand_source_type);
6727: END IF;
6728:
6729: x_return_status := FND_API.G_RET_STS_SUCCESS;
6730:
6731: -- CTO_PF_PRJ_2 Impacts
6732: IF (MSC_ATP_PVT.G_CTO_PF_ATP = 'Y') THEN
6733: l_insert_temp_table := 'MSC_ATP_PEG_TEMP';
7089:
7090: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7091: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Create_Atp_Pegging');
7092: END IF;
7093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7095:
7096: END Create_Atp_Pegging;
7097:
7090: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7091: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME , 'Create_Atp_Pegging');
7092: END IF;
7093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7095:
7096: END Create_Atp_Pegging;
7097:
7098: END MSC_ATP_PEG;