--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;