1 PACKAGE BODY pn_lease_details_pkg AS
2 -- $Header: PNTLSDTB.pls 120.2 2005/12/01 08:23:04 appldev ship $
3 -------------------------------------------------------------------------------
4 -- PROCDURE : INSERT_ROW
5 -- INVOKED FROM : insert_row procedure
6 -- PURPOSE : inserts the row
7 -- HISTORY :
8 -- 19-MAR-02 lkatputu o Added Send_Entries into the table handler
9 -- as per the 'DO NOT SEND' enhancement requirement.
10 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_lease_details with _ALL table
11 -- 28-NOV-05 pikhar o Fetched org_id using cursor
12 -------------------------------------------------------------------------------
13 PROCEDURE Insert_Row (
14 x_rowid IN OUT NOCOPY VARCHAR2
15 ,x_lease_detail_id IN OUT NOCOPY NUMBER
16 ,x_lease_change_id IN NUMBER
17 ,x_lease_id IN NUMBER
18 ,x_responsible_user IN NUMBER
19 ,x_expense_account_id IN NUMBER
20 ,x_lease_commencement_date IN DATE
21 ,x_lease_termination_date IN DATE
22 ,x_lease_execution_date IN DATE
23 ,x_creation_date IN DATE
24 ,x_created_by IN NUMBER
25 ,x_last_update_date IN DATE
26 ,x_last_updated_by IN NUMBER
27 ,x_last_update_login IN NUMBER
28 ,x_accrual_account_id IN NUMBER
29 ,x_receivable_account_id IN NUMBER
30 ,x_term_template_id IN NUMBER
31 ,x_grouping_rule_id IN NUMBER
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 ,x_org_id IN NUMBER
49 )
50 IS
51 CURSOR c IS
52 SELECT ROWID
53 FROM pn_lease_details_all
54 WHERE lease_detail_id = x_lease_detail_id;
55
56
57 CURSOR org_cur IS
58 SELECT org_id
59 FROM pn_leases_all
60 WHERE lease_id = x_lease_id;
61
62 l_org_id NUMBER;
63
64 BEGIN
65
66 pnp_debug_pkg.debug('PN_LEASE_DETAILS_PKG.Insert_Row (+)');
67
68 IF x_org_id IS NULL THEN
69 FOR rec IN org_cur LOOP
70 l_org_id := rec.org_id;
71 END LOOP;
72 ELSE
73 l_org_id := x_org_id;
74 END IF;
75
76 INSERT INTO pn_lease_details_all
77 (
78 lease_detail_id
79 ,lease_change_id
80 ,lease_id
81 ,responsible_user
82 ,expense_account_id
83 ,lease_commencement_date
84 ,lease_termination_date
85 ,lease_execution_date
86 ,creation_date
87 ,created_by
88 ,last_update_date
89 ,last_updated_by
90 ,last_update_login
91 ,accrual_account_id
92 ,receivable_account_id
93 ,term_template_id
94 ,grouping_rule_id
95 ,attribute_category
99 ,attribute4
96 ,attribute1
97 ,attribute2
98 ,attribute3
100 ,attribute5
101 ,attribute6
102 ,attribute7
103 ,attribute8
104 ,attribute9
105 ,attribute10
106 ,attribute11
107 ,attribute12
108 ,attribute13
109 ,attribute14
110 ,attribute15
111 ,org_id
112 )
113 VALUES
114 (
115 NVL(x_lease_detail_id, pn_lease_details_s.NEXTVAL)
116 ,x_lease_change_id
117 ,x_lease_id
118 ,x_responsible_user
119 ,x_expense_account_id
120 ,x_lease_commencement_date
121 ,x_lease_termination_date
122 ,x_lease_execution_date
123 ,x_creation_date
124 ,x_created_by
125 ,x_last_update_date
126 ,x_last_updated_by
127 ,x_last_update_login
128 ,x_accrual_account_id
129 ,x_receivable_account_id
130 ,x_term_template_id
131 ,x_grouping_rule_id
132 ,x_attribute_category
133 ,x_attribute1
134 ,x_attribute2
135 ,x_attribute3
136 ,x_attribute4
137 ,x_attribute5
138 ,x_attribute6
139 ,x_attribute7
140 ,x_attribute8
141 ,x_attribute9
142 ,x_attribute10
143 ,x_attribute11
144 ,x_attribute12
145 ,x_attribute13
146 ,x_attribute14
147 ,x_attribute15
148 ,l_org_id)
149
150 RETURNING lease_detail_id INTO x_lease_detail_id;
151
152 OPEN c;
153 FETCH c INTO x_rowid;
154 IF(c%NOTFOUND) THEN
155 CLOSE c;
156 RAISE NO_DATA_FOUND;
157 END IF;
158 CLOSE c;
159
160 pnp_debug_pkg.debug('PN_LEASE_DETAILS_PKG.Insert_Row (-)');
161
162 END Insert_Row;
163
164 -------------------------------------------------------------------------------
165 -- PROCDURE : Lock_Row
166 -- INVOKED FROM : Lock_Row procedure
167 -- PURPOSE : locks the row
168 -- HISTORY :
169 -- 19-MAR-02 lkatputu o Added Send_Entries into the table handler
170 -- as per the 'DO NOT SEND' enhancement requirement.
171 -- 16-AUG-02 STripathi o Added parameters x_name, x_lease_num. Modified
172 -- cursor c1 to include name, lease_num from pn_leases.
173 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_lease_details, pn_leases
174 -- with _ALL table.
175 -------------------------------------------------------------------------------
176 PROCEDURE Lock_Row (
177 x_lease_detail_id IN NUMBER
178 ,x_lease_change_id IN NUMBER
179 ,x_lease_id IN NUMBER
180 ,x_responsible_user IN NUMBER
181 ,x_expense_account_id IN NUMBER
182 ,x_lease_commencement_date IN DATE
183 ,x_lease_termination_date IN DATE
184 ,x_lease_execution_date IN DATE
185 ,x_accrual_account_id IN NUMBER
186 ,x_receivable_account_id IN NUMBER
187 ,x_term_template_id IN NUMBER
188 ,x_grouping_rule_id IN NUMBER
189 ,x_attribute_category IN VARCHAR2
190 ,x_attribute1 IN VARCHAR2
191 ,x_attribute2 IN VARCHAR2
192 ,x_attribute3 IN VARCHAR2
193 ,x_attribute4 IN VARCHAR2
194 ,x_attribute5 IN VARCHAR2
195 ,x_attribute6 IN VARCHAR2
196 ,x_attribute7 IN VARCHAR2
197 ,x_attribute8 IN VARCHAR2
198 ,x_attribute9 IN VARCHAR2
199 ,x_attribute10 IN VARCHAR2
200 ,x_attribute11 IN VARCHAR2
201 ,x_attribute12 IN VARCHAR2
202 ,x_attribute13 IN VARCHAR2
203 ,x_attribute14 IN VARCHAR2
204 ,x_attribute15 IN VARCHAR2
205 ,x_name IN VARCHAR2
206 ,x_lease_num IN VARCHAR2
207 ,x_lease_status IN VARCHAR2
208 ,x_lease_extension_end_date IN DATE
209 )
210 IS
211 CURSOR c1 IS
212 SELECT pld.*,
213 pll.name,
214 pll.lease_num,
215 pll.lease_status
216 FROM pn_lease_details_all pld,
217 pn_leases_all pll
218 WHERE pld.lease_detail_id = x_lease_detail_id
219 AND pld.lease_id = pll.lease_id
220 FOR UPDATE OF pld.lease_detail_id NOWAIT;
221
222 tlinfo c1%ROWTYPE;
223
224 BEGIN
225
226 pnp_debug_pkg.debug('PN_LEASE_DETAILS_PKG.Lock_Row (+)');
227
228 OPEN c1;
229 FETCH c1 INTO tlinfo;
230 IF(c1%NOTFOUND) THEN
231 CLOSE c1;
232 RETURN;
233 END IF;
234 CLOSE c1;
235
236 IF NOT (tlinfo.lease_change_id = x_lease_change_id) THEN
237 pn_var_rent_pkg.lock_row_exception('LEASE_CHANGE_ID',tlinfo.lease_change_id);
238 END IF;
239
240 IF NOT (tlinfo.lease_id = x_lease_id) THEN
241 pn_var_rent_pkg.lock_row_exception('LEASE_ID',tlinfo.lease_id);
242 END IF;
243
244 IF NOT ((tlinfo.responsible_user = x_responsible_user)
245 OR ((tlinfo.responsible_user IS NULL) AND (x_responsible_user IS NULL))) THEN
249 IF NOT ((tlinfo.expense_account_id = x_expense_account_id)
246 pn_var_rent_pkg.lock_row_exception('RESPONSIBLE_USER',tlinfo.responsible_user);
247 END IF;
248
250 OR ((tlinfo.expense_account_id IS NULL) AND (x_expense_account_id IS NULL))) THEN
251 pn_var_rent_pkg.lock_row_exception('EXPENSE_ACCOUNT_ID',tlinfo.expense_account_id);
252 END IF;
253
254 IF NOT ((tlinfo.lease_commencement_date = x_lease_commencement_date)
255 OR ((tlinfo.lease_commencement_date IS NULL) AND (x_lease_commencement_date IS NULL))) THEN
256 pn_var_rent_pkg.lock_row_exception('LEASE_COMMENCEMENT_DATE',tlinfo.lease_commencement_date);
257 END IF;
258
259 IF NOT ((tlinfo.lease_termination_date = x_lease_termination_date)
260 OR ((tlinfo.lease_termination_date IS NULL) AND (x_lease_termination_date IS NULL))) THEN
261 pn_var_rent_pkg.lock_row_exception('LEASE_TERMINATION_DATE',tlinfo.lease_termination_date);
262 END IF;
263
264 IF NOT ((tlinfo.lease_execution_date = x_lease_execution_date)
265 OR ((tlinfo.lease_execution_date IS NULL) AND (x_lease_execution_date IS NULL))) THEN
266 pn_var_rent_pkg.lock_row_exception('LEASE_EXECUTION_DATE',tlinfo.lease_execution_date);
267 END IF;
268
269 IF NOT ((tlinfo.accrual_account_id = x_accrual_account_id)
270 OR ((tlinfo.accrual_account_id IS NULL) AND (x_accrual_account_id IS NULL))) THEN
271 pn_var_rent_pkg.lock_row_exception('ACCRUAL_ACCOUNT_ID',tlinfo.accrual_account_id);
272 END IF;
273
274 IF NOT ((tlinfo.receivable_account_id = x_receivable_account_id)
275 OR ((tlinfo.receivable_account_id IS NULL) AND (x_receivable_account_id IS NULL))) THEN
276 pn_var_rent_pkg.lock_row_exception('RECEIVABLE_ACCOUNT_ID',tlinfo.receivable_account_id);
277 END IF;
278
279 IF NOT ((tlinfo.term_template_id = x_term_template_id)
280 OR ((tlinfo.term_template_id IS NULL) AND (x_term_template_id IS NULL))) THEN
281 pn_var_rent_pkg.lock_row_exception('TERM_TEMPLATE_ID',tlinfo.term_template_id);
282 END IF;
283
284 IF NOT ((tlinfo.lease_extension_end_date = x_lease_extension_end_date)
285 OR ((tlinfo.lease_extension_end_date IS NULL) AND (x_lease_extension_end_date IS NULL))) THEN
286 pn_var_rent_pkg.lock_row_exception('LEASE_EXTENSION_END_DATE',tlinfo.lease_extension_end_date);
287 END IF;
288
289 IF NOT ((tlinfo.attribute_category = x_attribute_category)
290 OR ((tlinfo.attribute_category IS NULL) AND (x_attribute_category IS NULL))) THEN
291 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE_CATEGORY',tlinfo.attribute_category);
292 END IF;
293
294 IF NOT ((tlinfo.attribute1 = x_attribute1)
295 OR ((tlinfo.attribute1 IS NULL) AND (x_attribute1 IS NULL))) THEN
296 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE1',tlinfo.attribute1);
297 END IF;
298
299 IF NOT ((tlinfo.attribute2 = x_attribute2)
300 OR ((tlinfo.attribute2 IS NULL) AND (x_attribute2 IS NULL))) THEN
301 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE2',tlinfo.attribute2);
302 END IF;
303
304 IF NOT ((tlinfo.attribute3 = x_attribute3)
305 OR ((tlinfo.attribute3 IS NULL) AND (x_attribute3 IS NULL))) THEN
306 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE3',tlinfo.attribute3);
307 END IF;
308
309 IF NOT ((tlinfo.attribute4 = x_attribute4)
310 OR ((tlinfo.attribute4 IS NULL) AND (x_attribute4 IS NULL))) THEN
311 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE4',tlinfo.attribute4);
312 END IF;
313
314 IF NOT ((tlinfo.attribute5 = x_attribute5)
315 OR ((tlinfo.attribute5 IS NULL) AND (x_attribute5 IS NULL))) THEN
316 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE5',tlinfo.attribute5);
317 END IF;
318
319 IF NOT ((tlinfo.attribute6 = x_attribute6)
320 OR ((tlinfo.attribute6 IS NULL) AND (x_attribute6 IS NULL))) THEN
321 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE6',tlinfo.attribute6);
322 END IF;
323
324 IF NOT ((tlinfo.attribute7 = x_attribute7)
325 OR ((tlinfo.attribute7 IS NULL) AND (x_attribute7 IS NULL))) THEN
326 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE7',tlinfo.attribute7);
327 END IF;
328
329 IF NOT ((tlinfo.attribute8 = x_attribute8)
330 OR ((tlinfo.attribute8 IS NULL) AND (x_attribute8 IS NULL))) THEN
331 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE8',tlinfo.attribute8);
332 END IF;
333
334 IF NOT ((tlinfo.attribute9 = x_attribute9)
335 OR ((tlinfo.attribute9 IS NULL) AND (x_attribute9 IS NULL))) THEN
336 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE9',tlinfo.attribute9);
337 END IF;
338
339 IF NOT ((tlinfo.attribute10 = x_attribute10)
340 OR ((tlinfo.attribute10 IS NULL) AND (x_attribute10 IS NULL))) THEN
341 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE10',tlinfo.attribute10);
342 END IF;
343
344 IF NOT ((tlinfo.attribute11 = x_attribute11)
345 OR ((tlinfo.attribute11 IS NULL) AND (x_attribute11 IS NULL))) THEN
346 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE11',tlinfo.attribute11);
347 END IF;
348
349 IF NOT ((tlinfo.attribute12 = x_attribute12)
350 OR ((tlinfo.attribute12 IS NULL) AND (x_attribute12 IS NULL))) THEN
351 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE12',tlinfo.attribute12);
352 END IF;
353
354 IF NOT ((tlinfo.attribute13 = x_attribute13)
355 OR ((tlinfo.attribute13 IS NULL) AND (x_attribute13 IS NULL))) THEN
356 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE13',tlinfo.attribute13);
357 END IF;
358
359 IF NOT ((tlinfo.attribute14 = x_attribute14)
360 OR ((tlinfo.attribute14 IS NULL) AND (x_attribute14 IS NULL))) THEN
361 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE14',tlinfo.attribute14);
362 END IF;
366 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE15',tlinfo.attribute15);
363
364 IF NOT ((tlinfo.attribute15 = x_attribute15)
365 OR ((tlinfo.attribute15 IS NULL) AND (x_attribute15 IS NULL))) THEN
367 END IF;
368
369 IF NOT ((tlinfo.name = x_name)
370 OR ((tlinfo.name IS NULL) AND (x_name IS NULL))) THEN
371 pn_var_rent_pkg.lock_row_exception('NAME',tlinfo.name);
372 END IF;
373
374 IF NOT ((tlinfo.lease_num = x_lease_num)
375 OR ((tlinfo.lease_num IS NULL) AND (x_lease_num IS NULL))) THEN
376 pn_var_rent_pkg.lock_row_exception('LEASE_NUM',tlinfo.lease_num);
377 END IF;
378
379 IF NOT ((tlinfo.lease_status = x_lease_status)
380 OR ((tlinfo.lease_status IS NULL) AND (x_lease_status IS NULL))) THEN
381 pn_var_rent_pkg.lock_row_exception('LEASE_STATUS',tlinfo.lease_status);
382 END IF;
383
384 IF NOT ((tlinfo.grouping_rule_id = x_grouping_rule_id)
385 OR ((tlinfo.grouping_rule_id IS NULL) AND (x_grouping_rule_id IS NULL))) THEN
386 pn_var_rent_pkg.lock_row_exception('GROUPING_RULE_ID',tlinfo.grouping_rule_id);
387 END IF;
388
389 RETURN;
390
391 pnp_debug_pkg.debug('PN_LEASE_DETAILS_PKG.Lock_Row (-)');
392
393 END Lock_Row;
394
395 -------------------------------------------------------------------------------
396 -- PROCDURE : INSERT_ROW
397 -- INVOKED FROM : insert_row procedure
398 -- PURPOSE : inserts the row
399 -- HISTORY :
400 -- 19-MAR-02 lkatputu o Added Send_Entries into the table handler
401 -- as per the 'DO NOT SEND' enhancement requirement.
402 -- 11-APR-02 lkatputu o Bug Fix for the ID#2300965.
403 -- Added the sEND_entries column IN the
404 -- PN_LEASE_DETAILS_HISTORY update
405 -- to get a before and after picture for the sEND_entries.
406 -- 25-SEP-02 graghuna o Added parameter x_lease_status_old.
407 -- 25-OCT-02 STripathi o Removed parametes x_name_old, x_lease_num_old and
408 -- x_lease_status_old. Added columns name, lease_num,
409 -- lease_status in CURSOR c2.
410 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_lease_details, pn_leases
411 -- with _ALL table.
412 -------------------------------------------------------------------------------
413 PROCEDURE Update_Row
414 (
415 x_lease_detail_id IN NUMBER
416 ,x_lease_change_id IN NUMBER
417 ,x_lease_id IN NUMBER
418 ,x_responsible_user IN NUMBER
419 ,x_expense_account_id IN NUMBER
420 ,x_lease_commencement_date IN DATE
421 ,x_lease_termination_date IN DATE
422 ,x_lease_execution_date IN DATE
423 ,x_last_update_date IN DATE
424 ,x_last_updated_by IN NUMBER
425 ,x_last_update_login IN NUMBER
426 ,x_accrual_account_id IN NUMBER
427 ,x_receivable_account_id IN NUMBER
428 ,x_term_template_id IN NUMBER
429 ,x_grouping_rule_id IN NUMBER
430 ,x_attribute_category IN VARCHAR2
431 ,x_attribute1 IN VARCHAR2
432 ,x_attribute2 IN VARCHAR2
433 ,x_attribute3 IN VARCHAR2
434 ,x_attribute4 IN VARCHAR2
435 ,x_attribute5 IN VARCHAR2
436 ,x_attribute6 IN VARCHAR2
437 ,x_attribute7 IN VARCHAR2
438 ,x_attribute8 IN VARCHAR2
439 ,x_attribute9 IN VARCHAR2
440 ,x_attribute10 IN VARCHAR2
441 ,x_attribute11 IN VARCHAR2
442 ,x_attribute12 IN VARCHAR2
443 ,x_attribute13 IN VARCHAR2
444 ,x_attribute14 IN VARCHAR2
445 ,x_attribute15 IN VARCHAR2
446 ,x_lease_extension_end_date IN DATE
447 )
448 IS
449 CURSOR c2 IS
450 SELECT ldt.*, pnl.name, pnl.lease_num, pnl.lease_status
451 FROM pn_lease_details_all ldt,
452 pn_leases_all pnl
453 WHERE lease_detail_id = x_lease_detail_id
454 AND ldt.lease_id = pnl.lease_id;
455
456 recInfoForHist c2%ROWTYPE;
457 l_leaseStatus VARCHAR2(30):= NULL;
458
459 BEGIN
460
461 pnp_debug_pkg.debug('PN_LEASE_DETAILS_PKG.Update_Row (+)');
462
463 -- get the lease status
464 l_leaseStatus := PNP_UTIL_FUNC.get_lease_status(x_lease_id);
465
466 -- We need to INSERT the history row IFthe lease IS finalised
467 IF(l_leaseStatus = 'F') THEN
468
469 OPEN c2;
470 FETCH c2 INTO recInfoForHist;
471 IF(c2%NOTFOUND) THEN
472 CLOSE c2;
473 RAISE NO_DATA_FOUND;
474 END IF;
475 CLOSE c2;
476
477 IF(recInfoForHist.lease_change_id <> x_lease_change_id) THEN
478
479 INSERT INTO pn_lease_details_history
480 (
481 detail_history_id
482 ,lease_detail_id
483 ,lease_change_id
484 ,new_lease_change_id
485 ,lease_id
486 ,responsible_user
487 ,expense_account_id
488 ,lease_commencement_date
489 ,lease_termination_date
490 ,lease_execution_date
491 ,creation_date
492 ,created_by
493 ,last_update_date
494 ,last_updated_by
495 ,last_update_login
496 ,attribute_category
497 ,attribute1
498 ,attribute2
499 ,attribute3
500 ,attribute4
501 ,attribute5
502 ,attribute6
503 ,attribute7
504 ,attribute8
505 ,attribute9
506 ,attribute10
507 ,attribute11
508 ,attribute12
509 ,attribute13
510 ,attribute14
511 ,attribute15
512 ,name
513 ,lease_num
514 ,lease_status
515 ,lease_extension_end_date
516 )
517 VALUES
518 (
519 pn_lease_details_history_s.NEXTVAL
520 ,recInfoForHist.lease_detail_id
521 ,recInfoForHist.lease_change_id
522 ,x_lease_change_id
523 ,recInfoForHist.lease_id
524 ,recInfoForHist.responsible_user
525 ,recInfoForHist.expense_account_id
526 ,recInfoForHist.lease_commencement_date
527 ,recInfoForHist.lease_termination_date
528 ,recInfoForHist.lease_execution_date
529 ,recInfoForHist.creation_date
530 ,recInfoForHist.created_by
531 ,recInfoForHist.last_update_date
532 ,recInfoForHist.last_updated_by
533 ,recInfoForHist.last_update_login
534 ,recInfoForHist.attribute_category
535 ,recInfoForHist.attribute1
536 ,recInfoForHist.attribute2
537 ,recInfoForHist.attribute3
538 ,recInfoForHist.attribute4
539 ,recInfoForHist.attribute5
540 ,recInfoForHist.attribute6
541 ,recInfoForHist.attribute7
542 ,recInfoForHist.attribute8
543 ,recInfoForHist.attribute9
544 ,recInfoForHist.attribute10
545 ,recInfoForHist.attribute11
546 ,recInfoForHist.attribute12
547 ,recInfoForHist.attribute13
548 ,recInfoForHist.attribute14
549 ,recInfoForHist.attribute15
550 ,recInfoForHist.name
551 ,recInfoForHist.lease_num
552 ,recInfoForHist.lease_status
553 ,recInfoForHist.lease_extension_end_date
554 );
555 END IF;
556 END IF;
557
558 UPDATE pn_lease_details_all
559 SET lease_change_id = x_lease_change_id
560 ,responsible_user = x_responsible_user
561 ,expense_account_id = x_expense_account_id
562 ,lease_commencement_date = x_lease_commencement_date
563 ,lease_termination_date = x_lease_termination_date
564 ,lease_execution_date = x_lease_execution_date
565 ,last_update_date = x_last_update_date
566 ,last_updated_by = x_last_updated_by
567 ,last_update_login = x_last_update_login
568 ,accrual_account_id = x_accrual_account_id
569 ,receivable_account_id = x_receivable_account_id
570 ,term_template_id = x_term_template_id
571 ,grouping_rule_id = x_grouping_rule_id
572 ,lease_extension_end_date = x_lease_extension_end_date
573 ,attribute_category = x_attribute_category
574 ,attribute1 = x_attribute1
575 ,attribute2 = x_attribute2
576 ,attribute3 = x_attribute3
577 ,attribute4 = x_attribute4
578 ,attribute5 = x_attribute5
579 ,attribute6 = x_attribute6
580 ,attribute7 = x_attribute7
581 ,attribute8 = x_attribute8
582 ,attribute9 = x_attribute9
583 ,attribute10 = x_attribute10
584 ,attribute11 = x_attribute11
585 ,attribute12 = x_attribute12
586 ,attribute13 = x_attribute13
587 ,attribute14 = x_attribute14
588 ,attribute15 = x_attribute15
589 WHERE lease_detail_id = x_lease_detail_id;
590
591 IF(SQL%NOTFOUND) THEN
592 RAISE NO_DATA_FOUND;
593 END IF;
594
595 pnp_debug_pkg.debug('PN_LEASE_DETAILS_PKG.Update_Row (-)');
596
597 END Update_Row;
598
599 -------------------------------------------------------------------------------
600 -- PROCDURE : Delete_Row
601 -- INVOKED FROM : Delete_Row procedure
602 -- PURPOSE : deletes the row
603 -- HISTORY :
604 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_lease_details with
605 -- _ALL table.
606 -------------------------------------------------------------------------------
607 PROCEDURE Delete_Row
608 (
609 x_lease_detail_id IN NUMBER
610 )
611 IS
612 BEGIN
613
614 pnp_debug_pkg.debug('PN_LEASE_DETAILS_PKG.Delete_Row (+)');
615
616 DELETE FROM pn_lease_details_all
617 WHERE lease_detail_id = x_lease_detail_id;
618
619 IF(SQL%NOTFOUND) THEN
620 RAISE NO_DATA_FOUND;
621 END IF;
622
623 pnp_debug_pkg.debug('PN_LEASE_DETAILS_PKG.Delete_Row (-)');
624
625 END Delete_Row;
626
627 END pn_lease_details_pkg;
[Home] [Help]