[Home] [Help]
PACKAGE BODY: APPS.OKL_ACCT_GEN_RULE_PVT_W
Source
1 package body okl_acct_gen_rule_pvt_w as
2 /* $Header: OKLEACGB.pls 120.1 2005/07/07 13:36:03 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 rosetta_table_copy_in_p4(t out nocopy okl_acct_gen_rule_pvt.acct_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_VARCHAR2_TABLE_100
24 , a2 JTF_VARCHAR2_TABLE_4000
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_VARCHAR2_TABLE_100
28 , a6 JTF_VARCHAR2_TABLE_100
29 , a7 JTF_VARCHAR2_TABLE_100
30 , a8 JTF_NUMBER_TABLE
31 , a9 JTF_VARCHAR2_TABLE_500
32 , a10 JTF_VARCHAR2_TABLE_500
33 , a11 JTF_VARCHAR2_TABLE_500
34 , a12 JTF_VARCHAR2_TABLE_500
35 , a13 JTF_VARCHAR2_TABLE_500
36 , a14 JTF_VARCHAR2_TABLE_500
37 , a15 JTF_VARCHAR2_TABLE_500
38 , a16 JTF_VARCHAR2_TABLE_500
39 , a17 JTF_VARCHAR2_TABLE_500
40 , a18 JTF_VARCHAR2_TABLE_500
41 , a19 JTF_VARCHAR2_TABLE_500
42 , a20 JTF_VARCHAR2_TABLE_500
43 , a21 JTF_VARCHAR2_TABLE_500
44 , a22 JTF_VARCHAR2_TABLE_500
45 , a23 JTF_VARCHAR2_TABLE_500
46 , a24 JTF_VARCHAR2_TABLE_500
47 , a25 JTF_NUMBER_TABLE
48 , a26 JTF_DATE_TABLE
49 , a27 JTF_NUMBER_TABLE
50 , a28 JTF_DATE_TABLE
51 , a29 JTF_NUMBER_TABLE
52 ) as
53 ddindx binary_integer; indx binary_integer;
54 begin
55 if a0 is not null and a0.count > 0 then
56 if a0.count > 0 then
57 indx := a0.first;
58 ddindx := 1;
59 while true loop
60 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
61 t(ddindx).segment := a1(indx);
62 t(ddindx).segment_desc := a2(indx);
63 t(ddindx).segment_number := rosetta_g_miss_num_map(a3(indx));
64 t(ddindx).agr_id := rosetta_g_miss_num_map(a4(indx));
65 t(ddindx).ae_line_type := a5(indx);
66 t(ddindx).source := a6(indx);
67 t(ddindx).constants := a7(indx);
68 t(ddindx).object_version_number := rosetta_g_miss_num_map(a8(indx));
69 t(ddindx).attribute_category := a9(indx);
70 t(ddindx).attribute1 := a10(indx);
71 t(ddindx).attribute2 := a11(indx);
72 t(ddindx).attribute3 := a12(indx);
73 t(ddindx).attribute4 := a13(indx);
74 t(ddindx).attribute5 := a14(indx);
75 t(ddindx).attribute6 := a15(indx);
76 t(ddindx).attribute7 := a16(indx);
77 t(ddindx).attribute8 := a17(indx);
78 t(ddindx).attribute9 := a18(indx);
79 t(ddindx).attribute10 := a19(indx);
80 t(ddindx).attribute11 := a20(indx);
81 t(ddindx).attribute12 := a21(indx);
82 t(ddindx).attribute13 := a22(indx);
83 t(ddindx).attribute14 := a23(indx);
84 t(ddindx).attribute15 := a24(indx);
85 t(ddindx).created_by := rosetta_g_miss_num_map(a25(indx));
86 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a26(indx));
87 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a27(indx));
88 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a28(indx));
89 t(ddindx).last_update_login := rosetta_g_miss_num_map(a29(indx));
90 ddindx := ddindx+1;
91 if a0.last =indx
92 then exit;
93 end if;
94 indx := a0.next(indx);
95 end loop;
96 end if;
97 end if;
98 end rosetta_table_copy_in_p4;
99 procedure rosetta_table_copy_out_p4(t okl_acct_gen_rule_pvt.acct_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
100 , a1 out nocopy JTF_VARCHAR2_TABLE_100
101 , a2 out nocopy JTF_VARCHAR2_TABLE_4000
102 , a3 out nocopy JTF_NUMBER_TABLE
103 , a4 out nocopy JTF_NUMBER_TABLE
104 , a5 out nocopy JTF_VARCHAR2_TABLE_100
105 , a6 out nocopy JTF_VARCHAR2_TABLE_100
106 , a7 out nocopy JTF_VARCHAR2_TABLE_100
107 , a8 out nocopy JTF_NUMBER_TABLE
108 , a9 out nocopy JTF_VARCHAR2_TABLE_500
109 , a10 out nocopy JTF_VARCHAR2_TABLE_500
110 , a11 out nocopy JTF_VARCHAR2_TABLE_500
111 , a12 out nocopy JTF_VARCHAR2_TABLE_500
112 , a13 out nocopy JTF_VARCHAR2_TABLE_500
113 , a14 out nocopy JTF_VARCHAR2_TABLE_500
114 , a15 out nocopy JTF_VARCHAR2_TABLE_500
115 , a16 out nocopy JTF_VARCHAR2_TABLE_500
116 , a17 out nocopy JTF_VARCHAR2_TABLE_500
117 , a18 out nocopy JTF_VARCHAR2_TABLE_500
118 , a19 out nocopy JTF_VARCHAR2_TABLE_500
119 , a20 out nocopy JTF_VARCHAR2_TABLE_500
120 , a21 out nocopy JTF_VARCHAR2_TABLE_500
121 , a22 out nocopy JTF_VARCHAR2_TABLE_500
122 , a23 out nocopy JTF_VARCHAR2_TABLE_500
123 , a24 out nocopy JTF_VARCHAR2_TABLE_500
124 , a25 out nocopy JTF_NUMBER_TABLE
125 , a26 out nocopy JTF_DATE_TABLE
126 , a27 out nocopy JTF_NUMBER_TABLE
127 , a28 out nocopy JTF_DATE_TABLE
128 , a29 out nocopy JTF_NUMBER_TABLE
129 ) as
130 ddindx binary_integer; indx binary_integer;
131 begin
132 if t is null or t.count = 0 then
133 a0 := JTF_NUMBER_TABLE();
134 a1 := JTF_VARCHAR2_TABLE_100();
135 a2 := JTF_VARCHAR2_TABLE_4000();
136 a3 := JTF_NUMBER_TABLE();
137 a4 := JTF_NUMBER_TABLE();
138 a5 := JTF_VARCHAR2_TABLE_100();
139 a6 := JTF_VARCHAR2_TABLE_100();
140 a7 := JTF_VARCHAR2_TABLE_100();
141 a8 := JTF_NUMBER_TABLE();
142 a9 := JTF_VARCHAR2_TABLE_500();
143 a10 := JTF_VARCHAR2_TABLE_500();
144 a11 := JTF_VARCHAR2_TABLE_500();
145 a12 := JTF_VARCHAR2_TABLE_500();
146 a13 := JTF_VARCHAR2_TABLE_500();
147 a14 := JTF_VARCHAR2_TABLE_500();
148 a15 := JTF_VARCHAR2_TABLE_500();
149 a16 := JTF_VARCHAR2_TABLE_500();
150 a17 := JTF_VARCHAR2_TABLE_500();
151 a18 := JTF_VARCHAR2_TABLE_500();
152 a19 := JTF_VARCHAR2_TABLE_500();
153 a20 := JTF_VARCHAR2_TABLE_500();
154 a21 := JTF_VARCHAR2_TABLE_500();
155 a22 := JTF_VARCHAR2_TABLE_500();
156 a23 := JTF_VARCHAR2_TABLE_500();
157 a24 := JTF_VARCHAR2_TABLE_500();
158 a25 := JTF_NUMBER_TABLE();
159 a26 := JTF_DATE_TABLE();
160 a27 := JTF_NUMBER_TABLE();
161 a28 := JTF_DATE_TABLE();
162 a29 := JTF_NUMBER_TABLE();
163 else
164 a0 := JTF_NUMBER_TABLE();
165 a1 := JTF_VARCHAR2_TABLE_100();
166 a2 := JTF_VARCHAR2_TABLE_4000();
167 a3 := JTF_NUMBER_TABLE();
168 a4 := JTF_NUMBER_TABLE();
169 a5 := JTF_VARCHAR2_TABLE_100();
170 a6 := JTF_VARCHAR2_TABLE_100();
171 a7 := JTF_VARCHAR2_TABLE_100();
172 a8 := JTF_NUMBER_TABLE();
173 a9 := JTF_VARCHAR2_TABLE_500();
174 a10 := JTF_VARCHAR2_TABLE_500();
175 a11 := JTF_VARCHAR2_TABLE_500();
176 a12 := JTF_VARCHAR2_TABLE_500();
177 a13 := JTF_VARCHAR2_TABLE_500();
178 a14 := JTF_VARCHAR2_TABLE_500();
179 a15 := JTF_VARCHAR2_TABLE_500();
180 a16 := JTF_VARCHAR2_TABLE_500();
181 a17 := JTF_VARCHAR2_TABLE_500();
182 a18 := JTF_VARCHAR2_TABLE_500();
183 a19 := JTF_VARCHAR2_TABLE_500();
184 a20 := JTF_VARCHAR2_TABLE_500();
185 a21 := JTF_VARCHAR2_TABLE_500();
186 a22 := JTF_VARCHAR2_TABLE_500();
187 a23 := JTF_VARCHAR2_TABLE_500();
188 a24 := JTF_VARCHAR2_TABLE_500();
189 a25 := JTF_NUMBER_TABLE();
190 a26 := JTF_DATE_TABLE();
191 a27 := JTF_NUMBER_TABLE();
192 a28 := JTF_DATE_TABLE();
193 a29 := JTF_NUMBER_TABLE();
194 if t.count > 0 then
195 a0.extend(t.count);
196 a1.extend(t.count);
197 a2.extend(t.count);
198 a3.extend(t.count);
199 a4.extend(t.count);
200 a5.extend(t.count);
201 a6.extend(t.count);
202 a7.extend(t.count);
203 a8.extend(t.count);
204 a9.extend(t.count);
205 a10.extend(t.count);
206 a11.extend(t.count);
207 a12.extend(t.count);
208 a13.extend(t.count);
209 a14.extend(t.count);
210 a15.extend(t.count);
211 a16.extend(t.count);
212 a17.extend(t.count);
213 a18.extend(t.count);
214 a19.extend(t.count);
215 a20.extend(t.count);
216 a21.extend(t.count);
217 a22.extend(t.count);
218 a23.extend(t.count);
219 a24.extend(t.count);
220 a25.extend(t.count);
221 a26.extend(t.count);
222 a27.extend(t.count);
223 a28.extend(t.count);
224 a29.extend(t.count);
225 ddindx := t.first;
226 indx := 1;
227 while true loop
228 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
229 a1(indx) := t(ddindx).segment;
230 a2(indx) := t(ddindx).segment_desc;
231 a3(indx) := rosetta_g_miss_num_map(t(ddindx).segment_number);
232 a4(indx) := rosetta_g_miss_num_map(t(ddindx).agr_id);
233 a5(indx) := t(ddindx).ae_line_type;
234 a6(indx) := t(ddindx).source;
235 a7(indx) := t(ddindx).constants;
236 a8(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
237 a9(indx) := t(ddindx).attribute_category;
238 a10(indx) := t(ddindx).attribute1;
239 a11(indx) := t(ddindx).attribute2;
240 a12(indx) := t(ddindx).attribute3;
241 a13(indx) := t(ddindx).attribute4;
242 a14(indx) := t(ddindx).attribute5;
243 a15(indx) := t(ddindx).attribute6;
244 a16(indx) := t(ddindx).attribute7;
245 a17(indx) := t(ddindx).attribute8;
246 a18(indx) := t(ddindx).attribute9;
247 a19(indx) := t(ddindx).attribute10;
248 a20(indx) := t(ddindx).attribute11;
249 a21(indx) := t(ddindx).attribute12;
250 a22(indx) := t(ddindx).attribute13;
251 a23(indx) := t(ddindx).attribute14;
252 a24(indx) := t(ddindx).attribute15;
253 a25(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
254 a26(indx) := t(ddindx).creation_date;
255 a27(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
256 a28(indx) := t(ddindx).last_update_date;
257 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
258 indx := indx+1;
259 if t.last =ddindx
260 then exit;
261 end if;
262 ddindx := t.next(ddindx);
263 end loop;
264 end if;
265 end if;
266 end rosetta_table_copy_out_p4;
267
268 procedure get_rule_lines(p_api_version NUMBER
269 , p_init_msg_list VARCHAR2
270 , x_return_status out nocopy VARCHAR2
271 , x_msg_count out nocopy NUMBER
272 , x_msg_data out nocopy VARCHAR2
273 , p_ae_line_type VARCHAR2
274 , p6_a0 out nocopy JTF_NUMBER_TABLE
275 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
276 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_4000
277 , p6_a3 out nocopy JTF_NUMBER_TABLE
278 , p6_a4 out nocopy JTF_NUMBER_TABLE
279 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
280 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
281 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
282 , p6_a8 out nocopy JTF_NUMBER_TABLE
283 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
284 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
285 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
286 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
287 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
288 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
289 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
290 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
291 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
292 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
293 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
294 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
295 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
296 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
297 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
298 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
299 , p6_a25 out nocopy JTF_NUMBER_TABLE
300 , p6_a26 out nocopy JTF_DATE_TABLE
301 , p6_a27 out nocopy JTF_NUMBER_TABLE
302 , p6_a28 out nocopy JTF_DATE_TABLE
303 , p6_a29 out nocopy JTF_NUMBER_TABLE
304 )
305
306 as
307 ddx_acc_lines okl_acct_gen_rule_pvt.acct_tbl_type;
308 ddindx binary_integer; indx binary_integer;
309 begin
310
311 -- copy data to the local IN or IN-OUT args, if any
312
313
314
315
316
317
318
319 -- here's the delegated call to the old PL/SQL routine
320 okl_acct_gen_rule_pvt.get_rule_lines(p_api_version,
321 p_init_msg_list,
322 x_return_status,
323 x_msg_count,
324 x_msg_data,
325 p_ae_line_type,
326 ddx_acc_lines);
327
328 -- copy data back from the local variables to OUT or IN-OUT args, if any
329
330
331
332
333
334
335 okl_acct_gen_rule_pvt_w.rosetta_table_copy_out_p4(ddx_acc_lines, p6_a0
336 , p6_a1
337 , p6_a2
338 , p6_a3
339 , p6_a4
340 , p6_a5
341 , p6_a6
342 , p6_a7
343 , p6_a8
344 , p6_a9
345 , p6_a10
346 , p6_a11
347 , p6_a12
348 , p6_a13
349 , p6_a14
350 , p6_a15
351 , p6_a16
352 , p6_a17
353 , p6_a18
354 , p6_a19
355 , p6_a20
356 , p6_a21
357 , p6_a22
358 , p6_a23
359 , p6_a24
360 , p6_a25
361 , p6_a26
362 , p6_a27
363 , p6_a28
364 , p6_a29
365 );
366 end;
367
368 procedure updt_rule_lines(p_api_version NUMBER
369 , p_init_msg_list VARCHAR2
370 , x_return_status out nocopy VARCHAR2
371 , x_msg_count out nocopy NUMBER
372 , x_msg_data out nocopy VARCHAR2
373 , p5_a0 JTF_NUMBER_TABLE
374 , p5_a1 JTF_VARCHAR2_TABLE_100
375 , p5_a2 JTF_VARCHAR2_TABLE_4000
376 , p5_a3 JTF_NUMBER_TABLE
377 , p5_a4 JTF_NUMBER_TABLE
378 , p5_a5 JTF_VARCHAR2_TABLE_100
379 , p5_a6 JTF_VARCHAR2_TABLE_100
380 , p5_a7 JTF_VARCHAR2_TABLE_100
381 , p5_a8 JTF_NUMBER_TABLE
382 , p5_a9 JTF_VARCHAR2_TABLE_500
383 , p5_a10 JTF_VARCHAR2_TABLE_500
384 , p5_a11 JTF_VARCHAR2_TABLE_500
385 , p5_a12 JTF_VARCHAR2_TABLE_500
386 , p5_a13 JTF_VARCHAR2_TABLE_500
387 , p5_a14 JTF_VARCHAR2_TABLE_500
388 , p5_a15 JTF_VARCHAR2_TABLE_500
389 , p5_a16 JTF_VARCHAR2_TABLE_500
390 , p5_a17 JTF_VARCHAR2_TABLE_500
391 , p5_a18 JTF_VARCHAR2_TABLE_500
392 , p5_a19 JTF_VARCHAR2_TABLE_500
393 , p5_a20 JTF_VARCHAR2_TABLE_500
394 , p5_a21 JTF_VARCHAR2_TABLE_500
395 , p5_a22 JTF_VARCHAR2_TABLE_500
396 , p5_a23 JTF_VARCHAR2_TABLE_500
397 , p5_a24 JTF_VARCHAR2_TABLE_500
398 , p5_a25 JTF_NUMBER_TABLE
399 , p5_a26 JTF_DATE_TABLE
400 , p5_a27 JTF_NUMBER_TABLE
401 , p5_a28 JTF_DATE_TABLE
402 , p5_a29 JTF_NUMBER_TABLE
403 , p6_a0 out nocopy JTF_NUMBER_TABLE
404 , p6_a1 out nocopy JTF_VARCHAR2_TABLE_100
405 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_4000
406 , p6_a3 out nocopy JTF_NUMBER_TABLE
407 , p6_a4 out nocopy JTF_NUMBER_TABLE
408 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
409 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
410 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_100
411 , p6_a8 out nocopy JTF_NUMBER_TABLE
412 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_500
413 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
414 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
415 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
416 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
417 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
418 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
419 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
420 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
421 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
422 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
423 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
424 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
425 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
426 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
427 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
428 , p6_a25 out nocopy JTF_NUMBER_TABLE
429 , p6_a26 out nocopy JTF_DATE_TABLE
430 , p6_a27 out nocopy JTF_NUMBER_TABLE
431 , p6_a28 out nocopy JTF_DATE_TABLE
432 , p6_a29 out nocopy JTF_NUMBER_TABLE
433 )
434
435 as
436 ddp_acc_lines okl_acct_gen_rule_pvt.acct_tbl_type;
437 ddx_acc_lines okl_acct_gen_rule_pvt.acct_tbl_type;
438 ddindx binary_integer; indx binary_integer;
439 begin
440
441 -- copy data to the local IN or IN-OUT args, if any
442
443
444
445
446
447 okl_acct_gen_rule_pvt_w.rosetta_table_copy_in_p4(ddp_acc_lines, p5_a0
448 , p5_a1
449 , p5_a2
450 , p5_a3
451 , p5_a4
452 , p5_a5
453 , p5_a6
454 , p5_a7
455 , p5_a8
456 , p5_a9
457 , p5_a10
458 , p5_a11
459 , p5_a12
460 , p5_a13
461 , p5_a14
462 , p5_a15
463 , p5_a16
464 , p5_a17
465 , p5_a18
466 , p5_a19
467 , p5_a20
468 , p5_a21
469 , p5_a22
470 , p5_a23
471 , p5_a24
472 , p5_a25
473 , p5_a26
474 , p5_a27
475 , p5_a28
476 , p5_a29
477 );
478
479
480 -- here's the delegated call to the old PL/SQL routine
481 okl_acct_gen_rule_pvt.updt_rule_lines(p_api_version,
482 p_init_msg_list,
483 x_return_status,
484 x_msg_count,
485 x_msg_data,
486 ddp_acc_lines,
487 ddx_acc_lines);
488
489 -- copy data back from the local variables to OUT or IN-OUT args, if any
490
491
492
493
494
495
496 okl_acct_gen_rule_pvt_w.rosetta_table_copy_out_p4(ddx_acc_lines, p6_a0
497 , p6_a1
498 , p6_a2
499 , p6_a3
500 , p6_a4
501 , p6_a5
502 , p6_a6
503 , p6_a7
504 , p6_a8
505 , p6_a9
506 , p6_a10
507 , p6_a11
508 , p6_a12
509 , p6_a13
510 , p6_a14
511 , p6_a15
512 , p6_a16
513 , p6_a17
514 , p6_a18
515 , p6_a19
516 , p6_a20
517 , p6_a21
518 , p6_a22
519 , p6_a23
520 , p6_a24
521 , p6_a25
522 , p6_a26
523 , p6_a27
524 , p6_a28
525 , p6_a29
526 );
527 end;
528
529 end okl_acct_gen_rule_pvt_w;