Index: vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml
===================================================================
diff -u -r51708 -r58842
--- vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(.../TestVHossService.cls.xml)	(revision 51708)
+++ vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(.../TestVHossService.cls.xml)	(revision 58842)
@@ -12,17 +12,17 @@
 <Default>cat</Default>
 </Parameter>
 
-<Method name="TestFlowVHoss">
+<Method name="Test: Flow VHoss">
 <Implementation><![CDATA[
-		Set KlantID = "K||1000"
-		Set VHossID = 8888
+		#dim KlantID As %String = "K||1000"
+		#dim VHossID As %String = 8888
 		Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
 		Do VHossService.LeenUitVHoss(KlantID, VHossID)
 		
-		Set IsVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
+		#dim IsVHossGeregistreerd As %Boolean = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
 		Do $$$AssertTrue(IsVHossGeregistreerd,"VHoss is correct uitgeleend aan klant.")
 		
-		Set IsAndereVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID_"2")
+		#dim IsAndereVHossGeregistreerd As %Boolean = VHossService.IsVHossGeregistreerd(KlantID,VHossID_"2")
 		Do $$$AssertFalse(IsAndereVHossGeregistreerd,"Andere VHoss is niet uitgeleend aan klant.")
 		
 		Do VHossService.RecepteerVHoss(VHossID)
@@ -32,22 +32,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestFlowVHoss3DagenTussen">
+<Method name="Test: Flow VHoss 3 Dagen Tussen">
 <Implementation><![CDATA[
 		#dim AantalDagenTussen = 3
 	
-		Set KlantID = "K||1000"
-		Set VHossID = 8888
+		#dim KlantID As %String = "K||1000"
+		#dim VHossID As %String = 8888
 		Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
 		Do VHossService.LeenUitVHoss(KlantID, VHossID)
 		
-		Set IsVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
+		#dim IsVHossGeregistreerd As %Boolean = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
 		Do $$$AssertTrue(IsVHossGeregistreerd,"VHoss is correct uitgeleend aan klant.")
 		
 		#dim DatumLaatsteOntlening As %Date = VHossService.GeefDatumLaatsteOntlening(VHossID)
 		Do $$$AssertEquals(DatumLaatsteOntlening,##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate(),"VHoss is niet meer uitgeleend aan klant.")
 		
-		Set IsAndereVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID_"2")
+		#dim IsAndereVHossGeregistreerd As %Boolean = VHossService.IsVHossGeregistreerd(KlantID,VHossID_"2")
 		Do $$$AssertFalse(IsAndereVHossGeregistreerd,"Andere VHoss is niet uitgeleend aan klant.")
 		
 		Set DatumLaatsteOntlening = VHossService.GeefDatumLaatsteOntlening(VHossID)