New post
User bio
404 bio not found
Member since Jan 8, 2016
Posts:
show all 1
Replies:
show all 21
Edward Clark · Mar 3

You could also use the language extension feature: https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls.... The advantage is that everyone using the instance can use it. Someone sent this to me a very long time ago as an example:

ZZE(Status) public {
if $get(Status)="?" {w !,"ZZE(Status): Decode and display the parsed error" q}
Set $ZT="zzderr"
i '$D(Status) {
i $d(%objlasterror) {
d $SYSTEM.Status.DisplayError(%objlasterror)
} else {
;Don't display anything if no error
}
} else {
d $SYSTEM.Status.DisplayError(Status)
d $SYSTEM.Status.DecomposeStatus(Status,.err)
zw err
}
Quit
zzderr Set $ZT="" Ztrap $ZUTIL(96,3,$ZUTIL(96,0)) ; Throws error to caller
}
Certifications & Credly badges:
Edward has no Certifications & Credly badges yet.
Global Masters badges:
Edward has no Global Masters badges yet.
Followers:
Edward has no followers yet.
Following:
show all 1
William R.