Index: vhUpgrade/Test/VergelijkAanwezigeRoutines.cls.xml
===================================================================
diff -u
--- vhUpgrade/Test/VergelijkAanwezigeRoutines.cls.xml	(revision 0)
+++ vhUpgrade/Test/VergelijkAanwezigeRoutines.cls.xml	(revision 3504)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUpgrade.Test.VergelijkAanwezigeRoutines">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Execute">
+<Implementation><![CDATA[
+	Set NietBestaandeMacs = ##class(%ListOfDataTypes).%New()
+	Set NietUpToDateMacs = ##class(%ListOfDataTypes).%New()
+	
+	Set Routine = $O(^ROUTINE(""))
+	While Routine '= "" 
+	{
+		If ..IsNodigRoutineTeTesten(Routine) {
+			Set Datum = $Piece($G(^ROUTINE(Routine,0)),",")			
+			If ..BestaatMac(Routine) {
+				If '..IsMacZelfdeDagGewijzd(Routine,Datum) Do NietUpToDateMacs.Insert(Routine)
+			}
+			Else { Do NietBestaandeMacs.Insert(Routine)}
+		}
+		
+		Set Routine = $O(^ROUTINE(Routine))
+	}
+	Do ..VerwerkNietBestaandeMacs(NietBestaandeMacs)
+	Do ..VerwerkNietUpToDateMacs(NietUpToDateMacs)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkNietBestaandeMacs">
+<FormalSpec>NietBestaandeMacs:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	w !!,"------------------------------ ",!
+	w "Niet bestaande macs : ",!
+	w "------------------------------ ",!
+	Set MacIt = ##class(TECH.ListIterator).%New(NietBestaandeMacs)
+	While MacIt.HasNext() {
+		Set Mac = MacIt.Next()
+		w Mac,!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkNietUpToDateMacs">
+<FormalSpec>NietUpToDateMacs:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	w !!,"------------------------------ ",!
+	w "Niet up to date macs : ",!
+	w "------------------------------ ",!
+	Set MacIt = ##class(TECH.ListIterator).%New(NietUpToDateMacs)
+	While MacIt.HasNext() {
+		Set Mac = MacIt.Next()
+		w Mac,!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="IsNodigRoutineTeTesten">
+<FormalSpec>Routine:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set IsNodigTeTesten = ((Routine '[ "%") && (Routine '[ "p621" ) && (Routine '[ "p620" ) && (Routine '[ "p595" ) )
+	If IsNodigTeTesten {
+		For Nummer = 1 : 1 : 9 {
+			Set Contains = "."_Nummer
+			Set IsNodigTeTesten = IsNodigTeTesten && (Routine '[ Contains)
+		}
+	}
+	Quit IsNodigTeTesten
+]]></Implementation>
+</Method>
+
+<Method name="BestaatMac">
+<FormalSpec>Naam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $Data(^rMAC(Naam))
+]]></Implementation>
+</Method>
+
+<Method name="IsMacZelfdeDagGewijzd">
+<FormalSpec>Naam:%String,Datum:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set DatumMac = $Piece($G(^rMAC(Naam,0)),",")
+	Quit (Datum=DatumMac)
+]]></Implementation>
+</Method>
+</Class>
+</Export>