Index: vhPowerTools/APPS/VKP/TapiLoggingOpkuiser.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/VKP/TapiLoggingOpkuiser.cls.xml	(revision 0)
+++ vhPowerTools/APPS/VKP/TapiLoggingOpkuiser.cls.xml	(revision 52215)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.APPS.VKP.TapiLoggingOpkuiser">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="KuisOpTapiLoggingVoorTelefoonNummer">
+<Description>
+Do ##class(vhPowerTools.APPS.VKP.TapiLoggingOpkuiser).KuisOpTapiLoggingVoorTelefoonNummer("0476435379")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TelefoonNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Dag = "0"
+	For { 
+		Set Dag = $order(^TAPILOG(Dag)) 
+		// Write Dag, !
+		quit:(""=Dag) 
+		Set LogVolgnummer = "0"
+		For { 
+			Set LogVolgnummer = $order(^TAPILOG(Dag, LogVolgnummer)) 
+			quit:(""=LogVolgnummer)
+			#dim LogItem As %List = ^TAPILOG(Dag,LogVolgnummer)
+			Write:($ListGet(LogItem, 3)[TelefoonNummer) $ListGet(LogItem, 3), !
+		}		
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>