Index: DOM/PM/Maatwerk/Calc/Common/impl/IKIDHashGenerator.cls.xml
===================================================================
diff -u -r29059 -r56738
--- DOM/PM/Maatwerk/Calc/Common/impl/IKIDHashGenerator.cls.xml	(.../IKIDHashGenerator.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Common/impl/IKIDHashGenerator.cls.xml	(.../IKIDHashGenerator.cls.xml)	(revision 56738)
@@ -7,14 +7,32 @@
 <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)) {
 		Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%New(Hash)
 	}
 	Quit IKIDHash
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHash">
+<FormalSpec>CanonischeWaarde:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..BerekenHash(CanonischeWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="BerekenHash">
+<FormalSpec>CanonischeWaarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Hash As %String = $System.Encryption.Base64Encode($System.Encryption.MD5Encode(CanonischeWaarde))
+	;D WLIP^vhDBG(97, Hash_$$$CRLF_"    "_CanonischeWaarde_$$$CRLF_$$$CRLF)
+	Quit Hash
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u -r56550 -r56738
--- DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 56550)
+++ DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 56738)
@@ -104,32 +104,17 @@
 <Method name="GeefHash">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..BerekenHash(..GeefCanonischeWaarde(IngegevenKenmerken))
+<Implementation><![CDATA[	Quit ..IKIDHashGenerator.GeefHash(..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 = ..BerekenHash(CanonischeWaarde)
-	Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%OpenId(Hash)
-	If ('$IsObject(IKIDHash))
-	{
-		Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%New(Hash)
-	}
-	Quit IKIDHash
+<Implementation><![CDATA[	Quit ..IKIDHashGenerator.GeefIKIDHash(CanonischeWaarde)
 ]]></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>