1: PACKAGE BODY CSD_REPAIR_ACTUAL_LINES_PKG as
2: /* $Header: csdtalnb.pls 120.1 2008/02/15 04:02:42 takwong ship $ csdtalnb.pls */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIR_ACTUAL_LINES_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtclnb.pls';
1: PACKAGE BODY CSD_REPAIR_ACTUAL_LINES_PKG as
2: /* $Header: csdtalnb.pls 120.1 2008/02/15 04:02:42 takwong ship $ csdtalnb.pls */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIR_ACTUAL_LINES_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtclnb.pls';
6: l_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
7:
8: -- Global variable for storing the debug level
342: l_event_level number := FND_LOG.LEVEL_EVENT;
343: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
344: l_error_level number := FND_LOG.LEVEL_ERROR;
345: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
346: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUAL_LINES_PKG.Lock_Row';
347:
348: CURSOR C IS
349: SELECT *
350: FROM CSD_REPAIR_ACTUAL_LINES
361: End If;
362: CLOSE C;
363:
364: IF ( l_stat_level >= G_debug_level) THEN
365: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUAL_LINES_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
366: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUAL_LINES_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
367: END IF;
368:
369: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
362: CLOSE C;
363:
364: IF ( l_stat_level >= G_debug_level) THEN
365: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUAL_LINES_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
366: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUAL_LINES_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
367: END IF;
368:
369: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
370: return;
373: APP_EXCEPTION.RAISE_EXCEPTION;
374: End If;
375: END Lock_Row;
376:
377: End CSD_REPAIR_ACTUAL_LINES_PKG;