Return to DI.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DI.m, revision 1.1

1.1     ! snw         1: DI     ;SFISC/GFT-DIRECT ENTRY TO VA FILEMAN ;7/25/94  3:07 PM
        !             2: V      ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        G QQ:$G(^DI(.84,0))']""
        !             5: C      G QQ:$G(^DI(.84,0))']"" K (DTIME,DUZ) G ^DII
        !             6: D      G QQ:$G(^DI(.84,0))']"" G ^DII
        !             7: P      G QQ:$G(^DI(.84,0))']"" K (DTIME,DUZ)
        !             8: Q      G QQ:$G(^DI(.84,0))']"" S DUZ(0)="@" G ^DII
        !             9: VERSION        ;
        !            10:        S VERSION=$P($T(V),";",3),X="VA FileMan V."_VERSION Q
        !            11:        ;
        !            12: QQ     ;
        !            13:        W $C(7),!!,"You must run ^DINIT first."
        !            14:        Q