1: package body ahl_util_pkg_w as
2: /* $Header: AHLUTLWB.pls 115.7 2003/03/20 10:45:56 sjayacha 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_p1(t out nocopy ahl_util_pkg.err_tbl_type, a0 JTF_NUMBER_TABLE
14: , a1 JTF_VARCHAR2_TABLE_2000
15: ) as
16: ddindx binary_integer; indx binary_integer;
17: begin
30: end loop;
31: end if;
32: end if;
33: end rosetta_table_copy_in_p1;
34: procedure rosetta_table_copy_out_p1(t ahl_util_pkg.err_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
35: , a1 out nocopy JTF_VARCHAR2_TABLE_2000
36: ) as
37: ddindx binary_integer; indx binary_integer;
38: begin
64: , p0_a1 out nocopy JTF_VARCHAR2_TABLE_2000
65: )
66:
67: as
68: ddx_err_table ahl_util_pkg.err_tbl_type;
69: ddindx binary_integer; indx binary_integer;
70: begin
71:
72: -- copy data to the local IN or IN-OUT args, if any
71:
72: -- copy data to the local IN or IN-OUT args, if any
73:
74: -- here's the delegated call to the old PL/SQL routine
75: ahl_util_pkg.err_mesg_to_table(ddx_err_table);
76:
77: -- copy data back from the local variables to OUT or IN-OUT args, if any
78: ahl_util_pkg_w.rosetta_table_copy_out_p1(ddx_err_table, p0_a0
79: , p0_a1
74: -- here's the delegated call to the old PL/SQL routine
75: ahl_util_pkg.err_mesg_to_table(ddx_err_table);
76:
77: -- copy data back from the local variables to OUT or IN-OUT args, if any
78: ahl_util_pkg_w.rosetta_table_copy_out_p1(ddx_err_table, p0_a0
79: , p0_a1
80: );
81: end;
82:
79: , p0_a1
80: );
81: end;
82:
83: end ahl_util_pkg_w;