| [613] | 1 | DIKCDD ;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.
|
|---|
| 4 | ITFLD ;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 | ;
|
|---|
| 17 | EHFLD ;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 | ;
|
|---|
| 29 | GETFILE(DA) ;
|
|---|
| 30 | Q:'$D(DA)!'$D(DA(1))!'$D(DDS)
|
|---|
| 31 | N DIKCFILE
|
|---|
| 32 | S DIKCFILE=$$GET^DDSVAL(.114,.DA,2)
|
|---|
| 33 | Q DIKCFILE
|
|---|
