[Home] [Help]
1: package body IEX_CASE_OBJECTS_PKG as
2: /* $Header: iextcobb.pls 120.0 2004/01/24 03:21:23 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:
36: X_LAST_UPDATE_DATE in DATE,
37: X_LAST_UPDATED_BY in NUMBER,
38: X_LAST_UPDATE_LOGIN in NUMBER
39: ) is
40: cursor C is select ROWID from IEX_CASE_OBJECTS
41: where CASE_OBJECT_ID = X_CASE_OBJECT_ID ;
42: begin
43: -- IF PG_DEBUG < 10 THEN
44: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
41: where CASE_OBJECT_ID = X_CASE_OBJECT_ID ;
42: begin
43: -- IF PG_DEBUG < 10 THEN
44: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
45: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_OBJECTS_PKG.INSERT_ROW ******** ');
46: END IF;
47: INSERT INTO IEX_CASE_OBJECTS(
48: CASE_OBJECT_ID,
49: object_id,
43: -- IF PG_DEBUG < 10 THEN
44: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
45: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_OBJECTS_PKG.INSERT_ROW ******** ');
46: END IF;
47: INSERT INTO IEX_CASE_OBJECTS(
48: CASE_OBJECT_ID,
49: object_id,
50: OBJECT_CODE,
51: ACTIVE_FLAG,
122: end if;
123: close c;
124: -- IF PG_DEBUG < 10 THEN
125: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
126: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_CASE_OBJECTS_PKG.INSERT_ROW ******** ');
127: END IF;
128: End Insert_Row;
129:
130: PROCEDURE Update_Row(
159: X_LAST_UPDATE_LOGIN in NUMBER) is
160: BEGIN
161: -- IF PG_DEBUG < 10 THEN
162: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
163: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_OBJECTS_PKG.UPDATE_ROW ******** ');
164: END IF;
165: Update IEX_CASE_OBJECTS
166: SET
167: object_id = decode( x_object_id, FND_API.G_MISS_NUM, object_id, x_object_id),
161: -- IF PG_DEBUG < 10 THEN
162: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
163: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_OBJECTS_PKG.UPDATE_ROW ******** ');
164: END IF;
165: Update IEX_CASE_OBJECTS
166: SET
167: object_id = decode( x_object_id, FND_API.G_MISS_NUM, object_id, x_object_id),
168: OBJECT_CODE = decode( x_OBJECT_CODE, FND_API.G_MISS_CHAR, OBJECT_CODE, x_OBJECT_CODE),
169: ACTIVE_FLAG = decode( x_ACTIVE_FLAG, FND_API.G_MISS_CHAR, ACTIVE_FLAG, x_ACTIVE_FLAG),
198: RAISE NO_DATA_FOUND;
199: End If;
200: -- IF PG_DEBUG < 10 THEN
201: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
202: IEX_DEBUG_PUB.LogMessage ('Update_Row: ' || '********* End of Procedure =>IEX_CASE_OBJECTS_PKG.INSERT_ROW ******** ');
203: END IF;
204: END Update_Row;
205:
206: PROCEDURE Delete_Row(
206: PROCEDURE Delete_Row(
207: X_CASE_OBJECT_ID NUMBER)
208: IS
209: BEGIN
210: DELETE FROM IEX_CASE_OBJECTS
211: WHERE CASE_OBJECT_ID = X_CASE_OBJECT_ID;
212: If (SQL%NOTFOUND) then
213: RAISE NO_DATA_FOUND;
214: End If;
218: X_CASE_OBJECT_ID in NUMBER,
219: X_OBJECT_VERSION_NUMBER in NUMBER
220: ) is
221: cursor c is select OBJECT_VERSION_NUMBER
222: from IEX_CASE_OBJECTS
223: where CASE_OBJECT_ID = X_CASE_OBJECT_ID
224: and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
225: for update of CASE_OBJECT_ID nowait;
226: recinfo c%rowtype;
228:
229: begin
230: -- IF PG_DEBUG < 10 THEN
231: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
232: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_CASE_OBJECTS_PKG.LOCK_ROW ******** ');
233: END IF;
234: open c;
235: fetch c into recinfo;
236: if (c%notfound) then
248: app_exception.raise_exception;
249: end if;
250: -- IF PG_DEBUG < 10 THEN
251: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
252: IEX_DEBUG_PUB.LogMessage ('LOCK_ROW: ' || '********* End of Procedure =>IEX_CASE_OBJECTS_PKG.INSERT_ROW ******** ');
253: END IF;
254: end LOCK_ROW;
255:
256:
289:
290: IS
291: CURSOR C IS
292: SELECT *
293: FROM IEX_CASE_OBJECTS
294: WHERE CASE_OBJECT_ID = p_CASE_OBJECT_ID
295: FOR UPDATE of CASE_OBJECT_ID NOWAIT;
296: Recinfo C%ROWTYPE;
297: BEGIN
403: End If;
404: END Lock_Row;
405: */
406:
407: End IEX_CASE_OBJECTS_PKG;