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;