Return to DIAXG.m CVS log

Up to [Coherent Logic Development] / freem_fileman

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