CountSessionDuration(site,arrTimeTable) ; arrTimeTable doorgeven als .local (ByREf)
 New querySessDur,i
 Kill arrTimeTable
 For i=1:1:7 Do  Set arrTimeTable(i)=0
 Set querySessDur=##class(%ResultSet).%New("DW.WWW.Log:StaticSessionDuration")
 Do querySessDur.Execute(site)
 For  Quit:'querySessDur.Next()  Do
 . New Level,Duur
 . Set Duur=$G(querySessDur.Data("Duur"))
 . Set Level=$S(Duur<60:1,(Duur>59)&&(Duur<300):2,(Duur>299)&&(Duur<600):3,(Duur>599)&&(Duur<900):4,(Duur>899)&&(Duur<1800):5,(Duur>1799)&&(Duur<3600):6,Duur>3599:7)
 . Set arrTimeTable(Level)=$I(arrTimeTable(Level))
 Quit
 
BuildSessionMatrix(site,arrMatrix,arrTopScore)  ; arrMatrix doorgeven als .local
 Kill arrMatrix,arrTopScore
 New qryMatrix,T
 Set T=1
 Set qryMatrix=##class(%ResultSet).%New("DW.WWW.Log:GetSessionMatrix")
 Do qryMatrix.Execute(site)
 For  Quit:'qryMatrix.Next()  Do
 . Set arrMatrix(qryMatrix.Data("Expression_1"),qryMatrix.Data("Expression_2"))=qryMatrix.Data("Aantal")
 . If T<11 Do  Set arrTopScore(qryMatrix.Data("Expression_1"),qryMatrix.Data("Expression_2"))="TOP10"
 . If (T>10) && (T<21) Do  Set arrTopScore(qryMatrix.Data("Expression_1"),qryMatrix.Data("Expression_2"))="TOP20"
 . Set T=$I(T)
 Quit
 
ConvertAll()
 Do ##class(DW.CSP.BLogic).ConvertData("Van Hoecke")
 Do ##class(DW.CSP.BLogic).ConvertData("Orgalux")
 Do ##class(DW.CSP.BLogic).ConvertData("Tandembox VH")
 Do ##class(DW.CSP.BLogic).ConvertData("Tandembox Hein")
 Do ##class(DW.CSP.BLogic).ConvertData("Tandembox Optima")
 Quit
 
TestWRO(Site)
	New querySessDur
	Set querySessDur=##class(%ResultSet).%New("DW.WWW.Log:GetSessionDuration")
	Do querySessDur.Execute(Site)
	For  Quit:('querySessDur.Next())  Do 
	. New objSessDur
	. Set objSessDur=##class(DW.WWW.StaticSessDur).%New()
	. Set objSessDur.SessieID=querySessDur.Get("SessieID")
	. Set objSessDur.Duur=querySessDur.Get("Duur")
	. Set objSessDur.Site=Site
	. Do objSessDur.%Save()
	. Set objSessDur=""