Index: APPS/VisiDot/impl/Tech.cls.xml
===================================================================
diff -u -r57638 -r58823
--- APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 57638)
+++ APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 58823)
@@ -84,6 +84,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsVHossID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ID?1"O1"6N
+]]></Implementation>
+</Method>
+
 <Method name="IsLadeID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ID:%String</FormalSpec>
@@ -136,9 +144,14 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>VHossID:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Type As %String = $Extract(VHossID,1,2) 
-	#dim VHossNr As %String = $Extract(VHossID,5,10) 
-	Quit Type_VHossNr
+	If ..IsFrameID(VHossID) {
+		#dim Type As %String = $Extract(VHossID,1,2) 
+		#dim VHossNr As %String = $Extract(VHossID,5,10) 
+		Quit Type_VHossNr
+	}
+	If ..IsVHossID(VHossID) {
+		Quit VHossID
+	}
 ]]></Implementation>
 </Method>