APPS.CSD_REPAIR_ACTUALS_PKG dependencies on CSD_REPAIR_ACTUALS

Line 1: PACKAGE BODY CSD_REPAIR_ACTUALS_PKG as

1: PACKAGE BODY CSD_REPAIR_ACTUALS_PKG as
2: /* $Header: csdtactb.pls 120.1 2008/02/09 01:01:50 takwong ship $ csdtactb.pls */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIR_ACTUALS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtactb.pls';

Line 4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIR_ACTUALS_PKG';

1: PACKAGE BODY CSD_REPAIR_ACTUALS_PKG as
2: /* $Header: csdtactb.pls 120.1 2008/02/09 01:01:50 takwong ship $ csdtactb.pls */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CSD_REPAIR_ACTUALS_PKG';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'csdtactb.pls';
6: l_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
7:
8: -- Global variable for storing the debug level

Line 42: CURSOR C2 IS SELECT CSD_REPAIR_ACTUALS_S1.nextval FROM sys.dual;

38: ,p_BILL_TO_PARTY_SITE_ID NUMBER := null
39: )
40:
41: IS
42: CURSOR C2 IS SELECT CSD_REPAIR_ACTUALS_S1.nextval FROM sys.dual;
43: BEGIN
44: If (px_REPAIR_ACTUAL_ID IS NULL) OR (px_REPAIR_ACTUAL_ID = FND_API.G_MISS_NUM) then
45: OPEN C2;
46: FETCH C2 INTO px_REPAIR_ACTUAL_ID;

Line 49: INSERT INTO CSD_REPAIR_ACTUALS(

45: OPEN C2;
46: FETCH C2 INTO px_REPAIR_ACTUAL_ID;
47: CLOSE C2;
48: End If;
49: INSERT INTO CSD_REPAIR_ACTUALS(
50: REPAIR_ACTUAL_ID
51: ,OBJECT_VERSION_NUMBER
52: ,REPAIR_LINE_ID
53: ,CREATED_BY

Line 140: Update CSD_REPAIR_ACTUALS

136: )
137:
138: IS
139: BEGIN
140: Update CSD_REPAIR_ACTUALS
141: SET
142: OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER)
143: ,REPAIR_LINE_ID = decode( p_REPAIR_LINE_ID, FND_API.G_MISS_NUM, REPAIR_LINE_ID, p_REPAIR_LINE_ID)
144: ,CREATED_BY = decode( p_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, p_CREATED_BY)

Line 180: DELETE FROM CSD_REPAIR_ACTUALS

176: p_REPAIR_ACTUAL_ID NUMBER
177: ,p_OBJECT_VERSION_NUMBER NUMBER)
178: IS
179: BEGIN
180: DELETE FROM CSD_REPAIR_ACTUALS
181: WHERE REPAIR_ACTUAL_ID = p_REPAIR_ACTUAL_ID;
182: If (SQL%NOTFOUND) then
183: RAISE NO_DATA_FOUND;
184: End If;

Line 200: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PKG.Lock_Row';

196: l_event_level number := FND_LOG.LEVEL_EVENT;
197: l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
198: l_error_level number := FND_LOG.LEVEL_ERROR;
199: l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
200: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PKG.Lock_Row';
201:
202: CURSOR C IS
203: SELECT *
204: FROM CSD_REPAIR_ACTUALS

Line 204: FROM CSD_REPAIR_ACTUALS

200: l_mod_name varchar2(2000) := 'csd.plsql.CSD_REPAIR_ACTUALS_PKG.Lock_Row';
201:
202: CURSOR C IS
203: SELECT *
204: FROM CSD_REPAIR_ACTUALS
205: WHERE REPAIR_ACTUAL_ID = p_REPAIR_ACTUAL_ID
206: FOR UPDATE of REPAIR_ACTUAL_ID NOWAIT;
207: Recinfo C%ROWTYPE;
208: BEGIN

Line 220: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUALS_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);

216: End If;
217: CLOSE C;
218:
219: IF ( l_stat_level >= G_debug_level) THEN
220: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUALS_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
221: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUALS_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
222: END IF;
223:
224: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then

Line 221: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUALS_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);

217: CLOSE C;
218:
219: IF ( l_stat_level >= G_debug_level) THEN
220: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUALS_PKG Recinfo.OBJECT_VERSION_NUMBER : '||Recinfo.OBJECT_VERSION_NUMBER);
221: FND_LOG.STRING(l_stat_level,l_mod_name,'CSD_REPAIR_ACTUALS_PKG p_OBJECT_VERSION_NUMBER : '||p_OBJECT_VERSION_NUMBER);
222: END IF;
223:
224: If ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER) then
225: return;

Line 233: End CSD_REPAIR_ACTUALS_PKG;

229: End If;
230:
231: END Lock_Row;
232:
233: End CSD_REPAIR_ACTUALS_PKG;