1: package body okl_override_tax_basis_pub_w as
2: /* $Header: OKLUOTBB.pls 120.0 2005/08/24 14:33:30 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:
84: , p5_a28 NUMBER := 0-1962.0724
85: )
86:
87: as
88: ddp_tbov_rec okl_override_tax_basis_pub.tbov_rec_type;
89: ddx_tbov_rec okl_override_tax_basis_pub.tbov_rec_type;
90: ddindx binary_integer; indx binary_integer;
91: begin
92:
85: )
86:
87: as
88: ddp_tbov_rec okl_override_tax_basis_pub.tbov_rec_type;
89: ddx_tbov_rec okl_override_tax_basis_pub.tbov_rec_type;
90: ddindx binary_integer; indx binary_integer;
91: begin
92:
93: -- copy data to the local IN or IN-OUT args, if any
127: ddp_tbov_rec.object_version_number := rosetta_g_miss_num_map(p5_a28);
128:
129:
130: -- here's the delegated call to the old PL/SQL routine
131: okl_override_tax_basis_pub.override_tax_basis(p_api_version,
132: p_init_msg_list,
133: x_return_status,
134: x_msg_count,
135: x_msg_data,
239: , p6_a28 out nocopy JTF_NUMBER_TABLE
240: )
241:
242: as
243: ddp_tbov_tbl okl_override_tax_basis_pub.tbov_tbl_type;
244: ddx_tbov_tbl okl_override_tax_basis_pub.tbov_tbl_type;
245: ddindx binary_integer; indx binary_integer;
246: begin
247:
240: )
241:
242: as
243: ddp_tbov_tbl okl_override_tax_basis_pub.tbov_tbl_type;
244: ddx_tbov_tbl okl_override_tax_basis_pub.tbov_tbl_type;
245: ddindx binary_integer; indx binary_integer;
246: begin
247:
248: -- copy data to the local IN or IN-OUT args, if any
283: );
284:
285:
286: -- here's the delegated call to the old PL/SQL routine
287: okl_override_tax_basis_pub.override_tax_basis(p_api_version,
288: p_init_msg_list,
289: x_return_status,
290: x_msg_count,
291: x_msg_data,
330: , p6_a28
331: );
332: end;
333:
334: end okl_override_tax_basis_pub_w;