Index: APPS/VisiDot/impl/VHossService.cls.xml
===================================================================
diff -u -r29059 -r51518
--- APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 29059)
+++ APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 51518)
@@ -117,6 +117,38 @@
 	Quit ##class(TECH.DateTime).TimestampToDate(LaatsteOntlening)
 ]]></Implementation>
 </Method>
+
+<Method name="IsCorrectID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VHossID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit VHossID?1"O"1(1"1",1"2")1(1"1",1"2")7N
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeregistreerdeVHossIDVoorVHossID">
+<FormalSpec>MyVHossID:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeregistreerdeVHossID as %String = ""
+	#dim VHossID1A as %String = MyVHossID
+	#dim VHossID1B as %String = MyVHossID
+	#dim VHossID2A as %String = MyVHossID
+	#dim VHossID2B as %String = MyVHossID
+	Set $E(VHossID1A,2,3)=11 ; Type 1 A kant
+	Set $E(VHossID1B,2,3)=12 ; Type 1 B kant
+	Set $E(VHossID2A,2,3)=21 ; Type 2 A kant
+	Set $E(VHossID2B,2,3)=22 ; Type 2 B kant
+	
+	#dim Query As %String = "SELECT VHossID FROM APPS_VisiDot_data.VHossUitlening where ((VHossID = ?) or (VHossID = ?) or (VHossID = ?) or (VHossID = ?))"
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, $ListBuild(VHossID1A,VHossID1B,VHossID2A,VHossID2B))
+	if (ResultSet.Next()) {
+		Set GeregistreerdeVHossID = ResultSet.Data("VHossID")
+	}	
+	
+	Quit GeregistreerdeVHossID
+]]></Implementation>
+</Method>
 </Class>