zbcheck ; Controle bestanden Flow, Prod,...
 ;
 Kill
 Do LOW^%PRIO
 Do ^ZBCHKWN
 Do ^ZBCHKFLO
 Do CHECKORD^FLOWORD3
 Do CHECKBON^FLOWBON3
 Do CHECKORDW^ZBCHKORDW
 Do CHECKTO^FLOWTOE3
 Do CHECKKUP^FLOWBON3
 Do CHECKRCP^ZBCHKRCP
 Do DUBLORD^ZBCHKFLO
 Do DUBLBON^ZBCHKFLO
 Do CHECKPR^ZBCHKPR
 Do HIGH^%PRIO
 Quit
 ;
CHECK 
 New
 Do INIT^vhTERMINA
 Set CheckWn=$$CHECK^ZBCHKWN()
 Set CheckFlo=$$CHECK^ZBCHKFLO()
 Set CheckOrd=$$CHECK^FLOWORD3()
 Set CheckBon=$$CHECK^FLOWBON3("B")
 Set CheckToe=$$CHECK^FLOWTOE3()
 Set CheckKup=$$CHECK^FLOWBON3("P")
 Set CheckRcp=$$CHECK^ZBCHKRCP()
 Set CheckDUO=$$CHECK^ZBCHKFLO("O")
 Set CheckDUB=$$CHECK^ZBCHKFLO("B")
 Set CheckPR=$$CHECK^ZBCHKPR()
 If CheckWn,CheckFlo,CheckOrd,CheckBon,CheckToe,CheckRcp,CheckDUO,CheckDUB,CheckPR
 Else  Do
 .Set Cnt=1,Txt(Cnt)="Er werden fouten gevonden!!!~"
 .If 'CheckWn Set Cnt=Cnt+1,Txt(Cnt)="~Produkten W-node"
 .If 'CheckFlo Set Cnt=Cnt+1,Txt(Cnt)="~Flow"
 .If 'CheckOrd Set Cnt=Cnt+1,Txt(Cnt)="~WMS ord"
 .If 'CheckBon Set Cnt=Cnt+1,Txt(Cnt)="~WMS bon"
 .If 'CheckToe Set Cnt=Cnt+1,Txt(Cnt)="~WMS toe"
 .If 'CheckKup Set Cnt=Cnt+1,Txt(Cnt)="~^KUP"
 .If 'CheckRcp Set Cnt=Cnt+1,Txt(Cnt)="~WMS rcp"
 .If 'CheckDUO Set Cnt=Cnt+1,Txt(Cnt)="~Dubbels orders"
 .If 'CheckDUB Set Cnt=Cnt+1,Txt(Cnt)="~Dubbels leveringsbons"
 .If 'CheckPR Set Cnt=Cnt+1,Txt(Cnt)="~Productbestanden"
 .Set MailId=$$SYSTEM^vhMAIL("","","Controle bestanden","ERROR",.Txt,,"U","A")
 Quit
 ;