101: l_x_Lot_Serial_val_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
102: l_control_rec OE_GLOBALS.Control_Rec_Type;
103: l_return_status VARCHAR2(1);
104: --
105: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
106: --
107: BEGIN
108:
109: -- Set the UI flag
127: l_control_rec.clear_api_requests := FALSE;
128:
129: -- Load IN parameters if any exist
130: IF l_debug_level > 0 THEN
131: oe_debug_pub.add( 'LOT_SERIAL LINE_ID'||P_LINE_ID , 1 ) ;
132: END IF;
133: l_x_Lot_Serial_rec:=OE_ORDER_PUB.G_MISS_LOT_SERIAL_REC;
134: l_x_Old_Lot_Serial_Tbl(1):=OE_ORDER_PUB.G_MISS_LOT_SERIAL_REC;
135: l_x_Lot_Serial_rec.line_id := p_line_id;
162:
163: l_x_Lot_Serial_tbl(1) := l_x_Lot_Serial_rec;
164:
165: IF l_debug_level > 0 THEN
166: oe_debug_pub.add( 'LOT_SERIAL CONTROLLER - DEFAULT ATTRIBUTES - CALLING PROCESS' , 2 ) ;
167: END IF;
168:
169: -- Call OE_Order_PVT.Process_order
170:
246: , p_data => x_msg_data
247: );
248:
249: IF l_debug_level > 0 THEN
250: oe_debug_pub.add( 'EXITING OE_OE_FORM_LOT_SERIAL.DEFAULT_ATTRIBUTES' , 1 ) ;
251: END IF;
252:
253: EXCEPTION
254:
391: l_return_status VARCHAR2(1);
392: l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
393: l_x_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
394: --
395: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
396: --
397: BEGIN
398:
399: IF l_debug_level > 0 THEN
396: --
397: BEGIN
398:
399: IF l_debug_level > 0 THEN
400: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LOT_SERIAL.CHANGE_ATTRIBUTES' , 1 ) ;
401: END IF;
402: -- Set the UI flag
403: OE_GLOBALS.G_UI_FLAG := TRUE;
404:
428: , x_lot_serial_rec => l_x_Lot_Serial_rec
429: );
430:
431: IF l_debug_level > 0 THEN
432: oe_debug_pub.add( 'CHANGE_ATTRIBUTES ATTR VALUE'||P_ATTR_VALUE , 1 ) ;
433: END IF;
434:
435: l_old_Lot_Serial_rec := l_x_Lot_Serial_rec;
436:
448: ELSIF p_attr_id = OE_Lot_Serial_Util.G_LOT_SERIAL THEN
449: l_x_lot_serial_rec.lot_serial_id := TO_NUMBER(p_attr_value);
450: ELSIF p_attr_id = OE_Lot_Serial_Util.G_QUANTITY THEN
451: IF l_debug_level > 0 THEN
452: oe_debug_pub.add( 'IN QUANTITY CHANGE' , 1 ) ;
453: END IF;
454: l_x_lot_serial_rec.quantity := TO_NUMBER(p_attr_value);
455: ELSIF p_attr_id = OE_Lot_Serial_Util.G_QUANTITY2 THEN --OPM 2380194
456: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
522:
523: -- Call OE_Order_PVT.Process_order
524:
525: IF l_debug_level > 0 THEN
526: oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_PVT.LOT_SERIALS'||TO_CHAR ( L_X_LOT_SERIAL_TBL ( 1 ) .QUANTITY ) , 1 ) ;
527: END IF;
528: OE_Order_PVT.Lot_Serials
529: (
530: p_validation_level => FND_API.G_VALID_LEVEL_NONE
541: RAISE FND_API.G_EXC_ERROR;
542: END IF;
543:
544: IF l_debug_level > 0 THEN
545: oe_debug_pub.add( 'AFTER CALLING OE_ORDER_PVT.LOT_SERIALS'||TO_CHAR ( L_X_LOT_SERIAL_TBL ( 1 ) .QUANTITY ) , 1 ) ;
546: END IF;
547:
548: -- Unload out tbl
549:
584: ( p_Lot_Serial_rec => l_x_Lot_Serial_rec
585: , p_old_Lot_Serial_rec => l_old_Lot_Serial_rec
586: );
587: IF l_debug_level > 0 THEN
588: oe_debug_pub.add( 'AFTER CALLING OE_LOT_SERIAL_UTIL.GET_VALUES' , 1 ) ;
589: END IF;
590:
591: IF l_debug_level > 0 THEN
592: oe_debug_pub.add( 'QUANTITY '||TO_CHAR ( L_X_LOT_SERIAL_REC.QUANTITY ) , 1 ) ;
588: oe_debug_pub.add( 'AFTER CALLING OE_LOT_SERIAL_UTIL.GET_VALUES' , 1 ) ;
589: END IF;
590:
591: IF l_debug_level > 0 THEN
592: oe_debug_pub.add( 'QUANTITY '||TO_CHAR ( L_X_LOT_SERIAL_REC.QUANTITY ) , 1 ) ;
593: END IF;
594: IF l_debug_level > 0 THEN
595: oe_debug_pub.add( 'OLD QUANTITY '||TO_CHAR ( L_OLD_LOT_SERIAL_REC.QUANTITY ) , 1 ) ;
596: END IF;
591: IF l_debug_level > 0 THEN
592: oe_debug_pub.add( 'QUANTITY '||TO_CHAR ( L_X_LOT_SERIAL_REC.QUANTITY ) , 1 ) ;
593: END IF;
594: IF l_debug_level > 0 THEN
595: oe_debug_pub.add( 'OLD QUANTITY '||TO_CHAR ( L_OLD_LOT_SERIAL_REC.QUANTITY ) , 1 ) ;
596: END IF;
597: -- Return changed attributes.
598:
599: IF NOT OE_GLOBALS.Equal(l_x_Lot_Serial_rec.attribute1,
723: IF NOT OE_GLOBALS.Equal(l_x_Lot_Serial_rec.quantity2, --OPM 2380194
724: l_old_lot_serial_rec.quantity2)
725: THEN
726: IF l_debug_level > 0 THEN
727: oe_debug_pub.add('The Quantity2 Has Changed', 1);
728: END IF;
729: x_quantity2 := l_x_Lot_Serial_rec.quantity2;
730: END IF;
731:
742: IF NOT OE_GLOBALS.Equal(l_x_Lot_Serial_rec.quantity,
743: l_old_lot_serial_rec.quantity)
744: THEN
745: IF l_debug_level > 0 THEN
746: oe_debug_pub.add( 'THE QUANTITY HAS CHANGED' , 1 ) ;
747: END IF;
748: x_quantity := l_x_Lot_Serial_rec.quantity;
749: END IF;
750:
774: ( p_count => x_msg_count
775: , p_data => x_msg_data
776: );
777: IF l_debug_level > 0 THEN
778: oe_debug_pub.add( 'EXITING OE_OE_FORM_LOT_SERIAL.CHANGE_ATTRIBUTES' , 1 ) ;
779: END IF;
780:
781:
782: EXCEPTION
861: l_return_status VARCHAR2(1);
862: l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
863: l_x_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
864: --
865: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
866: --
867: BEGIN
868:
869: IF l_debug_level > 0 THEN
866: --
867: BEGIN
868:
869: IF l_debug_level > 0 THEN
870: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LOT_SERIAL.VALIDATE_AND_WRITE' , 1 ) ;
871: END IF;
872: -- Set the UI flag
873: OE_GLOBALS.G_UI_FLAG := TRUE;
874:
989: , p_data => x_msg_data
990: );
991:
992: IF l_debug_level > 0 THEN
993: oe_debug_pub.add( 'EXITING OE_OE_FORM_LOT_SERIAL.VALIDATE_AND_WRITE' , 1 ) ;
994: END IF;
995:
996: EXCEPTION
997:
1007: ( p_count => x_msg_count
1008: , p_data => x_msg_data
1009: );
1010: IF l_debug_level > 0 THEN
1011: oe_debug_pub.add( 'ERROR IN OE_OE_FORM_LOT_SERIAL.VALIDATE_AND_WRITE '|| TO_CHAR ( X_MSG_COUNT ) , 1 ) ;
1012: END IF;
1013: IF l_debug_level > 0 THEN
1014: oe_debug_pub.add( 'ERROR IN OE_OE_FORM_LOT_SERIAL.VALIDATE_AND_WRITE '|| X_MSG_DATA , 1 ) ;
1015: END IF;
1010: IF l_debug_level > 0 THEN
1011: oe_debug_pub.add( 'ERROR IN OE_OE_FORM_LOT_SERIAL.VALIDATE_AND_WRITE '|| TO_CHAR ( X_MSG_COUNT ) , 1 ) ;
1012: END IF;
1013: IF l_debug_level > 0 THEN
1014: oe_debug_pub.add( 'ERROR IN OE_OE_FORM_LOT_SERIAL.VALIDATE_AND_WRITE '|| X_MSG_DATA , 1 ) ;
1015: END IF;
1016:
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018:
1068: l_x_old_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
1069: l_control_rec OE_GLOBALS.Control_Rec_Type;
1070: l_return_status VARCHAR2(1);
1071: --
1072: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1073: --
1074: BEGIN
1075:
1076: -- Set the UI flag
1231: l_x_Line_price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
1232: l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
1233: l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type; */
1234: --
1235: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1236: --
1237: BEGIN
1238:
1239: -- Set the UI flag
1379: IS
1380: l_return_status VARCHAR2(1);
1381: l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
1382: --
1383: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1384: --
1385: BEGIN
1386:
1387: -- Load Lot_Serial record
1453: , p_db_record IN BOOLEAN := FALSE
1454: )
1455: IS
1456: --
1457: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1458: --
1459: BEGIN
1460:
1461: IF l_debug_level > 0 THEN
1458: --
1459: BEGIN
1460:
1461: IF l_debug_level > 0 THEN
1462: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LOT_SERIAL.WRITE_LOT_SERIAL' , 1 ) ;
1463: END IF;
1464:
1465: g_Lot_Serial_rec := p_Lot_Serial_rec;
1466:
1470:
1471: END IF;
1472:
1473: IF l_debug_level > 0 THEN
1474: oe_debug_pub.add( 'EXITING OE_OE_FORM_LOT_SERIAL.WRITE_LOT_SERIAL' , 1 ) ;
1475: END IF;
1476:
1477: END Write_Lot_Serial;
1478:
1482: , x_lot_serial_rec IN OUT NOCOPY OE_Order_PUB.Lot_Serial_Rec_Type
1483: )
1484: IS
1485: --
1486: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1487: --
1488: BEGIN
1489:
1490: IF l_debug_level > 0 THEN
1487: --
1488: BEGIN
1489:
1490: IF l_debug_level > 0 THEN
1491: oe_debug_pub.add( 'ENTERING OE_OE_FORM_LOT_SERIAL.GET_LOT_SERIAL' , 1 ) ;
1492: END IF;
1493:
1494: IF p_lot_serial_id <> g_Lot_Serial_rec.lot_serial_id
1495: THEN
1509:
1510: END IF;
1511:
1512: IF l_debug_level > 0 THEN
1513: oe_debug_pub.add( 'EXITING OE_OE_FORM_LOT_SERIAL.GET_LOT_SERIAL' , 1 ) ;
1514: END IF;
1515: IF p_db_record THEN
1516:
1517: x_lot_serial_rec:= g_db_Lot_Serial_rec;
1526:
1527: PROCEDURE Clear_Lot_Serial
1528: IS
1529: --
1530: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1531: --
1532: BEGIN
1533:
1534: g_Lot_Serial_rec := OE_Order_PUB.G_MISS_LOT_SERIAL_REC;