[Home] [Help]
PACKAGE BODY: APPS.OKL_GENERATE_ACCRUALS_PVT_W
Source
1 package body okl_generate_accruals_pvt_w as
2 /* $Header: OKLEACRB.pls 120.14.12010000.6 2008/11/12 23:56:50 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 procedure rosetta_table_copy_in_p4(t out nocopy okl_generate_accruals_pvt.stream_tbl_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_VARCHAR2_TABLE_200
27 , a2 JTF_NUMBER_TABLE
28 , a3 JTF_NUMBER_TABLE
29 , a4 JTF_NUMBER_TABLE
30 , a5 JTF_NUMBER_TABLE
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).stream_type_id := rosetta_g_miss_num_map(a0(indx));
40 t(ddindx).stream_type_name := a1(indx);
41 t(ddindx).stream_id := rosetta_g_miss_num_map(a2(indx));
42 t(ddindx).stream_element_id := rosetta_g_miss_num_map(a3(indx));
43 t(ddindx).stream_amount := rosetta_g_miss_num_map(a4(indx));
44 t(ddindx).kle_id := rosetta_g_miss_num_map(a5(indx));
45 ddindx := ddindx+1;
46 if a0.last =indx
47 then exit;
48 end if;
49 indx := a0.next(indx);
50 end loop;
51 end if;
52 end if;
53 end rosetta_table_copy_in_p4;
54 procedure rosetta_table_copy_out_p4(t okl_generate_accruals_pvt.stream_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
55 , a1 out nocopy JTF_VARCHAR2_TABLE_200
56 , a2 out nocopy JTF_NUMBER_TABLE
57 , a3 out nocopy JTF_NUMBER_TABLE
58 , a4 out nocopy JTF_NUMBER_TABLE
59 , a5 out nocopy JTF_NUMBER_TABLE
60 ) as
61 ddindx binary_integer; indx binary_integer;
62 begin
63 if t is null or t.count = 0 then
64 a0 := JTF_NUMBER_TABLE();
65 a1 := JTF_VARCHAR2_TABLE_200();
66 a2 := JTF_NUMBER_TABLE();
67 a3 := JTF_NUMBER_TABLE();
68 a4 := JTF_NUMBER_TABLE();
69 a5 := JTF_NUMBER_TABLE();
70 else
71 a0 := JTF_NUMBER_TABLE();
72 a1 := JTF_VARCHAR2_TABLE_200();
73 a2 := JTF_NUMBER_TABLE();
74 a3 := JTF_NUMBER_TABLE();
75 a4 := JTF_NUMBER_TABLE();
76 a5 := JTF_NUMBER_TABLE();
77 if t.count > 0 then
78 a0.extend(t.count);
79 a1.extend(t.count);
80 a2.extend(t.count);
81 a3.extend(t.count);
82 a4.extend(t.count);
83 a5.extend(t.count);
84 ddindx := t.first;
85 indx := 1;
86 while true loop
87 a0(indx) := rosetta_g_miss_num_map(t(ddindx).stream_type_id);
88 a1(indx) := t(ddindx).stream_type_name;
89 a2(indx) := rosetta_g_miss_num_map(t(ddindx).stream_id);
90 a3(indx) := rosetta_g_miss_num_map(t(ddindx).stream_element_id);
91 a4(indx) := rosetta_g_miss_num_map(t(ddindx).stream_amount);
92 a5(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
93 indx := indx+1;
94 if t.last =ddindx
95 then exit;
96 end if;
97 ddindx := t.next(ddindx);
98 end loop;
99 end if;
100 end if;
101 end rosetta_table_copy_out_p4;
102
103 procedure rosetta_table_copy_in_p5(t out nocopy okl_generate_accruals_pvt.acceleration_tbl_type, a0 JTF_NUMBER_TABLE
104 , a1 JTF_NUMBER_TABLE
105 , a2 JTF_NUMBER_TABLE
106 , a3 JTF_DATE_TABLE
107 , a4 JTF_DATE_TABLE
108 , a5 JTF_VARCHAR2_TABLE_2000
109 , a6 JTF_VARCHAR2_TABLE_100
110 , a7 JTF_DATE_TABLE
111 ) as
112 ddindx binary_integer; indx binary_integer;
113 begin
114 if a0 is not null and a0.count > 0 then
115 if a0.count > 0 then
116 indx := a0.first;
117 ddindx := 1;
118 while true loop
119 t(ddindx).khr_id := rosetta_g_miss_num_map(a0(indx));
120 t(ddindx).kle_id := rosetta_g_miss_num_map(a1(indx));
121 t(ddindx).sty_id := rosetta_g_miss_num_map(a2(indx));
122 t(ddindx).acceleration_date := rosetta_g_miss_date_in_map(a3(indx));
123 t(ddindx).accelerate_till_date := rosetta_g_miss_date_in_map(a4(indx));
124 t(ddindx).description := a5(indx);
125 t(ddindx).accrual_rule_yn := a6(indx);
126 t(ddindx).accelerate_from_date := rosetta_g_miss_date_in_map(a7(indx));
127 ddindx := ddindx+1;
128 if a0.last =indx
129 then exit;
130 end if;
131 indx := a0.next(indx);
132 end loop;
133 end if;
134 end if;
135 end rosetta_table_copy_in_p5;
136 procedure rosetta_table_copy_out_p5(t okl_generate_accruals_pvt.acceleration_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
137 , a1 out nocopy JTF_NUMBER_TABLE
138 , a2 out nocopy JTF_NUMBER_TABLE
139 , a3 out nocopy JTF_DATE_TABLE
140 , a4 out nocopy JTF_DATE_TABLE
141 , a5 out nocopy JTF_VARCHAR2_TABLE_2000
142 , a6 out nocopy JTF_VARCHAR2_TABLE_100
143 , a7 out nocopy JTF_DATE_TABLE
144 ) as
145 ddindx binary_integer; indx binary_integer;
146 begin
147 if t is null or t.count = 0 then
148 a0 := JTF_NUMBER_TABLE();
149 a1 := JTF_NUMBER_TABLE();
150 a2 := JTF_NUMBER_TABLE();
151 a3 := JTF_DATE_TABLE();
152 a4 := JTF_DATE_TABLE();
153 a5 := JTF_VARCHAR2_TABLE_2000();
154 a6 := JTF_VARCHAR2_TABLE_100();
155 a7 := JTF_DATE_TABLE();
156 else
157 a0 := JTF_NUMBER_TABLE();
158 a1 := JTF_NUMBER_TABLE();
159 a2 := JTF_NUMBER_TABLE();
160 a3 := JTF_DATE_TABLE();
161 a4 := JTF_DATE_TABLE();
162 a5 := JTF_VARCHAR2_TABLE_2000();
163 a6 := JTF_VARCHAR2_TABLE_100();
164 a7 := JTF_DATE_TABLE();
165 if t.count > 0 then
166 a0.extend(t.count);
167 a1.extend(t.count);
168 a2.extend(t.count);
169 a3.extend(t.count);
170 a4.extend(t.count);
171 a5.extend(t.count);
172 a6.extend(t.count);
173 a7.extend(t.count);
174 ddindx := t.first;
175 indx := 1;
176 while true loop
177 a0(indx) := rosetta_g_miss_num_map(t(ddindx).khr_id);
178 a1(indx) := rosetta_g_miss_num_map(t(ddindx).kle_id);
179 a2(indx) := rosetta_g_miss_num_map(t(ddindx).sty_id);
180 a3(indx) := t(ddindx).acceleration_date;
181 a4(indx) := t(ddindx).accelerate_till_date;
182 a5(indx) := t(ddindx).description;
183 a6(indx) := t(ddindx).accrual_rule_yn;
184 a7(indx) := t(ddindx).accelerate_from_date;
185 indx := indx+1;
186 if t.last =ddindx
187 then exit;
188 end if;
189 ddindx := t.next(ddindx);
190 end loop;
191 end if;
192 end if;
193 end rosetta_table_copy_out_p5;
194
195 function submit_accruals(x_return_status out nocopy VARCHAR2
196 , x_msg_count out nocopy NUMBER
197 , x_msg_data out nocopy VARCHAR2
198 , p_api_version NUMBER
199 , p_accrual_date date
200 , p_batch_name VARCHAR2
201 ) return number
202
203 as
204 ddp_accrual_date date;
205 ddindx binary_integer; indx binary_integer;
206 ddrosetta_retval number;
207 begin
208
209 -- copy data to the local IN or IN-OUT args, if any
210
211
212
213
214 ddp_accrual_date := rosetta_g_miss_date_in_map(p_accrual_date);
215
216
217 -- here's the delegated call to the old PL/SQL routine
218 ddrosetta_retval := okl_generate_accruals_pvt.submit_accruals(x_return_status,
219 x_msg_count,
220 x_msg_data,
221 p_api_version,
222 ddp_accrual_date,
223 p_batch_name);
224
225 -- copy data back from the local variables to OUT or IN-OUT args, if any
226
227
228
229
230
231
232 return ddrosetta_retval;
233 end;
234
235 procedure get_accrual_streams(x_return_status out nocopy VARCHAR2
236 , p1_a0 out nocopy JTF_NUMBER_TABLE
237 , p1_a1 out nocopy JTF_VARCHAR2_TABLE_200
238 , p1_a2 out nocopy JTF_NUMBER_TABLE
239 , p1_a3 out nocopy JTF_NUMBER_TABLE
240 , p1_a4 out nocopy JTF_NUMBER_TABLE
241 , p1_a5 out nocopy JTF_NUMBER_TABLE
242 , p_khr_id NUMBER
243 , p_product_id NUMBER
244 , p_ctr_start_date date
245 , p_period_end_date date
246 , p_accrual_rule_yn VARCHAR2
247 )
248
249 as
250 ddx_stream_tbl okl_generate_accruals_pvt.stream_tbl_type;
251 ddp_ctr_start_date date;
252 ddp_period_end_date date;
253 ddindx binary_integer; indx binary_integer;
254 begin
255
256 -- copy data to the local IN or IN-OUT args, if any
257
258
259
260
261 ddp_ctr_start_date := rosetta_g_miss_date_in_map(p_ctr_start_date);
262
263 ddp_period_end_date := rosetta_g_miss_date_in_map(p_period_end_date);
264
265
266 -- here's the delegated call to the old PL/SQL routine
267 okl_generate_accruals_pvt.get_accrual_streams(x_return_status,
268 ddx_stream_tbl,
269 p_khr_id,
270 p_product_id,
271 ddp_ctr_start_date,
272 ddp_period_end_date,
273 p_accrual_rule_yn);
274
275 -- copy data back from the local variables to OUT or IN-OUT args, if any
276
277 okl_generate_accruals_pvt_w.rosetta_table_copy_out_p4(ddx_stream_tbl, p1_a0
278 , p1_a1
279 , p1_a2
280 , p1_a3
281 , p1_a4
282 , p1_a5
283 );
284
285
286
287
288
289 end;
290
291 function check_date_accrued_till(p_khr_id NUMBER
292 , p_date date
293 ) return varchar2
294
295 as
296 ddp_date date;
297 ddindx binary_integer; indx binary_integer;
298 ddrosetta_retval varchar2(4000);
299 begin
300
301 -- copy data to the local IN or IN-OUT args, if any
302
303 ddp_date := rosetta_g_miss_date_in_map(p_date);
304
305 -- here's the delegated call to the old PL/SQL routine
306 ddrosetta_retval := okl_generate_accruals_pvt.check_date_accrued_till(p_khr_id,
307 ddp_date);
308
309 -- copy data back from the local variables to OUT or IN-OUT args, if any
310
311
312 return ddrosetta_retval;
313 end;
314
315 procedure catchup_accruals(p_api_version NUMBER
316 , p_init_msg_list VARCHAR2
317 , x_return_status out nocopy VARCHAR2
318 , x_msg_count out nocopy NUMBER
319 , x_msg_data out nocopy VARCHAR2
320 , p6_a0 out nocopy JTF_NUMBER_TABLE
321 , p6_a1 out nocopy JTF_NUMBER_TABLE
322 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
323 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
324 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
325 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
326 , p6_a6 out nocopy JTF_NUMBER_TABLE
327 , p6_a7 out nocopy JTF_NUMBER_TABLE
328 , p6_a8 out nocopy JTF_NUMBER_TABLE
329 , p6_a9 out nocopy JTF_NUMBER_TABLE
330 , p6_a10 out nocopy JTF_NUMBER_TABLE
331 , p6_a11 out nocopy JTF_NUMBER_TABLE
332 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
333 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
334 , p6_a14 out nocopy JTF_DATE_TABLE
335 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
336 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
337 , p6_a17 out nocopy JTF_NUMBER_TABLE
338 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_200
339 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
340 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
341 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
342 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
343 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
344 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
345 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
346 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
347 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
348 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
349 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
350 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
351 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
352 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
353 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
354 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
355 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_100
356 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_100
357 , p6_a37 out nocopy JTF_NUMBER_TABLE
358 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_100
359 , p6_a39 out nocopy JTF_NUMBER_TABLE
360 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
361 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
362 , p6_a42 out nocopy JTF_NUMBER_TABLE
363 , p6_a43 out nocopy JTF_NUMBER_TABLE
364 , p6_a44 out nocopy JTF_NUMBER_TABLE
365 , p6_a45 out nocopy JTF_NUMBER_TABLE
366 , p6_a46 out nocopy JTF_NUMBER_TABLE
367 , p6_a47 out nocopy JTF_NUMBER_TABLE
368 , p6_a48 out nocopy JTF_DATE_TABLE
369 , p6_a49 out nocopy JTF_NUMBER_TABLE
370 , p6_a50 out nocopy JTF_DATE_TABLE
371 , p6_a51 out nocopy JTF_NUMBER_TABLE
372 , p6_a52 out nocopy JTF_DATE_TABLE
373 , p6_a53 out nocopy JTF_NUMBER_TABLE
374 , p6_a54 out nocopy JTF_NUMBER_TABLE
375 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
376 , p6_a56 out nocopy JTF_NUMBER_TABLE
377 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_2000
378 , p6_a58 out nocopy JTF_DATE_TABLE
379 , p6_a59 out nocopy JTF_VARCHAR2_TABLE_100
380 , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
381 , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
382 , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
383 , p6_a63 out nocopy JTF_VARCHAR2_TABLE_100
384 , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
385 , p6_a65 out nocopy JTF_VARCHAR2_TABLE_100
386 , p6_a66 out nocopy JTF_VARCHAR2_TABLE_100
387 , p6_a67 out nocopy JTF_VARCHAR2_TABLE_100
388 , p6_a68 out nocopy JTF_VARCHAR2_TABLE_100
389 , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
390 , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
391 , p6_a71 out nocopy JTF_VARCHAR2_TABLE_100
392 , p6_a72 out nocopy JTF_VARCHAR2_TABLE_100
393 , p6_a73 out nocopy JTF_VARCHAR2_TABLE_100
394 , p6_a74 out nocopy JTF_VARCHAR2_TABLE_100
395 , p6_a75 out nocopy JTF_VARCHAR2_TABLE_100
396 , p6_a76 out nocopy JTF_VARCHAR2_TABLE_100
397 , p6_a77 out nocopy JTF_NUMBER_TABLE
398 , p6_a78 out nocopy JTF_DATE_TABLE
399 , p6_a79 out nocopy JTF_NUMBER_TABLE
400 , p6_a80 out nocopy JTF_NUMBER_TABLE
401 , p6_a81 out nocopy JTF_VARCHAR2_TABLE_100
402 , p6_a82 out nocopy JTF_DATE_TABLE
403 , p6_a83 out nocopy JTF_NUMBER_TABLE
404 , p6_a84 out nocopy JTF_DATE_TABLE
405 , p6_a85 out nocopy JTF_VARCHAR2_TABLE_100
406 , p6_a86 out nocopy JTF_VARCHAR2_TABLE_200
407 , p6_a87 out nocopy JTF_VARCHAR2_TABLE_100
408 , p6_a88 out nocopy JTF_VARCHAR2_TABLE_200
409 , p6_a89 out nocopy JTF_VARCHAR2_TABLE_100
410 , p6_a90 out nocopy JTF_VARCHAR2_TABLE_100
411 , p6_a91 out nocopy JTF_VARCHAR2_TABLE_100
412 , p6_a92 out nocopy JTF_VARCHAR2_TABLE_100
413 , p6_a93 out nocopy JTF_DATE_TABLE
414 , p7_a0 out nocopy JTF_NUMBER_TABLE
415 , p7_a1 out nocopy JTF_NUMBER_TABLE
416 , p7_a2 out nocopy JTF_NUMBER_TABLE
417 , p7_a3 out nocopy JTF_NUMBER_TABLE
418 , p7_a4 out nocopy JTF_NUMBER_TABLE
419 , p7_a5 out nocopy JTF_NUMBER_TABLE
420 , p7_a6 out nocopy JTF_NUMBER_TABLE
421 , p7_a7 out nocopy JTF_NUMBER_TABLE
422 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
423 , p7_a9 out nocopy JTF_NUMBER_TABLE
424 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_2000
425 , p7_a11 out nocopy JTF_NUMBER_TABLE
426 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_200
427 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
428 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
429 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_500
430 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_500
431 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_500
432 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_500
433 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_500
434 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_500
435 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_500
436 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_500
437 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_500
438 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_500
439 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_500
440 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_500
441 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_500
442 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_500
443 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_500
444 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_100
445 , p7_a31 out nocopy JTF_NUMBER_TABLE
446 , p7_a32 out nocopy JTF_DATE_TABLE
447 , p7_a33 out nocopy JTF_NUMBER_TABLE
448 , p7_a34 out nocopy JTF_DATE_TABLE
449 , p7_a35 out nocopy JTF_NUMBER_TABLE
450 , p7_a36 out nocopy JTF_NUMBER_TABLE
451 , p7_a37 out nocopy JTF_NUMBER_TABLE
452 , p7_a38 out nocopy JTF_NUMBER_TABLE
453 , p7_a39 out nocopy JTF_DATE_TABLE
454 , p7_a40 out nocopy JTF_NUMBER_TABLE
455 , p7_a41 out nocopy JTF_NUMBER_TABLE
456 , p7_a42 out nocopy JTF_NUMBER_TABLE
457 , p7_a43 out nocopy JTF_NUMBER_TABLE
458 , p7_a44 out nocopy JTF_NUMBER_TABLE
459 , p7_a45 out nocopy JTF_VARCHAR2_TABLE_100
460 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_200
461 , p7_a47 out nocopy JTF_NUMBER_TABLE
462 , p7_a48 out nocopy JTF_VARCHAR2_TABLE_200
463 , p7_a49 out nocopy JTF_NUMBER_TABLE
464 , p7_a50 out nocopy JTF_VARCHAR2_TABLE_200
465 , p7_a51 out nocopy JTF_NUMBER_TABLE
466 , p7_a52 out nocopy JTF_DATE_TABLE
467 , p7_a53 out nocopy JTF_NUMBER_TABLE
468 , p7_a54 out nocopy JTF_VARCHAR2_TABLE_200
469 , p7_a55 out nocopy JTF_VARCHAR2_TABLE_300
470 , p7_a56 out nocopy JTF_VARCHAR2_TABLE_100
471 , p7_a57 out nocopy JTF_VARCHAR2_TABLE_100
472 , p2_a0 NUMBER := 0-1962.0724
473 , p2_a1 NUMBER := 0-1962.0724
474 , p2_a2 NUMBER := 0-1962.0724
475 , p2_a3 DATE := fnd_api.g_miss_date
476 , p2_a4 DATE := fnd_api.g_miss_date
477 , p2_a5 DATE := fnd_api.g_miss_date
478 , p2_a6 VARCHAR2 := fnd_api.g_miss_char
479 , p2_a7 VARCHAR2 := fnd_api.g_miss_char
480 , p2_a8 VARCHAR2 := fnd_api.g_miss_char
481 , p2_a9 VARCHAR2 := fnd_api.g_miss_char
482 , p2_a10 NUMBER := 0-1962.0724
483 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
484 , p2_a12 VARCHAR2 := fnd_api.g_miss_char
485 , p2_a13 NUMBER := 0-1962.0724
486 , p2_a14 DATE := fnd_api.g_miss_date
487 , p2_a15 NUMBER := 0-1962.0724
488 , p2_a16 NUMBER := 0-1962.0724
489 , p2_a17 VARCHAR2 := fnd_api.g_miss_char
490 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
491 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
492 , p2_a20 VARCHAR2 := fnd_api.g_miss_char
493 , p2_a21 VARCHAR2 := fnd_api.g_miss_char
494 , p2_a22 VARCHAR2 := fnd_api.g_miss_char
495 , p2_a23 VARCHAR2 := fnd_api.g_miss_char
496 , p2_a24 NUMBER := 0-1962.0724
497 , p2_a25 VARCHAR2 := fnd_api.g_miss_char
498 , p2_a26 DATE := fnd_api.g_miss_date
499 )
500
501 as
502 ddp_catchup_rec okl_generate_accruals_pvt.accrual_rec_type;
503 ddx_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
504 ddx_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
505 ddindx binary_integer; indx binary_integer;
506 begin
507
508 -- copy data to the local IN or IN-OUT args, if any
509
510
511 ddp_catchup_rec.contract_id := rosetta_g_miss_num_map(p2_a0);
512 ddp_catchup_rec.sty_id := rosetta_g_miss_num_map(p2_a1);
513 ddp_catchup_rec.set_of_books_id := rosetta_g_miss_num_map(p2_a2);
514 ddp_catchup_rec.reverse_date_to := rosetta_g_miss_date_in_map(p2_a3);
515 ddp_catchup_rec.accrual_date := rosetta_g_miss_date_in_map(p2_a4);
516 ddp_catchup_rec.trx_date := rosetta_g_miss_date_in_map(p2_a5);
517 ddp_catchup_rec.contract_number := p2_a6;
518 ddp_catchup_rec.rule_result := p2_a7;
519 ddp_catchup_rec.override_status := p2_a8;
520 ddp_catchup_rec.description := p2_a9;
521 ddp_catchup_rec.amount := rosetta_g_miss_num_map(p2_a10);
522 ddp_catchup_rec.currency_code := p2_a11;
523 ddp_catchup_rec.currency_conversion_type := p2_a12;
524 ddp_catchup_rec.currency_conversion_rate := rosetta_g_miss_num_map(p2_a13);
525 ddp_catchup_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p2_a14);
526 ddp_catchup_rec.product_id := rosetta_g_miss_num_map(p2_a15);
527 ddp_catchup_rec.trx_type_id := rosetta_g_miss_num_map(p2_a16);
528 ddp_catchup_rec.advance_arrears := p2_a17;
529 ddp_catchup_rec.factoring_synd_flag := p2_a18;
530 ddp_catchup_rec.post_to_gl := p2_a19;
531 ddp_catchup_rec.gl_reversal_flag := p2_a20;
532 ddp_catchup_rec.memo_yn := p2_a21;
533 ddp_catchup_rec.accrual_activity := p2_a22;
534 ddp_catchup_rec.accrual_rule_yn := p2_a23;
535 ddp_catchup_rec.source_trx_id := rosetta_g_miss_num_map(p2_a24);
536 ddp_catchup_rec.source_trx_type := p2_a25;
537 ddp_catchup_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p2_a26);
538
539
540
541
542
543
544 -- here's the delegated call to the old PL/SQL routine
545 okl_generate_accruals_pvt.catchup_accruals(p_api_version,
546 p_init_msg_list,
547 ddp_catchup_rec,
548 x_return_status,
549 x_msg_count,
550 x_msg_data,
551 ddx_tcnv_tbl,
552 ddx_tclv_tbl);
553
554 -- copy data back from the local variables to OUT or IN-OUT args, if any
555
556
557
558
559
560
561 okl_tcn_pvt_w.rosetta_table_copy_out_p5(ddx_tcnv_tbl, p6_a0
562 , p6_a1
563 , p6_a2
564 , p6_a3
565 , p6_a4
566 , p6_a5
567 , p6_a6
568 , p6_a7
569 , p6_a8
570 , p6_a9
571 , p6_a10
572 , p6_a11
573 , p6_a12
574 , p6_a13
575 , p6_a14
576 , p6_a15
577 , p6_a16
578 , p6_a17
579 , p6_a18
580 , p6_a19
581 , p6_a20
582 , p6_a21
583 , p6_a22
584 , p6_a23
585 , p6_a24
586 , p6_a25
587 , p6_a26
588 , p6_a27
589 , p6_a28
590 , p6_a29
591 , p6_a30
592 , p6_a31
593 , p6_a32
594 , p6_a33
595 , p6_a34
596 , p6_a35
597 , p6_a36
598 , p6_a37
599 , p6_a38
600 , p6_a39
601 , p6_a40
602 , p6_a41
603 , p6_a42
604 , p6_a43
605 , p6_a44
606 , p6_a45
607 , p6_a46
608 , p6_a47
609 , p6_a48
610 , p6_a49
611 , p6_a50
612 , p6_a51
613 , p6_a52
614 , p6_a53
615 , p6_a54
616 , p6_a55
617 , p6_a56
618 , p6_a57
619 , p6_a58
620 , p6_a59
621 , p6_a60
622 , p6_a61
623 , p6_a62
624 , p6_a63
625 , p6_a64
626 , p6_a65
627 , p6_a66
628 , p6_a67
629 , p6_a68
630 , p6_a69
631 , p6_a70
632 , p6_a71
633 , p6_a72
634 , p6_a73
635 , p6_a74
636 , p6_a75
637 , p6_a76
638 , p6_a77
639 , p6_a78
640 , p6_a79
641 , p6_a80
642 , p6_a81
643 , p6_a82
644 , p6_a83
645 , p6_a84
646 , p6_a85
647 , p6_a86
648 , p6_a87
649 , p6_a88
650 , p6_a89
651 , p6_a90
652 , p6_a91
653 , p6_a92
654 , p6_a93
655 );
656
657 okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p7_a0
658 , p7_a1
659 , p7_a2
660 , p7_a3
661 , p7_a4
662 , p7_a5
663 , p7_a6
664 , p7_a7
665 , p7_a8
666 , p7_a9
667 , p7_a10
668 , p7_a11
669 , p7_a12
670 , p7_a13
671 , p7_a14
672 , p7_a15
673 , p7_a16
674 , p7_a17
675 , p7_a18
676 , p7_a19
677 , p7_a20
678 , p7_a21
679 , p7_a22
680 , p7_a23
681 , p7_a24
682 , p7_a25
683 , p7_a26
684 , p7_a27
685 , p7_a28
686 , p7_a29
687 , p7_a30
688 , p7_a31
689 , p7_a32
690 , p7_a33
691 , p7_a34
692 , p7_a35
693 , p7_a36
694 , p7_a37
695 , p7_a38
696 , p7_a39
697 , p7_a40
698 , p7_a41
699 , p7_a42
700 , p7_a43
701 , p7_a44
702 , p7_a45
703 , p7_a46
704 , p7_a47
705 , p7_a48
706 , p7_a49
707 , p7_a50
708 , p7_a51
709 , p7_a52
710 , p7_a53
711 , p7_a54
712 , p7_a55
713 , p7_a56
714 , p7_a57
715 );
716 end;
717
718 procedure reverse_accruals(p_api_version NUMBER
719 , p_init_msg_list VARCHAR2
720 , x_return_status out nocopy VARCHAR2
721 , x_msg_count out nocopy NUMBER
722 , x_msg_data out nocopy VARCHAR2
723 , p6_a0 out nocopy JTF_NUMBER_TABLE
724 , p6_a1 out nocopy JTF_NUMBER_TABLE
725 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
726 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
727 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
728 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
729 , p6_a6 out nocopy JTF_NUMBER_TABLE
730 , p6_a7 out nocopy JTF_NUMBER_TABLE
731 , p6_a8 out nocopy JTF_NUMBER_TABLE
732 , p6_a9 out nocopy JTF_NUMBER_TABLE
733 , p6_a10 out nocopy JTF_NUMBER_TABLE
734 , p6_a11 out nocopy JTF_NUMBER_TABLE
735 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
736 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
737 , p6_a14 out nocopy JTF_DATE_TABLE
738 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
739 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
740 , p6_a17 out nocopy JTF_NUMBER_TABLE
741 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_200
742 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
743 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
744 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
745 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
746 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
747 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
748 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
749 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
750 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
751 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
752 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
753 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
754 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
755 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
756 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
757 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
758 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_100
759 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_100
760 , p6_a37 out nocopy JTF_NUMBER_TABLE
761 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_100
762 , p6_a39 out nocopy JTF_NUMBER_TABLE
763 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
764 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
765 , p6_a42 out nocopy JTF_NUMBER_TABLE
766 , p6_a43 out nocopy JTF_NUMBER_TABLE
767 , p6_a44 out nocopy JTF_NUMBER_TABLE
768 , p6_a45 out nocopy JTF_NUMBER_TABLE
769 , p6_a46 out nocopy JTF_NUMBER_TABLE
770 , p6_a47 out nocopy JTF_NUMBER_TABLE
771 , p6_a48 out nocopy JTF_DATE_TABLE
772 , p6_a49 out nocopy JTF_NUMBER_TABLE
773 , p6_a50 out nocopy JTF_DATE_TABLE
774 , p6_a51 out nocopy JTF_NUMBER_TABLE
775 , p6_a52 out nocopy JTF_DATE_TABLE
776 , p6_a53 out nocopy JTF_NUMBER_TABLE
777 , p6_a54 out nocopy JTF_NUMBER_TABLE
778 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
779 , p6_a56 out nocopy JTF_NUMBER_TABLE
780 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_2000
781 , p6_a58 out nocopy JTF_DATE_TABLE
782 , p6_a59 out nocopy JTF_VARCHAR2_TABLE_100
783 , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
784 , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
785 , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
786 , p6_a63 out nocopy JTF_VARCHAR2_TABLE_100
787 , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
788 , p6_a65 out nocopy JTF_VARCHAR2_TABLE_100
789 , p6_a66 out nocopy JTF_VARCHAR2_TABLE_100
790 , p6_a67 out nocopy JTF_VARCHAR2_TABLE_100
791 , p6_a68 out nocopy JTF_VARCHAR2_TABLE_100
792 , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
793 , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
794 , p6_a71 out nocopy JTF_VARCHAR2_TABLE_100
795 , p6_a72 out nocopy JTF_VARCHAR2_TABLE_100
796 , p6_a73 out nocopy JTF_VARCHAR2_TABLE_100
797 , p6_a74 out nocopy JTF_VARCHAR2_TABLE_100
798 , p6_a75 out nocopy JTF_VARCHAR2_TABLE_100
799 , p6_a76 out nocopy JTF_VARCHAR2_TABLE_100
800 , p6_a77 out nocopy JTF_NUMBER_TABLE
801 , p6_a78 out nocopy JTF_DATE_TABLE
802 , p6_a79 out nocopy JTF_NUMBER_TABLE
803 , p6_a80 out nocopy JTF_NUMBER_TABLE
804 , p6_a81 out nocopy JTF_VARCHAR2_TABLE_100
805 , p6_a82 out nocopy JTF_DATE_TABLE
806 , p6_a83 out nocopy JTF_NUMBER_TABLE
807 , p6_a84 out nocopy JTF_DATE_TABLE
808 , p6_a85 out nocopy JTF_VARCHAR2_TABLE_100
809 , p6_a86 out nocopy JTF_VARCHAR2_TABLE_200
810 , p6_a87 out nocopy JTF_VARCHAR2_TABLE_100
811 , p6_a88 out nocopy JTF_VARCHAR2_TABLE_200
812 , p6_a89 out nocopy JTF_VARCHAR2_TABLE_100
813 , p6_a90 out nocopy JTF_VARCHAR2_TABLE_100
814 , p6_a91 out nocopy JTF_VARCHAR2_TABLE_100
815 , p6_a92 out nocopy JTF_VARCHAR2_TABLE_100
816 , p6_a93 out nocopy JTF_DATE_TABLE
817 , p7_a0 out nocopy JTF_NUMBER_TABLE
818 , p7_a1 out nocopy JTF_NUMBER_TABLE
819 , p7_a2 out nocopy JTF_NUMBER_TABLE
820 , p7_a3 out nocopy JTF_NUMBER_TABLE
821 , p7_a4 out nocopy JTF_NUMBER_TABLE
822 , p7_a5 out nocopy JTF_NUMBER_TABLE
823 , p7_a6 out nocopy JTF_NUMBER_TABLE
824 , p7_a7 out nocopy JTF_NUMBER_TABLE
825 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
826 , p7_a9 out nocopy JTF_NUMBER_TABLE
827 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_2000
828 , p7_a11 out nocopy JTF_NUMBER_TABLE
829 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_200
830 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
831 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
832 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_500
833 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_500
834 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_500
835 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_500
836 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_500
837 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_500
838 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_500
839 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_500
840 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_500
841 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_500
842 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_500
843 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_500
844 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_500
845 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_500
846 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_500
847 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_100
848 , p7_a31 out nocopy JTF_NUMBER_TABLE
849 , p7_a32 out nocopy JTF_DATE_TABLE
850 , p7_a33 out nocopy JTF_NUMBER_TABLE
851 , p7_a34 out nocopy JTF_DATE_TABLE
852 , p7_a35 out nocopy JTF_NUMBER_TABLE
853 , p7_a36 out nocopy JTF_NUMBER_TABLE
854 , p7_a37 out nocopy JTF_NUMBER_TABLE
855 , p7_a38 out nocopy JTF_NUMBER_TABLE
856 , p7_a39 out nocopy JTF_DATE_TABLE
857 , p7_a40 out nocopy JTF_NUMBER_TABLE
858 , p7_a41 out nocopy JTF_NUMBER_TABLE
859 , p7_a42 out nocopy JTF_NUMBER_TABLE
860 , p7_a43 out nocopy JTF_NUMBER_TABLE
861 , p7_a44 out nocopy JTF_NUMBER_TABLE
862 , p7_a45 out nocopy JTF_VARCHAR2_TABLE_100
863 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_200
864 , p7_a47 out nocopy JTF_NUMBER_TABLE
865 , p7_a48 out nocopy JTF_VARCHAR2_TABLE_200
866 , p7_a49 out nocopy JTF_NUMBER_TABLE
867 , p7_a50 out nocopy JTF_VARCHAR2_TABLE_200
868 , p7_a51 out nocopy JTF_NUMBER_TABLE
869 , p7_a52 out nocopy JTF_DATE_TABLE
870 , p7_a53 out nocopy JTF_NUMBER_TABLE
871 , p7_a54 out nocopy JTF_VARCHAR2_TABLE_200
872 , p7_a55 out nocopy JTF_VARCHAR2_TABLE_300
873 , p7_a56 out nocopy JTF_VARCHAR2_TABLE_100
874 , p7_a57 out nocopy JTF_VARCHAR2_TABLE_100
875 , p2_a0 NUMBER := 0-1962.0724
876 , p2_a1 NUMBER := 0-1962.0724
877 , p2_a2 NUMBER := 0-1962.0724
878 , p2_a3 DATE := fnd_api.g_miss_date
879 , p2_a4 DATE := fnd_api.g_miss_date
880 , p2_a5 DATE := fnd_api.g_miss_date
881 , p2_a6 VARCHAR2 := fnd_api.g_miss_char
882 , p2_a7 VARCHAR2 := fnd_api.g_miss_char
883 , p2_a8 VARCHAR2 := fnd_api.g_miss_char
884 , p2_a9 VARCHAR2 := fnd_api.g_miss_char
885 , p2_a10 NUMBER := 0-1962.0724
886 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
887 , p2_a12 VARCHAR2 := fnd_api.g_miss_char
888 , p2_a13 NUMBER := 0-1962.0724
889 , p2_a14 DATE := fnd_api.g_miss_date
890 , p2_a15 NUMBER := 0-1962.0724
891 , p2_a16 NUMBER := 0-1962.0724
892 , p2_a17 VARCHAR2 := fnd_api.g_miss_char
893 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
894 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
895 , p2_a20 VARCHAR2 := fnd_api.g_miss_char
896 , p2_a21 VARCHAR2 := fnd_api.g_miss_char
897 , p2_a22 VARCHAR2 := fnd_api.g_miss_char
898 , p2_a23 VARCHAR2 := fnd_api.g_miss_char
899 , p2_a24 NUMBER := 0-1962.0724
900 , p2_a25 VARCHAR2 := fnd_api.g_miss_char
901 , p2_a26 DATE := fnd_api.g_miss_date
902 )
903
904 as
905 ddp_reverse_rec okl_generate_accruals_pvt.accrual_rec_type;
906 ddx_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
907 ddx_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
908 ddindx binary_integer; indx binary_integer;
909 begin
910
911 -- copy data to the local IN or IN-OUT args, if any
912
913
914 ddp_reverse_rec.contract_id := rosetta_g_miss_num_map(p2_a0);
915 ddp_reverse_rec.sty_id := rosetta_g_miss_num_map(p2_a1);
916 ddp_reverse_rec.set_of_books_id := rosetta_g_miss_num_map(p2_a2);
917 ddp_reverse_rec.reverse_date_to := rosetta_g_miss_date_in_map(p2_a3);
918 ddp_reverse_rec.accrual_date := rosetta_g_miss_date_in_map(p2_a4);
919 ddp_reverse_rec.trx_date := rosetta_g_miss_date_in_map(p2_a5);
920 ddp_reverse_rec.contract_number := p2_a6;
921 ddp_reverse_rec.rule_result := p2_a7;
922 ddp_reverse_rec.override_status := p2_a8;
923 ddp_reverse_rec.description := p2_a9;
924 ddp_reverse_rec.amount := rosetta_g_miss_num_map(p2_a10);
925 ddp_reverse_rec.currency_code := p2_a11;
926 ddp_reverse_rec.currency_conversion_type := p2_a12;
927 ddp_reverse_rec.currency_conversion_rate := rosetta_g_miss_num_map(p2_a13);
928 ddp_reverse_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p2_a14);
929 ddp_reverse_rec.product_id := rosetta_g_miss_num_map(p2_a15);
930 ddp_reverse_rec.trx_type_id := rosetta_g_miss_num_map(p2_a16);
931 ddp_reverse_rec.advance_arrears := p2_a17;
932 ddp_reverse_rec.factoring_synd_flag := p2_a18;
933 ddp_reverse_rec.post_to_gl := p2_a19;
934 ddp_reverse_rec.gl_reversal_flag := p2_a20;
935 ddp_reverse_rec.memo_yn := p2_a21;
936 ddp_reverse_rec.accrual_activity := p2_a22;
937 ddp_reverse_rec.accrual_rule_yn := p2_a23;
938 ddp_reverse_rec.source_trx_id := rosetta_g_miss_num_map(p2_a24);
939 ddp_reverse_rec.source_trx_type := p2_a25;
940 ddp_reverse_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p2_a26);
941
942
943
944
945
946
947 -- here's the delegated call to the old PL/SQL routine
948 okl_generate_accruals_pvt.reverse_accruals(p_api_version,
949 p_init_msg_list,
950 ddp_reverse_rec,
951 x_return_status,
952 x_msg_count,
953 x_msg_data,
954 ddx_tcnv_tbl,
955 ddx_tclv_tbl);
956
957 -- copy data back from the local variables to OUT or IN-OUT args, if any
958
959
960
961
962
963
964 okl_tcn_pvt_w.rosetta_table_copy_out_p5(ddx_tcnv_tbl, p6_a0
965 , p6_a1
966 , p6_a2
967 , p6_a3
968 , p6_a4
969 , p6_a5
970 , p6_a6
971 , p6_a7
972 , p6_a8
973 , p6_a9
974 , p6_a10
975 , p6_a11
976 , p6_a12
977 , p6_a13
978 , p6_a14
979 , p6_a15
980 , p6_a16
981 , p6_a17
982 , p6_a18
983 , p6_a19
984 , p6_a20
985 , p6_a21
986 , p6_a22
987 , p6_a23
988 , p6_a24
989 , p6_a25
990 , p6_a26
991 , p6_a27
992 , p6_a28
993 , p6_a29
994 , p6_a30
995 , p6_a31
996 , p6_a32
997 , p6_a33
998 , p6_a34
999 , p6_a35
1000 , p6_a36
1001 , p6_a37
1002 , p6_a38
1003 , p6_a39
1004 , p6_a40
1005 , p6_a41
1006 , p6_a42
1007 , p6_a43
1008 , p6_a44
1009 , p6_a45
1010 , p6_a46
1011 , p6_a47
1012 , p6_a48
1013 , p6_a49
1014 , p6_a50
1015 , p6_a51
1016 , p6_a52
1017 , p6_a53
1018 , p6_a54
1019 , p6_a55
1020 , p6_a56
1021 , p6_a57
1022 , p6_a58
1023 , p6_a59
1024 , p6_a60
1025 , p6_a61
1026 , p6_a62
1027 , p6_a63
1028 , p6_a64
1029 , p6_a65
1030 , p6_a66
1031 , p6_a67
1032 , p6_a68
1033 , p6_a69
1034 , p6_a70
1035 , p6_a71
1036 , p6_a72
1037 , p6_a73
1038 , p6_a74
1039 , p6_a75
1040 , p6_a76
1041 , p6_a77
1042 , p6_a78
1043 , p6_a79
1044 , p6_a80
1045 , p6_a81
1046 , p6_a82
1047 , p6_a83
1048 , p6_a84
1049 , p6_a85
1050 , p6_a86
1051 , p6_a87
1052 , p6_a88
1053 , p6_a89
1054 , p6_a90
1055 , p6_a91
1056 , p6_a92
1057 , p6_a93
1058 );
1059
1060 okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_tclv_tbl, p7_a0
1061 , p7_a1
1062 , p7_a2
1063 , p7_a3
1064 , p7_a4
1065 , p7_a5
1066 , p7_a6
1067 , p7_a7
1068 , p7_a8
1069 , p7_a9
1070 , p7_a10
1071 , p7_a11
1072 , p7_a12
1073 , p7_a13
1074 , p7_a14
1075 , p7_a15
1076 , p7_a16
1077 , p7_a17
1078 , p7_a18
1079 , p7_a19
1080 , p7_a20
1081 , p7_a21
1082 , p7_a22
1083 , p7_a23
1084 , p7_a24
1085 , p7_a25
1086 , p7_a26
1087 , p7_a27
1088 , p7_a28
1089 , p7_a29
1090 , p7_a30
1091 , p7_a31
1092 , p7_a32
1093 , p7_a33
1094 , p7_a34
1095 , p7_a35
1096 , p7_a36
1097 , p7_a37
1098 , p7_a38
1099 , p7_a39
1100 , p7_a40
1101 , p7_a41
1102 , p7_a42
1103 , p7_a43
1104 , p7_a44
1105 , p7_a45
1106 , p7_a46
1107 , p7_a47
1108 , p7_a48
1109 , p7_a49
1110 , p7_a50
1111 , p7_a51
1112 , p7_a52
1113 , p7_a53
1114 , p7_a54
1115 , p7_a55
1116 , p7_a56
1117 , p7_a57
1118 );
1119 end;
1120
1121 procedure reverse_accruals(p_api_version NUMBER
1122 , p_init_msg_list VARCHAR2
1123 , x_return_status out nocopy VARCHAR2
1124 , x_msg_count out nocopy NUMBER
1125 , x_msg_data out nocopy VARCHAR2
1126 , p_khr_id NUMBER
1127 , p_reversal_date date
1128 , p_accounting_date date
1129 , p_reverse_from date
1130 , p_reverse_to date
1131 , p_tcn_type VARCHAR2
1132 )
1133
1134 as
1135 ddp_reversal_date date;
1136 ddp_accounting_date date;
1137 ddp_reverse_from date;
1138 ddp_reverse_to date;
1139 ddindx binary_integer; indx binary_integer;
1140 begin
1141
1142 -- copy data to the local IN or IN-OUT args, if any
1143
1144
1145
1146
1147
1148
1149 ddp_reversal_date := rosetta_g_miss_date_in_map(p_reversal_date);
1150
1151 ddp_accounting_date := rosetta_g_miss_date_in_map(p_accounting_date);
1152
1153 ddp_reverse_from := rosetta_g_miss_date_in_map(p_reverse_from);
1154
1155 ddp_reverse_to := rosetta_g_miss_date_in_map(p_reverse_to);
1156
1157
1158 -- here's the delegated call to the old PL/SQL routine
1159 okl_generate_accruals_pvt.reverse_accruals(p_api_version,
1160 p_init_msg_list,
1161 x_return_status,
1162 x_msg_count,
1163 x_msg_data,
1164 p_khr_id,
1165 ddp_reversal_date,
1166 ddp_accounting_date,
1167 ddp_reverse_from,
1168 ddp_reverse_to,
1169 p_tcn_type);
1170
1171 -- copy data back from the local variables to OUT or IN-OUT args, if any
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182 end;
1183
1184 procedure reverse_all_accruals(p_api_version NUMBER
1185 , p_init_msg_list VARCHAR2
1186 , p_khr_id NUMBER
1187 , p_reverse_date date
1188 , p_description VARCHAR2
1189 , x_return_status out nocopy VARCHAR2
1190 , x_msg_count out nocopy NUMBER
1191 , x_msg_data out nocopy VARCHAR2
1192 )
1193
1194 as
1195 ddp_reverse_date date;
1196 ddindx binary_integer; indx binary_integer;
1197 begin
1198
1199 -- copy data to the local IN or IN-OUT args, if any
1200
1201
1202
1203 ddp_reverse_date := rosetta_g_miss_date_in_map(p_reverse_date);
1204
1205
1206
1207
1208
1209 -- here's the delegated call to the old PL/SQL routine
1210 okl_generate_accruals_pvt.reverse_all_accruals(p_api_version,
1211 p_init_msg_list,
1212 p_khr_id,
1213 ddp_reverse_date,
1214 p_description,
1215 x_return_status,
1216 x_msg_count,
1217 x_msg_data);
1218
1219 -- copy data back from the local variables to OUT or IN-OUT args, if any
1220
1221
1222
1223
1224
1225
1226
1227 end;
1228
1229 procedure reverse_accruals(p_api_version NUMBER
1230 , p_init_msg_list VARCHAR2
1231 , x_return_status out nocopy VARCHAR2
1232 , x_msg_count out nocopy NUMBER
1233 , x_msg_data out nocopy VARCHAR2
1234 , p6_a0 out nocopy JTF_NUMBER_TABLE
1235 , p6_a1 out nocopy JTF_NUMBER_TABLE
1236 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
1237 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
1238 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
1239 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_100
1240 , p6_a6 out nocopy JTF_NUMBER_TABLE
1241 , p6_a7 out nocopy JTF_NUMBER_TABLE
1242 , p6_a8 out nocopy JTF_NUMBER_TABLE
1243 , p6_a9 out nocopy JTF_NUMBER_TABLE
1244 , p6_a10 out nocopy JTF_NUMBER_TABLE
1245 , p6_a11 out nocopy JTF_NUMBER_TABLE
1246 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
1247 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
1248 , p6_a14 out nocopy JTF_DATE_TABLE
1249 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
1250 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
1251 , p6_a17 out nocopy JTF_NUMBER_TABLE
1252 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_200
1253 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_100
1254 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
1255 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
1256 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
1257 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
1258 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
1259 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
1260 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
1261 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
1262 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
1263 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
1264 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
1265 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
1266 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
1267 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
1268 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
1269 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_100
1270 , p6_a36 out nocopy JTF_VARCHAR2_TABLE_100
1271 , p6_a37 out nocopy JTF_NUMBER_TABLE
1272 , p6_a38 out nocopy JTF_VARCHAR2_TABLE_100
1273 , p6_a39 out nocopy JTF_NUMBER_TABLE
1274 , p6_a40 out nocopy JTF_VARCHAR2_TABLE_100
1275 , p6_a41 out nocopy JTF_VARCHAR2_TABLE_100
1276 , p6_a42 out nocopy JTF_NUMBER_TABLE
1277 , p6_a43 out nocopy JTF_NUMBER_TABLE
1278 , p6_a44 out nocopy JTF_NUMBER_TABLE
1279 , p6_a45 out nocopy JTF_NUMBER_TABLE
1280 , p6_a46 out nocopy JTF_NUMBER_TABLE
1281 , p6_a47 out nocopy JTF_NUMBER_TABLE
1282 , p6_a48 out nocopy JTF_DATE_TABLE
1283 , p6_a49 out nocopy JTF_NUMBER_TABLE
1284 , p6_a50 out nocopy JTF_DATE_TABLE
1285 , p6_a51 out nocopy JTF_NUMBER_TABLE
1286 , p6_a52 out nocopy JTF_DATE_TABLE
1287 , p6_a53 out nocopy JTF_NUMBER_TABLE
1288 , p6_a54 out nocopy JTF_NUMBER_TABLE
1289 , p6_a55 out nocopy JTF_VARCHAR2_TABLE_100
1290 , p6_a56 out nocopy JTF_NUMBER_TABLE
1291 , p6_a57 out nocopy JTF_VARCHAR2_TABLE_2000
1292 , p6_a58 out nocopy JTF_DATE_TABLE
1293 , p6_a59 out nocopy JTF_VARCHAR2_TABLE_100
1294 , p6_a60 out nocopy JTF_VARCHAR2_TABLE_100
1295 , p6_a61 out nocopy JTF_VARCHAR2_TABLE_100
1296 , p6_a62 out nocopy JTF_VARCHAR2_TABLE_100
1297 , p6_a63 out nocopy JTF_VARCHAR2_TABLE_100
1298 , p6_a64 out nocopy JTF_VARCHAR2_TABLE_100
1299 , p6_a65 out nocopy JTF_VARCHAR2_TABLE_100
1300 , p6_a66 out nocopy JTF_VARCHAR2_TABLE_100
1301 , p6_a67 out nocopy JTF_VARCHAR2_TABLE_100
1302 , p6_a68 out nocopy JTF_VARCHAR2_TABLE_100
1303 , p6_a69 out nocopy JTF_VARCHAR2_TABLE_100
1304 , p6_a70 out nocopy JTF_VARCHAR2_TABLE_100
1305 , p6_a71 out nocopy JTF_VARCHAR2_TABLE_100
1306 , p6_a72 out nocopy JTF_VARCHAR2_TABLE_100
1307 , p6_a73 out nocopy JTF_VARCHAR2_TABLE_100
1308 , p6_a74 out nocopy JTF_VARCHAR2_TABLE_100
1309 , p6_a75 out nocopy JTF_VARCHAR2_TABLE_100
1310 , p6_a76 out nocopy JTF_VARCHAR2_TABLE_100
1311 , p6_a77 out nocopy JTF_NUMBER_TABLE
1312 , p6_a78 out nocopy JTF_DATE_TABLE
1313 , p6_a79 out nocopy JTF_NUMBER_TABLE
1314 , p6_a80 out nocopy JTF_NUMBER_TABLE
1315 , p6_a81 out nocopy JTF_VARCHAR2_TABLE_100
1316 , p6_a82 out nocopy JTF_DATE_TABLE
1317 , p6_a83 out nocopy JTF_NUMBER_TABLE
1318 , p6_a84 out nocopy JTF_DATE_TABLE
1319 , p6_a85 out nocopy JTF_VARCHAR2_TABLE_100
1320 , p6_a86 out nocopy JTF_VARCHAR2_TABLE_200
1321 , p6_a87 out nocopy JTF_VARCHAR2_TABLE_100
1322 , p6_a88 out nocopy JTF_VARCHAR2_TABLE_200
1323 , p6_a89 out nocopy JTF_VARCHAR2_TABLE_100
1324 , p6_a90 out nocopy JTF_VARCHAR2_TABLE_100
1325 , p6_a91 out nocopy JTF_VARCHAR2_TABLE_100
1326 , p6_a92 out nocopy JTF_VARCHAR2_TABLE_100
1327 , p6_a93 out nocopy JTF_DATE_TABLE
1328 , p7_a0 out nocopy JTF_NUMBER_TABLE
1329 , p7_a1 out nocopy JTF_NUMBER_TABLE
1330 , p7_a2 out nocopy JTF_NUMBER_TABLE
1331 , p7_a3 out nocopy JTF_NUMBER_TABLE
1332 , p7_a4 out nocopy JTF_NUMBER_TABLE
1333 , p7_a5 out nocopy JTF_NUMBER_TABLE
1334 , p7_a6 out nocopy JTF_NUMBER_TABLE
1335 , p7_a7 out nocopy JTF_NUMBER_TABLE
1336 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
1337 , p7_a9 out nocopy JTF_NUMBER_TABLE
1338 , p7_a10 out nocopy JTF_VARCHAR2_TABLE_2000
1339 , p7_a11 out nocopy JTF_NUMBER_TABLE
1340 , p7_a12 out nocopy JTF_VARCHAR2_TABLE_200
1341 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_100
1342 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
1343 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_500
1344 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_500
1345 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_500
1346 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_500
1347 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_500
1348 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_500
1349 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_500
1350 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_500
1351 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_500
1352 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_500
1353 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_500
1354 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_500
1355 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_500
1356 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_500
1357 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_500
1358 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_100
1359 , p7_a31 out nocopy JTF_NUMBER_TABLE
1360 , p7_a32 out nocopy JTF_DATE_TABLE
1361 , p7_a33 out nocopy JTF_NUMBER_TABLE
1362 , p7_a34 out nocopy JTF_DATE_TABLE
1363 , p7_a35 out nocopy JTF_NUMBER_TABLE
1364 , p7_a36 out nocopy JTF_NUMBER_TABLE
1365 , p7_a37 out nocopy JTF_NUMBER_TABLE
1366 , p7_a38 out nocopy JTF_NUMBER_TABLE
1367 , p7_a39 out nocopy JTF_DATE_TABLE
1368 , p7_a40 out nocopy JTF_NUMBER_TABLE
1369 , p7_a41 out nocopy JTF_NUMBER_TABLE
1370 , p7_a42 out nocopy JTF_NUMBER_TABLE
1371 , p7_a43 out nocopy JTF_NUMBER_TABLE
1372 , p7_a44 out nocopy JTF_NUMBER_TABLE
1373 , p7_a45 out nocopy JTF_VARCHAR2_TABLE_100
1374 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_200
1375 , p7_a47 out nocopy JTF_NUMBER_TABLE
1376 , p7_a48 out nocopy JTF_VARCHAR2_TABLE_200
1377 , p7_a49 out nocopy JTF_NUMBER_TABLE
1378 , p7_a50 out nocopy JTF_VARCHAR2_TABLE_200
1379 , p7_a51 out nocopy JTF_NUMBER_TABLE
1380 , p7_a52 out nocopy JTF_DATE_TABLE
1381 , p7_a53 out nocopy JTF_NUMBER_TABLE
1382 , p7_a54 out nocopy JTF_VARCHAR2_TABLE_200
1383 , p7_a55 out nocopy JTF_VARCHAR2_TABLE_300
1384 , p7_a56 out nocopy JTF_VARCHAR2_TABLE_100
1385 , p7_a57 out nocopy JTF_VARCHAR2_TABLE_100
1386 , p8_a0 out nocopy JTF_NUMBER_TABLE
1387 , p8_a1 out nocopy JTF_NUMBER_TABLE
1388 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
1389 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
1390 , p8_a4 out nocopy JTF_VARCHAR2_TABLE_100
1391 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
1392 , p8_a6 out nocopy JTF_NUMBER_TABLE
1393 , p8_a7 out nocopy JTF_NUMBER_TABLE
1394 , p8_a8 out nocopy JTF_NUMBER_TABLE
1395 , p8_a9 out nocopy JTF_NUMBER_TABLE
1396 , p8_a10 out nocopy JTF_NUMBER_TABLE
1397 , p8_a11 out nocopy JTF_NUMBER_TABLE
1398 , p8_a12 out nocopy JTF_VARCHAR2_TABLE_100
1399 , p8_a13 out nocopy JTF_VARCHAR2_TABLE_100
1400 , p8_a14 out nocopy JTF_DATE_TABLE
1401 , p8_a15 out nocopy JTF_VARCHAR2_TABLE_100
1402 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_100
1403 , p8_a17 out nocopy JTF_NUMBER_TABLE
1404 , p8_a18 out nocopy JTF_VARCHAR2_TABLE_200
1405 , p8_a19 out nocopy JTF_VARCHAR2_TABLE_100
1406 , p8_a20 out nocopy JTF_VARCHAR2_TABLE_500
1407 , p8_a21 out nocopy JTF_VARCHAR2_TABLE_500
1408 , p8_a22 out nocopy JTF_VARCHAR2_TABLE_500
1409 , p8_a23 out nocopy JTF_VARCHAR2_TABLE_500
1410 , p8_a24 out nocopy JTF_VARCHAR2_TABLE_500
1411 , p8_a25 out nocopy JTF_VARCHAR2_TABLE_500
1412 , p8_a26 out nocopy JTF_VARCHAR2_TABLE_500
1413 , p8_a27 out nocopy JTF_VARCHAR2_TABLE_500
1414 , p8_a28 out nocopy JTF_VARCHAR2_TABLE_500
1415 , p8_a29 out nocopy JTF_VARCHAR2_TABLE_500
1416 , p8_a30 out nocopy JTF_VARCHAR2_TABLE_500
1417 , p8_a31 out nocopy JTF_VARCHAR2_TABLE_500
1418 , p8_a32 out nocopy JTF_VARCHAR2_TABLE_500
1419 , p8_a33 out nocopy JTF_VARCHAR2_TABLE_500
1420 , p8_a34 out nocopy JTF_VARCHAR2_TABLE_500
1421 , p8_a35 out nocopy JTF_VARCHAR2_TABLE_100
1422 , p8_a36 out nocopy JTF_VARCHAR2_TABLE_100
1423 , p8_a37 out nocopy JTF_NUMBER_TABLE
1424 , p8_a38 out nocopy JTF_VARCHAR2_TABLE_100
1425 , p8_a39 out nocopy JTF_NUMBER_TABLE
1426 , p8_a40 out nocopy JTF_VARCHAR2_TABLE_100
1427 , p8_a41 out nocopy JTF_VARCHAR2_TABLE_100
1428 , p8_a42 out nocopy JTF_NUMBER_TABLE
1429 , p8_a43 out nocopy JTF_NUMBER_TABLE
1430 , p8_a44 out nocopy JTF_NUMBER_TABLE
1431 , p8_a45 out nocopy JTF_NUMBER_TABLE
1432 , p8_a46 out nocopy JTF_NUMBER_TABLE
1433 , p8_a47 out nocopy JTF_NUMBER_TABLE
1434 , p8_a48 out nocopy JTF_DATE_TABLE
1435 , p8_a49 out nocopy JTF_NUMBER_TABLE
1436 , p8_a50 out nocopy JTF_DATE_TABLE
1437 , p8_a51 out nocopy JTF_NUMBER_TABLE
1438 , p8_a52 out nocopy JTF_DATE_TABLE
1439 , p8_a53 out nocopy JTF_NUMBER_TABLE
1440 , p8_a54 out nocopy JTF_NUMBER_TABLE
1441 , p8_a55 out nocopy JTF_VARCHAR2_TABLE_100
1442 , p8_a56 out nocopy JTF_NUMBER_TABLE
1443 , p8_a57 out nocopy JTF_VARCHAR2_TABLE_2000
1444 , p8_a58 out nocopy JTF_DATE_TABLE
1445 , p8_a59 out nocopy JTF_VARCHAR2_TABLE_100
1446 , p8_a60 out nocopy JTF_VARCHAR2_TABLE_100
1447 , p8_a61 out nocopy JTF_VARCHAR2_TABLE_100
1448 , p8_a62 out nocopy JTF_VARCHAR2_TABLE_100
1449 , p8_a63 out nocopy JTF_VARCHAR2_TABLE_100
1450 , p8_a64 out nocopy JTF_VARCHAR2_TABLE_100
1451 , p8_a65 out nocopy JTF_VARCHAR2_TABLE_100
1452 , p8_a66 out nocopy JTF_VARCHAR2_TABLE_100
1453 , p8_a67 out nocopy JTF_VARCHAR2_TABLE_100
1454 , p8_a68 out nocopy JTF_VARCHAR2_TABLE_100
1455 , p8_a69 out nocopy JTF_VARCHAR2_TABLE_100
1456 , p8_a70 out nocopy JTF_VARCHAR2_TABLE_100
1457 , p8_a71 out nocopy JTF_VARCHAR2_TABLE_100
1458 , p8_a72 out nocopy JTF_VARCHAR2_TABLE_100
1459 , p8_a73 out nocopy JTF_VARCHAR2_TABLE_100
1460 , p8_a74 out nocopy JTF_VARCHAR2_TABLE_100
1461 , p8_a75 out nocopy JTF_VARCHAR2_TABLE_100
1462 , p8_a76 out nocopy JTF_VARCHAR2_TABLE_100
1463 , p8_a77 out nocopy JTF_NUMBER_TABLE
1464 , p8_a78 out nocopy JTF_DATE_TABLE
1465 , p8_a79 out nocopy JTF_NUMBER_TABLE
1466 , p8_a80 out nocopy JTF_NUMBER_TABLE
1467 , p8_a81 out nocopy JTF_VARCHAR2_TABLE_100
1468 , p8_a82 out nocopy JTF_DATE_TABLE
1469 , p8_a83 out nocopy JTF_NUMBER_TABLE
1470 , p8_a84 out nocopy JTF_DATE_TABLE
1471 , p8_a85 out nocopy JTF_VARCHAR2_TABLE_100
1472 , p8_a86 out nocopy JTF_VARCHAR2_TABLE_200
1473 , p8_a87 out nocopy JTF_VARCHAR2_TABLE_100
1474 , p8_a88 out nocopy JTF_VARCHAR2_TABLE_200
1475 , p8_a89 out nocopy JTF_VARCHAR2_TABLE_100
1476 , p8_a90 out nocopy JTF_VARCHAR2_TABLE_100
1477 , p8_a91 out nocopy JTF_VARCHAR2_TABLE_100
1478 , p8_a92 out nocopy JTF_VARCHAR2_TABLE_100
1479 , p8_a93 out nocopy JTF_DATE_TABLE
1480 , p9_a0 out nocopy JTF_NUMBER_TABLE
1481 , p9_a1 out nocopy JTF_NUMBER_TABLE
1482 , p9_a2 out nocopy JTF_NUMBER_TABLE
1483 , p9_a3 out nocopy JTF_NUMBER_TABLE
1484 , p9_a4 out nocopy JTF_NUMBER_TABLE
1485 , p9_a5 out nocopy JTF_NUMBER_TABLE
1486 , p9_a6 out nocopy JTF_NUMBER_TABLE
1487 , p9_a7 out nocopy JTF_NUMBER_TABLE
1488 , p9_a8 out nocopy JTF_VARCHAR2_TABLE_100
1489 , p9_a9 out nocopy JTF_NUMBER_TABLE
1490 , p9_a10 out nocopy JTF_VARCHAR2_TABLE_2000
1491 , p9_a11 out nocopy JTF_NUMBER_TABLE
1492 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_200
1493 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
1494 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
1495 , p9_a15 out nocopy JTF_VARCHAR2_TABLE_500
1496 , p9_a16 out nocopy JTF_VARCHAR2_TABLE_500
1497 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_500
1498 , p9_a18 out nocopy JTF_VARCHAR2_TABLE_500
1499 , p9_a19 out nocopy JTF_VARCHAR2_TABLE_500
1500 , p9_a20 out nocopy JTF_VARCHAR2_TABLE_500
1501 , p9_a21 out nocopy JTF_VARCHAR2_TABLE_500
1502 , p9_a22 out nocopy JTF_VARCHAR2_TABLE_500
1503 , p9_a23 out nocopy JTF_VARCHAR2_TABLE_500
1504 , p9_a24 out nocopy JTF_VARCHAR2_TABLE_500
1505 , p9_a25 out nocopy JTF_VARCHAR2_TABLE_500
1506 , p9_a26 out nocopy JTF_VARCHAR2_TABLE_500
1507 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_500
1508 , p9_a28 out nocopy JTF_VARCHAR2_TABLE_500
1509 , p9_a29 out nocopy JTF_VARCHAR2_TABLE_500
1510 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_100
1511 , p9_a31 out nocopy JTF_NUMBER_TABLE
1512 , p9_a32 out nocopy JTF_DATE_TABLE
1513 , p9_a33 out nocopy JTF_NUMBER_TABLE
1514 , p9_a34 out nocopy JTF_DATE_TABLE
1515 , p9_a35 out nocopy JTF_NUMBER_TABLE
1516 , p9_a36 out nocopy JTF_NUMBER_TABLE
1517 , p9_a37 out nocopy JTF_NUMBER_TABLE
1518 , p9_a38 out nocopy JTF_NUMBER_TABLE
1519 , p9_a39 out nocopy JTF_DATE_TABLE
1520 , p9_a40 out nocopy JTF_NUMBER_TABLE
1521 , p9_a41 out nocopy JTF_NUMBER_TABLE
1522 , p9_a42 out nocopy JTF_NUMBER_TABLE
1523 , p9_a43 out nocopy JTF_NUMBER_TABLE
1524 , p9_a44 out nocopy JTF_NUMBER_TABLE
1525 , p9_a45 out nocopy JTF_VARCHAR2_TABLE_100
1526 , p9_a46 out nocopy JTF_VARCHAR2_TABLE_200
1527 , p9_a47 out nocopy JTF_NUMBER_TABLE
1528 , p9_a48 out nocopy JTF_VARCHAR2_TABLE_200
1529 , p9_a49 out nocopy JTF_NUMBER_TABLE
1530 , p9_a50 out nocopy JTF_VARCHAR2_TABLE_200
1531 , p9_a51 out nocopy JTF_NUMBER_TABLE
1532 , p9_a52 out nocopy JTF_DATE_TABLE
1533 , p9_a53 out nocopy JTF_NUMBER_TABLE
1534 , p9_a54 out nocopy JTF_VARCHAR2_TABLE_200
1535 , p9_a55 out nocopy JTF_VARCHAR2_TABLE_300
1536 , p9_a56 out nocopy JTF_VARCHAR2_TABLE_100
1537 , p9_a57 out nocopy JTF_VARCHAR2_TABLE_100
1538 , p2_a0 NUMBER := 0-1962.0724
1539 , p2_a1 NUMBER := 0-1962.0724
1540 , p2_a2 NUMBER := 0-1962.0724
1541 , p2_a3 DATE := fnd_api.g_miss_date
1542 , p2_a4 DATE := fnd_api.g_miss_date
1543 , p2_a5 DATE := fnd_api.g_miss_date
1544 , p2_a6 VARCHAR2 := fnd_api.g_miss_char
1545 , p2_a7 VARCHAR2 := fnd_api.g_miss_char
1546 , p2_a8 VARCHAR2 := fnd_api.g_miss_char
1547 , p2_a9 VARCHAR2 := fnd_api.g_miss_char
1548 , p2_a10 NUMBER := 0-1962.0724
1549 , p2_a11 VARCHAR2 := fnd_api.g_miss_char
1550 , p2_a12 VARCHAR2 := fnd_api.g_miss_char
1551 , p2_a13 NUMBER := 0-1962.0724
1552 , p2_a14 DATE := fnd_api.g_miss_date
1553 , p2_a15 NUMBER := 0-1962.0724
1554 , p2_a16 NUMBER := 0-1962.0724
1555 , p2_a17 VARCHAR2 := fnd_api.g_miss_char
1556 , p2_a18 VARCHAR2 := fnd_api.g_miss_char
1557 , p2_a19 VARCHAR2 := fnd_api.g_miss_char
1558 , p2_a20 VARCHAR2 := fnd_api.g_miss_char
1559 , p2_a21 VARCHAR2 := fnd_api.g_miss_char
1560 , p2_a22 VARCHAR2 := fnd_api.g_miss_char
1561 , p2_a23 VARCHAR2 := fnd_api.g_miss_char
1562 , p2_a24 NUMBER := 0-1962.0724
1563 , p2_a25 VARCHAR2 := fnd_api.g_miss_char
1564 , p2_a26 DATE := fnd_api.g_miss_date
1565 )
1566
1567 as
1568 ddp_reverse_rec okl_generate_accruals_pvt.accrual_rec_type;
1569 ddx_rev_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
1570 ddx_rev_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
1571 ddx_memo_tcnv_tbl okl_trx_contracts_pub.tcnv_tbl_type;
1572 ddx_memo_tclv_tbl okl_trx_contracts_pub.tclv_tbl_type;
1573 ddindx binary_integer; indx binary_integer;
1574 begin
1575
1576 -- copy data to the local IN or IN-OUT args, if any
1577
1578
1579 ddp_reverse_rec.contract_id := rosetta_g_miss_num_map(p2_a0);
1580 ddp_reverse_rec.sty_id := rosetta_g_miss_num_map(p2_a1);
1581 ddp_reverse_rec.set_of_books_id := rosetta_g_miss_num_map(p2_a2);
1582 ddp_reverse_rec.reverse_date_to := rosetta_g_miss_date_in_map(p2_a3);
1583 ddp_reverse_rec.accrual_date := rosetta_g_miss_date_in_map(p2_a4);
1584 ddp_reverse_rec.trx_date := rosetta_g_miss_date_in_map(p2_a5);
1585 ddp_reverse_rec.contract_number := p2_a6;
1586 ddp_reverse_rec.rule_result := p2_a7;
1587 ddp_reverse_rec.override_status := p2_a8;
1588 ddp_reverse_rec.description := p2_a9;
1589 ddp_reverse_rec.amount := rosetta_g_miss_num_map(p2_a10);
1590 ddp_reverse_rec.currency_code := p2_a11;
1591 ddp_reverse_rec.currency_conversion_type := p2_a12;
1592 ddp_reverse_rec.currency_conversion_rate := rosetta_g_miss_num_map(p2_a13);
1593 ddp_reverse_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p2_a14);
1594 ddp_reverse_rec.product_id := rosetta_g_miss_num_map(p2_a15);
1595 ddp_reverse_rec.trx_type_id := rosetta_g_miss_num_map(p2_a16);
1596 ddp_reverse_rec.advance_arrears := p2_a17;
1597 ddp_reverse_rec.factoring_synd_flag := p2_a18;
1598 ddp_reverse_rec.post_to_gl := p2_a19;
1599 ddp_reverse_rec.gl_reversal_flag := p2_a20;
1600 ddp_reverse_rec.memo_yn := p2_a21;
1601 ddp_reverse_rec.accrual_activity := p2_a22;
1602 ddp_reverse_rec.accrual_rule_yn := p2_a23;
1603 ddp_reverse_rec.source_trx_id := rosetta_g_miss_num_map(p2_a24);
1604 ddp_reverse_rec.source_trx_type := p2_a25;
1605 ddp_reverse_rec.accrual_reversal_date := rosetta_g_miss_date_in_map(p2_a26);
1606
1607
1608
1609
1610
1611
1612
1613
1614 -- here's the delegated call to the old PL/SQL routine
1615 okl_generate_accruals_pvt.reverse_accruals(p_api_version,
1616 p_init_msg_list,
1617 ddp_reverse_rec,
1618 x_return_status,
1619 x_msg_count,
1620 x_msg_data,
1621 ddx_rev_tcnv_tbl,
1622 ddx_rev_tclv_tbl,
1623 ddx_memo_tcnv_tbl,
1624 ddx_memo_tclv_tbl);
1625
1626 -- copy data back from the local variables to OUT or IN-OUT args, if any
1627
1628
1629
1630
1631
1632
1633 okl_tcn_pvt_w.rosetta_table_copy_out_p5(ddx_rev_tcnv_tbl, p6_a0
1634 , p6_a1
1635 , p6_a2
1636 , p6_a3
1637 , p6_a4
1638 , p6_a5
1639 , p6_a6
1640 , p6_a7
1641 , p6_a8
1642 , p6_a9
1643 , p6_a10
1644 , p6_a11
1645 , p6_a12
1646 , p6_a13
1647 , p6_a14
1648 , p6_a15
1649 , p6_a16
1650 , p6_a17
1651 , p6_a18
1652 , p6_a19
1653 , p6_a20
1654 , p6_a21
1655 , p6_a22
1656 , p6_a23
1657 , p6_a24
1658 , p6_a25
1659 , p6_a26
1660 , p6_a27
1661 , p6_a28
1662 , p6_a29
1663 , p6_a30
1664 , p6_a31
1665 , p6_a32
1666 , p6_a33
1667 , p6_a34
1668 , p6_a35
1669 , p6_a36
1670 , p6_a37
1671 , p6_a38
1672 , p6_a39
1673 , p6_a40
1674 , p6_a41
1675 , p6_a42
1676 , p6_a43
1677 , p6_a44
1678 , p6_a45
1679 , p6_a46
1680 , p6_a47
1681 , p6_a48
1682 , p6_a49
1683 , p6_a50
1684 , p6_a51
1685 , p6_a52
1686 , p6_a53
1687 , p6_a54
1688 , p6_a55
1689 , p6_a56
1690 , p6_a57
1691 , p6_a58
1692 , p6_a59
1693 , p6_a60
1694 , p6_a61
1695 , p6_a62
1696 , p6_a63
1697 , p6_a64
1698 , p6_a65
1699 , p6_a66
1700 , p6_a67
1701 , p6_a68
1702 , p6_a69
1703 , p6_a70
1704 , p6_a71
1705 , p6_a72
1706 , p6_a73
1707 , p6_a74
1708 , p6_a75
1709 , p6_a76
1710 , p6_a77
1711 , p6_a78
1712 , p6_a79
1713 , p6_a80
1714 , p6_a81
1715 , p6_a82
1716 , p6_a83
1717 , p6_a84
1718 , p6_a85
1719 , p6_a86
1720 , p6_a87
1721 , p6_a88
1722 , p6_a89
1723 , p6_a90
1724 , p6_a91
1725 , p6_a92
1726 , p6_a93
1727 );
1728
1729 okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_rev_tclv_tbl, p7_a0
1730 , p7_a1
1731 , p7_a2
1732 , p7_a3
1733 , p7_a4
1734 , p7_a5
1735 , p7_a6
1736 , p7_a7
1737 , p7_a8
1738 , p7_a9
1739 , p7_a10
1740 , p7_a11
1741 , p7_a12
1742 , p7_a13
1743 , p7_a14
1744 , p7_a15
1745 , p7_a16
1746 , p7_a17
1747 , p7_a18
1748 , p7_a19
1749 , p7_a20
1750 , p7_a21
1751 , p7_a22
1752 , p7_a23
1753 , p7_a24
1754 , p7_a25
1755 , p7_a26
1756 , p7_a27
1757 , p7_a28
1758 , p7_a29
1759 , p7_a30
1760 , p7_a31
1761 , p7_a32
1762 , p7_a33
1763 , p7_a34
1764 , p7_a35
1765 , p7_a36
1766 , p7_a37
1767 , p7_a38
1768 , p7_a39
1769 , p7_a40
1770 , p7_a41
1771 , p7_a42
1772 , p7_a43
1773 , p7_a44
1774 , p7_a45
1775 , p7_a46
1776 , p7_a47
1777 , p7_a48
1778 , p7_a49
1779 , p7_a50
1780 , p7_a51
1781 , p7_a52
1782 , p7_a53
1783 , p7_a54
1784 , p7_a55
1785 , p7_a56
1786 , p7_a57
1787 );
1788
1789 okl_tcn_pvt_w.rosetta_table_copy_out_p5(ddx_memo_tcnv_tbl, p8_a0
1790 , p8_a1
1791 , p8_a2
1792 , p8_a3
1793 , p8_a4
1794 , p8_a5
1795 , p8_a6
1796 , p8_a7
1797 , p8_a8
1798 , p8_a9
1799 , p8_a10
1800 , p8_a11
1801 , p8_a12
1802 , p8_a13
1803 , p8_a14
1804 , p8_a15
1805 , p8_a16
1806 , p8_a17
1807 , p8_a18
1808 , p8_a19
1809 , p8_a20
1810 , p8_a21
1811 , p8_a22
1812 , p8_a23
1813 , p8_a24
1814 , p8_a25
1815 , p8_a26
1816 , p8_a27
1817 , p8_a28
1818 , p8_a29
1819 , p8_a30
1820 , p8_a31
1821 , p8_a32
1822 , p8_a33
1823 , p8_a34
1824 , p8_a35
1825 , p8_a36
1826 , p8_a37
1827 , p8_a38
1828 , p8_a39
1829 , p8_a40
1830 , p8_a41
1831 , p8_a42
1832 , p8_a43
1833 , p8_a44
1834 , p8_a45
1835 , p8_a46
1836 , p8_a47
1837 , p8_a48
1838 , p8_a49
1839 , p8_a50
1840 , p8_a51
1841 , p8_a52
1842 , p8_a53
1843 , p8_a54
1844 , p8_a55
1845 , p8_a56
1846 , p8_a57
1847 , p8_a58
1848 , p8_a59
1849 , p8_a60
1850 , p8_a61
1851 , p8_a62
1852 , p8_a63
1853 , p8_a64
1854 , p8_a65
1855 , p8_a66
1856 , p8_a67
1857 , p8_a68
1858 , p8_a69
1859 , p8_a70
1860 , p8_a71
1861 , p8_a72
1862 , p8_a73
1863 , p8_a74
1864 , p8_a75
1865 , p8_a76
1866 , p8_a77
1867 , p8_a78
1868 , p8_a79
1869 , p8_a80
1870 , p8_a81
1871 , p8_a82
1872 , p8_a83
1873 , p8_a84
1874 , p8_a85
1875 , p8_a86
1876 , p8_a87
1877 , p8_a88
1878 , p8_a89
1879 , p8_a90
1880 , p8_a91
1881 , p8_a92
1882 , p8_a93
1883 );
1884
1885 okl_tcl_pvt_w.rosetta_table_copy_out_p5(ddx_memo_tclv_tbl, p9_a0
1886 , p9_a1
1887 , p9_a2
1888 , p9_a3
1889 , p9_a4
1890 , p9_a5
1891 , p9_a6
1892 , p9_a7
1893 , p9_a8
1894 , p9_a9
1895 , p9_a10
1896 , p9_a11
1897 , p9_a12
1898 , p9_a13
1899 , p9_a14
1900 , p9_a15
1901 , p9_a16
1902 , p9_a17
1903 , p9_a18
1904 , p9_a19
1905 , p9_a20
1906 , p9_a21
1907 , p9_a22
1908 , p9_a23
1909 , p9_a24
1910 , p9_a25
1911 , p9_a26
1912 , p9_a27
1913 , p9_a28
1914 , p9_a29
1915 , p9_a30
1916 , p9_a31
1917 , p9_a32
1918 , p9_a33
1919 , p9_a34
1920 , p9_a35
1921 , p9_a36
1922 , p9_a37
1923 , p9_a38
1924 , p9_a39
1925 , p9_a40
1926 , p9_a41
1927 , p9_a42
1928 , p9_a43
1929 , p9_a44
1930 , p9_a45
1931 , p9_a46
1932 , p9_a47
1933 , p9_a48
1934 , p9_a49
1935 , p9_a50
1936 , p9_a51
1937 , p9_a52
1938 , p9_a53
1939 , p9_a54
1940 , p9_a55
1941 , p9_a56
1942 , p9_a57
1943 );
1944 end;
1945
1946 procedure accelerate_accruals(p_api_version NUMBER
1947 , p_init_msg_list VARCHAR2
1948 , x_return_status out nocopy VARCHAR2
1949 , x_msg_count out nocopy NUMBER
1950 , x_msg_data out nocopy VARCHAR2
1951 , p5_a0 NUMBER := 0-1962.0724
1952 , p5_a1 NUMBER := 0-1962.0724
1953 , p5_a2 NUMBER := 0-1962.0724
1954 , p5_a3 DATE := fnd_api.g_miss_date
1955 , p5_a4 DATE := fnd_api.g_miss_date
1956 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1957 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1958 , p5_a7 DATE := fnd_api.g_miss_date
1959 , p5_a8 VARCHAR2
1960 , p_representation_type VARCHAR2
1961 , x_trx_number out nocopy VARCHAR2
1962 )
1963
1964 as
1965 ddp_acceleration_rec okl_generate_accruals_pvt.acceleration_rec_type;
1966 ddindx binary_integer; indx binary_integer;
1967 begin
1968
1969 -- copy data to the local IN or IN-OUT args, if any
1970
1971
1972
1973
1974
1975 ddp_acceleration_rec.khr_id := rosetta_g_miss_num_map(p5_a0);
1976 ddp_acceleration_rec.kle_id := rosetta_g_miss_num_map(p5_a1);
1977 ddp_acceleration_rec.sty_id := rosetta_g_miss_num_map(p5_a2);
1978 ddp_acceleration_rec.acceleration_date := rosetta_g_miss_date_in_map(p5_a3);
1979 ddp_acceleration_rec.accelerate_till_date := rosetta_g_miss_date_in_map(p5_a4);
1980 ddp_acceleration_rec.description := p5_a5;
1981 ddp_acceleration_rec.accrual_rule_yn := p5_a6;
1982 ddp_acceleration_rec.accelerate_from_date := rosetta_g_miss_date_in_map(p5_a7);
1983 ddp_acceleration_rec.trx_number := p5_a8;
1984
1985 -- here's the delegated call to the old PL/SQL routine
1986 okl_generate_accruals_pvt.accelerate_accruals(p_api_version,
1987 p_init_msg_list,
1988 x_return_status,
1989 x_msg_count,
1990 x_msg_data,
1991 ddp_acceleration_rec,
1992 p_representation_type,
1993 x_trx_number);
1994
1995 -- copy data back from the local variables to OUT or IN-OUT args, if any
1996
1997
1998
1999
2000
2001 end;
2002
2003 procedure adjust_accruals(p_api_version NUMBER
2004 , p_init_msg_list VARCHAR2
2005 , x_return_status out nocopy VARCHAR2
2006 , x_msg_count out nocopy NUMBER
2007 , x_msg_data out nocopy VARCHAR2
2008 , x_trx_number out nocopy VARCHAR2
2009 , p7_a0 JTF_NUMBER_TABLE
2010 , p7_a1 JTF_VARCHAR2_TABLE_200
2011 , p7_a2 JTF_NUMBER_TABLE
2012 , p7_a3 JTF_NUMBER_TABLE
2013 , p7_a4 JTF_NUMBER_TABLE
2014 , p7_a5 JTF_NUMBER_TABLE
2015 , p6_a0 NUMBER := 0-1962.0724
2016 , p6_a1 DATE := fnd_api.g_miss_date
2017 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
2018 , p6_a3 NUMBER := 0-1962.0724
2019 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
2020 )
2021
2022 as
2023 ddp_accrual_rec okl_generate_accruals_pvt.adjust_accrual_rec_type;
2024 ddp_stream_tbl okl_generate_accruals_pvt.stream_tbl_type;
2025 ddindx binary_integer; indx binary_integer;
2026 begin
2027
2028 -- copy data to the local IN or IN-OUT args, if any
2029
2030
2031
2032
2033
2034
2035 ddp_accrual_rec.contract_id := rosetta_g_miss_num_map(p6_a0);
2036 ddp_accrual_rec.accrual_date := rosetta_g_miss_date_in_map(p6_a1);
2037 ddp_accrual_rec.description := p6_a2;
2038 ddp_accrual_rec.source_trx_id := rosetta_g_miss_num_map(p6_a3);
2039 ddp_accrual_rec.source_trx_type := p6_a4;
2040
2041 okl_generate_accruals_pvt_w.rosetta_table_copy_in_p4(ddp_stream_tbl, p7_a0
2042 , p7_a1
2043 , p7_a2
2044 , p7_a3
2045 , p7_a4
2046 , p7_a5
2047 );
2048
2049 -- here's the delegated call to the old PL/SQL routine
2050 okl_generate_accruals_pvt.adjust_accruals(p_api_version,
2051 p_init_msg_list,
2052 x_return_status,
2053 x_msg_count,
2054 x_msg_data,
2055 x_trx_number,
2056 ddp_accrual_rec,
2057 ddp_stream_tbl);
2058
2059 -- copy data back from the local variables to OUT or IN-OUT args, if any
2060
2061
2062
2063
2064
2065
2066
2067 end;
2068
2069 procedure generate_accruals(p_api_version NUMBER
2070 , p_init_msg_list VARCHAR2
2071 , x_return_status out nocopy VARCHAR2
2072 , x_msg_count out nocopy NUMBER
2073 , x_msg_data out nocopy VARCHAR2
2074 , p5_a0 NUMBER := 0-1962.0724
2075 , p5_a1 DATE := fnd_api.g_miss_date
2076 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
2077 , p5_a3 NUMBER := 0-1962.0724
2078 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
2079 )
2080
2081 as
2082 ddp_accrual_rec okl_generate_accruals_pvt.adjust_accrual_rec_type;
2083 ddindx binary_integer; indx binary_integer;
2084 begin
2085
2086 -- copy data to the local IN or IN-OUT args, if any
2087
2088
2089
2090
2091
2092 ddp_accrual_rec.contract_id := rosetta_g_miss_num_map(p5_a0);
2093 ddp_accrual_rec.accrual_date := rosetta_g_miss_date_in_map(p5_a1);
2094 ddp_accrual_rec.description := p5_a2;
2095 ddp_accrual_rec.source_trx_id := rosetta_g_miss_num_map(p5_a3);
2096 ddp_accrual_rec.source_trx_type := p5_a4;
2097
2098 -- here's the delegated call to the old PL/SQL routine
2099 okl_generate_accruals_pvt.generate_accruals(p_api_version,
2100 p_init_msg_list,
2101 x_return_status,
2102 x_msg_count,
2103 x_msg_data,
2104 ddp_accrual_rec);
2105
2106 -- copy data back from the local variables to OUT or IN-OUT args, if any
2107
2108
2109
2110
2111
2112 end;
2113
2114 end okl_generate_accruals_pvt_w;