DDERR ;SLC/MKB -- Entity Error Handler ;9/10/18 14:33
;;22.2;VA FileMan;**9**;Jan 05, 2016;Build 73
;;Per VA Directive 6402, this routine should not be modified.
;
;
QRY ; -- save Query error
N ERROR
S ERROR="Entity "_$G(DTYPE)_" query: "_$$EC^%ZOSV
G CONT
;
ONE ; -- save Record error
N ERROR
S ERROR="Entity "_$G(DTYPE)_"/ID "_$G(DLIST(DDEN))_": "_$$EC^%ZOSV
;
CONT ; -- Save error in trap, return array
;
;Add message to return error array
D:$D(ERROR) ERROR^DDEGET(ERROR)
;
;Log the error, continue to next record
D ^%ZTER,UNWIND^%ZTER
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDDERR 582 printed Nov 22, 2024@17:52:03 Page 2
DDERR ;SLC/MKB -- Entity Error Handler ;9/10/18 14:33
+1 ;;22.2;VA FileMan;**9**;Jan 05, 2016;Build 73
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;
QRY ; -- save Query error
+1 NEW ERROR
+2 SET ERROR="Entity "_$GET(DTYPE)_" query: "_$$EC^%ZOSV
+3 GOTO CONT
+4 ;
ONE ; -- save Record error
+1 NEW ERROR
+2 SET ERROR="Entity "_$GET(DTYPE)_"/ID "_$GET(DLIST(DDEN))_": "_$$EC^%ZOSV
+3 ;
CONT ; -- Save error in trap, return array
+1 ;
+2 ;Add message to return error array
+3 if $DATA(ERROR)
DO ERROR^DDEGET(ERROR)
+4 ;
+5 ;Log the error, continue to next record
+6 DO ^%ZTER
DO UNWIND^%ZTER
+7 QUIT
