API to Create AP Supplier Site

API - pos_vendor_pub_pkg.create_vendor_site

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(1000);
ln_vendor_site_id     NUMBER;
ln_party_site_id         NUMBER;
ln_location_id           NUMBER;

BEGIN
        -- ---------------
         /* Required*?/
        l_vendor_site_rec.vendor_id               := 111;
       l_vendor_site_rec.vendor_site_code := 'Site Name';
       l_vendor_site_rec.address_line1         := ' Main Street';
       l_vendor_site_rec.city                           := 'Palestine';
       l_vendor_site_rec.country                    := 'PS';
       l_vendor_site_rec.org_id                      := 88;

       -- --------------
               /* 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';

l_vendor_site_rec.TERMS_DATE_BASIS := 'Invoice';

l_vendor_site_rec.PURCHASING_SITE_FLAG := 'Y';

        l_vendor_site_rec.language                      := 'ARABIC';

       pos_vendor_pub_pkg.create_vendor_site
       (
/*-- ------------------------------

Input elements

--------------------------------------*/
              p_vendor_site_rec    => l_vendor_site_rec,
             /*
              -- Output 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;