;-- This function will write out errors to the ^TMP("AERROR"
; global.
; INPUT : ERROR - code of Austin's error
; NODE - node error occured on
; SEQ - sequence in ^TMP("AEDIT",
EN
;
WRTQ
RTN
;
ALLPR
;-- process all records types
EXIT
;-- clean-up
ERROR
;-- this routine will process the error detected during close-out