Index: APPS/VisiDot/impl/Tech.cls.xml
===================================================================
diff -u -r58841 -r58849
--- APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 58841)
+++ APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 58849)
@@ -146,9 +146,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	If ..IsFrameID(VHossID) {
-		#dim Type As %String = $Extract(VHossID,1,2) 
-		#dim VHossNr As %String = $Extract(VHossID,5,10) 
-		Quit Type_VHossNr
+		Quit ..GeefVHossIdVanFrameId(VHossID)
 	}
 	If ..IsVHossID(VHossID) {
 		Quit VHossID
@@ -157,6 +155,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVHossIdVanFrameId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FrameId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Type As %String = $Extract(FrameId,1,2) 
+	#dim VHossNr As %String = $Extract(FrameId,5,10) 
+	Quit Type_VHossNr
+]]></Implementation>
+</Method>
+
 <Method name="GeefBatchVanLadeID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LadeID:%String</FormalSpec>