[Home] [Help]
PACKAGE BODY: APPS.HZ_FORMAT_PUB_W
Source
1 package body hz_format_pub_w as
2 /* $Header: ARHFMTJB.pls 120.1 2005/07/29 19:45:29 jhuang 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 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 procedure rosetta_table_copy_in_p0(t out nocopy hz_format_pub.string_tbl_type, a0 JTF_VARCHAR2_TABLE_300) as
14 ddindx binary_integer; indx binary_integer;
15 begin
16 if a0 is not null and a0.count > 0 then
17 if a0.count > 0 then
18 indx := a0.first;
19 ddindx := 1;
20 while true loop
21 t(ddindx) := a0(indx);
22 ddindx := ddindx+1;
23 if a0.last =indx
24 then exit;
25 end if;
26 indx := a0.next(indx);
27 end loop;
28 end if;
29 end if;
30 end rosetta_table_copy_in_p0;
31 procedure rosetta_table_copy_out_p0(t hz_format_pub.string_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_300) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if t is null or t.count = 0 then
35 a0 := JTF_VARCHAR2_TABLE_300();
36 else
37 a0 := JTF_VARCHAR2_TABLE_300();
38 if t.count > 0 then
39 a0.extend(t.count);
40 ddindx := t.first;
41 indx := 1;
42 while true loop
43 a0(indx) := t(ddindx);
44 indx := indx+1;
45 if t.last =ddindx
46 then exit;
47 end if;
48 ddindx := t.next(ddindx);
49 end loop;
50 end if;
51 end if;
52 end rosetta_table_copy_out_p0;
53
54 procedure rosetta_table_copy_in_p2(t out nocopy hz_format_pub.layout_tbl_type, a0 JTF_NUMBER_TABLE
55 , a1 JTF_NUMBER_TABLE
56 , a2 JTF_VARCHAR2_TABLE_100
57 , a3 JTF_VARCHAR2_TABLE_100
58 , a4 JTF_VARCHAR2_TABLE_100
59 , a5 JTF_VARCHAR2_TABLE_100
60 , a6 JTF_VARCHAR2_TABLE_100
61 , a7 JTF_VARCHAR2_TABLE_100
62 , a8 JTF_NUMBER_TABLE
63 , a9 JTF_NUMBER_TABLE
64 , a10 JTF_VARCHAR2_TABLE_300
65 ) as
66 ddindx binary_integer; indx binary_integer;
67 begin
68 if a0 is not null and a0.count > 0 then
69 if a0.count > 0 then
70 indx := a0.first;
71 ddindx := 1;
72 while true loop
73 t(ddindx).line_number := a0(indx);
74 t(ddindx).position := a1(indx);
75 t(ddindx).attribute_code := a2(indx);
76 t(ddindx).use_initial_flag := a3(indx);
77 t(ddindx).uppercase_flag := a4(indx);
78 t(ddindx).transform_function := a5(indx);
79 t(ddindx).delimiter_before := a6(indx);
80 t(ddindx).delimiter_after := a7(indx);
81 t(ddindx).blank_lines_before := a8(indx);
82 t(ddindx).blank_lines_after := a9(indx);
83 t(ddindx).attribute_value := a10(indx);
84 ddindx := ddindx+1;
85 if a0.last =indx
86 then exit;
87 end if;
88 indx := a0.next(indx);
89 end loop;
90 end if;
91 end if;
92 end rosetta_table_copy_in_p2;
93 procedure rosetta_table_copy_out_p2(t hz_format_pub.layout_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
94 , a1 out nocopy JTF_NUMBER_TABLE
95 , a2 out nocopy JTF_VARCHAR2_TABLE_100
96 , a3 out nocopy JTF_VARCHAR2_TABLE_100
97 , a4 out nocopy JTF_VARCHAR2_TABLE_100
98 , a5 out nocopy JTF_VARCHAR2_TABLE_100
99 , a6 out nocopy JTF_VARCHAR2_TABLE_100
100 , a7 out nocopy JTF_VARCHAR2_TABLE_100
101 , a8 out nocopy JTF_NUMBER_TABLE
102 , a9 out nocopy JTF_NUMBER_TABLE
103 , a10 out nocopy JTF_VARCHAR2_TABLE_300
104 ) as
105 ddindx binary_integer; indx binary_integer;
106 begin
107 if t is null or t.count = 0 then
108 a0 := JTF_NUMBER_TABLE();
109 a1 := JTF_NUMBER_TABLE();
110 a2 := JTF_VARCHAR2_TABLE_100();
111 a3 := JTF_VARCHAR2_TABLE_100();
112 a4 := JTF_VARCHAR2_TABLE_100();
113 a5 := JTF_VARCHAR2_TABLE_100();
114 a6 := JTF_VARCHAR2_TABLE_100();
115 a7 := JTF_VARCHAR2_TABLE_100();
116 a8 := JTF_NUMBER_TABLE();
117 a9 := JTF_NUMBER_TABLE();
118 a10 := JTF_VARCHAR2_TABLE_300();
119 else
120 a0 := JTF_NUMBER_TABLE();
121 a1 := JTF_NUMBER_TABLE();
122 a2 := JTF_VARCHAR2_TABLE_100();
123 a3 := JTF_VARCHAR2_TABLE_100();
124 a4 := JTF_VARCHAR2_TABLE_100();
125 a5 := JTF_VARCHAR2_TABLE_100();
126 a6 := JTF_VARCHAR2_TABLE_100();
127 a7 := JTF_VARCHAR2_TABLE_100();
128 a8 := JTF_NUMBER_TABLE();
129 a9 := JTF_NUMBER_TABLE();
130 a10 := JTF_VARCHAR2_TABLE_300();
131 if t.count > 0 then
132 a0.extend(t.count);
133 a1.extend(t.count);
134 a2.extend(t.count);
135 a3.extend(t.count);
136 a4.extend(t.count);
137 a5.extend(t.count);
138 a6.extend(t.count);
139 a7.extend(t.count);
140 a8.extend(t.count);
141 a9.extend(t.count);
142 a10.extend(t.count);
143 ddindx := t.first;
144 indx := 1;
145 while true loop
146 a0(indx) := t(ddindx).line_number;
147 a1(indx) := t(ddindx).position;
148 a2(indx) := t(ddindx).attribute_code;
149 a3(indx) := t(ddindx).use_initial_flag;
150 a4(indx) := t(ddindx).uppercase_flag;
151 a5(indx) := t(ddindx).transform_function;
152 a6(indx) := t(ddindx).delimiter_before;
153 a7(indx) := t(ddindx).delimiter_after;
154 a8(indx) := t(ddindx).blank_lines_before;
155 a9(indx) := t(ddindx).blank_lines_after;
156 a10(indx) := t(ddindx).attribute_value;
157 indx := indx+1;
158 if t.last =ddindx
159 then exit;
160 end if;
161 ddindx := t.next(ddindx);
162 end loop;
163 end if;
164 end if;
165 end rosetta_table_copy_out_p2;
166
167 procedure format_address_1(p_location_id NUMBER
168 , p_style_code VARCHAR2
169 , p_style_format_code VARCHAR2
170 , p_line_break VARCHAR2
171 , p_space_replace VARCHAR2
172 , p_to_language_code VARCHAR2
173 , p_country_name_lang VARCHAR2
174 , p_from_territory_code VARCHAR2
175 , x_return_status out nocopy VARCHAR2
176 , x_msg_count out nocopy NUMBER
177 , x_msg_data out nocopy VARCHAR2
178 , x_formatted_address out nocopy VARCHAR2
179 , x_formatted_lines_cnt out nocopy NUMBER
180 , x_formatted_address_tbl out nocopy JTF_VARCHAR2_TABLE_300
181 )
182
183 as
184 ddx_formatted_address_tbl hz_format_pub.string_tbl_type;
185 ddindx binary_integer; indx binary_integer;
186 begin
187
188 -- copy data to the local IN or IN-OUT args, if any
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203 -- here's the delegated call to the old PL/SQL routine
204 hz_format_pub.format_address(p_location_id,
205 p_style_code,
206 p_style_format_code,
207 p_line_break,
208 p_space_replace,
209 p_to_language_code,
210 p_country_name_lang,
211 p_from_territory_code,
212 x_return_status,
213 x_msg_count,
214 x_msg_data,
215 x_formatted_address,
216 x_formatted_lines_cnt,
217 ddx_formatted_address_tbl);
218
219 -- copy data back from the local variables to OUT or IN-OUT args, if any
220
221
222
223
224
225
226
227
228
229
230
231
232
233 hz_format_pub_w.rosetta_table_copy_out_p0(ddx_formatted_address_tbl, x_formatted_address_tbl);
234 end;
235
236 procedure format_address_2(p_style_code VARCHAR2
237 , p_style_format_code VARCHAR2
238 , p_line_break VARCHAR2
239 , p_space_replace VARCHAR2
240 , p_to_language_code VARCHAR2
241 , p_country_name_lang VARCHAR2
242 , p_from_territory_code VARCHAR2
243 , p_address_line_1 VARCHAR2
244 , p_address_line_2 VARCHAR2
245 , p_address_line_3 VARCHAR2
246 , p_address_line_4 VARCHAR2
247 , p_city VARCHAR2
248 , p_postal_code VARCHAR2
249 , p_state VARCHAR2
250 , p_province VARCHAR2
251 , p_county VARCHAR2
252 , p_country VARCHAR2
253 , p_address_lines_phonetic VARCHAR2
254 , x_return_status out nocopy VARCHAR2
255 , x_msg_count out nocopy NUMBER
256 , x_msg_data out nocopy VARCHAR2
257 , x_formatted_address out nocopy VARCHAR2
258 , x_formatted_lines_cnt out nocopy NUMBER
259 , x_formatted_address_tbl out nocopy JTF_VARCHAR2_TABLE_300
260 )
261
262 as
263 ddx_formatted_address_tbl hz_format_pub.string_tbl_type;
264 ddindx binary_integer; indx binary_integer;
265 begin
266
267 -- copy data to the local IN or IN-OUT args, if any
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292 -- here's the delegated call to the old PL/SQL routine
293 hz_format_pub.format_address(p_style_code,
294 p_style_format_code,
295 p_line_break,
296 p_space_replace,
297 p_to_language_code,
298 p_country_name_lang,
299 p_from_territory_code,
300 p_address_line_1,
301 p_address_line_2,
302 p_address_line_3,
303 p_address_line_4,
304 p_city,
305 p_postal_code,
306 p_state,
307 p_province,
308 p_county,
309 p_country,
310 p_address_lines_phonetic,
311 x_return_status,
312 x_msg_count,
313 x_msg_data,
314 x_formatted_address,
315 x_formatted_lines_cnt,
316 ddx_formatted_address_tbl);
317
318 -- copy data back from the local variables to OUT or IN-OUT args, if any
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342 hz_format_pub_w.rosetta_table_copy_out_p0(ddx_formatted_address_tbl, x_formatted_address_tbl);
343 end;
344
345 procedure format_address_layout_3(p_location_id NUMBER
346 , p_style_code VARCHAR2
347 , p_style_format_code VARCHAR2
348 , p_line_break VARCHAR2
349 , p_space_replace VARCHAR2
350 , p_to_language_code VARCHAR2
351 , p_country_name_lang VARCHAR2
352 , p_from_territory_code VARCHAR2
353 , x_return_status out nocopy VARCHAR2
354 , x_msg_count out nocopy NUMBER
355 , x_msg_data out nocopy VARCHAR2
356 , x_layout_tbl_cnt out nocopy NUMBER
357 , p12_a0 out nocopy JTF_NUMBER_TABLE
358 , p12_a1 out nocopy JTF_NUMBER_TABLE
359 , p12_a2 out nocopy JTF_VARCHAR2_TABLE_100
360 , p12_a3 out nocopy JTF_VARCHAR2_TABLE_100
361 , p12_a4 out nocopy JTF_VARCHAR2_TABLE_100
362 , p12_a5 out nocopy JTF_VARCHAR2_TABLE_100
363 , p12_a6 out nocopy JTF_VARCHAR2_TABLE_100
364 , p12_a7 out nocopy JTF_VARCHAR2_TABLE_100
365 , p12_a8 out nocopy JTF_NUMBER_TABLE
366 , p12_a9 out nocopy JTF_NUMBER_TABLE
367 , p12_a10 out nocopy JTF_VARCHAR2_TABLE_300
368 )
369
370 as
371 ddx_layout_tbl hz_format_pub.layout_tbl_type;
372 ddindx binary_integer; indx binary_integer;
373 begin
374
375 -- copy data to the local IN or IN-OUT args, if any
376
377
378
379
380
381
382
383
384
385
386
387
388
389 -- here's the delegated call to the old PL/SQL routine
390 hz_format_pub.format_address_layout(p_location_id,
391 p_style_code,
392 p_style_format_code,
393 p_line_break,
394 p_space_replace,
395 p_to_language_code,
396 p_country_name_lang,
397 p_from_territory_code,
398 x_return_status,
399 x_msg_count,
400 x_msg_data,
401 x_layout_tbl_cnt,
402 ddx_layout_tbl);
403
404 -- copy data back from the local variables to OUT or IN-OUT args, if any
405
406
407
408
409
410
411
412
413
414
415
416
417 hz_format_pub_w.rosetta_table_copy_out_p2(ddx_layout_tbl, p12_a0
418 , p12_a1
419 , p12_a2
420 , p12_a3
421 , p12_a4
422 , p12_a5
423 , p12_a6
424 , p12_a7
425 , p12_a8
426 , p12_a9
427 , p12_a10
428 );
429 end;
430
431 procedure format_address_layout_4(p_style_code VARCHAR2
432 , p_style_format_code VARCHAR2
433 , p_line_break VARCHAR2
434 , p_space_replace VARCHAR2
435 , p_to_language_code VARCHAR2
436 , p_country_name_lang VARCHAR2
437 , p_from_territory_code VARCHAR2
438 , p_address_line_1 VARCHAR2
439 , p_address_line_2 VARCHAR2
440 , p_address_line_3 VARCHAR2
441 , p_address_line_4 VARCHAR2
442 , p_city VARCHAR2
443 , p_postal_code VARCHAR2
444 , p_state VARCHAR2
445 , p_province VARCHAR2
446 , p_county VARCHAR2
447 , p_country VARCHAR2
448 , p_address_lines_phonetic VARCHAR2
449 , x_return_status out nocopy VARCHAR2
450 , x_msg_count out nocopy NUMBER
451 , x_msg_data out nocopy VARCHAR2
452 , x_layout_tbl_cnt out nocopy NUMBER
453 , p22_a0 out nocopy JTF_NUMBER_TABLE
454 , p22_a1 out nocopy JTF_NUMBER_TABLE
455 , p22_a2 out nocopy JTF_VARCHAR2_TABLE_100
456 , p22_a3 out nocopy JTF_VARCHAR2_TABLE_100
457 , p22_a4 out nocopy JTF_VARCHAR2_TABLE_100
458 , p22_a5 out nocopy JTF_VARCHAR2_TABLE_100
459 , p22_a6 out nocopy JTF_VARCHAR2_TABLE_100
460 , p22_a7 out nocopy JTF_VARCHAR2_TABLE_100
461 , p22_a8 out nocopy JTF_NUMBER_TABLE
462 , p22_a9 out nocopy JTF_NUMBER_TABLE
463 , p22_a10 out nocopy JTF_VARCHAR2_TABLE_300
464 )
465
466 as
467 ddx_layout_tbl hz_format_pub.layout_tbl_type;
468 ddindx binary_integer; indx binary_integer;
469 begin
470
471 -- copy data to the local IN or IN-OUT args, if any
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495 -- here's the delegated call to the old PL/SQL routine
496 hz_format_pub.format_address_layout(p_style_code,
497 p_style_format_code,
498 p_line_break,
499 p_space_replace,
500 p_to_language_code,
501 p_country_name_lang,
502 p_from_territory_code,
503 p_address_line_1,
504 p_address_line_2,
505 p_address_line_3,
506 p_address_line_4,
507 p_city,
508 p_postal_code,
509 p_state,
510 p_province,
511 p_county,
512 p_country,
513 p_address_lines_phonetic,
514 x_return_status,
515 x_msg_count,
516 x_msg_data,
517 x_layout_tbl_cnt,
518 ddx_layout_tbl);
519
520 -- copy data back from the local variables to OUT or IN-OUT args, if any
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543 hz_format_pub_w.rosetta_table_copy_out_p2(ddx_layout_tbl, p22_a0
544 , p22_a1
545 , p22_a2
546 , p22_a3
547 , p22_a4
548 , p22_a5
549 , p22_a6
550 , p22_a7
551 , p22_a8
552 , p22_a9
553 , p22_a10
554 );
555 end;
556
557 procedure format_name_5(p_party_id NUMBER
558 , p_style_code VARCHAR2
559 , p_style_format_code VARCHAR2
560 , p_line_break VARCHAR2
561 , p_space_replace VARCHAR2
562 , p_ref_language_code VARCHAR2
563 , p_ref_territory_code VARCHAR2
564 , x_return_status out nocopy VARCHAR2
565 , x_msg_count out nocopy NUMBER
566 , x_msg_data out nocopy VARCHAR2
567 , x_formatted_name out nocopy VARCHAR2
568 , x_formatted_lines_cnt out nocopy NUMBER
569 , x_formatted_name_tbl out nocopy JTF_VARCHAR2_TABLE_300
570 )
571
572 as
573 ddx_formatted_name_tbl hz_format_pub.string_tbl_type;
574 ddindx binary_integer; indx binary_integer;
575 begin
576
577 -- copy data to the local IN or IN-OUT args, if any
578
579
580
581
582
583
584
585
586
587
588
589
590
591 -- here's the delegated call to the old PL/SQL routine
592 hz_format_pub.format_name(p_party_id,
593 p_style_code,
594 p_style_format_code,
595 p_line_break,
596 p_space_replace,
597 p_ref_language_code,
598 p_ref_territory_code,
599 x_return_status,
600 x_msg_count,
601 x_msg_data,
602 x_formatted_name,
603 x_formatted_lines_cnt,
604 ddx_formatted_name_tbl);
605
606 -- copy data back from the local variables to OUT or IN-OUT args, if any
607
608
609
610
611
612
613
614
615
616
617
618
619 hz_format_pub_w.rosetta_table_copy_out_p0(ddx_formatted_name_tbl, x_formatted_name_tbl);
620 end;
621
622 procedure format_name_6(p_style_code VARCHAR2
623 , p_style_format_code VARCHAR2
624 , p_line_break VARCHAR2
625 , p_space_replace VARCHAR2
626 , p_ref_language_code VARCHAR2
627 , p_ref_territory_code VARCHAR2
628 , p_person_title VARCHAR2
629 , p_person_first_name VARCHAR2
630 , p_person_middle_name VARCHAR2
631 , p_person_last_name VARCHAR2
632 , p_person_name_suffix VARCHAR2
633 , p_person_known_as VARCHAR2
634 , p_first_name_phonetic VARCHAR2
635 , p_middle_name_phonetic VARCHAR2
636 , p_last_name_phonetic VARCHAR2
637 , x_return_status out nocopy VARCHAR2
638 , x_msg_count out nocopy NUMBER
639 , x_msg_data out nocopy VARCHAR2
640 , x_formatted_name out nocopy VARCHAR2
641 , x_formatted_lines_cnt out nocopy NUMBER
642 , x_formatted_name_tbl out nocopy JTF_VARCHAR2_TABLE_300
643 )
644
645 as
646 ddx_formatted_name_tbl hz_format_pub.string_tbl_type;
647 ddindx binary_integer; indx binary_integer;
648 begin
649
650 -- copy data to the local IN or IN-OUT args, if any
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672 -- here's the delegated call to the old PL/SQL routine
673 hz_format_pub.format_name(p_style_code,
674 p_style_format_code,
675 p_line_break,
676 p_space_replace,
677 p_ref_language_code,
678 p_ref_territory_code,
679 p_person_title,
680 p_person_first_name,
681 p_person_middle_name,
682 p_person_last_name,
683 p_person_name_suffix,
684 p_person_known_as,
685 p_first_name_phonetic,
686 p_middle_name_phonetic,
687 p_last_name_phonetic,
688 x_return_status,
689 x_msg_count,
690 x_msg_data,
691 x_formatted_name,
692 x_formatted_lines_cnt,
693 ddx_formatted_name_tbl);
694
695 -- copy data back from the local variables to OUT or IN-OUT args, if any
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716 hz_format_pub_w.rosetta_table_copy_out_p0(ddx_formatted_name_tbl, x_formatted_name_tbl);
717 end;
718
719 procedure format_data_7(p_object_code VARCHAR2
720 , p_object_key_1 VARCHAR2
721 , p_object_key_2 VARCHAR2
722 , p_object_key_3 VARCHAR2
723 , p_object_key_4 VARCHAR2
724 , p_style_code VARCHAR2
725 , p_style_format_code VARCHAR2
726 , p_line_break VARCHAR2
727 , p_space_replace VARCHAR2
728 , p_ref_language_code VARCHAR2
729 , p_ref_territory_code VARCHAR2
730 , x_return_status out nocopy VARCHAR2
731 , x_msg_count out nocopy NUMBER
732 , x_msg_data out nocopy VARCHAR2
733 , x_formatted_data out nocopy VARCHAR2
734 , x_formatted_lines_cnt out nocopy NUMBER
735 , x_formatted_data_tbl out nocopy JTF_VARCHAR2_TABLE_300
736 )
737
738 as
739 ddx_formatted_data_tbl hz_format_pub.string_tbl_type;
740 ddindx binary_integer; indx binary_integer;
741 begin
742
743 -- copy data to the local IN or IN-OUT args, if any
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761 -- here's the delegated call to the old PL/SQL routine
762 hz_format_pub.format_data(p_object_code,
763 p_object_key_1,
764 p_object_key_2,
765 p_object_key_3,
766 p_object_key_4,
767 p_style_code,
768 p_style_format_code,
769 p_line_break,
770 p_space_replace,
771 p_ref_language_code,
772 p_ref_territory_code,
773 x_return_status,
774 x_msg_count,
775 x_msg_data,
776 x_formatted_data,
777 x_formatted_lines_cnt,
778 ddx_formatted_data_tbl);
779
780 -- copy data back from the local variables to OUT or IN-OUT args, if any
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797 hz_format_pub_w.rosetta_table_copy_out_p0(ddx_formatted_data_tbl, x_formatted_data_tbl);
798 end;
799
800 procedure get_context_8(p0_a0 out nocopy VARCHAR2
801 , p0_a1 out nocopy VARCHAR2
802 , p0_a2 out nocopy VARCHAR2
803 , p0_a3 out nocopy VARCHAR2
804 , p0_a4 out nocopy VARCHAR2
805 , p0_a5 out nocopy VARCHAR2
806 , p0_a6 out nocopy VARCHAR2
807 )
808
809 as
810 ddx_context hz_format_pub.context_rec_type;
811 ddindx binary_integer; indx binary_integer;
812 begin
813
814 -- copy data to the local IN or IN-OUT args, if any
815
816 -- here's the delegated call to the old PL/SQL routine
817 hz_format_pub.get_context(ddx_context);
818
819 -- copy data back from the local variables to OUT or IN-OUT args, if any
820 p0_a0 := ddx_context.style_code;
821 p0_a1 := ddx_context.style_format_code;
822 p0_a2 := ddx_context.to_territory_code;
823 p0_a3 := ddx_context.to_language_code;
824 p0_a4 := ddx_context.from_territory_code;
825 p0_a5 := ddx_context.from_language_code;
826 p0_a6 := ddx_context.country_name_lang;
827 end;
828
829 end hz_format_pub_w;