DBA Data[Home] [Help]

APPS.IEX_STRATEGY_WORK_ITEMS_PKG dependencies on IEX_STRATEGY_WORK_ITEMS

Line 1: PACKAGE BODY IEX_STRATEGY_WORK_ITEMS_PKG as

1: PACKAGE BODY IEX_STRATEGY_WORK_ITEMS_PKG as
2: /* $Header: iextswib.pls 120.4 2010/11/10 10:00:18 pnaveenk ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_STRATEGY_WORK_ITEMS_PKG';
4: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iextswib.pls';
5:

Line 3: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_STRATEGY_WORK_ITEMS_PKG';

1: PACKAGE BODY IEX_STRATEGY_WORK_ITEMS_PKG as
2: /* $Header: iextswib.pls 120.4 2010/11/10 10:00:18 pnaveenk ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_STRATEGY_WORK_ITEMS_PKG';
4: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iextswib.pls';
5:
6: --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
7: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

Line 50: cursor C is select ROWID from IEX_STRATEGY_WORK_ITEMS

46: )
47:
48:
49: IS
50: cursor C is select ROWID from IEX_STRATEGY_WORK_ITEMS
51: where WORK_ITEM_ID = X_WORK_ITEM_ID ;
52:
53: BEGIN
54: -- IF PG_DEBUG < 10 THEN

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

52:
53: BEGIN
54: -- IF PG_DEBUG < 10 THEN
55: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
56: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.INSERT_ROW ******** ');
57: END IF;
58:
59: INSERT INTO IEX_STRATEGY_WORK_ITEMS(
60: WORK_ITEM_ID

Line 59: INSERT INTO IEX_STRATEGY_WORK_ITEMS(

55: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
56: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.INSERT_ROW ******** ');
57: END IF;
58:
59: INSERT INTO IEX_STRATEGY_WORK_ITEMS(
60: WORK_ITEM_ID
61: ,STRATEGY_ID
62: ,RESOURCE_ID
63: ,STATUS_CODE

Line 147: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.INSERT_ROW ******** ');

143: close c;
144:
145: -- IF PG_DEBUG < 10 THEN
146: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
147: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.INSERT_ROW ******** ');
148: END IF;
149: End Insert_Row;
150:
151: PROCEDURE Update_Row(

Line 177: IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');

173: IS
174: BEGIN
175: -- IF PG_DEBUG < 10 THEN
176: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
177: IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');
178: END IF;
179: Update IEX_STRATEGY_WORK_ITEMS
180: SET
181: STRATEGY_ID = decode( x_STRATEGY_ID, FND_API.G_MISS_NUM, STRATEGY_ID, x_STRATEGY_ID)

Line 179: Update IEX_STRATEGY_WORK_ITEMS

175: -- IF PG_DEBUG < 10 THEN
176: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
177: IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');
178: END IF;
179: Update IEX_STRATEGY_WORK_ITEMS
180: SET
181: STRATEGY_ID = decode( x_STRATEGY_ID, FND_API.G_MISS_NUM, STRATEGY_ID, x_STRATEGY_ID)
182: ,RESOURCE_ID = decode( x_RESOURCE_ID, FND_API.G_MISS_NUM, RESOURCE_ID, x_RESOURCE_ID)
183: ,STATUS_CODE = decode( x_STATUS_CODE, FND_API.G_MISS_CHAR, STATUS_CODE, x_STATUS_CODE)

Line 207: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');

203: RAISE NO_DATA_FOUND;
204: End If;
205: -- IF PG_DEBUG < 10 THEN
206: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
207: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');
208: END IF;
209:
210: END Update_Row;
211:

Line 216: DELETE FROM IEX_STRATEGY_WORK_ITEMS

212: PROCEDURE Delete_Row(
213: x_WORK_ITEM_ID NUMBER)
214: IS
215: BEGIN
216: DELETE FROM IEX_STRATEGY_WORK_ITEMS
217: WHERE WORK_ITEM_ID = x_WORK_ITEM_ID;
218: If (SQL%NOTFOUND) then
219: RAISE NO_DATA_FOUND;
220: End If;

Line 251: FROM IEX_STRATEGY_WORK_ITEMS

247:
248: IS
249: CURSOR C IS
250: SELECT *
251: FROM IEX_STRATEGY_WORK_ITEMS
252: WHERE WORK_ITEM_ID = x_WORK_ITEM_ID
253: FOR UPDATE of WORK_ITEM_ID NOWAIT;
254: Recinfo C%ROWTYPE;
255: BEGIN

Line 352: from IEX_STRATEGY_WORK_ITEMS

348: x_WORK_ITEM_ID in NUMBER,
349: X_OBJECT_VERSION_NUMBER in NUMBER)
350: is
351: cursor c is select OBJECT_VERSION_NUMBER
352: from IEX_STRATEGY_WORK_ITEMS
353: where WORK_ITEM_ID = X_WORK_ITEM_ID
354: and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
355: for update of WORK_ITEM_ID nowait;
356: recinfo c%rowtype;

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

358:
359: begin
360: -- IF PG_DEBUG < 10 THEN
361: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
362: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.LOCK_ROW ******** ');
363: END IF;
364: open c;
365: fetch c into recinfo;
366: if (c%notfound) then

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

378: app_exception.raise_exception;
379: end if;
380: --IF PG_DEBUG < 10 THEN
381: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
382: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.LOCK_ROW ******** ');
383: END IF;
384: end LOCK_ROW;
385:
386: End IEX_STRATEGY_WORK_ITEMS_PKG;

Line 386: End IEX_STRATEGY_WORK_ITEMS_PKG;

382: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.LOCK_ROW ******** ');
383: END IF;
384: end LOCK_ROW;
385:
386: End IEX_STRATEGY_WORK_ITEMS_PKG;