Return to DIAXERR.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DIAXERR	;SFISC/DCM-EXTRACT MAPPING UTILITIES ;6/16/93  1:28 PM
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, this routine should not be modified.
	;
ERR(A,B)	;
	Q:'$D(A)  N %,X,J,Y,I
	S DIPG=+$G(DIPG),DIERR=$G(DIERR)+1
	S DIAXMSG=$S(+A:$P($T(@(+A)),";",3),1:A)
	I ($G(DIAR)=6&(+A>96))!DIPG D  Q
	. S ^TMP("DIERR",$J,DIERR)="",^(DIERR,"TEXT",0)="^^1^1",^(1,0)=DIAXMSG
	. 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)
	. Q
	D W
	Q
W	;
	S J=$S($G(IOM):(IOM-5),1:75),X=DIAXMSG
	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
	Q
EN(A)	D BLD^DIALOG(A)
	Q
1	;;Missing input variable
2	;;Invalid input variable
3	;;Invalid template
4	;;Source entry does not exist
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
10	;;No search results in template
11	;;Invalid format of global/local root
55	;;Unknown data type of extract field
97	;;Pointed-to record does not exist
98	;;Failed ^DIE call when updating destination file
99	;;Failed ^DIC call when updating destination file