now(numLines)  ; Compiled February 15, 2002 10:08:12
 New err,Error,Rtn,i,Label,Lines,j,code
 s Lines=""
 s:'$G(numLines) numLines=2
 s err=$Zerror
 ;s err="<TR ERROR>now+5^getError"
 s Error=$E(err,1,$F(err,">")-1)
 q:$F(err,"+")=0 Error_"\\\\" 
 s Rtn=$E(err,$F(err,"^"),128)
 s Label=$E(err,$F(err,">"),$F(err,"+")-2)
 s i=$E(err,$F(err,"+"),$F(err,"^")-2)
 s j=-numLines
 s:i<numLines j=-i
 for  s code=$T(@Label+i+j^@Rtn) q:j=(numLines+1)!(code="")  d
 . s code=$S(j=0:"=> "_code,1:"   "_code)
 . s Lines=Lines_code_$c(32) 
 . s j=j+1
 Quit Error_"\"_Rtn_"\"_Label_"\"_i_"\"_Lines_"\"_$G(^CacheErrorz(Error))
 ;
Help
 w !,"________________________________________________________________________________",!,!
 w "                                GETERROR ROUTINE",!
 w "________________________________________________________________________________",!
 w "PARAMETERS:",!,!
 w "-[offset] :offset from errorLine to snap code from, default 2",!,!       
 w "RETURN VALUE",!,!
 w "Error\RoutineName\LabelName\LineIndex\CodeLines\ErrorDescription",!,!
 w "________________________________________________________________________________",!
 Quit