Return to DI.m CVS log

Up to [Coherent Logic Development] / freem_fileman

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