Index: vhLib.mac.rou
===================================================================
diff -u -r2052 -r2123
--- vhLib.mac.rou	(.../vhLib.mac.rou)	(revision 2052)
+++ vhLib.mac.rou	(.../vhLib.mac.rou)	(revision 2123)
@@ -2045,6 +2045,7 @@
 	
  // Name: ClassMethod uitvoeren van een classmethod, Author: Paul Verhulst, Function: $zobjclassmethod kan niet geJOBbed worden maar via deze routine kan het wel
 ClassMethod(ClassName,Method,NrOfParam,P1,P2,P3,P4,P5,P6,P7,P8)
+	set $zt="CatchClassMethod"
 	Set NrOfParam=$G(NrOfParam)
 	If 'NrOfParam Do $zobjclassmethod(ClassName,Method) Quit
 	If NrOfParam=1 Do $zobjclassmethod(ClassName,Method,.P1) Quit
@@ -2056,6 +2057,15 @@
 	If NrOfParam=7 Do $zobjclassmethod(ClassName,Method,.P1,.P2,.P3,.P4,.P5,.P6,.P7) Quit
 	If NrOfParam=8 Do $zobjclassmethod(ClassName,Method,.P1,.P2,.P3,.P4,.P5,.P6,.P7,.P8) Quit
 	Quit
+CatchClassMethod Set $ZTRAP = ""
+	new Exception,Message
+	set Exception = ##class(TECH.ExceptionHandler).Catch()
+	set Message="ClassName : "_$g(ClassName)_$$$CRLF_" Method : "_$g(Method)_$$$CRLF_
+				" NrOfParam :"_$g(NrOfParam)_$$$CRLF_" P1: "_$g(P1)_$$$CRLF_" P2: "_$g(P2)_$$$CRLF_
+				" P3: "_$g(P3)_$$$CRLF_" P4: "_$g(P4)_$$$CRLF_" P5: "_$g(P5)_$$$CRLF_" P6: "_$g(P6)_$$$CRLF_
+				" P7: "_$g(P7)_$$$CRLF_" P8: "_$g(P8)
+	Do ##class(vhLib.Logger).%New("SYSTEM").ErrorMail("ClassMethod_Execution",Message_$$$CRLF_Exception.ToString())
+	Quit
 	
 ClassFunction(ClassName,Method,NrOfParam,P1,P2,P3,P4,P5,P6,P7,P8)
 	Set NrOfParam=$G(NrOfParam)