[Home] [Help]
PACKAGE BODY: APPS.FUN_TRX_PVT_W
Source
1 package body fun_trx_pvt_w as
2 /* $Header: fun_trx_pvt_w_b.pls 120.6 2006/07/10 08:36:20 ashikuma noship $ */
3 procedure rosetta_table_copy_in_p5(t out nocopy fun_trx_pvt.batch_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_NUMBER_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_VARCHAR2_TABLE_100
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_300
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_VARCHAR2_TABLE_100
15 , a12 JTF_DATE_TABLE
16 , a13 JTF_DATE_TABLE
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_NUMBER_TABLE
19 , a16 JTF_VARCHAR2_TABLE_100
20 ) as
21 ddindx binary_integer; indx binary_integer;
22 begin
23 if a0 is not null and a0.count > 0 then
24 if a0.count > 0 then
25 indx := a0.first;
26 ddindx := 1;
27 while true loop
28 t(ddindx).batch_id := a0(indx);
29 t(ddindx).batch_number := a1(indx);
30 t(ddindx).initiator_id := a2(indx);
31 t(ddindx).from_le_id := a3(indx);
32 t(ddindx).from_ledger_id := a4(indx);
33 t(ddindx).control_total := a5(indx);
34 t(ddindx).currency_code := a6(indx);
35 t(ddindx).exchange_rate_type := a7(indx);
36 t(ddindx).status := a8(indx);
37 t(ddindx).description := a9(indx);
38 t(ddindx).trx_type_id := a10(indx);
39 t(ddindx).trx_type_code := a11(indx);
40 t(ddindx).gl_date := a12(indx);
41 t(ddindx).batch_date := a13(indx);
42 t(ddindx).reject_allowed := a14(indx);
43 t(ddindx).from_recurring_batch := a15(indx);
44 t(ddindx).automatic_proration_flag := a16(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_p5;
54 procedure rosetta_table_copy_out_p5(t fun_trx_pvt.batch_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
55 , a1 out nocopy JTF_VARCHAR2_TABLE_100
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 , a6 out nocopy JTF_VARCHAR2_TABLE_100
61 , a7 out nocopy JTF_VARCHAR2_TABLE_100
62 , a8 out nocopy JTF_VARCHAR2_TABLE_100
63 , a9 out nocopy JTF_VARCHAR2_TABLE_300
64 , a10 out nocopy JTF_NUMBER_TABLE
65 , a11 out nocopy JTF_VARCHAR2_TABLE_100
66 , a12 out nocopy JTF_DATE_TABLE
67 , a13 out nocopy JTF_DATE_TABLE
68 , a14 out nocopy JTF_VARCHAR2_TABLE_100
69 , a15 out nocopy JTF_NUMBER_TABLE
70 , a16 out nocopy JTF_VARCHAR2_TABLE_100
71 ) as
72 ddindx binary_integer; indx binary_integer;
73 begin
74 if t is null or t.count = 0 then
75 a0 := JTF_NUMBER_TABLE();
76 a1 := JTF_VARCHAR2_TABLE_100();
77 a2 := JTF_NUMBER_TABLE();
78 a3 := JTF_NUMBER_TABLE();
79 a4 := JTF_NUMBER_TABLE();
80 a5 := JTF_NUMBER_TABLE();
81 a6 := JTF_VARCHAR2_TABLE_100();
82 a7 := JTF_VARCHAR2_TABLE_100();
83 a8 := JTF_VARCHAR2_TABLE_100();
84 a9 := JTF_VARCHAR2_TABLE_300();
85 a10 := JTF_NUMBER_TABLE();
86 a11 := JTF_VARCHAR2_TABLE_100();
87 a12 := JTF_DATE_TABLE();
88 a13 := JTF_DATE_TABLE();
89 a14 := JTF_VARCHAR2_TABLE_100();
90 a15 := JTF_NUMBER_TABLE();
91 a16 := JTF_VARCHAR2_TABLE_100();
92 else
93 a0 := JTF_NUMBER_TABLE();
94 a1 := JTF_VARCHAR2_TABLE_100();
95 a2 := JTF_NUMBER_TABLE();
96 a3 := JTF_NUMBER_TABLE();
97 a4 := JTF_NUMBER_TABLE();
98 a5 := JTF_NUMBER_TABLE();
99 a6 := JTF_VARCHAR2_TABLE_100();
100 a7 := JTF_VARCHAR2_TABLE_100();
101 a8 := JTF_VARCHAR2_TABLE_100();
102 a9 := JTF_VARCHAR2_TABLE_300();
103 a10 := JTF_NUMBER_TABLE();
104 a11 := JTF_VARCHAR2_TABLE_100();
105 a12 := JTF_DATE_TABLE();
106 a13 := JTF_DATE_TABLE();
107 a14 := JTF_VARCHAR2_TABLE_100();
108 a15 := JTF_NUMBER_TABLE();
109 a16 := JTF_VARCHAR2_TABLE_100();
110 if t.count > 0 then
111 a0.extend(t.count);
112 a1.extend(t.count);
113 a2.extend(t.count);
114 a3.extend(t.count);
115 a4.extend(t.count);
116 a5.extend(t.count);
117 a6.extend(t.count);
118 a7.extend(t.count);
119 a8.extend(t.count);
120 a9.extend(t.count);
121 a10.extend(t.count);
122 a11.extend(t.count);
123 a12.extend(t.count);
124 a13.extend(t.count);
125 a14.extend(t.count);
126 a15.extend(t.count);
127 a16.extend(t.count);
128 ddindx := t.first;
129 indx := 1;
130 while true loop
131 a0(indx) := t(ddindx).batch_id;
132 a1(indx) := t(ddindx).batch_number;
133 a2(indx) := t(ddindx).initiator_id;
134 a3(indx) := t(ddindx).from_le_id;
135 a4(indx) := t(ddindx).from_ledger_id;
136 a5(indx) := t(ddindx).control_total;
137 a6(indx) := t(ddindx).currency_code;
138 a7(indx) := t(ddindx).exchange_rate_type;
139 a8(indx) := t(ddindx).status;
140 a9(indx) := t(ddindx).description;
141 a10(indx) := t(ddindx).trx_type_id;
142 a11(indx) := t(ddindx).trx_type_code;
143 a12(indx) := t(ddindx).gl_date;
144 a13(indx) := t(ddindx).batch_date;
145 a14(indx) := t(ddindx).reject_allowed;
146 a15(indx) := t(ddindx).from_recurring_batch;
147 a16(indx) := t(ddindx).automatic_proration_flag;
148 indx := indx+1;
149 if t.last =ddindx
150 then exit;
151 end if;
152 ddindx := t.next(ddindx);
153 end loop;
154 end if;
155 end if;
156 end rosetta_table_copy_out_p5;
157
158 procedure rosetta_table_copy_in_p6(t out nocopy fun_trx_pvt.trx_tbl_type, a0 JTF_NUMBER_TABLE
159 , a1 JTF_NUMBER_TABLE
160 , a2 JTF_NUMBER_TABLE
161 , a3 JTF_NUMBER_TABLE
162 , a4 JTF_NUMBER_TABLE
163 , a5 JTF_NUMBER_TABLE
164 , a6 JTF_VARCHAR2_TABLE_100
165 , a7 JTF_NUMBER_TABLE
166 , a8 JTF_NUMBER_TABLE
167 , a9 JTF_NUMBER_TABLE
168 , a10 JTF_NUMBER_TABLE
169 , a11 JTF_VARCHAR2_TABLE_100
170 , a12 JTF_VARCHAR2_TABLE_100
171 , a13 JTF_NUMBER_TABLE
172 , a14 JTF_DATE_TABLE
173 , a15 JTF_NUMBER_TABLE
174 , a16 JTF_NUMBER_TABLE
175 , a17 JTF_NUMBER_TABLE
176 , a18 JTF_VARCHAR2_TABLE_100
177 , a19 JTF_VARCHAR2_TABLE_100
178 , a20 JTF_VARCHAR2_TABLE_100
179 , a21 JTF_VARCHAR2_TABLE_100
180 ) as
181 ddindx binary_integer; indx binary_integer;
182 begin
183 if a0 is not null and a0.count > 0 then
184 if a0.count > 0 then
185 indx := a0.first;
186 ddindx := 1;
187 while true loop
188 t(ddindx).trx_id := a0(indx);
189 t(ddindx).initiator_id := a1(indx);
190 t(ddindx).recipient_id := a2(indx);
191 t(ddindx).to_le_id := a3(indx);
192 t(ddindx).to_ledger_id := a4(indx);
193 t(ddindx).batch_id := a5(indx);
194 t(ddindx).status := a6(indx);
195 t(ddindx).init_amount_cr := a7(indx);
196 t(ddindx).init_amount_dr := a8(indx);
197 t(ddindx).reci_amount_cr := a9(indx);
198 t(ddindx).reci_amount_dr := a10(indx);
199 t(ddindx).ar_invoice_number := a11(indx);
200 t(ddindx).invoicing_rule := a12(indx);
201 t(ddindx).approver_id := a13(indx);
202 t(ddindx).approval_date := a14(indx);
203 t(ddindx).original_trx_id := a15(indx);
204 t(ddindx).reversed_trx_id := a16(indx);
205 t(ddindx).from_recurring_trx_id := a17(indx);
206 t(ddindx).initiator_instance := a18(indx);
207 t(ddindx).recipient_instance := a19(indx);
208 t(ddindx).automatic_proration_flag := a20(indx);
209 t(ddindx).trx_number := a21(indx);
210 ddindx := ddindx+1;
211 if a0.last =indx
212 then exit;
213 end if;
214 indx := a0.next(indx);
215 end loop;
216 end if;
217 end if;
218 end rosetta_table_copy_in_p6;
219 procedure rosetta_table_copy_out_p6(t fun_trx_pvt.trx_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
220 , a1 out nocopy JTF_NUMBER_TABLE
221 , a2 out nocopy JTF_NUMBER_TABLE
222 , a3 out nocopy JTF_NUMBER_TABLE
223 , a4 out nocopy JTF_NUMBER_TABLE
224 , a5 out nocopy JTF_NUMBER_TABLE
225 , a6 out nocopy JTF_VARCHAR2_TABLE_100
226 , a7 out nocopy JTF_NUMBER_TABLE
227 , a8 out nocopy JTF_NUMBER_TABLE
228 , a9 out nocopy JTF_NUMBER_TABLE
229 , a10 out nocopy JTF_NUMBER_TABLE
230 , a11 out nocopy JTF_VARCHAR2_TABLE_100
231 , a12 out nocopy JTF_VARCHAR2_TABLE_100
232 , a13 out nocopy JTF_NUMBER_TABLE
233 , a14 out nocopy JTF_DATE_TABLE
234 , a15 out nocopy JTF_NUMBER_TABLE
235 , a16 out nocopy JTF_NUMBER_TABLE
236 , a17 out nocopy JTF_NUMBER_TABLE
237 , a18 out nocopy JTF_VARCHAR2_TABLE_100
238 , a19 out nocopy JTF_VARCHAR2_TABLE_100
239 , a20 out nocopy JTF_VARCHAR2_TABLE_100
240 , a21 out nocopy JTF_VARCHAR2_TABLE_100
241 ) as
242 ddindx binary_integer; indx binary_integer;
243 begin
244 if t is null or t.count = 0 then
245 a0 := JTF_NUMBER_TABLE();
246 a1 := JTF_NUMBER_TABLE();
247 a2 := JTF_NUMBER_TABLE();
248 a3 := JTF_NUMBER_TABLE();
249 a4 := JTF_NUMBER_TABLE();
250 a5 := JTF_NUMBER_TABLE();
251 a6 := JTF_VARCHAR2_TABLE_100();
252 a7 := JTF_NUMBER_TABLE();
253 a8 := JTF_NUMBER_TABLE();
254 a9 := JTF_NUMBER_TABLE();
255 a10 := JTF_NUMBER_TABLE();
256 a11 := JTF_VARCHAR2_TABLE_100();
257 a12 := JTF_VARCHAR2_TABLE_100();
258 a13 := JTF_NUMBER_TABLE();
259 a14 := JTF_DATE_TABLE();
260 a15 := JTF_NUMBER_TABLE();
261 a16 := JTF_NUMBER_TABLE();
262 a17 := JTF_NUMBER_TABLE();
263 a18 := JTF_VARCHAR2_TABLE_100();
264 a19 := JTF_VARCHAR2_TABLE_100();
265 a20 := JTF_VARCHAR2_TABLE_100();
266 a21 := JTF_VARCHAR2_TABLE_100();
267 else
268 a0 := JTF_NUMBER_TABLE();
269 a1 := JTF_NUMBER_TABLE();
270 a2 := JTF_NUMBER_TABLE();
271 a3 := JTF_NUMBER_TABLE();
272 a4 := JTF_NUMBER_TABLE();
273 a5 := JTF_NUMBER_TABLE();
274 a6 := JTF_VARCHAR2_TABLE_100();
275 a7 := JTF_NUMBER_TABLE();
276 a8 := JTF_NUMBER_TABLE();
277 a9 := JTF_NUMBER_TABLE();
278 a10 := JTF_NUMBER_TABLE();
279 a11 := JTF_VARCHAR2_TABLE_100();
280 a12 := JTF_VARCHAR2_TABLE_100();
281 a13 := JTF_NUMBER_TABLE();
282 a14 := JTF_DATE_TABLE();
283 a15 := JTF_NUMBER_TABLE();
284 a16 := JTF_NUMBER_TABLE();
285 a17 := JTF_NUMBER_TABLE();
286 a18 := JTF_VARCHAR2_TABLE_100();
287 a19 := JTF_VARCHAR2_TABLE_100();
288 a20 := JTF_VARCHAR2_TABLE_100();
289 a21 := JTF_VARCHAR2_TABLE_100();
290 if t.count > 0 then
291 a0.extend(t.count);
292 a1.extend(t.count);
293 a2.extend(t.count);
294 a3.extend(t.count);
295 a4.extend(t.count);
296 a5.extend(t.count);
297 a6.extend(t.count);
298 a7.extend(t.count);
299 a8.extend(t.count);
300 a9.extend(t.count);
301 a10.extend(t.count);
302 a11.extend(t.count);
303 a12.extend(t.count);
304 a13.extend(t.count);
305 a14.extend(t.count);
306 a15.extend(t.count);
307 a16.extend(t.count);
308 a17.extend(t.count);
309 a18.extend(t.count);
310 a19.extend(t.count);
311 a20.extend(t.count);
312 a21.extend(t.count);
313 ddindx := t.first;
314 indx := 1;
315 while true loop
316 a0(indx) := t(ddindx).trx_id;
317 a1(indx) := t(ddindx).initiator_id;
318 a2(indx) := t(ddindx).recipient_id;
319 a3(indx) := t(ddindx).to_le_id;
320 a4(indx) := t(ddindx).to_ledger_id;
321 a5(indx) := t(ddindx).batch_id;
322 a6(indx) := t(ddindx).status;
323 a7(indx) := t(ddindx).init_amount_cr;
324 a8(indx) := t(ddindx).init_amount_dr;
325 a9(indx) := t(ddindx).reci_amount_cr;
326 a10(indx) := t(ddindx).reci_amount_dr;
327 a11(indx) := t(ddindx).ar_invoice_number;
328 a12(indx) := t(ddindx).invoicing_rule;
329 a13(indx) := t(ddindx).approver_id;
330 a14(indx) := t(ddindx).approval_date;
331 a15(indx) := t(ddindx).original_trx_id;
332 a16(indx) := t(ddindx).reversed_trx_id;
333 a17(indx) := t(ddindx).from_recurring_trx_id;
334 a18(indx) := t(ddindx).initiator_instance;
335 a19(indx) := t(ddindx).recipient_instance;
336 a20(indx) := t(ddindx).automatic_proration_flag;
337 a21(indx) := t(ddindx).trx_number;
338 indx := indx+1;
339 if t.last =ddindx
340 then exit;
341 end if;
342 ddindx := t.next(ddindx);
343 end loop;
344 end if;
345 end if;
346 end rosetta_table_copy_out_p6;
347
348 procedure rosetta_table_copy_in_p7(t out nocopy fun_trx_pvt.line_tbl_type, a0 JTF_NUMBER_TABLE
349 , a1 JTF_NUMBER_TABLE
350 , a2 JTF_NUMBER_TABLE
351 , a3 JTF_VARCHAR2_TABLE_100
352 , a4 JTF_NUMBER_TABLE
353 , a5 JTF_NUMBER_TABLE
354 , a6 JTF_NUMBER_TABLE
355 , a7 JTF_NUMBER_TABLE
356 ) as
357 ddindx binary_integer; indx binary_integer;
358 begin
359 if a0 is not null and a0.count > 0 then
360 if a0.count > 0 then
361 indx := a0.first;
362 ddindx := 1;
363 while true loop
364 t(ddindx).line_id := a0(indx);
365 t(ddindx).trx_id := a1(indx);
366 t(ddindx).line_number := a2(indx);
367 t(ddindx).line_type := a3(indx);
368 t(ddindx).init_amount_cr := a4(indx);
369 t(ddindx).init_amount_dr := a5(indx);
370 t(ddindx).reci_amount_cr := a6(indx);
371 t(ddindx).reci_amount_dr := a7(indx);
372 ddindx := ddindx+1;
373 if a0.last =indx
374 then exit;
375 end if;
376 indx := a0.next(indx);
377 end loop;
378 end if;
379 end if;
380 end rosetta_table_copy_in_p7;
381 procedure rosetta_table_copy_out_p7(t fun_trx_pvt.line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
382 , a1 out nocopy JTF_NUMBER_TABLE
383 , a2 out nocopy JTF_NUMBER_TABLE
384 , a3 out nocopy JTF_VARCHAR2_TABLE_100
385 , a4 out nocopy JTF_NUMBER_TABLE
386 , a5 out nocopy JTF_NUMBER_TABLE
387 , a6 out nocopy JTF_NUMBER_TABLE
388 , a7 out nocopy JTF_NUMBER_TABLE
389 ) as
390 ddindx binary_integer; indx binary_integer;
391 begin
392 if t is null or t.count = 0 then
393 a0 := JTF_NUMBER_TABLE();
394 a1 := JTF_NUMBER_TABLE();
395 a2 := JTF_NUMBER_TABLE();
396 a3 := JTF_VARCHAR2_TABLE_100();
397 a4 := JTF_NUMBER_TABLE();
398 a5 := JTF_NUMBER_TABLE();
399 a6 := JTF_NUMBER_TABLE();
400 a7 := JTF_NUMBER_TABLE();
401 else
402 a0 := JTF_NUMBER_TABLE();
403 a1 := JTF_NUMBER_TABLE();
404 a2 := JTF_NUMBER_TABLE();
405 a3 := JTF_VARCHAR2_TABLE_100();
406 a4 := JTF_NUMBER_TABLE();
407 a5 := JTF_NUMBER_TABLE();
408 a6 := JTF_NUMBER_TABLE();
409 a7 := JTF_NUMBER_TABLE();
410 if t.count > 0 then
411 a0.extend(t.count);
412 a1.extend(t.count);
413 a2.extend(t.count);
414 a3.extend(t.count);
415 a4.extend(t.count);
416 a5.extend(t.count);
417 a6.extend(t.count);
418 a7.extend(t.count);
419 ddindx := t.first;
420 indx := 1;
421 while true loop
422 a0(indx) := t(ddindx).line_id;
423 a1(indx) := t(ddindx).trx_id;
424 a2(indx) := t(ddindx).line_number;
425 a3(indx) := t(ddindx).line_type;
426 a4(indx) := t(ddindx).init_amount_cr;
427 a5(indx) := t(ddindx).init_amount_dr;
428 a6(indx) := t(ddindx).reci_amount_cr;
429 a7(indx) := t(ddindx).reci_amount_dr;
430 indx := indx+1;
431 if t.last =ddindx
432 then exit;
433 end if;
434 ddindx := t.next(ddindx);
435 end loop;
436 end if;
437 end if;
438 end rosetta_table_copy_out_p7;
439
440 procedure rosetta_table_copy_in_p8(t out nocopy fun_trx_pvt.init_dist_tbl_type, a0 JTF_NUMBER_TABLE
441 , a1 JTF_NUMBER_TABLE
442 , a2 JTF_NUMBER_TABLE
443 , a3 JTF_NUMBER_TABLE
444 , a4 JTF_NUMBER_TABLE
445 , a5 JTF_NUMBER_TABLE
446 , a6 JTF_VARCHAR2_TABLE_300
447 ) as
448 ddindx binary_integer; indx binary_integer;
449 begin
450 if a0 is not null and a0.count > 0 then
451 if a0.count > 0 then
452 indx := a0.first;
453 ddindx := 1;
454 while true loop
455 t(ddindx).batch_dist_id := a0(indx);
456 t(ddindx).line_number := a1(indx);
457 t(ddindx).batch_id := a2(indx);
458 t(ddindx).ccid := a3(indx);
459 t(ddindx).amount_cr := a4(indx);
460 t(ddindx).amount_dr := a5(indx);
461 t(ddindx).description := a6(indx);
462 ddindx := ddindx+1;
463 if a0.last =indx
464 then exit;
465 end if;
466 indx := a0.next(indx);
467 end loop;
468 end if;
469 end if;
470 end rosetta_table_copy_in_p8;
471 procedure rosetta_table_copy_out_p8(t fun_trx_pvt.init_dist_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
472 , a1 out nocopy JTF_NUMBER_TABLE
473 , a2 out nocopy JTF_NUMBER_TABLE
474 , a3 out nocopy JTF_NUMBER_TABLE
475 , a4 out nocopy JTF_NUMBER_TABLE
476 , a5 out nocopy JTF_NUMBER_TABLE
477 , a6 out nocopy JTF_VARCHAR2_TABLE_300
478 ) as
479 ddindx binary_integer; indx binary_integer;
480 begin
481 if t is null or t.count = 0 then
482 a0 := JTF_NUMBER_TABLE();
483 a1 := JTF_NUMBER_TABLE();
484 a2 := JTF_NUMBER_TABLE();
485 a3 := JTF_NUMBER_TABLE();
486 a4 := JTF_NUMBER_TABLE();
487 a5 := JTF_NUMBER_TABLE();
488 a6 := JTF_VARCHAR2_TABLE_300();
489 else
490 a0 := JTF_NUMBER_TABLE();
491 a1 := JTF_NUMBER_TABLE();
492 a2 := JTF_NUMBER_TABLE();
493 a3 := JTF_NUMBER_TABLE();
494 a4 := JTF_NUMBER_TABLE();
495 a5 := JTF_NUMBER_TABLE();
496 a6 := JTF_VARCHAR2_TABLE_300();
497 if t.count > 0 then
498 a0.extend(t.count);
499 a1.extend(t.count);
500 a2.extend(t.count);
501 a3.extend(t.count);
502 a4.extend(t.count);
503 a5.extend(t.count);
504 a6.extend(t.count);
505 ddindx := t.first;
506 indx := 1;
507 while true loop
508 a0(indx) := t(ddindx).batch_dist_id;
509 a1(indx) := t(ddindx).line_number;
510 a2(indx) := t(ddindx).batch_id;
511 a3(indx) := t(ddindx).ccid;
512 a4(indx) := t(ddindx).amount_cr;
513 a5(indx) := t(ddindx).amount_dr;
514 a6(indx) := t(ddindx).description;
515 indx := indx+1;
516 if t.last =ddindx
517 then exit;
518 end if;
519 ddindx := t.next(ddindx);
520 end loop;
521 end if;
522 end if;
523 end rosetta_table_copy_out_p8;
524
525 procedure rosetta_table_copy_in_p9(t out nocopy fun_trx_pvt.dist_line_tbl_type, a0 JTF_NUMBER_TABLE
526 , a1 JTF_NUMBER_TABLE
527 , a2 JTF_NUMBER_TABLE
528 , a3 JTF_NUMBER_TABLE
529 , a4 JTF_NUMBER_TABLE
530 , a5 JTF_VARCHAR2_TABLE_100
531 , a6 JTF_VARCHAR2_TABLE_100
532 , a7 JTF_NUMBER_TABLE
533 , a8 JTF_NUMBER_TABLE
534 , a9 JTF_NUMBER_TABLE
535 , a10 JTF_NUMBER_TABLE
536 , a11 JTF_VARCHAR2_TABLE_100
537 ) as
538 ddindx binary_integer; indx binary_integer;
539 begin
540 if a0 is not null and a0.count > 0 then
541 if a0.count > 0 then
542 indx := a0.first;
543 ddindx := 1;
544 while true loop
545 t(ddindx).dist_id := a0(indx);
546 t(ddindx).dist_number := a1(indx);
547 t(ddindx).trx_id := a2(indx);
548 t(ddindx).line_id := a3(indx);
549 t(ddindx).party_id := a4(indx);
550 t(ddindx).party_type := a5(indx);
551 t(ddindx).dist_type := a6(indx);
552 t(ddindx).batch_dist_id := a7(indx);
553 t(ddindx).amount_cr := a8(indx);
554 t(ddindx).amount_dr := a9(indx);
555 t(ddindx).ccid := a10(indx);
556 t(ddindx).trx_number := a11(indx);
557 ddindx := ddindx+1;
558 if a0.last =indx
559 then exit;
560 end if;
561 indx := a0.next(indx);
562 end loop;
563 end if;
564 end if;
565 end rosetta_table_copy_in_p9;
566 procedure rosetta_table_copy_out_p9(t fun_trx_pvt.dist_line_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
567 , a1 out nocopy JTF_NUMBER_TABLE
568 , a2 out nocopy JTF_NUMBER_TABLE
569 , a3 out nocopy JTF_NUMBER_TABLE
570 , a4 out nocopy JTF_NUMBER_TABLE
571 , a5 out nocopy JTF_VARCHAR2_TABLE_100
572 , a6 out nocopy JTF_VARCHAR2_TABLE_100
573 , a7 out nocopy JTF_NUMBER_TABLE
574 , a8 out nocopy JTF_NUMBER_TABLE
575 , a9 out nocopy JTF_NUMBER_TABLE
576 , a10 out nocopy JTF_NUMBER_TABLE
577 , a11 out nocopy JTF_VARCHAR2_TABLE_100
578 ) as
579 ddindx binary_integer; indx binary_integer;
580 begin
581 if t is null or t.count = 0 then
582 a0 := JTF_NUMBER_TABLE();
583 a1 := JTF_NUMBER_TABLE();
584 a2 := JTF_NUMBER_TABLE();
585 a3 := JTF_NUMBER_TABLE();
586 a4 := JTF_NUMBER_TABLE();
587 a5 := JTF_VARCHAR2_TABLE_100();
588 a6 := JTF_VARCHAR2_TABLE_100();
589 a7 := JTF_NUMBER_TABLE();
590 a8 := JTF_NUMBER_TABLE();
591 a9 := JTF_NUMBER_TABLE();
592 a10 := JTF_NUMBER_TABLE();
593 a11 := JTF_VARCHAR2_TABLE_100();
594 else
595 a0 := JTF_NUMBER_TABLE();
596 a1 := JTF_NUMBER_TABLE();
597 a2 := JTF_NUMBER_TABLE();
598 a3 := JTF_NUMBER_TABLE();
599 a4 := JTF_NUMBER_TABLE();
600 a5 := JTF_VARCHAR2_TABLE_100();
601 a6 := JTF_VARCHAR2_TABLE_100();
602 a7 := JTF_NUMBER_TABLE();
603 a8 := JTF_NUMBER_TABLE();
604 a9 := JTF_NUMBER_TABLE();
605 a10 := JTF_NUMBER_TABLE();
606 a11 := JTF_VARCHAR2_TABLE_100();
607 if t.count > 0 then
608 a0.extend(t.count);
609 a1.extend(t.count);
610 a2.extend(t.count);
611 a3.extend(t.count);
612 a4.extend(t.count);
613 a5.extend(t.count);
614 a6.extend(t.count);
615 a7.extend(t.count);
616 a8.extend(t.count);
617 a9.extend(t.count);
618 a10.extend(t.count);
619 a11.extend(t.count);
620 ddindx := t.first;
621 indx := 1;
622 while true loop
623 a0(indx) := t(ddindx).dist_id;
624 a1(indx) := t(ddindx).dist_number;
625 a2(indx) := t(ddindx).trx_id;
626 a3(indx) := t(ddindx).line_id;
627 a4(indx) := t(ddindx).party_id;
628 a5(indx) := t(ddindx).party_type;
629 a6(indx) := t(ddindx).dist_type;
630 a7(indx) := t(ddindx).batch_dist_id;
631 a8(indx) := t(ddindx).amount_cr;
632 a9(indx) := t(ddindx).amount_dr;
633 a10(indx) := t(ddindx).ccid;
634 a11(indx) := t(ddindx).trx_number;
635 indx := indx+1;
636 if t.last =ddindx
637 then exit;
638 end if;
639 ddindx := t.next(ddindx);
640 end loop;
641 end if;
642 end if;
643 end rosetta_table_copy_out_p9;
644
645 procedure rosetta_table_copy_in_p10(t out nocopy fun_trx_pvt.number_type, a0 JTF_NUMBER_TABLE) as
646 ddindx binary_integer; indx binary_integer;
647 begin
648 if a0 is not null and a0.count > 0 then
649 if a0.count > 0 then
650 indx := a0.first;
651 ddindx := 1;
652 while true loop
653 t(ddindx) := a0(indx);
654 ddindx := ddindx+1;
655 if a0.last =indx
656 then exit;
657 end if;
658 indx := a0.next(indx);
659 end loop;
660 end if;
661 end if;
662 end rosetta_table_copy_in_p10;
663 procedure rosetta_table_copy_out_p10(t fun_trx_pvt.number_type, a0 out nocopy JTF_NUMBER_TABLE) as
664 ddindx binary_integer; indx binary_integer;
665 begin
666 if t is null or t.count = 0 then
667 a0 := JTF_NUMBER_TABLE();
668 else
669 a0 := JTF_NUMBER_TABLE();
670 if t.count > 0 then
671 a0.extend(t.count);
672 ddindx := t.first;
673 indx := 1;
674 while true loop
675 a0(indx) := t(ddindx);
676 indx := indx+1;
677 if t.last =ddindx
678 then exit;
679 end if;
680 ddindx := t.next(ddindx);
681 end loop;
682 end if;
683 end if;
684 end rosetta_table_copy_out_p10;
685
686 procedure init_batch_validate(p_api_version NUMBER
687 , p_init_msg_list VARCHAR2
688 , p_validation_level NUMBER
689 , x_return_status out nocopy VARCHAR2
690 , x_msg_count out nocopy NUMBER
691 , x_msg_data out nocopy VARCHAR2
692 , p_insert VARCHAR2
693 , p7_a0 in out nocopy NUMBER
694 , p7_a1 in out nocopy VARCHAR2
695 , p7_a2 in out nocopy NUMBER
696 , p7_a3 in out nocopy NUMBER
697 , p7_a4 in out nocopy NUMBER
698 , p7_a5 in out nocopy NUMBER
699 , p7_a6 in out nocopy VARCHAR2
700 , p7_a7 in out nocopy VARCHAR2
701 , p7_a8 in out nocopy VARCHAR2
702 , p7_a9 in out nocopy VARCHAR2
703 , p7_a10 in out nocopy NUMBER
704 , p7_a11 in out nocopy VARCHAR2
705 , p7_a12 in out nocopy DATE
706 , p7_a13 in out nocopy DATE
707 , p7_a14 in out nocopy VARCHAR2
708 , p7_a15 in out nocopy NUMBER
709 , p7_a16 in out nocopy VARCHAR2
710 , p8_a0 in out nocopy JTF_NUMBER_TABLE
711 , p8_a1 in out nocopy JTF_NUMBER_TABLE
712 , p8_a2 in out nocopy JTF_NUMBER_TABLE
713 , p8_a3 in out nocopy JTF_NUMBER_TABLE
714 , p8_a4 in out nocopy JTF_NUMBER_TABLE
715 , p8_a5 in out nocopy JTF_NUMBER_TABLE
716 , p8_a6 in out nocopy JTF_VARCHAR2_TABLE_100
717 , p8_a7 in out nocopy JTF_NUMBER_TABLE
718 , p8_a8 in out nocopy JTF_NUMBER_TABLE
719 , p8_a9 in out nocopy JTF_NUMBER_TABLE
720 , p8_a10 in out nocopy JTF_NUMBER_TABLE
721 , p8_a11 in out nocopy JTF_VARCHAR2_TABLE_100
722 , p8_a12 in out nocopy JTF_VARCHAR2_TABLE_100
723 , p8_a13 in out nocopy JTF_NUMBER_TABLE
724 , p8_a14 in out nocopy JTF_DATE_TABLE
725 , p8_a15 in out nocopy JTF_NUMBER_TABLE
726 , p8_a16 in out nocopy JTF_NUMBER_TABLE
727 , p8_a17 in out nocopy JTF_NUMBER_TABLE
728 , p8_a18 in out nocopy JTF_VARCHAR2_TABLE_100
729 , p8_a19 in out nocopy JTF_VARCHAR2_TABLE_100
730 , p8_a20 in out nocopy JTF_VARCHAR2_TABLE_100
731 , p8_a21 in out nocopy JTF_VARCHAR2_TABLE_100
732 , p9_a0 in out nocopy JTF_NUMBER_TABLE
733 , p9_a1 in out nocopy JTF_NUMBER_TABLE
734 , p9_a2 in out nocopy JTF_NUMBER_TABLE
735 , p9_a3 in out nocopy JTF_NUMBER_TABLE
736 , p9_a4 in out nocopy JTF_NUMBER_TABLE
737 , p9_a5 in out nocopy JTF_NUMBER_TABLE
738 , p9_a6 in out nocopy JTF_VARCHAR2_TABLE_300
739 , p10_a0 in out nocopy JTF_NUMBER_TABLE
740 , p10_a1 in out nocopy JTF_NUMBER_TABLE
741 , p10_a2 in out nocopy JTF_NUMBER_TABLE
742 , p10_a3 in out nocopy JTF_NUMBER_TABLE
743 , p10_a4 in out nocopy JTF_NUMBER_TABLE
744 , p10_a5 in out nocopy JTF_VARCHAR2_TABLE_100
745 , p10_a6 in out nocopy JTF_VARCHAR2_TABLE_100
746 , p10_a7 in out nocopy JTF_NUMBER_TABLE
747 , p10_a8 in out nocopy JTF_NUMBER_TABLE
748 , p10_a9 in out nocopy JTF_NUMBER_TABLE
749 , p10_a10 in out nocopy JTF_NUMBER_TABLE
750 , p10_a11 in out nocopy JTF_VARCHAR2_TABLE_100
751 )
752
753 as
754 ddp_batch_rec fun_trx_pvt.batch_rec_type;
755 ddp_trx_tbl fun_trx_pvt.trx_tbl_type;
756 ddp_init_dist_tbl fun_trx_pvt.init_dist_tbl_type;
757 ddp_dist_lines_tbl fun_trx_pvt.dist_line_tbl_type;
758 ddindx binary_integer; indx binary_integer;
759 begin
760
761 -- copy data to the local IN or IN-OUT args, if any
762
763
764
765
766
767
768
769 ddp_batch_rec.batch_id := p7_a0;
770 ddp_batch_rec.batch_number := p7_a1;
771 ddp_batch_rec.initiator_id := p7_a2;
772 ddp_batch_rec.from_le_id := p7_a3;
773 ddp_batch_rec.from_ledger_id := p7_a4;
774 ddp_batch_rec.control_total := p7_a5;
775 ddp_batch_rec.currency_code := p7_a6;
776 ddp_batch_rec.exchange_rate_type := p7_a7;
777 ddp_batch_rec.status := p7_a8;
778 ddp_batch_rec.description := p7_a9;
779 ddp_batch_rec.trx_type_id := p7_a10;
780 ddp_batch_rec.trx_type_code := p7_a11;
781 ddp_batch_rec.gl_date := p7_a12;
782 ddp_batch_rec.batch_date := p7_a13;
783 ddp_batch_rec.reject_allowed := p7_a14;
784 ddp_batch_rec.from_recurring_batch := p7_a15;
785 ddp_batch_rec.automatic_proration_flag := p7_a16;
786
787 fun_trx_pvt_w.rosetta_table_copy_in_p6(ddp_trx_tbl, p8_a0
788 , p8_a1
789 , p8_a2
790 , p8_a3
791 , p8_a4
792 , p8_a5
793 , p8_a6
794 , p8_a7
795 , p8_a8
796 , p8_a9
797 , p8_a10
798 , p8_a11
799 , p8_a12
800 , p8_a13
801 , p8_a14
802 , p8_a15
803 , p8_a16
804 , p8_a17
805 , p8_a18
806 , p8_a19
807 , p8_a20
808 , p8_a21
809 );
810
811 fun_trx_pvt_w.rosetta_table_copy_in_p8(ddp_init_dist_tbl, p9_a0
812 , p9_a1
813 , p9_a2
814 , p9_a3
815 , p9_a4
816 , p9_a5
817 , p9_a6
818 );
819
820 fun_trx_pvt_w.rosetta_table_copy_in_p9(ddp_dist_lines_tbl, p10_a0
821 , p10_a1
822 , p10_a2
823 , p10_a3
824 , p10_a4
825 , p10_a5
826 , p10_a6
827 , p10_a7
828 , p10_a8
829 , p10_a9
830 , p10_a10
831 , p10_a11
832 );
833
834 -- here's the delegated call to the old PL/SQL routine
835 fun_trx_pvt.init_batch_validate(p_api_version,
836 p_init_msg_list,
837 p_validation_level,
838 x_return_status,
839 x_msg_count,
840 x_msg_data,
841 p_insert,
842 ddp_batch_rec,
843 ddp_trx_tbl,
844 ddp_init_dist_tbl,
845 ddp_dist_lines_tbl);
846
847 -- copy data back from the local variables to OUT or IN-OUT args, if any
848
849
850
851
852
853
854
855 p7_a0 := ddp_batch_rec.batch_id;
856 p7_a1 := ddp_batch_rec.batch_number;
857 p7_a2 := ddp_batch_rec.initiator_id;
858 p7_a3 := ddp_batch_rec.from_le_id;
859 p7_a4 := ddp_batch_rec.from_ledger_id;
860 p7_a5 := ddp_batch_rec.control_total;
861 p7_a6 := ddp_batch_rec.currency_code;
862 p7_a7 := ddp_batch_rec.exchange_rate_type;
863 p7_a8 := ddp_batch_rec.status;
864 p7_a9 := ddp_batch_rec.description;
865 p7_a10 := ddp_batch_rec.trx_type_id;
866 p7_a11 := ddp_batch_rec.trx_type_code;
867 p7_a12 := ddp_batch_rec.gl_date;
868 p7_a13 := ddp_batch_rec.batch_date;
869 p7_a14 := ddp_batch_rec.reject_allowed;
870 p7_a15 := ddp_batch_rec.from_recurring_batch;
871 p7_a16 := ddp_batch_rec.automatic_proration_flag;
872
873 fun_trx_pvt_w.rosetta_table_copy_out_p6(ddp_trx_tbl, p8_a0
874 , p8_a1
875 , p8_a2
876 , p8_a3
877 , p8_a4
878 , p8_a5
879 , p8_a6
880 , p8_a7
881 , p8_a8
882 , p8_a9
883 , p8_a10
884 , p8_a11
885 , p8_a12
886 , p8_a13
887 , p8_a14
888 , p8_a15
889 , p8_a16
890 , p8_a17
891 , p8_a18
892 , p8_a19
893 , p8_a20
894 , p8_a21
895 );
896
897 fun_trx_pvt_w.rosetta_table_copy_out_p8(ddp_init_dist_tbl, p9_a0
898 , p9_a1
899 , p9_a2
900 , p9_a3
901 , p9_a4
902 , p9_a5
903 , p9_a6
904 );
905
906 fun_trx_pvt_w.rosetta_table_copy_out_p9(ddp_dist_lines_tbl, p10_a0
907 , p10_a1
908 , p10_a2
909 , p10_a3
910 , p10_a4
911 , p10_a5
912 , p10_a6
913 , p10_a7
914 , p10_a8
915 , p10_a9
916 , p10_a10
917 , p10_a11
918 );
919 end;
920
921 procedure init_trx_validate(p_api_version NUMBER
922 , p_init_msg_list VARCHAR2
923 , p_validation_level NUMBER
924 , x_return_status out nocopy VARCHAR2
925 , x_msg_count out nocopy NUMBER
926 , x_msg_data out nocopy VARCHAR2
927 , p6_a0 in out nocopy NUMBER
928 , p6_a1 in out nocopy NUMBER
929 , p6_a2 in out nocopy NUMBER
930 , p6_a3 in out nocopy NUMBER
931 , p6_a4 in out nocopy NUMBER
932 , p6_a5 in out nocopy NUMBER
933 , p6_a6 in out nocopy VARCHAR2
934 , p6_a7 in out nocopy NUMBER
935 , p6_a8 in out nocopy NUMBER
936 , p6_a9 in out nocopy NUMBER
937 , p6_a10 in out nocopy NUMBER
938 , p6_a11 in out nocopy VARCHAR2
939 , p6_a12 in out nocopy VARCHAR2
940 , p6_a13 in out nocopy NUMBER
941 , p6_a14 in out nocopy DATE
942 , p6_a15 in out nocopy NUMBER
943 , p6_a16 in out nocopy NUMBER
944 , p6_a17 in out nocopy NUMBER
945 , p6_a18 in out nocopy VARCHAR2
946 , p6_a19 in out nocopy VARCHAR2
947 , p6_a20 in out nocopy VARCHAR2
948 , p6_a21 in out nocopy VARCHAR2
949 , p7_a0 in out nocopy JTF_NUMBER_TABLE
950 , p7_a1 in out nocopy JTF_NUMBER_TABLE
951 , p7_a2 in out nocopy JTF_NUMBER_TABLE
952 , p7_a3 in out nocopy JTF_NUMBER_TABLE
953 , p7_a4 in out nocopy JTF_NUMBER_TABLE
954 , p7_a5 in out nocopy JTF_VARCHAR2_TABLE_100
955 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_100
956 , p7_a7 in out nocopy JTF_NUMBER_TABLE
957 , p7_a8 in out nocopy JTF_NUMBER_TABLE
958 , p7_a9 in out nocopy JTF_NUMBER_TABLE
959 , p7_a10 in out nocopy JTF_NUMBER_TABLE
960 , p7_a11 in out nocopy JTF_VARCHAR2_TABLE_100
961 , p_currency_code VARCHAR2
962 , p_gl_date DATE
963 , p_trx_date DATE
964 )
965
966 as
967 ddp_trx_rec fun_trx_pvt.trx_rec_type;
968 ddp_dist_lines_tbl fun_trx_pvt.dist_line_tbl_type;
969 ddindx binary_integer; indx binary_integer;
970 begin
971
972 -- copy data to the local IN or IN-OUT args, if any
973
974
975
976
977
978
979 ddp_trx_rec.trx_id := p6_a0;
980 ddp_trx_rec.initiator_id := p6_a1;
981 ddp_trx_rec.recipient_id := p6_a2;
982 ddp_trx_rec.to_le_id := p6_a3;
983 ddp_trx_rec.to_ledger_id := p6_a4;
984 ddp_trx_rec.batch_id := p6_a5;
985 ddp_trx_rec.status := p6_a6;
986 ddp_trx_rec.init_amount_cr := p6_a7;
987 ddp_trx_rec.init_amount_dr := p6_a8;
988 ddp_trx_rec.reci_amount_cr := p6_a9;
989 ddp_trx_rec.reci_amount_dr := p6_a10;
990 ddp_trx_rec.ar_invoice_number := p6_a11;
991 ddp_trx_rec.invoicing_rule := p6_a12;
992 ddp_trx_rec.approver_id := p6_a13;
993 ddp_trx_rec.approval_date := p6_a14;
994 ddp_trx_rec.original_trx_id := p6_a15;
995 ddp_trx_rec.reversed_trx_id := p6_a16;
996 ddp_trx_rec.from_recurring_trx_id := p6_a17;
997 ddp_trx_rec.initiator_instance := p6_a18;
998 ddp_trx_rec.recipient_instance := p6_a19;
999 ddp_trx_rec.automatic_proration_flag := p6_a20;
1000 ddp_trx_rec.trx_number := p6_a21;
1001
1002 fun_trx_pvt_w.rosetta_table_copy_in_p9(ddp_dist_lines_tbl, p7_a0
1003 , p7_a1
1004 , p7_a2
1005 , p7_a3
1006 , p7_a4
1007 , p7_a5
1008 , p7_a6
1009 , p7_a7
1010 , p7_a8
1011 , p7_a9
1012 , p7_a10
1013 , p7_a11
1014 );
1015
1016
1017
1018
1019 -- here's the delegated call to the old PL/SQL routine
1020 fun_trx_pvt.init_trx_validate(p_api_version,
1021 p_init_msg_list,
1022 p_validation_level,
1023 x_return_status,
1024 x_msg_count,
1025 x_msg_data,
1026 ddp_trx_rec,
1027 ddp_dist_lines_tbl,
1028 p_currency_code,
1029 p_gl_date,
1030 p_trx_date);
1031
1032 -- copy data back from the local variables to OUT or IN-OUT args, if any
1033
1034
1035
1036
1037
1038
1039 p6_a0 := ddp_trx_rec.trx_id;
1040 p6_a1 := ddp_trx_rec.initiator_id;
1041 p6_a2 := ddp_trx_rec.recipient_id;
1042 p6_a3 := ddp_trx_rec.to_le_id;
1043 p6_a4 := ddp_trx_rec.to_ledger_id;
1044 p6_a5 := ddp_trx_rec.batch_id;
1045 p6_a6 := ddp_trx_rec.status;
1046 p6_a7 := ddp_trx_rec.init_amount_cr;
1047 p6_a8 := ddp_trx_rec.init_amount_dr;
1048 p6_a9 := ddp_trx_rec.reci_amount_cr;
1049 p6_a10 := ddp_trx_rec.reci_amount_dr;
1050 p6_a11 := ddp_trx_rec.ar_invoice_number;
1051 p6_a12 := ddp_trx_rec.invoicing_rule;
1052 p6_a13 := ddp_trx_rec.approver_id;
1053 p6_a14 := ddp_trx_rec.approval_date;
1054 p6_a15 := ddp_trx_rec.original_trx_id;
1055 p6_a16 := ddp_trx_rec.reversed_trx_id;
1056 p6_a17 := ddp_trx_rec.from_recurring_trx_id;
1057 p6_a18 := ddp_trx_rec.initiator_instance;
1058 p6_a19 := ddp_trx_rec.recipient_instance;
1059 p6_a20 := ddp_trx_rec.automatic_proration_flag;
1060 p6_a21 := ddp_trx_rec.trx_number;
1061
1062 fun_trx_pvt_w.rosetta_table_copy_out_p9(ddp_dist_lines_tbl, p7_a0
1063 , p7_a1
1064 , p7_a2
1065 , p7_a3
1066 , p7_a4
1067 , p7_a5
1068 , p7_a6
1069 , p7_a7
1070 , p7_a8
1071 , p7_a9
1072 , p7_a10
1073 , p7_a11
1074 );
1075
1076
1077
1078 end;
1079
1080 procedure init_dist_validate(p_api_version NUMBER
1081 , p_init_msg_list VARCHAR2
1082 , p_validation_level NUMBER
1083 , p_le_id NUMBER
1084 , p_ledger_id NUMBER
1085 , x_return_status out nocopy VARCHAR2
1086 , x_msg_count out nocopy NUMBER
1087 , x_msg_data out nocopy VARCHAR2
1088 , p8_a0 in out nocopy NUMBER
1089 , p8_a1 in out nocopy NUMBER
1090 , p8_a2 in out nocopy NUMBER
1091 , p8_a3 in out nocopy NUMBER
1092 , p8_a4 in out nocopy NUMBER
1093 , p8_a5 in out nocopy NUMBER
1094 , p8_a6 in out nocopy VARCHAR2
1095 )
1096
1097 as
1098 ddp_init_dist_rec fun_trx_pvt.init_dist_rec_type;
1099 ddindx binary_integer; indx binary_integer;
1100 begin
1101
1102 -- copy data to the local IN or IN-OUT args, if any
1103
1104
1105
1106
1107
1108
1109
1110
1111 ddp_init_dist_rec.batch_dist_id := p8_a0;
1112 ddp_init_dist_rec.line_number := p8_a1;
1113 ddp_init_dist_rec.batch_id := p8_a2;
1114 ddp_init_dist_rec.ccid := p8_a3;
1115 ddp_init_dist_rec.amount_cr := p8_a4;
1116 ddp_init_dist_rec.amount_dr := p8_a5;
1117 ddp_init_dist_rec.description := p8_a6;
1118
1119 -- here's the delegated call to the old PL/SQL routine
1120 fun_trx_pvt.init_dist_validate(p_api_version,
1121 p_init_msg_list,
1122 p_validation_level,
1123 p_le_id,
1124 p_ledger_id,
1125 x_return_status,
1126 x_msg_count,
1127 x_msg_data,
1128 ddp_init_dist_rec);
1129
1130 -- copy data back from the local variables to OUT or IN-OUT args, if any
1131
1132
1133
1134
1135
1136
1137
1138
1139 p8_a0 := ddp_init_dist_rec.batch_dist_id;
1140 p8_a1 := ddp_init_dist_rec.line_number;
1141 p8_a2 := ddp_init_dist_rec.batch_id;
1142 p8_a3 := ddp_init_dist_rec.ccid;
1143 p8_a4 := ddp_init_dist_rec.amount_cr;
1144 p8_a5 := ddp_init_dist_rec.amount_dr;
1145 p8_a6 := ddp_init_dist_rec.description;
1146 end;
1147
1148 procedure init_ic_dist_validate(p_api_version NUMBER
1149 , p_init_msg_list VARCHAR2
1150 , p_validation_level NUMBER
1151 , p_le_id NUMBER
1152 , p_ledger_id NUMBER
1153 , x_return_status out nocopy VARCHAR2
1154 , x_msg_count out nocopy NUMBER
1155 , x_msg_data out nocopy VARCHAR2
1156 , p8_a0 in out nocopy NUMBER
1157 , p8_a1 in out nocopy NUMBER
1158 , p8_a2 in out nocopy NUMBER
1159 , p8_a3 in out nocopy NUMBER
1160 , p8_a4 in out nocopy NUMBER
1161 , p8_a5 in out nocopy VARCHAR2
1162 , p8_a6 in out nocopy VARCHAR2
1163 , p8_a7 in out nocopy NUMBER
1164 , p8_a8 in out nocopy NUMBER
1165 , p8_a9 in out nocopy NUMBER
1166 , p8_a10 in out nocopy NUMBER
1167 , p8_a11 in out nocopy VARCHAR2
1168 )
1169
1170 as
1171 ddp_dist_line_rec fun_trx_pvt.dist_line_rec_type;
1172 ddindx binary_integer; indx binary_integer;
1173 begin
1174
1175 -- copy data to the local IN or IN-OUT args, if any
1176
1177
1178
1179
1180
1181
1182
1183
1184 ddp_dist_line_rec.dist_id := p8_a0;
1185 ddp_dist_line_rec.dist_number := p8_a1;
1186 ddp_dist_line_rec.trx_id := p8_a2;
1187 ddp_dist_line_rec.line_id := p8_a3;
1188 ddp_dist_line_rec.party_id := p8_a4;
1189 ddp_dist_line_rec.party_type := p8_a5;
1190 ddp_dist_line_rec.dist_type := p8_a6;
1191 ddp_dist_line_rec.batch_dist_id := p8_a7;
1192 ddp_dist_line_rec.amount_cr := p8_a8;
1193 ddp_dist_line_rec.amount_dr := p8_a9;
1194 ddp_dist_line_rec.ccid := p8_a10;
1195 ddp_dist_line_rec.trx_number := p8_a11;
1196
1197 -- here's the delegated call to the old PL/SQL routine
1198 fun_trx_pvt.init_ic_dist_validate(p_api_version,
1199 p_init_msg_list,
1200 p_validation_level,
1201 p_le_id,
1202 p_ledger_id,
1203 x_return_status,
1204 x_msg_count,
1205 x_msg_data,
1206 ddp_dist_line_rec);
1207
1208 -- copy data back from the local variables to OUT or IN-OUT args, if any
1209
1210
1211
1212
1213
1214
1215
1216
1217 p8_a0 := ddp_dist_line_rec.dist_id;
1218 p8_a1 := ddp_dist_line_rec.dist_number;
1219 p8_a2 := ddp_dist_line_rec.trx_id;
1220 p8_a3 := ddp_dist_line_rec.line_id;
1221 p8_a4 := ddp_dist_line_rec.party_id;
1222 p8_a5 := ddp_dist_line_rec.party_type;
1223 p8_a6 := ddp_dist_line_rec.dist_type;
1224 p8_a7 := ddp_dist_line_rec.batch_dist_id;
1225 p8_a8 := ddp_dist_line_rec.amount_cr;
1226 p8_a9 := ddp_dist_line_rec.amount_dr;
1227 p8_a10 := ddp_dist_line_rec.ccid;
1228 p8_a11 := ddp_dist_line_rec.trx_number;
1229 end;
1230
1231 procedure init_generate_distributions(p_api_version NUMBER
1232 , p_init_msg_list VARCHAR2
1233 , x_return_status out nocopy VARCHAR2
1234 , x_msg_count out nocopy NUMBER
1235 , x_msg_data out nocopy VARCHAR2
1236 , p5_a0 in out nocopy NUMBER
1237 , p5_a1 in out nocopy VARCHAR2
1238 , p5_a2 in out nocopy NUMBER
1239 , p5_a3 in out nocopy NUMBER
1240 , p5_a4 in out nocopy NUMBER
1241 , p5_a5 in out nocopy NUMBER
1242 , p5_a6 in out nocopy VARCHAR2
1243 , p5_a7 in out nocopy VARCHAR2
1244 , p5_a8 in out nocopy VARCHAR2
1245 , p5_a9 in out nocopy VARCHAR2
1246 , p5_a10 in out nocopy NUMBER
1247 , p5_a11 in out nocopy VARCHAR2
1248 , p5_a12 in out nocopy DATE
1249 , p5_a13 in out nocopy DATE
1250 , p5_a14 in out nocopy VARCHAR2
1251 , p5_a15 in out nocopy NUMBER
1252 , p5_a16 in out nocopy VARCHAR2
1253 , p6_a0 in out nocopy JTF_NUMBER_TABLE
1254 , p6_a1 in out nocopy JTF_NUMBER_TABLE
1255 , p6_a2 in out nocopy JTF_NUMBER_TABLE
1256 , p6_a3 in out nocopy JTF_NUMBER_TABLE
1257 , p6_a4 in out nocopy JTF_NUMBER_TABLE
1258 , p6_a5 in out nocopy JTF_NUMBER_TABLE
1259 , p6_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1260 , p6_a7 in out nocopy JTF_NUMBER_TABLE
1261 , p6_a8 in out nocopy JTF_NUMBER_TABLE
1262 , p6_a9 in out nocopy JTF_NUMBER_TABLE
1263 , p6_a10 in out nocopy JTF_NUMBER_TABLE
1264 , p6_a11 in out nocopy JTF_VARCHAR2_TABLE_100
1265 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_100
1266 , p6_a13 in out nocopy JTF_NUMBER_TABLE
1267 , p6_a14 in out nocopy JTF_DATE_TABLE
1268 , p6_a15 in out nocopy JTF_NUMBER_TABLE
1269 , p6_a16 in out nocopy JTF_NUMBER_TABLE
1270 , p6_a17 in out nocopy JTF_NUMBER_TABLE
1271 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_100
1272 , p6_a19 in out nocopy JTF_VARCHAR2_TABLE_100
1273 , p6_a20 in out nocopy JTF_VARCHAR2_TABLE_100
1274 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_100
1275 , p7_a0 in out nocopy JTF_NUMBER_TABLE
1276 , p7_a1 in out nocopy JTF_NUMBER_TABLE
1277 , p7_a2 in out nocopy JTF_NUMBER_TABLE
1278 , p7_a3 in out nocopy JTF_NUMBER_TABLE
1279 , p7_a4 in out nocopy JTF_NUMBER_TABLE
1280 , p7_a5 in out nocopy JTF_NUMBER_TABLE
1281 , p7_a6 in out nocopy JTF_VARCHAR2_TABLE_300
1282 , p8_a0 in out nocopy JTF_NUMBER_TABLE
1283 , p8_a1 in out nocopy JTF_NUMBER_TABLE
1284 , p8_a2 in out nocopy JTF_NUMBER_TABLE
1285 , p8_a3 in out nocopy JTF_NUMBER_TABLE
1286 , p8_a4 in out nocopy JTF_NUMBER_TABLE
1287 , p8_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1288 , p8_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1289 , p8_a7 in out nocopy JTF_NUMBER_TABLE
1290 , p8_a8 in out nocopy JTF_NUMBER_TABLE
1291 , p8_a9 in out nocopy JTF_NUMBER_TABLE
1292 , p8_a10 in out nocopy JTF_NUMBER_TABLE
1293 , p8_a11 in out nocopy JTF_VARCHAR2_TABLE_100
1294 )
1295
1296 as
1297 ddp_batch_rec fun_trx_pvt.batch_rec_type;
1298 ddp_trx_tbl fun_trx_pvt.trx_tbl_type;
1299 ddp_init_dist_tbl fun_trx_pvt.init_dist_tbl_type;
1300 ddp_dist_lines_tbl fun_trx_pvt.dist_line_tbl_type;
1301 ddindx binary_integer; indx binary_integer;
1302 begin
1303
1304 -- copy data to the local IN or IN-OUT args, if any
1305
1306
1307
1308
1309
1310 ddp_batch_rec.batch_id := p5_a0;
1311 ddp_batch_rec.batch_number := p5_a1;
1312 ddp_batch_rec.initiator_id := p5_a2;
1313 ddp_batch_rec.from_le_id := p5_a3;
1314 ddp_batch_rec.from_ledger_id := p5_a4;
1315 ddp_batch_rec.control_total := p5_a5;
1316 ddp_batch_rec.currency_code := p5_a6;
1317 ddp_batch_rec.exchange_rate_type := p5_a7;
1318 ddp_batch_rec.status := p5_a8;
1319 ddp_batch_rec.description := p5_a9;
1320 ddp_batch_rec.trx_type_id := p5_a10;
1321 ddp_batch_rec.trx_type_code := p5_a11;
1322 ddp_batch_rec.gl_date := p5_a12;
1323 ddp_batch_rec.batch_date := p5_a13;
1324 ddp_batch_rec.reject_allowed := p5_a14;
1325 ddp_batch_rec.from_recurring_batch := p5_a15;
1326 ddp_batch_rec.automatic_proration_flag := p5_a16;
1327
1328 fun_trx_pvt_w.rosetta_table_copy_in_p6(ddp_trx_tbl, p6_a0
1329 , p6_a1
1330 , p6_a2
1331 , p6_a3
1332 , p6_a4
1333 , p6_a5
1334 , p6_a6
1335 , p6_a7
1336 , p6_a8
1337 , p6_a9
1338 , p6_a10
1339 , p6_a11
1340 , p6_a12
1341 , p6_a13
1342 , p6_a14
1343 , p6_a15
1344 , p6_a16
1345 , p6_a17
1346 , p6_a18
1347 , p6_a19
1348 , p6_a20
1349 , p6_a21
1350 );
1351
1352 fun_trx_pvt_w.rosetta_table_copy_in_p8(ddp_init_dist_tbl, p7_a0
1353 , p7_a1
1354 , p7_a2
1355 , p7_a3
1356 , p7_a4
1357 , p7_a5
1358 , p7_a6
1359 );
1360
1361 fun_trx_pvt_w.rosetta_table_copy_in_p9(ddp_dist_lines_tbl, p8_a0
1362 , p8_a1
1363 , p8_a2
1364 , p8_a3
1365 , p8_a4
1366 , p8_a5
1367 , p8_a6
1368 , p8_a7
1369 , p8_a8
1370 , p8_a9
1371 , p8_a10
1372 , p8_a11
1373 );
1374
1375 -- here's the delegated call to the old PL/SQL routine
1376 fun_trx_pvt.init_generate_distributions(p_api_version,
1377 p_init_msg_list,
1378 x_return_status,
1379 x_msg_count,
1380 x_msg_data,
1381 ddp_batch_rec,
1382 ddp_trx_tbl,
1383 ddp_init_dist_tbl,
1384 ddp_dist_lines_tbl);
1385
1386 -- copy data back from the local variables to OUT or IN-OUT args, if any
1387
1388
1389
1390
1391
1392 p5_a0 := ddp_batch_rec.batch_id;
1393 p5_a1 := ddp_batch_rec.batch_number;
1394 p5_a2 := ddp_batch_rec.initiator_id;
1395 p5_a3 := ddp_batch_rec.from_le_id;
1396 p5_a4 := ddp_batch_rec.from_ledger_id;
1397 p5_a5 := ddp_batch_rec.control_total;
1398 p5_a6 := ddp_batch_rec.currency_code;
1399 p5_a7 := ddp_batch_rec.exchange_rate_type;
1400 p5_a8 := ddp_batch_rec.status;
1401 p5_a9 := ddp_batch_rec.description;
1402 p5_a10 := ddp_batch_rec.trx_type_id;
1403 p5_a11 := ddp_batch_rec.trx_type_code;
1404 p5_a12 := ddp_batch_rec.gl_date;
1405 p5_a13 := ddp_batch_rec.batch_date;
1406 p5_a14 := ddp_batch_rec.reject_allowed;
1407 p5_a15 := ddp_batch_rec.from_recurring_batch;
1408 p5_a16 := ddp_batch_rec.automatic_proration_flag;
1409
1410 fun_trx_pvt_w.rosetta_table_copy_out_p6(ddp_trx_tbl, p6_a0
1411 , p6_a1
1412 , p6_a2
1413 , p6_a3
1414 , p6_a4
1415 , p6_a5
1416 , p6_a6
1417 , p6_a7
1418 , p6_a8
1419 , p6_a9
1420 , p6_a10
1421 , p6_a11
1422 , p6_a12
1423 , p6_a13
1424 , p6_a14
1425 , p6_a15
1426 , p6_a16
1427 , p6_a17
1428 , p6_a18
1429 , p6_a19
1430 , p6_a20
1431 , p6_a21
1432 );
1433
1434 fun_trx_pvt_w.rosetta_table_copy_out_p8(ddp_init_dist_tbl, p7_a0
1435 , p7_a1
1436 , p7_a2
1437 , p7_a3
1438 , p7_a4
1439 , p7_a5
1440 , p7_a6
1441 );
1442
1443 fun_trx_pvt_w.rosetta_table_copy_out_p9(ddp_dist_lines_tbl, p8_a0
1444 , p8_a1
1445 , p8_a2
1446 , p8_a3
1447 , p8_a4
1448 , p8_a5
1449 , p8_a6
1450 , p8_a7
1451 , p8_a8
1452 , p8_a9
1453 , p8_a10
1454 , p8_a11
1455 );
1456 end;
1457
1458 procedure create_reverse_trx(p_api_version NUMBER
1459 , p_init_msg_list VARCHAR2
1460 , p_commit VARCHAR2
1461 , p_validation_level NUMBER
1462 , p_trx_tbl_id JTF_NUMBER_TABLE
1463 , p_reversed_batch_number VARCHAR2
1464 , p_reversal_method VARCHAR2
1465 , p_reversed_batch_date DATE
1466 , p_reversed_gl_date DATE
1467 , p_reversed_description VARCHAR2
1468 , x_return_status out nocopy VARCHAR2
1469 , x_reversed_batch_id in out nocopy NUMBER
1470 )
1471
1472 as
1473 ddp_trx_tbl_id fun_trx_pvt.number_type;
1474 ddindx binary_integer; indx binary_integer;
1475 begin
1476
1477 -- copy data to the local IN or IN-OUT args, if any
1478
1479
1480
1481
1482 fun_trx_pvt_w.rosetta_table_copy_in_p10(ddp_trx_tbl_id, p_trx_tbl_id);
1483
1484
1485
1486
1487
1488
1489
1490
1491 -- here's the delegated call to the old PL/SQL routine
1492 fun_trx_pvt.create_reverse_trx(p_api_version,
1493 p_init_msg_list,
1494 p_commit,
1495 p_validation_level,
1496 ddp_trx_tbl_id,
1497 p_reversed_batch_number,
1498 p_reversal_method,
1499 p_reversed_batch_date,
1500 p_reversed_gl_date,
1501 p_reversed_description,
1502 x_return_status,
1503 x_reversed_batch_id);
1504
1505 -- copy data back from the local variables to OUT or IN-OUT args, if any
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517 end;
1518
1519 procedure recipient_validate(p_api_version NUMBER
1520 , p_init_msg_list VARCHAR2
1521 , p_validation_level NUMBER
1522 , x_return_status out nocopy VARCHAR2
1523 , x_msg_count out nocopy NUMBER
1524 , x_msg_data out nocopy VARCHAR2
1525 , p6_a0 in out nocopy NUMBER
1526 , p6_a1 in out nocopy VARCHAR2
1527 , p6_a2 in out nocopy NUMBER
1528 , p6_a3 in out nocopy NUMBER
1529 , p6_a4 in out nocopy NUMBER
1530 , p6_a5 in out nocopy NUMBER
1531 , p6_a6 in out nocopy VARCHAR2
1532 , p6_a7 in out nocopy VARCHAR2
1533 , p6_a8 in out nocopy VARCHAR2
1534 , p6_a9 in out nocopy VARCHAR2
1535 , p6_a10 in out nocopy NUMBER
1536 , p6_a11 in out nocopy VARCHAR2
1537 , p6_a12 in out nocopy DATE
1538 , p6_a13 in out nocopy DATE
1539 , p6_a14 in out nocopy VARCHAR2
1540 , p6_a15 in out nocopy NUMBER
1541 , p6_a16 in out nocopy VARCHAR2
1542 , p7_a0 in out nocopy NUMBER
1543 , p7_a1 in out nocopy NUMBER
1544 , p7_a2 in out nocopy NUMBER
1545 , p7_a3 in out nocopy NUMBER
1546 , p7_a4 in out nocopy NUMBER
1547 , p7_a5 in out nocopy NUMBER
1548 , p7_a6 in out nocopy VARCHAR2
1549 , p7_a7 in out nocopy NUMBER
1550 , p7_a8 in out nocopy NUMBER
1551 , p7_a9 in out nocopy NUMBER
1552 , p7_a10 in out nocopy NUMBER
1553 , p7_a11 in out nocopy VARCHAR2
1554 , p7_a12 in out nocopy VARCHAR2
1555 , p7_a13 in out nocopy NUMBER
1556 , p7_a14 in out nocopy DATE
1557 , p7_a15 in out nocopy NUMBER
1558 , p7_a16 in out nocopy NUMBER
1559 , p7_a17 in out nocopy NUMBER
1560 , p7_a18 in out nocopy VARCHAR2
1561 , p7_a19 in out nocopy VARCHAR2
1562 , p7_a20 in out nocopy VARCHAR2
1563 , p7_a21 in out nocopy VARCHAR2
1564 , p8_a0 in out nocopy JTF_NUMBER_TABLE
1565 , p8_a1 in out nocopy JTF_NUMBER_TABLE
1566 , p8_a2 in out nocopy JTF_NUMBER_TABLE
1567 , p8_a3 in out nocopy JTF_NUMBER_TABLE
1568 , p8_a4 in out nocopy JTF_NUMBER_TABLE
1569 , p8_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1570 , p8_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1571 , p8_a7 in out nocopy JTF_NUMBER_TABLE
1572 , p8_a8 in out nocopy JTF_NUMBER_TABLE
1573 , p8_a9 in out nocopy JTF_NUMBER_TABLE
1574 , p8_a10 in out nocopy JTF_NUMBER_TABLE
1575 , p8_a11 in out nocopy JTF_VARCHAR2_TABLE_100
1576 )
1577
1578 as
1579 ddp_batch_rec fun_trx_pvt.batch_rec_type;
1580 ddp_trx_rec fun_trx_pvt.trx_rec_type;
1581 ddp_dist_lines_tbl fun_trx_pvt.dist_line_tbl_type;
1582 ddindx binary_integer; indx binary_integer;
1583 begin
1584
1585 -- copy data to the local IN or IN-OUT args, if any
1586
1587
1588
1589
1590
1591
1592 ddp_batch_rec.batch_id := p6_a0;
1593 ddp_batch_rec.batch_number := p6_a1;
1594 ddp_batch_rec.initiator_id := p6_a2;
1595 ddp_batch_rec.from_le_id := p6_a3;
1596 ddp_batch_rec.from_ledger_id := p6_a4;
1597 ddp_batch_rec.control_total := p6_a5;
1598 ddp_batch_rec.currency_code := p6_a6;
1599 ddp_batch_rec.exchange_rate_type := p6_a7;
1600 ddp_batch_rec.status := p6_a8;
1601 ddp_batch_rec.description := p6_a9;
1602 ddp_batch_rec.trx_type_id := p6_a10;
1603 ddp_batch_rec.trx_type_code := p6_a11;
1604 ddp_batch_rec.gl_date := p6_a12;
1605 ddp_batch_rec.batch_date := p6_a13;
1606 ddp_batch_rec.reject_allowed := p6_a14;
1607 ddp_batch_rec.from_recurring_batch := p6_a15;
1608 ddp_batch_rec.automatic_proration_flag := p6_a16;
1609
1610 ddp_trx_rec.trx_id := p7_a0;
1611 ddp_trx_rec.initiator_id := p7_a1;
1612 ddp_trx_rec.recipient_id := p7_a2;
1613 ddp_trx_rec.to_le_id := p7_a3;
1614 ddp_trx_rec.to_ledger_id := p7_a4;
1615 ddp_trx_rec.batch_id := p7_a5;
1616 ddp_trx_rec.status := p7_a6;
1617 ddp_trx_rec.init_amount_cr := p7_a7;
1618 ddp_trx_rec.init_amount_dr := p7_a8;
1619 ddp_trx_rec.reci_amount_cr := p7_a9;
1620 ddp_trx_rec.reci_amount_dr := p7_a10;
1621 ddp_trx_rec.ar_invoice_number := p7_a11;
1622 ddp_trx_rec.invoicing_rule := p7_a12;
1623 ddp_trx_rec.approver_id := p7_a13;
1624 ddp_trx_rec.approval_date := p7_a14;
1625 ddp_trx_rec.original_trx_id := p7_a15;
1626 ddp_trx_rec.reversed_trx_id := p7_a16;
1627 ddp_trx_rec.from_recurring_trx_id := p7_a17;
1628 ddp_trx_rec.initiator_instance := p7_a18;
1629 ddp_trx_rec.recipient_instance := p7_a19;
1630 ddp_trx_rec.automatic_proration_flag := p7_a20;
1631 ddp_trx_rec.trx_number := p7_a21;
1632
1633 fun_trx_pvt_w.rosetta_table_copy_in_p9(ddp_dist_lines_tbl, p8_a0
1634 , p8_a1
1635 , p8_a2
1636 , p8_a3
1637 , p8_a4
1638 , p8_a5
1639 , p8_a6
1640 , p8_a7
1641 , p8_a8
1642 , p8_a9
1643 , p8_a10
1644 , p8_a11
1645 );
1646
1647 -- here's the delegated call to the old PL/SQL routine
1648 fun_trx_pvt.recipient_validate(p_api_version,
1649 p_init_msg_list,
1650 p_validation_level,
1651 x_return_status,
1652 x_msg_count,
1653 x_msg_data,
1654 ddp_batch_rec,
1655 ddp_trx_rec,
1656 ddp_dist_lines_tbl);
1657
1658 -- copy data back from the local variables to OUT or IN-OUT args, if any
1659
1660
1661
1662
1663
1664
1665 p6_a0 := ddp_batch_rec.batch_id;
1666 p6_a1 := ddp_batch_rec.batch_number;
1667 p6_a2 := ddp_batch_rec.initiator_id;
1668 p6_a3 := ddp_batch_rec.from_le_id;
1669 p6_a4 := ddp_batch_rec.from_ledger_id;
1670 p6_a5 := ddp_batch_rec.control_total;
1671 p6_a6 := ddp_batch_rec.currency_code;
1672 p6_a7 := ddp_batch_rec.exchange_rate_type;
1673 p6_a8 := ddp_batch_rec.status;
1674 p6_a9 := ddp_batch_rec.description;
1675 p6_a10 := ddp_batch_rec.trx_type_id;
1676 p6_a11 := ddp_batch_rec.trx_type_code;
1677 p6_a12 := ddp_batch_rec.gl_date;
1678 p6_a13 := ddp_batch_rec.batch_date;
1679 p6_a14 := ddp_batch_rec.reject_allowed;
1680 p6_a15 := ddp_batch_rec.from_recurring_batch;
1681 p6_a16 := ddp_batch_rec.automatic_proration_flag;
1682
1683 p7_a0 := ddp_trx_rec.trx_id;
1684 p7_a1 := ddp_trx_rec.initiator_id;
1685 p7_a2 := ddp_trx_rec.recipient_id;
1686 p7_a3 := ddp_trx_rec.to_le_id;
1687 p7_a4 := ddp_trx_rec.to_ledger_id;
1688 p7_a5 := ddp_trx_rec.batch_id;
1689 p7_a6 := ddp_trx_rec.status;
1690 p7_a7 := ddp_trx_rec.init_amount_cr;
1691 p7_a8 := ddp_trx_rec.init_amount_dr;
1692 p7_a9 := ddp_trx_rec.reci_amount_cr;
1693 p7_a10 := ddp_trx_rec.reci_amount_dr;
1694 p7_a11 := ddp_trx_rec.ar_invoice_number;
1695 p7_a12 := ddp_trx_rec.invoicing_rule;
1696 p7_a13 := ddp_trx_rec.approver_id;
1697 p7_a14 := ddp_trx_rec.approval_date;
1698 p7_a15 := ddp_trx_rec.original_trx_id;
1699 p7_a16 := ddp_trx_rec.reversed_trx_id;
1700 p7_a17 := ddp_trx_rec.from_recurring_trx_id;
1701 p7_a18 := ddp_trx_rec.initiator_instance;
1702 p7_a19 := ddp_trx_rec.recipient_instance;
1703 p7_a20 := ddp_trx_rec.automatic_proration_flag;
1704 p7_a21 := ddp_trx_rec.trx_number;
1705
1706 fun_trx_pvt_w.rosetta_table_copy_out_p9(ddp_dist_lines_tbl, p8_a0
1707 , p8_a1
1708 , p8_a2
1709 , p8_a3
1710 , p8_a4
1711 , p8_a5
1712 , p8_a6
1713 , p8_a7
1714 , p8_a8
1715 , p8_a9
1716 , p8_a10
1717 , p8_a11
1718 );
1719 end;
1720
1721 procedure ini_recipient_validate(p_api_version NUMBER
1722 , p_init_msg_list VARCHAR2
1723 , p_validation_level NUMBER
1724 , x_return_status out nocopy VARCHAR2
1725 , x_msg_count out nocopy NUMBER
1726 , x_msg_data out nocopy VARCHAR2
1727 , p6_a0 in out nocopy NUMBER
1728 , p6_a1 in out nocopy VARCHAR2
1729 , p6_a2 in out nocopy NUMBER
1730 , p6_a3 in out nocopy NUMBER
1731 , p6_a4 in out nocopy NUMBER
1732 , p6_a5 in out nocopy NUMBER
1733 , p6_a6 in out nocopy VARCHAR2
1734 , p6_a7 in out nocopy VARCHAR2
1735 , p6_a8 in out nocopy VARCHAR2
1736 , p6_a9 in out nocopy VARCHAR2
1737 , p6_a10 in out nocopy NUMBER
1738 , p6_a11 in out nocopy VARCHAR2
1739 , p6_a12 in out nocopy DATE
1740 , p6_a13 in out nocopy DATE
1741 , p6_a14 in out nocopy VARCHAR2
1742 , p6_a15 in out nocopy NUMBER
1743 , p6_a16 in out nocopy VARCHAR2
1744 , p7_a0 in out nocopy NUMBER
1745 , p7_a1 in out nocopy NUMBER
1746 , p7_a2 in out nocopy NUMBER
1747 , p7_a3 in out nocopy NUMBER
1748 , p7_a4 in out nocopy NUMBER
1749 , p7_a5 in out nocopy NUMBER
1750 , p7_a6 in out nocopy VARCHAR2
1751 , p7_a7 in out nocopy NUMBER
1752 , p7_a8 in out nocopy NUMBER
1753 , p7_a9 in out nocopy NUMBER
1754 , p7_a10 in out nocopy NUMBER
1755 , p7_a11 in out nocopy VARCHAR2
1756 , p7_a12 in out nocopy VARCHAR2
1757 , p7_a13 in out nocopy NUMBER
1758 , p7_a14 in out nocopy DATE
1759 , p7_a15 in out nocopy NUMBER
1760 , p7_a16 in out nocopy NUMBER
1761 , p7_a17 in out nocopy NUMBER
1762 , p7_a18 in out nocopy VARCHAR2
1763 , p7_a19 in out nocopy VARCHAR2
1764 , p7_a20 in out nocopy VARCHAR2
1765 , p7_a21 in out nocopy VARCHAR2
1766 , p8_a0 in out nocopy JTF_NUMBER_TABLE
1767 , p8_a1 in out nocopy JTF_NUMBER_TABLE
1768 , p8_a2 in out nocopy JTF_NUMBER_TABLE
1769 , p8_a3 in out nocopy JTF_NUMBER_TABLE
1770 , p8_a4 in out nocopy JTF_NUMBER_TABLE
1771 , p8_a5 in out nocopy JTF_VARCHAR2_TABLE_100
1772 , p8_a6 in out nocopy JTF_VARCHAR2_TABLE_100
1773 , p8_a7 in out nocopy JTF_NUMBER_TABLE
1774 , p8_a8 in out nocopy JTF_NUMBER_TABLE
1775 , p8_a9 in out nocopy JTF_NUMBER_TABLE
1776 , p8_a10 in out nocopy JTF_NUMBER_TABLE
1777 , p8_a11 in out nocopy JTF_VARCHAR2_TABLE_100
1778 )
1779
1780 as
1781 ddp_batch_rec fun_trx_pvt.batch_rec_type;
1782 ddp_trx_rec fun_trx_pvt.trx_rec_type;
1783 ddp_dist_lines_tbl fun_trx_pvt.dist_line_tbl_type;
1784 ddindx binary_integer; indx binary_integer;
1785 begin
1786
1787 -- copy data to the local IN or IN-OUT args, if any
1788
1789
1790
1791
1792
1793
1794 ddp_batch_rec.batch_id := p6_a0;
1795 ddp_batch_rec.batch_number := p6_a1;
1796 ddp_batch_rec.initiator_id := p6_a2;
1797 ddp_batch_rec.from_le_id := p6_a3;
1798 ddp_batch_rec.from_ledger_id := p6_a4;
1799 ddp_batch_rec.control_total := p6_a5;
1800 ddp_batch_rec.currency_code := p6_a6;
1801 ddp_batch_rec.exchange_rate_type := p6_a7;
1802 ddp_batch_rec.status := p6_a8;
1803 ddp_batch_rec.description := p6_a9;
1804 ddp_batch_rec.trx_type_id := p6_a10;
1805 ddp_batch_rec.trx_type_code := p6_a11;
1806 ddp_batch_rec.gl_date := p6_a12;
1807 ddp_batch_rec.batch_date := p6_a13;
1808 ddp_batch_rec.reject_allowed := p6_a14;
1809 ddp_batch_rec.from_recurring_batch := p6_a15;
1810 ddp_batch_rec.automatic_proration_flag := p6_a16;
1811
1812 ddp_trx_rec.trx_id := p7_a0;
1813 ddp_trx_rec.initiator_id := p7_a1;
1814 ddp_trx_rec.recipient_id := p7_a2;
1815 ddp_trx_rec.to_le_id := p7_a3;
1816 ddp_trx_rec.to_ledger_id := p7_a4;
1817 ddp_trx_rec.batch_id := p7_a5;
1818 ddp_trx_rec.status := p7_a6;
1819 ddp_trx_rec.init_amount_cr := p7_a7;
1820 ddp_trx_rec.init_amount_dr := p7_a8;
1821 ddp_trx_rec.reci_amount_cr := p7_a9;
1822 ddp_trx_rec.reci_amount_dr := p7_a10;
1823 ddp_trx_rec.ar_invoice_number := p7_a11;
1824 ddp_trx_rec.invoicing_rule := p7_a12;
1825 ddp_trx_rec.approver_id := p7_a13;
1826 ddp_trx_rec.approval_date := p7_a14;
1827 ddp_trx_rec.original_trx_id := p7_a15;
1828 ddp_trx_rec.reversed_trx_id := p7_a16;
1829 ddp_trx_rec.from_recurring_trx_id := p7_a17;
1830 ddp_trx_rec.initiator_instance := p7_a18;
1831 ddp_trx_rec.recipient_instance := p7_a19;
1832 ddp_trx_rec.automatic_proration_flag := p7_a20;
1833 ddp_trx_rec.trx_number := p7_a21;
1834
1835 fun_trx_pvt_w.rosetta_table_copy_in_p9(ddp_dist_lines_tbl, p8_a0
1836 , p8_a1
1837 , p8_a2
1838 , p8_a3
1839 , p8_a4
1840 , p8_a5
1841 , p8_a6
1842 , p8_a7
1843 , p8_a8
1844 , p8_a9
1845 , p8_a10
1846 , p8_a11
1847 );
1848
1849 -- here's the delegated call to the old PL/SQL routine
1850 fun_trx_pvt.ini_recipient_validate(p_api_version,
1851 p_init_msg_list,
1852 p_validation_level,
1853 x_return_status,
1854 x_msg_count,
1855 x_msg_data,
1856 ddp_batch_rec,
1857 ddp_trx_rec,
1858 ddp_dist_lines_tbl);
1859
1860 -- copy data back from the local variables to OUT or IN-OUT args, if any
1861
1862
1863
1864
1865
1866
1867 p6_a0 := ddp_batch_rec.batch_id;
1868 p6_a1 := ddp_batch_rec.batch_number;
1869 p6_a2 := ddp_batch_rec.initiator_id;
1870 p6_a3 := ddp_batch_rec.from_le_id;
1871 p6_a4 := ddp_batch_rec.from_ledger_id;
1872 p6_a5 := ddp_batch_rec.control_total;
1873 p6_a6 := ddp_batch_rec.currency_code;
1874 p6_a7 := ddp_batch_rec.exchange_rate_type;
1875 p6_a8 := ddp_batch_rec.status;
1876 p6_a9 := ddp_batch_rec.description;
1877 p6_a10 := ddp_batch_rec.trx_type_id;
1878 p6_a11 := ddp_batch_rec.trx_type_code;
1879 p6_a12 := ddp_batch_rec.gl_date;
1880 p6_a13 := ddp_batch_rec.batch_date;
1881 p6_a14 := ddp_batch_rec.reject_allowed;
1882 p6_a15 := ddp_batch_rec.from_recurring_batch;
1883 p6_a16 := ddp_batch_rec.automatic_proration_flag;
1884
1885 p7_a0 := ddp_trx_rec.trx_id;
1886 p7_a1 := ddp_trx_rec.initiator_id;
1887 p7_a2 := ddp_trx_rec.recipient_id;
1888 p7_a3 := ddp_trx_rec.to_le_id;
1889 p7_a4 := ddp_trx_rec.to_ledger_id;
1890 p7_a5 := ddp_trx_rec.batch_id;
1891 p7_a6 := ddp_trx_rec.status;
1892 p7_a7 := ddp_trx_rec.init_amount_cr;
1893 p7_a8 := ddp_trx_rec.init_amount_dr;
1894 p7_a9 := ddp_trx_rec.reci_amount_cr;
1895 p7_a10 := ddp_trx_rec.reci_amount_dr;
1896 p7_a11 := ddp_trx_rec.ar_invoice_number;
1897 p7_a12 := ddp_trx_rec.invoicing_rule;
1898 p7_a13 := ddp_trx_rec.approver_id;
1899 p7_a14 := ddp_trx_rec.approval_date;
1900 p7_a15 := ddp_trx_rec.original_trx_id;
1901 p7_a16 := ddp_trx_rec.reversed_trx_id;
1902 p7_a17 := ddp_trx_rec.from_recurring_trx_id;
1903 p7_a18 := ddp_trx_rec.initiator_instance;
1904 p7_a19 := ddp_trx_rec.recipient_instance;
1905 p7_a20 := ddp_trx_rec.automatic_proration_flag;
1906 p7_a21 := ddp_trx_rec.trx_number;
1907
1908 fun_trx_pvt_w.rosetta_table_copy_out_p9(ddp_dist_lines_tbl, p8_a0
1909 , p8_a1
1910 , p8_a2
1911 , p8_a3
1912 , p8_a4
1913 , p8_a5
1914 , p8_a6
1915 , p8_a7
1916 , p8_a8
1917 , p8_a9
1918 , p8_a10
1919 , p8_a11
1920 );
1921 end;
1922
1923 end fun_trx_pvt_w;