1: package body ahl_mc_tree_pvt_w as
2: /* $Header: AHLWMCTB.pls 120.2 2005/07/30 06:32 tamdas noship $ */
3: rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4: rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5:
9: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10: return d;
11: end;
12:
13: procedure rosetta_table_copy_in_p2(t out nocopy ahl_mc_tree_pvt.tree_node_tbl_type, a0 JTF_NUMBER_TABLE
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_NUMBER_TABLE
16: , a3 JTF_NUMBER_TABLE
17: , a4 JTF_NUMBER_TABLE
80: end loop;
81: end if;
82: end if;
83: end rosetta_table_copy_in_p2;
84: procedure rosetta_table_copy_out_p2(t ahl_mc_tree_pvt.tree_node_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
85: , a1 out nocopy JTF_NUMBER_TABLE
86: , a2 out nocopy JTF_NUMBER_TABLE
87: , a3 out nocopy JTF_NUMBER_TABLE
88: , a4 out nocopy JTF_NUMBER_TABLE
274: , p10_a26 out nocopy JTF_VARCHAR2_TABLE_100
275: )
276:
277: as
278: ddx_tree_node_tbl ahl_mc_tree_pvt.tree_node_tbl_type;
279: ddindx binary_integer; indx binary_integer;
280: begin
281:
282: -- copy data to the local IN or IN-OUT args, if any
291:
292:
293:
294: -- here's the delegated call to the old PL/SQL routine
295: ahl_mc_tree_pvt.get_masterconfig_nodes(p_api_version,
296: x_return_status,
297: x_msg_count,
298: x_msg_data,
299: p_mc_header_id,
314:
315:
316:
317:
318: ahl_mc_tree_pvt_w.rosetta_table_copy_out_p2(ddx_tree_node_tbl, p10_a0
319: , p10_a1
320: , p10_a2
321: , p10_a3
322: , p10_a4
344: , p10_a26
345: );
346: end;
347:
348: end ahl_mc_tree_pvt_w;