DBA Data[Home] [Help]

PACKAGE BODY: APPS.HZ_GEOGRAPHY_PUB_UIW_JW

Source


1 package body hz_geography_pub_uiw_jw as
2   /* $Header: ARHGEOJS.pls 120.2 2006/02/17 09:08:50 idali noship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   function rosetta_g_miss_num_map(n number) return number as
7     a number := fnd_api.g_miss_num;
8     b number := 0-1962.0724;
9   begin
10     if n=a then return b; end if;
11     if n=b then return a; end if;
12     return n;
13   end;
14 
15   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16   function rosetta_g_miss_date_in_map(d date) return date as
17   begin
18     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19     return d;
20   end;
21 
22   procedure rosetta_table_copy_in_p2(t out nocopy hz_geography_pub_uiw.parent_geography_tbl_type, a0 JTF_NUMBER_TABLE) as
23     ddindx binary_integer; indx binary_integer;
24   begin
25   if a0 is null then
26     t := null;
27   elsif a0.count = 0 then
28     t := hz_geography_pub_uiw.parent_geography_tbl_type();
29   else
30       if a0.count > 0 then
31       t := hz_geography_pub_uiw.parent_geography_tbl_type();
32       t.extend(a0.count);
33         indx := a0.first;
34         ddindx := 1;
35         while true loop
36           t(ddindx) := a0(indx);
37           ddindx := ddindx+1;
38           if a0.last =indx
39             then exit;
40           end if;
41           indx := a0.next(indx);
42         end loop;
43       end if;
44    end if;
45   end rosetta_table_copy_in_p2;
46   procedure rosetta_table_copy_out_p2(t hz_geography_pub_uiw.parent_geography_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
47     ddindx binary_integer; indx binary_integer;
48   begin
49   if t is null then
50     a0 := null;
51   elsif t.count = 0 then
52     a0 := JTF_NUMBER_TABLE();
53   else
54       a0 := JTF_NUMBER_TABLE();
55       if t.count > 0 then
56         a0.extend(t.count);
57         ddindx := t.first;
58         indx := 1;
59         while true loop
60           a0(indx) := t(ddindx);
61           indx := indx+1;
62           if t.last =ddindx
63             then exit;
64           end if;
65           ddindx := t.next(ddindx);
66         end loop;
67       end if;
68    end if;
69   end rosetta_table_copy_out_p2;
70 
71   procedure rosetta_table_copy_in_p6(t out nocopy hz_geography_pub_uiw.zone_relation_tbl_type, a0 JTF_NUMBER_TABLE
72     , a1 JTF_VARCHAR2_TABLE_400
73     , a2 JTF_VARCHAR2_TABLE_400
74     , a3 JTF_VARCHAR2_TABLE_100
75     , a4 JTF_VARCHAR2_TABLE_100
76     , a5 JTF_DATE_TABLE
77     , a6 JTF_DATE_TABLE
78     ) as
79     ddindx binary_integer; indx binary_integer;
80   begin
81   if a0 is not null and a0.count=0 then
82     t := hz_geography_pub_uiw.zone_relation_tbl_type();
83   elsif a0 is not null and a0.count > 0 then
84       if a0.count > 0 then
85       t := hz_geography_pub_uiw.zone_relation_tbl_type();
86       t.extend(a0.count);
87         indx := a0.first;
88         ddindx := 1;
89         while true loop
90           t(ddindx).included_geography_id := rosetta_g_miss_num_map(a0(indx));
91           t(ddindx).geography_from := a1(indx);
92           t(ddindx).geography_to := a2(indx);
93           t(ddindx).identifier_type := a3(indx);
94           t(ddindx).geography_type := a4(indx);
95           t(ddindx).start_date := rosetta_g_miss_date_in_map(a5(indx));
96           t(ddindx).end_date := rosetta_g_miss_date_in_map(a6(indx));
97           ddindx := ddindx+1;
98           if a0.last =indx
99             then exit;
100           end if;
101           indx := a0.next(indx);
102         end loop;
103       end if;
104    end if;
105   end rosetta_table_copy_in_p6;
106   procedure rosetta_table_copy_out_p6(t hz_geography_pub_uiw.zone_relation_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
107     , a1 out nocopy JTF_VARCHAR2_TABLE_400
108     , a2 out nocopy JTF_VARCHAR2_TABLE_400
109     , a3 out nocopy JTF_VARCHAR2_TABLE_100
110     , a4 out nocopy JTF_VARCHAR2_TABLE_100
111     , a5 out nocopy JTF_DATE_TABLE
112     , a6 out nocopy JTF_DATE_TABLE
113     ) as
114     ddindx binary_integer; indx binary_integer;
115   begin
116   if t is null then
117     a0 := null;
118     a1 := null;
119     a2 := null;
120     a3 := null;
121     a4 := null;
122     a5 := null;
123     a6 := null;
124   elsif t.count = 0 then
125     a0 := JTF_NUMBER_TABLE();
126     a1 := JTF_VARCHAR2_TABLE_400();
127     a2 := JTF_VARCHAR2_TABLE_400();
128     a3 := JTF_VARCHAR2_TABLE_100();
129     a4 := JTF_VARCHAR2_TABLE_100();
130     a5 := JTF_DATE_TABLE();
131     a6 := JTF_DATE_TABLE();
132   else
133       a0 := JTF_NUMBER_TABLE();
134       a1 := JTF_VARCHAR2_TABLE_400();
135       a2 := JTF_VARCHAR2_TABLE_400();
136       a3 := JTF_VARCHAR2_TABLE_100();
137       a4 := JTF_VARCHAR2_TABLE_100();
138       a5 := JTF_DATE_TABLE();
139       a6 := JTF_DATE_TABLE();
140       if t.count > 0 then
141         a0.extend(t.count);
142         a1.extend(t.count);
143         a2.extend(t.count);
144         a3.extend(t.count);
145         a4.extend(t.count);
146         a5.extend(t.count);
147         a6.extend(t.count);
148         ddindx := t.first;
149         indx := 1;
150         while true loop
151           a0(indx) := rosetta_g_miss_num_map(t(ddindx).included_geography_id);
152           a1(indx) := t(ddindx).geography_from;
153           a2(indx) := t(ddindx).geography_to;
154           a3(indx) := t(ddindx).identifier_type;
155           a4(indx) := t(ddindx).geography_type;
156           a5(indx) := t(ddindx).start_date;
157           a6(indx) := t(ddindx).end_date;
158           indx := indx+1;
159           if t.last =ddindx
160             then exit;
161           end if;
162           ddindx := t.next(ddindx);
163         end loop;
164       end if;
165    end if;
166   end rosetta_table_copy_out_p6;
167 
168   procedure create_master_relation(p_init_msg_list  VARCHAR2
169     , x_relationship_id out nocopy  NUMBER
170     , x_return_status out nocopy  VARCHAR2
171     , x_msg_count out nocopy  NUMBER
172     , x_msg_data out nocopy  VARCHAR2
173     , p1_a0  NUMBER := null
174     , p1_a1  NUMBER := null
175     , p1_a2  DATE := SYSDATE
176     , p1_a3  DATE := to_date('31-12-4712','DD-MM-YYYY')
177     , p1_a4  VARCHAR2 := null
178     , p1_a5  NUMBER := null
179   )
180   as
181     ddp_master_relation_rec hz_geography_pub_uiw.master_relation_rec_type;
182     ddindx binary_integer; indx binary_integer;
183   begin
184 
185     -- copy data to the local IN or IN-OUT args, if any
186 
187     ddp_master_relation_rec.geography_id := rosetta_g_miss_num_map(p1_a0);
188     ddp_master_relation_rec.parent_geography_id := rosetta_g_miss_num_map(p1_a1);
189     ddp_master_relation_rec.start_date := rosetta_g_miss_date_in_map(p1_a2);
190     ddp_master_relation_rec.end_date := rosetta_g_miss_date_in_map(p1_a3);
191     ddp_master_relation_rec.created_by_module := p1_a4;
192     ddp_master_relation_rec.application_id := rosetta_g_miss_num_map(p1_a5);
193 
194 
195 
196 
197 
198     -- here's the delegated call to the old PL/SQL routine
199     hz_geography_pub_uiw.create_master_relation(p_init_msg_list,
200       ddp_master_relation_rec,
201       x_relationship_id,
202       x_return_status,
203       x_msg_count,
204       x_msg_data);
205 
206     -- copy data back from the local OUT or IN-OUT args, if any
207 
208 
209 
210 
211 
212   end;
213 
214   procedure create_geo_identifier(p_init_msg_list  VARCHAR2
215     , x_return_status out nocopy  VARCHAR2
216     , x_msg_count out nocopy  NUMBER
217     , x_msg_data out nocopy  VARCHAR2
218     , p1_a0  NUMBER := null
219     , p1_a1  VARCHAR2 := null
220     , p1_a2  VARCHAR2 := null
221     , p1_a3  VARCHAR2 := null
222     , p1_a4  VARCHAR2 := 'USER_ENTERED'
223     , p1_a5  VARCHAR2 := 'N'
224     , p1_a6  VARCHAR2 := userenv('LANG')
225     , p1_a7  VARCHAR2 := null
226     , p1_a8  NUMBER := null
227     , p1_a9  VARCHAR2 := null
228     , p1_a10  VARCHAR2 := null
229   )
230   as
231     ddp_geo_identifier_rec hz_geography_pub_uiw.geo_identifier_rec_type;
232     ddindx binary_integer; indx binary_integer;
233   begin
234 
235     -- copy data to the local IN or IN-OUT args, if any
236 
237     ddp_geo_identifier_rec.geography_id := rosetta_g_miss_num_map(p1_a0);
238     ddp_geo_identifier_rec.identifier_subtype := p1_a1;
239     ddp_geo_identifier_rec.identifier_value := p1_a2;
240     ddp_geo_identifier_rec.identifier_type := p1_a3;
241     ddp_geo_identifier_rec.geo_data_provider := p1_a4;
242     ddp_geo_identifier_rec.primary_flag := p1_a5;
243     ddp_geo_identifier_rec.language_code := p1_a6;
244     ddp_geo_identifier_rec.created_by_module := p1_a7;
245     ddp_geo_identifier_rec.application_id := rosetta_g_miss_num_map(p1_a8);
246     ddp_geo_identifier_rec.new_identifier_value := p1_a9;
247     ddp_geo_identifier_rec.new_identifier_subtype := p1_a10;
248 
249 
250 
251 
252     -- here's the delegated call to the old PL/SQL routine
253     hz_geography_pub_uiw.create_geo_identifier(p_init_msg_list,
254       ddp_geo_identifier_rec,
255       x_return_status,
256       x_msg_count,
257       x_msg_data);
258 
259     -- copy data back from the local OUT or IN-OUT args, if any
260 
261 
262 
263 
264   end;
265 
266   procedure update_geo_identifier(p_init_msg_list  VARCHAR2
267     , p_object_version_number in out nocopy  NUMBER
268     , x_cp_request_id out nocopy  NUMBER
269     , x_return_status out nocopy  VARCHAR2
270     , x_msg_count out nocopy  NUMBER
271     , x_msg_data out nocopy  VARCHAR2
272     , p1_a0  NUMBER := null
273     , p1_a1  VARCHAR2 := null
274     , p1_a2  VARCHAR2 := null
275     , p1_a3  VARCHAR2 := null
276     , p1_a4  VARCHAR2 := null
277     , p1_a5  VARCHAR2 := null
278     , p1_a6  VARCHAR2 := userenv('LANG')
279     , p1_a7  VARCHAR2 := null
280     , p1_a8  NUMBER := null
281     , p1_a9  VARCHAR2 := null
282     , p1_a10  VARCHAR2 := null
283   )
284   as
285     ddp_geo_identifier_rec hz_geography_pub_uiw.geo_identifier_rec_type;
286     ddindx binary_integer; indx binary_integer;
287   begin
288 
289     -- copy data to the local IN or IN-OUT args, if any
290 
291     ddp_geo_identifier_rec.geography_id := rosetta_g_miss_num_map(p1_a0);
292     ddp_geo_identifier_rec.identifier_subtype := p1_a1;
293     ddp_geo_identifier_rec.identifier_value := p1_a2;
294     ddp_geo_identifier_rec.identifier_type := p1_a3;
295     ddp_geo_identifier_rec.geo_data_provider := p1_a4;
296     ddp_geo_identifier_rec.primary_flag := p1_a5;
297     ddp_geo_identifier_rec.language_code := p1_a6;
298     ddp_geo_identifier_rec.created_by_module := p1_a7;
299     ddp_geo_identifier_rec.application_id := rosetta_g_miss_num_map(p1_a8);
300     ddp_geo_identifier_rec.new_identifier_value := p1_a9;
301     ddp_geo_identifier_rec.new_identifier_subtype := p1_a10;
302 
303 
304 
305 
306 
307 
308     -- here's the delegated call to the old PL/SQL routine
309     hz_geography_pub_uiw.update_geo_identifier(p_init_msg_list,
310       ddp_geo_identifier_rec,
311       p_object_version_number,
312       x_cp_request_id,
313       x_return_status,
314       x_msg_count,
315       x_msg_data);
316 
317     -- copy data back from the local OUT or IN-OUT args, if any
318 
319 
320 
321 
322 
323 
324   end;
325 
326   procedure create_master_geography(p_init_msg_list  VARCHAR2
327     , p_parent_geography_id JTF_NUMBER_TABLE
328     , x_geography_id out nocopy  NUMBER
329     , x_return_status out nocopy  VARCHAR2
330     , x_msg_count out nocopy  NUMBER
331     , x_msg_data out nocopy  VARCHAR2
332     , p1_a0  VARCHAR2 := null
333     , p1_a1  VARCHAR2 := null
334     , p1_a2  VARCHAR2 := null
335     , p1_a3  VARCHAR2 := null
336     , p1_a4  DATE := SYSDATE
337     , p1_a5  DATE := to_date('31-12-4712','DD-MM-YYYY')
338     , p1_a6  VARCHAR2 := 'USER_ENTERED'
339     , p1_a7  VARCHAR2 := userenv('LANG')
340     , p1_a8  VARCHAR2 := null
341     , p1_a9  VARCHAR2 := null
342     , p1_a10  NUMBER := null
343   )
344   as
345     ddp_master_geography_rec hz_geography_pub_uiw.master_geography_rec_type;
346     ddp_parent_geography_id hz_geography_pub_uiw.parent_geography_tbl_type;
347     ddindx binary_integer; indx binary_integer;
348   begin
349 
350     -- copy data to the local IN or IN-OUT args, if any
351 
352     ddp_master_geography_rec.geography_type := p1_a0;
353     ddp_master_geography_rec.geography_name := p1_a1;
354     ddp_master_geography_rec.geography_code := p1_a2;
355     ddp_master_geography_rec.geography_code_type := p1_a3;
356     ddp_master_geography_rec.start_date := rosetta_g_miss_date_in_map(p1_a4);
357     ddp_master_geography_rec.end_date := rosetta_g_miss_date_in_map(p1_a5);
358     ddp_master_geography_rec.geo_data_provider := p1_a6;
359     ddp_master_geography_rec.language_code := p1_a7;
360     ddp_master_geography_rec.timezone_code := p1_a8;
361     ddp_master_geography_rec.created_by_module := p1_a9;
362     ddp_master_geography_rec.application_id := rosetta_g_miss_num_map(p1_a10);
363 
364     hz_geography_pub_uiw_jw.rosetta_table_copy_in_p2(ddp_parent_geography_id, p_parent_geography_id);
365 
366 
367 
368 
369 
370     -- here's the delegated call to the old PL/SQL routine
371     hz_geography_pub_uiw.create_master_geography(p_init_msg_list,
372       ddp_master_geography_rec,
373       ddp_parent_geography_id,
374       x_geography_id,
375       x_return_status,
376       x_msg_count,
377       x_msg_data);
378 
379     -- copy data back from the local OUT or IN-OUT args, if any
380 
381 
382 
383 
384 
385 
386   end;
387 
388   procedure update_geography(p_init_msg_list  VARCHAR2
389     , p_geography_id  NUMBER
390     , p_end_date  date
391     , p_timezone_code  VARCHAR2
392     , p_object_version_number in out nocopy  NUMBER
393     , x_return_status out nocopy  VARCHAR2
394     , x_msg_count out nocopy  NUMBER
395     , x_msg_data out nocopy  VARCHAR2
396   )
397   as
398     ddp_end_date date;
399     ddindx binary_integer; indx binary_integer;
400   begin
401 
402     -- copy data to the local IN or IN-OUT args, if any
403 
404 
405     ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
406 
407 
408 
409 
410 
411 
412     -- here's the delegated call to the old PL/SQL routine
413     hz_geography_pub_uiw.update_geography(p_init_msg_list,
414       p_geography_id,
415       ddp_end_date,
416       p_timezone_code,
417       p_object_version_number,
418       x_return_status,
419       x_msg_count,
420       x_msg_data);
421 
422     -- copy data back from the local OUT or IN-OUT args, if any
423 
424 
425 
426 
427 
428 
429 
430   end;
431 
432   procedure create_geography_range(p_init_msg_list  VARCHAR2
433     , x_return_status out nocopy  VARCHAR2
434     , x_msg_count out nocopy  NUMBER
435     , x_msg_data out nocopy  VARCHAR2
436     , p1_a0  NUMBER := null
437     , p1_a1  NUMBER := null
438     , p1_a2  VARCHAR2 := null
439     , p1_a3  VARCHAR2 := null
440     , p1_a4  VARCHAR2 := null
441     , p1_a5  VARCHAR2 := null
442     , p1_a6  DATE := SYSDATE
443     , p1_a7  DATE := to_date('31-12-4712','DD-MM-YYYY')
444     , p1_a8  VARCHAR2 := null
445     , p1_a9  NUMBER := null
446   )
447   as
448     ddp_geography_range_rec hz_geography_pub_uiw.geography_range_rec_type;
449     ddindx binary_integer; indx binary_integer;
450   begin
451 
452     -- copy data to the local IN or IN-OUT args, if any
453 
454     ddp_geography_range_rec.zone_id := rosetta_g_miss_num_map(p1_a0);
455     ddp_geography_range_rec.master_ref_geography_id := rosetta_g_miss_num_map(p1_a1);
456     ddp_geography_range_rec.identifier_type := p1_a2;
457     ddp_geography_range_rec.geography_from := p1_a3;
458     ddp_geography_range_rec.geography_to := p1_a4;
459     ddp_geography_range_rec.geography_type := p1_a5;
460     ddp_geography_range_rec.start_date := rosetta_g_miss_date_in_map(p1_a6);
461     ddp_geography_range_rec.end_date := rosetta_g_miss_date_in_map(p1_a7);
462     ddp_geography_range_rec.created_by_module := p1_a8;
463     ddp_geography_range_rec.application_id := rosetta_g_miss_num_map(p1_a9);
464 
465 
466 
467 
468     -- here's the delegated call to the old PL/SQL routine
469     hz_geography_pub_uiw.create_geography_range(p_init_msg_list,
470       ddp_geography_range_rec,
471       x_return_status,
472       x_msg_count,
473       x_msg_data);
474 
475     -- copy data back from the local OUT or IN-OUT args, if any
476 
477 
478 
479 
480   end;
481 
482   procedure update_geography_range(p_init_msg_list  VARCHAR2
483     , p_geography_id  NUMBER
484     , p_geography_from  VARCHAR2
485     , p_start_date  date
486     , p_end_date  date
487     , p_object_version_number in out nocopy  NUMBER
488     , x_return_status out nocopy  VARCHAR2
489     , x_msg_count out nocopy  NUMBER
490     , x_msg_data out nocopy  VARCHAR2
491   )
492   as
493     ddp_start_date date;
494     ddp_end_date date;
495     ddindx binary_integer; indx binary_integer;
496   begin
497 
498     -- copy data to the local IN or IN-OUT args, if any
499 
500 
501 
502     ddp_start_date := rosetta_g_miss_date_in_map(p_start_date);
503 
504     ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
505 
506 
507 
508 
509 
510     -- here's the delegated call to the old PL/SQL routine
511     hz_geography_pub_uiw.update_geography_range(p_init_msg_list,
512       p_geography_id,
513       p_geography_from,
514       ddp_start_date,
515       ddp_end_date,
516       p_object_version_number,
517       x_return_status,
518       x_msg_count,
519       x_msg_data);
520 
521     -- copy data back from the local OUT or IN-OUT args, if any
522 
523 
524 
525 
526 
527 
528 
529 
530   end;
531 
532   procedure create_zone_relation(p_init_msg_list  VARCHAR2
533     , p_geography_id  NUMBER
534     , p2_a0 JTF_NUMBER_TABLE
535     , p2_a1 JTF_VARCHAR2_TABLE_400
536     , p2_a2 JTF_VARCHAR2_TABLE_400
537     , p2_a3 JTF_VARCHAR2_TABLE_100
538     , p2_a4 JTF_VARCHAR2_TABLE_100
539     , p2_a5 JTF_DATE_TABLE
540     , p2_a6 JTF_DATE_TABLE
541     , p_created_by_module  VARCHAR2
542     , p_application_id  NUMBER
543     , x_return_status out nocopy  VARCHAR2
544     , x_msg_count out nocopy  NUMBER
545     , x_msg_data out nocopy  VARCHAR2
546   )
547   as
548     ddp_zone_relation_tbl hz_geography_pub_uiw.zone_relation_tbl_type;
549     ddindx binary_integer; indx binary_integer;
550   begin
551 
552     -- copy data to the local IN or IN-OUT args, if any
553 
554 
555     hz_geography_pub_uiw_jw.rosetta_table_copy_in_p6(ddp_zone_relation_tbl, p2_a0
556       , p2_a1
557       , p2_a2
558       , p2_a3
559       , p2_a4
560       , p2_a5
561       , p2_a6
562       );
563 
564 
565 
566 
567 
568 
569     -- here's the delegated call to the old PL/SQL routine
570     hz_geography_pub_uiw.create_zone_relation(p_init_msg_list,
571       p_geography_id,
572       ddp_zone_relation_tbl,
573       p_created_by_module,
574       p_application_id,
575       x_return_status,
576       x_msg_count,
577       x_msg_data);
578 
579     -- copy data back from the local OUT or IN-OUT args, if any
580 
581 
582 
583 
584 
585 
586 
587   end;
588 
589   procedure create_zone(p_init_msg_list  VARCHAR2
590     , p_zone_type  VARCHAR2
591     , p_zone_name  VARCHAR2
592     , p_zone_code  VARCHAR2
593     , p_zone_code_type  VARCHAR2
594     , p_start_date  date
595     , p_end_date  date
596     , p_geo_data_provider  VARCHAR2
597     , p_language_code  VARCHAR2
598     , p9_a0 JTF_NUMBER_TABLE
599     , p9_a1 JTF_VARCHAR2_TABLE_400
600     , p9_a2 JTF_VARCHAR2_TABLE_400
601     , p9_a3 JTF_VARCHAR2_TABLE_100
602     , p9_a4 JTF_VARCHAR2_TABLE_100
603     , p9_a5 JTF_DATE_TABLE
604     , p9_a6 JTF_DATE_TABLE
605     , p_timezone_code  VARCHAR2
606     , x_geography_id out nocopy  NUMBER
607     , p_created_by_module  VARCHAR2
608     , p_application_id  NUMBER
609     , x_return_status out nocopy  VARCHAR2
610     , x_msg_count out nocopy  NUMBER
611     , x_msg_data out nocopy  VARCHAR2
612   )
613   as
614     ddp_start_date date;
615     ddp_end_date date;
616     ddp_zone_relation_tbl hz_geography_pub_uiw.zone_relation_tbl_type;
617     ddindx binary_integer; indx binary_integer;
618   begin
619 
620     -- copy data to the local IN or IN-OUT args, if any
621 
622 
623 
624 
625 
626     ddp_start_date := rosetta_g_miss_date_in_map(p_start_date);
627 
628     ddp_end_date := rosetta_g_miss_date_in_map(p_end_date);
629 
630 
631 
632     hz_geography_pub_uiw_jw.rosetta_table_copy_in_p6(ddp_zone_relation_tbl, p9_a0
633       , p9_a1
634       , p9_a2
635       , p9_a3
636       , p9_a4
637       , p9_a5
638       , p9_a6
639       );
640 
641 
642 
643 
644 
645 
646 
647 
648     -- here's the delegated call to the old PL/SQL routine
649     hz_geography_pub_uiw.create_zone(p_init_msg_list,
650       p_zone_type,
651       p_zone_name,
652       p_zone_code,
653       p_zone_code_type,
654       ddp_start_date,
655       ddp_end_date,
656       p_geo_data_provider,
657       p_language_code,
658       ddp_zone_relation_tbl,
659       p_timezone_code,
660       x_geography_id,
661       p_created_by_module,
662       p_application_id,
663       x_return_status,
664       x_msg_count,
665       x_msg_data);
666 
667     -- copy data back from the local OUT or IN-OUT args, if any
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684   end;
685 
686 end hz_geography_pub_uiw_jw;