Index: zTryout/WV/Demos.cls.xml
===================================================================
diff -u -r29059 -r32570
--- zTryout/WV/Demos.cls.xml	(.../Demos.cls.xml)	(revision 29059)
+++ zTryout/WV/Demos.cls.xml	(.../Demos.cls.xml)	(revision 32570)
@@ -5,7 +5,7 @@
 Testklasse voor DEMO's</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="TBX">
 <Description>
@@ -99,6 +99,64 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="CleanUpVHMail">
+<Description>
+d ##class(zTryout.WV.Demos).CleanUpVHMail() </Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#define DollarHx01jan2016             "63918"
+	#define DollarHx07uur                 "25200"
+	#define DollarHxMarkeerGelezen        $$$DollarHx01jan2016_","_$$$DollarHx07uur
+	#define StatusGelezen                 "G"
+	#define IndexGelezenMails             "IR"
+
+	#define MailCreatieDatum(%m)          $Piece(^vhMAIL("D",%m),"\",5)
+	#define MailStatusGelezen(%m,%u)      $Piece(^vhMAIL("D",%m,"N",%u),"\",3) = $$$StatusGelezen
+	#define MailDatumGelezen(%m,%u)       $Piece(^vhMAIL("D",%m,"N",%u),"\",1) = $$$DollarHxMarkeerGelezen
+
+	#define IsMailGelezen(%m,%u)          ($$$MailStatusGelezen(%m,%u))
+	#define ZetMailStatusGelezen(%m,%u)   Set $$$MailStatusGelezen(%m,%u)
+	#define ZetMailDatumGelezen(%m,%u)    Set $$$MailDatumGelezen(%m,%u)
+
+	
+	#dim UserID As %Integer = 1210   ; HMO - Hakim 
+	#dim MailID As %String = ""
+	
+	Set vhMailIDs = ##class(%ListOfDataTypes).%New()
+	For { Set MailID = $Order(^vhMAIL("D",MailID))  Quit:(MailID="")
+		If $$$aHasData(^vhMAIL("D",MailID,"N",UserID)) {
+			;Continue:(vhMailIDs.Count()>2) 
+			Do:($$$Not($$$IsMailGelezen(MailID,UserID))) vhMailIDs.Insert(MailID)  write !,"MailID "_MailID_" toegevoegd."
+		}
+	}
+
+	Set Iterator = ##class(TECH.ListIterator).%New(vhMailIDs)
+	While (Iterator.HasNext()) {
+		Set MailID = Iterator.Next()
+		
+		Write !,"*** Before :",!
+		;zw ^vhMAIL("D",MailID)
+		zw ^vhMAIL("D",MailID,"N",UserID)
+		
+		#dim CreatieDatum As %String = $$$MailCreatieDatum(MailID)
+		If (CreatieDatum < ($H-20)) {
+			$$$ZetMailStatusGelezen(MailID,UserID)
+			$$$ZetMailDatumGelezen(MailID,UserID)
+			Set ^vhMAIL($$$IndexGelezenMails,UserID,MailID)=""
+			
+			; UNDO : 
+			;Set ^vhMAIL("D",MailID,"N",UserID)=""
+			;Kill ^vhMAIL($$$IndexGelezenMails,UserID,MailID)
+		}
+		
+		Write !,"*** After :",!
+		;zw ^vhMAIL("D",MailID)
+		zw ^vhMAIL("D",MailID,"N",UserID)
+		
+	}
+]]></Implementation>
+</Method>
 </Class>