Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r1543 -r1723
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1543)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1723)
@@ -96,7 +96,22 @@
 <Method name="GeefClassificatie">
 <FormalSpec>ClassificatieID:%Integer</FormalSpec>
 <ReturnType>DOM.PM.Classificatie</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.DataM.DataMClassificatie).%New(ClassificatieID)
+<Implementation><![CDATA[
+	Set Classificatie = ""
+	Set Niveau = $Piece(^KLAS("K",ClassificatieID),"\")
+	If (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Hoofdgroep())
+	{
+		Set Classificatie = ##class(DOM.PM.impl.DataM.DataMHoofdgroepClassificatie).%New(ClassificatieID)
+	}
+	ElseIf (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Groep())
+	{
+		Set Classificatie = ##class(DOM.PM.impl.DataM.DataMGroepClassificatie).%New(ClassificatieID)
+	}
+	ElseIf (Niveau = ##class(DOM.PM.enu.PMClassificatieNiveau).Subgroep())
+	{
+		Set Classificatie = ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(ClassificatieID)
+	}
+	Quit Classificatie
 ]]></Implementation>
 </Method>
 
@@ -107,7 +122,7 @@
 	Set Key = $Order(^KPHG1(""))
 	While (Key '= "")
 	{
-		Do ClassificatieLijst.Insert(##class(DOM.PM.impl.DataM.DataMHoofdgroepClassificatie).%New(Key))
+		Do ClassificatieLijst.Insert(..GeefClassificatie($Piece(^KPHG1(Key),"\",6)))
 		Set Key = $Order(^KPHG1(Key))	
 	}	
 	Quit ##class(TECH.ListIterator).%New(ClassificatieLijst)