Return to DIAXERR.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIAXERR.m, revision 1.1.1.1

1.1       snw         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