COMPUTED EXPRESSION: N DIKCFIL,DIKCFLD S Y="",DIKCFIL=+{FILE},DIKCFLD=+{FIELD} I DIKCFIL,DIKCFLD S Y=$P($G(^DD(DIKCFIL,DIKCFLD,0)),U) S:$L(Y)>60 Y=$E(Y,1,57)_"..."
DATA COORDINATE: 5,18
DATA LENGTH: 60
CAPTION COORDINATE: 5,6
FIELD ORDER: 12
CAPTION: Transform for Display
DATA VALIDATION: I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Display.")
FIELD TYPE: DATA DICTIONARY FIELD
UNIQUE NAME: TRANSFORM FOR DISPLAY
DATA COORDINATE: 11,25
DATA LENGTH: 53
CAPTION COORDINATE: 11,2
FIELD ORDER: 11
CAPTION: Transform for Lookup
DATA VALIDATION: I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Lookup.")
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 10,25
DATA LENGTH: 53
CAPTION COORDINATE: 10,3
FIELD ORDER: 2
CAPTION: Order Number
PRE ACTION: I $G(DIKCPG21),$$GET^DDSVAL(DIE,.DA,3)="" S DDSBR="FIELD" K DIKCPG21
POST ACTION ON CHANGE: S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 3,18
DATA LENGTH: 3
CAPTION COORDINATE: 3,4
FIELD ORDER: 3
CAPTION: Subscript Number
POST ACTION ON CHANGE: I X=""!(DDSOLD="") S DIKCCRV=1 D:X="" PUT^DDSVAL(.114,.DA,6) I DDSOLD="" N DIKCTYPE S DIKCTYPE=$P($G(^DD(+$$GET^DDSVAL(.114,.DA,2),+$$GET^DDSVAL(.114,.DA,3),0)),U,2) D:DIKCTYPE["F"!(DIKCTYPE["K") PUT^DDSVAL(.114,.DA,6,30)
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 3,58
DATA LENGTH: 3
CAPTION COORDINATE: 3,40
DEFAULT: !M
EXECUTABLE DEFAULT: S Y=$S($$GET^DDSVAL(.11,DA(1),.2)="R":$$GET^DDSVAL(.114,.DA,.01),1:"")
DATA VALIDATION: I $G(DUZ(0))'="@" S DDSERROR=1 D HLP^DDSUTL($C(7)_"Only programmers are allowed to edit the Transform for Storage.")
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 9,25
DATA LENGTH: 53
CAPTION COORDINATE: 9,2
FIELD ORDER: 7
CAPTION: Maximum Length
POST ACTION ON CHANGE: S:$$GET^DDSVAL(.114,.DA,.5) DIKCCRV=1
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 7,18
DATA LENGTH: 3
CAPTION COORDINATE: 7,2
FIELD ORDER: 8
CAPTION: Collation
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 7,58
DATA LENGTH: 9
CAPTION COORDINATE: 7,47
DEFAULT: forwards
FIELD ORDER: 9
CAPTION: Lookup Prompt
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 8,18
DATA LENGTH: 30
CAPTION COORDINATE: 8,3
FIELD ORDER: 5
CAPTION: File
DATA VALIDATION: N RF S RF=$$GET^DDSVAL(.11,DA(1),.51) I X'=RF S DDSERROR=1 D HLP^DDSUTL("This File number must equal the Root File number: "_RF_".")
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 4,58
DATA LENGTH: 20
CAPTION COORDINATE: 4,52
DEFAULT: !M
EXECUTABLE DEFAULT: S Y=$$GET^DDSVAL(.11,DA(1),.51)
REQUIRED: YES
DISABLE EDITING: YES
FIELD ORDER: 4
CAPTION: Field
POST ACTION ON CHANGE: S:X=""!(DDSOLD="") DIKCCRV=1 I $$GET^DDSVAL(.114,.DA,.5) N DIKCTYPE S DIKCTYPE=$P($G(^DD($$GET^DDSVAL(.114,.DA,2),+X,0)),U,2) D PUT^DDSVAL(.114,.DA,6,$S(DIKCTYPE["F"!(DIKCTYPE["K"):30,1:""),"","I")
