欢迎进入oracle社区论坛，与200万技术人员互动交流 >>进入 oracle中ebs更新银行地址具体方法： --add by biao.chen@hand-china.com --2013-12-22 10:15:56 procedure add_branch_address（p_party_id number, p_contry varchar2, p_address_line_1 varchar2,
欢迎进入oracle社区论坛，与200万技术人员互动交流 >>进入
    oracle中ebs更新银行地址具体方法：
    --add by biao.chen@hand-china.com
    --2013-12-22 10:15:56
    procedure add_branch_address（p_party_id       number,
    p_contry         varchar2,
    p_address_line_1 varchar2,
    p_provice        varchar2,
    p_city           varchar2,
    x_return_status  out varchar2,
    x_msg_count      out number,
    x_msg_data       out varchar2） is
    l_party_site_rec          hz_party_site_v2pub.party_site_rec_type;
    l_location_rec            hz_location_v2pub.location_rec_type;
    l_location_id             number;
    l_psobject_version_number number;
    l_party_site_id           number;
    l_party_site_number       varchar2（30）；
    l_object_version_number   varchar2（60） := 1;
    /*    x_return_status varchar2（200）；
    x_msg_count     number;
    x_msg_data      varchar2（2000）；*/
    l_country varchar2（60）；
    begin
    l_location_rec.address1 := p_address_line_1;
    cux_test_log_pkg.insert_row（'country  0 ',
    p_contry,
    l_country,
    userenv（'lang'），
    p_provice,
    p_city）；
    begin
    select v.territory_code
    into l_country
    from fnd_territories_vl v
    where v.territory_short_name = p_contry;
    exception
    when others then
    cux_conc_utl.log_msg（'查找国家出错：' || sqlerrm）；
    l_country := 'cn';
    end;
    l_location_rec.country           := l_country;
    l_location_rec.province          := p_provice;
    l_location_rec.city              := p_city;
    l_location_rec.created_by_module := 'cust_interface';
    hz_location_v2pub.create_location（p_location_rec  => l_location_rec,
    x_location_id   => l_location_id,
    x_return_status => x_return_status,
    x_msg_count     => x_msg_count,
    x_msg_data      => x_msg_data）；
    l_location_rec.location_id := l_location_id;
    l_party_site_rec.party_id                 := p_party_id;
    l_party_site_rec.location_id              := l_location_id;
    l_party_site_rec.identifying_address_flag := 'y';
    l_party_site_rec.created_by_module        := 'cust_interface';
    hz_party_site_v2pub.create_party_site（p_party_site_rec    => l_party_site_rec,
    x_party_site_id     => l_party_site_id,
    x_party_site_number => l_party_site_number,
    x_return_status     => x_return_status,
    x_msg_count         => x_msg_count,
    x_msg_data          => x_msg_data）；
    l_party_site_rec.party_site_id     := l_party_site_id;
    l_party_site_rec.party_site_number := l_party_site_number;
    exception
    when others then
    x_msg_data := sqlerrm;
    end add_branch_address;