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