Oracle中EBS更新银行地址

欢迎进入Oracle社区论坛，与200万技术人员互动交流 >>进入 Oracle中EBS更新银行地址具体方法： --add by [e-mail] --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 [e-mail]

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