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 Dec 13, 2024@02:44:17 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
