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 ---[H[J[2J[HDIKCDD 1119 printed Sep 15, 2024@22:12:43 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
