Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI013

IBDEI013.m

Go to the documentation of this file.
IBDEI013 ; ; 01-AUG-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
 Q:'DIFQR(358.3)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,2120,1,4,0)
 ;;=4^H54.62
 ;;^UTILITY(U,$J,358.3,2120,2)
 ;;=^5133520
 ;;^UTILITY(U,$J,358.3,2121,0)
 ;;=H54.7^^18^140^77
 ;;^UTILITY(U,$J,358.3,2121,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2121,1,3,0)
 ;;=3^Visual Loss,Unspec
 ;;^UTILITY(U,$J,358.3,2121,1,4,0)
 ;;=4^H54.7
 ;;^UTILITY(U,$J,358.3,2121,2)
 ;;=^5006368
 ;;^UTILITY(U,$J,358.3,2122,0)
 ;;=H54.8^^18^140^37
 ;;^UTILITY(U,$J,358.3,2122,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2122,1,3,0)
 ;;=3^Legal Blindness,USA Definition
 ;;^UTILITY(U,$J,358.3,2122,1,4,0)
 ;;=4^H54.8
 ;;^UTILITY(U,$J,358.3,2122,2)
 ;;=^5006369
 ;;^UTILITY(U,$J,358.3,2123,0)
 ;;=H51.11^^18^140^28
 ;;^UTILITY(U,$J,358.3,2123,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2123,1,3,0)
 ;;=3^Convergence Insufficiency
 ;;^UTILITY(U,$J,358.3,2123,1,4,0)
 ;;=4^H51.11
 ;;^UTILITY(U,$J,358.3,2123,2)
 ;;=^5006251
 ;;^UTILITY(U,$J,358.3,2124,0)
 ;;=H51.12^^18^140^27
 ;;^UTILITY(U,$J,358.3,2124,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2124,1,3,0)
 ;;=3^Convergence Excess
 ;;^UTILITY(U,$J,358.3,2124,1,4,0)
 ;;=4^H51.12
 ;;^UTILITY(U,$J,358.3,2124,2)
 ;;=^5006252
 ;;^UTILITY(U,$J,358.3,2125,0)
 ;;=H51.9^^18^140^1
 ;;^UTILITY(U,$J,358.3,2125,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2125,1,3,0)
 ;;=3^Binocular Movement Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,2125,1,4,0)
 ;;=4^H51.9
 ;;^UTILITY(U,$J,358.3,2125,2)
 ;;=^5006258
 ;;^UTILITY(U,$J,358.3,2126,0)
 ;;=H51.8^^18^140^2
 ;;^UTILITY(U,$J,358.3,2126,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2126,1,3,0)
 ;;=3^Binocular Movement Disorders,Oth Spec
 ;;^UTILITY(U,$J,358.3,2126,1,4,0)
 ;;=4^H51.8
 ;;^UTILITY(U,$J,358.3,2126,2)
 ;;=^5006257
 ;;^UTILITY(U,$J,358.3,2127,0)
 ;;=H55.81^^18^140^60
 ;;^UTILITY(U,$J,358.3,2127,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2127,1,3,0)
 ;;=3^Saccadic Eye Movements
 ;;^UTILITY(U,$J,358.3,2127,1,4,0)
 ;;=4^H55.81
 ;;^UTILITY(U,$J,358.3,2127,2)
 ;;=^5006373
 ;;^UTILITY(U,$J,358.3,2128,0)
 ;;=H55.89^^18^140^36
 ;;^UTILITY(U,$J,358.3,2128,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2128,1,3,0)
 ;;=3^Irregular Eye Movements
 ;;^UTILITY(U,$J,358.3,2128,1,4,0)
 ;;=4^H55.89
 ;;^UTILITY(U,$J,358.3,2128,2)
 ;;=^5006374
 ;;^UTILITY(U,$J,358.3,2129,0)
 ;;=H54.3^^18^140^64
 ;;^UTILITY(U,$J,358.3,2129,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2129,1,3,0)
 ;;=3^Unqualified Visual Loss,Both Eyes
 ;;^UTILITY(U,$J,358.3,2129,1,4,0)
 ;;=4^H54.3
 ;;^UTILITY(U,$J,358.3,2129,2)
 ;;=^268886
 ;;^UTILITY(U,$J,358.3,2130,0)
 ;;=H54.1213^^18^140^38
 ;;^UTILITY(U,$J,358.3,2130,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2130,1,3,0)
 ;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 3
 ;;^UTILITY(U,$J,358.3,2130,1,4,0)
 ;;=4^H54.1213
 ;;^UTILITY(U,$J,358.3,2130,2)
 ;;=^5151353
 ;;^UTILITY(U,$J,358.3,2131,0)
 ;;=H54.1214^^18^140^39
 ;;^UTILITY(U,$J,358.3,2131,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2131,1,3,0)
 ;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 4
 ;;^UTILITY(U,$J,358.3,2131,1,4,0)
 ;;=4^H54.1214
 ;;^UTILITY(U,$J,358.3,2131,2)
 ;;=^5151354
 ;;^UTILITY(U,$J,358.3,2132,0)
 ;;=H54.1215^^18^140^40
 ;;^UTILITY(U,$J,358.3,2132,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2132,1,3,0)
 ;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 5
 ;;^UTILITY(U,$J,358.3,2132,1,4,0)
 ;;=4^H54.1215
 ;;^UTILITY(U,$J,358.3,2132,2)
 ;;=^5151355
 ;;^UTILITY(U,$J,358.3,2133,0)
 ;;=H54.1223^^18^140^46
 ;;^UTILITY(U,$J,358.3,2133,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2133,1,3,0)
 ;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 3
 ;;^UTILITY(U,$J,358.3,2133,1,4,0)
 ;;=4^H54.1223
 ;;^UTILITY(U,$J,358.3,2133,2)
 ;;=^5151356
 ;;^UTILITY(U,$J,358.3,2134,0)
 ;;=H54.1224^^18^140^47
 ;;^UTILITY(U,$J,358.3,2134,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2134,1,3,0)
 ;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 4
 ;;^UTILITY(U,$J,358.3,2134,1,4,0)
 ;;=4^H54.1224
 ;;^UTILITY(U,$J,358.3,2134,2)
 ;;=^5151357
 ;;^UTILITY(U,$J,358.3,2135,0)
 ;;=H54.1225^^18^140^48
 ;;^UTILITY(U,$J,358.3,2135,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2135,1,3,0)
 ;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 5
 ;;^UTILITY(U,$J,358.3,2135,1,4,0)
 ;;=4^H54.1225
 ;;^UTILITY(U,$J,358.3,2135,2)
 ;;=^5151358
 ;;^UTILITY(U,$J,358.3,2136,0)
 ;;=H54.1131^^18^140^8
 ;;^UTILITY(U,$J,358.3,2136,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2136,1,3,0)
 ;;=3^Blindness Rt Eye Category 3,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,2136,1,4,0)
 ;;=4^H54.1131
 ;;^UTILITY(U,$J,358.3,2136,2)
 ;;=^5151347
 ;;^UTILITY(U,$J,358.3,2137,0)
 ;;=H54.1132^^18^140^9
 ;;^UTILITY(U,$J,358.3,2137,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2137,1,3,0)
 ;;=3^Blindness Rt Eye Category 3,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,2137,1,4,0)
 ;;=4^H54.1132
 ;;^UTILITY(U,$J,358.3,2137,2)
 ;;=^5151348
 ;;^UTILITY(U,$J,358.3,2138,0)
 ;;=H54.1141^^18^140^14
 ;;^UTILITY(U,$J,358.3,2138,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2138,1,3,0)
 ;;=3^Blindness Rt Eye Category 4,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,2138,1,4,0)
 ;;=4^H54.1141
 ;;^UTILITY(U,$J,358.3,2138,2)
 ;;=^5151349
 ;;^UTILITY(U,$J,358.3,2139,0)
 ;;=H54.1142^^18^140^15
 ;;^UTILITY(U,$J,358.3,2139,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2139,1,3,0)
 ;;=3^Blindness Rt Eye Category 4,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,2139,1,4,0)
 ;;=4^H54.1142
 ;;^UTILITY(U,$J,358.3,2139,2)
 ;;=^5151350
 ;;^UTILITY(U,$J,358.3,2140,0)
 ;;=H54.1151^^18^140^20
 ;;^UTILITY(U,$J,358.3,2140,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2140,1,3,0)
 ;;=3^Blindness Rt Eye Category 5,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,2140,1,4,0)
 ;;=4^H54.1151
 ;;^UTILITY(U,$J,358.3,2140,2)
 ;;=^5151351
 ;;^UTILITY(U,$J,358.3,2141,0)
 ;;=H54.1152^^18^140^21
 ;;^UTILITY(U,$J,358.3,2141,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2141,1,3,0)
 ;;=3^Blindness Rt Eye Category 5,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,2141,1,4,0)
 ;;=4^H54.1152
 ;;^UTILITY(U,$J,358.3,2141,2)
 ;;=^5151352
 ;;^UTILITY(U,$J,358.3,2142,0)
 ;;=H54.413A^^18^140^10
 ;;^UTILITY(U,$J,358.3,2142,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2142,1,3,0)
 ;;=3^Blindness Rt Eye Category 3,Normal Vision Lt Eye
 ;;^UTILITY(U,$J,358.3,2142,1,4,0)
 ;;=4^H54.413A
 ;;^UTILITY(U,$J,358.3,2142,2)
 ;;=^5151363
 ;;^UTILITY(U,$J,358.3,2143,0)
 ;;=H54.414A^^18^140^16
 ;;^UTILITY(U,$J,358.3,2143,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2143,1,3,0)
 ;;=3^Blindness Rt Eye Category 4,Normal Vision Lt Eye
 ;;^UTILITY(U,$J,358.3,2143,1,4,0)
 ;;=4^H54.414A
 ;;^UTILITY(U,$J,358.3,2143,2)
 ;;=^5151364
 ;;^UTILITY(U,$J,358.3,2144,0)
 ;;=H54.415A^^18^140^22
 ;;^UTILITY(U,$J,358.3,2144,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2144,1,3,0)
 ;;=3^Blindness Rt Eye Category 5,Normal Vision Lt Eye
 ;;^UTILITY(U,$J,358.3,2144,1,4,0)
 ;;=4^H54.415A
 ;;^UTILITY(U,$J,358.3,2144,2)
 ;;=^5151365
 ;;^UTILITY(U,$J,358.3,2145,0)
 ;;=H54.0X33^^18^140^5
 ;;^UTILITY(U,$J,358.3,2145,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2145,1,3,0)
 ;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 3
 ;;^UTILITY(U,$J,358.3,2145,1,4,0)
 ;;=4^H54.0X33
 ;;^UTILITY(U,$J,358.3,2145,2)
 ;;=^5151338
 ;;^UTILITY(U,$J,358.3,2146,0)
 ;;=H54.0X34^^18^140^6
 ;;^UTILITY(U,$J,358.3,2146,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2146,1,3,0)
 ;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 4
 ;;^UTILITY(U,$J,358.3,2146,1,4,0)
 ;;=4^H54.0X34
 ;;^UTILITY(U,$J,358.3,2146,2)
 ;;=^5151339
 ;;^UTILITY(U,$J,358.3,2147,0)
 ;;=H54.0X35^^18^140^7
 ;;^UTILITY(U,$J,358.3,2147,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2147,1,3,0)
 ;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 5
 ;;^UTILITY(U,$J,358.3,2147,1,4,0)
 ;;=4^H54.0X35
 ;;^UTILITY(U,$J,358.3,2147,2)
 ;;=^5151340
 ;;^UTILITY(U,$J,358.3,2148,0)
 ;;=H54.0X43^^18^140^11
 ;;^UTILITY(U,$J,358.3,2148,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2148,1,3,0)
 ;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 3
 ;;^UTILITY(U,$J,358.3,2148,1,4,0)
 ;;=4^H54.0X43
 ;;^UTILITY(U,$J,358.3,2148,2)
 ;;=^5151341
 ;;^UTILITY(U,$J,358.3,2149,0)
 ;;=H54.0X44^^18^140^12
 ;;^UTILITY(U,$J,358.3,2149,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2149,1,3,0)
 ;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 4
 ;;^UTILITY(U,$J,358.3,2149,1,4,0)
 ;;=4^H54.0X44
 ;;^UTILITY(U,$J,358.3,2149,2)
 ;;=^5151342
 ;;^UTILITY(U,$J,358.3,2150,0)
 ;;=H54.0X45^^18^140^13
 ;;^UTILITY(U,$J,358.3,2150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2150,1,3,0)
 ;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 5
 ;;^UTILITY(U,$J,358.3,2150,1,4,0)
 ;;=4^H54.0X45
 ;;^UTILITY(U,$J,358.3,2150,2)
 ;;=^5151343
 ;;^UTILITY(U,$J,358.3,2151,0)
 ;;=H54.0X53^^18^140^17
 ;;^UTILITY(U,$J,358.3,2151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2151,1,3,0)
 ;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 3
 ;;^UTILITY(U,$J,358.3,2151,1,4,0)
 ;;=4^H54.0X53
 ;;^UTILITY(U,$J,358.3,2151,2)
 ;;=^5151344
 ;;^UTILITY(U,$J,358.3,2152,0)
 ;;=H54.0X54^^18^140^18
 ;;^UTILITY(U,$J,358.3,2152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2152,1,3,0)
 ;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 4
 ;;^UTILITY(U,$J,358.3,2152,1,4,0)
 ;;=4^H54.0X54
 ;;^UTILITY(U,$J,358.3,2152,2)
 ;;=^5151345
 ;;^UTILITY(U,$J,358.3,2153,0)
 ;;=H54.0X55^^18^140^19
 ;;^UTILITY(U,$J,358.3,2153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2153,1,3,0)
 ;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 5
 ;;^UTILITY(U,$J,358.3,2153,1,4,0)
 ;;=4^H54.0X55
 ;;^UTILITY(U,$J,358.3,2153,2)
 ;;=^5151346
 ;;^UTILITY(U,$J,358.3,2154,0)
 ;;=H54.2X11^^18^140^41
 ;;^UTILITY(U,$J,358.3,2154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2154,1,3,0)
 ;;=3^Low Vision Rt Eye Category 1,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,2154,1,4,0)
 ;;=4^H54.2X11
 ;;^UTILITY(U,$J,358.3,2154,2)
 ;;=^5151359
 ;;^UTILITY(U,$J,358.3,2155,0)
 ;;=H54.2X12^^18^140^42
 ;;^UTILITY(U,$J,358.3,2155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2155,1,3,0)
 ;;=3^Low Vision Rt Eye Category 1,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,2155,1,4,0)
 ;;=4^H54.2X12
 ;;^UTILITY(U,$J,358.3,2155,2)
 ;;=^5151360
 ;;^UTILITY(U,$J,358.3,2156,0)
 ;;=H54.2X21^^18^140^49
 ;;^UTILITY(U,$J,358.3,2156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2156,1,3,0)
 ;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,2156,1,4,0)
 ;;=4^H54.2X21
 ;;^UTILITY(U,$J,358.3,2156,2)
 ;;=^5151361
 ;;^UTILITY(U,$J,358.3,2157,0)
 ;;=H54.2X22^^18^140^50
 ;;^UTILITY(U,$J,358.3,2157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2157,1,3,0)
 ;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,2157,1,4,0)
 ;;=4^H54.2X22
 ;;^UTILITY(U,$J,358.3,2157,2)
 ;;=^5151362
 ;;^UTILITY(U,$J,358.3,2158,0)
 ;;=H54.511A^^18^140^45
 ;;^UTILITY(U,$J,358.3,2158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2158,1,3,0)
 ;;=3^Low Vision Rt Eye Category 1,Normal Vision Lt Eye
 ;;^UTILITY(U,$J,358.3,2158,1,4,0)
 ;;=4^H54.511A
 ;;^UTILITY(U,$J,358.3,2158,2)
 ;;=^5151369
 ;;^UTILITY(U,$J,358.3,2159,0)
 ;;=H54.512A^^18^140^53
 ;;^UTILITY(U,$J,358.3,2159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2159,1,3,0)
 ;;=3^Low Vision Rt Eye Category 2,Normal Vision Lt Eye
 ;;^UTILITY(U,$J,358.3,2159,1,4,0)
 ;;=4^H54.512A
 ;;^UTILITY(U,$J,358.3,2159,2)
 ;;=^5151370
 ;;^UTILITY(U,$J,358.3,2160,0)
 ;;=H54.2X11^^18^140^43
 ;;^UTILITY(U,$J,358.3,2160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2160,1,3,0)
 ;;=3^Low Vision Rt Eye Category 1,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,2160,1,4,0)
 ;;=4^H54.2X11
 ;;^UTILITY(U,$J,358.3,2160,2)
 ;;=^5151359
 ;;^UTILITY(U,$J,358.3,2161,0)
 ;;=H54.2X12^^18^140^44
 ;;^UTILITY(U,$J,358.3,2161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2161,1,3,0)
 ;;=3^Low Vision Rt Eye Category 1,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,2161,1,4,0)
 ;;=4^H54.2X12
 ;;^UTILITY(U,$J,358.3,2161,2)
 ;;=^5151360
 ;;^UTILITY(U,$J,358.3,2162,0)
 ;;=H54.2X21^^18^140^51
 ;;^UTILITY(U,$J,358.3,2162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2162,1,3,0)
 ;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 1
 ;;^UTILITY(U,$J,358.3,2162,1,4,0)
 ;;=4^H54.2X21
 ;;^UTILITY(U,$J,358.3,2162,2)
 ;;=^5151361
 ;;^UTILITY(U,$J,358.3,2163,0)
 ;;=H54.2X22^^18^140^52
 ;;^UTILITY(U,$J,358.3,2163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2163,1,3,0)
 ;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 2
 ;;^UTILITY(U,$J,358.3,2163,1,4,0)
 ;;=4^H54.2X22
 ;;^UTILITY(U,$J,358.3,2163,2)
 ;;=^5151362
 ;;^UTILITY(U,$J,358.3,2164,0)
 ;;=Z01.020^^18^140^31
 ;;^UTILITY(U,$J,358.3,2164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2164,1,3,0)
 ;;=3^Exam of Eyes/Vision Following Failed Vision Scrn w/o Abn Findings
 ;;^UTILITY(U,$J,358.3,2164,1,4,0)
 ;;=4^Z01.020
 ;;^UTILITY(U,$J,358.3,2164,2)
 ;;=^5158318
 ;;^UTILITY(U,$J,358.3,2165,0)
 ;;=Z01.021^^18^140^32
 ;;^UTILITY(U,$J,358.3,2165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2165,1,3,0)
 ;;=3^Exam of Eyes/Vision Following Failed Vision Scrn w/ Abn Findings
 ;;^UTILITY(U,$J,358.3,2165,1,4,0)
 ;;=4^Z01.021
 ;;^UTILITY(U,$J,358.3,2165,2)
 ;;=^5158319
 ;;^UTILITY(U,$J,358.3,2166,0)
 ;;=B39.9^^18^141^33
 ;;^UTILITY(U,$J,358.3,2166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2166,1,3,0)
 ;;=3^Histoplasmosis,Unspec
 ;;^UTILITY(U,$J,358.3,2166,1,4,0)
 ;;=4^B39.9
 ;;^UTILITY(U,$J,358.3,2166,2)
 ;;=^5000638
 ;;^UTILITY(U,$J,358.3,2167,0)
 ;;=E11.311^^18^141^13
 ;;^UTILITY(U,$J,358.3,2167,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2167,1,3,0)
 ;;=3^DM Type 2 w/ Diab Retinopathy w/ Macular Edema
 ;;^UTILITY(U,$J,358.3,2167,1,4,0)
 ;;=4^E11.311
 ;;^UTILITY(U,$J,358.3,2167,2)
 ;;=^5002632
 ;;^UTILITY(U,$J,358.3,2168,0)
 ;;=E11.319^^18^141^14
 ;;^UTILITY(U,$J,358.3,2168,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2168,1,3,0)
 ;;=3^DM Type 2 w/ Diab Retinopathy w/o Macular Edema
 ;;^UTILITY(U,$J,358.3,2168,1,4,0)
 ;;=4^E11.319
 ;;^UTILITY(U,$J,358.3,2168,2)
 ;;=^5002633
 ;;^UTILITY(U,$J,358.3,2169,0)
 ;;=E11.36^^18^141^11
 ;;^UTILITY(U,$J,358.3,2169,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2169,1,3,0)
 ;;=3^DM Type 2 w/ Diab Cataract
 ;;^UTILITY(U,$J,358.3,2169,1,4,0)
 ;;=4^E11.36
 ;;^UTILITY(U,$J,358.3,2169,2)
 ;;=^5002642
 ;;^UTILITY(U,$J,358.3,2170,0)
 ;;=E11.39^^18^141^12
 ;;^UTILITY(U,$J,358.3,2170,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2170,1,3,0)
 ;;=3^DM Type 2 w/ Diab Ophthalmic Complication
 ;;^UTILITY(U,$J,358.3,2170,1,4,0)
 ;;=4^E11.39
 ;;^UTILITY(U,$J,358.3,2170,2)
 ;;=^5002643
 ;;^UTILITY(U,$J,358.3,2171,0)
 ;;=H35.30^^18^141^34
 ;;^UTILITY(U,$J,358.3,2171,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2171,1,3,0)
 ;;=3^Macular Degeneration,Unspec
 ;;^UTILITY(U,$J,358.3,2171,1,4,0)
 ;;=4^H35.30
 ;;^UTILITY(U,$J,358.3,2171,2)
 ;;=^5005646
 ;;^UTILITY(U,$J,358.3,2172,0)
 ;;=H35.52^^18^141^60
 ;;^UTILITY(U,$J,358.3,2172,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2172,1,3,0)
 ;;=3^Pigmentary Retinal Dystrophy
 ;;^UTILITY(U,$J,358.3,2172,1,4,0)
 ;;=4^H35.52
 ;;^UTILITY(U,$J,358.3,2172,2)
 ;;=^5005697
 ;;^UTILITY(U,$J,358.3,2173,0)
 ;;=H35.53^^18^141^65
 ;;^UTILITY(U,$J,358.3,2173,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2173,1,3,0)
 ;;=3^Sensory Retina Dystrophies
 ;;^UTILITY(U,$J,358.3,2173,1,4,0)
 ;;=4^H35.53
 ;;^UTILITY(U,$J,358.3,2173,2)
 ;;=^268656
 ;;^UTILITY(U,$J,358.3,2174,0)
 ;;=H40.9^^18^141^32
 ;;^UTILITY(U,$J,358.3,2174,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2174,1,3,0)
 ;;=3^Glaucoma,Unspec
 ;;^UTILITY(U,$J,358.3,2174,1,4,0)
 ;;=4^H40.9
 ;;^UTILITY(U,$J,358.3,2174,2)
 ;;=^5005931
 ;;^UTILITY(U,$J,358.3,2175,0)
 ;;=H26.9^^18^141^8
 ;;^UTILITY(U,$J,358.3,2175,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2175,1,3,0)
 ;;=3^Cataract,Unspec
 ;;^UTILITY(U,$J,358.3,2175,1,4,0)
 ;;=4^H26.9
 ;;^UTILITY(U,$J,358.3,2175,2)
 ;;=^5005363
 ;;^UTILITY(U,$J,358.3,2176,0)
 ;;=H17.9^^18^141^10
 ;;^UTILITY(U,$J,358.3,2176,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2176,1,3,0)
 ;;=3^Corneal Scar & Opacity,Unspec
 ;;^UTILITY(U,$J,358.3,2176,1,4,0)
 ;;=4^H17.9
 ;;^UTILITY(U,$J,358.3,2176,2)
 ;;=^5005003
 ;;^UTILITY(U,$J,358.3,2177,0)
 ;;=H47.20^^18^141^50
 ;;^UTILITY(U,$J,358.3,2177,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2177,1,3,0)
 ;;=3^Optic Atrophy,Unspec
 ;;^UTILITY(U,$J,358.3,2177,1,4,0)
 ;;=4^H47.20
 ;;^UTILITY(U,$J,358.3,2177,2)
 ;;=^5006126
 ;;^UTILITY(U,$J,358.3,2178,0)
 ;;=H47.091^^18^141^53
 ;;^UTILITY(U,$J,358.3,2178,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2178,1,3,0)
 ;;=3^Optic Nerve Disorders,Right Eye
 ;;^UTILITY(U,$J,358.3,2178,1,4,0)
 ;;=4^H47.091
 ;;^UTILITY(U,$J,358.3,2178,2)
 ;;=^5006117
 ;;^UTILITY(U,$J,358.3,2179,0)
 ;;=H47.092^^18^141^52
 ;;^UTILITY(U,$J,358.3,2179,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2179,1,3,0)
 ;;=3^Optic Nerve Disorders,Left Eye
 ;;^UTILITY(U,$J,358.3,2179,1,4,0)
 ;;=4^H47.092
 ;;^UTILITY(U,$J,358.3,2179,2)
 ;;=^5006118
 ;;^UTILITY(U,$J,358.3,2180,0)
 ;;=H47.093^^18^141^51
 ;;^UTILITY(U,$J,358.3,2180,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2180,1,3,0)
 ;;=3^Optic Nerve Disorders,Bilateral
 ;;^UTILITY(U,$J,358.3,2180,1,4,0)
 ;;=4^H47.093
 ;;^UTILITY(U,$J,358.3,2180,2)
 ;;=^5006119
 ;;^UTILITY(U,$J,358.3,2181,0)
 ;;=H27.03^^18^141^1
 ;;^UTILITY(U,$J,358.3,2181,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2181,1,3,0)
 ;;=3^Aphakia,Bilateral
 ;;^UTILITY(U,$J,358.3,2181,1,4,0)
 ;;=4^H27.03
 ;;^UTILITY(U,$J,358.3,2181,2)
 ;;=^5005367
 ;;^UTILITY(U,$J,358.3,2182,0)
 ;;=H27.01^^18^141^3
 ;;^UTILITY(U,$J,358.3,2182,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2182,1,3,0)
 ;;=3^Aphakia,Right Eye
 ;;^UTILITY(U,$J,358.3,2182,1,4,0)
 ;;=4^H27.01
 ;;^UTILITY(U,$J,358.3,2182,2)
 ;;=^5005365
 ;;^UTILITY(U,$J,358.3,2183,0)
 ;;=H27.02^^18^141^2
 ;;^UTILITY(U,$J,358.3,2183,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2183,1,3,0)
 ;;=3^Aphakia,Left Eye
 ;;^UTILITY(U,$J,358.3,2183,1,4,0)
 ;;=4^H27.02
 ;;^UTILITY(U,$J,358.3,2183,2)
 ;;=^5005366
 ;;^UTILITY(U,$J,358.3,2184,0)
 ;;=I69.998^^18^141^9
 ;;^UTILITY(U,$J,358.3,2184,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2184,1,3,0)
 ;;=3^Cerebrovascular Disease,Unspec,Sequelae
 ;;^UTILITY(U,$J,358.3,2184,1,4,0)
 ;;=4^I69.998
 ;;^UTILITY(U,$J,358.3,2184,2)
 ;;=^5007572
 ;;^UTILITY(U,$J,358.3,2185,0)
 ;;=S04.011A^^18^141^57
 ;;^UTILITY(U,$J,358.3,2185,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2185,1,3,0)
 ;;=3^Optic Nerve Injury,Right Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,2185,1,4,0)
 ;;=4^S04.011A
 ;;^UTILITY(U,$J,358.3,2185,2)
 ;;=^5020462
 ;;^UTILITY(U,$J,358.3,2186,0)
 ;;=S04.012A^^18^141^54
 ;;^UTILITY(U,$J,358.3,2186,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,2186,1,3,0)
 ;;=3^Optic Nerve Injury,Left Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,2186,1,4,0)
 ;;=4^S04.012A
 ;;^UTILITY(U,$J,358.3,2186,2)
 ;;=^5020465
 ;;^UTILITY(U,$J,358.3,2187,0)
 ;;=H33.001^^18^141^63
 ;;^UTILITY(U,$J,358.3,2187,1,0)
 ;;=^358.31IA^4^2