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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI06L 19782 printed Feb 10, 2021@21:07:30 Page 2
IBDEI06L ; ; 01-FEB-2021
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,15794,0)
+2 ;;=H11.151^^92^944^20
+3 ;;^UTILITY(U,$J,358.3,15794,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,15794,1,3,0)
+6 ;;=3^Pinguecula,Right Eye
+7 ;;^UTILITY(U,$J,358.3,15794,1,4,0)
+8 ;;=4^H11.151
+9 ;;^UTILITY(U,$J,358.3,15794,2)
+10 ;;=^5004761
+11 ;;^UTILITY(U,$J,358.3,15795,0)
+12 ;;=H11.152^^92^944^21
+13 ;;^UTILITY(U,$J,358.3,15795,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,15795,1,3,0)
+16 ;;=3^Pinguecula,Left Eye
+17 ;;^UTILITY(U,$J,358.3,15795,1,4,0)
+18 ;;=4^H11.152
+19 ;;^UTILITY(U,$J,358.3,15795,2)
+20 ;;=^5004762
+21 ;;^UTILITY(U,$J,358.3,15796,0)
+22 ;;=D31.01^^92^944^22
+23 ;;^UTILITY(U,$J,358.3,15796,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,15796,1,3,0)
+26 ;;=3^Benign Neop of Conj,Right Eye
+27 ;;^UTILITY(U,$J,358.3,15796,1,4,0)
+28 ;;=4^D31.01
+29 ;;^UTILITY(U,$J,358.3,15796,2)
+30 ;;=^5002112
+31 ;;^UTILITY(U,$J,358.3,15797,0)
+32 ;;=D31.02^^92^944^23
+33 ;;^UTILITY(U,$J,358.3,15797,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,15797,1,3,0)
+36 ;;=3^Benign Neop of Conj,Left Eye
+37 ;;^UTILITY(U,$J,358.3,15797,1,4,0)
+38 ;;=4^D31.02
+39 ;;^UTILITY(U,$J,358.3,15797,2)
+40 ;;=^5002113
+41 ;;^UTILITY(U,$J,358.3,15798,0)
+42 ;;=C69.01^^92^944^24
+43 ;;^UTILITY(U,$J,358.3,15798,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,15798,1,3,0)
+46 ;;=3^Malig Neop of Conj,Right Eye
+47 ;;^UTILITY(U,$J,358.3,15798,1,4,0)
+48 ;;=4^C69.01
+49 ;;^UTILITY(U,$J,358.3,15798,2)
+50 ;;=^5001267
+51 ;;^UTILITY(U,$J,358.3,15799,0)
+52 ;;=C69.02^^92^944^25
+53 ;;^UTILITY(U,$J,358.3,15799,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,15799,1,3,0)
+56 ;;=3^Malig Neop of Conj,Left Eye
+57 ;;^UTILITY(U,$J,358.3,15799,1,4,0)
+58 ;;=4^C69.02
+59 ;;^UTILITY(U,$J,358.3,15799,2)
+60 ;;=^5001268
+61 ;;^UTILITY(U,$J,358.3,15800,0)
+62 ;;=H11.231^^92^944^26
+63 ;;^UTILITY(U,$J,358.3,15800,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,15800,1,3,0)
+66 ;;=3^Symblepharon,Right Eye
+67 ;;^UTILITY(U,$J,358.3,15800,1,4,0)
+68 ;;=4^H11.231
+69 ;;^UTILITY(U,$J,358.3,15800,2)
+70 ;;=^5004773
+71 ;;^UTILITY(U,$J,358.3,15801,0)
+72 ;;=H11.232^^92^944^27
+73 ;;^UTILITY(U,$J,358.3,15801,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,15801,1,3,0)
+76 ;;=3^Symblepharon,Left Eye
+77 ;;^UTILITY(U,$J,358.3,15801,1,4,0)
+78 ;;=4^H11.232
+79 ;;^UTILITY(U,$J,358.3,15801,2)
+80 ;;=^5004774
+81 ;;^UTILITY(U,$J,358.3,15802,0)
+82 ;;=L10.81^^92^944^28
+83 ;;^UTILITY(U,$J,358.3,15802,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,15802,1,3,0)
+86 ;;=3^Paraneoplastic Pemphigus
+87 ;;^UTILITY(U,$J,358.3,15802,1,4,0)
+88 ;;=4^L10.81
+89 ;;^UTILITY(U,$J,358.3,15802,2)
+90 ;;=^5009088
+91 ;;^UTILITY(U,$J,358.3,15803,0)
+92 ;;=L12.9^^92^944^29
+93 ;;^UTILITY(U,$J,358.3,15803,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,15803,1,3,0)
+96 ;;=3^Pemphigoid,Unspec
+97 ;;^UTILITY(U,$J,358.3,15803,1,4,0)
+98 ;;=4^L12.9
+99 ;;^UTILITY(U,$J,358.3,15803,2)
+100 ;;=^5009102
+101 ;;^UTILITY(U,$J,358.3,15804,0)
+102 ;;=H16.011^^92^945^1
+103 ;;^UTILITY(U,$J,358.3,15804,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,15804,1,3,0)
+106 ;;=3^Central Corneal Ulcer,Right Eye
+107 ;;^UTILITY(U,$J,358.3,15804,1,4,0)
+108 ;;=4^H16.011
+109 ;;^UTILITY(U,$J,358.3,15804,2)
+110 ;;=^5004870
+111 ;;^UTILITY(U,$J,358.3,15805,0)
+112 ;;=H16.012^^92^945^2
+113 ;;^UTILITY(U,$J,358.3,15805,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,15805,1,3,0)
+116 ;;=3^Central Corneal Ulcer,Left Eye
+117 ;;^UTILITY(U,$J,358.3,15805,1,4,0)
+118 ;;=4^H16.012
+119 ;;^UTILITY(U,$J,358.3,15805,2)
+120 ;;=^5004871
+121 ;;^UTILITY(U,$J,358.3,15806,0)
+122 ;;=H16.049^^92^945^3
+123 ;;^UTILITY(U,$J,358.3,15806,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,15806,1,3,0)
+126 ;;=3^Marginal Corneal Ulcer,Unspec Eye
+127 ;;^UTILITY(U,$J,358.3,15806,1,4,0)
+128 ;;=4^H16.049
+129 ;;^UTILITY(U,$J,358.3,15806,2)
+130 ;;=^5004885
+131 ;;^UTILITY(U,$J,358.3,15807,0)
+132 ;;=H17.10^^92^945^4
+133 ;;^UTILITY(U,$J,358.3,15807,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,15807,1,3,0)
+136 ;;=3^Central Corneal Opacity,Unspec Eye
+137 ;;^UTILITY(U,$J,358.3,15807,1,4,0)
+138 ;;=4^H17.10
+139 ;;^UTILITY(U,$J,358.3,15807,2)
+140 ;;=^5004990
+141 ;;^UTILITY(U,$J,358.3,15808,0)
+142 ;;=H17.9^^92^945^5
+143 ;;^UTILITY(U,$J,358.3,15808,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,15808,1,3,0)
+146 ;;=3^Corneal Scar & Opacity
+147 ;;^UTILITY(U,$J,358.3,15808,1,4,0)
+148 ;;=4^H17.9
+149 ;;^UTILITY(U,$J,358.3,15808,2)
+150 ;;=^5005003
+151 ;;^UTILITY(U,$J,358.3,15809,0)
+152 ;;=H16.401^^92^945^6
+153 ;;^UTILITY(U,$J,358.3,15809,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,15809,1,3,0)
+156 ;;=3^Corneal Neovascularization,Right Eye
+157 ;;^UTILITY(U,$J,358.3,15809,1,4,0)
+158 ;;=4^H16.401
+159 ;;^UTILITY(U,$J,358.3,15809,2)
+160 ;;=^5004965
+161 ;;^UTILITY(U,$J,358.3,15810,0)
+162 ;;=H16.402^^92^945^7
+163 ;;^UTILITY(U,$J,358.3,15810,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,15810,1,3,0)
+166 ;;=3^Corneal Neovascularization,Left Eye
+167 ;;^UTILITY(U,$J,358.3,15810,1,4,0)
+168 ;;=4^H16.402
+169 ;;^UTILITY(U,$J,358.3,15810,2)
+170 ;;=^5004966
+171 ;;^UTILITY(U,$J,358.3,15811,0)
+172 ;;=H18.20^^92^945^11
+173 ;;^UTILITY(U,$J,358.3,15811,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,15811,1,3,0)
+176 ;;=3^Corneal Edema
+177 ;;^UTILITY(U,$J,358.3,15811,1,4,0)
+178 ;;=4^H18.20
+179 ;;^UTILITY(U,$J,358.3,15811,2)
+180 ;;=^5005035
+181 ;;^UTILITY(U,$J,358.3,15812,0)
+182 ;;=H18.231^^92^945^12
+183 ;;^UTILITY(U,$J,358.3,15812,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,15812,1,3,0)
+186 ;;=3^Corneal Edema,Right Eye,Secondary
+187 ;;^UTILITY(U,$J,358.3,15812,1,4,0)
+188 ;;=4^H18.231
+189 ;;^UTILITY(U,$J,358.3,15812,2)
+190 ;;=^5005044
+191 ;;^UTILITY(U,$J,358.3,15813,0)
+192 ;;=H18.232^^92^945^13
+193 ;;^UTILITY(U,$J,358.3,15813,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,15813,1,3,0)
+196 ;;=3^Corneal Edema,Left Eye,Secondary
+197 ;;^UTILITY(U,$J,358.3,15813,1,4,0)
+198 ;;=4^H18.232
+199 ;;^UTILITY(U,$J,358.3,15813,2)
+200 ;;=^5005045
+201 ;;^UTILITY(U,$J,358.3,15814,0)
+202 ;;=H18.11^^92^945^14
+203 ;;^UTILITY(U,$J,358.3,15814,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,15814,1,3,0)
+206 ;;=3^Bullous Keratopathy,Right Eye
+207 ;;^UTILITY(U,$J,358.3,15814,1,4,0)
+208 ;;=4^H18.11
+209 ;;^UTILITY(U,$J,358.3,15814,2)
+210 ;;=^5005032
+211 ;;^UTILITY(U,$J,358.3,15815,0)
+212 ;;=H18.12^^92^945^15
+213 ;;^UTILITY(U,$J,358.3,15815,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,15815,1,3,0)
+216 ;;=3^Bullous Keratopathy,Left Eye
+217 ;;^UTILITY(U,$J,358.3,15815,1,4,0)
+218 ;;=4^H18.12
+219 ;;^UTILITY(U,$J,358.3,15815,2)
+220 ;;=^5005033
+221 ;;^UTILITY(U,$J,358.3,15816,0)
+222 ;;=H18.601^^92^945^22
+223 ;;^UTILITY(U,$J,358.3,15816,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,15816,1,3,0)
+226 ;;=3^Keratoconus,Right Eye
+227 ;;^UTILITY(U,$J,358.3,15816,1,4,0)
+228 ;;=4^H18.601
+229 ;;^UTILITY(U,$J,358.3,15816,2)
+230 ;;=^5005089
+231 ;;^UTILITY(U,$J,358.3,15817,0)
+232 ;;=H18.602^^92^945^23
+233 ;;^UTILITY(U,$J,358.3,15817,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,15817,1,3,0)
+236 ;;=3^Keratoconus,Left Eye
+237 ;;^UTILITY(U,$J,358.3,15817,1,4,0)
+238 ;;=4^H18.602
+239 ;;^UTILITY(U,$J,358.3,15817,2)
+240 ;;=^5005090
+241 ;;^UTILITY(U,$J,358.3,15818,0)
+242 ;;=H18.423^^92^945^26
+243 ;;^UTILITY(U,$J,358.3,15818,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,15818,1,3,0)
+246 ;;=3^Band Keratopathy,Bilateral
+247 ;;^UTILITY(U,$J,358.3,15818,1,4,0)
+248 ;;=4^H18.423
+249 ;;^UTILITY(U,$J,358.3,15818,2)
+250 ;;=^5005068
+251 ;;^UTILITY(U,$J,358.3,15819,0)
+252 ;;=H16.213^^92^945^27
+253 ;;^UTILITY(U,$J,358.3,15819,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,15819,1,3,0)
+256 ;;=3^Exposure Keratoconjunctivitis,Bilateral
+257 ;;^UTILITY(U,$J,358.3,15819,1,4,0)
+258 ;;=4^H16.213
+259 ;;^UTILITY(U,$J,358.3,15819,2)
+260 ;;=^5004922
+261 ;;^UTILITY(U,$J,358.3,15820,0)
+262 ;;=H18.833^^92^945^30
+263 ;;^UTILITY(U,$J,358.3,15820,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,15820,1,3,0)
+266 ;;=3^Recurrent Erosion of Cornea,Bilateral
+267 ;;^UTILITY(U,$J,358.3,15820,1,4,0)
+268 ;;=4^H18.833
+269 ;;^UTILITY(U,$J,358.3,15820,2)
+270 ;;=^5005128
+271 ;;^UTILITY(U,$J,358.3,15821,0)
+272 ;;=B00.51^^92^945^31
+273 ;;^UTILITY(U,$J,358.3,15821,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,15821,1,3,0)
+276 ;;=3^Herpesviral Iridocyclitis
+277 ;;^UTILITY(U,$J,358.3,15821,1,4,0)
+278 ;;=4^B00.51
+279 ;;^UTILITY(U,$J,358.3,15821,2)
+280 ;;=^5000473
+281 ;;^UTILITY(U,$J,358.3,15822,0)
+282 ;;=B00.52^^92^945^32
+283 ;;^UTILITY(U,$J,358.3,15822,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,15822,1,3,0)
+286 ;;=3^Herpesviral Keratitis
+287 ;;^UTILITY(U,$J,358.3,15822,1,4,0)
+288 ;;=4^B00.52
+289 ;;^UTILITY(U,$J,358.3,15822,2)
+290 ;;=^5000474
+291 ;;^UTILITY(U,$J,358.3,15823,0)
+292 ;;=B00.59^^92^945^33
+293 ;;^UTILITY(U,$J,358.3,15823,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,15823,1,3,0)
+296 ;;=3^Herpes Viral Eye Disease
+297 ;;^UTILITY(U,$J,358.3,15823,1,4,0)
+298 ;;=4^B00.59
+299 ;;^UTILITY(U,$J,358.3,15823,2)
+300 ;;=^5000476
+301 ;;^UTILITY(U,$J,358.3,15824,0)
+302 ;;=B02.39^^92^945^34
+303 ;;^UTILITY(U,$J,358.3,15824,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,15824,1,3,0)
+306 ;;=3^Herpes Zoster Eye Disease
+307 ;;^UTILITY(U,$J,358.3,15824,1,4,0)
+308 ;;=4^B02.39
+309 ;;^UTILITY(U,$J,358.3,15824,2)
+310 ;;=^5000498
+311 ;;^UTILITY(U,$J,358.3,15825,0)
+312 ;;=H16.309^^92^945^35
+313 ;;^UTILITY(U,$J,358.3,15825,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,15825,1,3,0)
+316 ;;=3^Interstitial Keratitis,Unspec Eye
+317 ;;^UTILITY(U,$J,358.3,15825,1,4,0)
+318 ;;=4^H16.309
+319 ;;^UTILITY(U,$J,358.3,15825,2)
+320 ;;=^5133472
+321 ;;^UTILITY(U,$J,358.3,15826,0)
+322 ;;=S05.01XA^^92^945^36
+323 ;;^UTILITY(U,$J,358.3,15826,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,15826,1,3,0)
+326 ;;=3^Corneal Abrasion w/o FB,Right Eye,Init Enctr
+327 ;;^UTILITY(U,$J,358.3,15826,1,4,0)
+328 ;;=4^S05.01XA
+329 ;;^UTILITY(U,$J,358.3,15826,2)
+330 ;;=^5020579
+331 ;;^UTILITY(U,$J,358.3,15827,0)
+332 ;;=S05.02XA^^92^945^37
+333 ;;^UTILITY(U,$J,358.3,15827,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,15827,1,3,0)
+336 ;;=3^Corneal Abrasion w/o FB,Left Eye,Init Enctr
+337 ;;^UTILITY(U,$J,358.3,15827,1,4,0)
+338 ;;=4^S05.02XA
+339 ;;^UTILITY(U,$J,358.3,15827,2)
+340 ;;=^5020582
+341 ;;^UTILITY(U,$J,358.3,15828,0)
+342 ;;=T15.01XA^^92^945^38
+343 ;;^UTILITY(U,$J,358.3,15828,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,15828,1,3,0)
+346 ;;=3^Corneal FB,Right Eye,Init Enctr
+347 ;;^UTILITY(U,$J,358.3,15828,1,4,0)
+348 ;;=4^T15.01XA
+349 ;;^UTILITY(U,$J,358.3,15828,2)
+350 ;;=^5046384
+351 ;;^UTILITY(U,$J,358.3,15829,0)
+352 ;;=T15.02XA^^92^945^39
+353 ;;^UTILITY(U,$J,358.3,15829,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,15829,1,3,0)
+356 ;;=3^Corneal FB,Left Eye,Init Enctr
+357 ;;^UTILITY(U,$J,358.3,15829,1,4,0)
+358 ;;=4^T15.02XA
+359 ;;^UTILITY(U,$J,358.3,15829,2)
+360 ;;=^5046387
+361 ;;^UTILITY(U,$J,358.3,15830,0)
+362 ;;=H18.832^^92^945^29
+363 ;;^UTILITY(U,$J,358.3,15830,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,15830,1,3,0)
+366 ;;=3^Recurrent Erosion of Cornea,Left Eye
+367 ;;^UTILITY(U,$J,358.3,15830,1,4,0)
+368 ;;=4^H18.832
+369 ;;^UTILITY(U,$J,358.3,15830,2)
+370 ;;=^5005127
+371 ;;^UTILITY(U,$J,358.3,15831,0)
+372 ;;=H18.831^^92^945^28
+373 ;;^UTILITY(U,$J,358.3,15831,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,15831,1,3,0)
+376 ;;=3^Recurrent Erosion of Cornea,Right Eye
+377 ;;^UTILITY(U,$J,358.3,15831,1,4,0)
+378 ;;=4^H18.831
+379 ;;^UTILITY(U,$J,358.3,15831,2)
+380 ;;=^5005126
+381 ;;^UTILITY(U,$J,358.3,15832,0)
+382 ;;=H18.623^^92^945^25
+383 ;;^UTILITY(U,$J,358.3,15832,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,15832,1,3,0)
+386 ;;=3^Keratoconus,Unstable,Bilateral
+387 ;;^UTILITY(U,$J,358.3,15832,1,4,0)
+388 ;;=4^H18.623
+389 ;;^UTILITY(U,$J,358.3,15832,2)
+390 ;;=^5005099
+391 ;;^UTILITY(U,$J,358.3,15833,0)
+392 ;;=H18.613^^92^945^24
+393 ;;^UTILITY(U,$J,358.3,15833,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,15833,1,3,0)
+396 ;;=3^Keratoconus,Stable,Bilateral
+397 ;;^UTILITY(U,$J,358.3,15833,1,4,0)
+398 ;;=4^H18.613
+399 ;;^UTILITY(U,$J,358.3,15833,2)
+400 ;;=^5005095
+401 ;;^UTILITY(U,$J,358.3,15834,0)
+402 ;;=H16.423^^92^945^10
+403 ;;^UTILITY(U,$J,358.3,15834,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,15834,1,3,0)
+406 ;;=3^Pannus (Corneal),Bilateral
+407 ;;^UTILITY(U,$J,358.3,15834,1,4,0)
+408 ;;=4^H16.423
+409 ;;^UTILITY(U,$J,358.3,15834,2)
+410 ;;=^5004974
+411 ;;^UTILITY(U,$J,358.3,15835,0)
+412 ;;=H16.422^^92^945^9
+413 ;;^UTILITY(U,$J,358.3,15835,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,15835,1,3,0)
+416 ;;=3^Pannus (Corneal),Left Eye
+417 ;;^UTILITY(U,$J,358.3,15835,1,4,0)
+418 ;;=4^H16.422
+419 ;;^UTILITY(U,$J,358.3,15835,2)
+420 ;;=^5004973
+421 ;;^UTILITY(U,$J,358.3,15836,0)
+422 ;;=H16.421^^92^945^8
+423 ;;^UTILITY(U,$J,358.3,15836,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,15836,1,3,0)
+426 ;;=3^Pannus (Corneal),Right Eye
+427 ;;^UTILITY(U,$J,358.3,15836,1,4,0)
+428 ;;=4^H16.421
+429 ;;^UTILITY(U,$J,358.3,15836,2)
+430 ;;=^5004972
+431 ;;^UTILITY(U,$J,358.3,15837,0)
+432 ;;=H18.511^^92^945^16
+433 ;;^UTILITY(U,$J,358.3,15837,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,15837,1,3,0)
+436 ;;=3^Endothelial Corneal Dystrophy,Right Eye
+437 ;;^UTILITY(U,$J,358.3,15837,1,4,0)
+438 ;;=4^H18.511
+439 ;;^UTILITY(U,$J,358.3,15837,2)
+440 ;;=^5159179
+441 ;;^UTILITY(U,$J,358.3,15838,0)
+442 ;;=H18.512^^92^945^17
+443 ;;^UTILITY(U,$J,358.3,15838,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,15838,1,3,0)
+446 ;;=3^Endothelial Corneal Dystrophy,Left Eye
+447 ;;^UTILITY(U,$J,358.3,15838,1,4,0)
+448 ;;=4^H18.512
+449 ;;^UTILITY(U,$J,358.3,15838,2)
+450 ;;=^5159180
+451 ;;^UTILITY(U,$J,358.3,15839,0)
+452 ;;=H18.513^^92^945^18
+453 ;;^UTILITY(U,$J,358.3,15839,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,15839,1,3,0)
+456 ;;=3^Endothelial Corneal Dystrophy,Bilateral
+457 ;;^UTILITY(U,$J,358.3,15839,1,4,0)
+458 ;;=4^H18.513
+459 ;;^UTILITY(U,$J,358.3,15839,2)
+460 ;;=^5159181
+461 ;;^UTILITY(U,$J,358.3,15840,0)
+462 ;;=H18.501^^92^945^19
+463 ;;^UTILITY(U,$J,358.3,15840,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,15840,1,3,0)
+466 ;;=3^Hereditary Corneal Dystrophies,Right Eye
+467 ;;^UTILITY(U,$J,358.3,15840,1,4,0)
+468 ;;=4^H18.501
+469 ;;^UTILITY(U,$J,358.3,15840,2)
+470 ;;=^5159175
+471 ;;^UTILITY(U,$J,358.3,15841,0)
+472 ;;=H18.502^^92^945^20
+473 ;;^UTILITY(U,$J,358.3,15841,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,15841,1,3,0)
+476 ;;=3^Hereditary Corneal Dystrophies,Left Eye
+477 ;;^UTILITY(U,$J,358.3,15841,1,4,0)
+478 ;;=4^H18.502
+479 ;;^UTILITY(U,$J,358.3,15841,2)
+480 ;;=^5159176
+481 ;;^UTILITY(U,$J,358.3,15842,0)
+482 ;;=H18.503^^92^945^21
+483 ;;^UTILITY(U,$J,358.3,15842,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,15842,1,3,0)
+486 ;;=3^Hereditary Corneal Dystrophies,Bilateral
+487 ;;^UTILITY(U,$J,358.3,15842,1,4,0)
+488 ;;=4^H18.503
+489 ;;^UTILITY(U,$J,358.3,15842,2)
+490 ;;=^5159177
+491 ;;^UTILITY(U,$J,358.3,15843,0)
+492 ;;=H25.11^^92^946^1
+493 ;;^UTILITY(U,$J,358.3,15843,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,15843,1,3,0)
+496 ;;=3^Cataract,Nuclear Age-Related,Right Eye
+497 ;;^UTILITY(U,$J,358.3,15843,1,4,0)
+498 ;;=4^H25.11
+499 ;;^UTILITY(U,$J,358.3,15843,2)
+500 ;;=^5005284
+501 ;;^UTILITY(U,$J,358.3,15844,0)
+502 ;;=H25.12^^92^946^2
+503 ;;^UTILITY(U,$J,358.3,15844,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,15844,1,3,0)
+506 ;;=3^Cataract,Nuclear Age-Related,Left Eye
+507 ;;^UTILITY(U,$J,358.3,15844,1,4,0)
+508 ;;=4^H25.12
+509 ;;^UTILITY(U,$J,358.3,15844,2)
+510 ;;=^5005285
+511 ;;^UTILITY(U,$J,358.3,15845,0)
+512 ;;=H25.13^^92^946^3
+513 ;;^UTILITY(U,$J,358.3,15845,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,15845,1,3,0)
+516 ;;=3^Cataract,Nuclear Age-Related,Bilateral
+517 ;;^UTILITY(U,$J,358.3,15845,1,4,0)
+518 ;;=4^H25.13
+519 ;;^UTILITY(U,$J,358.3,15845,2)
+520 ;;=^5005286
+521 ;;^UTILITY(U,$J,358.3,15846,0)
+522 ;;=H25.019^^92^946^7
+523 ;;^UTILITY(U,$J,358.3,15846,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,15846,1,3,0)
+526 ;;=3^Cataract,Cortical,Unspec Eye
+527 ;;^UTILITY(U,$J,358.3,15846,1,4,0)
+528 ;;=4^H25.019
+529 ;;^UTILITY(U,$J,358.3,15846,2)
+530 ;;=^5005270
+531 ;;^UTILITY(U,$J,358.3,15847,0)
+532 ;;=H25.049^^92^946^11
+533 ;;^UTILITY(U,$J,358.3,15847,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,15847,1,3,0)
+536 ;;=3^Cataract,PSC,Unspec Eye
+537 ;;^UTILITY(U,$J,358.3,15847,1,4,0)
+538 ;;=4^H25.049
+539 ;;^UTILITY(U,$J,358.3,15847,2)
+540 ;;=^5005278
+541 ;;^UTILITY(U,$J,358.3,15848,0)
+542 ;;=H26.109^^92^946^38
+543 ;;^UTILITY(U,$J,358.3,15848,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,15848,1,3,0)
+546 ;;=3^Cataract,Traumatic,Unspec Eye
+547 ;;^UTILITY(U,$J,358.3,15848,1,4,0)
+548 ;;=4^H26.109
+549 ;;^UTILITY(U,$J,358.3,15848,2)
+550 ;;=^5133478
+551 ;;^UTILITY(U,$J,358.3,15849,0)
+552 ;;=H53.71^^92^946^27
+553 ;;^UTILITY(U,$J,358.3,15849,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,15849,1,3,0)
+556 ;;=3^Glare Sensitivity
+557 ;;^UTILITY(U,$J,358.3,15849,1,4,0)
+558 ;;=4^H53.71
+559 ;;^UTILITY(U,$J,358.3,15849,2)
+560 ;;=^5006354
+561 ;;^UTILITY(U,$J,358.3,15850,0)
+562 ;;=H52.13^^92^946^15
+563 ;;^UTILITY(U,$J,358.3,15850,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,15850,1,3,0)
+566 ;;=3^Myopia,Bilateral
+567 ;;^UTILITY(U,$J,358.3,15850,1,4,0)
+568 ;;=4^H52.13
+569 ;;^UTILITY(U,$J,358.3,15850,2)
+570 ;;=^5006266
+571 ;;^UTILITY(U,$J,358.3,15851,0)
+572 ;;=H52.03^^92^946^16
+573 ;;^UTILITY(U,$J,358.3,15851,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,15851,1,3,0)
+576 ;;=3^Hypermetropia,Bilateral
+577 ;;^UTILITY(U,$J,358.3,15851,1,4,0)
+578 ;;=4^H52.03
+579 ;;^UTILITY(U,$J,358.3,15851,2)
+580 ;;=^5006262
+581 ;;^UTILITY(U,$J,358.3,15852,0)
+582 ;;=H52.203^^92^946^17
+583 ;;^UTILITY(U,$J,358.3,15852,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,15852,1,3,0)
+586 ;;=3^Astigmatism,Bilateral
+587 ;;^UTILITY(U,$J,358.3,15852,1,4,0)
+588 ;;=4^H52.203
+589 ;;^UTILITY(U,$J,358.3,15852,2)
+590 ;;=^5006269
+591 ;;^UTILITY(U,$J,358.3,15853,0)
+592 ;;=Z98.49^^92^946^20
+593 ;;^UTILITY(U,$J,358.3,15853,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,15853,1,3,0)
+596 ;;=3^Cataract Extraction Status,Unspec Eye
+597 ;;^UTILITY(U,$J,358.3,15853,1,4,0)
+598 ;;=4^Z98.49
+599 ;;^UTILITY(U,$J,358.3,15853,2)
+600 ;;=^5063739
+601 ;;^UTILITY(U,$J,358.3,15854,0)
+602 ;;=Z96.1^^92^946^21
+603 ;;^UTILITY(U,$J,358.3,15854,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,15854,1,3,0)
+606 ;;=3^Pseudophakia/Intraocular Lens,Unspec Eye
+607 ;;^UTILITY(U,$J,358.3,15854,1,4,0)
+608 ;;=4^Z96.1
+609 ;;^UTILITY(U,$J,358.3,15854,2)
+610 ;;=^5063682
+611 ;;^UTILITY(U,$J,358.3,15855,0)
+612 ;;=H26.491^^92^946^23
+613 ;;^UTILITY(U,$J,358.3,15855,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,15855,1,3,0)
+616 ;;=3^PCO/Secondary Cataract,Right Eye
+617 ;;^UTILITY(U,$J,358.3,15855,1,4,0)
+618 ;;=4^H26.491
+619 ;;^UTILITY(U,$J,358.3,15855,2)
+620 ;;=^5005358
+621 ;;^UTILITY(U,$J,358.3,15856,0)
+622 ;;=H26.492^^92^946^24
+623 ;;^UTILITY(U,$J,358.3,15856,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,15856,1,3,0)
+626 ;;=3^PCO/Secondary Cataract,Left Eye
+627 ;;^UTILITY(U,$J,358.3,15856,1,4,0)
+628 ;;=4^H26.492
+629 ;;^UTILITY(U,$J,358.3,15856,2)
+630 ;;=^5005359
+631 ;;^UTILITY(U,$J,358.3,15857,0)
+632 ;;=H59.031^^92^946^25
+633 ;;^UTILITY(U,$J,358.3,15857,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,15857,1,3,0)
+636 ;;=3^CME after Cataract Surgery,Right Eye
+637 ;;^UTILITY(U,$J,358.3,15857,1,4,0)
+638 ;;=4^H59.031
+639 ;;^UTILITY(U,$J,358.3,15857,2)
+640 ;;=^5006393
+641 ;;^UTILITY(U,$J,358.3,15858,0)
+642 ;;=H59.032^^92^946^26
+643 ;;^UTILITY(U,$J,358.3,15858,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,15858,1,3,0)
+646 ;;=3^CME after Cataract Surgery,Left Eye
+647 ;;^UTILITY(U,$J,358.3,15858,1,4,0)
+648 ;;=4^H59.032
+649 ;;^UTILITY(U,$J,358.3,15858,2)
+650 ;;=^5006394
+651 ;;^UTILITY(U,$J,358.3,15859,0)
+652 ;;=H20.9^^92^946^28
+653 ;;^UTILITY(U,$J,358.3,15859,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,15859,1,3,0)
+656 ;;=3^Iridocyclitis,Unspec
+657 ;;^UTILITY(U,$J,358.3,15859,1,4,0)
+658 ;;=4^H20.9
+659 ;;^UTILITY(U,$J,358.3,15859,2)
+660 ;;=^5005170
+661 ;;^UTILITY(U,$J,358.3,15860,0)
+662 ;;=H20.21^^92^946^29
+663 ;;^UTILITY(U,$J,358.3,15860,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,15860,1,3,0)
+666 ;;=3^Iridocyclitis,Lens-Induced,Right Eye
+667 ;;^UTILITY(U,$J,358.3,15860,1,4,0)
+668 ;;=4^H20.21
+669 ;;^UTILITY(U,$J,358.3,15860,2)
+670 ;;=^5005159
+671 ;;^UTILITY(U,$J,358.3,15861,0)
+672 ;;=H20.22^^92^946^30
+673 ;;^UTILITY(U,$J,358.3,15861,1,0)
+674 ;;=^358.31IA^4^2
+675 ;;^UTILITY(U,$J,358.3,15861,1,3,0)
+676 ;;=3^Iridocyclitis,Lens-Induced,Left Eye
+677 ;;^UTILITY(U,$J,358.3,15861,1,4,0)
+678 ;;=4^H20.22
+679 ;;^UTILITY(U,$J,358.3,15861,2)
+680 ;;=^5005160
+681 ;;^UTILITY(U,$J,358.3,15862,0)
+682 ;;=H21.81^^92^946^31
+683 ;;^UTILITY(U,$J,358.3,15862,1,0)
+684 ;;=^358.31IA^4^2
+685 ;;^UTILITY(U,$J,358.3,15862,1,3,0)
+686 ;;=3^Floppy Iris Syndrome
+687 ;;^UTILITY(U,$J,358.3,15862,1,4,0)
+688 ;;=4^H21.81
