1: package body okl_reversal_pvt_w as
2: /* $Header: OKLEREVB.pls 120.1 2005/07/11 14:19:56 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_p0(t out nocopy okl_reversal_pvt.source_id_tbl_type, a0 JTF_NUMBER_TABLE) as
23: ddindx binary_integer; indx binary_integer;
24: begin
25: if a0 is not null and a0.count > 0 then
26: if a0.count > 0 then
36: end loop;
37: end if;
38: end if;
39: end rosetta_table_copy_in_p0;
40: procedure rosetta_table_copy_out_p0(t okl_reversal_pvt.source_id_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
41: ddindx binary_integer; indx binary_integer;
42: begin
43: if t is null or t.count = 0 then
44: a0 := JTF_NUMBER_TABLE();
85:
86: ddp_acct_date := rosetta_g_miss_date_in_map(p_acct_date);
87:
88: -- here's the delegated call to the old PL/SQL routine
89: okl_reversal_pvt.reverse_entries(p_api_version,
90: p_init_msg_list,
91: x_return_status,
92: x_msg_count,
93: x_msg_data,
116: )
117:
118: as
119: ddp_acct_date date;
120: ddp_source_id_tbl okl_reversal_pvt.source_id_tbl_type;
121: ddindx binary_integer; indx binary_integer;
122: begin
123:
124: -- copy data to the local IN or IN-OUT args, if any
129:
130:
131: ddp_acct_date := rosetta_g_miss_date_in_map(p_acct_date);
132:
133: okl_reversal_pvt_w.rosetta_table_copy_in_p0(ddp_source_id_tbl, p_source_id_tbl);
134:
135: -- here's the delegated call to the old PL/SQL routine
136: okl_reversal_pvt.reverse_entries(p_api_version,
137: p_init_msg_list,
132:
133: okl_reversal_pvt_w.rosetta_table_copy_in_p0(ddp_source_id_tbl, p_source_id_tbl);
134:
135: -- here's the delegated call to the old PL/SQL routine
136: okl_reversal_pvt.reverse_entries(p_api_version,
137: p_init_msg_list,
138: x_return_status,
139: x_msg_count,
140: x_msg_data,
151:
152:
153: end;
154:
155: end okl_reversal_pvt_w;