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

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

initial load of FOIAVistA 6/30/08 version

File size: 888 bytes
Line 
1DIKCDD ;SFISC/MKO-DATA DICTIONARY CODE FOR INDEX AND KEY FILES ;3:02 PM 5 Dec 2001
2 ;;22.0;VA FileMan;**11,95**;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)!'$D(DA(1))!'$D(DDS)
6 N DIKCFILE
7 S DIKCFILE=$$GETFILE(.DA) I 'DIKCFILE K X Q
8 ;
9 N %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,DZ,Y
10 S DIC="^DD("_DIKCFILE_",",DIC(0)="EN"
11 S DIC("S")="I '$P(^(0),U,2)&($P(^(0),U,2)'[""C"")"
12 D ^DIC
13 I Y'>0 K X
14 E S X=+$P(Y,"E")
15 Q
16 ;
17EHFLD ;Executable help for field
18 Q:'$D(DA)!'$D(DA(1))!'$D(DDS)
19 N DIKCFILE
20 S DIKCFILE=$$GETFILE(.DA) Q:'DIKCFILE
21 ;
22 N %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,Y
23 S DIC="^DD("_DIKCFILE_",",DIC(0)="",D="B"
24 S DIC("S")="I '$P(^(0),U,2)&($P(^(0),U,2)'[""C"")"
25 S:$G(X)="??" DZ=X
26 D DQ^DICQ
27 Q
28 ;
29GETFILE(DA) ;
30 Q:'$D(DA)!'$D(DA(1))!'$D(DDS)
31 N DIKCFILE
32 S DIKCFILE=$$GET^DDSVAL(.114,.DA,2)
33 Q DIKCFILE
Note: See TracBrowser for help on using the repository browser.