DIKC EDIT CRV (.110104) BLOCK (.404)
Name
Value
NAME
DIKC EDIT CRV
DATA DICTIONARY NUMBER
.114
FIELD
FIELD ORDER: 1
BRANCHING LOGIC: S DDSSTACK=$S($$GET^DDSVAL(.114,.DA,1)="F":2.1,1:2.2)
POST ACTION ON CHANGE: D:DDSOLD'="" BLDLOG^DIKCFORM(DA(1))
FIELD TYPE: DATA DICTIONARY FIELD
UNIQUE NAME: ORDER
DATA COORDINATE: 1,3
DATA LENGTH: 3
FIELD ORDER: 2
POST ACTION ON CHANGE: D BLDLOG^
DIKCFORM
(DA(1))
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 1,12
DATA LENGTH: 3
FIELD ORDER: 3
BRANCHING LOGIC: S:X'=DDSOLD DDSSTACK=$S(X="F":2.1,1:2.2)
POST ACTION ON CHANGE: D CRVTYPE^
DIKCFORM
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 1,19
DATA LENGTH: 8
FIELD ORDER: 5
FIELD TYPE: COMPUTED
COMPUTED EXPRESSION: N FIL,FLD,TYP S TYP={TYPE OF VALUE;I} S:TYP="F" FIL=+{FILE},FLD=+{FIELD},Y=$S('FIL!'FLD:"",$P($G(^DD(FIL,FLD,0)),U)="":"",1:$P(^(0),U)_" (#"_FLD_")") S:TYP="C" Y={COMPUTED CODE} S:$L($G(Y))>43 Y=$E(Y,1,40)_"..."
DATA COORDINATE: 1,36
DATA LENGTH: 43
FIELD ORDER: 4
POST ACTION ON CHANGE: D:$$GET^
DDSVAL
(.114,.DA,.5) BLDLOG^DIKCFORM(DA(1))
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 1,29
DATA LENGTH: 3
