Supplier Site Creation Using API

CREATE OR REPLACE PROCEDURE xxaj_supplier_site_creation
p_vendor_site_rec AP_VENDOR_PUB_PKG.r_vendor_site_rec_type;
x_return_status    VARCHAR2(8);
x_msg_count        NUMBER;
x_msg_data         VARCHAR2(4000);
x_vendor_site_id   NUMBER;
x_party_site_id    NUMBER;
x_location_id      NUMBER;
BEGIN
p_vendor_site_rec.vendor_site_code := 'ERP_SITE';
p_vendor_site_rec.vendor_id        := 39173;
p_vendor_site_rec.address_line1    := 'ERP Bangalore';
p_vendor_site_rec.ADDRESS_LINE2    := '#C-21 2nd Cross';
p_vendor_site_rec.country          := 'US';
p_vendor_site_rec.county           := 'New York';
p_vendor_site_rec.city             := 'Brooklyn';
p_vendor_site_rec.state            := 'FL';
p_vendor_site_rec.zip              := 10292;
p_vendor_site_rec.org_id           := 204;

POS_VENDOR_PUB_PKG.Create_Vendor_Site
( p_vendor_site_rec,
  x_return_status,
  x_msg_count,
  x_msg_data,
  x_vendor_site_id,
  x_party_site_id,
  x_location_id
);
DBMS_OUTput.put_line('The Status is :'||x_return_status);
DBMS_OUTput.put_line('The x_msg_count is :'||x_msg_count);
DBMS_OUTput.put_line('The x_msg_data is :'||x_msg_data);
DBMS_OUTput.put_line('The x_vendor_site_id is :'||x_vendor_site_id);
DBMS_OUTput.put_line('The x_party_site_id is :'||x_party_site_id);
DBMS_OUTput.put_line('The x_location_id is :'||x_location_id);
commit;
END xxaj_supplier_site_creation;

Exec xxaj_supplier_site_creation;

Ur's
AmarAlam