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();
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();
67: else
68: a0 := JTF_NUMBER_TABLE();
69: if t.count > 0 then
70: a0.extend(t.count);
64: begin
65: if t is null or t.count = 0 then
66: a0 := JTF_NUMBER_TABLE();
67: else
68: a0 := JTF_NUMBER_TABLE();
69: if t.count > 0 then
70: a0.extend(t.count);
71: ddindx := t.first;
72: indx := 1;
82: end if;
83: end rosetta_table_copy_out_p1;
84:
85: procedure process_query(p_sql_string JTF_VARCHAR2_TABLE_4000
86: , p_total_parameters JTF_NUMBER_TABLE
87: , p_string_parameters JTF_VARCHAR2_TABLE_4000
88: , p_template_id NUMBER
89: , p_parameters JTF_VARCHAR2_TABLE_4000
90: , p_parameters_value JTF_NUMBER_TABLE
86: , p_total_parameters JTF_NUMBER_TABLE
87: , p_string_parameters JTF_VARCHAR2_TABLE_4000
88: , p_template_id NUMBER
89: , p_parameters JTF_VARCHAR2_TABLE_4000
90: , p_parameters_value JTF_NUMBER_TABLE
91: , p_sql_results out nocopy JTF_NUMBER_TABLE
92: )
93:
94: as
87: , p_string_parameters JTF_VARCHAR2_TABLE_4000
88: , p_template_id NUMBER
89: , p_parameters JTF_VARCHAR2_TABLE_4000
90: , p_parameters_value 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;