[Home] [Help]
22: G_TRANSACTION_TABLE CONSTANT VARCHAR2(30) := 'OE_ORDER_LINES_ALL';
23: G_CSI_T_SOURCE_LINE_REF CONSTANT VARCHAR2(50) := 'AHL_OSP_ORDER_LINES';
24:
25:
26: x_header_rec OE_ORDER_PUB.Header_Rec_Type;
27: x_header_val_rec OE_ORDER_PUB.Header_Val_Rec_Type;
28: x_Header_Adj_tbl OE_ORDER_PUB.Header_Adj_Tbl_Type;
29: x_Header_Adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type;
30: x_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
23: G_CSI_T_SOURCE_LINE_REF CONSTANT VARCHAR2(50) := 'AHL_OSP_ORDER_LINES';
24:
25:
26: x_header_rec OE_ORDER_PUB.Header_Rec_Type;
27: x_header_val_rec OE_ORDER_PUB.Header_Val_Rec_Type;
28: x_Header_Adj_tbl OE_ORDER_PUB.Header_Adj_Tbl_Type;
29: x_Header_Adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type;
30: x_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
31: x_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type ;
24:
25:
26: x_header_rec OE_ORDER_PUB.Header_Rec_Type;
27: x_header_val_rec OE_ORDER_PUB.Header_Val_Rec_Type;
28: x_Header_Adj_tbl OE_ORDER_PUB.Header_Adj_Tbl_Type;
29: x_Header_Adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type;
30: x_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
31: x_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type ;
32: x_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
25:
26: x_header_rec OE_ORDER_PUB.Header_Rec_Type;
27: x_header_val_rec OE_ORDER_PUB.Header_Val_Rec_Type;
28: x_Header_Adj_tbl OE_ORDER_PUB.Header_Adj_Tbl_Type;
29: x_Header_Adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type;
30: x_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
31: x_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type ;
32: x_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
33: x_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
26: x_header_rec OE_ORDER_PUB.Header_Rec_Type;
27: x_header_val_rec OE_ORDER_PUB.Header_Val_Rec_Type;
28: x_Header_Adj_tbl OE_ORDER_PUB.Header_Adj_Tbl_Type;
29: x_Header_Adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type;
30: x_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
31: x_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type ;
32: x_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
33: x_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
34: x_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
27: x_header_val_rec OE_ORDER_PUB.Header_Val_Rec_Type;
28: x_Header_Adj_tbl OE_ORDER_PUB.Header_Adj_Tbl_Type;
29: x_Header_Adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type;
30: x_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
31: x_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type ;
32: x_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
33: x_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
34: x_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
35: x_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
28: x_Header_Adj_tbl OE_ORDER_PUB.Header_Adj_Tbl_Type;
29: x_Header_Adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type;
30: x_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
31: x_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type ;
32: x_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
33: x_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
34: x_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
35: x_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
36: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
29: x_Header_Adj_val_tbl OE_ORDER_PUB.Header_Adj_Val_Tbl_Type;
30: x_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
31: x_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type ;
32: x_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
33: x_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
34: x_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
35: x_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
36: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
37: x_Line_Adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
30: x_Header_price_Att_tbl OE_ORDER_PUB.Header_Price_Att_Tbl_Type;
31: x_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type ;
32: x_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
33: x_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
34: x_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
35: x_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
36: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
37: x_Line_Adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
38: x_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
31: x_Header_Adj_Att_tbl OE_ORDER_PUB.Header_Adj_Att_Tbl_Type ;
32: x_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
33: x_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
34: x_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
35: x_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
36: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
37: x_Line_Adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
38: x_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
39: x_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
32: x_Header_Adj_Assoc_tbl OE_ORDER_PUB.Header_Adj_Assoc_Tbl_Type;
33: x_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
34: x_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
35: x_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
36: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
37: x_Line_Adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
38: x_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
39: x_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
40: x_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ;
33: x_Header_Scredit_tbl OE_ORDER_PUB.Header_Scredit_Tbl_Type;
34: x_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
35: x_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
36: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
37: x_Line_Adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
38: x_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
39: x_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
40: x_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ;
41: x_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
34: x_Header_Scredit_val_tbl OE_ORDER_PUB.Header_Scredit_Val_Tbl_Type;
35: x_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
36: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
37: x_Line_Adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
38: x_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
39: x_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
40: x_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ;
41: x_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
42: x_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
35: x_line_tbl OE_ORDER_PUB.Line_Tbl_Type;
36: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
37: x_Line_Adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
38: x_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
39: x_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
40: x_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ;
41: x_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
42: x_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
43: x_Line_Scredit_val_tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type;
36: x_line_val_tbl OE_ORDER_PUB.Line_Val_Tbl_Type;
37: x_Line_Adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
38: x_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
39: x_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
40: x_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ;
41: x_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
42: x_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
43: x_Line_Scredit_val_tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type;
44: x_Lot_Serial_tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type;
37: x_Line_Adj_tbl OE_ORDER_PUB.Line_Adj_Tbl_Type;
38: x_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
39: x_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
40: x_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ;
41: x_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
42: x_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
43: x_Line_Scredit_val_tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type;
44: x_Lot_Serial_tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type;
45: x_Lot_Serial_val_tbl OE_ORDER_PUB.Lot_Serial_Val_Tbl_Type;
38: x_Line_Adj_val_tbl OE_ORDER_PUB.Line_Adj_Val_Tbl_Type;
39: x_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
40: x_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ;
41: x_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
42: x_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
43: x_Line_Scredit_val_tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type;
44: x_Lot_Serial_tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type;
45: x_Lot_Serial_val_tbl OE_ORDER_PUB.Lot_Serial_Val_Tbl_Type;
46: x_action_request_tbl OE_ORDER_PUB.Request_Tbl_Type;
39: x_Line_price_Att_tbl OE_ORDER_PUB.Line_Price_Att_Tbl_Type;
40: x_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ;
41: x_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
42: x_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
43: x_Line_Scredit_val_tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type;
44: x_Lot_Serial_tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type;
45: x_Lot_Serial_val_tbl OE_ORDER_PUB.Lot_Serial_Val_Tbl_Type;
46: x_action_request_tbl OE_ORDER_PUB.Request_Tbl_Type;
47:
40: x_Line_Adj_Att_tbl OE_ORDER_PUB.Line_Adj_Att_Tbl_Type ;
41: x_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
42: x_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
43: x_Line_Scredit_val_tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type;
44: x_Lot_Serial_tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type;
45: x_Lot_Serial_val_tbl OE_ORDER_PUB.Lot_Serial_Val_Tbl_Type;
46: x_action_request_tbl OE_ORDER_PUB.Request_Tbl_Type;
47:
48: ------------------------------
41: x_Line_Adj_Assoc_tbl OE_ORDER_PUB.Line_Adj_Assoc_Tbl_Type;
42: x_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
43: x_Line_Scredit_val_tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type;
44: x_Lot_Serial_tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type;
45: x_Lot_Serial_val_tbl OE_ORDER_PUB.Lot_Serial_Val_Tbl_Type;
46: x_action_request_tbl OE_ORDER_PUB.Request_Tbl_Type;
47:
48: ------------------------------
49: -- Declare Local Procedures --
42: x_Line_Scredit_tbl OE_ORDER_PUB.Line_Scredit_Tbl_Type;
43: x_Line_Scredit_val_tbl OE_ORDER_PUB.Line_Scredit_Val_Tbl_Type;
44: x_Lot_Serial_tbl OE_ORDER_PUB.Lot_Serial_Tbl_Type;
45: x_Lot_Serial_val_tbl OE_ORDER_PUB.Lot_Serial_Val_Tbl_Type;
46: x_action_request_tbl OE_ORDER_PUB.Request_Tbl_Type;
47:
48: ------------------------------
49: -- Declare Local Procedures --
50: ------------------------------
51:
52: PROCEDURE Convert_Header_Rec(
53: p_header_rec IN AHL_OSP_SHIPMENT_PUB.SHIP_HEADER_REC_TYPE,
54: p_module_type IN VARCHAR2 ,
55: x_header_rec OUT NOCOPY OE_ORDER_PUB.HEADER_REC_TYPE,
56: x_header_val_rec OUT NOCOPY OE_ORDER_PUB.HEADER_VAL_REC_TYPE);
57:
58: PROCEDURE Convert_Line_Tbl(
59: p_line_tbl IN AHL_OSP_SHIPMENT_PUB.SHIP_LINE_TBL_TYPE,
52: PROCEDURE Convert_Header_Rec(
53: p_header_rec IN AHL_OSP_SHIPMENT_PUB.SHIP_HEADER_REC_TYPE,
54: p_module_type IN VARCHAR2 ,
55: x_header_rec OUT NOCOPY OE_ORDER_PUB.HEADER_REC_TYPE,
56: x_header_val_rec OUT NOCOPY OE_ORDER_PUB.HEADER_VAL_REC_TYPE);
57:
58: PROCEDURE Convert_Line_Tbl(
59: p_line_tbl IN AHL_OSP_SHIPMENT_PUB.SHIP_LINE_TBL_TYPE,
60: p_module_type IN VARCHAR2 ,
57:
58: PROCEDURE Convert_Line_Tbl(
59: p_line_tbl IN AHL_OSP_SHIPMENT_PUB.SHIP_LINE_TBL_TYPE,
60: p_module_type IN VARCHAR2 ,
61: x_line_tbl OUT NOCOPY OE_ORDER_PUB.LINE_TBL_TYPE,
62: x_line_val_tbl OUT NOCOPY OE_ORDER_PUB.LINE_VAL_TBL_TYPE,
63: x_lot_serial_tbl OUT NOCOPY OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE,
64: x_del_oe_lines_tbl OUT NOCOPY SHIP_ID_TBL_TYPE);
65:
58: PROCEDURE Convert_Line_Tbl(
59: p_line_tbl IN AHL_OSP_SHIPMENT_PUB.SHIP_LINE_TBL_TYPE,
60: p_module_type IN VARCHAR2 ,
61: x_line_tbl OUT NOCOPY OE_ORDER_PUB.LINE_TBL_TYPE,
62: x_line_val_tbl OUT NOCOPY OE_ORDER_PUB.LINE_VAL_TBL_TYPE,
63: x_lot_serial_tbl OUT NOCOPY OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE,
64: x_del_oe_lines_tbl OUT NOCOPY SHIP_ID_TBL_TYPE);
65:
66: PROCEDURE Process_Line_Tbl(
59: p_line_tbl IN AHL_OSP_SHIPMENT_PUB.SHIP_LINE_TBL_TYPE,
60: p_module_type IN VARCHAR2 ,
61: x_line_tbl OUT NOCOPY OE_ORDER_PUB.LINE_TBL_TYPE,
62: x_line_val_tbl OUT NOCOPY OE_ORDER_PUB.LINE_VAL_TBL_TYPE,
63: x_lot_serial_tbl OUT NOCOPY OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE,
64: x_del_oe_lines_tbl OUT NOCOPY SHIP_ID_TBL_TYPE);
65:
66: PROCEDURE Process_Line_Tbl(
67: p_osp_order_id IN NUMBER,
354: l_api_version CONSTANT NUMBER := 1.0;
355: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Process_Order';
356:
357:
358: l_header_rec OE_ORDER_PUB.header_rec_type;
359: l_line_tbl OE_ORDER_PUB.line_tbl_type;
360: l_header_val_rec OE_ORDER_PUB.header_val_rec_type;
361: l_line_val_tbl OE_ORDER_PUB.line_val_tbl_type;
362: l_lot_serial_tbl OE_ORDER_PUB.lot_serial_tbl_type;
355: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Process_Order';
356:
357:
358: l_header_rec OE_ORDER_PUB.header_rec_type;
359: l_line_tbl OE_ORDER_PUB.line_tbl_type;
360: l_header_val_rec OE_ORDER_PUB.header_val_rec_type;
361: l_line_val_tbl OE_ORDER_PUB.line_val_tbl_type;
362: l_lot_serial_tbl OE_ORDER_PUB.lot_serial_tbl_type;
363: l_del_oe_lines_tbl SHIP_ID_TBL_TYPE;
356:
357:
358: l_header_rec OE_ORDER_PUB.header_rec_type;
359: l_line_tbl OE_ORDER_PUB.line_tbl_type;
360: l_header_val_rec OE_ORDER_PUB.header_val_rec_type;
361: l_line_val_tbl OE_ORDER_PUB.line_val_tbl_type;
362: l_lot_serial_tbl OE_ORDER_PUB.lot_serial_tbl_type;
363: l_del_oe_lines_tbl SHIP_ID_TBL_TYPE;
364: l_osp_order_id NUMBER;
357:
358: l_header_rec OE_ORDER_PUB.header_rec_type;
359: l_line_tbl OE_ORDER_PUB.line_tbl_type;
360: l_header_val_rec OE_ORDER_PUB.header_val_rec_type;
361: l_line_val_tbl OE_ORDER_PUB.line_val_tbl_type;
362: l_lot_serial_tbl OE_ORDER_PUB.lot_serial_tbl_type;
363: l_del_oe_lines_tbl SHIP_ID_TBL_TYPE;
364: l_osp_order_id NUMBER;
365: l_line_type VARCHAR2(80);
358: l_header_rec OE_ORDER_PUB.header_rec_type;
359: l_line_tbl OE_ORDER_PUB.line_tbl_type;
360: l_header_val_rec OE_ORDER_PUB.header_val_rec_type;
361: l_line_val_tbl OE_ORDER_PUB.line_val_tbl_type;
362: l_lot_serial_tbl OE_ORDER_PUB.lot_serial_tbl_type;
363: l_del_oe_lines_tbl SHIP_ID_TBL_TYPE;
364: l_osp_order_id NUMBER;
365: l_line_type VARCHAR2(80);
366: l_msg_data VARCHAR2(2000);
520: OE_MSG_PUB.Get(p_msg_index => i,
521: p_encoded => FND_API.G_FALSE,
522: p_data => l_msg_data,
523: p_msg_index_out => l_msg_index_out);
524: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
525: p_procedure_name => 'processOrder',
526: p_error_text => substr(l_msg_data,1,240));
527: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
528: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
929: x_msg_count OUT NOCOPY NUMBER,
930: x_msg_data OUT NOCOPY VARCHAR2 ) IS
931: --
932: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Book_Order';
933: l_action_request_tbl OE_ORDER_PUB.request_tbl_type;
934: l_action_request_rec OE_ORDER_PUB.request_rec_type;
935: l_msg_data VARCHAR2(2000);
936: l_msg_index_out NUMBER;
937: l_msg_count NUMBER;
930: x_msg_data OUT NOCOPY VARCHAR2 ) IS
931: --
932: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Book_Order';
933: l_action_request_tbl OE_ORDER_PUB.request_tbl_type;
934: l_action_request_rec OE_ORDER_PUB.request_rec_type;
935: l_msg_data VARCHAR2(2000);
936: l_msg_index_out NUMBER;
937: l_msg_count NUMBER;
938: --
953:
954: --LOOP throught all header ids
955: IF (p_oe_header_tbl.COUNT > 0) THEN
956: FOR i IN p_oe_header_tbl.FIRST..p_oe_header_tbl.LAST LOOP
957: l_action_request_rec := OE_ORDER_PUB.G_MISS_REQUEST_REC;
958: l_action_request_rec.entity_code := OE_GLOBALS.G_ENTITY_HEADER;
959: l_action_request_rec.entity_id := p_oe_header_tbl(i);
960: l_action_request_rec.request_type := OE_GLOBALS.G_BOOK_ORDER;
961: l_action_request_tbl(i) := l_action_request_rec;
1013: OE_MSG_PUB.Get( p_msg_index => i,
1014: p_encoded => FND_API.G_FALSE,
1015: p_data => l_msg_data,
1016: p_msg_index_out => l_msg_index_out);
1017: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1018: p_procedure_name => 'bookOrder',
1019: p_error_text => substr(l_msg_data,1,240));
1020: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1021: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1155: AND booked_flag = 'N';
1156:
1157: --
1158: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Delete_Cancel_Order';
1159: l_header_rec OE_ORDER_PUB.header_rec_type;
1160: l_line_rec OE_ORDER_PUB.line_rec_type;
1161: l_line_tbl OE_ORDER_PUB.line_tbl_type;
1162: l_osp_order_id NUMBER;
1163: l_dummy NUMBER;
1156:
1157: --
1158: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Delete_Cancel_Order';
1159: l_header_rec OE_ORDER_PUB.header_rec_type;
1160: l_line_rec OE_ORDER_PUB.line_rec_type;
1161: l_line_tbl OE_ORDER_PUB.line_tbl_type;
1162: l_osp_order_id NUMBER;
1163: l_dummy NUMBER;
1164: l_type VARCHAR2(1);
1157: --
1158: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Delete_Cancel_Order';
1159: l_header_rec OE_ORDER_PUB.header_rec_type;
1160: l_line_rec OE_ORDER_PUB.line_rec_type;
1161: l_line_tbl OE_ORDER_PUB.line_tbl_type;
1162: l_osp_order_id NUMBER;
1163: l_dummy NUMBER;
1164: l_type VARCHAR2(1);
1165: l_order_type_id NUMBER;
1182: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1184: END IF;
1185:
1186: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1187: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
1188:
1189: -- Try delete/cancel header first.
1190: IF (p_oe_header_id IS NOT NULL AND
1183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1184: END IF;
1185:
1186: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1187: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
1188:
1189: -- Try delete/cancel header first.
1190: IF (p_oe_header_id IS NOT NULL AND
1191: p_oe_header_id <> FND_API.G_MISS_NUM) THEN
1223:
1224: -- Process lines into cancel or delete
1225: FOR i IN p_oe_lines_tbl.FIRST..p_oe_lines_tbl.LAST LOOP
1226:
1227: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
1228:
1229: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1230: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to call Delete_OE_Lines with p_oe_line_id = ' || p_oe_lines_tbl(i));
1231: END IF;
1308: OE_MSG_PUB.Get( p_msg_index => i,
1309: p_encoded => FND_API.G_FALSE,
1310: p_data => l_msg_data,
1311: p_msg_index_out => l_msg_index_out);
1312: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
1313: p_procedure_name => 'deleteCancelOrder',
1314: p_error_text => substr(l_msg_data,1,240));
1315: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1316: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
1547:
1548: PROCEDURE Convert_Header_rec(
1549: p_header_rec IN AHL_OSP_SHIPMENT_PUB.SHIP_HEADER_REC_TYPE,
1550: p_module_type IN VARCHAR2 ,
1551: x_header_rec OUT NOCOPY OE_ORDER_PUB.HEADER_REC_TYPE,
1552: x_header_val_rec OUT NOCOPY OE_ORDER_PUB.HEADER_VAL_REC_TYPE)
1553: IS
1554: ---
1555: --Commented by mpothuku to fix the Perf Bug #4919255
1548: PROCEDURE Convert_Header_rec(
1549: p_header_rec IN AHL_OSP_SHIPMENT_PUB.SHIP_HEADER_REC_TYPE,
1550: p_module_type IN VARCHAR2 ,
1551: x_header_rec OUT NOCOPY OE_ORDER_PUB.HEADER_REC_TYPE,
1552: x_header_val_rec OUT NOCOPY OE_ORDER_PUB.HEADER_VAL_REC_TYPE)
1553: IS
1554: ---
1555: --Commented by mpothuku to fix the Perf Bug #4919255
1556: /*
1641: END IF;
1642:
1643: IF (p_header_rec.operation = 'D') THEN
1644: x_header_rec := OE_HEADER_UTIL.QUERY_ROW(p_header_id => p_header_rec.header_id);
1645: x_header_val_rec := OE_ORDER_PUB.G_MISS_HEADER_VAL_REC;
1646: x_header_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1647:
1648: ELSE
1649:
1649:
1650: -- Changed by jaramana on Sep 9, 2005 for MOAC Uptake
1651: l_org_id := MO_GLOBAL.get_current_org_id();
1652:
1653: --Convert our rec type into OE_ORDER_PUB entities
1654:
1655: x_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1656: x_header_val_rec := OE_ORDER_PUB.G_MISS_HEADER_VAL_REC;
1657:
1651: l_org_id := MO_GLOBAL.get_current_org_id();
1652:
1653: --Convert our rec type into OE_ORDER_PUB entities
1654:
1655: x_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1656: x_header_val_rec := OE_ORDER_PUB.G_MISS_HEADER_VAL_REC;
1657:
1658: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1652:
1653: --Convert our rec type into OE_ORDER_PUB entities
1654:
1655: x_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
1656: x_header_val_rec := OE_ORDER_PUB.G_MISS_HEADER_VAL_REC;
1657:
1658: --Added by mpothuku on 08-may-06 for fixing the Bug 5212130
1659: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1660: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_header_rec.operation = ' || p_header_rec.operation);
3891:
3892:
3893: PROCEDURE Convert_Line_Tbl(p_line_tbl IN AHL_OSP_SHIPMENT_PUB.SHIP_LINE_TBL_TYPE,
3894: p_module_type IN VARCHAR2 ,
3895: x_line_tbl OUT NOCOPY OE_ORDER_PUB.LINE_TBL_TYPE,
3896: x_line_val_tbl OUT NOCOPY OE_ORDER_PUB.LINE_VAL_TBL_TYPE,
3897: x_lot_serial_tbl OUT NOCOPY OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE,
3898: x_del_oe_lines_tbl OUT NOCOPY SHIP_ID_TBL_TYPE) IS
3899: --
3892:
3893: PROCEDURE Convert_Line_Tbl(p_line_tbl IN AHL_OSP_SHIPMENT_PUB.SHIP_LINE_TBL_TYPE,
3894: p_module_type IN VARCHAR2 ,
3895: x_line_tbl OUT NOCOPY OE_ORDER_PUB.LINE_TBL_TYPE,
3896: x_line_val_tbl OUT NOCOPY OE_ORDER_PUB.LINE_VAL_TBL_TYPE,
3897: x_lot_serial_tbl OUT NOCOPY OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE,
3898: x_del_oe_lines_tbl OUT NOCOPY SHIP_ID_TBL_TYPE) IS
3899: --
3900: l_count NUMBER;
3893: PROCEDURE Convert_Line_Tbl(p_line_tbl IN AHL_OSP_SHIPMENT_PUB.SHIP_LINE_TBL_TYPE,
3894: p_module_type IN VARCHAR2 ,
3895: x_line_tbl OUT NOCOPY OE_ORDER_PUB.LINE_TBL_TYPE,
3896: x_line_val_tbl OUT NOCOPY OE_ORDER_PUB.LINE_VAL_TBL_TYPE,
3897: x_lot_serial_tbl OUT NOCOPY OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE,
3898: x_del_oe_lines_tbl OUT NOCOPY SHIP_ID_TBL_TYPE) IS
3899: --
3900: l_count NUMBER;
3901: l_line_rec OE_ORDER_PUB.LINE_REC_TYPE;
3897: x_lot_serial_tbl OUT NOCOPY OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE,
3898: x_del_oe_lines_tbl OUT NOCOPY SHIP_ID_TBL_TYPE) IS
3899: --
3900: l_count NUMBER;
3901: l_line_rec OE_ORDER_PUB.LINE_REC_TYPE;
3902: l_line_val_rec OE_ORDER_PUB.LINE_VAL_REC_TYPE;
3903: l_lot_serial_rec OE_ORDER_PUB.LOT_SERIAL_REC_TYPE;
3904: l_lot_serial_id NUMBER;
3905: l_del_count NUMBER := 0;
3898: x_del_oe_lines_tbl OUT NOCOPY SHIP_ID_TBL_TYPE) IS
3899: --
3900: l_count NUMBER;
3901: l_line_rec OE_ORDER_PUB.LINE_REC_TYPE;
3902: l_line_val_rec OE_ORDER_PUB.LINE_VAL_REC_TYPE;
3903: l_lot_serial_rec OE_ORDER_PUB.LOT_SERIAL_REC_TYPE;
3904: l_lot_serial_id NUMBER;
3905: l_del_count NUMBER := 0;
3906: l_line_table_index NUMBER := 0;
3899: --
3900: l_count NUMBER;
3901: l_line_rec OE_ORDER_PUB.LINE_REC_TYPE;
3902: l_line_val_rec OE_ORDER_PUB.LINE_VAL_REC_TYPE;
3903: l_lot_serial_rec OE_ORDER_PUB.LOT_SERIAL_REC_TYPE;
3904: l_lot_serial_id NUMBER;
3905: l_del_count NUMBER := 0;
3906: l_line_table_index NUMBER := 0;
3907: --
3932: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Convert_Line_Tbl';
3933: --
3934: BEGIN
3935: l_count := 1;
3936: --Convert our rec type into OE_ORDER_PUB entities
3937:
3938: x_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
3939: x_line_val_tbl := OE_ORDER_PUB.G_MISS_LINE_VAL_TBL;
3940: x_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
3934: BEGIN
3935: l_count := 1;
3936: --Convert our rec type into OE_ORDER_PUB entities
3937:
3938: x_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
3939: x_line_val_tbl := OE_ORDER_PUB.G_MISS_LINE_VAL_TBL;
3940: x_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
3941:
3942: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3935: l_count := 1;
3936: --Convert our rec type into OE_ORDER_PUB entities
3937:
3938: x_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
3939: x_line_val_tbl := OE_ORDER_PUB.G_MISS_LINE_VAL_TBL;
3940: x_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
3941:
3942: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3943: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3936: --Convert our rec type into OE_ORDER_PUB entities
3937:
3938: x_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
3939: x_line_val_tbl := OE_ORDER_PUB.G_MISS_LINE_VAL_TBL;
3940: x_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
3941:
3942: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3943: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
3944: END IF;
3954: -- from the UI (after the order has been booked) is necessary.
3955: -- If the shipment is booked, Delete_Cancel_Order just zeroes out the ordered quantity.
3956: -- If not, it actually deletes the shipment line.
3957: l_line_rec := OE_LINE_UTIL.QUERY_ROW(p_line_id => p_line_tbl(i).line_id);
3958: l_line_val_rec := OE_ORDER_PUB.G_MISS_LINE_VAL_REC;
3959: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
3960: */
3961: l_del_count := l_del_count + 1;
3962: x_del_oe_lines_tbl(l_del_count) := p_line_tbl(i).line_id;
3960: */
3961: l_del_count := l_del_count + 1;
3962: x_del_oe_lines_tbl(l_del_count) := p_line_tbl(i).line_id;
3963: ELSE
3964: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
3965: l_line_val_rec := OE_ORDER_PUB.G_MISS_LINE_VAL_REC;
3966:
3967: IF (p_line_tbl(i).line_id IS NOT NULL) THEN
3968: l_line_rec.line_id := p_line_tbl(i).line_id;
3961: l_del_count := l_del_count + 1;
3962: x_del_oe_lines_tbl(l_del_count) := p_line_tbl(i).line_id;
3963: ELSE
3964: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
3965: l_line_val_rec := OE_ORDER_PUB.G_MISS_LINE_VAL_REC;
3966:
3967: IF (p_line_tbl(i).line_id IS NOT NULL) THEN
3968: l_line_rec.line_id := p_line_tbl(i).line_id;
3969: END IF;
4100: IF (p_line_tbl(i).line_type_id = FND_PROFILE.VALUE('AHL_OSP_OE_RETURN_ID') AND
4101: p_line_tbl(i).serial_number IS NOT NULL AND
4102: p_line_tbl(i).serial_number <> FND_API.G_MISS_CHAR) THEN
4103: IF (p_line_tbl(i).operation = 'C') THEN
4104: l_lot_serial_rec := OE_ORDER_PUB.G_MISS_LOT_SERIAL_REC;
4105: l_lot_serial_rec.from_serial_number := p_line_tbl(i).serial_number;
4106: l_lot_serial_rec.lot_number := p_line_tbl(i).lot_number;
4107: l_lot_serial_rec.quantity := p_line_tbl(i).ordered_quantity;
4108: l_lot_serial_rec.line_index := i;
6099: l_vendor_cust_dtls ahl_order_vendor_detls_csr%ROWTYPE;
6100: l_oe_header_id NUMBER;
6101: l_oe_line_id NUMBER;
6102:
6103: l_header_rec OE_ORDER_PUB.header_rec_type;
6104: l_line_tbl OE_ORDER_PUB.line_tbl_type;
6105: l_msg_data VARCHAR2(2000);
6106: l_msg_index_out NUMBER;
6107: l_index NUMBER;
6100: l_oe_header_id NUMBER;
6101: l_oe_line_id NUMBER;
6102:
6103: l_header_rec OE_ORDER_PUB.header_rec_type;
6104: l_line_tbl OE_ORDER_PUB.line_tbl_type;
6105: l_msg_data VARCHAR2(2000);
6106: l_msg_index_out NUMBER;
6107: l_index NUMBER;
6108: l_oe_line_rec OE_ORDER_PUB.line_rec_type;
6104: l_line_tbl OE_ORDER_PUB.line_tbl_type;
6105: l_msg_data VARCHAR2(2000);
6106: l_msg_index_out NUMBER;
6107: l_index NUMBER;
6108: l_oe_line_rec OE_ORDER_PUB.line_rec_type;
6109: l_count NUMBER := 0;
6110:
6111: BEGIN
6112:
6180: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to OE_ORDER_GRP.PROCESS_ORDER');
6182: END IF;
6183:
6184: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
6185: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
6186:
6187: l_header_rec.header_id := l_oe_header_id;
6188: l_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
6181: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to OE_ORDER_GRP.PROCESS_ORDER');
6182: END IF;
6183:
6184: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
6185: l_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
6186:
6187: l_header_rec.header_id := l_oe_header_id;
6188: l_header_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
6189: l_header_rec.sold_to_org_id := l_vendor_cust_dtls.customer_id;
6194: OPEN get_oe_order_lines(l_oe_header_id);
6195: LOOP
6196: FETCH get_oe_order_lines INTO l_oe_line_id;
6197: EXIT WHEN get_oe_order_lines%NOTFOUND;
6198: l_oe_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
6199: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_oe_line_id = ' || l_oe_line_id);
6201: END IF;
6202: l_oe_line_rec.line_id := l_oe_line_id;
6254: OE_MSG_PUB.Get(p_msg_index => i,
6255: p_encoded => FND_API.G_FALSE,
6256: p_data => l_msg_data,
6257: p_msg_index_out => l_msg_index_out);
6258: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
6259: p_procedure_name => 'processOrder',
6260: p_error_text => substr(l_msg_data,1,240));
6261: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6262: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);
6680: l_ship_line_instance_id NUMBER;
6681: l_del_oe_lines_tbl SHIP_ID_TBL_TYPE;
6682: l_lot_serial_id NUMBER;
6683:
6684: l_oe_line_rec OE_ORDER_PUB.line_rec_type;
6685: l_oe_lot_serial_rec OE_ORDER_PUB.lot_serial_rec_type;
6686: l_oe_line_tbl OE_ORDER_PUB.LINE_TBL_TYPE;
6687: l_oe_lot_serial_tbl OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE;
6688: l_part_num_changed VARCHAR2(1) := 'N';
6681: l_del_oe_lines_tbl SHIP_ID_TBL_TYPE;
6682: l_lot_serial_id NUMBER;
6683:
6684: l_oe_line_rec OE_ORDER_PUB.line_rec_type;
6685: l_oe_lot_serial_rec OE_ORDER_PUB.lot_serial_rec_type;
6686: l_oe_line_tbl OE_ORDER_PUB.LINE_TBL_TYPE;
6687: l_oe_lot_serial_tbl OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE;
6688: l_part_num_changed VARCHAR2(1) := 'N';
6689: l_serial_num_changed VARCHAR2(1) := 'N';
6682: l_lot_serial_id NUMBER;
6683:
6684: l_oe_line_rec OE_ORDER_PUB.line_rec_type;
6685: l_oe_lot_serial_rec OE_ORDER_PUB.lot_serial_rec_type;
6686: l_oe_line_tbl OE_ORDER_PUB.LINE_TBL_TYPE;
6687: l_oe_lot_serial_tbl OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE;
6688: l_part_num_changed VARCHAR2(1) := 'N';
6689: l_serial_num_changed VARCHAR2(1) := 'N';
6690: l_order_line_id NUMBER;
6683:
6684: l_oe_line_rec OE_ORDER_PUB.line_rec_type;
6685: l_oe_lot_serial_rec OE_ORDER_PUB.lot_serial_rec_type;
6686: l_oe_line_tbl OE_ORDER_PUB.LINE_TBL_TYPE;
6687: l_oe_lot_serial_tbl OE_ORDER_PUB.LOT_SERIAL_TBL_TYPE;
6688: l_part_num_changed VARCHAR2(1) := 'N';
6689: l_serial_num_changed VARCHAR2(1) := 'N';
6690: l_order_line_id NUMBER;
6691: l_serialnum_change_rec Sernum_Change_Rec_Type := p_serialnum_change_rec;
6729:
6730: -- Initialize API return status to success
6731: x_return_status := FND_API.G_RET_STS_SUCCESS;
6732:
6733: l_oe_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
6734: l_oe_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
6735:
6736:
6737: -- Standard call to check for call compatibility
6730: -- Initialize API return status to success
6731: x_return_status := FND_API.G_RET_STS_SUCCESS;
6732:
6733: l_oe_line_tbl := OE_ORDER_PUB.G_MISS_LINE_TBL;
6734: l_oe_lot_serial_tbl := OE_ORDER_PUB.G_MISS_LOT_SERIAL_TBL;
6735:
6736:
6737: -- Standard call to check for call compatibility
6738: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name,
7279: OE_MSG_PUB.Get(p_msg_index => i,
7280: p_encoded => FND_API.G_FALSE,
7281: p_data => l_msg_data,
7282: p_msg_index_out => l_msg_index_out);
7283: fnd_msg_pub.add_exc_msg(p_pkg_name => 'OE_ORDER_PUB',
7284: p_procedure_name => 'processOrder',
7285: p_error_text => substr(l_msg_data,1,240));
7286: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7287: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'OE:Err Msg '||i||'.' || l_msg_data);