[Home] [Help]
PACKAGE BODY: APPS.OKL_ACCT_GEN_RULE_PUB_W
Source
1 package body okl_acct_gen_rule_pub_w as
2 /* $Header: OKLUACGB.pls 120.1 2005/07/07 13:35:54 dkagrawa 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure get_rule_lines(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p_ae_line_type VARCHAR2
28 , p6_a0 out nocopy JTF_NUMBER_TABLE
29 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
30 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_4000
31 , p6_a3 out nocopy JTF_NUMBER_TABLE
32 , p6_a4 out nocopy JTF_NUMBER_TABLE
33 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
34 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
35 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
36 , p6_a8 out nocopy JTF_NUMBER_TABLE
37 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
38 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
39 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
40 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
41 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
42 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
43 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
44 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
45 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
46 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
47 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
48 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
49 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
50 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
51 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
52 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
53 , p6_a25 out nocopy JTF_NUMBER_TABLE
54 , p6_a26 out nocopy JTF_DATE_TABLE
55 , p6_a27 out nocopy JTF_NUMBER_TABLE
56 , p6_a28 out nocopy JTF_DATE_TABLE
57 , p6_a29 out nocopy JTF_NUMBER_TABLE
58 )
59
60 as
61 ddx_acc_lines okl_acct_gen_rule_pub.acct_tbl_type;
62 ddindx binary_integer; indx binary_integer;
63 begin
64
65 -- copy data to the local IN or IN-OUT args, if any
66
67
68
69
70
71
72
73 -- here's the delegated call to the old PL/SQL routine
74 okl_acct_gen_rule_pub.get_rule_lines(p_api_version,
75 p_init_msg_list,
76 x_return_status,
77 x_msg_count,
78 x_msg_data,
79 p_ae_line_type,
80 ddx_acc_lines);
81
82 -- copy data back from the local variables to OUT or IN-OUT args, if any
83
84
85
86
87
88
89 okl_acct_gen_rule_pvt_w.rosetta_table_copy_out_p4(ddx_acc_lines, p6_a0
90 , p6_a1
91 , p6_a2
92 , p6_a3
93 , p6_a4
94 , p6_a5
95 , p6_a6
96 , p6_a7
97 , p6_a8
98 , p6_a9
99 , p6_a10
100 , p6_a11
101 , p6_a12
102 , p6_a13
103 , p6_a14
104 , p6_a15
105 , p6_a16
106 , p6_a17
107 , p6_a18
108 , p6_a19
109 , p6_a20
110 , p6_a21
111 , p6_a22
112 , p6_a23
113 , p6_a24
114 , p6_a25
115 , p6_a26
116 , p6_a27
117 , p6_a28
118 , p6_a29
119 );
120 end;
121
122 procedure updt_rule_lines(p_api_version NUMBER
123 , p_init_msg_list VARCHAR2
124 , x_return_status out nocopy VARCHAR2
125 , x_msg_count out nocopy NUMBER
126 , x_msg_data out nocopy VARCHAR2
127 , p5_a0 JTF_NUMBER_TABLE
128 , p5_a1 JTF_VARCHAR2_TABLE_100
129 , p5_a2 JTF_VARCHAR2_TABLE_4000
130 , p5_a3 JTF_NUMBER_TABLE
131 , p5_a4 JTF_NUMBER_TABLE
132 , p5_a5 JTF_VARCHAR2_TABLE_100
133 , p5_a6 JTF_VARCHAR2_TABLE_100
134 , p5_a7 JTF_VARCHAR2_TABLE_100
135 , p5_a8 JTF_NUMBER_TABLE
136 , p5_a9 JTF_VARCHAR2_TABLE_500
137 , p5_a10 JTF_VARCHAR2_TABLE_500
138 , p5_a11 JTF_VARCHAR2_TABLE_500
139 , p5_a12 JTF_VARCHAR2_TABLE_500
140 , p5_a13 JTF_VARCHAR2_TABLE_500
141 , p5_a14 JTF_VARCHAR2_TABLE_500
142 , p5_a15 JTF_VARCHAR2_TABLE_500
143 , p5_a16 JTF_VARCHAR2_TABLE_500
144 , p5_a17 JTF_VARCHAR2_TABLE_500
145 , p5_a18 JTF_VARCHAR2_TABLE_500
146 , p5_a19 JTF_VARCHAR2_TABLE_500
147 , p5_a20 JTF_VARCHAR2_TABLE_500
148 , p5_a21 JTF_VARCHAR2_TABLE_500
149 , p5_a22 JTF_VARCHAR2_TABLE_500
150 , p5_a23 JTF_VARCHAR2_TABLE_500
151 , p5_a24 JTF_VARCHAR2_TABLE_500
152 , p5_a25 JTF_NUMBER_TABLE
153 , p5_a26 JTF_DATE_TABLE
154 , p5_a27 JTF_NUMBER_TABLE
155 , p5_a28 JTF_DATE_TABLE
156 , p5_a29 JTF_NUMBER_TABLE
157 , p6_a0 out nocopy JTF_NUMBER_TABLE
158 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
159 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_4000
160 , p6_a3 out nocopy JTF_NUMBER_TABLE
161 , p6_a4 out nocopy JTF_NUMBER_TABLE
162 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
163 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
164 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
165 , p6_a8 out nocopy JTF_NUMBER_TABLE
166 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
167 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
168 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
169 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
170 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
171 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
172 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
173 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
174 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
175 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
176 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
177 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
178 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
179 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
180 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
181 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
182 , p6_a25 out nocopy JTF_NUMBER_TABLE
183 , p6_a26 out nocopy JTF_DATE_TABLE
184 , p6_a27 out nocopy JTF_NUMBER_TABLE
185 , p6_a28 out nocopy JTF_DATE_TABLE
186 , p6_a29 out nocopy JTF_NUMBER_TABLE
187 )
188
189 as
190 ddp_acc_lines okl_acct_gen_rule_pub.acct_tbl_type;
191 ddx_acc_lines okl_acct_gen_rule_pub.acct_tbl_type;
192 ddindx binary_integer; indx binary_integer;
193 begin
194
195 -- copy data to the local IN or IN-OUT args, if any
196
197
198
199
200
201 okl_acct_gen_rule_pvt_w.rosetta_table_copy_in_p4(ddp_acc_lines, p5_a0
202 , p5_a1
203 , p5_a2
204 , p5_a3
205 , p5_a4
206 , p5_a5
207 , p5_a6
208 , p5_a7
209 , p5_a8
210 , p5_a9
211 , p5_a10
212 , p5_a11
213 , p5_a12
214 , p5_a13
215 , p5_a14
216 , p5_a15
217 , p5_a16
218 , p5_a17
219 , p5_a18
220 , p5_a19
221 , p5_a20
222 , p5_a21
223 , p5_a22
224 , p5_a23
225 , p5_a24
226 , p5_a25
227 , p5_a26
228 , p5_a27
229 , p5_a28
230 , p5_a29
231 );
232
233
234 -- here's the delegated call to the old PL/SQL routine
235 okl_acct_gen_rule_pub.updt_rule_lines(p_api_version,
236 p_init_msg_list,
237 x_return_status,
238 x_msg_count,
239 x_msg_data,
240 ddp_acc_lines,
241 ddx_acc_lines);
242
243 -- copy data back from the local variables to OUT or IN-OUT args, if any
244
245
246
247
248
249
250 okl_acct_gen_rule_pvt_w.rosetta_table_copy_out_p4(ddx_acc_lines, p6_a0
251 , p6_a1
252 , p6_a2
253 , p6_a3
254 , p6_a4
255 , p6_a5
256 , p6_a6
257 , p6_a7
258 , p6_a8
259 , p6_a9
260 , p6_a10
261 , p6_a11
262 , p6_a12
263 , p6_a13
264 , p6_a14
265 , p6_a15
266 , p6_a16
267 , p6_a17
268 , p6_a18
269 , p6_a19
270 , p6_a20
271 , p6_a21
272 , p6_a22
273 , p6_a23
274 , p6_a24
275 , p6_a25
276 , p6_a26
277 , p6_a27
278 , p6_a28
279 , p6_a29
280 );
281 end;
282
283 end okl_acct_gen_rule_pub_w;