- 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 Feb 19, 2025@00:11:17 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
