Return to DIFGA1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIFGA1.m, revision 1.1

1.1     ! snw         1: DIFGA1 ;SFISC/XAK,DCM-FILEGRAM TEMPLATES ;2/10/93  3:43 PM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994;
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: Q      W:$D(DTOUT) *7
        !             5:        K Y,C,L,DM,DQI,DA,DICOMP,DICOMPX,I,J,S,DIL,DK
        !             6:        K D,DIFG,DC,DICS,DP,DU,DXS,DL,DJ,DINS,DIFGLINK
        !             7:        K DIAXLOC,DIAXMSG,DIAXGL,DIAXF,^UTILITY("DIFG",$J),DJ1,DIAXEF,DIAXDL,DIAXDI,DIAXFILE,DIAXFNO
        !             8:        K DIAXDICA,DIAXNP,DIAXZ,DIAXDK,DTOUT,DUOUT,DIRUT
        !             9:        D:$D(DIAX) Q1^DIAXMS
        !            10:        Q
        !            11:        ;
        !            12: INIT   K ^UTILITY("DIFG",$J)
        !            13:        S (L,DL)=1,(I(0),DI)=DIC,(DK,J(0))=+$P(@(DI_"0)"),U,2)
        !            14:        S DINS="",(DC,DJ,C,C(0),DIL)=0 Q:'$D(DIAX)
        !            15:        ;
        !            16: INET   K DIC
        !            17:        S DIC=1,DIC(0)="AEQZ",DIC("S")="I Y'<2,+Y'="_DK_" S DIFILE=+Y,DIAC=""RD"" D ^DIAC I %",DIC("A")="DESTINATION FILE: " D ^DIC Q:Y'>0
        !            18:        S (DIAXF,DIAXFILE,DIAXFNO,DIAXDL(DL),DIAXDK(DK))=+Y,DIAXGL=$E(^DIC(+Y,0,"GL"),2,99),DIAXEF=Y(0,0),DIAXLOC(DIAXFILE)=""
        !            19:        Q