| 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)
|
