[Home] [Help]
PACKAGE BODY: APPS.PN_VAR_BKHD_DEFAULTS_PKG
Source
1 PACKAGE BODY PN_VAR_BKHD_DEFAULTS_PKG AS
2 /* $Header: PNVRBHDB.pls 120.1 2010/08/23 04:45:05 pcheruvu ship $ */
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_BKHD_DEFAULT_ID in out NOCOPY NUMBER,
14 X_BKHD_DETAIL_NUM in out NOCOPY NUMBER,
15 X_LINE_DEFAULT_ID in NUMBER,
16 X_BKPT_HEAD_TEMPLATE_ID in NUMBER,
17 X_AGREEMENT_TEMPLATE_ID in NUMBER,
18 X_BKHD_START_DATE in DATE,
19 X_BKHD_END_DATE in DATE,
20 X_BREAK_TYPE in VARCHAR2,
21 X_BASE_RENT_TYPE in VARCHAR2,
22 X_NATURAL_BREAK_RATE in NUMBER,
23 X_BASE_RENT in NUMBER,
24 X_BREAKPOINT_TYPE in VARCHAR2,
25 X_BREAKPOINT_LEVEL in VARCHAR2,
26 X_PROCESSED_FLAG in NUMBER,
27 X_VAR_RENT_ID in NUMBER,
28 X_CREATION_DATE in DATE,
29 X_CREATED_BY in NUMBER,
30 X_LAST_UPDATE_DATE in DATE,
31 X_LAST_UPDATED_BY in NUMBER,
32 X_LAST_UPDATE_LOGIN in NUMBER,
33 X_ORG_ID in NUMBER,
34 X_ATTRIBUTE_CATEGORY in VARCHAR2,
35 X_ATTRIBUTE1 in VARCHAR2,
36 X_ATTRIBUTE2 in VARCHAR2,
37 X_ATTRIBUTE3 in VARCHAR2,
38 X_ATTRIBUTE4 in VARCHAR2,
39 X_ATTRIBUTE5 in VARCHAR2,
40 X_ATTRIBUTE6 in VARCHAR2,
41 X_ATTRIBUTE7 in VARCHAR2,
42 X_ATTRIBUTE8 in VARCHAR2,
43 X_ATTRIBUTE9 in VARCHAR2,
44 X_ATTRIBUTE10 in VARCHAR2,
45 X_ATTRIBUTE11 in VARCHAR2,
46 X_ATTRIBUTE12 in VARCHAR2,
47 X_ATTRIBUTE13 in VARCHAR2,
48 X_ATTRIBUTE14 in VARCHAR2,
49 X_ATTRIBUTE15 in VARCHAR2
50 ) is
51
52 CURSOR C IS
53 SELECT ROWID
54 FROM pn_var_bkhd_defaults_all
55 WHERE bkhd_default_id = x_bkhd_default_id ;
56
57 BEGIN
58
59
60 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.INSERT_ROW (+)');
61 -------------------------------------------------------
62 -- We need t generate the line number
63 -------------------------------------------------------
64 SELECT nvl(max(bkhd.bkhd_detail_num),0)
65 INTO X_BKHD_DETAIL_NUM
66 FROM pn_var_bkhd_defaults_all bkhd
67 WHERE bkhd.bkhd_default_id = X_BKHD_DEFAULT_ID;
68
69 X_BKHD_DETAIL_NUM := X_BKHD_DETAIL_NUM + 1;
70 -------------------------------------------------------
71 -- Select the nextval for line_bkpt default id
72 -------------------------------------------------------
73 IF ( X_BKHD_DEFAULT_ID IS NULL) THEN
74 SELECT PN_VAR_BKHD_DEFAULTS_S.nextval
75 INTO X_BKHD_DEFAULT_ID
76 FROM dual;
77 END IF;
78
79 insert into PN_VAR_BKHD_DEFAULTS_ALL
80 (
81 BKHD_DEFAULT_ID,
82 BKHD_DETAIL_NUM,
83 LINE_DEFAULT_ID,
84 BKPT_HEAD_TEMPLATE_ID,
85 AGREEMENT_TEMPLATE_ID,
86 BKHD_START_DATE,
87 BKHD_END_DATE,
88 BREAK_TYPE,
89 BASE_RENT_TYPE,
90 NATURAL_BREAK_RATE,
91 BASE_RENT,
92 BREAKPOINT_TYPE,
93 BREAKPOINT_LEVEL,
94 PROCESSED_FLAG,
95 VAR_RENT_ID,
96 LAST_UPDATE_DATE,
97 LAST_UPDATED_BY,
98 CREATION_DATE,
99 CREATED_BY,
100 LAST_UPDATE_LOGIN,
101 ORG_ID,
102 ATTRIBUTE_CATEGORY,
103 ATTRIBUTE1,
104 ATTRIBUTE2,
105 ATTRIBUTE3,
106 ATTRIBUTE4,
107 ATTRIBUTE5,
108 ATTRIBUTE6,
109 ATTRIBUTE7,
110 ATTRIBUTE8,
111 ATTRIBUTE9,
112 ATTRIBUTE10,
113 ATTRIBUTE11,
114 ATTRIBUTE12,
115 ATTRIBUTE13,
116 ATTRIBUTE14,
117 ATTRIBUTE15,
118 BKPT_UPDATE_FLAG
119 )
120 values
121 (
122 X_BKHD_DEFAULT_ID,
123 X_BKHD_DETAIL_NUM,
124 X_LINE_DEFAULT_ID,
125 X_BKPT_HEAD_TEMPLATE_ID,
126 X_AGREEMENT_TEMPLATE_ID,
127 X_BKHD_START_DATE,
128 X_BKHD_END_DATE,
129 X_BREAK_TYPE,
130 X_BASE_RENT_TYPE,
131 X_NATURAL_BREAK_RATE,
132 X_BASE_RENT,
133 X_BREAKPOINT_TYPE,
134 X_BREAKPOINT_LEVEL,
135 X_PROCESSED_FLAG,
136 X_VAR_RENT_ID,
137 X_LAST_UPDATE_DATE,
138 X_LAST_UPDATED_BY,
139 X_CREATION_DATE,
140 X_CREATED_BY,
141 X_LAST_UPDATE_LOGIN,
142 X_ORG_ID,
143 X_ATTRIBUTE_CATEGORY,
144 X_ATTRIBUTE1,
145 X_ATTRIBUTE2,
146 X_ATTRIBUTE3,
147 X_ATTRIBUTE4,
148 X_ATTRIBUTE5,
149 X_ATTRIBUTE6,
150 X_ATTRIBUTE7,
151 X_ATTRIBUTE8,
152 X_ATTRIBUTE9,
153 X_ATTRIBUTE10,
154 X_ATTRIBUTE11,
155 X_ATTRIBUTE12,
156 X_ATTRIBUTE13,
157 X_ATTRIBUTE14,
158 X_ATTRIBUTE15,
159 'Y'
160 );
161
162 OPEN c;
163 FETCH c INTO X_ROWID;
164 IF (c%notfound) THEN
165 CLOSE c;
166 RAISE NO_DATA_FOUND;
167 END IF;
168 CLOSE c;
169
170 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.INSERT_ROW (-)');
171
172 END INSERT_ROW;
173
174 -------------------------------------------------------------------------------
175 -- PROCDURE : LOCK_ROW
176 -- INVOKED FROM : LOCK_ROW procedure
177 -- PURPOSE : locks the row
178 -- HISTORY :
179
180 -------------------------------------------------------------------------------
181 procedure LOCK_ROW (
182 X_BKHD_DEFAULT_ID in NUMBER,
183 X_BKHD_DETAIL_NUM in NUMBER,
184 X_LINE_DEFAULT_ID in NUMBER,
185 X_BKPT_HEAD_TEMPLATE_ID in NUMBER,
186 X_AGREEMENT_TEMPLATE_ID in NUMBER,
187 X_BKHD_START_DATE in DATE,
188 X_BKHD_END_DATE in DATE,
189 X_BREAK_TYPE in VARCHAR2,
190 X_BASE_RENT_TYPE in VARCHAR2,
191 X_NATURAL_BREAK_RATE in NUMBER,
192 X_BASE_RENT in NUMBER,
193 X_BREAKPOINT_TYPE in VARCHAR2,
194 X_BREAKPOINT_LEVEL in VARCHAR2,
195 X_VAR_RENT_ID in NUMBER,
196 X_ATTRIBUTE_CATEGORY in VARCHAR2,
197 X_ATTRIBUTE1 in VARCHAR2,
198 X_ATTRIBUTE2 in VARCHAR2,
199 X_ATTRIBUTE3 in VARCHAR2,
200 X_ATTRIBUTE4 in VARCHAR2,
201 X_ATTRIBUTE5 in VARCHAR2,
202 X_ATTRIBUTE6 in VARCHAR2,
203 X_ATTRIBUTE7 in VARCHAR2,
204 X_ATTRIBUTE8 in VARCHAR2,
205 X_ATTRIBUTE9 in VARCHAR2,
206 X_ATTRIBUTE10 in VARCHAR2,
207 X_ATTRIBUTE11 in VARCHAR2,
208 X_ATTRIBUTE12 in VARCHAR2,
209 X_ATTRIBUTE13 in VARCHAR2,
210 X_ATTRIBUTE14 in VARCHAR2,
211 X_ATTRIBUTE15 in VARCHAR2
212 ) is
213
214 cursor c1 is select
215 *
216 from PN_VAR_BKHD_DEFAULTS_ALL
217 where BKHD_DEFAULT_ID = X_BKHD_DEFAULT_ID
218 for update of BKHD_DEFAULT_ID nowait;
219
220 tlinfo c1%rowtype;
221
222 begin
223
224 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.LOCK_ROW (+)');
225
226 open c1;
227 fetch c1 into tlinfo;
228 if (c1%notfound) then
229 close c1;
230 return;
231 end if;
232 close c1;
233
234 IF (tlinfo.BKHD_DEFAULT_ID = X_BKHD_DEFAULT_ID) THEN
235 null;
236 ELSE
237 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('BKHD_DEFAULT_ID',tlinfo.BKHD_DEFAULT_ID);
238 END IF;
239
240 IF (tlinfo.LINE_DEFAULT_ID = X_LINE_DEFAULT_ID) THEN
241 null;
242 ELSE
243 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('LINE_DEFAULT_ID',tlinfo.LINE_DEFAULT_ID);
244 END IF;
245 IF ((tlinfo.AGREEMENT_TEMPLATE_ID = X_AGREEMENT_TEMPLATE_ID)
246 OR ((tlinfo.AGREEMENT_TEMPLATE_ID is null) AND (X_AGREEMENT_TEMPLATE_ID is null))) THEN
247 null;
248 ELSE
249 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('AGREEMENT_TEMPLATE_ID',tlinfo.AGREEMENT_TEMPLATE_ID);
250 END IF;
251
252 IF ((tlinfo.BKHD_START_DATE = X_BKHD_START_DATE)
253 OR ((tlinfo.BKHD_START_DATE is null) AND (X_BKHD_START_DATE is null))) THEN
254 null;
255 ELSE
256 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('BKHD_START_DATE',tlinfo.BKHD_START_DATE);
257 END IF;
258
259 IF ((tlinfo.BKHD_END_DATE = X_BKHD_END_DATE)
260 OR ((tlinfo.BKHD_END_DATE is null) AND (X_BKHD_END_DATE is null))) THEN
261 null;
262 ELSE
263 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('BKHD_END_DATE',tlinfo.BKHD_END_DATE);
264 END IF;
265
266 IF ((tlinfo.BREAK_TYPE = X_BREAK_TYPE)
267 OR ((tlinfo.BREAK_TYPE is null) AND (X_BREAK_TYPE is null))) THEN
268 null;
269 ELSE
270 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('BREAK_TYPE',tlinfo.BREAK_TYPE);
271 END IF;
272
273 IF ((tlinfo.BASE_RENT_TYPE = X_BASE_RENT_TYPE)
274 OR ((tlinfo.BASE_RENT_TYPE is null) AND (X_BASE_RENT_TYPE is null))) THEN
275 null;
276 ELSE
277 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('BASE_RENT_TYPE',tlinfo.BASE_RENT_TYPE);
278 END IF;
279
280 IF ((tlinfo.NATURAL_BREAK_RATE = X_NATURAL_BREAK_RATE)
281 OR ((tlinfo.NATURAL_BREAK_RATE is null) AND (X_NATURAL_BREAK_RATE is null))) THEN
282 null;
283 ELSE
284 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('NATURAL_BREAK_RATE',tlinfo.NATURAL_BREAK_RATE);
285 END IF;
286
287 IF ((tlinfo.BASE_RENT = X_BASE_RENT)
288 OR ((tlinfo.BASE_RENT is null) AND (X_BASE_RENT is null))) THEN
289 null;
290 ELSE
291 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('BASE_RENT',tlinfo.BASE_RENT);
292 END IF;
293
294 IF ((tlinfo.BREAKPOINT_TYPE = X_BREAKPOINT_TYPE)
295 OR ((tlinfo.BREAKPOINT_TYPE is null) AND (X_BREAKPOINT_TYPE is null))) THEN
296 null;
297 ELSE
298 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('BREAKPOINT_TYPE',tlinfo.BREAKPOINT_TYPE);
299 END IF;
300
301 IF ((tlinfo.BREAKPOINT_LEVEL = X_BREAKPOINT_LEVEL)
302 OR ((tlinfo.BREAKPOINT_LEVEL is null) AND (X_BREAKPOINT_LEVEL is null))) THEN
303 null;
304 ELSE
305 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('BREAKPOINT_LEVEL',tlinfo.BREAKPOINT_LEVEL);
306 END IF;
307
308 IF ((tlinfo.VAR_RENT_ID = X_VAR_RENT_ID)
309 OR ((tlinfo.VAR_RENT_ID is null) AND (X_VAR_RENT_ID is null))) THEN
310 null;
311 ELSE
312 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('VAR_RENT_ID',tlinfo.VAR_RENT_ID);
313 END IF;
314
315 if ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
316 OR ((tlinfo.ATTRIBUTE_CATEGORY is null) AND (X_ATTRIBUTE_CATEGORY is null))) then
317 null;
318 else
319 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE_CATEGORY', to_char(tlinfo.ATTRIBUTE_CATEGORY));
320 end if;
321
322
323 if ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
324 OR ((tlinfo.ATTRIBUTE1 is null) AND (X_ATTRIBUTE1 is null))) then
325 null;
326 else
327 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE1', to_char(tlinfo.ATTRIBUTE1));
328 end if;
329
330 if ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
331 OR ((tlinfo.ATTRIBUTE2 is null) AND (X_ATTRIBUTE2 is null))) then
332 null;
333 else
334 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE2', to_char(tlinfo.ATTRIBUTE2));
335 end if;
336
337 if ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
338 OR ((tlinfo.ATTRIBUTE3 is null) AND (X_ATTRIBUTE3 is null))) then
339 null;
340 else
341 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE3', to_char(tlinfo.ATTRIBUTE3));
342 end if;
343
344 if ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
345 OR ((tlinfo.ATTRIBUTE4 is null) AND (X_ATTRIBUTE4 is null))) then
346 null;
347 else
348 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE4', to_char(tlinfo.ATTRIBUTE4));
349 end if;
350
351 if ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
352 OR ((tlinfo.ATTRIBUTE5 is null) AND (X_ATTRIBUTE5 is null))) then
353 null;
354 else
355 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE5', to_char(tlinfo.ATTRIBUTE5));
356 end if;
357
358 if ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
359 OR ((tlinfo.ATTRIBUTE6 is null) AND (X_ATTRIBUTE6 is null))) then
360 null;
361 else
362 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE6', to_char(tlinfo.ATTRIBUTE6));
363 end if;
364
365 if ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
366 OR ((tlinfo.ATTRIBUTE7 is null) AND (X_ATTRIBUTE7 is null))) then
367 null;
368 else
369 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE7', to_char(tlinfo.ATTRIBUTE7));
370 end if;
371
372 if ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
373 OR ((tlinfo.ATTRIBUTE8 is null) AND (X_ATTRIBUTE8 is null))) then
374 null;
375 else
376 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE8', to_char(tlinfo.ATTRIBUTE8));
377 end if;
378
379 if ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
380 OR ((tlinfo.ATTRIBUTE9 is null) AND (X_ATTRIBUTE9 is null))) then
381 null;
382 else
383 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE9', to_char(tlinfo.ATTRIBUTE9));
384 end if;
385
386 if ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
387 OR ((tlinfo.ATTRIBUTE10 is null) AND (X_ATTRIBUTE10 is null))) then
388 null;
389 else
390 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE10', to_char(tlinfo.ATTRIBUTE10));
391 end if;
392
393 if ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
394 OR ((tlinfo.ATTRIBUTE11 is null) AND (X_ATTRIBUTE11 is null))) then
395 null;
396 else
397 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE11', to_char(tlinfo.ATTRIBUTE11));
398 end if;
399
400 if ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
401 OR ((tlinfo.ATTRIBUTE12 is null) AND (X_ATTRIBUTE12 is null))) then
402 null;
403 else
404 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE12', to_char(tlinfo.ATTRIBUTE12));
405 end if;
406
407 if ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
408 OR ((tlinfo.ATTRIBUTE13 is null) AND (X_ATTRIBUTE13 is null))) then
409 null;
410 else
411 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE13', to_char(tlinfo.ATTRIBUTE13));
412 end if;
413
414 if ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
415 OR ((tlinfo.ATTRIBUTE14 is null) AND (X_ATTRIBUTE14 is null))) then
416 null;
417 else
418 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE14', to_char(tlinfo.ATTRIBUTE14));
419 end if;
420
421 if ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
422 OR ((tlinfo.ATTRIBUTE15 is null) AND (X_ATTRIBUTE15 is null))) then
423 null;
424 else
425 PN_VAR_RENT_PKG.LOCK_ROW_EXCEPTION('ATTRIBUTE15', to_char(tlinfo.ATTRIBUTE15));
426 end if;
427
428 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.LOCK_ROW (-)');
429
430 end LOCK_ROW;
431
432 -------------------------------------------------------------------------------
433 -- PROCDURE : UPDATE_ROW
434 -- INVOKED FROM : UPDATE_ROW procedure
435 -- PURPOSE : updates the row
436 -- HISTORY :
437
438 -------------------------------------------------------------------------------
439 procedure UPDATE_ROW (
440 X_BKHD_DEFAULT_ID in NUMBER,
441 X_BKHD_DETAIL_NUM in NUMBER,
442 X_LINE_DEFAULT_ID in NUMBER,
443 X_BKPT_HEAD_TEMPLATE_ID in NUMBER,
447 X_BREAK_TYPE in VARCHAR2,
444 X_AGREEMENT_TEMPLATE_ID in NUMBER,
445 X_BKHD_START_DATE in DATE,
446 X_BKHD_END_DATE in DATE,
448 X_BASE_RENT_TYPE in VARCHAR2,
449 X_NATURAL_BREAK_RATE in NUMBER,
450 X_BASE_RENT in NUMBER,
451 X_BREAKPOINT_TYPE in VARCHAR2,
452 X_BREAKPOINT_LEVEL in VARCHAR2,
453 X_PROCESSED_FLAG in NUMBER,
454 X_VAR_RENT_ID in NUMBER,
455 X_LAST_UPDATE_DATE in DATE,
456 X_LAST_UPDATED_BY in NUMBER,
457 X_LAST_UPDATE_LOGIN in NUMBER,
458 X_ATTRIBUTE_CATEGORY in VARCHAR2,
459 X_ATTRIBUTE1 in VARCHAR2,
460 X_ATTRIBUTE2 in VARCHAR2,
461 X_ATTRIBUTE3 in VARCHAR2,
462 X_ATTRIBUTE4 in VARCHAR2,
463 X_ATTRIBUTE5 in VARCHAR2,
464 X_ATTRIBUTE6 in VARCHAR2,
465 X_ATTRIBUTE7 in VARCHAR2,
466 X_ATTRIBUTE8 in VARCHAR2,
467 X_ATTRIBUTE9 in VARCHAR2,
468 X_ATTRIBUTE10 in VARCHAR2,
469 X_ATTRIBUTE11 in VARCHAR2,
470 X_ATTRIBUTE12 in VARCHAR2,
471 X_ATTRIBUTE13 in VARCHAR2,
472 X_ATTRIBUTE14 in VARCHAR2,
473 X_ATTRIBUTE15 in VARCHAR2
474 ) IS
475
476 BEGIN
477
478 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.UPDATE_ROW (+)');
479
480 UPDATE PN_VAR_BKHD_DEFAULTS_ALL SET
481 LINE_DEFAULT_ID = X_LINE_DEFAULT_ID,
482 BKHD_DETAIL_NUM = X_BKHD_DETAIL_NUM,
483 BKPT_HEAD_TEMPLATE_ID = X_BKPT_HEAD_TEMPLATE_ID,
484 AGREEMENT_TEMPLATE_ID = X_AGREEMENT_TEMPLATE_ID,
485 BKHD_START_DATE = X_BKHD_START_DATE,
486 BKHD_END_DATE = X_BKHD_END_DATE,
487 BREAK_TYPE = X_BREAK_TYPE,
488 BASE_RENT_TYPE = X_BASE_RENT_TYPE,
489 NATURAL_BREAK_RATE = X_NATURAL_BREAK_RATE,
490 BASE_RENT = X_BASE_RENT,
491 BREAKPOINT_TYPE = X_BREAKPOINT_TYPE,
492 BREAKPOINT_LEVEL = X_BREAKPOINT_LEVEL,
493 BKHD_DEFAULT_ID = X_BKHD_DEFAULT_ID,
494 PROCESSED_FLAG = X_PROCESSED_FLAG,
495 VAR_RENT_ID = X_VAR_RENT_ID,
496 LAST_UPDATE_DATE = sysdate,
497 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
498 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
499 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
500 ATTRIBUTE1 = X_ATTRIBUTE1,
501 ATTRIBUTE2 = X_ATTRIBUTE2,
502 ATTRIBUTE3 = X_ATTRIBUTE3,
503 ATTRIBUTE4 = X_ATTRIBUTE4,
504 ATTRIBUTE5 = X_ATTRIBUTE5,
505 ATTRIBUTE6 = X_ATTRIBUTE6,
506 ATTRIBUTE7 = X_ATTRIBUTE7,
507 ATTRIBUTE8 = X_ATTRIBUTE8,
508 ATTRIBUTE9 = X_ATTRIBUTE9,
509 ATTRIBUTE10 = X_ATTRIBUTE10,
510 ATTRIBUTE11 = X_ATTRIBUTE11,
511 ATTRIBUTE12 = X_ATTRIBUTE12,
512 ATTRIBUTE13 = X_ATTRIBUTE13,
513 ATTRIBUTE14 = X_ATTRIBUTE14,
514 ATTRIBUTE15 = X_ATTRIBUTE15,
515 BKPT_UPDATE_FLAG = 'Y'
516 WHERE BKHD_DEFAULT_ID = X_BKHD_DEFAULT_ID;
517
518 IF (sql%notfound) THEN
519 RAISE NO_DATA_FOUND;
520 END IF;
521
522 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.UPDATE_ROW (-)');
523
524 END UPDATE_ROW;
525
526 -----------------------------------------------------------------------
527 -- PROCDURE : DELETE_ROW
528 -----------------------------------------------------------------------
529 procedure DELETE_ROW ( X_BKHD_DEFAULT_ID in NUMBER)
530 IS
531
532 BEGIN
533
534 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.DELETE_ROW (+)'||X_BKHD_DEFAULT_ID);
535
536 DELETE FROM PN_VAR_BKHD_DEFAULTS_ALL
537 WHERE BKHD_DEFAULT_ID = X_BKHD_DEFAULT_ID;
538
539 IF (SQL%NOTFOUND) THEN
540 RAISE NO_DATA_FOUND;
541 END IF;
542
543 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.DELETE_ROW (-)');
544
545 END DELETE_ROW;
546
547 -------------------------------------------------------------------------------
548 -- PROCDURE : MODIFY_ROW
549 -- INVOKED FROM : MODIFY_ROW procedure
550 -- PURPOSE : modifies the row
551 -- HISTORY :
552
553 -------------------------------------------------------------------------------
554 procedure MODIFY_ROW (
555 X_BKHD_DEFAULT_ID in NUMBER,
556 X_BKHD_DETAIL_NUM in NUMBER,
557 X_LINE_DEFAULT_ID in NUMBER,
558 X_BKPT_HEAD_TEMPLATE_ID in NUMBER,
559 X_AGREEMENT_TEMPLATE_ID in NUMBER,
560 X_BKHD_START_DATE in DATE,
561 X_BKHD_END_DATE in DATE,
562 X_BREAK_TYPE in VARCHAR2,
563 X_BASE_RENT_TYPE in VARCHAR2,
564 X_NATURAL_BREAK_RATE in NUMBER,
565 X_BASE_RENT in NUMBER,
566 X_BREAKPOINT_TYPE in VARCHAR2,
567 X_BREAKPOINT_LEVEL in VARCHAR2,
568 X_PROCESSED_FLAG in NUMBER,
569 X_VAR_RENT_ID in NUMBER,
570 X_LAST_UPDATE_DATE in DATE,
571 X_LAST_UPDATED_BY in NUMBER,
572 X_LAST_UPDATE_LOGIN in NUMBER,
573 X_ATTRIBUTE_CATEGORY in VARCHAR2,
574 X_ATTRIBUTE1 in VARCHAR2,
578 X_ATTRIBUTE5 in VARCHAR2,
575 X_ATTRIBUTE2 in VARCHAR2,
576 X_ATTRIBUTE3 in VARCHAR2,
577 X_ATTRIBUTE4 in VARCHAR2,
579 X_ATTRIBUTE6 in VARCHAR2,
580 X_ATTRIBUTE7 in VARCHAR2,
581 X_ATTRIBUTE8 in VARCHAR2,
582 X_ATTRIBUTE9 in VARCHAR2,
583 X_ATTRIBUTE10 in VARCHAR2,
584 X_ATTRIBUTE11 in VARCHAR2,
585 X_ATTRIBUTE12 in VARCHAR2,
586 X_ATTRIBUTE13 in VARCHAR2,
587 X_ATTRIBUTE14 in VARCHAR2,
588 X_ATTRIBUTE15 in VARCHAR2
589 ) IS
590
591 /* Get the details of breakpoint header default */
592 CURSOR bkhd_defaults_cur IS
593 SELECT *
594 FROM pn_var_bkhd_defaults_all
595 WHERE bkhd_default_id = x_bkhd_default_id;
596
597 BEGIN
598
599 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.MODIFY_ROW (+)');
600
601 FOR rec IN bkhd_defaults_cur LOOP
602 UPDATE pn_var_bkhd_defaults_all SET
603 line_default_id = NVL( x_line_default_id, rec.line_default_id),
604 bkhd_detail_num = NVL( x_bkhd_detail_num, rec.bkhd_detail_num ),
605 bkpt_head_template_id = NVL( x_bkpt_head_template_id, rec.bkpt_head_template_id),
606 agreement_template_id = NVL( x_agreement_template_id, rec.agreement_template_id ),
607 bkhd_start_date = NVL( x_bkhd_start_date, rec.bkhd_start_date),
608 bkhd_end_date = NVL( x_bkhd_end_date, rec.bkhd_end_date ),
609 break_type = NVL( x_break_type, rec.break_type),
610 base_rent_type = NVL( x_base_rent_type, rec.base_rent_type),
611 natural_break_rate = NVL( x_natural_break_rate, rec.natural_break_rate),
612 base_rent = NVL( x_base_rent, rec.base_rent),
613 breakpoint_type = NVL( x_breakpoint_type, rec.breakpoint_type),
614 breakpoint_level = NVL( x_breakpoint_level, rec.breakpoint_level),
615 bkhd_default_id = NVL( x_bkhd_default_id, rec.bkhd_default_id),
616 processed_flag = NVL( x_processed_flag, rec.processed_flag),
617 var_rent_id = NVL( x_var_rent_id, rec.var_rent_id),
618 last_update_date = NVL( x_last_update_date, rec.last_update_date),
619 last_updated_by = NVL( x_last_updated_by, rec.last_updated_by),
620 last_update_login = NVL( x_last_update_login, rec.last_update_login),
621 attribute_category = NVL( x_attribute_category, rec.attribute_category),
622 attribute1 = NVL( x_attribute1, rec.attribute1),
623 attribute2 = NVL( x_attribute2, rec.attribute2),
624 attribute3 = NVL( x_attribute3, rec.attribute3),
625 attribute4 = NVL( x_attribute4, rec.attribute4),
626 attribute5 = NVL( x_attribute5, rec.attribute5),
627 attribute6 = NVL( x_attribute6, rec.attribute6),
628 attribute7 = NVL( x_attribute7, rec.attribute7),
629 attribute8 = NVL( x_attribute8, rec.attribute8),
630 attribute9 = NVL( x_attribute9, rec.attribute9),
631 attribute10 = NVL( x_attribute10, rec.attribute10),
632 attribute11 = NVL( x_attribute11, rec.attribute11),
633 attribute12 = NVL( x_attribute12, rec.attribute12),
634 attribute13 = NVL( x_attribute13, rec.attribute13),
635 attribute14 = NVL( x_attribute14, rec.attribute14),
636 attribute15 = NVL( x_attribute15, rec.attribute15),
637 bkpt_update_flag = 'Y'
638 WHERE bkhd_default_id = x_bkhd_default_id;
639
640 IF (sql%notfound) THEN
641 RAISE NO_DATA_FOUND;
642 END IF;
643 END LOOP;
644
645
646
647 PNP_DEBUG_PKG.debug ('PN_VAR_BKHD_DEFAULTS_PKG.MODIFY_ROW (-)');
648
649 END MODIFY_ROW;
650
651 end PN_VAR_BKHD_DEFAULTS_PKG;