Index: vhConsistency/ConsistencyCheck.cls.xml
===================================================================
diff -u -r1327 -r1734
--- vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1327)
+++ vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1734)
@@ -3,7 +3,9 @@
 <Class name="vhConsistency.ConsistencyCheck">
 <Description>
 JBL + 2011-05-05 
-Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0)</Description>
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0)
+Of één test uitvoeren via 
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.Index.KlantIndex")</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -14,17 +16,22 @@
 </Property>
 
 <Method name="VoerUit">
+<Description>
+VoerUit
+ToonAlles : toon zowel goede als negatieve resultaten in consistency check.
+StuurMail : Stuurt email als met resultaat in (in te stellen via ConfigMgr).
+CheckName : indien één specifieke test uitgevoerd moet worden.</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ToonAlles:%Boolean=0,StuurMail:%Boolean=1</FormalSpec>
+<FormalSpec>ToonAlles:%Boolean=0,StuurMail:%Boolean=1,CheckName:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set ConsistencyCheck = ..%New()
-	Do ConsistencyCheck.VoerAlleChecksUit(ToonAlles,StuurMail)
+	Do ConsistencyCheck.VoerAlleChecksUit(ToonAlles,StuurMail,CheckName)
 ]]></Implementation>
 </Method>
 
 <Method name="VoerAlleChecksUit">
-<FormalSpec>ToonAlles:%Boolean=0,StuurMail:%Boolean</FormalSpec>
+<FormalSpec>ToonAlles:%Boolean=0,StuurMail:%Boolean,CheckName:%String</FormalSpec>
 <Implementation><![CDATA[
 		
 		Do ..Meldingen.WriteLine("Consistency Checks :")
@@ -35,14 +42,16 @@
 		set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
 		do rs.Execute("vhConsistency.Check")
 		while rs.Next() {
-			set Classname = rs.Data("Name")
-			Set $ZTRAP = "ErrHandling"
-			If ('..VoerEenCheckUit(Classname, ToonAlles)){
-				Set CheckGefaald = 1
+			set ClassName = rs.Data("Name")
+			If (CheckName = "") || $$$StartsWithVar(ClassName,CheckName) {
+				Set $ZTRAP = "ErrHandling"
+				If ('..VoerEenCheckUit(ClassName, ToonAlles)){
+					Set CheckGefaald = 1
+				}
+				Set $ZTRAP = ""
 			}
-			Set $ZTRAP = ""
 			Continue
-ErrHandling Set CheckGefaald = 1 Do ..Meldingen.Write(Classname_" : GEFAALD "_$C(13,10,9)_$ZE_$C(13,10))
+ErrHandling Set CheckGefaald = 1 Do ..Meldingen.Write(ClassName_" : GEFAALD "_$C(13,10,9)_$ZE_$C(13,10))
 		}		
 		
 		If (CheckGefaald || ToonAlles)
@@ -72,22 +81,22 @@
 </Method>
 
 <Method name="VoerEenCheckUit">
-<FormalSpec>Classname:%String,ToonAlles:%Boolean=0</FormalSpec>
+<FormalSpec>ClassName:%String,ToonAlles:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Set Check = $zobjclassmethod(Classname,"%New")
+		Set Check = $zobjclassmethod(ClassName,"%New")
 		
 		Set Resultaat = Check.VoerUit()
 		
 		If ('Check.SkipCheck){
 			If (Resultaat '= $$$OK){
 				Do ..Meldingen.CopyFrom(Check.GeefMelding())
 			}ElseIf(ToonAlles && Resultaat){
-				Do ..Meldingen.WriteLine(Classname_" : OK")
+				Do ..Meldingen.WriteLine(ClassName_" : OK")
 			}
 		}Else{
-			Do ..Meldingen.WriteLine(Classname_" : SKIPPED")
+			Do ..Meldingen.WriteLine(ClassName_" : SKIPPED")
 		}
 		Quit Resultaat
 ]]></Implementation>