Oracle AP更新供应商

/*l_return_status:S
l_msg_count:0
l_msg_data:
l_vendor_id:133003
l_party_id:236055
 */
DECLARE
   l_return_status VARCHAR2(1);
   l_msg_count     NUMBER;
   l_msg_data      VARCHAR2(1000);
   l_vendor_rec    ap_vendor_pub_pkg.r_vendor_rec_type;
   l_vendor_id     NUMBER;
   l_party_id      NUMBER;
BEGIN
   fnd_global.apps_initialize(1670, 50728, 200);
   mo_global.init('SQLAP');
   --
   l_vendor_rec.vendor_name             := 'DDDDD';
   l_vendor_rec.enabled_flag            := 'Y';
   l_vendor_rec.vendor_type_lookup_code := 'VENDOR';
   l_vendor_rec.vat_code                := 'CN_VAT_IN_17';
   l_vendor_rec.vat_registration_num    := '';

   --- hz_organization_profiles.incorp_year
   ap_vendor_pub_pkg.update_vendor(p_api_version      => 1.0,
                                   p_init_msg_list    => fnd_api.g_true,
                                   p_commit           => fnd_api.g_false,
                                   p_validation_level => fnd_api.g_valid_level_full,
                                   x_return_status    => l_return_status,
                                   x_msg_count        => l_msg_count,
                                   x_msg_data         => l_msg_data,
                                   p_vendor_rec       => l_vendor_rec,
                                   x_vendor_id        => l_vendor_id);
   dbms_output.put_line('l_return_status:' || l_return_status);
   dbms_output.put_line('l_msg_count:' || l_msg_count);
   dbms_output.put_line('l_msg_data:' || l_msg_data);
   dbms_output.put_line('l_vendor_id:' || l_vendor_id);
   dbms_output.put_line('l_party_id:' || l_party_id);
   dbms_output.put_line(fnd_msg_pub.get_detail(1, 'F'));
END;