Index: vhConsistency/Checks/ControleKarakter.cls.xml
===================================================================
diff -u -r33626 -r40907
--- vhConsistency/Checks/ControleKarakter.cls.xml	(.../ControleKarakter.cls.xml)	(revision 33626)
+++ vhConsistency/Checks/ControleKarakter.cls.xml	(.../ControleKarakter.cls.xml)	(revision 40907)
@@ -1,9 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhConsistency.Checks.ControleKarakter">
-<Description>
-JCL + 2011-07-21
-Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.ControleKarakter")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhConsistency.Check</Super>
@@ -40,20 +37,42 @@
 	do ..Globals.Insert("^KPR")
 	do ..Globals.Insert("^KTO")
 	do ..Globals.Insert("^KOFKL")
-	do ..Globals.Insert("^KlachtD")
-	do ..Globals.Insert("^vhMAIL")	
 	do ..Globals.Insert("^INDEX")	
 	
 	set itGlobals = ##class(TECH.ListIterator).%New(..Globals)
 	while itGlobals.HasNext() {
 		#dim Global As %String = itGlobals.Next()
-		for  { set Global=$query(@Global) quit:Global=""  
-			if @Global?.E1.C.E do ..VoegMeldingToe(Global)
+		for  { set Global = $query(@Global) quit:Global=""  
+			
+			if @Global?.E1.C.E {
+				set StringIterator = ##class(TECH.StringIterator).%New(@Global)
+				while StringIterator.HasNext() {
+					#dim Value As %String = StringIterator.Next()
+					if ..MagVervangenWorden(Value) set @Global = $replace(@Global,Value,"")
+				}
+			}
+			
+			if @Global?.E1.C.E {
+				#dim Melding As %String = Global_" : "
+				set StringIterator = ##class(TECH.StringIterator).%New(@Global)
+				while StringIterator.HasNext() {
+					set Value = StringIterator.Next()
+					if Value?1C set Melding = Melding _ $ascii(Value)
+				}
+			}
 		}	
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="MagVervangenWorden">
+<FormalSpec>Value:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit $ascii(Value)=1
+]]></Implementation>
+</Method>
+
 <Method name="GeefStatus">
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>