DBA Data[Home] [Help]

APPS.OE_VALIDATE_LOT_SERIAL dependencies on FND_API

Line 18: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

14: , p_old_Lot_Serial_rec IN OE_Order_PUB.Lot_Serial_Rec_Type :=
15: OE_Order_PUB.G_MISS_LOT_SERIAL_REC
16: )
17: IS
18: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: l_ordered_qty NUMBER := 0;
20: l_total_qty NUMBER := 0;
21: x_prefix VARCHAR2(80);
22: x_quantity VARCHAR2(80);

Line 135: l_return_status := FND_API.G_RET_STS_ERROR;

131:
132: IF p_Lot_Serial_rec.lot_serial_id IS NULL
133: THEN
134:
135: l_return_status := FND_API.G_RET_STS_ERROR;
136: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
137: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Lot Serial ID');
138: OE_MSG_PUB.Add;
139:

Line 149: l_return_status := FND_API.G_RET_STS_ERROR;

145:
146: IF p_Lot_Serial_rec.quantity IS NULL
147: THEN
148:
149: l_return_status := FND_API.G_RET_STS_ERROR;
150: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
151: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Quantity');
152: OE_MSG_PUB.Add;
153:

Line 158: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

154: END IF;
155:
156: -- Return Error if a required attribute is missing.
157:
158: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
159:
160: RAISE FND_API.G_EXC_ERROR;
161:
162: END IF;

Line 160: RAISE FND_API.G_EXC_ERROR;

156: -- Return Error if a required attribute is missing.
157:
158: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
159:
160: RAISE FND_API.G_EXC_ERROR;
161:
162: END IF;
163:
164: --

Line 174: l_return_status := FND_API.G_RET_STS_ERROR;

170:
171: IF p_Lot_Serial_rec.lot_number IS NULL AND
172: p_Lot_Serial_rec.from_serial_number IS NULL
173: THEN
174: l_return_status := FND_API.G_RET_STS_ERROR;
175: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
176: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Lot Number/From Serial Number');
177: OE_MSG_PUB.Add;
178:

Line 187: l_return_status := FND_API.G_RET_STS_ERROR;

183: p_Lot_Serial_rec.from_serial_number IS NOT NULL AND
184: p_Lot_Serial_rec.to_serial_number IS NULL
185: THEN
186:
187: l_return_status := FND_API.G_RET_STS_ERROR;
188: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
189: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','To Serial Number');
190: OE_MSG_PUB.Add;
191:

Line 246: l_return_status := FND_API.G_RET_STS_ERROR;

242: END IF;
243:
244: IF p_Lot_Serial_rec.quantity > (l_ordered_qty - l_total_qty)
245: THEN
246: l_return_status := FND_API.G_RET_STS_ERROR;
247: FND_MESSAGE.SET_NAME('ONT','OE_TOO_MANY_LOT_SERIAL');
248: OE_MSG_PUB.Add;
249:
250: END IF;

Line 283: l_return_status := FND_API.G_RET_STS_ERROR;

279: x_from_number,
280: x_to_number,
281: x_error_code)
282: THEN
283: l_return_status := FND_API.G_RET_STS_ERROR;
284: FND_MESSAGE.Set_Name('ONT','OE_NOT_KNOW_QUANTITY');
285: OE_MSG_PUB.Add;
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add( 'IN OE_VALIDATE_LOT_SERIAL.ENTITY 2' , 1 ) ;

Line 291: l_return_status := FND_API.G_RET_STS_ERROR;

287: oe_debug_pub.add( 'IN OE_VALIDATE_LOT_SERIAL.ENTITY 2' , 1 ) ;
288: END IF;
289: ELSE
290: IF p_Lot_Serial_rec.quantity <> x_quantity THEN
291: l_return_status := FND_API.G_RET_STS_ERROR;
292: FND_MESSAGE.Set_Name('ONT','OE_QUANTITY_MISMATCH');
293: OE_MSG_PUB.Add;
294: IF l_debug_level > 0 THEN
295: oe_debug_pub.add( 'IN OE_VALIDATE_LOT_SERIAL.ENTITY 3' , 1 ) ;

