创建银行分行的API

DECLARE 
 p_api_version NUMBER := 1.0; 
 p_init_msg_list VARCHAR2(1) := 'F'; 
 v_bank_id NUMBER := 530705; 
 x_return_status VARCHAR2(2000); 
 x_msg_count NUMBER(5); 
 x_msg_data VARCHAR2(2000); 
 x_branch_id NUMBER; 
 p_count NUMBER; 

 x_response iby_fndcpt_common_pub.result_rec_type; 
 p_ext_bank_branch_rec iby_ext_bankacct_pub.extbankbranch_rec_type; 


BEGIN 
 dbms_output.put_line ('BEFORE BANK BRANCH API'); 

 p_ext_bank_branch_rec.bch_object_version_number := 1.0; 
 p_ext_bank_branch_rec.branch_name := 'TEST BANK BRANCH'; 
 p_ext_bank_branch_rec.branch_type := 'ABA'; 
 p_ext_bank_branch_rec.bank_party_id := v_bank_id; 

 IBY_EXT_BANKACCT_PUB.CREATE_EXT_BANK_BRANCH 
 ( -- ----------------------------- 
 -- Input data elements 
 -- ----------------------------- 
 p_api_version => p_api_version, 
 p_init_msg_list => p_init_msg_list, 
 p_ext_bank_branch_rec => p_ext_bank_branch_rec, 
 -- -------------------------------- 
 -- Output data elements 
 -- -------------------------------- 
 x_branch_id => x_branch_id, 
 x_return_status => x_return_status, 
 x_msg_count => x_msg_count, 
 x_msg_data => x_msg_data, 
 x_response => x_response 
 ); 

 dbms_output.put_line ('x_branch_id = ' || x_branch_id); 

 IF (x_msg_count = 1) 
 THEN 
 dbms_output.put_line ('x_msg_data ' || x_msg_data); 

 ELSIF (x_msg_count > 1) 
 THEN 
 LOOP 
 p_count := p_count + 1; 
 x_msg_data := fnd_msg_pub.get (fnd_msg_pub.g_next, fnd_api.g_false); 

 IF (x_msg_data IS NULL) 
 THEN 
 EXIT; 
 END IF; 

 dbms_output.put_line ('Message' || p_count || ' ---' || x_msg_data); 
 END LOOP; 
 END IF; 


 COMMIT; 

EXCEPTION 
 WHEN OTHERS THEN 
 ROLLBACK; 
 dbms_output.put_line(SQLERRM); 
END; 
/ 

SHOW ERR;