[Home] [Help]
1: PACKAGE BODY PO_RFQ_VENDORS_PKG_S1 as
2: /* $Header: POXPIR2B.pls 115.0 99/07/17 01:49:44 porting ship $ */
3:
4: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
5: X_Po_Header_Id NUMBER,
29:
30: ) IS
31: CURSOR C IS
32: SELECT *
33: FROM PO_RFQ_VENDORS
34: WHERE rowid = X_Rowid
35: FOR UPDATE of Sequence_Num NOWAIT;
36: Recinfo C%ROWTYPE;
37: BEGIN
121: APP_EXCEPTION.RAISE_EXCEPTION;
122: end if;
123: END Lock_Row;
124:
125: END PO_RFQ_VENDORS_PKG_S1;