1: PACKAGE BODY PO_REQUISITION_LINES_PKG as
2: /* $Header: POXRIL1B.pls 120.6.12020000.2 2013/02/10 12:31:50 vegajula ship $ */
3:
4:
5: PROCEDURE Update_Row(X_Rowid VARCHAR2,
124:
125: x_progress := '010';
126:
127:
128: UPDATE PO_REQUISITION_LINES
129: SET
130: requisition_line_id = X_Requisition_Line_Id,
131: requisition_header_id = X_Requisition_Header_Id,
132: line_num = X_Line_Num,
295: SELECT 1
296: INTO dummy
297: FROM DUAL
298: WHERE not exists (SELECT 1
299: FROM po_requisition_lines
300: WHERE line_num = X_line_num
301: AND requisition_header_id = X_req_header_id
302: AND ((x_rowid is null) or (rowid <> x_rowid))
303: );
309: END check_unique;
310:
311:
312:
313: END PO_REQUISITION_LINES_PKG;