Index: vhCARETAKER.mac.rou =================================================================== diff -u -r66357 -r66534 --- vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 66357) +++ vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 66534) @@ -1343,6 +1343,15 @@ } Quit +VernieuwOBJTIdentNRMappingCache + Try { + Do InitRuntimeContext + Do ##class(OBJTimpl.PM.OBJTIdentLookupService).%New().RefreshCache() + } Catch { + Do OnError + } + Quit + OnError set $ztrap="EndErrorTrapping" new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch() Index: OBJTimpl/PM/OBJTIdentLookupService.cls.xml =================================================================== diff -u -r66509 -r66534 --- OBJTimpl/PM/OBJTIdentLookupService.cls.xml (.../OBJTIdentLookupService.cls.xml) (revision 66509) +++ OBJTimpl/PM/OBJTIdentLookupService.cls.xml (.../OBJTIdentLookupService.cls.xml) (revision 66534) @@ -13,14 +13,20 @@ 1 + +vhLib.Logger +1 + + -OBJTIdentNrMappingRepository:OBJTimpl.PM.OBJTIdentNrMappingRepository="" +OBJTIdentNrMappingRepository:OBJTimpl.PM.OBJTIdentNrMappingRepository="",Logger:vhLib.Logger="" 1 1 %Status 1 @@ -45,7 +51,9 @@ } } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - w Exception.ToString() + Do ..Logger.Error(..%ClassName(1),"Fout bij het (her)initialiseren van de IdentNr lookup cache voor Objective, zie bijkomende exceptie in de log",$$$true) + Do ..Logger.LogExceptie(Exception) + do ..SQLConnection.Disconnect() } ]]>