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