1: package body okl_am_recycle_trmnt_pvt_w as
2: /* $Header: OKLERTXB.pls 120.1 2005/07/07 12:46:14 asawanka 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_p13(t out nocopy okl_am_recycle_trmnt_pvt.recy_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_200
24: , a2 JTF_VARCHAR2_TABLE_200
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_200
49: end loop;
50: end if;
51: end if;
52: end rosetta_table_copy_in_p13;
53: procedure rosetta_table_copy_out_p13(t okl_am_recycle_trmnt_pvt.recy_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
54: , a1 out nocopy JTF_VARCHAR2_TABLE_200
55: , a2 out nocopy JTF_VARCHAR2_TABLE_200
56: , a3 out nocopy JTF_NUMBER_TABLE
57: , a4 out nocopy JTF_VARCHAR2_TABLE_200
125: , p5_a6 DATE := fnd_api.g_miss_date
126: )
127:
128: as
129: ddp_recy_rec okl_am_recycle_trmnt_pvt.recy_rec_type;
130: ddx_recy_rec okl_am_recycle_trmnt_pvt.recy_rec_type;
131: ddindx binary_integer; indx binary_integer;
132: begin
133:
126: )
127:
128: as
129: ddp_recy_rec okl_am_recycle_trmnt_pvt.recy_rec_type;
130: ddx_recy_rec okl_am_recycle_trmnt_pvt.recy_rec_type;
131: ddindx binary_integer; indx binary_integer;
132: begin
133:
134: -- copy data to the local IN or IN-OUT args, if any
146: ddp_recy_rec.p_transaction_date := rosetta_g_miss_date_in_map(p5_a6);
147:
148:
149: -- here's the delegated call to the old PL/SQL routine
150: okl_am_recycle_trmnt_pvt.recycle_termination(p_api_version,
151: p_init_msg_list,
152: x_return_status,
153: x_msg_count,
154: x_msg_data,
192: , p6_a6 out nocopy JTF_DATE_TABLE
193: )
194:
195: as
196: ddp_recy_tbl okl_am_recycle_trmnt_pvt.recy_tbl_type;
197: ddx_recy_tbl okl_am_recycle_trmnt_pvt.recy_tbl_type;
198: ddindx binary_integer; indx binary_integer;
199: begin
200:
193: )
194:
195: as
196: ddp_recy_tbl okl_am_recycle_trmnt_pvt.recy_tbl_type;
197: ddx_recy_tbl okl_am_recycle_trmnt_pvt.recy_tbl_type;
198: ddindx binary_integer; indx binary_integer;
199: begin
200:
201: -- copy data to the local IN or IN-OUT args, if any
203:
204:
205:
206:
207: okl_am_recycle_trmnt_pvt_w.rosetta_table_copy_in_p13(ddp_recy_tbl, p5_a0
208: , p5_a1
209: , p5_a2
210: , p5_a3
211: , p5_a4
214: );
215:
216:
217: -- here's the delegated call to the old PL/SQL routine
218: okl_am_recycle_trmnt_pvt.recycle_termination(p_api_version,
219: p_init_msg_list,
220: x_return_status,
221: x_msg_count,
222: x_msg_data,
229:
230:
231:
232:
233: okl_am_recycle_trmnt_pvt_w.rosetta_table_copy_out_p13(ddx_recy_tbl, p6_a0
234: , p6_a1
235: , p6_a2
236: , p6_a3
237: , p6_a4
239: , p6_a6
240: );
241: end;
242:
243: end okl_am_recycle_trmnt_pvt_w;