[Home] [Help]
PACKAGE BODY: APPS.IEX_COSTS_PKG
Source
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
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;
16
17 PROCEDURE Insert_Row(
18 X_ROWID in out NOCOPY VARCHAR2,
19 p_COST_ID IN NUMBER,
20 p_CASE_ID IN NUMBER,
21 p_DELINQUENCY_ID IN NUMBER,
22 p_COST_TYPE_CODE IN VARCHAR2,
23 p_COST_ITEM_TYPE_CODE IN VARCHAR2,
24 p_COST_ITEM_TYPE_DESC IN VARCHAR2,
25 p_COST_ITEM_AMOUNT IN NUMBER,
26 p_COST_ITEM_CURRENCY_CODE IN VARCHAR2,
27 p_COST_ITEM_QTY IN NUMBER,
28 p_COST_ITEM_DATE IN DATE,
29 p_FUNCTIONAL_AMOUNT IN NUMBER,
30 p_EXCHANGE_TYPE IN VARCHAR2,
31 p_EXCHANGE_RATE IN NUMBER,
32 p_EXCHANGE_DATE IN DATE,
33 p_OBJECT_VERSION_NUMBER IN NUMBER,
34 P_COST_ITEM_APPROVED IN VARCHAR2,
35 p_active_flag IN VARCHAR2,
36 p_REQUEST_ID IN NUMBER,
37 p_PROGRAM_APPLICATION_ID IN NUMBER,
38 p_PROGRAM_ID IN NUMBER,
39 p_PROGRAM_UPDATE_DATE IN DATE,
40 p_ATTRIBUTE_CATEGORY IN VARCHAR2,
41 p_ATTRIBUTE1 IN VARCHAR2,
42 p_ATTRIBUTE2 IN VARCHAR2,
43 p_ATTRIBUTE3 IN VARCHAR2,
44 p_ATTRIBUTE4 IN VARCHAR2,
45 p_ATTRIBUTE5 IN VARCHAR2,
46 p_ATTRIBUTE6 IN VARCHAR2,
47 p_ATTRIBUTE7 IN VARCHAR2,
48 p_ATTRIBUTE8 IN VARCHAR2,
49 p_ATTRIBUTE9 IN VARCHAR2,
50 p_ATTRIBUTE10 IN VARCHAR2,
51 p_ATTRIBUTE11 IN VARCHAR2,
52 p_ATTRIBUTE12 IN VARCHAR2,
53 p_ATTRIBUTE13 IN VARCHAR2,
54 p_ATTRIBUTE14 IN VARCHAR2,
55 p_ATTRIBUTE15 IN VARCHAR2,
56 p_CREATED_BY IN VARCHAR2,
57 p_CREATION_DATE IN DATE,
58 p_LAST_UPDATED_BY IN NUMBER,
59 p_LAST_UPDATE_DATE IN DATE,
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
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,
78 COST_ITEM_TYPE_CODE,
79 COST_ITEM_TYPE_DESC,
80 COST_ITEM_AMOUNT,
81 COST_ITEM_CURRENCY_CODE,
82 COST_ITEM_QTY,
83 COST_ITEM_DATE,
84 FUNCTIONAL_AMOUNT,
85 EXCHANGE_TYPE,
86 EXCHANGE_RATE,
87 EXCHANGE_DATE,
88 COST_ITEM_APPROVED,
89 ACTIVE_FLAG,
90 OBJECT_VERSION_NUMBER,
91 CREATED_BY,
92 CREATION_DATE,
93 LAST_UPDATED_BY,
94 LAST_UPDATE_DATE,
95 REQUEST_ID,
96 PROGRAM_APPLICATION_ID,
97 PROGRAM_ID,
98 PROGRAM_UPDATE_DATE,
99 ATTRIBUTE_CATEGORY,
100 ATTRIBUTE1,
101 ATTRIBUTE2,
102 ATTRIBUTE3,
103 ATTRIBUTE4,
104 ATTRIBUTE5,
105 ATTRIBUTE6,
106 ATTRIBUTE7,
107 ATTRIBUTE8,
108 ATTRIBUTE9,
109 ATTRIBUTE10,
110 ATTRIBUTE11,
111 ATTRIBUTE12,
112 ATTRIBUTE13,
113 ATTRIBUTE14,
114 ATTRIBUTE15,
115 LAST_UPDATE_LOGIN
116 ) VALUES (
117 p_COST_ID,
118 decode( p_CASE_ID, FND_API.G_MISS_NUM, NULL, p_CASE_ID),
119 decode( p_DELINQUENCY_ID, FND_API.G_MISS_NUM, NULL, p_DELINQUENCY_ID),
120 p_COST_TYPE_CODE,
121 p_COST_ITEM_TYPE_CODE,
122 decode( p_COST_ITEM_TYPE_DESC, FND_API.G_MISS_CHAR, NULL, p_COST_ITEM_TYPE_DESC),
123 decode( p_COST_ITEM_AMOUNT, FND_API.G_MISS_NUM, NULL, p_COST_ITEM_AMOUNT),
124 decode( p_COST_ITEM_CURRENCY_CODE, FND_API.G_MISS_CHAR, NULL, p_COST_ITEM_CURRENCY_CODE),
125 decode( p_COST_ITEM_QTY, FND_API.G_MISS_NUM, NULL, p_COST_ITEM_QTY),
126 decode( p_COST_ITEM_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_COST_ITEM_DATE),
127 decode( p_FUNCTIONAL_AMOUNT, FND_API.G_MISS_NUM, NULL, p_FUNCTIONAL_AMOUNT),
128 decode( p_EXCHANGE_TYPE, FND_API.G_MISS_CHAR, NULL, p_EXCHANGE_TYPE),
129 decode( p_EXCHANGE_RATE, FND_API.G_MISS_NUM, NULL, p_EXCHANGE_RATE),
130 decode( p_EXCHANGE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_EXCHANGE_DATE),
131 P_COST_ITEM_APPROVED,
132 p_ACTIVE_FLAG,
133 p_OBJECT_VERSION_NUMBER,
134 decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
135 decode( p_CREATION_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_CREATION_DATE),
136 decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
137 decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_LAST_UPDATE_DATE),
138 decode( p_REQUEST_ID, FND_API.G_MISS_NUM, NULL, p_REQUEST_ID),
139 decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_APPLICATION_ID),
140 decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, p_PROGRAM_ID),
141 decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, TO_DATE(NULL), p_PROGRAM_UPDATE_DATE),
142 decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE_CATEGORY),
143 decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE1),
144 decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE2),
145 decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE3),
146 decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE4),
147 decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE5),
148 decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE6),
149 decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE7),
150 decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE8),
151 decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE9),
152 decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE10),
153 decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE11),
154 decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE12),
155 decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE13),
156 decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE14),
157 decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, p_ATTRIBUTE15),
158 decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN));
159 open c;
160 fetch c into X_ROWID;
161 -- IF PG_DEBUG < 10 THEN
162 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
163 IEX_DEBUG_PUB.LogMessage ('Insert_Row: ' || 'Value of ROWID = '||X_ROWID);
164 END IF;
165 if (c%notfound) then
166 close c;
167 raise no_data_found;
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(
177 p_COST_ID IN NUMBER,
178 p_CASE_ID IN NUMBER,
179 p_DELINQUENCY_ID IN NUMBER,
180 p_COST_TYPE_CODE IN VARCHAR2,
181 p_COST_ITEM_TYPE_CODE IN VARCHAR2,
182 p_COST_ITEM_TYPE_DESC IN VARCHAR2,
183 p_COST_ITEM_AMOUNT IN NUMBER,
184 p_COST_ITEM_CURRENCY_CODE IN VARCHAR2,
185 p_COST_ITEM_QTY IN NUMBER,
186 p_COST_ITEM_DATE IN DATE,
187 p_FUNCTIONAL_AMOUNT IN NUMBER,
188 p_EXCHANGE_TYPE IN VARCHAR2,
189 p_EXCHANGE_RATE IN NUMBER,
190 p_EXCHANGE_DATE IN DATE,
191 p_OBJECT_VERSION_NUMBER IN NUMBER,
192 P_COST_ITEM_APPROVED IN VARCHAR2,
193 p_active_flag IN VARCHAR2,
194 p_REQUEST_ID IN NUMBER,
195 p_PROGRAM_APPLICATION_ID IN NUMBER,
196 p_PROGRAM_ID IN NUMBER,
197 p_PROGRAM_UPDATE_DATE IN DATE,
198 p_ATTRIBUTE_CATEGORY IN VARCHAR2,
199 p_ATTRIBUTE1 IN VARCHAR2,
200 p_ATTRIBUTE2 IN VARCHAR2,
201 p_ATTRIBUTE3 IN VARCHAR2,
202 p_ATTRIBUTE4 IN VARCHAR2,
203 p_ATTRIBUTE5 IN VARCHAR2,
204 p_ATTRIBUTE6 IN VARCHAR2,
205 p_ATTRIBUTE7 IN VARCHAR2,
206 p_ATTRIBUTE8 IN VARCHAR2,
207 p_ATTRIBUTE9 IN VARCHAR2,
208 p_ATTRIBUTE10 IN VARCHAR2,
209 p_ATTRIBUTE11 IN VARCHAR2,
210 p_ATTRIBUTE12 IN VARCHAR2,
211 p_ATTRIBUTE13 IN VARCHAR2,
212 p_ATTRIBUTE14 IN VARCHAR2,
213 p_ATTRIBUTE15 IN VARCHAR2,
214 p_LAST_UPDATED_BY IN NUMBER,
215 p_LAST_UPDATE_DATE IN DATE,
216 p_LAST_UPDATE_LOGIN IN NUMBER
217 )
218
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),
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),
230 COST_ITEM_TYPE_CODE = decode( p_COST_ITEM_TYPE_CODE, FND_API.G_MISS_CHAR, COST_ITEM_TYPE_CODE, p_COST_ITEM_TYPE_CODE),
231 COST_ITEM_TYPE_DESC = decode( p_COST_ITEM_TYPE_DESC, FND_API.G_MISS_CHAR, COST_ITEM_TYPE_DESC, p_COST_ITEM_TYPE_DESC),
232 COST_ITEM_AMOUNT = decode( p_COST_ITEM_AMOUNT, FND_API.G_MISS_NUM, COST_ITEM_AMOUNT, p_COST_ITEM_AMOUNT),
233 COST_ITEM_CURRENCY_CODE = decode( p_COST_ITEM_CURRENCY_CODE, FND_API.G_MISS_CHAR, COST_ITEM_CURRENCY_CODE, p_COST_ITEM_CURRENCY_CODE),
234 COST_ITEM_QTY = decode( p_COST_ITEM_QTY, FND_API.G_MISS_NUM, COST_ITEM_QTY, p_COST_ITEM_QTY),
235 COST_ITEM_DATE = decode( p_COST_ITEM_DATE, FND_API.G_MISS_DATE, COST_ITEM_DATE, p_COST_ITEM_DATE),
236 FUNCTIONAL_AMOUNT = decode( p_FUNCTIONAL_AMOUNT, FND_API.G_MISS_NUM, FUNCTIONAL_AMOUNT, p_FUNCTIONAL_AMOUNT),
237 EXCHANGE_TYPE = decode( p_EXCHANGE_TYPE, FND_API.G_MISS_CHAR, EXCHANGE_TYPE, p_EXCHANGE_TYPE),
238 EXCHANGE_RATE = decode( p_EXCHANGE_RATE, FND_API.G_MISS_NUM, EXCHANGE_RATE, p_EXCHANGE_RATE),
239 EXCHANGE_DATE = decode( p_EXCHANGE_DATE, FND_API.G_MISS_DATE, EXCHANGE_DATE, p_EXCHANGE_DATE),
240 COST_ITEM_APPROVED = decode( p_COST_ITEM_APPROVED, FND_API.G_MISS_CHAR, COST_ITEM_APPROVED, p_COST_ITEM_APPROVED),
241 ACTIVE_FLAG = decode( p_ACTIVE_FLAG, FND_API.G_MISS_CHAR, ACTIVE_FLAG, p_ACTIVE_FLAG),
242 OBJECT_VERSION_NUMBER = decode( p_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, OBJECT_VERSION_NUMBER, p_OBJECT_VERSION_NUMBER),
243 LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
244 LAST_UPDATE_DATE = decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
245 REQUEST_ID = decode( p_REQUEST_ID, FND_API.G_MISS_NUM, REQUEST_ID, p_REQUEST_ID),
246 PROGRAM_APPLICATION_ID = decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, PROGRAM_APPLICATION_ID, p_PROGRAM_APPLICATION_ID),
247 PROGRAM_ID = decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, PROGRAM_ID, p_PROGRAM_ID),
248 PROGRAM_UPDATE_DATE = decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, PROGRAM_UPDATE_DATE, p_PROGRAM_UPDATE_DATE),
249 ATTRIBUTE_CATEGORY = decode( p_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, ATTRIBUTE_CATEGORY, p_ATTRIBUTE_CATEGORY),
250 ATTRIBUTE1 = decode( p_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, p_ATTRIBUTE1),
251 ATTRIBUTE2 = decode( p_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, p_ATTRIBUTE2),
252 ATTRIBUTE3 = decode( p_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, p_ATTRIBUTE3),
253 ATTRIBUTE4 = decode( p_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, p_ATTRIBUTE4),
254 ATTRIBUTE5 = decode( p_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, p_ATTRIBUTE5),
255 ATTRIBUTE6 = decode( p_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, p_ATTRIBUTE6),
256 ATTRIBUTE7 = decode( p_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, p_ATTRIBUTE7),
257 ATTRIBUTE8 = decode( p_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, p_ATTRIBUTE8),
258 ATTRIBUTE9 = decode( p_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, p_ATTRIBUTE9),
259 ATTRIBUTE10 = decode( p_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, p_ATTRIBUTE10),
260 ATTRIBUTE11 = decode( p_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, p_ATTRIBUTE11),
261 ATTRIBUTE12 = decode( p_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, p_ATTRIBUTE12),
262 ATTRIBUTE13 = decode( p_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, p_ATTRIBUTE13),
263 ATTRIBUTE14 = decode( p_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, p_ATTRIBUTE14),
264 ATTRIBUTE15 = decode( p_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, p_ATTRIBUTE15),
265 LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN)
266 where COST_ID = p_COST_ID;
267
268 If (SQL%NOTFOUND) then
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(
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;
286 END Delete_Row;
287
288 procedure LOCK_ROW (
289 p_COST_ID in NUMBER,
290 p_OBJECT_VERSION_NUMBER in NUMBER)
291 IS
292 cursor c is select OBJECT_VERSION_NUMBER
296 for update of cost_id nowait;
293 from IEX_COSTS
294 where cost_id = p_cost_id
295 and OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER
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
306 close c;
307 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
308 app_exception.raise_exception;
309 end if;
310
311 close c;
312
313 if recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER then
314 null;
315 else
316 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
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
326
327
328 /*
329 PROCEDURE Lock_Row(
330 p_CASE_ID IN NUMBER,
331 p_DELINQUENCY_ID IN NUMBER,
332 p_COST_TYPE_CODE IN VARCHAR2,
333 p_COST_ITEM_TYPE_CODE IN VARCHAR2,
334 p_COST_ITEM_TYPE_DESC IN VARCHAR2,
335 p_COST_ITEM_AMOUNT IN NUMBER,
336 p_COST_ITEM_CURRENCY_CODE IN VARCHAR2,
337 p_COST_ITEM_QTY IN NUMBER,
338 p_COST_ITEM_DATE IN DATE,
339 p_FUNCTIONAL_AMOUNT IN NUMBER,
340 p_EXCHANGE_TYPE IN VARCHAR2,
341 p_EXCHANGE_RATE IN NUMBER,
342 p_EXCHANGE_DATE IN DATE,
343 p_OBJECT_VERSION_NUMBER IN NUMBER,
344 p_COST_ITEM_APPROVED IN VARCHAR2,
345 p_active_flag IN VARCHAR2,
346 p_REQUEST_ID IN NUMBER,
347 p_PROGRAM_APPLICATION_ID IN NUMBER,
348 p_PROGRAM_ID IN NUMBER,
349 p_PROGRAM_UPDATE_DATE IN DATE,
350 p_ATTRIBUTE_CATEGORY IN VARCHAR2,
351 p_ATTRIBUTE1 IN VARCHAR2,
352 p_ATTRIBUTE2 IN VARCHAR2,
353 p_ATTRIBUTE3 IN VARCHAR2,
354 p_ATTRIBUTE4 IN VARCHAR2,
355 p_ATTRIBUTE5 IN VARCHAR2,
356 p_ATTRIBUTE6 IN VARCHAR2,
357 p_ATTRIBUTE7 IN VARCHAR2,
358 p_ATTRIBUTE8 IN VARCHAR2,
359 p_ATTRIBUTE9 IN VARCHAR2,
360 p_ATTRIBUTE10 IN VARCHAR2,
361 p_ATTRIBUTE11 IN VARCHAR2,
362 p_ATTRIBUTE12 IN VARCHAR2,
363 p_ATTRIBUTE13 IN VARCHAR2,
364 p_ATTRIBUTE14 IN VARCHAR2,
365 p_ATTRIBUTE15 IN VARCHAR2,
366 p_CREATED_BY IN VARCHAR2,
367 p_CREATION_DATE IN DATE,
368 p_LAST_UPDATED_BY IN NUMBER,
369 p_LAST_UPDATE_DATE IN DATE,
370 p_LAST_UPDATE_LOGIN IN NUMBER
371 )
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
381 OPEN C;
382 FETCH C INTO Recinfo;
383 If (C%NOTFOUND) then
384 CLOSE C;
385 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
386 APP_EXCEPTION.RAISE_EXCEPTION;
387 End If;
388 CLOSE C;
389 if (
390 ( Recinfo.COST_ID = p_COST_ID)
391 AND ( ( Recinfo.CASE_ID = p_CASE_ID)
392 OR ( ( Recinfo.CASE_ID IS NULL )
393 AND ( p_CASE_ID IS NULL )))
394 AND ( ( Recinfo.DELINQUENCY_ID = p_DELINQUENCY_ID)
395 OR ( ( Recinfo.DELINQUENCY_ID IS NULL )
396 AND ( p_DELINQUENCY_ID IS NULL )))
397 AND ( ( Recinfo.COST_TYPE_CODE = p_COST_TYPE_CODE)
398 OR ( ( Recinfo.COST_TYPE_CODE IS NULL )
399 AND ( p_COST_TYPE_CODE IS NULL )))
400 AND ( ( Recinfo.COST_ITEM_TYPE_CODE = p_COST_ITEM_TYPE_CODE)
401 OR ( ( Recinfo.COST_ITEM_TYPE_CODE IS NULL )
402 AND ( p_COST_ITEM_TYPE_CODE IS NULL )))
403 AND ( ( Recinfo.COST_ITEM_TYPE_DESC = p_COST_ITEM_TYPE_DESC)
404 OR ( ( Recinfo.COST_ITEM_TYPE_DESC IS NULL )
405 AND ( p_COST_ITEM_TYPE_DESC IS NULL )))
406 AND ( ( Recinfo.COST_ITEM_AMOUNT = p_COST_ITEM_AMOUNT)
407 OR ( ( Recinfo.COST_ITEM_AMOUNT IS NULL )
408 AND ( p_COST_ITEM_AMOUNT IS NULL )))
409 AND ( ( Recinfo.COST_ITEM_CURRENCY_CODE = p_COST_ITEM_CURRENCY_CODE)
410 OR ( ( Recinfo.COST_ITEM_CURRENCY_CODE IS NULL )
411 AND ( p_COST_ITEM_CURRENCY_CODE IS NULL )))
412 AND ( ( Recinfo.COST_ITEM_QTY = p_COST_ITEM_QTY)
413 OR ( ( Recinfo.COST_ITEM_QTY IS NULL )
414 AND ( p_COST_ITEM_QTY IS NULL )))
415 AND ( ( Recinfo.COST_ITEM_DATE = p_COST_ITEM_DATE)
416 OR ( ( Recinfo.COST_ITEM_DATE IS NULL )
417 AND ( p_COST_ITEM_DATE IS NULL )))
418 AND ( ( Recinfo.COST_ITEM_APPROVED = p_COST_ITEM_APPROVED)
419 OR ( ( Recinfo.COST_ITEM_APPROVED IS NULL )
423 AND ( p_ACTIVE_FLAG IS NULL )))
420 AND ( p_COST_ITEM_APPROVED IS NULL )))
421 AND ( ( Recinfo.ACTIVE_FLAG = p_ACTIVE_FLAG)
422 OR ( ( Recinfo.ACTIVE_FLAG IS NULL )
424 AND ( ( Recinfo.OBJECT_VERSION_NUMBER = p_OBJECT_VERSION_NUMBER)
425 OR ( ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
426 AND ( p_OBJECT_VERSION_NUMBER IS NULL )))
427 AND ( ( Recinfo.CREATED_BY = p_CREATED_BY)
428 OR ( ( Recinfo.CREATED_BY IS NULL )
429 AND ( p_CREATED_BY IS NULL )))
430 AND ( ( Recinfo.CREATION_DATE = p_CREATION_DATE)
431 OR ( ( Recinfo.CREATION_DATE IS NULL )
432 AND ( p_CREATION_DATE IS NULL )))
433 AND ( ( Recinfo.LAST_UPDATED_BY = p_LAST_UPDATED_BY)
434 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
435 AND ( p_LAST_UPDATED_BY IS NULL )))
436 AND ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
437 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
438 AND ( p_LAST_UPDATE_DATE IS NULL )))
439 AND ( ( Recinfo.REQUEST_ID = p_REQUEST_ID)
440 OR ( ( Recinfo.REQUEST_ID IS NULL )
441 AND ( p_REQUEST_ID IS NULL )))
442 AND ( ( Recinfo.PROGRAM_APPLICATION_ID = p_PROGRAM_APPLICATION_ID)
443 OR ( ( Recinfo.PROGRAM_APPLICATION_ID IS NULL )
444 AND ( p_PROGRAM_APPLICATION_ID IS NULL )))
445 AND ( ( Recinfo.PROGRAM_ID = p_PROGRAM_ID)
446 OR ( ( Recinfo.PROGRAM_ID IS NULL )
447 AND ( p_PROGRAM_ID IS NULL )))
448 AND ( ( Recinfo.PROGRAM_UPDATE_DATE = p_PROGRAM_UPDATE_DATE)
449 OR ( ( Recinfo.PROGRAM_UPDATE_DATE IS NULL )
450 AND ( p_PROGRAM_UPDATE_DATE IS NULL )))
451 AND ( ( Recinfo.ATTRIBUTE_CATEGORY = p_ATTRIBUTE_CATEGORY)
452 OR ( ( Recinfo.ATTRIBUTE_CATEGORY IS NULL )
453 AND ( p_ATTRIBUTE_CATEGORY IS NULL )))
454 AND ( ( Recinfo.ATTRIBUTE1 = p_ATTRIBUTE1)
455 OR ( ( Recinfo.ATTRIBUTE1 IS NULL )
456 AND ( p_ATTRIBUTE1 IS NULL )))
457 AND ( ( Recinfo.ATTRIBUTE2 = p_ATTRIBUTE2)
458 OR ( ( Recinfo.ATTRIBUTE2 IS NULL )
459 AND ( p_ATTRIBUTE2 IS NULL )))
460 AND ( ( Recinfo.ATTRIBUTE3 = p_ATTRIBUTE3)
461 OR ( ( Recinfo.ATTRIBUTE3 IS NULL )
462 AND ( p_ATTRIBUTE3 IS NULL )))
463 AND ( ( Recinfo.ATTRIBUTE4 = p_ATTRIBUTE4)
464 OR ( ( Recinfo.ATTRIBUTE4 IS NULL )
465 AND ( p_ATTRIBUTE4 IS NULL )))
466 AND ( ( Recinfo.ATTRIBUTE5 = p_ATTRIBUTE5)
467 OR ( ( Recinfo.ATTRIBUTE5 IS NULL )
468 AND ( p_ATTRIBUTE5 IS NULL )))
469 AND ( ( Recinfo.ATTRIBUTE6 = p_ATTRIBUTE6)
470 OR ( ( Recinfo.ATTRIBUTE6 IS NULL )
471 AND ( p_ATTRIBUTE6 IS NULL )))
472 AND ( ( Recinfo.ATTRIBUTE7 = p_ATTRIBUTE7)
473 OR ( ( Recinfo.ATTRIBUTE7 IS NULL )
474 AND ( p_ATTRIBUTE7 IS NULL )))
475 AND ( ( Recinfo.ATTRIBUTE8 = p_ATTRIBUTE8)
476 OR ( ( Recinfo.ATTRIBUTE8 IS NULL )
477 AND ( p_ATTRIBUTE8 IS NULL )))
478 AND ( ( Recinfo.ATTRIBUTE9 = p_ATTRIBUTE9)
479 OR ( ( Recinfo.ATTRIBUTE9 IS NULL )
480 AND ( p_ATTRIBUTE9 IS NULL )))
481 AND ( ( Recinfo.ATTRIBUTE10 = p_ATTRIBUTE10)
482 OR ( ( Recinfo.ATTRIBUTE10 IS NULL )
483 AND ( p_ATTRIBUTE10 IS NULL )))
484 AND ( ( Recinfo.ATTRIBUTE11 = p_ATTRIBUTE11)
485 OR ( ( Recinfo.ATTRIBUTE11 IS NULL )
486 AND ( p_ATTRIBUTE11 IS NULL )))
487 AND ( ( Recinfo.ATTRIBUTE12 = p_ATTRIBUTE12)
488 OR ( ( Recinfo.ATTRIBUTE12 IS NULL )
489 AND ( p_ATTRIBUTE12 IS NULL )))
490 AND ( ( Recinfo.ATTRIBUTE13 = p_ATTRIBUTE13)
491 OR ( ( Recinfo.ATTRIBUTE13 IS NULL )
492 AND ( p_ATTRIBUTE13 IS NULL )))
493 AND ( ( Recinfo.ATTRIBUTE14 = p_ATTRIBUTE14)
494 OR ( ( Recinfo.ATTRIBUTE14 IS NULL )
495 AND ( p_ATTRIBUTE14 IS NULL )))
496 AND ( ( Recinfo.ATTRIBUTE15 = p_ATTRIBUTE15)
497 OR ( ( Recinfo.ATTRIBUTE15 IS NULL )
498 AND ( p_ATTRIBUTE15 IS NULL )))
499 AND ( ( Recinfo.LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN)
500 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
501 AND ( p_LAST_UPDATE_LOGIN IS NULL )))
502 ) then
503 return;
504 else
505 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
506 APP_EXCEPTION.RAISE_EXCEPTION;
507 End If;
508 END Lock_Row;
509 */
510
511 End IEX_COSTS_PKG;