Index: vhLib/LoggingGetalIndex.cls.xml
===================================================================
diff -u -r3532 -r3555
--- vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3532)
+++ vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3555)
@@ -33,9 +33,11 @@
 <FormalSpec>ID:%String</FormalSpec>
 <Implementation><![CDATA[
 	#Dim Index As vhLib.LoggingGetalIndex = ##class(vhLib.LoggingGetalIndex).%OpenId(ID)
-	#Dim Getal As %Numeric = Index.Getal
-	#Dim LoggingId As %String = Index.LoggingGetObjectId()
-	Kill ^LOG.vhLib.LoggingGetalIndexD(Getal, LoggingId)
+	If $IsObject(Index) {
+		#Dim Getal As %Numeric = Index.Getal
+		#Dim LoggingId As %String = Index.LoggingGetObjectId()
+		Kill ^LOG.vhLib.LoggingGetalIndexD(Getal, LoggingId)
+	}
 ]]></Implementation>
 </Method>
 
@@ -126,6 +128,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderVoorOnbestaandeLogEntryIds">
+<Description>
+N.B. Indien de query te traag is, zou een for $order-loop overwegen kunnen worden:
+Set Getal="" For  Set Getal=$O(^LOG.vhLib.LoggingGetalIndexD(Getal)) Quit:Getal=""  Set LoggingId="" For  Set LoggingId=$O(^LOG.vhLib.LoggingGetalIndexD(Getal,LoggingId)) Quit:LoggingId=""</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set LoggingGetalIndexesToDelete = ##class(TECH.ListOfDataTypesOnDisk).%New()
+	Set Query = ##class(TECH.DynamicQuery).%New("select %nolock ID from vhlib.LoggingGetalIndex where logging->id is null")
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
+	While ResultSet.Next() {
+		Do LoggingGetalIndexesToDelete.Insert( ResultSet.GetDataByName("ID") )
+	}
+	Do ResultSet.Close()
+	
+	Set IdsToDeleteIterator = ##class(TECH.ListIterator).%New( LoggingGetalIndexesToDelete )
+	While IdsToDeleteIterator.HasNext() {
+		Set IdToDelete = IdsToDeleteIterator.Next()
+		Do ..VerwijderLoggingGetalIndex(IdToDelete)
+	}
+]]></Implementation>
+</Method>
+
 <Storage name="VHOpslag">
 <Type>%CacheSQLStorage</Type>
 <StreamLocation>^LOG.vhLib.LoggingGetalIndexS</StreamLocation>
Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r3515 -r3555
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3515)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 3555)
@@ -378,9 +378,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>oid:%ObjectIdentity</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntryId(oid)
-	Quit ##class(vhLib.Logging).%DeleteId(oid)
+<Implementation><![CDATA[	Quit ##class(vhLib.Logging).%DeleteId(oid)
 ]]></Implementation>
 </Method>