1: package body lns_loan_header_pub_w as
2: /* $Header: LNS_LNHDR_PUBJ_B.pls 120.6.12010000.2 2008/11/17 13:14:15 mbolli ship $ */
3: procedure create_loan(p_init_msg_list VARCHAR2
4: , p1_a0 NUMBER
5: , p1_a1 NUMBER
104: , x_msg_data out nocopy VARCHAR2
105: )
106:
107: as
108: ddp_loan_header_rec lns_loan_header_pub.loan_header_rec_type;
109: ddindx binary_integer; indx binary_integer;
110: begin
111:
112: -- copy data to the local IN or IN-OUT args, if any
213:
214:
215:
216: -- here's the delegated call to the old PL/SQL routine
217: lns_loan_header_pub.create_loan(p_init_msg_list,
218: ddp_loan_header_rec,
219: x_loan_id,
220: x_loan_number,
221: x_return_status,
334: , x_msg_data out nocopy VARCHAR2
335: )
336:
337: as
338: ddp_loan_header_rec lns_loan_header_pub.loan_header_rec_type;
339: ddindx binary_integer; indx binary_integer;
340: begin
341:
342: -- copy data to the local IN or IN-OUT args, if any
442:
443:
444:
445: -- here's the delegated call to the old PL/SQL routine
446: lns_loan_header_pub.update_loan(p_init_msg_list,
447: ddp_loan_header_rec,
448: p_object_version_number,
449: x_return_status,
450: x_msg_count,
560: , x_msg_data out nocopy VARCHAR2
561: )
562:
563: as
564: ddp_loan_header_rec lns_loan_header_pub.loan_header_rec_type;
565: ddindx binary_integer; indx binary_integer;
566: begin
567:
568: -- copy data to the local IN or IN-OUT args, if any
667:
668:
669:
670: -- here's the delegated call to the old PL/SQL routine
671: lns_loan_header_pub.validate_loan(p_init_msg_list,
672: ddp_loan_header_rec,
673: x_return_status,
674: x_msg_count,
675: x_msg_data);
784: , x_msg_data out nocopy VARCHAR2
785: )
786:
787: as
788: ddx_loan_header_rec lns_loan_header_pub.loan_header_rec_type;
789: ddindx binary_integer; indx binary_integer;
790: begin
791:
792: -- copy data to the local IN or IN-OUT args, if any
796:
797:
798:
799: -- here's the delegated call to the old PL/SQL routine
800: lns_loan_header_pub.get_loan_header_rec(p_init_msg_list,
801: p_loan_id,
802: ddx_loan_header_rec,
803: x_return_status,
804: x_msg_count,
907:
908:
909: end;
910:
911: end lns_loan_header_pub_w;