[Home] [Help]
PACKAGE BODY: APPS.ARP_ADDR_PKG
Source
1 PACKAGE BODY arp_addr_pkg as
2 /* $Header: AROADDRB.pls 120.6.12010000.3 2009/01/09 14:04:24 pbapna ship $ */
3
4 /*--------------------------------------------------------------------+
5 PUBLIC FUNCTION
6 format_address
7
8 DESCRIPTION
9 This function returns a sigle string of concatenated address
10 segments. The segments and their display order may vary according
11 to a given address format. Line breaks are inserted in order for the
12 segments to be allocated inside the given box dimension.
13
14 If the box size is not big enough to contain all the required
15 segment together with segment joint characters(spaces/commas),
16 or the box width is not long enough to contain any segment,
17 then the function truncates the string to provide the possible output.
18
19 REQUIRES
20 address_style : address format style
21 address1 : address line 1
22 address2 : address line 2
23 address3 : address line 3
24 address4 : address line 4
25 city : name of city
26 county : name of county
27 state : name of state
28 province : name of province
29 postal_code : postal code
30 territory_short_name : territory short name
31
32 OPTIONAL REQUIRES
33 country_code : country code
34 customer_name : customer name
35 first_name : contact first name
36 last_name : contact last name
37 mail_stop : mailing informatioin
38 default_country_code : default country code
39 default_country_desc : default territory short name
40 print_home_country_flag : flag to control home county printing
41 print_default_attn_flag : flag to control default attention message
42 width NUMBER : address box width
43 height_min : address box minimum height
44 height_max : address box maximum height
45
46 RETURN
47 formatted address string
48
49 +--------------------------------------------------------------------*/
50 FUNCTION format_address( address_style IN VARCHAR2,
51 address1 IN VARCHAR2,
52 address2 IN VARCHAR2,
53 address3 IN VARCHAR2,
54 address4 IN VARCHAR2,
55 city IN VARCHAR2,
56 county IN VARCHAR2,
57 state IN VARCHAR2,
58 province IN VARCHAR2,
59 postal_code IN VARCHAR2,
60 territory_short_name IN VARCHAR2,
61 country_code IN VARCHAR2 default NULL,
62 customer_name IN VARCHAR2 default NULL,
63 first_name IN VARCHAR2 default NULL,
64 last_name IN VARCHAR2 default NULL,
65 mail_stop IN VARCHAR2 default NULL,
66 default_country_code IN VARCHAR2 default NULL,
67 default_country_desc IN VARCHAR2 default NULL,
68 print_home_country_flag IN VARCHAR2 default 'Y',
69 print_default_attn_flag IN VARCHAR2 default 'N',
70 width IN NUMBER default 1000,
71 height_min IN NUMBER default 1,
72 height_max IN NUMBER default 1
73 )return VARCHAR2 IS
74 BEGIN
75 return( arxtw_format_address( address_style,
76 address1,
77 address2,
78 address3,
79 address4,
80 city,
81 county,
82 state,
83 province,
84 postal_code,
85 territory_short_name ) );
86
87 END format_address;
88
89
90
91 FUNCTION arxtw_format_address( address_style IN VARCHAR2,
92 address1 IN VARCHAR2,
93 address2 IN VARCHAR2,
94 address3 IN VARCHAR2,
95 address4 IN VARCHAR2,
96 city IN VARCHAR2,
97 county IN VARCHAR2,
98 state IN VARCHAR2,
99 province IN VARCHAR2,
100 postal_code IN VARCHAR2,
101 territory_short_name IN VARCHAR2
102 )return VARCHAR2 IS
103 l_address varchar2(2000); /*bug 7687922.Increased the variable
104 length*/
105 BEGIN
106 --
107 -- ra_addresses.address1 is a NOT NULL field.
108 --
109 l_address := address1;
110
111 IF ( address2 IS NOT NULL ) THEN
112 l_address := l_address || ', ' || address2;
113 END IF;
114
115 IF ( address3 IS NOT NULL ) THEN
116 l_address := l_address || ', ' || address3;
117 END IF;
118
119 IF ( address4 IS NOT NULL ) THEN
120 l_address := l_address || ', ' || address4;
121 END IF;
122
123 IF ( city IS NOT NULL ) THEN
124 l_address := l_address || ', ' || city;
125 END IF;
126
127 IF ( county IS NOT NULL ) THEN
128 l_address := l_address || ', ' || county;
129 END IF;
130
131 IF ( state IS NOT NULL ) THEN
132 l_address := l_address || ', ' || state;
133 END IF;
134
135 IF ( province IS NOT NULL ) THEN
136 l_address := l_address || ', ' || province;
137 END IF;
138
139 IF ( postal_code IS NOT NULL ) THEN
140 l_address := l_address || ', ' || postal_code;
141 END IF;
142
143 IF ( territory_short_name IS NOT NULL ) THEN
144 l_address := l_address || ', ' || territory_short_name;
145 END IF;
146
147 RETURN( l_address );
148 END arxtw_format_address;
149
150
151
152 FUNCTION format_last_address_line(p_address_style varchar2,
153 p_address3 varchar2,
154 p_address4 varchar2,
155 p_city varchar2,
156 p_county varchar2,
157 p_state varchar2,
158 p_province varchar2,
159 p_country varchar2,
160 p_postal_code varchar2 )
161 RETURN varchar2 IS
162
163
164 l_address varchar2(1000);
165 BEGIN
166 IF ( p_address3 IS NOT NULL )
167 THEN
168 l_address := p_address3;
169 END IF;
170
171 IF ( p_address4 IS NOT NULL )
172 THEN
173 IF (l_address IS NOT NULL)
174 THEN
175 l_address := l_address || ', ' || p_address4;
176 ELSE l_address := p_address4;
177 END IF;
178 END IF;
179
180 IF ( p_city IS NOT NULL )
181 THEN
182 IF (l_address IS NOT NULL)
183 THEN
184 l_address := l_address || ', ' || p_city;
185 ELSE l_address := p_city;
186 END IF;
187 END IF;
188
189 IF ( p_state IS NOT NULL )
190 THEN
191 IF (l_address IS NOT NULL)
192 THEN
193 l_address := l_address || ', ' || p_state;
194 ELSE l_address := p_state;
195 END IF;
196 END IF;
197
198 IF ( p_province IS NOT NULL )
199 THEN
200 IF (l_address IS NOT NULL)
201 THEN
202 l_address := l_address || ', ' || p_province;
203 ELSE l_address := p_province;
204 END IF;
205 END IF;
206
207 IF ( p_postal_code IS NOT NULL )
208 THEN
209 IF (l_address IS NOT NULL)
210 THEN
211 l_address := l_address || ' ' || p_postal_code;
212 ELSE l_address := p_postal_code;
213 END IF;
214 END IF;
215
216 IF ( p_country IS NOT NULL )
217 THEN
218 IF (l_address IS NOT NULL)
219 THEN
220 l_address := l_address || ' ' || p_country;
221 ELSE l_address := p_country;
222 END IF;
223 END IF;
224
225 RETURN(l_address);
226
227 END format_last_address_line;
228 --
229 -- PROCEDURE
230 -- insert_site_use
231 --
232 -- DESCRIPTION
233 -- This procedure calls arp_csu_pkg.insert_row to create a site use for
234 -- an address
235 --
236 -- SCOPE - PRIVATE
237 --
238 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
239 --
240 -- ARGUMENTS : IN:
241 -- p_address_id -
242 -- p_site_use_code - type of site use to create
243 -- OUT:
244 -- None
245 --
246 -- RETURNS : NONE
247 --
248 -- NOTES
249 --
250 -- MODIFICATION HISTORY - Created by Kevin Hudson
251 --
252 --
253 PROCEDURE insert_site_use( p_customer_id in number,
254 p_address_id in number,
255 p_site_use_code in varchar2) is
256 --
257 l_rowid varchar2(18);
258 l_site_use_id number;
259 l_location varchar2(40);
260 --
261 begin
262 --
263 --Stub out
264 NULL;
265 end insert_site_use;
266 --
267 -- PROCEDURE
268 -- manage_site_use
269 --
270 -- DESCRIPTION
271 -- This procedure manages the update/creations of site uses
272 --
273 -- SCOPE - PRIVATE
274 --
275 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
276 --
277 -- ARGUMENTS : IN: p_custoemr_id
278 -- p_address_id
279 -- p_site_use_flag - Y = create/activate a site use of this type
280 -- N = Inactive a site use ods this type if it exists
281 -- p_site_use_code - type of site use
282 -- OUT:
283 -- None
284 --
285 -- RETURNS : NONE
286 --
287 -- NOTES
288 --
289 -- MODIFICATION HISTORY - Created by Kevin Hudson
290 --
291 --
292 Procedure manage_site_use ( p_customer_id in number,
293 p_address_id in number,
294 p_site_use_flag in varchar2,
295 p_site_use_code in varchar2 ) is
296 begin
297 -- Stub out
298 NULL;
299
300 end manage_site_use;
301 --
302 -- PROCEDURE
303 -- update_site_use_flag
304 --
305 -- DESCRIPTION
306 -- This procedure updates the denormalized site_use flags
307 -- on address. It should only be called from arp_csu_pkg.
308 --
309 -- SCOPE - PUBLIC
310 --
311 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
312 --
313 -- ARGUMENTS : IN:
314 -- p_address_id -
315 -- p_site_use_code -
316 -- p_site_use_flag - Y = Active
317 -- P - Active and Primary
318 -- null - Inactive
319 -- OUT:
320 -- None
321 --
322 -- RETURNS : NONE
323 --
324 -- NOTES
325 --
326 -- MODIFICATION HISTORY - Created by Kevin Hudson
327 --
328 --
329 procedure update_site_use_flag ( p_address_id in number,
330 p_site_use_code in varchar2,
331 p_site_use_flag in varchar2 ) is
332 --
333 --
334 begin
335 --
336 -- The procedure is only callled if one of the flags requires updating
337 -- therfore the if then else logic has been pushed into the sql
338 --
339 update hz_cust_acct_sites
340 set bill_to_flag = decode(p_site_use_code,
341 'BILL_TO',p_site_use_flag,
342 bill_to_flag),
343 ship_to_flag = decode(p_site_use_code,
344 'SHIP_TO',p_site_use_flag,
345 ship_to_flag),
346 market_flag = decode(p_site_use_code,
347 'MARKET',p_site_use_flag,
348 market_flag)
349 where cust_acct_site_id = p_address_id;
350 --
351 if (SQL%NOTFOUND) then
352 raise NO_DATA_FOUND;
353 end if;
354 --
355 --
356 end update_site_use_flag;
357
358 --
359 --
360 -- PROCEDURE
361 -- check_unique_orig_system_ref
362 --
363 -- DESCRIPTION
364 -- This procedure checks that the orig_system_reference of an address
365 -- is unique
366 --
367 -- SCOPE - PUBLIC
368 --
369 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
370 --
371 -- ARGUMENTS : IN: p_address_id
372 -- p_orig_system_reference
373 -- OUT:
374 -- None
375 --
376 -- RETURNS : NONE
377 -- The system does not allow update of orig_system_reference
378 --
379 -- NOTES
383 --
380 --
381 -- MODIFICATION HISTORY - Created by Kevin Hudson
382 --
384 procedure check_unique_orig_system_ref(p_orig_system_reference in varchar2) is
385 --
386 dummy number;
387 --
388 begin
389 select count(1)
390 into dummy
391 from hz_cust_acct_sites addr
392 where addr.orig_system_reference = p_orig_system_reference;
393 --
394 --
395 if ( dummy >=1 ) then
396 fnd_message.set_name('AR','AR_CUST_ADDR_REF_EXISTS');
397 app_exception.raise_exception;
398 end if;
399 --
400
401 end check_unique_orig_system_ref;
402 --
403 --
404 PROCEDURE delete_customer_alt_names(p_rowid in varchar2,
405 p_status in varchar2,
406 p_customer_id in number,
407 p_address_id in number ) is
408 l_status varchar2(1);
409 l_lock_status number;
410 l_site_use_id number;
411 begin
412 --
413 --Stub out
414 NULL;
415 --
416 end delete_customer_alt_names;
417 --
418 --
419 --
420 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
421 X_Address_Id IN OUT NOCOPY NUMBER,
422 X_Last_Update_Date DATE,
423 X_Last_Updated_By NUMBER,
424 X_Creation_Date DATE,
425 X_Created_By NUMBER,
426 X_Customer_Id NUMBER,
427 X_Status VARCHAR2,
428 X_Orig_System_Reference IN OUT NOCOPY VARCHAR2,
429 X_Country VARCHAR2,
430 X_Address1 VARCHAR2,
431 X_Address2 VARCHAR2,
432 X_Address3 VARCHAR2,
433 X_Address4 VARCHAR2,
434 X_City VARCHAR2,
435 X_Postal_Code VARCHAR2,
436 X_State VARCHAR2,
437 X_Province VARCHAR2,
438 X_County VARCHAR2,
439 X_Last_Update_Login NUMBER,
440 X_Territory_Id NUMBER,
441 X_Address_Key VARCHAR2,
442 X_Attribute_Category VARCHAR2,
443 X_Attribute1 VARCHAR2,
444 X_Attribute2 VARCHAR2,
445 X_Attribute3 VARCHAR2,
446 X_Attribute4 VARCHAR2,
447 X_Attribute5 VARCHAR2,
448 X_Attribute6 VARCHAR2,
449 X_Attribute7 VARCHAR2,
450 X_Attribute8 VARCHAR2,
451 X_Attribute9 VARCHAR2,
452 X_Attribute10 VARCHAR2,
453 X_Attribute11 VARCHAR2,
454 X_Attribute12 VARCHAR2,
455 X_Attribute13 VARCHAR2,
456 X_Attribute14 VARCHAR2,
457 X_Attribute15 VARCHAR2,
458 X_Key_Account_Flag VARCHAR2,
459 X_Language VARCHAR2,
460 x_address_mode VARCHAR2,
461 X_su_Bill_To_Flag VARCHAR2,
462 X_su_Ship_To_Flag VARCHAR2,
463 X_su_Market_Flag VARCHAR2,
464 X_su_stmt_flag VARCHAR2,
465 X_su_dun_flag VARCHAR2,
466 X_su_legal_flag VARCHAR2,
467 x_address_warning out nocopy boolean,
468 X_Address_Lines_Phonetic VARCHAR2,
469 X_Customer_Category VARCHAR2,
470 X_Global_Attribute_Category VARCHAR2,
471 X_Global_Attribute1 VARCHAR2,
472 X_Global_Attribute2 VARCHAR2,
473 X_Global_Attribute3 VARCHAR2,
474 X_Global_Attribute4 VARCHAR2,
475 X_Global_Attribute5 VARCHAR2,
476 X_Global_Attribute6 VARCHAR2,
477 X_Global_Attribute7 VARCHAR2,
478 X_Global_Attribute8 VARCHAR2,
479 X_Global_Attribute9 VARCHAR2,
480 X_Global_Attribute10 VARCHAR2,
481 X_Global_Attribute11 VARCHAR2,
482 X_Global_Attribute12 VARCHAR2,
483 X_Global_Attribute13 VARCHAR2,
484 X_Global_Attribute14 VARCHAR2,
485 X_Global_Attribute15 VARCHAR2,
486 X_Global_Attribute16 VARCHAR2,
487 X_Global_Attribute17 VARCHAR2,
488 X_Global_Attribute18 VARCHAR2,
489 X_Global_Attribute19 VARCHAR2,
490 X_Global_Attribute20 VARCHAR2,
491 X_EDI_Location VARCHAR2,
495 X_Sales_Tax_Inside_City_Limits VARCHAR2
492 X_Territory VARCHAR2,
493 X_Translated_Customer_Name VARCHAR2,
494 X_Sales_Tax_Geocode VARCHAR2,
496 ) IS
497
498 BEGIN
499 --Stub out
500 NULL;
501 END Insert_Row;
502
503
504 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
505 X_Address_Id NUMBER,
506 X_Customer_Id NUMBER,
507 X_Status VARCHAR2,
508 X_Orig_System_Reference VARCHAR2,
509 X_Country VARCHAR2,
510 X_Address1 VARCHAR2,
511 X_Address2 VARCHAR2,
512 X_Address3 VARCHAR2,
513 X_Address4 VARCHAR2,
514 X_City VARCHAR2,
515 X_Postal_Code VARCHAR2,
516 X_State VARCHAR2,
517 X_Province VARCHAR2,
518 X_County VARCHAR2,
519 X_Territory_Id NUMBER,
520 X_Address_Key VARCHAR2,
521 X_Attribute_Category VARCHAR2,
522 X_Attribute1 VARCHAR2,
523 X_Attribute2 VARCHAR2,
524 X_Attribute3 VARCHAR2,
525 X_Attribute4 VARCHAR2,
526 X_Attribute5 VARCHAR2,
527 X_Attribute6 VARCHAR2,
528 X_Attribute7 VARCHAR2,
529 X_Attribute8 VARCHAR2,
530 X_Attribute9 VARCHAR2,
531 X_Attribute10 VARCHAR2,
532 X_Attribute11 VARCHAR2,
533 X_Attribute12 VARCHAR2,
534 X_Attribute13 VARCHAR2,
535 X_Attribute14 VARCHAR2,
536 X_Attribute15 VARCHAR2,
537 X_Key_Account_Flag VARCHAR2,
538 X_Language VARCHAR2,
539 X_su_Bill_To_Flag VARCHAR2,
540 X_su_Ship_To_Flag VARCHAR2,
541 X_su_Market_Flag VARCHAR2,
542 X_su_stmt_flag VARCHAR2,
543 X_su_dun_flag VARCHAR2,
544 X_su_legal_flag VARCHAR2,
545 X_Address_Lines_Phonetic VARCHAR2,
546 X_Customer_Category VARCHAR2,
547 X_Global_Attribute_Category VARCHAR2,
548 X_Global_Attribute1 VARCHAR2,
549 X_Global_Attribute2 VARCHAR2,
550 X_Global_Attribute3 VARCHAR2,
551 X_Global_Attribute4 VARCHAR2,
552 X_Global_Attribute5 VARCHAR2,
553 X_Global_Attribute6 VARCHAR2,
554 X_Global_Attribute7 VARCHAR2,
555 X_Global_Attribute8 VARCHAR2,
556 X_Global_Attribute9 VARCHAR2,
557 X_Global_Attribute10 VARCHAR2,
558 X_Global_Attribute11 VARCHAR2,
559 X_Global_Attribute12 VARCHAR2,
560 X_Global_Attribute13 VARCHAR2,
561 X_Global_Attribute14 VARCHAR2,
562 X_Global_Attribute15 VARCHAR2,
563 X_Global_Attribute16 VARCHAR2,
564 X_Global_Attribute17 VARCHAR2,
565 X_Global_Attribute18 VARCHAR2,
566 X_Global_Attribute19 VARCHAR2,
567 X_Global_Attribute20 VARCHAR2,
568 X_EDI_Location VARCHAR2,
569 X_Territory VARCHAR2,
570 X_Translated_Customer_Name VARCHAR2,
571 X_Sales_Tax_Geocode VARCHAR2,
572 X_Sales_Tax_Inside_City_Limits VARCHAR2
573 ) IS
574 BEGIN
575 --Stub out
576 NULL;
577 END Lock_Row;
578
579
580
581 PROCEDURE Update_Row(X_Rowid VARCHAR2,
582 X_Address_Id NUMBER,
583 X_Last_Update_Date DATE,
584 X_Last_Updated_By NUMBER,
585 X_Customer_Id NUMBER,
586 X_Status VARCHAR2,
587 X_Orig_System_Reference VARCHAR2,
588 X_Country VARCHAR2,
589 X_Address1 VARCHAR2,
590 X_Address2 VARCHAR2,
591 X_Address3 VARCHAR2,
592 X_Address4 VARCHAR2,
596 X_Province VARCHAR2,
593 X_City VARCHAR2,
594 X_Postal_Code VARCHAR2,
595 X_State VARCHAR2,
597 X_County VARCHAR2,
598 X_Last_Update_Login NUMBER,
599 X_Territory_Id NUMBER,
600 X_Address_Key VARCHAR2,
601 X_Attribute_Category VARCHAR2,
602 X_Attribute1 VARCHAR2,
603 X_Attribute2 VARCHAR2,
604 X_Attribute3 VARCHAR2,
605 X_Attribute4 VARCHAR2,
606 X_Attribute5 VARCHAR2,
607 X_Attribute6 VARCHAR2,
608 X_Attribute7 VARCHAR2,
609 X_Attribute8 VARCHAR2,
610 X_Attribute9 VARCHAR2,
611 X_Attribute10 VARCHAR2,
612 X_Attribute11 VARCHAR2,
613 X_Attribute12 VARCHAR2,
614 X_Attribute13 VARCHAR2,
615 X_Attribute14 VARCHAR2,
616 X_Attribute15 VARCHAR2,
617 X_Key_Account_Flag VARCHAR2,
618 X_Language VARCHAR2,
619 x_address_mode VARCHAR2,
620 X_su_Bill_To_Flag VARCHAR2,
621 X_su_Ship_To_Flag VARCHAR2,
622 X_su_Market_Flag VARCHAR2,
623 X_su_stmt_flag VARCHAR2,
624 X_su_dun_flag VARCHAR2,
625 X_su_legal_flag VARCHAR2,
626 x_address_warning out nocopy boolean,
627 X_Address_Lines_Phonetic VARCHAR2,
628 X_Customer_Category VARCHAR2,
629 X_Global_Attribute_Category VARCHAR2,
630 X_Global_Attribute1 VARCHAR2,
631 X_Global_Attribute2 VARCHAR2,
632 X_Global_Attribute3 VARCHAR2,
633 X_Global_Attribute4 VARCHAR2,
634 X_Global_Attribute5 VARCHAR2,
635 X_Global_Attribute6 VARCHAR2,
636 X_Global_Attribute7 VARCHAR2,
637 X_Global_Attribute8 VARCHAR2,
638 X_Global_Attribute9 VARCHAR2,
639 X_Global_Attribute10 VARCHAR2,
640 X_Global_Attribute11 VARCHAR2,
641 X_Global_Attribute12 VARCHAR2,
642 X_Global_Attribute13 VARCHAR2,
643 X_Global_Attribute14 VARCHAR2,
644 X_Global_Attribute15 VARCHAR2,
645 X_Global_Attribute16 VARCHAR2,
646 X_Global_Attribute17 VARCHAR2,
647 X_Global_Attribute18 VARCHAR2,
648 X_Global_Attribute19 VARCHAR2,
649 X_Global_Attribute20 VARCHAR2,
650 X_EDI_Location VARCHAR2,
651 X_Territory VARCHAR2,
652 X_Translated_Customer_Name VARCHAR2,
653 X_Sales_Tax_Geocode VARCHAR2,
654 X_Sales_Tax_Inside_City_Limits VARCHAR2
655 ) IS
656 --
657 --
658 BEGIN
659 --Stub out
660 NULL;
661
662 END Update_Row;
663 --
664 -----------------------------------------------------------------------------
665 -- If a location_id is populated for an address record, it means the setup
666 -- for tax is of type Sales Tax
667 -----------------------------------------------------------------------------
668 --
669 FUNCTION location_exists (p_address_id IN Number
670 ) return BOOLEAN is
671 --
672 location_identifier number;
673 --
674 BEGIN
675 --Stub out
676 RETURN (FALSE);
677 --
678 END location_exists;
679 --
680 ---------------------------------------------------------------------------------------
681 -- Receivable will not let you modify a customer address if:
682 --
683 -- (a) You have disabled: "Allow Change to Printed Transactions" (In AR System Options)
684 -- Note: Using this option, you protect the invoice from direct and indirect changes
685 --
686 -- AND
687 --
688 -- (b) At least one PRINTED OR POSTED OR APPLIED transaction exists for this bill-to
689 -- or ship-to site in Receivables and that transaction has Tax lines (Automatic
690 -- or Manually entered).
691 -- Reason: manual tax lines are audited in the same way that automatic tax lines
692 -- are
693 ---------------------------------------------------------------------------------------
694 --
695 FUNCTION transaction_exists (p_address_id IN number,
696 p_customer_id IN number)
697 return BOOLEAN is
698 --
699 BEGIN
700 --Stub out
701 RETURN (FALSE);
702 END transaction_exists;
703 --
707 -- rule is, "THE EDI LOCATION SHOULD BE UNIQUE FOR A CUSTOMER". Insert and Update
704 ----------------------------------------------------------------------------------
705 -- The procedure is called from insert_row/update_row. A check is made for the
706 -- existance of edi location for all the addresses of the customer. The business
708 -- are rejected with an error message if a duplicate is provided. Release-11
709 -- change for EDI.
710 ----------------------------------------------------------------------------------
711 --
712 procedure check_unique_edi_location(p_edi_location in varchar2,
713 p_customer_id in number,
714 p_orig_system_reference in varchar2) is
715 dummy number;
716 --
717 begin
718 -- Stub out
719 NULL;
720 end check_unique_edi_location;
721 --
722
723 END arp_addr_pkg;