1: package body IEX_CASES_PKG as
2: /* $Header: iextcasb.pls 120.0 2004/01/24 03:21:15 appldev noship $ */
3: --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
4: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5:
54:
55: BEGIN
56: -- IF PG_DEBUG < 10 THEN
57: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
58: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASES_PKG.INSERT_ROW ******** ');
59: END IF;
60: insert into IEX_CASES_ALL_B (
61: CAS_ID,
62: CASE_NUMBER,
194: end if;
195: close c;
196: --IF PG_DEBUG < 10 THEN
197: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
198: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASES_PKG.INSERT_ROW ******** ');
199: END IF;
200: end INSERT_ROW;
201:
202: procedure LOCK_ROW (
213:
214: begin
215: -- IF PG_DEBUG < 10 THEN
216: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
217: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASES_PKG.LOCK_ROW ******** ');
218: END IF;
219: open c;
220: fetch c into recinfo;
221: if (c%notfound) then
233: app_exception.raise_exception;
234: end if;
235: --IF PG_DEBUG < 10 THEN
236: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
237: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASES_PKG.LOCK_ROW ******** ');
238: END IF;
239: end LOCK_ROW;
240:
241: /*procedure LOCK_ROW (
453: X_LAST_UPDATE_LOGIN in NUMBER) is
454: begin
455: -- IF PG_DEBUG < 10 THEN
456: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
457: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASES_PKG.UPDATE_ROW ******** ');
458: END IF;
459: update IEX_CASES_ALL_B set
460: CASE_NUMBER = decode( x_CASE_NUMBER, FND_API.G_MISS_CHAR, CASE_NUMBER, x_CASE_NUMBER),
461: ACTIVE_FLAG = decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR, ACTIVE_FLAG, x_ACTIVE_FLAG),
514: raise no_data_found;
515: end if;
516: -- IF PG_DEBUG < 10 THEN
517: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
518: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASES_PKG.UPDATE_ROW ******** ');
519: END IF;
520: end UPDATE_ROW;
521:
522: procedure DELETE_ROW (
524: ) is
525: begin
526: -- IF PG_DEBUG < 10 THEN
527: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
528: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASES_PKG.DELETE_ROW ******** ');
529: END IF;
530: delete from IEX_CASES_TL
531: where CAS_ID = X_CAS_ID;
532:
541: raise no_data_found;
542: end if;
543: -- IF PG_DEBUG < 10 THEN
544: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
545: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASES_PKG.DELETE_ROW ******** ');
546: END IF;
547: end DELETE_ROW;
548:
549: procedure ADD_LANGUAGE
627: WHERE userenv('LANG') in (LANGUAGE, SOURCE_LANG) AND
628: CAS_id = X_CAS_ID;
629: end TRANSLATE_ROW;
630:
631: end IEX_CASES_PKG;