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