- DI ;SFISC/GFT - DIRECT ENTRY TO VA FILEMAN ;4JAN2016
- V ;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139
- ;;Per VA Directive 6402, this routine should not be modified.
- ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- ;;Licensed under the terms of the Apache License, Version 2.0.
- ;
- 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=$P($T(V),";",4)_" "_VERSION Q
- ;
- QQ ;
- W $C(7),!!,"You must run ^DINIT first."
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDI 694 printed Feb 19, 2025@00:10:32 Page 2
- DI ;SFISC/GFT - DIRECT ENTRY TO VA FILEMAN ;4JAN2016
- V ;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139
- +1 ;;Per VA Directive 6402, this routine should not be modified.
- +2 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
- +3 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
- +4 ;;Licensed under the terms of the Apache License, Version 2.0.
- +5 ;
- +6 if $GET(^DI(.84,0))']""
- GOTO QQ
- C if $GET(^DI(.84,0))']""
- GOTO QQ
- KILL (DTIME,DUZ)
- GOTO ^DII
- D if $GET(^DI(.84,0))']""
- GOTO QQ
- GOTO ^DII
- P if $GET(^DI(.84,0))']""
- GOTO QQ
- KILL (DTIME,DUZ)
- Q if $GET(^DI(.84,0))']""
- GOTO QQ
- SET DUZ(0)="@"
- GOTO ^DII
- VERSION ;
- +1 SET VERSION=$PIECE($TEXT(V),";",3)
- SET X=$PIECE($TEXT(V),";",4)_" "_VERSION
- QUIT
- +2 ;
- QQ ;
- +1 WRITE $CHAR(7),!!,"You must run ^DINIT first."
- +2 QUIT