source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DI.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 469 bytes
RevLine 
[613]1DI ;SFISC/GFT-DIRECT ENTRY TO VA FILEMAN ;7/25/94 3:07 PM
2V ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 G QQ:$G(^DI(.84,0))']""
5C G QQ:$G(^DI(.84,0))']"" K (DTIME,DUZ) G ^DII
6D G QQ:$G(^DI(.84,0))']"" G ^DII
7P G QQ:$G(^DI(.84,0))']"" K (DTIME,DUZ)
8Q G QQ:$G(^DI(.84,0))']"" S DUZ(0)="@" G ^DII
9VERSION ;
10 S VERSION=$P($T(V),";",3),X="VA FileMan V."_VERSION Q
11 ;
12QQ ;
13 W $C(7),!!,"You must run ^DINIT first."
14 Q
Note: See TracBrowser for help on using the repository browser.