135: IF p_Lot_Serial_rec.lot_serial_id IS NULL
136: THEN
137:
138: l_return_status := FND_API.G_RET_STS_ERROR;
139: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
140: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Lot Serial ID');
141: OE_MSG_PUB.Add;
142:
143: END IF;
136: THEN
137:
138: l_return_status := FND_API.G_RET_STS_ERROR;
139: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
140: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Lot Serial ID');
141: OE_MSG_PUB.Add;
142:
143: END IF;
144:
149: IF p_Lot_Serial_rec.quantity IS NULL
150: THEN
151:
152: l_return_status := FND_API.G_RET_STS_ERROR;
153: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
154: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Quantity');
155: OE_MSG_PUB.Add;
156:
157: END IF;
150: THEN
151:
152: l_return_status := FND_API.G_RET_STS_ERROR;
153: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
154: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Quantity');
155: OE_MSG_PUB.Add;
156:
157: END IF;
158:
174: IF p_Lot_Serial_rec.lot_number IS NULL AND
175: p_Lot_Serial_rec.from_serial_number IS NULL
176: THEN
177: l_return_status := FND_API.G_RET_STS_ERROR;
178: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
179: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Lot Number/From Serial Number');
180: OE_MSG_PUB.Add;
181:
182: END IF;
175: p_Lot_Serial_rec.from_serial_number IS NULL
176: THEN
177: l_return_status := FND_API.G_RET_STS_ERROR;
178: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
179: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Lot Number/From Serial Number');
180: OE_MSG_PUB.Add;
181:
182: END IF;
183: END IF; -- OPM new
187: p_Lot_Serial_rec.to_serial_number IS NULL
188: THEN
189:
190: l_return_status := FND_API.G_RET_STS_ERROR;
191: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
192: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','To Serial Number');
193: OE_MSG_PUB.Add;
194:
195: END IF;
188: THEN
189:
190: l_return_status := FND_API.G_RET_STS_ERROR;
191: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
192: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','To Serial Number');
193: OE_MSG_PUB.Add;
194:
195: END IF;
196:
246:
247: IF p_Lot_Serial_rec.quantity > (l_ordered_qty - l_total_qty)
248: THEN
249: l_return_status := FND_API.G_RET_STS_ERROR;
250: FND_MESSAGE.SET_NAME('ONT','OE_TOO_MANY_LOT_SERIAL');
251: OE_MSG_PUB.Add;
252:
253: END IF;
254: END IF;
283: x_to_number,
284: x_error_code)
285: THEN
286: l_return_status := FND_API.G_RET_STS_ERROR;
287: FND_MESSAGE.Set_Name('ONT','OE_NOT_KNOW_QUANTITY');
288: OE_MSG_PUB.Add;
289: IF l_debug_level > 0 THEN
290: oe_debug_pub.add( 'IN OE_VALIDATE_LOT_SERIAL.ENTITY 2' , 1 ) ;
291: END IF;
291: END IF;
292: ELSE
293: IF p_Lot_Serial_rec.quantity <> x_quantity THEN
294: l_return_status := FND_API.G_RET_STS_ERROR;
295: FND_MESSAGE.Set_Name('ONT','OE_QUANTITY_MISMATCH');
296: OE_MSG_PUB.Add;
297: IF l_debug_level > 0 THEN
298: oe_debug_pub.add( 'IN OE_VALIDATE_LOT_SERIAL.ENTITY 3' , 1 ) ;
299: END IF;
417: and p_Lot_Serial_rec.lot_number IS NOT NULL ) then
418: IF l_debug_level > 0 THEN
419: oe_debug_pub.add( 'INVALID LINE LOT SERIALS LOT NUMBER...' ) ;
420: END IF;
421: FND_MESSAGE.SET_NAME('INV','INV_NO_LOT_CONTROL');
422: OE_MSG_PUB.Add;
423: l_return_status := FND_API.G_RET_STS_ERROR;
424: END IF;
425:
428: and p_Lot_Serial_rec.sublot_number IS NOT NULL ) then
429: IF l_debug_level > 0 THEN
430: oe_debug_pub.add( 'OPM INVALID LINE LOT SERIALS SUBLOT NUMBER...' ) ;
431: END IF;
432: FND_MESSAGE.SET_NAME('GMI','IC_SUBLOTNO');
433: OE_MSG_PUB.Add;
434: l_return_status := FND_API.G_RET_STS_ERROR;
435: END IF; */
436:
443:
444: IF l_debug_level > 0 THEN
445: oe_debug_pub.add( 'OPM INVALID LINE LOT SERIALS NO LOT NUMBER...' ) ;
446: END IF;
447: FND_MESSAGE.SET_NAME('INV','INV_MISSING_LOT');
448: OE_MSG_PUB.Add;
449: l_return_status := FND_API.G_RET_STS_ERROR;
450: END IF; */
451:
468: IF c_lot1%NOTFOUND THEN
469: IF l_debug_level > 0 THEN
470: oe_debug_pub.add( 'NO_DATA_FOUND WHEN checking RMA attribute lot number' ) ;
471: END IF;
472: FND_MESSAGE.SET_NAME('INV','INV_CHECK_LOT_ENTRY'); -- INVCONV PLSE ENTER A VALID LOT NUMBER
473: OE_MSG_PUB.Add;
474: l_return_status := FND_API.G_RET_STS_ERROR;
475:
476: END IF;
489: IF l_debug_level > 0 THEN
490: oe_debug_pub.add( 'NO_DATA_FOUND WHEN checking RMA attribute lot number' ) ;
491: END IF;
492: l_lot_id := 0;
493: FND_MESSAGE.SET_NAME('INV','INV_CHECK_LOT_ENTRY'); -- INVCONV PLSE ENTER A VALID LOT NUMBER
494: OE_MSG_PUB.Add;
495: l_return_status := FND_API.G_RET_STS_ERROR;
496:
497: END IF;
520: IF l_debug_level > 0 THEN
521: oe_debug_pub.add( 'OPM NO_DATA_FOUND WHEN checking OPM RMA attribute sublot number' ) ;
522: END IF;
523: l_lot_id := 0;
524: FND_MESSAGE.SET_NAME('GMI','IC_SUBLOTNO');
525: OE_MSG_PUB.Add;
526: l_return_status := FND_API.G_RET_STS_ERROR;
527:
528: END IF;
544:
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add( 'INVALID LINE LOT SERIALS QUANTITY2...' ) ; -- INVCONV
547: END IF;
548: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_QTY_NOT_REQUIRED'); --INVCONV
549: --FND_MESSAGE.SET_TOKEN('ITEM_NO',L_ITEM_NO); INVCONV
550: --FND_MESSAGE.SET_TOKEN('LOT_NO',p_lot_serial_rec.lot_number); INVCONV
551: --FND_MESSAGE.SET_TOKEN('SUBLOT_NO',p_lot_serial_rec.sublot_number); INVCONV
552: OE_MSG_PUB.Add;
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add( 'INVALID LINE LOT SERIALS QUANTITY2...' ) ; -- INVCONV
547: END IF;
548: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_QTY_NOT_REQUIRED'); --INVCONV
549: --FND_MESSAGE.SET_TOKEN('ITEM_NO',L_ITEM_NO); INVCONV
550: --FND_MESSAGE.SET_TOKEN('LOT_NO',p_lot_serial_rec.lot_number); INVCONV
551: --FND_MESSAGE.SET_TOKEN('SUBLOT_NO',p_lot_serial_rec.sublot_number); INVCONV
552: OE_MSG_PUB.Add;
553: l_return_status := FND_API.G_RET_STS_ERROR;
546: oe_debug_pub.add( 'INVALID LINE LOT SERIALS QUANTITY2...' ) ; -- INVCONV
547: END IF;
548: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_QTY_NOT_REQUIRED'); --INVCONV
549: --FND_MESSAGE.SET_TOKEN('ITEM_NO',L_ITEM_NO); INVCONV
550: --FND_MESSAGE.SET_TOKEN('LOT_NO',p_lot_serial_rec.lot_number); INVCONV
551: --FND_MESSAGE.SET_TOKEN('SUBLOT_NO',p_lot_serial_rec.sublot_number); INVCONV
552: OE_MSG_PUB.Add;
553: l_return_status := FND_API.G_RET_STS_ERROR;
554: END IF;
547: END IF;
548: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_QTY_NOT_REQUIRED'); --INVCONV
549: --FND_MESSAGE.SET_TOKEN('ITEM_NO',L_ITEM_NO); INVCONV
550: --FND_MESSAGE.SET_TOKEN('LOT_NO',p_lot_serial_rec.lot_number); INVCONV
551: --FND_MESSAGE.SET_TOKEN('SUBLOT_NO',p_lot_serial_rec.sublot_number); INVCONV
552: OE_MSG_PUB.Add;
553: l_return_status := FND_API.G_RET_STS_ERROR;
554: END IF;
555:
559: /* If quantity2 is present and negative, then error */
560:
561: IF nvl(p_lot_serial_rec.quantity2, 0) < 0 then
562:
563: FND_MESSAGE.SET_NAME('ONT','SO_PR_NEGATIVE_AMOUNT');
564: OE_MSG_PUB.Add;
565: l_return_status := FND_API.G_RET_STS_ERROR;
566: IF l_debug_level > 0 THEN
567: oe_debug_pub.add ('INVALID LINE LOT SERIALS QUANTITY2 - negative....');
580: oe_debug_pub.add( 'OE_Validate_Lot_Serial.entity - validating No default dual QUANTITYs...' ) ;
581: END IF;
582: IF (NVL(p_Lot_Serial_rec.quantity2,0) = 0 )
583: OR (NVL(p_Lot_Serial_rec.quantity,0 ) = 0 ) THEN
584: FND_MESSAGE.SET_NAME('ONT','OE_BULK_OPM_NULL_QTY');
585: OE_MSG_PUB.Add;
586: l_return_status := FND_API.G_RET_STS_ERROR;
587: IF l_debug_level > 0 THEN
588: oe_debug_pub.add ('INVALID LINE LOT SERIALS - one qty is blank for type No Default..');
715: ,0);
716:
717: IF (l_return = -68 ) THEN
718: l_return_status := FND_API.G_RET_STS_ERROR;
719: FND_MESSAGE.set_name('GMI','IC_DEVIATION_HI_ERR');
720: OE_MSG_PUB.Add;
721: ELSIF(l_return = -69 ) THEN
722: l_return_status := FND_API.G_RET_STS_ERROR;
723: FND_MESSAGE.set_name('GMI','IC_DEVIATION_LO_ERR');
719: FND_MESSAGE.set_name('GMI','IC_DEVIATION_HI_ERR');
720: OE_MSG_PUB.Add;
721: ELSIF(l_return = -69 ) THEN
722: l_return_status := FND_API.G_RET_STS_ERROR;
723: FND_MESSAGE.set_name('GMI','IC_DEVIATION_LO_ERR');
724: OE_MSG_PUB.Add;
725: END IF;
726: IF l_return <> 0
727: THEN