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()
}
]]>