1 PACKAGE BODY pn_rights_pkg AS
2 /* $Header: PNRIGHTB.pls 120.2 2005/12/01 03:27:15 appldev ship $ */
3 -------------------------------------------------------------------------------
4 -- PROCDURE : INSERT_ROW
5 -- INVOKED FROM : insert_row procedure
6 -- PURPOSE : inserts the row
7 -- HISTORY :
8 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_rights with _ALL table.
9 -------------------------------------------------------------------------------
10 PROCEDURE INSERT_ROW (
11 X_ROWID IN OUT NOCOPY VARCHAR2,
12 X_RIGHT_ID IN OUT NOCOPY NUMBER,
13 X_RIGHT_NUM IN OUT NOCOPY NUMBER,
14 X_LEASE_ID IN NUMBER,
15 X_LEASE_CHANGE_ID IN NUMBER,
16 X_RIGHT_TYPE_CODE IN VARCHAR2,
17 X_RIGHT_STATUS_CODE IN VARCHAR2,
18 X_RIGHT_REFERENCE IN VARCHAR2,
19 X_START_DATE IN DATE,
20 X_EXPIRATION_DATE IN DATE,
21 X_RIGHT_COMMENTS IN VARCHAR2,
22 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
23 X_ATTRIBUTE1 IN VARCHAR2,
27 X_ATTRIBUTE5 IN VARCHAR2,
24 X_ATTRIBUTE2 IN VARCHAR2,
25 X_ATTRIBUTE3 IN VARCHAR2,
26 X_ATTRIBUTE4 IN VARCHAR2,
28 X_ATTRIBUTE6 IN VARCHAR2,
29 X_ATTRIBUTE7 IN VARCHAR2,
30 X_ATTRIBUTE8 IN VARCHAR2,
31 X_ATTRIBUTE9 IN VARCHAR2,
32 X_ATTRIBUTE10 IN VARCHAR2,
33 X_ATTRIBUTE11 IN VARCHAR2,
34 X_ATTRIBUTE12 IN VARCHAR2,
35 X_ATTRIBUTE13 IN VARCHAR2,
36 X_ATTRIBUTE14 IN VARCHAR2,
37 X_ATTRIBUTE15 IN VARCHAR2,
38 X_CREATION_DATE IN DATE,
39 X_CREATED_BY IN NUMBER,
40 X_LAST_UPDATE_DATE IN DATE,
41 X_LAST_UPDATED_BY IN NUMBER,
42 X_LAST_UPDATE_LOGIN IN NUMBER,
43 x_org_id IN NUMBER
44 )
45 IS
46
47 CURSOR rights IS
48 SELECT ROWID
49 FROM pn_rights_all
50 WHERE right_id = x_right_id;
51
52 CURSOR org_cur IS
53 SELECT org_id FROM pn_leases_all WHERE lease_id = x_lease_id;
54
55 l_org_id NUMBER;
56
57 BEGIN
58
59 pnp_debug_pkg.debug ('PN_RIGHTS_PKG.INSERT_ROW (+)');
60
61 -------------------------------------------------------
62 -- We need to generate the right number
63 -------------------------------------------------------
64 SELECT NVL(MAX(pnr.right_num),0)
65 INTO x_right_num
66 FROM pn_rights_all pnr
67 WHERE pnr.lease_id = x_lease_id;
68
69 X_RIGHT_NUM := X_RIGHT_NUM + 1;
70
71 -------------------------------------------------------
72 -- SELECT the nextval for right id
73 -------------------------------------------------------
74 IF ( X_RIGHT_ID IS NULL) THEN
75
76 SELECT pn_rights_s.NEXTVAL
77 INTO x_right_id
78 FROM DUAL;
79 END IF;
80
81 IF x_org_id IS NULL THEN
82 FOR rec IN org_cur LOOP
83 l_org_id := rec.org_id;
84 END LOOP;
85 ELSE
86 l_org_id := x_org_id;
87 END IF;
88
89
90 INSERT INTO PN_RIGHTS_ALL
91 (
92 RIGHT_ID,
93 LAST_UPDATE_DATE,
94 LAST_UPDATED_BY,
95 CREATION_DATE,
96 CREATED_BY,
97 LAST_UPDATE_LOGIN,
98 LEASE_ID,
99 LEASE_CHANGE_ID,
100 RIGHT_NUM,
101 RIGHT_TYPE_CODE,
102 RIGHT_STATUS_CODE,
103 RIGHT_REFERENCE,
104 START_DATE,
105 EXPIRATION_DATE,
106 RIGHT_COMMENTS,
107 ATTRIBUTE_CATEGORY,
108 ATTRIBUTE1,
109 ATTRIBUTE2,
110 ATTRIBUTE3,
111 ATTRIBUTE4,
112 ATTRIBUTE5,
113 ATTRIBUTE6,
114 ATTRIBUTE7,
115 ATTRIBUTE8,
116 ATTRIBUTE9,
117 ATTRIBUTE10,
118 ATTRIBUTE11,
119 ATTRIBUTE12,
120 ATTRIBUTE13,
121 ATTRIBUTE14,
122 ATTRIBUTE15,
123 org_id
124 )
125 VALUES
126 (
127 X_RIGHT_ID,
128 X_LAST_UPDATE_DATE,
129 X_LAST_UPDATED_BY,
130 X_CREATION_DATE,
131 X_CREATED_BY,
132 X_LAST_UPDATE_LOGIN,
133 X_LEASE_ID,
134 X_LEASE_CHANGE_ID,
135 X_RIGHT_NUM,
136 X_RIGHT_TYPE_CODE,
137 X_RIGHT_STATUS_CODE,
138 X_RIGHT_REFERENCE,
139 X_START_DATE,
140 X_EXPIRATION_DATE,
141 X_RIGHT_COMMENTS,
142 X_ATTRIBUTE_CATEGORY,
143 X_ATTRIBUTE1,
144 X_ATTRIBUTE2,
145 X_ATTRIBUTE3,
146 X_ATTRIBUTE4,
147 X_ATTRIBUTE5,
148 X_ATTRIBUTE6,
149 X_ATTRIBUTE7,
150 X_ATTRIBUTE8,
151 X_ATTRIBUTE9,
152 X_ATTRIBUTE10,
153 X_ATTRIBUTE11,
154 X_ATTRIBUTE12,
155 X_ATTRIBUTE13,
156 X_ATTRIBUTE14,
157 X_ATTRIBUTE15,
158 l_org_id
159 );
160
161 OPEN rights;
162 FETCH rights INTO X_ROWID;
163 IF (rights%NOTFOUND) THEN
164 CLOSE rights;
165 RAISE NO_DATA_FOUND;
166 END IF;
167 CLOSE rights;
168
169 pnp_debug_pkg.debug ('PN_RIGHTS_PKG.INSERT_ROW (-)');
170
171 END INSERT_ROW;
172
173 -------------------------------------------------------------------------------
174 -- PROCDURE : LOCK_ROW
175 -- INVOKED FROM : LOCK_ROW procedure
176 -- PURPOSE : locks the row
177 -- HISTORY :
178 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_rights with _ALL table.
179 -------------------------------------------------------------------------------
180 PROCEDURE LOCK_ROW
181 (
182 X_RIGHT_ID IN NUMBER,
183 X_LEASE_ID IN NUMBER,
184 X_LEASE_CHANGE_ID IN NUMBER,
185 X_RIGHT_NUM IN NUMBER,
189 X_START_DATE IN DATE,
186 X_RIGHT_TYPE_CODE IN VARCHAR2,
187 X_RIGHT_STATUS_CODE IN VARCHAR2,
188 X_RIGHT_REFERENCE IN VARCHAR2,
190 X_EXPIRATION_DATE IN DATE,
191 X_RIGHT_COMMENTS IN VARCHAR2,
192 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
193 X_ATTRIBUTE1 IN VARCHAR2,
194 X_ATTRIBUTE2 IN VARCHAR2,
195 X_ATTRIBUTE3 IN VARCHAR2,
196 X_ATTRIBUTE4 IN VARCHAR2,
197 X_ATTRIBUTE5 IN VARCHAR2,
198 X_ATTRIBUTE6 IN VARCHAR2,
199 X_ATTRIBUTE7 IN VARCHAR2,
200 X_ATTRIBUTE8 IN VARCHAR2,
201 X_ATTRIBUTE9 IN VARCHAR2,
202 X_ATTRIBUTE10 IN VARCHAR2,
203 X_ATTRIBUTE11 IN VARCHAR2,
204 X_ATTRIBUTE12 IN VARCHAR2,
205 X_ATTRIBUTE13 IN VARCHAR2,
206 X_ATTRIBUTE14 IN VARCHAR2,
207 X_ATTRIBUTE15 IN VARCHAR2
208 )
209 IS
210 CURSOR c1 IS
211 SELECT *
212 FROM pn_rights_all
213 WHERE right_id = x_right_id
214 FOR UPDATE OF right_id NOWAIT;
215
216 tlinfo c1%ROWTYPE;
217
218 BEGIN
219
220 pnp_debug_pkg.debug ('PN_RIGHTS_PKG.LOCK_ROW (+)');
221
222 OPEN c1;
223 FETCH c1 INTO tlinfo;
224 IF (c1%NOTFOUND) THEN
225 CLOSE c1;
226 RETURN;
227 END IF;
228 CLOSE c1;
229
230 IF NOT (tlinfo.RIGHT_ID = X_RIGHT_ID) THEN
231 pn_var_rent_pkg.lock_row_exception('RIGHT_ID',tlinfo.RIGHT_ID);
232 END IF;
233
234 IF NOT (tlinfo.LEASE_ID = X_LEASE_ID) THEN
235 pn_var_rent_pkg.lock_row_exception('LEASE_ID',tlinfo.LEASE_ID);
236 END IF;
237
238 IF NOT (tlinfo.LEASE_CHANGE_ID = X_LEASE_CHANGE_ID) THEN
239 pn_var_rent_pkg.lock_row_exception('LEASE_CHANGE_ID',tlinfo.LEASE_CHANGE_ID);
240 END IF;
241
242 IF NOT (tlinfo.RIGHT_NUM = X_RIGHT_NUM) THEN
243 pn_var_rent_pkg.lock_row_exception('RIGHT_NUM',tlinfo.RIGHT_NUM);
244 END IF;
245
246 IF NOT (tlinfo.RIGHT_TYPE_CODE = X_RIGHT_TYPE_CODE) THEN
247 pn_var_rent_pkg.lock_row_exception('RIGHT_TYPE_CODE',tlinfo.RIGHT_TYPE_CODE);
248 END IF;
249
250 IF NOT (tlinfo.RIGHT_STATUS_CODE = X_RIGHT_STATUS_CODE) THEN
251 pn_var_rent_pkg.lock_row_exception('RIGHT_STATUS_CODE',tlinfo.RIGHT_STATUS_CODE);
252 END IF;
253
254 IF NOT ((tlinfo.RIGHT_REFERENCE = X_RIGHT_REFERENCE)
255 OR ((tlinfo.RIGHT_REFERENCE IS NULL) AND (X_RIGHT_REFERENCE IS NULL))) THEN
256 pn_var_rent_pkg.lock_row_exception('RIGHT_REFERENCE',tlinfo.RIGHT_REFERENCE);
257 END IF;
258
259 IF NOT ((tlinfo.START_DATE = X_START_DATE)
260 OR ((tlinfo.START_DATE IS NULL) AND (X_START_DATE IS NULL))) THEN
261 pn_var_rent_pkg.lock_row_exception('START_DATE',tlinfo.START_DATE);
262 END IF;
263
264 IF NOT ((tlinfo.EXPIRATION_DATE = X_EXPIRATION_DATE)
265 OR ((tlinfo.EXPIRATION_DATE IS NULL) AND (X_EXPIRATION_DATE IS NULL))) THEN
266 pn_var_rent_pkg.lock_row_exception('EXPIRATION_DATE',tlinfo.EXPIRATION_DATE);
267 END IF;
268
269 IF NOT ((tlinfo.RIGHT_COMMENTS = X_RIGHT_COMMENTS)
270 OR ((tlinfo.RIGHT_COMMENTS IS NULL) AND (X_RIGHT_COMMENTS IS NULL))) THEN
271 pn_var_rent_pkg.lock_row_exception('RIGHT_COMMENTS',tlinfo.RIGHT_COMMENTS);
272 END IF;
273
274 IF NOT ((tlinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
275 OR ((tlinfo.ATTRIBUTE_CATEGORY IS NULL) AND (X_ATTRIBUTE_CATEGORY IS NULL))) THEN
276 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE_CATEGORY',tlinfo.ATTRIBUTE_CATEGORY);
277 END IF;
278
279 IF NOT ((tlinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
280 OR ((tlinfo.ATTRIBUTE1 IS NULL) AND (X_ATTRIBUTE1 IS NULL))) THEN
281 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE1',tlinfo.ATTRIBUTE1);
282 END IF;
283
284 IF NOT ((tlinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
285 OR ((tlinfo.ATTRIBUTE2 IS NULL) AND (X_ATTRIBUTE2 IS NULL))) THEN
286 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE2',tlinfo.ATTRIBUTE2);
287 END IF;
288
289 IF NOT ((tlinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
290 OR ((tlinfo.ATTRIBUTE3 IS NULL) AND (X_ATTRIBUTE3 IS NULL))) THEN
291 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE3',tlinfo.ATTRIBUTE3);
292 END IF;
293
294 IF NOT ((tlinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
295 OR ((tlinfo.ATTRIBUTE4 IS NULL) AND (X_ATTRIBUTE4 IS NULL))) THEN
296 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE4',tlinfo.ATTRIBUTE4);
297 END IF;
298
299 IF NOT ((tlinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
300 OR ((tlinfo.ATTRIBUTE5 IS NULL) AND (X_ATTRIBUTE5 IS NULL))) THEN
301 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE5',tlinfo.ATTRIBUTE5);
302 END IF;
303
304 IF NOT ((tlinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
305 OR ((tlinfo.ATTRIBUTE6 IS NULL) AND (X_ATTRIBUTE6 IS NULL))) THEN
306 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE6',tlinfo.ATTRIBUTE6);
307 END IF;
308
309 IF NOT ((tlinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
310 OR ((tlinfo.ATTRIBUTE7 IS NULL) AND (X_ATTRIBUTE7 IS NULL))) THEN
311 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE7',tlinfo.ATTRIBUTE7);
312 END IF;
313
314 IF NOT ((tlinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
315 OR ((tlinfo.ATTRIBUTE8 IS NULL) AND (X_ATTRIBUTE8 IS NULL))) THEN
316 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE8',tlinfo.ATTRIBUTE8);
317 END IF;
321 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE9',tlinfo.ATTRIBUTE9);
318
319 IF NOT ((tlinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
320 OR ((tlinfo.ATTRIBUTE9 IS NULL) AND (X_ATTRIBUTE9 IS NULL))) THEN
322 END IF;
323
324 IF NOT ((tlinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
325 OR ((tlinfo.ATTRIBUTE10 IS NULL) AND (X_ATTRIBUTE10 IS NULL))) THEN
326 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE10',tlinfo.ATTRIBUTE10);
327 END IF;
328
329 IF NOT ((tlinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
330 OR ((tlinfo.ATTRIBUTE11 IS NULL) AND (X_ATTRIBUTE11 IS NULL))) THEN
331 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE11',tlinfo.ATTRIBUTE11);
332 END IF;
333
334 IF NOT ((tlinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
335 OR ((tlinfo.ATTRIBUTE12 IS NULL) AND (X_ATTRIBUTE12 IS NULL))) THEN
336 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE12',tlinfo.ATTRIBUTE12);
337 END IF;
338
339 IF NOT ((tlinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
340 OR ((tlinfo.ATTRIBUTE13 IS NULL) AND (X_ATTRIBUTE13 IS NULL))) THEN
341 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE13',tlinfo.ATTRIBUTE13);
342 END IF;
343
344 IF NOT ((tlinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
345 OR ((tlinfo.ATTRIBUTE14 IS NULL) AND (X_ATTRIBUTE14 IS NULL))) THEN
346 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE14',tlinfo.ATTRIBUTE14);
347 END IF;
348
349 IF NOT ((tlinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
350 OR ((tlinfo.ATTRIBUTE15 IS NULL) AND (X_ATTRIBUTE15 IS NULL))) THEN
351 pn_var_rent_pkg.lock_row_exception('ATTRIBUTE15',tlinfo.ATTRIBUTE15);
352 END IF;
353
354 pnp_debug_pkg.debug ('PN_RIGHTS_PKG.LOCK_ROW (-)');
355
356 END LOCK_ROW;
357
358 -------------------------------------------------------------------------------
359 -- PROCDURE : UPDATE_ROW
360 -- INVOKED FROM : UPDATE_ROW procedure
361 -- PURPOSE : updates the row
362 -- HISTORY :
363 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_rights with _ALL table.
364 -------------------------------------------------------------------------------
365 PROCEDURE UPDATE_ROW (
366 X_RIGHT_ID IN NUMBER,
367 X_LEASE_ID IN NUMBER,
368 X_LEASE_CHANGE_ID IN NUMBER,
369 X_RIGHT_NUM IN NUMBER,
370 X_RIGHT_TYPE_CODE IN VARCHAR2,
371 X_RIGHT_STATUS_CODE IN VARCHAR2,
372 X_RIGHT_REFERENCE IN VARCHAR2,
373 X_START_DATE IN DATE,
374 X_EXPIRATION_DATE IN DATE,
375 X_RIGHT_COMMENTS IN VARCHAR2,
376 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
377 X_ATTRIBUTE1 IN VARCHAR2,
378 X_ATTRIBUTE2 IN VARCHAR2,
379 X_ATTRIBUTE3 IN VARCHAR2,
380 X_ATTRIBUTE4 IN VARCHAR2,
381 X_ATTRIBUTE5 IN VARCHAR2,
382 X_ATTRIBUTE6 IN VARCHAR2,
383 X_ATTRIBUTE7 IN VARCHAR2,
384 X_ATTRIBUTE8 IN VARCHAR2,
385 X_ATTRIBUTE9 IN VARCHAR2,
386 X_ATTRIBUTE10 IN VARCHAR2,
387 X_ATTRIBUTE11 IN VARCHAR2,
388 X_ATTRIBUTE12 IN VARCHAR2,
389 X_ATTRIBUTE13 IN VARCHAR2,
390 X_ATTRIBUTE14 IN VARCHAR2,
391 X_ATTRIBUTE15 IN VARCHAR2,
392 X_LAST_UPDATE_DATE IN DATE,
393 X_LAST_UPDATED_BY IN NUMBER,
394 X_LAST_UPDATE_LOGIN IN NUMBER
395 )
396 IS
397 CURSOR c2 IS
398 SELECT *
399 FROM pn_rights_all
400 WHERE right_id = x_right_id;
401
402 recInfoForHist c2%ROWTYPE;
403 l_rightHistoryId NUMBER := NULL;
404 l_leaseStatus VARCHAR2(30) := NULL;
405
406 BEGIN
407 pnp_debug_pkg.debug ('PN_RIGHTS_PKG.UPDATE_ROW (+)');
408
409 ----------------------------------------------------
410 -- get the lease status
411 ----------------------------------------------------
412 l_leaseStatus := PNP_UTIL_FUNC.GET_LEASE_STATUS (X_LEASE_ID);
413
414 ---------------------------------------------------------------
415 -- We need to INSERT the history row IF the lease IS finalised
416 ---------------------------------------------------------------
417 IF (l_leaseStatus = 'F') THEN
418
419 OPEN c2;
420 FETCH c2 INTO recInfoForHist;
421 IF (c2%NOTFOUND) THEN
422 CLOSE c2;
423 RAISE NO_DATA_FOUND;
424 END IF;
425 CLOSE c2;
426
427 IF (recInfoForHist.LEASE_CHANGE_ID <> X_LEASE_CHANGE_ID) THEN
428
429 SELECT PN_RIGHTS_HISTORY_S.NEXTVAL
430 INTO l_rightHistoryId
431 FROM DUAL;
432
433 INSERT INTO PN_RIGHTS_HISTORY
434 (
435 RIGHT_HISTORY_ID,
436 RIGHT_ID,
437 LAST_UPDATE_DATE,
438 LAST_UPDATED_BY,
439 CREATION_DATE,
440 CREATED_BY,
441 LAST_UPDATE_LOGIN,
442 LEASE_ID,
443 LEASE_CHANGE_ID,
444 NEW_LEASE_CHANGE_ID,
445 RIGHT_NUM,
446 RIGHT_TYPE_CODE,
447 RIGHT_STATUS_CODE,
451 RIGHT_COMMENTS,
448 RIGHT_REFERENCE,
449 START_DATE,
450 EXPIRATION_DATE,
452 ATTRIBUTE_CATEGORY,
453 ATTRIBUTE1,
454 ATTRIBUTE2,
455 ATTRIBUTE3,
456 ATTRIBUTE4,
457 ATTRIBUTE5,
458 ATTRIBUTE6,
459 ATTRIBUTE7,
460 ATTRIBUTE8,
461 ATTRIBUTE9,
462 ATTRIBUTE10,
463 ATTRIBUTE11,
464 ATTRIBUTE12,
465 ATTRIBUTE13,
466 ATTRIBUTE14,
467 ATTRIBUTE15
468 )
469 VALUES
470 (
471 l_rightHistoryId,
472 recInfoForHist.RIGHT_ID,
473 recInfoForHist.LAST_UPDATE_DATE,
474 recInfoForHist.LAST_UPDATED_BY,
475 recInfoForHist.CREATION_DATE,
476 recInfoForHist.CREATED_BY,
477 recInfoForHist.LAST_UPDATE_LOGIN,
478 recInfoForHist.LEASE_ID,
479 recInfoForHist.LEASE_CHANGE_ID,
480 X_LEASE_CHANGE_ID,
481 recInfoForHist.RIGHT_NUM,
482 recInfoForHist.RIGHT_TYPE_CODE,
483 recInfoForHist.RIGHT_STATUS_CODE,
484 recInfoForHist.RIGHT_REFERENCE,
485 recInfoForHist.START_DATE,
486 recInfoForHist.EXPIRATION_DATE,
487 recInfoForHist.RIGHT_COMMENTS,
488 recInfoForHist.ATTRIBUTE_CATEGORY,
489 recInfoForHist.ATTRIBUTE1,
490 recInfoForHist.ATTRIBUTE2,
491 recInfoForHist.ATTRIBUTE3,
492 recInfoForHist.ATTRIBUTE4,
493 recInfoForHist.ATTRIBUTE5,
494 recInfoForHist.ATTRIBUTE6,
495 recInfoForHist.ATTRIBUTE7,
496 recInfoForHist.ATTRIBUTE8,
497 recInfoForHist.ATTRIBUTE9,
498 recInfoForHist.ATTRIBUTE10,
499 recInfoForHist.ATTRIBUTE11,
500 recInfoForHist.ATTRIBUTE12,
501 recInfoForHist.ATTRIBUTE13,
502 recInfoForHist.ATTRIBUTE14,
503 recInfoForHist.ATTRIBUTE15
504 );
505 END IF;
506 END IF;
507
508 UPDATE PN_RIGHTS_ALL
509 SET LEASE_ID = X_LEASE_ID,
510 LEASE_CHANGE_ID = X_LEASE_CHANGE_ID,
511 RIGHT_NUM = X_RIGHT_NUM,
512 RIGHT_TYPE_CODE = X_RIGHT_TYPE_CODE,
513 RIGHT_STATUS_CODE = X_RIGHT_STATUS_CODE,
514 RIGHT_REFERENCE = X_RIGHT_REFERENCE,
515 START_DATE = X_START_DATE,
516 EXPIRATION_DATE = X_EXPIRATION_DATE,
517 RIGHT_COMMENTS = X_RIGHT_COMMENTS,
518 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
519 ATTRIBUTE1 = X_ATTRIBUTE1,
520 ATTRIBUTE2 = X_ATTRIBUTE2,
521 ATTRIBUTE3 = X_ATTRIBUTE3,
522 ATTRIBUTE4 = X_ATTRIBUTE4,
523 ATTRIBUTE5 = X_ATTRIBUTE5,
524 ATTRIBUTE6 = X_ATTRIBUTE6,
525 ATTRIBUTE7 = X_ATTRIBUTE7,
526 ATTRIBUTE8 = X_ATTRIBUTE8,
527 ATTRIBUTE9 = X_ATTRIBUTE9,
528 ATTRIBUTE10 = X_ATTRIBUTE10,
529 ATTRIBUTE11 = X_ATTRIBUTE11,
530 ATTRIBUTE12 = X_ATTRIBUTE12,
531 ATTRIBUTE13 = X_ATTRIBUTE13,
532 ATTRIBUTE14 = X_ATTRIBUTE14,
533 ATTRIBUTE15 = X_ATTRIBUTE15,
534 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
535 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
536 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
537 WHERE RIGHT_ID = X_RIGHT_ID;
538
539 IF (SQL%NOTFOUND) THEN
540 RAISE NO_DATA_FOUND;
541 END IF;
542
543 pnp_debug_pkg.debug ('PN_RIGHTS_PKG.UPDATE_ROW (-)');
544
545 END UPDATE_ROW;
546
547 -------------------------------------------------------------------------------
548 -- PROCDURE : DELETE_ROW
549 -- INVOKED FROM : DELETE_ROW procedure
550 -- PURPOSE : deletes the row
551 -- HISTORY :
552 -- 05-JUL-05 sdmahesh o Bug 4284035 - Replaced pn_rights with _ALL table.
553 -------------------------------------------------------------------------------
554 PROCEDURE DELETE_ROW
555 (
556 X_RIGHT_ID IN NUMBER
557 )
558 IS
559 BEGIN
560
561 pnp_debug_pkg.debug ('PN_RIGHTS_PKG.DELETE_ROW (+)');
562
563 DELETE FROM PN_RIGHTS_ALL --sdm_MOAC
564 WHERE RIGHT_ID = X_RIGHT_ID;
565
566 IF (SQL%NOTFOUND) THEN
567 RAISE NO_DATA_FOUND;
568 END IF;
569
570 pnp_debug_pkg.debug ('PN_RIGHTS_PKG.DELETE_ROW (-)');
571
572 END DELETE_ROW;
573
574 END PN_RIGHTS_PKG;