Line 412: ( p_Lot_Serial_rec.lot_number <> FND_API.G_MISS_CHAR

408:
409:
410: -- lot validation
411: IF l_lot_ctl <> 2 and -- INVCONV
412: ( p_Lot_Serial_rec.lot_number <> FND_API.G_MISS_CHAR
413: and p_Lot_Serial_rec.lot_number IS NOT NULL ) then
414: IF l_debug_level > 0 THEN
415: oe_debug_pub.add( 'INVALID LINE LOT SERIALS LOT NUMBER...' ) ;
416: END IF;

Line 419: l_return_status := FND_API.G_RET_STS_ERROR;

415: oe_debug_pub.add( 'INVALID LINE LOT SERIALS LOT NUMBER...' ) ;
416: END IF;
417: FND_MESSAGE.SET_NAME('INV','INV_NO_LOT_CONTROL');
418: OE_MSG_PUB.Add;
419: l_return_status := FND_API.G_RET_STS_ERROR;
420: END IF;
421:
422: /* IF l_sublot_ctl <> 1 and INVCONV
423: ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR

Line 423: ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR

419: l_return_status := FND_API.G_RET_STS_ERROR;
420: END IF;
421:
422: /* IF l_sublot_ctl <> 1 and INVCONV
423: ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR
424: and p_Lot_Serial_rec.sublot_number IS NOT NULL ) then
425: IF l_debug_level > 0 THEN
426: oe_debug_pub.add( 'OPM INVALID LINE LOT SERIALS SUBLOT NUMBER...' ) ;
427: END IF;

Line 430: l_return_status := FND_API.G_RET_STS_ERROR;

426: oe_debug_pub.add( 'OPM INVALID LINE LOT SERIALS SUBLOT NUMBER...' ) ;
427: END IF;
428: FND_MESSAGE.SET_NAME('GMI','IC_SUBLOTNO');
429: OE_MSG_PUB.Add;
430: l_return_status := FND_API.G_RET_STS_ERROR;
431: END IF; */
432:
433: /* IF l_sublot_ctl = 1 and
434: ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR

Line 434: ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR

430: l_return_status := FND_API.G_RET_STS_ERROR;
431: END IF; */
432:
433: /* IF l_sublot_ctl = 1 and
434: ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR
435: and p_Lot_Serial_rec.sublot_number IS NOT NULL )
436: and
437: ( p_Lot_Serial_rec.lot_number = FND_API.G_MISS_CHAR
438: or p_Lot_Serial_rec.lot_number IS NULL ) then

Line 437: ( p_Lot_Serial_rec.lot_number = FND_API.G_MISS_CHAR

433: /* IF l_sublot_ctl = 1 and
434: ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR
435: and p_Lot_Serial_rec.sublot_number IS NOT NULL )
436: and
437: ( p_Lot_Serial_rec.lot_number = FND_API.G_MISS_CHAR
438: or p_Lot_Serial_rec.lot_number IS NULL ) then
439:
440: IF l_debug_level > 0 THEN
441: oe_debug_pub.add( 'OPM INVALID LINE LOT SERIALS NO LOT NUMBER...' ) ;

Line 445: l_return_status := FND_API.G_RET_STS_ERROR;

441: oe_debug_pub.add( 'OPM INVALID LINE LOT SERIALS NO LOT NUMBER...' ) ;
442: END IF;
443: FND_MESSAGE.SET_NAME('INV','INV_MISSING_LOT');
444: OE_MSG_PUB.Add;
445: l_return_status := FND_API.G_RET_STS_ERROR;
446: END IF; */
447:
448:
449: IF ( l_RMA_LOT_RESTRICT = 'R' OR -- INVCONV

Line 452: and ( p_Lot_Serial_rec.lot_number <> FND_API.G_MISS_CHAR

448:
449: IF ( l_RMA_LOT_RESTRICT = 'R' OR -- INVCONV
450: l_RMA_LOT_RESTRICT = 'W' ) -- RESTRICTED_WITH_WARNING' -- INVCONV
451: and l_lot_ctl = 2 -- (YES) INVCONV
452: and ( p_Lot_Serial_rec.lot_number <> FND_API.G_MISS_CHAR
453: and p_Lot_Serial_rec.lot_number IS NOT NULL )
454: then
455: begin
456:

Line 470: l_return_status := FND_API.G_RET_STS_ERROR;

466: oe_debug_pub.add( 'NO_DATA_FOUND WHEN checking RMA attribute lot number' ) ;
467: END IF;
468: FND_MESSAGE.SET_NAME('INV','INV_CHECK_LOT_ENTRY'); -- INVCONV PLSE ENTER A VALID LOT NUMBER
469: OE_MSG_PUB.Add;
470: l_return_status := FND_API.G_RET_STS_ERROR;
471:
472: END IF;
473:
474:

Line 491: l_return_status := FND_API.G_RET_STS_ERROR;

487: END IF;
488: l_lot_id := 0;
489: FND_MESSAGE.SET_NAME('INV','INV_CHECK_LOT_ENTRY'); -- INVCONV PLSE ENTER A VALID LOT NUMBER
490: OE_MSG_PUB.Add;
491: l_return_status := FND_API.G_RET_STS_ERROR;
492:
493: END IF;
494:
495: Close c_opm_lot1; */

Line 504: and ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR

500:
501: /* IF ( l_opm_rma_profile = 'RESTRICTED' OR --INVCONV
502: l_opm_rma_profile = 'RESTRICTED_WITH_WARNING' )
503: -- and l_sublot_ctl = 1 INVCONV
504: and ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR
505: and p_Lot_Serial_rec.sublot_number IS NOT NULL )
506: then
507: begin
508: OPEN c_opm_lot2( l_item_rec.opm_item_id ,

Line 522: l_return_status := FND_API.G_RET_STS_ERROR;

518: END IF;
519: l_lot_id := 0;
520: FND_MESSAGE.SET_NAME('GMI','IC_SUBLOTNO');
521: OE_MSG_PUB.Add;
522: l_return_status := FND_API.G_RET_STS_ERROR;
523:
524: END IF;
525:
526: Close c_opm_lot2;

Line 537: ( p_lot_serial_rec.quantity2 <> FND_API.G_MISS_NUM

533: IF l_debug_level > 0 THEN
534: oe_debug_pub.add( 'OE_VALIDATE_LOT_SERIAL.ENTITY - validating QUANTITY2...' ) ;
535: END IF;
536: IF l_tracking_quantity_ind = 'P' and -- INVCONV l_dualum_ind < 1 and
537: ( p_lot_serial_rec.quantity2 <> FND_API.G_MISS_NUM
538: and p_lot_serial_rec.quantity2 IS NOT NULL ) then
539: IF l_debug_level > 0 THEN
540: oe_debug_pub.add( 'INVALID LINE LOT SERIALS QUANTITY2...' ) ; -- INVCONV
541: END IF;

Line 547: l_return_status := FND_API.G_RET_STS_ERROR;

543: --FND_MESSAGE.SET_TOKEN('ITEM_NO',L_ITEM_NO); INVCONV
544: --FND_MESSAGE.SET_TOKEN('LOT_NO',p_lot_serial_rec.lot_number); INVCONV
545: --FND_MESSAGE.SET_TOKEN('SUBLOT_NO',p_lot_serial_rec.sublot_number); INVCONV
546: OE_MSG_PUB.Add;
547: l_return_status := FND_API.G_RET_STS_ERROR;
548: END IF;
549:
550: IF l_debug_level > 0 THEN
551: oe_debug_pub.add( 'OE_VALIDATE_LOT_SERIAL.ENTITY - validating QUANTITY2 negative ...' ) ;

Line 559: l_return_status := FND_API.G_RET_STS_ERROR;

555: IF nvl(p_lot_serial_rec.quantity2, 0) < 0 then
556:
557: FND_MESSAGE.SET_NAME('ONT','SO_PR_NEGATIVE_AMOUNT');
558: OE_MSG_PUB.Add;
559: l_return_status := FND_API.G_RET_STS_ERROR;
560: IF l_debug_level > 0 THEN
561: oe_debug_pub.add ('INVALID LINE LOT SERIALS QUANTITY2 - negative....');
562: END IF;
563: END IF;

Line 580: l_return_status := FND_API.G_RET_STS_ERROR;

576: IF (NVL(p_Lot_Serial_rec.quantity2,0) = 0 )
577: OR (NVL(p_Lot_Serial_rec.quantity,0 ) = 0 ) THEN
578: FND_MESSAGE.SET_NAME('ONT','OE_BULK_OPM_NULL_QTY');
579: OE_MSG_PUB.Add;
580: l_return_status := FND_API.G_RET_STS_ERROR;
581: IF l_debug_level > 0 THEN
582: oe_debug_pub.add ('INVALID LINE LOT SERIALS - one qty is blank for type No Default..');
583: END IF;
584: END IF;

Line 591: and ( p_Lot_Serial_rec.quantity <> FND_API.G_MISS_NUM and

587: -- tolerance check for Default and No Default items (old type 2,3)
588:
589: --IF l_dualum_ind in(2,3)
590: IF l_secondary_default_ind in ('N','D')
591: and ( p_Lot_Serial_rec.quantity <> FND_API.G_MISS_NUM and
592: NVL(p_Lot_Serial_rec.quantity,0) <> 0 )
593: and ( p_Lot_Serial_rec.quantity2 <> FND_API.G_MISS_NUM and
594: NVL(p_Lot_Serial_rec.quantity2,0) <> 0 )
595: then

Line 593: and ( p_Lot_Serial_rec.quantity2 <> FND_API.G_MISS_NUM and

589: --IF l_dualum_ind in(2,3)
590: IF l_secondary_default_ind in ('N','D')
591: and ( p_Lot_Serial_rec.quantity <> FND_API.G_MISS_NUM and
592: NVL(p_Lot_Serial_rec.quantity,0) <> 0 )
593: and ( p_Lot_Serial_rec.quantity2 <> FND_API.G_MISS_NUM and
594: NVL(p_Lot_Serial_rec.quantity2,0) <> 0 )
595: then
596:
597: l_quantity := p_Lot_Serial_rec.quantity;

Line 607: and ( p_Lot_Serial_rec.lot_number <> FND_API.G_MISS_CHAR

603: oe_debug_pub.add( 'OE_Validate_Lot_Serial.entity - tolerance check for type Default and No Default ..' ) ;
604: END IF;
605:
606: /* IF l_lot_ctl = 2 -- INVCONV PAL bug fix for lot number -- 4260166
607: and ( p_Lot_Serial_rec.lot_number <> FND_API.G_MISS_CHAR
608: and p_Lot_Serial_rec.lot_number IS NOT NULL )
609: then
610: begin
611:

Line 633: and ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR

629:
630: */
631:
632: /* IF l_sublot_ctl = 1 -- INVCONV
633: and ( p_Lot_Serial_rec.sublot_number <> FND_API.G_MISS_CHAR
634: and p_Lot_Serial_rec.sublot_number IS NOT NULL )
635: then
636: begin
637: OPEN c_opm_lot2( l_item_rec.opm_item_id ,

Line 712: l_return_status := FND_API.G_RET_STS_ERROR;

708: ,l_item_um2
709: ,0);
710:
711: IF (l_return = -68 ) THEN
712: l_return_status := FND_API.G_RET_STS_ERROR;
713: FND_MESSAGE.set_name('GMI','IC_DEVIATION_HI_ERR');
714: OE_MSG_PUB.Add;
715: ELSIF(l_return = -69 ) THEN
716: l_return_status := FND_API.G_RET_STS_ERROR;

Line 716: l_return_status := FND_API.G_RET_STS_ERROR;

712: l_return_status := FND_API.G_RET_STS_ERROR;
713: FND_MESSAGE.set_name('GMI','IC_DEVIATION_HI_ERR');
714: OE_MSG_PUB.Add;
715: ELSIF(l_return = -69 ) THEN
716: l_return_status := FND_API.G_RET_STS_ERROR;
717: FND_MESSAGE.set_name('GMI','IC_DEVIATION_LO_ERR');
718: OE_MSG_PUB.Add;
719: END IF;
720: IF l_return <> 0

Line 722: l_return_status := FND_API.G_RET_STS_ERROR;

718: OE_MSG_PUB.Add;
719: END IF;
720: IF l_return <> 0
721: THEN
722: l_return_status := FND_API.G_RET_STS_ERROR;
723:
724: END IF; */
725:
726: IF l_debug_level > 0 THEN

Line 747: WHEN FND_API.G_EXC_ERROR THEN

743: END IF;
744:
745: EXCEPTION
746:
747: WHEN FND_API.G_EXC_ERROR THEN
748:
749: x_return_status := FND_API.G_RET_STS_ERROR;
750:
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 749: x_return_status := FND_API.G_RET_STS_ERROR;

745: EXCEPTION
746:
747: WHEN FND_API.G_EXC_ERROR THEN
748:
749: x_return_status := FND_API.G_RET_STS_ERROR;
750:
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752:
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

747: WHEN FND_API.G_EXC_ERROR THEN
748:
749: x_return_status := FND_API.G_RET_STS_ERROR;
750:
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752:
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754:
755: WHEN TOLERANCE_ERROR THEN -- INVCONV

Line 753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

749: x_return_status := FND_API.G_RET_STS_ERROR;
750:
751: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
752:
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754:
755: WHEN TOLERANCE_ERROR THEN -- INVCONV
756: oe_debug_pub.add('Exception handling: TOLERANCE_ERROR in OE_VALIDATE_LOT_SERIAL.ENTITY', 1);
757: x_return_status := -1;

Line 761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

757: x_return_status := -1;
758:
759: WHEN OTHERS THEN
760:
761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
762:
763: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
764: THEN
765: OE_MSG_PUB.Add_Exc_Msg

Line 793: x_return_status := FND_API.G_RET_STS_SUCCESS;

789:
790: IF l_debug_level > 0 THEN
791: oe_debug_pub.add( 'ENTERING OE_VALIDATE_LOT_SERIAL.ATTRIBUTES' , 1 ) ;
792: END IF;
793: x_return_status := FND_API.G_RET_STS_SUCCESS;
794:
795: -- Validate Lot_Serial attributes
796:
797: IF p_Lot_Serial_rec.created_by IS NOT NULL AND

Line 803: x_return_status := FND_API.G_RET_STS_ERROR;

799: p_old_Lot_Serial_rec.created_by OR
800: p_old_Lot_Serial_rec.created_by IS NULL )
801: THEN
802: IF NOT OE_Validate.Created_By(p_Lot_Serial_rec.created_by) THEN
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: END IF;
805: END IF;
806:
807: IF p_Lot_Serial_rec.creation_date IS NOT NULL AND

Line 813: x_return_status := FND_API.G_RET_STS_ERROR;

809: p_old_Lot_Serial_rec.creation_date OR
810: p_old_Lot_Serial_rec.creation_date IS NULL )
811: THEN
812: IF NOT OE_Validate.Creation_Date(p_Lot_Serial_rec.creation_date) THEN
813: x_return_status := FND_API.G_RET_STS_ERROR;
814: END IF;
815: END IF;
816:
817: IF p_Lot_Serial_rec.from_serial_number IS NOT NULL AND

Line 823: x_return_status := FND_API.G_RET_STS_ERROR;

819: p_old_Lot_Serial_rec.from_serial_number OR
820: p_old_Lot_Serial_rec.from_serial_number IS NULL )
821: THEN
822: IF NOT OE_Validate.From_Serial_Number(p_Lot_Serial_rec.from_serial_number) THEN
823: x_return_status := FND_API.G_RET_STS_ERROR;
824: END IF;
825: END IF;
826:
827: IF p_Lot_Serial_rec.last_updated_by IS NOT NULL AND

