Show(ErrorType,Msg,Silent,MsgBoxType)
 #Include ReportErrorCNTs
 
 New Header,Body,Namespace
 Set Namespace=$ZUTIL(67,6,$J)
 
 If ErrorType=$$$reMsg Do
 . Set Header="Specifieke fout"
 . Set Body=Msg
 Else  If ErrorType=$$$reObjDoesNotExist Do
 . Set Header="Object bestaat niet"
 . Set Body="Kan het object '" _ Msg _ "' niet vinden (" _ Namespace _ ")."
 Else  If ErrorType=$$$reUnableToOpenObj Do
 . Set Header="Object niet te openen"
 . Set Body="Het object '" _ Msg _ "' bestaat, maar kan niet geopend worden (" _ Namespace _ ")."
 Else  If ErrorType=$$$reCannotCreateNewObj Do
 . Set Header="Nieuwe instantie onmogelijk"
 . Set Body="Kan een nieuwe instatie van '" _ Msg _ "' niet aanmaken."
 Else  If ErrorType=$$$reStatusError Do
 . Set Header="Status error"
 . Set Body=$$ParseStatus^vhLib.System(Msg)
 Else  If ErrorType=$$$reAppException Do
 . Set Header="Application exception"
 . Set Body="Tijdens het uitvoeren van de applicatie is een fout opgetreden."
 
 //Clearen van eventuele Mouse=Busy
 Set MApplication.ScreenCursor=0     //0=$$$crDefault
 
 //Stack wegschrijven naar een bestand
 New FN
 Set FN=$$GetCaller^vhLib("REStack_"_"_"_$P($H,",",1)_$P($H,",",2),"ReportError")
 
 //Tonen van message
 If Silent="False" Do
 . New REForm
 . Set REForm=##class(UI.Lib.Dlg.ReportError).%New($LB(%this.Form.Address,0))
 . Set REForm.ExtraSendMsg="Stackfile: "_FN
 . Do REForm.SetErrorTxt(..%ClassName(1),Header,Body)
 . Set REForm.Form.Height=REForm.Form.Height-25
 . Do REForm.Form.ShowModal()
 . Do REForm.%Close()
 
 Quit