1: PACKAGE BODY CSD_REPAIRS_PKG as
2: /* $Header: csdtdrab.pls 120.10.12010000.2 2008/11/06 07:14:57 subhat ship $ */
3: -- Start of Comments
4: -- Package name : CSD_REPAIRS_PKG
5: -- Purpose :
1: PACKAGE BODY CSD_REPAIRS_PKG as
2: /* $Header: csdtdrab.pls 120.10.12010000.2 2008/11/06 07:14:57 subhat ship $ */
3: -- Start of Comments
4: -- Package name : CSD_REPAIRS_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):= 'CSD_REPAIRS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtdrab.pls';
13: l_debug NUMBER ;
14:
15: PROCEDURE Insert_Row(
514: CLOSE C;
515:
516: l_debug := csd_gen_utility_pvt.g_debug_level;
517: IF l_debug > 0 THEN
518: csd_gen_utility_pvt.add('CSD_REPAIRS_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
519: csd_gen_utility_pvt.add('CSD_REPAIRS_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
520: END IF;
521:
522: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
515:
516: l_debug := csd_gen_utility_pvt.g_debug_level;
517: IF l_debug > 0 THEN
518: csd_gen_utility_pvt.add('CSD_REPAIRS_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
519: csd_gen_utility_pvt.add('CSD_REPAIRS_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
520: END IF;
521:
522: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
523: return;
527: End If;
528:
529: END Lock_Row;
530:
531: End CSD_REPAIRS_PKG;