1 PACKAGE BODY ARP_ADDS AS
2 /* $Header: ARPLLOCB.pls 120.10 2005/09/02 02:30:14 sachandr ship $ */
3
4 /*-------------------------------------------------------------------------+
5 | |
6 | PRIVATE EXCEPTIONS |
7 | |
8 +-------------------------------------------------------------------------*/
9
10 compile_error EXCEPTION;
11 PRAGMA EXCEPTION_INIT(compile_error, -6550);
12
13 /*-------------------------------------------------------------------------+
14 | |
15 | PRIVATE VARIABLES |
16 | |
17 +-------------------------------------------------------------------------*/
18
19 cached_org_id integer;
20 cached_org_append varchar2(100);
21 --PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('TAX_DEBUG_FLAG'), 'N');
22 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
23 g_current_runtime_level NUMBER;
24 g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25
26 /* private procedures */
27
28 procedure std_other_error( cursor_id in out NOCOPY number,
29 sql_statement in varchar2 ) is
30 stmt_len integer;
31 loop_var integer;
32 begin
33 null;
34 end std_other_error;
35
36 procedure std_compile_error( cursor_id in out NOCOPY number,
37 sql_statement in varchar2 ) is
38 begin
39 null;
40 end std_compile_error;
41
42 /*-------------------------------------------------------------------------+
43 | PUBLIC FUNCTION |
44 | find_location_segment_id |
45 | |
46 | DESCRIPTION |
47 | This function Returns a segment value id for any given value of a |
48 | location flexfield segment. |
49 | |
50 | If the given value cannot be found in the table, it is inserted |
51 | and the new location_segment_id is returned from the sequence |
52 | AR_LOCATION_VALUES_S.nextval |
53 | |
54 | REQUIRES |
55 | |
56 | location_segment_qualifier Value set name used of this segment,eg City|
57 | segment_value The value to be found/inserted, eg Belmont |
58 | parent_segment_id The unique ID of the parent that owns this |
59 | segment. |
60 | OPTIONAL |
61 | |
62 | Descriptive Flexfield Attribute_category and Descriptive Flexfield |
63 | information, used if this calls inserts a |
64 | new row in ar_location_values |
65 | |
66 | Search_Precission If an existing locaion could not be found |
67 | and the supplied location is this number of |
68 | characters wide, then reattempt the search |
69 | using just this precission. Allows user to |
70 | manually correct truncated Cities, if the |
71 | data they upload through the interface table |
72 | only supplies the first N character of a city|
73 | name. |
74 | |
75 | RETURNS |
76 | LOCATION_SEGMENT_ID for the value. |
77 | |
78 | EXCEPTIONS RAISED |
79 | |
80 | NOTES |
81 | |
82 | EXAMPLE |
83 | |
84 | MODIFICATION HISTORY |
85 | 22-Jan-93 Nigel Smith Created. |
86 | 17-Feb-93 Nigel Smith Now stores all segment values in uppercase |
87 | comparisons are case independent |
88 | 23-Aug-93 Nigel Smith Added support for Descriptive Flexfields |
89 | used by Tax Interface program |
90 +-------------------------------------------------------------------------*/
91
92
93 FUNCTION
94 find_location_segment_id( location_segment_qualifier in varchar2,
95 segment_value in varchar2,
96 segment_description in varchar2,
97 parent_segment_id in number,
98 ATTRIBUTE_CATEGORY in varchar2 default 'TRIGGER',
99 ATTRIBUTE1 in varchar2 default null,
100 ATTRIBUTE2 in varchar2 default null,
101 ATTRIBUTE3 in varchar2 default null,
102 ATTRIBUTE4 in varchar2 default null,
103 ATTRIBUTE5 in varchar2 default null,
104 ATTRIBUTE6 in varchar2 default null,
105 ATTRIBUTE7 in varchar2 default null,
106 ATTRIBUTE8 in varchar2 default null,
107 ATTRIBUTE9 in varchar2 default null,
108 ATTRIBUTE10 in varchar2 default null,
109 ATTRIBUTE11 in varchar2 default null,
110 ATTRIBUTE12 in varchar2 default null,
111 ATTRIBUTE13 in varchar2 default null,
112 ATTRIBUTE14 in varchar2 default null,
113 ATTRIBUTE15 in varchar2 default null,
114 SEARCH_PRECISSION in number default null )
115 return number IS
116
117 l_location_segment_inserted varchar2(5);
118 location_segment_id number;
119 c integer;
120 rows_processed integer;
121 statement varchar2(1000);
122
123 BEGIN
124 -- Stubbed out for R12
125 g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
126 IF (g_level_procedure >= g_current_runtime_level ) THEN
127 FND_LOG.STRING(g_level_procedure,
128 'AR.PLSQL.ARP_ADDS.find_location_segment_id',
129 'Warning - obsolete code being referenced: ARP_TAX.find_location_segment_id()');
130 END IF;
131 return null;
132 END find_location_segment_id;
133
134
135
136 /*-------------------------------------------------------------------------+
137 | PUBLIC PROCEDURE |
138 | location_information |
139 | |
140 | DESCRIPTION |
141 | This function Returns a location description given either: |
142 | locaiton_segment_id, or |
143 | locaiton_segment_qualifier and location_segment_value |
144 | |
145 | REQUIRES |
146 | location_segment_qualifier Value set name used on this segment,eg City|
147 | segment_value The value to be found/inserted, eg Belmont |
148 | or: |
149 | location_segment_id Unique id for this location |
150 | |
151 | RETURNS |
152 | location_segment_id |
153 | location_segment_value |
154 | location_segment_description |
155 | location_segment_qualifier |
156 | parent_segment_id |
157 | |
158 | EXCEPTIONS RAISED |
159 | |
160 | NOTES |
161 | |
162 | EXAMPLE |
163 | |
164 | MODIFICATION HISTORY |
165 | 17-JUN-93 Nigel Smith Created. |
166 +-------------------------------------------------------------------------*/
167
168
169 procedure location_information( location_segment_id in number,
170 location_segment_qualifier out NOCOPY varchar2,
171 location_segment_value out NOCOPY varchar2,
172 location_segment_description out NOCOPY varchar2,
173 parent_segment_id out NOCOPY number ) is
174
175 dummy_vch varchar2(2);
176 dummy_num number;
177 c integer;
178 rows_processed integer;
179 statement varchar2(1000);
180
181 begin
182 -- Stubbed out for R12
183 null;
184 end location_information;
185
186
187 procedure location_information( location_segment_qualifier in varchar2,
188 location_segment_value in varchar2,
189 location_segment_description out NOCOPY varchar2,
190 parent_segment_id out NOCOPY number ) is
191
192 dummy_vch varchar2(2);
193 dummy_num number;
194 c integer;
195 rows_processed integer;
196 statement varchar2(1000);
197
198 begin
199 -- Stubbed for R12;
200 null;
201 end location_information;
202
203
204 function location_description( location_segment_qualifier in varchar2,
205 location_segment_value in varchar2 )
206 return varchar2 is
207
208
209 location_segment_description varchar2(60);
210 c integer;
211 rows_processed integer;
212 statement varchar2(1000);
213
214 begin
215 -- Stubbed for R12;
216 null;
217 end location_description;
218
219
220 function location_description( location_segment_id in number )
221 return varchar2 is
222
223 location_segment_description varchar2(60);
224 c integer;
225 rows_processed integer;
226 statement varchar2(1000);
227
228 begin
229 -- Stubbed out for R12
230 null;
231 end location_description;
232
233
234 /*-------------------------------------------------------------------------+
235 | PUBLIC PROCEDURE |
236 | enable_triggers / disable_triggers |
237 | |
238 | DESCRIPTION |
239 | |
240 | Control the execution of database triggers associated with the |
241 | customer address functions, disabling or enabling there actions. |
242 | |
243 | This is used to enhance performance of certain batch operations |
244 | such as the Sales Tax Interface programs, when the row by row |
245 | nature of database triggers would degrade performance of the system |
246 | |
247 | MODIFIES |
248 | |
249 | adds.triggers_enabled |
250 | |
251 | EXCEPTIONS RAISED |
252 | |
253 | NOTES |
254 | |
255 | EXAMPLE |
256 | |
260
257 +-------------------------------------------------------------------------*/
258
259 procedure enable_triggers is
261 c integer;
262 rows_processed integer;
263 statement varchar2(1000);
264
265 begin
266
267 -- Stubbed out for R12
268 null;
269 end enable_triggers;
270
271 procedure disable_triggers is
272
273 c integer;
274 rows_processed integer;
275 statement varchar2(1000);
276
277 begin
278 -- Stubbed out for R12
279 null;
280 end disable_triggers;
281
282 /*-------------------------------------------------------------------------+
283 | PUBLIC FUNCTION |
284 | ins_location_values |
285 | |
286 | DESCRIPTION |
287 | This function generates a new record in the table: AR_LOCATION_VALUES |
288 | and returns the LOCATION_SEGMENT_ID of this new record |
289 | |
290 | REQUIRES |
291 | location_segment_qualifier Value set name used of this segment |
292 | segment_value The value to be inserted, eg Belmont |
293 | parent_segment_id The unique ID of the parent that owns this |
294 | segment. |
295 | |
296 | RETURNS |
297 | LOCATION_SEGMENT_ID for the value. |
298 | |
299 | EXCEPTIONS RAISED |
300 | |
301 | NOTES |
302 | |
303 | EXAMPLE |
304 | |
305 +-------------------------------------------------------------------------*/
306
307 FUNCTION ins_location_values( location_segment_qualifier in varchar2,
308 segment_value in varchar2,
309 segment_description in varchar2,
310 parent_segment_id in varchar2,
311 ATTRIBUTE_CATEGORY in varchar2 default 'TRIGGER',
312 ATTRIBUTE1 in varchar2 default null,
313 ATTRIBUTE2 in varchar2 default null,
314 ATTRIBUTE3 in varchar2 default null,
315 ATTRIBUTE4 in varchar2 default null,
316 ATTRIBUTE5 in varchar2 default null,
317 ATTRIBUTE6 in varchar2 default null,
318 ATTRIBUTE7 in varchar2 default null,
319 ATTRIBUTE8 in varchar2 default null,
320 ATTRIBUTE9 in varchar2 default null,
321 ATTRIBUTE10 in varchar2 default null,
322 ATTRIBUTE11 in varchar2 default null,
323 ATTRIBUTE12 in varchar2 default null,
324 ATTRIBUTE13 in varchar2 default null,
325 ATTRIBUTE14 in varchar2 default null,
326 ATTRIBUTE15 in varchar2 default null
327 ) return number IS
328
329 location_id number;
330 c integer;
331 rows_processed integer;
332 statement varchar2(1000);
333
334 BEGIN
335
336 -- Stubbed out for R12
337 null;
338 end ins_location_values;
339
340 /*-------------------------------------------------------------------------+
341 | PUBLIC FUNCTION |
342 | ins_location_rates |
343 | |
344 | DESCRIPTION |
345 | This function generates a new record in the table: AR_LOCATION_RATES |
346 | and returns the LOCATION_RATE_ID of this new record |
347 | |
348 | REQUIRES |
349 | |
350 | RETURNS |
351 | LOCATION_RATE_ID for the value. |
352 | |
353 | EXCEPTIONS RAISED |
354 | |
355 | NOTES |
356 | |
357 | EXAMPLE |
361 FUNCTION ins_location_rates( location_segment_id in number,
358 | |
359 +-------------------------------------------------------------------------*/
360
362 from_postal_code in varchar2,
363 to_postal_code in varchar2,
364 start_date in date,
365 end_date in date,
366 tax_rate in number,
367 ATTRIBUTE_CATEGORY in varchar2 default 'TRIGGER',
368 ATTRIBUTE1 in varchar2 default null,
369 ATTRIBUTE2 in varchar2 default null,
370 ATTRIBUTE3 in varchar2 default null,
371 ATTRIBUTE4 in varchar2 default null,
372 ATTRIBUTE5 in varchar2 default null,
373 ATTRIBUTE6 in varchar2 default null,
374 ATTRIBUTE7 in varchar2 default null,
375 ATTRIBUTE8 in varchar2 default null,
376 ATTRIBUTE9 in varchar2 default null,
377 ATTRIBUTE10 in varchar2 default null,
378 ATTRIBUTE11 in varchar2 default null,
379 ATTRIBUTE12 in varchar2 default null,
380 ATTRIBUTE13 in varchar2 default null,
381 ATTRIBUTE14 in varchar2 default null,
382 ATTRIBUTE15 in varchar2 default null,
383 OVERRIDE_STRUCTURE_ID in NUMBER default null,
384 OVERRIDE_RATE1 in NUMBER default null,
385 OVERRIDE_RATE2 in NUMBER default null,
386 OVERRIDE_RATE3 in NUMBER default null,
387 OVERRIDE_RATE4 in NUMBER default null,
388 OVERRIDE_RATE5 in NUMBER default null,
389 OVERRIDE_RATE6 in NUMBER default null,
390 OVERRIDE_RATE7 in NUMBER default null,
391 OVERRIDE_RATE8 in NUMBER default null,
392 OVERRIDE_RATE9 in NUMBER default null,
393 OVERRIDE_RATE10 in NUMBER default null
394 ) return number is
395
396 location_rate_id number;
397 c integer;
398 rows_processed integer;
399 statement varchar2(1000);
400
401 BEGIN
402 -- Stubbed out for R12
403 null;
404 end ins_location_rates;
405
406
407 PROCEDURE ins_location_rates( location_segment_id in number,
408 from_postal_code in varchar2,
409 to_postal_code in varchar2,
410 start_date in date,
411 end_date in date,
412 tax_rate in number,
413 ATTRIBUTE_CATEGORY in varchar2 default 'TRIGGER',
414 ATTRIBUTE1 in varchar2 default null,
415 ATTRIBUTE2 in varchar2 default null,
416 ATTRIBUTE3 in varchar2 default null,
417 ATTRIBUTE4 in varchar2 default null,
418 ATTRIBUTE5 in varchar2 default null,
419 ATTRIBUTE6 in varchar2 default null,
420 ATTRIBUTE7 in varchar2 default null,
421 ATTRIBUTE8 in varchar2 default null,
422 ATTRIBUTE9 in varchar2 default null,
423 ATTRIBUTE10 in varchar2 default null,
424 ATTRIBUTE11 in varchar2 default null,
425 ATTRIBUTE12 in varchar2 default null,
426 ATTRIBUTE13 in varchar2 default null,
427 ATTRIBUTE14 in varchar2 default null,
428 ATTRIBUTE15 in varchar2 default null,
429 OVERRIDE_STRUCTURE_ID in NUMBER default null,
430 OVERRIDE_RATE1 in NUMBER default null,
431 OVERRIDE_RATE2 in NUMBER default null,
432 OVERRIDE_RATE3 in NUMBER default null,
433 OVERRIDE_RATE4 in NUMBER default null,
434 OVERRIDE_RATE5 in NUMBER default null,
435 OVERRIDE_RATE6 in NUMBER default null,
436 OVERRIDE_RATE7 in NUMBER default null,
437 OVERRIDE_RATE8 in NUMBER default null,
438 OVERRIDE_RATE9 in NUMBER default null,
439 OVERRIDE_RATE10 in NUMBER default null) is
440
441 c integer;
442 rows_processed integer;
443 statement varchar2(1000);
444
445 BEGIN
446
447 -- Stubbed out for R12
448 null;
449 end ins_location_rates;
450
451 /*-------------------------------------------------------------------------+
452 | PUBLIC FUNCTION |
453 | ins_location_combinations |
454 | |
455 | DESCRIPTION |
456 | This function generates a new record in the table: |
457 | AR_LOCATON_COMBINATIONS and returns the location code combinations id |
461 | location_structure_id Multiflex structure ID in use |
458 | for this new record. |
459 | |
460 | REQUIRES |
462 | start_date_active Date at which Code combination becomes active |
463 | end_date_active Date at which Code combinatino becomes inactive|
464 | location_id_segment_1 Location_segment_id for segment 1 or null |
465 | location_id_segment_2 Location_segment_id for segment 2 or null |
466 | location_id_segment_3 Location_segment_id for segment 3 or null |
467 | location_id_segment_4 Location_segment_id for segment 4 or null |
468 | location_id_segment_5 Location_segment_id for segment 5 or null |
469 | location_id_segment_6 Location_segment_id for segment 6 or null |
470 | location_id_segment_7 Location_segment_id for segment 7 or null |
471 | location_id_segment_8 Location_segment_id for segment 8 or null |
472 | location_id_segment_9 Location_segment_id for segment 9 or null |
473 | location_id_segment_10 Location_segment_id for segment 10 or null |
474 | |
475 | RETURNS |
476 | LOCATION_CODE_COMBINATION_ID of the new record. |
477 | |
478 | EXCEPTIONS RAISED |
479 | |
480 | NOTES |
481 | |
482 | EXAMPLE |
483 | |
484 +-------------------------------------------------------------------------*/
485
486
487 FUNCTION ins_location_combinations( LOCATION_STRUCTURE_ID NUMBER,
488 START_DATE_ACTIVE DATE,
489 END_DATE_ACTIVE DATE,
490 LOCATION_ID_SEGMENT_1 NUMBER,
491 LOCATION_ID_SEGMENT_2 NUMBER,
492 LOCATION_ID_SEGMENT_3 NUMBER,
493 LOCATION_ID_SEGMENT_4 NUMBER,
494 LOCATION_ID_SEGMENT_5 NUMBER,
495 LOCATION_ID_SEGMENT_6 NUMBER,
496 LOCATION_ID_SEGMENT_7 NUMBER,
497 LOCATION_ID_SEGMENT_8 NUMBER,
498 LOCATION_ID_SEGMENT_9 NUMBER,
499 LOCATION_ID_SEGMENT_10 NUMBER,
500 ENABLED_FLAG varchar2 )
501 return number IS
502 location_id number;
503 c integer;
504 rows_processed integer;
505 statement varchar2(1000);
506
507 BEGIN
508
509 -- Stubbed out for R12
510 null;
511 end ins_location_combinations;
512
513 /*-------------------------------------------------------------------------+
514 | PUBLIC FUNCTION |
515 | TERRITORY_SHORT_NAME |
516 | |
517 | CALLED BY TRIGGER AR_LOCATION_VALUES_BRIU |
518 | |
519 | DESCRIPTION |
520 | |
521 | Given a territory code, this function returns the description for that |
522 | territory. |
523 | |
524 | REQUIRES |
525 | territory_code FK to FND_TERRITORIES.TERRITORY_CODE |
526 | |
527 | RETURNS |
528 | Description FND_TERRITORIES.DESCRIPTION |
529 | |
530 | EXCEPTIONS RAISED |
531 | NO_DATA_FOUND If the FK is in error |
532 | |
533 | NOTES |
534 | Package variables: PREVIOUS_TERRITORY_CODE and PREVIOUS_TERRITORY_ |
535 | SHORT_NAME cache the most recent database access. |
536 | |
537 | EXAMPLE |
538 | |
539 +-------------------------------------------------------------------------*/
540
541
542 function terr_short_name( territory_code in varchar2 ) return varchar2 is
543
544 l_territory_short_name varchar2(80);
548
545 c integer;
546 rows_processed integer;
547 statement varchar2(1000);
549 BEGIN
550
551 -- Stubbed out for R12
552 null;
553 end terr_short_name;
554
555 /*-------------------------------------------------------------------------+
556 | PUBLIC PROCEDURE |
557 | Set_Location_CCID |
558 | |
559 | CALLED BY TRIGGER RA_ADDRESSES_BRIU |
560 | |
561 | DESCRIPTION |
562 | |
563 | Given Each of the key components of this address, find and set the |
564 | Location_ID column to the Code Combinations ID applicable to this |
565 | address. |
566 | |
567 | In order to do this, it may be necessary to insert new items into |
568 | the tables: AR_LOCATION_VALUES and AR_LOCATION_COMBINATIONS |
569 | |
570 | REQUIRES |
571 | City City column of RA_ADDRESSES |
572 | State State column of RA_ADDRESSES |
573 | County County column of RA_ADDRESSES |
574 | Province Province column of RA_ADDRESSES |
575 | Country Country column of RA_ADDRESSES |
576 | Postal Code Postal Code column of RA_ADDRESSES |
577 | DF1 .. 10 User Descriptive Flexfields 1 through 10 |
578 | |
579 | RETURNS |
580 | Location_ID Set the Location Code Combination id |
581 | applicable to this address given each of the |
582 | segment values described above. |
583 | MODIFIES |
584 | Each of the address components may have the value NULL, even though |
585 | it is used as part of the location flexfield. If so, this code will |
586 | determine the missing value using the other segments and postal code |
587 | and update this column to hold the correct value. |
588 | |
589 | EXCEPTIONS RAISED |
590 | |
591 | NOTES |
592 | |
593 | EXAMPLE |
594 | |
595 +-------------------------------------------------------------------------*/
596
597 PROCEDURE Set_Location_CCID( Country in out NOCOPY varchar2,
598 City in out NOCOPY varchar2,
599 State in out NOCOPY varchar2,
600 County in out NOCOPY varchar2,
601 Province in out NOCOPY varchar2,
602 Postal_code in out NOCOPY varchar2,
603 attribute1 in out NOCOPY varchar2,
604 attribute2 in out NOCOPY varchar2,
605 attribute3 in out NOCOPY varchar2,
606 attribute4 in out NOCOPY varchar2,
607 attribute5 in out NOCOPY varchar2,
608 attribute6 in out NOCOPY varchar2,
609 attribute7 in out NOCOPY varchar2,
610 attribute8 in out NOCOPY varchar2,
611 attribute9 in out NOCOPY varchar2,
612 attribute10 in out NOCOPY varchar2,
613 location_ccid in out NOCOPY number,
614 address_id in number default null ) IS
615
616 l_location_segment_inserted varchar2(5);
617 c integer;
618 rows_processed integer;
619 statement varchar2(1000);
620
621 BEGIN
622 -- Stubbed out for R12
623 null;
624 end Set_Location_CCID;
625
626 /*-------------------------------------------------------------------------+
627 | PUBLIC PROCEDURE |
628 | Set_Location_CCID with org_id parameter |
629 | |
630 | CALLED BY TRIGGER RA_ADDRESSES_BRIU |
631 | |
632 | DESCRIPTION |
633 | |
634 | Given Each of the key components of this address, find and set the |
638 | In order to do this, it may be necessary to insert new items into |
635 | Location_ID column to the Code Combinations ID applicable to this |
636 | address. |
637 | |
639 | the tables: AR_LOCATION_VALUES and AR_LOCATION_COMBINATIONS |
640 | |
641 | REQUIRES |
642 | City City column of RA_ADDRESSES |
643 | State State column of RA_ADDRESSES |
644 | County County column of RA_ADDRESSES |
645 | Province Province column of RA_ADDRESSES |
646 | Country Country column of RA_ADDRESSES |
647 | Postal Code Postal Code column of RA_ADDRESSES |
648 | DF1 .. 10 User Descriptive Flexfields 1 through 10 |
649 | org_id |
650 | RETURNS |
651 | Location_ID Set the Location Code Combination id |
652 | applicable to this address given each of the |
653 | segment values described above. |
654 | MODIFIES |
655 | Each of the address components may have the value NULL, even though |
656 | it is used as part of the location flexfield. If so, this code will |
657 | determine the missing value using the other segments and postal code |
658 | and update this column to hold the correct value. |
659 | |
660 | EXCEPTIONS RAISED |
661 | |
662 | NOTES Added for bug 3105634 |
663 | |
664 | EXAMPLE |
665 | |
666 +-------------------------------------------------------------------------*/
667
668 PROCEDURE Set_Location_CCID( Country in out NOCOPY varchar2,
669 City in out NOCOPY varchar2,
670 State in out NOCOPY varchar2,
671 County in out NOCOPY varchar2,
672 Province in out NOCOPY varchar2,
673 Postal_code in out NOCOPY varchar2,
674 attribute1 in out NOCOPY varchar2,
675 attribute2 in out NOCOPY varchar2,
676 attribute3 in out NOCOPY varchar2,
677 attribute4 in out NOCOPY varchar2,
678 attribute5 in out NOCOPY varchar2,
679 attribute6 in out NOCOPY varchar2,
680 attribute7 in out NOCOPY varchar2,
681 attribute8 in out NOCOPY varchar2,
682 attribute9 in out NOCOPY varchar2,
683 attribute10 in out NOCOPY varchar2,
684 location_ccid in out NOCOPY number,
685 address_id in number default null,
686 org_id in number ) IS
687
688 l_location_segment_inserted varchar2(5);
689 c integer;
690 rows_processed integer;
691 statement varchar2(1000);
692
693 BEGIN
694
695 -- Stubbed out for R12
696 null;
697 end Set_Location_CCID;
698 /*-------------------------------------------------------------------------+
699 | PUBLIC PROCEDURE |
700 | return_location_defaults |
701 | |
702 | DESCRIPTION |
703 | |
704 | Return the default values for the columns:- |
705 | start_date, end_date, from_postal_code and to_postal_code |
706 | in the table AR_LOCATION_RATES. |
707 | |
708 | MODIFIES |
709 | from_postal_code |
710 | to_postal_code |
711 | min_start_date |
712 | max_end_date |
713 | |
714 | EXCEPTIONS RAISED |
715 | |
716 | NOTES |
717 | |
718 | EXAMPLE |
722 procedure return_location_defaults( from_postal_code out NOCOPY varchar2,
719 | |
720 +-------------------------------------------------------------------------*/
721
723 to_postal_code out NOCOPY varchar2,
724 min_start_date out NOCOPY date,
725 max_end_date out NOCOPY date ) is
726
727 dummy_varchar2 varchar2(2);
728 dummy_date date;
729 c integer;
730 rows_processed integer;
731 statement varchar2(1000);
732
733 BEGIN
734 -- Stubbed out for R12
735 null;
736 end return_location_defaults;
737
738 /*-------------------------------------------------------------------------+
739 | PUBLIC PROCEDURE |
740 | Initialize_Global_Variables |
741 | |
742 | DESCRIPTION |
743 | |
744 | Initialize Global Variables, This routine has to be called |
745 | before to use those variables. |
746 | |
747 | EXCEPTIONS RAISED |
748 | |
749 | NOTES |
750 | |
751 | EXAMPLE |
752 | |
753 +-------------------------------------------------------------------------*/
754
755 PROCEDURE Initialize_Global_Variables IS
756 c integer;
757 rows_processed integer;
758 statement varchar2(1000);
759 BEGIN
760
761 -- Stubbed out for R12
762 null;
763 END Initialize_Global_Variables;
764
765
766 /* global package initialization */
767
768 BEGIN
769
770 -- Stubbed out for R12
771 null;
772 END ARP_ADDS ;