Index: vhDeploy/Deploy201105261322.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy201105261322.cls.xml	(revision 0)
+++ vhDeploy/Deploy201105261322.cls.xml	(revision 1306)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.Deploy201105261322">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<Description>
+In ^INDEX zitten enkele overbodige indexen, deze weghalen uit de global.	</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Index = ##class(vhConsistency.Checks.Index.KlantIndex).%New()
+	Set Index.DoKill = 1
+	Do Index.VoerUit()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhConsistency/Checks/Index/KlantIndex.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/Index/KlantIndex.cls.xml	(revision 0)
+++ vhConsistency/Checks/Index/KlantIndex.cls.xml	(revision 1306)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.Checks.Index.KlantIndex">
+<Description>
+JBL + 2011-05-26</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="DoKill">
+<Description>
+Indien deze flag wordt aangezet worden de globals die in ^INDEX zitten maar geen overeenkomstige record hebben in 
+KKL, DKL of KK1</Description>
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[		Quit ..CheckIndex()
+]]></Implementation>
+</Method>
+
+<Method name="CheckIndex">
+<Description>
+^INDEX overlopen en klanten op aanwezigheid controleren in DKL, KKL en KK1</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = 1
+	Set Type = ""
+	Set Type = $Order(^INDEX("K","KL",Type))
+	While (Type '= ""){
+		Set Key = ""
+		Set Key = $Order(^INDEX("K","KL",Type,Key))
+		While (Key '= "")
+		{
+			Set Index = ^INDEX("K","KL",Type,Key)
+			/// KKL
+			If ('$Data(^KKL(Index))) {
+				Set Bericht = $C(9)_"^INDEX(K,KL,"_Type_","_Key_")="_Index_ " vindt geen overeekomst in KKL -> ^KKL("_Index_")"
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
+				Do ..KillIndex(Type,Key)
+			}
+			
+			/// DKL
+			Set Nr = $Piece(Index," ",2)
+			If ('$Data(^DKL("K","KL.A",Nr,0))) {
+				Set Bericht = $C(9)_"^INDEX(K,KL,"_Type_","_Key_")="_Index_ " vindt geen overeekomst in DKL -> ^DKL(""K"",""KL.A"","_Nr_",0)"
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
+				Do ..KillIndex(Type,Key)
+			}
+		
+			/// KK1
+			If ('$Data(^KK1(Nr))) {
+				Set Bericht = $C(9)_"^INDEX(K,KL,"_Type_","_Key_")="_Index_ " vindt geen overeekomst in KK1 -> ^KK1("_Nr_")"
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
+				Do ..KillIndex(Type,Key)
+			}
+			
+			Set Key = $Order(^INDEX("K","KL",Type,Key))
+		}	
+		Set Type = $Order(^INDEX("K","KL",Type))
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="KillIndex">
+<Description>
+Method uitvoeren indien DoKill boolean aanstaat.</Description>
+<FormalSpec>Type:%String,Key:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (..DoKill){
+		w "Kill ^INDEX(K,KL,"_Type_","_Key_")"
+		//read dokill
+		//if ((dokill = "Y") || (dokill = "y")) 
+		Kill ^INDEX("K","KL",Type,Key)
+		w !
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>