1: package body ahl_status_order_rules_pvt_w as
2: /* $Header: AHLWSORB.pls 115.0 2003/07/07 19:15:04 sdevaki 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_status_order_rules_pvt.status_order_rules_tbl, a0 JTF_NUMBER_TABLE
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_DATE_TABLE
16: , a3 JTF_NUMBER_TABLE
17: , a4 JTF_DATE_TABLE
50: end loop;
51: end if;
52: end if;
53: end rosetta_table_copy_in_p1;
54: procedure rosetta_table_copy_out_p1(t ahl_status_order_rules_pvt.status_order_rules_tbl, a0 out nocopy JTF_NUMBER_TABLE
55: , a1 out nocopy JTF_NUMBER_TABLE
56: , a2 out nocopy JTF_DATE_TABLE
57: , a3 out nocopy JTF_NUMBER_TABLE
58: , a4 out nocopy JTF_DATE_TABLE
153: , x_msg_data out nocopy VARCHAR2
154: )
155:
156: as
157: ddx_status_order_rules_tbl ahl_status_order_rules_pvt.status_order_rules_tbl;
158: ddindx binary_integer; indx binary_integer;
159: begin
160:
161: -- copy data to the local IN or IN-OUT args, if any
169:
170:
171:
172: -- here's the delegated call to the old PL/SQL routine
173: ahl_status_order_rules_pvt.get_status_order_rules(p_api_version,
174: p_init_msg_list,
175: p_validation_level,
176: p_module_type,
177: p_current_status_code,
187:
188:
189:
190:
191: ahl_status_order_rules_pvt_w.rosetta_table_copy_out_p1(ddx_status_order_rules_tbl, p6_a0
192: , p6_a1
193: , p6_a2
194: , p6_a3
195: , p6_a4
205:
206:
207: end;
208:
209: end ahl_status_order_rules_pvt_w;