Index: ULTOER.mac.rou
===================================================================
diff -u -r57095 -r60504
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 57095)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 60504)
@@ -12,7 +12,7 @@
 OnError
  Set $ZT = ""
  New Exception,KLNr,ULNr
- #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("APPS.TRANSP.GLS.Exceptions.CommunicatieException","TECH.Exceptions.InvalidInputException")
+ #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("APPS.TRANSP.GLS.Exceptions.CommunicatieException","APPS.TRANSP.Transsmart.Exceptions.CommunicatieException","TECH.Exceptions.InvalidInputException")
  Do Boodschap^vhTXTPOP(Exception.GeefOmschrijving()) 
  #dim KLNr As %String = $Piece(^HULP(%J,"D",ULTOER(6)),"\",3)
  #dim ULNr As %String = $Piece(^HULP(%J,"D",ULTOER(6)),"\",1)