1: PACKAGE BODY PO_REQ_DISTRIBUTIONS_PKG2 as
2: /* $Header: POXRID2B.pls 120.2.12020000.2 2013/02/10 19:33:28 vegajula ship $ */
3: g_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4:
5: c_log_head CONSTANT VARCHAR2(35) := 'po.plsql.PO_REQ_DISTRIBUTIONS_PKG2.';
1: PACKAGE BODY PO_REQ_DISTRIBUTIONS_PKG2 as
2: /* $Header: POXRID2B.pls 120.2.12020000.2 2013/02/10 19:33:28 vegajula ship $ */
3: g_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4:
5: c_log_head CONSTANT VARCHAR2(35) := 'po.plsql.PO_REQ_DISTRIBUTIONS_PKG2.';
6:
7: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
8: X_Distribution_Id NUMBER,
9: X_Requisition_Line_Id NUMBER,
55:
56: ) IS
57: CURSOR C IS
58: SELECT *
59: FROM PO_REQ_DISTRIBUTIONS
60: WHERE rowid = X_Rowid
61: FOR UPDATE of Distribution_Id NOWAIT;
62: Recinfo C%ROWTYPE;
63: l_api_name CONSTANT VARCHAR2(30) := 'Lock_Row';
367:
368:
369: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
370: BEGIN
371: DELETE FROM PO_REQ_DISTRIBUTIONS
372: WHERE rowid = X_Rowid;
373:
374: if (SQL%NOTFOUND) then
375: Raise NO_DATA_FOUND;
377:
378:
379: END Delete_Row;
380:
381: END PO_REQ_DISTRIBUTIONS_PKG2;