[Home] [Help]
PACKAGE BODY: APPS.PNT_COMP_SITE_PKG
Source
1 PACKAGE BODY PNT_COMP_SITE_PKG AS
2 -- $Header: PNTCSITB.pls 120.3 2005/12/01 03:37:00 appldev ship $
3
4 -------------------------------------------------------------------------------
5 -- NAME : check_unique_company_role
6 -- DESCRIPTION : Raises fatal error if role already exists for a company
7 -- INVOKED FROM :
8 -- ARGUMENTS : IN : p_lease_role_type, p_company_id, p_company_site_id,
9 -- p_org_id
10 -- REFERENCE : PN_COMMON.debug()
11 -- HISTORY :
12 -- 22-JUN-98 Neeraj Tandon o Created
13 -- 14-MAY-02 Daniel Thota o Added parameter p_org_id as part of Multi-Org changes
14 -- 21-JUN-05 piagrawa o Bug 4284035 - Removed NVL
15 -------------------------------------------------------------------------------
16 PROCEDURE check_unique_company_role (
17 p_lease_role_type IN VARCHAR2,
18 p_company_id IN NUMBER,
19 p_company_site_id IN NUMBER,
20 p_org_id IN NUMBER
21 ) IS
22 dummy VARCHAR2(30);
23
24 BEGIN
25
26 PNP_DEBUG_PKG.debug ('PNT_COMP_SITE_PKG.check_unique_company_role (+)');
27
28 SELECT count(1)
29 INTO dummy
30 FROM pn_company_sites_all cs
31 WHERE cs.company_id = p_company_id
32 AND cs.lease_role_type = p_lease_role_type
33 AND ((p_company_site_id is null) or cs.company_site_id <> p_company_site_id )
34 AND org_id = p_org_id;
35
36 IF dummy >= 1 THEN
37
38 FND_MESSAGE.set_name ('PN','PN_COMP_LEASE_ROLE_EXISTS');
39 APP_EXCEPTION.raise_exception;
40
41 END IF;
42
43 PNP_DEBUG_PKG.debug ('PNT_COMP_SITE_PKG.check_unique_company_role (-)');
44
45 END check_unique_company_role;
46
47 -------------------------------------------------------------------------------
48 -- NAME : defined_address_format
49 -- DESCRIPTION : Checks if address format is defined in the descriptive
50 -- flexfield definition
51 -- INVOKED FROM :
52 -- ARGUMENTS : IN : p_addr_code
53 -- RETURNS : boolean
54 -- REFERENCE : PN_COMMON.debug()
55 -- HISTORY :
56 --
57 -- 06-JUN-05 piagrawa o Bug #4331843 Created
58 -------------------------------------------------------------------------------
59 FUNCTION defined_address_format(p_addr_code IN VARCHAR2) RETURN BOOLEAN IS
60
61 CURSOR address_format IS
62 SELECT descr.descriptive_flex_context_code
63 FROM fnd_lookups f
64 ,fnd_descr_flex_contexts descr
65 WHERE f.lookup_type = 'ADDRESS_STYLE'
66 AND descr.descriptive_flexfield_name = 'Flexible Address Format'
67 AND descr.application_ID = 240
68 AND descr.descriptive_flex_context_code = f.lookup_code
69 AND f.lookup_code = p_addr_code;
70
71 l_addr_forms_def BOOLEAN;
72
73 BEGIN
74
75 l_addr_forms_def := FALSE;
76 FOR i IN address_format LOOP
77 l_addr_forms_def := TRUE;
78 END LOOP;
79
80 RETURN l_addr_forms_def;
81
82 EXCEPTION
83 WHEN OTHERS THEN
84 RAISE;
85
86 END defined_address_format;
87
88 -------------------------------------------------------------------------------
89 -- NAME : insert_row
90 -- DESCRIPTION : insert row
91 -- INVOKED FROM :
92 -- ARGUMENTS :
93 -- RETURNS :
94 -- REFERENCE :
95 -- HISTORY :
96 -- 13-Jun-05 Kiran o Use _ALL tables - MOAC
97 -- 28-NOV-05 pikhar o fetched org_id using cursor
98 -------------------------------------------------------------------------------
99 PROCEDURE insert_row ( x_rowid IN OUT NOCOPY VARCHAR2,
100 x_company_site_id IN OUT NOCOPY NUMBER,
101 x_last_update_date DATE,
102 x_last_updated_by NUMBER,
103 x_creation_date DATE,
104 x_created_by NUMBER,
105 x_last_update_login NUMBER,
106 x_name VARCHAR2,
107 x_company_id NUMBER,
108 x_enabled_flag VARCHAR2,
109 x_company_site_code VARCHAR2,
110 x_address_id IN OUT NOCOPY NUMBER,
111 x_lease_role_type VARCHAR2,
112 x_attribute_category VARCHAR2,
113 x_attribute1 VARCHAR2,
114 x_attribute2 VARCHAR2,
115 x_attribute3 VARCHAR2,
116 x_attribute4 VARCHAR2,
117 x_attribute5 VARCHAR2,
118 x_attribute6 VARCHAR2,
119 x_attribute7 VARCHAR2,
120 x_attribute8 VARCHAR2,
121 x_attribute9 VARCHAR2,
122 x_attribute10 VARCHAR2,
123 x_attribute11 VARCHAR2,
124 x_attribute12 VARCHAR2,
125 x_attribute13 VARCHAR2,
126 x_attribute14 VARCHAR2,
127 x_attribute15 VARCHAR2,
128 x_address_line1 VARCHAR2,
129 x_address_line2 VARCHAR2,
130 x_address_line3 VARCHAR2,
131 x_address_line4 VARCHAR2,
132 x_county VARCHAR2,
133 x_city VARCHAR2,
134 x_state VARCHAR2,
135 x_province VARCHAR2,
136 x_zip_code VARCHAR2,
137 x_country VARCHAR2,
138 x_territory_id NUMBER,
139 x_addr_last_update_date DATE,
140 x_addr_last_updated_by NUMBER,
141 x_addr_creation_date DATE,
142 x_addr_created_by NUMBER,
143 x_addr_last_update_login NUMBER,
144 x_addr_attribute_category VARCHAR2,
145 x_addr_attribute1 VARCHAR2,
146 x_addr_attribute2 VARCHAR2,
147 x_addr_attribute3 VARCHAR2,
148 x_addr_attribute4 VARCHAR2,
149 x_addr_attribute5 VARCHAR2,
150 x_addr_attribute6 VARCHAR2,
151 x_addr_attribute7 VARCHAR2,
152 x_addr_attribute8 VARCHAR2,
153 x_addr_attribute9 VARCHAR2,
154 x_addr_attribute10 VARCHAR2,
155 x_addr_attribute11 VARCHAR2,
156 x_addr_attribute12 VARCHAR2,
157 x_addr_attribute13 VARCHAR2,
158 x_addr_attribute14 VARCHAR2,
159 x_addr_attribute15 VARCHAR2,
160 x_org_id NUMBER
161 ) IS
162 CURSOR C IS
163 SELECT rowid
164 FROM pn_company_sites_all
165 WHERE company_site_id = x_company_site_id;
166
167 CURSOR org_cur IS
168 SELECT org_id
169 FROM pn_companies_all
170 WHERE company_id = x_company_id;
171
172 l_org_id NUMBER;
173
174 BEGIN
175
176 PNP_DEBUG_PKG.debug ('PNT_COMP_SITE_PKG.insert_row (+)');
177
178 IF x_org_id IS NULL THEN
179 FOR rec IN org_cur LOOP
180 l_org_id := rec.org_id;
181 END LOOP;
182 ELSE
183 l_org_id := x_org_id;
184 END IF;
185
186 -----------------------------------------------------------------
187 -- Call the PN_ADDRESSES insert table handler to create an address
188 -- row and also return the address_id (OUT parameter) for
189 -- PN_COMPANY_SITES table
190 -----------------------------------------------------------------
191 PNT_ADDR_PKG.insert_row ( x_address_id,
192 x_address_line1,
193 x_address_line2,
194 x_address_line3,
195 x_address_line4,
196 x_county,
197 x_city,
198 x_state,
199 x_province,
200 x_zip_code,
201 x_country,
202 x_territory_id,
203 x_last_update_date,
204 x_last_updated_by,
205 x_creation_date,
206 x_created_by,
207 x_last_update_login,
208 null,
209 null,
210 null,
211 null,
212 null,
213 null,
214 null,
215 null,
216 null,
217 null,
218 null,
219 null,
220 null,
221 null,
222 null,
223 null,
224 x_addr_attribute_category,
225 x_addr_attribute1,
226 x_addr_attribute2,
227 x_addr_attribute3,
228 x_addr_attribute4,
229 x_addr_attribute5,
230 x_addr_attribute6,
231 x_addr_attribute7,
232 x_addr_attribute8,
233 x_addr_attribute9,
234 x_addr_attribute10,
235 x_addr_attribute11,
236 x_addr_attribute12,
237 x_addr_attribute13,
238 x_addr_attribute14,
239 x_addr_attribute15,
240 l_org_id
241 );
242
243 -----------------------------------------------------------------
244 -- Allocate the sequence to the primary key company_site_id
245 -----------------------------------------------------------------
246
247 SELECT pn_company_sites_s.nextval
248 INTO x_company_site_id
249 FROM dual;
250
251 INSERT INTO pn_company_sites_all (
252 company_site_id,
253 last_update_date,
254 last_updated_by,
255 creation_date,
256 created_by,
257 last_update_login,
258 name,
259 company_id,
260 enabled_flag,
261 company_site_code,
262 address_id,
263 lease_role_type,
264 attribute_category,
265 attribute1,
266 attribute2,
267 attribute3,
268 attribute4,
269 attribute5,
270 attribute6,
271 attribute7,
272 attribute8,
273 attribute9,
274 attribute10,
275 attribute11,
276 attribute12,
277 attribute13,
278 attribute14,
279 attribute15,
280 org_id
281 )
282 VALUES
283 (
284 x_company_site_id,
285 x_last_update_date,
286 x_last_updated_by,
287 x_creation_date,
288 x_created_by,
289 x_last_update_login,
290 x_name,
291 x_company_id,
292 x_enabled_flag,
293 x_company_site_code,
294 x_address_id,
295 x_lease_role_type,
296 x_attribute_category,
297 x_attribute1,
298 x_attribute2,
299 x_attribute3,
300 x_attribute4,
301 x_attribute5,
302 x_attribute6,
303 x_attribute7,
304 x_attribute8,
305 x_attribute9,
306 x_attribute10,
307 x_attribute11,
308 x_attribute12,
309 x_attribute13,
310 x_attribute14,
311 x_attribute15,
312 l_org_id
313 );
314 OPEN C;
315 FETCH C INTO x_rowid;
316 IF (C%NOTFOUND) THEN
317 CLOSE C;
318 RAISE NO_DATA_FOUND;
319 END IF;
320 CLOSE C;
321
322 PNP_DEBUG_PKG.debug ('PNT_COMP_SITE_PKG.insert_row (-)');
323
324 END insert_row;
325
326 -------------------------------------------------------------------------------
327 -- NAME : update_row
328 -- DESCRIPTION : update_row
329 -- INVOKED FROM :
330 -- ARGUMENTS :
331 -- RETURNS :
332 -- REFERENCE :
333 -- HISTORY :
334 -------------------------------------------------------------------------------
335 PROCEDURE update_row ( x_rowid VARCHAR2,
336 x_company_id NUMBER,
337 x_company_site_id NUMBER,
338 x_last_update_date DATE,
339 x_last_updated_by NUMBER,
340 x_last_update_login NUMBER,
341 x_name VARCHAR2,
342 x_enabled_flag VARCHAR2,
343 x_company_site_code VARCHAR2,
344 x_lease_role_type VARCHAR2,
345 x_attribute_category VARCHAR2,
346 x_attribute1 VARCHAR2,
347 x_attribute2 VARCHAR2,
348 x_attribute3 VARCHAR2,
349 x_attribute4 VARCHAR2,
350 x_attribute5 VARCHAR2,
351 x_attribute6 VARCHAR2,
352 x_attribute7 VARCHAR2,
353 x_attribute8 VARCHAR2,
354 x_attribute9 VARCHAR2,
355 x_attribute10 VARCHAR2,
356 x_attribute11 VARCHAR2,
357 x_attribute12 VARCHAR2,
358 x_attribute13 VARCHAR2,
359 x_attribute14 VARCHAR2,
360 x_attribute15 VARCHAR2,
361 x_address_id NUMBER,
362 x_address_line1 VARCHAR2,
363 x_address_line2 VARCHAR2,
364 x_address_line3 VARCHAR2,
365 x_address_line4 VARCHAR2,
366 x_county VARCHAR2,
367 x_city VARCHAR2,
368 x_state VARCHAR2,
369 x_province VARCHAR2,
370 x_zip_code VARCHAR2,
371 x_country VARCHAR2,
372 x_territory_id NUMBER,
373 x_addr_last_update_date DATE,
374 x_addr_last_updated_by NUMBER,
375 x_addr_last_update_login NUMBER,
376 x_addr_attribute_category VARCHAR2,
377 x_addr_attribute1 VARCHAR2,
378 x_addr_attribute2 VARCHAR2,
379 x_addr_attribute3 VARCHAR2,
380 x_addr_attribute4 VARCHAR2,
381 x_addr_attribute5 VARCHAR2,
382 x_addr_attribute6 VARCHAR2,
383 x_addr_attribute7 VARCHAR2,
384 x_addr_attribute8 VARCHAR2,
385 x_addr_attribute9 VARCHAR2,
386 x_addr_attribute10 VARCHAR2,
387 x_addr_attribute11 VARCHAR2,
388 x_addr_attribute12 VARCHAR2,
389 x_addr_attribute13 VARCHAR2,
390 x_addr_attribute14 VARCHAR2,
391 x_addr_attribute15 VARCHAR2
392 ) IS
393 BEGIN
394
395 PNP_DEBUG_PKG.debug ('PNT_COMP_SITE_PKG.update_row (+)');
396
397 UPDATE pn_company_sites_all
398 SET
399 last_update_date = x_last_update_date,
400 last_updated_by = x_last_updated_by,
401 last_update_login = x_last_update_login,
402 name = x_name,
403 enabled_flag = x_enabled_flag,
404 company_site_code = x_company_site_code,
405 lease_role_type = x_lease_role_type,
406 attribute_category = x_attribute_category,
407 attribute1 = x_attribute1,
408 attribute2 = x_attribute2,
409 attribute3 = x_attribute3,
410 attribute4 = x_attribute4,
411 attribute5 = x_attribute5,
412 attribute6 = x_attribute6,
413 attribute7 = x_attribute7,
414 attribute8 = x_attribute8,
415 attribute9 = x_attribute9,
416 attribute10 = x_attribute10,
417 attribute11 = x_attribute11,
418 attribute12 = x_attribute12,
419 attribute13 = x_attribute13,
420 attribute14 = x_attribute14,
421 attribute15 = x_attribute15
422 WHERE company_site_id = x_company_site_id
423 AND rowid = x_rowid;
424
425 IF (SQL%NOTFOUND) THEN
426 RAISE NO_DATA_FOUND;
427 END IF;
428
429 -----------------------------------------------------------------
430 -- Call the PN_ADDRESSES update table handler to update address
431 -- elements.
432 -----------------------------------------------------------------
433 PNT_ADDR_PKG.update_row ( x_address_id,
434 x_address_line1,
435 x_address_line2,
436 x_address_line3,
437 x_address_line4,
438 x_county,
439 x_city,
440 x_state,
441 x_province,
442 x_zip_code,
443 x_country,
444 x_territory_id,
445 x_last_update_date,
446 x_last_updated_by,
447 x_last_update_login,
448 null,
449 null,
450 null,
451 null,
452 null,
453 null,
454 null,
455 null,
456 null,
457 null,
458 null,
459 null,
460 null,
461 null,
462 null,
463 null,
464 x_addr_attribute_category,
465 x_addr_attribute1,
466 x_addr_attribute2,
467 x_addr_attribute3,
468 x_addr_attribute4,
469 x_addr_attribute5,
470 x_addr_attribute6,
471 x_addr_attribute7,
472 x_addr_attribute8,
473 x_addr_attribute9,
474 x_addr_attribute10,
475 x_addr_attribute11,
476 x_addr_attribute12,
477 x_addr_attribute13,
478 x_addr_attribute14,
479 x_addr_attribute15
480 );
481
482 PNP_DEBUG_PKG.debug ('PNT_COMP_SITE_PKG.update_row (-)');
483
484 END update_row;
485
486 -------------------------------------------------------------------------------
487 -- NAME : lock_row
488 -- DESCRIPTION : lock_row
489 -- INVOKED FROM :
490 -- ARGUMENTS :
491 -- RETURNS :
492 -- REFERENCE :
493 -- HISTORY :
494 -------------------------------------------------------------------------------
495 PROCEDURE lock_row ( x_rowid VARCHAR2,
496 x_company_site_id NUMBER,
497 x_name VARCHAR2,
498 x_company_id NUMBER,
499 x_enabled_flag VARCHAR2,
500 x_company_site_code VARCHAR2,
501 x_address_id NUMBER,
502 x_lease_role_type VARCHAR2,
503 x_attribute_category VARCHAR2,
504 x_attribute1 VARCHAR2,
505 x_attribute2 VARCHAR2,
506 x_attribute3 VARCHAR2,
507 x_attribute4 VARCHAR2,
508 x_attribute5 VARCHAR2,
509 x_attribute6 VARCHAR2,
510 x_attribute7 VARCHAR2,
511 x_attribute8 VARCHAR2,
512 x_attribute9 VARCHAR2,
513 x_attribute10 VARCHAR2,
514 x_attribute11 VARCHAR2,
515 x_attribute12 VARCHAR2,
516 x_attribute13 VARCHAR2,
517 x_attribute14 VARCHAR2,
518 x_attribute15 VARCHAR2,
519 x_address_line1 VARCHAR2,
520 x_address_line2 VARCHAR2,
521 x_address_line3 VARCHAR2,
522 x_address_line4 VARCHAR2,
523 x_county VARCHAR2,
524 x_city VARCHAR2,
525 x_state VARCHAR2,
526 x_province VARCHAR2,
527 x_zip_code VARCHAR2,
528 x_country VARCHAR2,
529 x_territory_id NUMBER,
530 x_addr_attribute_category VARCHAR2,
531 x_addr_attribute1 VARCHAR2,
532 x_addr_attribute2 VARCHAR2,
533 x_addr_attribute3 VARCHAR2,
534 x_addr_attribute4 VARCHAR2,
535 x_addr_attribute5 VARCHAR2,
536 x_addr_attribute6 VARCHAR2,
537 x_addr_attribute7 VARCHAR2,
538 x_addr_attribute8 VARCHAR2,
539 x_addr_attribute9 VARCHAR2,
540 x_addr_attribute10 VARCHAR2,
541 x_addr_attribute11 VARCHAR2,
542 x_addr_attribute12 VARCHAR2,
543 x_addr_attribute13 VARCHAR2,
544 x_addr_attribute14 VARCHAR2,
545 x_addr_attribute15 VARCHAR2
546 ) IS
547 CURSOR C IS
548 SELECT *
549 FROM pn_company_sites_all
550 WHERE rowid = x_rowid
551 FOR update of company_site_id NOWAIT;
552
553 Recinfo C%ROWTYPE;
554
555
556 BEGIN
557
558 PNP_DEBUG_PKG.debug ('PNT_COMP_SITE_PKG.lock_row (+)');
559
560 OPEN C;
561 FETCH C INTO Recinfo;
562 IF (C%NOTFOUND) THEN
563 CLOSE C;
564 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
565 APP_EXCEPTION.Raise_Exception;
566 END IF;
567 CLOSE C;
568
569 IF NOT (Recinfo.company_site_id = x_company_site_id) THEN
570 pn_var_rent_pkg.lock_row_exception('company_site_id',Recinfo.company_site_id);
571 END IF;
572 IF NOT (Recinfo.name = x_name) THEN
573 pn_var_rent_pkg.lock_row_exception('name',Recinfo.name);
574 END IF;
575 IF NOT (Recinfo.enabled_flag = x_enabled_flag) THEN
576 pn_var_rent_pkg.lock_row_exception('enabled_flag',Recinfo.enabled_flag);
577 END IF;
578 IF NOT ((Recinfo.company_id = x_company_id)
579 or ((Recinfo.company_id is null) and (x_company_id is null))) THEN
580 pn_var_rent_pkg.lock_row_exception('company_id',Recinfo.company_id);
581 END IF;
582 IF NOT ((Recinfo.lease_role_type = x_lease_role_type)
583 or ((Recinfo.lease_role_type is null) and (x_lease_role_type is null))) THEN
584 pn_var_rent_pkg.lock_row_exception('lease_role_type',Recinfo.lease_role_type);
585 END IF;
586 IF NOT ((Recinfo.company_site_code = x_company_site_code)
587 or ((Recinfo.company_site_code is null) and (x_company_site_code is null))) THEN
588 pn_var_rent_pkg.lock_row_exception('company_site_code',Recinfo.company_site_code);
589 END IF;
590 IF NOT ((Recinfo.address_id = x_address_id)
591 or ((Recinfo.address_id is null) and (x_address_id is null))) THEN
592 pn_var_rent_pkg.lock_row_exception('address_id',Recinfo.address_id);
593 END IF;
594 IF NOT ((Recinfo.attribute11 = x_attribute11)
595 or ((Recinfo.attribute11 is null) and (x_attribute11 is null))) THEN
596 pn_var_rent_pkg.lock_row_exception('attribute11',Recinfo.attribute11);
597 END IF;
598 IF NOT ((Recinfo.attribute12 = x_attribute12)
599 or ((Recinfo.attribute12 is null) and (x_attribute12 is null))) THEN
600 pn_var_rent_pkg.lock_row_exception('attribute12',Recinfo.attribute12);
601 END IF;
602 IF NOT ((Recinfo.attribute13 = x_attribute13)
603 or ((Recinfo.attribute13 is null) and (x_attribute13 is null))) THEN
604 pn_var_rent_pkg.lock_row_exception('attribute13',Recinfo.attribute13);
605 END IF;
606 IF NOT ((Recinfo.attribute14 = x_attribute14)
607 or ((Recinfo.attribute14 is null) and (x_attribute14 is null))) THEN
608 pn_var_rent_pkg.lock_row_exception('attribute14',Recinfo.attribute14);
609 END IF;
610 IF NOT ((Recinfo.attribute15 = x_attribute15)
611 or ((Recinfo.attribute15 is null) and (x_attribute15 is null))) THEN
612 pn_var_rent_pkg.lock_row_exception('attribute15',Recinfo.attribute15);
613 END IF;
614 IF NOT ((Recinfo.attribute_category = x_attribute_category)
615 or ((Recinfo.attribute_category is null) and (x_attribute_category is null))) THEN
616 pn_var_rent_pkg.lock_row_exception('attribute_category',Recinfo.attribute_category);
617 END IF;
618 IF NOT ((Recinfo.attribute1 = x_attribute1)
619 or ((Recinfo.attribute1 is null) and (x_attribute1 is null))) THEN
620 pn_var_rent_pkg.lock_row_exception('attribute1',Recinfo.attribute1);
621 END IF;
622 IF NOT ((Recinfo.attribute2 = x_attribute2)
623 or ((Recinfo.attribute2 is null) and (x_attribute2 is null))) THEN
624 pn_var_rent_pkg.lock_row_exception('attribute2',Recinfo.attribute2);
625 END IF;
626 IF NOT ((Recinfo.attribute3 = x_attribute3)
627 or ((Recinfo.attribute3 is null) and (x_attribute3 is null))) THEN
628 pn_var_rent_pkg.lock_row_exception('attribute3',Recinfo.attribute3);
629 END IF;
630 IF NOT ((Recinfo.attribute4 = x_attribute4)
631 or ((Recinfo.attribute4 is null) and (x_attribute4 is null))) THEN
632 pn_var_rent_pkg.lock_row_exception('attribute4',Recinfo.attribute4);
633 END IF;
634 IF NOT ((Recinfo.attribute5 = x_attribute5)
635 or ((Recinfo.attribute5 is null) and (x_attribute5 is null))) THEN
636 pn_var_rent_pkg.lock_row_exception('attribute5',Recinfo.attribute5);
637 END IF;
638 IF NOT ((Recinfo.attribute6 = x_attribute6)
639 or ((Recinfo.attribute6 is null) and (x_attribute6 is null))) THEN
640 pn_var_rent_pkg.lock_row_exception('attribute6',Recinfo.attribute6);
641 END IF;
642 IF NOT ((Recinfo.attribute7 = x_attribute7)
643 or ((Recinfo.attribute7 is null) and (x_attribute7 is null))) THEN
644 pn_var_rent_pkg.lock_row_exception('attribute7',Recinfo.attribute7);
645 END IF;
646 IF NOT ((Recinfo.attribute8 = x_attribute8)
647 or ((Recinfo.attribute8 is null) and (x_attribute8 is null))) THEN
648 pn_var_rent_pkg.lock_row_exception('attribute8',Recinfo.attribute8);
649 END IF;
650 IF NOT ((Recinfo.attribute9 = x_attribute9)
651 or ((Recinfo.attribute9 is null) and (x_attribute9 is null))) THEN
652 pn_var_rent_pkg.lock_row_exception('attribute9',Recinfo.attribute9);
653 END IF;
654 IF NOT ((Recinfo.attribute10 = x_attribute10)
655 or ((Recinfo.attribute10 is null) and (x_attribute10 is null))) THEN
656 pn_var_rent_pkg.lock_row_exception('attribute10',Recinfo.attribute10);
657 END IF;
658
659 -----------------------------------------------------------------
660 -- Call the PN_ADDRESSES lock table handler to lock the address
661 -- row for update
662 -----------------------------------------------------------------
663 PNT_ADDR_PKG.lock_row ( x_address_id,
664 x_address_line1,
665 x_address_line2,
666 x_address_line3,
667 x_address_line4,
668 x_county,
669 x_city,
670 x_state,
671 x_province,
672 x_zip_code,
673 x_country,
674 x_territory_id,
675 null,
676 null,
677 null,
678 null,
679 null,
680 null,
681 null,
682 null,
683 null,
684 null,
685 null,
686 null,
687 null,
688 null,
689 null,
690 null,
691 x_addr_attribute_category,
692 x_addr_attribute1,
693 x_addr_attribute2,
694 x_addr_attribute3,
695 x_addr_attribute4,
696 x_addr_attribute5,
697 x_addr_attribute6,
698 x_addr_attribute7,
699 x_addr_attribute8,
700 x_addr_attribute9,
701 x_addr_attribute10,
702 x_addr_attribute11,
703 x_addr_attribute12,
704 x_addr_attribute13,
705 x_addr_attribute14,
706 x_addr_attribute15
707 );
708
709 PNP_DEBUG_PKG.debug ('PNT_COMP_SITE_PKG.lock_row (-)');
710
711 END lock_row;
712
713 END PNT_COMP_SITE_PKG;