更新客户地点用途

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

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;