Line 833: x_return_status := FND_API.G_RET_STS_ERROR;

829: p_old_Lot_Serial_rec.last_updated_by OR
830: p_old_Lot_Serial_rec.last_updated_by IS NULL )
831: THEN
832: IF NOT OE_Validate.Last_Updated_By(p_Lot_Serial_rec.last_updated_by) THEN
833: x_return_status := FND_API.G_RET_STS_ERROR;
834: END IF;
835: END IF;
836:
837: IF p_Lot_Serial_rec.last_update_date IS NOT NULL AND

Line 843: x_return_status := FND_API.G_RET_STS_ERROR;

839: p_old_Lot_Serial_rec.last_update_date OR
840: p_old_Lot_Serial_rec.last_update_date IS NULL )
841: THEN
842: IF NOT OE_Validate.Last_Update_Date(p_Lot_Serial_rec.last_update_date) THEN
843: x_return_status := FND_API.G_RET_STS_ERROR;
844: END IF;
845: END IF;
846:
847: IF p_Lot_Serial_rec.last_update_login IS NOT NULL AND

Line 853: x_return_status := FND_API.G_RET_STS_ERROR;

849: p_old_Lot_Serial_rec.last_update_login OR
850: p_old_Lot_Serial_rec.last_update_login IS NULL )
851: THEN
852: IF NOT OE_Validate.Last_Update_Login(p_Lot_Serial_rec.last_update_login) THEN
853: x_return_status := FND_API.G_RET_STS_ERROR;
854: END IF;
855: END IF;
856:
857: IF p_Lot_Serial_rec.line_id IS NOT NULL AND

