User bio
404 bio not found
Member since Dec 8, 2021
Posts:
Catherine has not published any posts yet.
Replies:

Going back to good old fashioned MUMPs this works for INTs:

CALLS(rtn) ;
NSP,EXT,VER,ROU,LAST,LINE
  ; NSP = namespace
  ; EXT = extension/type of routine e.g. INT
  ; VER = version, default is zero
  ; ROU = routine name
; LAST = last line or routine i.e. number of lines
ROU=$g(rtn)
ROU="" 0 !,"No routine reference supplied" q
NSP="%SYS",EXT="INT",VER=0,LINE=""
  ROU=$g(rtn)_"."_EXT_"."_VER
  ; get last line
  LAST=$$LENGTH^%R(ROU,NSP)
  LAST>0 d
  . i=1:1:LAST d
  . . LINE=$$LINE^%R(ROU,i,NSP)
  . . ; check first character of line against ASCII value
  . . ; ignore anything below 48 which is zero
  . . $a($e(LINE,1))>47 0 !,i,?10,LINE
  q
 

Certifications & Credly badges:
Catherine has no Certifications & Credly badges yet.
Global Masters badges:
Catherine has no Global Masters badges yet.
Followers:
Catherine has no followers yet.
Following:
Catherine has not followed anybody yet.