1: package body csp_part_search_pvt_w as
2: /* $Header: cspvsrcwb.pls 120.0.12010000.2 2009/08/20 12:13:12 htank 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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
12: if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13: return d;
14: end;
15:
16: procedure rosetta_table_copy_in_p2(t out nocopy csp_part_search_pvt.required_parts_tbl, a0 JTF_NUMBER_TABLE
17: , a1 JTF_VARCHAR2_TABLE_100
18: , a2 JTF_NUMBER_TABLE
19: ) as
20: ddindx binary_integer; indx binary_integer;
35: end loop;
36: end if;
37: end if;
38: end rosetta_table_copy_in_p2;
39: procedure rosetta_table_copy_out_p2(t csp_part_search_pvt.required_parts_tbl, a0 out nocopy JTF_NUMBER_TABLE
40: , a1 out nocopy JTF_VARCHAR2_TABLE_100
41: , a2 out nocopy JTF_NUMBER_TABLE
42: ) as
43: ddindx binary_integer; indx binary_integer;
98: , x_msg_count out nocopy VARCHAR2
99: )
100:
101: as
102: ddp_required_parts csp_part_search_pvt.required_parts_tbl;
103: ddp_search_params csp_part_search_pvt.search_params_rec;
104: ddindx binary_integer; indx binary_integer;
105: begin
106:
99: )
100:
101: as
102: ddp_required_parts csp_part_search_pvt.required_parts_tbl;
103: ddp_search_params csp_part_search_pvt.search_params_rec;
104: ddindx binary_integer; indx binary_integer;
105: begin
106:
107: -- copy data to the local IN or IN-OUT args, if any
104: ddindx binary_integer; indx binary_integer;
105: begin
106:
107: -- copy data to the local IN or IN-OUT args, if any
108: csp_part_search_pvt_w.rosetta_table_copy_in_p2(ddp_required_parts, p0_a0
109: , p0_a1
110: , p0_a2
111: );
112:
174:
175:
176:
177: -- here's the delegated call to the old PL/SQL routine
178: csp_part_search_pvt.search(ddp_required_parts,
179: ddp_search_params,
180: x_return_status,
181: x_msg_data,
182: x_msg_count);
187:
188:
189: end;
190:
191: end csp_part_search_pvt_w;