Return to DIAXGU.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIAXGU.m, revision 1.1

1.1     ! snw         1: DIAXGU ;SFISC/DCM-EXTRACT FUNCTIONS ;9/2/94  06:40
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: LOOKUP D SETX G Q:$D(DIAXMSG)!$G(DIAXOUT)
        !             5:        D ET
        !             6: Q      K X,X1,^UTILITY("DIQ1",$J),DIQ
        !             7:        Q
        !             8:        ;
        !             9: SETX   I '$D(DIAX(DILL,"MUL")) S DIC=DIAX(DILL,"FILE"),DA=DIAX(DILL,"FE"),DR=".01" I '$D(@(DIAX(DILL,"FGBL")_DA_",0)")) D ERR^DIAXERR(97,DIAXFN_U_DIAXFE_U_DIAX(1,.01)) D FIX^DIAXU2 Q
        !            10:        S DIQ(0)="EIN" D EN^DIQ1
        !            11:        S X=^UTILITY("DIQ1",$J,DIAX(DILL,"FILE"),DIAX(DILL,"FE"),.01,"E"),X1=^("I")
        !            12:        I DILL=1 S DIAX(DILL,.01)=X
        !            13:        I $D(DIAX(DILL,"MUL")),$G(DIAXSCR(DIAX(DILL,"FILE")))]"" D
        !            14:        .N X S X=X1 X DIAXSCR(DIAX(DILL,"FILE")) S:'$T DIAXOUT=1
        !            15:        Q
        !            16:        ;
        !            17: ET     I '$D(DIAX(DILL,"MUL")) K DA,DIC,DR
        !            18:        I DIAX(DILL,"XREF")=2 S ^TMP("DIAX",$J,DIAXET(DILL,"FILE"),"MODE")="M" Q
        !            19:        S ^TMP("DIAX",$J,DIAXET(DILL,"FILE"),"X")=X,^("MODE")="A"
        !            20:        I $D(DIAX(DILL,"MUL"))!(DIAX(DILL,"XREF")?1A.E) S ^TMP("DIAX",$J,DIAXET(DILL,"FILE"),"DIC(""P"")")=DIAXET(DILL,"FILE")
        !            21:        Q