18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p1(t out nocopy jtf_um_resp_info_pvt.resp_info_table_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_VARCHAR2_TABLE_4000
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p1(t out nocopy jtf_um_resp_info_pvt.resp_info_table_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_100
25: , a3 JTF_VARCHAR2_TABLE_100
26: , a4 JTF_VARCHAR2_TABLE_4000
27: ) as
45: end loop;
46: end if;
47: end if;
48: end rosetta_table_copy_in_p1;
49: procedure rosetta_table_copy_out_p1(t jtf_um_resp_info_pvt.resp_info_table_type, a0 out nocopy JTF_NUMBER_TABLE
50: , a1 out nocopy JTF_NUMBER_TABLE
51: , a2 out nocopy JTF_VARCHAR2_TABLE_100
52: , a3 out nocopy JTF_VARCHAR2_TABLE_100
53: , a4 out nocopy JTF_VARCHAR2_TABLE_4000
46: end if;
47: end if;
48: end rosetta_table_copy_in_p1;
49: procedure rosetta_table_copy_out_p1(t jtf_um_resp_info_pvt.resp_info_table_type, a0 out nocopy JTF_NUMBER_TABLE
50: , a1 out nocopy JTF_NUMBER_TABLE
51: , a2 out nocopy JTF_VARCHAR2_TABLE_100
52: , a3 out nocopy JTF_VARCHAR2_TABLE_100
53: , a4 out nocopy JTF_VARCHAR2_TABLE_4000
54: ) as
54: ) as
55: ddindx binary_integer; indx binary_integer;
56: begin
57: if t is null or t.count = 0 then
58: a0 := JTF_NUMBER_TABLE();
59: a1 := JTF_NUMBER_TABLE();
60: a2 := JTF_VARCHAR2_TABLE_100();
61: a3 := JTF_VARCHAR2_TABLE_100();
62: a4 := JTF_VARCHAR2_TABLE_4000();
55: ddindx binary_integer; indx binary_integer;
56: begin
57: if t is null or t.count = 0 then
58: a0 := JTF_NUMBER_TABLE();
59: a1 := JTF_NUMBER_TABLE();
60: a2 := JTF_VARCHAR2_TABLE_100();
61: a3 := JTF_VARCHAR2_TABLE_100();
62: a4 := JTF_VARCHAR2_TABLE_4000();
63: else
60: a2 := JTF_VARCHAR2_TABLE_100();
61: a3 := JTF_VARCHAR2_TABLE_100();
62: a4 := JTF_VARCHAR2_TABLE_4000();
63: else
64: a0 := JTF_NUMBER_TABLE();
65: a1 := JTF_NUMBER_TABLE();
66: a2 := JTF_VARCHAR2_TABLE_100();
67: a3 := JTF_VARCHAR2_TABLE_100();
68: a4 := JTF_VARCHAR2_TABLE_4000();
61: a3 := JTF_VARCHAR2_TABLE_100();
62: a4 := JTF_VARCHAR2_TABLE_4000();
63: else
64: a0 := JTF_NUMBER_TABLE();
65: a1 := JTF_NUMBER_TABLE();
66: a2 := JTF_VARCHAR2_TABLE_100();
67: a3 := JTF_VARCHAR2_TABLE_100();
68: a4 := JTF_VARCHAR2_TABLE_4000();
69: if t.count > 0 then
90: end if;
91: end rosetta_table_copy_out_p1;
92:
93: procedure get_resp_info_source(p_user_id NUMBER
94: , p1_a0 out nocopy JTF_NUMBER_TABLE
95: , p1_a1 out nocopy JTF_NUMBER_TABLE
96: , p1_a2 out nocopy JTF_VARCHAR2_TABLE_100
97: , p1_a3 out nocopy JTF_VARCHAR2_TABLE_100
98: , p1_a4 out nocopy JTF_VARCHAR2_TABLE_4000
91: end rosetta_table_copy_out_p1;
92:
93: procedure get_resp_info_source(p_user_id NUMBER
94: , p1_a0 out nocopy JTF_NUMBER_TABLE
95: , p1_a1 out nocopy JTF_NUMBER_TABLE
96: , p1_a2 out nocopy JTF_VARCHAR2_TABLE_100
97: , p1_a3 out nocopy JTF_VARCHAR2_TABLE_100
98: , p1_a4 out nocopy JTF_VARCHAR2_TABLE_4000
99: )