Return to DI.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

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