API to Create Supplier Site

/* Formatted on 2017/04/12 15:54 (Formatter Plus v4.8.8) */
DECLARE
   l_vendor_site_rec   ap_vendor_pub_pkg.r_vendor_site_rec_type;
   lc_return_status    VARCHAR2 (10);
   ln_msg_count        NUMBER;
   lc_msg_data         VARCHAR2 (4000);
   ln_vendor_site_id   NUMBER;
   ln_party_site_id    NUMBER;
   ln_location_id      NUMBER;
BEGIN
-- ---------------
-- Required
-- ---------------
   l_vendor_site_rec.vendor_id := 40000;
   l_vendor_site_rec.vendor_site_code := 'Supplier_Site';
   l_vendor_site_rec.address_line1 := '05 IFFCO Chowk';
   l_vendor_site_rec.city := 'Gurgaon';
   l_vendor_site_rec.country := 'IND';
   l_vendor_site_rec.org_id := 182;
-- --------------
-- Optional
-- --------------
   l_vendor_site_rec.purchasing_site_flag := 'N';
   l_vendor_site_rec.pay_site_flag := 'N';
   l_vendor_site_rec.rfq_only_site_flag := 'N';
   pos_vendor_pub_pkg.create_vendor_site
                                     (
-- ------------------------------
-- Input data elements
-- ------------------------------
                                      p_vendor_site_rec      => l_vendor_site_rec,
-- ---------------------------------
-- Output data elements
-- ---------------------------------
                                      x_return_status        => lc_return_status,
                                      x_msg_count            => ln_msg_count,
                                      x_msg_data             => lc_msg_data,
                                      x_vendor_site_id       => ln_vendor_site_id,
                                      x_party_site_id        => ln_party_site_id,
                                      x_location_id          => ln_location_id
                                     );
   COMMIT;
EXCEPTION
   WHEN OTHERS
   THEN
      ROLLBACK;
      DBMS_OUTPUT.put_line (SQLERRM);
END;