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:
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;
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
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
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
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:
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,
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,
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(
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;
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;
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
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(
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
386: APP_EXCEPTION.RAISE_EXCEPTION;
387: End If;
388: END Lock_Row;
389: */
390: End IEX_STRATEGIES_PKG;