Index: EWLOG.mac.rou
===================================================================
diff -u -r29059 -r48834
--- EWLOG.mac.rou	(.../EWLOG.mac.rou)	(revision 29059)
+++ EWLOG.mac.rou	(.../EWLOG.mac.rou)	(revision 48834)
@@ -1,3 +1,5 @@
+#include vhLib.Macro
+
 EWLOG ;E'WMS logging [ 05/01/2003  10:52 PM ]
  
 #define GeefLijnInCode	$STACK($STACK-2,"PLACE")
@@ -6,20 +8,35 @@
  #dim Info As %String = $$GeefInfo(sExec)
  #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
  Set Info = Info_$C(13,10)_Exception.ToString()
- Do ##class(vhLib.Logger).%New("EWMS").Warning($$$GeefLijnInCode,Info)
+ Do ##class(vhLib.Logger).%New().Warning("Exception",$$$GeefLijnInCode_" : "_Info)
  Quit
  
 WARN(sExec)
- Do ##class(vhLib.Logger).%New("EWMS").Warning($$$GeefLijnInCode,$$GeefInfo(sExec))
+ New Info Set Info = $$GeefInfo(sExec)
+ Do ##class(vhLib.Logger).%New().Warning($$ParseActie(Info),$$$GeefLijnInCode_" : "_Info)
  Quit
 
 INFO(sExec)    
- Do ##class(vhLib.Logger).%New("EWMS").Info($$$GeefLijnInCode,$$GeefInfo(sExec))
+ New Info Set Info = $$GeefInfo(sExec)
+ Do ##class(vhLib.Logger).%New().Info($$ParseActie(Info),$$$GeefLijnInCode_" : "_Info)
  Quit
  
 DEBUG(sExec) 
- Do ##class(vhLib.Logger).%New("EWMS").Debug($$$GeefLijnInCode,$$GeefInfo(sExec))
+ Do ##class(vhLib.Logger).%New().Debug($$ParseActie(Info),$$$GeefLijnInCode_" : "_Info)
  Quit
+
+ParseActie(Info)
+	New Actie , StringIterator , Stop , Value
+	set Actie = ""
+	set Stop = 0
+	set StringIterator = ##class(TECH.StringIterator).%New(Info)
+	while $$$Not(Stop) && (StringIterator.HasNext()) {
+		set Value = StringIterator.Next()
+		set:Value?1N Stop = 1
+		set:Value?1":" Stop = 1
+		set:$$$Not(Stop) Actie = Actie _ Value
+	}
+	quit $$$Trim(Actie)
   
 GeefInfo(sExec)
  New Info