1: PACKAGE BODY PO_REQ_DISTRIBUTIONS_PKG2 as
2: /* $Header: POXRID2B.pls 120.1.12000000.3 2007/05/21 23:50:08 lswamy ship $ */
3:
4: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
5: X_Distribution_Id NUMBER,
52:
53: ) IS
54: CURSOR C IS
55: SELECT *
56: FROM PO_REQ_DISTRIBUTIONS
57: WHERE rowid = X_Rowid
58: FOR UPDATE of Distribution_Id NOWAIT;
59: Recinfo C%ROWTYPE;
60: BEGIN
222:
223:
224: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
225: BEGIN
226: DELETE FROM PO_REQ_DISTRIBUTIONS
227: WHERE rowid = X_Rowid;
228:
229: if (SQL%NOTFOUND) then
230: Raise NO_DATA_FOUND;
232:
233:
234: END Delete_Row;
235:
236: END PO_REQ_DISTRIBUTIONS_PKG2;