Index: DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u -r30353 -r30620
--- DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 30353)
+++ DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 30620)
@@ -86,11 +86,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHash">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..BerekenHash(..GeefCanonischeWaarde(IngegevenKenmerken))
+]]></Implementation>
+</Method>
+
 <Method name="GeefIKIDHash">
 <FormalSpec>CanonischeWaarde:%String</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash</ReturnType>
 <Implementation><![CDATA[
-	#dim Hash As %String = $System.Encryption.Base64Encode($System.Encryption.MD5Encode(CanonischeWaarde))
+	#dim Hash As %String = ..BerekenHash(CanonischeWaarde)
 	Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%OpenId(Hash)
 	If ('$IsObject(IKIDHash))
 	{
@@ -100,6 +107,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenHash">
+<FormalSpec>CanonischeWaarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $System.Encryption.Base64Encode($System.Encryption.MD5Encode(CanonischeWaarde))
+]]></Implementation>
+</Method>
+
 <Method name="GeefCanonischeWaarde">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%String</ReturnType>