[Home] [Help]
PACKAGE BODY: APPS.LNS_EXT_LOAN_PUB_W
Source
1 package body lns_ext_loan_pub_w as
2 /* $Header: LNS_EXT_LOAN_PUBJ_B.pls 120.0.12010000.1 2009/03/16 12:10:18 gparuchu noship $ */
3 procedure save_loan_extension(p_api_version NUMBER
4 , p_init_msg_list VARCHAR2
5 , p_commit VARCHAR2
6 , p_validation_level NUMBER
7 , p4_a0 in out nocopy NUMBER
8 , p4_a1 in out nocopy NUMBER
9 , p4_a2 in out nocopy VARCHAR2
10 , p4_a3 in out nocopy NUMBER
11 , p4_a4 in out nocopy VARCHAR2
12 , p4_a5 in out nocopy VARCHAR2
13 , p4_a6 in out nocopy NUMBER
14 , p4_a7 in out nocopy NUMBER
15 , p4_a8 in out nocopy NUMBER
16 , p4_a9 in out nocopy NUMBER
17 , p4_a10 in out nocopy VARCHAR2
18 , p4_a11 in out nocopy VARCHAR2
19 , p4_a12 in out nocopy DATE
20 , x_return_status out nocopy VARCHAR2
21 , x_msg_count out nocopy NUMBER
22 , x_msg_data out nocopy VARCHAR2
23 )
24
25 as
26 ddp_loan_ext_rec lns_ext_loan_pub.loan_ext_rec;
27 ddindx binary_integer; indx binary_integer;
28 begin
29
30 -- copy data to the local IN or IN-OUT args, if any
31
32
33
34
35 ddp_loan_ext_rec.loan_ext_id := p4_a0;
36 ddp_loan_ext_rec.loan_id := p4_a1;
37 ddp_loan_ext_rec.description := p4_a2;
38 ddp_loan_ext_rec.ext_term := p4_a3;
39 ddp_loan_ext_rec.ext_term_period := p4_a4;
40 ddp_loan_ext_rec.ext_balloon_type := p4_a5;
41 ddp_loan_ext_rec.ext_balloon_amount := p4_a6;
42 ddp_loan_ext_rec.ext_amort_term := p4_a7;
43 ddp_loan_ext_rec.ext_rate := p4_a8;
44 ddp_loan_ext_rec.ext_spread := p4_a9;
45 ddp_loan_ext_rec.ext_io_flag := p4_a10;
46 ddp_loan_ext_rec.ext_floating_flag := p4_a11;
47 ddp_loan_ext_rec.ext_index_date := p4_a12;
48
49
50
51
52 -- here's the delegated call to the old PL/SQL routine
53 lns_ext_loan_pub.save_loan_extension(p_api_version,
54 p_init_msg_list,
55 p_commit,
56 p_validation_level,
57 ddp_loan_ext_rec,
58 x_return_status,
59 x_msg_count,
60 x_msg_data);
61
62 -- copy data back from the local variables to OUT or IN-OUT args, if any
63
64
65
66
67 p4_a0 := ddp_loan_ext_rec.loan_ext_id;
68 p4_a1 := ddp_loan_ext_rec.loan_id;
69 p4_a2 := ddp_loan_ext_rec.description;
70 p4_a3 := ddp_loan_ext_rec.ext_term;
71 p4_a4 := ddp_loan_ext_rec.ext_term_period;
72 p4_a5 := ddp_loan_ext_rec.ext_balloon_type;
73 p4_a6 := ddp_loan_ext_rec.ext_balloon_amount;
74 p4_a7 := ddp_loan_ext_rec.ext_amort_term;
75 p4_a8 := ddp_loan_ext_rec.ext_rate;
76 p4_a9 := ddp_loan_ext_rec.ext_spread;
77 p4_a10 := ddp_loan_ext_rec.ext_io_flag;
78 p4_a11 := ddp_loan_ext_rec.ext_floating_flag;
79 p4_a12 := ddp_loan_ext_rec.ext_index_date;
80
81
82
83 end;
84
85 procedure calc_new_terms(p_api_version NUMBER
86 , p_init_msg_list VARCHAR2
87 , p_commit VARCHAR2
88 , p_validation_level NUMBER
89 , p4_a0 in out nocopy NUMBER
90 , p4_a1 in out nocopy NUMBER
91 , p4_a2 in out nocopy VARCHAR2
92 , p4_a3 in out nocopy VARCHAR2
93 , p4_a4 in out nocopy NUMBER
94 , p4_a5 in out nocopy NUMBER
95 , p4_a6 in out nocopy NUMBER
96 , p4_a7 in out nocopy VARCHAR2
97 , p4_a8 in out nocopy VARCHAR2
98 , p4_a9 in out nocopy NUMBER
99 , p4_a10 in out nocopy NUMBER
100 , p4_a11 in out nocopy DATE
101 , p4_a12 in out nocopy NUMBER
102 , p4_a13 in out nocopy NUMBER
103 , p4_a14 in out nocopy VARCHAR2
104 , p4_a15 in out nocopy VARCHAR2
105 , p4_a16 in out nocopy NUMBER
106 , p4_a17 in out nocopy NUMBER
107 , p4_a18 in out nocopy DATE
108 , p4_a19 in out nocopy NUMBER
109 , x_return_status out nocopy VARCHAR2
110 , x_msg_count out nocopy NUMBER
111 , x_msg_data out nocopy VARCHAR2
112 )
113
114 as
115 ddp_new_term_rec lns_ext_loan_pub.new_term_rec;
116 ddindx binary_integer; indx binary_integer;
117 begin
118
119 -- copy data to the local IN or IN-OUT args, if any
120
121
122
123
124 ddp_new_term_rec.loan_id := p4_a0;
125 ddp_new_term_rec.ext_term := p4_a1;
126 ddp_new_term_rec.ext_term_period := p4_a2;
127 ddp_new_term_rec.ext_balloon_type := p4_a3;
128 ddp_new_term_rec.ext_balloon_amount := p4_a4;
129 ddp_new_term_rec.ext_amort_term := p4_a5;
130 ddp_new_term_rec.old_term := p4_a6;
131 ddp_new_term_rec.old_term_period := p4_a7;
132 ddp_new_term_rec.old_balloon_type := p4_a8;
133 ddp_new_term_rec.old_balloon_amount := p4_a9;
134 ddp_new_term_rec.old_amort_term := p4_a10;
135 ddp_new_term_rec.old_maturity_date := p4_a11;
136 ddp_new_term_rec.old_installments := p4_a12;
137 ddp_new_term_rec.new_term := p4_a13;
138 ddp_new_term_rec.new_term_period := p4_a14;
139 ddp_new_term_rec.new_balloon_type := p4_a15;
140 ddp_new_term_rec.new_balloon_amount := p4_a16;
141 ddp_new_term_rec.new_amort_term := p4_a17;
142 ddp_new_term_rec.new_maturity_date := p4_a18;
143 ddp_new_term_rec.new_installments := p4_a19;
144
145
146
147
148 -- here's the delegated call to the old PL/SQL routine
149 lns_ext_loan_pub.calc_new_terms(p_api_version,
150 p_init_msg_list,
151 p_commit,
152 p_validation_level,
153 ddp_new_term_rec,
154 x_return_status,
155 x_msg_count,
156 x_msg_data);
157
158 -- copy data back from the local variables to OUT or IN-OUT args, if any
159
160
161
162
163 p4_a0 := ddp_new_term_rec.loan_id;
164 p4_a1 := ddp_new_term_rec.ext_term;
165 p4_a2 := ddp_new_term_rec.ext_term_period;
166 p4_a3 := ddp_new_term_rec.ext_balloon_type;
167 p4_a4 := ddp_new_term_rec.ext_balloon_amount;
168 p4_a5 := ddp_new_term_rec.ext_amort_term;
169 p4_a6 := ddp_new_term_rec.old_term;
170 p4_a7 := ddp_new_term_rec.old_term_period;
171 p4_a8 := ddp_new_term_rec.old_balloon_type;
172 p4_a9 := ddp_new_term_rec.old_balloon_amount;
173 p4_a10 := ddp_new_term_rec.old_amort_term;
174 p4_a11 := ddp_new_term_rec.old_maturity_date;
175 p4_a12 := ddp_new_term_rec.old_installments;
176 p4_a13 := ddp_new_term_rec.new_term;
177 p4_a14 := ddp_new_term_rec.new_term_period;
178 p4_a15 := ddp_new_term_rec.new_balloon_type;
179 p4_a16 := ddp_new_term_rec.new_balloon_amount;
180 p4_a17 := ddp_new_term_rec.new_amort_term;
181 p4_a18 := ddp_new_term_rec.new_maturity_date;
182 p4_a19 := ddp_new_term_rec.new_installments;
183
184
185
186 end;
187
188 end lns_ext_loan_pub_w;