[Home] [Help]
PACKAGE BODY: APPS.PN_VAR_BKDT_DEFAULTS_PKG
Source
1 PACKAGE BODY PN_VAR_BKDT_DEFAULTS_PKG AS
2 /* $Header: PNVRBDDB.pls 120.0 2007/10/03 14:27:41 rthumma noship $ */
3
4 -------------------------------------------------------------------------------
5 -- PROCDURE : INSERT_ROW
6 -- INVOKED FROM : insert_row procedure
7 -- PURPOSE : inserts the row
8 -- HISTORY :
9
10 -------------------------------------------------------------------------------
11 procedure INSERT_ROW (
12 X_ROWID in out NOCOPY VARCHAR2,
13 X_BKDT_DEFAULT_ID in out NOCOPY NUMBER,
14 X_BKDT_DETAIL_NUM in out NOCOPY NUMBER,
15 X_BKHD_DEFAULT_ID in NUMBER,
16 X_BKDT_START_DATE in DATE,
17 X_BKDT_END_DATE in DATE,
18 X_PERIOD_BKPT_VOL_START in NUMBER,
19 X_PERIOD_BKPT_VOL_END in NUMBER,
20 X_GROUP_BKPT_VOL_START in NUMBER,
21 X_GROUP_BKPT_VOL_END in NUMBER,
22 X_BKPT_RATE in NUMBER,
23 X_PROCESSED_FLAG in NUMBER,
24 X_VAR_RENT_ID in NUMBER,
25 X_CREATION_DATE in DATE,
26 X_CREATED_BY in NUMBER,
27 X_LAST_UPDATE_DATE in DATE,
28 X_LAST_UPDATED_BY in NUMBER,
29 X_LAST_UPDATE_LOGIN in NUMBER,
30 X_ORG_ID in NUMBER,
31 X_ANNUAL_BASIS_AMOUNT in NUMBER DEFAULT NULL,
32 X_ATTRIBUTE_CATEGORY in VARCHAR2,
33 X_ATTRIBUTE1 in VARCHAR2,
34 X_ATTRIBUTE2 in VARCHAR2,
35 X_ATTRIBUTE3 in VARCHAR2,
36 X_ATTRIBUTE4 in VARCHAR2,
37 X_ATTRIBUTE5 in VARCHAR2,
38 X_ATTRIBUTE6 in VARCHAR2,
39 X_ATTRIBUTE7 in VARCHAR2,
40 X_ATTRIBUTE8 in VARCHAR2,
41 X_ATTRIBUTE9 in VARCHAR2,
42 X_ATTRIBUTE10 in VARCHAR2,
43 X_ATTRIBUTE11 in VARCHAR2,
44 X_ATTRIBUTE12 in VARCHAR2,
45 X_ATTRIBUTE13 in VARCHAR2,
46 X_ATTRIBUTE14 in VARCHAR2,
47 X_ATTRIBUTE15 in VARCHAR2
48 ) is
49
50 CURSOR C IS
51 SELECT ROWID
52 FROM PN_VAR_BKDT_DEFAULTS_ALL
53 WHERE BKDT_DEFAULT_ID = X_BKDT_DEFAULT_ID;
54
55 BEGIN
56
57 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.INSERT_ROW (+)');
58
59 -------------------------------------------------------
60 -- We need to generate the line number
61 -------------------------------------------------------
62 SELECT nvl(max(bkdt.BKDT_DETAIL_NUM),0)
63 INTO X_BKDT_DETAIL_NUM
64 FROM PN_VAR_BKDT_DEFAULTS_ALL bkdt
65 WHERE bkdt.BKHD_DEFAULT_ID = X_BKHD_DEFAULT_ID;
66
67 X_BKDT_DETAIL_NUM := X_BKDT_DETAIL_NUM + 1;
68
69 -------------------------------------------------------
70 -- Select the nextval for bkpt detail default id
71 -------------------------------------------------------
72 IF ( X_BKDT_DEFAULT_ID IS NULL) THEN
73 SELECT PN_VAR_BKDT_DEFAULTS_S.nextval
74 INTO X_BKDT_DEFAULT_ID
75 FROM dual;
76 END IF;
77
78 INSERT INTO PN_VAR_BKDT_DEFAULTS_ALL
79 (
80 BKDT_DETAIL_NUM,
81 BKHD_DEFAULT_ID,
82 LAST_UPDATE_DATE,
83 LAST_UPDATED_BY,
84 CREATION_DATE,
85 CREATED_BY,
86 LAST_UPDATE_LOGIN,
87 BKDT_START_DATE,
88 BKDT_END_DATE,
89 PERIOD_BKPT_VOL_START,
90 PERIOD_BKPT_VOL_END,
91 GROUP_BKPT_VOL_START,
92 GROUP_BKPT_VOL_END,
93 BKPT_RATE,
94 BKDT_DEFAULT_ID,
95 PROCESSED_FLAG,
96 VAR_RENT_ID,
97 ORG_ID,
98 ANNUAL_BASIS_AMOUNT
99 )
100 values
101 (
102 X_BKDT_DETAIL_NUM,
103 X_BKHD_DEFAULT_ID,
104 X_LAST_UPDATE_DATE,
105 X_LAST_UPDATED_BY,
106 X_CREATION_DATE,
107 X_CREATED_BY,
108 X_LAST_UPDATE_LOGIN,
109 X_BKDT_START_DATE,
110 X_BKDT_END_DATE,
111 X_PERIOD_BKPT_VOL_START,
112 X_PERIOD_BKPT_VOL_END,
113 X_GROUP_BKPT_VOL_START,
114 X_GROUP_BKPT_VOL_END,
115 X_BKPT_RATE,
116 X_BKDT_DEFAULT_ID,
117 X_PROCESSED_FLAG,
118 X_VAR_RENT_ID,
119 X_ORG_ID,
120 X_ANNUAL_BASIS_AMOUNT
121 );
122
123 OPEN c;
124 FETCH c INTO X_ROWID;
125 IF (c%NOTFOUND) THEN
126 CLOSE c;
127 RAISE NO_DATA_FOUND;
128 END IF;
129 CLOSE c;
130
131 UPDATE pn_var_bkhd_defaults_all
132 SET bkpt_update_flag = 'Y'
133 WHERE bkhd_default_id = x_bkhd_default_id;
134
135 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.INSERT_ROW (-)');
136
137 EXCEPTION
138
139 WHEN OTHERS THEN
140 pnp_debug_pkg.debug(sqlerrm);
141 RAISE;
142 END INSERT_ROW;
143
144 -------------------------------------------------------------------------------
145 -- PROCDURE : LOCK_ROW
146 -- INVOKED FROM : LOCK_ROW procedure
147 -- PURPOSE : locks the row
148 -- HISTORY :
149
150 -------------------------------------------------------------------------------
151 procedure LOCK_ROW (
152 X_BKDT_DEFAULT_ID in NUMBER,
153 X_BKDT_DETAIL_NUM in NUMBER,
154 X_BKHD_DEFAULT_ID in NUMBER,
155 X_BKDT_START_DATE in DATE,
156 X_BKDT_END_DATE in DATE,
157 X_PERIOD_BKPT_VOL_START in NUMBER,
158 X_PERIOD_BKPT_VOL_END in NUMBER,
159 X_GROUP_BKPT_VOL_START in NUMBER,
160 X_GROUP_BKPT_VOL_END in NUMBER,
161 X_BKPT_RATE in NUMBER,
162 X_VAR_RENT_ID in NUMBER,
163 X_ANNUAL_BASIS_AMOUNT in NUMBER DEFAULT NULL,
164 X_ATTRIBUTE_CATEGORY in VARCHAR2,
165 X_ATTRIBUTE1 in VARCHAR2,
166 X_ATTRIBUTE2 in VARCHAR2,
167 X_ATTRIBUTE3 in VARCHAR2,
168 X_ATTRIBUTE4 in VARCHAR2,
169 X_ATTRIBUTE5 in VARCHAR2,
170 X_ATTRIBUTE6 in VARCHAR2,
171 X_ATTRIBUTE7 in VARCHAR2,
172 X_ATTRIBUTE8 in VARCHAR2,
173 X_ATTRIBUTE9 in VARCHAR2,
174 X_ATTRIBUTE10 in VARCHAR2,
175 X_ATTRIBUTE11 in VARCHAR2,
176 X_ATTRIBUTE12 in VARCHAR2,
177 X_ATTRIBUTE13 in VARCHAR2,
178 X_ATTRIBUTE14 in VARCHAR2,
179 X_ATTRIBUTE15 in VARCHAR2
180 ) is
181
182 cursor c1 is select
183 *
184 from PN_VAR_BKDT_DEFAULTS_ALL
185 where BKDT_DEFAULT_ID = X_BKDT_DEFAULT_ID
186 for update of BKDT_DEFAULT_ID nowait;
187 begin
188
189 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.LOCK_ROW (+)');
190
191 for tlinfo in c1 loop
192 /*
193 if ( (tlinfo.BKDT_DEFAULT_ID = X_BKDT_DEFAULT_ID)
194 AND (tlinfo.BKDT_DETAIL_NUM = X_BKDT_DETAIL_NUM)
195 AND (tlinfo.BKHD_DEFAULT_ID = X_BKHD_DEFAULT_ID)
196 AND ((tlinfo.BKDT_START_DATE = X_BKDT_START_DATE)
197 OR ((tlinfo.BKDT_START_DATE is null) AND (X_BKDT_START_DATE is null)))
198 AND ((tlinfo.BKDT_END_DATE = X_BKDT_END_DATE)
199 OR ((tlinfo.BKDT_END_DATE is null) AND (X_BKDT_END_DATE is null)))
200 AND ((tlinfo.PERIOD_BKPT_VOL_START = X_PERIOD_BKPT_VOL_START)
201 OR ((tlinfo.PERIOD_BKPT_VOL_START is null) AND (X_PERIOD_BKPT_VOL_START is null)))
202 AND ((tlinfo.PERIOD_BKPT_VOL_END = X_PERIOD_BKPT_VOL_END)
203 OR ((tlinfo.PERIOD_BKPT_VOL_END is null) AND (X_PERIOD_BKPT_VOL_END is null)))
204 AND ((tlinfo.GROUP_BKPT_VOL_START = X_GROUP_BKPT_VOL_START)
205 OR ((tlinfo.GROUP_BKPT_VOL_START is null) AND (X_GROUP_BKPT_VOL_START is null)))
206 AND ((tlinfo.GROUP_BKPT_VOL_END = X_GROUP_BKPT_VOL_END)
207 OR ((tlinfo.GROUP_BKPT_VOL_END is null) AND (X_GROUP_BKPT_VOL_END is null)))
208 AND ((tlinfo.BKPT_RATE = X_BKPT_RATE)
209 OR ((tlinfo.BKPT_RATE is null) AND (X_BKPT_RATE is null)))
210 AND ((tlinfo.VAR_RENT_ID = X_VAR_RENT_ID)
211 OR ((tlinfo.VAR_RENT_ID is null) AND (X_VAR_RENT_ID is null)))
212 ) then
213 null;
214 else
215 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
216 app_exception.raise_exception;
217 end if;
218
219 */
220 IF NOT (tlinfo.BKDT_START_DATE = X_BKDT_START_DATE) THEN
221 pn_var_rent_pkg.lock_row_exception('BKDT_START_DATE',tlinfo.BKDT_START_DATE);
222 END IF;
223 IF NOT (tlinfo.BKDT_END_DATE = X_BKDT_END_DATE) THEN
224 pn_var_rent_pkg.lock_row_exception('BKDT_END_DATE',tlinfo.BKDT_END_DATE);
225 END IF;
226 IF NOT (tlinfo.PERIOD_BKPT_VOL_START = X_PERIOD_BKPT_VOL_START) THEN
227 pn_var_rent_pkg.lock_row_exception('PERIOD_BKPT_VOL_START',tlinfo.PERIOD_BKPT_VOL_START);
228 END IF;
229 IF NOT (tlinfo.PERIOD_BKPT_VOL_END = X_PERIOD_BKPT_VOL_END) THEN
230 pn_var_rent_pkg.lock_row_exception('PERIOD_BKPT_VOL_END',tlinfo.PERIOD_BKPT_VOL_END);
231 END IF;
232 IF NOT (tlinfo.GROUP_BKPT_VOL_START = X_GROUP_BKPT_VOL_START) THEN
233 pn_var_rent_pkg.lock_row_exception('GROUP_BKPT_VOL_START',tlinfo.GROUP_BKPT_VOL_START);
234 END IF;
235 IF NOT (tlinfo.GROUP_BKPT_VOL_END = X_GROUP_BKPT_VOL_END) THEN
236 pn_var_rent_pkg.lock_row_exception('GROUP_BKPT_VOL_END',tlinfo.GROUP_BKPT_VOL_END);
237 END IF;
238 IF NOT (tlinfo.BKPT_RATE = X_BKPT_RATE) THEN
239 pn_var_rent_pkg.lock_row_exception('BKPT_RATE',tlinfo.BKPT_RATE);
240 END IF;
241 IF NOT (tlinfo.ANNUAL_BASIS_AMOUNT = X_ANNUAL_BASIS_AMOUNT) THEN
242 pn_var_rent_pkg.lock_row_exception('ANNUAL_BASIS_AMOUNT',tlinfo.ANNUAL_BASIS_AMOUNT);
243 END IF;
244 IF NOT (tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY) THEN
245 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE_CATEGORY',tlinfo.ATTRIBUTE_CATEGORY);
246 END IF;
247 IF NOT (tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1) THEN
248 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE1',tlinfo.ATTRIBUTE1);
249 END IF;
250 IF NOT (tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2) THEN
251 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE2',tlinfo.ATTRIBUTE2);
252 END IF;
253 IF NOT (tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3) THEN
254 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE3',tlinfo.ATTRIBUTE3);
255 END IF;
256 IF NOT (tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4) THEN
257 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE4',tlinfo.ATTRIBUTE4);
258 END IF;
259 IF NOT (tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5) THEN
260 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE5',tlinfo.ATTRIBUTE5);
261 END IF;
262 IF NOT (tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6) THEN
263 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE6',tlinfo.ATTRIBUTE6);
264 END IF;
265 IF NOT (tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7) THEN
266 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE7',tlinfo.ATTRIBUTE7);
267 END IF;
268 IF NOT (tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8) THEN
269 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE8',tlinfo.ATTRIBUTE8);
270 END IF;
271 IF NOT (tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9) THEN
272 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE9',tlinfo.ATTRIBUTE9);
273 END IF;
274 IF NOT (tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10) THEN
275 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE10',tlinfo.ATTRIBUTE10);
276 END IF;
277 IF NOT (tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11) THEN
278 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE11',tlinfo.ATTRIBUTE11);
279 END IF;
280 IF NOT (tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12) THEN
281 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE12',tlinfo.ATTRIBUTE12);
282 END IF;
283 IF NOT (tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13) THEN
284 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE13',tlinfo.ATTRIBUTE13);
285 END IF;
286 IF NOT (tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14) THEN
287 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE14',tlinfo.ATTRIBUTE14);
288 END IF;
289 IF NOT (tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15) THEN
290 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE15',tlinfo.ATTRIBUTE15);
291 END IF;
292
293 end loop;
294 return;
295
296 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.LOCK_ROW (-)');
297
298 end LOCK_ROW;
299
300 -------------------------------------------------------------------------------
301 -- PROCDURE : UPDATE_ROW
302 -- INVOKED FROM : UPDATE_ROW procedure
303 -- PURPOSE : updates the row
304 -- HISTORY :
305
306 -------------------------------------------------------------------------------
307 procedure UPDATE_ROW (
308 X_BKDT_DEFAULT_ID in NUMBER,
309 X_BKDT_DETAIL_NUM in NUMBER,
310 X_BKHD_DEFAULT_ID in NUMBER,
311 X_BKDT_START_DATE in DATE,
312 X_BKDT_END_DATE in DATE,
313 X_PERIOD_BKPT_VOL_START in NUMBER,
314 X_PERIOD_BKPT_VOL_END in NUMBER,
315 X_GROUP_BKPT_VOL_START in NUMBER,
316 X_GROUP_BKPT_VOL_END in NUMBER,
317 X_BKPT_RATE in NUMBER,
318 X_PROCESSED_FLAG in NUMBER,
319 X_VAR_RENT_ID in NUMBER,
320 X_LAST_UPDATE_DATE in DATE,
321 X_LAST_UPDATED_BY in NUMBER,
322 X_LAST_UPDATE_LOGIN in NUMBER,
323 X_ANNUAL_BASIS_AMOUNT in NUMBER DEFAULT NULL,
324 X_ATTRIBUTE_CATEGORY in VARCHAR2,
325 X_ATTRIBUTE1 in VARCHAR2,
326 X_ATTRIBUTE2 in VARCHAR2,
327 X_ATTRIBUTE3 in VARCHAR2,
328 X_ATTRIBUTE4 in VARCHAR2,
329 X_ATTRIBUTE5 in VARCHAR2,
330 X_ATTRIBUTE6 in VARCHAR2,
331 X_ATTRIBUTE7 in VARCHAR2,
332 X_ATTRIBUTE8 in VARCHAR2,
333 X_ATTRIBUTE9 in VARCHAR2,
334 X_ATTRIBUTE10 in VARCHAR2,
335 X_ATTRIBUTE11 in VARCHAR2,
336 X_ATTRIBUTE12 in VARCHAR2,
337 X_ATTRIBUTE13 in VARCHAR2,
338 X_ATTRIBUTE14 in VARCHAR2,
342 BEGIN
339 X_ATTRIBUTE15 in VARCHAR2
340 ) IS
341
343
344 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.UPDATE_ROW (+)');
345
346 UPDATE PN_VAR_BKDT_DEFAULTS_ALL SET
347 BKDT_DETAIL_NUM = X_BKDT_DETAIL_NUM,
348 BKHD_DEFAULT_ID = X_BKHD_DEFAULT_ID,
349 BKDT_START_DATE = X_BKDT_START_DATE,
350 BKDT_END_DATE = X_BKDT_END_DATE,
351 PERIOD_BKPT_VOL_START = X_PERIOD_BKPT_VOL_START,
352 PERIOD_BKPT_VOL_END = X_PERIOD_BKPT_VOL_END,
353 GROUP_BKPT_VOL_START = X_GROUP_BKPT_VOL_START,
354 GROUP_BKPT_VOL_END = X_GROUP_BKPT_VOL_END,
355 BKPT_RATE = X_BKPT_RATE,
356 PROCESSED_FLAG = X_PROCESSED_FLAG,
357 VAR_RENT_ID = X_VAR_RENT_ID,
358 BKDT_DEFAULT_ID = X_BKDT_DEFAULT_ID,
359 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
360 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
361 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
362 ANNUAL_BASIS_AMOUNT = X_ANNUAL_BASIS_AMOUNT,
363 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
364 ATTRIBUTE1 = X_ATTRIBUTE1,
365 ATTRIBUTE2 = X_ATTRIBUTE2,
366 ATTRIBUTE3 = X_ATTRIBUTE3,
367 ATTRIBUTE4 = X_ATTRIBUTE4,
368 ATTRIBUTE5 = X_ATTRIBUTE5,
369 ATTRIBUTE6 = X_ATTRIBUTE6,
370 ATTRIBUTE7 = X_ATTRIBUTE7,
371 ATTRIBUTE8 = X_ATTRIBUTE8,
372 ATTRIBUTE9 = X_ATTRIBUTE9,
373 ATTRIBUTE10 = X_ATTRIBUTE10,
374 ATTRIBUTE11 = X_ATTRIBUTE11,
375 ATTRIBUTE12 = X_ATTRIBUTE12,
376 ATTRIBUTE13 = X_ATTRIBUTE13,
377 ATTRIBUTE14 = X_ATTRIBUTE14,
378 ATTRIBUTE15 = X_ATTRIBUTE15
379 WHERE BKDT_DEFAULT_ID = X_BKDT_DEFAULT_ID;
380
381 IF (SQL%NOTFOUND) THEN
382 RAISE NO_DATA_FOUND;
383 END IF;
384
385 UPDATE pn_var_bkhd_defaults_all
386 SET bkpt_update_flag = 'Y'
387 WHERE bkhd_default_id = x_bkhd_default_id;
388
389 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.UPDATE_ROW (-)');
390
391 END UPDATE_ROW;
392
393 -----------------------------------------------------------------------
394 -- PROCDURE : DELETE_ROW
395 -----------------------------------------------------------------------
396 procedure DELETE_ROW ( X_BKDT_DEFAULT_ID in NUMBER)
397 IS
398 CURSOR bkhd_default IS
399 SELECT bkhd_default_id
400 FROM pn_var_bkdt_defaults_all
401 WHERE bkdt_default_id = x_bkdt_default_id;
402 BEGIN
403
404 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.DELETE_ROW (+)');
405
406 FOR rec IN bkhd_default LOOP
407 UPDATE pn_var_bkhd_defaults_all
408 SET bkpt_update_flag = 'Y'
409 WHERE bkhd_default_id = rec.bkhd_default_id;
410 END LOOP;
411
412 DELETE FROM pn_var_bkdt_defaults_all
413 WHERE bkdt_default_id = x_bkdt_default_id;
414
415 IF (SQL%NOTFOUND) THEN
416 RAISE NO_DATA_FOUND;
417 END IF;
418
419 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.DELETE_ROW (-)');
420 END DELETE_ROW;
421
422
423 -------------------------------------------------------------------------------
424 -- PROCDURE : MODIFY_ROW
425 -- INVOKED FROM : MODIFY_ROW procedure
426 -- PURPOSE : updates the row
427 -- HISTORY :
428
429 -------------------------------------------------------------------------------
430 procedure MODIFY_ROW (
431 X_BKDT_DEFAULT_ID in NUMBER,
432 X_BKDT_DETAIL_NUM in NUMBER,
433 X_BKHD_DEFAULT_ID in NUMBER,
434 X_BKDT_START_DATE in DATE,
435 X_BKDT_END_DATE in DATE,
436 X_PERIOD_BKPT_VOL_START in NUMBER,
437 X_PERIOD_BKPT_VOL_END in NUMBER,
438 X_GROUP_BKPT_VOL_START in NUMBER,
439 X_GROUP_BKPT_VOL_END in NUMBER,
440 X_BKPT_RATE in NUMBER,
441 X_PROCESSED_FLAG in NUMBER,
442 X_VAR_RENT_ID in NUMBER,
443 X_LAST_UPDATE_DATE in DATE,
444 X_LAST_UPDATED_BY in NUMBER,
445 X_LAST_UPDATE_LOGIN in NUMBER,
446 X_ANNUAL_BASIS_AMOUNT in NUMBER DEFAULT NULL,
447 X_ATTRIBUTE_CATEGORY in VARCHAR2,
448 X_ATTRIBUTE1 in VARCHAR2,
449 X_ATTRIBUTE2 in VARCHAR2,
450 X_ATTRIBUTE3 in VARCHAR2,
451 X_ATTRIBUTE4 in VARCHAR2,
452 X_ATTRIBUTE5 in VARCHAR2,
453 X_ATTRIBUTE6 in VARCHAR2,
454 X_ATTRIBUTE7 in VARCHAR2,
455 X_ATTRIBUTE8 in VARCHAR2,
456 X_ATTRIBUTE9 in VARCHAR2,
457 X_ATTRIBUTE10 in VARCHAR2,
458 X_ATTRIBUTE11 in VARCHAR2,
459 X_ATTRIBUTE12 in VARCHAR2,
460 X_ATTRIBUTE13 in VARCHAR2,
461 X_ATTRIBUTE14 in VARCHAR2,
462 X_ATTRIBUTE15 in VARCHAR2
463 ) IS
464
465 /* Get the details of breakpoint details default */
466 CURSOR bkdt_defaults_cur IS
467 SELECT *
468 FROM pn_var_bkdt_defaults_all
469 WHERE bkdt_default_id = x_bkdt_default_id;
470
471 BEGIN
472
473 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.MODIFY_ROW (+)');
474
475 FOR rec IN bkdt_defaults_cur LOOP
476 UPDATE PN_VAR_BKDT_DEFAULTS_ALL SET
477 BKDT_DETAIL_NUM = NVL( x_bkdt_detail_num, rec.bkdt_detail_num),
478 BKHD_DEFAULT_ID = x_bkhd_default_id,
479 BKDT_START_DATE = NVL( x_bkdt_start_date, rec.bkdt_start_date),
480 BKDT_END_DATE = NVL( x_bkdt_end_date, rec.bkdt_end_date),
481 PERIOD_BKPT_VOL_START = NVL( x_period_bkpt_vol_start, rec.period_bkpt_vol_start),
482 PERIOD_BKPT_VOL_END = NVL( x_period_bkpt_vol_end, rec.period_bkpt_vol_end),
483 GROUP_BKPT_VOL_START = NVL( x_group_bkpt_vol_start, rec.group_bkpt_vol_start),
484 GROUP_BKPT_VOL_END = NVL( x_group_bkpt_vol_end, rec.group_bkpt_vol_end),
485 BKPT_RATE = NVL( x_bkpt_rate, rec.bkpt_rate),
486 PROCESSED_FLAG = NVL( x_processed_flag, rec.processed_flag),
487 VAR_RENT_ID = NVL( x_var_rent_id, rec.var_rent_id),
488 BKDT_DEFAULT_ID = NVL( x_bkdt_default_id, rec.bkdt_default_id),
489 LAST_UPDATE_DATE = NVL( x_last_update_date, rec.last_update_date),
490 LAST_UPDATED_BY = NVL( x_last_updated_by, rec.last_updated_by),
491 LAST_UPDATE_LOGIN = NVL( x_last_update_login, rec.last_update_login),
492 ANNUAL_BASIS_AMOUNT = NVL( x_annual_basis_amount, rec.annual_basis_amount),
493 ATTRIBUTE_CATEGORY = NVL( x_attribute_category, rec.attribute_category),
494 ATTRIBUTE1 = NVL( x_attribute1, rec.attribute1),
495 ATTRIBUTE2 = NVL( x_attribute2, rec.attribute2),
496 ATTRIBUTE3 = NVL( x_attribute3, rec.attribute3),
497 ATTRIBUTE4 = NVL( x_attribute4, rec.attribute4),
498 ATTRIBUTE5 = NVL( x_attribute5, rec.attribute5),
499 ATTRIBUTE6 = NVL( x_attribute6, rec.attribute6),
500 ATTRIBUTE7 = NVL( x_attribute7, rec.attribute7),
501 ATTRIBUTE8 = NVL( x_attribute8, rec.attribute8),
502 ATTRIBUTE9 = NVL( x_attribute9, rec.attribute9),
503 ATTRIBUTE10 = NVL( x_attribute10, rec.attribute10),
504 ATTRIBUTE11 = NVL( x_attribute11, rec.attribute11),
505 ATTRIBUTE12 = NVL( x_attribute12, rec.attribute12),
506 ATTRIBUTE13 = NVL( x_attribute13, rec.attribute13),
507 ATTRIBUTE14 = NVL( x_attribute14, rec.attribute14),
508 ATTRIBUTE15 = NVL( x_attribute15, rec.attribute15)
509 WHERE BKDT_DEFAULT_ID = X_BKDT_DEFAULT_ID;
510
511 IF (SQL%NOTFOUND) THEN
512 RAISE NO_DATA_FOUND;
513 END IF;
514
515 UPDATE pn_var_bkhd_defaults_all
516 SET bkpt_update_flag = 'Y'
517 WHERE bkhd_default_id = x_bkhd_default_id;
518
519 END LOOP;
520
521 PNP_DEBUG_PKG.debug ('PN_VAR_BKDT_DEFAULTS_PKG.MODIFY_ROW (-)');
522
523 END MODIFY_ROW;
524
525 end PN_VAR_BKDT_DEFAULTS_PKG;