ATKMAIL ; Afstand-toegang voor klanten [ 10/18/2001  11:38 AM ]
 Quit
 ;
INERROR(Error,KLNr,UserName,WachtW) 
 New MailId,Onderw,TUserId,Tekst,Urgentie,AutoDel,MagMailVerzenden
 Set MagMailVerzenden = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("ATKMAIL_MagMailVerzenden")
 Do:MagMailVerzenden
 .Set TUserId="ERROR",(Urgentie,AutoDel)=1
 .If Error["<NOSYS>" Do
 ..Set Onderw="ATK",Tekst="Het ATK systeem is buiten werking.~Gelieve na te zien."
 ..Job NOTAKT^ATKLVH
 .Else  Do
 ..Set Onderw="ATK in error"
 ..Set Tekst="System : LVH,ATK~Date   : "_$$EXTDATE^vhDTyp($H)_"~Time   : "_$$EXTTIME^vhDTyp($H)
 ..Set Tekst=Tekst_"~User   : "_KLNr_" "_$P(^KKL(^KK1(KLNr),0),"\",2)_" ("_UserName_")"
 ..Set Tekst=Tekst_"~Error  : "_Error
 .Set MailId=$$SYSTEM^vhMAIL("","",Onderw,TUserId,Tekst,"",Urgentie,AutoDel) 
 Quit
 ;
TIMEOUT(KLNr,UserName)
 New MailId,Onderw,TUserId,Tekst,Urgentie,AutoDel,MagMailVerzenden
 Set MagMailVerzenden = ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("ATKMAIL_MagMailVerzenden")
 Do:MagMailVerzenden
 .Set KLNr=$G(KLNr),UserName=$G(UserName),TUserId="ERROR",(Urgentie,AutoDel)=1
 .Set Onderw="ATK in error"
 .Set Tekst="System : LVH,ATK~Date   : "_$$EXTDATE^vhDTyp($H)_"~Time   : "_$$EXTTIME^vhDTyp($H)
 .If KLNr Set Tekst=Tekst_"~User   : "_KLNr_" "_$P(^KKL(^KK1(KLNr),0),"\",2)_" ("_UserName_")"
 .Set Tekst=Tekst_"~Error  : Timeout"
 .Set MailId=$$SYSTEM^vhMAIL("","",Onderw,TUserId,Tekst,"",Urgentie,AutoDel) 
 Quit