| FIELD |
-
- FIELD ORDER: 1
- CAPTION: Field-Type Cross Reference Value
- FIELD TYPE: CAPTION ONLY
- CAPTION COORDINATE: 1,23
-
- FIELD ORDER: 6
- CAPTION: Field Name
- FIELD TYPE: COMPUTED
- 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:"")
-
- FIELD ORDER: 10
- CAPTION: Transform for Storage
- POST ACTION ON CHANGE: D TRANS^DIKCFORM
- 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")
- FIELD TYPE: DATA DICTIONARY FIELD
- UNIQUE NAME: FIELD
- DATA COORDINATE: 4,18
- DATA LENGTH: 20
- CAPTION COORDINATE: 4,11
|
