The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT AK.ATTRIBUTE_LABEL_LONG
INTO l_attribute_name
FROM AK_ATTRIBUTES_VL AK
WHERE ak.attribute_code = upper(p_attribute_code)
AND ak.attribute_application_id = 660;
SELECT header_id
FROM OE_ORDER_HEADERS
WHERE HEADER_ID = p_header_id
FOR UPDATE NOWAIT;
SELECT line_id
FROM OE_ORDER_LINES
WHERE HEADER_ID = p_header_id
FOR UPDATE NOWAIT;
SELECT price_adjustment_id
FROM OE_PRICE_ADJUSTMENTS
WHERE HEADER_ID = p_header_id
FOR UPDATE NOWAIT;
SELECT sales_credit_id
FROM OE_SALES_CREDITS
WHERE HEADER_ID = p_header_id
FOR UPDATE NOWAIT;
PROCEDURE Update_Global_Picture
(
p_Upd_New_Rec_If_Exists IN BOOLEAN := TRUE
, p_Header_Rec IN OE_Order_Pub.Header_Rec_Type := NULL
, p_Line_Rec IN OE_Order_Pub.Line_Rec_Type := NULL
, p_Hdr_Scr_Rec IN OE_Order_Pub.Header_Scredit_Rec_Type := NULL
, p_Hdr_Adj_Rec IN OE_Order_Pub.Header_Adj_Rec_Type := NULL
, p_Line_Adj_Rec IN OE_Order_Pub.Line_Adj_Rec_Type := NULL
, p_Line_Scr_Rec IN OE_Order_Pub.Line_Scredit_Rec_Type := NULL
, p_Lot_Serial_Rec IN OE_Order_Pub.Lot_Serial_Rec_Type := NULL
, p_old_Header_Rec IN OE_Order_Pub.Header_Rec_Type := NULL
, p_old_Line_Rec IN OE_Order_Pub.Line_Rec_Type := NULL
, p_old_Hdr_Scr_Rec IN OE_Order_Pub.Header_Scredit_Rec_Type := NULL
, p_old_Hdr_Adj_Rec IN OE_Order_Pub.Header_Adj_Rec_Type := NULL
, p_old_Line_Adj_Rec IN OE_Order_Pub.Line_Adj_Rec_Type := NULL
, p_old_Line_Scr_Rec IN OE_Order_Pub.Line_Scredit_Rec_Type := NULL
, p_old_Lot_Serial_Rec IN OE_Order_Pub.Lot_Serial_Rec_Type := NULL
, p_header_id IN NUMBER := NULL
, p_line_id IN NUMBER := NULL
, p_hdr_scr_id IN NUMBER := NULL
, p_line_scr_id IN NUMBER := NULL
, p_hdr_adj_id IN NUMBER := NULL
, p_line_adj_id IN NUMBER := NULL
, p_lot_serial_id IN NUMBER := NULL
, x_index OUT NOCOPY NUMBER
, x_return_status OUT NOCOPY VARCHAR2)
IS
l_ind PLS_INTEGER;
oe_debug_pub.add( 'ENTERING OE_ORDER_UTIL.UPDATE_GLOBAL_PICTURE' , 1 ) ;
oe_debug_pub.add( 'JPN: OLD HEADER GLOBAL PIC UPDATED' ) ;
oe_debug_pub.add( 'JPN: OLD HEADER GLOBAL PIC UPDATED AFTER QUERY' ) ;
oe_debug_pub.add( 'JPN: OLD HEADER GLOBAL PIC UPDATED IN THIS LOOP' ) ;
/* Update the record in the new global table */
IF l_debug_level > 0 THEN
oe_debug_pub.add( 'INSIDE LOOP P_UPD_NEW_REC' ) ;
END IF; -- update flag is set
oe_debug_pub.add( 'JPN: OLD HEADER SALES CREDITS GLOBAL PIC UPDATED' ) ;
oe_debug_pub.add( 'JPN: OLD HEADER SCREDIT GLOBAL PIC UPDATED AFTER QUERY' ) ;
/* Update the record in the new global table */
g_header_scredit_tbl(l_ind) := p_hdr_scr_rec;
END IF; -- update flag is set
oe_debug_pub.add( 'JPN: OLD HEADER ADJ GLOBAL PIC UPDATED' ) ;
/* Update the record in the new global table */
g_header_adj_tbl(l_ind) := p_hdr_adj_rec;
END IF; -- update flag is set
oe_debug_pub.add( 'JPN: OLD LINE GLOBAL PIC UPDATED' ) ;
oe_debug_pub.add( 'JPN: OLD LINE GLOBAL PIC UPDATED AFTER QUERY' ) ;
/* Update the record in the new global table */
g_line_tbl(l_ind) := p_line_rec;
END IF; -- update flag is set
oe_debug_pub.add( 'JPN: OLD LINE SALES CREDITS GLOBAL PIC UPDATED' ) ;
/* Update the record in the new global table */
g_line_scredit_tbl(l_ind) := p_line_scr_rec;
END IF; -- update flag is set
oe_debug_pub.add( 'JPN: OLD LINE ADJ GLOBAL PIC UPDATED' ) ;
/* Update the record in the new global table */
g_line_adj_tbl(l_ind) := p_line_adj_rec;
END IF; -- update flag is set
oe_debug_pub.add( 'JPN: OLD LOT SERIAL GLOBAL PIC UPDATED' ) ;
/* Update the record in the new global table */
g_lot_serial_tbl(l_ind) := p_lot_serial_rec;
END IF; -- update flag is set
oe_debug_pub.add( 'EXITING OE_ORDER_UTIL.UPDATE_GLOBAL_PICTURE' , 1 ) ;
,'Update_Global_picture');
END Update_Global_Picture;
G_line_tbl.DELETE;
G_old_line_tbl.DELETE;
G_Header_Scredit_tbl.DELETE;
G_Old_Header_Scredit_tbl.DELETE;
G_Old_Line_Scredit_tbl.DELETE;
G_Line_Scredit_tbl.DELETE;
G_old_Header_Adj_tbl.DELETE;
G_Header_Adj_tbl.DELETE;
G_old_Line_Adj_tbl.DELETE;
G_Line_Adj_tbl.DELETE;
G_old_Lot_Serial_tbl.DELETE;
G_Lot_Serial_tbl.DELETE;
SELECT TRANSACTIONAL_CURR_CODE
INTO l_currency_code
FROM OE_ORDER_HEADERS
WHERE HEADER_ID=p_header_id;
SELECT /*MOAC_SQL_CHANGES*/ OH.TRANSACTIONAL_CURR_CODE
INTO l_currency_code
FROM OE_ORDER_HEADERS OH, OE_ORDER_LINES_ALL OL
WHERE OH.HEADER_ID=OL.HEADER_ID
AND OL.LINE_ID=p_line_id;