[Home] [Help]
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
67: ,p_LOC_SEGMENT19 VARCHAR2
68: ,p_LOC_SEGMENT20 VARCHAR2)
69:
70: IS
71: CURSOR C2 IS SELECT CSD_REPAIR_ACTUAL_LINES_S1.nextval FROM sys.dual;
72: BEGIN
73: If (px_REPAIR_ACTUAL_LINE_ID IS NULL) OR (px_REPAIR_ACTUAL_LINE_ID = FND_API.G_MISS_NUM) then
74: OPEN C2;
75: FETCH C2 INTO px_REPAIR_ACTUAL_LINE_ID;
74: OPEN C2;
75: FETCH C2 INTO px_REPAIR_ACTUAL_LINE_ID;
76: CLOSE C2;
77: End If;
78: INSERT INTO CSD_REPAIR_ACTUAL_LINES(
79: REPAIR_ACTUAL_LINE_ID
80: ,OBJECT_VERSION_NUMBER
81: ,ESTIMATE_DETAIL_ID
82: ,REPAIR_ACTUAL_ID
253: ,p_LOC_SEGMENT20 VARCHAR2)
254:
255: IS
256: BEGIN
257: Update CSD_REPAIR_ACTUAL_LINES
258: SET
259: OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, NULL, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
260: ,ESTIMATE_DETAIL_ID = decode( p_ESTIMATE_DETAIL_ID, FND_API.G_MISS_NUM, NULL, NULL, ESTIMATE_DETAIL_ID, p_ESTIMATE_DETAIL_ID)
261: ,REPAIR_ACTUAL_ID = decode( p_REPAIR_ACTUAL_ID, FND_API.G_MISS_NUM, NULL, NULL, REPAIR_ACTUAL_ID, p_REPAIR_ACTUAL_ID)
323: p_REPAIR_ACTUAL_LINE_ID NUMBER
324: ,p_OBJECT_VERSION_NUMBER NUMBER)
325: IS
326: BEGIN
327: DELETE FROM CSD_REPAIR_ACTUAL_LINES
328: WHERE REPAIR_ACTUAL_LINE_ID = p_REPAIR_ACTUAL_LINE_ID;
329: If (SQL%NOTFOUND) then
330: RAISE NO_DATA_FOUND;
331: End If;
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
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
351: WHERE REPAIR_ACTUAL_LINE_ID = p_REPAIR_ACTUAL_LINE_ID
352: FOR UPDATE of REPAIR_ACTUAL_LINE_ID NOWAIT;
353: Recinfo C%ROWTYPE;
354: BEGIN
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;