1: package body ahl_repair_categories_pvt_w as
2: /* $Header: AHLWRCTB.pls 120.0 2005/07/04 03:59 tamdas noship $ */
3: procedure rosetta_table_copy_in_p3(t out nocopy ahl_repair_categories_pvt.repair_category_tbl_type, a0 JTF_NUMBER_TABLE
4: , a1 JTF_NUMBER_TABLE
5: , a2 JTF_NUMBER_TABLE
1: package body ahl_repair_categories_pvt_w as
2: /* $Header: AHLWRCTB.pls 120.0 2005/07/04 03:59 tamdas noship $ */
3: procedure rosetta_table_copy_in_p3(t out nocopy ahl_repair_categories_pvt.repair_category_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_NUMBER_TABLE
60: end loop;
61: end if;
62: end if;
63: end rosetta_table_copy_in_p3;
64: procedure rosetta_table_copy_out_p3(t ahl_repair_categories_pvt.repair_category_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
65: , a1 out nocopy JTF_NUMBER_TABLE
66: , a2 out nocopy JTF_NUMBER_TABLE
67: , a3 out nocopy JTF_VARCHAR2_TABLE_100
68: , a4 out nocopy JTF_NUMBER_TABLE
223: , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_100
224: )
225:
226: as
227: ddp_x_repair_category_tbl ahl_repair_categories_pvt.repair_category_tbl_type;
228: ddindx binary_integer; indx binary_integer;
229: begin
230:
231: -- copy data to the local IN or IN-OUT args, if any
237:
238:
239:
240:
241: ahl_repair_categories_pvt_w.rosetta_table_copy_in_p3(ddp_x_repair_category_tbl, p9_a0
242: , p9_a1
243: , p9_a2
244: , p9_a3
245: , p9_a4
262: , p9_a21
263: );
264:
265: -- here's the delegated call to the old PL/SQL routine
266: ahl_repair_categories_pvt.process_repair_categories(p_api_version,
267: p_init_msg_list,
268: p_commit,
269: p_validation_level,
270: p_default,
283:
284:
285:
286:
287: ahl_repair_categories_pvt_w.rosetta_table_copy_out_p3(ddp_x_repair_category_tbl, p9_a0
288: , p9_a1
289: , p9_a2
290: , p9_a3
291: , p9_a4
308: , p9_a21
309: );
310: end;
311:
312: end ahl_repair_categories_pvt_w;