anonymous block for customer email contact point creation

-----------------********anonymous block for customer email contact point creation *****-------------------

declare
p_contact_point_rec             hz_contact_point_v2pub.contact_point_rec_type;
    p_email_rec                   hz_contact_point_v2pub.email_rec_type;
    x_contact_point_id            NUMBER;
    x_return_status                 VARCHAR2(200);
    x_msg_count                    NUMBER;
    x_msg_data                      VARCHAR2(200);
begin
p_contact_point_rec.contact_point_type    := 'EMAIL';
  p_contact_point_rec.owner_table_name      := 'HZ_PARTIES';
  p_contact_point_rec.owner_table_id        := '68277';
  p_contact_point_rec.primary_flag          := 'Y';
  p_contact_point_rec.contact_point_purpose := 'BUSINESS';
   p_email_rec.email_address                 :='narsimlu@live.com';
  p_email_rec.email_format                  :='MAILHTML';
  p_contact_point_rec.created_by_module     := 'HZ_CPUI';
hz_contact_point_v2pub.create_email_contact_point (
   'T',
    p_contact_point_rec        ,
    p_email_rec                ,
    x_contact_point_id         ,
    x_return_status            ,
    x_msg_count                ,
    x_msg_data                
  );
  IF  x_return_status ='S'THEN
    COMMIT;
    DBMS_OUTPUT.PUT_LINE('Creation of Customer contact is Successful ');
    DBMS_OUTPUT.PUT_LINE('Output information ....');  
    dbms_output.put_line('Cust contact point id         = '||TO_CHAR(x_contact_point_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 contact 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;