[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.6.12020000.2 2012/07/19 20:53:54 scherkas 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 , a48 JTF_NUMBER_TABLE
52 , a49 JTF_VARCHAR2_TABLE_2000
53 , a50 JTF_VARCHAR2_TABLE_2000
54 , a51 JTF_VARCHAR2_TABLE_2000
55 , a52 JTF_VARCHAR2_TABLE_2000
56 , a53 JTF_NUMBER_TABLE
57 , a54 JTF_VARCHAR2_TABLE_200
58 , a55 JTF_NUMBER_TABLE
59 , a56 JTF_VARCHAR2_TABLE_300
60 , a57 JTF_NUMBER_TABLE
61 , a58 JTF_NUMBER_TABLE
62 , a59 JTF_VARCHAR2_TABLE_2000
63 , a60 JTF_NUMBER_TABLE
64 , a61 JTF_NUMBER_TABLE
65 , a62 JTF_NUMBER_TABLE
66 , a63 JTF_VARCHAR2_TABLE_2000
67 , a64 JTF_NUMBER_TABLE
68 , a65 JTF_VARCHAR2_TABLE_2000
69 ) as
70 ddindx binary_integer; indx binary_integer;
71 begin
72 if a0 is not null and a0.count > 0 then
73 if a0.count > 0 then
74 indx := a0.first;
75 ddindx := 1;
76 while true loop
77 t(ddindx).custom_schedule_id := a0(indx);
78 t(ddindx).loan_id := a1(indx);
79 t(ddindx).payment_number := a2(indx);
80 t(ddindx).due_date := a3(indx);
81 t(ddindx).period_start_date := a4(indx);
82 t(ddindx).period_end_date := a5(indx);
83 t(ddindx).principal_amount := a6(indx);
84 t(ddindx).interest_amount := a7(indx);
85 t(ddindx).normal_int_amount := a8(indx);
86 t(ddindx).add_prin_int_amount := a9(indx);
87 t(ddindx).add_int_int_amount := a10(indx);
88 t(ddindx).penal_int_amount := a11(indx);
89 t(ddindx).principal_balance := a12(indx);
90 t(ddindx).fee_amount := a13(indx);
91 t(ddindx).other_amount := a14(indx);
92 t(ddindx).object_version_number := a15(indx);
93 t(ddindx).attribute_category := a16(indx);
94 t(ddindx).attribute1 := a17(indx);
95 t(ddindx).attribute2 := a18(indx);
96 t(ddindx).attribute3 := a19(indx);
97 t(ddindx).attribute4 := a20(indx);
98 t(ddindx).attribute5 := a21(indx);
99 t(ddindx).attribute6 := a22(indx);
100 t(ddindx).attribute7 := a23(indx);
101 t(ddindx).attribute8 := a24(indx);
102 t(ddindx).attribute9 := a25(indx);
103 t(ddindx).attribute10 := a26(indx);
104 t(ddindx).attribute11 := a27(indx);
105 t(ddindx).attribute12 := a28(indx);
106 t(ddindx).attribute13 := a29(indx);
107 t(ddindx).attribute14 := a30(indx);
108 t(ddindx).attribute15 := a31(indx);
109 t(ddindx).attribute16 := a32(indx);
110 t(ddindx).attribute17 := a33(indx);
111 t(ddindx).attribute18 := a34(indx);
112 t(ddindx).attribute19 := a35(indx);
113 t(ddindx).attribute20 := a36(indx);
114 t(ddindx).current_term_payment := a37(indx);
115 t(ddindx).installment_begin_balance := a38(indx);
116 t(ddindx).installment_end_balance := a39(indx);
117 t(ddindx).principal_paid_todate := a40(indx);
118 t(ddindx).interest_paid_todate := a41(indx);
119 t(ddindx).interest_rate := a42(indx);
120 t(ddindx).unpaid_prin := a43(indx);
121 t(ddindx).unpaid_int := a44(indx);
122 t(ddindx).lock_prin := a45(indx);
123 t(ddindx).lock_int := a46(indx);
124 t(ddindx).action := a47(indx);
125 t(ddindx).funded_amount := a48(indx);
126 t(ddindx).normal_int_details := a49(indx);
127 t(ddindx).add_prin_int_details := a50(indx);
128 t(ddindx).add_int_int_details := a51(indx);
129 t(ddindx).penal_int_details := a52(indx);
130 t(ddindx).disbursement_amount := a53(indx);
131 t(ddindx).period := a54(indx);
132 t(ddindx).principal_percent := a55(indx);
133 t(ddindx).relative_date := a56(indx);
134 t(ddindx).prev_deferred_int_amount := a57(indx);
135 t(ddindx).deferred_int_amount := a58(indx);
136 t(ddindx).deferred_int_details := a59(indx);
137 t(ddindx).prev_cap_int_amount := a60(indx);
138 t(ddindx).curr_cap_int_amount := a61(indx);
139 t(ddindx).cap_int_amount := a62(indx);
140 t(ddindx).cap_int_details := a63(indx);
141 t(ddindx).early_pay_cr_amount := a64(indx);
142 t(ddindx).early_pay_cr_details := a65(indx);
143 ddindx := ddindx+1;
144 if a0.last =indx
145 then exit;
146 end if;
147 indx := a0.next(indx);
148 end loop;
149 end if;
150 end if;
151 end rosetta_table_copy_in_p1;
152 procedure rosetta_table_copy_out_p1(t lns_custom_pub.custom_tbl, a0 out nocopy JTF_NUMBER_TABLE
153 , a1 out nocopy JTF_NUMBER_TABLE
154 , a2 out nocopy JTF_NUMBER_TABLE
155 , a3 out nocopy JTF_DATE_TABLE
156 , a4 out nocopy JTF_DATE_TABLE
157 , a5 out nocopy JTF_DATE_TABLE
158 , a6 out nocopy JTF_NUMBER_TABLE
159 , a7 out nocopy JTF_NUMBER_TABLE
160 , a8 out nocopy JTF_NUMBER_TABLE
161 , a9 out nocopy JTF_NUMBER_TABLE
162 , a10 out nocopy JTF_NUMBER_TABLE
163 , a11 out nocopy JTF_NUMBER_TABLE
164 , a12 out nocopy JTF_NUMBER_TABLE
165 , a13 out nocopy JTF_NUMBER_TABLE
166 , a14 out nocopy JTF_NUMBER_TABLE
167 , a15 out nocopy JTF_NUMBER_TABLE
168 , a16 out nocopy JTF_VARCHAR2_TABLE_100
169 , a17 out nocopy JTF_VARCHAR2_TABLE_200
170 , a18 out nocopy JTF_VARCHAR2_TABLE_200
171 , a19 out nocopy JTF_VARCHAR2_TABLE_200
172 , a20 out nocopy JTF_VARCHAR2_TABLE_200
173 , a21 out nocopy JTF_VARCHAR2_TABLE_200
174 , a22 out nocopy JTF_VARCHAR2_TABLE_200
175 , a23 out nocopy JTF_VARCHAR2_TABLE_200
176 , a24 out nocopy JTF_VARCHAR2_TABLE_200
177 , a25 out nocopy JTF_VARCHAR2_TABLE_200
178 , a26 out nocopy JTF_VARCHAR2_TABLE_200
179 , a27 out nocopy JTF_VARCHAR2_TABLE_200
180 , a28 out nocopy JTF_VARCHAR2_TABLE_200
181 , a29 out nocopy JTF_VARCHAR2_TABLE_200
182 , a30 out nocopy JTF_VARCHAR2_TABLE_200
183 , a31 out nocopy JTF_VARCHAR2_TABLE_200
184 , a32 out nocopy JTF_VARCHAR2_TABLE_200
185 , a33 out nocopy JTF_VARCHAR2_TABLE_200
186 , a34 out nocopy JTF_VARCHAR2_TABLE_200
187 , a35 out nocopy JTF_VARCHAR2_TABLE_200
188 , a36 out nocopy JTF_VARCHAR2_TABLE_200
189 , a37 out nocopy JTF_NUMBER_TABLE
190 , a38 out nocopy JTF_NUMBER_TABLE
191 , a39 out nocopy JTF_NUMBER_TABLE
192 , a40 out nocopy JTF_NUMBER_TABLE
193 , a41 out nocopy JTF_NUMBER_TABLE
194 , a42 out nocopy JTF_NUMBER_TABLE
195 , a43 out nocopy JTF_NUMBER_TABLE
196 , a44 out nocopy JTF_NUMBER_TABLE
197 , a45 out nocopy JTF_VARCHAR2_TABLE_100
198 , a46 out nocopy JTF_VARCHAR2_TABLE_100
199 , a47 out nocopy JTF_VARCHAR2_TABLE_100
200 , a48 out nocopy JTF_NUMBER_TABLE
201 , a49 out nocopy JTF_VARCHAR2_TABLE_2000
202 , a50 out nocopy JTF_VARCHAR2_TABLE_2000
203 , a51 out nocopy JTF_VARCHAR2_TABLE_2000
204 , a52 out nocopy JTF_VARCHAR2_TABLE_2000
205 , a53 out nocopy JTF_NUMBER_TABLE
206 , a54 out nocopy JTF_VARCHAR2_TABLE_200
207 , a55 out nocopy JTF_NUMBER_TABLE
208 , a56 out nocopy JTF_VARCHAR2_TABLE_300
209 , a57 out nocopy JTF_NUMBER_TABLE
210 , a58 out nocopy JTF_NUMBER_TABLE
211 , a59 out nocopy JTF_VARCHAR2_TABLE_2000
212 , a60 out nocopy JTF_NUMBER_TABLE
213 , a61 out nocopy JTF_NUMBER_TABLE
214 , a62 out nocopy JTF_NUMBER_TABLE
215 , a63 out nocopy JTF_VARCHAR2_TABLE_2000
216 , a64 out nocopy JTF_NUMBER_TABLE
217 , a65 out nocopy JTF_VARCHAR2_TABLE_2000
218 ) as
219 ddindx binary_integer; indx binary_integer;
220 begin
221 if t is null or t.count = 0 then
222 a0 := JTF_NUMBER_TABLE();
223 a1 := JTF_NUMBER_TABLE();
224 a2 := JTF_NUMBER_TABLE();
225 a3 := JTF_DATE_TABLE();
226 a4 := JTF_DATE_TABLE();
227 a5 := JTF_DATE_TABLE();
228 a6 := JTF_NUMBER_TABLE();
229 a7 := JTF_NUMBER_TABLE();
230 a8 := JTF_NUMBER_TABLE();
231 a9 := JTF_NUMBER_TABLE();
232 a10 := JTF_NUMBER_TABLE();
233 a11 := JTF_NUMBER_TABLE();
234 a12 := JTF_NUMBER_TABLE();
235 a13 := JTF_NUMBER_TABLE();
236 a14 := JTF_NUMBER_TABLE();
237 a15 := JTF_NUMBER_TABLE();
238 a16 := JTF_VARCHAR2_TABLE_100();
239 a17 := JTF_VARCHAR2_TABLE_200();
240 a18 := JTF_VARCHAR2_TABLE_200();
241 a19 := JTF_VARCHAR2_TABLE_200();
242 a20 := JTF_VARCHAR2_TABLE_200();
243 a21 := JTF_VARCHAR2_TABLE_200();
244 a22 := JTF_VARCHAR2_TABLE_200();
245 a23 := JTF_VARCHAR2_TABLE_200();
246 a24 := JTF_VARCHAR2_TABLE_200();
247 a25 := JTF_VARCHAR2_TABLE_200();
248 a26 := JTF_VARCHAR2_TABLE_200();
249 a27 := JTF_VARCHAR2_TABLE_200();
250 a28 := JTF_VARCHAR2_TABLE_200();
251 a29 := JTF_VARCHAR2_TABLE_200();
252 a30 := JTF_VARCHAR2_TABLE_200();
253 a31 := JTF_VARCHAR2_TABLE_200();
254 a32 := JTF_VARCHAR2_TABLE_200();
255 a33 := JTF_VARCHAR2_TABLE_200();
256 a34 := JTF_VARCHAR2_TABLE_200();
257 a35 := JTF_VARCHAR2_TABLE_200();
258 a36 := JTF_VARCHAR2_TABLE_200();
259 a37 := JTF_NUMBER_TABLE();
260 a38 := JTF_NUMBER_TABLE();
261 a39 := JTF_NUMBER_TABLE();
262 a40 := JTF_NUMBER_TABLE();
263 a41 := JTF_NUMBER_TABLE();
264 a42 := JTF_NUMBER_TABLE();
265 a43 := JTF_NUMBER_TABLE();
266 a44 := JTF_NUMBER_TABLE();
267 a45 := JTF_VARCHAR2_TABLE_100();
268 a46 := JTF_VARCHAR2_TABLE_100();
269 a47 := JTF_VARCHAR2_TABLE_100();
270 a48 := JTF_NUMBER_TABLE();
271 a49 := JTF_VARCHAR2_TABLE_2000();
272 a50 := JTF_VARCHAR2_TABLE_2000();
273 a51 := JTF_VARCHAR2_TABLE_2000();
274 a52 := JTF_VARCHAR2_TABLE_2000();
275 a53 := JTF_NUMBER_TABLE();
276 a54 := JTF_VARCHAR2_TABLE_200();
277 a55 := JTF_NUMBER_TABLE();
278 a56 := JTF_VARCHAR2_TABLE_300();
279 a57 := JTF_NUMBER_TABLE();
280 a58 := JTF_NUMBER_TABLE();
281 a59 := JTF_VARCHAR2_TABLE_2000();
282 a60 := JTF_NUMBER_TABLE();
283 a61 := JTF_NUMBER_TABLE();
284 a62 := JTF_NUMBER_TABLE();
285 a63 := JTF_VARCHAR2_TABLE_2000();
286 a64 := JTF_NUMBER_TABLE();
287 a65 := JTF_VARCHAR2_TABLE_2000();
288 else
289 a0 := JTF_NUMBER_TABLE();
290 a1 := JTF_NUMBER_TABLE();
291 a2 := JTF_NUMBER_TABLE();
292 a3 := JTF_DATE_TABLE();
293 a4 := JTF_DATE_TABLE();
294 a5 := JTF_DATE_TABLE();
295 a6 := JTF_NUMBER_TABLE();
296 a7 := JTF_NUMBER_TABLE();
297 a8 := JTF_NUMBER_TABLE();
298 a9 := JTF_NUMBER_TABLE();
299 a10 := JTF_NUMBER_TABLE();
300 a11 := JTF_NUMBER_TABLE();
301 a12 := JTF_NUMBER_TABLE();
302 a13 := JTF_NUMBER_TABLE();
303 a14 := JTF_NUMBER_TABLE();
304 a15 := JTF_NUMBER_TABLE();
305 a16 := JTF_VARCHAR2_TABLE_100();
306 a17 := JTF_VARCHAR2_TABLE_200();
307 a18 := JTF_VARCHAR2_TABLE_200();
308 a19 := JTF_VARCHAR2_TABLE_200();
309 a20 := JTF_VARCHAR2_TABLE_200();
310 a21 := JTF_VARCHAR2_TABLE_200();
311 a22 := JTF_VARCHAR2_TABLE_200();
312 a23 := JTF_VARCHAR2_TABLE_200();
313 a24 := JTF_VARCHAR2_TABLE_200();
314 a25 := JTF_VARCHAR2_TABLE_200();
315 a26 := JTF_VARCHAR2_TABLE_200();
316 a27 := JTF_VARCHAR2_TABLE_200();
317 a28 := JTF_VARCHAR2_TABLE_200();
318 a29 := JTF_VARCHAR2_TABLE_200();
319 a30 := JTF_VARCHAR2_TABLE_200();
320 a31 := JTF_VARCHAR2_TABLE_200();
321 a32 := JTF_VARCHAR2_TABLE_200();
322 a33 := JTF_VARCHAR2_TABLE_200();
323 a34 := JTF_VARCHAR2_TABLE_200();
324 a35 := JTF_VARCHAR2_TABLE_200();
325 a36 := JTF_VARCHAR2_TABLE_200();
326 a37 := JTF_NUMBER_TABLE();
327 a38 := JTF_NUMBER_TABLE();
328 a39 := JTF_NUMBER_TABLE();
329 a40 := JTF_NUMBER_TABLE();
330 a41 := JTF_NUMBER_TABLE();
331 a42 := JTF_NUMBER_TABLE();
332 a43 := JTF_NUMBER_TABLE();
333 a44 := JTF_NUMBER_TABLE();
334 a45 := JTF_VARCHAR2_TABLE_100();
335 a46 := JTF_VARCHAR2_TABLE_100();
336 a47 := JTF_VARCHAR2_TABLE_100();
337 a48 := JTF_NUMBER_TABLE();
338 a49 := JTF_VARCHAR2_TABLE_2000();
339 a50 := JTF_VARCHAR2_TABLE_2000();
340 a51 := JTF_VARCHAR2_TABLE_2000();
341 a52 := JTF_VARCHAR2_TABLE_2000();
342 a53 := JTF_NUMBER_TABLE();
343 a54 := JTF_VARCHAR2_TABLE_200();
344 a55 := JTF_NUMBER_TABLE();
345 a56 := JTF_VARCHAR2_TABLE_300();
346 a57 := JTF_NUMBER_TABLE();
347 a58 := JTF_NUMBER_TABLE();
348 a59 := JTF_VARCHAR2_TABLE_2000();
349 a60 := JTF_NUMBER_TABLE();
350 a61 := JTF_NUMBER_TABLE();
351 a62 := JTF_NUMBER_TABLE();
352 a63 := JTF_VARCHAR2_TABLE_2000();
353 a64 := JTF_NUMBER_TABLE();
354 a65 := JTF_VARCHAR2_TABLE_2000();
355 if t.count > 0 then
356 a0.extend(t.count);
357 a1.extend(t.count);
358 a2.extend(t.count);
359 a3.extend(t.count);
360 a4.extend(t.count);
361 a5.extend(t.count);
362 a6.extend(t.count);
363 a7.extend(t.count);
364 a8.extend(t.count);
365 a9.extend(t.count);
366 a10.extend(t.count);
367 a11.extend(t.count);
368 a12.extend(t.count);
369 a13.extend(t.count);
370 a14.extend(t.count);
371 a15.extend(t.count);
372 a16.extend(t.count);
373 a17.extend(t.count);
374 a18.extend(t.count);
375 a19.extend(t.count);
376 a20.extend(t.count);
377 a21.extend(t.count);
378 a22.extend(t.count);
379 a23.extend(t.count);
380 a24.extend(t.count);
381 a25.extend(t.count);
382 a26.extend(t.count);
383 a27.extend(t.count);
384 a28.extend(t.count);
385 a29.extend(t.count);
386 a30.extend(t.count);
387 a31.extend(t.count);
388 a32.extend(t.count);
389 a33.extend(t.count);
390 a34.extend(t.count);
391 a35.extend(t.count);
392 a36.extend(t.count);
393 a37.extend(t.count);
394 a38.extend(t.count);
395 a39.extend(t.count);
396 a40.extend(t.count);
397 a41.extend(t.count);
398 a42.extend(t.count);
399 a43.extend(t.count);
400 a44.extend(t.count);
401 a45.extend(t.count);
402 a46.extend(t.count);
403 a47.extend(t.count);
404 a48.extend(t.count);
405 a49.extend(t.count);
406 a50.extend(t.count);
407 a51.extend(t.count);
408 a52.extend(t.count);
409 a53.extend(t.count);
410 a54.extend(t.count);
411 a55.extend(t.count);
412 a56.extend(t.count);
413 a57.extend(t.count);
414 a58.extend(t.count);
415 a59.extend(t.count);
416 a60.extend(t.count);
417 a61.extend(t.count);
418 a62.extend(t.count);
419 a63.extend(t.count);
420 a64.extend(t.count);
421 a65.extend(t.count);
422 ddindx := t.first;
423 indx := 1;
424 while true loop
425 a0(indx) := t(ddindx).custom_schedule_id;
426 a1(indx) := t(ddindx).loan_id;
427 a2(indx) := t(ddindx).payment_number;
428 a3(indx) := t(ddindx).due_date;
429 a4(indx) := t(ddindx).period_start_date;
430 a5(indx) := t(ddindx).period_end_date;
431 a6(indx) := t(ddindx).principal_amount;
432 a7(indx) := t(ddindx).interest_amount;
433 a8(indx) := t(ddindx).normal_int_amount;
434 a9(indx) := t(ddindx).add_prin_int_amount;
435 a10(indx) := t(ddindx).add_int_int_amount;
436 a11(indx) := t(ddindx).penal_int_amount;
437 a12(indx) := t(ddindx).principal_balance;
438 a13(indx) := t(ddindx).fee_amount;
439 a14(indx) := t(ddindx).other_amount;
440 a15(indx) := t(ddindx).object_version_number;
441 a16(indx) := t(ddindx).attribute_category;
442 a17(indx) := t(ddindx).attribute1;
443 a18(indx) := t(ddindx).attribute2;
444 a19(indx) := t(ddindx).attribute3;
445 a20(indx) := t(ddindx).attribute4;
446 a21(indx) := t(ddindx).attribute5;
447 a22(indx) := t(ddindx).attribute6;
448 a23(indx) := t(ddindx).attribute7;
449 a24(indx) := t(ddindx).attribute8;
450 a25(indx) := t(ddindx).attribute9;
451 a26(indx) := t(ddindx).attribute10;
452 a27(indx) := t(ddindx).attribute11;
453 a28(indx) := t(ddindx).attribute12;
454 a29(indx) := t(ddindx).attribute13;
455 a30(indx) := t(ddindx).attribute14;
456 a31(indx) := t(ddindx).attribute15;
457 a32(indx) := t(ddindx).attribute16;
458 a33(indx) := t(ddindx).attribute17;
459 a34(indx) := t(ddindx).attribute18;
460 a35(indx) := t(ddindx).attribute19;
461 a36(indx) := t(ddindx).attribute20;
462 a37(indx) := t(ddindx).current_term_payment;
463 a38(indx) := t(ddindx).installment_begin_balance;
464 a39(indx) := t(ddindx).installment_end_balance;
465 a40(indx) := t(ddindx).principal_paid_todate;
466 a41(indx) := t(ddindx).interest_paid_todate;
467 a42(indx) := t(ddindx).interest_rate;
468 a43(indx) := t(ddindx).unpaid_prin;
469 a44(indx) := t(ddindx).unpaid_int;
470 a45(indx) := t(ddindx).lock_prin;
471 a46(indx) := t(ddindx).lock_int;
472 a47(indx) := t(ddindx).action;
473 a48(indx) := t(ddindx).funded_amount;
474 a49(indx) := t(ddindx).normal_int_details;
475 a50(indx) := t(ddindx).add_prin_int_details;
476 a51(indx) := t(ddindx).add_int_int_details;
477 a52(indx) := t(ddindx).penal_int_details;
478 a53(indx) := t(ddindx).disbursement_amount;
479 a54(indx) := t(ddindx).period;
480 a55(indx) := t(ddindx).principal_percent;
481 a56(indx) := t(ddindx).relative_date;
482 a57(indx) := t(ddindx).prev_deferred_int_amount;
483 a58(indx) := t(ddindx).deferred_int_amount;
484 a59(indx) := t(ddindx).deferred_int_details;
485 a60(indx) := t(ddindx).prev_cap_int_amount;
486 a61(indx) := t(ddindx).curr_cap_int_amount;
487 a62(indx) := t(ddindx).cap_int_amount;
488 a63(indx) := t(ddindx).cap_int_details;
489 a64(indx) := t(ddindx).early_pay_cr_amount;
490 a65(indx) := t(ddindx).early_pay_cr_details;
491 indx := indx+1;
492 if t.last =ddindx
493 then exit;
494 end if;
495 ddindx := t.next(ddindx);
496 end loop;
497 end if;
498 end if;
499 end rosetta_table_copy_out_p1;
500
501 procedure resetcustomschedule(p_loan_id NUMBER
502 , p_init_msg_list VARCHAR2
503 , p_commit VARCHAR2
504 , p_update_header number
505 , x_return_status out nocopy VARCHAR2
506 , x_msg_count out nocopy NUMBER
507 , x_msg_data out nocopy VARCHAR2
508 )
509
510 as
511 ddp_update_header boolean;
512 ddindx binary_integer; indx binary_integer;
513 begin
514
515 -- copy data to the local IN or IN-OUT args, if any
516
517
518
519 if p_update_header is null
520 then ddp_update_header := null;
521 elsif p_update_header = 0
522 then ddp_update_header := false;
523 else ddp_update_header := true;
524 end if;
525
526
527
528
529 -- here's the delegated call to the old PL/SQL routine
530 lns_custom_pub.resetcustomschedule(p_loan_id,
531 p_init_msg_list,
532 p_commit,
533 ddp_update_header,
534 x_return_status,
535 x_msg_count,
536 x_msg_data);
537
538 -- copy data back from the local variables to OUT or IN-OUT args, if any
539
540
541
542
543
544
545 end;
546
547 procedure createcustomschedule(p0_a0 JTF_NUMBER_TABLE
548 , p0_a1 JTF_NUMBER_TABLE
549 , p0_a2 JTF_NUMBER_TABLE
550 , p0_a3 JTF_DATE_TABLE
551 , p0_a4 JTF_DATE_TABLE
552 , p0_a5 JTF_DATE_TABLE
553 , p0_a6 JTF_NUMBER_TABLE
554 , p0_a7 JTF_NUMBER_TABLE
555 , p0_a8 JTF_NUMBER_TABLE
556 , p0_a9 JTF_NUMBER_TABLE
557 , p0_a10 JTF_NUMBER_TABLE
558 , p0_a11 JTF_NUMBER_TABLE
559 , p0_a12 JTF_NUMBER_TABLE
560 , p0_a13 JTF_NUMBER_TABLE
561 , p0_a14 JTF_NUMBER_TABLE
562 , p0_a15 JTF_NUMBER_TABLE
563 , p0_a16 JTF_VARCHAR2_TABLE_100
564 , p0_a17 JTF_VARCHAR2_TABLE_200
565 , p0_a18 JTF_VARCHAR2_TABLE_200
566 , p0_a19 JTF_VARCHAR2_TABLE_200
567 , p0_a20 JTF_VARCHAR2_TABLE_200
568 , p0_a21 JTF_VARCHAR2_TABLE_200
569 , p0_a22 JTF_VARCHAR2_TABLE_200
570 , p0_a23 JTF_VARCHAR2_TABLE_200
571 , p0_a24 JTF_VARCHAR2_TABLE_200
572 , p0_a25 JTF_VARCHAR2_TABLE_200
573 , p0_a26 JTF_VARCHAR2_TABLE_200
574 , p0_a27 JTF_VARCHAR2_TABLE_200
575 , p0_a28 JTF_VARCHAR2_TABLE_200
576 , p0_a29 JTF_VARCHAR2_TABLE_200
577 , p0_a30 JTF_VARCHAR2_TABLE_200
578 , p0_a31 JTF_VARCHAR2_TABLE_200
579 , p0_a32 JTF_VARCHAR2_TABLE_200
580 , p0_a33 JTF_VARCHAR2_TABLE_200
581 , p0_a34 JTF_VARCHAR2_TABLE_200
582 , p0_a35 JTF_VARCHAR2_TABLE_200
583 , p0_a36 JTF_VARCHAR2_TABLE_200
584 , p0_a37 JTF_NUMBER_TABLE
585 , p0_a38 JTF_NUMBER_TABLE
586 , p0_a39 JTF_NUMBER_TABLE
587 , p0_a40 JTF_NUMBER_TABLE
588 , p0_a41 JTF_NUMBER_TABLE
589 , p0_a42 JTF_NUMBER_TABLE
590 , p0_a43 JTF_NUMBER_TABLE
591 , p0_a44 JTF_NUMBER_TABLE
592 , p0_a45 JTF_VARCHAR2_TABLE_100
593 , p0_a46 JTF_VARCHAR2_TABLE_100
594 , p0_a47 JTF_VARCHAR2_TABLE_100
595 , p0_a48 JTF_NUMBER_TABLE
596 , p0_a49 JTF_VARCHAR2_TABLE_2000
597 , p0_a50 JTF_VARCHAR2_TABLE_2000
598 , p0_a51 JTF_VARCHAR2_TABLE_2000
599 , p0_a52 JTF_VARCHAR2_TABLE_2000
600 , p0_a53 JTF_NUMBER_TABLE
601 , p0_a54 JTF_VARCHAR2_TABLE_200
602 , p0_a55 JTF_NUMBER_TABLE
603 , p0_a56 JTF_VARCHAR2_TABLE_300
604 , p0_a57 JTF_NUMBER_TABLE
605 , p0_a58 JTF_NUMBER_TABLE
606 , p0_a59 JTF_VARCHAR2_TABLE_2000
607 , p0_a60 JTF_NUMBER_TABLE
608 , p0_a61 JTF_NUMBER_TABLE
609 , p0_a62 JTF_NUMBER_TABLE
610 , p0_a63 JTF_VARCHAR2_TABLE_2000
611 , p0_a64 JTF_NUMBER_TABLE
612 , p0_a65 JTF_VARCHAR2_TABLE_2000
613 , p_loan_id NUMBER
614 , p_init_msg_list VARCHAR2
615 , p_commit VARCHAR2
616 , x_return_status out nocopy VARCHAR2
617 , x_msg_count out nocopy NUMBER
618 , x_msg_data out nocopy VARCHAR2
619 , x_invalid_installment_num out nocopy NUMBER
620 )
621
622 as
623 ddp_custom_tbl lns_custom_pub.custom_tbl;
624 ddindx binary_integer; indx binary_integer;
625 begin
626
627 -- copy data to the local IN or IN-OUT args, if any
628 lns_custom_pub_w.rosetta_table_copy_in_p1(ddp_custom_tbl, p0_a0
629 , p0_a1
630 , p0_a2
631 , p0_a3
632 , p0_a4
633 , p0_a5
634 , p0_a6
635 , p0_a7
636 , p0_a8
637 , p0_a9
638 , p0_a10
639 , p0_a11
640 , p0_a12
641 , p0_a13
642 , p0_a14
643 , p0_a15
644 , p0_a16
645 , p0_a17
646 , p0_a18
647 , p0_a19
648 , p0_a20
649 , p0_a21
650 , p0_a22
651 , p0_a23
652 , p0_a24
653 , p0_a25
654 , p0_a26
655 , p0_a27
656 , p0_a28
657 , p0_a29
658 , p0_a30
659 , p0_a31
660 , p0_a32
661 , p0_a33
662 , p0_a34
663 , p0_a35
664 , p0_a36
665 , p0_a37
666 , p0_a38
667 , p0_a39
668 , p0_a40
669 , p0_a41
670 , p0_a42
671 , p0_a43
672 , p0_a44
673 , p0_a45
674 , p0_a46
675 , p0_a47
676 , p0_a48
677 , p0_a49
678 , p0_a50
679 , p0_a51
680 , p0_a52
681 , p0_a53
682 , p0_a54
683 , p0_a55
684 , p0_a56
685 , p0_a57
686 , p0_a58
687 , p0_a59
688 , p0_a60
689 , p0_a61
690 , p0_a62
691 , p0_a63
692 , p0_a64
693 , p0_a65
694 );
695
696
697
698
699
700
701
702
703 -- here's the delegated call to the old PL/SQL routine
704 lns_custom_pub.createcustomschedule(ddp_custom_tbl,
705 p_loan_id,
706 p_init_msg_list,
707 p_commit,
708 x_return_status,
709 x_msg_count,
710 x_msg_data,
711 x_invalid_installment_num);
712
713 -- copy data back from the local variables to OUT or IN-OUT args, if any
714
715
716
717
718
719
720
721 end;
722
723 procedure updatecustomschedule(p0_a0 JTF_NUMBER_TABLE
724 , p0_a1 JTF_NUMBER_TABLE
725 , p0_a2 JTF_NUMBER_TABLE
726 , p0_a3 JTF_DATE_TABLE
727 , p0_a4 JTF_DATE_TABLE
728 , p0_a5 JTF_DATE_TABLE
729 , p0_a6 JTF_NUMBER_TABLE
730 , p0_a7 JTF_NUMBER_TABLE
731 , p0_a8 JTF_NUMBER_TABLE
732 , p0_a9 JTF_NUMBER_TABLE
733 , p0_a10 JTF_NUMBER_TABLE
734 , p0_a11 JTF_NUMBER_TABLE
735 , p0_a12 JTF_NUMBER_TABLE
736 , p0_a13 JTF_NUMBER_TABLE
737 , p0_a14 JTF_NUMBER_TABLE
738 , p0_a15 JTF_NUMBER_TABLE
739 , p0_a16 JTF_VARCHAR2_TABLE_100
740 , p0_a17 JTF_VARCHAR2_TABLE_200
741 , p0_a18 JTF_VARCHAR2_TABLE_200
742 , p0_a19 JTF_VARCHAR2_TABLE_200
743 , p0_a20 JTF_VARCHAR2_TABLE_200
744 , p0_a21 JTF_VARCHAR2_TABLE_200
745 , p0_a22 JTF_VARCHAR2_TABLE_200
746 , p0_a23 JTF_VARCHAR2_TABLE_200
747 , p0_a24 JTF_VARCHAR2_TABLE_200
748 , p0_a25 JTF_VARCHAR2_TABLE_200
749 , p0_a26 JTF_VARCHAR2_TABLE_200
750 , p0_a27 JTF_VARCHAR2_TABLE_200
751 , p0_a28 JTF_VARCHAR2_TABLE_200
752 , p0_a29 JTF_VARCHAR2_TABLE_200
753 , p0_a30 JTF_VARCHAR2_TABLE_200
754 , p0_a31 JTF_VARCHAR2_TABLE_200
755 , p0_a32 JTF_VARCHAR2_TABLE_200
756 , p0_a33 JTF_VARCHAR2_TABLE_200
757 , p0_a34 JTF_VARCHAR2_TABLE_200
758 , p0_a35 JTF_VARCHAR2_TABLE_200
759 , p0_a36 JTF_VARCHAR2_TABLE_200
760 , p0_a37 JTF_NUMBER_TABLE
761 , p0_a38 JTF_NUMBER_TABLE
762 , p0_a39 JTF_NUMBER_TABLE
763 , p0_a40 JTF_NUMBER_TABLE
764 , p0_a41 JTF_NUMBER_TABLE
765 , p0_a42 JTF_NUMBER_TABLE
766 , p0_a43 JTF_NUMBER_TABLE
767 , p0_a44 JTF_NUMBER_TABLE
768 , p0_a45 JTF_VARCHAR2_TABLE_100
769 , p0_a46 JTF_VARCHAR2_TABLE_100
770 , p0_a47 JTF_VARCHAR2_TABLE_100
771 , p0_a48 JTF_NUMBER_TABLE
772 , p0_a49 JTF_VARCHAR2_TABLE_2000
773 , p0_a50 JTF_VARCHAR2_TABLE_2000
774 , p0_a51 JTF_VARCHAR2_TABLE_2000
775 , p0_a52 JTF_VARCHAR2_TABLE_2000
776 , p0_a53 JTF_NUMBER_TABLE
777 , p0_a54 JTF_VARCHAR2_TABLE_200
778 , p0_a55 JTF_NUMBER_TABLE
779 , p0_a56 JTF_VARCHAR2_TABLE_300
780 , p0_a57 JTF_NUMBER_TABLE
781 , p0_a58 JTF_NUMBER_TABLE
782 , p0_a59 JTF_VARCHAR2_TABLE_2000
783 , p0_a60 JTF_NUMBER_TABLE
784 , p0_a61 JTF_NUMBER_TABLE
785 , p0_a62 JTF_NUMBER_TABLE
786 , p0_a63 JTF_VARCHAR2_TABLE_2000
787 , p0_a64 JTF_NUMBER_TABLE
788 , p0_a65 JTF_VARCHAR2_TABLE_2000
789 , p_loan_id NUMBER
790 , p_init_msg_list VARCHAR2
791 , p_commit VARCHAR2
792 , x_return_status out nocopy VARCHAR2
793 , x_msg_count out nocopy NUMBER
794 , x_msg_data out nocopy VARCHAR2
795 , x_invalid_installment_num out nocopy NUMBER
796 )
797
798 as
799 ddp_custom_tbl lns_custom_pub.custom_tbl;
800 ddindx binary_integer; indx binary_integer;
801 begin
802
803 -- copy data to the local IN or IN-OUT args, if any
804 lns_custom_pub_w.rosetta_table_copy_in_p1(ddp_custom_tbl, p0_a0
805 , p0_a1
806 , p0_a2
807 , p0_a3
808 , p0_a4
809 , p0_a5
810 , p0_a6
811 , p0_a7
812 , p0_a8
813 , p0_a9
814 , p0_a10
815 , p0_a11
816 , p0_a12
817 , p0_a13
818 , p0_a14
819 , p0_a15
820 , p0_a16
821 , p0_a17
822 , p0_a18
823 , p0_a19
824 , p0_a20
825 , p0_a21
826 , p0_a22
827 , p0_a23
828 , p0_a24
829 , p0_a25
830 , p0_a26
831 , p0_a27
832 , p0_a28
833 , p0_a29
834 , p0_a30
835 , p0_a31
836 , p0_a32
837 , p0_a33
838 , p0_a34
839 , p0_a35
840 , p0_a36
841 , p0_a37
842 , p0_a38
843 , p0_a39
844 , p0_a40
845 , p0_a41
846 , p0_a42
847 , p0_a43
848 , p0_a44
849 , p0_a45
850 , p0_a46
851 , p0_a47
852 , p0_a48
853 , p0_a49
854 , p0_a50
855 , p0_a51
856 , p0_a52
857 , p0_a53
858 , p0_a54
859 , p0_a55
860 , p0_a56
861 , p0_a57
862 , p0_a58
863 , p0_a59
864 , p0_a60
865 , p0_a61
866 , p0_a62
867 , p0_a63
868 , p0_a64
869 , p0_a65
870 );
871
872
873
874
875
876
877
878
879 -- here's the delegated call to the old PL/SQL routine
880 lns_custom_pub.updatecustomschedule(ddp_custom_tbl,
881 p_loan_id,
882 p_init_msg_list,
883 p_commit,
884 x_return_status,
885 x_msg_count,
886 x_msg_data,
887 x_invalid_installment_num);
888
889 -- copy data back from the local variables to OUT or IN-OUT args, if any
890
891
892
893
894
895
896
897 end;
898
899 procedure createcustomsched(p0_a0 NUMBER
900 , p0_a1 NUMBER
901 , p0_a2 NUMBER
902 , p0_a3 DATE
903 , p0_a4 DATE
904 , p0_a5 DATE
905 , p0_a6 NUMBER
906 , p0_a7 NUMBER
907 , p0_a8 NUMBER
908 , p0_a9 NUMBER
909 , p0_a10 NUMBER
910 , p0_a11 NUMBER
911 , p0_a12 NUMBER
912 , p0_a13 NUMBER
913 , p0_a14 NUMBER
914 , p0_a15 NUMBER
915 , p0_a16 VARCHAR2
916 , p0_a17 VARCHAR2
917 , p0_a18 VARCHAR2
918 , p0_a19 VARCHAR2
919 , p0_a20 VARCHAR2
920 , p0_a21 VARCHAR2
921 , p0_a22 VARCHAR2
922 , p0_a23 VARCHAR2
923 , p0_a24 VARCHAR2
924 , p0_a25 VARCHAR2
925 , p0_a26 VARCHAR2
926 , p0_a27 VARCHAR2
927 , p0_a28 VARCHAR2
928 , p0_a29 VARCHAR2
929 , p0_a30 VARCHAR2
930 , p0_a31 VARCHAR2
931 , p0_a32 VARCHAR2
932 , p0_a33 VARCHAR2
933 , p0_a34 VARCHAR2
934 , p0_a35 VARCHAR2
935 , p0_a36 VARCHAR2
936 , p0_a37 NUMBER
937 , p0_a38 NUMBER
938 , p0_a39 NUMBER
939 , p0_a40 NUMBER
940 , p0_a41 NUMBER
941 , p0_a42 NUMBER
942 , p0_a43 NUMBER
943 , p0_a44 NUMBER
944 , p0_a45 VARCHAR2
945 , p0_a46 VARCHAR2
946 , p0_a47 VARCHAR2
947 , p0_a48 NUMBER
948 , p0_a49 VARCHAR2
949 , p0_a50 VARCHAR2
950 , p0_a51 VARCHAR2
951 , p0_a52 VARCHAR2
952 , p0_a53 NUMBER
953 , p0_a54 VARCHAR2
954 , p0_a55 NUMBER
955 , p0_a56 VARCHAR2
956 , p0_a57 NUMBER
957 , p0_a58 NUMBER
958 , p0_a59 VARCHAR2
959 , p0_a60 NUMBER
960 , p0_a61 NUMBER
961 , p0_a62 NUMBER
962 , p0_a63 VARCHAR2
963 , p0_a64 NUMBER
964 , p0_a65 VARCHAR2
965 , x_custom_sched_id out nocopy NUMBER
966 , x_return_status out nocopy VARCHAR2
967 , x_msg_count out nocopy NUMBER
968 , x_msg_data out nocopy VARCHAR2
969 )
970
971 as
972 ddp_custom_rec lns_custom_pub.custom_sched_type;
973 ddindx binary_integer; indx binary_integer;
974 begin
975
976 -- copy data to the local IN or IN-OUT args, if any
977 ddp_custom_rec.custom_schedule_id := p0_a0;
978 ddp_custom_rec.loan_id := p0_a1;
979 ddp_custom_rec.payment_number := p0_a2;
980 ddp_custom_rec.due_date := p0_a3;
981 ddp_custom_rec.period_start_date := p0_a4;
982 ddp_custom_rec.period_end_date := p0_a5;
983 ddp_custom_rec.principal_amount := p0_a6;
984 ddp_custom_rec.interest_amount := p0_a7;
985 ddp_custom_rec.normal_int_amount := p0_a8;
986 ddp_custom_rec.add_prin_int_amount := p0_a9;
987 ddp_custom_rec.add_int_int_amount := p0_a10;
988 ddp_custom_rec.penal_int_amount := p0_a11;
989 ddp_custom_rec.principal_balance := p0_a12;
990 ddp_custom_rec.fee_amount := p0_a13;
991 ddp_custom_rec.other_amount := p0_a14;
992 ddp_custom_rec.object_version_number := p0_a15;
993 ddp_custom_rec.attribute_category := p0_a16;
994 ddp_custom_rec.attribute1 := p0_a17;
995 ddp_custom_rec.attribute2 := p0_a18;
996 ddp_custom_rec.attribute3 := p0_a19;
997 ddp_custom_rec.attribute4 := p0_a20;
998 ddp_custom_rec.attribute5 := p0_a21;
999 ddp_custom_rec.attribute6 := p0_a22;
1000 ddp_custom_rec.attribute7 := p0_a23;
1001 ddp_custom_rec.attribute8 := p0_a24;
1002 ddp_custom_rec.attribute9 := p0_a25;
1003 ddp_custom_rec.attribute10 := p0_a26;
1004 ddp_custom_rec.attribute11 := p0_a27;
1005 ddp_custom_rec.attribute12 := p0_a28;
1006 ddp_custom_rec.attribute13 := p0_a29;
1007 ddp_custom_rec.attribute14 := p0_a30;
1008 ddp_custom_rec.attribute15 := p0_a31;
1009 ddp_custom_rec.attribute16 := p0_a32;
1010 ddp_custom_rec.attribute17 := p0_a33;
1011 ddp_custom_rec.attribute18 := p0_a34;
1012 ddp_custom_rec.attribute19 := p0_a35;
1013 ddp_custom_rec.attribute20 := p0_a36;
1014 ddp_custom_rec.current_term_payment := p0_a37;
1015 ddp_custom_rec.installment_begin_balance := p0_a38;
1016 ddp_custom_rec.installment_end_balance := p0_a39;
1017 ddp_custom_rec.principal_paid_todate := p0_a40;
1018 ddp_custom_rec.interest_paid_todate := p0_a41;
1019 ddp_custom_rec.interest_rate := p0_a42;
1020 ddp_custom_rec.unpaid_prin := p0_a43;
1021 ddp_custom_rec.unpaid_int := p0_a44;
1022 ddp_custom_rec.lock_prin := p0_a45;
1023 ddp_custom_rec.lock_int := p0_a46;
1024 ddp_custom_rec.action := p0_a47;
1025 ddp_custom_rec.funded_amount := p0_a48;
1026 ddp_custom_rec.normal_int_details := p0_a49;
1027 ddp_custom_rec.add_prin_int_details := p0_a50;
1028 ddp_custom_rec.add_int_int_details := p0_a51;
1029 ddp_custom_rec.penal_int_details := p0_a52;
1030 ddp_custom_rec.disbursement_amount := p0_a53;
1031 ddp_custom_rec.period := p0_a54;
1032 ddp_custom_rec.principal_percent := p0_a55;
1033 ddp_custom_rec.relative_date := p0_a56;
1034 ddp_custom_rec.prev_deferred_int_amount := p0_a57;
1035 ddp_custom_rec.deferred_int_amount := p0_a58;
1036 ddp_custom_rec.deferred_int_details := p0_a59;
1037 ddp_custom_rec.prev_cap_int_amount := p0_a60;
1038 ddp_custom_rec.curr_cap_int_amount := p0_a61;
1039 ddp_custom_rec.cap_int_amount := p0_a62;
1040 ddp_custom_rec.cap_int_details := p0_a63;
1041 ddp_custom_rec.early_pay_cr_amount := p0_a64;
1042 ddp_custom_rec.early_pay_cr_details := p0_a65;
1043
1044
1045
1046
1047
1048 -- here's the delegated call to the old PL/SQL routine
1049 lns_custom_pub.createcustomsched(ddp_custom_rec,
1050 x_custom_sched_id,
1051 x_return_status,
1052 x_msg_count,
1053 x_msg_data);
1054
1055 -- copy data back from the local variables to OUT or IN-OUT args, if any
1056
1057
1058
1059
1060 end;
1061
1062 procedure updatecustomsched(p0_a0 NUMBER
1063 , p0_a1 NUMBER
1064 , p0_a2 NUMBER
1065 , p0_a3 DATE
1066 , p0_a4 DATE
1067 , p0_a5 DATE
1068 , p0_a6 NUMBER
1069 , p0_a7 NUMBER
1070 , p0_a8 NUMBER
1071 , p0_a9 NUMBER
1072 , p0_a10 NUMBER
1073 , p0_a11 NUMBER
1074 , p0_a12 NUMBER
1075 , p0_a13 NUMBER
1076 , p0_a14 NUMBER
1077 , p0_a15 NUMBER
1078 , p0_a16 VARCHAR2
1079 , p0_a17 VARCHAR2
1080 , p0_a18 VARCHAR2
1081 , p0_a19 VARCHAR2
1082 , p0_a20 VARCHAR2
1083 , p0_a21 VARCHAR2
1084 , p0_a22 VARCHAR2
1085 , p0_a23 VARCHAR2
1086 , p0_a24 VARCHAR2
1087 , p0_a25 VARCHAR2
1088 , p0_a26 VARCHAR2
1089 , p0_a27 VARCHAR2
1090 , p0_a28 VARCHAR2
1091 , p0_a29 VARCHAR2
1092 , p0_a30 VARCHAR2
1093 , p0_a31 VARCHAR2
1094 , p0_a32 VARCHAR2
1095 , p0_a33 VARCHAR2
1096 , p0_a34 VARCHAR2
1097 , p0_a35 VARCHAR2
1098 , p0_a36 VARCHAR2
1099 , p0_a37 NUMBER
1100 , p0_a38 NUMBER
1101 , p0_a39 NUMBER
1102 , p0_a40 NUMBER
1103 , p0_a41 NUMBER
1104 , p0_a42 NUMBER
1105 , p0_a43 NUMBER
1106 , p0_a44 NUMBER
1107 , p0_a45 VARCHAR2
1108 , p0_a46 VARCHAR2
1109 , p0_a47 VARCHAR2
1110 , p0_a48 NUMBER
1111 , p0_a49 VARCHAR2
1112 , p0_a50 VARCHAR2
1113 , p0_a51 VARCHAR2
1114 , p0_a52 VARCHAR2
1115 , p0_a53 NUMBER
1116 , p0_a54 VARCHAR2
1117 , p0_a55 NUMBER
1118 , p0_a56 VARCHAR2
1119 , p0_a57 NUMBER
1120 , p0_a58 NUMBER
1121 , p0_a59 VARCHAR2
1122 , p0_a60 NUMBER
1123 , p0_a61 NUMBER
1124 , p0_a62 NUMBER
1125 , p0_a63 VARCHAR2
1126 , p0_a64 NUMBER
1127 , p0_a65 VARCHAR2
1128 , x_return_status out nocopy VARCHAR2
1129 , x_msg_count out nocopy NUMBER
1130 , x_msg_data out nocopy VARCHAR2
1131 )
1132
1133 as
1134 ddp_custom_rec lns_custom_pub.custom_sched_type;
1135 ddindx binary_integer; indx binary_integer;
1136 begin
1137
1138 -- copy data to the local IN or IN-OUT args, if any
1139 ddp_custom_rec.custom_schedule_id := p0_a0;
1140 ddp_custom_rec.loan_id := p0_a1;
1141 ddp_custom_rec.payment_number := p0_a2;
1142 ddp_custom_rec.due_date := p0_a3;
1143 ddp_custom_rec.period_start_date := p0_a4;
1144 ddp_custom_rec.period_end_date := p0_a5;
1145 ddp_custom_rec.principal_amount := p0_a6;
1146 ddp_custom_rec.interest_amount := p0_a7;
1147 ddp_custom_rec.normal_int_amount := p0_a8;
1148 ddp_custom_rec.add_prin_int_amount := p0_a9;
1149 ddp_custom_rec.add_int_int_amount := p0_a10;
1150 ddp_custom_rec.penal_int_amount := p0_a11;
1151 ddp_custom_rec.principal_balance := p0_a12;
1152 ddp_custom_rec.fee_amount := p0_a13;
1153 ddp_custom_rec.other_amount := p0_a14;
1154 ddp_custom_rec.object_version_number := p0_a15;
1155 ddp_custom_rec.attribute_category := p0_a16;
1156 ddp_custom_rec.attribute1 := p0_a17;
1157 ddp_custom_rec.attribute2 := p0_a18;
1158 ddp_custom_rec.attribute3 := p0_a19;
1159 ddp_custom_rec.attribute4 := p0_a20;
1160 ddp_custom_rec.attribute5 := p0_a21;
1161 ddp_custom_rec.attribute6 := p0_a22;
1162 ddp_custom_rec.attribute7 := p0_a23;
1163 ddp_custom_rec.attribute8 := p0_a24;
1164 ddp_custom_rec.attribute9 := p0_a25;
1165 ddp_custom_rec.attribute10 := p0_a26;
1166 ddp_custom_rec.attribute11 := p0_a27;
1167 ddp_custom_rec.attribute12 := p0_a28;
1168 ddp_custom_rec.attribute13 := p0_a29;
1169 ddp_custom_rec.attribute14 := p0_a30;
1170 ddp_custom_rec.attribute15 := p0_a31;
1171 ddp_custom_rec.attribute16 := p0_a32;
1172 ddp_custom_rec.attribute17 := p0_a33;
1173 ddp_custom_rec.attribute18 := p0_a34;
1174 ddp_custom_rec.attribute19 := p0_a35;
1175 ddp_custom_rec.attribute20 := p0_a36;
1176 ddp_custom_rec.current_term_payment := p0_a37;
1177 ddp_custom_rec.installment_begin_balance := p0_a38;
1178 ddp_custom_rec.installment_end_balance := p0_a39;
1179 ddp_custom_rec.principal_paid_todate := p0_a40;
1180 ddp_custom_rec.interest_paid_todate := p0_a41;
1181 ddp_custom_rec.interest_rate := p0_a42;
1182 ddp_custom_rec.unpaid_prin := p0_a43;
1183 ddp_custom_rec.unpaid_int := p0_a44;
1184 ddp_custom_rec.lock_prin := p0_a45;
1185 ddp_custom_rec.lock_int := p0_a46;
1186 ddp_custom_rec.action := p0_a47;
1187 ddp_custom_rec.funded_amount := p0_a48;
1188 ddp_custom_rec.normal_int_details := p0_a49;
1189 ddp_custom_rec.add_prin_int_details := p0_a50;
1190 ddp_custom_rec.add_int_int_details := p0_a51;
1191 ddp_custom_rec.penal_int_details := p0_a52;
1192 ddp_custom_rec.disbursement_amount := p0_a53;
1193 ddp_custom_rec.period := p0_a54;
1194 ddp_custom_rec.principal_percent := p0_a55;
1195 ddp_custom_rec.relative_date := p0_a56;
1196 ddp_custom_rec.prev_deferred_int_amount := p0_a57;
1197 ddp_custom_rec.deferred_int_amount := p0_a58;
1198 ddp_custom_rec.deferred_int_details := p0_a59;
1199 ddp_custom_rec.prev_cap_int_amount := p0_a60;
1200 ddp_custom_rec.curr_cap_int_amount := p0_a61;
1201 ddp_custom_rec.cap_int_amount := p0_a62;
1202 ddp_custom_rec.cap_int_details := p0_a63;
1203 ddp_custom_rec.early_pay_cr_amount := p0_a64;
1204 ddp_custom_rec.early_pay_cr_details := p0_a65;
1205
1206
1207
1208
1209 -- here's the delegated call to the old PL/SQL routine
1210 lns_custom_pub.updatecustomsched(ddp_custom_rec,
1211 x_return_status,
1212 x_msg_count,
1213 x_msg_data);
1214
1215 -- copy data back from the local variables to OUT or IN-OUT args, if any
1216
1217
1218
1219 end;
1220
1221 procedure validatecustomtable(p0_a0 JTF_NUMBER_TABLE
1222 , p0_a1 JTF_NUMBER_TABLE
1223 , p0_a2 JTF_NUMBER_TABLE
1224 , p0_a3 JTF_DATE_TABLE
1225 , p0_a4 JTF_DATE_TABLE
1226 , p0_a5 JTF_DATE_TABLE
1227 , p0_a6 JTF_NUMBER_TABLE
1228 , p0_a7 JTF_NUMBER_TABLE
1229 , p0_a8 JTF_NUMBER_TABLE
1230 , p0_a9 JTF_NUMBER_TABLE
1231 , p0_a10 JTF_NUMBER_TABLE
1232 , p0_a11 JTF_NUMBER_TABLE
1233 , p0_a12 JTF_NUMBER_TABLE
1234 , p0_a13 JTF_NUMBER_TABLE
1235 , p0_a14 JTF_NUMBER_TABLE
1236 , p0_a15 JTF_NUMBER_TABLE
1237 , p0_a16 JTF_VARCHAR2_TABLE_100
1238 , p0_a17 JTF_VARCHAR2_TABLE_200
1239 , p0_a18 JTF_VARCHAR2_TABLE_200
1240 , p0_a19 JTF_VARCHAR2_TABLE_200
1241 , p0_a20 JTF_VARCHAR2_TABLE_200
1242 , p0_a21 JTF_VARCHAR2_TABLE_200
1243 , p0_a22 JTF_VARCHAR2_TABLE_200
1244 , p0_a23 JTF_VARCHAR2_TABLE_200
1245 , p0_a24 JTF_VARCHAR2_TABLE_200
1246 , p0_a25 JTF_VARCHAR2_TABLE_200
1247 , p0_a26 JTF_VARCHAR2_TABLE_200
1248 , p0_a27 JTF_VARCHAR2_TABLE_200
1249 , p0_a28 JTF_VARCHAR2_TABLE_200
1250 , p0_a29 JTF_VARCHAR2_TABLE_200
1251 , p0_a30 JTF_VARCHAR2_TABLE_200
1252 , p0_a31 JTF_VARCHAR2_TABLE_200
1253 , p0_a32 JTF_VARCHAR2_TABLE_200
1254 , p0_a33 JTF_VARCHAR2_TABLE_200
1255 , p0_a34 JTF_VARCHAR2_TABLE_200
1256 , p0_a35 JTF_VARCHAR2_TABLE_200
1257 , p0_a36 JTF_VARCHAR2_TABLE_200
1258 , p0_a37 JTF_NUMBER_TABLE
1259 , p0_a38 JTF_NUMBER_TABLE
1260 , p0_a39 JTF_NUMBER_TABLE
1261 , p0_a40 JTF_NUMBER_TABLE
1262 , p0_a41 JTF_NUMBER_TABLE
1263 , p0_a42 JTF_NUMBER_TABLE
1264 , p0_a43 JTF_NUMBER_TABLE
1265 , p0_a44 JTF_NUMBER_TABLE
1266 , p0_a45 JTF_VARCHAR2_TABLE_100
1267 , p0_a46 JTF_VARCHAR2_TABLE_100
1268 , p0_a47 JTF_VARCHAR2_TABLE_100
1269 , p0_a48 JTF_NUMBER_TABLE
1270 , p0_a49 JTF_VARCHAR2_TABLE_2000
1271 , p0_a50 JTF_VARCHAR2_TABLE_2000
1272 , p0_a51 JTF_VARCHAR2_TABLE_2000
1273 , p0_a52 JTF_VARCHAR2_TABLE_2000
1274 , p0_a53 JTF_NUMBER_TABLE
1275 , p0_a54 JTF_VARCHAR2_TABLE_200
1276 , p0_a55 JTF_NUMBER_TABLE
1277 , p0_a56 JTF_VARCHAR2_TABLE_300
1278 , p0_a57 JTF_NUMBER_TABLE
1279 , p0_a58 JTF_NUMBER_TABLE
1280 , p0_a59 JTF_VARCHAR2_TABLE_2000
1281 , p0_a60 JTF_NUMBER_TABLE
1282 , p0_a61 JTF_NUMBER_TABLE
1283 , p0_a62 JTF_NUMBER_TABLE
1284 , p0_a63 JTF_VARCHAR2_TABLE_2000
1285 , p0_a64 JTF_NUMBER_TABLE
1286 , p0_a65 JTF_VARCHAR2_TABLE_2000
1287 , p_loan_id NUMBER
1288 , p_create_flag number
1289 , x_installment out nocopy NUMBER
1290 , x_return_status out nocopy VARCHAR2
1291 , x_msg_count out nocopy NUMBER
1292 , x_msg_data out nocopy VARCHAR2
1293 )
1294
1295 as
1296 ddp_cust_tbl lns_custom_pub.custom_tbl;
1297 ddp_create_flag boolean;
1298 ddindx binary_integer; indx binary_integer;
1299 begin
1300
1301 -- copy data to the local IN or IN-OUT args, if any
1302 lns_custom_pub_w.rosetta_table_copy_in_p1(ddp_cust_tbl, p0_a0
1303 , p0_a1
1304 , p0_a2
1305 , p0_a3
1306 , p0_a4
1307 , p0_a5
1308 , p0_a6
1309 , p0_a7
1310 , p0_a8
1311 , p0_a9
1312 , p0_a10
1313 , p0_a11
1314 , p0_a12
1315 , p0_a13
1316 , p0_a14
1317 , p0_a15
1318 , p0_a16
1319 , p0_a17
1320 , p0_a18
1321 , p0_a19
1322 , p0_a20
1323 , p0_a21
1324 , p0_a22
1325 , p0_a23
1326 , p0_a24
1327 , p0_a25
1328 , p0_a26
1329 , p0_a27
1330 , p0_a28
1331 , p0_a29
1332 , p0_a30
1333 , p0_a31
1334 , p0_a32
1335 , p0_a33
1336 , p0_a34
1337 , p0_a35
1338 , p0_a36
1339 , p0_a37
1340 , p0_a38
1341 , p0_a39
1342 , p0_a40
1343 , p0_a41
1344 , p0_a42
1345 , p0_a43
1346 , p0_a44
1347 , p0_a45
1348 , p0_a46
1349 , p0_a47
1350 , p0_a48
1351 , p0_a49
1352 , p0_a50
1353 , p0_a51
1354 , p0_a52
1355 , p0_a53
1356 , p0_a54
1357 , p0_a55
1358 , p0_a56
1359 , p0_a57
1360 , p0_a58
1361 , p0_a59
1362 , p0_a60
1363 , p0_a61
1364 , p0_a62
1365 , p0_a63
1366 , p0_a64
1367 , p0_a65
1368 );
1369
1370
1371 if p_create_flag is null
1372 then ddp_create_flag := null;
1373 elsif p_create_flag = 0
1374 then ddp_create_flag := false;
1375 else ddp_create_flag := true;
1376 end if;
1377
1378
1379
1380
1381
1382 -- here's the delegated call to the old PL/SQL routine
1383 lns_custom_pub.validatecustomtable(ddp_cust_tbl,
1384 p_loan_id,
1385 ddp_create_flag,
1386 x_installment,
1387 x_return_status,
1388 x_msg_count,
1389 x_msg_data);
1390
1391 -- copy data back from the local variables to OUT or IN-OUT args, if any
1392
1393
1394
1395
1396
1397
1398 end;
1399
1400 procedure validatecustomrow(p0_a0 NUMBER
1401 , p0_a1 NUMBER
1402 , p0_a2 NUMBER
1403 , p0_a3 DATE
1404 , p0_a4 DATE
1405 , p0_a5 DATE
1406 , p0_a6 NUMBER
1407 , p0_a7 NUMBER
1408 , p0_a8 NUMBER
1409 , p0_a9 NUMBER
1410 , p0_a10 NUMBER
1411 , p0_a11 NUMBER
1412 , p0_a12 NUMBER
1413 , p0_a13 NUMBER
1414 , p0_a14 NUMBER
1415 , p0_a15 NUMBER
1416 , p0_a16 VARCHAR2
1417 , p0_a17 VARCHAR2
1418 , p0_a18 VARCHAR2
1419 , p0_a19 VARCHAR2
1420 , p0_a20 VARCHAR2
1421 , p0_a21 VARCHAR2
1422 , p0_a22 VARCHAR2
1423 , p0_a23 VARCHAR2
1424 , p0_a24 VARCHAR2
1425 , p0_a25 VARCHAR2
1426 , p0_a26 VARCHAR2
1427 , p0_a27 VARCHAR2
1428 , p0_a28 VARCHAR2
1429 , p0_a29 VARCHAR2
1430 , p0_a30 VARCHAR2
1431 , p0_a31 VARCHAR2
1432 , p0_a32 VARCHAR2
1433 , p0_a33 VARCHAR2
1434 , p0_a34 VARCHAR2
1435 , p0_a35 VARCHAR2
1436 , p0_a36 VARCHAR2
1437 , p0_a37 NUMBER
1438 , p0_a38 NUMBER
1439 , p0_a39 NUMBER
1440 , p0_a40 NUMBER
1441 , p0_a41 NUMBER
1442 , p0_a42 NUMBER
1443 , p0_a43 NUMBER
1444 , p0_a44 NUMBER
1445 , p0_a45 VARCHAR2
1446 , p0_a46 VARCHAR2
1447 , p0_a47 VARCHAR2
1448 , p0_a48 NUMBER
1449 , p0_a49 VARCHAR2
1450 , p0_a50 VARCHAR2
1451 , p0_a51 VARCHAR2
1452 , p0_a52 VARCHAR2
1453 , p0_a53 NUMBER
1454 , p0_a54 VARCHAR2
1455 , p0_a55 NUMBER
1456 , p0_a56 VARCHAR2
1457 , p0_a57 NUMBER
1458 , p0_a58 NUMBER
1459 , p0_a59 VARCHAR2
1460 , p0_a60 NUMBER
1461 , p0_a61 NUMBER
1462 , p0_a62 NUMBER
1463 , p0_a63 VARCHAR2
1464 , p0_a64 NUMBER
1465 , p0_a65 VARCHAR2
1466 , x_return_status out nocopy VARCHAR2
1467 , x_msg_count out nocopy NUMBER
1468 , x_msg_data out nocopy VARCHAR2
1469 )
1470
1471 as
1472 ddp_custom_rec lns_custom_pub.custom_sched_type;
1473 ddindx binary_integer; indx binary_integer;
1474 begin
1475
1476 -- copy data to the local IN or IN-OUT args, if any
1477 ddp_custom_rec.custom_schedule_id := p0_a0;
1478 ddp_custom_rec.loan_id := p0_a1;
1479 ddp_custom_rec.payment_number := p0_a2;
1480 ddp_custom_rec.due_date := p0_a3;
1481 ddp_custom_rec.period_start_date := p0_a4;
1482 ddp_custom_rec.period_end_date := p0_a5;
1483 ddp_custom_rec.principal_amount := p0_a6;
1484 ddp_custom_rec.interest_amount := p0_a7;
1485 ddp_custom_rec.normal_int_amount := p0_a8;
1486 ddp_custom_rec.add_prin_int_amount := p0_a9;
1487 ddp_custom_rec.add_int_int_amount := p0_a10;
1488 ddp_custom_rec.penal_int_amount := p0_a11;
1489 ddp_custom_rec.principal_balance := p0_a12;
1490 ddp_custom_rec.fee_amount := p0_a13;
1491 ddp_custom_rec.other_amount := p0_a14;
1492 ddp_custom_rec.object_version_number := p0_a15;
1493 ddp_custom_rec.attribute_category := p0_a16;
1494 ddp_custom_rec.attribute1 := p0_a17;
1495 ddp_custom_rec.attribute2 := p0_a18;
1496 ddp_custom_rec.attribute3 := p0_a19;
1497 ddp_custom_rec.attribute4 := p0_a20;
1498 ddp_custom_rec.attribute5 := p0_a21;
1499 ddp_custom_rec.attribute6 := p0_a22;
1500 ddp_custom_rec.attribute7 := p0_a23;
1501 ddp_custom_rec.attribute8 := p0_a24;
1502 ddp_custom_rec.attribute9 := p0_a25;
1503 ddp_custom_rec.attribute10 := p0_a26;
1504 ddp_custom_rec.attribute11 := p0_a27;
1505 ddp_custom_rec.attribute12 := p0_a28;
1506 ddp_custom_rec.attribute13 := p0_a29;
1507 ddp_custom_rec.attribute14 := p0_a30;
1508 ddp_custom_rec.attribute15 := p0_a31;
1509 ddp_custom_rec.attribute16 := p0_a32;
1510 ddp_custom_rec.attribute17 := p0_a33;
1511 ddp_custom_rec.attribute18 := p0_a34;
1512 ddp_custom_rec.attribute19 := p0_a35;
1513 ddp_custom_rec.attribute20 := p0_a36;
1514 ddp_custom_rec.current_term_payment := p0_a37;
1515 ddp_custom_rec.installment_begin_balance := p0_a38;
1516 ddp_custom_rec.installment_end_balance := p0_a39;
1517 ddp_custom_rec.principal_paid_todate := p0_a40;
1518 ddp_custom_rec.interest_paid_todate := p0_a41;
1519 ddp_custom_rec.interest_rate := p0_a42;
1520 ddp_custom_rec.unpaid_prin := p0_a43;
1521 ddp_custom_rec.unpaid_int := p0_a44;
1522 ddp_custom_rec.lock_prin := p0_a45;
1523 ddp_custom_rec.lock_int := p0_a46;
1524 ddp_custom_rec.action := p0_a47;
1525 ddp_custom_rec.funded_amount := p0_a48;
1526 ddp_custom_rec.normal_int_details := p0_a49;
1527 ddp_custom_rec.add_prin_int_details := p0_a50;
1528 ddp_custom_rec.add_int_int_details := p0_a51;
1529 ddp_custom_rec.penal_int_details := p0_a52;
1530 ddp_custom_rec.disbursement_amount := p0_a53;
1531 ddp_custom_rec.period := p0_a54;
1532 ddp_custom_rec.principal_percent := p0_a55;
1533 ddp_custom_rec.relative_date := p0_a56;
1534 ddp_custom_rec.prev_deferred_int_amount := p0_a57;
1535 ddp_custom_rec.deferred_int_amount := p0_a58;
1536 ddp_custom_rec.deferred_int_details := p0_a59;
1537 ddp_custom_rec.prev_cap_int_amount := p0_a60;
1538 ddp_custom_rec.curr_cap_int_amount := p0_a61;
1539 ddp_custom_rec.cap_int_amount := p0_a62;
1540 ddp_custom_rec.cap_int_details := p0_a63;
1541 ddp_custom_rec.early_pay_cr_amount := p0_a64;
1542 ddp_custom_rec.early_pay_cr_details := p0_a65;
1543
1544
1545
1546
1547 -- here's the delegated call to the old PL/SQL routine
1548 lns_custom_pub.validatecustomrow(ddp_custom_rec,
1549 x_return_status,
1550 x_msg_count,
1551 x_msg_data);
1552
1553 -- copy data back from the local variables to OUT or IN-OUT args, if any
1554
1555
1556
1557 end;
1558
1559 procedure recalccustomschedule(p_api_version NUMBER
1560 , p_init_msg_list VARCHAR2
1561 , p_commit VARCHAR2
1562 , p_validation_level NUMBER
1563 , p_loan_id NUMBER
1564 , p_based_on_terms VARCHAR2
1565 , p_use_retained_data VARCHAR2
1566 , p7_a0 in out nocopy VARCHAR2
1567 , p7_a1 in out nocopy VARCHAR2
1568 , p8_a0 in out nocopy JTF_NUMBER_TABLE
1569 , p8_a1 in out nocopy JTF_NUMBER_TABLE
1570 , p8_a2 in out nocopy JTF_NUMBER_TABLE
1571 , p8_a3 in out nocopy JTF_DATE_TABLE
1572 , p8_a4 in out nocopy JTF_DATE_TABLE
1573 , p8_a5 in out nocopy JTF_DATE_TABLE
1574 , p8_a6 in out nocopy JTF_NUMBER_TABLE
1575 , p8_a7 in out nocopy JTF_NUMBER_TABLE
1576 , p8_a8 in out nocopy JTF_NUMBER_TABLE
1577 , p8_a9 in out nocopy JTF_NUMBER_TABLE
1578 , p8_a10 in out nocopy JTF_NUMBER_TABLE
1579 , p8_a11 in out nocopy JTF_NUMBER_TABLE
1580 , p8_a12 in out nocopy JTF_NUMBER_TABLE
1581 , p8_a13 in out nocopy JTF_NUMBER_TABLE
1582 , p8_a14 in out nocopy JTF_NUMBER_TABLE
1583 , p8_a15 in out nocopy JTF_NUMBER_TABLE
1584 , p8_a16 in out nocopy JTF_VARCHAR2_TABLE_100
1585 , p8_a17 in out nocopy JTF_VARCHAR2_TABLE_200
1586 , p8_a18 in out nocopy JTF_VARCHAR2_TABLE_200
1587 , p8_a19 in out nocopy JTF_VARCHAR2_TABLE_200
1588 , p8_a20 in out nocopy JTF_VARCHAR2_TABLE_200
1589 , p8_a21 in out nocopy JTF_VARCHAR2_TABLE_200
1590 , p8_a22 in out nocopy JTF_VARCHAR2_TABLE_200
1591 , p8_a23 in out nocopy JTF_VARCHAR2_TABLE_200
1592 , p8_a24 in out nocopy JTF_VARCHAR2_TABLE_200
1593 , p8_a25 in out nocopy JTF_VARCHAR2_TABLE_200
1594 , p8_a26 in out nocopy JTF_VARCHAR2_TABLE_200
1595 , p8_a27 in out nocopy JTF_VARCHAR2_TABLE_200
1596 , p8_a28 in out nocopy JTF_VARCHAR2_TABLE_200
1597 , p8_a29 in out nocopy JTF_VARCHAR2_TABLE_200
1598 , p8_a30 in out nocopy JTF_VARCHAR2_TABLE_200
1599 , p8_a31 in out nocopy JTF_VARCHAR2_TABLE_200
1600 , p8_a32 in out nocopy JTF_VARCHAR2_TABLE_200
1601 , p8_a33 in out nocopy JTF_VARCHAR2_TABLE_200
1602 , p8_a34 in out nocopy JTF_VARCHAR2_TABLE_200
1603 , p8_a35 in out nocopy JTF_VARCHAR2_TABLE_200
1604 , p8_a36 in out nocopy JTF_VARCHAR2_TABLE_200
1605 , p8_a37 in out nocopy JTF_NUMBER_TABLE
1606 , p8_a38 in out nocopy JTF_NUMBER_TABLE
1607 , p8_a39 in out nocopy JTF_NUMBER_TABLE
1608 , p8_a40 in out nocopy JTF_NUMBER_TABLE
1609 , p8_a41 in out nocopy JTF_NUMBER_TABLE
1610 , p8_a42 in out nocopy JTF_NUMBER_TABLE
1611 , p8_a43 in out nocopy JTF_NUMBER_TABLE
1612 , p8_a44 in out nocopy JTF_NUMBER_TABLE
1613 , p8_a45 in out nocopy JTF_VARCHAR2_TABLE_100
1614 , p8_a46 in out nocopy JTF_VARCHAR2_TABLE_100
1615 , p8_a47 in out nocopy JTF_VARCHAR2_TABLE_100
1616 , p8_a48 in out nocopy JTF_NUMBER_TABLE
1617 , p8_a49 in out nocopy JTF_VARCHAR2_TABLE_2000
1618 , p8_a50 in out nocopy JTF_VARCHAR2_TABLE_2000
1619 , p8_a51 in out nocopy JTF_VARCHAR2_TABLE_2000
1620 , p8_a52 in out nocopy JTF_VARCHAR2_TABLE_2000
1621 , p8_a53 in out nocopy JTF_NUMBER_TABLE
1622 , p8_a54 in out nocopy JTF_VARCHAR2_TABLE_200
1623 , p8_a55 in out nocopy JTF_NUMBER_TABLE
1624 , p8_a56 in out nocopy JTF_VARCHAR2_TABLE_300
1625 , p8_a57 in out nocopy JTF_NUMBER_TABLE
1626 , p8_a58 in out nocopy JTF_NUMBER_TABLE
1627 , p8_a59 in out nocopy JTF_VARCHAR2_TABLE_2000
1628 , p8_a60 in out nocopy JTF_NUMBER_TABLE
1629 , p8_a61 in out nocopy JTF_NUMBER_TABLE
1630 , p8_a62 in out nocopy JTF_NUMBER_TABLE
1631 , p8_a63 in out nocopy JTF_VARCHAR2_TABLE_2000
1632 , p8_a64 in out nocopy JTF_NUMBER_TABLE
1633 , p8_a65 in out nocopy JTF_VARCHAR2_TABLE_2000
1634 , x_return_status out nocopy VARCHAR2
1635 , x_msg_count out nocopy NUMBER
1636 , x_msg_data out nocopy VARCHAR2
1637 )
1638
1639 as
1640 ddp_custom_set_rec lns_custom_pub.custom_settings_type;
1641 ddp_custom_tbl lns_custom_pub.custom_tbl;
1642 ddindx binary_integer; indx binary_integer;
1643 begin
1644
1645 -- copy data to the local IN or IN-OUT args, if any
1646
1647
1648
1649
1650
1651
1652
1653 ddp_custom_set_rec.amort_method := p7_a0;
1654 ddp_custom_set_rec.description := p7_a1;
1655
1656 lns_custom_pub_w.rosetta_table_copy_in_p1(ddp_custom_tbl, p8_a0
1657 , p8_a1
1658 , p8_a2
1659 , p8_a3
1660 , p8_a4
1661 , p8_a5
1662 , p8_a6
1663 , p8_a7
1664 , p8_a8
1665 , p8_a9
1666 , p8_a10
1667 , p8_a11
1668 , p8_a12
1669 , p8_a13
1670 , p8_a14
1671 , p8_a15
1672 , p8_a16
1673 , p8_a17
1674 , p8_a18
1675 , p8_a19
1676 , p8_a20
1677 , p8_a21
1678 , p8_a22
1679 , p8_a23
1680 , p8_a24
1681 , p8_a25
1682 , p8_a26
1683 , p8_a27
1684 , p8_a28
1685 , p8_a29
1686 , p8_a30
1687 , p8_a31
1688 , p8_a32
1689 , p8_a33
1690 , p8_a34
1691 , p8_a35
1692 , p8_a36
1693 , p8_a37
1694 , p8_a38
1695 , p8_a39
1696 , p8_a40
1697 , p8_a41
1698 , p8_a42
1699 , p8_a43
1700 , p8_a44
1701 , p8_a45
1702 , p8_a46
1703 , p8_a47
1704 , p8_a48
1705 , p8_a49
1706 , p8_a50
1707 , p8_a51
1708 , p8_a52
1709 , p8_a53
1710 , p8_a54
1711 , p8_a55
1712 , p8_a56
1713 , p8_a57
1714 , p8_a58
1715 , p8_a59
1716 , p8_a60
1717 , p8_a61
1718 , p8_a62
1719 , p8_a63
1720 , p8_a64
1721 , p8_a65
1722 );
1723
1724
1725
1726
1727 -- here's the delegated call to the old PL/SQL routine
1728 lns_custom_pub.recalccustomschedule(p_api_version,
1729 p_init_msg_list,
1730 p_commit,
1731 p_validation_level,
1732 p_loan_id,
1733 p_based_on_terms,
1734 p_use_retained_data,
1735 ddp_custom_set_rec,
1736 ddp_custom_tbl,
1737 x_return_status,
1738 x_msg_count,
1739 x_msg_data);
1740
1741 -- copy data back from the local variables to OUT or IN-OUT args, if any
1742
1743
1744
1745
1746
1747
1748
1749 p7_a0 := ddp_custom_set_rec.amort_method;
1750 p7_a1 := ddp_custom_set_rec.description;
1751
1752 lns_custom_pub_w.rosetta_table_copy_out_p1(ddp_custom_tbl, p8_a0
1753 , p8_a1
1754 , p8_a2
1755 , p8_a3
1756 , p8_a4
1757 , p8_a5
1758 , p8_a6
1759 , p8_a7
1760 , p8_a8
1761 , p8_a9
1762 , p8_a10
1763 , p8_a11
1764 , p8_a12
1765 , p8_a13
1766 , p8_a14
1767 , p8_a15
1768 , p8_a16
1769 , p8_a17
1770 , p8_a18
1771 , p8_a19
1772 , p8_a20
1773 , p8_a21
1774 , p8_a22
1775 , p8_a23
1776 , p8_a24
1777 , p8_a25
1778 , p8_a26
1779 , p8_a27
1780 , p8_a28
1781 , p8_a29
1782 , p8_a30
1783 , p8_a31
1784 , p8_a32
1785 , p8_a33
1786 , p8_a34
1787 , p8_a35
1788 , p8_a36
1789 , p8_a37
1790 , p8_a38
1791 , p8_a39
1792 , p8_a40
1793 , p8_a41
1794 , p8_a42
1795 , p8_a43
1796 , p8_a44
1797 , p8_a45
1798 , p8_a46
1799 , p8_a47
1800 , p8_a48
1801 , p8_a49
1802 , p8_a50
1803 , p8_a51
1804 , p8_a52
1805 , p8_a53
1806 , p8_a54
1807 , p8_a55
1808 , p8_a56
1809 , p8_a57
1810 , p8_a58
1811 , p8_a59
1812 , p8_a60
1813 , p8_a61
1814 , p8_a62
1815 , p8_a63
1816 , p8_a64
1817 , p8_a65
1818 );
1819
1820
1821
1822 end;
1823
1824 procedure loadcustomschedule(p_api_version NUMBER
1825 , p_init_msg_list VARCHAR2
1826 , p_commit VARCHAR2
1827 , p_validation_level NUMBER
1828 , p_loan_id NUMBER
1829 , p_based_on_terms VARCHAR2
1830 , p6_a0 out nocopy VARCHAR2
1831 , p6_a1 out nocopy VARCHAR2
1832 , p7_a0 out nocopy JTF_NUMBER_TABLE
1833 , p7_a1 out nocopy JTF_NUMBER_TABLE
1834 , p7_a2 out nocopy JTF_NUMBER_TABLE
1835 , p7_a3 out nocopy JTF_DATE_TABLE
1836 , p7_a4 out nocopy JTF_DATE_TABLE
1837 , p7_a5 out nocopy JTF_DATE_TABLE
1838 , p7_a6 out nocopy JTF_NUMBER_TABLE
1839 , p7_a7 out nocopy JTF_NUMBER_TABLE
1840 , p7_a8 out nocopy JTF_NUMBER_TABLE
1841 , p7_a9 out nocopy JTF_NUMBER_TABLE
1842 , p7_a10 out nocopy JTF_NUMBER_TABLE
1843 , p7_a11 out nocopy JTF_NUMBER_TABLE
1844 , p7_a12 out nocopy JTF_NUMBER_TABLE
1845 , p7_a13 out nocopy JTF_NUMBER_TABLE
1846 , p7_a14 out nocopy JTF_NUMBER_TABLE
1847 , p7_a15 out nocopy JTF_NUMBER_TABLE
1848 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_100
1849 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_200
1850 , p7_a18 out nocopy JTF_VARCHAR2_TABLE_200
1851 , p7_a19 out nocopy JTF_VARCHAR2_TABLE_200
1852 , p7_a20 out nocopy JTF_VARCHAR2_TABLE_200
1853 , p7_a21 out nocopy JTF_VARCHAR2_TABLE_200
1854 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_200
1855 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_200
1856 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_200
1857 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_200
1858 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_200
1859 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_200
1860 , p7_a28 out nocopy JTF_VARCHAR2_TABLE_200
1861 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_200
1862 , p7_a30 out nocopy JTF_VARCHAR2_TABLE_200
1863 , p7_a31 out nocopy JTF_VARCHAR2_TABLE_200
1864 , p7_a32 out nocopy JTF_VARCHAR2_TABLE_200
1865 , p7_a33 out nocopy JTF_VARCHAR2_TABLE_200
1866 , p7_a34 out nocopy JTF_VARCHAR2_TABLE_200
1867 , p7_a35 out nocopy JTF_VARCHAR2_TABLE_200
1868 , p7_a36 out nocopy JTF_VARCHAR2_TABLE_200
1869 , p7_a37 out nocopy JTF_NUMBER_TABLE
1870 , p7_a38 out nocopy JTF_NUMBER_TABLE
1871 , p7_a39 out nocopy JTF_NUMBER_TABLE
1872 , p7_a40 out nocopy JTF_NUMBER_TABLE
1873 , p7_a41 out nocopy JTF_NUMBER_TABLE
1874 , p7_a42 out nocopy JTF_NUMBER_TABLE
1875 , p7_a43 out nocopy JTF_NUMBER_TABLE
1876 , p7_a44 out nocopy JTF_NUMBER_TABLE
1877 , p7_a45 out nocopy JTF_VARCHAR2_TABLE_100
1878 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_100
1879 , p7_a47 out nocopy JTF_VARCHAR2_TABLE_100
1880 , p7_a48 out nocopy JTF_NUMBER_TABLE
1881 , p7_a49 out nocopy JTF_VARCHAR2_TABLE_2000
1882 , p7_a50 out nocopy JTF_VARCHAR2_TABLE_2000
1883 , p7_a51 out nocopy JTF_VARCHAR2_TABLE_2000
1884 , p7_a52 out nocopy JTF_VARCHAR2_TABLE_2000
1885 , p7_a53 out nocopy JTF_NUMBER_TABLE
1886 , p7_a54 out nocopy JTF_VARCHAR2_TABLE_200
1887 , p7_a55 out nocopy JTF_NUMBER_TABLE
1888 , p7_a56 out nocopy JTF_VARCHAR2_TABLE_300
1889 , p7_a57 out nocopy JTF_NUMBER_TABLE
1890 , p7_a58 out nocopy JTF_NUMBER_TABLE
1891 , p7_a59 out nocopy JTF_VARCHAR2_TABLE_2000
1892 , p7_a60 out nocopy JTF_NUMBER_TABLE
1893 , p7_a61 out nocopy JTF_NUMBER_TABLE
1894 , p7_a62 out nocopy JTF_NUMBER_TABLE
1895 , p7_a63 out nocopy JTF_VARCHAR2_TABLE_2000
1896 , p7_a64 out nocopy JTF_NUMBER_TABLE
1897 , p7_a65 out nocopy JTF_VARCHAR2_TABLE_2000
1898 , x_return_status out nocopy VARCHAR2
1899 , x_msg_count out nocopy NUMBER
1900 , x_msg_data out nocopy VARCHAR2
1901 )
1902
1903 as
1904 ddx_custom_set_rec lns_custom_pub.custom_settings_type;
1905 ddx_custom_tbl lns_custom_pub.custom_tbl;
1906 ddindx binary_integer; indx binary_integer;
1907 begin
1908
1909 -- copy data to the local IN or IN-OUT args, if any
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921 -- here's the delegated call to the old PL/SQL routine
1922 lns_custom_pub.loadcustomschedule(p_api_version,
1923 p_init_msg_list,
1924 p_commit,
1925 p_validation_level,
1926 p_loan_id,
1927 p_based_on_terms,
1928 ddx_custom_set_rec,
1929 ddx_custom_tbl,
1930 x_return_status,
1931 x_msg_count,
1932 x_msg_data);
1933
1934 -- copy data back from the local variables to OUT or IN-OUT args, if any
1935
1936
1937
1938
1939
1940
1941 p6_a0 := ddx_custom_set_rec.amort_method;
1942 p6_a1 := ddx_custom_set_rec.description;
1943
1944 lns_custom_pub_w.rosetta_table_copy_out_p1(ddx_custom_tbl, p7_a0
1945 , p7_a1
1946 , p7_a2
1947 , p7_a3
1948 , p7_a4
1949 , p7_a5
1950 , p7_a6
1951 , p7_a7
1952 , p7_a8
1953 , p7_a9
1954 , p7_a10
1955 , p7_a11
1956 , p7_a12
1957 , p7_a13
1958 , p7_a14
1959 , p7_a15
1960 , p7_a16
1961 , p7_a17
1962 , p7_a18
1963 , p7_a19
1964 , p7_a20
1965 , p7_a21
1966 , p7_a22
1967 , p7_a23
1968 , p7_a24
1969 , p7_a25
1970 , p7_a26
1971 , p7_a27
1972 , p7_a28
1973 , p7_a29
1974 , p7_a30
1975 , p7_a31
1976 , p7_a32
1977 , p7_a33
1978 , p7_a34
1979 , p7_a35
1980 , p7_a36
1981 , p7_a37
1982 , p7_a38
1983 , p7_a39
1984 , p7_a40
1985 , p7_a41
1986 , p7_a42
1987 , p7_a43
1988 , p7_a44
1989 , p7_a45
1990 , p7_a46
1991 , p7_a47
1992 , p7_a48
1993 , p7_a49
1994 , p7_a50
1995 , p7_a51
1996 , p7_a52
1997 , p7_a53
1998 , p7_a54
1999 , p7_a55
2000 , p7_a56
2001 , p7_a57
2002 , p7_a58
2003 , p7_a59
2004 , p7_a60
2005 , p7_a61
2006 , p7_a62
2007 , p7_a63
2008 , p7_a64
2009 , p7_a65
2010 );
2011
2012
2013
2014 end;
2015
2016 procedure savecustomschedule(p_api_version NUMBER
2017 , p_init_msg_list VARCHAR2
2018 , p_commit VARCHAR2
2019 , p_validation_level NUMBER
2020 , p_loan_id NUMBER
2021 , p_based_on_terms VARCHAR2
2022 , p_use_retained_data VARCHAR2
2023 , p7_a0 in out nocopy VARCHAR2
2024 , p7_a1 in out nocopy VARCHAR2
2025 , p8_a0 in out nocopy JTF_NUMBER_TABLE
2026 , p8_a1 in out nocopy JTF_NUMBER_TABLE
2027 , p8_a2 in out nocopy JTF_NUMBER_TABLE
2028 , p8_a3 in out nocopy JTF_DATE_TABLE
2029 , p8_a4 in out nocopy JTF_DATE_TABLE
2030 , p8_a5 in out nocopy JTF_DATE_TABLE
2031 , p8_a6 in out nocopy JTF_NUMBER_TABLE
2032 , p8_a7 in out nocopy JTF_NUMBER_TABLE
2033 , p8_a8 in out nocopy JTF_NUMBER_TABLE
2034 , p8_a9 in out nocopy JTF_NUMBER_TABLE
2035 , p8_a10 in out nocopy JTF_NUMBER_TABLE
2036 , p8_a11 in out nocopy JTF_NUMBER_TABLE
2037 , p8_a12 in out nocopy JTF_NUMBER_TABLE
2038 , p8_a13 in out nocopy JTF_NUMBER_TABLE
2039 , p8_a14 in out nocopy JTF_NUMBER_TABLE
2040 , p8_a15 in out nocopy JTF_NUMBER_TABLE
2041 , p8_a16 in out nocopy JTF_VARCHAR2_TABLE_100
2042 , p8_a17 in out nocopy JTF_VARCHAR2_TABLE_200
2043 , p8_a18 in out nocopy JTF_VARCHAR2_TABLE_200
2044 , p8_a19 in out nocopy JTF_VARCHAR2_TABLE_200
2045 , p8_a20 in out nocopy JTF_VARCHAR2_TABLE_200
2046 , p8_a21 in out nocopy JTF_VARCHAR2_TABLE_200
2047 , p8_a22 in out nocopy JTF_VARCHAR2_TABLE_200
2048 , p8_a23 in out nocopy JTF_VARCHAR2_TABLE_200
2049 , p8_a24 in out nocopy JTF_VARCHAR2_TABLE_200
2050 , p8_a25 in out nocopy JTF_VARCHAR2_TABLE_200
2051 , p8_a26 in out nocopy JTF_VARCHAR2_TABLE_200
2052 , p8_a27 in out nocopy JTF_VARCHAR2_TABLE_200
2053 , p8_a28 in out nocopy JTF_VARCHAR2_TABLE_200
2054 , p8_a29 in out nocopy JTF_VARCHAR2_TABLE_200
2055 , p8_a30 in out nocopy JTF_VARCHAR2_TABLE_200
2056 , p8_a31 in out nocopy JTF_VARCHAR2_TABLE_200
2057 , p8_a32 in out nocopy JTF_VARCHAR2_TABLE_200
2058 , p8_a33 in out nocopy JTF_VARCHAR2_TABLE_200
2059 , p8_a34 in out nocopy JTF_VARCHAR2_TABLE_200
2060 , p8_a35 in out nocopy JTF_VARCHAR2_TABLE_200
2061 , p8_a36 in out nocopy JTF_VARCHAR2_TABLE_200
2062 , p8_a37 in out nocopy JTF_NUMBER_TABLE
2063 , p8_a38 in out nocopy JTF_NUMBER_TABLE
2064 , p8_a39 in out nocopy JTF_NUMBER_TABLE
2065 , p8_a40 in out nocopy JTF_NUMBER_TABLE
2066 , p8_a41 in out nocopy JTF_NUMBER_TABLE
2067 , p8_a42 in out nocopy JTF_NUMBER_TABLE
2068 , p8_a43 in out nocopy JTF_NUMBER_TABLE
2069 , p8_a44 in out nocopy JTF_NUMBER_TABLE
2070 , p8_a45 in out nocopy JTF_VARCHAR2_TABLE_100
2071 , p8_a46 in out nocopy JTF_VARCHAR2_TABLE_100
2072 , p8_a47 in out nocopy JTF_VARCHAR2_TABLE_100
2073 , p8_a48 in out nocopy JTF_NUMBER_TABLE
2074 , p8_a49 in out nocopy JTF_VARCHAR2_TABLE_2000
2075 , p8_a50 in out nocopy JTF_VARCHAR2_TABLE_2000
2076 , p8_a51 in out nocopy JTF_VARCHAR2_TABLE_2000
2077 , p8_a52 in out nocopy JTF_VARCHAR2_TABLE_2000
2078 , p8_a53 in out nocopy JTF_NUMBER_TABLE
2079 , p8_a54 in out nocopy JTF_VARCHAR2_TABLE_200
2080 , p8_a55 in out nocopy JTF_NUMBER_TABLE
2081 , p8_a56 in out nocopy JTF_VARCHAR2_TABLE_300
2082 , p8_a57 in out nocopy JTF_NUMBER_TABLE
2083 , p8_a58 in out nocopy JTF_NUMBER_TABLE
2084 , p8_a59 in out nocopy JTF_VARCHAR2_TABLE_2000
2085 , p8_a60 in out nocopy JTF_NUMBER_TABLE
2086 , p8_a61 in out nocopy JTF_NUMBER_TABLE
2087 , p8_a62 in out nocopy JTF_NUMBER_TABLE
2088 , p8_a63 in out nocopy JTF_VARCHAR2_TABLE_2000
2089 , p8_a64 in out nocopy JTF_NUMBER_TABLE
2090 , p8_a65 in out nocopy JTF_VARCHAR2_TABLE_2000
2091 , x_return_status out nocopy VARCHAR2
2092 , x_msg_count out nocopy NUMBER
2093 , x_msg_data out nocopy VARCHAR2
2094 )
2095
2096 as
2097 ddp_custom_set_rec lns_custom_pub.custom_settings_type;
2098 ddp_custom_tbl lns_custom_pub.custom_tbl;
2099 ddindx binary_integer; indx binary_integer;
2100 begin
2101
2102 -- copy data to the local IN or IN-OUT args, if any
2103
2104
2105
2106
2107
2108
2109
2110 ddp_custom_set_rec.amort_method := p7_a0;
2111 ddp_custom_set_rec.description := p7_a1;
2112
2113 lns_custom_pub_w.rosetta_table_copy_in_p1(ddp_custom_tbl, p8_a0
2114 , p8_a1
2115 , p8_a2
2116 , p8_a3
2117 , p8_a4
2118 , p8_a5
2119 , p8_a6
2120 , p8_a7
2121 , p8_a8
2122 , p8_a9
2123 , p8_a10
2124 , p8_a11
2125 , p8_a12
2126 , p8_a13
2127 , p8_a14
2128 , p8_a15
2129 , p8_a16
2130 , p8_a17
2131 , p8_a18
2132 , p8_a19
2133 , p8_a20
2134 , p8_a21
2135 , p8_a22
2136 , p8_a23
2137 , p8_a24
2138 , p8_a25
2139 , p8_a26
2140 , p8_a27
2141 , p8_a28
2142 , p8_a29
2143 , p8_a30
2144 , p8_a31
2145 , p8_a32
2146 , p8_a33
2147 , p8_a34
2148 , p8_a35
2149 , p8_a36
2150 , p8_a37
2151 , p8_a38
2152 , p8_a39
2153 , p8_a40
2154 , p8_a41
2155 , p8_a42
2156 , p8_a43
2157 , p8_a44
2158 , p8_a45
2159 , p8_a46
2160 , p8_a47
2161 , p8_a48
2162 , p8_a49
2163 , p8_a50
2164 , p8_a51
2165 , p8_a52
2166 , p8_a53
2167 , p8_a54
2168 , p8_a55
2169 , p8_a56
2170 , p8_a57
2171 , p8_a58
2172 , p8_a59
2173 , p8_a60
2174 , p8_a61
2175 , p8_a62
2176 , p8_a63
2177 , p8_a64
2178 , p8_a65
2179 );
2180
2181
2182
2183
2184 -- here's the delegated call to the old PL/SQL routine
2185 lns_custom_pub.savecustomschedule(p_api_version,
2186 p_init_msg_list,
2187 p_commit,
2188 p_validation_level,
2189 p_loan_id,
2190 p_based_on_terms,
2191 p_use_retained_data,
2192 ddp_custom_set_rec,
2193 ddp_custom_tbl,
2194 x_return_status,
2195 x_msg_count,
2196 x_msg_data);
2197
2198 -- copy data back from the local variables to OUT or IN-OUT args, if any
2199
2200
2201
2202
2203
2204
2205
2206 p7_a0 := ddp_custom_set_rec.amort_method;
2207 p7_a1 := ddp_custom_set_rec.description;
2208
2209 lns_custom_pub_w.rosetta_table_copy_out_p1(ddp_custom_tbl, p8_a0
2210 , p8_a1
2211 , p8_a2
2212 , p8_a3
2213 , p8_a4
2214 , p8_a5
2215 , p8_a6
2216 , p8_a7
2217 , p8_a8
2218 , p8_a9
2219 , p8_a10
2220 , p8_a11
2221 , p8_a12
2222 , p8_a13
2223 , p8_a14
2224 , p8_a15
2225 , p8_a16
2226 , p8_a17
2227 , p8_a18
2228 , p8_a19
2229 , p8_a20
2230 , p8_a21
2231 , p8_a22
2232 , p8_a23
2233 , p8_a24
2234 , p8_a25
2235 , p8_a26
2236 , p8_a27
2237 , p8_a28
2238 , p8_a29
2239 , p8_a30
2240 , p8_a31
2241 , p8_a32
2242 , p8_a33
2243 , p8_a34
2244 , p8_a35
2245 , p8_a36
2246 , p8_a37
2247 , p8_a38
2248 , p8_a39
2249 , p8_a40
2250 , p8_a41
2251 , p8_a42
2252 , p8_a43
2253 , p8_a44
2254 , p8_a45
2255 , p8_a46
2256 , p8_a47
2257 , p8_a48
2258 , p8_a49
2259 , p8_a50
2260 , p8_a51
2261 , p8_a52
2262 , p8_a53
2263 , p8_a54
2264 , p8_a55
2265 , p8_a56
2266 , p8_a57
2267 , p8_a58
2268 , p8_a59
2269 , p8_a60
2270 , p8_a61
2271 , p8_a62
2272 , p8_a63
2273 , p8_a64
2274 , p8_a65
2275 );
2276
2277
2278
2279 end;
2280
2281 procedure shiftcustomschedule(p_api_version NUMBER
2282 , p_init_msg_list VARCHAR2
2283 , p_commit VARCHAR2
2284 , p_validation_level NUMBER
2285 , p_loan_id NUMBER
2286 , p_old_due_date DATE
2287 , p_new_due_date DATE
2288 , p_based_on_terms VARCHAR2
2289 , p8_a0 in out nocopy VARCHAR2
2290 , p8_a1 in out nocopy VARCHAR2
2291 , p9_a0 in out nocopy JTF_NUMBER_TABLE
2292 , p9_a1 in out nocopy JTF_NUMBER_TABLE
2293 , p9_a2 in out nocopy JTF_NUMBER_TABLE
2294 , p9_a3 in out nocopy JTF_DATE_TABLE
2295 , p9_a4 in out nocopy JTF_DATE_TABLE
2296 , p9_a5 in out nocopy JTF_DATE_TABLE
2297 , p9_a6 in out nocopy JTF_NUMBER_TABLE
2298 , p9_a7 in out nocopy JTF_NUMBER_TABLE
2299 , p9_a8 in out nocopy JTF_NUMBER_TABLE
2300 , p9_a9 in out nocopy JTF_NUMBER_TABLE
2301 , p9_a10 in out nocopy JTF_NUMBER_TABLE
2302 , p9_a11 in out nocopy JTF_NUMBER_TABLE
2303 , p9_a12 in out nocopy JTF_NUMBER_TABLE
2304 , p9_a13 in out nocopy JTF_NUMBER_TABLE
2305 , p9_a14 in out nocopy JTF_NUMBER_TABLE
2306 , p9_a15 in out nocopy JTF_NUMBER_TABLE
2307 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_100
2308 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
2309 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
2310 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
2311 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
2312 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
2313 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
2314 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
2315 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
2316 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_200
2317 , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_200
2318 , p9_a27 in out nocopy JTF_VARCHAR2_TABLE_200
2319 , p9_a28 in out nocopy JTF_VARCHAR2_TABLE_200
2320 , p9_a29 in out nocopy JTF_VARCHAR2_TABLE_200
2321 , p9_a30 in out nocopy JTF_VARCHAR2_TABLE_200
2322 , p9_a31 in out nocopy JTF_VARCHAR2_TABLE_200
2323 , p9_a32 in out nocopy JTF_VARCHAR2_TABLE_200
2324 , p9_a33 in out nocopy JTF_VARCHAR2_TABLE_200
2325 , p9_a34 in out nocopy JTF_VARCHAR2_TABLE_200
2326 , p9_a35 in out nocopy JTF_VARCHAR2_TABLE_200
2327 , p9_a36 in out nocopy JTF_VARCHAR2_TABLE_200
2328 , p9_a37 in out nocopy JTF_NUMBER_TABLE
2329 , p9_a38 in out nocopy JTF_NUMBER_TABLE
2330 , p9_a39 in out nocopy JTF_NUMBER_TABLE
2331 , p9_a40 in out nocopy JTF_NUMBER_TABLE
2332 , p9_a41 in out nocopy JTF_NUMBER_TABLE
2333 , p9_a42 in out nocopy JTF_NUMBER_TABLE
2334 , p9_a43 in out nocopy JTF_NUMBER_TABLE
2335 , p9_a44 in out nocopy JTF_NUMBER_TABLE
2336 , p9_a45 in out nocopy JTF_VARCHAR2_TABLE_100
2337 , p9_a46 in out nocopy JTF_VARCHAR2_TABLE_100
2338 , p9_a47 in out nocopy JTF_VARCHAR2_TABLE_100
2339 , p9_a48 in out nocopy JTF_NUMBER_TABLE
2340 , p9_a49 in out nocopy JTF_VARCHAR2_TABLE_2000
2341 , p9_a50 in out nocopy JTF_VARCHAR2_TABLE_2000
2342 , p9_a51 in out nocopy JTF_VARCHAR2_TABLE_2000
2343 , p9_a52 in out nocopy JTF_VARCHAR2_TABLE_2000
2344 , p9_a53 in out nocopy JTF_NUMBER_TABLE
2345 , p9_a54 in out nocopy JTF_VARCHAR2_TABLE_200
2346 , p9_a55 in out nocopy JTF_NUMBER_TABLE
2347 , p9_a56 in out nocopy JTF_VARCHAR2_TABLE_300
2348 , p9_a57 in out nocopy JTF_NUMBER_TABLE
2349 , p9_a58 in out nocopy JTF_NUMBER_TABLE
2350 , p9_a59 in out nocopy JTF_VARCHAR2_TABLE_2000
2351 , p9_a60 in out nocopy JTF_NUMBER_TABLE
2352 , p9_a61 in out nocopy JTF_NUMBER_TABLE
2353 , p9_a62 in out nocopy JTF_NUMBER_TABLE
2354 , p9_a63 in out nocopy JTF_VARCHAR2_TABLE_2000
2355 , p9_a64 in out nocopy JTF_NUMBER_TABLE
2356 , p9_a65 in out nocopy JTF_VARCHAR2_TABLE_2000
2357 , x_return_status out nocopy VARCHAR2
2358 , x_msg_count out nocopy NUMBER
2359 , x_msg_data out nocopy VARCHAR2
2360 )
2361
2362 as
2363 ddp_custom_set_rec lns_custom_pub.custom_settings_type;
2364 ddp_custom_tbl lns_custom_pub.custom_tbl;
2365 ddindx binary_integer; indx binary_integer;
2366 begin
2367
2368 -- copy data to the local IN or IN-OUT args, if any
2369
2370
2371
2372
2373
2374
2375
2376
2377 ddp_custom_set_rec.amort_method := p8_a0;
2378 ddp_custom_set_rec.description := p8_a1;
2379
2380 lns_custom_pub_w.rosetta_table_copy_in_p1(ddp_custom_tbl, p9_a0
2381 , p9_a1
2382 , p9_a2
2383 , p9_a3
2384 , p9_a4
2385 , p9_a5
2386 , p9_a6
2387 , p9_a7
2388 , p9_a8
2389 , p9_a9
2390 , p9_a10
2391 , p9_a11
2392 , p9_a12
2393 , p9_a13
2394 , p9_a14
2395 , p9_a15
2396 , p9_a16
2397 , p9_a17
2398 , p9_a18
2399 , p9_a19
2400 , p9_a20
2401 , p9_a21
2402 , p9_a22
2403 , p9_a23
2404 , p9_a24
2405 , p9_a25
2406 , p9_a26
2407 , p9_a27
2408 , p9_a28
2409 , p9_a29
2410 , p9_a30
2411 , p9_a31
2412 , p9_a32
2413 , p9_a33
2414 , p9_a34
2415 , p9_a35
2416 , p9_a36
2417 , p9_a37
2418 , p9_a38
2419 , p9_a39
2420 , p9_a40
2421 , p9_a41
2422 , p9_a42
2423 , p9_a43
2424 , p9_a44
2425 , p9_a45
2426 , p9_a46
2427 , p9_a47
2428 , p9_a48
2429 , p9_a49
2430 , p9_a50
2431 , p9_a51
2432 , p9_a52
2433 , p9_a53
2434 , p9_a54
2435 , p9_a55
2436 , p9_a56
2437 , p9_a57
2438 , p9_a58
2439 , p9_a59
2440 , p9_a60
2441 , p9_a61
2442 , p9_a62
2443 , p9_a63
2444 , p9_a64
2445 , p9_a65
2446 );
2447
2448
2449
2450
2451 -- here's the delegated call to the old PL/SQL routine
2452 lns_custom_pub.shiftcustomschedule(p_api_version,
2453 p_init_msg_list,
2454 p_commit,
2455 p_validation_level,
2456 p_loan_id,
2457 p_old_due_date,
2458 p_new_due_date,
2459 p_based_on_terms,
2460 ddp_custom_set_rec,
2461 ddp_custom_tbl,
2462 x_return_status,
2463 x_msg_count,
2464 x_msg_data);
2465
2466 -- copy data back from the local variables to OUT or IN-OUT args, if any
2467
2468
2469
2470
2471
2472
2473
2474
2475 p8_a0 := ddp_custom_set_rec.amort_method;
2476 p8_a1 := ddp_custom_set_rec.description;
2477
2478 lns_custom_pub_w.rosetta_table_copy_out_p1(ddp_custom_tbl, p9_a0
2479 , p9_a1
2480 , p9_a2
2481 , p9_a3
2482 , p9_a4
2483 , p9_a5
2484 , p9_a6
2485 , p9_a7
2486 , p9_a8
2487 , p9_a9
2488 , p9_a10
2489 , p9_a11
2490 , p9_a12
2491 , p9_a13
2492 , p9_a14
2493 , p9_a15
2494 , p9_a16
2495 , p9_a17
2496 , p9_a18
2497 , p9_a19
2498 , p9_a20
2499 , p9_a21
2500 , p9_a22
2501 , p9_a23
2502 , p9_a24
2503 , p9_a25
2504 , p9_a26
2505 , p9_a27
2506 , p9_a28
2507 , p9_a29
2508 , p9_a30
2509 , p9_a31
2510 , p9_a32
2511 , p9_a33
2512 , p9_a34
2513 , p9_a35
2514 , p9_a36
2515 , p9_a37
2516 , p9_a38
2517 , p9_a39
2518 , p9_a40
2519 , p9_a41
2520 , p9_a42
2521 , p9_a43
2522 , p9_a44
2523 , p9_a45
2524 , p9_a46
2525 , p9_a47
2526 , p9_a48
2527 , p9_a49
2528 , p9_a50
2529 , p9_a51
2530 , p9_a52
2531 , p9_a53
2532 , p9_a54
2533 , p9_a55
2534 , p9_a56
2535 , p9_a57
2536 , p9_a58
2537 , p9_a59
2538 , p9_a60
2539 , p9_a61
2540 , p9_a62
2541 , p9_a63
2542 , p9_a64
2543 , p9_a65
2544 );
2545
2546
2547
2548 end;
2549
2550 procedure addmissinginstallment(p_api_version NUMBER
2551 , p_init_msg_list VARCHAR2
2552 , p_commit VARCHAR2
2553 , p_validation_level NUMBER
2554 , p4_a0 NUMBER
2555 , p4_a1 NUMBER
2556 , p4_a2 NUMBER
2557 , p4_a3 DATE
2558 , p4_a4 DATE
2559 , p4_a5 DATE
2560 , p4_a6 NUMBER
2561 , p4_a7 NUMBER
2562 , p4_a8 NUMBER
2563 , p4_a9 NUMBER
2564 , p4_a10 NUMBER
2565 , p4_a11 NUMBER
2566 , p4_a12 NUMBER
2567 , p4_a13 NUMBER
2568 , p4_a14 NUMBER
2569 , p4_a15 NUMBER
2570 , p4_a16 VARCHAR2
2571 , p4_a17 VARCHAR2
2572 , p4_a18 VARCHAR2
2573 , p4_a19 VARCHAR2
2574 , p4_a20 VARCHAR2
2575 , p4_a21 VARCHAR2
2576 , p4_a22 VARCHAR2
2577 , p4_a23 VARCHAR2
2578 , p4_a24 VARCHAR2
2579 , p4_a25 VARCHAR2
2580 , p4_a26 VARCHAR2
2581 , p4_a27 VARCHAR2
2582 , p4_a28 VARCHAR2
2583 , p4_a29 VARCHAR2
2584 , p4_a30 VARCHAR2
2585 , p4_a31 VARCHAR2
2586 , p4_a32 VARCHAR2
2587 , p4_a33 VARCHAR2
2588 , p4_a34 VARCHAR2
2589 , p4_a35 VARCHAR2
2590 , p4_a36 VARCHAR2
2591 , p4_a37 NUMBER
2592 , p4_a38 NUMBER
2593 , p4_a39 NUMBER
2594 , p4_a40 NUMBER
2595 , p4_a41 NUMBER
2596 , p4_a42 NUMBER
2597 , p4_a43 NUMBER
2598 , p4_a44 NUMBER
2599 , p4_a45 VARCHAR2
2600 , p4_a46 VARCHAR2
2601 , p4_a47 VARCHAR2
2602 , p4_a48 NUMBER
2603 , p4_a49 VARCHAR2
2604 , p4_a50 VARCHAR2
2605 , p4_a51 VARCHAR2
2606 , p4_a52 VARCHAR2
2607 , p4_a53 NUMBER
2608 , p4_a54 VARCHAR2
2609 , p4_a55 NUMBER
2610 , p4_a56 VARCHAR2
2611 , p4_a57 NUMBER
2612 , p4_a58 NUMBER
2613 , p4_a59 VARCHAR2
2614 , p4_a60 NUMBER
2615 , p4_a61 NUMBER
2616 , p4_a62 NUMBER
2617 , p4_a63 VARCHAR2
2618 , p4_a64 NUMBER
2619 , p4_a65 VARCHAR2
2620 , x_return_status out nocopy VARCHAR2
2621 , x_msg_count out nocopy NUMBER
2622 , x_msg_data out nocopy VARCHAR2
2623 )
2624
2625 as
2626 ddp_installment_rec lns_custom_pub.custom_sched_type;
2627 ddindx binary_integer; indx binary_integer;
2628 begin
2629
2630 -- copy data to the local IN or IN-OUT args, if any
2631
2632
2633
2634
2635 ddp_installment_rec.custom_schedule_id := p4_a0;
2636 ddp_installment_rec.loan_id := p4_a1;
2637 ddp_installment_rec.payment_number := p4_a2;
2638 ddp_installment_rec.due_date := p4_a3;
2639 ddp_installment_rec.period_start_date := p4_a4;
2640 ddp_installment_rec.period_end_date := p4_a5;
2641 ddp_installment_rec.principal_amount := p4_a6;
2642 ddp_installment_rec.interest_amount := p4_a7;
2643 ddp_installment_rec.normal_int_amount := p4_a8;
2644 ddp_installment_rec.add_prin_int_amount := p4_a9;
2645 ddp_installment_rec.add_int_int_amount := p4_a10;
2646 ddp_installment_rec.penal_int_amount := p4_a11;
2647 ddp_installment_rec.principal_balance := p4_a12;
2648 ddp_installment_rec.fee_amount := p4_a13;
2649 ddp_installment_rec.other_amount := p4_a14;
2650 ddp_installment_rec.object_version_number := p4_a15;
2651 ddp_installment_rec.attribute_category := p4_a16;
2652 ddp_installment_rec.attribute1 := p4_a17;
2653 ddp_installment_rec.attribute2 := p4_a18;
2654 ddp_installment_rec.attribute3 := p4_a19;
2655 ddp_installment_rec.attribute4 := p4_a20;
2656 ddp_installment_rec.attribute5 := p4_a21;
2657 ddp_installment_rec.attribute6 := p4_a22;
2658 ddp_installment_rec.attribute7 := p4_a23;
2659 ddp_installment_rec.attribute8 := p4_a24;
2660 ddp_installment_rec.attribute9 := p4_a25;
2661 ddp_installment_rec.attribute10 := p4_a26;
2662 ddp_installment_rec.attribute11 := p4_a27;
2663 ddp_installment_rec.attribute12 := p4_a28;
2664 ddp_installment_rec.attribute13 := p4_a29;
2665 ddp_installment_rec.attribute14 := p4_a30;
2666 ddp_installment_rec.attribute15 := p4_a31;
2667 ddp_installment_rec.attribute16 := p4_a32;
2668 ddp_installment_rec.attribute17 := p4_a33;
2669 ddp_installment_rec.attribute18 := p4_a34;
2670 ddp_installment_rec.attribute19 := p4_a35;
2671 ddp_installment_rec.attribute20 := p4_a36;
2672 ddp_installment_rec.current_term_payment := p4_a37;
2673 ddp_installment_rec.installment_begin_balance := p4_a38;
2674 ddp_installment_rec.installment_end_balance := p4_a39;
2675 ddp_installment_rec.principal_paid_todate := p4_a40;
2676 ddp_installment_rec.interest_paid_todate := p4_a41;
2677 ddp_installment_rec.interest_rate := p4_a42;
2678 ddp_installment_rec.unpaid_prin := p4_a43;
2679 ddp_installment_rec.unpaid_int := p4_a44;
2680 ddp_installment_rec.lock_prin := p4_a45;
2681 ddp_installment_rec.lock_int := p4_a46;
2682 ddp_installment_rec.action := p4_a47;
2683 ddp_installment_rec.funded_amount := p4_a48;
2684 ddp_installment_rec.normal_int_details := p4_a49;
2685 ddp_installment_rec.add_prin_int_details := p4_a50;
2686 ddp_installment_rec.add_int_int_details := p4_a51;
2687 ddp_installment_rec.penal_int_details := p4_a52;
2688 ddp_installment_rec.disbursement_amount := p4_a53;
2689 ddp_installment_rec.period := p4_a54;
2690 ddp_installment_rec.principal_percent := p4_a55;
2691 ddp_installment_rec.relative_date := p4_a56;
2692 ddp_installment_rec.prev_deferred_int_amount := p4_a57;
2693 ddp_installment_rec.deferred_int_amount := p4_a58;
2694 ddp_installment_rec.deferred_int_details := p4_a59;
2695 ddp_installment_rec.prev_cap_int_amount := p4_a60;
2696 ddp_installment_rec.curr_cap_int_amount := p4_a61;
2697 ddp_installment_rec.cap_int_amount := p4_a62;
2698 ddp_installment_rec.cap_int_details := p4_a63;
2699 ddp_installment_rec.early_pay_cr_amount := p4_a64;
2700 ddp_installment_rec.early_pay_cr_details := p4_a65;
2701
2702
2703
2704
2705 -- here's the delegated call to the old PL/SQL routine
2706 lns_custom_pub.addmissinginstallment(p_api_version,
2707 p_init_msg_list,
2708 p_commit,
2709 p_validation_level,
2710 ddp_installment_rec,
2711 x_return_status,
2712 x_msg_count,
2713 x_msg_data);
2714
2715 -- copy data back from the local variables to OUT or IN-OUT args, if any
2716
2717
2718
2719
2720
2721
2722
2723 end;
2724
2725 procedure retaincustomschedule(p_api_version NUMBER
2726 , p_init_msg_list VARCHAR2
2727 , p_commit VARCHAR2
2728 , p_validation_level NUMBER
2729 , p4_a0 VARCHAR2
2730 , p4_a1 VARCHAR2
2731 , p5_a0 JTF_NUMBER_TABLE
2732 , p5_a1 JTF_NUMBER_TABLE
2733 , p5_a2 JTF_NUMBER_TABLE
2734 , p5_a3 JTF_DATE_TABLE
2735 , p5_a4 JTF_DATE_TABLE
2736 , p5_a5 JTF_DATE_TABLE
2737 , p5_a6 JTF_NUMBER_TABLE
2738 , p5_a7 JTF_NUMBER_TABLE
2739 , p5_a8 JTF_NUMBER_TABLE
2740 , p5_a9 JTF_NUMBER_TABLE
2741 , p5_a10 JTF_NUMBER_TABLE
2742 , p5_a11 JTF_NUMBER_TABLE
2743 , p5_a12 JTF_NUMBER_TABLE
2744 , p5_a13 JTF_NUMBER_TABLE
2745 , p5_a14 JTF_NUMBER_TABLE
2746 , p5_a15 JTF_NUMBER_TABLE
2747 , p5_a16 JTF_VARCHAR2_TABLE_100
2748 , p5_a17 JTF_VARCHAR2_TABLE_200
2749 , p5_a18 JTF_VARCHAR2_TABLE_200
2750 , p5_a19 JTF_VARCHAR2_TABLE_200
2751 , p5_a20 JTF_VARCHAR2_TABLE_200
2752 , p5_a21 JTF_VARCHAR2_TABLE_200
2753 , p5_a22 JTF_VARCHAR2_TABLE_200
2754 , p5_a23 JTF_VARCHAR2_TABLE_200
2755 , p5_a24 JTF_VARCHAR2_TABLE_200
2756 , p5_a25 JTF_VARCHAR2_TABLE_200
2757 , p5_a26 JTF_VARCHAR2_TABLE_200
2758 , p5_a27 JTF_VARCHAR2_TABLE_200
2759 , p5_a28 JTF_VARCHAR2_TABLE_200
2760 , p5_a29 JTF_VARCHAR2_TABLE_200
2761 , p5_a30 JTF_VARCHAR2_TABLE_200
2762 , p5_a31 JTF_VARCHAR2_TABLE_200
2763 , p5_a32 JTF_VARCHAR2_TABLE_200
2764 , p5_a33 JTF_VARCHAR2_TABLE_200
2765 , p5_a34 JTF_VARCHAR2_TABLE_200
2766 , p5_a35 JTF_VARCHAR2_TABLE_200
2767 , p5_a36 JTF_VARCHAR2_TABLE_200
2768 , p5_a37 JTF_NUMBER_TABLE
2769 , p5_a38 JTF_NUMBER_TABLE
2770 , p5_a39 JTF_NUMBER_TABLE
2771 , p5_a40 JTF_NUMBER_TABLE
2772 , p5_a41 JTF_NUMBER_TABLE
2773 , p5_a42 JTF_NUMBER_TABLE
2774 , p5_a43 JTF_NUMBER_TABLE
2775 , p5_a44 JTF_NUMBER_TABLE
2776 , p5_a45 JTF_VARCHAR2_TABLE_100
2777 , p5_a46 JTF_VARCHAR2_TABLE_100
2778 , p5_a47 JTF_VARCHAR2_TABLE_100
2779 , p5_a48 JTF_NUMBER_TABLE
2780 , p5_a49 JTF_VARCHAR2_TABLE_2000
2781 , p5_a50 JTF_VARCHAR2_TABLE_2000
2782 , p5_a51 JTF_VARCHAR2_TABLE_2000
2783 , p5_a52 JTF_VARCHAR2_TABLE_2000
2784 , p5_a53 JTF_NUMBER_TABLE
2785 , p5_a54 JTF_VARCHAR2_TABLE_200
2786 , p5_a55 JTF_NUMBER_TABLE
2787 , p5_a56 JTF_VARCHAR2_TABLE_300
2788 , p5_a57 JTF_NUMBER_TABLE
2789 , p5_a58 JTF_NUMBER_TABLE
2790 , p5_a59 JTF_VARCHAR2_TABLE_2000
2791 , p5_a60 JTF_NUMBER_TABLE
2792 , p5_a61 JTF_NUMBER_TABLE
2793 , p5_a62 JTF_NUMBER_TABLE
2794 , p5_a63 JTF_VARCHAR2_TABLE_2000
2795 , p5_a64 JTF_NUMBER_TABLE
2796 , p5_a65 JTF_VARCHAR2_TABLE_2000
2797 , x_return_status out nocopy VARCHAR2
2798 , x_msg_count out nocopy NUMBER
2799 , x_msg_data out nocopy VARCHAR2
2800 )
2801
2802 as
2803 ddp_custom_set_rec lns_custom_pub.custom_settings_type;
2804 ddp_custom_tbl lns_custom_pub.custom_tbl;
2805 ddindx binary_integer; indx binary_integer;
2806 begin
2807
2808 -- copy data to the local IN or IN-OUT args, if any
2809
2810
2811
2812
2813 ddp_custom_set_rec.amort_method := p4_a0;
2814 ddp_custom_set_rec.description := p4_a1;
2815
2816 lns_custom_pub_w.rosetta_table_copy_in_p1(ddp_custom_tbl, p5_a0
2817 , p5_a1
2818 , p5_a2
2819 , p5_a3
2820 , p5_a4
2821 , p5_a5
2822 , p5_a6
2823 , p5_a7
2824 , p5_a8
2825 , p5_a9
2826 , p5_a10
2827 , p5_a11
2828 , p5_a12
2829 , p5_a13
2830 , p5_a14
2831 , p5_a15
2832 , p5_a16
2833 , p5_a17
2834 , p5_a18
2835 , p5_a19
2836 , p5_a20
2837 , p5_a21
2838 , p5_a22
2839 , p5_a23
2840 , p5_a24
2841 , p5_a25
2842 , p5_a26
2843 , p5_a27
2844 , p5_a28
2845 , p5_a29
2846 , p5_a30
2847 , p5_a31
2848 , p5_a32
2849 , p5_a33
2850 , p5_a34
2851 , p5_a35
2852 , p5_a36
2853 , p5_a37
2854 , p5_a38
2855 , p5_a39
2856 , p5_a40
2857 , p5_a41
2858 , p5_a42
2859 , p5_a43
2860 , p5_a44
2861 , p5_a45
2862 , p5_a46
2863 , p5_a47
2864 , p5_a48
2865 , p5_a49
2866 , p5_a50
2867 , p5_a51
2868 , p5_a52
2869 , p5_a53
2870 , p5_a54
2871 , p5_a55
2872 , p5_a56
2873 , p5_a57
2874 , p5_a58
2875 , p5_a59
2876 , p5_a60
2877 , p5_a61
2878 , p5_a62
2879 , p5_a63
2880 , p5_a64
2881 , p5_a65
2882 );
2883
2884
2885
2886
2887 -- here's the delegated call to the old PL/SQL routine
2888 lns_custom_pub.retaincustomschedule(p_api_version,
2889 p_init_msg_list,
2890 p_commit,
2891 p_validation_level,
2892 ddp_custom_set_rec,
2893 ddp_custom_tbl,
2894 x_return_status,
2895 x_msg_count,
2896 x_msg_data);
2897
2898 -- copy data back from the local variables to OUT or IN-OUT args, if any
2899
2900
2901
2902
2903
2904
2905
2906
2907 end;
2908
2909 procedure getretainedschedule(p_api_version NUMBER
2910 , p_init_msg_list VARCHAR2
2911 , p_commit VARCHAR2
2912 , p_validation_level NUMBER
2913 , p4_a0 out nocopy VARCHAR2
2914 , p4_a1 out nocopy VARCHAR2
2915 , p5_a0 out nocopy JTF_NUMBER_TABLE
2916 , p5_a1 out nocopy JTF_NUMBER_TABLE
2917 , p5_a2 out nocopy JTF_NUMBER_TABLE
2918 , p5_a3 out nocopy JTF_DATE_TABLE
2919 , p5_a4 out nocopy JTF_DATE_TABLE
2920 , p5_a5 out nocopy JTF_DATE_TABLE
2921 , p5_a6 out nocopy JTF_NUMBER_TABLE
2922 , p5_a7 out nocopy JTF_NUMBER_TABLE
2923 , p5_a8 out nocopy JTF_NUMBER_TABLE
2924 , p5_a9 out nocopy JTF_NUMBER_TABLE
2925 , p5_a10 out nocopy JTF_NUMBER_TABLE
2926 , p5_a11 out nocopy JTF_NUMBER_TABLE
2927 , p5_a12 out nocopy JTF_NUMBER_TABLE
2928 , p5_a13 out nocopy JTF_NUMBER_TABLE
2929 , p5_a14 out nocopy JTF_NUMBER_TABLE
2930 , p5_a15 out nocopy JTF_NUMBER_TABLE
2931 , p5_a16 out nocopy JTF_VARCHAR2_TABLE_100
2932 , p5_a17 out nocopy JTF_VARCHAR2_TABLE_200
2933 , p5_a18 out nocopy JTF_VARCHAR2_TABLE_200
2934 , p5_a19 out nocopy JTF_VARCHAR2_TABLE_200
2935 , p5_a20 out nocopy JTF_VARCHAR2_TABLE_200
2936 , p5_a21 out nocopy JTF_VARCHAR2_TABLE_200
2937 , p5_a22 out nocopy JTF_VARCHAR2_TABLE_200
2938 , p5_a23 out nocopy JTF_VARCHAR2_TABLE_200
2939 , p5_a24 out nocopy JTF_VARCHAR2_TABLE_200
2940 , p5_a25 out nocopy JTF_VARCHAR2_TABLE_200
2941 , p5_a26 out nocopy JTF_VARCHAR2_TABLE_200
2942 , p5_a27 out nocopy JTF_VARCHAR2_TABLE_200
2943 , p5_a28 out nocopy JTF_VARCHAR2_TABLE_200
2944 , p5_a29 out nocopy JTF_VARCHAR2_TABLE_200
2945 , p5_a30 out nocopy JTF_VARCHAR2_TABLE_200
2946 , p5_a31 out nocopy JTF_VARCHAR2_TABLE_200
2947 , p5_a32 out nocopy JTF_VARCHAR2_TABLE_200
2948 , p5_a33 out nocopy JTF_VARCHAR2_TABLE_200
2949 , p5_a34 out nocopy JTF_VARCHAR2_TABLE_200
2950 , p5_a35 out nocopy JTF_VARCHAR2_TABLE_200
2951 , p5_a36 out nocopy JTF_VARCHAR2_TABLE_200
2952 , p5_a37 out nocopy JTF_NUMBER_TABLE
2953 , p5_a38 out nocopy JTF_NUMBER_TABLE
2954 , p5_a39 out nocopy JTF_NUMBER_TABLE
2955 , p5_a40 out nocopy JTF_NUMBER_TABLE
2956 , p5_a41 out nocopy JTF_NUMBER_TABLE
2957 , p5_a42 out nocopy JTF_NUMBER_TABLE
2958 , p5_a43 out nocopy JTF_NUMBER_TABLE
2959 , p5_a44 out nocopy JTF_NUMBER_TABLE
2960 , p5_a45 out nocopy JTF_VARCHAR2_TABLE_100
2961 , p5_a46 out nocopy JTF_VARCHAR2_TABLE_100
2962 , p5_a47 out nocopy JTF_VARCHAR2_TABLE_100
2963 , p5_a48 out nocopy JTF_NUMBER_TABLE
2964 , p5_a49 out nocopy JTF_VARCHAR2_TABLE_2000
2965 , p5_a50 out nocopy JTF_VARCHAR2_TABLE_2000
2966 , p5_a51 out nocopy JTF_VARCHAR2_TABLE_2000
2967 , p5_a52 out nocopy JTF_VARCHAR2_TABLE_2000
2968 , p5_a53 out nocopy JTF_NUMBER_TABLE
2969 , p5_a54 out nocopy JTF_VARCHAR2_TABLE_200
2970 , p5_a55 out nocopy JTF_NUMBER_TABLE
2971 , p5_a56 out nocopy JTF_VARCHAR2_TABLE_300
2972 , p5_a57 out nocopy JTF_NUMBER_TABLE
2973 , p5_a58 out nocopy JTF_NUMBER_TABLE
2974 , p5_a59 out nocopy JTF_VARCHAR2_TABLE_2000
2975 , p5_a60 out nocopy JTF_NUMBER_TABLE
2976 , p5_a61 out nocopy JTF_NUMBER_TABLE
2977 , p5_a62 out nocopy JTF_NUMBER_TABLE
2978 , p5_a63 out nocopy JTF_VARCHAR2_TABLE_2000
2979 , p5_a64 out nocopy JTF_NUMBER_TABLE
2980 , p5_a65 out nocopy JTF_VARCHAR2_TABLE_2000
2981 , x_return_status out nocopy VARCHAR2
2982 , x_msg_count out nocopy NUMBER
2983 , x_msg_data out nocopy VARCHAR2
2984 )
2985
2986 as
2987 ddx_custom_set_rec lns_custom_pub.custom_settings_type;
2988 ddx_custom_tbl lns_custom_pub.custom_tbl;
2989 ddindx binary_integer; indx binary_integer;
2990 begin
2991
2992 -- copy data to the local IN or IN-OUT args, if any
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002 -- here's the delegated call to the old PL/SQL routine
3003 lns_custom_pub.getretainedschedule(p_api_version,
3004 p_init_msg_list,
3005 p_commit,
3006 p_validation_level,
3007 ddx_custom_set_rec,
3008 ddx_custom_tbl,
3009 x_return_status,
3010 x_msg_count,
3011 x_msg_data);
3012
3013 -- copy data back from the local variables to OUT or IN-OUT args, if any
3014
3015
3016
3017
3018 p4_a0 := ddx_custom_set_rec.amort_method;
3019 p4_a1 := ddx_custom_set_rec.description;
3020
3021 lns_custom_pub_w.rosetta_table_copy_out_p1(ddx_custom_tbl, p5_a0
3022 , p5_a1
3023 , p5_a2
3024 , p5_a3
3025 , p5_a4
3026 , p5_a5
3027 , p5_a6
3028 , p5_a7
3029 , p5_a8
3030 , p5_a9
3031 , p5_a10
3032 , p5_a11
3033 , p5_a12
3034 , p5_a13
3035 , p5_a14
3036 , p5_a15
3037 , p5_a16
3038 , p5_a17
3039 , p5_a18
3040 , p5_a19
3041 , p5_a20
3042 , p5_a21
3043 , p5_a22
3044 , p5_a23
3045 , p5_a24
3046 , p5_a25
3047 , p5_a26
3048 , p5_a27
3049 , p5_a28
3050 , p5_a29
3051 , p5_a30
3052 , p5_a31
3053 , p5_a32
3054 , p5_a33
3055 , p5_a34
3056 , p5_a35
3057 , p5_a36
3058 , p5_a37
3059 , p5_a38
3060 , p5_a39
3061 , p5_a40
3062 , p5_a41
3063 , p5_a42
3064 , p5_a43
3065 , p5_a44
3066 , p5_a45
3067 , p5_a46
3068 , p5_a47
3069 , p5_a48
3070 , p5_a49
3071 , p5_a50
3072 , p5_a51
3073 , p5_a52
3074 , p5_a53
3075 , p5_a54
3076 , p5_a55
3077 , p5_a56
3078 , p5_a57
3079 , p5_a58
3080 , p5_a59
3081 , p5_a60
3082 , p5_a61
3083 , p5_a62
3084 , p5_a63
3085 , p5_a64
3086 , p5_a65
3087 );
3088
3089
3090
3091 end;
3092
3093 end lns_custom_pub_w;