[Home] [Help]
PACKAGE BODY: APPS.LNS_PAYOFF_PUB_W
Source
1 package body lns_payoff_pub_w as
2 /* $Header: LNS_PAYOFFJ_B.pls 120.0 2005/05/31 18:30:33 appldev noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy lns_payoff_pub.invoice_details_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_VARCHAR2_TABLE_100
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_VARCHAR2_TABLE_100
11 , a8 JTF_VARCHAR2_TABLE_100
12 ) as
13 ddindx binary_integer; indx binary_integer;
14 begin
15 if a0 is not null and a0.count > 0 then
16 if a0.count > 0 then
17 indx := a0.first;
18 ddindx := 1;
19 while true loop
20 t(ddindx).cust_trx_id := a0(indx);
21 t(ddindx).payment_schedule_id := a1(indx);
22 t(ddindx).invoice_number := a2(indx);
23 t(ddindx).installment_number := a3(indx);
24 t(ddindx).transaction_type := a4(indx);
25 t(ddindx).remaining_amount := a5(indx);
26 t(ddindx).due_date := a6(indx);
27 t(ddindx).purpose := a7(indx);
28 t(ddindx).billed_flag := a8(indx);
29 ddindx := ddindx+1;
30 if a0.last =indx
31 then exit;
32 end if;
33 indx := a0.next(indx);
34 end loop;
35 end if;
36 end if;
37 end rosetta_table_copy_in_p1;
38 procedure rosetta_table_copy_out_p1(t lns_payoff_pub.invoice_details_tbl, a0 out nocopy JTF_NUMBER_TABLE
39 , a1 out nocopy JTF_NUMBER_TABLE
40 , a2 out nocopy JTF_VARCHAR2_TABLE_100
41 , a3 out nocopy JTF_NUMBER_TABLE
42 , a4 out nocopy JTF_VARCHAR2_TABLE_100
43 , a5 out nocopy JTF_NUMBER_TABLE
44 , a6 out nocopy JTF_DATE_TABLE
45 , a7 out nocopy JTF_VARCHAR2_TABLE_100
46 , a8 out nocopy JTF_VARCHAR2_TABLE_100
47 ) as
48 ddindx binary_integer; indx binary_integer;
49 begin
50 if t is null or t.count = 0 then
51 a0 := JTF_NUMBER_TABLE();
52 a1 := JTF_NUMBER_TABLE();
53 a2 := JTF_VARCHAR2_TABLE_100();
54 a3 := JTF_NUMBER_TABLE();
55 a4 := JTF_VARCHAR2_TABLE_100();
56 a5 := JTF_NUMBER_TABLE();
57 a6 := JTF_DATE_TABLE();
58 a7 := JTF_VARCHAR2_TABLE_100();
59 a8 := JTF_VARCHAR2_TABLE_100();
60 else
61 a0 := JTF_NUMBER_TABLE();
62 a1 := JTF_NUMBER_TABLE();
63 a2 := JTF_VARCHAR2_TABLE_100();
64 a3 := JTF_NUMBER_TABLE();
65 a4 := JTF_VARCHAR2_TABLE_100();
66 a5 := JTF_NUMBER_TABLE();
67 a6 := JTF_DATE_TABLE();
68 a7 := JTF_VARCHAR2_TABLE_100();
69 a8 := JTF_VARCHAR2_TABLE_100();
70 if t.count > 0 then
71 a0.extend(t.count);
72 a1.extend(t.count);
73 a2.extend(t.count);
74 a3.extend(t.count);
75 a4.extend(t.count);
76 a5.extend(t.count);
77 a6.extend(t.count);
78 a7.extend(t.count);
79 a8.extend(t.count);
80 ddindx := t.first;
81 indx := 1;
82 while true loop
83 a0(indx) := t(ddindx).cust_trx_id;
84 a1(indx) := t(ddindx).payment_schedule_id;
85 a2(indx) := t(ddindx).invoice_number;
86 a3(indx) := t(ddindx).installment_number;
87 a4(indx) := t(ddindx).transaction_type;
88 a5(indx) := t(ddindx).remaining_amount;
89 a6(indx) := t(ddindx).due_date;
90 a7(indx) := t(ddindx).purpose;
91 a8(indx) := t(ddindx).billed_flag;
92 indx := indx+1;
93 if t.last =ddindx
94 then exit;
95 end if;
96 ddindx := t.next(ddindx);
97 end loop;
98 end if;
99 end if;
100 end rosetta_table_copy_out_p1;
101
102 procedure rosetta_table_copy_in_p3(t out nocopy lns_payoff_pub.cash_receipt_tbl, a0 JTF_NUMBER_TABLE
103 , a1 JTF_NUMBER_TABLE
104 , a2 JTF_VARCHAR2_TABLE_100
105 , a3 JTF_NUMBER_TABLE
106 , a4 JTF_DATE_TABLE
107 , a5 JTF_VARCHAR2_TABLE_100
108 , a6 JTF_VARCHAR2_TABLE_100
109 , a7 JTF_VARCHAR2_TABLE_100
110 ) as
111 ddindx binary_integer; indx binary_integer;
112 begin
113 if a0 is not null and a0.count > 0 then
114 if a0.count > 0 then
115 indx := a0.first;
116 ddindx := 1;
117 while true loop
118 t(ddindx).cash_receipt_id := a0(indx);
119 t(ddindx).receipt_amount := a1(indx);
120 t(ddindx).receipt_currency := a2(indx);
121 t(ddindx).exchange_rate := a3(indx);
122 t(ddindx).exchange_date := a4(indx);
123 t(ddindx).exchange_rate_type := a5(indx);
124 t(ddindx).original_currency := a6(indx);
125 t(ddindx).receipt_number := a7(indx);
126 ddindx := ddindx+1;
127 if a0.last =indx
128 then exit;
129 end if;
130 indx := a0.next(indx);
131 end loop;
132 end if;
133 end if;
134 end rosetta_table_copy_in_p3;
135 procedure rosetta_table_copy_out_p3(t lns_payoff_pub.cash_receipt_tbl, a0 out nocopy JTF_NUMBER_TABLE
136 , a1 out nocopy JTF_NUMBER_TABLE
137 , a2 out nocopy JTF_VARCHAR2_TABLE_100
138 , a3 out nocopy JTF_NUMBER_TABLE
139 , a4 out nocopy JTF_DATE_TABLE
140 , a5 out nocopy JTF_VARCHAR2_TABLE_100
141 , a6 out nocopy JTF_VARCHAR2_TABLE_100
142 , a7 out nocopy JTF_VARCHAR2_TABLE_100
143 ) as
144 ddindx binary_integer; indx binary_integer;
145 begin
146 if t is null or t.count = 0 then
147 a0 := JTF_NUMBER_TABLE();
148 a1 := JTF_NUMBER_TABLE();
149 a2 := JTF_VARCHAR2_TABLE_100();
150 a3 := JTF_NUMBER_TABLE();
151 a4 := JTF_DATE_TABLE();
152 a5 := JTF_VARCHAR2_TABLE_100();
153 a6 := JTF_VARCHAR2_TABLE_100();
154 a7 := JTF_VARCHAR2_TABLE_100();
155 else
156 a0 := JTF_NUMBER_TABLE();
157 a1 := JTF_NUMBER_TABLE();
158 a2 := JTF_VARCHAR2_TABLE_100();
159 a3 := JTF_NUMBER_TABLE();
160 a4 := JTF_DATE_TABLE();
161 a5 := JTF_VARCHAR2_TABLE_100();
162 a6 := JTF_VARCHAR2_TABLE_100();
163 a7 := JTF_VARCHAR2_TABLE_100();
164 if t.count > 0 then
165 a0.extend(t.count);
166 a1.extend(t.count);
167 a2.extend(t.count);
168 a3.extend(t.count);
169 a4.extend(t.count);
170 a5.extend(t.count);
171 a6.extend(t.count);
172 a7.extend(t.count);
173 ddindx := t.first;
174 indx := 1;
175 while true loop
176 a0(indx) := t(ddindx).cash_receipt_id;
177 a1(indx) := t(ddindx).receipt_amount;
178 a2(indx) := t(ddindx).receipt_currency;
179 a3(indx) := t(ddindx).exchange_rate;
180 a4(indx) := t(ddindx).exchange_date;
181 a5(indx) := t(ddindx).exchange_rate_type;
182 a6(indx) := t(ddindx).original_currency;
183 a7(indx) := t(ddindx).receipt_number;
184 indx := indx+1;
185 if t.last =ddindx
186 then exit;
187 end if;
188 ddindx := t.next(ddindx);
189 end loop;
190 end if;
191 end if;
192 end rosetta_table_copy_out_p3;
193
194 procedure processpayoff(p_api_version NUMBER
195 , p_init_msg_list VARCHAR2
196 , p_loan_id NUMBER
197 , p_payoff_date DATE
198 , p4_a0 JTF_NUMBER_TABLE
199 , p4_a1 JTF_NUMBER_TABLE
200 , p4_a2 JTF_VARCHAR2_TABLE_100
201 , p4_a3 JTF_NUMBER_TABLE
202 , p4_a4 JTF_DATE_TABLE
203 , p4_a5 JTF_VARCHAR2_TABLE_100
204 , p4_a6 JTF_VARCHAR2_TABLE_100
205 , p4_a7 JTF_VARCHAR2_TABLE_100
206 , x_return_status out nocopy VARCHAR2
207 , x_msg_count out nocopy NUMBER
208 , x_msg_data out nocopy VARCHAR2
209 )
210
211 as
212 ddp_cash_receipt_ids lns_payoff_pub.cash_receipt_tbl;
213 ddindx binary_integer; indx binary_integer;
214 begin
215
216 -- copy data to the local IN or IN-OUT args, if any
217
218
219
220
221 lns_payoff_pub_w.rosetta_table_copy_in_p3(ddp_cash_receipt_ids, p4_a0
222 , p4_a1
223 , p4_a2
224 , p4_a3
225 , p4_a4
226 , p4_a5
227 , p4_a6
228 , p4_a7
229 );
230
231
232
233
234 -- here's the delegated call to the old PL/SQL routine
235 lns_payoff_pub.processpayoff(p_api_version,
236 p_init_msg_list,
237 p_loan_id,
238 p_payoff_date,
239 ddp_cash_receipt_ids,
240 x_return_status,
241 x_msg_count,
242 x_msg_data);
243
244 -- copy data back from the local variables to OUT or IN-OUT args, if any
245
246
247
248
249
250
251
252 end;
253
254 procedure getloaninvoices(p_api_version NUMBER
255 , p_init_msg_list VARCHAR2
256 , p_loan_id NUMBER
257 , p_payoff_date DATE
258 , p4_a0 out nocopy JTF_NUMBER_TABLE
259 , p4_a1 out nocopy JTF_NUMBER_TABLE
260 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
261 , p4_a3 out nocopy JTF_NUMBER_TABLE
262 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
263 , p4_a5 out nocopy JTF_NUMBER_TABLE
264 , p4_a6 out nocopy JTF_DATE_TABLE
265 , p4_a7 out nocopy JTF_VARCHAR2_TABLE_100
266 , p4_a8 out nocopy JTF_VARCHAR2_TABLE_100
267 , x_return_status out nocopy VARCHAR2
268 , x_msg_count out nocopy NUMBER
269 , x_msg_data out nocopy VARCHAR2
270 )
271
272 as
273 ddx_invoices_tbl lns_payoff_pub.invoice_details_tbl;
274 ddindx binary_integer; indx binary_integer;
275 begin
276
277 -- copy data to the local IN or IN-OUT args, if any
278
279
280
281
282
283
284
285
286 -- here's the delegated call to the old PL/SQL routine
287 lns_payoff_pub.getloaninvoices(p_api_version,
288 p_init_msg_list,
289 p_loan_id,
290 p_payoff_date,
291 ddx_invoices_tbl,
292 x_return_status,
293 x_msg_count,
294 x_msg_data);
295
296 -- copy data back from the local variables to OUT or IN-OUT args, if any
297
298
299
300
301 lns_payoff_pub_w.rosetta_table_copy_out_p1(ddx_invoices_tbl, p4_a0
302 , p4_a1
303 , p4_a2
304 , p4_a3
305 , p4_a4
306 , p4_a5
307 , p4_a6
308 , p4_a7
309 , p4_a8
310 );
311
312
313
314 end;
315
316 end lns_payoff_pub_w;