[Home] [Help]
PACKAGE BODY: APPS.OKL_GENERATE_ACCRUALS_PUB_W
Source
1 package body okl_generate_accruals_pub_w as
2 /* $Header: OKLUACRB.pls 120.13.12010000.6 2008/11/12 23:54:19 apaul ship $ */
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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 function submit_accruals(x_return_status out nocopy VARCHAR2
26 , x_msg_count out nocopy NUMBER
27 , x_msg_data out nocopy VARCHAR2
28 , p_api_version NUMBER
29 , p_accrual_date date
30 , p_batch_name VARCHAR2
31 ) return number
32
33 as
34 ddp_accrual_date date;
35 ddindx binary_integer; indx binary_integer;
36 ddrosetta_retval number;
37 begin
38
39 -- copy data to the local IN or IN-OUT args, if any
40
41
42
43
44 ddp_accrual_date := rosetta_g_miss_date_in_map(p_accrual_date);
45
46
47 -- here's the delegated call to the old PL/SQL routine
48 ddrosetta_retval := okl_generate_accruals_pub.submit_accruals(x_return_status,
49 x_msg_count,
50 x_msg_data,
51 p_api_version,
52 ddp_accrual_date,
53 p_batch_name);
54
55 -- copy data back from the local variables to OUT or IN-OUT args, if any
56
57
58
59
60
61
62 return ddrosetta_retval;
63 end;
64
65 procedure catchup_accruals(p_api_version NUMBER
66 , p_init_msg_list VARCHAR2
67 , x_return_status out nocopy VARCHAR2
68 , x_msg_count out nocopy NUMBER
69 , x_msg_data out nocopy VARCHAR2
70 , p6_a0 out nocopy JTF_NUMBER_TABLE
71 , p6_a1 out nocopy JTF_NUMBER_TABLE
72 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
73 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
74 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
75 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
76 , p6_a6 out nocopy JTF_NUMBER_TABLE
77 , p6_a7 out nocopy JTF_NUMBER_TABLE
78 , p6_a8 out nocopy JTF_NUMBER_TABLE
79 , p6_a9 out nocopy JTF_NUMBER_TABLE
80 , p6_a10 out nocopy JTF_NUMBER_TABLE
81 , p6_a11 out nocopy JTF_NUMBER_TABLE
82 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
83 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
84 , p6_a14 out nocopy JTF_DATE_TABLE
85 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
86 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
87 , p6_a17 out nocopy JTF_NUMBER_TABLE
88 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_200
89 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
90 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
91 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
92 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
93 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
94 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
95 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
96 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
97 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
98 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
99 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
100 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
101 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
102 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
103 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
104 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
105 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_100
106 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_100
107 , p6_a37 out nocopy JTF_NUMBER_TABLE
108 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_100
109 , p6_a39 out nocopy JTF_NUMBER_TABLE
110 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
111 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
112 , p6_a42 out nocopy JTF_NUMBER_TABLE
113 , p6_a43 out nocopy JTF_NUMBER_TABLE
114 , p6_a44 out nocopy JTF_NUMBER_TABLE
115 , p6_a45 out nocopy JTF_NUMBER_TABLE
116 , p6_a46 out nocopy JTF_NUMBER_TABLE
117 , p6_a47 out nocopy JTF_NUMBER_TABLE
118 , p6_a48 out nocopy JTF_DATE_TABLE
119 , p6_a49 out nocopy JTF_NUMBER_TABLE
120 , p6_a50 out nocopy JTF_DATE_TABLE
121 , p6_a51 out nocopy JTF_NUMBER_TABLE
122 , p6_a52 out nocopy JTF_DATE_TABLE
123 , p6_a53 out nocopy JTF_NUMBER_TABLE
124 , p6_a54 out nocopy JTF_NUMBER_TABLE
125 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
126 , p6_a56 out nocopy JTF_NUMBER_TABLE
127 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_2000
128 , p6_a58 out nocopy JTF_DATE_TABLE
129 , p6_a59 out nocopy JTF_VARCHAR2_TABLE_100
130 , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
131 , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
132 , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
133 , p6_a63 out nocopy JTF_VARCHAR2_TABLE_100
134 , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
135 , p6_a65 out nocopy JTF_VARCHAR2_TABLE_100
136 , p6_a66 out nocopy JTF_VARCHAR2_TABLE_100
137 , p6_a67 out nocopy JTF_VARCHAR2_TABLE_100
138 , p6_a68 out nocopy JTF_VARCHAR2_TABLE_100
139 , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
140 , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
141 , p6_a71 out nocopy JTF_VARCHAR2_TABLE_100
142 , p6_a72 out nocopy JTF_VARCHAR2_TABLE_100
143 , p6_a73 out nocopy JTF_VARCHAR2_TABLE_100
144 , p6_a74 out nocopy JTF_VARCHAR2_TABLE_100
145 , p6_a75 out nocopy JTF_VARCHAR2_TABLE_100
146 , p6_a76 out nocopy JTF_VARCHAR2_TABLE_100
147 , p6_a77 out nocopy JTF_NUMBER_TABLE
148 , p6_a78 out nocopy JTF_DATE_TABLE
149 , p6_a79 out nocopy JTF_NUMBER_TABLE
150 , p6_a80 out nocopy JTF_NUMBER_TABLE
151 , p6_a81 out nocopy JTF_VARCHAR2_TABLE_100
152 , p6_a82 out nocopy JTF_DATE_TABLE
153 , p6_a83 out nocopy JTF_NUMBER_TABLE
154 , p6_a84 out nocopy JTF_DATE_TABLE
155 , p6_a85 out nocopy JTF_VARCHAR2_TABLE_100
156 , p6_a86 out nocopy JTF_VARCHAR2_TABLE_200
157 , p6_a87 out nocopy JTF_VARCHAR2_TABLE_100
158 , p6_a88 out nocopy JTF_VARCHAR2_TABLE_200
159 , p6_a89 out nocopy JTF_VARCHAR2_TABLE_100
160 , p6_a90 out nocopy JTF_VARCHAR2_TABLE_100
161 , p6_a91 out nocopy JTF_VARCHAR2_TABLE_100
162 , p6_a92 out nocopy JTF_VARCHAR2_TABLE_100
163 , p6_a93 out nocopy JTF_DATE_TABLE
164 , p7_a0 out nocopy JTF_NUMBER_TABLE
165 , p7_a1 out nocopy JTF_NUMBER_TABLE
166 , p7_a2 out nocopy JTF_NUMBER_TABLE
167 , p7_a3 out nocopy JTF_NUMBER_TABLE
168 , p7_a4 out nocopy JTF_NUMBER_TABLE
169 , p7_a5 out nocopy JTF_NUMBER_TABLE
170 , p7_a6 out nocopy JTF_NUMBER_TABLE
171 , p7_a7 out nocopy JTF_NUMBER_TABLE
172 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
173 , p7_a9 out nocopy JTF_NUMBER_TABLE
174 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_2000
175 , p7_a11 out nocopy JTF_NUMBER_TABLE
176 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_200
177 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
178 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
179 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_500
180 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_500
181 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_500
182 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_500
183 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_500
184 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_500
185 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_500
186 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_500
187 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_500
188 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_500
189 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_500
190 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_500
191 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_500
192 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_500
193 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_500
194 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_100
195 , p7_a31 out nocopy JTF_NUMBER_TABLE
196 , p7_a32 out nocopy JTF_DATE_TABLE
197 , p7_a33 out nocopy JTF_NUMBER_TABLE
198 , p7_a34 out nocopy JTF_DATE_TABLE
199 , p7_a35 out nocopy JTF_NUMBER_TABLE
200 , p7_a36 out nocopy JTF_NUMBER_TABLE
201 , p7_a37 out nocopy JTF_NUMBER_TABLE
202 , p7_a38 out nocopy JTF_NUMBER_TABLE
203 , p7_a39 out nocopy JTF_DATE_TABLE
204 , p7_a40 out nocopy JTF_NUMBER_TABLE
205 , p7_a41 out nocopy JTF_NUMBER_TABLE
206 , p7_a42 out nocopy JTF_NUMBER_TABLE
207 , p7_a43 out nocopy JTF_NUMBER_TABLE
208 , p7_a44 out nocopy JTF_NUMBER_TABLE
209 , p7_a45 out nocopy JTF_VARCHAR2_TABLE_100
210 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_200
211 , p7_a47 out nocopy JTF_NUMBER_TABLE
212 , p7_a48 out nocopy JTF_VARCHAR2_TABLE_200
213 , p7_a49 out nocopy JTF_NUMBER_TABLE
214 , p7_a50 out nocopy JTF_VARCHAR2_TABLE_200
215 , p7_a51 out nocopy JTF_NUMBER_TABLE
216 , p7_a52 out nocopy JTF_DATE_TABLE
217 , p7_a53 out nocopy JTF_NUMBER_TABLE
218 , p7_a54 out nocopy JTF_VARCHAR2_TABLE_200
219 , p7_a55 out nocopy JTF_VARCHAR2_TABLE_300
220 , p7_a56 out nocopy JTF_VARCHAR2_TABLE_100
221 , p7_a57 out nocopy JTF_VARCHAR2_TABLE_100
222 , p2_a0 NUMBER := 0-1962.0724
223 , p2_a1 NUMBER := 0-1962.0724
224 , p2_a2 NUMBER := 0-1962.0724
225 , p2_a3 DATE := fnd_api.g_miss_date
226 , p2_a4 DATE := fnd_api.g_miss_date
227 , p2_a5 DATE := fnd_api.g_miss_date
228 , p2_a6 VARCHAR2 := fnd_api.g_miss_char
229 , p2_a7 VARCHAR2 := fnd_api.g_miss_char
230 , p2_a8 VARCHAR2 := fnd_api.g_miss_char
231 , p2_a9 VARCHAR2 := fnd_api.g_miss_char
232 , p2_a10 NUMBER := 0-1962.0724
233 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
234 , p2_a12 VARCHAR2 := fnd_api.g_miss_char
235 , p2_a13 NUMBER := 0-1962.0724
236 , p2_a14 DATE := fnd_api.g_miss_date
237 , p2_a15 NUMBER := 0-1962.0724
238 , p2_a16 NUMBER := 0-1962.0724
239 , p2_a17 VARCHAR2 := fnd_api.g_miss_char
240 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
241 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
242 , p2_a20 VARCHAR2 := fnd_api.g_miss_char
243 , p2_a21 VARCHAR2 := fnd_api.g_miss_char
244 , p2_a22 VARCHAR2 := fnd_api.g_miss_char
245 , p2_a23 VARCHAR2 := fnd_api.g_miss_char
246 , p2_a24 NUMBER := 0-1962.0724
247 , p2_a25 VARCHAR2 := fnd_api.g_miss_char
248 , p2_a26 DATE := fnd_api.g_miss_date
249 )
250
251 as
252 ddp_catchup_rec okl_generate_accruals_pub.accrual_rec_type;
253 ddx_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
254 ddx_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
255 ddindx binary_integer; indx binary_integer;
256 begin
257
258 -- copy data to the local IN or IN-OUT args, if any
259
260
261 ddp_catchup_rec.contract_id := rosetta_g_miss_num_map(p2_a0);
262 ddp_catchup_rec.sty_id := rosetta_g_miss_num_map(p2_a1);
263 ddp_catchup_rec.set_of_books_id := rosetta_g_miss_num_map(p2_a2);
264 ddp_catchup_rec.reverse_date_to := rosetta_g_miss_date_in_map(p2_a3);
265 ddp_catchup_rec.accrual_date := rosetta_g_miss_date_in_map(p2_a4);
266 ddp_catchup_rec.trx_date := rosetta_g_miss_date_in_map(p2_a5);
267 ddp_catchup_rec.contract_number := p2_a6;
268 ddp_catchup_rec.rule_result := p2_a7;
269 ddp_catchup_rec.override_status := p2_a8;
270 ddp_catchup_rec.description := p2_a9;
271 ddp_catchup_rec.amount := rosetta_g_miss_num_map(p2_a10);
272 ddp_catchup_rec.currency_code := p2_a11;
273 ddp_catchup_rec.currency_conversion_type := p2_a12;
274 ddp_catchup_rec.currency_conversion_rate := rosetta_g_miss_num_map(p2_a13);
275 ddp_catchup_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p2_a14);
276 ddp_catchup_rec.product_id := rosetta_g_miss_num_map(p2_a15);
277 ddp_catchup_rec.trx_type_id := rosetta_g_miss_num_map(p2_a16);
278 ddp_catchup_rec.advance_arrears := p2_a17;
279 ddp_catchup_rec.factoring_synd_flag := p2_a18;
280 ddp_catchup_rec.post_to_gl := p2_a19;
281 ddp_catchup_rec.gl_reversal_flag := p2_a20;
282 ddp_catchup_rec.memo_yn := p2_a21;
283 ddp_catchup_rec.accrual_activity := p2_a22;
284 ddp_catchup_rec.accrual_rule_yn := p2_a23;
285 ddp_catchup_rec.source_trx_id := rosetta_g_miss_num_map(p2_a24);
286 ddp_catchup_rec.source_trx_type := p2_a25;
287 ddp_catchup_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p2_a26);
288
289
290
291
292
293
294 -- here's the delegated call to the old PL/SQL routine
295 okl_generate_accruals_pub.catchup_accruals(p_api_version,
296 p_init_msg_list,
297 ddp_catchup_rec,
298 x_return_status,
299 x_msg_count,
300 x_msg_data,
301 ddx_tcnv_tbl,
302 ddx_tclv_tbl);
303
304 -- copy data back from the local variables to OUT or IN-OUT args, if any
305
306
307
308
309
310
311 okl_tcn_pvt_w.rosetta_table_copy_out_p5(ddx_tcnv_tbl, p6_a0
312 , p6_a1
313 , p6_a2
314 , p6_a3
315 , p6_a4
316 , p6_a5
317 , p6_a6
318 , p6_a7
319 , p6_a8
320 , p6_a9
321 , p6_a10
322 , p6_a11
323 , p6_a12
324 , p6_a13
325 , p6_a14
326 , p6_a15
327 , p6_a16
328 , p6_a17
329 , p6_a18
330 , p6_a19
331 , p6_a20
332 , p6_a21
333 , p6_a22
334 , p6_a23
335 , p6_a24
336 , p6_a25
337 , p6_a26
338 , p6_a27
339 , p6_a28
340 , p6_a29
341 , p6_a30
342 , p6_a31
343 , p6_a32
344 , p6_a33
345 , p6_a34
346 , p6_a35
347 , p6_a36
348 , p6_a37
349 , p6_a38
350 , p6_a39
351 , p6_a40
352 , p6_a41
353 , p6_a42
354 , p6_a43
355 , p6_a44
356 , p6_a45
357 , p6_a46
358 , p6_a47
359 , p6_a48
360 , p6_a49
361 , p6_a50
362 , p6_a51
363 , p6_a52
364 , p6_a53
365 , p6_a54
366 , p6_a55
367 , p6_a56
368 , p6_a57
369 , p6_a58
370 , p6_a59
371 , p6_a60
372 , p6_a61
373 , p6_a62
374 , p6_a63
375 , p6_a64
376 , p6_a65
377 , p6_a66
378 , p6_a67
379 , p6_a68
380 , p6_a69
381 , p6_a70
382 , p6_a71
383 , p6_a72
384 , p6_a73
385 , p6_a74
386 , p6_a75
387 , p6_a76
388 , p6_a77
389 , p6_a78
390 , p6_a79
391 , p6_a80
392 , p6_a81
393 , p6_a82
394 , p6_a83
395 , p6_a84
396 , p6_a85
397 , p6_a86
398 , p6_a87
399 , p6_a88
400 , p6_a89
401 , p6_a90
402 , p6_a91
403 , p6_a92
404 , p6_a93
405 );
406
407 okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p7_a0
408 , p7_a1
409 , p7_a2
410 , p7_a3
411 , p7_a4
412 , p7_a5
413 , p7_a6
414 , p7_a7
415 , p7_a8
416 , p7_a9
417 , p7_a10
418 , p7_a11
419 , p7_a12
420 , p7_a13
421 , p7_a14
422 , p7_a15
423 , p7_a16
424 , p7_a17
425 , p7_a18
426 , p7_a19
427 , p7_a20
428 , p7_a21
429 , p7_a22
430 , p7_a23
431 , p7_a24
432 , p7_a25
433 , p7_a26
434 , p7_a27
435 , p7_a28
436 , p7_a29
437 , p7_a30
438 , p7_a31
439 , p7_a32
440 , p7_a33
441 , p7_a34
442 , p7_a35
443 , p7_a36
444 , p7_a37
445 , p7_a38
446 , p7_a39
447 , p7_a40
448 , p7_a41
449 , p7_a42
450 , p7_a43
451 , p7_a44
452 , p7_a45
453 , p7_a46
454 , p7_a47
455 , p7_a48
456 , p7_a49
457 , p7_a50
458 , p7_a51
459 , p7_a52
460 , p7_a53
461 , p7_a54
462 , p7_a55
463 , p7_a56
464 , p7_a57
465 );
466 end;
467
468 procedure reverse_accruals(p_api_version NUMBER
469 , p_init_msg_list VARCHAR2
470 , x_return_status out nocopy VARCHAR2
471 , x_msg_count out nocopy NUMBER
472 , x_msg_data out nocopy VARCHAR2
473 , p6_a0 out nocopy JTF_NUMBER_TABLE
474 , p6_a1 out nocopy JTF_NUMBER_TABLE
475 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
476 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
477 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
478 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
479 , p6_a6 out nocopy JTF_NUMBER_TABLE
480 , p6_a7 out nocopy JTF_NUMBER_TABLE
481 , p6_a8 out nocopy JTF_NUMBER_TABLE
482 , p6_a9 out nocopy JTF_NUMBER_TABLE
483 , p6_a10 out nocopy JTF_NUMBER_TABLE
484 , p6_a11 out nocopy JTF_NUMBER_TABLE
485 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
486 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
487 , p6_a14 out nocopy JTF_DATE_TABLE
488 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
489 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
490 , p6_a17 out nocopy JTF_NUMBER_TABLE
491 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_200
492 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
493 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
494 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
495 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
496 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
497 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
498 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
499 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
500 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
501 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
502 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
503 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
504 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
505 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
506 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
507 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
508 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_100
509 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_100
510 , p6_a37 out nocopy JTF_NUMBER_TABLE
511 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_100
512 , p6_a39 out nocopy JTF_NUMBER_TABLE
513 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
514 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
515 , p6_a42 out nocopy JTF_NUMBER_TABLE
516 , p6_a43 out nocopy JTF_NUMBER_TABLE
517 , p6_a44 out nocopy JTF_NUMBER_TABLE
518 , p6_a45 out nocopy JTF_NUMBER_TABLE
519 , p6_a46 out nocopy JTF_NUMBER_TABLE
520 , p6_a47 out nocopy JTF_NUMBER_TABLE
521 , p6_a48 out nocopy JTF_DATE_TABLE
522 , p6_a49 out nocopy JTF_NUMBER_TABLE
523 , p6_a50 out nocopy JTF_DATE_TABLE
524 , p6_a51 out nocopy JTF_NUMBER_TABLE
525 , p6_a52 out nocopy JTF_DATE_TABLE
526 , p6_a53 out nocopy JTF_NUMBER_TABLE
527 , p6_a54 out nocopy JTF_NUMBER_TABLE
528 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
529 , p6_a56 out nocopy JTF_NUMBER_TABLE
530 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_2000
531 , p6_a58 out nocopy JTF_DATE_TABLE
532 , p6_a59 out nocopy JTF_VARCHAR2_TABLE_100
533 , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
534 , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
535 , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
536 , p6_a63 out nocopy JTF_VARCHAR2_TABLE_100
537 , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
538 , p6_a65 out nocopy JTF_VARCHAR2_TABLE_100
539 , p6_a66 out nocopy JTF_VARCHAR2_TABLE_100
540 , p6_a67 out nocopy JTF_VARCHAR2_TABLE_100
541 , p6_a68 out nocopy JTF_VARCHAR2_TABLE_100
542 , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
543 , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
544 , p6_a71 out nocopy JTF_VARCHAR2_TABLE_100
545 , p6_a72 out nocopy JTF_VARCHAR2_TABLE_100
546 , p6_a73 out nocopy JTF_VARCHAR2_TABLE_100
547 , p6_a74 out nocopy JTF_VARCHAR2_TABLE_100
548 , p6_a75 out nocopy JTF_VARCHAR2_TABLE_100
549 , p6_a76 out nocopy JTF_VARCHAR2_TABLE_100
550 , p6_a77 out nocopy JTF_NUMBER_TABLE
551 , p6_a78 out nocopy JTF_DATE_TABLE
552 , p6_a79 out nocopy JTF_NUMBER_TABLE
553 , p6_a80 out nocopy JTF_NUMBER_TABLE
554 , p6_a81 out nocopy JTF_VARCHAR2_TABLE_100
555 , p6_a82 out nocopy JTF_DATE_TABLE
556 , p6_a83 out nocopy JTF_NUMBER_TABLE
557 , p6_a84 out nocopy JTF_DATE_TABLE
558 , p6_a85 out nocopy JTF_VARCHAR2_TABLE_100
559 , p6_a86 out nocopy JTF_VARCHAR2_TABLE_200
560 , p6_a87 out nocopy JTF_VARCHAR2_TABLE_100
561 , p6_a88 out nocopy JTF_VARCHAR2_TABLE_200
562 , p6_a89 out nocopy JTF_VARCHAR2_TABLE_100
563 , p6_a90 out nocopy JTF_VARCHAR2_TABLE_100
564 , p6_a91 out nocopy JTF_VARCHAR2_TABLE_100
565 , p6_a92 out nocopy JTF_VARCHAR2_TABLE_100
566 , p6_a93 out nocopy JTF_DATE_TABLE
567 , p7_a0 out nocopy JTF_NUMBER_TABLE
568 , p7_a1 out nocopy JTF_NUMBER_TABLE
569 , p7_a2 out nocopy JTF_NUMBER_TABLE
570 , p7_a3 out nocopy JTF_NUMBER_TABLE
571 , p7_a4 out nocopy JTF_NUMBER_TABLE
572 , p7_a5 out nocopy JTF_NUMBER_TABLE
573 , p7_a6 out nocopy JTF_NUMBER_TABLE
574 , p7_a7 out nocopy JTF_NUMBER_TABLE
575 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
576 , p7_a9 out nocopy JTF_NUMBER_TABLE
577 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_2000
578 , p7_a11 out nocopy JTF_NUMBER_TABLE
579 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_200
580 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
581 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
582 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_500
583 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_500
584 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_500
585 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_500
586 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_500
587 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_500
588 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_500
589 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_500
590 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_500
591 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_500
592 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_500
593 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_500
594 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_500
595 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_500
596 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_500
597 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_100
598 , p7_a31 out nocopy JTF_NUMBER_TABLE
599 , p7_a32 out nocopy JTF_DATE_TABLE
600 , p7_a33 out nocopy JTF_NUMBER_TABLE
601 , p7_a34 out nocopy JTF_DATE_TABLE
602 , p7_a35 out nocopy JTF_NUMBER_TABLE
603 , p7_a36 out nocopy JTF_NUMBER_TABLE
604 , p7_a37 out nocopy JTF_NUMBER_TABLE
605 , p7_a38 out nocopy JTF_NUMBER_TABLE
606 , p7_a39 out nocopy JTF_DATE_TABLE
607 , p7_a40 out nocopy JTF_NUMBER_TABLE
608 , p7_a41 out nocopy JTF_NUMBER_TABLE
609 , p7_a42 out nocopy JTF_NUMBER_TABLE
610 , p7_a43 out nocopy JTF_NUMBER_TABLE
611 , p7_a44 out nocopy JTF_NUMBER_TABLE
612 , p7_a45 out nocopy JTF_VARCHAR2_TABLE_100
613 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_200
614 , p7_a47 out nocopy JTF_NUMBER_TABLE
615 , p7_a48 out nocopy JTF_VARCHAR2_TABLE_200
616 , p7_a49 out nocopy JTF_NUMBER_TABLE
617 , p7_a50 out nocopy JTF_VARCHAR2_TABLE_200
618 , p7_a51 out nocopy JTF_NUMBER_TABLE
619 , p7_a52 out nocopy JTF_DATE_TABLE
620 , p7_a53 out nocopy JTF_NUMBER_TABLE
621 , p7_a54 out nocopy JTF_VARCHAR2_TABLE_200
622 , p7_a55 out nocopy JTF_VARCHAR2_TABLE_300
623 , p7_a56 out nocopy JTF_VARCHAR2_TABLE_100
624 , p7_a57 out nocopy JTF_VARCHAR2_TABLE_100
625 , p2_a0 NUMBER := 0-1962.0724
626 , p2_a1 NUMBER := 0-1962.0724
627 , p2_a2 NUMBER := 0-1962.0724
628 , p2_a3 DATE := fnd_api.g_miss_date
629 , p2_a4 DATE := fnd_api.g_miss_date
630 , p2_a5 DATE := fnd_api.g_miss_date
631 , p2_a6 VARCHAR2 := fnd_api.g_miss_char
632 , p2_a7 VARCHAR2 := fnd_api.g_miss_char
633 , p2_a8 VARCHAR2 := fnd_api.g_miss_char
634 , p2_a9 VARCHAR2 := fnd_api.g_miss_char
635 , p2_a10 NUMBER := 0-1962.0724
636 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
637 , p2_a12 VARCHAR2 := fnd_api.g_miss_char
638 , p2_a13 NUMBER := 0-1962.0724
639 , p2_a14 DATE := fnd_api.g_miss_date
640 , p2_a15 NUMBER := 0-1962.0724
641 , p2_a16 NUMBER := 0-1962.0724
642 , p2_a17 VARCHAR2 := fnd_api.g_miss_char
643 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
644 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
645 , p2_a20 VARCHAR2 := fnd_api.g_miss_char
646 , p2_a21 VARCHAR2 := fnd_api.g_miss_char
647 , p2_a22 VARCHAR2 := fnd_api.g_miss_char
648 , p2_a23 VARCHAR2 := fnd_api.g_miss_char
649 , p2_a24 NUMBER := 0-1962.0724
650 , p2_a25 VARCHAR2 := fnd_api.g_miss_char
651 , p2_a26 DATE := fnd_api.g_miss_date
652 )
653
654 as
655 ddp_reverse_rec okl_generate_accruals_pub.accrual_rec_type;
656 ddx_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
657 ddx_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
658 ddindx binary_integer; indx binary_integer;
659 begin
660
661 -- copy data to the local IN or IN-OUT args, if any
662
663
664 ddp_reverse_rec.contract_id := rosetta_g_miss_num_map(p2_a0);
665 ddp_reverse_rec.sty_id := rosetta_g_miss_num_map(p2_a1);
666 ddp_reverse_rec.set_of_books_id := rosetta_g_miss_num_map(p2_a2);
667 ddp_reverse_rec.reverse_date_to := rosetta_g_miss_date_in_map(p2_a3);
668 ddp_reverse_rec.accrual_date := rosetta_g_miss_date_in_map(p2_a4);
669 ddp_reverse_rec.trx_date := rosetta_g_miss_date_in_map(p2_a5);
670 ddp_reverse_rec.contract_number := p2_a6;
671 ddp_reverse_rec.rule_result := p2_a7;
672 ddp_reverse_rec.override_status := p2_a8;
673 ddp_reverse_rec.description := p2_a9;
674 ddp_reverse_rec.amount := rosetta_g_miss_num_map(p2_a10);
675 ddp_reverse_rec.currency_code := p2_a11;
676 ddp_reverse_rec.currency_conversion_type := p2_a12;
677 ddp_reverse_rec.currency_conversion_rate := rosetta_g_miss_num_map(p2_a13);
678 ddp_reverse_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p2_a14);
679 ddp_reverse_rec.product_id := rosetta_g_miss_num_map(p2_a15);
680 ddp_reverse_rec.trx_type_id := rosetta_g_miss_num_map(p2_a16);
681 ddp_reverse_rec.advance_arrears := p2_a17;
682 ddp_reverse_rec.factoring_synd_flag := p2_a18;
683 ddp_reverse_rec.post_to_gl := p2_a19;
684 ddp_reverse_rec.gl_reversal_flag := p2_a20;
685 ddp_reverse_rec.memo_yn := p2_a21;
686 ddp_reverse_rec.accrual_activity := p2_a22;
687 ddp_reverse_rec.accrual_rule_yn := p2_a23;
688 ddp_reverse_rec.source_trx_id := rosetta_g_miss_num_map(p2_a24);
689 ddp_reverse_rec.source_trx_type := p2_a25;
690 ddp_reverse_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p2_a26);
691
692
693
694
695
696
697 -- here's the delegated call to the old PL/SQL routine
698 okl_generate_accruals_pub.reverse_accruals(p_api_version,
699 p_init_msg_list,
700 ddp_reverse_rec,
701 x_return_status,
702 x_msg_count,
703 x_msg_data,
704 ddx_tcnv_tbl,
705 ddx_tclv_tbl);
706
707 -- copy data back from the local variables to OUT or IN-OUT args, if any
708
709
710
711
712
713
714 okl_tcn_pvt_w.rosetta_table_copy_out_p5(ddx_tcnv_tbl, p6_a0
715 , p6_a1
716 , p6_a2
717 , p6_a3
718 , p6_a4
719 , p6_a5
720 , p6_a6
721 , p6_a7
722 , p6_a8
723 , p6_a9
724 , p6_a10
725 , p6_a11
726 , p6_a12
727 , p6_a13
728 , p6_a14
729 , p6_a15
730 , p6_a16
731 , p6_a17
732 , p6_a18
733 , p6_a19
734 , p6_a20
735 , p6_a21
736 , p6_a22
737 , p6_a23
738 , p6_a24
739 , p6_a25
740 , p6_a26
741 , p6_a27
742 , p6_a28
743 , p6_a29
744 , p6_a30
745 , p6_a31
746 , p6_a32
747 , p6_a33
748 , p6_a34
749 , p6_a35
750 , p6_a36
751 , p6_a37
752 , p6_a38
753 , p6_a39
754 , p6_a40
755 , p6_a41
756 , p6_a42
757 , p6_a43
758 , p6_a44
759 , p6_a45
760 , p6_a46
761 , p6_a47
762 , p6_a48
763 , p6_a49
764 , p6_a50
765 , p6_a51
766 , p6_a52
767 , p6_a53
768 , p6_a54
769 , p6_a55
770 , p6_a56
771 , p6_a57
772 , p6_a58
773 , p6_a59
774 , p6_a60
775 , p6_a61
776 , p6_a62
777 , p6_a63
778 , p6_a64
779 , p6_a65
780 , p6_a66
781 , p6_a67
782 , p6_a68
783 , p6_a69
784 , p6_a70
785 , p6_a71
786 , p6_a72
787 , p6_a73
788 , p6_a74
789 , p6_a75
790 , p6_a76
791 , p6_a77
792 , p6_a78
793 , p6_a79
794 , p6_a80
795 , p6_a81
796 , p6_a82
797 , p6_a83
798 , p6_a84
799 , p6_a85
800 , p6_a86
801 , p6_a87
802 , p6_a88
803 , p6_a89
804 , p6_a90
805 , p6_a91
806 , p6_a92
807 , p6_a93
808 );
809
810 okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p7_a0
811 , p7_a1
812 , p7_a2
813 , p7_a3
814 , p7_a4
815 , p7_a5
816 , p7_a6
817 , p7_a7
818 , p7_a8
819 , p7_a9
820 , p7_a10
821 , p7_a11
822 , p7_a12
823 , p7_a13
824 , p7_a14
825 , p7_a15
826 , p7_a16
827 , p7_a17
828 , p7_a18
829 , p7_a19
830 , p7_a20
831 , p7_a21
832 , p7_a22
833 , p7_a23
834 , p7_a24
835 , p7_a25
836 , p7_a26
837 , p7_a27
838 , p7_a28
839 , p7_a29
840 , p7_a30
841 , p7_a31
842 , p7_a32
843 , p7_a33
844 , p7_a34
845 , p7_a35
846 , p7_a36
847 , p7_a37
848 , p7_a38
849 , p7_a39
850 , p7_a40
851 , p7_a41
852 , p7_a42
853 , p7_a43
854 , p7_a44
855 , p7_a45
856 , p7_a46
857 , p7_a47
858 , p7_a48
859 , p7_a49
860 , p7_a50
861 , p7_a51
862 , p7_a52
863 , p7_a53
864 , p7_a54
865 , p7_a55
866 , p7_a56
867 , p7_a57
868 );
869 end;
870
871 procedure reverse_accruals(p_api_version NUMBER
872 , p_init_msg_list VARCHAR2
873 , x_return_status out nocopy VARCHAR2
874 , x_msg_count out nocopy NUMBER
875 , x_msg_data out nocopy VARCHAR2
876 , p_khr_id NUMBER
877 , p_reversal_date date
878 , p_accounting_date date
879 , p_reverse_from date
880 , p_reverse_to date
881 , p_tcn_type VARCHAR2
882 )
883
884 as
885 ddp_reversal_date date;
886 ddp_accounting_date date;
887 ddp_reverse_from date;
888 ddp_reverse_to date;
889 ddindx binary_integer; indx binary_integer;
890 begin
891
892 -- copy data to the local IN or IN-OUT args, if any
893
894
895
896
897
898
899 ddp_reversal_date := rosetta_g_miss_date_in_map(p_reversal_date);
900
901 ddp_accounting_date := rosetta_g_miss_date_in_map(p_accounting_date);
902
903 ddp_reverse_from := rosetta_g_miss_date_in_map(p_reverse_from);
904
905 ddp_reverse_to := rosetta_g_miss_date_in_map(p_reverse_to);
906
907
908 -- here's the delegated call to the old PL/SQL routine
909 okl_generate_accruals_pub.reverse_accruals(p_api_version,
910 p_init_msg_list,
911 x_return_status,
912 x_msg_count,
913 x_msg_data,
914 p_khr_id,
915 ddp_reversal_date,
916 ddp_accounting_date,
917 ddp_reverse_from,
918 ddp_reverse_to,
919 p_tcn_type);
920
921 -- copy data back from the local variables to OUT or IN-OUT args, if any
922
923
924
925
926
927
928
929
930
931
932 end;
933
934 procedure reverse_all_accruals(p_api_version NUMBER
935 , p_init_msg_list VARCHAR2
936 , p_khr_id NUMBER
937 , p_reverse_date date
938 , p_description VARCHAR2
939 , x_return_status out nocopy VARCHAR2
940 , x_msg_count out nocopy NUMBER
941 , x_msg_data out nocopy VARCHAR2
942 )
943
944 as
945 ddp_reverse_date date;
946 ddindx binary_integer; indx binary_integer;
947 begin
948
949 -- copy data to the local IN or IN-OUT args, if any
950
951
952
953 ddp_reverse_date := rosetta_g_miss_date_in_map(p_reverse_date);
954
955
956
957
958
959 -- here's the delegated call to the old PL/SQL routine
960 okl_generate_accruals_pub.reverse_all_accruals(p_api_version,
961 p_init_msg_list,
962 p_khr_id,
963 ddp_reverse_date,
964 p_description,
965 x_return_status,
966 x_msg_count,
967 x_msg_data);
968
969 -- copy data back from the local variables to OUT or IN-OUT args, if any
970
971
972
973
974
975
976
977 end;
978
979 procedure accelerate_accruals(p_api_version NUMBER
980 , p_init_msg_list VARCHAR2
981 , x_return_status out nocopy VARCHAR2
982 , x_msg_count out nocopy NUMBER
983 , x_msg_data out nocopy VARCHAR2
984 , p5_a0 NUMBER := 0-1962.0724
985 , p5_a1 NUMBER := 0-1962.0724
986 , p5_a2 NUMBER := 0-1962.0724
987 , p5_a3 DATE := fnd_api.g_miss_date
988 , p5_a4 DATE := fnd_api.g_miss_date
989 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
990 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
991 , p5_a7 DATE := fnd_api.g_miss_date
992 , p5_a8 VARCHAR2
993 , p_representation_type VARCHAR2
994 , x_trx_number out nocopy VARCHAR2
995 )
996
997 as
998 ddp_acceleration_rec okl_generate_accruals_pub.acceleration_rec_type;
999 ddindx binary_integer; indx binary_integer;
1000 begin
1001
1002 -- copy data to the local IN or IN-OUT args, if any
1003
1004
1005
1006
1007
1008 ddp_acceleration_rec.khr_id := rosetta_g_miss_num_map(p5_a0);
1009 ddp_acceleration_rec.kle_id := rosetta_g_miss_num_map(p5_a1);
1010 ddp_acceleration_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
1011 ddp_acceleration_rec.acceleration_date := rosetta_g_miss_date_in_map(p5_a3);
1012 ddp_acceleration_rec.accelerate_till_date := rosetta_g_miss_date_in_map(p5_a4);
1013 ddp_acceleration_rec.description := p5_a5;
1014 ddp_acceleration_rec.accrual_rule_yn := p5_a6;
1015 ddp_acceleration_rec.accelerate_from_date := rosetta_g_miss_date_in_map(p5_a7);
1016 ddp_acceleration_rec.trx_number := p5_a8;
1017
1018 -- here's the delegated call to the old PL/SQL routine
1019 okl_generate_accruals_pub.accelerate_accruals(p_api_version,
1020 p_init_msg_list,
1021 x_return_status,
1022 x_msg_count,
1023 x_msg_data,
1024 ddp_acceleration_rec,
1025 p_representation_type,
1026 x_trx_number);
1027
1028 -- copy data back from the local variables to OUT or IN-OUT args, if any
1029
1030
1031
1032
1033
1034 end;
1035
1036 end okl_generate_accruals_pub_w;