1 %RegisteredObject 0 In seconden %Integer 1 %Boolean 0 %String Maximum aantal keer dat event mag getriggerd worden na oproep Start() %Integer 0 Hulpteller voor MaxCount %Integer 0 1 Hulpvar voor ontimer event te bepalen %Integer Events Method OnTimer(Sender As %String) %String Active:%Boolean %Status 0) && (..FMaxCounter=0)) If ..FMaxCounter>0 Do . Set ..FMaxCounter=..FMaxCounter-1 . Set:(..FMaxCounter<1) ..Active=0 Set ..FExpireTime=$$HToNum^vhLib($H)+..Interval Do %Application.TriggerSimpleEvent(..OnTimer,%this) Quit ]]> %Boolean initvalue:%CacheString %Status