IBDEI0AM ; ; 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,26003,1,4,0)
;;=4^H02.889
;;^UTILITY(U,$J,358.3,26003,2)
;;=^5157349
;;^UTILITY(U,$J,358.3,26004,0)
;;=H43.813^^81^1041^48
;;^UTILITY(U,$J,358.3,26004,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26004,1,3,0)
;;=3^Vitreous Degeneration,Bilateral
;;^UTILITY(U,$J,358.3,26004,1,4,0)
;;=4^H43.813
;;^UTILITY(U,$J,358.3,26004,2)
;;=^5005955
;;^UTILITY(U,$J,358.3,26005,0)
;;=H26.491^^81^1041^40
;;^UTILITY(U,$J,358.3,26005,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26005,1,3,0)
;;=3^PCO/Secondary Cataract,Right Eye
;;^UTILITY(U,$J,358.3,26005,1,4,0)
;;=4^H26.491
;;^UTILITY(U,$J,358.3,26005,2)
;;=^5005358
;;^UTILITY(U,$J,358.3,26006,0)
;;=H26.492^^81^1041^39
;;^UTILITY(U,$J,358.3,26006,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26006,1,3,0)
;;=3^PCO/Secondary Cataract,Left Eye
;;^UTILITY(U,$J,358.3,26006,1,4,0)
;;=4^H26.492
;;^UTILITY(U,$J,358.3,26006,2)
;;=^5005359
;;^UTILITY(U,$J,358.3,26007,0)
;;=D31.31^^81^1041^4
;;^UTILITY(U,$J,358.3,26007,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26007,1,3,0)
;;=3^Benign Neop/Nevus Choroid,Right Eye
;;^UTILITY(U,$J,358.3,26007,1,4,0)
;;=4^D31.31
;;^UTILITY(U,$J,358.3,26007,2)
;;=^5002121
;;^UTILITY(U,$J,358.3,26008,0)
;;=D31.32^^81^1041^3
;;^UTILITY(U,$J,358.3,26008,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26008,1,3,0)
;;=3^Benign Neop/Nevus Choroid,Left Eye
;;^UTILITY(U,$J,358.3,26008,1,4,0)
;;=4^D31.32
;;^UTILITY(U,$J,358.3,26008,2)
;;=^5002122
;;^UTILITY(U,$J,358.3,26009,0)
;;=H40.1131^^81^1041^42
;;^UTILITY(U,$J,358.3,26009,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26009,1,3,0)
;;=3^Primary Open-Angle Glaucoma,Mild Stage,Bilateral
;;^UTILITY(U,$J,358.3,26009,1,4,0)
;;=4^H40.1131
;;^UTILITY(U,$J,358.3,26009,2)
;;=^5138547
;;^UTILITY(U,$J,358.3,26010,0)
;;=H40.1132^^81^1041^43
;;^UTILITY(U,$J,358.3,26010,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26010,1,3,0)
;;=3^Primary Open-Angle Glaucoma,Moderate Stage,Bilateral
;;^UTILITY(U,$J,358.3,26010,1,4,0)
;;=4^H40.1132
;;^UTILITY(U,$J,358.3,26010,2)
;;=^5138548
;;^UTILITY(U,$J,358.3,26011,0)
;;=H40.013^^81^1041^28
;;^UTILITY(U,$J,358.3,26011,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26011,1,3,0)
;;=3^Glaucoma Suspect,Low Risk,Bilateral,Open Angle
;;^UTILITY(U,$J,358.3,26011,1,4,0)
;;=4^H40.013
;;^UTILITY(U,$J,358.3,26011,2)
;;=^5005726
;;^UTILITY(U,$J,358.3,26012,0)
;;=H40.1133^^81^1041^44
;;^UTILITY(U,$J,358.3,26012,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26012,1,3,0)
;;=3^Primary Open-Angle Gluacoma,Severe Stage,Bilateral
;;^UTILITY(U,$J,358.3,26012,1,4,0)
;;=4^H40.1133
;;^UTILITY(U,$J,358.3,26012,2)
;;=^5138549
;;^UTILITY(U,$J,358.3,26013,0)
;;=H43.811^^81^1041^47
;;^UTILITY(U,$J,358.3,26013,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26013,1,3,0)
;;=3^Vitreous Degeneration,Right Eye
;;^UTILITY(U,$J,358.3,26013,1,4,0)
;;=4^H43.811
;;^UTILITY(U,$J,358.3,26013,2)
;;=^5005953
;;^UTILITY(U,$J,358.3,26014,0)
;;=H43.812^^81^1041^46
;;^UTILITY(U,$J,358.3,26014,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26014,1,3,0)
;;=3^Vitreous Degeneration,Left Eye
;;^UTILITY(U,$J,358.3,26014,1,4,0)
;;=4^H43.812
;;^UTILITY(U,$J,358.3,26014,2)
;;=^5005954
;;^UTILITY(U,$J,358.3,26015,0)
;;=H10.31^^81^1042^1
;;^UTILITY(U,$J,358.3,26015,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26015,1,3,0)
;;=3^Conjunctivitis,Acute,Right Eye
;;^UTILITY(U,$J,358.3,26015,1,4,0)
;;=4^H10.31
;;^UTILITY(U,$J,358.3,26015,2)
;;=^5133458
;;^UTILITY(U,$J,358.3,26016,0)
;;=H10.32^^81^1042^2
;;^UTILITY(U,$J,358.3,26016,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26016,1,3,0)
;;=3^Conjunctivitis,Acute,Left Eye
;;^UTILITY(U,$J,358.3,26016,1,4,0)
;;=4^H10.32
;;^UTILITY(U,$J,358.3,26016,2)
;;=^5133459
;;^UTILITY(U,$J,358.3,26017,0)
;;=H10.401^^81^1042^3
;;^UTILITY(U,$J,358.3,26017,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26017,1,3,0)
;;=3^Conjunctivitis,Chronic,Right Eye
;;^UTILITY(U,$J,358.3,26017,1,4,0)
;;=4^H10.401
;;^UTILITY(U,$J,358.3,26017,2)
;;=^5004681
;;^UTILITY(U,$J,358.3,26018,0)
;;=H10.402^^81^1042^4
;;^UTILITY(U,$J,358.3,26018,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26018,1,3,0)
;;=3^Conjunctivitis,Chronic,Left Eye
;;^UTILITY(U,$J,358.3,26018,1,4,0)
;;=4^H10.402
;;^UTILITY(U,$J,358.3,26018,2)
;;=^5004682
;;^UTILITY(U,$J,358.3,26019,0)
;;=H10.403^^81^1042^5
;;^UTILITY(U,$J,358.3,26019,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26019,1,3,0)
;;=3^Conjunctivitis,Chronic,Bilateral
;;^UTILITY(U,$J,358.3,26019,1,4,0)
;;=4^H10.403
;;^UTILITY(U,$J,358.3,26019,2)
;;=^5004683
;;^UTILITY(U,$J,358.3,26020,0)
;;=H10.45^^81^1042^6
;;^UTILITY(U,$J,358.3,26020,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26020,1,3,0)
;;=3^Conjunctivitis,Allergic,Chronic
;;^UTILITY(U,$J,358.3,26020,1,4,0)
;;=4^H10.45
;;^UTILITY(U,$J,358.3,26020,2)
;;=^87396
;;^UTILITY(U,$J,358.3,26021,0)
;;=B30.8^^81^1042^7
;;^UTILITY(U,$J,358.3,26021,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26021,1,3,0)
;;=3^Conjunctivitis,Viral
;;^UTILITY(U,$J,358.3,26021,1,4,0)
;;=4^B30.8
;;^UTILITY(U,$J,358.3,26021,2)
;;=^88239
;;^UTILITY(U,$J,358.3,26022,0)
;;=H10.13^^81^1042^8
;;^UTILITY(U,$J,358.3,26022,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26022,1,3,0)
;;=3^Conjunctivitis,Atopic,Bilateral
;;^UTILITY(U,$J,358.3,26022,1,4,0)
;;=4^H10.13
;;^UTILITY(U,$J,358.3,26022,2)
;;=^5004667
;;^UTILITY(U,$J,358.3,26023,0)
;;=H10.419^^81^1042^9
;;^UTILITY(U,$J,358.3,26023,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26023,1,3,0)
;;=3^Giant Papillary Conjunctivitis,Chronic
;;^UTILITY(U,$J,358.3,26023,1,4,0)
;;=4^H10.419
;;^UTILITY(U,$J,358.3,26023,2)
;;=^5004687
;;^UTILITY(U,$J,358.3,26024,0)
;;=H10.219^^81^1042^10
;;^UTILITY(U,$J,358.3,26024,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26024,1,3,0)
;;=3^Toxic Conjunctivitis,Acute
;;^UTILITY(U,$J,358.3,26024,1,4,0)
;;=4^H10.219
;;^UTILITY(U,$J,358.3,26024,2)
;;=^5004671
;;^UTILITY(U,$J,358.3,26025,0)
;;=M35.01^^81^1042^11
;;^UTILITY(U,$J,358.3,26025,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26025,1,3,0)
;;=3^Keratoconjunctivitis w/ Sicca Syndrome
;;^UTILITY(U,$J,358.3,26025,1,4,0)
;;=4^M35.01
;;^UTILITY(U,$J,358.3,26025,2)
;;=^5011787
;;^UTILITY(U,$J,358.3,26026,0)
;;=H11.31^^81^1042^12
;;^UTILITY(U,$J,358.3,26026,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26026,1,3,0)
;;=3^Conjunctival Hemorrhage,Right Eye
;;^UTILITY(U,$J,358.3,26026,1,4,0)
;;=4^H11.31
;;^UTILITY(U,$J,358.3,26026,2)
;;=^5004782
;;^UTILITY(U,$J,358.3,26027,0)
;;=H11.32^^81^1042^13
;;^UTILITY(U,$J,358.3,26027,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26027,1,3,0)
;;=3^Conjunctival Hemorrhage,Left Eye
;;^UTILITY(U,$J,358.3,26027,1,4,0)
;;=4^H11.32
;;^UTILITY(U,$J,358.3,26027,2)
;;=^5004783
;;^UTILITY(U,$J,358.3,26028,0)
;;=H15.101^^81^1042^14
;;^UTILITY(U,$J,358.3,26028,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26028,1,3,0)
;;=3^Episcleritis,Right Eye
;;^UTILITY(U,$J,358.3,26028,1,4,0)
;;=4^H15.101
;;^UTILITY(U,$J,358.3,26028,2)
;;=^5004835
;;^UTILITY(U,$J,358.3,26029,0)
;;=H15.102^^81^1042^15
;;^UTILITY(U,$J,358.3,26029,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26029,1,3,0)
;;=3^Episcleritis,Left Eye
;;^UTILITY(U,$J,358.3,26029,1,4,0)
;;=4^H15.102
;;^UTILITY(U,$J,358.3,26029,2)
;;=^5004836
;;^UTILITY(U,$J,358.3,26030,0)
;;=H15.001^^81^1042^16
;;^UTILITY(U,$J,358.3,26030,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26030,1,3,0)
;;=3^Scleritis,Right Eye
;;^UTILITY(U,$J,358.3,26030,1,4,0)
;;=4^H15.001
;;^UTILITY(U,$J,358.3,26030,2)
;;=^5004810
;;^UTILITY(U,$J,358.3,26031,0)
;;=H15.002^^81^1042^17
;;^UTILITY(U,$J,358.3,26031,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26031,1,3,0)
;;=3^Scleritis,Left Eye
;;^UTILITY(U,$J,358.3,26031,1,4,0)
;;=4^H15.002
;;^UTILITY(U,$J,358.3,26031,2)
;;=^5004811
;;^UTILITY(U,$J,358.3,26032,0)
;;=H11.001^^81^1042^18
;;^UTILITY(U,$J,358.3,26032,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26032,1,3,0)
;;=3^Pterygium,Right Eye
;;^UTILITY(U,$J,358.3,26032,1,4,0)
;;=4^H11.001
;;^UTILITY(U,$J,358.3,26032,2)
;;=^5004717
;;^UTILITY(U,$J,358.3,26033,0)
;;=H11.002^^81^1042^19
;;^UTILITY(U,$J,358.3,26033,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26033,1,3,0)
;;=3^Pterygium,Left Eye
;;^UTILITY(U,$J,358.3,26033,1,4,0)
;;=4^H11.002
;;^UTILITY(U,$J,358.3,26033,2)
;;=^5004718
;;^UTILITY(U,$J,358.3,26034,0)
;;=H11.151^^81^1042^20
;;^UTILITY(U,$J,358.3,26034,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26034,1,3,0)
;;=3^Pinguecula,Right Eye
;;^UTILITY(U,$J,358.3,26034,1,4,0)
;;=4^H11.151
;;^UTILITY(U,$J,358.3,26034,2)
;;=^5004761
;;^UTILITY(U,$J,358.3,26035,0)
;;=H11.152^^81^1042^21
;;^UTILITY(U,$J,358.3,26035,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26035,1,3,0)
;;=3^Pinguecula,Left Eye
;;^UTILITY(U,$J,358.3,26035,1,4,0)
;;=4^H11.152
;;^UTILITY(U,$J,358.3,26035,2)
;;=^5004762
;;^UTILITY(U,$J,358.3,26036,0)
;;=D31.01^^81^1042^22
;;^UTILITY(U,$J,358.3,26036,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26036,1,3,0)
;;=3^Benign Neop of Conj,Right Eye
;;^UTILITY(U,$J,358.3,26036,1,4,0)
;;=4^D31.01
;;^UTILITY(U,$J,358.3,26036,2)
;;=^5002112
;;^UTILITY(U,$J,358.3,26037,0)
;;=D31.02^^81^1042^23
;;^UTILITY(U,$J,358.3,26037,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26037,1,3,0)
;;=3^Benign Neop of Conj,Left Eye
;;^UTILITY(U,$J,358.3,26037,1,4,0)
;;=4^D31.02
;;^UTILITY(U,$J,358.3,26037,2)
;;=^5002113
;;^UTILITY(U,$J,358.3,26038,0)
;;=C69.01^^81^1042^24
;;^UTILITY(U,$J,358.3,26038,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26038,1,3,0)
;;=3^Malig Neop of Conj,Right Eye
;;^UTILITY(U,$J,358.3,26038,1,4,0)
;;=4^C69.01
;;^UTILITY(U,$J,358.3,26038,2)
;;=^5001267
;;^UTILITY(U,$J,358.3,26039,0)
;;=C69.02^^81^1042^25
;;^UTILITY(U,$J,358.3,26039,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26039,1,3,0)
;;=3^Malig Neop of Conj,Left Eye
;;^UTILITY(U,$J,358.3,26039,1,4,0)
;;=4^C69.02
;;^UTILITY(U,$J,358.3,26039,2)
;;=^5001268
;;^UTILITY(U,$J,358.3,26040,0)
;;=H11.231^^81^1042^26
;;^UTILITY(U,$J,358.3,26040,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26040,1,3,0)
;;=3^Symblepharon,Right Eye
;;^UTILITY(U,$J,358.3,26040,1,4,0)
;;=4^H11.231
;;^UTILITY(U,$J,358.3,26040,2)
;;=^5004773
;;^UTILITY(U,$J,358.3,26041,0)
;;=H11.232^^81^1042^27
;;^UTILITY(U,$J,358.3,26041,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26041,1,3,0)
;;=3^Symblepharon,Left Eye
;;^UTILITY(U,$J,358.3,26041,1,4,0)
;;=4^H11.232
;;^UTILITY(U,$J,358.3,26041,2)
;;=^5004774
;;^UTILITY(U,$J,358.3,26042,0)
;;=L10.81^^81^1042^28
;;^UTILITY(U,$J,358.3,26042,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26042,1,3,0)
;;=3^Paraneoplastic Pemphigus
;;^UTILITY(U,$J,358.3,26042,1,4,0)
;;=4^L10.81
;;^UTILITY(U,$J,358.3,26042,2)
;;=^5009088
;;^UTILITY(U,$J,358.3,26043,0)
;;=L12.9^^81^1042^29
;;^UTILITY(U,$J,358.3,26043,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26043,1,3,0)
;;=3^Pemphigoid,Unspec
;;^UTILITY(U,$J,358.3,26043,1,4,0)
;;=4^L12.9
;;^UTILITY(U,$J,358.3,26043,2)
;;=^5009102
;;^UTILITY(U,$J,358.3,26044,0)
;;=H16.011^^81^1043^1
;;^UTILITY(U,$J,358.3,26044,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26044,1,3,0)
;;=3^Central Corneal Ulcer,Right Eye
;;^UTILITY(U,$J,358.3,26044,1,4,0)
;;=4^H16.011
;;^UTILITY(U,$J,358.3,26044,2)
;;=^5004870
;;^UTILITY(U,$J,358.3,26045,0)
;;=H16.012^^81^1043^2
;;^UTILITY(U,$J,358.3,26045,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26045,1,3,0)
;;=3^Central Corneal Ulcer,Left Eye
;;^UTILITY(U,$J,358.3,26045,1,4,0)
;;=4^H16.012
;;^UTILITY(U,$J,358.3,26045,2)
;;=^5004871
;;^UTILITY(U,$J,358.3,26046,0)
;;=H16.049^^81^1043^3
;;^UTILITY(U,$J,358.3,26046,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26046,1,3,0)
;;=3^Marginal Corneal Ulcer,Unspec Eye
;;^UTILITY(U,$J,358.3,26046,1,4,0)
;;=4^H16.049
;;^UTILITY(U,$J,358.3,26046,2)
;;=^5004885
;;^UTILITY(U,$J,358.3,26047,0)
;;=H17.10^^81^1043^4
;;^UTILITY(U,$J,358.3,26047,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26047,1,3,0)
;;=3^Central Corneal Opacity,Unspec Eye
;;^UTILITY(U,$J,358.3,26047,1,4,0)
;;=4^H17.10
;;^UTILITY(U,$J,358.3,26047,2)
;;=^5004990
;;^UTILITY(U,$J,358.3,26048,0)
;;=H17.9^^81^1043^5
;;^UTILITY(U,$J,358.3,26048,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26048,1,3,0)
;;=3^Corneal Scar & Opacity
;;^UTILITY(U,$J,358.3,26048,1,4,0)
;;=4^H17.9
;;^UTILITY(U,$J,358.3,26048,2)
;;=^5005003
;;^UTILITY(U,$J,358.3,26049,0)
;;=H16.401^^81^1043^6
;;^UTILITY(U,$J,358.3,26049,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26049,1,3,0)
;;=3^Corneal Neovascularization,Right Eye
;;^UTILITY(U,$J,358.3,26049,1,4,0)
;;=4^H16.401
;;^UTILITY(U,$J,358.3,26049,2)
;;=^5004965
;;^UTILITY(U,$J,358.3,26050,0)
;;=H16.402^^81^1043^7
;;^UTILITY(U,$J,358.3,26050,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26050,1,3,0)
;;=3^Corneal Neovascularization,Left Eye
;;^UTILITY(U,$J,358.3,26050,1,4,0)
;;=4^H16.402
;;^UTILITY(U,$J,358.3,26050,2)
;;=^5004966
;;^UTILITY(U,$J,358.3,26051,0)
;;=H18.20^^81^1043^11
;;^UTILITY(U,$J,358.3,26051,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26051,1,3,0)
;;=3^Corneal Edema
;;^UTILITY(U,$J,358.3,26051,1,4,0)
;;=4^H18.20
;;^UTILITY(U,$J,358.3,26051,2)
;;=^5005035
;;^UTILITY(U,$J,358.3,26052,0)
;;=H18.231^^81^1043^12
;;^UTILITY(U,$J,358.3,26052,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26052,1,3,0)
;;=3^Corneal Edema,Right Eye,Secondary
;;^UTILITY(U,$J,358.3,26052,1,4,0)
;;=4^H18.231
;;^UTILITY(U,$J,358.3,26052,2)
;;=^5005044
;;^UTILITY(U,$J,358.3,26053,0)
;;=H18.232^^81^1043^13
;;^UTILITY(U,$J,358.3,26053,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26053,1,3,0)
;;=3^Corneal Edema,Left Eye,Secondary
;;^UTILITY(U,$J,358.3,26053,1,4,0)
;;=4^H18.232
;;^UTILITY(U,$J,358.3,26053,2)
;;=^5005045
;;^UTILITY(U,$J,358.3,26054,0)
;;=H18.11^^81^1043^14
;;^UTILITY(U,$J,358.3,26054,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26054,1,3,0)
;;=3^Bullous Keratopathy,Right Eye
;;^UTILITY(U,$J,358.3,26054,1,4,0)
;;=4^H18.11
;;^UTILITY(U,$J,358.3,26054,2)
;;=^5005032
;;^UTILITY(U,$J,358.3,26055,0)
;;=H18.12^^81^1043^15
;;^UTILITY(U,$J,358.3,26055,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26055,1,3,0)
;;=3^Bullous Keratopathy,Left Eye
;;^UTILITY(U,$J,358.3,26055,1,4,0)
;;=4^H18.12
;;^UTILITY(U,$J,358.3,26055,2)
;;=^5005033
;;^UTILITY(U,$J,358.3,26056,0)
;;=H18.601^^81^1043^22
;;^UTILITY(U,$J,358.3,26056,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26056,1,3,0)
;;=3^Keratoconus,Right Eye
;;^UTILITY(U,$J,358.3,26056,1,4,0)
;;=4^H18.601
;;^UTILITY(U,$J,358.3,26056,2)
;;=^5005089
;;^UTILITY(U,$J,358.3,26057,0)
;;=H18.602^^81^1043^23
;;^UTILITY(U,$J,358.3,26057,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26057,1,3,0)
;;=3^Keratoconus,Left Eye
;;^UTILITY(U,$J,358.3,26057,1,4,0)
;;=4^H18.602
;;^UTILITY(U,$J,358.3,26057,2)
;;=^5005090
;;^UTILITY(U,$J,358.3,26058,0)
;;=H18.423^^81^1043^26
;;^UTILITY(U,$J,358.3,26058,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26058,1,3,0)
;;=3^Band Keratopathy,Bilateral
;;^UTILITY(U,$J,358.3,26058,1,4,0)
;;=4^H18.423
;;^UTILITY(U,$J,358.3,26058,2)
;;=^5005068
;;^UTILITY(U,$J,358.3,26059,0)
;;=H16.213^^81^1043^27
;;^UTILITY(U,$J,358.3,26059,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26059,1,3,0)
;;=3^Exposure Keratoconjunctivitis,Bilateral
;;^UTILITY(U,$J,358.3,26059,1,4,0)
;;=4^H16.213
;;^UTILITY(U,$J,358.3,26059,2)
;;=^5004922
;;^UTILITY(U,$J,358.3,26060,0)
;;=H18.833^^81^1043^30
;;^UTILITY(U,$J,358.3,26060,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26060,1,3,0)
;;=3^Recurrent Erosion of Cornea,Bilateral
;;^UTILITY(U,$J,358.3,26060,1,4,0)
;;=4^H18.833
;;^UTILITY(U,$J,358.3,26060,2)
;;=^5005128
;;^UTILITY(U,$J,358.3,26061,0)
;;=B00.51^^81^1043^31
;;^UTILITY(U,$J,358.3,26061,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26061,1,3,0)
;;=3^Herpesviral Iridocyclitis
;;^UTILITY(U,$J,358.3,26061,1,4,0)
;;=4^B00.51
;;^UTILITY(U,$J,358.3,26061,2)
;;=^5000473
;;^UTILITY(U,$J,358.3,26062,0)
;;=B00.52^^81^1043^32
;;^UTILITY(U,$J,358.3,26062,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26062,1,3,0)
;;=3^Herpesviral Keratitis
;;^UTILITY(U,$J,358.3,26062,1,4,0)
;;=4^B00.52
;;^UTILITY(U,$J,358.3,26062,2)
;;=^5000474
;;^UTILITY(U,$J,358.3,26063,0)
;;=B00.59^^81^1043^33
;;^UTILITY(U,$J,358.3,26063,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26063,1,3,0)
;;=3^Herpes Viral Eye Disease
;;^UTILITY(U,$J,358.3,26063,1,4,0)
;;=4^B00.59
;;^UTILITY(U,$J,358.3,26063,2)
;;=^5000476
;;^UTILITY(U,$J,358.3,26064,0)
;;=B02.39^^81^1043^34
;;^UTILITY(U,$J,358.3,26064,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26064,1,3,0)
;;=3^Herpes Zoster Eye Disease
;;^UTILITY(U,$J,358.3,26064,1,4,0)
;;=4^B02.39
;;^UTILITY(U,$J,358.3,26064,2)
;;=^5000498
;;^UTILITY(U,$J,358.3,26065,0)
;;=H16.309^^81^1043^35
;;^UTILITY(U,$J,358.3,26065,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26065,1,3,0)
;;=3^Interstitial Keratitis,Unspec Eye
;;^UTILITY(U,$J,358.3,26065,1,4,0)
;;=4^H16.309
;;^UTILITY(U,$J,358.3,26065,2)
;;=^5133472
;;^UTILITY(U,$J,358.3,26066,0)
;;=S05.01XA^^81^1043^36
;;^UTILITY(U,$J,358.3,26066,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26066,1,3,0)
;;=3^Corneal Abrasion w/o FB,Right Eye,Init Enctr
;;^UTILITY(U,$J,358.3,26066,1,4,0)
;;=4^S05.01XA
;;^UTILITY(U,$J,358.3,26066,2)
;;=^5020579
;;^UTILITY(U,$J,358.3,26067,0)
;;=S05.02XA^^81^1043^37
;;^UTILITY(U,$J,358.3,26067,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26067,1,3,0)
;;=3^Corneal Abrasion w/o FB,Left Eye,Init Enctr
;;^UTILITY(U,$J,358.3,26067,1,4,0)
;;=4^S05.02XA
;;^UTILITY(U,$J,358.3,26067,2)
;;=^5020582
;;^UTILITY(U,$J,358.3,26068,0)
;;=T15.01XA^^81^1043^38
;;^UTILITY(U,$J,358.3,26068,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26068,1,3,0)
;;=3^Corneal FB,Right Eye,Init Enctr
;;^UTILITY(U,$J,358.3,26068,1,4,0)
;;=4^T15.01XA
;;^UTILITY(U,$J,358.3,26068,2)
;;=^5046384
;;^UTILITY(U,$J,358.3,26069,0)
;;=T15.02XA^^81^1043^39
;;^UTILITY(U,$J,358.3,26069,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26069,1,3,0)
;;=3^Corneal FB,Left Eye,Init Enctr
;;^UTILITY(U,$J,358.3,26069,1,4,0)
;;=4^T15.02XA
;;^UTILITY(U,$J,358.3,26069,2)
;;=^5046387
;;^UTILITY(U,$J,358.3,26070,0)
;;=H18.832^^81^1043^29
;;^UTILITY(U,$J,358.3,26070,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26070,1,3,0)
;;=3^Recurrent Erosion of Cornea,Left Eye
;;^UTILITY(U,$J,358.3,26070,1,4,0)
;;=4^H18.832
;;^UTILITY(U,$J,358.3,26070,2)
;;=^5005127
;;^UTILITY(U,$J,358.3,26071,0)
;;=H18.831^^81^1043^28
;;^UTILITY(U,$J,358.3,26071,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,26071,1,3,0)
;;=3^Recurrent Erosion of Cornea,Right Eye
;;^UTILITY(U,$J,358.3,26071,1,4,0)
;;=4^H18.831
;;^UTILITY(U,$J,358.3,26071,2)
;;=^5005126
;;^UTILITY(U,$J,358.3,26072,0)
;;=H18.623^^81^1043^25
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0AM 19780 printed Sep 23, 2025@19:20:54 Page 2
IBDEI0AM ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+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,26003,1,4,0)
+2 ;;=4^H02.889
+3 ;;^UTILITY(U,$J,358.3,26003,2)
+4 ;;=^5157349
+5 ;;^UTILITY(U,$J,358.3,26004,0)
+6 ;;=H43.813^^81^1041^48
+7 ;;^UTILITY(U,$J,358.3,26004,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,26004,1,3,0)
+10 ;;=3^Vitreous Degeneration,Bilateral
+11 ;;^UTILITY(U,$J,358.3,26004,1,4,0)
+12 ;;=4^H43.813
+13 ;;^UTILITY(U,$J,358.3,26004,2)
+14 ;;=^5005955
+15 ;;^UTILITY(U,$J,358.3,26005,0)
+16 ;;=H26.491^^81^1041^40
+17 ;;^UTILITY(U,$J,358.3,26005,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,26005,1,3,0)
+20 ;;=3^PCO/Secondary Cataract,Right Eye
+21 ;;^UTILITY(U,$J,358.3,26005,1,4,0)
+22 ;;=4^H26.491
+23 ;;^UTILITY(U,$J,358.3,26005,2)
+24 ;;=^5005358
+25 ;;^UTILITY(U,$J,358.3,26006,0)
+26 ;;=H26.492^^81^1041^39
+27 ;;^UTILITY(U,$J,358.3,26006,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,26006,1,3,0)
+30 ;;=3^PCO/Secondary Cataract,Left Eye
+31 ;;^UTILITY(U,$J,358.3,26006,1,4,0)
+32 ;;=4^H26.492
+33 ;;^UTILITY(U,$J,358.3,26006,2)
+34 ;;=^5005359
+35 ;;^UTILITY(U,$J,358.3,26007,0)
+36 ;;=D31.31^^81^1041^4
+37 ;;^UTILITY(U,$J,358.3,26007,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,26007,1,3,0)
+40 ;;=3^Benign Neop/Nevus Choroid,Right Eye
+41 ;;^UTILITY(U,$J,358.3,26007,1,4,0)
+42 ;;=4^D31.31
+43 ;;^UTILITY(U,$J,358.3,26007,2)
+44 ;;=^5002121
+45 ;;^UTILITY(U,$J,358.3,26008,0)
+46 ;;=D31.32^^81^1041^3
+47 ;;^UTILITY(U,$J,358.3,26008,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,26008,1,3,0)
+50 ;;=3^Benign Neop/Nevus Choroid,Left Eye
+51 ;;^UTILITY(U,$J,358.3,26008,1,4,0)
+52 ;;=4^D31.32
+53 ;;^UTILITY(U,$J,358.3,26008,2)
+54 ;;=^5002122
+55 ;;^UTILITY(U,$J,358.3,26009,0)
+56 ;;=H40.1131^^81^1041^42
+57 ;;^UTILITY(U,$J,358.3,26009,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,26009,1,3,0)
+60 ;;=3^Primary Open-Angle Glaucoma,Mild Stage,Bilateral
+61 ;;^UTILITY(U,$J,358.3,26009,1,4,0)
+62 ;;=4^H40.1131
+63 ;;^UTILITY(U,$J,358.3,26009,2)
+64 ;;=^5138547
+65 ;;^UTILITY(U,$J,358.3,26010,0)
+66 ;;=H40.1132^^81^1041^43
+67 ;;^UTILITY(U,$J,358.3,26010,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,26010,1,3,0)
+70 ;;=3^Primary Open-Angle Glaucoma,Moderate Stage,Bilateral
+71 ;;^UTILITY(U,$J,358.3,26010,1,4,0)
+72 ;;=4^H40.1132
+73 ;;^UTILITY(U,$J,358.3,26010,2)
+74 ;;=^5138548
+75 ;;^UTILITY(U,$J,358.3,26011,0)
+76 ;;=H40.013^^81^1041^28
+77 ;;^UTILITY(U,$J,358.3,26011,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,26011,1,3,0)
+80 ;;=3^Glaucoma Suspect,Low Risk,Bilateral,Open Angle
+81 ;;^UTILITY(U,$J,358.3,26011,1,4,0)
+82 ;;=4^H40.013
+83 ;;^UTILITY(U,$J,358.3,26011,2)
+84 ;;=^5005726
+85 ;;^UTILITY(U,$J,358.3,26012,0)
+86 ;;=H40.1133^^81^1041^44
+87 ;;^UTILITY(U,$J,358.3,26012,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,26012,1,3,0)
+90 ;;=3^Primary Open-Angle Gluacoma,Severe Stage,Bilateral
+91 ;;^UTILITY(U,$J,358.3,26012,1,4,0)
+92 ;;=4^H40.1133
+93 ;;^UTILITY(U,$J,358.3,26012,2)
+94 ;;=^5138549
+95 ;;^UTILITY(U,$J,358.3,26013,0)
+96 ;;=H43.811^^81^1041^47
+97 ;;^UTILITY(U,$J,358.3,26013,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,26013,1,3,0)
+100 ;;=3^Vitreous Degeneration,Right Eye
+101 ;;^UTILITY(U,$J,358.3,26013,1,4,0)
+102 ;;=4^H43.811
+103 ;;^UTILITY(U,$J,358.3,26013,2)
+104 ;;=^5005953
+105 ;;^UTILITY(U,$J,358.3,26014,0)
+106 ;;=H43.812^^81^1041^46
+107 ;;^UTILITY(U,$J,358.3,26014,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,26014,1,3,0)
+110 ;;=3^Vitreous Degeneration,Left Eye
+111 ;;^UTILITY(U,$J,358.3,26014,1,4,0)
+112 ;;=4^H43.812
+113 ;;^UTILITY(U,$J,358.3,26014,2)
+114 ;;=^5005954
+115 ;;^UTILITY(U,$J,358.3,26015,0)
+116 ;;=H10.31^^81^1042^1
+117 ;;^UTILITY(U,$J,358.3,26015,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,26015,1,3,0)
+120 ;;=3^Conjunctivitis,Acute,Right Eye
+121 ;;^UTILITY(U,$J,358.3,26015,1,4,0)
+122 ;;=4^H10.31
+123 ;;^UTILITY(U,$J,358.3,26015,2)
+124 ;;=^5133458
+125 ;;^UTILITY(U,$J,358.3,26016,0)
+126 ;;=H10.32^^81^1042^2
+127 ;;^UTILITY(U,$J,358.3,26016,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,26016,1,3,0)
+130 ;;=3^Conjunctivitis,Acute,Left Eye
+131 ;;^UTILITY(U,$J,358.3,26016,1,4,0)
+132 ;;=4^H10.32
+133 ;;^UTILITY(U,$J,358.3,26016,2)
+134 ;;=^5133459
+135 ;;^UTILITY(U,$J,358.3,26017,0)
+136 ;;=H10.401^^81^1042^3
+137 ;;^UTILITY(U,$J,358.3,26017,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,26017,1,3,0)
+140 ;;=3^Conjunctivitis,Chronic,Right Eye
+141 ;;^UTILITY(U,$J,358.3,26017,1,4,0)
+142 ;;=4^H10.401
+143 ;;^UTILITY(U,$J,358.3,26017,2)
+144 ;;=^5004681
+145 ;;^UTILITY(U,$J,358.3,26018,0)
+146 ;;=H10.402^^81^1042^4
+147 ;;^UTILITY(U,$J,358.3,26018,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,26018,1,3,0)
+150 ;;=3^Conjunctivitis,Chronic,Left Eye
+151 ;;^UTILITY(U,$J,358.3,26018,1,4,0)
+152 ;;=4^H10.402
+153 ;;^UTILITY(U,$J,358.3,26018,2)
+154 ;;=^5004682
+155 ;;^UTILITY(U,$J,358.3,26019,0)
+156 ;;=H10.403^^81^1042^5
+157 ;;^UTILITY(U,$J,358.3,26019,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,26019,1,3,0)
+160 ;;=3^Conjunctivitis,Chronic,Bilateral
+161 ;;^UTILITY(U,$J,358.3,26019,1,4,0)
+162 ;;=4^H10.403
+163 ;;^UTILITY(U,$J,358.3,26019,2)
+164 ;;=^5004683
+165 ;;^UTILITY(U,$J,358.3,26020,0)
+166 ;;=H10.45^^81^1042^6
+167 ;;^UTILITY(U,$J,358.3,26020,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,26020,1,3,0)
+170 ;;=3^Conjunctivitis,Allergic,Chronic
+171 ;;^UTILITY(U,$J,358.3,26020,1,4,0)
+172 ;;=4^H10.45
+173 ;;^UTILITY(U,$J,358.3,26020,2)
+174 ;;=^87396
+175 ;;^UTILITY(U,$J,358.3,26021,0)
+176 ;;=B30.8^^81^1042^7
+177 ;;^UTILITY(U,$J,358.3,26021,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,26021,1,3,0)
+180 ;;=3^Conjunctivitis,Viral
+181 ;;^UTILITY(U,$J,358.3,26021,1,4,0)
+182 ;;=4^B30.8
+183 ;;^UTILITY(U,$J,358.3,26021,2)
+184 ;;=^88239
+185 ;;^UTILITY(U,$J,358.3,26022,0)
+186 ;;=H10.13^^81^1042^8
+187 ;;^UTILITY(U,$J,358.3,26022,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,26022,1,3,0)
+190 ;;=3^Conjunctivitis,Atopic,Bilateral
+191 ;;^UTILITY(U,$J,358.3,26022,1,4,0)
+192 ;;=4^H10.13
+193 ;;^UTILITY(U,$J,358.3,26022,2)
+194 ;;=^5004667
+195 ;;^UTILITY(U,$J,358.3,26023,0)
+196 ;;=H10.419^^81^1042^9
+197 ;;^UTILITY(U,$J,358.3,26023,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,26023,1,3,0)
+200 ;;=3^Giant Papillary Conjunctivitis,Chronic
+201 ;;^UTILITY(U,$J,358.3,26023,1,4,0)
+202 ;;=4^H10.419
+203 ;;^UTILITY(U,$J,358.3,26023,2)
+204 ;;=^5004687
+205 ;;^UTILITY(U,$J,358.3,26024,0)
+206 ;;=H10.219^^81^1042^10
+207 ;;^UTILITY(U,$J,358.3,26024,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,26024,1,3,0)
+210 ;;=3^Toxic Conjunctivitis,Acute
+211 ;;^UTILITY(U,$J,358.3,26024,1,4,0)
+212 ;;=4^H10.219
+213 ;;^UTILITY(U,$J,358.3,26024,2)
+214 ;;=^5004671
+215 ;;^UTILITY(U,$J,358.3,26025,0)
+216 ;;=M35.01^^81^1042^11
+217 ;;^UTILITY(U,$J,358.3,26025,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,26025,1,3,0)
+220 ;;=3^Keratoconjunctivitis w/ Sicca Syndrome
+221 ;;^UTILITY(U,$J,358.3,26025,1,4,0)
+222 ;;=4^M35.01
+223 ;;^UTILITY(U,$J,358.3,26025,2)
+224 ;;=^5011787
+225 ;;^UTILITY(U,$J,358.3,26026,0)
+226 ;;=H11.31^^81^1042^12
+227 ;;^UTILITY(U,$J,358.3,26026,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,26026,1,3,0)
+230 ;;=3^Conjunctival Hemorrhage,Right Eye
+231 ;;^UTILITY(U,$J,358.3,26026,1,4,0)
+232 ;;=4^H11.31
+233 ;;^UTILITY(U,$J,358.3,26026,2)
+234 ;;=^5004782
+235 ;;^UTILITY(U,$J,358.3,26027,0)
+236 ;;=H11.32^^81^1042^13
+237 ;;^UTILITY(U,$J,358.3,26027,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,26027,1,3,0)
+240 ;;=3^Conjunctival Hemorrhage,Left Eye
+241 ;;^UTILITY(U,$J,358.3,26027,1,4,0)
+242 ;;=4^H11.32
+243 ;;^UTILITY(U,$J,358.3,26027,2)
+244 ;;=^5004783
+245 ;;^UTILITY(U,$J,358.3,26028,0)
+246 ;;=H15.101^^81^1042^14
+247 ;;^UTILITY(U,$J,358.3,26028,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,26028,1,3,0)
+250 ;;=3^Episcleritis,Right Eye
+251 ;;^UTILITY(U,$J,358.3,26028,1,4,0)
+252 ;;=4^H15.101
+253 ;;^UTILITY(U,$J,358.3,26028,2)
+254 ;;=^5004835
+255 ;;^UTILITY(U,$J,358.3,26029,0)
+256 ;;=H15.102^^81^1042^15
+257 ;;^UTILITY(U,$J,358.3,26029,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,26029,1,3,0)
+260 ;;=3^Episcleritis,Left Eye
+261 ;;^UTILITY(U,$J,358.3,26029,1,4,0)
+262 ;;=4^H15.102
+263 ;;^UTILITY(U,$J,358.3,26029,2)
+264 ;;=^5004836
+265 ;;^UTILITY(U,$J,358.3,26030,0)
+266 ;;=H15.001^^81^1042^16
+267 ;;^UTILITY(U,$J,358.3,26030,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,26030,1,3,0)
+270 ;;=3^Scleritis,Right Eye
+271 ;;^UTILITY(U,$J,358.3,26030,1,4,0)
+272 ;;=4^H15.001
+273 ;;^UTILITY(U,$J,358.3,26030,2)
+274 ;;=^5004810
+275 ;;^UTILITY(U,$J,358.3,26031,0)
+276 ;;=H15.002^^81^1042^17
+277 ;;^UTILITY(U,$J,358.3,26031,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,26031,1,3,0)
+280 ;;=3^Scleritis,Left Eye
+281 ;;^UTILITY(U,$J,358.3,26031,1,4,0)
+282 ;;=4^H15.002
+283 ;;^UTILITY(U,$J,358.3,26031,2)
+284 ;;=^5004811
+285 ;;^UTILITY(U,$J,358.3,26032,0)
+286 ;;=H11.001^^81^1042^18
+287 ;;^UTILITY(U,$J,358.3,26032,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,26032,1,3,0)
+290 ;;=3^Pterygium,Right Eye
+291 ;;^UTILITY(U,$J,358.3,26032,1,4,0)
+292 ;;=4^H11.001
+293 ;;^UTILITY(U,$J,358.3,26032,2)
+294 ;;=^5004717
+295 ;;^UTILITY(U,$J,358.3,26033,0)
+296 ;;=H11.002^^81^1042^19
+297 ;;^UTILITY(U,$J,358.3,26033,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,26033,1,3,0)
+300 ;;=3^Pterygium,Left Eye
+301 ;;^UTILITY(U,$J,358.3,26033,1,4,0)
+302 ;;=4^H11.002
+303 ;;^UTILITY(U,$J,358.3,26033,2)
+304 ;;=^5004718
+305 ;;^UTILITY(U,$J,358.3,26034,0)
+306 ;;=H11.151^^81^1042^20
+307 ;;^UTILITY(U,$J,358.3,26034,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,26034,1,3,0)
+310 ;;=3^Pinguecula,Right Eye
+311 ;;^UTILITY(U,$J,358.3,26034,1,4,0)
+312 ;;=4^H11.151
+313 ;;^UTILITY(U,$J,358.3,26034,2)
+314 ;;=^5004761
+315 ;;^UTILITY(U,$J,358.3,26035,0)
+316 ;;=H11.152^^81^1042^21
+317 ;;^UTILITY(U,$J,358.3,26035,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,26035,1,3,0)
+320 ;;=3^Pinguecula,Left Eye
+321 ;;^UTILITY(U,$J,358.3,26035,1,4,0)
+322 ;;=4^H11.152
+323 ;;^UTILITY(U,$J,358.3,26035,2)
+324 ;;=^5004762
+325 ;;^UTILITY(U,$J,358.3,26036,0)
+326 ;;=D31.01^^81^1042^22
+327 ;;^UTILITY(U,$J,358.3,26036,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,26036,1,3,0)
+330 ;;=3^Benign Neop of Conj,Right Eye
+331 ;;^UTILITY(U,$J,358.3,26036,1,4,0)
+332 ;;=4^D31.01
+333 ;;^UTILITY(U,$J,358.3,26036,2)
+334 ;;=^5002112
+335 ;;^UTILITY(U,$J,358.3,26037,0)
+336 ;;=D31.02^^81^1042^23
+337 ;;^UTILITY(U,$J,358.3,26037,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,26037,1,3,0)
+340 ;;=3^Benign Neop of Conj,Left Eye
+341 ;;^UTILITY(U,$J,358.3,26037,1,4,0)
+342 ;;=4^D31.02
+343 ;;^UTILITY(U,$J,358.3,26037,2)
+344 ;;=^5002113
+345 ;;^UTILITY(U,$J,358.3,26038,0)
+346 ;;=C69.01^^81^1042^24
+347 ;;^UTILITY(U,$J,358.3,26038,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,26038,1,3,0)
+350 ;;=3^Malig Neop of Conj,Right Eye
+351 ;;^UTILITY(U,$J,358.3,26038,1,4,0)
+352 ;;=4^C69.01
+353 ;;^UTILITY(U,$J,358.3,26038,2)
+354 ;;=^5001267
+355 ;;^UTILITY(U,$J,358.3,26039,0)
+356 ;;=C69.02^^81^1042^25
+357 ;;^UTILITY(U,$J,358.3,26039,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,26039,1,3,0)
+360 ;;=3^Malig Neop of Conj,Left Eye
+361 ;;^UTILITY(U,$J,358.3,26039,1,4,0)
+362 ;;=4^C69.02
+363 ;;^UTILITY(U,$J,358.3,26039,2)
+364 ;;=^5001268
+365 ;;^UTILITY(U,$J,358.3,26040,0)
+366 ;;=H11.231^^81^1042^26
+367 ;;^UTILITY(U,$J,358.3,26040,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,26040,1,3,0)
+370 ;;=3^Symblepharon,Right Eye
+371 ;;^UTILITY(U,$J,358.3,26040,1,4,0)
+372 ;;=4^H11.231
+373 ;;^UTILITY(U,$J,358.3,26040,2)
+374 ;;=^5004773
+375 ;;^UTILITY(U,$J,358.3,26041,0)
+376 ;;=H11.232^^81^1042^27
+377 ;;^UTILITY(U,$J,358.3,26041,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,26041,1,3,0)
+380 ;;=3^Symblepharon,Left Eye
+381 ;;^UTILITY(U,$J,358.3,26041,1,4,0)
+382 ;;=4^H11.232
+383 ;;^UTILITY(U,$J,358.3,26041,2)
+384 ;;=^5004774
+385 ;;^UTILITY(U,$J,358.3,26042,0)
+386 ;;=L10.81^^81^1042^28
+387 ;;^UTILITY(U,$J,358.3,26042,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,26042,1,3,0)
+390 ;;=3^Paraneoplastic Pemphigus
+391 ;;^UTILITY(U,$J,358.3,26042,1,4,0)
+392 ;;=4^L10.81
+393 ;;^UTILITY(U,$J,358.3,26042,2)
+394 ;;=^5009088
+395 ;;^UTILITY(U,$J,358.3,26043,0)
+396 ;;=L12.9^^81^1042^29
+397 ;;^UTILITY(U,$J,358.3,26043,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,26043,1,3,0)
+400 ;;=3^Pemphigoid,Unspec
+401 ;;^UTILITY(U,$J,358.3,26043,1,4,0)
+402 ;;=4^L12.9
+403 ;;^UTILITY(U,$J,358.3,26043,2)
+404 ;;=^5009102
+405 ;;^UTILITY(U,$J,358.3,26044,0)
+406 ;;=H16.011^^81^1043^1
+407 ;;^UTILITY(U,$J,358.3,26044,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,26044,1,3,0)
+410 ;;=3^Central Corneal Ulcer,Right Eye
+411 ;;^UTILITY(U,$J,358.3,26044,1,4,0)
+412 ;;=4^H16.011
+413 ;;^UTILITY(U,$J,358.3,26044,2)
+414 ;;=^5004870
+415 ;;^UTILITY(U,$J,358.3,26045,0)
+416 ;;=H16.012^^81^1043^2
+417 ;;^UTILITY(U,$J,358.3,26045,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,26045,1,3,0)
+420 ;;=3^Central Corneal Ulcer,Left Eye
+421 ;;^UTILITY(U,$J,358.3,26045,1,4,0)
+422 ;;=4^H16.012
+423 ;;^UTILITY(U,$J,358.3,26045,2)
+424 ;;=^5004871
+425 ;;^UTILITY(U,$J,358.3,26046,0)
+426 ;;=H16.049^^81^1043^3
+427 ;;^UTILITY(U,$J,358.3,26046,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,26046,1,3,0)
+430 ;;=3^Marginal Corneal Ulcer,Unspec Eye
+431 ;;^UTILITY(U,$J,358.3,26046,1,4,0)
+432 ;;=4^H16.049
+433 ;;^UTILITY(U,$J,358.3,26046,2)
+434 ;;=^5004885
+435 ;;^UTILITY(U,$J,358.3,26047,0)
+436 ;;=H17.10^^81^1043^4
+437 ;;^UTILITY(U,$J,358.3,26047,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,26047,1,3,0)
+440 ;;=3^Central Corneal Opacity,Unspec Eye
+441 ;;^UTILITY(U,$J,358.3,26047,1,4,0)
+442 ;;=4^H17.10
+443 ;;^UTILITY(U,$J,358.3,26047,2)
+444 ;;=^5004990
+445 ;;^UTILITY(U,$J,358.3,26048,0)
+446 ;;=H17.9^^81^1043^5
+447 ;;^UTILITY(U,$J,358.3,26048,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,26048,1,3,0)
+450 ;;=3^Corneal Scar & Opacity
+451 ;;^UTILITY(U,$J,358.3,26048,1,4,0)
+452 ;;=4^H17.9
+453 ;;^UTILITY(U,$J,358.3,26048,2)
+454 ;;=^5005003
+455 ;;^UTILITY(U,$J,358.3,26049,0)
+456 ;;=H16.401^^81^1043^6
+457 ;;^UTILITY(U,$J,358.3,26049,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,26049,1,3,0)
+460 ;;=3^Corneal Neovascularization,Right Eye
+461 ;;^UTILITY(U,$J,358.3,26049,1,4,0)
+462 ;;=4^H16.401
+463 ;;^UTILITY(U,$J,358.3,26049,2)
+464 ;;=^5004965
+465 ;;^UTILITY(U,$J,358.3,26050,0)
+466 ;;=H16.402^^81^1043^7
+467 ;;^UTILITY(U,$J,358.3,26050,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,26050,1,3,0)
+470 ;;=3^Corneal Neovascularization,Left Eye
+471 ;;^UTILITY(U,$J,358.3,26050,1,4,0)
+472 ;;=4^H16.402
+473 ;;^UTILITY(U,$J,358.3,26050,2)
+474 ;;=^5004966
+475 ;;^UTILITY(U,$J,358.3,26051,0)
+476 ;;=H18.20^^81^1043^11
+477 ;;^UTILITY(U,$J,358.3,26051,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,26051,1,3,0)
+480 ;;=3^Corneal Edema
+481 ;;^UTILITY(U,$J,358.3,26051,1,4,0)
+482 ;;=4^H18.20
+483 ;;^UTILITY(U,$J,358.3,26051,2)
+484 ;;=^5005035
+485 ;;^UTILITY(U,$J,358.3,26052,0)
+486 ;;=H18.231^^81^1043^12
+487 ;;^UTILITY(U,$J,358.3,26052,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,26052,1,3,0)
+490 ;;=3^Corneal Edema,Right Eye,Secondary
+491 ;;^UTILITY(U,$J,358.3,26052,1,4,0)
+492 ;;=4^H18.231
+493 ;;^UTILITY(U,$J,358.3,26052,2)
+494 ;;=^5005044
+495 ;;^UTILITY(U,$J,358.3,26053,0)
+496 ;;=H18.232^^81^1043^13
+497 ;;^UTILITY(U,$J,358.3,26053,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,26053,1,3,0)
+500 ;;=3^Corneal Edema,Left Eye,Secondary
+501 ;;^UTILITY(U,$J,358.3,26053,1,4,0)
+502 ;;=4^H18.232
+503 ;;^UTILITY(U,$J,358.3,26053,2)
+504 ;;=^5005045
+505 ;;^UTILITY(U,$J,358.3,26054,0)
+506 ;;=H18.11^^81^1043^14
+507 ;;^UTILITY(U,$J,358.3,26054,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,26054,1,3,0)
+510 ;;=3^Bullous Keratopathy,Right Eye
+511 ;;^UTILITY(U,$J,358.3,26054,1,4,0)
+512 ;;=4^H18.11
+513 ;;^UTILITY(U,$J,358.3,26054,2)
+514 ;;=^5005032
+515 ;;^UTILITY(U,$J,358.3,26055,0)
+516 ;;=H18.12^^81^1043^15
+517 ;;^UTILITY(U,$J,358.3,26055,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,26055,1,3,0)
+520 ;;=3^Bullous Keratopathy,Left Eye
+521 ;;^UTILITY(U,$J,358.3,26055,1,4,0)
+522 ;;=4^H18.12
+523 ;;^UTILITY(U,$J,358.3,26055,2)
+524 ;;=^5005033
+525 ;;^UTILITY(U,$J,358.3,26056,0)
+526 ;;=H18.601^^81^1043^22
+527 ;;^UTILITY(U,$J,358.3,26056,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,26056,1,3,0)
+530 ;;=3^Keratoconus,Right Eye
+531 ;;^UTILITY(U,$J,358.3,26056,1,4,0)
+532 ;;=4^H18.601
+533 ;;^UTILITY(U,$J,358.3,26056,2)
+534 ;;=^5005089
+535 ;;^UTILITY(U,$J,358.3,26057,0)
+536 ;;=H18.602^^81^1043^23
+537 ;;^UTILITY(U,$J,358.3,26057,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,26057,1,3,0)
+540 ;;=3^Keratoconus,Left Eye
+541 ;;^UTILITY(U,$J,358.3,26057,1,4,0)
+542 ;;=4^H18.602
+543 ;;^UTILITY(U,$J,358.3,26057,2)
+544 ;;=^5005090
+545 ;;^UTILITY(U,$J,358.3,26058,0)
+546 ;;=H18.423^^81^1043^26
+547 ;;^UTILITY(U,$J,358.3,26058,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,26058,1,3,0)
+550 ;;=3^Band Keratopathy,Bilateral
+551 ;;^UTILITY(U,$J,358.3,26058,1,4,0)
+552 ;;=4^H18.423
+553 ;;^UTILITY(U,$J,358.3,26058,2)
+554 ;;=^5005068
+555 ;;^UTILITY(U,$J,358.3,26059,0)
+556 ;;=H16.213^^81^1043^27
+557 ;;^UTILITY(U,$J,358.3,26059,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,26059,1,3,0)
+560 ;;=3^Exposure Keratoconjunctivitis,Bilateral
+561 ;;^UTILITY(U,$J,358.3,26059,1,4,0)
+562 ;;=4^H16.213
+563 ;;^UTILITY(U,$J,358.3,26059,2)
+564 ;;=^5004922
+565 ;;^UTILITY(U,$J,358.3,26060,0)
+566 ;;=H18.833^^81^1043^30
+567 ;;^UTILITY(U,$J,358.3,26060,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,26060,1,3,0)
+570 ;;=3^Recurrent Erosion of Cornea,Bilateral
+571 ;;^UTILITY(U,$J,358.3,26060,1,4,0)
+572 ;;=4^H18.833
+573 ;;^UTILITY(U,$J,358.3,26060,2)
+574 ;;=^5005128
+575 ;;^UTILITY(U,$J,358.3,26061,0)
+576 ;;=B00.51^^81^1043^31
+577 ;;^UTILITY(U,$J,358.3,26061,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,26061,1,3,0)
+580 ;;=3^Herpesviral Iridocyclitis
+581 ;;^UTILITY(U,$J,358.3,26061,1,4,0)
+582 ;;=4^B00.51
+583 ;;^UTILITY(U,$J,358.3,26061,2)
+584 ;;=^5000473
+585 ;;^UTILITY(U,$J,358.3,26062,0)
+586 ;;=B00.52^^81^1043^32
+587 ;;^UTILITY(U,$J,358.3,26062,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,26062,1,3,0)
+590 ;;=3^Herpesviral Keratitis
+591 ;;^UTILITY(U,$J,358.3,26062,1,4,0)
+592 ;;=4^B00.52
+593 ;;^UTILITY(U,$J,358.3,26062,2)
+594 ;;=^5000474
+595 ;;^UTILITY(U,$J,358.3,26063,0)
+596 ;;=B00.59^^81^1043^33
+597 ;;^UTILITY(U,$J,358.3,26063,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,26063,1,3,0)
+600 ;;=3^Herpes Viral Eye Disease
+601 ;;^UTILITY(U,$J,358.3,26063,1,4,0)
+602 ;;=4^B00.59
+603 ;;^UTILITY(U,$J,358.3,26063,2)
+604 ;;=^5000476
+605 ;;^UTILITY(U,$J,358.3,26064,0)
+606 ;;=B02.39^^81^1043^34
+607 ;;^UTILITY(U,$J,358.3,26064,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,26064,1,3,0)
+610 ;;=3^Herpes Zoster Eye Disease
+611 ;;^UTILITY(U,$J,358.3,26064,1,4,0)
+612 ;;=4^B02.39
+613 ;;^UTILITY(U,$J,358.3,26064,2)
+614 ;;=^5000498
+615 ;;^UTILITY(U,$J,358.3,26065,0)
+616 ;;=H16.309^^81^1043^35
+617 ;;^UTILITY(U,$J,358.3,26065,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,26065,1,3,0)
+620 ;;=3^Interstitial Keratitis,Unspec Eye
+621 ;;^UTILITY(U,$J,358.3,26065,1,4,0)
+622 ;;=4^H16.309
+623 ;;^UTILITY(U,$J,358.3,26065,2)
+624 ;;=^5133472
+625 ;;^UTILITY(U,$J,358.3,26066,0)
+626 ;;=S05.01XA^^81^1043^36
+627 ;;^UTILITY(U,$J,358.3,26066,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,26066,1,3,0)
+630 ;;=3^Corneal Abrasion w/o FB,Right Eye,Init Enctr
+631 ;;^UTILITY(U,$J,358.3,26066,1,4,0)
+632 ;;=4^S05.01XA
+633 ;;^UTILITY(U,$J,358.3,26066,2)
+634 ;;=^5020579
+635 ;;^UTILITY(U,$J,358.3,26067,0)
+636 ;;=S05.02XA^^81^1043^37
+637 ;;^UTILITY(U,$J,358.3,26067,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,26067,1,3,0)
+640 ;;=3^Corneal Abrasion w/o FB,Left Eye,Init Enctr
+641 ;;^UTILITY(U,$J,358.3,26067,1,4,0)
+642 ;;=4^S05.02XA
+643 ;;^UTILITY(U,$J,358.3,26067,2)
+644 ;;=^5020582
+645 ;;^UTILITY(U,$J,358.3,26068,0)
+646 ;;=T15.01XA^^81^1043^38
+647 ;;^UTILITY(U,$J,358.3,26068,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,26068,1,3,0)
+650 ;;=3^Corneal FB,Right Eye,Init Enctr
+651 ;;^UTILITY(U,$J,358.3,26068,1,4,0)
+652 ;;=4^T15.01XA
+653 ;;^UTILITY(U,$J,358.3,26068,2)
+654 ;;=^5046384
+655 ;;^UTILITY(U,$J,358.3,26069,0)
+656 ;;=T15.02XA^^81^1043^39
+657 ;;^UTILITY(U,$J,358.3,26069,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,26069,1,3,0)
+660 ;;=3^Corneal FB,Left Eye,Init Enctr
+661 ;;^UTILITY(U,$J,358.3,26069,1,4,0)
+662 ;;=4^T15.02XA
+663 ;;^UTILITY(U,$J,358.3,26069,2)
+664 ;;=^5046387
+665 ;;^UTILITY(U,$J,358.3,26070,0)
+666 ;;=H18.832^^81^1043^29
+667 ;;^UTILITY(U,$J,358.3,26070,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,26070,1,3,0)
+670 ;;=3^Recurrent Erosion of Cornea,Left Eye
+671 ;;^UTILITY(U,$J,358.3,26070,1,4,0)
+672 ;;=4^H18.832
+673 ;;^UTILITY(U,$J,358.3,26070,2)
+674 ;;=^5005127
+675 ;;^UTILITY(U,$J,358.3,26071,0)
+676 ;;=H18.831^^81^1043^28
+677 ;;^UTILITY(U,$J,358.3,26071,1,0)
+678 ;;=^358.31IA^4^2
+679 ;;^UTILITY(U,$J,358.3,26071,1,3,0)
+680 ;;=3^Recurrent Erosion of Cornea,Right Eye
+681 ;;^UTILITY(U,$J,358.3,26071,1,4,0)
+682 ;;=4^H18.831
+683 ;;^UTILITY(U,$J,358.3,26071,2)
+684 ;;=^5005126
+685 ;;^UTILITY(U,$J,358.3,26072,0)
+686 ;;=H18.623^^81^1043^25
