vhLib.Macro %RegisteredObject,APPS.TRANSP.GLS.GLSv1.Socket.GLSSocket %String %Integer %Numeric 12 %Numeric 12 %String \\\\\GLS\\\\\ %String /////GLS///// %String \\\\\GLS\\\\\ %String /////GLS///// %IO.Socket 1 TECH.Exceptions.Exception 1 Message:%String %String 1 1 Message:%String 1 Answer:%String 1 %String 0) { set ..Exception=##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%New("Response is nog niet gelezen, maar timeout al bereikt.") Do ##class(vhLib.Logger).%New("GLS").Error(..%ClassName()_" ReadAnswer","Failed : "_$C(13,10)_..Exception.ToString()) } if '$isobject(..Exception) { set Answer = $select(String'[..#ResponseFooter:"",1:String) Do ##class(vhLib.Logger).%New("GLS").Debug(..%ClassName()_" ReadAnswer",Answer) } Quit Answer ]]>