1: package body okl_inv_format_delete_pvt_w as
2: /* $Header: OKLEIFDB.pls 120.1 2005/07/11 12:50:11 dkagrawa 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p1(t out nocopy okl_inv_format_delete_pvt.inf_del_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_VARCHAR2_TABLE_200
25: , a3 JTF_VARCHAR2_TABLE_2000
26: , a4 JTF_VARCHAR2_TABLE_100
49: end loop;
50: end if;
51: end if;
52: end rosetta_table_copy_in_p1;
53: procedure rosetta_table_copy_out_p1(t okl_inv_format_delete_pvt.inf_del_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
54: , a1 out nocopy JTF_NUMBER_TABLE
55: , a2 out nocopy JTF_VARCHAR2_TABLE_200
56: , a3 out nocopy JTF_VARCHAR2_TABLE_2000
57: , a4 out nocopy JTF_VARCHAR2_TABLE_100
118: , p5_a6 DATE := fnd_api.g_miss_date
119: )
120:
121: as
122: ddp_inf_del_rec okl_inv_format_delete_pvt.inf_del_rec_type;
123: ddindx binary_integer; indx binary_integer;
124: begin
125:
126: -- copy data to the local IN or IN-OUT args, if any
137: ddp_inf_del_rec.start_date := rosetta_g_miss_date_in_map(p5_a5);
138: ddp_inf_del_rec.end_date := rosetta_g_miss_date_in_map(p5_a6);
139:
140: -- here's the delegated call to the old PL/SQL routine
141: okl_inv_format_delete_pvt.delete_format(p_api_version,
142: p_init_msg_list,
143: x_return_status,
144: x_msg_count,
145: x_msg_data,
167: , p5_a6 JTF_DATE_TABLE
168: )
169:
170: as
171: ddp_inf_del_tbl okl_inv_format_delete_pvt.inf_del_tbl_type;
172: ddindx binary_integer; indx binary_integer;
173: begin
174:
175: -- copy data to the local IN or IN-OUT args, if any
177:
178:
179:
180:
181: okl_inv_format_delete_pvt_w.rosetta_table_copy_in_p1(ddp_inf_del_tbl, p5_a0
182: , p5_a1
183: , p5_a2
184: , p5_a3
185: , p5_a4
187: , p5_a6
188: );
189:
190: -- here's the delegated call to the old PL/SQL routine
191: okl_inv_format_delete_pvt.delete_format(p_api_version,
192: p_init_msg_list,
193: x_return_status,
194: x_msg_count,
195: x_msg_data,
202:
203:
204: end;
205:
206: end okl_inv_format_delete_pvt_w;