1: package body pv_ge_hl_param_pvt_w as
2: /* $Header: pvxwghpb.pls 120.1 2005/09/06 04:57 appldev ship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy pv_ge_hl_param_pvt.ge_hl_param_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_VARCHAR2_TABLE_2000
1: package body pv_ge_hl_param_pvt_w as
2: /* $Header: pvxwghpb.pls 120.1 2005/09/06 04:57 appldev ship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy pv_ge_hl_param_pvt.ge_hl_param_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_VARCHAR2_TABLE_2000
8: , a5 JTF_NUMBER_TABLE
2: /* $Header: pvxwghpb.pls 120.1 2005/09/06 04:57 appldev ship $ */
3: procedure rosetta_table_copy_in_p2(t out nocopy pv_ge_hl_param_pvt.ge_hl_param_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_VARCHAR2_TABLE_2000
8: , a5 JTF_NUMBER_TABLE
9: , a6 JTF_DATE_TABLE
10: , a7 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_VARCHAR2_TABLE_100
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_VARCHAR2_TABLE_2000
8: , a5 JTF_NUMBER_TABLE
9: , a6 JTF_DATE_TABLE
10: , a7 JTF_NUMBER_TABLE
11: , a8 JTF_DATE_TABLE
12: , a9 JTF_NUMBER_TABLE
6: , a3 JTF_NUMBER_TABLE
7: , a4 JTF_VARCHAR2_TABLE_2000
8: , a5 JTF_NUMBER_TABLE
9: , a6 JTF_DATE_TABLE
10: , a7 JTF_NUMBER_TABLE
11: , a8 JTF_DATE_TABLE
12: , a9 JTF_NUMBER_TABLE
13: , a10 JTF_VARCHAR2_TABLE_100
14: , a11 JTF_VARCHAR2_TABLE_100
8: , a5 JTF_NUMBER_TABLE
9: , a6 JTF_DATE_TABLE
10: , a7 JTF_NUMBER_TABLE
11: , a8 JTF_DATE_TABLE
12: , a9 JTF_NUMBER_TABLE
13: , a10 JTF_VARCHAR2_TABLE_100
14: , a11 JTF_VARCHAR2_TABLE_100
15: ) as
16: ddindx binary_integer; indx binary_integer;
40: end loop;
41: end if;
42: end if;
43: end rosetta_table_copy_in_p2;
44: procedure rosetta_table_copy_out_p2(t pv_ge_hl_param_pvt.ge_hl_param_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45: , a1 out nocopy JTF_NUMBER_TABLE
46: , a2 out nocopy JTF_VARCHAR2_TABLE_100
47: , a3 out nocopy JTF_NUMBER_TABLE
48: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
41: end if;
42: end if;
43: end rosetta_table_copy_in_p2;
44: procedure rosetta_table_copy_out_p2(t pv_ge_hl_param_pvt.ge_hl_param_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45: , a1 out nocopy JTF_NUMBER_TABLE
46: , a2 out nocopy JTF_VARCHAR2_TABLE_100
47: , a3 out nocopy JTF_NUMBER_TABLE
48: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
49: , a5 out nocopy JTF_NUMBER_TABLE
43: end rosetta_table_copy_in_p2;
44: procedure rosetta_table_copy_out_p2(t pv_ge_hl_param_pvt.ge_hl_param_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
45: , a1 out nocopy JTF_NUMBER_TABLE
46: , a2 out nocopy JTF_VARCHAR2_TABLE_100
47: , a3 out nocopy JTF_NUMBER_TABLE
48: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
49: , a5 out nocopy JTF_NUMBER_TABLE
50: , a6 out nocopy JTF_DATE_TABLE
51: , a7 out nocopy JTF_NUMBER_TABLE
45: , a1 out nocopy JTF_NUMBER_TABLE
46: , a2 out nocopy JTF_VARCHAR2_TABLE_100
47: , a3 out nocopy JTF_NUMBER_TABLE
48: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
49: , a5 out nocopy JTF_NUMBER_TABLE
50: , a6 out nocopy JTF_DATE_TABLE
51: , a7 out nocopy JTF_NUMBER_TABLE
52: , a8 out nocopy JTF_DATE_TABLE
53: , a9 out nocopy JTF_NUMBER_TABLE
47: , a3 out nocopy JTF_NUMBER_TABLE
48: , a4 out nocopy JTF_VARCHAR2_TABLE_2000
49: , a5 out nocopy JTF_NUMBER_TABLE
50: , a6 out nocopy JTF_DATE_TABLE
51: , a7 out nocopy JTF_NUMBER_TABLE
52: , a8 out nocopy JTF_DATE_TABLE
53: , a9 out nocopy JTF_NUMBER_TABLE
54: , a10 out nocopy JTF_VARCHAR2_TABLE_100
55: , a11 out nocopy JTF_VARCHAR2_TABLE_100
49: , a5 out nocopy JTF_NUMBER_TABLE
50: , a6 out nocopy JTF_DATE_TABLE
51: , a7 out nocopy JTF_NUMBER_TABLE
52: , a8 out nocopy JTF_DATE_TABLE
53: , a9 out nocopy JTF_NUMBER_TABLE
54: , a10 out nocopy JTF_VARCHAR2_TABLE_100
55: , a11 out nocopy JTF_VARCHAR2_TABLE_100
56: ) as
57: ddindx binary_integer; indx binary_integer;
56: ) as
57: ddindx binary_integer; indx binary_integer;
58: begin
59: if t is null or t.count = 0 then
60: a0 := JTF_NUMBER_TABLE();
61: a1 := JTF_NUMBER_TABLE();
62: a2 := JTF_VARCHAR2_TABLE_100();
63: a3 := JTF_NUMBER_TABLE();
64: a4 := JTF_VARCHAR2_TABLE_2000();
57: ddindx binary_integer; indx binary_integer;
58: begin
59: if t is null or t.count = 0 then
60: a0 := JTF_NUMBER_TABLE();
61: a1 := JTF_NUMBER_TABLE();
62: a2 := JTF_VARCHAR2_TABLE_100();
63: a3 := JTF_NUMBER_TABLE();
64: a4 := JTF_VARCHAR2_TABLE_2000();
65: a5 := JTF_NUMBER_TABLE();
59: if t is null or t.count = 0 then
60: a0 := JTF_NUMBER_TABLE();
61: a1 := JTF_NUMBER_TABLE();
62: a2 := JTF_VARCHAR2_TABLE_100();
63: a3 := JTF_NUMBER_TABLE();
64: a4 := JTF_VARCHAR2_TABLE_2000();
65: a5 := JTF_NUMBER_TABLE();
66: a6 := JTF_DATE_TABLE();
67: a7 := JTF_NUMBER_TABLE();
61: a1 := JTF_NUMBER_TABLE();
62: a2 := JTF_VARCHAR2_TABLE_100();
63: a3 := JTF_NUMBER_TABLE();
64: a4 := JTF_VARCHAR2_TABLE_2000();
65: a5 := JTF_NUMBER_TABLE();
66: a6 := JTF_DATE_TABLE();
67: a7 := JTF_NUMBER_TABLE();
68: a8 := JTF_DATE_TABLE();
69: a9 := JTF_NUMBER_TABLE();
63: a3 := JTF_NUMBER_TABLE();
64: a4 := JTF_VARCHAR2_TABLE_2000();
65: a5 := JTF_NUMBER_TABLE();
66: a6 := JTF_DATE_TABLE();
67: a7 := JTF_NUMBER_TABLE();
68: a8 := JTF_DATE_TABLE();
69: a9 := JTF_NUMBER_TABLE();
70: a10 := JTF_VARCHAR2_TABLE_100();
71: a11 := JTF_VARCHAR2_TABLE_100();
65: a5 := JTF_NUMBER_TABLE();
66: a6 := JTF_DATE_TABLE();
67: a7 := JTF_NUMBER_TABLE();
68: a8 := JTF_DATE_TABLE();
69: a9 := JTF_NUMBER_TABLE();
70: a10 := JTF_VARCHAR2_TABLE_100();
71: a11 := JTF_VARCHAR2_TABLE_100();
72: else
73: a0 := JTF_NUMBER_TABLE();
69: a9 := JTF_NUMBER_TABLE();
70: a10 := JTF_VARCHAR2_TABLE_100();
71: a11 := JTF_VARCHAR2_TABLE_100();
72: else
73: a0 := JTF_NUMBER_TABLE();
74: a1 := JTF_NUMBER_TABLE();
75: a2 := JTF_VARCHAR2_TABLE_100();
76: a3 := JTF_NUMBER_TABLE();
77: a4 := JTF_VARCHAR2_TABLE_2000();
70: a10 := JTF_VARCHAR2_TABLE_100();
71: a11 := JTF_VARCHAR2_TABLE_100();
72: else
73: a0 := JTF_NUMBER_TABLE();
74: a1 := JTF_NUMBER_TABLE();
75: a2 := JTF_VARCHAR2_TABLE_100();
76: a3 := JTF_NUMBER_TABLE();
77: a4 := JTF_VARCHAR2_TABLE_2000();
78: a5 := JTF_NUMBER_TABLE();
72: else
73: a0 := JTF_NUMBER_TABLE();
74: a1 := JTF_NUMBER_TABLE();
75: a2 := JTF_VARCHAR2_TABLE_100();
76: a3 := JTF_NUMBER_TABLE();
77: a4 := JTF_VARCHAR2_TABLE_2000();
78: a5 := JTF_NUMBER_TABLE();
79: a6 := JTF_DATE_TABLE();
80: a7 := JTF_NUMBER_TABLE();
74: a1 := JTF_NUMBER_TABLE();
75: a2 := JTF_VARCHAR2_TABLE_100();
76: a3 := JTF_NUMBER_TABLE();
77: a4 := JTF_VARCHAR2_TABLE_2000();
78: a5 := JTF_NUMBER_TABLE();
79: a6 := JTF_DATE_TABLE();
80: a7 := JTF_NUMBER_TABLE();
81: a8 := JTF_DATE_TABLE();
82: a9 := JTF_NUMBER_TABLE();
76: a3 := JTF_NUMBER_TABLE();
77: a4 := JTF_VARCHAR2_TABLE_2000();
78: a5 := JTF_NUMBER_TABLE();
79: a6 := JTF_DATE_TABLE();
80: a7 := JTF_NUMBER_TABLE();
81: a8 := JTF_DATE_TABLE();
82: a9 := JTF_NUMBER_TABLE();
83: a10 := JTF_VARCHAR2_TABLE_100();
84: a11 := JTF_VARCHAR2_TABLE_100();
78: a5 := JTF_NUMBER_TABLE();
79: a6 := JTF_DATE_TABLE();
80: a7 := JTF_NUMBER_TABLE();
81: a8 := JTF_DATE_TABLE();
82: a9 := JTF_NUMBER_TABLE();
83: a10 := JTF_VARCHAR2_TABLE_100();
84: a11 := JTF_VARCHAR2_TABLE_100();
85: if t.count > 0 then
86: a0.extend(t.count);