Index: vhDeploy/D20210525xProductIdRecycleerderKproOpkuis.cls.xml
===================================================================
diff -u
--- vhDeploy/D20210525xProductIdRecycleerderKproOpkuis.cls.xml	(revision 0)
+++ vhDeploy/D20210525xProductIdRecycleerderKproOpkuis.cls.xml	(revision 64471)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20210525xProductIdRecycleerderKproOpkuis">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Opkuisen van de, voor de range voor ProductIdRecyclage gekozen, ProductId's in ^KPRO</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim OpTeKuisenProductIds As %String = "3027,3033,3034,3035,3045,3055,3061,3062,3063,3064,3074,3075,3076,3078,3082,3083,3084,3085,3087,3088,3089,3091,3092,3093,3094,3095,3096,3097,3104,3109,3111,3115,3116,3118,3119,3120,3121,3122,3123,3124,3125,3126,3127,3128,3129,3141,3142,3143"
+	#dim ProductId As %String
+	
+	Set RangeIterator = ##class(TECH.StringIterator).%New(OpTeKuisenProductIds, ",")
+	While (RangeIterator.HasNext()) {
+		Set ProductId = RangeIterator.Next()
+		Kill ^KPRO(ProductId)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>