DIAXERR ;SFISC/DCM-EXTRACT MAPPING UTILITIES ;5/1/96 16:49
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
ERR(A) ;
Q:'$D(A) N DIAXMSG
S DIPG=+$G(DIPG),DIERR=($G(DIERR)+1)_U_($P($G(DIERR),U)+1)
S DIAXMSG=$S(+A:$P($T(@(+A)),";",3),1:A)
I DIPG S ^TMP("DIERR",$J,+DIERR)="",^(+DIERR,"TEXT",1)=DIAXMSG Q
E D EN^DDIOL(DIAXMSG)
Q
5 ;;Destination file does not exist
6 ;;Mapping information does not exist
7 ;;Extract field does not exist
8 ;;Field in destination file does not exist
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIAXERR 760 printed Dec 13, 2024@02:45:03 Page 2
DIAXERR ;SFISC/DCM-EXTRACT MAPPING UTILITIES ;5/1/96 16:49
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
ERR(A) ;
+1 if '$DATA(A)
QUIT
NEW DIAXMSG
+2 SET DIPG=+$GET(DIPG)
SET DIERR=($GET(DIERR)+1)_U_($PIECE($GET(DIERR),U)+1)
+3 SET DIAXMSG=$SELECT(+A:$PIECE($TEXT(@(+A)),";",3),1:A)
+4 IF DIPG
SET ^TMP("DIERR",$JOB,+DIERR)=""
SET ^(+DIERR,"TEXT",1)=DIAXMSG
QUIT
+5 IF '$TEST
DO EN^DDIOL(DIAXMSG)
+6 QUIT
5 ;;Destination file does not exist
6 ;;Mapping information does not exist
7 ;;Extract field does not exist
8 ;;Field in destination file does not exist
