DBA Data[Home] [Help]

PACKAGE BODY: APPS.LNS_FUNDING_PUB_W

Source


1 package body lns_funding_pub_w as
2   /* $Header: LNS_FUND_PUBJ_B.pls 120.16 2005/12/12 10:19 scherkas noship $ */
3   procedure get_default_payment_attributes(p_api_version  NUMBER
4     , p_init_msg_list  VARCHAR2
5     , p_commit  VARCHAR2
6     , p_validation_level  NUMBER
7     , p4_a0  NUMBER
8     , p4_a1  NUMBER
9     , p4_a2  NUMBER
10     , p4_a3  VARCHAR2
11     , p4_a4  NUMBER
12     , p4_a5  NUMBER
13     , p4_a6  NUMBER
14     , p4_a7  VARCHAR2
15     , p4_a8  VARCHAR2
16     , p4_a9  NUMBER
17     , p4_a10  VARCHAR2
18     , p5_a0 out nocopy  VARCHAR2
19     , p5_a1 out nocopy  VARCHAR2
20     , p5_a2 out nocopy  NUMBER
21     , p5_a3 out nocopy  VARCHAR2
22     , p5_a4 out nocopy  VARCHAR2
23     , x_return_status out nocopy  VARCHAR2
24     , x_msg_count out nocopy  NUMBER
25     , x_msg_data out nocopy  VARCHAR2
26   )
27 
28   as
29     ddp_trxn_attributes_rec lns_funding_pub.trxn_attributes_rec_type;
30     ddx_default_pmt_attrs_rec lns_funding_pub.default_pmt_attrs_rec_type;
31     ddindx binary_integer; indx binary_integer;
32   begin
33 
34     -- copy data to the local IN or IN-OUT args, if any
35 
36 
37 
38 
39     ddp_trxn_attributes_rec.application_id := p4_a0;
40     ddp_trxn_attributes_rec.payer_legal_entity_id := p4_a1;
41     ddp_trxn_attributes_rec.payer_org_id := p4_a2;
42     ddp_trxn_attributes_rec.payer_org_type := p4_a3;
43     ddp_trxn_attributes_rec.payee_party_id := p4_a4;
44     ddp_trxn_attributes_rec.payee_party_site_id := p4_a5;
45     ddp_trxn_attributes_rec.supplier_site_id := p4_a6;
46     ddp_trxn_attributes_rec.pay_proc_trxn_type_code := p4_a7;
47     ddp_trxn_attributes_rec.payment_currency := p4_a8;
48     ddp_trxn_attributes_rec.payment_amount := p4_a9;
49     ddp_trxn_attributes_rec.payment_function := p4_a10;
50 
51 
52 
53 
54 
55     -- here's the delegated call to the old PL/SQL routine
56     lns_funding_pub.get_default_payment_attributes(p_api_version,
57       p_init_msg_list,
58       p_commit,
59       p_validation_level,
60       ddp_trxn_attributes_rec,
61       ddx_default_pmt_attrs_rec,
62       x_return_status,
63       x_msg_count,
64       x_msg_data);
65 
66     -- copy data back from the local variables to OUT or IN-OUT args, if any
67 
68 
69 
70 
71 
72     p5_a0 := ddx_default_pmt_attrs_rec.payment_method_name;
73     p5_a1 := ddx_default_pmt_attrs_rec.payment_method_code;
74     p5_a2 := ddx_default_pmt_attrs_rec.payee_bankaccount_id;
75     p5_a3 := ddx_default_pmt_attrs_rec.payee_bankaccount_number;
76     p5_a4 := ddx_default_pmt_attrs_rec.payee_bankaccount_name;
77 
78 
79 
80   end;
81 
82   procedure insert_disb_header(p_api_version  NUMBER
83     , p_init_msg_list  VARCHAR2
84     , p_commit  VARCHAR2
85     , p_validation_level  NUMBER
86     , p4_a0  NUMBER
87     , p4_a1  NUMBER
88     , p4_a2  VARCHAR2
89     , p4_a3  NUMBER
90     , p4_a4  NUMBER
91     , p4_a5  NUMBER
92     , p4_a6  VARCHAR2
93     , p4_a7  DATE
94     , p4_a8  DATE
95     , p4_a9  NUMBER
96     , p4_a10  VARCHAR2
97     , x_return_status out nocopy  VARCHAR2
98     , x_msg_count out nocopy  NUMBER
99     , x_msg_data out nocopy  VARCHAR2
100   )
101 
102   as
103     ddp_disb_header_rec lns_funding_pub.lns_disb_headers_rec;
104     ddindx binary_integer; indx binary_integer;
105   begin
106 
107     -- copy data to the local IN or IN-OUT args, if any
108 
109 
110 
111 
112     ddp_disb_header_rec.disb_header_id := p4_a0;
113     ddp_disb_header_rec.loan_id := p4_a1;
114     ddp_disb_header_rec.activity_code := p4_a2;
115     ddp_disb_header_rec.disbursement_number := p4_a3;
116     ddp_disb_header_rec.header_amount := p4_a4;
117     ddp_disb_header_rec.header_percent := p4_a5;
118     ddp_disb_header_rec.status := p4_a6;
119     ddp_disb_header_rec.target_date := p4_a7;
120     ddp_disb_header_rec.payment_request_date := p4_a8;
121     ddp_disb_header_rec.object_version_number := p4_a9;
122     ddp_disb_header_rec.autofunding_flag := p4_a10;
123 
124 
125 
126 
127     -- here's the delegated call to the old PL/SQL routine
128     lns_funding_pub.insert_disb_header(p_api_version,
129       p_init_msg_list,
130       p_commit,
131       p_validation_level,
132       ddp_disb_header_rec,
133       x_return_status,
134       x_msg_count,
135       x_msg_data);
136 
137     -- copy data back from the local variables to OUT or IN-OUT args, if any
138 
139 
140 
141 
142 
143 
144 
145   end;
146 
147   procedure update_disb_header(p_api_version  NUMBER
148     , p_init_msg_list  VARCHAR2
149     , p_commit  VARCHAR2
150     , p_validation_level  NUMBER
151     , p4_a0  NUMBER
152     , p4_a1  NUMBER
153     , p4_a2  VARCHAR2
154     , p4_a3  NUMBER
155     , p4_a4  NUMBER
156     , p4_a5  NUMBER
157     , p4_a6  VARCHAR2
158     , p4_a7  DATE
159     , p4_a8  DATE
160     , p4_a9  NUMBER
161     , p4_a10  VARCHAR2
162     , x_return_status out nocopy  VARCHAR2
163     , x_msg_count out nocopy  NUMBER
164     , x_msg_data out nocopy  VARCHAR2
165   )
166 
167   as
168     ddp_disb_header_rec lns_funding_pub.lns_disb_headers_rec;
169     ddindx binary_integer; indx binary_integer;
170   begin
171 
172     -- copy data to the local IN or IN-OUT args, if any
173 
174 
175 
176 
177     ddp_disb_header_rec.disb_header_id := p4_a0;
178     ddp_disb_header_rec.loan_id := p4_a1;
179     ddp_disb_header_rec.activity_code := p4_a2;
180     ddp_disb_header_rec.disbursement_number := p4_a3;
181     ddp_disb_header_rec.header_amount := p4_a4;
182     ddp_disb_header_rec.header_percent := p4_a5;
183     ddp_disb_header_rec.status := p4_a6;
184     ddp_disb_header_rec.target_date := p4_a7;
185     ddp_disb_header_rec.payment_request_date := p4_a8;
186     ddp_disb_header_rec.object_version_number := p4_a9;
187     ddp_disb_header_rec.autofunding_flag := p4_a10;
188 
189 
190 
191 
192     -- here's the delegated call to the old PL/SQL routine
193     lns_funding_pub.update_disb_header(p_api_version,
194       p_init_msg_list,
195       p_commit,
196       p_validation_level,
197       ddp_disb_header_rec,
198       x_return_status,
199       x_msg_count,
200       x_msg_data);
201 
202     -- copy data back from the local variables to OUT or IN-OUT args, if any
203 
204 
205 
206 
207 
208 
209 
210   end;
211 
212   procedure insert_disb_line(p_api_version  NUMBER
213     , p_init_msg_list  VARCHAR2
214     , p_commit  VARCHAR2
215     , p_validation_level  NUMBER
216     , p4_a0  NUMBER
217     , p4_a1  NUMBER
218     , p4_a2  NUMBER
219     , p4_a3  NUMBER
220     , p4_a4  NUMBER
221     , p4_a5  NUMBER
222     , p4_a6  NUMBER
223     , p4_a7  VARCHAR2
224     , p4_a8  VARCHAR2
225     , p4_a9  DATE
226     , p4_a10  DATE
227     , p4_a11  NUMBER
228     , p4_a12  NUMBER
229     , p4_a13  NUMBER
230     , x_return_status out nocopy  VARCHAR2
231     , x_msg_count out nocopy  NUMBER
232     , x_msg_data out nocopy  VARCHAR2
233   )
234 
235   as
236     ddp_disb_line_rec lns_funding_pub.lns_disb_lines_rec;
237     ddindx binary_integer; indx binary_integer;
238   begin
239 
240     -- copy data to the local IN or IN-OUT args, if any
241 
242 
243 
244 
245     ddp_disb_line_rec.disb_line_id := p4_a0;
246     ddp_disb_line_rec.disb_header_id := p4_a1;
247     ddp_disb_line_rec.disb_line_number := p4_a2;
248     ddp_disb_line_rec.line_amount := p4_a3;
249     ddp_disb_line_rec.line_percent := p4_a4;
250     ddp_disb_line_rec.payee_party_id := p4_a5;
251     ddp_disb_line_rec.bank_account_id := p4_a6;
252     ddp_disb_line_rec.payment_method_code := p4_a7;
253     ddp_disb_line_rec.status := p4_a8;
254     ddp_disb_line_rec.request_date := p4_a9;
255     ddp_disb_line_rec.disbursement_date := p4_a10;
256     ddp_disb_line_rec.object_version_number := p4_a11;
257     ddp_disb_line_rec.invoice_interface_id := p4_a12;
258     ddp_disb_line_rec.invoice_id := p4_a13;
259 
260 
261 
262 
263     -- here's the delegated call to the old PL/SQL routine
264     lns_funding_pub.insert_disb_line(p_api_version,
265       p_init_msg_list,
266       p_commit,
267       p_validation_level,
268       ddp_disb_line_rec,
269       x_return_status,
270       x_msg_count,
271       x_msg_data);
272 
273     -- copy data back from the local variables to OUT or IN-OUT args, if any
274 
275 
276 
277 
278 
279 
280 
281   end;
282 
283   procedure update_disb_line(p_api_version  NUMBER
284     , p_init_msg_list  VARCHAR2
285     , p_commit  VARCHAR2
286     , p_validation_level  NUMBER
287     , p4_a0  NUMBER
288     , p4_a1  NUMBER
289     , p4_a2  NUMBER
290     , p4_a3  NUMBER
291     , p4_a4  NUMBER
292     , p4_a5  NUMBER
293     , p4_a6  NUMBER
294     , p4_a7  VARCHAR2
295     , p4_a8  VARCHAR2
296     , p4_a9  DATE
297     , p4_a10  DATE
298     , p4_a11  NUMBER
299     , p4_a12  NUMBER
300     , p4_a13  NUMBER
301     , x_return_status out nocopy  VARCHAR2
302     , x_msg_count out nocopy  NUMBER
303     , x_msg_data out nocopy  VARCHAR2
304   )
305 
306   as
307     ddp_disb_line_rec lns_funding_pub.lns_disb_lines_rec;
308     ddindx binary_integer; indx binary_integer;
309   begin
310 
311     -- copy data to the local IN or IN-OUT args, if any
312 
313 
314 
315 
316     ddp_disb_line_rec.disb_line_id := p4_a0;
317     ddp_disb_line_rec.disb_header_id := p4_a1;
318     ddp_disb_line_rec.disb_line_number := p4_a2;
319     ddp_disb_line_rec.line_amount := p4_a3;
320     ddp_disb_line_rec.line_percent := p4_a4;
321     ddp_disb_line_rec.payee_party_id := p4_a5;
322     ddp_disb_line_rec.bank_account_id := p4_a6;
323     ddp_disb_line_rec.payment_method_code := p4_a7;
324     ddp_disb_line_rec.status := p4_a8;
325     ddp_disb_line_rec.request_date := p4_a9;
326     ddp_disb_line_rec.disbursement_date := p4_a10;
327     ddp_disb_line_rec.object_version_number := p4_a11;
328     ddp_disb_line_rec.invoice_interface_id := p4_a12;
329     ddp_disb_line_rec.invoice_id := p4_a13;
330 
331 
332 
333 
334     -- here's the delegated call to the old PL/SQL routine
335     lns_funding_pub.update_disb_line(p_api_version,
336       p_init_msg_list,
337       p_commit,
338       p_validation_level,
339       ddp_disb_line_rec,
340       x_return_status,
341       x_msg_count,
342       x_msg_data);
343 
344     -- copy data back from the local variables to OUT or IN-OUT args, if any
345 
346 
347 
348 
349 
350 
351 
352   end;
353 
354   procedure create_payee(p_api_version  NUMBER
355     , p_init_msg_list  VARCHAR2
356     , p_commit  VARCHAR2
357     , p_validation_level  NUMBER
358     , p4_a0  VARCHAR2
359     , p4_a1  VARCHAR2
360     , p4_a2  VARCHAR2
361     , p4_a3  VARCHAR2
362     , p4_a4  VARCHAR2
363     , x_payee_id out nocopy  NUMBER
364     , x_return_status out nocopy  VARCHAR2
365     , x_msg_count out nocopy  NUMBER
366     , x_msg_data out nocopy  VARCHAR2
367   )
368 
369   as
370     ddp_payee_rec lns_funding_pub.loan_payee_rec;
371     ddindx binary_integer; indx binary_integer;
372   begin
373 
374     -- copy data to the local IN or IN-OUT args, if any
375 
376 
377 
378 
379     ddp_payee_rec.payee_name := p4_a0;
380     ddp_payee_rec.taxpayer_id := p4_a1;
381     ddp_payee_rec.tax_registration_id := p4_a2;
382     ddp_payee_rec.supplier_type := p4_a3;
383     ddp_payee_rec.payee_number := p4_a4;
384 
385 
386 
387 
388 
389     -- here's the delegated call to the old PL/SQL routine
390     lns_funding_pub.create_payee(p_api_version,
391       p_init_msg_list,
392       p_commit,
393       p_validation_level,
394       ddp_payee_rec,
395       x_payee_id,
396       x_return_status,
397       x_msg_count,
398       x_msg_data);
399 
400     -- copy data back from the local variables to OUT or IN-OUT args, if any
401 
402 
403 
404 
405 
406 
407 
408 
409   end;
410 
411   procedure create_payee_site(p_api_version  NUMBER
412     , p_init_msg_list  VARCHAR2
413     , p_commit  VARCHAR2
414     , p_validation_level  NUMBER
415     , p4_a0  VARCHAR2
416     , p4_a1  NUMBER
417     , p4_a2  VARCHAR2
418     , p4_a3  VARCHAR2
419     , p4_a4  VARCHAR2
420     , p4_a5  VARCHAR2
421     , p4_a6  VARCHAR2
422     , p4_a7  VARCHAR2
423     , p4_a8  VARCHAR2
424     , p4_a9  VARCHAR2
425     , p4_a10  VARCHAR2
426     , x_payee_site_id out nocopy  NUMBER
427     , x_return_status out nocopy  VARCHAR2
428     , x_msg_count out nocopy  NUMBER
432   as
429     , x_msg_data out nocopy  VARCHAR2
430   )
431 
433     ddp_payee_site_rec lns_funding_pub.loan_payee_site_rec;
434     ddindx binary_integer; indx binary_integer;
435   begin
436 
437     -- copy data to the local IN or IN-OUT args, if any
438 
439 
440 
441 
442     ddp_payee_site_rec.payee_site_code := p4_a0;
443     ddp_payee_site_rec.payee_id := p4_a1;
444     ddp_payee_site_rec.address_line1 := p4_a2;
445     ddp_payee_site_rec.address_line2 := p4_a3;
446     ddp_payee_site_rec.address_line3 := p4_a4;
447     ddp_payee_site_rec.city := p4_a5;
448     ddp_payee_site_rec.state := p4_a6;
449     ddp_payee_site_rec.zip := p4_a7;
450     ddp_payee_site_rec.province := p4_a8;
451     ddp_payee_site_rec.county := p4_a9;
452     ddp_payee_site_rec.country := p4_a10;
453 
454 
455 
456 
457 
458     -- here's the delegated call to the old PL/SQL routine
459     lns_funding_pub.create_payee_site(p_api_version,
460       p_init_msg_list,
461       p_commit,
462       p_validation_level,
463       ddp_payee_site_rec,
464       x_payee_site_id,
465       x_return_status,
466       x_msg_count,
467       x_msg_data);
468 
469     -- copy data back from the local variables to OUT or IN-OUT args, if any
470 
471 
472 
473 
474 
475 
476 
477 
478   end;
479 
480   procedure create_site_contact(p_api_version  NUMBER
481     , p_init_msg_list  VARCHAR2
482     , p_commit  VARCHAR2
483     , p_validation_level  NUMBER
484     , p4_a0  NUMBER
485     , p4_a1  VARCHAR2
486     , p4_a2  VARCHAR2
487     , p4_a3  VARCHAR2
488     , p4_a4  VARCHAR2
489     , p4_a5  VARCHAR2
490     , p4_a6  VARCHAR2
491     , x_site_contact_id out nocopy  NUMBER
492     , x_return_status out nocopy  VARCHAR2
493     , x_msg_count out nocopy  NUMBER
494     , x_msg_data out nocopy  VARCHAR2
495   )
496 
497   as
498     ddp_site_contact_rec lns_funding_pub.site_contact_rec;
499     ddindx binary_integer; indx binary_integer;
500   begin
501 
502     -- copy data to the local IN or IN-OUT args, if any
503 
504 
505 
506 
507     ddp_site_contact_rec.payee_site_id := p4_a0;
508     ddp_site_contact_rec.first_name := p4_a1;
509     ddp_site_contact_rec.last_name := p4_a2;
510     ddp_site_contact_rec.title := p4_a3;
511     ddp_site_contact_rec.phone := p4_a4;
512     ddp_site_contact_rec.fax := p4_a5;
513     ddp_site_contact_rec.email := p4_a6;
514 
515 
516 
517 
518 
519     -- here's the delegated call to the old PL/SQL routine
520     lns_funding_pub.create_site_contact(p_api_version,
521       p_init_msg_list,
522       p_commit,
523       p_validation_level,
524       ddp_site_contact_rec,
525       x_site_contact_id,
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 
534 
535 
536 
537 
538 
539   end;
540 
541   procedure create_bank_acc_use(p_api_version  NUMBER
542     , p_init_msg_list  VARCHAR2
543     , p_commit  VARCHAR2
544     , p_validation_level  NUMBER
545     , p4_a0  NUMBER
546     , p4_a1  NUMBER
547     , p4_a2  NUMBER
548     , p4_a3  VARCHAR2
549     , x_bank_acc_use_id out nocopy  NUMBER
550     , x_return_status out nocopy  VARCHAR2
551     , x_msg_count out nocopy  NUMBER
552     , x_msg_data out nocopy  VARCHAR2
553   )
554 
555   as
556     ddp_bank_acc_use_rec lns_funding_pub.bank_account_use_rec;
557     ddindx binary_integer; indx binary_integer;
558   begin
559 
560     -- copy data to the local IN or IN-OUT args, if any
561 
562 
563 
564 
565     ddp_bank_acc_use_rec.payee_id := p4_a0;
566     ddp_bank_acc_use_rec.payee_site_id := p4_a1;
567     ddp_bank_acc_use_rec.bank_account_id := p4_a2;
568     ddp_bank_acc_use_rec.primary_flag := p4_a3;
569 
570 
571 
572 
573 
574     -- here's the delegated call to the old PL/SQL routine
575     lns_funding_pub.create_bank_acc_use(p_api_version,
576       p_init_msg_list,
577       p_commit,
578       p_validation_level,
579       ddp_bank_acc_use_rec,
580       x_bank_acc_use_id,
581       x_return_status,
582       x_msg_count,
583       x_msg_data);
584 
585     -- copy data back from the local variables to OUT or IN-OUT args, if any
586 
587 
588 
589 
590 
591 
592 
593 
594   end;
595 
596   procedure init_funding_advice(p_api_version  NUMBER
597     , p_init_msg_list  VARCHAR2
598     , p_commit  VARCHAR2
599     , p_validation_level  NUMBER
600     , p4_a0  NUMBER
601     , p4_a1  VARCHAR2
602     , p4_a2  NUMBER
603     , p4_a3  NUMBER
604     , p4_a4  NUMBER
605     , p4_a5  NUMBER
606     , p4_a6  NUMBER
607     , x_funding_advice_id out nocopy  NUMBER
608     , x_return_status out nocopy  VARCHAR2
609     , x_msg_count out nocopy  NUMBER
610     , x_msg_data out nocopy  VARCHAR2
611   )
612 
613   as
614     ddp_init_funding_rec lns_funding_pub.init_funding_advice_rec;
615     ddindx binary_integer; indx binary_integer;
616   begin
617 
618     -- copy data to the local IN or IN-OUT args, if any
619 
620 
621 
622 
623     ddp_init_funding_rec.loan_id := p4_a0;
624     ddp_init_funding_rec.payment_method := p4_a1;
625     ddp_init_funding_rec.payee_id := p4_a2;
626     ddp_init_funding_rec.payee_site_id := p4_a3;
627     ddp_init_funding_rec.site_contact_id := p4_a4;
628     ddp_init_funding_rec.bank_branch_id := p4_a5;
629     ddp_init_funding_rec.bank_account_id := p4_a6;
630 
631 
632 
633 
634 
635     -- here's the delegated call to the old PL/SQL routine
636     lns_funding_pub.init_funding_advice(p_api_version,
637       p_init_msg_list,
638       p_commit,
639       p_validation_level,
640       ddp_init_funding_rec,
641       x_funding_advice_id,
642       x_return_status,
643       x_msg_count,
644       x_msg_data);
645 
646     -- copy data back from the local variables to OUT or IN-OUT args, if any
647 
648 
649 
650 
651 
652 
653 
654 
655   end;
656 
657   procedure create_funding_advice(p_api_version  NUMBER
658     , p_init_msg_list  VARCHAR2
659     , p_commit  VARCHAR2
660     , p_validation_level  NUMBER
661     , p4_a0  NUMBER
662     , p4_a1  NUMBER
663     , p4_a2  DATE
664     , p4_a3  DATE
665     , p4_a4  DATE
666     , p4_a5  DATE
667     , p4_a6  NUMBER
668     , p4_a7  VARCHAR2
669     , p4_a8  VARCHAR2
670     , p4_a9  VARCHAR2
671     , p4_a10  NUMBER
672     , p4_a11  NUMBER
673     , p4_a12  NUMBER
674     , p4_a13  NUMBER
675     , p4_a14  NUMBER
676     , p4_a15  NUMBER
677     , p4_a16  NUMBER
678     , p4_a17  VARCHAR2
679     , p4_a18  VARCHAR2
680     , p4_a19  VARCHAR2
681     , x_funding_advice_id out nocopy  NUMBER
682     , x_return_status out nocopy  VARCHAR2
683     , x_msg_count out nocopy  NUMBER
684     , x_msg_data out nocopy  VARCHAR2
685   )
686 
687   as
688     ddp_funding_advice_rec lns_funding_pub.funding_advice_rec;
689     ddindx binary_integer; indx binary_integer;
690   begin
691 
692     -- copy data to the local IN or IN-OUT args, if any
693 
694 
695 
696 
697     ddp_funding_advice_rec.funding_advice_id := p4_a0;
698     ddp_funding_advice_rec.loan_id := p4_a1;
699     ddp_funding_advice_rec.loan_start_date := p4_a2;
700     ddp_funding_advice_rec.first_payment_date := p4_a3;
701     ddp_funding_advice_rec.approved_date := p4_a4;
702     ddp_funding_advice_rec.due_date := p4_a5;
703     ddp_funding_advice_rec.amount := p4_a6;
704     ddp_funding_advice_rec.currency := p4_a7;
705     ddp_funding_advice_rec.description := p4_a8;
706     ddp_funding_advice_rec.payment_method := p4_a9;
707     ddp_funding_advice_rec.payee_id := p4_a10;
708     ddp_funding_advice_rec.payee_site_id := p4_a11;
709     ddp_funding_advice_rec.site_contact_id := p4_a12;
710     ddp_funding_advice_rec.bank_branch_id := p4_a13;
711     ddp_funding_advice_rec.bank_account_id := p4_a14;
712     ddp_funding_advice_rec.invoice_id := p4_a15;
713     ddp_funding_advice_rec.request_id := p4_a16;
714     ddp_funding_advice_rec.advice_number := p4_a17;
715     ddp_funding_advice_rec.invoice_number := p4_a18;
716     ddp_funding_advice_rec.loan_status := p4_a19;
717 
718 
719 
720 
721 
722     -- here's the delegated call to the old PL/SQL routine
723     lns_funding_pub.create_funding_advice(p_api_version,
724       p_init_msg_list,
725       p_commit,
726       p_validation_level,
727       ddp_funding_advice_rec,
728       x_funding_advice_id,
729       x_return_status,
730       x_msg_count,
731       x_msg_data);
732 
733     -- copy data back from the local variables to OUT or IN-OUT args, if any
734 
735 
736 
737 
738 
739 
740 
741 
742   end;
743 
744 end lns_funding_pub_w;