1: PACKAGE BODY AS_LEADS_LOG_PKG as
2: /* $Header: asxtllgb.pls 115.10 2004/01/13 10:08:40 gbatra ship $ */
3: -- Start of Comments
4: -- Package name : AS_LEADS_LOG_PKG
5: -- Purpose :
1: PACKAGE BODY AS_LEADS_LOG_PKG as
2: /* $Header: asxtllgb.pls 115.10 2004/01/13 10:08:40 gbatra ship $ */
3: -- Start of Comments
4: -- Package name : AS_LEADS_LOG_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments
7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'AS_LEADS_LOG_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxtllgb.pls';
13:
14: PROCEDURE Insert_Row(
15: px_LOG_ID IN OUT NOCOPY NUMBER,
203: from AS_LEADS_LOG
204: where lead_id = p_OLD_LEAD_ID);
205:
206: If (SQL%NOTFOUND) then
207: --dbms_output.put_line('In AS_LEADS_LOG_PKG after Update statement : Data No found seems');
208: --dbms_output.put_line('Error Number:'||SQLCODE);
209: --dbms_output.put_line('Error Message:'|| SUBSTR(SQLERRM, 1, 200));
210: RAISE NO_DATA_FOUND;
211:
308: APP_EXCEPTION.RAISE_EXCEPTION;
309: End If;
310: END Lock_Row;
311:
312: End AS_LEADS_LOG_PKG;