Index: vhPowerTools/TECH/cQSYSOpkuiser.cls.xml
===================================================================
diff -u
--- vhPowerTools/TECH/cQSYSOpkuiser.cls.xml	(revision 0)
+++ vhPowerTools/TECH/cQSYSOpkuiser.cls.xml	(revision 38587)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.TECH.cQSYSOpkuiser">
+<Super>%RegisteredObject</Super>
+
+<Method name="VerwijderNodesMetSubstringInRefOfWaarde">
+<Description>
+D ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("NBR")</Description>
+<FormalSpec>SubString:%String,EchtVerwijderen:%Boolean=0</FormalSpec>
+<Implementation><![CDATA[
+		Set SubString = ##class(TECH.StringUtils).ToUpper(SubString)
+		#Dim NodeReferentie As %String = $Query(^cQSYS)
+  		For {
+        	Quit:(NodeReferentie="")
+
+        	#Dim BevatSubString = ( (##class(TECH.StringUtils).ToUpper(NodeReferentie)[SubString) || (##class(TECH.StringUtils).ToUpper(@NodeReferentie)[SubString) )
+        	If BevatSubString {
+	        	Write !,NodeReferentie," == ", @NodeReferentie
+        		If EchtVerwijderen {
+	        		Kill @NodeReferentie
+	        		Write "  VERWIJDERD."
+        		}
+        	}
+        	
+    		Set NodeReferentie = $Query(@NodeReferentie) 
+  		}
+  		Write !,"Klaar."
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/vhPowerTools/TECH/cQSYSOpkuiser.cls.xml
===================================================================
diff -u
--- vhUnitTest/vhPowerTools/TECH/cQSYSOpkuiser.cls.xml	(revision 0)
+++ vhUnitTest/vhPowerTools/TECH/cQSYSOpkuiser.cls.xml	(revision 38587)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.vhPowerTools.TECH.cQSYSOpkuiser">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert geen mismatches.">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","1") = "xIetsAndersy"
+	Do ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("SubString",1)
+	Do $$$AssertTrue($Data(^cQSYS("cQSYSOpkuiser","1")))
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert exacte matches in node waarde">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","1") = "xSubStringy"
+	Do ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("SubString",1)
+	Do $$$AssertFalse($Data(^cQSYS("cQSYSOpkuiser","1")))
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert exacte matches in node ref">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","xSubStringy") = "abc"
+	Do ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("SubString",1)
+	Do $$$AssertFalse($Data(^cQSYS("cQSYSOpkuiser","xSubStringy")))
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert anders gecasete matches in node waarde">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","1") = "xSubStringy"
+	Do ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("sUBsTRING",1)
+	Do $$$AssertFalse($Data(^cQSYS("cQSYSOpkuiser","1")))
+]]></Implementation>
+</Method>
+
+<Method name="Test VerwijderNodesMetSubstringInRefOfWaarde verwijdert anders gecasete matches in node ref">
+<Implementation><![CDATA[
+	Set ^cQSYS("cQSYSOpkuiser","xSubStringy") = "abc"
+	Do ##class(vhPowerTools.TECH.cQSYSOpkuiser).%New().VerwijderNodesMetSubstringInRefOfWaarde("sUBsTRING",1)
+	Do $$$AssertFalse($Data(^cQSYS("cQSYSOpkuiser","xSubStringy")))
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Kill ^cQSYS("cQSYSOpkuiser")
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>