Very good and customizable
TRY {
s ex= ##class(%Exception.General).%New("test",1,data1,data2)
throw ex}
CATCH ex {
d ex.Log()
}

Looks slightly unusual but fully functional. Thanks!

Thanks a lot everybody for your input. I need a bit more time to mark your replies as answers but I will do that.

Yes, I use that too occasionally. I think Portal functionality is faster though.

Very instructive, thanks!

Thanks a lot! I successfully tested both and one correction: the date is not in MUMPS format. It works with the 06/03/2025 format though.

Yes, it is available! 

I did not try it myself, but I talked to other people and searched more, and it seems that using VS Code (as opposed to Iris/Cache Studio) combined with Copilot is currently the best available way of incorporating AI into ObjectScript/MUMPS coding: Coding InterSystems ObjectScript with AI Copilot. @Evgeny Shvarov, would you agree? Would you like to add anything on the discussion subject?
 

Yes, the problem is gone! Thanks a lot for your help.

I just messaged you two snippets. Thanks again.

I will have time to prepare such a snippet tomorrow, sorry. Meanwhile, it's not necessarily one line off but up to several lines off, a few routines only. In your code, is it possible to extract text of the line for which tokens are calculated? I looked around and did not see such a possibility.

I have an odd problem. In vast majority of cases globals are defined by your code correctly. However, for some routines the lineNum as returned by GetNext is one line count off and the global with the stated token attributes is actually on the next line. I tried to slightly modify such routines and recompile, but it did not always help. Any advice?

Excellent, just excellent. It did find correctly all globals in a routine (no indirection). I populated in = ##class(%Stream.TmpCharacter).%New() with this code:
S NumLines=^ROUTINE(routineName,0,0)   ; Omit extension
F n=0:1:NumLines {
    S line=$T(@routineName+n^@routineName)
    D in.Write(line),in.Write($c(13,10))
}
D in.Rewind()

I also added this after your Write:
                Set line=$G(^ROUTINE(rtnName,0,lineNum+1))
                Write $C(9),$E(line,token.p+1,token.p+token.c),!

I did not try finding globals in classes, but I assume this would be very similar. Is there any online documentation that shows that token value for globals is 18? Would be curious about other token values.

Thanks, Brett. I did try using SyntaxColor but not with JSON and did not like the HTML results. I'll give your code a try.

Thanks, Yaron. I'll skip looking for indirections for now.

Thanks, Julius

$STACK, of course. It looks like current line is represented by $st(1,"MCODE"). Did not know about $zname. Thanks!

I made a mistake, now corrected: it's Cache, not Ensemble. It does have this function too. I'll post results here.