Index: vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml
===================================================================
diff -u -r48681 -r49082
--- vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 48681)
+++ vhUnitTest/AXimpl/AxToAdminUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 49082)
@@ -73,6 +73,11 @@
 	Kill ^RES("KLANT","PI","VERZENDWAX","D","UT1;1&UT1;2")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: CleanUpText verwijderd tab CR en LF">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(AXimpl.AxToAdminUtils).CleanUpText("The"_$$$TAB _"number" _$$$CRLF _"of" _$$$CR _"the" _$$$LF _"beast"),"The number of the beast")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/AxToAdminUtils.cls.xml
===================================================================
diff -u -r48700 -r49082
--- AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 48700)
+++ AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 49082)
@@ -382,6 +382,19 @@
 	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="CleanUpText">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Text:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Result As %String = $Replace(Text,$$$TAB," ")
+	Set Result = $Replace(Result,$$$CRLF," ")
+	Set Result = $Replace(Result,$$$CR," ")
+	Set Result = $Replace(Result,$$$LF," ")
+	Quit Result
+]]></Implementation>
+</Method>
 </Class>