Line 863: x_return_status := FND_API.G_RET_STS_ERROR;

859: p_old_Lot_Serial_rec.line_id OR
860: p_old_Lot_Serial_rec.line_id IS NULL )
861: THEN
862: IF NOT OE_Validate.Line(p_Lot_Serial_rec.line_id) THEN
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: END IF;
865: END IF;
866:
867: IF p_Lot_Serial_rec.line_set_id IS NOT NULL AND

Line 873: x_return_status := FND_API.G_RET_STS_ERROR;

869: p_old_Lot_Serial_rec.line_set_id OR
870: p_old_Lot_Serial_rec.line_set_id IS NULL )
871: THEN
872: IF NOT OE_Validate.Line_Set(p_Lot_Serial_rec.line_set_id) THEN
873: x_return_status := FND_API.G_RET_STS_ERROR;
874: END IF;
875: END IF;
876:
877: IF p_Lot_Serial_rec.lot_number IS NOT NULL AND

Line 883: x_return_status := FND_API.G_RET_STS_ERROR;

879: p_old_Lot_Serial_rec.lot_number OR
880: p_old_Lot_Serial_rec.lot_number IS NULL )
881: THEN
882: IF NOT OE_Validate.Lot_Number(p_Lot_Serial_rec.lot_number) THEN
883: x_return_status := FND_API.G_RET_STS_ERROR;
884: END IF;
885: END IF;
886:
887:

