[Home] [Help]
PACKAGE BODY: APPS.LNS_TERMS_PUB_W
Source
1 package body lns_terms_pub_w as
2 /* $Header: LNS_TERMS_PUBJ_B.pls 120.14.12020000.2 2012/07/19 20:59:41 scherkas ship $ */
3 procedure create_term(p_init_msg_list VARCHAR2
4 , p1_a0 NUMBER
5 , p1_a1 NUMBER
6 , p1_a2 VARCHAR2
7 , p1_a3 VARCHAR2
8 , p1_a4 DATE
9 , p1_a5 DATE
10 , p1_a6 NUMBER
11 , p1_a7 VARCHAR2
12 , p1_a8 VARCHAR2
13 , p1_a9 VARCHAR2
14 , p1_a10 DATE
15 , p1_a11 NUMBER
16 , p1_a12 NUMBER
17 , p1_a13 NUMBER
18 , p1_a14 NUMBER
19 , p1_a15 VARCHAR2
20 , p1_a16 VARCHAR2
21 , p1_a17 VARCHAR2
22 , p1_a18 VARCHAR2
23 , p1_a19 VARCHAR2
24 , p1_a20 VARCHAR2
25 , p1_a21 VARCHAR2
26 , p1_a22 NUMBER
27 , p1_a23 VARCHAR2
28 , p1_a24 VARCHAR2
29 , p1_a25 NUMBER
30 , p1_a26 VARCHAR2
31 , p1_a27 NUMBER
32 , p1_a28 VARCHAR2
33 , p1_a29 DATE
34 , p1_a30 DATE
35 , p1_a31 DATE
36 , p1_a32 VARCHAR2
37 , p1_a33 DATE
38 , p1_a34 DATE
39 , p1_a35 DATE
40 , p1_a36 VARCHAR2
41 , p1_a37 NUMBER
42 , p1_a38 NUMBER
43 , p1_a39 NUMBER
44 , p1_a40 NUMBER
45 , p1_a41 NUMBER
46 , p1_a42 NUMBER
47 , p1_a43 VARCHAR2
48 , p1_a44 NUMBER
49 , p1_a45 NUMBER
50 , p1_a46 DATE
51 , p1_a47 DATE
52 , p1_a48 NUMBER
53 , p1_a49 NUMBER
54 , p1_a50 VARCHAR2
55 , p1_a51 VARCHAR2
56 , p1_a52 VARCHAR2
57 , p1_a53 DATE
58 , p1_a54 VARCHAR2
59 , p1_a55 NUMBER
60 , p1_a56 NUMBER
61 , p1_a57 VARCHAR2
62 , p1_a58 VARCHAR2
63 , p1_a59 VARCHAR2
64 , p1_a60 NUMBER
65 , p1_a61 VARCHAR2
66 , p1_a62 VARCHAR2
67 , p1_a63 VARCHAR2
68 , p1_a64 VARCHAR2
69 , x_term_id out nocopy NUMBER
70 , x_return_status out nocopy VARCHAR2
71 , x_msg_count out nocopy NUMBER
72 , x_msg_data out nocopy VARCHAR2
73 )
74
75 as
76 ddp_loan_term_rec lns_terms_pub.loan_term_rec_type;
77 ddindx binary_integer; indx binary_integer;
78 begin
79
80 -- copy data to the local IN or IN-OUT args, if any
81
82 ddp_loan_term_rec.term_id := p1_a0;
83 ddp_loan_term_rec.loan_id := p1_a1;
84 ddp_loan_term_rec.day_count_method := p1_a2;
85 ddp_loan_term_rec.based_on_balance := p1_a3;
86 ddp_loan_term_rec.first_rate_change_date := p1_a4;
87 ddp_loan_term_rec.next_rate_change_date := p1_a5;
88 ddp_loan_term_rec.percent_increase := p1_a6;
89 ddp_loan_term_rec.percent_increase_term := p1_a7;
90 ddp_loan_term_rec.payment_application_order := p1_a8;
91 ddp_loan_term_rec.prepay_penalty_flag := p1_a9;
92 ddp_loan_term_rec.prepay_penalty_date := p1_a10;
93 ddp_loan_term_rec.ceiling_rate := p1_a11;
94 ddp_loan_term_rec.floor_rate := p1_a12;
95 ddp_loan_term_rec.delinquency_threshold_number := p1_a13;
96 ddp_loan_term_rec.delinquency_threshold_amount := p1_a14;
97 ddp_loan_term_rec.calculation_method := p1_a15;
98 ddp_loan_term_rec.reamortize_under_payment := p1_a16;
99 ddp_loan_term_rec.reamortize_over_payment := p1_a17;
100 ddp_loan_term_rec.reamortize_with_interest := p1_a18;
101 ddp_loan_term_rec.loan_payment_frequency := p1_a19;
102 ddp_loan_term_rec.interest_compounding_freq := p1_a20;
103 ddp_loan_term_rec.amortization_frequency := p1_a21;
104 ddp_loan_term_rec.number_grace_days := p1_a22;
105 ddp_loan_term_rec.rate_type := p1_a23;
106 ddp_loan_term_rec.index_name := p1_a24;
107 ddp_loan_term_rec.adjustment_frequency := p1_a25;
108 ddp_loan_term_rec.adjustment_frequency_type := p1_a26;
109 ddp_loan_term_rec.fixed_rate_period := p1_a27;
110 ddp_loan_term_rec.fixed_rate_period_type := p1_a28;
111 ddp_loan_term_rec.first_payment_date := p1_a29;
112 ddp_loan_term_rec.next_payment_due_date := p1_a30;
113 ddp_loan_term_rec.open_first_payment_date := p1_a31;
114 ddp_loan_term_rec.open_payment_frequency := p1_a32;
115 ddp_loan_term_rec.open_next_payment_date := p1_a33;
116 ddp_loan_term_rec.lock_in_date := p1_a34;
117 ddp_loan_term_rec.lock_to_date := p1_a35;
118 ddp_loan_term_rec.rate_change_frequency := p1_a36;
119 ddp_loan_term_rec.index_rate_id := p1_a37;
120 ddp_loan_term_rec.percent_increase_life := p1_a38;
121 ddp_loan_term_rec.first_percent_increase := p1_a39;
122 ddp_loan_term_rec.open_percent_increase := p1_a40;
123 ddp_loan_term_rec.open_percent_increase_life := p1_a41;
124 ddp_loan_term_rec.open_first_percent_increase := p1_a42;
125 ddp_loan_term_rec.pmt_appl_order_scope := p1_a43;
126 ddp_loan_term_rec.open_ceiling_rate := p1_a44;
127 ddp_loan_term_rec.open_floor_rate := p1_a45;
128 ddp_loan_term_rec.open_index_date := p1_a46;
129 ddp_loan_term_rec.term_index_date := p1_a47;
130 ddp_loan_term_rec.open_projected_rate := p1_a48;
131 ddp_loan_term_rec.term_projected_rate := p1_a49;
132 ddp_loan_term_rec.payment_calc_method := p1_a50;
133 ddp_loan_term_rec.custom_calc_method := p1_a51;
134 ddp_loan_term_rec.orig_pay_calc_method := p1_a52;
135 ddp_loan_term_rec.prin_first_pay_date := p1_a53;
136 ddp_loan_term_rec.prin_payment_frequency := p1_a54;
137 ddp_loan_term_rec.penal_int_rate := p1_a55;
138 ddp_loan_term_rec.penal_int_grace_days := p1_a56;
139 ddp_loan_term_rec.calc_add_int_unpaid_prin := p1_a57;
140 ddp_loan_term_rec.calc_add_int_unpaid_int := p1_a58;
141 ddp_loan_term_rec.reamortize_on_funding := p1_a59;
142 ddp_loan_term_rec.default_threshold_amount := p1_a60;
143 ddp_loan_term_rec.custom_sched_desc := p1_a61;
144 ddp_loan_term_rec.capitalize_int := p1_a62;
145 ddp_loan_term_rec.calc_early_pay_cr := p1_a63;
146 ddp_loan_term_rec.fluctuate_eq_pay_amount := p1_a64;
147
148
149
150
151
152 -- here's the delegated call to the old PL/SQL routine
153 lns_terms_pub.create_term(p_init_msg_list,
154 ddp_loan_term_rec,
155 x_term_id,
156 x_return_status,
157 x_msg_count,
158 x_msg_data);
159
160 -- copy data back from the local variables to OUT or IN-OUT args, if any
161
162
163
164
165
166 end;
167
168 procedure update_term(p_init_msg_list VARCHAR2
169 , p1_a0 NUMBER
170 , p1_a1 NUMBER
171 , p1_a2 VARCHAR2
172 , p1_a3 VARCHAR2
173 , p1_a4 DATE
174 , p1_a5 DATE
175 , p1_a6 NUMBER
176 , p1_a7 VARCHAR2
177 , p1_a8 VARCHAR2
178 , p1_a9 VARCHAR2
179 , p1_a10 DATE
180 , p1_a11 NUMBER
181 , p1_a12 NUMBER
182 , p1_a13 NUMBER
183 , p1_a14 NUMBER
184 , p1_a15 VARCHAR2
185 , p1_a16 VARCHAR2
186 , p1_a17 VARCHAR2
187 , p1_a18 VARCHAR2
188 , p1_a19 VARCHAR2
189 , p1_a20 VARCHAR2
190 , p1_a21 VARCHAR2
191 , p1_a22 NUMBER
192 , p1_a23 VARCHAR2
193 , p1_a24 VARCHAR2
194 , p1_a25 NUMBER
195 , p1_a26 VARCHAR2
196 , p1_a27 NUMBER
197 , p1_a28 VARCHAR2
198 , p1_a29 DATE
199 , p1_a30 DATE
200 , p1_a31 DATE
201 , p1_a32 VARCHAR2
202 , p1_a33 DATE
203 , p1_a34 DATE
204 , p1_a35 DATE
205 , p1_a36 VARCHAR2
206 , p1_a37 NUMBER
207 , p1_a38 NUMBER
208 , p1_a39 NUMBER
209 , p1_a40 NUMBER
210 , p1_a41 NUMBER
211 , p1_a42 NUMBER
212 , p1_a43 VARCHAR2
213 , p1_a44 NUMBER
214 , p1_a45 NUMBER
215 , p1_a46 DATE
216 , p1_a47 DATE
217 , p1_a48 NUMBER
218 , p1_a49 NUMBER
219 , p1_a50 VARCHAR2
220 , p1_a51 VARCHAR2
221 , p1_a52 VARCHAR2
222 , p1_a53 DATE
223 , p1_a54 VARCHAR2
224 , p1_a55 NUMBER
225 , p1_a56 NUMBER
226 , p1_a57 VARCHAR2
227 , p1_a58 VARCHAR2
228 , p1_a59 VARCHAR2
229 , p1_a60 NUMBER
230 , p1_a61 VARCHAR2
231 , p1_a62 VARCHAR2
232 , p1_a63 VARCHAR2
233 , p1_a64 VARCHAR2
234 , p_object_version_number in out nocopy NUMBER
235 , x_return_status out nocopy VARCHAR2
236 , x_msg_count out nocopy NUMBER
237 , x_msg_data out nocopy VARCHAR2
238 )
239
240 as
241 ddp_loan_term_rec lns_terms_pub.loan_term_rec_type;
242 ddindx binary_integer; indx binary_integer;
243 begin
244
245 -- copy data to the local IN or IN-OUT args, if any
246
247 ddp_loan_term_rec.term_id := p1_a0;
248 ddp_loan_term_rec.loan_id := p1_a1;
249 ddp_loan_term_rec.day_count_method := p1_a2;
250 ddp_loan_term_rec.based_on_balance := p1_a3;
251 ddp_loan_term_rec.first_rate_change_date := p1_a4;
252 ddp_loan_term_rec.next_rate_change_date := p1_a5;
253 ddp_loan_term_rec.percent_increase := p1_a6;
254 ddp_loan_term_rec.percent_increase_term := p1_a7;
255 ddp_loan_term_rec.payment_application_order := p1_a8;
256 ddp_loan_term_rec.prepay_penalty_flag := p1_a9;
257 ddp_loan_term_rec.prepay_penalty_date := p1_a10;
258 ddp_loan_term_rec.ceiling_rate := p1_a11;
259 ddp_loan_term_rec.floor_rate := p1_a12;
260 ddp_loan_term_rec.delinquency_threshold_number := p1_a13;
261 ddp_loan_term_rec.delinquency_threshold_amount := p1_a14;
262 ddp_loan_term_rec.calculation_method := p1_a15;
263 ddp_loan_term_rec.reamortize_under_payment := p1_a16;
264 ddp_loan_term_rec.reamortize_over_payment := p1_a17;
265 ddp_loan_term_rec.reamortize_with_interest := p1_a18;
266 ddp_loan_term_rec.loan_payment_frequency := p1_a19;
267 ddp_loan_term_rec.interest_compounding_freq := p1_a20;
268 ddp_loan_term_rec.amortization_frequency := p1_a21;
269 ddp_loan_term_rec.number_grace_days := p1_a22;
270 ddp_loan_term_rec.rate_type := p1_a23;
271 ddp_loan_term_rec.index_name := p1_a24;
272 ddp_loan_term_rec.adjustment_frequency := p1_a25;
273 ddp_loan_term_rec.adjustment_frequency_type := p1_a26;
274 ddp_loan_term_rec.fixed_rate_period := p1_a27;
275 ddp_loan_term_rec.fixed_rate_period_type := p1_a28;
276 ddp_loan_term_rec.first_payment_date := p1_a29;
277 ddp_loan_term_rec.next_payment_due_date := p1_a30;
278 ddp_loan_term_rec.open_first_payment_date := p1_a31;
279 ddp_loan_term_rec.open_payment_frequency := p1_a32;
280 ddp_loan_term_rec.open_next_payment_date := p1_a33;
281 ddp_loan_term_rec.lock_in_date := p1_a34;
282 ddp_loan_term_rec.lock_to_date := p1_a35;
283 ddp_loan_term_rec.rate_change_frequency := p1_a36;
284 ddp_loan_term_rec.index_rate_id := p1_a37;
285 ddp_loan_term_rec.percent_increase_life := p1_a38;
286 ddp_loan_term_rec.first_percent_increase := p1_a39;
287 ddp_loan_term_rec.open_percent_increase := p1_a40;
288 ddp_loan_term_rec.open_percent_increase_life := p1_a41;
289 ddp_loan_term_rec.open_first_percent_increase := p1_a42;
290 ddp_loan_term_rec.pmt_appl_order_scope := p1_a43;
291 ddp_loan_term_rec.open_ceiling_rate := p1_a44;
292 ddp_loan_term_rec.open_floor_rate := p1_a45;
293 ddp_loan_term_rec.open_index_date := p1_a46;
294 ddp_loan_term_rec.term_index_date := p1_a47;
295 ddp_loan_term_rec.open_projected_rate := p1_a48;
296 ddp_loan_term_rec.term_projected_rate := p1_a49;
297 ddp_loan_term_rec.payment_calc_method := p1_a50;
298 ddp_loan_term_rec.custom_calc_method := p1_a51;
299 ddp_loan_term_rec.orig_pay_calc_method := p1_a52;
300 ddp_loan_term_rec.prin_first_pay_date := p1_a53;
301 ddp_loan_term_rec.prin_payment_frequency := p1_a54;
302 ddp_loan_term_rec.penal_int_rate := p1_a55;
303 ddp_loan_term_rec.penal_int_grace_days := p1_a56;
304 ddp_loan_term_rec.calc_add_int_unpaid_prin := p1_a57;
305 ddp_loan_term_rec.calc_add_int_unpaid_int := p1_a58;
306 ddp_loan_term_rec.reamortize_on_funding := p1_a59;
307 ddp_loan_term_rec.default_threshold_amount := p1_a60;
308 ddp_loan_term_rec.custom_sched_desc := p1_a61;
309 ddp_loan_term_rec.capitalize_int := p1_a62;
310 ddp_loan_term_rec.calc_early_pay_cr := p1_a63;
311 ddp_loan_term_rec.fluctuate_eq_pay_amount := p1_a64;
312
313
314
315
316
317 -- here's the delegated call to the old PL/SQL routine
318 lns_terms_pub.update_term(p_init_msg_list,
319 ddp_loan_term_rec,
320 p_object_version_number,
321 x_return_status,
322 x_msg_count,
323 x_msg_data);
324
325 -- copy data back from the local variables to OUT or IN-OUT args, if any
326
327
328
329
330
331 end;
332
333 procedure validate_term(p_init_msg_list VARCHAR2
334 , p1_a0 NUMBER
335 , p1_a1 NUMBER
336 , p1_a2 VARCHAR2
337 , p1_a3 VARCHAR2
338 , p1_a4 DATE
339 , p1_a5 DATE
340 , p1_a6 NUMBER
341 , p1_a7 VARCHAR2
342 , p1_a8 VARCHAR2
343 , p1_a9 VARCHAR2
344 , p1_a10 DATE
345 , p1_a11 NUMBER
346 , p1_a12 NUMBER
347 , p1_a13 NUMBER
348 , p1_a14 NUMBER
349 , p1_a15 VARCHAR2
350 , p1_a16 VARCHAR2
351 , p1_a17 VARCHAR2
352 , p1_a18 VARCHAR2
353 , p1_a19 VARCHAR2
354 , p1_a20 VARCHAR2
355 , p1_a21 VARCHAR2
356 , p1_a22 NUMBER
357 , p1_a23 VARCHAR2
358 , p1_a24 VARCHAR2
359 , p1_a25 NUMBER
360 , p1_a26 VARCHAR2
361 , p1_a27 NUMBER
362 , p1_a28 VARCHAR2
363 , p1_a29 DATE
364 , p1_a30 DATE
365 , p1_a31 DATE
366 , p1_a32 VARCHAR2
367 , p1_a33 DATE
368 , p1_a34 DATE
369 , p1_a35 DATE
370 , p1_a36 VARCHAR2
371 , p1_a37 NUMBER
372 , p1_a38 NUMBER
373 , p1_a39 NUMBER
374 , p1_a40 NUMBER
375 , p1_a41 NUMBER
376 , p1_a42 NUMBER
377 , p1_a43 VARCHAR2
378 , p1_a44 NUMBER
379 , p1_a45 NUMBER
380 , p1_a46 DATE
381 , p1_a47 DATE
382 , p1_a48 NUMBER
383 , p1_a49 NUMBER
384 , p1_a50 VARCHAR2
385 , p1_a51 VARCHAR2
386 , p1_a52 VARCHAR2
387 , p1_a53 DATE
388 , p1_a54 VARCHAR2
389 , p1_a55 NUMBER
390 , p1_a56 NUMBER
391 , p1_a57 VARCHAR2
392 , p1_a58 VARCHAR2
393 , p1_a59 VARCHAR2
394 , p1_a60 NUMBER
395 , p1_a61 VARCHAR2
396 , p1_a62 VARCHAR2
397 , p1_a63 VARCHAR2
398 , p1_a64 VARCHAR2
399 , x_return_status out nocopy VARCHAR2
400 , x_msg_count out nocopy NUMBER
401 , x_msg_data out nocopy VARCHAR2
402 )
403
404 as
405 ddp_loan_term_rec lns_terms_pub.loan_term_rec_type;
406 ddindx binary_integer; indx binary_integer;
407 begin
408
409 -- copy data to the local IN or IN-OUT args, if any
410
411 ddp_loan_term_rec.term_id := p1_a0;
412 ddp_loan_term_rec.loan_id := p1_a1;
413 ddp_loan_term_rec.day_count_method := p1_a2;
414 ddp_loan_term_rec.based_on_balance := p1_a3;
415 ddp_loan_term_rec.first_rate_change_date := p1_a4;
416 ddp_loan_term_rec.next_rate_change_date := p1_a5;
417 ddp_loan_term_rec.percent_increase := p1_a6;
418 ddp_loan_term_rec.percent_increase_term := p1_a7;
419 ddp_loan_term_rec.payment_application_order := p1_a8;
420 ddp_loan_term_rec.prepay_penalty_flag := p1_a9;
421 ddp_loan_term_rec.prepay_penalty_date := p1_a10;
422 ddp_loan_term_rec.ceiling_rate := p1_a11;
423 ddp_loan_term_rec.floor_rate := p1_a12;
424 ddp_loan_term_rec.delinquency_threshold_number := p1_a13;
425 ddp_loan_term_rec.delinquency_threshold_amount := p1_a14;
426 ddp_loan_term_rec.calculation_method := p1_a15;
427 ddp_loan_term_rec.reamortize_under_payment := p1_a16;
428 ddp_loan_term_rec.reamortize_over_payment := p1_a17;
429 ddp_loan_term_rec.reamortize_with_interest := p1_a18;
430 ddp_loan_term_rec.loan_payment_frequency := p1_a19;
431 ddp_loan_term_rec.interest_compounding_freq := p1_a20;
432 ddp_loan_term_rec.amortization_frequency := p1_a21;
433 ddp_loan_term_rec.number_grace_days := p1_a22;
434 ddp_loan_term_rec.rate_type := p1_a23;
435 ddp_loan_term_rec.index_name := p1_a24;
436 ddp_loan_term_rec.adjustment_frequency := p1_a25;
437 ddp_loan_term_rec.adjustment_frequency_type := p1_a26;
438 ddp_loan_term_rec.fixed_rate_period := p1_a27;
439 ddp_loan_term_rec.fixed_rate_period_type := p1_a28;
440 ddp_loan_term_rec.first_payment_date := p1_a29;
441 ddp_loan_term_rec.next_payment_due_date := p1_a30;
442 ddp_loan_term_rec.open_first_payment_date := p1_a31;
443 ddp_loan_term_rec.open_payment_frequency := p1_a32;
444 ddp_loan_term_rec.open_next_payment_date := p1_a33;
445 ddp_loan_term_rec.lock_in_date := p1_a34;
446 ddp_loan_term_rec.lock_to_date := p1_a35;
447 ddp_loan_term_rec.rate_change_frequency := p1_a36;
448 ddp_loan_term_rec.index_rate_id := p1_a37;
449 ddp_loan_term_rec.percent_increase_life := p1_a38;
450 ddp_loan_term_rec.first_percent_increase := p1_a39;
451 ddp_loan_term_rec.open_percent_increase := p1_a40;
452 ddp_loan_term_rec.open_percent_increase_life := p1_a41;
453 ddp_loan_term_rec.open_first_percent_increase := p1_a42;
454 ddp_loan_term_rec.pmt_appl_order_scope := p1_a43;
455 ddp_loan_term_rec.open_ceiling_rate := p1_a44;
456 ddp_loan_term_rec.open_floor_rate := p1_a45;
457 ddp_loan_term_rec.open_index_date := p1_a46;
458 ddp_loan_term_rec.term_index_date := p1_a47;
459 ddp_loan_term_rec.open_projected_rate := p1_a48;
460 ddp_loan_term_rec.term_projected_rate := p1_a49;
461 ddp_loan_term_rec.payment_calc_method := p1_a50;
462 ddp_loan_term_rec.custom_calc_method := p1_a51;
463 ddp_loan_term_rec.orig_pay_calc_method := p1_a52;
464 ddp_loan_term_rec.prin_first_pay_date := p1_a53;
465 ddp_loan_term_rec.prin_payment_frequency := p1_a54;
466 ddp_loan_term_rec.penal_int_rate := p1_a55;
467 ddp_loan_term_rec.penal_int_grace_days := p1_a56;
468 ddp_loan_term_rec.calc_add_int_unpaid_prin := p1_a57;
469 ddp_loan_term_rec.calc_add_int_unpaid_int := p1_a58;
470 ddp_loan_term_rec.reamortize_on_funding := p1_a59;
471 ddp_loan_term_rec.default_threshold_amount := p1_a60;
472 ddp_loan_term_rec.custom_sched_desc := p1_a61;
473 ddp_loan_term_rec.capitalize_int := p1_a62;
474 ddp_loan_term_rec.calc_early_pay_cr := p1_a63;
475 ddp_loan_term_rec.fluctuate_eq_pay_amount := p1_a64;
476
477
478
479
480 -- here's the delegated call to the old PL/SQL routine
481 lns_terms_pub.validate_term(p_init_msg_list,
482 ddp_loan_term_rec,
483 x_return_status,
484 x_msg_count,
485 x_msg_data);
486
487 -- copy data back from the local variables to OUT or IN-OUT args, if any
488
489
490
491
492 end;
493
494 procedure get_loan_term_rec(p_init_msg_list VARCHAR2
495 , p_term_id NUMBER
496 , p2_a0 out nocopy NUMBER
497 , p2_a1 out nocopy NUMBER
498 , p2_a2 out nocopy VARCHAR2
499 , p2_a3 out nocopy VARCHAR2
500 , p2_a4 out nocopy DATE
501 , p2_a5 out nocopy DATE
502 , p2_a6 out nocopy NUMBER
503 , p2_a7 out nocopy VARCHAR2
504 , p2_a8 out nocopy VARCHAR2
505 , p2_a9 out nocopy VARCHAR2
506 , p2_a10 out nocopy DATE
507 , p2_a11 out nocopy NUMBER
508 , p2_a12 out nocopy NUMBER
509 , p2_a13 out nocopy NUMBER
510 , p2_a14 out nocopy NUMBER
511 , p2_a15 out nocopy VARCHAR2
512 , p2_a16 out nocopy VARCHAR2
513 , p2_a17 out nocopy VARCHAR2
514 , p2_a18 out nocopy VARCHAR2
515 , p2_a19 out nocopy VARCHAR2
516 , p2_a20 out nocopy VARCHAR2
517 , p2_a21 out nocopy VARCHAR2
518 , p2_a22 out nocopy NUMBER
519 , p2_a23 out nocopy VARCHAR2
520 , p2_a24 out nocopy VARCHAR2
521 , p2_a25 out nocopy NUMBER
522 , p2_a26 out nocopy VARCHAR2
523 , p2_a27 out nocopy NUMBER
524 , p2_a28 out nocopy VARCHAR2
525 , p2_a29 out nocopy DATE
526 , p2_a30 out nocopy DATE
527 , p2_a31 out nocopy DATE
528 , p2_a32 out nocopy VARCHAR2
529 , p2_a33 out nocopy DATE
530 , p2_a34 out nocopy DATE
531 , p2_a35 out nocopy DATE
532 , p2_a36 out nocopy VARCHAR2
533 , p2_a37 out nocopy NUMBER
534 , p2_a38 out nocopy NUMBER
535 , p2_a39 out nocopy NUMBER
536 , p2_a40 out nocopy NUMBER
537 , p2_a41 out nocopy NUMBER
538 , p2_a42 out nocopy NUMBER
539 , p2_a43 out nocopy VARCHAR2
540 , p2_a44 out nocopy NUMBER
541 , p2_a45 out nocopy NUMBER
542 , p2_a46 out nocopy DATE
543 , p2_a47 out nocopy DATE
544 , p2_a48 out nocopy NUMBER
545 , p2_a49 out nocopy NUMBER
546 , p2_a50 out nocopy VARCHAR2
547 , p2_a51 out nocopy VARCHAR2
548 , p2_a52 out nocopy VARCHAR2
549 , p2_a53 out nocopy DATE
550 , p2_a54 out nocopy VARCHAR2
551 , p2_a55 out nocopy NUMBER
552 , p2_a56 out nocopy NUMBER
553 , p2_a57 out nocopy VARCHAR2
554 , p2_a58 out nocopy VARCHAR2
555 , p2_a59 out nocopy VARCHAR2
556 , p2_a60 out nocopy NUMBER
557 , p2_a61 out nocopy VARCHAR2
558 , p2_a62 out nocopy VARCHAR2
559 , p2_a63 out nocopy VARCHAR2
560 , p2_a64 out nocopy VARCHAR2
561 , x_return_status out nocopy VARCHAR2
562 , x_msg_count out nocopy NUMBER
563 , x_msg_data out nocopy VARCHAR2
564 )
565
566 as
567 ddx_loan_term_rec lns_terms_pub.loan_term_rec_type;
568 ddindx binary_integer; indx binary_integer;
569 begin
570
571 -- copy data to the local IN or IN-OUT args, if any
572
573
574
575
576
577
578 -- here's the delegated call to the old PL/SQL routine
579 lns_terms_pub.get_loan_term_rec(p_init_msg_list,
580 p_term_id,
581 ddx_loan_term_rec,
582 x_return_status,
583 x_msg_count,
584 x_msg_data);
585
586 -- copy data back from the local variables to OUT or IN-OUT args, if any
587
588
589 p2_a0 := ddx_loan_term_rec.term_id;
590 p2_a1 := ddx_loan_term_rec.loan_id;
591 p2_a2 := ddx_loan_term_rec.day_count_method;
592 p2_a3 := ddx_loan_term_rec.based_on_balance;
593 p2_a4 := ddx_loan_term_rec.first_rate_change_date;
594 p2_a5 := ddx_loan_term_rec.next_rate_change_date;
595 p2_a6 := ddx_loan_term_rec.percent_increase;
596 p2_a7 := ddx_loan_term_rec.percent_increase_term;
597 p2_a8 := ddx_loan_term_rec.payment_application_order;
598 p2_a9 := ddx_loan_term_rec.prepay_penalty_flag;
599 p2_a10 := ddx_loan_term_rec.prepay_penalty_date;
600 p2_a11 := ddx_loan_term_rec.ceiling_rate;
601 p2_a12 := ddx_loan_term_rec.floor_rate;
602 p2_a13 := ddx_loan_term_rec.delinquency_threshold_number;
603 p2_a14 := ddx_loan_term_rec.delinquency_threshold_amount;
604 p2_a15 := ddx_loan_term_rec.calculation_method;
605 p2_a16 := ddx_loan_term_rec.reamortize_under_payment;
606 p2_a17 := ddx_loan_term_rec.reamortize_over_payment;
607 p2_a18 := ddx_loan_term_rec.reamortize_with_interest;
608 p2_a19 := ddx_loan_term_rec.loan_payment_frequency;
609 p2_a20 := ddx_loan_term_rec.interest_compounding_freq;
610 p2_a21 := ddx_loan_term_rec.amortization_frequency;
611 p2_a22 := ddx_loan_term_rec.number_grace_days;
612 p2_a23 := ddx_loan_term_rec.rate_type;
613 p2_a24 := ddx_loan_term_rec.index_name;
614 p2_a25 := ddx_loan_term_rec.adjustment_frequency;
615 p2_a26 := ddx_loan_term_rec.adjustment_frequency_type;
616 p2_a27 := ddx_loan_term_rec.fixed_rate_period;
617 p2_a28 := ddx_loan_term_rec.fixed_rate_period_type;
618 p2_a29 := ddx_loan_term_rec.first_payment_date;
619 p2_a30 := ddx_loan_term_rec.next_payment_due_date;
620 p2_a31 := ddx_loan_term_rec.open_first_payment_date;
621 p2_a32 := ddx_loan_term_rec.open_payment_frequency;
622 p2_a33 := ddx_loan_term_rec.open_next_payment_date;
623 p2_a34 := ddx_loan_term_rec.lock_in_date;
624 p2_a35 := ddx_loan_term_rec.lock_to_date;
625 p2_a36 := ddx_loan_term_rec.rate_change_frequency;
626 p2_a37 := ddx_loan_term_rec.index_rate_id;
627 p2_a38 := ddx_loan_term_rec.percent_increase_life;
628 p2_a39 := ddx_loan_term_rec.first_percent_increase;
629 p2_a40 := ddx_loan_term_rec.open_percent_increase;
630 p2_a41 := ddx_loan_term_rec.open_percent_increase_life;
631 p2_a42 := ddx_loan_term_rec.open_first_percent_increase;
632 p2_a43 := ddx_loan_term_rec.pmt_appl_order_scope;
633 p2_a44 := ddx_loan_term_rec.open_ceiling_rate;
634 p2_a45 := ddx_loan_term_rec.open_floor_rate;
635 p2_a46 := ddx_loan_term_rec.open_index_date;
636 p2_a47 := ddx_loan_term_rec.term_index_date;
637 p2_a48 := ddx_loan_term_rec.open_projected_rate;
638 p2_a49 := ddx_loan_term_rec.term_projected_rate;
639 p2_a50 := ddx_loan_term_rec.payment_calc_method;
640 p2_a51 := ddx_loan_term_rec.custom_calc_method;
641 p2_a52 := ddx_loan_term_rec.orig_pay_calc_method;
642 p2_a53 := ddx_loan_term_rec.prin_first_pay_date;
643 p2_a54 := ddx_loan_term_rec.prin_payment_frequency;
644 p2_a55 := ddx_loan_term_rec.penal_int_rate;
645 p2_a56 := ddx_loan_term_rec.penal_int_grace_days;
646 p2_a57 := ddx_loan_term_rec.calc_add_int_unpaid_prin;
647 p2_a58 := ddx_loan_term_rec.calc_add_int_unpaid_int;
648 p2_a59 := ddx_loan_term_rec.reamortize_on_funding;
649 p2_a60 := ddx_loan_term_rec.default_threshold_amount;
650 p2_a61 := ddx_loan_term_rec.custom_sched_desc;
651 p2_a62 := ddx_loan_term_rec.capitalize_int;
652 p2_a63 := ddx_loan_term_rec.calc_early_pay_cr;
653 p2_a64 := ddx_loan_term_rec.fluctuate_eq_pay_amount;
654
655
656
657 end;
658
659 end lns_terms_pub_w;