1: package body okl_am_recycle_trmnt_pub_w as
2: /* $Header: OKLURTXB.pls 120.1 2005/07/07 12:49:12 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:
40: , p5_a6 DATE := fnd_api.g_miss_date
41: )
42:
43: as
44: ddp_recy_rec okl_am_recycle_trmnt_pub.recy_rec_type;
45: ddx_recy_rec okl_am_recycle_trmnt_pub.recy_rec_type;
46: ddindx binary_integer; indx binary_integer;
47: begin
48:
41: )
42:
43: as
44: ddp_recy_rec okl_am_recycle_trmnt_pub.recy_rec_type;
45: ddx_recy_rec okl_am_recycle_trmnt_pub.recy_rec_type;
46: ddindx binary_integer; indx binary_integer;
47: begin
48:
49: -- copy data to the local IN or IN-OUT args, if any
61: ddp_recy_rec.p_transaction_date := rosetta_g_miss_date_in_map(p5_a6);
62:
63:
64: -- here's the delegated call to the old PL/SQL routine
65: okl_am_recycle_trmnt_pub.recycle_termination(p_api_version,
66: p_init_msg_list,
67: x_return_status,
68: x_msg_count,
69: x_msg_data,
107: , p6_a6 out nocopy JTF_DATE_TABLE
108: )
109:
110: as
111: ddp_recy_tbl okl_am_recycle_trmnt_pub.recy_tbl_type;
112: ddx_recy_tbl okl_am_recycle_trmnt_pub.recy_tbl_type;
113: ddindx binary_integer; indx binary_integer;
114: begin
115:
108: )
109:
110: as
111: ddp_recy_tbl okl_am_recycle_trmnt_pub.recy_tbl_type;
112: ddx_recy_tbl okl_am_recycle_trmnt_pub.recy_tbl_type;
113: ddindx binary_integer; indx binary_integer;
114: begin
115:
116: -- copy data to the local IN or IN-OUT args, if any
129: );
130:
131:
132: -- here's the delegated call to the old PL/SQL routine
133: okl_am_recycle_trmnt_pub.recycle_termination(p_api_version,
134: p_init_msg_list,
135: x_return_status,
136: x_msg_count,
137: x_msg_data,
154: , p6_a6
155: );
156: end;
157:
158: end okl_am_recycle_trmnt_pub_w;