1: package body ams_list_running_total_pvt_w as
2: /* $Header: amswlrutb.pls 115.0 2003/11/19 19:06:09 huili noship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy ams_list_running_total_pvt.sql_string_4k, a0 JTF_VARCHAR2_TABLE_4000) as
4: ddindx binary_integer; indx binary_integer;
5: begin
1: package body ams_list_running_total_pvt_w as
2: /* $Header: amswlrutb.pls 115.0 2003/11/19 19:06:09 huili noship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy ams_list_running_total_pvt.sql_string_4k, a0 JTF_VARCHAR2_TABLE_4000) as
4: ddindx binary_integer; indx binary_integer;
5: begin
6: if a0 is not null and a0.count > 0 then
7: if a0.count > 0 then
17: end loop;
18: end if;
19: end if;
20: end rosetta_table_copy_in_p0;
21: procedure rosetta_table_copy_out_p0(t ams_list_running_total_pvt.sql_string_4k, a0 out nocopy JTF_VARCHAR2_TABLE_4000) as
22: ddindx binary_integer; indx binary_integer;
23: begin
24: if t is null or t.count = 0 then
25: a0 := JTF_VARCHAR2_TABLE_4000();
40: end if;
41: end if;
42: end rosetta_table_copy_out_p0;
43:
44: procedure rosetta_table_copy_in_p1(t out nocopy ams_list_running_total_pvt.t_number, a0 JTF_NUMBER_TABLE) as
45: ddindx binary_integer; indx binary_integer;
46: begin
47: if a0 is not null and a0.count > 0 then
48: if a0.count > 0 then
58: end loop;
59: end if;
60: end if;
61: end rosetta_table_copy_in_p1;
62: procedure rosetta_table_copy_out_p1(t ams_list_running_total_pvt.t_number, a0 out nocopy JTF_NUMBER_TABLE) as
63: ddindx binary_integer; indx binary_integer;
64: begin
65: if t is null or t.count = 0 then
66: a0 := JTF_NUMBER_TABLE();
91: , p_sql_results out nocopy JTF_NUMBER_TABLE
92: )
93:
94: as
95: ddp_sql_string ams_list_running_total_pvt.sql_string_4k;
96: ddp_total_parameters ams_list_running_total_pvt.t_number;
97: ddp_string_parameters ams_list_running_total_pvt.sql_string_4k;
98: ddp_parameters ams_list_running_total_pvt.sql_string_4k;
99: ddp_parameters_value ams_list_running_total_pvt.t_number;
92: )
93:
94: as
95: ddp_sql_string ams_list_running_total_pvt.sql_string_4k;
96: ddp_total_parameters ams_list_running_total_pvt.t_number;
97: ddp_string_parameters ams_list_running_total_pvt.sql_string_4k;
98: ddp_parameters ams_list_running_total_pvt.sql_string_4k;
99: ddp_parameters_value ams_list_running_total_pvt.t_number;
100: ddp_sql_results ams_list_running_total_pvt.t_number;
93:
94: as
95: ddp_sql_string ams_list_running_total_pvt.sql_string_4k;
96: ddp_total_parameters ams_list_running_total_pvt.t_number;
97: ddp_string_parameters ams_list_running_total_pvt.sql_string_4k;
98: ddp_parameters ams_list_running_total_pvt.sql_string_4k;
99: ddp_parameters_value ams_list_running_total_pvt.t_number;
100: ddp_sql_results ams_list_running_total_pvt.t_number;
101: ddindx binary_integer; indx binary_integer;
94: as
95: ddp_sql_string ams_list_running_total_pvt.sql_string_4k;
96: ddp_total_parameters ams_list_running_total_pvt.t_number;
97: ddp_string_parameters ams_list_running_total_pvt.sql_string_4k;
98: ddp_parameters ams_list_running_total_pvt.sql_string_4k;
99: ddp_parameters_value ams_list_running_total_pvt.t_number;
100: ddp_sql_results ams_list_running_total_pvt.t_number;
101: ddindx binary_integer; indx binary_integer;
102: begin
95: ddp_sql_string ams_list_running_total_pvt.sql_string_4k;
96: ddp_total_parameters ams_list_running_total_pvt.t_number;
97: ddp_string_parameters ams_list_running_total_pvt.sql_string_4k;
98: ddp_parameters ams_list_running_total_pvt.sql_string_4k;
99: ddp_parameters_value ams_list_running_total_pvt.t_number;
100: ddp_sql_results ams_list_running_total_pvt.t_number;
101: ddindx binary_integer; indx binary_integer;
102: begin
103:
96: ddp_total_parameters ams_list_running_total_pvt.t_number;
97: ddp_string_parameters ams_list_running_total_pvt.sql_string_4k;
98: ddp_parameters ams_list_running_total_pvt.sql_string_4k;
99: ddp_parameters_value ams_list_running_total_pvt.t_number;
100: ddp_sql_results ams_list_running_total_pvt.t_number;
101: ddindx binary_integer; indx binary_integer;
102: begin
103:
104: -- copy data to the local IN or IN-OUT args, if any
101: ddindx binary_integer; indx binary_integer;
102: begin
103:
104: -- copy data to the local IN or IN-OUT args, if any
105: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_sql_string, p_sql_string);
106:
107: ams_list_running_total_pvt_w.rosetta_table_copy_in_p1(ddp_total_parameters, p_total_parameters);
108:
109: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_string_parameters, p_string_parameters);
103:
104: -- copy data to the local IN or IN-OUT args, if any
105: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_sql_string, p_sql_string);
106:
107: ams_list_running_total_pvt_w.rosetta_table_copy_in_p1(ddp_total_parameters, p_total_parameters);
108:
109: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_string_parameters, p_string_parameters);
110:
111:
105: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_sql_string, p_sql_string);
106:
107: ams_list_running_total_pvt_w.rosetta_table_copy_in_p1(ddp_total_parameters, p_total_parameters);
108:
109: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_string_parameters, p_string_parameters);
110:
111:
112: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_parameters, p_parameters);
113:
108:
109: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_string_parameters, p_string_parameters);
110:
111:
112: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_parameters, p_parameters);
113:
114: ams_list_running_total_pvt_w.rosetta_table_copy_in_p1(ddp_parameters_value, p_parameters_value);
115:
116:
110:
111:
112: ams_list_running_total_pvt_w.rosetta_table_copy_in_p0(ddp_parameters, p_parameters);
113:
114: ams_list_running_total_pvt_w.rosetta_table_copy_in_p1(ddp_parameters_value, p_parameters_value);
115:
116:
117: -- here's the delegated call to the old PL/SQL routine
118: ams_list_running_total_pvt.process_query(ddp_sql_string,
114: ams_list_running_total_pvt_w.rosetta_table_copy_in_p1(ddp_parameters_value, p_parameters_value);
115:
116:
117: -- here's the delegated call to the old PL/SQL routine
118: ams_list_running_total_pvt.process_query(ddp_sql_string,
119: ddp_total_parameters,
120: ddp_string_parameters,
121: p_template_id,
122: ddp_parameters,
129:
130:
131:
132:
133: ams_list_running_total_pvt_w.rosetta_table_copy_out_p1(ddp_sql_results, p_sql_results);
134: end;
135:
136: end ams_list_running_total_pvt_w;
132:
133: ams_list_running_total_pvt_w.rosetta_table_copy_out_p1(ddp_sql_results, p_sql_results);
134: end;
135:
136: end ams_list_running_total_pvt_w;