Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r3349 -r3864
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3349)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3864)
@@ -62,11 +62,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LogStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Niveau:vhLib.enu.LogNiveau="I",Actie:%String="",DetailAsStream:%Stream=""</FormalSpec>
+<Implementation><![CDATA[
+	Set Logger = ..%New()
+	Do Logger.AddToLog(Niveau, Actie, DetailAsStream, $$$False)
+]]></Implementation>
+</Method>
+
 <Method name="GeefExceptieInfo">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Exceptie:TECH.Exceptions.Exception</FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>%Stream</ReturnType>
 <Implementation><![CDATA[
 	#dim Stream As %Stream.Object = ##class(%GlobalCharacterStream).%New()
 	do Stream.WriteLine("TrapHandler: "_$ETrap)
@@ -82,7 +91,7 @@
 </Method>
 
 <Method name="AddToLog">
-<FormalSpec>Niveau:%String,Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0</FormalSpec>
+<FormalSpec>Niveau:%String,Actie:%String,Detail:%CacheString="",blnSendMail:%Boolean=0</FormalSpec>
 <ReturnType>vhLib.Logging</ReturnType>
 <Implementation><![CDATA[	Quit ..LoggingAPI.MaakLogItem(Niveau,..Groep,Actie,Detail,blnSendMail,%this)
 ]]></Implementation>
@@ -213,70 +222,6 @@
 	quit
 ]]></Implementation>
 </Method>
-
-<Method name="ClearOldLogItems">
-<Description>
-Do ##class(vhLib.Logger).ClearOldLogItems(30,30,10,10)</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>DaysError:%Integer=30,DaysWarning:%Integer=30,DaysInformation:%Integer=10,DaysDebug:%Integer=10</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set OldDateTimeError = $$$CurrentDate-DaysError	
-	Set OldDateTimeWarning = $$$CurrentDate-DaysWarning
-	Set OldDateTimeInformation = $$$CurrentDate-DaysInformation
-	Set OldDateTimeDebug = $$$CurrentDate-DaysDebug
-	
-	set Server = $$$Server do ExecQuery
-	set Server = $piece(##class(TECH.Config.ConfigMgr).Instance().GeefString("Makova_ServerEnNamespace"),"\",1) do ExecQuery
-	
-	#dim Date = ""
-	for { set Date = $O(^ERRORS(Date)) Quit:Date=""
-		if Date < OldDateTimeError kill ^ERRORS(Date)
-	}
-
-	Quit $$$OK	
-	
-ExecQuery
-	Do ..RemoveLogByItem(OldDateTimeError, Server, "E")	
-	Do ..RemoveLogByItem(OldDateTimeWarning, Server, "W")	
-	Do ..RemoveLogByItem(OldDateTimeInformation, Server, "I")	
-	Do ..RemoveLogByItem(OldDateTimeDebug, Server, "D")
-]]></Implementation>
-</Method>
-
-<Method name="RemoveLogByItem">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Datum:%Date,Server:%String,Niveau:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim QueryString As %String
-	
-	If $$$Not(Niveau = "I") {
-		Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=?"
-		Do ..VerwijderLogRecords(QueryString, Datum, Server, Niveau)
-	} Else {
-		Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=? AND Groep<>'WS.Vhisie4.Winkelkar.WinkelkarService'"
-		Do ..VerwijderLogRecords(QueryString, Datum, Server, Niveau)
-		
-		Set Datum = Datum - 20
-		Set QueryString = "SELECT %NOLOCK ID FROM vhLib.Logging WHERE Datum<=? AND Server=? AND Niveau=? AND Groep='WS.Vhisie4.Winkelkar.WinkelkarService'"
-		Do ..VerwijderLogRecords(QueryString, Datum, Server, Niveau)
-	}
-]]></Implementation>
-</Method>
-
-<Method name="VerwijderLogRecords">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>QueryString:%String,Datum:%Date,Server:%String,Niveau:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set Query = ##class(TECH.DynamicQuery).%New(QueryString,$ListBuild(Datum, Server, Niveau))
-	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
-	While ResultSet.Next() {
-		Do ##class(vhLib.Logging).%DeleteId(ResultSet.GetDataByName("ID"))
-	}
-]]></Implementation>
-</Method>
 </Class>