source: FOIAVistA/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIKKDD.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 860 bytes
Line 
1DIKKDD ;SFISC/MKO-DATA DICTIONARY CODE FOR KEY FILE ;1:49 PM 8 Sep 1997
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4ITFLD ;Input transform for field
5 Q:'$D(DA) Q:'$D(DA(1))
6 N DIKKFILE
7 S DIKKFILE=$$GETFILE(.DA) I 'DIKKFILE K X Q
8 ;
9 N %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,DZ,Y
10 S DIC="^DD("_DIKKFILE_",",DIC(0)="EN",DIC("S")="I '$P(^(0),U,2)"
11 D ^DIC
12 I Y'>0 K X
13 E S X=+$P(Y,"E")
14 Q
15 ;
16EHFLD ;Executable help for field
17 Q:'$D(DA) Q:'$D(DA(1))
18 N DIKKFILE
19 S DIKKFILE=$$GETFILE(.DA) Q:'DIKKFILE
20 ;
21 N %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,Y
22 S DIC="^DD("_DIKKFILE_",",DIC(0)="",D="B"
23 S DIC("S")="I '$P(^(0),U,2)"
24 S:$G(X)="??" DZ=X
25 D DQ^DICQ
26 Q
27 ;
28GETFILE(DA) ;
29 Q:'$D(DA) Q:'$D(DA(1))
30 N DIKKFILE
31 I $D(DDS) S DIKKFILE=$$GET^DDSVAL(.31,DA(1),.01)
32 E S DIKKFILE=$P($G(^DD("KEY",DA(1),0)),U)
33 Q DIKKFILE
Note: See TracBrowser for help on using the repository browser.