1: package body cn_quota_assign_pvt_w as
2: /* $Header: cnwpnagb.pls 120.4 2006/05/11 06:06 kjayapau noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy cn_quota_assign_pvt.quota_assign_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
1: package body cn_quota_assign_pvt_w as
2: /* $Header: cnwpnagb.pls 120.4 2006/05/11 06:06 kjayapau noship $ */
3: procedure rosetta_table_copy_in_p1(t out nocopy cn_quota_assign_pvt.quota_assign_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
6: , a3 JTF_VARCHAR2_TABLE_100
7: , a4 JTF_VARCHAR2_TABLE_1900
38: end loop;
39: end if;
40: end if;
41: end rosetta_table_copy_in_p1;
42: procedure rosetta_table_copy_out_p1(t cn_quota_assign_pvt.quota_assign_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
43: , a1 out nocopy JTF_NUMBER_TABLE
44: , a2 out nocopy JTF_NUMBER_TABLE
45: , a3 out nocopy JTF_VARCHAR2_TABLE_100
46: , a4 out nocopy JTF_VARCHAR2_TABLE_1900
133: , x_msg_data out nocopy VARCHAR2
134: )
135:
136: as
137: ddp_quota_assign cn_quota_assign_pvt.quota_assign_rec_type;
138: ddindx binary_integer; indx binary_integer;
139: begin
140:
141: -- copy data to the local IN or IN-OUT args, if any
158:
159:
160:
161: -- here's the delegated call to the old PL/SQL routine
162: cn_quota_assign_pvt.create_quota_assign(p_api_version,
163: p_init_msg_list,
164: p_commit,
165: p_validation_level,
166: ddp_quota_assign,
209: , x_msg_data out nocopy VARCHAR2
210: )
211:
212: as
213: ddp_quota_assign cn_quota_assign_pvt.quota_assign_rec_type;
214: ddindx binary_integer; indx binary_integer;
215: begin
216:
217: -- copy data to the local IN or IN-OUT args, if any
234:
235:
236:
237: -- here's the delegated call to the old PL/SQL routine
238: cn_quota_assign_pvt.update_quota_assign(p_api_version,
239: p_init_msg_list,
240: p_commit,
241: p_validation_level,
242: ddp_quota_assign,
285: , x_msg_data out nocopy VARCHAR2
286: )
287:
288: as
289: ddp_quota_assign cn_quota_assign_pvt.quota_assign_rec_type;
290: ddindx binary_integer; indx binary_integer;
291: begin
292:
293: -- copy data to the local IN or IN-OUT args, if any
310:
311:
312:
313: -- here's the delegated call to the old PL/SQL routine
314: cn_quota_assign_pvt.delete_quota_assign(p_api_version,
315: p_init_msg_list,
316: p_commit,
317: p_validation_level,
318: ddp_quota_assign,
351: , x_msg_data out nocopy VARCHAR2
352: )
353:
354: as
355: ddx_quota_assign cn_quota_assign_pvt.quota_assign_tbl_type;
356: ddindx binary_integer; indx binary_integer;
357: begin
358:
359: -- copy data to the local IN or IN-OUT args, if any
366:
367:
368:
369: -- here's the delegated call to the old PL/SQL routine
370: cn_quota_assign_pvt.get_quota_assign(p_api_version,
371: p_init_msg_list,
372: p_commit,
373: p_validation_level,
374: p_comp_plan_id,
382:
383:
384:
385:
386: cn_quota_assign_pvt_w.rosetta_table_copy_out_p1(ddx_quota_assign, p5_a0
387: , p5_a1
388: , p5_a2
389: , p5_a3
390: , p5_a4
399:
400:
401: end;
402:
403: end cn_quota_assign_pvt_w;