[Home] [Help]
1: package body ams_import_xml_pvt_w as
2: /* $Header: amswmixb.pls 120.1 2006/01/12 22:11 rmbhanda 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p0(t out nocopy ams_import_xml_pvt.xml_element_key_set_type, a0 JTF_NUMBER_TABLE) as
23: ddindx binary_integer; indx binary_integer;
24: begin
25: if a0 is not null and a0.count > 0 then
26: if a0.count > 0 then
36: end loop;
37: end if;
38: end if;
39: end rosetta_table_copy_in_p0;
40: procedure rosetta_table_copy_out_p0(t ams_import_xml_pvt.xml_element_key_set_type, a0 out nocopy JTF_NUMBER_TABLE) as
41: ddindx binary_integer; indx binary_integer;
42: begin
43: if t is null or t.count = 0 then
44: a0 := JTF_NUMBER_TABLE();
59: end if;
60: end if;
61: end rosetta_table_copy_out_p0;
62:
63: procedure rosetta_table_copy_in_p1(t out nocopy ams_import_xml_pvt.xml_source_column_set_type, a0 JTF_VARCHAR2_TABLE_200) as
64: ddindx binary_integer; indx binary_integer;
65: begin
66: if a0 is not null and a0.count > 0 then
67: if a0.count > 0 then
77: end loop;
78: end if;
79: end if;
80: end rosetta_table_copy_in_p1;
81: procedure rosetta_table_copy_out_p1(t ams_import_xml_pvt.xml_source_column_set_type, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
82: ddindx binary_integer; indx binary_integer;
83: begin
84: if t is null or t.count = 0 then
85: a0 := JTF_VARCHAR2_TABLE_200();
100: end if;
101: end if;
102: end rosetta_table_copy_out_p1;
103:
104: procedure rosetta_table_copy_in_p2(t out nocopy ams_import_xml_pvt.xml_target_column_set_type, a0 JTF_VARCHAR2_TABLE_100) as
105: ddindx binary_integer; indx binary_integer;
106: begin
107: if a0 is not null and a0.count > 0 then
108: if a0.count > 0 then
118: end loop;
119: end if;
120: end if;
121: end rosetta_table_copy_in_p2;
122: procedure rosetta_table_copy_out_p2(t ams_import_xml_pvt.xml_target_column_set_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
123: ddindx binary_integer; indx binary_integer;
124: begin
125: if t is null or t.count = 0 then
126: a0 := JTF_VARCHAR2_TABLE_100();
141: end if;
142: end if;
143: end rosetta_table_copy_out_p2;
144:
145: procedure rosetta_table_copy_in_p3(t out nocopy ams_import_xml_pvt.xml_element_set_type, a0 JTF_NUMBER_TABLE
146: , a1 JTF_DATE_TABLE
147: , a2 JTF_NUMBER_TABLE
148: , a3 JTF_DATE_TABLE
149: , a4 JTF_NUMBER_TABLE
190: end loop;
191: end if;
192: end if;
193: end rosetta_table_copy_in_p3;
194: procedure rosetta_table_copy_out_p3(t ams_import_xml_pvt.xml_element_set_type, a0 out nocopy JTF_NUMBER_TABLE
195: , a1 out nocopy JTF_DATE_TABLE
196: , a2 out nocopy JTF_NUMBER_TABLE
197: , a3 out nocopy JTF_DATE_TABLE
198: , a4 out nocopy JTF_NUMBER_TABLE
305:
306:
307:
308: -- here's the delegated call to the old PL/SQL routine
309: ddrosetta_retval := ams_import_xml_pvt.is_leaf_node(p_imp_xml_element_id,
310: x_return_status,
311: x_msg_data);
312:
313: -- copy data back from the local variables to OUT or IN-OUT args, if any
352:
353:
354:
355: -- here's the delegated call to the old PL/SQL routine
356: ams_import_xml_pvt.get_root_node(p_import_list_header_id,
357: ddx_node_rec,
358: x_return_status,
359: x_msg_data);
360:
411:
412:
413:
414: -- here's the delegated call to the old PL/SQL routine
415: ams_import_xml_pvt.get_parent_node(p_imp_xml_element_id,
416: ddx_node_rec,
417: x_return_status,
418: x_msg_data);
419:
470:
471:
472:
473: -- here's the delegated call to the old PL/SQL routine
474: ams_import_xml_pvt.get_first_child_node(p_imp_xml_element_id,
475: ddx_node_rec,
476: x_return_status,
477: x_msg_data);
478:
529:
530:
531:
532: -- here's the delegated call to the old PL/SQL routine
533: ams_import_xml_pvt.get_next_sibling_node(p_imp_xml_element_id,
534: ddx_node_rec,
535: x_return_status,
536: x_msg_data);
537:
563: , x_msg_data out nocopy VARCHAR2
564: )
565:
566: as
567: ddx_child_ids ams_import_xml_pvt.xml_element_key_set_type;
568: ddindx binary_integer; indx binary_integer;
569: begin
570:
571: -- copy data to the local IN or IN-OUT args, if any
573:
574:
575:
576: -- here's the delegated call to the old PL/SQL routine
577: ams_import_xml_pvt.get_children_nodes(p_imp_xml_element_id,
578: ddx_child_ids,
579: x_return_status,
580: x_msg_data);
581:
580: x_msg_data);
581:
582: -- copy data back from the local variables to OUT or IN-OUT args, if any
583:
584: ams_import_xml_pvt_w.rosetta_table_copy_out_p0(ddx_child_ids, x_child_ids);
585:
586:
587: end;
588:
607: , x_msg_data out nocopy VARCHAR2
608: )
609:
610: as
611: ddx_child_set ams_import_xml_pvt.xml_element_set_type;
612: ddindx binary_integer; indx binary_integer;
613: begin
614:
615: -- copy data to the local IN or IN-OUT args, if any
617:
618:
619:
620: -- here's the delegated call to the old PL/SQL routine
621: ams_import_xml_pvt.get_children_nodes(p_imp_xml_element_id,
622: ddx_child_set,
623: x_return_status,
624: x_msg_data);
625:
624: x_msg_data);
625:
626: -- copy data back from the local variables to OUT or IN-OUT args, if any
627:
628: ams_import_xml_pvt_w.rosetta_table_copy_out_p3(ddx_child_set, p1_a0
629: , p1_a1
630: , p1_a2
631: , p1_a3
632: , p1_a4
645:
646:
647: end;
648:
649: end ams_import_xml_pvt_w;