Line 896: x_return_status := FND_API.G_RET_STS_ERROR;

892: p_old_Lot_Serial_rec.sublot_number OR
893: p_old_Lot_Serial_rec.sublot_number IS NULL )
894: THEN
895: IF NOT OE_Validate.Sublot_Number(p_Lot_Serial_rec.sublot_number) THEN
896: x_return_status := FND_API.G_RET_STS_ERROR;
897: END IF;
898: END IF;
899:
900: END IF; */

Line 908: x_return_status := FND_API.G_RET_STS_ERROR;

904: p_old_Lot_Serial_rec.lot_serial_id OR
905: p_old_Lot_Serial_rec.lot_serial_id IS NULL )
906: THEN
907: IF NOT OE_Validate.Lot_Serial(p_Lot_Serial_rec.lot_serial_id) THEN
908: x_return_status := FND_API.G_RET_STS_ERROR;
909: END IF;
910: END IF;
911:
912: IF p_Lot_Serial_rec.quantity IS NOT NULL AND

Line 918: x_return_status := FND_API.G_RET_STS_ERROR;

914: p_old_Lot_Serial_rec.quantity OR
915: p_old_Lot_Serial_rec.quantity IS NULL )
916: THEN
917: IF NOT OE_Validate.Quantity(p_Lot_Serial_rec.quantity) THEN
918: x_return_status := FND_API.G_RET_STS_ERROR;
919: END IF;
920: END IF;
921:
922: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN

