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 %CacheSQLStorage ^LOG.vhLib.LoggingGetalIndexS data ^LOG.vhLib.LoggingGetalIndexD delimited {Getal} {Logging}