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

DIKKDD.m

Go to the documentation of this file.
  1. DIKKDD ;SFISC/MKO-DATA DICTIONARY CODE FOR KEY FILE ;1:49 PM 8 Sep 1997
  1. ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  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. ITFLD ;Input transform for field
  1. Q:'$D(DA) Q:'$D(DA(1))
  1. N DIKKFILE
  1. S DIKKFILE=$$GETFILE(.DA) I 'DIKKFILE K X Q
  1. ;
  1. N %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,DZ,Y
  1. S DIC="^DD("_DIKKFILE_",",DIC(0)="EN",DIC("S")="I '$P(^(0),U,2)"
  1. D ^DIC
  1. I Y'>0 K X
  1. E S X=+$P(Y,"E")
  1. Q
  1. ;
  1. EHFLD ;Executable help for field
  1. Q:'$D(DA) Q:'$D(DA(1))
  1. N DIKKFILE
  1. S DIKKFILE=$$GETFILE(.DA) Q:'DIKKFILE
  1. ;
  1. N %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,Y
  1. S DIC="^DD("_DIKKFILE_",",DIC(0)="",D="B"
  1. S DIC("S")="I '$P(^(0),U,2)"
  1. S:$G(X)="??" DZ=X
  1. D DQ^DICQ
  1. Q
  1. ;
  1. GETFILE(DA) ;
  1. Q:'$D(DA) Q:'$D(DA(1))
  1. N DIKKFILE
  1. I $D(DDS) S DIKKFILE=$$GET^DDSVAL(.31,DA(1),.01)
  1. E S DIKKFILE=$P($G(^DD("KEY",DA(1),0)),U)
  1. Q DIKKFILE