Customer Profile Class API in Oracle Apps (hz_customer_profile_v2pub.update_customer_profile)

BEGIN
   p_customer_profile_rec_type.cust_account_profile_id := 19273;
   --p_customer_profile_rec_type.credit_rating := 'Excellent';
   p_customer_profile_rec_type.PROFILE_CLASS_ID :=1085;
   p_object_version_number := 3;
  
   hz_customer_profile_v2pub.
   update_customer_profile (
      p_init_msg_list           => 'T',
      p_customer_profile_rec    => p_customer_profile_rec_type,
      p_object_version_number   => p_object_version_number,
      x_return_status           => x_return_status,
      x_msg_count               => x_msg_count,
      x_msg_data                => x_msg_data);
   FND_FILE. put_line (fnd_file.output,'x_return_status = ' || SUBSTR (x_return_status, 1, 255));
   FND_FILE. put_line (fnd_file.output,'Object Version Number = ' || TO_CHAR (p_object_version_number));
   FND_FILE. put_line (fnd_file.output,'Credit Rating = ' || p_customer_profile_rec_type.credit_rating);
   FND_FILE. put_line (fnd_file.output,'x_msg_count = ' || TO_CHAR (x_msg_count));
   FND_FILE. put_line (fnd_file.output,'x_msg_data = ' || SUBSTR (x_msg_data, 1, 255));
   IF x_msg_count > 1
   THEN
      FOR I IN 1 .. x_msg_count
      LOOP
         FND_FILE. put_line(fnd_file.output,SUBSTR (FND_MSG_PUB.Get (p_encoded => FND_API.G_FALSE), 1, 255));
      END LOOP;
   END IF;
EXCEPTION
   WHEN OTHERS
   THEN
      FND_FILE.put_line(fnd_file.output,'Error: ' || SQLERRM);
END;