| [613] | 1 | DIKKDD ;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.
|
|---|
| 4 | ITFLD ;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 | ;
|
|---|
| 16 | EHFLD ;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 | ;
|
|---|
| 28 | GETFILE(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
|
|---|
