Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r73588 -r73656
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73588)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73656)
@@ -88,10 +88,11 @@
 	#dim IsDeelVanSamengesteldHalffabItem As %Boolean = $$$False
 	
 	#dim RolnaamVoorCache As %String = ..RolnaamProcessor.GeefRolnaamVoorCache(RolnaamVoorEncoway)
-	If ((##class(TECH.StringUtils).Contains(RolnaamVoorCache, ".")) || ..IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
+	
+	If ((##class(TECH.StringUtils).Contains(RolnaamVoorCache, ".")) || ..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
 		#dim SGRol As %String = ""
-		If (..IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
-			Set SGRol = ..GeefRolnaamVanGekoppeldKenmerk(RolnaamVoorCache)
+		If (..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
+			Set SGRol = ..RolnaamProcessor.GeefRolnaamVanGekoppeldKenmerk(RolnaamVoorCache)
 		} Else {
 			Set SGRol = $Piece(RolnaamVoorCache, ".", 1)
 		}
@@ -105,11 +106,11 @@
 			Set SGHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(SGRol)
 		}
 
-		If (..IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
-			If (..IsGekoppeldeMat(RolnaamVoorCache)) {
+		If (..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
+			If (..RolnaamProcessor.IsGekoppeldeMat(RolnaamVoorCache)) {
 				Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 1)	
 			}
-			If (..IsGekoppeldeSST(RolnaamVoorCache)) {
+			If (..RolnaamProcessor.IsGekoppeldeSST(RolnaamVoorCache)) {
 				Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2)
 			}
 		} Else {
@@ -259,61 +260,6 @@
 <Implementation><![CDATA[	Quit ..ProductAPI.GeefProductIdVoorIdentNummer(IdentNummer)
 ]]></Implementation>
 </Method>
-
-<Method name="IsResultaatVanGekoppeldKenmerk">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim IsGekoppeldKenmerk As %Boolean = $$$False
-	
-	If (..IsGekoppeldeMat(RolNaam)) {
-		Set IsGekoppeldKenmerk = $$$True
-	}
-
-	If ..IsGekoppeldeSST(RolNaam) {
-		Set IsGekoppeldKenmerk = $$$True
-	}
-	
-	
-	Quit IsGekoppeldKenmerk
-]]></Implementation>
-</Method>
-
-<Method name="GeefRolnaamVanGekoppeldKenmerk">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim RolNaamGekoppeldKenmerk As %String = ""
-		
-	If (..IsGekoppeldeMat(RolNaam)) {
-		Set RolNaamGekoppeldKenmerk = "MAT_Standaard_MatX"
-	} ElseIf (..IsGekoppeldeSST(RolNaam)) {
-		Set RolNaamGekoppeldKenmerk = "SpaceStep_SpaceStep"
-	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Rolnaam voor gekoppeld kenmerk kan niet bepaald worden voor rol '" _ RolNaam _ "'"))	
-	}
-	
-	Quit RolNaamGekoppeldKenmerk
-]]></Implementation>
-</Method>
-
-<Method name="IsGekoppeldeMat">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit RolNaam = "Mat"
-]]></Implementation>
-</Method>
-
-<Method name="IsGekoppeldeSST">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).StartsWith(RolNaam, "SST")
-]]></Implementation>
-</Method>
 </Class>