Routine: %ZTER

Information

%ZTER ; ISC-SF.SEA/JLI - KERNEL ERROR TRAP TO LOG ERRORS ;09/06/2017

Source file <ZTER.m>

action

^A

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

^O

limited protocol

^LP

run routine

^RR

broker

^B

edit

^E

server

^Se

print

^P

screenman

^SM

inquire

^I

Package	Total	Caller Graph
Electronic Health Modernization	1	EHMHL7

Name	Comments	DBIA/ICR reference
Z1
Z2
LIN	;Find the line of the error
EXIT	;
VAR
SAVE(%ZTERN,%ZTERV)	;Save name and value into global, use special variables
SUBS	;Save sub-nodes
GLOB	; save off a list of global subtrees, %ZT is passed in subscripted by name ; %ZTERCNT passed in to count the nodes we traverse ; %ZTERNOD the nodes through which we $QUERY ; %ZTERNAM the names of the global subtrees we're saving ; %ZTEROPN is %ZTERNAM, evaluated, without close paren for $PIECEing
ETXT()	;Return the Text of the error
ENC(%ZT1)	;Encode a string with control char in \027 format
UCI()	;Return the UCI, Changed to Box:Volume p431
APPERROR(%ZTERNM)	;Caller gives name to Error. p431	ICR #1621 Status: Active Usage: Supported
ERR	;Handle an error in %ZTER
ECNT	;Add to the error count
FMT(%ZTE)	;Format the error text
SCREEN(ERR,%ZT3)	;Screen out certain errors.
UNWIND	;Unwind stack for new error trap. Called by app code.	ICR #1621 Status: Active Usage: Supported
UNW
NEWERR()	;Does this OS support the M95 error trapping	ICR #1621 Status: Active Usage: Supported
ABORT	;Pop the stack all the way.
POST	;Do the post-init