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 := NULL;
l_rec_profile_t.risk_code := NULL;
l_rec_profile_t.standard_terms := NULL;
l_rec_profile_t.override_terms := NULL;
l_rec_profile_t.dunning_letter_set_id := NULL;
l_rec_profile_t.interest_period_days := NULL;
l_rec_profile_t.payment_grace_days := NULL;
l_rec_profile_t.discount_grace_days := NULL;
l_rec_profile_t.statement_cycle_id := NULL;
l_rec_profile_t.account_status := NULL;
l_rec_profile_t.percent_collectable := NULL;
l_rec_profile_t.autocash_hierarchy_id := NULL;
l_rec_profile_t.auto_rec_incl_disputed_flag := NULL;
l_rec_profile_t.tax_printing_option := NULL;
l_rec_profile_t.charge_on_finance_charge_flag := NULL;
l_rec_profile_t.grouping_rule_id := NULL;
l_rec_profile_t.clearing_days := NULL;
l_rec_profile_t.cons_inv_flag := NULL;
l_rec_profile_t.cons_inv_type := NULL;
l_rec_profile_t.autocash_hierarchy_id_for_adr := NULL;
l_rec_profile_t.lockbox_matching_option := NULL;
l_rec_profile_t.created_by_module := 'BLC';
l_rec_profile_t.application_id := NULL;
l_rec_profile_t.review_cycle := NULL;
l_rec_profile_t.last_credit_review_date := NULL;
l_rec_profile_t.party_id := NULL;
l_rec_profile_t.credit_classification := NULL;
l_rec_profile_t.cons_bill_level := NULL;
l_rec_profile_t.late_charge_calculation_trx := NULL;
l_rec_profile_t.credit_items_flag := NULL;
l_rec_profile_t.disputed_transactions_flag := NULL;
l_rec_profile_t.late_charge_type := NULL;
l_rec_profile_t.late_charge_term_id := NULL;
l_rec_profile_t.interest_calculation_period := NULL;
l_rec_profile_t.hold_charged_invoices_flag := NULL;
l_rec_profile_t.message_text_id := NULL;
l_rec_profile_t.multiple_interest_rates_flag := NULL;
l_rec_profile_t.charge_begin_date := NULL;
l_rec_profile_t.automatch_set_id := NULL;
hz_customer_profile_v2pub.create_customer_profile(p_init_msg_list => fnd_api.g_false,
p_customer_profile_rec => l_rec_profile_t,
p_create_profile_amt => fnd_api.g_true,
x_cust_account_profile_id => l_profile_id,
x_return_status => l_return_status2,
x_msg_count => l_msg_count2,
x_msg_data => l_msg_data2);
FOR i IN 1 .. l_msg_count2 LOOP
l_msg_data2 := 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_status2:' || l_return_status2);
dbms_output.put_line('l_msg_count2:' || l_msg_count2);
dbms_output.put_line('l_msg_data2:' || l_msg_data2);
dbms_output.put_line('l_profile_id:' || l_profile_id);
--======================================================
l_rec_profile.cust_acct_profile_amt_id := NULL;
l_rec_profile.cust_account_profile_id := l_profile_id;
l_rec_profile.currency_code := 'USD';
l_rec_profile.trx_credit_limit := 100;
l_rec_profile.overall_credit_limit := 100;
l_rec_profile.min_dunning_amount := NULL;
l_rec_profile.min_dunning_invoice_amount := NULL;
l_rec_profile.max_interest_charge := NULL;
l_rec_profile.min_statement_amount := NULL;
l_rec_profile.auto_rec_min_receipt_amount := NULL;
l_rec_profile.min_fc_balance_amount := NULL;
l_rec_profile.min_fc_invoice_amount := NULL;
l_rec_profile.cust_account_id := 487194; --CXY-TEST002
l_rec_profile.site_use_id := 420072; --BILL_TO
l_rec_profile.expiration_date := NULL;
l_rec_profile.created_by_module := 'BLC';
l_rec_profile.application_id := NULL;
l_rec_profile.exchange_rate_type := NULL;
l_rec_profile.min_fc_invoice_overdue_type := NULL;
l_rec_profile.min_fc_invoice_percent := NULL;
l_rec_profile.min_fc_balance_overdue_type := NULL;
l_rec_profile.min_fc_balance_percent := NULL;
l_rec_profile.interest_type := NULL;
l_rec_profile.interest_fixed_amount := NULL;
l_rec_profile.interest_schedule_id := NULL;
l_rec_profile.penalty_type := NULL;
l_rec_profile.penalty_rate := NULL;
l_rec_profile.min_interest_charge := NULL;
l_rec_profile.penalty_fixed_amount := NULL;
l_rec_profile.penalty_schedule_id := NULL;
hz_customer_profile_v2pub.create_cust_profile_amt(p_init_msg_list => fnd_api.g_false,
p_check_foreign_key => fnd_api.g_true,
p_cust_profile_amt_rec => l_rec_profile,
x_cust_acct_profile_amt_id => l_profile_amt_id,
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;
