Index: vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml
===================================================================
diff -u -r49115 -r50155
--- vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 49115)
+++ vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 50155)
@@ -78,6 +78,41 @@
 <Implementation><![CDATA[	Do $$$AssertEquals(##class(AXimpl.AxToAdminUtils).CleanUpText("The"_$$$TAB _"number" _$$$CRLF _"of" _$$$CR _"the" _$$$LF _"beast"),"The number of the beast")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: CustClassificationId is R02">
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Do $$$AssertEquals(Converter.ConvertCustClassificationIdToRegio("R02"),"2")
+]]></Implementation>
+</Method>
+
+<Method name="Test: CustClassificationId is R41">
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Do $$$AssertEquals(Converter.ConvertCustClassificationIdToRegio("R41"),"41")
+]]></Implementation>
+</Method>
+
+<Method name="Test: CustClassificationId is R00">
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Do $$$AssertEquals(Converter.ConvertCustClassificationIdToRegio("R00"),"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: CustClassificationId is R0">
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Do $$$AssertEquals(Converter.ConvertCustClassificationIdToRegio("R0"),"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: CustClassificationId is R01234567890123456789">
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.AxToAdminUtils).%New()
+	Do $$$AssertEquals(Converter.ConvertCustClassificationIdToRegio("R01234567890123456789"),"1234567890123456789")
+]]></Implementation>
+</Method>
 </Class>