1 PACKAGE BODY RCV_TRX_INTERFACE_DELETE_PKG as
2 /* $Header: RCVTIR4B.pls 120.2 2005/06/21 18:56:28 wkunz noship $ */
3
4 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
5 BEGIN
6 DELETE FROM RCV_TRANSACTIONS_INTERFACE
7 WHERE rowid = X_Rowid;
8
9 if (SQL%NOTFOUND) then
10 Raise NO_DATA_FOUND;
11 end if;
12 END Delete_Row;
13
14 END RCV_TRX_INTERFACE_DELETE_PKG;