1: PACKAGE BODY PO_REQUISITION_LINES_PKG3 as
2: /* $Header: POXRIL4B.pls 115.3 2003/07/30 21:52:40 anhuang ship $ */
3:
4: PROCEDURE Lock3_Row(X_Rowid VARCHAR2,
5: X_Rate_Type VARCHAR2,
36: ) IS
37:
38: CURSOR C IS
39: SELECT *
40: FROM PO_REQUISITION_LINES
41: WHERE rowid = X_Rowid
42: FOR UPDATE of Requisition_Line_Id NOWAIT;
43:
44: Recinfo C%ROWTYPE;
157: APP_EXCEPTION.RAISE_EXCEPTION;
158: end if;
159: END Lock3_Row;
160:
161: END PO_REQUISITION_LINES_PKG3;