184: l_quantity2 number; --bug12798879
185: BEGIN
186:
187: -- Initialize API return status to success
188: x_return_status := FND_API.G_RET_STS_SUCCESS;
189:
190: -- OM: Debug Level. Just remove the comments
191: IF To_number(Nvl(fnd_profile.value('ONT_DEBUG_LEVEL'), '0')) > 0 THEN
192: oe_debug_pub.initialize;
237: ( p_line_id => p_RMA_Line_id
238: , x_line_tbl => l_old_line_tbl
239: , x_return_status => l_return_status
240: );
241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: RAISE FND_API.G_EXC_ERROR;
243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
238: , x_line_tbl => l_old_line_tbl
239: , x_return_status => l_return_status
240: );
241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: RAISE FND_API.G_EXC_ERROR;
243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
246:
239: , x_return_status => l_return_status
240: );
241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: RAISE FND_API.G_EXC_ERROR;
243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
246:
247: l_old_line_tbl(1).db_flag := FND_API.G_TRUE;
240: );
241: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: RAISE FND_API.G_EXC_ERROR;
243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
246:
247: l_old_line_tbl(1).db_flag := FND_API.G_TRUE;
248: l_line_tbl(1) := l_old_line_tbl(1);
243: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: END IF;
246:
247: l_old_line_tbl(1).db_flag := FND_API.G_TRUE;
248: l_line_tbl(1) := l_old_line_tbl(1);
249:
250: -- Set control flags.
251:
266: l_control_rec.check_security := FALSE;
267:
268: -- setting ship tolerances
269:
270: IF (l_line_tbl(1).ship_tolerance_below = FND_API.G_MISS_NUM)
271: OR (l_line_tbl(1).ship_tolerance_below is NULL) THEN
272: l_tolerance_below := 0.0;
273: ELSE
274: l_tolerance_below := l_line_tbl(1).ship_tolerance_below * l_line_tbl(1).ordered_quantity/100;
273: ELSE
274: l_tolerance_below := l_line_tbl(1).ship_tolerance_below * l_line_tbl(1).ordered_quantity/100;
275: END IF;
276:
277: IF (l_line_tbl(1).ship_tolerance_above = FND_API.G_MISS_NUM)
278: OR (l_line_tbl(1).ship_tolerance_above is NULL) THEN
279: l_tolerance_above := 0.0;
280: ELSE
281: l_tolerance_above := l_line_tbl(1).ship_tolerance_above * l_line_tbl(1).ordered_quantity/100;
288: l_quantity := p_quantity;
289: l_quantity2 := p_quantity2;
290: --Ending of changes in bug 12798879
291: -- set boolean for presence of quantity2 for OPM
292: IF (l_quantity2 = FND_API.G_MISS_NUM)
293: OR (l_quantity2 = 0 )
294: OR (l_quantity2 is NULL) THEN
295: b_dual_qty := FALSE;
296: ELSE
327: b_complete_receiving := TRUE;
328:
329: -- should not be receiving more than the ordered quantity
330:
331: IF ((l_line_tbl(1).shipped_quantity = FND_API.G_MISS_NUM) OR
332: (l_line_tbl(1).shipped_quantity is NULL)) THEN
333: l_updated_quantity := l_quantity;
334: IF b_dual_qty THEN
335: l_updated_quantity2 := l_quantity2; -- 04/20/2001 OPM
345: IF (l_updated_quantity >
346: l_line_tbl(1).ordered_quantity + l_tolerance_above) THEN
347: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_RCVD_QTY');
348: OE_MSG_PUB.Add;
349: x_return_status := FND_API.G_RET_STS_ERROR ;
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352:
353: -- under return, split the line
346: l_line_tbl(1).ordered_quantity + l_tolerance_above) THEN
347: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_RCVD_QTY');
348: OE_MSG_PUB.Add;
349: x_return_status := FND_API.G_RET_STS_ERROR ;
350: RAISE FND_API.G_EXC_ERROR;
351: END IF;
352:
353: -- under return, split the line
354: IF (l_updated_quantity <
357: IF l_debug_level > 0 THEN
358: oe_debug_pub.add( 'UNDER RETURN:'||TO_CHAR ( l_quantity ) ||'<'||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY+L_TOLERANCE_BELOW ) , 1 ) ;
359: END IF;
360:
361: l_open_line_rec.db_flag := FND_API.G_FALSE;
362: l_open_line_rec.ordered_quantity
363: := l_old_line_tbl(1).ordered_quantity - l_quantity;
364: IF b_dual_qty THEN
365: l_open_line_rec.ordered_quantity2
433: -- update fulfilled_quantity, and possibility to complete inspection.
434: b_om_processing := TRUE;
435:
436: -- get the current fulfilled quantity
437: IF ((l_line_tbl(1).fulfilled_quantity = FND_API.G_MISS_NUM) OR
438: (l_line_tbl(1).fulfilled_quantity is NULL)) THEN
439: l_updated_quantity := l_quantity;
440: IF b_dual_qty THEN
441: l_updated_quantity2 := l_quantity2; -- 04/20/2001 OPM
450: -- over quantity being passed
451: IF (l_line_tbl(1).shipped_quantity < l_updated_quantity ) THEN
452: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_DLVR_QTY');
453: OE_MSG_PUB.Add;
454: x_return_status := FND_API.G_RET_STS_ERROR ;
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457:
458: l_line_tbl(1).fulfilled_quantity := l_updated_quantity;
451: IF (l_line_tbl(1).shipped_quantity < l_updated_quantity ) THEN
452: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_DLVR_QTY');
453: OE_MSG_PUB.Add;
454: x_return_status := FND_API.G_RET_STS_ERROR ;
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457:
458: l_line_tbl(1).fulfilled_quantity := l_updated_quantity;
459: IF b_dual_qty THEN
520: (p_line_id => l_open_line_id
521: ,p_x_line_rec => l_temp_open_line_rec
522: ,x_return_status => l_return_status
523: );
524: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
525: RAISE FND_API.G_EXC_ERROR;
526: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
528: END IF;
521: ,p_x_line_rec => l_temp_open_line_rec
522: ,x_return_status => l_return_status
523: );
524: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
525: RAISE FND_API.G_EXC_ERROR;
526: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
528: END IF;
529: END IF;
522: ,x_return_status => l_return_status
523: );
524: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
525: RAISE FND_API.G_EXC_ERROR;
526: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
528: END IF;
529: END IF;
530:
523: );
524: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
525: RAISE FND_API.G_EXC_ERROR;
526: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
527: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
528: END IF;
529: END IF;
530:
531: IF ( l_quantity > 0 ) THEN -- received more
572: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_RCVD_QTY');
573: END IF;
574: END IF;
575: OE_MSG_PUB.Add;
576: x_return_status := FND_API.G_RET_STS_ERROR ;
577: RAISE FND_API.G_EXC_ERROR;
578: END IF;
579: -- Never receive on open line as this line will never have any receipt
580: -- associated with it.
573: END IF;
574: END IF;
575: OE_MSG_PUB.Add;
576: x_return_status := FND_API.G_RET_STS_ERROR ;
577: RAISE FND_API.G_EXC_ERROR;
578: END IF;
579: -- Never receive on open line as this line will never have any receipt
580: -- associated with it.
581:
607: (l_line_tbl(1).ordered_quantity + l_tolerance_above)) OR
608: ( l_updated_quantity = 0 ) THEN
609: -- split line if the l_updated_quantity is > 0.
610: IF l_updated_quantity > 0 THEN
611: l_open_line_rec.db_flag := FND_API.G_FALSE;
612: l_open_line_rec.ordered_quantity := -l_quantity;
613: IF b_dual_qty THEN
614: l_open_line_rec.ordered_quantity2 := -l_quantity2;
615: -- 04/20/2001 OPM
644: l_line_tbl(1).flow_status_code := 'AWAITING_RETURN';
645: ELSE
646: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_RCVD_QTY');
647: OE_MSG_PUB.Add;
648: x_return_status := FND_API.G_RET_STS_ERROR ;
649: RAISE FND_API.G_EXC_ERROR;
650: END IF;
651:
652: END IF; -- IF l_updated_quantity not between
645: ELSE
646: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_RCVD_QTY');
647: OE_MSG_PUB.Add;
648: x_return_status := FND_API.G_RET_STS_ERROR ;
649: RAISE FND_API.G_EXC_ERROR;
650: END IF;
651:
652: END IF; -- IF l_updated_quantity not between
653:
705: ELSE
706: -- Give error that it is a wrong correction
707: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_RCVD_QTY');
708: OE_MSG_PUB.Add;
709: x_return_status := FND_API.G_RET_STS_ERROR ;
710: RAISE FND_API.G_EXC_ERROR;
711: END IF;
712: END IF; -- IF (l_open_line_id is NULL) THEN
713:
706: -- Give error that it is a wrong correction
707: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_RCVD_QTY');
708: OE_MSG_PUB.Add;
709: x_return_status := FND_API.G_RET_STS_ERROR ;
710: RAISE FND_API.G_EXC_ERROR;
711: END IF;
712: END IF; -- IF (l_open_line_id is NULL) THEN
713:
714: END IF;
723: -- update fulfilled_quantity, and possibility to complete inspection.
724: b_om_processing := TRUE;
725:
726: -- get the current fulfilled quantity
727: IF ((l_line_tbl(1).fulfilled_quantity = FND_API.G_MISS_NUM) OR
728: (l_line_tbl(1).fulfilled_quantity is NULL)) THEN
729: l_updated_quantity := l_quantity;
730: IF b_dual_qty THEN
731: l_updated_quantity2 := l_quantity2; -- 04/20/2001 OPM
740: -- over quantity being passed
741: IF (l_line_tbl(1).shipped_quantity < l_updated_quantity ) THEN
742: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_DLVR_QTY');
743: OE_MSG_PUB.Add;
744: x_return_status := FND_API.G_RET_STS_ERROR ;
745: RAISE FND_API.G_EXC_ERROR;
746: END IF;
747:
748: /* Commented for Bug 5501949
741: IF (l_line_tbl(1).shipped_quantity < l_updated_quantity ) THEN
742: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_DLVR_QTY');
743: OE_MSG_PUB.Add;
744: x_return_status := FND_API.G_RET_STS_ERROR ;
745: RAISE FND_API.G_EXC_ERROR;
746: END IF;
747:
748: /* Commented for Bug 5501949
749: l_line_tbl(1).fulfilled_quantity := l_updated_quantity;
978: b_complete_receiving := TRUE;
979:
980: -- should not be receiving more than the ordered quantity
981:
982: IF ((l_line_tbl(1).shipped_quantity = FND_API.G_MISS_NUM) OR
983: (l_line_tbl(1).shipped_quantity is NULL)) THEN
984: l_updated_quantity := l_quantity;
985: IF b_dual_qty THEN
986: l_updated_quantity2 := l_quantity2; -- 04/20/2001 OPM
996: IF (l_updated_quantity >
997: l_line_tbl(1).ordered_quantity + l_tolerance_above) THEN
998: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_RCVD_QTY');
999: OE_MSG_PUB.Add;
1000: x_return_status := FND_API.G_RET_STS_ERROR ;
1001: RAISE FND_API.G_EXC_ERROR;
1002: END IF;
1003:
1004: -- under return, split the line
997: l_line_tbl(1).ordered_quantity + l_tolerance_above) THEN
998: FND_MESSAGE.Set_Name('ONT', 'OE_RETURN_INVALID_RCVD_QTY');
999: OE_MSG_PUB.Add;
1000: x_return_status := FND_API.G_RET_STS_ERROR ;
1001: RAISE FND_API.G_EXC_ERROR;
1002: END IF;
1003:
1004: -- under return, split the line
1005: IF (l_updated_quantity <
1008: IF l_debug_level > 0 THEN
1009: oe_debug_pub.add( 'UNDER RETURN:'||TO_CHAR ( l_quantity ) ||'<'||TO_CHAR ( L_LINE_TBL ( 1 ) .ORDERED_QUANTITY+L_TOLERANCE_BELOW ) , 1 ) ;
1010: END IF;
1011:
1012: l_open_line_rec.db_flag := FND_API.G_FALSE;
1013: l_open_line_rec.ordered_quantity
1014: := l_old_line_tbl(1).ordered_quantity - l_quantity;
1015: l_open_line_rec.split_from_line_id := p_RMA_Line_ID;
1016: l_open_line_rec.split_by := 'SYSTEM';
1072: -- Call OE_Order_PVT.Process_order
1073:
1074: OE_Order_PVT.Process_order
1075: ( p_api_version_number => 1.0
1076: , p_init_msg_list => FND_API.G_TRUE
1077: , x_return_status => x_return_status
1078: , x_msg_count => x_msg_count
1079: , x_msg_data => x_msg_data
1080: , p_control_rec => l_control_rec
1103:
1104: IF l_debug_level > 0 THEN
1105: oe_debug_pub.add( 'PROCESS ORDER Return Status IS '||x_return_status);
1106: END IF;
1107: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1104: IF l_debug_level > 0 THEN
1105: oe_debug_pub.add( 'PROCESS ORDER Return Status IS '||x_return_status);
1106: END IF;
1107: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112:
1105: oe_debug_pub.add( 'PROCESS ORDER Return Status IS '||x_return_status);
1106: END IF;
1107: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112:
1113: -- complete workflow activity
1106: END IF;
1107: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1110: RAISE FND_API.G_EXC_ERROR;
1111: END IF;
1112:
1113: -- complete workflow activity
1114:
1203: IF l_debug_level > 0 THEN
1204: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API 1 '|| L_RETURN_STATUS , 1 ) ;
1205: END IF;
1206:
1207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1209: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF;
1204: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API 1 '|| L_RETURN_STATUS , 1 ) ;
1205: END IF;
1206:
1207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1209: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF;
1212:
1205: END IF;
1206:
1207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1209: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF;
1212:
1213: END IF;
1206:
1207: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1209: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF;
1212:
1213: END IF;
1214: --Additional condition for bug 16284063
1226: IF l_debug_level > 0 THEN
1227: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API 2'|| L_RETURN_STATUS , 1 ) ;
1228: END IF;
1229:
1230: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1232: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1233: RAISE FND_API.G_EXC_ERROR;
1234: END IF;
1227: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API 2'|| L_RETURN_STATUS , 1 ) ;
1228: END IF;
1229:
1230: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1232: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1233: RAISE FND_API.G_EXC_ERROR;
1234: END IF;
1235:
1228: END IF;
1229:
1230: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1232: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1233: RAISE FND_API.G_EXC_ERROR;
1234: END IF;
1235:
1236: END IF;
1229:
1230: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1232: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1233: RAISE FND_API.G_EXC_ERROR;
1234: END IF;
1235:
1236: END IF;
1237: --Start bug 16284063
1249: IF l_debug_level > 0 THEN
1250: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API 3'|| L_RETURN_STATUS , 1 ) ;
1251: END IF;
1252:
1253: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1250: oe_debug_pub.add( 'RETURN STATUS FROM FLOW STATUS API 3'|| L_RETURN_STATUS , 1 ) ;
1251: END IF;
1252:
1253: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258:
1251: END IF;
1252:
1253: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258:
1259: END IF;
1252:
1253: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1256: RAISE FND_API.G_EXC_ERROR;
1257: END IF;
1258:
1259: END IF;
1260:
1267: END IF;
1268:
1269: EXCEPTION
1270:
1271: WHEN FND_API.G_EXC_ERROR THEN
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273:
1274: OE_MSG_PUB.Get
1275: ( p_msg_index => OE_MSG_PUB.G_LAST
1268:
1269: EXCEPTION
1270:
1271: WHEN FND_API.G_EXC_ERROR THEN
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273:
1274: OE_MSG_PUB.Get
1275: ( p_msg_index => OE_MSG_PUB.G_LAST
1276: , p_encoded => FND_API.G_FALSE
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273:
1274: OE_MSG_PUB.Get
1275: ( p_msg_index => OE_MSG_PUB.G_LAST
1276: , p_encoded => FND_API.G_FALSE
1277: , p_data => x_msg_data
1278: , p_msg_index_out => x_msg_count
1279: );
1280:
1277: , p_data => x_msg_data
1278: , p_msg_index_out => x_msg_count
1279: );
1280:
1281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1282: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1283: OE_MSG_PUB.Add_Exc_Msg
1284: (G_PKG_NAME
1285: ,'Push_Receiving_Info'
1284: (G_PKG_NAME
1285: ,'Push_Receiving_Info'
1286: );
1287: END IF;
1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1289:
1290: OE_MSG_PUB.Get
1291: ( p_msg_index => OE_MSG_PUB.G_LAST
1292: , p_encoded => FND_API.G_FALSE
1288: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1289:
1290: OE_MSG_PUB.Get
1291: ( p_msg_index => OE_MSG_PUB.G_LAST
1292: , p_encoded => FND_API.G_FALSE
1293: , p_data => x_msg_data
1294: , p_msg_index_out => x_msg_count
1295: );
1296:
1303: , 'Push_Receiving_Info'
1304: );
1305: END IF;
1306:
1307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1308:
1309: OE_MSG_PUB.Get
1310: ( p_msg_index => OE_MSG_PUB.G_LAST
1311: , p_encoded => FND_API.G_FALSE
1307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1308:
1309: OE_MSG_PUB.Get
1310: ( p_msg_index => OE_MSG_PUB.G_LAST
1311: , p_encoded => FND_API.G_FALSE
1312: , p_data => x_msg_data
1313: , p_msg_index_out => x_msg_count
1314: );
1315:
1454: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1455: --
1456: BEGIN
1457:
1458: x_return_status := FND_API.G_RET_STS_SUCCESS;
1459:
1460:
1461: Select SHIP_TOLERANCE_BELOW, SHIP_TOLERANCE_ABOVE
1462: into x_Under_Return_Tolerance,x_Over_Return_Tolerance
1481: ( p_count => x_msg_count
1482: , p_data => x_msg_data
1483: );
1484:
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486:
1487: END Get_RMA_Tolerances;
1488:
1489: END OE_RMA_RECEIVING;