DBA Data[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.4.12010000.5 2008/12/19 16:07:01 gparuchu 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     , x_term_id out nocopy  NUMBER
62     , x_return_status out nocopy  VARCHAR2
63     , x_msg_count out nocopy  NUMBER
64     , x_msg_data out nocopy  VARCHAR2
65   )
66 
67   as
68     ddp_loan_term_rec lns_terms_pub.loan_term_rec_type;
69     ddindx binary_integer; indx binary_integer;
70   begin
71 
72     -- copy data to the local IN or IN-OUT args, if any
73 
74     ddp_loan_term_rec.term_id := p1_a0;
75     ddp_loan_term_rec.loan_id := p1_a1;
76     ddp_loan_term_rec.day_count_method := p1_a2;
77     ddp_loan_term_rec.based_on_balance := p1_a3;
78     ddp_loan_term_rec.first_rate_change_date := p1_a4;
79     ddp_loan_term_rec.next_rate_change_date := p1_a5;
80     ddp_loan_term_rec.percent_increase := p1_a6;
81     ddp_loan_term_rec.percent_increase_term := p1_a7;
82     ddp_loan_term_rec.payment_application_order := p1_a8;
83     ddp_loan_term_rec.prepay_penalty_flag := p1_a9;
84     ddp_loan_term_rec.prepay_penalty_date := p1_a10;
85     ddp_loan_term_rec.ceiling_rate := p1_a11;
86     ddp_loan_term_rec.floor_rate := p1_a12;
87     ddp_loan_term_rec.delinquency_threshold_number := p1_a13;
88     ddp_loan_term_rec.delinquency_threshold_amount := p1_a14;
89     ddp_loan_term_rec.calculation_method := p1_a15;
90     ddp_loan_term_rec.reamortize_under_payment := p1_a16;
91     ddp_loan_term_rec.reamortize_over_payment := p1_a17;
92     ddp_loan_term_rec.reamortize_with_interest := p1_a18;
93     ddp_loan_term_rec.loan_payment_frequency := p1_a19;
94     ddp_loan_term_rec.interest_compounding_freq := p1_a20;
95     ddp_loan_term_rec.amortization_frequency := p1_a21;
96     ddp_loan_term_rec.number_grace_days := p1_a22;
97     ddp_loan_term_rec.rate_type := p1_a23;
98     ddp_loan_term_rec.index_name := p1_a24;
99     ddp_loan_term_rec.adjustment_frequency := p1_a25;
100     ddp_loan_term_rec.adjustment_frequency_type := p1_a26;
101     ddp_loan_term_rec.fixed_rate_period := p1_a27;
102     ddp_loan_term_rec.fixed_rate_period_type := p1_a28;
103     ddp_loan_term_rec.first_payment_date := p1_a29;
104     ddp_loan_term_rec.next_payment_due_date := p1_a30;
105     ddp_loan_term_rec.open_first_payment_date := p1_a31;
106     ddp_loan_term_rec.open_payment_frequency := p1_a32;
107     ddp_loan_term_rec.open_next_payment_date := p1_a33;
108     ddp_loan_term_rec.lock_in_date := p1_a34;
109     ddp_loan_term_rec.lock_to_date := p1_a35;
110     ddp_loan_term_rec.rate_change_frequency := p1_a36;
111     ddp_loan_term_rec.index_rate_id := p1_a37;
112     ddp_loan_term_rec.percent_increase_life := p1_a38;
113     ddp_loan_term_rec.first_percent_increase := p1_a39;
114     ddp_loan_term_rec.open_percent_increase := p1_a40;
115     ddp_loan_term_rec.open_percent_increase_life := p1_a41;
116     ddp_loan_term_rec.open_first_percent_increase := p1_a42;
117     ddp_loan_term_rec.pmt_appl_order_scope := p1_a43;
118     ddp_loan_term_rec.open_ceiling_rate := p1_a44;
119     ddp_loan_term_rec.open_floor_rate := p1_a45;
120     ddp_loan_term_rec.open_index_date := p1_a46;
121     ddp_loan_term_rec.term_index_date := p1_a47;
122     ddp_loan_term_rec.open_projected_rate := p1_a48;
123     ddp_loan_term_rec.term_projected_rate := p1_a49;
124     ddp_loan_term_rec.payment_calc_method := p1_a50;
125     ddp_loan_term_rec.custom_calc_method := p1_a51;
126     ddp_loan_term_rec.orig_pay_calc_method := p1_a52;
127     ddp_loan_term_rec.prin_first_pay_date := p1_a53;
128     ddp_loan_term_rec.prin_payment_frequency := p1_a54;
129     ddp_loan_term_rec.penal_int_rate := p1_a55;
130     ddp_loan_term_rec.penal_int_grace_days := p1_a56;
131 
132 
133 
134 
135 
136     -- here's the delegated call to the old PL/SQL routine
137     lns_terms_pub.create_term(p_init_msg_list,
138       ddp_loan_term_rec,
139       x_term_id,
140       x_return_status,
141       x_msg_count,
142       x_msg_data);
143 
144     -- copy data back from the local variables to OUT or IN-OUT args, if any
145 
146 
147 
148 
149 
150   end;
151 
152   procedure update_term(p_init_msg_list  VARCHAR2
153     , p1_a0  NUMBER
154     , p1_a1  NUMBER
155     , p1_a2  VARCHAR2
156     , p1_a3  VARCHAR2
157     , p1_a4  DATE
158     , p1_a5  DATE
159     , p1_a6  NUMBER
160     , p1_a7  VARCHAR2
161     , p1_a8  VARCHAR2
162     , p1_a9  VARCHAR2
163     , p1_a10  DATE
164     , p1_a11  NUMBER
165     , p1_a12  NUMBER
166     , p1_a13  NUMBER
167     , p1_a14  NUMBER
168     , p1_a15  VARCHAR2
169     , p1_a16  VARCHAR2
170     , p1_a17  VARCHAR2
171     , p1_a18  VARCHAR2
172     , p1_a19  VARCHAR2
173     , p1_a20  VARCHAR2
174     , p1_a21  VARCHAR2
175     , p1_a22  NUMBER
176     , p1_a23  VARCHAR2
177     , p1_a24  VARCHAR2
178     , p1_a25  NUMBER
179     , p1_a26  VARCHAR2
180     , p1_a27  NUMBER
181     , p1_a28  VARCHAR2
182     , p1_a29  DATE
183     , p1_a30  DATE
184     , p1_a31  DATE
185     , p1_a32  VARCHAR2
186     , p1_a33  DATE
187     , p1_a34  DATE
188     , p1_a35  DATE
189     , p1_a36  VARCHAR2
190     , p1_a37  NUMBER
191     , p1_a38  NUMBER
192     , p1_a39  NUMBER
193     , p1_a40  NUMBER
194     , p1_a41  NUMBER
195     , p1_a42  NUMBER
196     , p1_a43  VARCHAR2
197     , p1_a44  NUMBER
198     , p1_a45  NUMBER
199     , p1_a46  DATE
200     , p1_a47  DATE
201     , p1_a48  NUMBER
202     , p1_a49  NUMBER
203     , p1_a50  VARCHAR2
204     , p1_a51  VARCHAR2
205     , p1_a52  VARCHAR2
206     , p1_a53  DATE
207     , p1_a54  VARCHAR2
208     , p1_a55  NUMBER
209     , p1_a56  NUMBER
210     , p_object_version_number in out nocopy  NUMBER
211     , x_return_status out nocopy  VARCHAR2
212     , x_msg_count out nocopy  NUMBER
213     , x_msg_data out nocopy  VARCHAR2
214   )
215 
216   as
217     ddp_loan_term_rec lns_terms_pub.loan_term_rec_type;
218     ddindx binary_integer; indx binary_integer;
219   begin
220 
221     -- copy data to the local IN or IN-OUT args, if any
222 
223     ddp_loan_term_rec.term_id := p1_a0;
224     ddp_loan_term_rec.loan_id := p1_a1;
225     ddp_loan_term_rec.day_count_method := p1_a2;
226     ddp_loan_term_rec.based_on_balance := p1_a3;
227     ddp_loan_term_rec.first_rate_change_date := p1_a4;
228     ddp_loan_term_rec.next_rate_change_date := p1_a5;
229     ddp_loan_term_rec.percent_increase := p1_a6;
230     ddp_loan_term_rec.percent_increase_term := p1_a7;
231     ddp_loan_term_rec.payment_application_order := p1_a8;
232     ddp_loan_term_rec.prepay_penalty_flag := p1_a9;
233     ddp_loan_term_rec.prepay_penalty_date := p1_a10;
234     ddp_loan_term_rec.ceiling_rate := p1_a11;
235     ddp_loan_term_rec.floor_rate := p1_a12;
236     ddp_loan_term_rec.delinquency_threshold_number := p1_a13;
237     ddp_loan_term_rec.delinquency_threshold_amount := p1_a14;
238     ddp_loan_term_rec.calculation_method := p1_a15;
239     ddp_loan_term_rec.reamortize_under_payment := p1_a16;
240     ddp_loan_term_rec.reamortize_over_payment := p1_a17;
241     ddp_loan_term_rec.reamortize_with_interest := p1_a18;
242     ddp_loan_term_rec.loan_payment_frequency := p1_a19;
243     ddp_loan_term_rec.interest_compounding_freq := p1_a20;
244     ddp_loan_term_rec.amortization_frequency := p1_a21;
245     ddp_loan_term_rec.number_grace_days := p1_a22;
246     ddp_loan_term_rec.rate_type := p1_a23;
247     ddp_loan_term_rec.index_name := p1_a24;
248     ddp_loan_term_rec.adjustment_frequency := p1_a25;
249     ddp_loan_term_rec.adjustment_frequency_type := p1_a26;
250     ddp_loan_term_rec.fixed_rate_period := p1_a27;
251     ddp_loan_term_rec.fixed_rate_period_type := p1_a28;
252     ddp_loan_term_rec.first_payment_date := p1_a29;
253     ddp_loan_term_rec.next_payment_due_date := p1_a30;
254     ddp_loan_term_rec.open_first_payment_date := p1_a31;
255     ddp_loan_term_rec.open_payment_frequency := p1_a32;
256     ddp_loan_term_rec.open_next_payment_date := p1_a33;
257     ddp_loan_term_rec.lock_in_date := p1_a34;
258     ddp_loan_term_rec.lock_to_date := p1_a35;
259     ddp_loan_term_rec.rate_change_frequency := p1_a36;
260     ddp_loan_term_rec.index_rate_id := p1_a37;
261     ddp_loan_term_rec.percent_increase_life := p1_a38;
262     ddp_loan_term_rec.first_percent_increase := p1_a39;
263     ddp_loan_term_rec.open_percent_increase := p1_a40;
264     ddp_loan_term_rec.open_percent_increase_life := p1_a41;
265     ddp_loan_term_rec.open_first_percent_increase := p1_a42;
266     ddp_loan_term_rec.pmt_appl_order_scope := p1_a43;
267     ddp_loan_term_rec.open_ceiling_rate := p1_a44;
268     ddp_loan_term_rec.open_floor_rate := p1_a45;
269     ddp_loan_term_rec.open_index_date := p1_a46;
270     ddp_loan_term_rec.term_index_date := p1_a47;
271     ddp_loan_term_rec.open_projected_rate := p1_a48;
272     ddp_loan_term_rec.term_projected_rate := p1_a49;
273     ddp_loan_term_rec.payment_calc_method := p1_a50;
274     ddp_loan_term_rec.custom_calc_method := p1_a51;
275     ddp_loan_term_rec.orig_pay_calc_method := p1_a52;
276     ddp_loan_term_rec.prin_first_pay_date := p1_a53;
277     ddp_loan_term_rec.prin_payment_frequency := p1_a54;
278     ddp_loan_term_rec.penal_int_rate := p1_a55;
279     ddp_loan_term_rec.penal_int_grace_days := p1_a56;
280 
281 
282 
283 
284 
285     -- here's the delegated call to the old PL/SQL routine
286     lns_terms_pub.update_term(p_init_msg_list,
287       ddp_loan_term_rec,
288       p_object_version_number,
289       x_return_status,
290       x_msg_count,
291       x_msg_data);
292 
293     -- copy data back from the local variables to OUT or IN-OUT args, if any
294 
295 
296 
297 
298 
299   end;
300 
301   procedure validate_term(p_init_msg_list  VARCHAR2
302     , p1_a0  NUMBER
303     , p1_a1  NUMBER
304     , p1_a2  VARCHAR2
305     , p1_a3  VARCHAR2
306     , p1_a4  DATE
307     , p1_a5  DATE
308     , p1_a6  NUMBER
309     , p1_a7  VARCHAR2
310     , p1_a8  VARCHAR2
311     , p1_a9  VARCHAR2
312     , p1_a10  DATE
313     , p1_a11  NUMBER
314     , p1_a12  NUMBER
315     , p1_a13  NUMBER
316     , p1_a14  NUMBER
317     , p1_a15  VARCHAR2
318     , p1_a16  VARCHAR2
319     , p1_a17  VARCHAR2
320     , p1_a18  VARCHAR2
321     , p1_a19  VARCHAR2
322     , p1_a20  VARCHAR2
323     , p1_a21  VARCHAR2
324     , p1_a22  NUMBER
325     , p1_a23  VARCHAR2
326     , p1_a24  VARCHAR2
327     , p1_a25  NUMBER
328     , p1_a26  VARCHAR2
329     , p1_a27  NUMBER
330     , p1_a28  VARCHAR2
331     , p1_a29  DATE
332     , p1_a30  DATE
333     , p1_a31  DATE
334     , p1_a32  VARCHAR2
335     , p1_a33  DATE
336     , p1_a34  DATE
337     , p1_a35  DATE
338     , p1_a36  VARCHAR2
339     , p1_a37  NUMBER
340     , p1_a38  NUMBER
341     , p1_a39  NUMBER
342     , p1_a40  NUMBER
343     , p1_a41  NUMBER
344     , p1_a42  NUMBER
345     , p1_a43  VARCHAR2
346     , p1_a44  NUMBER
347     , p1_a45  NUMBER
348     , p1_a46  DATE
349     , p1_a47  DATE
350     , p1_a48  NUMBER
351     , p1_a49  NUMBER
352     , p1_a50  VARCHAR2
353     , p1_a51  VARCHAR2
354     , p1_a52  VARCHAR2
355     , p1_a53  DATE
356     , p1_a54  VARCHAR2
357     , p1_a55  NUMBER
358     , p1_a56  NUMBER
359     , x_return_status out nocopy  VARCHAR2
360     , x_msg_count out nocopy  NUMBER
361     , x_msg_data out nocopy  VARCHAR2
362   )
363 
364   as
365     ddp_loan_term_rec lns_terms_pub.loan_term_rec_type;
366     ddindx binary_integer; indx binary_integer;
367   begin
368 
369     -- copy data to the local IN or IN-OUT args, if any
370 
371     ddp_loan_term_rec.term_id := p1_a0;
372     ddp_loan_term_rec.loan_id := p1_a1;
373     ddp_loan_term_rec.day_count_method := p1_a2;
374     ddp_loan_term_rec.based_on_balance := p1_a3;
375     ddp_loan_term_rec.first_rate_change_date := p1_a4;
376     ddp_loan_term_rec.next_rate_change_date := p1_a5;
377     ddp_loan_term_rec.percent_increase := p1_a6;
378     ddp_loan_term_rec.percent_increase_term := p1_a7;
379     ddp_loan_term_rec.payment_application_order := p1_a8;
380     ddp_loan_term_rec.prepay_penalty_flag := p1_a9;
381     ddp_loan_term_rec.prepay_penalty_date := p1_a10;
382     ddp_loan_term_rec.ceiling_rate := p1_a11;
383     ddp_loan_term_rec.floor_rate := p1_a12;
384     ddp_loan_term_rec.delinquency_threshold_number := p1_a13;
385     ddp_loan_term_rec.delinquency_threshold_amount := p1_a14;
386     ddp_loan_term_rec.calculation_method := p1_a15;
387     ddp_loan_term_rec.reamortize_under_payment := p1_a16;
388     ddp_loan_term_rec.reamortize_over_payment := p1_a17;
389     ddp_loan_term_rec.reamortize_with_interest := p1_a18;
390     ddp_loan_term_rec.loan_payment_frequency := p1_a19;
391     ddp_loan_term_rec.interest_compounding_freq := p1_a20;
392     ddp_loan_term_rec.amortization_frequency := p1_a21;
393     ddp_loan_term_rec.number_grace_days := p1_a22;
394     ddp_loan_term_rec.rate_type := p1_a23;
395     ddp_loan_term_rec.index_name := p1_a24;
396     ddp_loan_term_rec.adjustment_frequency := p1_a25;
397     ddp_loan_term_rec.adjustment_frequency_type := p1_a26;
398     ddp_loan_term_rec.fixed_rate_period := p1_a27;
399     ddp_loan_term_rec.fixed_rate_period_type := p1_a28;
400     ddp_loan_term_rec.first_payment_date := p1_a29;
401     ddp_loan_term_rec.next_payment_due_date := p1_a30;
402     ddp_loan_term_rec.open_first_payment_date := p1_a31;
403     ddp_loan_term_rec.open_payment_frequency := p1_a32;
404     ddp_loan_term_rec.open_next_payment_date := p1_a33;
405     ddp_loan_term_rec.lock_in_date := p1_a34;
406     ddp_loan_term_rec.lock_to_date := p1_a35;
407     ddp_loan_term_rec.rate_change_frequency := p1_a36;
408     ddp_loan_term_rec.index_rate_id := p1_a37;
409     ddp_loan_term_rec.percent_increase_life := p1_a38;
410     ddp_loan_term_rec.first_percent_increase := p1_a39;
411     ddp_loan_term_rec.open_percent_increase := p1_a40;
412     ddp_loan_term_rec.open_percent_increase_life := p1_a41;
413     ddp_loan_term_rec.open_first_percent_increase := p1_a42;
414     ddp_loan_term_rec.pmt_appl_order_scope := p1_a43;
415     ddp_loan_term_rec.open_ceiling_rate := p1_a44;
416     ddp_loan_term_rec.open_floor_rate := p1_a45;
417     ddp_loan_term_rec.open_index_date := p1_a46;
418     ddp_loan_term_rec.term_index_date := p1_a47;
419     ddp_loan_term_rec.open_projected_rate := p1_a48;
420     ddp_loan_term_rec.term_projected_rate := p1_a49;
421     ddp_loan_term_rec.payment_calc_method := p1_a50;
422     ddp_loan_term_rec.custom_calc_method := p1_a51;
423     ddp_loan_term_rec.orig_pay_calc_method := p1_a52;
424     ddp_loan_term_rec.prin_first_pay_date := p1_a53;
425     ddp_loan_term_rec.prin_payment_frequency := p1_a54;
426     ddp_loan_term_rec.penal_int_rate := p1_a55;
427     ddp_loan_term_rec.penal_int_grace_days := p1_a56;
428 
429 
430 
431 
432     -- here's the delegated call to the old PL/SQL routine
433     lns_terms_pub.validate_term(p_init_msg_list,
434       ddp_loan_term_rec,
435       x_return_status,
436       x_msg_count,
437       x_msg_data);
438 
439     -- copy data back from the local variables to OUT or IN-OUT args, if any
440 
441 
442 
443 
444   end;
445 
446   procedure get_loan_term_rec(p_init_msg_list  VARCHAR2
447     , p_term_id  NUMBER
448     , p2_a0 out nocopy  NUMBER
449     , p2_a1 out nocopy  NUMBER
450     , p2_a2 out nocopy  VARCHAR2
451     , p2_a3 out nocopy  VARCHAR2
452     , p2_a4 out nocopy  DATE
453     , p2_a5 out nocopy  DATE
454     , p2_a6 out nocopy  NUMBER
455     , p2_a7 out nocopy  VARCHAR2
456     , p2_a8 out nocopy  VARCHAR2
457     , p2_a9 out nocopy  VARCHAR2
458     , p2_a10 out nocopy  DATE
459     , p2_a11 out nocopy  NUMBER
460     , p2_a12 out nocopy  NUMBER
461     , p2_a13 out nocopy  NUMBER
462     , p2_a14 out nocopy  NUMBER
463     , p2_a15 out nocopy  VARCHAR2
464     , p2_a16 out nocopy  VARCHAR2
465     , p2_a17 out nocopy  VARCHAR2
466     , p2_a18 out nocopy  VARCHAR2
467     , p2_a19 out nocopy  VARCHAR2
468     , p2_a20 out nocopy  VARCHAR2
469     , p2_a21 out nocopy  VARCHAR2
470     , p2_a22 out nocopy  NUMBER
471     , p2_a23 out nocopy  VARCHAR2
472     , p2_a24 out nocopy  VARCHAR2
473     , p2_a25 out nocopy  NUMBER
474     , p2_a26 out nocopy  VARCHAR2
475     , p2_a27 out nocopy  NUMBER
476     , p2_a28 out nocopy  VARCHAR2
477     , p2_a29 out nocopy  DATE
478     , p2_a30 out nocopy  DATE
479     , p2_a31 out nocopy  DATE
480     , p2_a32 out nocopy  VARCHAR2
481     , p2_a33 out nocopy  DATE
482     , p2_a34 out nocopy  DATE
483     , p2_a35 out nocopy  DATE
484     , p2_a36 out nocopy  VARCHAR2
485     , p2_a37 out nocopy  NUMBER
486     , p2_a38 out nocopy  NUMBER
487     , p2_a39 out nocopy  NUMBER
488     , p2_a40 out nocopy  NUMBER
489     , p2_a41 out nocopy  NUMBER
490     , p2_a42 out nocopy  NUMBER
491     , p2_a43 out nocopy  VARCHAR2
492     , p2_a44 out nocopy  NUMBER
493     , p2_a45 out nocopy  NUMBER
494     , p2_a46 out nocopy  DATE
495     , p2_a47 out nocopy  DATE
496     , p2_a48 out nocopy  NUMBER
497     , p2_a49 out nocopy  NUMBER
498     , p2_a50 out nocopy  VARCHAR2
499     , p2_a51 out nocopy  VARCHAR2
500     , p2_a52 out nocopy  VARCHAR2
501     , p2_a53 out nocopy  DATE
502     , p2_a54 out nocopy  VARCHAR2
503     , p2_a55 out nocopy  NUMBER
504     , p2_a56 out nocopy  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     ddx_loan_term_rec lns_terms_pub.loan_term_rec_type;
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 
520 
521 
522     -- here's the delegated call to the old PL/SQL routine
523     lns_terms_pub.get_loan_term_rec(p_init_msg_list,
524       p_term_id,
525       ddx_loan_term_rec,
526       x_return_status,
527       x_msg_count,
528       x_msg_data);
529 
530     -- copy data back from the local variables to OUT or IN-OUT args, if any
531 
532 
533     p2_a0 := ddx_loan_term_rec.term_id;
534     p2_a1 := ddx_loan_term_rec.loan_id;
535     p2_a2 := ddx_loan_term_rec.day_count_method;
536     p2_a3 := ddx_loan_term_rec.based_on_balance;
537     p2_a4 := ddx_loan_term_rec.first_rate_change_date;
538     p2_a5 := ddx_loan_term_rec.next_rate_change_date;
539     p2_a6 := ddx_loan_term_rec.percent_increase;
540     p2_a7 := ddx_loan_term_rec.percent_increase_term;
541     p2_a8 := ddx_loan_term_rec.payment_application_order;
542     p2_a9 := ddx_loan_term_rec.prepay_penalty_flag;
543     p2_a10 := ddx_loan_term_rec.prepay_penalty_date;
544     p2_a11 := ddx_loan_term_rec.ceiling_rate;
545     p2_a12 := ddx_loan_term_rec.floor_rate;
546     p2_a13 := ddx_loan_term_rec.delinquency_threshold_number;
547     p2_a14 := ddx_loan_term_rec.delinquency_threshold_amount;
548     p2_a15 := ddx_loan_term_rec.calculation_method;
549     p2_a16 := ddx_loan_term_rec.reamortize_under_payment;
550     p2_a17 := ddx_loan_term_rec.reamortize_over_payment;
551     p2_a18 := ddx_loan_term_rec.reamortize_with_interest;
552     p2_a19 := ddx_loan_term_rec.loan_payment_frequency;
553     p2_a20 := ddx_loan_term_rec.interest_compounding_freq;
554     p2_a21 := ddx_loan_term_rec.amortization_frequency;
555     p2_a22 := ddx_loan_term_rec.number_grace_days;
556     p2_a23 := ddx_loan_term_rec.rate_type;
557     p2_a24 := ddx_loan_term_rec.index_name;
558     p2_a25 := ddx_loan_term_rec.adjustment_frequency;
559     p2_a26 := ddx_loan_term_rec.adjustment_frequency_type;
560     p2_a27 := ddx_loan_term_rec.fixed_rate_period;
561     p2_a28 := ddx_loan_term_rec.fixed_rate_period_type;
562     p2_a29 := ddx_loan_term_rec.first_payment_date;
563     p2_a30 := ddx_loan_term_rec.next_payment_due_date;
564     p2_a31 := ddx_loan_term_rec.open_first_payment_date;
565     p2_a32 := ddx_loan_term_rec.open_payment_frequency;
566     p2_a33 := ddx_loan_term_rec.open_next_payment_date;
567     p2_a34 := ddx_loan_term_rec.lock_in_date;
568     p2_a35 := ddx_loan_term_rec.lock_to_date;
569     p2_a36 := ddx_loan_term_rec.rate_change_frequency;
570     p2_a37 := ddx_loan_term_rec.index_rate_id;
571     p2_a38 := ddx_loan_term_rec.percent_increase_life;
572     p2_a39 := ddx_loan_term_rec.first_percent_increase;
573     p2_a40 := ddx_loan_term_rec.open_percent_increase;
574     p2_a41 := ddx_loan_term_rec.open_percent_increase_life;
575     p2_a42 := ddx_loan_term_rec.open_first_percent_increase;
576     p2_a43 := ddx_loan_term_rec.pmt_appl_order_scope;
577     p2_a44 := ddx_loan_term_rec.open_ceiling_rate;
578     p2_a45 := ddx_loan_term_rec.open_floor_rate;
579     p2_a46 := ddx_loan_term_rec.open_index_date;
580     p2_a47 := ddx_loan_term_rec.term_index_date;
581     p2_a48 := ddx_loan_term_rec.open_projected_rate;
582     p2_a49 := ddx_loan_term_rec.term_projected_rate;
583     p2_a50 := ddx_loan_term_rec.payment_calc_method;
584     p2_a51 := ddx_loan_term_rec.custom_calc_method;
585     p2_a52 := ddx_loan_term_rec.orig_pay_calc_method;
586     p2_a53 := ddx_loan_term_rec.prin_first_pay_date;
587     p2_a54 := ddx_loan_term_rec.prin_payment_frequency;
588     p2_a55 := ddx_loan_term_rec.penal_int_rate;
589     p2_a56 := ddx_loan_term_rec.penal_int_grace_days;
590 
591 
592 
593   end;
594 
595 end lns_terms_pub_w;