1: package body okl_cure_req_amt_pvt_w as
2: /* $Header: OKLECRKB.pls 115.0 2003/04/25 04:16:04 smereddy 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_p3(t out nocopy okl_cure_req_amt_pvt.cure_req_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: ) as
43: end loop;
44: end if;
45: end if;
46: end rosetta_table_copy_in_p3;
47: procedure rosetta_table_copy_out_p3(t okl_cure_req_amt_pvt.cure_req_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
48: , a1 out nocopy JTF_NUMBER_TABLE
49: , a2 out nocopy JTF_NUMBER_TABLE
50: , a3 out nocopy JTF_NUMBER_TABLE
51: ) as
98: , p6_a3 out nocopy JTF_NUMBER_TABLE
99: )
100:
101: as
102: ddp_cure_req_tbl okl_cure_req_amt_pvt.cure_req_tbl_type;
103: ddx_cure_req_tbl okl_cure_req_amt_pvt.cure_req_tbl_type;
104: ddindx binary_integer; indx binary_integer;
105: begin
106:
99: )
100:
101: as
102: ddp_cure_req_tbl okl_cure_req_amt_pvt.cure_req_tbl_type;
103: ddx_cure_req_tbl okl_cure_req_amt_pvt.cure_req_tbl_type;
104: ddindx binary_integer; indx binary_integer;
105: begin
106:
107: -- copy data to the local IN or IN-OUT args, if any
109:
110:
111:
112:
113: okl_cure_req_amt_pvt_w.rosetta_table_copy_in_p3(ddp_cure_req_tbl, p5_a0
114: , p5_a1
115: , p5_a2
116: , p5_a3
117: );
117: );
118:
119:
120: -- here's the delegated call to the old PL/SQL routine
121: okl_cure_req_amt_pvt.update_cure_request(p_api_version,
122: p_init_msg_list,
123: x_return_status,
124: x_msg_count,
125: x_msg_data,
132:
133:
134:
135:
136: okl_cure_req_amt_pvt_w.rosetta_table_copy_out_p3(ddx_cure_req_tbl, p6_a0
137: , p6_a1
138: , p6_a2
139: , p6_a3
140: );
139: , p6_a3
140: );
141: end;
142:
143: end okl_cure_req_amt_pvt_w;