DIKCDD.m

DIKCDD ;SFISC/MKO-DATA DICTIONARY CODE FOR INDEX AND KEY FILES ;3:02 PM  5 Dec 2001 [ 12/09/2003  4:43 PM ]

 ;;22.0;VA FileMan;**11,95,1002**;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

ITFLD ;Input transform for field

 Q:'$D(DA)!'$D(DA(1))!'$D(DDS)

 N DIKCFILE

 S DIKCFILE=$$GETFILE(.DA) I 'DIKCFILE K X Q

 ;

 N %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,DZ,Y

 S DIC="^DD("_DIKCFILE_",",DIC(0)="EN"

 S DIC("S")="I '$P(^(0),U,2)&($P(^(0),U,2)'[""C"")"

 D ^DIC

 I Y'>0 K X

 E  S X=+$P(Y,"E")

 Q

 ;

EHFLD ;Executable help for field

 Q:'$D(DA)!'$D(DA(1))!'$D(DDS)

 N DIKCFILE

 S DIKCFILE=$$GETFILE(.DA) Q:'DIKCFILE

 ;

 N %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,Y

 S DIC="^DD("_DIKCFILE_",",DIC(0)="",D="B"

 S DIC("S")="I '$P(^(0),U,2)&($P(^(0),U,2)'[""C"")"

 S:$G(X)="??" DZ=X

 D DQ^DICQ

 Q

 ;

GETFILE(DA) ;

 Q:'$D(DA)!'$D(DA(1))!'$D(DDS)

 N DIKCFILE

 S DIKCFILE=$$GET^DDSVAL(.114,.DA,2)

 Q DIKCFILE

DIKCDD    ;SFISC/MKO-DATA DICTIONARY CODE FOR INDEX AND KEY FILES ;3:02 PM  5 Dec 2001 [ 12/09/2003  4:43 PM ]

 +1       ;;22.0;VA FileMan;**11,95,1002**;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

ITFLD     ;Input transform for field

 +1        IF '$DATA(DA)!'$DATA(DA(1))!'$DATA(DDS)

               QUIT 

 +2        NEW DIKCFILE

 +3        SET DIKCFILE=$$GETFILE(.DA)

           IF 'DIKCFILE

               KILL X

               QUIT 

 +4       ;

 +5        NEW %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,DZ,Y

 +6        SET DIC="^DD("_DIKCFILE_","

           SET DIC(0)="EN"

 +7        SET DIC("S")="I '$P(^(0),U,2)&($P(^(0),U,2)'[""C"")"

 +8        DO ^DIC

 +9        IF Y'>0

               KILL X

 +10      IF '$TEST

               SET X=+$PIECE(Y,"E")

 +11       QUIT 

 +12      ;

EHFLD     ;Executable help for field

 +1        IF '$DATA(DA)!'$DATA(DA(1))!'$DATA(DDS)

               QUIT 

 +2        NEW DIKCFILE

 +3        SET DIKCFILE=$$GETFILE(.DA)

           IF 'DIKCFILE

               QUIT 

 +4       ;

 +5        NEW %,D,D0,DA,DDD,DIC,DICR,DIX,DO,DP,Y

 +6        SET DIC="^DD("_DIKCFILE_","

           SET DIC(0)=""

           SET D="B"

 +7        SET DIC("S")="I '$P(^(0),U,2)&($P(^(0),U,2)'[""C"")"

 +8        IF $GET(X)="??"

               SET DZ=X

 +9        DO DQ^DICQ

 +10       QUIT 

 +11      ;

GETFILE(DA) ;

 +1        IF '$DATA(DA)!'$DATA(DA(1))!'$DATA(DDS)

               QUIT 

 +2        NEW DIKCFILE

 +3        SET DIKCFILE=$$GET^DDSVAL(.114,.DA,2)

 +4        QUIT DIKCFILE