[Home] [Help]
29:
30:
31: BEGIN
32: -- initialize API returm status to success
33: x_return_status := FND_API.G_RET_STS_SUCCESS;
34:
35: IF x_dblink IS NOT NULL THEN
36: l_dynstring := '@'||x_dblink;
37: END IF;
114: msc_sch_wb.atp_debug('ATP Invalid Objects Found in put_Into_temp_table ');
115: msc_sch_wb.atp_debug('put_into_temp_table: ' || ' Error in MSCUATPB.pls '||substr(sqlerrm,1,100));
116: END IF;
117: x_msg_data := substr(sqlerrm,1,100);
118: x_return_status := FND_API.G_RET_STS_ERROR;
119: -- IF l_dynstring is null THEN
120: -- ROLLBACK;
121: -- END IF;
122: RAISE MSC_ATP_PUB.ATP_INVALID_OBJECTS_FOUND;
126: IF PG_DEBUG in ('Y', 'C') THEN
127: msc_sch_wb.atp_debug('put_into_temp_table: ' || ' Error in MSCUATPB.pls '||substr(sqlerrm,1,100));
128: END IF;
129: x_msg_data := substr(sqlerrm,1,100);
130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131:
132: -- Bug 2458308 : krajan
133: -- Commented out rollbacks
134: -- IF l_dynstring is null THEN
133: -- Commented out rollbacks
134: -- IF l_dynstring is null THEN
135: -- ROLLBACK;
136: -- END IF;
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138:
139: END put_into_temp_table;
140:
141:
170: msc_sch_wb.atp_debug('get_from_temp_table: ' || 'Entering get from temp table');
171: msc_sch_wb.atp_debug('get_from_temp_table: ' || 'p_details_falg := ' || p_details_flag);
172: END IF;
173: -- initialize API returm status to success
174: x_return_status := FND_API.G_RET_STS_SUCCESS;
175:
176: IF x_dblink IS NOT NULL THEN
177: l_dynstring := '@'||x_dblink;
178: END IF;
833:
834: EXCEPTION
835:
836: WHEN MSC_ATP_PUB.ATP_INVALID_OBJECTS_FOUND THEN
837: x_return_status := FND_API.G_RET_STS_ERROR;
838: IF PG_DEBUG in ('Y', 'C') THEN
839: msc_sch_wb.atp_debug('error in get_from_temp_table' || sqlerrm);
840: msc_sch_wb.atp_debug('get_from_temp_table: ' || 'Invalid Objects found');
841: END IF;
841: END IF;
842: RAISE MSC_ATP_PUB.ATP_INVALID_OBJECTS_FOUND;
843:
844: WHEN OTHERS THEN
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: IF PG_DEBUG in ('Y', 'C') THEN
847: msc_sch_wb.atp_debug('error in get_from_temp_table' || sqlerrm);
848: END IF;
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: IF PG_DEBUG in ('Y', 'C') THEN
847: msc_sch_wb.atp_debug('error in get_from_temp_table' || sqlerrm);
848: END IF;
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850:
851: END get_from_temp_table;
852:
853: FUNCTION Call_ATP_11(
1033: || to_char(x_atp_rec_out.Requested_Date_Quantity(1)) );
1034: END IF;
1035:
1036:
1037: IF x_return_status <> FND_API.g_ret_sts_success THEN
1038: FOR j IN 1..x_atp_rec_out.Inventory_Item_Id.COUNT loop
1039: UPDATE mtl_demand_interface set
1040: LAST_UPDATE_DATE = SYSDATE,
1041: Error_Code = X_atp_rec_out.error_code(j),
1293: IF PG_DEBUG in ('Y', 'C') THEN
1294: msc_sch_wb.atp_debug('****Begin put_into_bom_temp_table ****');
1295: END IF;
1296: -- initialize API returm status to success
1297: x_return_status := FND_API.G_RET_STS_SUCCESS;
1298:
1299: IF p_dblink IS NOT NULL THEN
1300: l_dynstring := '@'||p_dblink;
1301: END IF;
1452: IF PG_DEBUG in ('Y', 'C') THEN
1453: msc_sch_wb.atp_debug(' Error in put_into_bom_temp_table '||substr(sqlerrm,1,100));
1454: END IF;
1455: x_msg_data := substr(sqlerrm,1,100);
1456: x_return_status := FND_API.G_RET_STS_ERROR;
1457: END put_into_bom_temp_table;
1458:
1459:
1460: PROCEDURE Put_Period_Data (
3998: IF PG_DEBUG in ('Y', 'C') THEN
3999: msc_sch_wb.atp_debug('Error Occured while transfering the data accros db link');
4000: msc_sch_wb.atp_debug('errro := ' ||SQLERRM);
4001: END IF;
4002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4003:
4004: END Transfer_Scheduling_data;
4005:
4006: /* Bug 5598066: Function to Truncate demand to 6 decimal places.