Return to DIAXERR.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIAXERR.m, revision 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