Index: DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u -r1803 -r1809
--- DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 1803)
+++ DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 1809)
@@ -4,5 +4,63 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.IngegevenKenmerkenAPI,%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BewaarIngegevenKenmerken">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IKID</ReturnType>
+<Implementation><![CDATA[
+	Set CanonischeWaarde = ..GeefCanonischeWaarde(IngegevenKenmerken)	
+	Set IKIDHash = ..GeefIKIDHash(CanonischeWaarde)
+	Set IKID = IKIDHash.VoegToe(CanonischeWaarde,IngegevenKenmerken)
+	
+	Set Status = IKIDHash.Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de nodige data niet opslagen voor de IKID.",Status))
+	}
+	
+	Quit IKID
+]]></Implementation>
+</Method>
+
+<Method name="GeefIKIDHash">
+<FormalSpec>CanonischeWaarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Hash = $System.Encryption.MD5Encode(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="GeefCanonischeWaarde">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set IKCanonischeWaardeGenerator = ##class(DOM.PM.Maatwerk.Calc.Common.IKCanonischeWaardeGenerator).%New()
+	Do IngegevenKenmerken.Accept(IKCanonischeWaardeGenerator)
+	Quit IKCanonischeWaardeGenerator.GeefCanonischeWaarde()
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<FormalSpec>IKID:DOM.PM.Maatwerk.Calc.Common.IKID</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set IKIDHash = ##class(DOM.PM.Maatwerk.Calc.Common.impl.IKIDHash).%OpenId(IKID.GeefHash())
+	Quit IKIDHash.GeefIngegevenKenmerken(IKID.GeefOverflowID())
+]]></Implementation>
+</Method>
 </Class>
 </Export>