更新客户地点用途

举例：更新客户地点用途下的收款账户

DECLARE
  v_site_use      hz_cust_account_site_v2pub.cust_site_use_rec_type;
  v_cust_profile  hz_customer_profile_v2pub.customer_profile_rec_type;
  v_version       NUMBER;
  v_return_status VARCHAR2(10);
  v_msg_count     NUMBER;
  v_msg_data      VARCHAR2(1000);

  CURSOR cur_org IS
    SELECT hou.organization_id FROM hr_operating_units hou;

  CURSOR cur_site_use(p_org_id NUMBER) IS
    SELECT su.site_use_id
      FROM hz_cust_site_uses_all su
     WHERE su.org_id = p_org_id;

BEGIN
  fnd_global.apps_initialize(user_id      => 1110,
                             resp_id      => 20678,
                             resp_appl_id => 222);
  mo_global.init('AR');
  FOR rec_org IN cur_org LOOP
    FOR rec_site_use IN cur_site_use(rec_org.organization_id) LOOP
    
      hz_cust_account_site_v2pub.get_cust_site_use_rec(p_init_msg_list        => fnd_api.g_false,
                                                       p_site_use_id          => rec_site_use.site_use_id,
                                                       x_cust_site_use_rec    => v_site_use,
                                                       x_customer_profile_rec => v_cust_profile,
                                                       x_return_status        => v_return_status,
                                                       x_msg_count            => v_msg_count,
                                                       x_msg_data             => v_msg_data);
      SELECT t.gl_id_rec
        INTO v_site_use.gl_id_rec
        FROM ra_cust_trx_types_all t
       WHERE t.name = 'Invoice'
         AND t.org_id = rec_org.organization_id;
    
      SELECT su.object_version_number
        INTO v_version
        FROM hz_cust_site_uses_all su
       WHERE su.site_use_id = my.site_use_id;
    
      hz_cust_account_site_v2pub.update_cust_site_use(p_init_msg_list         => 'T',
                                                      p_cust_site_use_rec     => v_site_use,
                                                      p_object_version_number => v_version,
                                                      x_return_status         => v_return_status,
                                                      x_msg_count             => v_msg_count,
                                                      x_msg_data              => v_msg_data);
    END LOOP;
  END LOOP;
END;