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

IBDEI06L.m

Go to the documentation of this file.
IBDEI06L ; ; 01-FEB-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
 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,15794,0)
 ;;=H11.151^^92^944^20
 ;;^UTILITY(U,$J,358.3,15794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15794,1,3,0)
 ;;=3^Pinguecula,Right Eye
 ;;^UTILITY(U,$J,358.3,15794,1,4,0)
 ;;=4^H11.151
 ;;^UTILITY(U,$J,358.3,15794,2)
 ;;=^5004761
 ;;^UTILITY(U,$J,358.3,15795,0)
 ;;=H11.152^^92^944^21
 ;;^UTILITY(U,$J,358.3,15795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15795,1,3,0)
 ;;=3^Pinguecula,Left Eye
 ;;^UTILITY(U,$J,358.3,15795,1,4,0)
 ;;=4^H11.152
 ;;^UTILITY(U,$J,358.3,15795,2)
 ;;=^5004762
 ;;^UTILITY(U,$J,358.3,15796,0)
 ;;=D31.01^^92^944^22
 ;;^UTILITY(U,$J,358.3,15796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15796,1,3,0)
 ;;=3^Benign Neop of Conj,Right Eye
 ;;^UTILITY(U,$J,358.3,15796,1,4,0)
 ;;=4^D31.01
 ;;^UTILITY(U,$J,358.3,15796,2)
 ;;=^5002112
 ;;^UTILITY(U,$J,358.3,15797,0)
 ;;=D31.02^^92^944^23
 ;;^UTILITY(U,$J,358.3,15797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15797,1,3,0)
 ;;=3^Benign Neop of Conj,Left Eye
 ;;^UTILITY(U,$J,358.3,15797,1,4,0)
 ;;=4^D31.02
 ;;^UTILITY(U,$J,358.3,15797,2)
 ;;=^5002113
 ;;^UTILITY(U,$J,358.3,15798,0)
 ;;=C69.01^^92^944^24
 ;;^UTILITY(U,$J,358.3,15798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15798,1,3,0)
 ;;=3^Malig Neop of Conj,Right Eye
 ;;^UTILITY(U,$J,358.3,15798,1,4,0)
 ;;=4^C69.01
 ;;^UTILITY(U,$J,358.3,15798,2)
 ;;=^5001267
 ;;^UTILITY(U,$J,358.3,15799,0)
 ;;=C69.02^^92^944^25
 ;;^UTILITY(U,$J,358.3,15799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15799,1,3,0)
 ;;=3^Malig Neop of Conj,Left Eye
 ;;^UTILITY(U,$J,358.3,15799,1,4,0)
 ;;=4^C69.02
 ;;^UTILITY(U,$J,358.3,15799,2)
 ;;=^5001268
 ;;^UTILITY(U,$J,358.3,15800,0)
 ;;=H11.231^^92^944^26
 ;;^UTILITY(U,$J,358.3,15800,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15800,1,3,0)
 ;;=3^Symblepharon,Right Eye
 ;;^UTILITY(U,$J,358.3,15800,1,4,0)
 ;;=4^H11.231
 ;;^UTILITY(U,$J,358.3,15800,2)
 ;;=^5004773
 ;;^UTILITY(U,$J,358.3,15801,0)
 ;;=H11.232^^92^944^27
 ;;^UTILITY(U,$J,358.3,15801,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15801,1,3,0)
 ;;=3^Symblepharon,Left Eye
 ;;^UTILITY(U,$J,358.3,15801,1,4,0)
 ;;=4^H11.232
 ;;^UTILITY(U,$J,358.3,15801,2)
 ;;=^5004774
 ;;^UTILITY(U,$J,358.3,15802,0)
 ;;=L10.81^^92^944^28
 ;;^UTILITY(U,$J,358.3,15802,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15802,1,3,0)
 ;;=3^Paraneoplastic Pemphigus
 ;;^UTILITY(U,$J,358.3,15802,1,4,0)
 ;;=4^L10.81
 ;;^UTILITY(U,$J,358.3,15802,2)
 ;;=^5009088
 ;;^UTILITY(U,$J,358.3,15803,0)
 ;;=L12.9^^92^944^29
 ;;^UTILITY(U,$J,358.3,15803,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15803,1,3,0)
 ;;=3^Pemphigoid,Unspec
 ;;^UTILITY(U,$J,358.3,15803,1,4,0)
 ;;=4^L12.9
 ;;^UTILITY(U,$J,358.3,15803,2)
 ;;=^5009102
 ;;^UTILITY(U,$J,358.3,15804,0)
 ;;=H16.011^^92^945^1
 ;;^UTILITY(U,$J,358.3,15804,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15804,1,3,0)
 ;;=3^Central Corneal Ulcer,Right Eye
 ;;^UTILITY(U,$J,358.3,15804,1,4,0)
 ;;=4^H16.011
 ;;^UTILITY(U,$J,358.3,15804,2)
 ;;=^5004870
 ;;^UTILITY(U,$J,358.3,15805,0)
 ;;=H16.012^^92^945^2
 ;;^UTILITY(U,$J,358.3,15805,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15805,1,3,0)
 ;;=3^Central Corneal Ulcer,Left Eye
 ;;^UTILITY(U,$J,358.3,15805,1,4,0)
 ;;=4^H16.012
 ;;^UTILITY(U,$J,358.3,15805,2)
 ;;=^5004871
 ;;^UTILITY(U,$J,358.3,15806,0)
 ;;=H16.049^^92^945^3
 ;;^UTILITY(U,$J,358.3,15806,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15806,1,3,0)
 ;;=3^Marginal Corneal Ulcer,Unspec Eye
 ;;^UTILITY(U,$J,358.3,15806,1,4,0)
 ;;=4^H16.049
 ;;^UTILITY(U,$J,358.3,15806,2)
 ;;=^5004885
 ;;^UTILITY(U,$J,358.3,15807,0)
 ;;=H17.10^^92^945^4
 ;;^UTILITY(U,$J,358.3,15807,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15807,1,3,0)
 ;;=3^Central Corneal Opacity,Unspec Eye
 ;;^UTILITY(U,$J,358.3,15807,1,4,0)
 ;;=4^H17.10
 ;;^UTILITY(U,$J,358.3,15807,2)
 ;;=^5004990
 ;;^UTILITY(U,$J,358.3,15808,0)
 ;;=H17.9^^92^945^5
 ;;^UTILITY(U,$J,358.3,15808,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15808,1,3,0)
 ;;=3^Corneal Scar & Opacity
 ;;^UTILITY(U,$J,358.3,15808,1,4,0)
 ;;=4^H17.9
 ;;^UTILITY(U,$J,358.3,15808,2)
 ;;=^5005003
 ;;^UTILITY(U,$J,358.3,15809,0)
 ;;=H16.401^^92^945^6
 ;;^UTILITY(U,$J,358.3,15809,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15809,1,3,0)
 ;;=3^Corneal Neovascularization,Right Eye
 ;;^UTILITY(U,$J,358.3,15809,1,4,0)
 ;;=4^H16.401
 ;;^UTILITY(U,$J,358.3,15809,2)
 ;;=^5004965
 ;;^UTILITY(U,$J,358.3,15810,0)
 ;;=H16.402^^92^945^7
 ;;^UTILITY(U,$J,358.3,15810,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15810,1,3,0)
 ;;=3^Corneal Neovascularization,Left Eye
 ;;^UTILITY(U,$J,358.3,15810,1,4,0)
 ;;=4^H16.402
 ;;^UTILITY(U,$J,358.3,15810,2)
 ;;=^5004966
 ;;^UTILITY(U,$J,358.3,15811,0)
 ;;=H18.20^^92^945^11
 ;;^UTILITY(U,$J,358.3,15811,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15811,1,3,0)
 ;;=3^Corneal Edema
 ;;^UTILITY(U,$J,358.3,15811,1,4,0)
 ;;=4^H18.20
 ;;^UTILITY(U,$J,358.3,15811,2)
 ;;=^5005035
 ;;^UTILITY(U,$J,358.3,15812,0)
 ;;=H18.231^^92^945^12
 ;;^UTILITY(U,$J,358.3,15812,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15812,1,3,0)
 ;;=3^Corneal Edema,Right Eye,Secondary
 ;;^UTILITY(U,$J,358.3,15812,1,4,0)
 ;;=4^H18.231
 ;;^UTILITY(U,$J,358.3,15812,2)
 ;;=^5005044
 ;;^UTILITY(U,$J,358.3,15813,0)
 ;;=H18.232^^92^945^13
 ;;^UTILITY(U,$J,358.3,15813,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15813,1,3,0)
 ;;=3^Corneal Edema,Left Eye,Secondary
 ;;^UTILITY(U,$J,358.3,15813,1,4,0)
 ;;=4^H18.232
 ;;^UTILITY(U,$J,358.3,15813,2)
 ;;=^5005045
 ;;^UTILITY(U,$J,358.3,15814,0)
 ;;=H18.11^^92^945^14
 ;;^UTILITY(U,$J,358.3,15814,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15814,1,3,0)
 ;;=3^Bullous Keratopathy,Right Eye
 ;;^UTILITY(U,$J,358.3,15814,1,4,0)
 ;;=4^H18.11
 ;;^UTILITY(U,$J,358.3,15814,2)
 ;;=^5005032
 ;;^UTILITY(U,$J,358.3,15815,0)
 ;;=H18.12^^92^945^15
 ;;^UTILITY(U,$J,358.3,15815,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15815,1,3,0)
 ;;=3^Bullous Keratopathy,Left Eye
 ;;^UTILITY(U,$J,358.3,15815,1,4,0)
 ;;=4^H18.12
 ;;^UTILITY(U,$J,358.3,15815,2)
 ;;=^5005033
 ;;^UTILITY(U,$J,358.3,15816,0)
 ;;=H18.601^^92^945^22
 ;;^UTILITY(U,$J,358.3,15816,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15816,1,3,0)
 ;;=3^Keratoconus,Right Eye
 ;;^UTILITY(U,$J,358.3,15816,1,4,0)
 ;;=4^H18.601
 ;;^UTILITY(U,$J,358.3,15816,2)
 ;;=^5005089
 ;;^UTILITY(U,$J,358.3,15817,0)
 ;;=H18.602^^92^945^23
 ;;^UTILITY(U,$J,358.3,15817,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15817,1,3,0)
 ;;=3^Keratoconus,Left Eye
 ;;^UTILITY(U,$J,358.3,15817,1,4,0)
 ;;=4^H18.602
 ;;^UTILITY(U,$J,358.3,15817,2)
 ;;=^5005090
 ;;^UTILITY(U,$J,358.3,15818,0)
 ;;=H18.423^^92^945^26
 ;;^UTILITY(U,$J,358.3,15818,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15818,1,3,0)
 ;;=3^Band Keratopathy,Bilateral
 ;;^UTILITY(U,$J,358.3,15818,1,4,0)
 ;;=4^H18.423
 ;;^UTILITY(U,$J,358.3,15818,2)
 ;;=^5005068
 ;;^UTILITY(U,$J,358.3,15819,0)
 ;;=H16.213^^92^945^27
 ;;^UTILITY(U,$J,358.3,15819,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15819,1,3,0)
 ;;=3^Exposure Keratoconjunctivitis,Bilateral
 ;;^UTILITY(U,$J,358.3,15819,1,4,0)
 ;;=4^H16.213
 ;;^UTILITY(U,$J,358.3,15819,2)
 ;;=^5004922
 ;;^UTILITY(U,$J,358.3,15820,0)
 ;;=H18.833^^92^945^30
 ;;^UTILITY(U,$J,358.3,15820,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15820,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Bilateral
 ;;^UTILITY(U,$J,358.3,15820,1,4,0)
 ;;=4^H18.833
 ;;^UTILITY(U,$J,358.3,15820,2)
 ;;=^5005128
 ;;^UTILITY(U,$J,358.3,15821,0)
 ;;=B00.51^^92^945^31
 ;;^UTILITY(U,$J,358.3,15821,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15821,1,3,0)
 ;;=3^Herpesviral Iridocyclitis
 ;;^UTILITY(U,$J,358.3,15821,1,4,0)
 ;;=4^B00.51
 ;;^UTILITY(U,$J,358.3,15821,2)
 ;;=^5000473
 ;;^UTILITY(U,$J,358.3,15822,0)
 ;;=B00.52^^92^945^32
 ;;^UTILITY(U,$J,358.3,15822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15822,1,3,0)
 ;;=3^Herpesviral Keratitis
 ;;^UTILITY(U,$J,358.3,15822,1,4,0)
 ;;=4^B00.52
 ;;^UTILITY(U,$J,358.3,15822,2)
 ;;=^5000474
 ;;^UTILITY(U,$J,358.3,15823,0)
 ;;=B00.59^^92^945^33
 ;;^UTILITY(U,$J,358.3,15823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15823,1,3,0)
 ;;=3^Herpes Viral Eye Disease
 ;;^UTILITY(U,$J,358.3,15823,1,4,0)
 ;;=4^B00.59
 ;;^UTILITY(U,$J,358.3,15823,2)
 ;;=^5000476
 ;;^UTILITY(U,$J,358.3,15824,0)
 ;;=B02.39^^92^945^34
 ;;^UTILITY(U,$J,358.3,15824,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15824,1,3,0)
 ;;=3^Herpes Zoster Eye Disease
 ;;^UTILITY(U,$J,358.3,15824,1,4,0)
 ;;=4^B02.39
 ;;^UTILITY(U,$J,358.3,15824,2)
 ;;=^5000498
 ;;^UTILITY(U,$J,358.3,15825,0)
 ;;=H16.309^^92^945^35
 ;;^UTILITY(U,$J,358.3,15825,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15825,1,3,0)
 ;;=3^Interstitial Keratitis,Unspec Eye
 ;;^UTILITY(U,$J,358.3,15825,1,4,0)
 ;;=4^H16.309
 ;;^UTILITY(U,$J,358.3,15825,2)
 ;;=^5133472
 ;;^UTILITY(U,$J,358.3,15826,0)
 ;;=S05.01XA^^92^945^36
 ;;^UTILITY(U,$J,358.3,15826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15826,1,3,0)
 ;;=3^Corneal Abrasion w/o FB,Right Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,15826,1,4,0)
 ;;=4^S05.01XA
 ;;^UTILITY(U,$J,358.3,15826,2)
 ;;=^5020579
 ;;^UTILITY(U,$J,358.3,15827,0)
 ;;=S05.02XA^^92^945^37
 ;;^UTILITY(U,$J,358.3,15827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15827,1,3,0)
 ;;=3^Corneal Abrasion w/o FB,Left Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,15827,1,4,0)
 ;;=4^S05.02XA
 ;;^UTILITY(U,$J,358.3,15827,2)
 ;;=^5020582
 ;;^UTILITY(U,$J,358.3,15828,0)
 ;;=T15.01XA^^92^945^38
 ;;^UTILITY(U,$J,358.3,15828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15828,1,3,0)
 ;;=3^Corneal FB,Right Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,15828,1,4,0)
 ;;=4^T15.01XA
 ;;^UTILITY(U,$J,358.3,15828,2)
 ;;=^5046384
 ;;^UTILITY(U,$J,358.3,15829,0)
 ;;=T15.02XA^^92^945^39
 ;;^UTILITY(U,$J,358.3,15829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15829,1,3,0)
 ;;=3^Corneal FB,Left Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,15829,1,4,0)
 ;;=4^T15.02XA
 ;;^UTILITY(U,$J,358.3,15829,2)
 ;;=^5046387
 ;;^UTILITY(U,$J,358.3,15830,0)
 ;;=H18.832^^92^945^29
 ;;^UTILITY(U,$J,358.3,15830,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15830,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Left Eye
 ;;^UTILITY(U,$J,358.3,15830,1,4,0)
 ;;=4^H18.832
 ;;^UTILITY(U,$J,358.3,15830,2)
 ;;=^5005127
 ;;^UTILITY(U,$J,358.3,15831,0)
 ;;=H18.831^^92^945^28
 ;;^UTILITY(U,$J,358.3,15831,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15831,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Right Eye
 ;;^UTILITY(U,$J,358.3,15831,1,4,0)
 ;;=4^H18.831
 ;;^UTILITY(U,$J,358.3,15831,2)
 ;;=^5005126
 ;;^UTILITY(U,$J,358.3,15832,0)
 ;;=H18.623^^92^945^25
 ;;^UTILITY(U,$J,358.3,15832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15832,1,3,0)
 ;;=3^Keratoconus,Unstable,Bilateral
 ;;^UTILITY(U,$J,358.3,15832,1,4,0)
 ;;=4^H18.623
 ;;^UTILITY(U,$J,358.3,15832,2)
 ;;=^5005099
 ;;^UTILITY(U,$J,358.3,15833,0)
 ;;=H18.613^^92^945^24
 ;;^UTILITY(U,$J,358.3,15833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15833,1,3,0)
 ;;=3^Keratoconus,Stable,Bilateral
 ;;^UTILITY(U,$J,358.3,15833,1,4,0)
 ;;=4^H18.613
 ;;^UTILITY(U,$J,358.3,15833,2)
 ;;=^5005095
 ;;^UTILITY(U,$J,358.3,15834,0)
 ;;=H16.423^^92^945^10
 ;;^UTILITY(U,$J,358.3,15834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15834,1,3,0)
 ;;=3^Pannus (Corneal),Bilateral
 ;;^UTILITY(U,$J,358.3,15834,1,4,0)
 ;;=4^H16.423
 ;;^UTILITY(U,$J,358.3,15834,2)
 ;;=^5004974
 ;;^UTILITY(U,$J,358.3,15835,0)
 ;;=H16.422^^92^945^9
 ;;^UTILITY(U,$J,358.3,15835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15835,1,3,0)
 ;;=3^Pannus (Corneal),Left Eye
 ;;^UTILITY(U,$J,358.3,15835,1,4,0)
 ;;=4^H16.422
 ;;^UTILITY(U,$J,358.3,15835,2)
 ;;=^5004973
 ;;^UTILITY(U,$J,358.3,15836,0)
 ;;=H16.421^^92^945^8
 ;;^UTILITY(U,$J,358.3,15836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15836,1,3,0)
 ;;=3^Pannus (Corneal),Right Eye
 ;;^UTILITY(U,$J,358.3,15836,1,4,0)
 ;;=4^H16.421
 ;;^UTILITY(U,$J,358.3,15836,2)
 ;;=^5004972
 ;;^UTILITY(U,$J,358.3,15837,0)
 ;;=H18.511^^92^945^16
 ;;^UTILITY(U,$J,358.3,15837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15837,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy,Right Eye
 ;;^UTILITY(U,$J,358.3,15837,1,4,0)
 ;;=4^H18.511
 ;;^UTILITY(U,$J,358.3,15837,2)
 ;;=^5159179
 ;;^UTILITY(U,$J,358.3,15838,0)
 ;;=H18.512^^92^945^17
 ;;^UTILITY(U,$J,358.3,15838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15838,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy,Left Eye
 ;;^UTILITY(U,$J,358.3,15838,1,4,0)
 ;;=4^H18.512
 ;;^UTILITY(U,$J,358.3,15838,2)
 ;;=^5159180
 ;;^UTILITY(U,$J,358.3,15839,0)
 ;;=H18.513^^92^945^18
 ;;^UTILITY(U,$J,358.3,15839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15839,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy,Bilateral
 ;;^UTILITY(U,$J,358.3,15839,1,4,0)
 ;;=4^H18.513
 ;;^UTILITY(U,$J,358.3,15839,2)
 ;;=^5159181
 ;;^UTILITY(U,$J,358.3,15840,0)
 ;;=H18.501^^92^945^19
 ;;^UTILITY(U,$J,358.3,15840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15840,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Right Eye
 ;;^UTILITY(U,$J,358.3,15840,1,4,0)
 ;;=4^H18.501
 ;;^UTILITY(U,$J,358.3,15840,2)
 ;;=^5159175
 ;;^UTILITY(U,$J,358.3,15841,0)
 ;;=H18.502^^92^945^20
 ;;^UTILITY(U,$J,358.3,15841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15841,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Left Eye
 ;;^UTILITY(U,$J,358.3,15841,1,4,0)
 ;;=4^H18.502
 ;;^UTILITY(U,$J,358.3,15841,2)
 ;;=^5159176
 ;;^UTILITY(U,$J,358.3,15842,0)
 ;;=H18.503^^92^945^21
 ;;^UTILITY(U,$J,358.3,15842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15842,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Bilateral
 ;;^UTILITY(U,$J,358.3,15842,1,4,0)
 ;;=4^H18.503
 ;;^UTILITY(U,$J,358.3,15842,2)
 ;;=^5159177
 ;;^UTILITY(U,$J,358.3,15843,0)
 ;;=H25.11^^92^946^1
 ;;^UTILITY(U,$J,358.3,15843,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15843,1,3,0)
 ;;=3^Cataract,Nuclear Age-Related,Right Eye
 ;;^UTILITY(U,$J,358.3,15843,1,4,0)
 ;;=4^H25.11
 ;;^UTILITY(U,$J,358.3,15843,2)
 ;;=^5005284
 ;;^UTILITY(U,$J,358.3,15844,0)
 ;;=H25.12^^92^946^2
 ;;^UTILITY(U,$J,358.3,15844,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15844,1,3,0)
 ;;=3^Cataract,Nuclear Age-Related,Left Eye
 ;;^UTILITY(U,$J,358.3,15844,1,4,0)
 ;;=4^H25.12
 ;;^UTILITY(U,$J,358.3,15844,2)
 ;;=^5005285
 ;;^UTILITY(U,$J,358.3,15845,0)
 ;;=H25.13^^92^946^3
 ;;^UTILITY(U,$J,358.3,15845,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15845,1,3,0)
 ;;=3^Cataract,Nuclear Age-Related,Bilateral
 ;;^UTILITY(U,$J,358.3,15845,1,4,0)
 ;;=4^H25.13
 ;;^UTILITY(U,$J,358.3,15845,2)
 ;;=^5005286
 ;;^UTILITY(U,$J,358.3,15846,0)
 ;;=H25.019^^92^946^7
 ;;^UTILITY(U,$J,358.3,15846,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15846,1,3,0)
 ;;=3^Cataract,Cortical,Unspec Eye
 ;;^UTILITY(U,$J,358.3,15846,1,4,0)
 ;;=4^H25.019
 ;;^UTILITY(U,$J,358.3,15846,2)
 ;;=^5005270
 ;;^UTILITY(U,$J,358.3,15847,0)
 ;;=H25.049^^92^946^11
 ;;^UTILITY(U,$J,358.3,15847,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15847,1,3,0)
 ;;=3^Cataract,PSC,Unspec Eye
 ;;^UTILITY(U,$J,358.3,15847,1,4,0)
 ;;=4^H25.049
 ;;^UTILITY(U,$J,358.3,15847,2)
 ;;=^5005278
 ;;^UTILITY(U,$J,358.3,15848,0)
 ;;=H26.109^^92^946^38
 ;;^UTILITY(U,$J,358.3,15848,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15848,1,3,0)
 ;;=3^Cataract,Traumatic,Unspec Eye
 ;;^UTILITY(U,$J,358.3,15848,1,4,0)
 ;;=4^H26.109
 ;;^UTILITY(U,$J,358.3,15848,2)
 ;;=^5133478
 ;;^UTILITY(U,$J,358.3,15849,0)
 ;;=H53.71^^92^946^27
 ;;^UTILITY(U,$J,358.3,15849,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15849,1,3,0)
 ;;=3^Glare Sensitivity
 ;;^UTILITY(U,$J,358.3,15849,1,4,0)
 ;;=4^H53.71
 ;;^UTILITY(U,$J,358.3,15849,2)
 ;;=^5006354
 ;;^UTILITY(U,$J,358.3,15850,0)
 ;;=H52.13^^92^946^15
 ;;^UTILITY(U,$J,358.3,15850,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15850,1,3,0)
 ;;=3^Myopia,Bilateral
 ;;^UTILITY(U,$J,358.3,15850,1,4,0)
 ;;=4^H52.13
 ;;^UTILITY(U,$J,358.3,15850,2)
 ;;=^5006266
 ;;^UTILITY(U,$J,358.3,15851,0)
 ;;=H52.03^^92^946^16
 ;;^UTILITY(U,$J,358.3,15851,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15851,1,3,0)
 ;;=3^Hypermetropia,Bilateral
 ;;^UTILITY(U,$J,358.3,15851,1,4,0)
 ;;=4^H52.03
 ;;^UTILITY(U,$J,358.3,15851,2)
 ;;=^5006262
 ;;^UTILITY(U,$J,358.3,15852,0)
 ;;=H52.203^^92^946^17
 ;;^UTILITY(U,$J,358.3,15852,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15852,1,3,0)
 ;;=3^Astigmatism,Bilateral
 ;;^UTILITY(U,$J,358.3,15852,1,4,0)
 ;;=4^H52.203
 ;;^UTILITY(U,$J,358.3,15852,2)
 ;;=^5006269
 ;;^UTILITY(U,$J,358.3,15853,0)
 ;;=Z98.49^^92^946^20
 ;;^UTILITY(U,$J,358.3,15853,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15853,1,3,0)
 ;;=3^Cataract Extraction Status,Unspec Eye
 ;;^UTILITY(U,$J,358.3,15853,1,4,0)
 ;;=4^Z98.49
 ;;^UTILITY(U,$J,358.3,15853,2)
 ;;=^5063739
 ;;^UTILITY(U,$J,358.3,15854,0)
 ;;=Z96.1^^92^946^21
 ;;^UTILITY(U,$J,358.3,15854,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15854,1,3,0)
 ;;=3^Pseudophakia/Intraocular Lens,Unspec Eye
 ;;^UTILITY(U,$J,358.3,15854,1,4,0)
 ;;=4^Z96.1
 ;;^UTILITY(U,$J,358.3,15854,2)
 ;;=^5063682
 ;;^UTILITY(U,$J,358.3,15855,0)
 ;;=H26.491^^92^946^23
 ;;^UTILITY(U,$J,358.3,15855,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15855,1,3,0)
 ;;=3^PCO/Secondary Cataract,Right Eye
 ;;^UTILITY(U,$J,358.3,15855,1,4,0)
 ;;=4^H26.491
 ;;^UTILITY(U,$J,358.3,15855,2)
 ;;=^5005358
 ;;^UTILITY(U,$J,358.3,15856,0)
 ;;=H26.492^^92^946^24
 ;;^UTILITY(U,$J,358.3,15856,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15856,1,3,0)
 ;;=3^PCO/Secondary Cataract,Left Eye
 ;;^UTILITY(U,$J,358.3,15856,1,4,0)
 ;;=4^H26.492
 ;;^UTILITY(U,$J,358.3,15856,2)
 ;;=^5005359
 ;;^UTILITY(U,$J,358.3,15857,0)
 ;;=H59.031^^92^946^25
 ;;^UTILITY(U,$J,358.3,15857,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15857,1,3,0)
 ;;=3^CME after Cataract Surgery,Right Eye
 ;;^UTILITY(U,$J,358.3,15857,1,4,0)
 ;;=4^H59.031
 ;;^UTILITY(U,$J,358.3,15857,2)
 ;;=^5006393
 ;;^UTILITY(U,$J,358.3,15858,0)
 ;;=H59.032^^92^946^26
 ;;^UTILITY(U,$J,358.3,15858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15858,1,3,0)
 ;;=3^CME after Cataract Surgery,Left Eye
 ;;^UTILITY(U,$J,358.3,15858,1,4,0)
 ;;=4^H59.032
 ;;^UTILITY(U,$J,358.3,15858,2)
 ;;=^5006394
 ;;^UTILITY(U,$J,358.3,15859,0)
 ;;=H20.9^^92^946^28
 ;;^UTILITY(U,$J,358.3,15859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15859,1,3,0)
 ;;=3^Iridocyclitis,Unspec
 ;;^UTILITY(U,$J,358.3,15859,1,4,0)
 ;;=4^H20.9
 ;;^UTILITY(U,$J,358.3,15859,2)
 ;;=^5005170
 ;;^UTILITY(U,$J,358.3,15860,0)
 ;;=H20.21^^92^946^29
 ;;^UTILITY(U,$J,358.3,15860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15860,1,3,0)
 ;;=3^Iridocyclitis,Lens-Induced,Right Eye
 ;;^UTILITY(U,$J,358.3,15860,1,4,0)
 ;;=4^H20.21
 ;;^UTILITY(U,$J,358.3,15860,2)
 ;;=^5005159
 ;;^UTILITY(U,$J,358.3,15861,0)
 ;;=H20.22^^92^946^30
 ;;^UTILITY(U,$J,358.3,15861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15861,1,3,0)
 ;;=3^Iridocyclitis,Lens-Induced,Left Eye
 ;;^UTILITY(U,$J,358.3,15861,1,4,0)
 ;;=4^H20.22
 ;;^UTILITY(U,$J,358.3,15861,2)
 ;;=^5005160
 ;;^UTILITY(U,$J,358.3,15862,0)
 ;;=H21.81^^92^946^31
 ;;^UTILITY(U,$J,358.3,15862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15862,1,3,0)
 ;;=3^Floppy Iris Syndrome
 ;;^UTILITY(U,$J,358.3,15862,1,4,0)
 ;;=4^H21.81