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)