1: package body fun_vendor_pvt_pkg_w as
2: /* $Header: fun_vendor_pvt_pkg_w_b.pls 120.0 2006/02/15 14:31:51 ashikuma noship $ */
3: procedure create_vendor(p_api_version NUMBER
4: , p_init_msg_list VARCHAR2
5: , p_commit VARCHAR2
1: package body fun_vendor_pvt_pkg_w as
2: /* $Header: fun_vendor_pvt_pkg_w_b.pls 120.0 2006/02/15 14:31:51 ashikuma noship $ */
3: procedure create_vendor(p_api_version NUMBER
4: , p_init_msg_list VARCHAR2
5: , p_commit VARCHAR2
6: , p_validation_level NUMBER
149: , x_party_id out nocopy NUMBER
150: )
151:
152: as
153: ddp_vendor_rec fun_vendor_pvt_pkg.r_vendor_rec_type;
154: ddindx binary_integer; indx binary_integer;
155: begin
156:
157: -- copy data to the local IN or IN-OUT args, if any
303:
304:
305:
306: -- here's the delegated call to the old PL/SQL routine
307: fun_vendor_pvt_pkg.create_vendor(p_api_version,
308: p_init_msg_list,
309: p_commit,
310: p_validation_level,
311: x_return_status,
475: , p_vendor_id NUMBER
476: )
477:
478: as
479: ddp_vendor_rec fun_vendor_pvt_pkg.r_vendor_rec_type;
480: ddindx binary_integer; indx binary_integer;
481: begin
482:
483: -- copy data to the local IN or IN-OUT args, if any
628: ddp_vendor_rec.ext_payee_rec.settlement_priority := p7_a137;
629:
630:
631: -- here's the delegated call to the old PL/SQL routine
632: fun_vendor_pvt_pkg.update_vendor(p_api_version,
633: p_init_msg_list,
634: p_commit,
635: p_validation_level,
636: x_return_status,
814: , x_location_id out nocopy NUMBER
815: )
816:
817: as
818: ddp_vendor_site_rec fun_vendor_pvt_pkg.r_vendor_site_rec_type;
819: ddindx binary_integer; indx binary_integer;
820: begin
821:
822: -- copy data to the local IN or IN-OUT args, if any
983:
984:
985:
986: -- here's the delegated call to the old PL/SQL routine
987: fun_vendor_pvt_pkg.create_vendor_site(p_api_version,
988: p_init_msg_list,
989: p_commit,
990: p_validation_level,
991: x_return_status,
1171: , p_vendor_site_id NUMBER
1172: )
1173:
1174: as
1175: ddp_vendor_site_rec fun_vendor_pvt_pkg.r_vendor_site_rec_type;
1176: ddindx binary_integer; indx binary_integer;
1177: begin
1178:
1179: -- copy data to the local IN or IN-OUT args, if any
1338: ddp_vendor_site_rec.retainage_rate := p7_a151;
1339:
1340:
1341: -- here's the delegated call to the old PL/SQL routine
1342: fun_vendor_pvt_pkg.update_vendor_site(p_api_version,
1343: p_init_msg_list,
1344: p_commit,
1345: p_validation_level,
1346: x_return_status,
1359:
1360:
1361: end;
1362:
1363: end fun_vendor_pvt_pkg_w;