Discretize what appears to be a valid region from a surface of revolution?

Attempting with the code below to create a region from a surface of revolution --not very successful, although I can plot the surface. Any Suggestions ? (Code is attached). Ultimately I would like to make a solid mesh from the region, but I seem not to be able to accomplish the first step–create a proper region from a set of parametric equations. I am hoping not to need to make an implicit form of the surface.
Thanks in advance for the support
John

region error.nb (135 KB)

which version of Mathematica are you using? the code works fine in V12.0 released.