[Home] [Help]
PACKAGE BODY: APPS.LNS_DISTRIBUTIONS_PUB_W
Source
1 package body lns_distributions_pub_w as
2 /* $Header: LNS_DIST_PUBJ_B.pls 120.6.12020000.2 2012/07/19 20:55:00 scherkas ship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy lns_distributions_pub.distribution_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_100
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_VARCHAR2_TABLE_100
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_NUMBER_TABLE
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_DATE_TABLE
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_VARCHAR2_TABLE_100
21 ) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if a0 is not null and a0.count > 0 then
25 if a0.count > 0 then
26 indx := a0.first;
27 ddindx := 1;
28 while true loop
29 t(ddindx).distribution_id := a0(indx);
30 t(ddindx).loan_id := a1(indx);
31 t(ddindx).line_type := a2(indx);
32 t(ddindx).account_name := a3(indx);
33 t(ddindx).code_combination_id := a4(indx);
34 t(ddindx).account_type := a5(indx);
35 t(ddindx).distribution_percent := a6(indx);
36 t(ddindx).distribution_amount := a7(indx);
37 t(ddindx).calculate_flag := a8(indx);
38 t(ddindx).distribution_type := a9(indx);
39 t(ddindx).event_id := a10(indx);
40 t(ddindx).disb_header_id := a11(indx);
41 t(ddindx).loan_amount_adj_id := a12(indx);
42 t(ddindx).loan_line_id := a13(indx);
43 t(ddindx).activity := a14(indx);
44 t(ddindx).accrual_date := a15(indx);
45 t(ddindx).accrual_completed_flag := a16(indx);
46 t(ddindx).accrual_period := a17(indx);
47 ddindx := ddindx+1;
48 if a0.last =indx
49 then exit;
50 end if;
51 indx := a0.next(indx);
52 end loop;
53 end if;
54 end if;
55 end rosetta_table_copy_in_p1;
56 procedure rosetta_table_copy_out_p1(t lns_distributions_pub.distribution_tbl, a0 out nocopy JTF_NUMBER_TABLE
57 , a1 out nocopy JTF_NUMBER_TABLE
58 , a2 out nocopy JTF_VARCHAR2_TABLE_100
59 , a3 out nocopy JTF_VARCHAR2_TABLE_100
60 , a4 out nocopy JTF_NUMBER_TABLE
61 , a5 out nocopy JTF_VARCHAR2_TABLE_100
62 , a6 out nocopy JTF_NUMBER_TABLE
63 , a7 out nocopy JTF_NUMBER_TABLE
64 , a8 out nocopy JTF_VARCHAR2_TABLE_100
65 , a9 out nocopy JTF_VARCHAR2_TABLE_100
66 , a10 out nocopy JTF_NUMBER_TABLE
67 , a11 out nocopy JTF_NUMBER_TABLE
68 , a12 out nocopy JTF_NUMBER_TABLE
69 , a13 out nocopy JTF_NUMBER_TABLE
70 , a14 out nocopy JTF_VARCHAR2_TABLE_100
71 , a15 out nocopy JTF_DATE_TABLE
72 , a16 out nocopy JTF_VARCHAR2_TABLE_100
73 , a17 out nocopy JTF_VARCHAR2_TABLE_100
74 ) as
75 ddindx binary_integer; indx binary_integer;
76 begin
77 if t is null or t.count = 0 then
78 a0 := JTF_NUMBER_TABLE();
79 a1 := JTF_NUMBER_TABLE();
80 a2 := JTF_VARCHAR2_TABLE_100();
81 a3 := JTF_VARCHAR2_TABLE_100();
82 a4 := JTF_NUMBER_TABLE();
83 a5 := JTF_VARCHAR2_TABLE_100();
84 a6 := JTF_NUMBER_TABLE();
85 a7 := JTF_NUMBER_TABLE();
86 a8 := JTF_VARCHAR2_TABLE_100();
87 a9 := JTF_VARCHAR2_TABLE_100();
88 a10 := JTF_NUMBER_TABLE();
89 a11 := JTF_NUMBER_TABLE();
90 a12 := JTF_NUMBER_TABLE();
91 a13 := JTF_NUMBER_TABLE();
92 a14 := JTF_VARCHAR2_TABLE_100();
93 a15 := JTF_DATE_TABLE();
94 a16 := JTF_VARCHAR2_TABLE_100();
95 a17 := JTF_VARCHAR2_TABLE_100();
96 else
97 a0 := JTF_NUMBER_TABLE();
98 a1 := JTF_NUMBER_TABLE();
99 a2 := JTF_VARCHAR2_TABLE_100();
100 a3 := JTF_VARCHAR2_TABLE_100();
101 a4 := JTF_NUMBER_TABLE();
102 a5 := JTF_VARCHAR2_TABLE_100();
103 a6 := JTF_NUMBER_TABLE();
104 a7 := JTF_NUMBER_TABLE();
105 a8 := JTF_VARCHAR2_TABLE_100();
106 a9 := JTF_VARCHAR2_TABLE_100();
107 a10 := JTF_NUMBER_TABLE();
108 a11 := JTF_NUMBER_TABLE();
109 a12 := JTF_NUMBER_TABLE();
110 a13 := JTF_NUMBER_TABLE();
111 a14 := JTF_VARCHAR2_TABLE_100();
112 a15 := JTF_DATE_TABLE();
113 a16 := JTF_VARCHAR2_TABLE_100();
114 a17 := JTF_VARCHAR2_TABLE_100();
115 if t.count > 0 then
116 a0.extend(t.count);
117 a1.extend(t.count);
118 a2.extend(t.count);
119 a3.extend(t.count);
120 a4.extend(t.count);
121 a5.extend(t.count);
122 a6.extend(t.count);
123 a7.extend(t.count);
124 a8.extend(t.count);
125 a9.extend(t.count);
126 a10.extend(t.count);
127 a11.extend(t.count);
128 a12.extend(t.count);
129 a13.extend(t.count);
130 a14.extend(t.count);
131 a15.extend(t.count);
132 a16.extend(t.count);
133 a17.extend(t.count);
134 ddindx := t.first;
135 indx := 1;
136 while true loop
137 a0(indx) := t(ddindx).distribution_id;
138 a1(indx) := t(ddindx).loan_id;
139 a2(indx) := t(ddindx).line_type;
140 a3(indx) := t(ddindx).account_name;
141 a4(indx) := t(ddindx).code_combination_id;
142 a5(indx) := t(ddindx).account_type;
143 a6(indx) := t(ddindx).distribution_percent;
144 a7(indx) := t(ddindx).distribution_amount;
145 a8(indx) := t(ddindx).calculate_flag;
146 a9(indx) := t(ddindx).distribution_type;
147 a10(indx) := t(ddindx).event_id;
148 a11(indx) := t(ddindx).disb_header_id;
149 a12(indx) := t(ddindx).loan_amount_adj_id;
150 a13(indx) := t(ddindx).loan_line_id;
151 a14(indx) := t(ddindx).activity;
152 a15(indx) := t(ddindx).accrual_date;
153 a16(indx) := t(ddindx).accrual_completed_flag;
154 a17(indx) := t(ddindx).accrual_period;
155 indx := indx+1;
156 if t.last =ddindx
157 then exit;
158 end if;
159 ddindx := t.next(ddindx);
160 end loop;
161 end if;
162 end if;
163 end rosetta_table_copy_out_p1;
164
165 procedure rosetta_table_copy_in_p3(t out nocopy lns_distributions_pub.default_distributions_tbl, a0 JTF_VARCHAR2_TABLE_100
166 , a1 JTF_VARCHAR2_TABLE_100
167 , a2 JTF_VARCHAR2_TABLE_100
168 , a3 JTF_VARCHAR2_TABLE_100
169 , a4 JTF_NUMBER_TABLE
170 , a5 JTF_VARCHAR2_TABLE_100
171 , a6 JTF_NUMBER_TABLE
172 , a7 JTF_VARCHAR2_TABLE_100
173 , a8 JTF_NUMBER_TABLE
174 , a9 JTF_NUMBER_TABLE
175 , a10 JTF_VARCHAR2_TABLE_100
176 , a11 JTF_VARCHAR2_TABLE_100
177 , a12 JTF_VARCHAR2_TABLE_100
178 ) as
179 ddindx binary_integer; indx binary_integer;
180 begin
181 if a0 is not null and a0.count > 0 then
182 if a0.count > 0 then
183 indx := a0.first;
184 ddindx := 1;
185 while true loop
186 t(ddindx).loan_class := a0(indx);
187 t(ddindx).loan_type := a1(indx);
188 t(ddindx).line_type := a2(indx);
189 t(ddindx).account_name := a3(indx);
190 t(ddindx).code_combination_id := a4(indx);
191 t(ddindx).account_type := a5(indx);
192 t(ddindx).distribution_percent := a6(indx);
193 t(ddindx).distribution_type := a7(indx);
194 t(ddindx).fee_id := a8(indx);
195 t(ddindx).org_id := a9(indx);
196 t(ddindx).mfar_balancing_segment := a10(indx);
197 t(ddindx).mfar_natural_account_rec := a11(indx);
198 t(ddindx).mfar_natural_account_clr := a12(indx);
199 ddindx := ddindx+1;
200 if a0.last =indx
201 then exit;
202 end if;
203 indx := a0.next(indx);
204 end loop;
205 end if;
206 end if;
207 end rosetta_table_copy_in_p3;
208 procedure rosetta_table_copy_out_p3(t lns_distributions_pub.default_distributions_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100
209 , a1 out nocopy JTF_VARCHAR2_TABLE_100
210 , a2 out nocopy JTF_VARCHAR2_TABLE_100
211 , a3 out nocopy JTF_VARCHAR2_TABLE_100
212 , a4 out nocopy JTF_NUMBER_TABLE
213 , a5 out nocopy JTF_VARCHAR2_TABLE_100
214 , a6 out nocopy JTF_NUMBER_TABLE
215 , a7 out nocopy JTF_VARCHAR2_TABLE_100
216 , a8 out nocopy JTF_NUMBER_TABLE
217 , a9 out nocopy JTF_NUMBER_TABLE
218 , a10 out nocopy JTF_VARCHAR2_TABLE_100
219 , a11 out nocopy JTF_VARCHAR2_TABLE_100
220 , a12 out nocopy JTF_VARCHAR2_TABLE_100
221 ) as
222 ddindx binary_integer; indx binary_integer;
223 begin
224 if t is null or t.count = 0 then
225 a0 := JTF_VARCHAR2_TABLE_100();
226 a1 := JTF_VARCHAR2_TABLE_100();
227 a2 := JTF_VARCHAR2_TABLE_100();
228 a3 := JTF_VARCHAR2_TABLE_100();
229 a4 := JTF_NUMBER_TABLE();
230 a5 := JTF_VARCHAR2_TABLE_100();
231 a6 := JTF_NUMBER_TABLE();
232 a7 := JTF_VARCHAR2_TABLE_100();
233 a8 := JTF_NUMBER_TABLE();
234 a9 := JTF_NUMBER_TABLE();
235 a10 := JTF_VARCHAR2_TABLE_100();
236 a11 := JTF_VARCHAR2_TABLE_100();
237 a12 := JTF_VARCHAR2_TABLE_100();
238 else
239 a0 := JTF_VARCHAR2_TABLE_100();
240 a1 := JTF_VARCHAR2_TABLE_100();
241 a2 := JTF_VARCHAR2_TABLE_100();
242 a3 := JTF_VARCHAR2_TABLE_100();
243 a4 := JTF_NUMBER_TABLE();
244 a5 := JTF_VARCHAR2_TABLE_100();
245 a6 := JTF_NUMBER_TABLE();
246 a7 := JTF_VARCHAR2_TABLE_100();
247 a8 := JTF_NUMBER_TABLE();
248 a9 := JTF_NUMBER_TABLE();
249 a10 := JTF_VARCHAR2_TABLE_100();
250 a11 := JTF_VARCHAR2_TABLE_100();
251 a12 := JTF_VARCHAR2_TABLE_100();
252 if t.count > 0 then
253 a0.extend(t.count);
254 a1.extend(t.count);
255 a2.extend(t.count);
256 a3.extend(t.count);
257 a4.extend(t.count);
258 a5.extend(t.count);
259 a6.extend(t.count);
260 a7.extend(t.count);
261 a8.extend(t.count);
262 a9.extend(t.count);
263 a10.extend(t.count);
264 a11.extend(t.count);
265 a12.extend(t.count);
266 ddindx := t.first;
267 indx := 1;
268 while true loop
269 a0(indx) := t(ddindx).loan_class;
270 a1(indx) := t(ddindx).loan_type;
271 a2(indx) := t(ddindx).line_type;
272 a3(indx) := t(ddindx).account_name;
273 a4(indx) := t(ddindx).code_combination_id;
274 a5(indx) := t(ddindx).account_type;
275 a6(indx) := t(ddindx).distribution_percent;
276 a7(indx) := t(ddindx).distribution_type;
277 a8(indx) := t(ddindx).fee_id;
278 a9(indx) := t(ddindx).org_id;
279 a10(indx) := t(ddindx).mfar_balancing_segment;
280 a11(indx) := t(ddindx).mfar_natural_account_rec;
281 a12(indx) := t(ddindx).mfar_natural_account_clr;
282 indx := indx+1;
283 if t.last =ddindx
284 then exit;
285 end if;
286 ddindx := t.next(ddindx);
287 end loop;
288 end if;
289 end if;
290 end rosetta_table_copy_out_p3;
291
292 procedure rosetta_table_copy_in_p5(t out nocopy lns_distributions_pub.acc_event_tbl, a0 JTF_NUMBER_TABLE
293 , a1 JTF_VARCHAR2_TABLE_100
294 , a2 JTF_DATE_TABLE
295 , a3 JTF_VARCHAR2_TABLE_100
296 , a4 JTF_NUMBER_TABLE
297 , a5 JTF_VARCHAR2_TABLE_100
298 , a6 JTF_NUMBER_TABLE
299 , a7 JTF_NUMBER_TABLE
300 ) as
301 ddindx binary_integer; indx binary_integer;
302 begin
303 if a0 is not null and a0.count > 0 then
304 if a0.count > 0 then
305 indx := a0.first;
306 ddindx := 1;
307 while true loop
308 t(ddindx).loan_id := a0(indx);
309 t(ddindx).event_type_code := a1(indx);
310 t(ddindx).event_date := a2(indx);
311 t(ddindx).event_status := a3(indx);
312 t(ddindx).disb_header_id := a4(indx);
313 t(ddindx).budgetary_control_flag := a5(indx);
314 t(ddindx).loan_amount_adj_id := a6(indx);
315 t(ddindx).loan_line_id := a7(indx);
316 ddindx := ddindx+1;
317 if a0.last =indx
318 then exit;
319 end if;
320 indx := a0.next(indx);
321 end loop;
322 end if;
323 end if;
324 end rosetta_table_copy_in_p5;
325 procedure rosetta_table_copy_out_p5(t lns_distributions_pub.acc_event_tbl, a0 out nocopy JTF_NUMBER_TABLE
326 , a1 out nocopy JTF_VARCHAR2_TABLE_100
327 , a2 out nocopy JTF_DATE_TABLE
328 , a3 out nocopy JTF_VARCHAR2_TABLE_100
329 , a4 out nocopy JTF_NUMBER_TABLE
330 , a5 out nocopy JTF_VARCHAR2_TABLE_100
331 , a6 out nocopy JTF_NUMBER_TABLE
332 , a7 out nocopy JTF_NUMBER_TABLE
333 ) as
334 ddindx binary_integer; indx binary_integer;
335 begin
336 if t is null or t.count = 0 then
337 a0 := JTF_NUMBER_TABLE();
338 a1 := JTF_VARCHAR2_TABLE_100();
339 a2 := JTF_DATE_TABLE();
340 a3 := JTF_VARCHAR2_TABLE_100();
341 a4 := JTF_NUMBER_TABLE();
342 a5 := JTF_VARCHAR2_TABLE_100();
343 a6 := JTF_NUMBER_TABLE();
344 a7 := JTF_NUMBER_TABLE();
345 else
346 a0 := JTF_NUMBER_TABLE();
347 a1 := JTF_VARCHAR2_TABLE_100();
348 a2 := JTF_DATE_TABLE();
349 a3 := JTF_VARCHAR2_TABLE_100();
350 a4 := JTF_NUMBER_TABLE();
351 a5 := JTF_VARCHAR2_TABLE_100();
352 a6 := JTF_NUMBER_TABLE();
353 a7 := JTF_NUMBER_TABLE();
354 if t.count > 0 then
355 a0.extend(t.count);
356 a1.extend(t.count);
357 a2.extend(t.count);
358 a3.extend(t.count);
359 a4.extend(t.count);
360 a5.extend(t.count);
361 a6.extend(t.count);
362 a7.extend(t.count);
363 ddindx := t.first;
364 indx := 1;
365 while true loop
366 a0(indx) := t(ddindx).loan_id;
367 a1(indx) := t(ddindx).event_type_code;
368 a2(indx) := t(ddindx).event_date;
369 a3(indx) := t(ddindx).event_status;
370 a4(indx) := t(ddindx).disb_header_id;
371 a5(indx) := t(ddindx).budgetary_control_flag;
372 a6(indx) := t(ddindx).loan_amount_adj_id;
373 a7(indx) := t(ddindx).loan_line_id;
374 indx := indx+1;
375 if t.last =ddindx
376 then exit;
377 end if;
378 ddindx := t.next(ddindx);
379 end loop;
380 end if;
381 end if;
382 end rosetta_table_copy_out_p5;
383
384 procedure rosetta_table_copy_in_p6(t out nocopy lns_distributions_pub.g_number_tbl, a0 JTF_NUMBER_TABLE) as
385 ddindx binary_integer; indx binary_integer;
386 begin
387 if a0 is not null and a0.count > 0 then
388 if a0.count > 0 then
389 indx := a0.first;
390 ddindx := 1;
391 while true loop
392 t(ddindx) := a0(indx);
393 ddindx := ddindx+1;
394 if a0.last =indx
395 then exit;
396 end if;
397 indx := a0.next(indx);
398 end loop;
399 end if;
400 end if;
401 end rosetta_table_copy_in_p6;
402 procedure rosetta_table_copy_out_p6(t lns_distributions_pub.g_number_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
403 ddindx binary_integer; indx binary_integer;
404 begin
405 if t is null or t.count = 0 then
406 a0 := JTF_NUMBER_TABLE();
407 else
408 a0 := JTF_NUMBER_TABLE();
409 if t.count > 0 then
410 a0.extend(t.count);
411 ddindx := t.first;
412 indx := 1;
413 while true loop
414 a0(indx) := t(ddindx);
415 indx := indx+1;
416 if t.last =ddindx
417 then exit;
418 end if;
419 ddindx := t.next(ddindx);
420 end loop;
421 end if;
422 end if;
423 end rosetta_table_copy_out_p6;
424
425 procedure create_event(p0_a0 JTF_NUMBER_TABLE
426 , p0_a1 JTF_VARCHAR2_TABLE_100
427 , p0_a2 JTF_DATE_TABLE
428 , p0_a3 JTF_VARCHAR2_TABLE_100
429 , p0_a4 JTF_NUMBER_TABLE
430 , p0_a5 JTF_VARCHAR2_TABLE_100
431 , p0_a6 JTF_NUMBER_TABLE
432 , p0_a7 JTF_NUMBER_TABLE
433 , p_init_msg_list VARCHAR2
434 , p_commit VARCHAR2
435 , x_return_status out nocopy VARCHAR2
436 , x_msg_count out nocopy NUMBER
437 , x_msg_data out nocopy VARCHAR2
438 )
439
440 as
441 ddp_acc_event_tbl lns_distributions_pub.acc_event_tbl;
442 ddindx binary_integer; indx binary_integer;
443 begin
444
445 -- copy data to the local IN or IN-OUT args, if any
446 lns_distributions_pub_w.rosetta_table_copy_in_p5(ddp_acc_event_tbl, p0_a0
447 , p0_a1
448 , p0_a2
449 , p0_a3
450 , p0_a4
451 , p0_a5
452 , p0_a6
453 , p0_a7
454 );
455
456
457
458
459
460
461 -- here's the delegated call to the old PL/SQL routine
462 lns_distributions_pub.create_event(ddp_acc_event_tbl,
463 p_init_msg_list,
464 p_commit,
465 x_return_status,
466 x_msg_count,
467 x_msg_data);
468
469 -- copy data back from the local variables to OUT or IN-OUT args, if any
470
471
472
473
474
475 end;
476
477 procedure defaultdistributionscatch(p_api_version NUMBER
478 , p_init_msg_list VARCHAR2
479 , p_commit VARCHAR2
480 , p_loan_id NUMBER
481 , p_disb_header_id NUMBER
482 , p_loan_amount_adj_id NUMBER
483 , p_include_loan_receivables VARCHAR2
484 , p_distribution_type VARCHAR2
485 , p8_a0 out nocopy JTF_NUMBER_TABLE
486 , p8_a1 out nocopy JTF_NUMBER_TABLE
487 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_100
488 , p8_a3 out nocopy JTF_VARCHAR2_TABLE_100
489 , p8_a4 out nocopy JTF_NUMBER_TABLE
490 , p8_a5 out nocopy JTF_VARCHAR2_TABLE_100
491 , p8_a6 out nocopy JTF_NUMBER_TABLE
492 , p8_a7 out nocopy JTF_NUMBER_TABLE
493 , p8_a8 out nocopy JTF_VARCHAR2_TABLE_100
494 , p8_a9 out nocopy JTF_VARCHAR2_TABLE_100
495 , p8_a10 out nocopy JTF_NUMBER_TABLE
496 , p8_a11 out nocopy JTF_NUMBER_TABLE
497 , p8_a12 out nocopy JTF_NUMBER_TABLE
498 , p8_a13 out nocopy JTF_NUMBER_TABLE
499 , p8_a14 out nocopy JTF_VARCHAR2_TABLE_100
500 , p8_a15 out nocopy JTF_DATE_TABLE
501 , p8_a16 out nocopy JTF_VARCHAR2_TABLE_100
502 , p8_a17 out nocopy JTF_VARCHAR2_TABLE_100
503 , x_return_status out nocopy VARCHAR2
504 , x_msg_count out nocopy NUMBER
505 , x_msg_data out nocopy VARCHAR2
506 )
507
508 as
509 ddx_distribution_tbl lns_distributions_pub.distribution_tbl;
510 ddindx binary_integer; indx binary_integer;
511 begin
512
513 -- copy data to the local IN or IN-OUT args, if any
514
515
516
517
518
519
520
521
522
523
524
525
526 -- here's the delegated call to the old PL/SQL routine
527 lns_distributions_pub.defaultdistributionscatch(p_api_version,
528 p_init_msg_list,
529 p_commit,
530 p_loan_id,
531 p_disb_header_id,
532 p_loan_amount_adj_id,
533 p_include_loan_receivables,
534 p_distribution_type,
535 ddx_distribution_tbl,
536 x_return_status,
537 x_msg_count,
538 x_msg_data);
539
540 -- copy data back from the local variables to OUT or IN-OUT args, if any
541
542
543
544
545
546
547
548
549 lns_distributions_pub_w.rosetta_table_copy_out_p1(ddx_distribution_tbl, p8_a0
550 , p8_a1
551 , p8_a2
552 , p8_a3
553 , p8_a4
554 , p8_a5
555 , p8_a6
556 , p8_a7
557 , p8_a8
558 , p8_a9
559 , p8_a10
560 , p8_a11
561 , p8_a12
562 , p8_a13
563 , p8_a14
564 , p8_a15
565 , p8_a16
566 , p8_a17
567 );
568
569
570
571 end;
572
573 procedure validateloanlines(p_init_msg_list VARCHAR2
574 , p_loan_id NUMBER
575 , x_mfar out nocopy number
576 , x_return_status out nocopy VARCHAR2
577 , x_msg_count out nocopy NUMBER
578 , x_msg_data out nocopy VARCHAR2
579 )
580
581 as
582 ddx_mfar boolean;
583 ddindx binary_integer; indx binary_integer;
584 begin
585
586 -- copy data to the local IN or IN-OUT args, if any
587
588
589
590
591
592
593 -- here's the delegated call to the old PL/SQL routine
594 lns_distributions_pub.validateloanlines(p_init_msg_list,
595 p_loan_id,
596 ddx_mfar,
597 x_return_status,
598 x_msg_count,
599 x_msg_data);
600
601 -- copy data back from the local variables to OUT or IN-OUT args, if any
602
603
604 if ddx_mfar is null
605 then x_mfar := null;
606 elsif ddx_mfar
607 then x_mfar := 1;
608 else x_mfar := 0;
609 end if;
610
611
612
613 end;
614
615 procedure createdistrforimport(p_api_version NUMBER
616 , p_init_msg_list VARCHAR2
617 , p_commit VARCHAR2
618 , p_loan_id NUMBER
619 , p4_a0 in out nocopy JTF_NUMBER_TABLE
620 , p4_a1 in out nocopy JTF_NUMBER_TABLE
621 , p4_a2 in out nocopy JTF_VARCHAR2_TABLE_100
622 , p4_a3 in out nocopy JTF_VARCHAR2_TABLE_100
623 , p4_a4 in out nocopy JTF_NUMBER_TABLE
624 , p4_a5 in out nocopy JTF_VARCHAR2_TABLE_100
625 , p4_a6 in out nocopy JTF_NUMBER_TABLE
626 , p4_a7 in out nocopy JTF_NUMBER_TABLE
627 , p4_a8 in out nocopy JTF_VARCHAR2_TABLE_100
628 , p4_a9 in out nocopy JTF_VARCHAR2_TABLE_100
629 , p4_a10 in out nocopy JTF_NUMBER_TABLE
630 , p4_a11 in out nocopy JTF_NUMBER_TABLE
631 , p4_a12 in out nocopy JTF_NUMBER_TABLE
632 , p4_a13 in out nocopy JTF_NUMBER_TABLE
633 , p4_a14 in out nocopy JTF_VARCHAR2_TABLE_100
634 , p4_a15 in out nocopy JTF_DATE_TABLE
635 , p4_a16 in out nocopy JTF_VARCHAR2_TABLE_100
636 , p4_a17 in out nocopy JTF_VARCHAR2_TABLE_100
637 , x_return_status out nocopy VARCHAR2
638 , x_msg_count out nocopy NUMBER
639 , x_msg_data out nocopy VARCHAR2
640 )
641
642 as
643 ddx_distribution_tbl lns_distributions_pub.distribution_tbl;
644 ddindx binary_integer; indx binary_integer;
645 begin
646
647 -- copy data to the local IN or IN-OUT args, if any
648
649
650
651
652 lns_distributions_pub_w.rosetta_table_copy_in_p1(ddx_distribution_tbl, p4_a0
653 , p4_a1
654 , p4_a2
655 , p4_a3
656 , p4_a4
657 , p4_a5
658 , p4_a6
659 , p4_a7
660 , p4_a8
661 , p4_a9
662 , p4_a10
663 , p4_a11
664 , p4_a12
665 , p4_a13
666 , p4_a14
667 , p4_a15
668 , p4_a16
669 , p4_a17
670 );
671
672
673
674
675 -- here's the delegated call to the old PL/SQL routine
676 lns_distributions_pub.createdistrforimport(p_api_version,
677 p_init_msg_list,
678 p_commit,
679 p_loan_id,
680 ddx_distribution_tbl,
681 x_return_status,
682 x_msg_count,
683 x_msg_data);
684
685 -- copy data back from the local variables to OUT or IN-OUT args, if any
686
687
688
689
690 lns_distributions_pub_w.rosetta_table_copy_out_p1(ddx_distribution_tbl, p4_a0
691 , p4_a1
692 , p4_a2
693 , p4_a3
694 , p4_a4
695 , p4_a5
696 , p4_a6
697 , p4_a7
698 , p4_a8
699 , p4_a9
700 , p4_a10
701 , p4_a11
702 , p4_a12
703 , p4_a13
704 , p4_a14
705 , p4_a15
706 , p4_a16
707 , p4_a17
708 );
709
710
711
712 end;
713
714 procedure defaultbookdistforactivity(p_api_version NUMBER
715 , p_init_msg_list VARCHAR2
716 , p_commit VARCHAR2
717 , p_loan_id NUMBER
718 , p_disb_header_id NUMBER
719 , p_loan_amount_adj_id NUMBER
720 , p_activity VARCHAR2
721 , p7_a0 out nocopy JTF_NUMBER_TABLE
722 , p7_a1 out nocopy JTF_NUMBER_TABLE
723 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
724 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
725 , p7_a4 out nocopy JTF_NUMBER_TABLE
726 , p7_a5 out nocopy JTF_VARCHAR2_TABLE_100
727 , p7_a6 out nocopy JTF_NUMBER_TABLE
728 , p7_a7 out nocopy JTF_NUMBER_TABLE
729 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_100
730 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
731 , p7_a10 out nocopy JTF_NUMBER_TABLE
732 , p7_a11 out nocopy JTF_NUMBER_TABLE
733 , p7_a12 out nocopy JTF_NUMBER_TABLE
734 , p7_a13 out nocopy JTF_NUMBER_TABLE
735 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_100
736 , p7_a15 out nocopy JTF_DATE_TABLE
737 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_100
738 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_100
739 , x_return_status out nocopy VARCHAR2
740 , x_msg_count out nocopy NUMBER
741 , x_msg_data out nocopy VARCHAR2
742 )
743
744 as
745 ddx_distribution_tbl lns_distributions_pub.distribution_tbl;
746 ddindx binary_integer; indx binary_integer;
747 begin
748
749 -- copy data to the local IN or IN-OUT args, if any
750
751
752
753
754
755
756
757
758
759
760
761 -- here's the delegated call to the old PL/SQL routine
762 lns_distributions_pub.defaultbookdistforactivity(p_api_version,
763 p_init_msg_list,
764 p_commit,
765 p_loan_id,
766 p_disb_header_id,
767 p_loan_amount_adj_id,
768 p_activity,
769 ddx_distribution_tbl,
770 x_return_status,
771 x_msg_count,
772 x_msg_data);
773
774 -- copy data back from the local variables to OUT or IN-OUT args, if any
775
776
777
778
779
780
781
782 lns_distributions_pub_w.rosetta_table_copy_out_p1(ddx_distribution_tbl, p7_a0
783 , p7_a1
784 , p7_a2
785 , p7_a3
786 , p7_a4
787 , p7_a5
788 , p7_a6
789 , p7_a7
790 , p7_a8
791 , p7_a9
792 , p7_a10
793 , p7_a11
794 , p7_a12
795 , p7_a13
796 , p7_a14
797 , p7_a15
798 , p7_a16
799 , p7_a17
800 );
801
802
803
804 end;
805
806 end lns_distributions_pub_w;