APPS.IEX_COSTS_PKG dependencies on IEX_COSTS

Line 1: PACKAGE BODY IEX_COSTS_PKG as

1: PACKAGE BODY IEX_COSTS_PKG as
2: /* $Header: iextcosb.pls 120.0 2004/01/24 03:21:30 appldev noship $ */
3: -- Start of Comments
4: -- Package name : IEX_COSTS_PKG
5: -- Purpose :

Line 4: -- Package name : IEX_COSTS_PKG

1: PACKAGE BODY IEX_COSTS_PKG as
2: /* $Header: iextcosb.pls 120.0 2004/01/24 03:21:30 appldev noship $ */
3: -- Start of Comments
4: -- Package name : IEX_COSTS_PKG
5: -- Purpose :
6: -- History :
7: -- NOTE :
8: -- End of Comments

Line 11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_COSTS_PKG';

7: -- NOTE :
8: -- End of Comments
9:
10:
11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_COSTS_PKG';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iextcosb.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;

Line 64: cursor C is select ROWID from IEX_COSTS

60: p_LAST_UPDATE_LOGIN IN NUMBER
61: )
62:
63: IS
64: cursor C is select ROWID from IEX_COSTS
65: where cost_id = p_cost_id;
66:
67: BEGIN
68: -- IF PG_DEBUG < 10 THEN

Line 70: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_COSTS_PKG.INSERT_ROW ******** ');

66:
67: BEGIN
68: -- IF PG_DEBUG < 10 THEN
69: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
70: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_COSTS_PKG.INSERT_ROW ******** ');
71: END IF;
72:
73: INSERT INTO IEX_COSTS(
74: COST_ID,

Line 73: INSERT INTO IEX_COSTS(

69: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
70: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_COSTS_PKG.INSERT_ROW ******** ');
71: END IF;
72:
73: INSERT INTO IEX_COSTS(
74: COST_ID,
75: CASE_ID,
76: DELINQUENCY_ID,
77: COST_TYPE_CODE,

Line 172: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_COSTS_PKG.INSERT_ROW ******** ');

168: end if;
169: close c;
170: -- IF PG_DEBUG < 10 THEN
171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
172: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_COSTS_PKG.INSERT_ROW ******** ');
173: END IF;
174: End Insert_Row;
175:
176: PROCEDURE Update_Row(

Line 223: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_COSTS_PKG.UPDATE_ROW ******** ');

219: IS
220: BEGIN
221: -- IF PG_DEBUG < 10 THEN
222: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
223: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_COSTS_PKG.UPDATE_ROW ******** ');
224: END IF;
225: Update IEX_COSTS
226: SET
227: CASE_ID = decode( p_CASE_ID, FND_API.G_MISS_NUM, CASE_ID, p_CASE_ID),

Line 225: Update IEX_COSTS

221: -- IF PG_DEBUG < 10 THEN
222: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
223: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_COSTS_PKG.UPDATE_ROW ******** ');
224: END IF;
225: Update IEX_COSTS
226: SET
227: CASE_ID = decode( p_CASE_ID, FND_API.G_MISS_NUM, CASE_ID, p_CASE_ID),
228: DELINQUENCY_ID = decode( p_DELINQUENCY_ID, FND_API.G_MISS_NUM, DELINQUENCY_ID, p_DELINQUENCY_ID),
229: COST_TYPE_CODE = decode( p_COST_TYPE_CODE, FND_API.G_MISS_CHAR, COST_TYPE_CODE, p_COST_TYPE_CODE),

Line 273: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_COSTS_PKG.UPDATE_ROW ******** ');

269: RAISE NO_DATA_FOUND;
270: End If;
271: -- IF PG_DEBUG < 10 THEN
272: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
273: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_COSTS_PKG.UPDATE_ROW ******** ');
274: END IF;
275: END Update_Row;
276:
277: PROCEDURE Delete_Row(

Line 281: DELETE FROM IEX_COSTS

277: PROCEDURE Delete_Row(
278: p_COST_ID NUMBER)
279: IS
280: BEGIN
281: DELETE FROM IEX_COSTS
282: WHERE COST_ID = p_COST_ID;
283: If (SQL%NOTFOUND) then
284: RAISE NO_DATA_FOUND;
285: End If;

Line 293: from IEX_COSTS

289: p_COST_ID in NUMBER,
290: p_OBJECT_VERSION_NUMBER in NUMBER)
291: IS
292: cursor c is select OBJECT_VERSION_NUMBER
293: from IEX_COSTS
294: where cost_id = p_cost_id
295: and OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER
296: for update of cost_id nowait;
297: recinfo c%rowtype;

Line 301: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_COSTS_PKG.LOCK_ROW ******** ');

297: recinfo c%rowtype;
298: Begin
299: -- IF PG_DEBUG < 10 THEN
300: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
301: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_COSTS_PKG.LOCK_ROW ******** ');
302: END IF;
303: open c;
304: fetch c into recinfo;
305: if (c%notfound) then

Line 321: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_COSTS_PKG.LOCK_ROW ******** ');

317: app_exception.raise_exception;
318: end if;
319: -- IF PG_DEBUG < 10 THEN
320: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
321: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_COSTS_PKG.LOCK_ROW ******** ');
322: END IF;
323: end LOCK_ROW;
324:
325:

Line 376: FROM IEX_COSTS

372:
373: IS
374: CURSOR C IS
375: SELECT *
376: FROM IEX_COSTS
377: WHERE COST_ID = p_COST_ID
378: FOR UPDATE of COST_ID NOWAIT;
379: Recinfo C%ROWTYPE;
380: BEGIN

Line 511: End IEX_COSTS_PKG;

507: End If;
508: END Lock_Row;
509: */
510:
511: End IEX_COSTS_PKG;