Return to DIAXG.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIAXG.m, revision 1.1

1.1     ! snw         1: DIAXG  ;SFISC/DCM-UPDATE DESTINATION FILE ;6/11/93  11:32 PM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        ;
        !             5: EN     I $G(DIAXNTC)'=DIARP D EN^DIAXM G EOJ:$D(DIAXMSG) S DIAXNTC=DIARP
        !             6:        ;
        !             7: EN1    K ^TMP("DIAX",$J),DIAXDA
        !             8:        D INIT^DIAXGI,BODY,EOJ
        !             9:        Q
        !            10:        ;
        !            11: BODY   D BASE Q:$D(DIAXMSG)
        !            12:        D NEXTLVL
        !            13:        Q
        !            14:        ;
        !            15: BASE   D ^DIAXGU Q:$D(DIAXMSG)
        !            16:        D FIELDS
        !            17:        D ^DIAXU1 Q:$D(DIAXMSG)
        !            18:        S DIAXDA=^TMP("DIAX",$J,DIAXET(DILL,"FILE"),"DA")
        !            19:        Q
        !            20:        ;
        !            21: NEXTLVL        S DIAX(DILL,"DIAXI")=DIAXI,DILL=DILL+1
        !            22:        F DIAXI=DIAXI:0 S DIAXI=$O(^DIPT(DIARP,1,DIAXI)) Q:DIAXI'=+DIAXI  S X=^(DIAXI,0) D NEXTLVL2 Q:DIAXI=""!$D(DIAXMSG)
        !            23:        S DILL=DILL-1,DIAXI=DIAX(DILL,"DIAXI")
        !            24:        Q
        !            25:        ;
        !            26: NEXTLVL2       I $P(X,U,2)<DILL S DIAXI="" Q
        !            27:        Q:$P(X,U,3)'=DIAX(DILL-1,"FILE")
        !            28:        D FVARS^DIAXGI
        !            29:        I DIAX(DILL,"XREF")?1A.E D DIAXG3^DIAXG2 Q
        !            30:        I DIAX(DILL,"XREF")=3 D ^DIAXG2 Q
        !            31:        Q:'DIAX(DILL,"FE")
        !            32:        D ^DIAXGU Q:$D(DIAXMSG)
        !            33:        D FIELDS
        !            34:        D ^DIAXU1 Q:$D(DIAXMSG)
        !            35:        D RECURSE
        !            36:        Q
        !            37:        ;
        !            38: RECURSE        D NEXTLVL
        !            39:        Q
        !            40:        ;
        !            41: FIELDS D ^DIAXG1
        !            42:        Q
        !            43:        ;
        !            44: EOJ    K DIAXI,DILL,DIAXFI,DIAX,X,DIAXET,^TMP("DIAX",$J)
        !            45:        K:'$D(DIAXMSG) DIAXFE
        !            46:        Q