LREPI92B (478) BLOCK (.404)
Name
Value
NAME
LREPI92B
DATA DICTIONARY NUMBER
69.5
FIELD
FIELD ORDER: 1
CAPTION: ICD Coding System [ICD-9 or ICD-10]? (9/10)
PRE ACTION: K ICDSYS
POST ACTION: S ICDSYS=$S(X="10":30,1:1)
FIELD TYPE: FORM ONLY
READ TYPE: SET OF CODES
QUALIFIERS: 9:ICD-9;10:ICD-10;
DATA COORDINATE: 2,46
DATA LENGTH: 6
CAPTION COORDINATE: 2,1
DEFAULT: !M
EXECUTABLE DEFAULT: S Y=$S(DT<$$IMPDATE^LEXU("10D"):9,1:10)
