1: package body cn_rules_disp_pub_w as
2: /* $Header: cnwrulb.pls 115.4 2002/11/25 23:51:30 fting ship $ */
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 cn_rules_disp_pub.rls_dsp_tbl_type, a0 JTF_VARCHAR2_TABLE_100
14: , a1 JTF_NUMBER_TABLE
15: , a2 JTF_VARCHAR2_TABLE_100
16: , a3 JTF_VARCHAR2_TABLE_2000
17: ) as
34: end loop;
35: end if;
36: end if;
37: end rosetta_table_copy_in_p1;
38: procedure rosetta_table_copy_out_p1(t cn_rules_disp_pub.rls_dsp_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
39: , a1 out nocopy JTF_NUMBER_TABLE
40: , a2 out nocopy JTF_VARCHAR2_TABLE_100
41: , a3 out nocopy JTF_VARCHAR2_TABLE_2000
42: ) as
94: )
95:
96: as
97: ddp_date date;
98: ddx_rules_display_tbl cn_rules_disp_pub.rls_dsp_tbl_type;
99: ddindx binary_integer; indx binary_integer;
100: begin
101:
102: -- copy data to the local IN or IN-OUT args, if any
115:
116:
117:
118: -- here's the delegated call to the old PL/SQL routine
119: cn_rules_disp_pub.get_rules(p_api_version,
120: p_init_msg_list,
121: p_validation_level,
122: x_return_status,
123: x_msg_count,
143:
144:
145:
146:
147: cn_rules_disp_pub_w.rosetta_table_copy_out_p1(ddx_rules_display_tbl, p12_a0
148: , p12_a1
149: , p12_a2
150: , p12_a3
151: );
151: );
152:
153: end;
154:
155: end cn_rules_disp_pub_w;