Return to DIAXERR.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DIAXERR	;SFISC/DCM-EXTRACT MAPPING UTILITIES ;6/16/93  1:28 PM
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	;
    5: ERR(A,B)	;
    6: 	Q:'$D(A)  N %,X,J,Y,I
    7: 	S DIPG=+$G(DIPG),DIERR=$G(DIERR)+1
    8: 	S DIAXMSG=$S(+A:$P($T(@(+A)),";",3),1:A)
    9: 	I ($G(DIAR)=6&(+A>96))!DIPG D  Q
   10: 	. S ^TMP("DIERR",$J,DIERR)="",^(DIERR,"TEXT",0)="^^1^1",^(1,0)=DIAXMSG
   11: 	. I $D(B) S Y=$L(B,U) S ^TMP("DIERR",$J,DIERR,"PARAM",0)="^^"_Y_U_Y F I=1:1:Y S ^TMP("DIERR",$J,DIERR,"PARAM",I,0)=$P(B,U,I)
   12: 	. Q
   13: 	D W
   14: 	Q
   15: W	;
   16: 	S J=$S($G(IOM):(IOM-5),1:75),X=DIAXMSG
   17: 	F  Q:X=""  F %=$L(X," "):-1:1 I $L($P(X," ",1,%))<J W !?5,$P(X," ",1,%) S X=$P(X," ",%+1,$L(X," ")) Q
   18: 	Q
   19: EN(A)	D BLD^DIALOG(A)
   20: 	Q
   21: 1	;;Missing input variable
   22: 2	;;Invalid input variable
   23: 3	;;Invalid template
   24: 4	;;Source entry does not exist
   25: 5	;;Destination file does not exist
   26: 6	;;Mapping information does not exist
   27: 7	;;Extract field does not exist
   28: 8	;;Field in destination file does not exist
   29: 10	;;No search results in template
   30: 11	;;Invalid format of global/local root
   31: 55	;;Unknown data type of extract field
   32: 97	;;Pointed-to record does not exist
   33: 98	;;Failed ^DIE call when updating destination file
   34: 99	;;Failed ^DIC call when updating destination file