persistent 1 VHOpslag TECH.Persistent vhLib.Logging %Integer 1 1 Getal,Logging 1 1 Logging:vhLib.Logging,Getal:%Integer 1 ID:%String Do ##class(vhLib.LoggingGetalIndex).BouwOp() 1 Do ##class(vhLib.LoggingGetalIndex).BouwOpVoorLogEntry(##class(vhLib.Logging).%OpenId("PRA-W7_DEV1||64666||24")) 1 Logging:vhLib.Logging =1000) ..BewaarIndex(Logging, Getal) } ]]> Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntry(##class(vhLib.Logging).%OpenId("PRA-W7_DEV1||64877||102")) 1 Logging:vhLib.Logging Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorLogEntry("PRA-W7_DEV1||64877||102") 1 LoggingId:%String 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="" 1 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) } ]]> %CacheSQLStorage ^LOG.vhLib.LoggingGetalIndexS data ^LOG.vhLib.LoggingGetalIndexD delimited {Getal} {Logging}