anonymous block for customer account creation

-----------******anonymous block for customer account creation******------------------------

declare
p_organization_rec   hz_party_v2pub.organization_rec_type;
p_cust_account_rec   hz_cust_account_v2pub.cust_account_rec_type;
party_rec         hz_party_v2pub.party_rec_type;
p_customer_profile_rec HZ_CUSTOMER_PROFILE_V2PUB.CUSTOMER_PROFILE_REC_TYPE;
  x_return_status varchar2(200);
  x_msg_count number;
  x_msg_data varchar2(200);
  x_party_id number;
  x_party_number number;
  x_profile_id number;
  x_cust_account_id number;
  x_account_number number;
  begin
p_cust_account_rec.account_name      := 'XX_INFO';
  p_cust_account_rec.created_by_module := 'HZ_CPUI';
  p_organization_rec.party_rec.party_id :=68277;
--p_customer_profile_rec.cust_account_profile_id:=17035; 
  hz_cust_account_v2pub.create_cust_account (
    'T',
    p_cust_account_rec       ,
    p_organization_rec       ,
    null   ,
    'T',
    x_cust_account_id         ,
    x_account_number          ,
    x_party_id                ,
    x_party_number            ,
    x_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 Profile is Successful ');
    DBMS_OUTPUT.PUT_LINE('Output information ....');  
    dbms_output.put_line('Cust account id           = '||TO_CHAR(x_cust_account_id));
    dbms_output.put_line('Cust account number           = '||TO_CHAR(x_account_number));
    dbms_output.put_line('Cust party id           = '||TO_CHAR(x_party_id));
    dbms_output.put_line('Cust party number       = '||TO_CHAR(x_party_number));
    dbms_output.put_line('Cust profile Id         = '||x_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 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;