persistent vhLib.Macro 1 LogBase %Persistent 0 %String %Date %Integer %Time "E" = error "I" = info "W" = warn "D" = debug %String %String %String Queued, Started, Finish, WrongCardboard, ... %String %String Bij save error wordt het object mee opgenomen in XML of DumpObject vorm %String Stack level in case of errors %String 1 1 Datum,SubID 1 Method AAACompilerFirst() moet eerst staan in alfabetische lijst, want moet als eerste gecompileerd worden! 1 objectgenerator Application:%String,Niveau:%String,Groep:%String,GroepID:%String,Actie:%String,Detail:%String,Object:%RegisteredObject,ProgLabel:%String Niveau:%String,Groep:%String,GroepID:%String,Actie:%String,Detail:%String,Object:%RegisteredObject,ProgLabel:%String w ##class(DS.Prod.OptiBox.Logging).GetErrorInfo() Object MailAddress:%String,Subject:%String ",2))) sLine=$TEXT(@$P($ZError,">",2,32767)) Quit $G(sLine) ]]> Do ##class(VHSys.Scheduler.Logging).GetMailFields(.From,.lbTo,.Subj, "Error") 1 " Set lbTo=$S($G(lbTo)="":$LB("wv@vanhoecke.be"),1:lbTo) Quit ]]> 1 blnMultiLine:%String,Indent:%String %String 1 %String 1 Dagen TotDatum Do . Write "CleanOld, Dagen=", Dagen, " Datum=",Datum, ! . Kill $$$StorageGlobal(Datum) ]]> %Library.CacheStorage ^DS.Sys.LogBaseD LogBaseDefaultData ^DS.Sys.LogBaseD ^DS.Sys.LogBaseI ^DS.Sys.LogBaseS %%CLASSNAME Actie Detail Groep GroepID Niveau Object ProgLabel Tijd Application