Oracle EBS AR 更新客户配置文件

DECLARE
   l_rec_profile_t  hz_customer_profile_v2pub.customer_profile_rec_type;
   l_rec_profile    hz_customer_profile_v2pub.cust_profile_amt_rec_type;
   l_profile_amt_id NUMBER;
   l_profile_id     NUMBER;
   l_return_status1 VARCHAR2(30);
   l_msg_count1     NUMBER;
   l_msg_data1      VARCHAR2(2000);  

   l_return_status2 VARCHAR2(30);
   l_msg_count2     NUMBER;
   l_msg_data2      VARCHAR2(2000);  

   l_object_version_number NUMBER;
BEGIN  

   /* alter session set NLS_LANGUAGE = 'AMERICAN' ;*/
   mo_global.init('AR');
   fnd_global.apps_initialize(user_id => 1250,  

                              resp_id => 50719,  

                              resp_appl_id => 20005);  

   l_rec_profile_t.cust_account_profile_id := 1040;
   l_rec_profile_t.cust_account_id         := 1042; --CXY-TEST0028660  

   l_rec_profile_t.credit_hold := 'N';  

   l_object_version_number := 5;--此值需为当前此配置文件的值，API里验证如下  

   hz_customer_profile_v2pub.update_customer_profile(p_init_msg_list         => fnd_api.g_false,
                                                     p_customer_profile_rec  => l_rec_profile_t,
                                                     p_object_version_number => l_object_version_number,
                                                     x_return_status         => l_return_status1,
                                                     x_msg_count             => l_msg_count1,
                                                     x_msg_data              => l_msg_data1);  

   FOR i IN 1 .. l_msg_count1 LOOP
      l_msg_data1 := fnd_msg_pub.get(p_msg_index => i, p_encoded => 'F');
   END LOOP; --FOR i IN 1 .. x_msg_count LOOP
   dbms_output.put_line('x_return_status1:' || l_return_status1);
   dbms_output.put_line('l_msg_count1:' || l_msg_count1);
   dbms_output.put_line('l_msg_data1:' || l_msg_data1);
   dbms_output.put_line('l_profile_amt_id:' || l_profile_amt_id);
EXCEPTION
   WHEN OTHERS THEN
      dbms_output.put_line('x_return_status:' || SQLERRM);
END;