1: PACKAGE BODY IEX_WRITEOFFS_PVT as
2: /* $Header: iexvwrob.pls 120.2 2008/01/09 12:31:01 gnramasa ship $ */
3: -- Start of Comments
4: -- Package name : IEX_writeoffs_PVT
5: -- Purpose :
1: PACKAGE BODY IEX_WRITEOFFS_PVT as
2: /* $Header: iexvwrob.pls 120.2 2008/01/09 12:31:01 gnramasa ship $ */
3: -- Start of Comments
4: -- Package name : IEX_writeoffs_PVT
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):= 'IEX_WRITEOFFS_PVT';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvwrob.pls';
13:
14:
15: -- Hint: Primary key needs to be returned.
33: l_api_version_number CONSTANT NUMBER := 2.0;
34: l_return_status_full VARCHAR2(1);
35: v_rowid VARCHAR2(24);
36:
37: v_writeoff_id iex_writeoffs.writeoff_id%TYPE;
38: v_object_version_number iex_writeoffs.object_version_number%TYPE;
39: v_active_flag iex_writeoffs.active_flag%TYPE;
40:
41: Cursor c2 is SELECT IEX_WRITEOFFS_S.nextval from dual;
34: l_return_status_full VARCHAR2(1);
35: v_rowid VARCHAR2(24);
36:
37: v_writeoff_id iex_writeoffs.writeoff_id%TYPE;
38: v_object_version_number iex_writeoffs.object_version_number%TYPE;
39: v_active_flag iex_writeoffs.active_flag%TYPE;
40:
41: Cursor c2 is SELECT IEX_WRITEOFFS_S.nextval from dual;
42: BEGIN
35: v_rowid VARCHAR2(24);
36:
37: v_writeoff_id iex_writeoffs.writeoff_id%TYPE;
38: v_object_version_number iex_writeoffs.object_version_number%TYPE;
39: v_active_flag iex_writeoffs.active_flag%TYPE;
40:
41: Cursor c2 is SELECT IEX_WRITEOFFS_S.nextval from dual;
42: BEGIN
43: -- IF PG_DEBUG < 10 THEN
37: v_writeoff_id iex_writeoffs.writeoff_id%TYPE;
38: v_object_version_number iex_writeoffs.object_version_number%TYPE;
39: v_active_flag iex_writeoffs.active_flag%TYPE;
40:
41: Cursor c2 is SELECT IEX_WRITEOFFS_S.nextval from dual;
42: BEGIN
43: -- IF PG_DEBUG < 10 THEN
44: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
45: IEX_DEBUG_PUB.LogMessage ('Create_writeoffs: ' || '********* start of Procedure =>'||
42: BEGIN
43: -- IF PG_DEBUG < 10 THEN
44: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
45: IEX_DEBUG_PUB.LogMessage ('Create_writeoffs: ' || '********* start of Procedure =>'||
46: 'IEX_WRITEOFFS_PVT.create_WRITEOFFS ******** ');
47: END IF;
48:
49: -- Standard Start of API savepoint
50: SAVEPOINT CREATE_WRITEOFFS_PVT;
145: IEX_DEBUG_PUB.LogMessage('Create_writeoffs: ' || 'After party_id Check ');
146: END IF;
147:
148:
149: IEX_WRITEOFFS_PKG.Insert_Row(
150: x_rowid => v_rowid,
151: p_WRITEOFF_ID => v_WRITEOFF_ID,
152: p_PARTY_ID => p_writeoffs_rec.PARTY_ID,
153: p_DELINQUENCY_ID => p_writeoffs_rec.DELINQUENCY_ID,
215:
216: x_WRITEOFF_ID := v_WRITEOFF_ID;
217: -- IF PG_DEBUG < 10 THEN
218: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
219: IEX_DEBUG_PUB.LogMessage('Create_writeoffs: ' || 'After Calling IEX_WRITEOFFS_PKG.'||
220: 'Insert_Row and WRITEOFF_ID is => '||x_WRITEOFF_ID);
221: END IF;
222: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
223: RAISE FND_API.G_EXC_ERROR;
242: );
243: -- IF PG_DEBUG < 10 THEN
244: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
245: IEX_DEBUG_PUB.LogMessage ('Create_writeoffs: ' || '********* end of Procedure =>'||
246: 'IEX_WRITEOFFS_PVT.create_WRITEOFFS ******** ');
247: END IF;
248:
249: EXCEPTION
250: WHEN FND_API.G_EXC_ERROR THEN
296: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_WRITEOFFS';
297: l_api_version_number CONSTANT NUMBER := 2.0;
298: l_object_version_number number := 1.0;
299: /*
300: l_object_version_number iex_writeoffs.object_version_number%TYPE
301: :=p_writeoffs_Rec.object_version_number;
302: */
303: BEGIN
304: -- IF PG_DEBUG < 10 THEN
303: BEGIN
304: -- IF PG_DEBUG < 10 THEN
305: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
306: IEX_DEBUG_PUB.LogMessage ('Update_writeoffs: ' || '********* start of Procedure =>'||
307: 'IEX_WRITEOFFS_PVT.update_WRITEOFFS ******** ');
308: END IF;
309: -- Standard Start of API savepoint
310: SAVEPOINT UPDATE_WRITEOFFS_PVT;
311:
336:
337: -- Invoke table handler(IEX_CASES_ALL_B_PKG.Update_Row)
338: -- call locking table handler
339: /*
340: IEX_WRITEOFFS_PKG.lock_row (
341: P_WRITEOFFS_Rec.writeoff_id,
342: l_object_version_number
343: );
344: */
342: l_object_version_number
343: );
344: */
345: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
346: IEX_DEBUG_PUB.LogMessage ('IEX_WRITEOFFS_PVT.update_WRITEOFFS, before calling IEX_WRITEOFFS_PKG.Update_Row');
347: END IF;
348:
349: -- Invoke table handler(IEX_WRITEOFFS_PKG.Update_Row)
350: IEX_WRITEOFFS_PKG.Update_Row(
345: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
346: IEX_DEBUG_PUB.LogMessage ('IEX_WRITEOFFS_PVT.update_WRITEOFFS, before calling IEX_WRITEOFFS_PKG.Update_Row');
347: END IF;
348:
349: -- Invoke table handler(IEX_WRITEOFFS_PKG.Update_Row)
350: IEX_WRITEOFFS_PKG.Update_Row(
351: p_WRITEOFF_ID => p_writeoffs_rec.WRITEOFF_ID,
352: p_PARTY_ID => p_writeoffs_rec.PARTY_ID,
353: p_DELINQUENCY_ID => p_writeoffs_rec.DELINQUENCY_ID,
346: IEX_DEBUG_PUB.LogMessage ('IEX_WRITEOFFS_PVT.update_WRITEOFFS, before calling IEX_WRITEOFFS_PKG.Update_Row');
347: END IF;
348:
349: -- Invoke table handler(IEX_WRITEOFFS_PKG.Update_Row)
350: IEX_WRITEOFFS_PKG.Update_Row(
351: p_WRITEOFF_ID => p_writeoffs_rec.WRITEOFF_ID,
352: p_PARTY_ID => p_writeoffs_rec.PARTY_ID,
353: p_DELINQUENCY_ID => p_writeoffs_rec.DELINQUENCY_ID,
354: p_CAS_ID => p_writeoffs_rec.CAS_ID,
412: --
413: -- End of API body.
414: --
415: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
416: IEX_DEBUG_PUB.LogMessage ('IEX_WRITEOFFS_PVT.update_WRITEOFFS is successfull');
417: END IF;
418: -- Standard check for p_commit
419: IF FND_API.to_Boolean( p_commit )
420: THEN
429:
430: -- IF PG_DEBUG < 10 THEN
431: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
432: IEX_DEBUG_PUB.LogMessage ('Update_writeoffs: ' || '********* END of Procedure =>'||
433: 'IEX_WRITEOFFS_PVT.update_WRITEOFFS ******** ');
434: END IF;
435:
436:
437: EXCEPTION
487: BEGIN
488: -- IF PG_DEBUG < 10 THEN
489: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
490: IEX_DEBUG_PUB.LogMessage ('Delete_writeoffs: ' || '********* Start of Procedure =>'||
491: 'IEX_WRITEOFFS_PVT.DELETE_WRITEOFFS ******** ');
492: END IF;
493:
494:
495: -- Standard Start of API savepoint
519: --
520: -- Api body
521: --
522:
523: -- Invoke table handler(IEX_WRITEOFFS_PKG.Delete_Row)
524: IEX_WRITEOFFS_PKG.Delete_Row(
525: p_WRITEOFF_ID => p_WRITEOFF_ID);
526: --
527: -- End of API body
520: -- Api body
521: --
522:
523: -- Invoke table handler(IEX_WRITEOFFS_PKG.Delete_Row)
524: IEX_WRITEOFFS_PKG.Delete_Row(
525: p_WRITEOFF_ID => p_WRITEOFF_ID);
526: --
527: -- End of API body
528: --
536:
537: -- IF PG_DEBUG < 10 THEN
538: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
539: IEX_DEBUG_PUB.LogMessage ('Delete_writeoffs: ' || '********* End of Procedure =>'||
540: 'IEX_WRITEOFFS_PVT.DELETE_WRITEOFFS ******** ');
541: END IF;
542:
543:
544: -- Standard call to get message count and if count is 1, get message info.
582: End Delete_writeoffs;
583:
584:
585:
586: End IEX_WRITEOFFS_PVT;