54: MSC_ATP_CTO.Match_CTO_Lines(p_session_id, p_dblink, p_instance_id, l_return_status);
55:
56: IF PG_DEBUG in ('Y', 'C') THEN
57: msc_sch_wb.atp_debug('***** l_return_status := ' || l_return_status);
58: msc_sch_wb.atp_debug('*** G_RET_STS_SUCCESS := ' || FND_API.G_RET_STS_SUCCESS);
59: END IF;
60: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
61: IF PG_DEBUG in ('Y', 'C') THEN
62: msc_sch_wb.atp_debug('***** Error Occured While Matching *****');
56: IF PG_DEBUG in ('Y', 'C') THEN
57: msc_sch_wb.atp_debug('***** l_return_status := ' || l_return_status);
58: msc_sch_wb.atp_debug('*** G_RET_STS_SUCCESS := ' || FND_API.G_RET_STS_SUCCESS);
59: END IF;
60: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
61: IF PG_DEBUG in ('Y', 'C') THEN
62: msc_sch_wb.atp_debug('***** Error Occured While Matching *****');
63: END IF;
64: l_error_code := MSC_ATP_PVT.ERROR_WHILE_MATCHING;
62: msc_sch_wb.atp_debug('***** Error Occured While Matching *****');
63: END IF;
64: l_error_code := MSC_ATP_PVT.ERROR_WHILE_MATCHING;
65: p_atp_rec.error_code(1) := MSC_ATP_PVT.ATP_PROCESSING_ERROR;
66: RAISE FND_API.G_EXC_ERROR ;
67:
68: END IF;
69:
70: IF PG_DEBUG in ('Y', 'C') THEN
141: msc_sch_wb.atp_debug('***** Errror Occured in Check_Lines_For_CTO_ATP');
142: msc_sch_wb.atp_debug('Sql Error := ' || SQLERRM);
143: END IF;
144: p_atp_rec.error_code(1) := MSC_ATP_PVT.ATP_PROCESSING_ERROR;
145: x_return_status := FND_API.G_RET_STS_ERROR;
146:
147: END Check_Lines_For_CTO_ATP;
148:
149: Procedure Match_CTO_Lines(P_session_id IN Number,
252: msc_sch_wb.atp_debug(' l_return_status := ' || l_return_status);
253: END IF;
254:
255:
256: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
257: IF PG_DEBUG in ('Y', 'C') THEN
258: msc_sch_wb.atp_debug(' Unhandeled ecpetion occured in call to CTO API');
259: msc_sch_wb.atp_debug('Error := ' || sqlerrm);
260: END IF;
257: IF PG_DEBUG in ('Y', 'C') THEN
258: msc_sch_wb.atp_debug(' Unhandeled ecpetion occured in call to CTO API');
259: msc_sch_wb.atp_debug('Error := ' || sqlerrm);
260: END IF;
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: RAISE FND_API.G_EXC_ERROR ;
263:
264: END IF;
265:
258: msc_sch_wb.atp_debug(' Unhandeled ecpetion occured in call to CTO API');
259: msc_sch_wb.atp_debug('Error := ' || sqlerrm);
260: END IF;
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: RAISE FND_API.G_EXC_ERROR ;
263:
264: END IF;
265:
266: EXCEPTION
268: IF PG_DEBUG in ('Y', 'C') THEN
269: msc_sch_wb.atp_debug(' Unhandeled ecpetion occured in call to CTO API');
270: msc_sch_wb.atp_debug('Error := ' || sqlerrm);
271: END IF;
272: x_return_status := FND_API.G_RET_STS_ERROR;
273: RAISE FND_API.G_EXC_ERROR ;
274: ---match fail
275: END;
276:
269: msc_sch_wb.atp_debug(' Unhandeled ecpetion occured in call to CTO API');
270: msc_sch_wb.atp_debug('Error := ' || sqlerrm);
271: END IF;
272: x_return_status := FND_API.G_RET_STS_ERROR;
273: RAISE FND_API.G_EXC_ERROR ;
274: ---match fail
275: END;
276:
277: -- update mrp_atp_schedule_temp with match info Praent_ato_lin_id information
323: END IF; --IF l_cto_lines_for_match.inventory_item_id.count > 0 TH
324: EXCEPTION
325: WHEN OTHERS THEN
326: msc_sch_wb.atp_debug('Error Occured := ' || SQLERRM);
327: x_return_status := FND_API.G_RET_STS_ERROR;
328:
329: END Match_CTO_Lines;
330:
331: Procedure Process_CTO_Sources(p_dblink IN varchar2,