EBS更新供应商API

补丁参考下面的文档
APIs - AP_VENDOR_PUB_PKG.Update_Vendor And AP_VENDOR_PUB_PKG.Update_Vendor_Site No Longer Supported In R12 (文档 ID 1993115.1)

declare
  -- Non-scalar parameters require additional processing 
  p_vendor_rec ap_vendor_pub_pkg.r_vendor_rec_type;
begin
  -- Call the procedure
  p_vendor_rec.VENDOR_NAME:='1112';
  p_vendor_rec.TAX_REFERENCE:='1121221';
  
  FND_GLOBAL.APPS_INITIALIZE(2382, 50699, 200);
  ap_vendor_pub_pkg.update_vendor_public(p_api_version => :p_api_version,
                                         p_init_msg_list => :p_init_msg_list,
                                         p_commit => :p_commit,
                                         p_validation_level => :p_validation_level,
                                         x_return_status => :x_return_status,
                                         x_msg_count => :x_msg_count,
                                         x_msg_data => :x_msg_data,
                                         p_vendor_rec => p_vendor_rec,
                                         p_vendor_id => :p_vendor_id);
end;

declare
  -- Non-scalar parameters require additional processing 
  p_vendor_site_rec ap_vendor_pub_pkg.r_vendor_site_rec_type;
  X_STATUS          VARCHAR2(200);
  x_msg_count       NUMBER;
  x_msg_data        VARCHAR2(2000);
  x_msg_dummy       VARCHAR2(2000);
begin
  p_vendor_site_rec.ATTRIBUTE1    := '21';
  p_vendor_site_rec.ADDRESS_LINE1 := '21';
  p_vendor_site_rec.COUNTRY       := 'US';
  p_vendor_site_rec.state         := 'AK';
  p_vendor_site_rec.city          := 'NEED UPDATE';
  p_vendor_site_rec.county        := 'NEED UPDATE';
  FND_GLOBAL.APPS_INITIALIZE(2382, 50699, 200);
  -- Call the procedure
  ap_vendor_pub_pkg.Update_Vendor_Site_Public(p_api_version      => :p_api_version,
                                              p_init_msg_list    => :p_init_msg_list,
                                              p_commit           => :p_commit,
                                              p_validation_level => :p_validation_level,
                                              x_return_status    => X_STATUS,
                                              x_msg_count        => x_msg_count,
                                              x_msg_data         => :x_msg_data,
                                              p_vendor_site_rec  => p_vendor_site_rec,
                                              p_vendor_site_id   => :p_vendor_site_id,
                                              p_calling_prog     => :p_calling_prog);
  IF X_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
    FOR j IN 1 .. x_msg_count LOOP
      fnd_msg_pub.get(j, FND_API.G_FALSE, x_msg_data, x_msg_dummy);
      dbms_output.put_line('Msg' || To_Char(j) || ': ' || x_msg_data);
    
    END LOOP;
  END IF;
end;