Index: vhConsistency/ConsistencyCheck.cls.xml
===================================================================
diff -u -r1114 -r1115
--- vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1114)
+++ vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1115)
@@ -2,7 +2,8 @@
 <Export generator="Cache" version="9">
 <Class name="vhConsistency.ConsistencyCheck">
 <Description>
-JBL + 2011-05-05</Description>
+JBL + 2011-05-05
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit()</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -45,17 +46,20 @@
 ErrHandling Set CheckGefaald = 1 Set CheckGefaald = 1 Set ..Meldingen = ..Meldingen _ Classname_" : GEFAALD "_$C(10,13,9)_$ZE_$C(10,13)
 		}
 		
+		Set Hoofding = "Consistency Checks : "_$C(10,13)_"--------------------"_$C(10,13)_$C(10,13)
+		Set Boodschap = Hoofding_..Meldingen
 		If (CheckGefaald || ToonAlles)
 		{
-			Set Hoofding = "Consistency Checks : "_$C(10,13)_"--------------------"_$C(10,13)_$C(10,13)
-			Set Boodschap = Hoofding_..Meldingen
 			If ToonAlles w Boodschap,!	
 			If CheckGefaald {
 				Set From = $$$SystemMail($$$Server_" - Consistency check")
 				Set MailNaar = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("vhConsistencyCheck.MailNaar"))
 		    	Do SendMiniMail^vhLib(From,MailNaar,"Consistency check failed on ["_$$$Server_"]",Boodschap,0) 
 			}
 		}
+		Set Resultaat = "OK"
+		Set:CheckGefaald Resultaat="GEFAALD"
+		Do ##class(vhLib.Logger).%New("vhConsistency").Info("ConsistencyCheck",Resultaat_$C(10,13)_Boodschap)
 ]]></Implementation>
 </Method>