New post
Article
· May 15, 2020 3m read

Debugging in HealthShare

#Debugging #Deployment #HealthShare

Hi, if you develop production with HealthShare, you may have noticed there is a nice tracing feature available - HS.Util.Trace.Operations. This feature allows visually tracing debug information, in structured way. It complements good old logging macros like $$$LOGINFO, $$$TRACE and alike.

I use this feature a lot. However, it has limited functionality, it works nice with classes that extend XML Adapter, streams or data types, but it doesn't work well with arbitrary objects that do no extend from XML Adapter.

I decided to implement a subclass of the trace helper class HS.Util.Trace.Helper and add the missing functionality. 

here is the code I added:

            Elseif tVal.%Extends("%Stream.Object") {
                    Do tStream.Write("<![CDATA[")
                    Set tSC = tStream.CopyFrom(tVal)
                    Do tStream.Write("]]>")
                    Do tVal.Rewind()
                }
                else {
                    // DK - arbitrary object
                    set tInitIO=$io
                    set %Stream=##class(%Stream.TmpCharacter).%New()
                    use tInitIO::("^"_$zname)
                    do ##class(%Device).ReDirectIO(1)           
                    zw tVal
                    If ##class(%Device).ReDirectIO(0) Use tInitIO
                    do %Stream.Rewind()
                    Do tStream.Write("<![CDATA[")
                    set tSC=tStream.CopyFrom(%Stream)
                    Do tStream.Write("]]>")                   
                }
               

I have used a nice feature of redirecting output to variable, - added following class method to my trace helper class.

ClassMethod redirects() [ Private, ProcedureBlock = 0 ]
{
#; Public entry points for redirection
wstr(s) Do %Stream.Write(s) Quit
wchr(a) Do %Stream.Write($char(a)) Quit
wnl Do %Stream.Write($char(13,10)) Quit
wff Do %Stream.Write($char(13,10,13,10)) Quit
wtab(n) New chars Set $piece(chars," ",n+1)="" Do %Stream.Write(chars) Quit
rstr(len,time) Quit ""
rchr(time) Quit ""
}

you can see the sample output in the following picture.

All you need in you business component, is to add your trace helper subclass to the list of base classes and call do ..HSTrace() method or its macro equivalent $$$HSTRACE with your desired parameters.

Hope you find this little improvement useful.

 

Dan

Discussion (2)1
Log in or sign up to continue