[Home] [Help]
PACKAGE BODY: APPS.LNS_BILLING_BATCH_PUB_W
Source
1 package body lns_billing_batch_pub_w as
2 /* $Header: LNS_BILL_PUBJ_B.pls 120.2 2005/07/13 13:47 scherkas noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy lns_billing_batch_pub.loans_to_bill_tbl, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_VARCHAR2_TABLE_300
7 , a4 JTF_NUMBER_TABLE
8 , a5 JTF_DATE_TABLE
9 , a6 JTF_DATE_TABLE
10 , a7 JTF_DATE_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_NUMBER_TABLE
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_NUMBER_TABLE
17 , a14 JTF_VARCHAR2_TABLE_100
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_NUMBER_TABLE
20 , a17 JTF_NUMBER_TABLE
21 , a18 JTF_NUMBER_TABLE
22 , a19 JTF_NUMBER_TABLE
23 , a20 JTF_NUMBER_TABLE
24 , a21 JTF_NUMBER_TABLE
25 , a22 JTF_NUMBER_TABLE
26 , a23 JTF_NUMBER_TABLE
27 , a24 JTF_VARCHAR2_TABLE_100
28 , a25 JTF_DATE_TABLE
29 , a26 JTF_NUMBER_TABLE
30 , a27 JTF_NUMBER_TABLE
31 , a28 JTF_NUMBER_TABLE
32 , a29 JTF_VARCHAR2_TABLE_100
33 ) as
34 ddindx binary_integer; indx binary_integer;
35 begin
36 if a0 is not null and a0.count > 0 then
37 if a0.count > 0 then
38 indx := a0.first;
39 ddindx := 1;
40 while true loop
41 t(ddindx).loan_id := a0(indx);
42 t(ddindx).object_version_number := a1(indx);
43 t(ddindx).loan_number := a2(indx);
44 t(ddindx).loan_description := a3(indx);
45 t(ddindx).funded_amount := a4(indx);
46 t(ddindx).first_payment_date := a5(indx);
47 t(ddindx).next_payment_due_date := a6(indx);
48 t(ddindx).next_payment_late_date := a7(indx);
49 t(ddindx).billed_flag := a8(indx);
50 t(ddindx).loan_currency := a9(indx);
51 t(ddindx).cust_account_id := a10(indx);
52 t(ddindx).bill_to_address_id := a11(indx);
53 t(ddindx).loan_payment_frequency := a12(indx);
54 t(ddindx).number_grace_days := a13(indx);
55 t(ddindx).payment_application_order := a14(indx);
56 t(ddindx).custom_payments_flag := a15(indx);
57 t(ddindx).last_payment_number := a16(indx);
58 t(ddindx).next_payment_number := a17(indx);
59 t(ddindx).next_principal_amount := a18(indx);
60 t(ddindx).next_interest_amount := a19(indx);
61 t(ddindx).next_fee_amount := a20(indx);
62 t(ddindx).next_amortization_id := a21(indx);
63 t(ddindx).rate_id := a22(indx);
64 t(ddindx).parent_amortization_id := a23(indx);
65 t(ddindx).exchange_rate_type := a24(indx);
66 t(ddindx).exchange_date := a25(indx);
67 t(ddindx).exchange_rate := a26(indx);
68 t(ddindx).org_id := a27(indx);
69 t(ddindx).legal_entity_id := a28(indx);
70 t(ddindx).current_phase := a29(indx);
71 ddindx := ddindx+1;
72 if a0.last =indx
73 then exit;
74 end if;
75 indx := a0.next(indx);
76 end loop;
77 end if;
78 end if;
79 end rosetta_table_copy_in_p1;
80 procedure rosetta_table_copy_out_p1(t lns_billing_batch_pub.loans_to_bill_tbl, a0 out nocopy JTF_NUMBER_TABLE
81 , a1 out nocopy JTF_NUMBER_TABLE
82 , a2 out nocopy JTF_VARCHAR2_TABLE_100
83 , a3 out nocopy JTF_VARCHAR2_TABLE_300
84 , a4 out nocopy JTF_NUMBER_TABLE
85 , a5 out nocopy JTF_DATE_TABLE
86 , a6 out nocopy JTF_DATE_TABLE
87 , a7 out nocopy JTF_DATE_TABLE
88 , a8 out nocopy JTF_VARCHAR2_TABLE_100
89 , a9 out nocopy JTF_VARCHAR2_TABLE_100
90 , a10 out nocopy JTF_NUMBER_TABLE
91 , a11 out nocopy JTF_NUMBER_TABLE
92 , a12 out nocopy JTF_VARCHAR2_TABLE_100
93 , a13 out nocopy JTF_NUMBER_TABLE
94 , a14 out nocopy JTF_VARCHAR2_TABLE_100
95 , a15 out nocopy JTF_VARCHAR2_TABLE_100
96 , a16 out nocopy JTF_NUMBER_TABLE
97 , a17 out nocopy JTF_NUMBER_TABLE
98 , a18 out nocopy JTF_NUMBER_TABLE
99 , a19 out nocopy JTF_NUMBER_TABLE
100 , a20 out nocopy JTF_NUMBER_TABLE
101 , a21 out nocopy JTF_NUMBER_TABLE
102 , a22 out nocopy JTF_NUMBER_TABLE
103 , a23 out nocopy JTF_NUMBER_TABLE
104 , a24 out nocopy JTF_VARCHAR2_TABLE_100
105 , a25 out nocopy JTF_DATE_TABLE
106 , a26 out nocopy JTF_NUMBER_TABLE
107 , a27 out nocopy JTF_NUMBER_TABLE
108 , a28 out nocopy JTF_NUMBER_TABLE
109 , a29 out nocopy JTF_VARCHAR2_TABLE_100
110 ) as
111 ddindx binary_integer; indx binary_integer;
112 begin
113 if t is null or t.count = 0 then
114 a0 := JTF_NUMBER_TABLE();
115 a1 := JTF_NUMBER_TABLE();
116 a2 := JTF_VARCHAR2_TABLE_100();
117 a3 := JTF_VARCHAR2_TABLE_300();
118 a4 := JTF_NUMBER_TABLE();
119 a5 := JTF_DATE_TABLE();
120 a6 := JTF_DATE_TABLE();
121 a7 := JTF_DATE_TABLE();
122 a8 := JTF_VARCHAR2_TABLE_100();
123 a9 := JTF_VARCHAR2_TABLE_100();
124 a10 := JTF_NUMBER_TABLE();
125 a11 := JTF_NUMBER_TABLE();
126 a12 := JTF_VARCHAR2_TABLE_100();
127 a13 := JTF_NUMBER_TABLE();
128 a14 := JTF_VARCHAR2_TABLE_100();
129 a15 := JTF_VARCHAR2_TABLE_100();
130 a16 := JTF_NUMBER_TABLE();
131 a17 := JTF_NUMBER_TABLE();
132 a18 := JTF_NUMBER_TABLE();
133 a19 := JTF_NUMBER_TABLE();
134 a20 := JTF_NUMBER_TABLE();
135 a21 := JTF_NUMBER_TABLE();
136 a22 := JTF_NUMBER_TABLE();
137 a23 := JTF_NUMBER_TABLE();
138 a24 := JTF_VARCHAR2_TABLE_100();
139 a25 := JTF_DATE_TABLE();
140 a26 := JTF_NUMBER_TABLE();
141 a27 := JTF_NUMBER_TABLE();
142 a28 := JTF_NUMBER_TABLE();
143 a29 := JTF_VARCHAR2_TABLE_100();
144 else
145 a0 := JTF_NUMBER_TABLE();
146 a1 := JTF_NUMBER_TABLE();
147 a2 := JTF_VARCHAR2_TABLE_100();
148 a3 := JTF_VARCHAR2_TABLE_300();
149 a4 := JTF_NUMBER_TABLE();
150 a5 := JTF_DATE_TABLE();
151 a6 := JTF_DATE_TABLE();
152 a7 := JTF_DATE_TABLE();
153 a8 := JTF_VARCHAR2_TABLE_100();
154 a9 := JTF_VARCHAR2_TABLE_100();
155 a10 := JTF_NUMBER_TABLE();
156 a11 := JTF_NUMBER_TABLE();
157 a12 := JTF_VARCHAR2_TABLE_100();
158 a13 := JTF_NUMBER_TABLE();
159 a14 := JTF_VARCHAR2_TABLE_100();
160 a15 := JTF_VARCHAR2_TABLE_100();
161 a16 := JTF_NUMBER_TABLE();
162 a17 := JTF_NUMBER_TABLE();
163 a18 := JTF_NUMBER_TABLE();
164 a19 := JTF_NUMBER_TABLE();
165 a20 := JTF_NUMBER_TABLE();
166 a21 := JTF_NUMBER_TABLE();
167 a22 := JTF_NUMBER_TABLE();
168 a23 := JTF_NUMBER_TABLE();
169 a24 := JTF_VARCHAR2_TABLE_100();
170 a25 := JTF_DATE_TABLE();
171 a26 := JTF_NUMBER_TABLE();
172 a27 := JTF_NUMBER_TABLE();
173 a28 := JTF_NUMBER_TABLE();
174 a29 := JTF_VARCHAR2_TABLE_100();
175 if t.count > 0 then
176 a0.extend(t.count);
177 a1.extend(t.count);
178 a2.extend(t.count);
179 a3.extend(t.count);
180 a4.extend(t.count);
181 a5.extend(t.count);
182 a6.extend(t.count);
183 a7.extend(t.count);
184 a8.extend(t.count);
185 a9.extend(t.count);
186 a10.extend(t.count);
187 a11.extend(t.count);
188 a12.extend(t.count);
189 a13.extend(t.count);
190 a14.extend(t.count);
191 a15.extend(t.count);
192 a16.extend(t.count);
193 a17.extend(t.count);
194 a18.extend(t.count);
195 a19.extend(t.count);
196 a20.extend(t.count);
197 a21.extend(t.count);
198 a22.extend(t.count);
199 a23.extend(t.count);
200 a24.extend(t.count);
201 a25.extend(t.count);
202 a26.extend(t.count);
203 a27.extend(t.count);
204 a28.extend(t.count);
205 a29.extend(t.count);
206 ddindx := t.first;
207 indx := 1;
208 while true loop
209 a0(indx) := t(ddindx).loan_id;
210 a1(indx) := t(ddindx).object_version_number;
211 a2(indx) := t(ddindx).loan_number;
212 a3(indx) := t(ddindx).loan_description;
213 a4(indx) := t(ddindx).funded_amount;
214 a5(indx) := t(ddindx).first_payment_date;
215 a6(indx) := t(ddindx).next_payment_due_date;
216 a7(indx) := t(ddindx).next_payment_late_date;
217 a8(indx) := t(ddindx).billed_flag;
218 a9(indx) := t(ddindx).loan_currency;
219 a10(indx) := t(ddindx).cust_account_id;
220 a11(indx) := t(ddindx).bill_to_address_id;
221 a12(indx) := t(ddindx).loan_payment_frequency;
222 a13(indx) := t(ddindx).number_grace_days;
223 a14(indx) := t(ddindx).payment_application_order;
224 a15(indx) := t(ddindx).custom_payments_flag;
225 a16(indx) := t(ddindx).last_payment_number;
226 a17(indx) := t(ddindx).next_payment_number;
227 a18(indx) := t(ddindx).next_principal_amount;
228 a19(indx) := t(ddindx).next_interest_amount;
229 a20(indx) := t(ddindx).next_fee_amount;
230 a21(indx) := t(ddindx).next_amortization_id;
231 a22(indx) := t(ddindx).rate_id;
232 a23(indx) := t(ddindx).parent_amortization_id;
233 a24(indx) := t(ddindx).exchange_rate_type;
234 a25(indx) := t(ddindx).exchange_date;
235 a26(indx) := t(ddindx).exchange_rate;
236 a27(indx) := t(ddindx).org_id;
237 a28(indx) := t(ddindx).legal_entity_id;
238 a29(indx) := t(ddindx).current_phase;
239 indx := indx+1;
240 if t.last =ddindx
241 then exit;
242 end if;
243 ddindx := t.next(ddindx);
244 end loop;
245 end if;
246 end if;
247 end rosetta_table_copy_out_p1;
248
249 procedure rosetta_table_copy_in_p4(t out nocopy lns_billing_batch_pub.reverse_tbl, a0 JTF_VARCHAR2_TABLE_100
250 , a1 JTF_NUMBER_TABLE
251 , a2 JTF_NUMBER_TABLE
252 , a3 JTF_NUMBER_TABLE
253 , a4 JTF_VARCHAR2_TABLE_100
254 , a5 JTF_NUMBER_TABLE
255 , a6 JTF_NUMBER_TABLE
256 , a7 JTF_NUMBER_TABLE
257 ) as
258 ddindx binary_integer; indx binary_integer;
259 begin
260 if a0 is not null and a0.count > 0 then
261 if a0.count > 0 then
262 indx := a0.first;
263 ddindx := 1;
264 while true loop
265 t(ddindx).trx_number := a0(indx);
266 t(ddindx).customer_trx_id := a1(indx);
267 t(ddindx).payment_schedule_id := a2(indx);
268 t(ddindx).customer_trx_line_id := a3(indx);
269 t(ddindx).line_type := a4(indx);
270 t(ddindx).trx_amount := a5(indx);
271 t(ddindx).applied_amount := a6(indx);
272 t(ddindx).org_id := a7(indx);
273 ddindx := ddindx+1;
274 if a0.last =indx
275 then exit;
276 end if;
277 indx := a0.next(indx);
278 end loop;
279 end if;
280 end if;
281 end rosetta_table_copy_in_p4;
282 procedure rosetta_table_copy_out_p4(t lns_billing_batch_pub.reverse_tbl, a0 out nocopy JTF_VARCHAR2_TABLE_100
283 , a1 out nocopy JTF_NUMBER_TABLE
284 , a2 out nocopy JTF_NUMBER_TABLE
285 , a3 out nocopy JTF_NUMBER_TABLE
286 , a4 out nocopy JTF_VARCHAR2_TABLE_100
287 , a5 out nocopy JTF_NUMBER_TABLE
288 , a6 out nocopy JTF_NUMBER_TABLE
289 , a7 out nocopy JTF_NUMBER_TABLE
290 ) as
291 ddindx binary_integer; indx binary_integer;
292 begin
293 if t is null or t.count = 0 then
294 a0 := JTF_VARCHAR2_TABLE_100();
295 a1 := JTF_NUMBER_TABLE();
296 a2 := JTF_NUMBER_TABLE();
297 a3 := JTF_NUMBER_TABLE();
298 a4 := JTF_VARCHAR2_TABLE_100();
299 a5 := JTF_NUMBER_TABLE();
300 a6 := JTF_NUMBER_TABLE();
301 a7 := JTF_NUMBER_TABLE();
302 else
303 a0 := JTF_VARCHAR2_TABLE_100();
304 a1 := JTF_NUMBER_TABLE();
305 a2 := JTF_NUMBER_TABLE();
306 a3 := JTF_NUMBER_TABLE();
307 a4 := JTF_VARCHAR2_TABLE_100();
308 a5 := JTF_NUMBER_TABLE();
309 a6 := JTF_NUMBER_TABLE();
310 a7 := JTF_NUMBER_TABLE();
311 if t.count > 0 then
312 a0.extend(t.count);
313 a1.extend(t.count);
314 a2.extend(t.count);
315 a3.extend(t.count);
316 a4.extend(t.count);
317 a5.extend(t.count);
318 a6.extend(t.count);
319 a7.extend(t.count);
320 ddindx := t.first;
321 indx := 1;
322 while true loop
323 a0(indx) := t(ddindx).trx_number;
324 a1(indx) := t(ddindx).customer_trx_id;
325 a2(indx) := t(ddindx).payment_schedule_id;
326 a3(indx) := t(ddindx).customer_trx_line_id;
327 a4(indx) := t(ddindx).line_type;
328 a5(indx) := t(ddindx).trx_amount;
329 a6(indx) := t(ddindx).applied_amount;
330 a7(indx) := t(ddindx).org_id;
331 indx := indx+1;
332 if t.last =ddindx
333 then exit;
334 end if;
335 ddindx := t.next(ddindx);
336 end loop;
337 end if;
338 end if;
339 end rosetta_table_copy_out_p4;
340
341 procedure rosetta_table_copy_in_p6(t out nocopy lns_billing_batch_pub.bill_headers_tbl, a0 JTF_NUMBER_TABLE
342 , a1 JTF_NUMBER_TABLE
343 , a2 JTF_NUMBER_TABLE
344 , a3 JTF_DATE_TABLE
345 ) as
346 ddindx binary_integer; indx binary_integer;
347 begin
348 if a0 is not null and a0.count > 0 then
349 if a0.count > 0 then
350 indx := a0.first;
351 ddindx := 1;
352 while true loop
353 t(ddindx).header_id := a0(indx);
354 t(ddindx).loan_id := a1(indx);
355 t(ddindx).assoc_payment_num := a2(indx);
356 t(ddindx).due_date := a3(indx);
357 ddindx := ddindx+1;
358 if a0.last =indx
359 then exit;
360 end if;
361 indx := a0.next(indx);
362 end loop;
363 end if;
364 end if;
365 end rosetta_table_copy_in_p6;
366 procedure rosetta_table_copy_out_p6(t lns_billing_batch_pub.bill_headers_tbl, a0 out nocopy JTF_NUMBER_TABLE
367 , a1 out nocopy JTF_NUMBER_TABLE
368 , a2 out nocopy JTF_NUMBER_TABLE
369 , a3 out nocopy JTF_DATE_TABLE
370 ) as
371 ddindx binary_integer; indx binary_integer;
372 begin
373 if t is null or t.count = 0 then
374 a0 := JTF_NUMBER_TABLE();
375 a1 := JTF_NUMBER_TABLE();
376 a2 := JTF_NUMBER_TABLE();
377 a3 := JTF_DATE_TABLE();
378 else
379 a0 := JTF_NUMBER_TABLE();
380 a1 := JTF_NUMBER_TABLE();
381 a2 := JTF_NUMBER_TABLE();
382 a3 := JTF_DATE_TABLE();
383 if t.count > 0 then
384 a0.extend(t.count);
385 a1.extend(t.count);
386 a2.extend(t.count);
387 a3.extend(t.count);
388 ddindx := t.first;
389 indx := 1;
390 while true loop
391 a0(indx) := t(ddindx).header_id;
392 a1(indx) := t(ddindx).loan_id;
393 a2(indx) := t(ddindx).assoc_payment_num;
394 a3(indx) := t(ddindx).due_date;
395 indx := indx+1;
396 if t.last =ddindx
397 then exit;
398 end if;
399 ddindx := t.next(ddindx);
400 end loop;
401 end if;
402 end if;
403 end rosetta_table_copy_out_p6;
404
405 procedure rosetta_table_copy_in_p8(t out nocopy lns_billing_batch_pub.bill_lines_tbl, a0 JTF_NUMBER_TABLE
406 , a1 JTF_NUMBER_TABLE
407 , a2 JTF_NUMBER_TABLE
408 , a3 JTF_NUMBER_TABLE
409 , a4 JTF_NUMBER_TABLE
410 , a5 JTF_NUMBER_TABLE
411 , a6 JTF_NUMBER_TABLE
412 , a7 JTF_VARCHAR2_TABLE_100
413 , a8 JTF_VARCHAR2_TABLE_300
414 , a9 JTF_NUMBER_TABLE
415 , a10 JTF_NUMBER_TABLE
416 , a11 JTF_NUMBER_TABLE
417 , a12 JTF_NUMBER_TABLE
418 ) as
419 ddindx binary_integer; indx binary_integer;
420 begin
421 if a0 is not null and a0.count > 0 then
422 if a0.count > 0 then
423 indx := a0.first;
424 ddindx := 1;
425 while true loop
426 t(ddindx).header_id := a0(indx);
427 t(ddindx).line_id := a1(indx);
428 t(ddindx).customer_trx_id := a2(indx);
429 t(ddindx).payment_schedule_id := a3(indx);
430 t(ddindx).customer_trx_line_id := a4(indx);
431 t(ddindx).line_ref_id := a5(indx);
432 t(ddindx).line_amount := a6(indx);
433 t(ddindx).line_type := a7(indx);
434 t(ddindx).line_desc := a8(indx);
435 t(ddindx).cash_receipt_id := a9(indx);
436 t(ddindx).apply_amount := a10(indx);
437 t(ddindx).payment_order := a11(indx);
438 t(ddindx).fee_schedule_id := a12(indx);
439 ddindx := ddindx+1;
440 if a0.last =indx
441 then exit;
442 end if;
443 indx := a0.next(indx);
444 end loop;
445 end if;
446 end if;
447 end rosetta_table_copy_in_p8;
448 procedure rosetta_table_copy_out_p8(t lns_billing_batch_pub.bill_lines_tbl, a0 out nocopy JTF_NUMBER_TABLE
449 , a1 out nocopy JTF_NUMBER_TABLE
450 , a2 out nocopy JTF_NUMBER_TABLE
451 , a3 out nocopy JTF_NUMBER_TABLE
452 , a4 out nocopy JTF_NUMBER_TABLE
453 , a5 out nocopy JTF_NUMBER_TABLE
454 , a6 out nocopy JTF_NUMBER_TABLE
455 , a7 out nocopy JTF_VARCHAR2_TABLE_100
456 , a8 out nocopy JTF_VARCHAR2_TABLE_300
457 , a9 out nocopy JTF_NUMBER_TABLE
458 , a10 out nocopy JTF_NUMBER_TABLE
459 , a11 out nocopy JTF_NUMBER_TABLE
460 , a12 out nocopy JTF_NUMBER_TABLE
461 ) as
462 ddindx binary_integer; indx binary_integer;
463 begin
464 if t is null or t.count = 0 then
465 a0 := JTF_NUMBER_TABLE();
466 a1 := JTF_NUMBER_TABLE();
467 a2 := JTF_NUMBER_TABLE();
468 a3 := JTF_NUMBER_TABLE();
469 a4 := JTF_NUMBER_TABLE();
470 a5 := JTF_NUMBER_TABLE();
471 a6 := JTF_NUMBER_TABLE();
472 a7 := JTF_VARCHAR2_TABLE_100();
473 a8 := JTF_VARCHAR2_TABLE_300();
474 a9 := JTF_NUMBER_TABLE();
475 a10 := JTF_NUMBER_TABLE();
476 a11 := JTF_NUMBER_TABLE();
477 a12 := JTF_NUMBER_TABLE();
478 else
479 a0 := JTF_NUMBER_TABLE();
480 a1 := JTF_NUMBER_TABLE();
481 a2 := JTF_NUMBER_TABLE();
482 a3 := JTF_NUMBER_TABLE();
483 a4 := JTF_NUMBER_TABLE();
484 a5 := JTF_NUMBER_TABLE();
485 a6 := JTF_NUMBER_TABLE();
486 a7 := JTF_VARCHAR2_TABLE_100();
487 a8 := JTF_VARCHAR2_TABLE_300();
488 a9 := JTF_NUMBER_TABLE();
489 a10 := JTF_NUMBER_TABLE();
490 a11 := JTF_NUMBER_TABLE();
491 a12 := JTF_NUMBER_TABLE();
492 if t.count > 0 then
493 a0.extend(t.count);
494 a1.extend(t.count);
495 a2.extend(t.count);
496 a3.extend(t.count);
497 a4.extend(t.count);
498 a5.extend(t.count);
499 a6.extend(t.count);
500 a7.extend(t.count);
501 a8.extend(t.count);
502 a9.extend(t.count);
503 a10.extend(t.count);
504 a11.extend(t.count);
505 a12.extend(t.count);
506 ddindx := t.first;
507 indx := 1;
508 while true loop
509 a0(indx) := t(ddindx).header_id;
510 a1(indx) := t(ddindx).line_id;
511 a2(indx) := t(ddindx).customer_trx_id;
512 a3(indx) := t(ddindx).payment_schedule_id;
513 a4(indx) := t(ddindx).customer_trx_line_id;
514 a5(indx) := t(ddindx).line_ref_id;
515 a6(indx) := t(ddindx).line_amount;
516 a7(indx) := t(ddindx).line_type;
517 a8(indx) := t(ddindx).line_desc;
518 a9(indx) := t(ddindx).cash_receipt_id;
519 a10(indx) := t(ddindx).apply_amount;
520 a11(indx) := t(ddindx).payment_order;
521 a12(indx) := t(ddindx).fee_schedule_id;
522 indx := indx+1;
523 if t.last =ddindx
524 then exit;
525 end if;
526 ddindx := t.next(ddindx);
527 end loop;
528 end if;
529 end if;
530 end rosetta_table_copy_out_p8;
531
532 procedure create_single_offcycle_bill(p_api_version NUMBER
533 , p_init_msg_list VARCHAR2
534 , p_commit VARCHAR2
535 , p_validation_level NUMBER
536 , p4_a0 NUMBER
537 , p4_a1 NUMBER
538 , p4_a2 NUMBER
539 , p4_a3 DATE
540 , p5_a0 JTF_NUMBER_TABLE
541 , p5_a1 JTF_NUMBER_TABLE
542 , p5_a2 JTF_NUMBER_TABLE
543 , p5_a3 JTF_NUMBER_TABLE
544 , p5_a4 JTF_NUMBER_TABLE
545 , p5_a5 JTF_NUMBER_TABLE
546 , p5_a6 JTF_NUMBER_TABLE
547 , p5_a7 JTF_VARCHAR2_TABLE_100
548 , p5_a8 JTF_VARCHAR2_TABLE_300
549 , p5_a9 JTF_NUMBER_TABLE
550 , p5_a10 JTF_NUMBER_TABLE
551 , p5_a11 JTF_NUMBER_TABLE
552 , p5_a12 JTF_NUMBER_TABLE
553 , x_return_status out nocopy VARCHAR2
554 , x_msg_count out nocopy NUMBER
555 , x_msg_data out nocopy VARCHAR2
556 )
557
558 as
559 ddp_bill_header_rec lns_billing_batch_pub.bill_header_rec;
560 ddp_bill_lines_tbl lns_billing_batch_pub.bill_lines_tbl;
561 ddindx binary_integer; indx binary_integer;
562 begin
563
564 -- copy data to the local IN or IN-OUT args, if any
565
566
567
568
569 ddp_bill_header_rec.header_id := p4_a0;
570 ddp_bill_header_rec.loan_id := p4_a1;
571 ddp_bill_header_rec.assoc_payment_num := p4_a2;
572 ddp_bill_header_rec.due_date := p4_a3;
573
574 lns_billing_batch_pub_w.rosetta_table_copy_in_p8(ddp_bill_lines_tbl, p5_a0
575 , p5_a1
576 , p5_a2
577 , p5_a3
578 , p5_a4
579 , p5_a5
580 , p5_a6
581 , p5_a7
582 , p5_a8
583 , p5_a9
584 , p5_a10
585 , p5_a11
586 , p5_a12
587 );
588
589
590
591
592 -- here's the delegated call to the old PL/SQL routine
593 lns_billing_batch_pub.create_single_offcycle_bill(p_api_version,
594 p_init_msg_list,
595 p_commit,
596 p_validation_level,
597 ddp_bill_header_rec,
598 ddp_bill_lines_tbl,
599 x_return_status,
600 x_msg_count,
601 x_msg_data);
602
603 -- copy data back from the local variables to OUT or IN-OUT args, if any
604
605
606
607
608
609
610
611
612 end;
613
614 procedure create_offcycle_bills(p_api_version NUMBER
615 , p_init_msg_list VARCHAR2
616 , p_commit VARCHAR2
617 , p_validation_level NUMBER
618 , p4_a0 JTF_NUMBER_TABLE
619 , p4_a1 JTF_NUMBER_TABLE
620 , p4_a2 JTF_NUMBER_TABLE
621 , p4_a3 JTF_DATE_TABLE
622 , p5_a0 JTF_NUMBER_TABLE
623 , p5_a1 JTF_NUMBER_TABLE
624 , p5_a2 JTF_NUMBER_TABLE
625 , p5_a3 JTF_NUMBER_TABLE
626 , p5_a4 JTF_NUMBER_TABLE
627 , p5_a5 JTF_NUMBER_TABLE
628 , p5_a6 JTF_NUMBER_TABLE
629 , p5_a7 JTF_VARCHAR2_TABLE_100
630 , p5_a8 JTF_VARCHAR2_TABLE_300
631 , p5_a9 JTF_NUMBER_TABLE
632 , p5_a10 JTF_NUMBER_TABLE
633 , p5_a11 JTF_NUMBER_TABLE
634 , p5_a12 JTF_NUMBER_TABLE
635 , x_return_status out nocopy VARCHAR2
636 , x_msg_count out nocopy NUMBER
637 , x_msg_data out nocopy VARCHAR2
638 )
639
640 as
641 ddp_bill_headers_tbl lns_billing_batch_pub.bill_headers_tbl;
642 ddp_bill_lines_tbl lns_billing_batch_pub.bill_lines_tbl;
643 ddindx binary_integer; indx binary_integer;
644 begin
645
646 -- copy data to the local IN or IN-OUT args, if any
647
648
649
650
651 lns_billing_batch_pub_w.rosetta_table_copy_in_p6(ddp_bill_headers_tbl, p4_a0
652 , p4_a1
653 , p4_a2
654 , p4_a3
655 );
656
657 lns_billing_batch_pub_w.rosetta_table_copy_in_p8(ddp_bill_lines_tbl, p5_a0
658 , p5_a1
659 , p5_a2
660 , p5_a3
661 , p5_a4
662 , p5_a5
663 , p5_a6
664 , p5_a7
665 , p5_a8
666 , p5_a9
667 , p5_a10
668 , p5_a11
669 , p5_a12
670 );
671
672
673
674
675 -- here's the delegated call to the old PL/SQL routine
676 lns_billing_batch_pub.create_offcycle_bills(p_api_version,
677 p_init_msg_list,
678 p_commit,
679 p_validation_level,
680 ddp_bill_headers_tbl,
681 ddp_bill_lines_tbl,
682 x_return_status,
683 x_msg_count,
684 x_msg_data);
685
686 -- copy data back from the local variables to OUT or IN-OUT args, if any
687
688
689
690
691
692
693
694
695 end;
696
697 end lns_billing_batch_pub_w;