Line 931: x_return_status := FND_API.G_RET_STS_ERROR;

927: p_old_Lot_Serial_rec.quantity2 IS NULL )
928: THEN
929:
930: IF NOT OE_Validate.Quantity2(p_Lot_Serial_rec.quantity2) THEN
931: x_return_status := FND_API.G_RET_STS_ERROR;
932: END IF;
933: END IF;
934:
935: END IF;

Line 943: x_return_status := FND_API.G_RET_STS_ERROR;

939: p_old_Lot_Serial_rec.to_serial_number OR
940: p_old_Lot_Serial_rec.to_serial_number IS NULL )
941: THEN
942: IF NOT OE_Validate.To_Serial_Number(p_Lot_Serial_rec.to_serial_number) THEN
943: x_return_status := FND_API.G_RET_STS_ERROR;
944: END IF;
945: END IF;
946:
947: IF (p_Lot_Serial_rec.attribute1 IS NOT NULL AND

Line 1085: x_return_status := FND_API.G_RET_STS_ERROR;

1081:
1082: -- Validate descriptive flexfield.
1083:
1084: IF NOT OE_Validate.Desc_Flex( 'LOT_SERIAL' ) THEN
1085: x_return_status := FND_API.G_RET_STS_ERROR;
1086: END IF;
1087: */
1088: NULL;
1089: END IF;

Line 1098: WHEN FND_API.G_EXC_ERROR THEN

1094: END IF;
1095:
1096: EXCEPTION
1097:
1098: WHEN FND_API.G_EXC_ERROR THEN
1099:
1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1100: x_return_status := FND_API.G_RET_STS_ERROR;

1096: EXCEPTION
1097:
1098: WHEN FND_API.G_EXC_ERROR THEN
1099:
1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1103:
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1098: WHEN FND_API.G_EXC_ERROR THEN
1099:
1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1103:
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1105:
1106: WHEN OTHERS THEN

Line 1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1100: x_return_status := FND_API.G_RET_STS_ERROR;
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1103:
1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1105:
1106: WHEN OTHERS THEN
1107:
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1104: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1105:
1106: WHEN OTHERS THEN
1107:
1108: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1109:
1110: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1111: THEN
1112: OE_MSG_PUB.Add_Exc_Msg

Line 1128: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

1124:
1125: , p_Lot_Serial_rec IN OE_Order_PUB.Lot_Serial_Rec_Type
1126: )
1127: IS
1128: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1129: --
1130: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1131: --
1132: BEGIN

