Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.Index.KlantIndex") 1 vhConsistency.Check %Boolean 1 Indien deze flag wordt aangezet worden de globals die in ^INDEX zitten maar geen overeenkomstige record hebben in KKL, DKL of KK1 %Boolean 0 %Status ^INDEX overlopen en klanten op aanwezigheid controleren in DKL, KKL en KK1 %Status ^KKL("_Index_",0)" Do ..VoegMeldingToe(Bericht) Set Status = $$$ERROR($$$GeneralError,Bericht) Do ..KillIndex(Type,Key) }ElseIf (Type = 102) && (Key '[ $Piece(^KKL(Index,0),"\",50)){ Set Bericht = $C(9)_"^INDEX(K,KL,"_Type_","_Key_")="_Index_ " komt niet overeen met piece 50 in ^KKL("_Index_",0) = "_$Piece(^KKL(Index,0),"\",50) Do ..VoegMeldingToe(Bericht) Set Status = $$$ERROR($$$GeneralError,Bericht) } /// 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) }ElseIf (Type = 102) && (Key '[ $Piece(^DKL("K","KL.A",Nr,0),"\",50)){ Set Bericht = $C(9)_"^INDEX(K,KL,"_Type_","_Key_")="_Index_ " komt niet overeen met piece 50 in ^DKL(""K"",""KL.A"","_Index_",0) = "_$Piece(^DKL("K","KL.A",Nr,0),"\",50) Do ..VoegMeldingToe(Bericht) Set Status = $$$ERROR($$$GeneralError,Bericht) } /// 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)) } /// Index nagaan en inhoud ervan Set Globals = ##class(%ListOfDataTypes).%New() Do Globals.Insert("^INDEX") Set itGlobals = ##class(TECH.ListIterator).%New(Globals) While itGlobals.HasNext() { Set Global = itGlobals.Next() For { set Global=$query(@Global) quit:Global="" If ((@(Global) '= $TR(@(Global),"ÄËÜÏÖÁÉÚÍÓÀÈÙÌÒÃÕÂÊÛÎÔ","")) || (Global '= $TR(Global,"ÄËÜÏÖÁÉÚÍÓÀÈÙÌÒÃÕÂÊÛÎÔ",""))){ Set Melding = $C(9)_"Verkeerd karakter in "_Global_" = "_@(Global) Set Status = $$$ERROR($$$GeneralError) do ..VoegMeldingToe(Melding) } } } Quit Status ]]> %Status 1 %Status CorrigeerFouten:%Boolean=0 1 %Status Method uitvoeren indien DoKill boolean aanstaat. Type:%String,Key:%String