The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT nvl(max(line_num),0)
INTO X_max_line_num
FROM po_lines
WHERE po_header_id = X_po_header_id;
PROCEDURE NAME: update_line()
Moved to PO_LINES_SV11
ecso 3/19/97 for globalization
===========================================================================*/
/*RETROACTIVE FPI START */
Procedure retroactive_change(p_po_line_id IN number) IS
X_progress VARCHAR2(3) := '';
SELECT po_line_id INTO l_line_id
FROM
PO_LINES
WHERE
po_line_id = p_po_line_id FOR UPDATE OF RETROACTIVE_DATE NOWAIT;
update po_lines
set retroactive_date = sysdate,
last_update_date = sysdate,
last_updated_by = x_user_id
where po_line_id = p_po_line_id;
UPDATE po_line_locations pll
SET retroactive_date = (SELECT pl.retroactive_date
FROM po_lines_all pl
WHERE pl.po_line_id = pll.po_line_id),
--retroactive_date = SYSDATE,
last_update_date = SYSDATE,
last_updated_by = l_user_id
WHERE line_location_id = p_line_location_id;