1: package body cn_calc_sql_exps_pvt_w as
2: /* $Header: cnwcexpb.pls 120.6 2007/03/14 12:56:53 kjayapau ship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy cn_calc_sql_exps_pvt.parent_expression_tbl_type, a0 JTF_VARCHAR2_TABLE_100) as
4: ddindx binary_integer; indx binary_integer;
5: begin
1: package body cn_calc_sql_exps_pvt_w as
2: /* $Header: cnwcexpb.pls 120.6 2007/03/14 12:56:53 kjayapau ship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy cn_calc_sql_exps_pvt.parent_expression_tbl_type, a0 JTF_VARCHAR2_TABLE_100) 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 cn_calc_sql_exps_pvt.parent_expression_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) 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_100();
40: end if;
41: end if;
42: end rosetta_table_copy_out_p0;
43:
44: procedure rosetta_table_copy_in_p2(t out nocopy cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 JTF_NUMBER_TABLE
45: , a1 JTF_VARCHAR2_TABLE_100
46: , a2 JTF_VARCHAR2_TABLE_100
47: , a3 JTF_VARCHAR2_TABLE_100
48: , a4 JTF_VARCHAR2_TABLE_100
67: end loop;
68: end if;
69: end if;
70: end rosetta_table_copy_in_p2;
71: procedure rosetta_table_copy_out_p2(t cn_calc_sql_exps_pvt.calc_expression_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
72: , a1 out nocopy JTF_VARCHAR2_TABLE_100
73: , a2 out nocopy JTF_VARCHAR2_TABLE_100
74: , a3 out nocopy JTF_VARCHAR2_TABLE_100
75: , a4 out nocopy JTF_VARCHAR2_TABLE_100
111: end if;
112: end if;
113: end rosetta_table_copy_out_p2;
114:
115: procedure rosetta_table_copy_in_p4(t out nocopy cn_calc_sql_exps_pvt.expr_type_tbl_type, a0 JTF_VARCHAR2_TABLE_100
116: , a1 JTF_VARCHAR2_TABLE_100
117: , a2 JTF_VARCHAR2_TABLE_100
118: , a3 JTF_VARCHAR2_TABLE_4000
119: ) as
136: end loop;
137: end if;
138: end if;
139: end rosetta_table_copy_in_p4;
140: procedure rosetta_table_copy_out_p4(t cn_calc_sql_exps_pvt.expr_type_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
141: , a1 out nocopy JTF_VARCHAR2_TABLE_100
142: , a2 out nocopy JTF_VARCHAR2_TABLE_100
143: , a3 out nocopy JTF_VARCHAR2_TABLE_4000
144: ) as
175: end if;
176: end if;
177: end rosetta_table_copy_out_p4;
178:
179: procedure rosetta_table_copy_in_p5(t out nocopy cn_calc_sql_exps_pvt.num_tbl_type, a0 JTF_NUMBER_TABLE) as
180: ddindx binary_integer; indx binary_integer;
181: begin
182: if a0 is not null and a0.count > 0 then
183: if a0.count > 0 then
193: end loop;
194: end if;
195: end if;
196: end rosetta_table_copy_in_p5;
197: procedure rosetta_table_copy_out_p5(t cn_calc_sql_exps_pvt.num_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
198: ddindx binary_integer; indx binary_integer;
199: begin
200: if t is null or t.count = 0 then
201: a0 := JTF_NUMBER_TABLE();
222: , x_parsed_sql_select out nocopy VARCHAR2
223: )
224:
225: as
226: ddx_plan_elt_tbl cn_calc_sql_exps_pvt.num_tbl_type;
227: ddindx binary_integer; indx binary_integer;
228: begin
229:
230: -- copy data to the local IN or IN-OUT args, if any
231:
232:
233:
234: -- here's the delegated call to the old PL/SQL routine
235: cn_calc_sql_exps_pvt.parse_plan_elements(p_sql_select,
236: ddx_plan_elt_tbl,
237: x_parsed_sql_select);
238:
239: -- copy data back from the local variables to OUT or IN-OUT args, if any
237: x_parsed_sql_select);
238:
239: -- copy data back from the local variables to OUT or IN-OUT args, if any
240:
241: cn_calc_sql_exps_pvt_w.rosetta_table_copy_out_p5(ddx_plan_elt_tbl, x_plan_elt_tbl);
242:
243: end;
244:
245: procedure get_dependent_plan_elts(p_api_version NUMBER
254: , x_msg_data out nocopy VARCHAR2
255: )
256:
257: as
258: ddx_plan_elt_id_tbl cn_calc_sql_exps_pvt.num_tbl_type;
259: ddindx binary_integer; indx binary_integer;
260: begin
261:
262: -- copy data to the local IN or IN-OUT args, if any
270:
271:
272:
273: -- here's the delegated call to the old PL/SQL routine
274: cn_calc_sql_exps_pvt.get_dependent_plan_elts(p_api_version,
275: p_init_msg_list,
276: p_commit,
277: p_validation_level,
278: p_node_type,
288:
289:
290:
291:
292: cn_calc_sql_exps_pvt_w.rosetta_table_copy_out_p5(ddx_plan_elt_id_tbl, x_plan_elt_id_tbl);
293:
294:
295:
296: end;
307: , x_msg_data out nocopy VARCHAR2
308: )
309:
310: as
311: ddx_plan_elt_id_tbl cn_calc_sql_exps_pvt.num_tbl_type;
312: ddindx binary_integer; indx binary_integer;
313: begin
314:
315: -- copy data to the local IN or IN-OUT args, if any
323:
324:
325:
326: -- here's the delegated call to the old PL/SQL routine
327: cn_calc_sql_exps_pvt.get_parent_plan_elts(p_api_version,
328: p_init_msg_list,
329: p_commit,
330: p_validation_level,
331: p_node_type,
341:
342:
343:
344:
345: cn_calc_sql_exps_pvt_w.rosetta_table_copy_out_p5(ddx_plan_elt_id_tbl, x_plan_elt_id_tbl);
346:
347:
348:
349: end;
347:
348:
349: end;
350:
351: end cn_calc_sql_exps_pvt_w;