[Home] [Help]
PACKAGE BODY: APPS.LNS_PAYOFF_PUB_W
Source
1 package body lns_payoff_pub_w as
2 /* $Header: LNS_PAYOFFJ_B.pls 120.1.12020000.2 2012/07/19 20:58:34 scherkas ship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy lns_payoff_pub.invoice_details_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_DATE_TABLE
11 , a8 JTF_DATE_TABLE
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_VARCHAR2_TABLE_100
14 ) as
15 ddindx binary_integer; indx binary_integer;
16 begin
17 if a0 is not null and a0.count > 0 then
18 if a0.count > 0 then
19 indx := a0.first;
20 ddindx := 1;
21 while true loop
22 t(ddindx).cust_trx_id := a0(indx);
23 t(ddindx).payment_schedule_id := a1(indx);
24 t(ddindx).invoice_number := a2(indx);
25 t(ddindx).installment_number := a3(indx);
26 t(ddindx).transaction_type := a4(indx);
27 t(ddindx).remaining_amount := a5(indx);
28 t(ddindx).trx_date := a6(indx);
29 t(ddindx).due_date := a7(indx);
30 t(ddindx).gl_date := a8(indx);
31 t(ddindx).purpose := a9(indx);
32 t(ddindx).billed_flag := a10(indx);
33 ddindx := ddindx+1;
34 if a0.last =indx
35 then exit;
36 end if;
37 indx := a0.next(indx);
38 end loop;
39 end if;
40 end if;
41 end rosetta_table_copy_in_p1;
42 procedure rosetta_table_copy_out_p1(t lns_payoff_pub.invoice_details_tbl, a0 out nocopy JTF_NUMBER_TABLE
43 , a1 out nocopy JTF_NUMBER_TABLE
44 , a2 out nocopy JTF_VARCHAR2_TABLE_100
45 , a3 out nocopy JTF_NUMBER_TABLE
46 , a4 out nocopy JTF_VARCHAR2_TABLE_100
47 , a5 out nocopy JTF_NUMBER_TABLE
48 , a6 out nocopy JTF_DATE_TABLE
49 , a7 out nocopy JTF_DATE_TABLE
50 , a8 out nocopy JTF_DATE_TABLE
51 , a9 out nocopy JTF_VARCHAR2_TABLE_100
52 , a10 out nocopy JTF_VARCHAR2_TABLE_100
53 ) as
54 ddindx binary_integer; indx binary_integer;
55 begin
56 if t is null or t.count = 0 then
57 a0 := JTF_NUMBER_TABLE();
58 a1 := JTF_NUMBER_TABLE();
59 a2 := JTF_VARCHAR2_TABLE_100();
60 a3 := JTF_NUMBER_TABLE();
61 a4 := JTF_VARCHAR2_TABLE_100();
62 a5 := JTF_NUMBER_TABLE();
63 a6 := JTF_DATE_TABLE();
64 a7 := JTF_DATE_TABLE();
65 a8 := JTF_DATE_TABLE();
66 a9 := JTF_VARCHAR2_TABLE_100();
67 a10 := JTF_VARCHAR2_TABLE_100();
68 else
69 a0 := JTF_NUMBER_TABLE();
70 a1 := JTF_NUMBER_TABLE();
71 a2 := JTF_VARCHAR2_TABLE_100();
72 a3 := JTF_NUMBER_TABLE();
73 a4 := JTF_VARCHAR2_TABLE_100();
74 a5 := JTF_NUMBER_TABLE();
75 a6 := JTF_DATE_TABLE();
76 a7 := JTF_DATE_TABLE();
77 a8 := JTF_DATE_TABLE();
78 a9 := JTF_VARCHAR2_TABLE_100();
79 a10 := JTF_VARCHAR2_TABLE_100();
80 if t.count > 0 then
81 a0.extend(t.count);
82 a1.extend(t.count);
83 a2.extend(t.count);
84 a3.extend(t.count);
85 a4.extend(t.count);
86 a5.extend(t.count);
87 a6.extend(t.count);
88 a7.extend(t.count);
89 a8.extend(t.count);
90 a9.extend(t.count);
91 a10.extend(t.count);
92 ddindx := t.first;
93 indx := 1;
94 while true loop
95 a0(indx) := t(ddindx).cust_trx_id;
96 a1(indx) := t(ddindx).payment_schedule_id;
97 a2(indx) := t(ddindx).invoice_number;
98 a3(indx) := t(ddindx).installment_number;
99 a4(indx) := t(ddindx).transaction_type;
100 a5(indx) := t(ddindx).remaining_amount;
101 a6(indx) := t(ddindx).trx_date;
102 a7(indx) := t(ddindx).due_date;
103 a8(indx) := t(ddindx).gl_date;
104 a9(indx) := t(ddindx).purpose;
105 a10(indx) := t(ddindx).billed_flag;
106 indx := indx+1;
107 if t.last =ddindx
108 then exit;
109 end if;
110 ddindx := t.next(ddindx);
111 end loop;
112 end if;
113 end if;
114 end rosetta_table_copy_out_p1;
115
116 procedure rosetta_table_copy_in_p3(t out nocopy lns_payoff_pub.cash_receipt_tbl, a0 JTF_NUMBER_TABLE
117 , a1 JTF_NUMBER_TABLE
118 , a2 JTF_VARCHAR2_TABLE_100
119 , a3 JTF_NUMBER_TABLE
120 , a4 JTF_DATE_TABLE
121 , a5 JTF_VARCHAR2_TABLE_100
122 , a6 JTF_VARCHAR2_TABLE_100
123 , a7 JTF_VARCHAR2_TABLE_100
124 ) as
125 ddindx binary_integer; indx binary_integer;
126 begin
127 if a0 is not null and a0.count > 0 then
128 if a0.count > 0 then
129 indx := a0.first;
130 ddindx := 1;
131 while true loop
132 t(ddindx).cash_receipt_id := a0(indx);
133 t(ddindx).receipt_amount := a1(indx);
134 t(ddindx).receipt_currency := a2(indx);
135 t(ddindx).exchange_rate := a3(indx);
136 t(ddindx).exchange_date := a4(indx);
137 t(ddindx).exchange_rate_type := a5(indx);
138 t(ddindx).original_currency := a6(indx);
139 t(ddindx).receipt_number := a7(indx);
140 ddindx := ddindx+1;
141 if a0.last =indx
142 then exit;
143 end if;
144 indx := a0.next(indx);
145 end loop;
146 end if;
147 end if;
148 end rosetta_table_copy_in_p3;
149 procedure rosetta_table_copy_out_p3(t lns_payoff_pub.cash_receipt_tbl, a0 out nocopy JTF_NUMBER_TABLE
150 , a1 out nocopy JTF_NUMBER_TABLE
151 , a2 out nocopy JTF_VARCHAR2_TABLE_100
152 , a3 out nocopy JTF_NUMBER_TABLE
153 , a4 out nocopy JTF_DATE_TABLE
154 , a5 out nocopy JTF_VARCHAR2_TABLE_100
155 , a6 out nocopy JTF_VARCHAR2_TABLE_100
156 , a7 out nocopy JTF_VARCHAR2_TABLE_100
157 ) as
158 ddindx binary_integer; indx binary_integer;
159 begin
160 if t is null or t.count = 0 then
161 a0 := JTF_NUMBER_TABLE();
162 a1 := JTF_NUMBER_TABLE();
163 a2 := JTF_VARCHAR2_TABLE_100();
164 a3 := JTF_NUMBER_TABLE();
165 a4 := JTF_DATE_TABLE();
166 a5 := JTF_VARCHAR2_TABLE_100();
167 a6 := JTF_VARCHAR2_TABLE_100();
168 a7 := JTF_VARCHAR2_TABLE_100();
169 else
170 a0 := JTF_NUMBER_TABLE();
171 a1 := JTF_NUMBER_TABLE();
172 a2 := JTF_VARCHAR2_TABLE_100();
173 a3 := JTF_NUMBER_TABLE();
174 a4 := JTF_DATE_TABLE();
175 a5 := JTF_VARCHAR2_TABLE_100();
176 a6 := JTF_VARCHAR2_TABLE_100();
177 a7 := JTF_VARCHAR2_TABLE_100();
178 if t.count > 0 then
179 a0.extend(t.count);
180 a1.extend(t.count);
181 a2.extend(t.count);
182 a3.extend(t.count);
183 a4.extend(t.count);
184 a5.extend(t.count);
185 a6.extend(t.count);
186 a7.extend(t.count);
187 ddindx := t.first;
188 indx := 1;
189 while true loop
190 a0(indx) := t(ddindx).cash_receipt_id;
191 a1(indx) := t(ddindx).receipt_amount;
192 a2(indx) := t(ddindx).receipt_currency;
193 a3(indx) := t(ddindx).exchange_rate;
194 a4(indx) := t(ddindx).exchange_date;
195 a5(indx) := t(ddindx).exchange_rate_type;
196 a6(indx) := t(ddindx).original_currency;
197 a7(indx) := t(ddindx).receipt_number;
198 indx := indx+1;
199 if t.last =ddindx
200 then exit;
201 end if;
202 ddindx := t.next(ddindx);
203 end loop;
204 end if;
205 end if;
206 end rosetta_table_copy_out_p3;
207
208 procedure rosetta_table_copy_in_p5(t out nocopy lns_payoff_pub.loan_cancel_details_tbl, a0 JTF_NUMBER_TABLE
209 , a1 JTF_NUMBER_TABLE
210 , a2 JTF_DATE_TABLE
211 , a3 JTF_DATE_TABLE
212 , a4 JTF_DATE_TABLE
213 , a5 JTF_VARCHAR2_TABLE_100
214 , a6 JTF_VARCHAR2_TABLE_100
215 , a7 JTF_VARCHAR2_TABLE_100
216 , a8 JTF_NUMBER_TABLE
217 , a9 JTF_NUMBER_TABLE
218 , a10 JTF_VARCHAR2_TABLE_100
219 , a11 JTF_NUMBER_TABLE
220 , a12 JTF_VARCHAR2_TABLE_100
221 , a13 JTF_VARCHAR2_TABLE_100
222 , a14 JTF_NUMBER_TABLE
223 , a15 JTF_NUMBER_TABLE
224 , a16 JTF_NUMBER_TABLE
225 ) as
226 ddindx binary_integer; indx binary_integer;
227 begin
228 if a0 is not null and a0.count > 0 then
229 if a0.count > 0 then
230 indx := a0.first;
231 ddindx := 1;
232 while true loop
233 t(ddindx).loan_cancel_detail_id := a0(indx);
234 t(ddindx).remaining_amount := a1(indx);
235 t(ddindx).due_date := a2(indx);
236 t(ddindx).trx_date := a3(indx);
237 t(ddindx).gl_date := a4(indx);
238 t(ddindx).purpose := a5(indx);
239 t(ddindx).purpose_code := a6(indx);
240 t(ddindx).billed_flag := a7(indx);
241 t(ddindx).percent_to_process := a8(indx);
242 t(ddindx).amount_to_process := a9(indx);
243 t(ddindx).invoice_number := a10(indx);
244 t(ddindx).installment_number := a11(indx);
245 t(ddindx).transaction_type := a12(indx);
246 t(ddindx).action := a13(indx);
247 t(ddindx).loan_line_id := a14(indx);
248 t(ddindx).payment_schedule_id := a15(indx);
249 t(ddindx).cust_trx_id := a16(indx);
250 ddindx := ddindx+1;
251 if a0.last =indx
252 then exit;
253 end if;
254 indx := a0.next(indx);
255 end loop;
256 end if;
257 end if;
258 end rosetta_table_copy_in_p5;
259 procedure rosetta_table_copy_out_p5(t lns_payoff_pub.loan_cancel_details_tbl, a0 out nocopy JTF_NUMBER_TABLE
260 , a1 out nocopy JTF_NUMBER_TABLE
261 , a2 out nocopy JTF_DATE_TABLE
262 , a3 out nocopy JTF_DATE_TABLE
263 , a4 out nocopy JTF_DATE_TABLE
264 , a5 out nocopy JTF_VARCHAR2_TABLE_100
265 , a6 out nocopy JTF_VARCHAR2_TABLE_100
266 , a7 out nocopy JTF_VARCHAR2_TABLE_100
267 , a8 out nocopy JTF_NUMBER_TABLE
268 , a9 out nocopy JTF_NUMBER_TABLE
269 , a10 out nocopy JTF_VARCHAR2_TABLE_100
270 , a11 out nocopy JTF_NUMBER_TABLE
271 , a12 out nocopy JTF_VARCHAR2_TABLE_100
272 , a13 out nocopy JTF_VARCHAR2_TABLE_100
273 , a14 out nocopy JTF_NUMBER_TABLE
274 , a15 out nocopy JTF_NUMBER_TABLE
275 , a16 out nocopy JTF_NUMBER_TABLE
276 ) as
277 ddindx binary_integer; indx binary_integer;
278 begin
279 if t is null or t.count = 0 then
280 a0 := JTF_NUMBER_TABLE();
281 a1 := JTF_NUMBER_TABLE();
282 a2 := JTF_DATE_TABLE();
283 a3 := JTF_DATE_TABLE();
284 a4 := JTF_DATE_TABLE();
285 a5 := JTF_VARCHAR2_TABLE_100();
286 a6 := JTF_VARCHAR2_TABLE_100();
287 a7 := JTF_VARCHAR2_TABLE_100();
288 a8 := JTF_NUMBER_TABLE();
289 a9 := JTF_NUMBER_TABLE();
290 a10 := JTF_VARCHAR2_TABLE_100();
291 a11 := JTF_NUMBER_TABLE();
292 a12 := JTF_VARCHAR2_TABLE_100();
293 a13 := JTF_VARCHAR2_TABLE_100();
294 a14 := JTF_NUMBER_TABLE();
295 a15 := JTF_NUMBER_TABLE();
296 a16 := JTF_NUMBER_TABLE();
297 else
298 a0 := JTF_NUMBER_TABLE();
299 a1 := JTF_NUMBER_TABLE();
300 a2 := JTF_DATE_TABLE();
301 a3 := JTF_DATE_TABLE();
302 a4 := JTF_DATE_TABLE();
303 a5 := JTF_VARCHAR2_TABLE_100();
304 a6 := JTF_VARCHAR2_TABLE_100();
305 a7 := JTF_VARCHAR2_TABLE_100();
306 a8 := JTF_NUMBER_TABLE();
307 a9 := JTF_NUMBER_TABLE();
308 a10 := JTF_VARCHAR2_TABLE_100();
309 a11 := JTF_NUMBER_TABLE();
310 a12 := JTF_VARCHAR2_TABLE_100();
311 a13 := JTF_VARCHAR2_TABLE_100();
312 a14 := JTF_NUMBER_TABLE();
313 a15 := JTF_NUMBER_TABLE();
314 a16 := JTF_NUMBER_TABLE();
315 if t.count > 0 then
316 a0.extend(t.count);
317 a1.extend(t.count);
318 a2.extend(t.count);
319 a3.extend(t.count);
320 a4.extend(t.count);
321 a5.extend(t.count);
322 a6.extend(t.count);
323 a7.extend(t.count);
324 a8.extend(t.count);
325 a9.extend(t.count);
326 a10.extend(t.count);
327 a11.extend(t.count);
328 a12.extend(t.count);
329 a13.extend(t.count);
330 a14.extend(t.count);
331 a15.extend(t.count);
332 a16.extend(t.count);
333 ddindx := t.first;
334 indx := 1;
335 while true loop
336 a0(indx) := t(ddindx).loan_cancel_detail_id;
337 a1(indx) := t(ddindx).remaining_amount;
338 a2(indx) := t(ddindx).due_date;
339 a3(indx) := t(ddindx).trx_date;
340 a4(indx) := t(ddindx).gl_date;
341 a5(indx) := t(ddindx).purpose;
342 a6(indx) := t(ddindx).purpose_code;
343 a7(indx) := t(ddindx).billed_flag;
344 a8(indx) := t(ddindx).percent_to_process;
345 a9(indx) := t(ddindx).amount_to_process;
346 a10(indx) := t(ddindx).invoice_number;
347 a11(indx) := t(ddindx).installment_number;
348 a12(indx) := t(ddindx).transaction_type;
349 a13(indx) := t(ddindx).action;
350 a14(indx) := t(ddindx).loan_line_id;
351 a15(indx) := t(ddindx).payment_schedule_id;
352 a16(indx) := t(ddindx).cust_trx_id;
353 indx := indx+1;
354 if t.last =ddindx
355 then exit;
356 end if;
357 ddindx := t.next(ddindx);
358 end loop;
359 end if;
360 end if;
361 end rosetta_table_copy_out_p5;
362
363 procedure processpayoff(p_api_version NUMBER
364 , p_init_msg_list VARCHAR2
365 , p_loan_id NUMBER
366 , p_payoff_date DATE
367 , p4_a0 JTF_NUMBER_TABLE
368 , p4_a1 JTF_NUMBER_TABLE
369 , p4_a2 JTF_VARCHAR2_TABLE_100
370 , p4_a3 JTF_NUMBER_TABLE
371 , p4_a4 JTF_DATE_TABLE
372 , p4_a5 JTF_VARCHAR2_TABLE_100
373 , p4_a6 JTF_VARCHAR2_TABLE_100
374 , p4_a7 JTF_VARCHAR2_TABLE_100
375 , x_return_status out nocopy VARCHAR2
376 , x_msg_count out nocopy NUMBER
377 , x_msg_data out nocopy VARCHAR2
378 )
379
380 as
381 ddp_cash_receipt_ids lns_payoff_pub.cash_receipt_tbl;
382 ddindx binary_integer; indx binary_integer;
383 begin
384
385 -- copy data to the local IN or IN-OUT args, if any
386
387
388
389
390 lns_payoff_pub_w.rosetta_table_copy_in_p3(ddp_cash_receipt_ids, p4_a0
391 , p4_a1
392 , p4_a2
393 , p4_a3
394 , p4_a4
395 , p4_a5
396 , p4_a6
397 , p4_a7
398 );
399
400
401
402
403 -- here's the delegated call to the old PL/SQL routine
404 lns_payoff_pub.processpayoff(p_api_version,
405 p_init_msg_list,
406 p_loan_id,
407 p_payoff_date,
408 ddp_cash_receipt_ids,
409 x_return_status,
410 x_msg_count,
411 x_msg_data);
412
413 -- copy data back from the local variables to OUT or IN-OUT args, if any
414
415
416
417
418
419
420
421 end;
422
423 procedure getloaninvoices(p_api_version NUMBER
424 , p_init_msg_list VARCHAR2
425 , p_loan_id NUMBER
426 , p_payoff_date DATE
427 , p4_a0 out nocopy JTF_NUMBER_TABLE
428 , p4_a1 out nocopy JTF_NUMBER_TABLE
429 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
430 , p4_a3 out nocopy JTF_NUMBER_TABLE
431 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
432 , p4_a5 out nocopy JTF_NUMBER_TABLE
433 , p4_a6 out nocopy JTF_DATE_TABLE
434 , p4_a7 out nocopy JTF_DATE_TABLE
435 , p4_a8 out nocopy JTF_DATE_TABLE
436 , p4_a9 out nocopy JTF_VARCHAR2_TABLE_100
437 , p4_a10 out nocopy JTF_VARCHAR2_TABLE_100
438 , x_return_status out nocopy VARCHAR2
439 , x_msg_count out nocopy NUMBER
440 , x_msg_data out nocopy VARCHAR2
441 )
442
443 as
444 ddx_invoices_tbl lns_payoff_pub.invoice_details_tbl;
445 ddindx binary_integer; indx binary_integer;
446 begin
447
448 -- copy data to the local IN or IN-OUT args, if any
449
450
451
452
453
454
455
456
457 -- here's the delegated call to the old PL/SQL routine
458 lns_payoff_pub.getloaninvoices(p_api_version,
459 p_init_msg_list,
460 p_loan_id,
461 p_payoff_date,
462 ddx_invoices_tbl,
463 x_return_status,
464 x_msg_count,
465 x_msg_data);
466
467 -- copy data back from the local variables to OUT or IN-OUT args, if any
468
469
470
471
472 lns_payoff_pub_w.rosetta_table_copy_out_p1(ddx_invoices_tbl, p4_a0
473 , p4_a1
474 , p4_a2
475 , p4_a3
476 , p4_a4
477 , p4_a5
478 , p4_a6
479 , p4_a7
480 , p4_a8
481 , p4_a9
482 , p4_a10
483 );
484
485
486
487 end;
488
489 procedure getinvoicesforloancancellation(p_api_version NUMBER
490 , p_init_msg_list VARCHAR2
491 , p_loan_id NUMBER
492 , p_cancellation_date DATE
493 , p4_a0 out nocopy JTF_NUMBER_TABLE
494 , p4_a1 out nocopy JTF_NUMBER_TABLE
495 , p4_a2 out nocopy JTF_DATE_TABLE
496 , p4_a3 out nocopy JTF_DATE_TABLE
497 , p4_a4 out nocopy JTF_DATE_TABLE
498 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_100
499 , p4_a6 out nocopy JTF_VARCHAR2_TABLE_100
500 , p4_a7 out nocopy JTF_VARCHAR2_TABLE_100
501 , p4_a8 out nocopy JTF_NUMBER_TABLE
502 , p4_a9 out nocopy JTF_NUMBER_TABLE
503 , p4_a10 out nocopy JTF_VARCHAR2_TABLE_100
504 , p4_a11 out nocopy JTF_NUMBER_TABLE
505 , p4_a12 out nocopy JTF_VARCHAR2_TABLE_100
506 , p4_a13 out nocopy JTF_VARCHAR2_TABLE_100
507 , p4_a14 out nocopy JTF_NUMBER_TABLE
508 , p4_a15 out nocopy JTF_NUMBER_TABLE
509 , p4_a16 out nocopy JTF_NUMBER_TABLE
510 , x_return_status out nocopy VARCHAR2
511 , x_msg_count out nocopy NUMBER
512 , x_msg_data out nocopy VARCHAR2
513 )
514
515 as
516 ddx_invoices_tbl lns_payoff_pub.loan_cancel_details_tbl;
517 ddindx binary_integer; indx binary_integer;
518 begin
519
520 -- copy data to the local IN or IN-OUT args, if any
521
522
523
524
525
526
527
528
529 -- here's the delegated call to the old PL/SQL routine
530 lns_payoff_pub.getinvoicesforloancancellation(p_api_version,
531 p_init_msg_list,
532 p_loan_id,
533 p_cancellation_date,
534 ddx_invoices_tbl,
535 x_return_status,
536 x_msg_count,
537 x_msg_data);
538
539 -- copy data back from the local variables to OUT or IN-OUT args, if any
540
541
542
543
544 lns_payoff_pub_w.rosetta_table_copy_out_p5(ddx_invoices_tbl, p4_a0
545 , p4_a1
546 , p4_a2
547 , p4_a3
548 , p4_a4
549 , p4_a5
550 , p4_a6
551 , p4_a7
552 , p4_a8
553 , p4_a9
554 , p4_a10
555 , p4_a11
556 , p4_a12
557 , p4_a13
558 , p4_a14
559 , p4_a15
560 , p4_a16
561 );
562
563
564
565 end;
566
567 procedure saveloancancelrequest(p_api_version NUMBER
568 , p_init_msg_list VARCHAR2
569 , p_commit VARCHAR2
570 , p_validation_level NUMBER
571 , p_loan_id NUMBER
572 , p_description VARCHAR2
573 , p_cancellation_date DATE
574 , p_disable_billing VARCHAR2
575 , p_action VARCHAR2
576 , p_loan_cancellation_id in out nocopy NUMBER
577 , p10_a0 in out nocopy JTF_NUMBER_TABLE
578 , p10_a1 in out nocopy JTF_NUMBER_TABLE
579 , p10_a2 in out nocopy JTF_DATE_TABLE
580 , p10_a3 in out nocopy JTF_DATE_TABLE
581 , p10_a4 in out nocopy JTF_DATE_TABLE
582 , p10_a5 in out nocopy JTF_VARCHAR2_TABLE_100
583 , p10_a6 in out nocopy JTF_VARCHAR2_TABLE_100
584 , p10_a7 in out nocopy JTF_VARCHAR2_TABLE_100
585 , p10_a8 in out nocopy JTF_NUMBER_TABLE
586 , p10_a9 in out nocopy JTF_NUMBER_TABLE
587 , p10_a10 in out nocopy JTF_VARCHAR2_TABLE_100
588 , p10_a11 in out nocopy JTF_NUMBER_TABLE
589 , p10_a12 in out nocopy JTF_VARCHAR2_TABLE_100
590 , p10_a13 in out nocopy JTF_VARCHAR2_TABLE_100
591 , p10_a14 in out nocopy JTF_NUMBER_TABLE
592 , p10_a15 in out nocopy JTF_NUMBER_TABLE
593 , p10_a16 in out nocopy JTF_NUMBER_TABLE
594 , x_return_status out nocopy VARCHAR2
595 , x_msg_count out nocopy NUMBER
596 , x_msg_data out nocopy VARCHAR2
597 )
598
599 as
600 ddp_cancel_details_tbl lns_payoff_pub.loan_cancel_details_tbl;
601 ddindx binary_integer; indx binary_integer;
602 begin
603
604 -- copy data to the local IN or IN-OUT args, if any
605
606
607
608
609
610
611
612
613
614
615 lns_payoff_pub_w.rosetta_table_copy_in_p5(ddp_cancel_details_tbl, p10_a0
616 , p10_a1
617 , p10_a2
618 , p10_a3
619 , p10_a4
620 , p10_a5
621 , p10_a6
622 , p10_a7
623 , p10_a8
624 , p10_a9
625 , p10_a10
626 , p10_a11
627 , p10_a12
628 , p10_a13
629 , p10_a14
630 , p10_a15
631 , p10_a16
632 );
633
634
635
636
637 -- here's the delegated call to the old PL/SQL routine
638 lns_payoff_pub.saveloancancelrequest(p_api_version,
639 p_init_msg_list,
640 p_commit,
641 p_validation_level,
642 p_loan_id,
643 p_description,
644 p_cancellation_date,
645 p_disable_billing,
646 p_action,
647 p_loan_cancellation_id,
648 ddp_cancel_details_tbl,
649 x_return_status,
650 x_msg_count,
651 x_msg_data);
652
653 -- copy data back from the local variables to OUT or IN-OUT args, if any
654
655
656
657
658
659
660
661
662
663
664 lns_payoff_pub_w.rosetta_table_copy_out_p5(ddp_cancel_details_tbl, p10_a0
665 , p10_a1
666 , p10_a2
667 , p10_a3
668 , p10_a4
669 , p10_a5
670 , p10_a6
671 , p10_a7
672 , p10_a8
673 , p10_a9
674 , p10_a10
675 , p10_a11
676 , p10_a12
677 , p10_a13
678 , p10_a14
679 , p10_a15
680 , p10_a16
681 );
682
683
684
685 end;
686
687 end lns_payoff_pub_w;