Return to DI.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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