详解ebs接口之客户配置文件导入（一）

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);
BEGIN
   mo_global.init('AR');
   fnd_global.apps_initialize(user_id => 10177,
                              
                              resp_id => 52991,
                              
                              resp_appl_id => 222);

   l_rec_profile_t.cust_account_profile_id   := NULL;
   l_rec_profile_t.cust_account_id           := 487194; --CXY-TEST002
   l_rec_profile_t.status                    := 'A';
   l_rec_profile_t.collector_id              := NULL;
   l_rec_profile_t.credit_analyst_id         := NULL;
   l_rec_profile_t.credit_checking           := NULL;
   l_rec_profile_t.next_credit_review_date   := NULL;
   l_rec_profile_t.tolerance                 := NULL;
   l_rec_profile_t.discount_terms            := NULL;
   l_rec_profile_t.dunning_letters           := NULL;
   l_rec_profile_t.interest_charges          := NULL;
   l_rec_profile_t.send_statements           := NULL;
   l_rec_profile_t.credit_balance_statements := NULL;
   l_rec_profile_t.credit_hold               := NULL;
   l_rec_profile_t.profile_class_id          := NULL;
   l_rec_profile_t.site_use_id               := 420072; --BILL_TO
   l_rec_profile_t.credit_rating             :=