Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DI

DI.m

Go to the documentation of this file.
  1. DI ;SFISC/GFT - DIRECT ENTRY TO VA FILEMAN ;4JAN2016
  1. V ;;22.2;VA FileMan;**2**;Jan 05, 2016;Build 139
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  1. G QQ:$G(^DI(.84,0))']""
  1. C G QQ:$G(^DI(.84,0))']"" K (DTIME,DUZ) G ^DII
  1. D G QQ:$G(^DI(.84,0))']"" G ^DII
  1. P G QQ:$G(^DI(.84,0))']"" K (DTIME,DUZ)
  1. Q G QQ:$G(^DI(.84,0))']"" S DUZ(0)="@" G ^DII
  1. VERSION ;
  1. S VERSION=$P($T(V),";",3),X=$P($T(V),";",4)_" "_VERSION Q
  1. ;
  1. QQ ;
  1. W $C(7),!!,"You must run ^DINIT first."
  1. Q