1 PACKAGE BODY PN_LOC_ACC_MAP_PKG as
2 -- $Header: PNEXACCB.pls 120.2 2005/11/28 02:01:43 appldev noship $
3 -------------------------------------------------------------------------------
4 -- PROCDURE : INSERT_ROW
5 -- INVOKED FROM : insert_row procedure
6 -- PURPOSE : inserts the row
7 -- HISTORY :
8 -- 21-JUN-05 sdmahesh o Bug 4284035 - Replaced PN_LOC_ACC_MAP with _ALL table.
9 -------------------------------------------------------------------------------
10 PROCEDURE insert_row (
11 x_LOC_ACC_MAP_ID IN OUT NOCOPY NUMBER,
12 x_LOC_ACC_MAP_HDR_ID IN NUMBER,
13 x_last_update_date IN DATE,
14 x_last_updated_by IN NUMBER,
15 x_creation_date IN DATE,
16 x_created_by IN NUMBER,
17 x_last_update_login IN NUMBER,
18 x_PROPERTY_ID IN NUMBER,
19 x_LOCATION_ID IN NUMBER,
20 x_ACCOUNT_LOW IN VARCHAR2,
21 x_ACCOUNT_HIGH IN VARCHAR2,
22 x_EXPENSE_TYPE_CODE IN VARCHAR2,
23 x_EFFECTIVE_FROM_DATE IN DATE,
24 x_EFFECTIVE_TO_DATE IN DATE,
25 x_RECOVERABLE_FLAG IN VARCHAR2,
26 x_SEGMENT1_LOW IN VARCHAR2,
27 x_SEGMENT1_HIGH IN VARCHAR2,
28 x_SEGMENT2_LOW IN VARCHAR2,
29 x_SEGMENT2_HIGH IN VARCHAR2,
30 x_SEGMENT3_LOW IN VARCHAR2,
31 x_SEGMENT3_HIGH IN VARCHAR2,
32 x_SEGMENT4_LOW IN VARCHAR2,
33 x_SEGMENT4_HIGH IN VARCHAR2,
34 x_SEGMENT5_LOW IN VARCHAR2,
35 x_SEGMENT5_HIGH IN VARCHAR2,
36 x_SEGMENT6_LOW IN VARCHAR2,
37 x_SEGMENT6_HIGH IN VARCHAR2,
38 x_SEGMENT7_LOW IN VARCHAR2,
39 x_SEGMENT7_HIGH IN VARCHAR2,
40 x_SEGMENT8_LOW IN VARCHAR2,
41 x_SEGMENT8_HIGH IN VARCHAR2,
42 x_SEGMENT9_LOW IN VARCHAR2,
43 x_SEGMENT9_HIGH IN VARCHAR2,
44 x_SEGMENT10_LOW IN VARCHAR2,
45 x_SEGMENT10_HIGH IN VARCHAR2,
46 x_SEGMENT11_LOW IN VARCHAR2,
47 x_SEGMENT11_HIGH IN VARCHAR2,
48 x_SEGMENT12_LOW IN VARCHAR2,
49 x_SEGMENT12_HIGH IN VARCHAR2,
50 x_SEGMENT13_LOW IN VARCHAR2,
51 x_SEGMENT13_HIGH IN VARCHAR2,
52 x_SEGMENT14_LOW IN VARCHAR2,
53 x_SEGMENT14_HIGH IN VARCHAR2,
54 x_SEGMENT15_LOW IN VARCHAR2,
55 x_SEGMENT15_HIGH IN VARCHAR2,
56 x_SEGMENT16_LOW IN VARCHAR2,
57 x_SEGMENT16_HIGH IN VARCHAR2,
58 x_SEGMENT17_LOW IN VARCHAR2,
59 x_SEGMENT17_HIGH IN VARCHAR2,
60 x_SEGMENT18_LOW IN VARCHAR2,
61 x_SEGMENT18_HIGH IN VARCHAR2,
62 x_SEGMENT19_LOW IN VARCHAR2,
63 x_SEGMENT19_HIGH IN VARCHAR2,
64 x_SEGMENT20_LOW IN VARCHAR2,
65 x_SEGMENT20_HIGH IN VARCHAR2,
66 x_SEGMENT21_LOW IN VARCHAR2,
67 x_SEGMENT21_HIGH IN VARCHAR2,
68 x_SEGMENT22_LOW IN VARCHAR2,
69 x_SEGMENT22_HIGH IN VARCHAR2,
70 x_SEGMENT23_LOW IN VARCHAR2,
71 x_SEGMENT23_HIGH IN VARCHAR2,
72 x_SEGMENT24_LOW IN VARCHAR2,
73 x_SEGMENT24_HIGH IN VARCHAR2,
74 x_SEGMENT25_LOW IN VARCHAR2,
75 x_SEGMENT25_HIGH IN VARCHAR2,
76 x_SEGMENT26_LOW IN VARCHAR2,
77 x_SEGMENT26_HIGH IN VARCHAR2,
78 x_SEGMENT27_LOW IN VARCHAR2,
79 x_SEGMENT27_HIGH IN VARCHAR2,
80 x_SEGMENT28_LOW IN VARCHAR2,
81 x_SEGMENT28_HIGH IN VARCHAR2,
82 x_SEGMENT29_LOW IN VARCHAR2,
83 x_SEGMENT29_HIGH IN VARCHAR2,
84 x_SEGMENT30_LOW IN VARCHAR2,
85 x_SEGMENT30_HIGH IN VARCHAR2,
86 x_attribute_category IN VARCHAR2,
87 x_attribute1 IN VARCHAR2,
88 x_attribute2 IN VARCHAR2,
89 x_attribute3 IN VARCHAR2,
90 x_attribute4 IN VARCHAR2,
91 x_attribute5 IN VARCHAR2,
92 x_attribute6 IN VARCHAR2,
93 x_attribute7 IN VARCHAR2,
94 x_attribute8 IN VARCHAR2,
95 x_attribute9 IN VARCHAR2,
96 x_attribute10 IN VARCHAR2,
97 x_attribute11 IN VARCHAR2,
98 x_attribute12 IN VARCHAR2,
99 x_attribute13 IN VARCHAR2,
100 x_attribute14 IN VARCHAR2,
101 x_attribute15 IN VARCHAR2,
102 x_ORG_ID IN NUMBER default NULL
103 ) IS
104
105 CURSOR C IS
106 SELECT LOC_ACC_MAP_ID
107 FROM PN_LOC_ACC_MAP_ALL
108 WHERE LOC_ACC_MAP_ID = x_LOC_ACC_MAP_ID;
109
110 CURSOR org_cur IS
111 SELECT org_id
112 FROM pn_loc_acc_map_hdr_all
113 WHERE loc_acc_map_hdr_id = x_LOC_ACC_MAP_HDR_ID;
114
115 l_org_id NUMBER;
116
117 BEGIN
118
119 IF x_org_id IS NULL THEN
120 FOR rec IN org_cur LOOP
121 l_org_id := rec.org_id;
122 END LOOP;
123 ELSE
124 l_org_id := x_org_id;
125 END IF;
126
127 INSERT INTO PN_LOC_ACC_MAP_ALL
128 (LOC_ACC_MAP_ID,
129 LOC_ACC_MAP_HDR_ID,
130 last_update_date,
131 last_updated_by,
132 creation_date,
133 created_by,
134 last_update_login,
135 PROPERTY_ID,
136 LOCATION_ID,
137 ACCOUNT_LOW,
138 ACCOUNT_HIGH,
139 EXPENSE_TYPE_CODE,
140 EFFECTIVE_FROM_DATE,
141 EFFECTIVE_TO_DATE,
142 RECOVERABLE_FLAG,
143 SEGMENT1_LOW,
144 SEGMENT1_HIGH,
145 SEGMENT2_LOW,
146 SEGMENT2_HIGH,
147 SEGMENT3_LOW,
148 SEGMENT3_HIGH,
149 SEGMENT4_LOW,
150 SEGMENT4_HIGH,
151 SEGMENT5_LOW,
152 SEGMENT5_HIGH,
153 SEGMENT6_LOW,
154 SEGMENT6_HIGH,
155 SEGMENT7_LOW,
156 SEGMENT7_HIGH,
157 SEGMENT8_LOW,
158 SEGMENT8_HIGH,
159 SEGMENT9_LOW,
160 SEGMENT9_HIGH,
161 SEGMENT10_LOW,
162 SEGMENT10_HIGH,
163 SEGMENT11_LOW,
164 SEGMENT11_HIGH,
165 SEGMENT12_LOW,
166 SEGMENT12_HIGH,
167 SEGMENT13_LOW,
168 SEGMENT13_HIGH,
169 SEGMENT14_LOW,
170 SEGMENT14_HIGH,
171 SEGMENT15_LOW,
172 SEGMENT15_HIGH,
173 SEGMENT16_LOW,
174 SEGMENT16_HIGH,
175 SEGMENT17_LOW,
176 SEGMENT17_HIGH,
177 SEGMENT18_LOW,
178 SEGMENT18_HIGH,
179 SEGMENT19_LOW,
180 SEGMENT19_HIGH,
181 SEGMENT20_LOW,
182 SEGMENT20_HIGH,
183 SEGMENT21_LOW,
184 SEGMENT21_HIGH,
185 SEGMENT22_LOW,
186 SEGMENT22_HIGH,
187 SEGMENT23_LOW,
188 SEGMENT23_HIGH,
189 SEGMENT24_LOW,
190 SEGMENT24_HIGH,
191 SEGMENT25_LOW,
192 SEGMENT25_HIGH,
193 SEGMENT26_LOW,
194 SEGMENT26_HIGH,
195 SEGMENT27_LOW,
196 SEGMENT27_HIGH,
197 SEGMENT28_LOW,
198 SEGMENT28_HIGH,
199 SEGMENT29_LOW,
200 SEGMENT29_HIGH,
201 SEGMENT30_LOW,
202 SEGMENT30_HIGH,
203 attribute_category,
204 attribute1,
205 attribute2,
206 attribute3,
207 attribute4,
208 attribute5,
209 attribute6,
210 attribute7,
211 attribute8,
212 attribute9,
213 attribute10,
214 attribute11,
215 attribute12,
216 attribute13,
217 attribute14,
218 attribute15,
219 ORG_ID)
220 VALUES (NVL(x_LOC_ACC_MAP_ID,PN_LOC_ACC_MAP_S.NEXTVAL),
221 x_LOC_ACC_MAP_HDR_ID,
222 x_last_update_date,
223 x_last_updated_by,
224 x_creation_date,
225 x_created_by,
226 x_last_update_login,
227 x_PROPERTY_ID,
228 x_LOCATION_ID,
229 x_ACCOUNT_LOW,
230 x_ACCOUNT_HIGH,
231 x_EXPENSE_TYPE_CODE,
232 x_EFFECTIVE_FROM_DATE,
233 x_EFFECTIVE_TO_DATE,
234 x_RECOVERABLE_FLAG,
235 x_SEGMENT1_LOW,
236 x_SEGMENT1_HIGH,
237 x_SEGMENT2_LOW,
238 x_SEGMENT2_HIGH,
239 x_SEGMENT3_LOW,
240 x_SEGMENT3_HIGH,
241 x_SEGMENT4_LOW,
242 x_SEGMENT4_HIGH,
243 x_SEGMENT5_LOW,
244 x_SEGMENT5_HIGH,
245 x_SEGMENT6_LOW,
246 x_SEGMENT6_HIGH,
247 x_SEGMENT7_LOW,
248 x_SEGMENT7_HIGH,
249 x_SEGMENT8_LOW,
250 x_SEGMENT8_HIGH,
251 x_SEGMENT9_LOW,
252 x_SEGMENT9_HIGH,
253 x_SEGMENT10_LOW,
254 x_SEGMENT10_HIGH,
255 x_SEGMENT11_LOW,
256 x_SEGMENT11_HIGH,
257 x_SEGMENT12_LOW,
258 x_SEGMENT12_HIGH,
259 x_SEGMENT13_LOW,
260 x_SEGMENT13_HIGH,
261 x_SEGMENT14_LOW,
262 x_SEGMENT14_HIGH,
263 x_SEGMENT15_LOW,
264 x_SEGMENT15_HIGH,
265 x_SEGMENT16_LOW,
266 x_SEGMENT16_HIGH,
267 x_SEGMENT17_LOW,
268 x_SEGMENT17_HIGH,
269 x_SEGMENT18_LOW,
270 x_SEGMENT18_HIGH,
271 x_SEGMENT19_LOW,
272 x_SEGMENT19_HIGH,
273 x_SEGMENT20_LOW,
274 x_SEGMENT20_HIGH,
275 x_SEGMENT21_LOW,
276 x_SEGMENT21_HIGH,
277 x_SEGMENT22_LOW,
278 x_SEGMENT22_HIGH,
279 x_SEGMENT23_LOW,
280 x_SEGMENT23_HIGH,
281 x_SEGMENT24_LOW,
282 x_SEGMENT24_HIGH,
283 x_SEGMENT25_LOW,
284 x_SEGMENT25_HIGH,
285 x_SEGMENT26_LOW,
286 x_SEGMENT26_HIGH,
287 x_SEGMENT27_LOW,
288 x_SEGMENT27_HIGH,
289 x_SEGMENT28_LOW,
290 x_SEGMENT28_HIGH,
291 x_SEGMENT29_LOW,
292 x_SEGMENT29_HIGH,
293 x_SEGMENT30_LOW,
294 x_SEGMENT30_HIGH,
295 x_attribute_category,
296 x_attribute1,
297 x_attribute2,
298 x_attribute3,
299 x_attribute4,
300 x_attribute5,
301 x_attribute6,
302 x_attribute7,
303 x_attribute8,
304 x_attribute9,
305 x_attribute10,
306 x_attribute11,
307 x_attribute12,
308 x_attribute13,
309 x_attribute14,
310 x_attribute15,
311 l_org_id
312 )
313 RETURNING LOC_ACC_MAP_ID INTO x_LOC_ACC_MAP_ID;
314 -- Check if a valid record was created.
315 OPEN c;
316 FETCH c INTO x_LOC_ACC_MAP_ID;
317
318 IF (c%NOTFOUND) THEN
319 CLOSE c;
320 RAISE NO_DATA_FOUND;
321 END IF;
322
323 CLOSE c;
324 END insert_row;
325
326
327 -------------------------------------------------------------------------------
328 -- PROCDURE : update_row
329 -- INVOKED FROM : update_row procedure
330 -- PURPOSE : updates the row
331 -- HISTORY :
332 -- 21-JUN-05 sdmahesh o Bug 4284035 - Replaced PN_LOC_ACC_MAP with _ALL table.
333 -------------------------------------------------------------------------------
334 PROCEDURE update_row (
335 x_LOC_ACC_MAP_ID IN NUMBER,
336 x_LOC_ACC_MAP_HDR_ID IN NUMBER,
337 x_last_update_date IN DATE,
338 x_last_updated_by IN NUMBER,
339 x_last_update_login IN NUMBER,
340 x_PROPERTY_ID IN NUMBER,
341 x_LOCATION_ID IN NUMBER,
342 x_ACCOUNT_LOW IN VARCHAR2,
343 x_ACCOUNT_HIGH IN VARCHAR2,
344 x_EXPENSE_TYPE_CODE IN VARCHAR2,
345 x_EFFECTIVE_FROM_DATE IN DATE,
346 x_EFFECTIVE_TO_DATE IN DATE,
347 x_RECOVERABLE_FLAG IN VARCHAR2,
348 x_SEGMENT1_LOW IN VARCHAR2,
349 x_SEGMENT1_HIGH IN VARCHAR2,
350 x_SEGMENT2_LOW IN VARCHAR2,
351 x_SEGMENT2_HIGH IN VARCHAR2,
352 x_SEGMENT3_LOW IN VARCHAR2,
353 x_SEGMENT3_HIGH IN VARCHAR2,
354 x_SEGMENT4_LOW IN VARCHAR2,
355 x_SEGMENT4_HIGH IN VARCHAR2,
356 x_SEGMENT5_LOW IN VARCHAR2,
357 x_SEGMENT5_HIGH IN VARCHAR2,
358 x_SEGMENT6_LOW IN VARCHAR2,
359 x_SEGMENT6_HIGH IN VARCHAR2,
360 x_SEGMENT7_LOW IN VARCHAR2,
361 x_SEGMENT7_HIGH IN VARCHAR2,
362 x_SEGMENT8_LOW IN VARCHAR2,
363 x_SEGMENT8_HIGH IN VARCHAR2,
364 x_SEGMENT9_LOW IN VARCHAR2,
365 x_SEGMENT9_HIGH IN VARCHAR2,
366 x_SEGMENT10_LOW IN VARCHAR2,
367 x_SEGMENT10_HIGH IN VARCHAR2,
368 x_SEGMENT11_LOW IN VARCHAR2,
369 x_SEGMENT11_HIGH IN VARCHAR2,
370 x_SEGMENT12_LOW IN VARCHAR2,
371 x_SEGMENT12_HIGH IN VARCHAR2,
372 x_SEGMENT13_LOW IN VARCHAR2,
373 x_SEGMENT13_HIGH IN VARCHAR2,
374 x_SEGMENT14_LOW IN VARCHAR2,
375 x_SEGMENT14_HIGH IN VARCHAR2,
376 x_SEGMENT15_LOW IN VARCHAR2,
377 x_SEGMENT15_HIGH IN VARCHAR2,
378 x_SEGMENT16_LOW IN VARCHAR2,
379 x_SEGMENT16_HIGH IN VARCHAR2,
380 x_SEGMENT17_LOW IN VARCHAR2,
381 x_SEGMENT17_HIGH IN VARCHAR2,
382 x_SEGMENT18_LOW IN VARCHAR2,
383 x_SEGMENT18_HIGH IN VARCHAR2,
384 x_SEGMENT19_LOW IN VARCHAR2,
385 x_SEGMENT19_HIGH IN VARCHAR2,
386 x_SEGMENT20_LOW IN VARCHAR2,
387 x_SEGMENT20_HIGH IN VARCHAR2,
388 x_SEGMENT21_LOW IN VARCHAR2,
389 x_SEGMENT21_HIGH IN VARCHAR2,
390 x_SEGMENT22_LOW IN VARCHAR2,
391 x_SEGMENT22_HIGH IN VARCHAR2,
392 x_SEGMENT23_LOW IN VARCHAR2,
393 x_SEGMENT23_HIGH IN VARCHAR2,
394 x_SEGMENT24_LOW IN VARCHAR2,
395 x_SEGMENT24_HIGH IN VARCHAR2,
396 x_SEGMENT25_LOW IN VARCHAR2,
397 x_SEGMENT25_HIGH IN VARCHAR2,
398 x_SEGMENT26_LOW IN VARCHAR2,
399 x_SEGMENT26_HIGH IN VARCHAR2,
403 x_SEGMENT28_HIGH IN VARCHAR2,
400 x_SEGMENT27_LOW IN VARCHAR2,
401 x_SEGMENT27_HIGH IN VARCHAR2,
402 x_SEGMENT28_LOW IN VARCHAR2,
404 x_SEGMENT29_LOW IN VARCHAR2,
405 x_SEGMENT29_HIGH IN VARCHAR2,
406 x_SEGMENT30_LOW IN VARCHAR2,
407 x_SEGMENT30_HIGH IN VARCHAR2,
408 x_attribute_category IN VARCHAR2,
409 x_attribute1 IN VARCHAR2,
410 x_attribute2 IN VARCHAR2,
411 x_attribute3 IN VARCHAR2,
412 x_attribute4 IN VARCHAR2,
413 x_attribute5 IN VARCHAR2,
414 x_attribute6 IN VARCHAR2,
415 x_attribute7 IN VARCHAR2,
416 x_attribute8 IN VARCHAR2,
417 x_attribute9 IN VARCHAR2,
418 x_attribute10 IN VARCHAR2,
419 x_attribute11 IN VARCHAR2,
420 x_attribute12 IN VARCHAR2,
421 x_attribute13 IN VARCHAR2,
422 x_attribute14 IN VARCHAR2,
423 x_attribute15 IN VARCHAR2
424 ) IS
425 BEGIN
426 UPDATE PN_LOC_ACC_MAP_ALL --sdm_MOAC
427 SET last_update_date = x_last_update_date,
428 last_updated_by = x_last_updated_by,
429 last_update_login = x_last_update_login,
430 LOC_ACC_MAP_HDR_ID = x_LOC_ACC_MAP_HDR_ID,
431 PROPERTY_ID = x_PROPERTY_ID,
432 LOCATION_ID = x_LOCATION_ID,
433 ACCOUNT_LOW = x_ACCOUNT_LOW,
434 ACCOUNT_HIGH = x_ACCOUNT_HIGH,
435 EXPENSE_TYPE_CODE = x_EXPENSE_TYPE_CODE,
436 EFFECTIVE_FROM_DATE = x_EFFECTIVE_FROM_DATE,
437 EFFECTIVE_TO_DATE = x_EFFECTIVE_TO_DATE,
438 RECOVERABLE_FLAG = x_RECOVERABLE_FLAG,
439 SEGMENT1_LOW = x_SEGMENT1_LOW,
440 SEGMENT1_HIGH = x_SEGMENT1_HIGH,
441 SEGMENT2_LOW = x_SEGMENT2_LOW,
442 SEGMENT2_HIGH = x_SEGMENT2_HIGH,
443 SEGMENT3_LOW = x_SEGMENT3_LOW,
444 SEGMENT3_HIGH = x_SEGMENT3_HIGH,
445 SEGMENT4_LOW = x_SEGMENT4_LOW,
446 SEGMENT4_HIGH = x_SEGMENT4_HIGH,
447 SEGMENT5_LOW = x_SEGMENT5_LOW,
448 SEGMENT5_HIGH = x_SEGMENT5_HIGH,
449 SEGMENT6_LOW = x_SEGMENT6_LOW,
450 SEGMENT6_HIGH = x_SEGMENT6_HIGH,
451 SEGMENT7_LOW = x_SEGMENT7_LOW,
455 SEGMENT9_LOW = x_SEGMENT9_LOW,
452 SEGMENT7_HIGH = x_SEGMENT7_HIGH,
453 SEGMENT8_LOW = x_SEGMENT8_LOW,
454 SEGMENT8_HIGH = x_SEGMENT8_HIGH,
456 SEGMENT9_HIGH = x_SEGMENT9_HIGH,
457 SEGMENT10_LOW = x_SEGMENT10_LOW,
458 SEGMENT10_HIGH = x_SEGMENT10_HIGH,
459 SEGMENT11_LOW = x_SEGMENT11_LOW,
460 SEGMENT11_HIGH = x_SEGMENT11_HIGH,
461 SEGMENT12_LOW = x_SEGMENT12_LOW,
462 SEGMENT12_HIGH = x_SEGMENT12_HIGH,
463 SEGMENT13_LOW = x_SEGMENT13_LOW,
464 SEGMENT13_HIGH = x_SEGMENT13_HIGH,
465 SEGMENT14_LOW = x_SEGMENT14_LOW,
466 SEGMENT14_HIGH = x_SEGMENT14_HIGH,
467 SEGMENT15_LOW = x_SEGMENT15_LOW,
468 SEGMENT15_HIGH = x_SEGMENT15_HIGH,
469 SEGMENT16_LOW = x_SEGMENT16_LOW,
470 SEGMENT16_HIGH = x_SEGMENT16_HIGH,
471 SEGMENT17_LOW = x_SEGMENT17_LOW,
472 SEGMENT17_HIGH = x_SEGMENT17_HIGH,
473 SEGMENT18_LOW = x_SEGMENT18_LOW,
474 SEGMENT18_HIGH = x_SEGMENT18_HIGH,
475 SEGMENT19_LOW = x_SEGMENT19_LOW,
476 SEGMENT19_HIGH = x_SEGMENT19_HIGH,
477 SEGMENT20_LOW = x_SEGMENT20_LOW,
478 SEGMENT20_HIGH = x_SEGMENT20_HIGH,
479 SEGMENT21_LOW = x_SEGMENT21_LOW,
480 SEGMENT21_HIGH = x_SEGMENT21_HIGH,
481 SEGMENT22_LOW = x_SEGMENT22_LOW,
482 SEGMENT22_HIGH = x_SEGMENT22_HIGH,
483 SEGMENT23_LOW = x_SEGMENT23_LOW,
484 SEGMENT23_HIGH = x_SEGMENT23_HIGH,
485 SEGMENT24_LOW = x_SEGMENT24_LOW,
486 SEGMENT24_HIGH = x_SEGMENT24_HIGH,
487 SEGMENT25_LOW = x_SEGMENT25_LOW,
488 SEGMENT25_HIGH = x_SEGMENT25_HIGH,
489 SEGMENT26_LOW = x_SEGMENT26_LOW,
490 SEGMENT26_HIGH = x_SEGMENT26_HIGH,
491 SEGMENT27_LOW = x_SEGMENT27_LOW,
492 SEGMENT27_HIGH = x_SEGMENT27_HIGH,
493 SEGMENT28_LOW = x_SEGMENT28_LOW,
494 SEGMENT28_HIGH = x_SEGMENT28_HIGH,
495 SEGMENT29_LOW = x_SEGMENT29_LOW,
496 SEGMENT29_HIGH = x_SEGMENT29_HIGH,
497 SEGMENT30_LOW = x_SEGMENT30_LOW,
498 SEGMENT30_HIGH = x_SEGMENT30_HIGH,
499 attribute1 = x_attribute1,
500 attribute2 = x_attribute2,
501 attribute3 = x_attribute3,
502 attribute4 = x_attribute4,
503 attribute5 = x_attribute5,
504 attribute6 = x_attribute6,
505 attribute7 = x_attribute7,
506 attribute8 = x_attribute8,
507 attribute9 = x_attribute9,
508 attribute10 = x_attribute10,
509 attribute11 = x_attribute11,
510 attribute12 = x_attribute12,
511 attribute13 = x_attribute13,
512 attribute14 = x_attribute14,
513 attribute15 = x_attribute15
514 WHERE LOC_ACC_MAP_ID = x_LOC_ACC_MAP_ID;
515 IF (SQL%NOTFOUND) THEN
516 RAISE NO_DATA_FOUND;
517 END IF;
518 END update_row;
519
520
521 -------------------------------------------------------------------------------
522 -- PROCDURE : lock_row
526 -- 21-JUN-05 sdmahesh o Bug 4284035 - Replaced PN_LOC_ACC_MAP with _ALL table.
523 -- INVOKED FROM : lock_row procedure
524 -- PURPOSE : locks the row
525 -- HISTORY :
527 -------------------------------------------------------------------------------
528 PROCEDURE lock_row (
529 x_LOC_ACC_MAP_ID IN NUMBER,
530 x_LOC_ACC_MAP_HDR_ID IN NUMBER,
531 x_PROPERTY_ID IN NUMBER,
532 x_LOCATION_ID IN NUMBER,
533 x_ACCOUNT_LOW IN VARCHAR2,
534 x_ACCOUNT_HIGH IN VARCHAR2,
535 x_EXPENSE_TYPE_CODE IN VARCHAR2,
536 x_EFFECTIVE_FROM_DATE IN DATE,
537 x_EFFECTIVE_TO_DATE IN DATE,
538 x_RECOVERABLE_FLAG IN VARCHAR2,
539 x_SEGMENT1_LOW IN VARCHAR2,
540 x_SEGMENT1_HIGH IN VARCHAR2,
541 x_SEGMENT2_LOW IN VARCHAR2,
542 x_SEGMENT2_HIGH IN VARCHAR2,
543 x_SEGMENT3_LOW IN VARCHAR2,
544 x_SEGMENT3_HIGH IN VARCHAR2,
545 x_SEGMENT4_LOW IN VARCHAR2,
546 x_SEGMENT4_HIGH IN VARCHAR2,
547 x_SEGMENT5_LOW IN VARCHAR2,
548 x_SEGMENT5_HIGH IN VARCHAR2,
549 x_SEGMENT6_LOW IN VARCHAR2,
550 x_SEGMENT6_HIGH IN VARCHAR2,
551 x_SEGMENT7_LOW IN VARCHAR2,
552 x_SEGMENT7_HIGH IN VARCHAR2,
553 x_SEGMENT8_LOW IN VARCHAR2,
554 x_SEGMENT8_HIGH IN VARCHAR2,
555 x_SEGMENT9_LOW IN VARCHAR2,
556 x_SEGMENT9_HIGH IN VARCHAR2,
557 x_SEGMENT10_LOW IN VARCHAR2,
558 x_SEGMENT10_HIGH IN VARCHAR2,
559 x_SEGMENT11_LOW IN VARCHAR2,
560 x_SEGMENT11_HIGH IN VARCHAR2,
561 x_SEGMENT12_LOW IN VARCHAR2,
562 x_SEGMENT12_HIGH IN VARCHAR2,
563 x_SEGMENT13_LOW IN VARCHAR2,
564 x_SEGMENT13_HIGH IN VARCHAR2,
565 x_SEGMENT14_LOW IN VARCHAR2,
566 x_SEGMENT14_HIGH IN VARCHAR2,
567 x_SEGMENT15_LOW IN VARCHAR2,
568 x_SEGMENT15_HIGH IN VARCHAR2,
569 x_SEGMENT16_LOW IN VARCHAR2,
570 x_SEGMENT16_HIGH IN VARCHAR2,
571 x_SEGMENT17_LOW IN VARCHAR2,
572 x_SEGMENT17_HIGH IN VARCHAR2,
573 x_SEGMENT18_LOW IN VARCHAR2,
574 x_SEGMENT18_HIGH IN VARCHAR2,
575 x_SEGMENT19_LOW IN VARCHAR2,
576 x_SEGMENT19_HIGH IN VARCHAR2,
577 x_SEGMENT20_LOW IN VARCHAR2,
578 x_SEGMENT20_HIGH IN VARCHAR2,
579 x_SEGMENT21_LOW IN VARCHAR2,
580 x_SEGMENT21_HIGH IN VARCHAR2,
581 x_SEGMENT22_LOW IN VARCHAR2,
582 x_SEGMENT22_HIGH IN VARCHAR2,
583 x_SEGMENT23_LOW IN VARCHAR2,
584 x_SEGMENT23_HIGH IN VARCHAR2,
585 x_SEGMENT24_LOW IN VARCHAR2,
586 x_SEGMENT24_HIGH IN VARCHAR2,
587 x_SEGMENT25_LOW IN VARCHAR2,
588 x_SEGMENT25_HIGH IN VARCHAR2,
589 x_SEGMENT26_LOW IN VARCHAR2,
590 x_SEGMENT26_HIGH IN VARCHAR2,
591 x_SEGMENT27_LOW IN VARCHAR2,
592 x_SEGMENT27_HIGH IN VARCHAR2,
593 x_SEGMENT28_LOW IN VARCHAR2,
594 x_SEGMENT28_HIGH IN VARCHAR2,
595 x_SEGMENT29_LOW IN VARCHAR2,
596 x_SEGMENT29_HIGH IN VARCHAR2,
597 x_SEGMENT30_LOW IN VARCHAR2,
598 x_SEGMENT30_HIGH IN VARCHAR2,
599 x_attribute_category IN VARCHAR2,
600 x_attribute1 IN VARCHAR2,
601 x_attribute2 IN VARCHAR2,
602 x_attribute3 IN VARCHAR2,
603 x_attribute4 IN VARCHAR2,
604 x_attribute5 IN VARCHAR2,
605 x_attribute6 IN VARCHAR2,
606 x_attribute7 IN VARCHAR2,
607 x_attribute8 IN VARCHAR2,
611 x_attribute12 IN VARCHAR2,
608 x_attribute9 IN VARCHAR2,
609 x_attribute10 IN VARCHAR2,
610 x_attribute11 IN VARCHAR2,
612 x_attribute13 IN VARCHAR2,
613 x_attribute14 IN VARCHAR2,
614 x_attribute15 IN VARCHAR2
615 ) IS
616 CURSOR c1 IS
617 SELECT *
618 FROM PN_LOC_ACC_MAP_ALL
619 WHERE LOC_ACC_MAP_ID = x_LOC_ACC_MAP_ID
620 FOR UPDATE OF LOC_ACC_MAP_ID NOWAIT;
621
622 tlinfo c1%ROWTYPE;
623
624 BEGIN
625 OPEN c1;
626 FETCH c1 INTO tlinfo;
627
628 IF (c1%NOTFOUND) THEN
629 CLOSE c1;
630 RETURN;
631 END IF;
632
633 CLOSE c1;
634 IF NOT (tlinfo.LOC_ACC_MAP_ID = x_loc_acc_map_id) THEN
635 pn_var_rent_pkg.lock_row_exception('lOC_ACC_MAP_ID',tlinfo.loc_acc_map_id);
636 END IF;
637
638 IF NOT (tlinfo.LOC_ACC_MAP_HDR_ID = x_LOC_ACC_MAP_HDR_ID ) THEN
639 pn_var_rent_pkg.lock_row_exception('LOC_ACC_MAP_HDR_ID',tlinfo.LOC_ACC_MAP_HDR_ID);
640 END IF;
641
642 IF NOT ((tlinfo.PROPERTY_ID = x_PROPERTY_ID)
643 OR ((tlinfo.PROPERTY_ID IS NULL) AND (x_PROPERTY_ID IS NULL))) THEN
644 pn_var_rent_pkg.lock_row_exception('PROPERTY_ID',tlinfo.PROPERTY_ID);
645 END IF;
646
647 IF NOT ((tlinfo.LOCATION_ID = x_LOCATION_ID)
648 OR ((tlinfo.LOCATION_ID IS NULL) AND (x_LOCATION_ID IS NULL))) THEN
649 pn_var_rent_pkg.lock_row_exception('LOCATION_ID',tlinfo.LOCATION_ID);
650 END IF;
651
652 IF NOT (tlinfo.ACCOUNT_LOW = x_ACCOUNT_LOW) THEN
653 pn_var_rent_pkg.lock_row_exception('ACCOUNT_LOW',tlinfo.ACCOUNT_LOW);
654 END IF;
655
656 IF NOT (tlinfo.ACCOUNT_HIGH = x_ACCOUNT_HIGH) THEN
657 pn_var_rent_pkg.lock_row_exception('ACCOUNT_HIGH',tlinfo.ACCOUNT_HIGH);
658 END IF;
659
660 IF NOT (tlinfo.EXPENSE_TYPE_CODE = x_EXPENSE_TYPE_CODE) THEN
661 pn_var_rent_pkg.lock_row_exception('EXPENSE_TYPE_CODE',tlinfo.EXPENSE_TYPE_CODE);
662 END IF;
663
664 IF NOT (tlinfo.EFFECTIVE_FROM_DATE = x_EFFECTIVE_FROM_DATE) THEN
665 pn_var_rent_pkg.lock_row_exception('EFFECTIVE_FROM_DATE',tlinfo.EFFECTIVE_FROM_DATE);
666 END IF;
667
668 IF NOT (tlinfo.EFFECTIVE_TO_DATE = x_EFFECTIVE_TO_DATE) THEN
669 pn_var_rent_pkg.lock_row_exception('EFFECTIVE_TO_DATE',tlinfo.EFFECTIVE_TO_DATE);
670 END IF;
671
672 IF NOT ((tlinfo.RECOVERABLE_FLAG = x_RECOVERABLE_FLAG )
673 OR ((tlinfo.RECOVERABLE_FLAG IS NULL) AND (x_RECOVERABLE_FLAG IS NULL))) THEN
674 pn_var_rent_pkg.lock_row_exception('RECOVERABLE_FLAG',tlinfo.RECOVERABLE_FLAG);
675 END IF;
676
677 IF NOT ((tlinfo.SEGMENT1_LOW = x_SEGMENT1_LOW )
678 OR ((tlinfo.SEGMENT1_LOW IS NULL) AND (x_SEGMENT1_LOW IS NULL))) THEN
679 pn_var_rent_pkg.lock_row_exception('SEGMENT1_LOW',tlinfo.SEGMENT1_LOW);
680 END IF;
681
682 IF NOT ((tlinfo.SEGMENT1_HIGH = x_SEGMENT1_HIGH )
683 OR ((tlinfo.SEGMENT1_HIGH IS NULL) AND (x_SEGMENT1_HIGH IS NULL))) THEN
684 pn_var_rent_pkg.lock_row_exception('SEGMENT1_HIGH',tlinfo.SEGMENT1_HIGH);
685 END IF;
686
687 IF NOT ((tlinfo.SEGMENT2_LOW = x_SEGMENT2_LOW )
688 OR ((tlinfo.SEGMENT2_LOW IS NULL) AND (x_SEGMENT2_LOW IS NULL))) THEN
689 pn_var_rent_pkg.lock_row_exception('SEGMENT2_LOW',tlinfo.SEGMENT2_LOW);
690 END IF;
691
692 IF NOT ((tlinfo.SEGMENT2_HIGH = x_SEGMENT2_HIGH )
693 OR ((tlinfo.SEGMENT2_HIGH IS NULL) AND (x_SEGMENT2_HIGH IS NULL))) THEN
694 pn_var_rent_pkg.lock_row_exception('SEGMENT2_HIGH',tlinfo.SEGMENT2_HIGH);
695 END IF;
696
697 IF NOT ((tlinfo.SEGMENT3_LOW = x_SEGMENT3_LOW )
698 OR ((tlinfo.SEGMENT3_LOW IS NULL) AND (x_SEGMENT3_LOW IS NULL))) THEN
699 pn_var_rent_pkg.lock_row_exception('SEGMENT3_LOW',tlinfo.SEGMENT3_LOW);
700 END IF;
701
702 IF NOT ((tlinfo.SEGMENT3_HIGH = x_SEGMENT3_HIGH )
703 OR ((tlinfo.SEGMENT3_HIGH IS NULL) AND (x_SEGMENT3_HIGH IS NULL))) THEN
704 pn_var_rent_pkg.lock_row_exception('SEGMENT3_HIGH',tlinfo.SEGMENT3_HIGH);
705 END IF;
706
707 IF NOT ((tlinfo.SEGMENT4_LOW = x_SEGMENT4_LOW )
708 OR ((tlinfo.SEGMENT4_LOW IS NULL) AND (x_SEGMENT4_LOW IS NULL))) THEN
709 pn_var_rent_pkg.lock_row_exception('SEGMENT4_LOW',tlinfo.SEGMENT4_LOW);
710 END IF;
711
712 IF NOT ((tlinfo.SEGMENT4_HIGH = x_SEGMENT4_HIGH )
713 OR ((tlinfo.SEGMENT4_HIGH IS NULL) AND (x_SEGMENT4_HIGH IS NULL))) THEN
714 pn_var_rent_pkg.lock_row_exception('SEGMENT4_HIGH',tlinfo.SEGMENT4_HIGH);
715 END IF;
716
717 IF NOT ((tlinfo.SEGMENT5_LOW = x_SEGMENT5_LOW )
718 OR ((tlinfo.SEGMENT5_LOW IS NULL) AND (x_SEGMENT5_LOW IS NULL))) THEN
719 pn_var_rent_pkg.lock_row_exception('SEGMENT5_LOW',tlinfo.SEGMENT5_LOW);
720 END IF;
721
725 END IF;
722 IF NOT ((tlinfo.SEGMENT5_HIGH = x_SEGMENT5_HIGH )
723 OR ((tlinfo.SEGMENT5_HIGH IS NULL) AND (x_SEGMENT5_HIGH IS NULL))) THEN
724 pn_var_rent_pkg.lock_row_exception('SEGMENT5_HIGH',tlinfo.SEGMENT5_HIGH);
726
727 IF NOT ((tlinfo.SEGMENT6_LOW = x_SEGMENT6_LOW )
728 OR ((tlinfo.SEGMENT6_LOW IS NULL) AND (x_SEGMENT6_LOW IS NULL))) THEN
729 pn_var_rent_pkg.lock_row_exception('SEGMENT6_LOW',tlinfo.SEGMENT6_LOW);
730 END IF;
731
732 IF NOT ((tlinfo.SEGMENT6_HIGH = x_SEGMENT6_HIGH )
733 OR ((tlinfo.SEGMENT6_HIGH IS NULL) AND (x_SEGMENT6_HIGH IS NULL))) THEN
734 pn_var_rent_pkg.lock_row_exception('SEGMENT6_HIGH',tlinfo.SEGMENT6_HIGH);
735 END IF;
736
737 IF NOT ((tlinfo.SEGMENT7_LOW = x_SEGMENT7_LOW )
738 OR ((tlinfo.SEGMENT7_LOW IS NULL) AND (x_SEGMENT7_LOW IS NULL))) THEN
739 pn_var_rent_pkg.lock_row_exception('SEGMENT7_LOW',tlinfo.SEGMENT7_LOW);
740 END IF;
741
742 IF NOT ((tlinfo.SEGMENT7_HIGH = x_SEGMENT7_HIGH )
743 OR ((tlinfo.SEGMENT7_HIGH IS NULL) AND (x_SEGMENT7_HIGH IS NULL))) THEN
744 pn_var_rent_pkg.lock_row_exception('SEGMENT7_HIGH',tlinfo.SEGMENT7_HIGH);
745 END IF;
746
747 IF NOT ((tlinfo.SEGMENT8_LOW = x_SEGMENT8_LOW )
748 OR ((tlinfo.SEGMENT8_LOW IS NULL) AND (x_SEGMENT8_LOW IS NULL))) THEN
749 pn_var_rent_pkg.lock_row_exception('SEGMENT8_LOW',tlinfo.SEGMENT8_LOW);
750 END IF;
751
752 IF NOT ((tlinfo.SEGMENT8_HIGH = x_SEGMENT8_HIGH )
753 OR ((tlinfo.SEGMENT8_HIGH IS NULL) AND (x_SEGMENT8_HIGH IS NULL))) THEN
754 pn_var_rent_pkg.lock_row_exception('SEGMENT8_HIGH',tlinfo.SEGMENT8_HIGH);
755 END IF;
756
757 IF NOT ((tlinfo.SEGMENT9_LOW = x_SEGMENT9_LOW )
758 OR ((tlinfo.SEGMENT9_LOW IS NULL) AND (x_SEGMENT9_LOW IS NULL))) THEN
759 pn_var_rent_pkg.lock_row_exception('SEGMENT9_LOW',tlinfo.SEGMENT9_LOW);
760 END IF;
761
762 IF NOT ((tlinfo.SEGMENT9_HIGH = x_SEGMENT9_HIGH )
763 OR ((tlinfo.SEGMENT9_HIGH IS NULL) AND (x_SEGMENT9_HIGH IS NULL))) THEN
764 pn_var_rent_pkg.lock_row_exception('SEGMENT9_HIGH',tlinfo.SEGMENT9_HIGH);
765 END IF;
766
767 IF NOT ((tlinfo.SEGMENT10_LOW = x_SEGMENT10_LOW )
768 OR ((tlinfo.SEGMENT10_LOW IS NULL) AND (x_SEGMENT10_LOW IS NULL))) THEN
769 pn_var_rent_pkg.lock_row_exception('SEGMENT10_LOW',tlinfo.SEGMENT10_LOW);
770 END IF;
771
772 IF NOT ((tlinfo.SEGMENT10_HIGH = x_SEGMENT10_HIGH )
773 OR ((tlinfo.SEGMENT10_HIGH IS NULL) AND (x_SEGMENT10_HIGH IS NULL))) THEN
774 pn_var_rent_pkg.lock_row_exception('SEGMENT10_HIGH',tlinfo.SEGMENT10_HIGH);
775 END IF;
776
777 IF NOT ((tlinfo.SEGMENT11_LOW = x_SEGMENT11_LOW )
778 OR ((tlinfo.SEGMENT11_LOW IS NULL) AND (x_SEGMENT11_LOW IS NULL))) THEN
779 pn_var_rent_pkg.lock_row_exception('SEGMENT11_LOW',tlinfo.SEGMENT11_LOW);
780 END IF;
781
782 IF NOT ((tlinfo.SEGMENT11_HIGH = x_SEGMENT11_HIGH )
783 OR ((tlinfo.SEGMENT11_HIGH IS NULL) AND (x_SEGMENT11_HIGH IS NULL))) THEN
784 pn_var_rent_pkg.lock_row_exception('SEGMENT11_HIGH',tlinfo.SEGMENT11_HIGH);
785 END IF;
786
787 IF NOT ((tlinfo.SEGMENT12_LOW = x_SEGMENT12_LOW )
788 OR ((tlinfo.SEGMENT12_LOW IS NULL) AND (x_SEGMENT12_LOW IS NULL))) THEN
789 pn_var_rent_pkg.lock_row_exception('SEGMENT12_LOW',tlinfo.SEGMENT12_LOW);
790 END IF;
791
792 IF NOT ((tlinfo.SEGMENT12_HIGH = x_SEGMENT12_HIGH )
793 OR ((tlinfo.SEGMENT12_HIGH IS NULL) AND (x_SEGMENT12_HIGH IS NULL))) THEN
794 pn_var_rent_pkg.lock_row_exception('SEGMENT12_HIGH',tlinfo.SEGMENT12_HIGH);
795 END IF;
796
797 IF NOT ((tlinfo.SEGMENT13_LOW = x_SEGMENT13_LOW )
798 OR ((tlinfo.SEGMENT13_LOW IS NULL) AND (x_SEGMENT13_LOW IS NULL))) THEN
799 pn_var_rent_pkg.lock_row_exception('SEGMENT13_LOW',tlinfo.SEGMENT13_LOW);
800 END IF;
801
802 IF NOT ((tlinfo.SEGMENT13_HIGH = x_SEGMENT13_HIGH )
803 OR ((tlinfo.SEGMENT13_HIGH IS NULL) AND (x_SEGMENT13_HIGH IS NULL))) THEN
804 pn_var_rent_pkg.lock_row_exception('SEGMENT13_HIGH',tlinfo.SEGMENT13_HIGH);
805 END IF;
806
807 IF NOT ((tlinfo.SEGMENT14_LOW = x_SEGMENT14_LOW )
808 OR ((tlinfo.SEGMENT14_LOW IS NULL) AND (x_SEGMENT14_LOW IS NULL))) THEN
809 pn_var_rent_pkg.lock_row_exception('SEGMENT14_LOW',tlinfo.SEGMENT14_LOW);
810 END IF;
811
812 IF NOT ((tlinfo.SEGMENT14_HIGH = x_SEGMENT14_HIGH )
813 OR ((tlinfo.SEGMENT14_HIGH IS NULL) AND (x_SEGMENT14_HIGH IS NULL))) THEN
814 pn_var_rent_pkg.lock_row_exception('SEGMENT14_HIGH',tlinfo.SEGMENT14_HIGH);
815 END IF;
816
817 IF NOT ((tlinfo.SEGMENT15_LOW = x_SEGMENT15_LOW )
818 OR ((tlinfo.SEGMENT15_LOW IS NULL) AND (x_SEGMENT15_LOW IS NULL))) THEN
819 pn_var_rent_pkg.lock_row_exception('SEGMENT15_LOW',tlinfo.SEGMENT15_LOW);
820 END IF;
821
822 IF NOT ((tlinfo.SEGMENT15_HIGH = x_SEGMENT15_HIGH )
823 OR ((tlinfo.SEGMENT15_HIGH IS NULL) AND (x_SEGMENT15_HIGH IS NULL))) THEN
827 IF NOT ((tlinfo.SEGMENT16_LOW = x_SEGMENT16_LOW )
824 pn_var_rent_pkg.lock_row_exception('SEGMENT15_HIGH',tlinfo.SEGMENT15_HIGH);
825 END IF;
826
828 OR ((tlinfo.SEGMENT16_LOW IS NULL) AND (x_SEGMENT16_LOW IS NULL))) THEN
829 pn_var_rent_pkg.lock_row_exception('SEGMENT16_LOW',tlinfo.SEGMENT16_LOW);
830 END IF;
831
832 IF NOT ((tlinfo.SEGMENT16_HIGH = x_SEGMENT16_HIGH )
833 OR ((tlinfo.SEGMENT16_HIGH IS NULL) AND (x_SEGMENT16_HIGH IS NULL))) THEN
834 pn_var_rent_pkg.lock_row_exception('SEGMENT16_HIGH',tlinfo.SEGMENT16_HIGH);
835 END IF;
836
837 IF NOT ((tlinfo.SEGMENT17_LOW = x_SEGMENT17_LOW )
838 OR ((tlinfo.SEGMENT17_LOW IS NULL) AND (x_SEGMENT17_LOW IS NULL))) THEN
839 pn_var_rent_pkg.lock_row_exception('SEGMENT17_LOW',tlinfo.SEGMENT17_LOW);
840 END IF;
841
842 IF NOT ((tlinfo.SEGMENT17_HIGH = x_SEGMENT17_HIGH )
843 OR ((tlinfo.SEGMENT17_HIGH IS NULL) AND (x_SEGMENT17_HIGH IS NULL))) THEN
844 pn_var_rent_pkg.lock_row_exception('SEGMENT17_HIGH',tlinfo.SEGMENT17_HIGH);
845 END IF;
846
847 IF NOT ((tlinfo.SEGMENT18_LOW = x_SEGMENT18_LOW )
848 OR ((tlinfo.SEGMENT18_LOW IS NULL) AND (x_SEGMENT18_LOW IS NULL))) THEN
849 pn_var_rent_pkg.lock_row_exception('SEGMENT18_LOW',tlinfo.SEGMENT18_LOW);
850 END IF;
851
852 IF NOT ((tlinfo.SEGMENT18_HIGH = x_SEGMENT18_HIGH )
853 OR ((tlinfo.SEGMENT18_HIGH IS NULL) AND (x_SEGMENT18_HIGH IS NULL))) THEN
854 pn_var_rent_pkg.lock_row_exception('SEGMENT18_HIGH',tlinfo.SEGMENT18_HIGH);
855 END IF;
856
857 IF NOT ((tlinfo.SEGMENT19_LOW = x_SEGMENT19_LOW )
858 OR ((tlinfo.SEGMENT19_LOW IS NULL) AND (x_SEGMENT19_LOW IS NULL))) THEN
859 pn_var_rent_pkg.lock_row_exception('SEGMENT19_LOW',tlinfo.SEGMENT19_LOW);
860 END IF;
861
862 IF NOT ((tlinfo.SEGMENT19_HIGH = x_SEGMENT19_HIGH )
863 OR ((tlinfo.SEGMENT19_HIGH IS NULL) AND (x_SEGMENT19_HIGH IS NULL))) THEN
864 pn_var_rent_pkg.lock_row_exception('SEGMENT19_HIGH',tlinfo.SEGMENT19_HIGH);
865 END IF;
866
867 IF NOT ((tlinfo.SEGMENT20_LOW = x_SEGMENT20_LOW )
868 OR ((tlinfo.SEGMENT20_LOW IS NULL) AND (x_SEGMENT20_LOW IS NULL))) THEN
869 pn_var_rent_pkg.lock_row_exception('SEGMENT20_LOW',tlinfo.SEGMENT20_LOW);
870 END IF;
871
872 IF NOT ((tlinfo.SEGMENT20_HIGH = x_SEGMENT20_HIGH )
873 OR ((tlinfo.SEGMENT20_HIGH IS NULL) AND (x_SEGMENT20_HIGH IS NULL))) THEN
874 pn_var_rent_pkg.lock_row_exception('SEGMENT20_HIGH',tlinfo.SEGMENT20_HIGH);
875 END IF;
876
877 IF NOT ((tlinfo.SEGMENT21_LOW = x_SEGMENT21_LOW )
878 OR ((tlinfo.SEGMENT21_LOW IS NULL) AND (x_SEGMENT21_LOW IS NULL))) THEN
879 pn_var_rent_pkg.lock_row_exception('SEGMENT21_LOW',tlinfo.SEGMENT21_LOW);
880 END IF;
881
882 IF NOT ((tlinfo.SEGMENT21_HIGH = x_SEGMENT21_HIGH )
883 OR ((tlinfo.SEGMENT21_HIGH IS NULL) AND (x_SEGMENT21_HIGH IS NULL))) THEN
884 pn_var_rent_pkg.lock_row_exception('SEGMENT21_HIGH',tlinfo.SEGMENT21_HIGH);
885 END IF;
886
887 IF NOT ((tlinfo.SEGMENT22_LOW = x_SEGMENT22_LOW )
888 OR ((tlinfo.SEGMENT22_LOW IS NULL) AND (x_SEGMENT22_LOW IS NULL))) THEN
889 pn_var_rent_pkg.lock_row_exception('SEGMENT22_LOW',tlinfo.SEGMENT22_LOW);
890 END IF;
891
892 IF NOT ((tlinfo.SEGMENT22_HIGH = x_SEGMENT22_HIGH )
893 OR ((tlinfo.SEGMENT22_HIGH IS NULL) AND (x_SEGMENT22_HIGH IS NULL))) THEN
894 pn_var_rent_pkg.lock_row_exception('SEGMENT22_HIGH',tlinfo.SEGMENT22_HIGH);
895 END IF;
896
897 IF NOT ((tlinfo.SEGMENT23_LOW = x_SEGMENT23_LOW )
898 OR ((tlinfo.SEGMENT23_LOW IS NULL) AND (x_SEGMENT23_LOW IS NULL))) THEN
899 pn_var_rent_pkg.lock_row_exception('SEGMENT23_LOW',tlinfo.SEGMENT23_LOW);
900 END IF;
901
902 IF NOT ((tlinfo.SEGMENT23_HIGH = x_SEGMENT23_HIGH )
903 OR ((tlinfo.SEGMENT23_HIGH IS NULL) AND (x_SEGMENT23_HIGH IS NULL))) THEN
904 pn_var_rent_pkg.lock_row_exception('SEGMENT23_HIGH',tlinfo.SEGMENT23_HIGH);
905 END IF;
906
907 IF NOT ((tlinfo.SEGMENT24_LOW = x_SEGMENT24_LOW )
908 OR ((tlinfo.SEGMENT24_LOW IS NULL) AND (x_SEGMENT24_LOW IS NULL))) THEN
909 pn_var_rent_pkg.lock_row_exception('SEGMENT24_LOW',tlinfo.SEGMENT24_LOW);
910 END IF;
911
912 IF NOT ((tlinfo.SEGMENT24_HIGH = x_SEGMENT24_HIGH )
913 OR ((tlinfo.SEGMENT24_HIGH IS NULL) AND (x_SEGMENT24_HIGH IS NULL))) THEN
914 pn_var_rent_pkg.lock_row_exception('SEGMENT24_HIGH',tlinfo.SEGMENT24_HIGH);
915 END IF;
916
917 IF NOT ((tlinfo.SEGMENT25_LOW = x_SEGMENT25_LOW )
918 OR ((tlinfo.SEGMENT25_LOW IS NULL) AND (x_SEGMENT25_LOW IS NULL))) THEN
919 pn_var_rent_pkg.lock_row_exception('SEGMENT25_LOW',tlinfo.SEGMENT25_LOW);
920 END IF;
921
922 IF NOT ((tlinfo.SEGMENT25_HIGH = x_SEGMENT25_HIGH )
923 OR ((tlinfo.SEGMENT25_HIGH IS NULL) AND (x_SEGMENT25_HIGH IS NULL))) THEN
924 pn_var_rent_pkg.lock_row_exception('SEGMENT25_HIGH',tlinfo.SEGMENT25_HIGH);
925 END IF;
926
927 IF NOT ((tlinfo.SEGMENT26_LOW = x_SEGMENT26_LOW )
928 OR ((tlinfo.SEGMENT26_LOW IS NULL) AND (x_SEGMENT26_LOW IS NULL))) THEN
929 pn_var_rent_pkg.lock_row_exception('SEGMENT26_LOW',tlinfo.SEGMENT26_LOW);
930 END IF;
931
932 IF NOT ((tlinfo.SEGMENT26_HIGH = x_SEGMENT26_HIGH )
933 OR ((tlinfo.SEGMENT26_HIGH IS NULL) AND (x_SEGMENT26_HIGH IS NULL))) THEN
934 pn_var_rent_pkg.lock_row_exception('SEGMENT26_HIGH',tlinfo.SEGMENT26_HIGH);
935 END IF;
936
937 IF NOT ((tlinfo.SEGMENT27_LOW = x_SEGMENT27_LOW )
938 OR ((tlinfo.SEGMENT27_LOW IS NULL) AND (x_SEGMENT27_LOW IS NULL))) THEN
939 pn_var_rent_pkg.lock_row_exception('SEGMENT27_LOW',tlinfo.SEGMENT27_LOW);
940 END IF;
941
942 IF NOT ((tlinfo.SEGMENT27_HIGH = x_SEGMENT27_HIGH )
943 OR ((tlinfo.SEGMENT27_HIGH IS NULL) AND (x_SEGMENT27_HIGH IS NULL))) THEN
947 IF NOT ((tlinfo.SEGMENT28_LOW = x_SEGMENT28_LOW )
944 pn_var_rent_pkg.lock_row_exception('SEGMENT27_HIGH',tlinfo.SEGMENT27_HIGH);
945 END IF;
946
948 OR ((tlinfo.SEGMENT28_LOW IS NULL) AND (x_SEGMENT28_LOW IS NULL))) THEN
949 pn_var_rent_pkg.lock_row_exception('SEGMENT28_LOW',tlinfo.SEGMENT28_LOW);
950 END IF;
951
952 IF NOT ((tlinfo.SEGMENT28_HIGH = x_SEGMENT28_HIGH )
953 OR ((tlinfo.SEGMENT28_HIGH IS NULL) AND (x_SEGMENT28_HIGH IS NULL))) THEN
954 pn_var_rent_pkg.lock_row_exception('SEGMENT28_HIGH',tlinfo.SEGMENT28_HIGH);
955 END IF;
956
957 IF NOT ((tlinfo.SEGMENT29_LOW = x_SEGMENT29_LOW )
958 OR ((tlinfo.SEGMENT29_LOW IS NULL) AND (x_SEGMENT29_LOW IS NULL))) THEN
959 pn_var_rent_pkg.lock_row_exception('SEGMENT29_LOW',tlinfo.SEGMENT29_LOW);
960 END IF;
961
962 IF NOT ((tlinfo.SEGMENT29_HIGH = x_SEGMENT29_HIGH )
963 OR ((tlinfo.SEGMENT29_HIGH IS NULL) AND (x_SEGMENT29_HIGH IS NULL))) THEN
964 pn_var_rent_pkg.lock_row_exception('SEGMENT29_HIGH',tlinfo.SEGMENT29_HIGH);
965 END IF;
966
967 IF NOT ((tlinfo.SEGMENT30_LOW = x_SEGMENT30_LOW )
968 OR ((tlinfo.SEGMENT30_LOW IS NULL) AND (x_SEGMENT30_LOW IS NULL))) THEN
969 pn_var_rent_pkg.lock_row_exception('SEGMENT30_LOW',tlinfo.SEGMENT30_LOW);
970 END IF;
971
972 IF NOT ((tlinfo.SEGMENT30_HIGH = x_SEGMENT30_HIGH )
973 OR ((tlinfo.SEGMENT30_HIGH IS NULL) AND (x_SEGMENT30_HIGH IS NULL))) THEN
974 pn_var_rent_pkg.lock_row_exception('SEGMENT30_HIGH',tlinfo.SEGMENT30_HIGH);
975 END IF;
976
977 IF NOT ((tlinfo.attribute_category = x_attribute_category)
978 OR ((tlinfo.attribute_category is null) AND (x_attribute_category is null))) THEN
979 pn_var_rent_pkg.lock_row_exception('attribute_category',tlinfo.attribute_category);
980 END IF;
981
982 IF NOT ((tlinfo.attribute1 = x_attribute1)
983 OR ((tlinfo.attribute1 is null) AND (x_attribute1 is null))) THEN
984 pn_var_rent_pkg.lock_row_exception('attribute1',tlinfo.attribute1);
985 END IF;
986
987 IF NOT ((tlinfo.attribute2 = x_attribute2)
988 OR ((tlinfo.attribute2 is null) AND (x_attribute2 is null))) THEN
989 pn_var_rent_pkg.lock_row_exception('attribute2',tlinfo.attribute2);
990 END IF;
991
992 IF NOT ((tlinfo.attribute3 = x_attribute3)
993 OR ((tlinfo.attribute3 is null) AND (x_attribute3 is null))) THEN
994 pn_var_rent_pkg.lock_row_exception('attribute3',tlinfo.attribute3);
995 END IF;
996
997 IF NOT ((tlinfo.attribute4 = x_attribute4)
998 OR ((tlinfo.attribute4 is null) AND (x_attribute4 is null))) THEN
999 pn_var_rent_pkg.lock_row_exception('attribute4',tlinfo.attribute4);
1000 END IF;
1001
1002 IF NOT ((tlinfo.attribute5 = x_attribute5)
1003 OR ((tlinfo.attribute5 is null) AND (x_attribute5 is null))) THEN
1004 pn_var_rent_pkg.lock_row_exception('attribute5',tlinfo.attribute5);
1005 END IF;
1006
1007 IF NOT ((tlinfo.attribute6 = x_attribute6)
1008 OR ((tlinfo.attribute6 is null) AND (x_attribute6 is null))) THEN
1009 pn_var_rent_pkg.lock_row_exception('attribute6',tlinfo.attribute6);
1010 END IF;
1011
1012 IF NOT ((tlinfo.attribute7 = x_attribute7)
1013 OR ((tlinfo.attribute7 is null) AND (x_attribute7 is null))) THEN
1014 pn_var_rent_pkg.lock_row_exception('attribute7',tlinfo.attribute7);
1015 END IF;
1016
1017 IF NOT ((tlinfo.attribute8 = x_attribute8)
1018 OR ((tlinfo.attribute8 is null) AND (x_attribute8 is null))) THEN
1019 pn_var_rent_pkg.lock_row_exception('attribute8',tlinfo.attribute8);
1020 END IF;
1021
1022 IF NOT ((tlinfo.attribute9 = x_attribute9)
1023 OR ((tlinfo.attribute9 is null) AND (x_attribute9 is null))) THEN
1024 pn_var_rent_pkg.lock_row_exception('attribute9',tlinfo.attribute9);
1025 END IF;
1026
1027 IF NOT ((tlinfo.attribute10 = x_attribute10)
1028 OR ((tlinfo.attribute10 is null) AND (x_attribute10 is null))) THEN
1029 pn_var_rent_pkg.lock_row_exception('attribute10',tlinfo.attribute10);
1030 END IF;
1031
1032 IF NOT ((tlinfo.attribute11 = x_attribute11)
1033 OR ((tlinfo.attribute11 is null) AND (x_attribute11 is null))) THEN
1034 pn_var_rent_pkg.lock_row_exception('attribute11',tlinfo.attribute11);
1035 END IF;
1036
1037 IF NOT ((tlinfo.attribute12 = x_attribute12)
1038 OR ((tlinfo.attribute12 is null) AND (x_attribute12 is null))) THEN
1039 pn_var_rent_pkg.lock_row_exception('attribute12',tlinfo.attribute12);
1040 END IF;
1041
1042 IF NOT ((tlinfo.attribute13 = x_attribute13)
1043 OR ((tlinfo.attribute13 is null) AND (x_attribute13 is null))) THEN
1044 pn_var_rent_pkg.lock_row_exception('attribute13',tlinfo.attribute13);
1045 END IF;
1046
1047 IF NOT ((tlinfo.attribute14 = x_attribute14)
1048 OR ((tlinfo.attribute14 is null) AND (x_attribute14 is null))) THEN
1049 pn_var_rent_pkg.lock_row_exception('attribute14',tlinfo.attribute14);
1050 END IF;
1051
1052 IF NOT ((tlinfo.attribute15 = x_attribute15)
1053 OR ((tlinfo.attribute15 is null) AND (x_attribute15 is null))) THEN
1054 pn_var_rent_pkg.lock_row_exception('attribute15',tlinfo.attribute15);
1055 END IF;
1056
1057 END lock_row;
1058
1059 -------------------------------------------------------------------------------
1060 -- PROCDURE : delete_row
1061 -- INVOKED FROM : delete_row procedure
1062 -- PURPOSE : deletes the row
1063 -- HISTORY :
1064 -- 21-JUN-05 sdmahesh o Bug 4284035 - Replaced PN_LOC_ACC_MAP with _ALL table.
1065 -------------------------------------------------------------------------------
1066 PROCEDURE delete_row (
1067 x_LOC_ACC_MAP_ID IN NUMBER
1068 ) IS
1069 BEGIN
1070 DELETE FROM PN_LOC_ACC_MAP_ALL --sdm_MOAC
1071 WHERE LOC_ACC_MAP_ID = x_LOC_ACC_MAP_ID;
1072
1073 IF (SQL%NOTFOUND) THEN
1074 RAISE NO_DATA_FOUND;
1075 END IF;
1076 END delete_row;
1077
1078
1079 END PN_LOC_ACC_MAP_PKG;
[Home] [Help]