1: PACKAGE BODY IEX_CASES_PVT as
2: /* $Header: iexvcasb.pls 120.2 2006/05/30 17:52:15 scherkas noship $ */
3: -- Start of Comments
4: -- Package name : IEX_CASES_PVT
5: -- Purpose :
1: PACKAGE BODY IEX_CASES_PVT as
2: /* $Header: iexvcasb.pls 120.2 2006/05/30 17:52:15 scherkas noship $ */
3: -- Start of Comments
4: -- Package name : IEX_CASES_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_CASES_PVT';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvaseb.pls';
13:
14: --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
15: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
42:
43: BEGIN
44: -- IF PG_DEBUG < 10 THEN
45: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
46: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASES_PVT.Create_cas ******** ');
47: END IF;
48: -- Standard Start of API savepoint
49: SAVEPOINT CREATE_CAS_PVT;
50:
247: );
248:
249: -- IF PG_DEBUG < 10 THEN
250: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
251: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASES_PVT.Create_cas ******** ');
252: END IF;
253: EXCEPTION
254: WHEN FND_API.G_EXC_ERROR THEN
255: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
305:
306: BEGIN
307: -- IF PG_DEBUG < 10 THEN
308: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
309: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASES_PVT.update_cas ******** ');
310: END IF;
311: -- Standard Start of API savepoint
312: SAVEPOINT UPDATE_CAS_PVT;
313:
417: p_data => x_msg_data
418: );
419: -- IF PG_DEBUG < 10 THEN
420: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
421: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASES_PVT.Update_cas ******** ');
422: END IF;
423: EXCEPTION
424: WHEN FND_API.G_EXC_ERROR THEN
425: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
561:
562:
563:
564:
565: End IEX_CASES_PVT;