Line 1144: WHEN FND_API.G_EXC_ERROR THEN

1140: x_return_status := l_return_status;
1141:
1142: EXCEPTION
1143:
1144: WHEN FND_API.G_EXC_ERROR THEN
1145:
1146: x_return_status := FND_API.G_RET_STS_ERROR;
1147:
1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1146: x_return_status := FND_API.G_RET_STS_ERROR;

1142: EXCEPTION
1143:
1144: WHEN FND_API.G_EXC_ERROR THEN
1145:
1146: x_return_status := FND_API.G_RET_STS_ERROR;
1147:
1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1149:
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1144: WHEN FND_API.G_EXC_ERROR THEN
1145:
1146: x_return_status := FND_API.G_RET_STS_ERROR;
1147:
1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1149:
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151:
1152: WHEN OTHERS THEN

Line 1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1146: x_return_status := FND_API.G_RET_STS_ERROR;
1147:
1148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1149:
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151:
1152: WHEN OTHERS THEN
1153:
1154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1151:
1152: WHEN OTHERS THEN
1153:
1154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1155:
1156: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1157: THEN
1158: OE_MSG_PUB.Add_Exc_Msg

Line 1171: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;

1167: ( x_return_status OUT NOCOPY VARCHAR2
1168:
1169: , p_x_Lot_Serial_rec IN OE_Order_PUB.Lot_Serial_Rec_Type
1170: ) IS
1171: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1172: --
1173: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1174: --
1175: BEGIN

Line 1179: WHEN FND_API.G_EXC_ERROR THEN

1175: BEGIN
1176: NULL;
1177: EXCEPTION
1178:
1179: WHEN FND_API.G_EXC_ERROR THEN
1180:
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182:
1183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1181: x_return_status := FND_API.G_RET_STS_ERROR;

1177: EXCEPTION
1178:
1179: WHEN FND_API.G_EXC_ERROR THEN
1180:
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182:
1183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1184:
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1179: WHEN FND_API.G_EXC_ERROR THEN
1180:
1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182:
1183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1184:
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186:
1187: WHEN OTHERS THEN

Line 1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1181: x_return_status := FND_API.G_RET_STS_ERROR;
1182:
1183: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1184:
1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186:
1187: WHEN OTHERS THEN
1188:
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1185: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186:
1187: WHEN OTHERS THEN
1188:
1189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1190:
1191: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1192: THEN
1193: OE_MSG_PUB.Add_Exc_Msg