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.0.12010000.2 2008/08/06 09:03:42 schekuri 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.0.12010000.2 2008/08/06 09:03:42 schekuri 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 37: cursor C is select ROWID from IEX_STRATEGY_WORK_ITEMS

33: )
34:
35:
36: IS
37: cursor C is select ROWID from IEX_STRATEGY_WORK_ITEMS
38: where WORK_ITEM_ID = X_WORK_ITEM_ID ;
39:
40: BEGIN
41: -- IF PG_DEBUG < 10 THEN

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

39:
40: BEGIN
41: -- IF PG_DEBUG < 10 THEN
42: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
43: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.INSERT_ROW ******** ');
44: END IF;
45:
46: INSERT INTO IEX_STRATEGY_WORK_ITEMS(
47: WORK_ITEM_ID

Line 46: INSERT INTO IEX_STRATEGY_WORK_ITEMS(

42: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
43: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.INSERT_ROW ******** ');
44: END IF;
45:
46: INSERT INTO IEX_STRATEGY_WORK_ITEMS(
47: WORK_ITEM_ID
48: ,STRATEGY_ID
49: ,RESOURCE_ID
50: ,STATUS_CODE

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

104: close c;
105:
106: -- IF PG_DEBUG < 10 THEN
107: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
108: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.INSERT_ROW ******** ');
109: END IF;
110: End Insert_Row;
111:
112: PROCEDURE Update_Row(

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

134: IS
135: BEGIN
136: -- IF PG_DEBUG < 10 THEN
137: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
138: IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');
139: END IF;
140: Update IEX_STRATEGY_WORK_ITEMS
141: SET
142: STRATEGY_ID = decode( x_STRATEGY_ID, FND_API.G_MISS_NUM, STRATEGY_ID, x_STRATEGY_ID)

Line 140: Update IEX_STRATEGY_WORK_ITEMS

136: -- IF PG_DEBUG < 10 THEN
137: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
138: IEX_DEBUG_PUB.LogMessage ('********* start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');
139: END IF;
140: Update IEX_STRATEGY_WORK_ITEMS
141: SET
142: STRATEGY_ID = decode( x_STRATEGY_ID, FND_API.G_MISS_NUM, STRATEGY_ID, x_STRATEGY_ID)
143: ,RESOURCE_ID = decode( x_RESOURCE_ID, FND_API.G_MISS_NUM, RESOURCE_ID, x_RESOURCE_ID)
144: ,STATUS_CODE = decode( x_STATUS_CODE, FND_API.G_MISS_CHAR, STATUS_CODE, x_STATUS_CODE)

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

164: RAISE NO_DATA_FOUND;
165: End If;
166: -- IF PG_DEBUG < 10 THEN
167: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
168: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.UPDATE_ROW ******** ');
169: END IF;
170:
171: END Update_Row;
172:

Line 177: DELETE FROM IEX_STRATEGY_WORK_ITEMS

173: PROCEDURE Delete_Row(
174: x_WORK_ITEM_ID NUMBER)
175: IS
176: BEGIN
177: DELETE FROM IEX_STRATEGY_WORK_ITEMS
178: WHERE WORK_ITEM_ID = x_WORK_ITEM_ID;
179: If (SQL%NOTFOUND) then
180: RAISE NO_DATA_FOUND;
181: End If;

Line 212: FROM IEX_STRATEGY_WORK_ITEMS

208:
209: IS
210: CURSOR C IS
211: SELECT *
212: FROM IEX_STRATEGY_WORK_ITEMS
213: WHERE WORK_ITEM_ID = x_WORK_ITEM_ID
214: FOR UPDATE of WORK_ITEM_ID NOWAIT;
215: Recinfo C%ROWTYPE;
216: BEGIN

Line 313: from IEX_STRATEGY_WORK_ITEMS

309: x_WORK_ITEM_ID in NUMBER,
310: X_OBJECT_VERSION_NUMBER in NUMBER)
311: is
312: cursor c is select OBJECT_VERSION_NUMBER
313: from IEX_STRATEGY_WORK_ITEMS
314: where WORK_ITEM_ID = X_WORK_ITEM_ID
315: and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
316: for update of WORK_ITEM_ID nowait;
317: recinfo c%rowtype;

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

319:
320: begin
321: -- IF PG_DEBUG < 10 THEN
322: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
323: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.LOCK_ROW ******** ');
324: END IF;
325: open c;
326: fetch c into recinfo;
327: if (c%notfound) then

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

339: app_exception.raise_exception;
340: end if;
341: --IF PG_DEBUG < 10 THEN
342: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
343: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.LOCK_ROW ******** ');
344: END IF;
345: end LOCK_ROW;
346:
347: End IEX_STRATEGY_WORK_ITEMS_PKG;

Line 347: End IEX_STRATEGY_WORK_ITEMS_PKG;

343: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_STRATEGY_WORK_ITEMS_PKG.LOCK_ROW ******** ');
344: END IF;
345: end LOCK_ROW;
346:
347: End IEX_STRATEGY_WORK_ITEMS_PKG;