DIKCDD.m

DIKCDD ;SFISC/MKO-DATA DICTIONARY CODE FOR INDEX AND KEY FILES ;3:02 PM  5 Dec 2001

 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 ;

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DIKCDD   1119     printed  Mar 13, 2025@21:53:27                                                                                                                                                                                                      Page 2

DIKCDD    ;SFISC/MKO-DATA DICTIONARY CODE FOR INDEX AND KEY FILES ;3:02 PM  5 Dec 2001

 +1       ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;

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