DBA Data[Home] [Help]

APPS.IEX_STRATEGIES_PKG dependencies on IEX_STRATEGIES

Line 1: PACKAGE BODY IEX_STRATEGIES_PKG as

1: PACKAGE BODY IEX_STRATEGIES_PKG as
2: /* $Header: iextstrb.pls 120.0.12010000.3 2008/08/13 10:51:47 pnaveenk ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_STRATEGIES_PKG';
4: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iextstrb.pls';
5:

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

1: PACKAGE BODY IEX_STRATEGIES_PKG as
2: /* $Header: iextstrb.pls 120.0.12010000.3 2008/08/13 10:51:47 pnaveenk ship $ */
3: G_PKG_NAME CONSTANT VARCHAR2(30):= 'IEX_STRATEGIES_PKG';
4: G_FILE_NAME CONSTANT VARCHAR2(12) := 'iextstrb.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 40: cursor C is select ROWID from IEX_STRATEGIES

36: X_JTF_OBJECT_ID IN NUMBER,
37: X_CUSTOMER_SITE_USE_ID IN NUMBER,
38: X_ORG_ID IN NUMBER) -- Bug#6870773 Naveen
39: IS
40: cursor C is select ROWID from IEX_STRATEGIES
41: where STRATEGY_ID = X_STRATEGY_ID ;
42:
43: BEGIN
44: -- IF PG_DEBUG < 10 THEN

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

42:
43: BEGIN
44: -- IF PG_DEBUG < 10 THEN
45: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
46: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGIES_PKG.INSERT_ROW ******** ');
47: END IF;
48: INSERT INTO IEX_STRATEGIES(
49: STRATEGY_ID
50: ,STATUS_CODE

Line 48: INSERT INTO IEX_STRATEGIES(

44: -- IF PG_DEBUG < 10 THEN
45: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
46: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGIES_PKG.INSERT_ROW ******** ');
47: END IF;
48: INSERT INTO IEX_STRATEGIES(
49: STRATEGY_ID
50: ,STATUS_CODE
51: ,STRATEGY_TEMPLATE_ID
52: ,DELINQUENCY_ID

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

116: end if;
117: close c;
118: --IF PG_DEBUG < 10 THEN
119: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
120: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_STRATEGIES_PKG.INSERT_ROW ******** ');
121: END IF;
122:
123: End Insert_Row;
124:

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

152: IS
153: BEGIN
154: -- IF PG_DEBUG < 10 THEN
155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
156: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGIES_PKG.UPDATE_ROW ******** ');
157: END IF;
158: Update IEX_STRATEGIES
159: SET
160: STATUS_CODE = decode( x_STATUS_CODE, FND_API.G_MISS_CHAR, null,

Line 158: Update IEX_STRATEGIES

154: -- IF PG_DEBUG < 10 THEN
155: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
156: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGIES_PKG.UPDATE_ROW ******** ');
157: END IF;
158: Update IEX_STRATEGIES
159: SET
160: STATUS_CODE = decode( x_STATUS_CODE, FND_API.G_MISS_CHAR, null,
161: null, status_code, x_STATUS_CODE)
162: ,STRATEGY_TEMPLATE_ID = decode( x_STRATEGY_TEMPLATE_ID, FND_API.G_MISS_NUM,

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

212: RAISE NO_DATA_FOUND;
213: End If;
214: -- IF PG_DEBUG < 10 THEN
215: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
216: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_STRATEGIES_PKG.UPDATE_ROW ******** ');
217: END IF;
218: END Update_Row;
219:
220: PROCEDURE Delete_Row(

Line 228: DELETE FROM IEX_STRATEGIES

224: -- IF PG_DEBUG < 10 THEN
225: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
226: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGY_PKG.DELETE_ROW ******** ');
227: END IF;
228: DELETE FROM IEX_STRATEGIES
229: WHERE STRATEGY_ID = X_STRATEGY_ID;
230: If (SQL%NOTFOUND) then
231: RAISE NO_DATA_FOUND;
232: End If;

Line 245: from IEX_STRATEGIES

241: X_STRATEGY_ID in NUMBER,
242: X_OBJECT_VERSION_NUMBER in NUMBER
243: ) is
244: cursor c is select OBJECT_VERSION_NUMBER
245: from IEX_STRATEGIES
246: where STRATEGY_ID = X_STRATEGY_ID
247: and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
248: for update of STRATEGY_ID nowait;
249: recinfo c%rowtype;

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

251:
252: begin
253: -- IF PG_DEBUG < 10 THEN
254: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
255: IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_STRATEGIES_PKG.LOCK_ROW ******** ');
256: END IF;
257: open c;
258: fetch c into recinfo;
259: if (c%notfound) then

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

271: app_exception.raise_exception;
272: end if;
273: --IF PG_DEBUG < 10 THEN
274: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
275: IEX_DEBUG_PUB.LogMessage ('********* End of Procedure =>IEX_STRATEGIES_PKG.LOCK_ROW ******** ');
276: END IF;
277: end LOCK_ROW;
278:
279: /* PROCEDURE Lock_Row(

Line 307: FROM IEX_STRATEGIES

303:
304: IS
305: CURSOR C IS
306: SELECT *
307: FROM IEX_STRATEGIES
308: WHERE STRATEGY_ID = p_STRATEGY_ID
309: FOR UPDATE of STRATEGY_ID NOWAIT;
310: Recinfo C%ROWTYPE;
311: BEGIN

Line 390: End IEX_STRATEGIES_PKG;

386: APP_EXCEPTION.RAISE_EXCEPTION;
387: End If;
388: END Lock_Row;
389: */
390: End IEX_STRATEGIES_PKG;