anonymous block for customer profile creation

--------------******anonymous block for customer profile creation *****----------

declare
p_customer_profile_rec   HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE;
  x_cust_account_profile_id                  NUMBER;
    x_return_status                           VARCHAR2(200);
    x_msg_count                              NUMBER;
    x_msg_data                              VARCHAR2(200);
begin
p_customer_profile_rec.party_id   :=68277;
--p_customer_profile_rec_type.standard_terms:=v_term_id;
p_customer_profile_rec.created_by_module := 'HZ_CPUI';
HZ_CUSTOMER_PROFILE_V2PUB.CREATE_CUSTOMER_PROFILE
                  ('T',
    p_customer_profile_rec ,
    'T',
    x_cust_account_profile_id ,
    x_return_status           ,
    x_msg_count               ,
    x_msg_data               
);
IF  x_return_status ='S'THEN
    COMMIT;
    DBMS_OUTPUT.PUT_LINE('Creation of Customer account Profile is Successful ');
    DBMS_OUTPUT.PUT_LINE('Output information ....');  
    dbms_output.put_line('Cust account profile id           = '||TO_CHAR(x_cust_account_profile_id));
    dbms_output.put_line('Return Status Of Api    = '||x_return_status);
    dbms_output.put_line('No of err msgs          = '||x_msg_count);
    dbms_output.put_line('err information          = '||x_msg_data);
ELSE
    DBMS_OUTPUT.put_line ('Creation of Customer account Profile got failed:'||x_msg_data);
    ROLLBACK;
    FOR i IN 1 .. x_msg_count
    LOOP
      x_msg_data := fnd_msg_pub.get( p_msg_index => i, p_encoded => 'F');
      dbms_output.put_line( i|| ') '|| x_msg_data);
    END LOOP;
END IF;
DBMS_OUTPUT.PUT_LINE('Completion of API');
end;
/