1: package body ams_cpyutility_pvt_w as
2: /* $Header: amswcpub.pls 115.5 2003/08/26 20:39:45 asaha noship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy ams_cpyutility_pvt.copy_attributes_table_type, a0 JTF_VARCHAR2_TABLE_100) as
4: ddindx binary_integer; indx binary_integer;
5: begin
1: package body ams_cpyutility_pvt_w as
2: /* $Header: amswcpub.pls 115.5 2003/08/26 20:39:45 asaha noship $ */
3: procedure rosetta_table_copy_in_p0(t out nocopy ams_cpyutility_pvt.copy_attributes_table_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 ams_cpyutility_pvt.copy_attributes_table_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 ams_cpyutility_pvt.copy_columns_table_type, a0 JTF_VARCHAR2_TABLE_100
45: , a1 JTF_VARCHAR2_TABLE_4000
46: ) as
47: ddindx binary_integer; indx binary_integer;
48: begin
61: end loop;
62: end if;
63: end if;
64: end rosetta_table_copy_in_p2;
65: procedure rosetta_table_copy_out_p2(t ams_cpyutility_pvt.copy_columns_table_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
66: , a1 out nocopy JTF_VARCHAR2_TABLE_4000
67: ) as
68: ddindx binary_integer; indx binary_integer;
69: begin
90: end if;
91: end if;
92: end rosetta_table_copy_out_p2;
93:
94: procedure rosetta_table_copy_in_p3(t out nocopy ams_cpyutility_pvt.log_mesg_type_table, a0 JTF_VARCHAR2_TABLE_100) as
95: ddindx binary_integer; indx binary_integer;
96: begin
97: if a0 is not null and a0.count > 0 then
98: if a0.count > 0 then
108: end loop;
109: end if;
110: end if;
111: end rosetta_table_copy_in_p3;
112: procedure rosetta_table_copy_out_p3(t ams_cpyutility_pvt.log_mesg_type_table, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
113: ddindx binary_integer; indx binary_integer;
114: begin
115: if t is null or t.count = 0 then
116: a0 := JTF_VARCHAR2_TABLE_100();
131: end if;
132: end if;
133: end rosetta_table_copy_out_p3;
134:
135: procedure rosetta_table_copy_in_p4(t out nocopy ams_cpyutility_pvt.log_mesg_txt_table, a0 JTF_VARCHAR2_TABLE_4000) as
136: ddindx binary_integer; indx binary_integer;
137: begin
138: if a0 is not null and a0.count > 0 then
139: if a0.count > 0 then
149: end loop;
150: end if;
151: end if;
152: end rosetta_table_copy_in_p4;
153: procedure rosetta_table_copy_out_p4(t ams_cpyutility_pvt.log_mesg_txt_table, a0 out nocopy JTF_VARCHAR2_TABLE_4000) as
154: ddindx binary_integer; indx binary_integer;
155: begin
156: if t is null or t.count = 0 then
157: a0 := JTF_VARCHAR2_TABLE_4000();
172: end if;
173: end if;
174: end rosetta_table_copy_out_p4;
175:
176: procedure rosetta_table_copy_in_p5(t out nocopy ams_cpyutility_pvt.log_act_used_by_table, a0 JTF_VARCHAR2_TABLE_100) as
177: ddindx binary_integer; indx binary_integer;
178: begin
179: if a0 is not null and a0.count > 0 then
180: if a0.count > 0 then
190: end loop;
191: end if;
192: end if;
193: end rosetta_table_copy_in_p5;
194: procedure rosetta_table_copy_out_p5(t ams_cpyutility_pvt.log_act_used_by_table, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
195: ddindx binary_integer; indx binary_integer;
196: begin
197: if t is null or t.count = 0 then
198: a0 := JTF_VARCHAR2_TABLE_100();
213: end if;
214: end if;
215: end rosetta_table_copy_out_p5;
216:
217: procedure rosetta_table_copy_in_p6(t out nocopy ams_cpyutility_pvt.log_act_used_id_table, a0 JTF_NUMBER_TABLE) as
218: ddindx binary_integer; indx binary_integer;
219: begin
220: if a0 is not null and a0.count > 0 then
221: if a0.count > 0 then
231: end loop;
232: end if;
233: end if;
234: end rosetta_table_copy_in_p6;
235: procedure rosetta_table_copy_out_p6(t ams_cpyutility_pvt.log_act_used_id_table, a0 out nocopy JTF_NUMBER_TABLE) as
236: ddindx binary_integer; indx binary_integer;
237: begin
238: if t is null or t.count = 0 then
239: a0 := JTF_NUMBER_TABLE();
261: , x_column_value out nocopy VARCHAR2
262: )
263:
264: as
265: ddp_columns_table ams_cpyutility_pvt.copy_columns_table_type;
266: ddindx binary_integer; indx binary_integer;
267: begin
268:
269: -- copy data to the local IN or IN-OUT args, if any
267: begin
268:
269: -- copy data to the local IN or IN-OUT args, if any
270:
271: ams_cpyutility_pvt_w.rosetta_table_copy_in_p2(ddp_columns_table, p1_a0
272: , p1_a1
273: );
274:
275:
273: );
274:
275:
276: -- here's the delegated call to the old PL/SQL routine
277: ams_cpyutility_pvt.get_column_value(p_column_name,
278: ddp_columns_table,
279: x_column_value);
280:
281: -- copy data back from the local variables to OUT or IN-OUT args, if any
287: , p_attributes_table JTF_VARCHAR2_TABLE_100
288: ) return varchar2
289:
290: as
291: ddp_attributes_table ams_cpyutility_pvt.copy_attributes_table_type;
292: ddindx binary_integer; indx binary_integer;
293: ddrosetta_retval varchar2(4000);
294: begin
295:
294: begin
295:
296: -- copy data to the local IN or IN-OUT args, if any
297:
298: ams_cpyutility_pvt_w.rosetta_table_copy_in_p0(ddp_attributes_table, p_attributes_table);
299:
300: -- here's the delegated call to the old PL/SQL routine
301: ddrosetta_retval := ams_cpyutility_pvt.is_copy_attribute(p_attribute,
302: ddp_attributes_table);
297:
298: ams_cpyutility_pvt_w.rosetta_table_copy_in_p0(ddp_attributes_table, p_attributes_table);
299:
300: -- here's the delegated call to the old PL/SQL routine
301: ddrosetta_retval := ams_cpyutility_pvt.is_copy_attribute(p_attribute,
302: ddp_attributes_table);
303:
304: -- copy data back from the local variables to OUT or IN-OUT args, if any
305:
306:
307: return ddrosetta_retval;
308: end;
309:
310: end ams_cpyutility_pvt_w;