ChkShadowing
 #Define DeJrnlNameSpace "JRNL-ADMIN1"
 
 // CW dead code
 
 set Dag= $O(^|$$$DeJrnlNameSpace|cLOG("ADMIN1","CTK0","AUTO",43,"CACHE01",""),-1)
 Set Tijd= $O(^|$$$DeJrnlNameSpace|cLOG("ADMIN1","CTK0","AUTO",43,"CACHE01",Dag,""),-1)
 
 Set Sec=Dag*3600+Tijd
 Set Nu=$P($H,",",1)*3600+$P($H,",",2)
 Write Sec," ", Nu
 If Sec<(Nu-300) Do
 . ;Email versturen
 . New stat
 . set stat=$$SendMail("Journal Watchdog","rw@vanhoecke.be","test","test body",)
 
SendMail(From,To,Subject,Body,IsHTML)
 New SMTP,MM
 Set SMTP=##class(%Net.SMTP).%New()
 Set SMTP.smtpserver="Notes01"
 Set SMTP.timezone="+0100"
 Set MM=##class(%Net.MailMessage).%New()
 Set MM.From=From
 Set MM.To=To
 ;Do MM.To.Insert($LI(To,Loop))
 Set MM.Subject=Subject
 Do MM.TextData.Write(Body)
 Set:($D(IsHTML)) MM.IsHTML=IsHTML
 New Status
 Set Status=SMTP.Send(MM)
 do MM.%Close()
 do SMTP.%Close()
 Quit Status