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

IBDEI05K.m

Go to the documentation of this file.
IBDEI05K ; ; 28-OCT-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;OCT 28, 2020
 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,13312,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13312,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Right Eye
 ;;^UTILITY(U,$J,358.3,13312,1,4,0)
 ;;=4^H11.31
 ;;^UTILITY(U,$J,358.3,13312,2)
 ;;=^5004782
 ;;^UTILITY(U,$J,358.3,13313,0)
 ;;=H11.32^^74^743^13
 ;;^UTILITY(U,$J,358.3,13313,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13313,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Left Eye
 ;;^UTILITY(U,$J,358.3,13313,1,4,0)
 ;;=4^H11.32
 ;;^UTILITY(U,$J,358.3,13313,2)
 ;;=^5004783
 ;;^UTILITY(U,$J,358.3,13314,0)
 ;;=H15.101^^74^743^14
 ;;^UTILITY(U,$J,358.3,13314,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13314,1,3,0)
 ;;=3^Episcleritis,Right Eye
 ;;^UTILITY(U,$J,358.3,13314,1,4,0)
 ;;=4^H15.101
 ;;^UTILITY(U,$J,358.3,13314,2)
 ;;=^5004835
 ;;^UTILITY(U,$J,358.3,13315,0)
 ;;=H15.102^^74^743^15
 ;;^UTILITY(U,$J,358.3,13315,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13315,1,3,0)
 ;;=3^Episcleritis,Left Eye
 ;;^UTILITY(U,$J,358.3,13315,1,4,0)
 ;;=4^H15.102
 ;;^UTILITY(U,$J,358.3,13315,2)
 ;;=^5004836
 ;;^UTILITY(U,$J,358.3,13316,0)
 ;;=H15.001^^74^743^16
 ;;^UTILITY(U,$J,358.3,13316,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13316,1,3,0)
 ;;=3^Scleritis,Right Eye
 ;;^UTILITY(U,$J,358.3,13316,1,4,0)
 ;;=4^H15.001
 ;;^UTILITY(U,$J,358.3,13316,2)
 ;;=^5004810
 ;;^UTILITY(U,$J,358.3,13317,0)
 ;;=H15.002^^74^743^17
 ;;^UTILITY(U,$J,358.3,13317,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13317,1,3,0)
 ;;=3^Scleritis,Left Eye
 ;;^UTILITY(U,$J,358.3,13317,1,4,0)
 ;;=4^H15.002
 ;;^UTILITY(U,$J,358.3,13317,2)
 ;;=^5004811
 ;;^UTILITY(U,$J,358.3,13318,0)
 ;;=H11.001^^74^743^18
 ;;^UTILITY(U,$J,358.3,13318,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13318,1,3,0)
 ;;=3^Pterygium,Right Eye
 ;;^UTILITY(U,$J,358.3,13318,1,4,0)
 ;;=4^H11.001
 ;;^UTILITY(U,$J,358.3,13318,2)
 ;;=^5004717
 ;;^UTILITY(U,$J,358.3,13319,0)
 ;;=H11.002^^74^743^19
 ;;^UTILITY(U,$J,358.3,13319,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13319,1,3,0)
 ;;=3^Pterygium,Left Eye
 ;;^UTILITY(U,$J,358.3,13319,1,4,0)
 ;;=4^H11.002
 ;;^UTILITY(U,$J,358.3,13319,2)
 ;;=^5004718
 ;;^UTILITY(U,$J,358.3,13320,0)
 ;;=H11.151^^74^743^20
 ;;^UTILITY(U,$J,358.3,13320,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13320,1,3,0)
 ;;=3^Pinguecula,Right Eye
 ;;^UTILITY(U,$J,358.3,13320,1,4,0)
 ;;=4^H11.151
 ;;^UTILITY(U,$J,358.3,13320,2)
 ;;=^5004761
 ;;^UTILITY(U,$J,358.3,13321,0)
 ;;=H11.152^^74^743^21
 ;;^UTILITY(U,$J,358.3,13321,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13321,1,3,0)
 ;;=3^Pinguecula,Left Eye
 ;;^UTILITY(U,$J,358.3,13321,1,4,0)
 ;;=4^H11.152
 ;;^UTILITY(U,$J,358.3,13321,2)
 ;;=^5004762
 ;;^UTILITY(U,$J,358.3,13322,0)
 ;;=D31.01^^74^743^22
 ;;^UTILITY(U,$J,358.3,13322,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13322,1,3,0)
 ;;=3^Benign Neop of Conj,Right Eye
 ;;^UTILITY(U,$J,358.3,13322,1,4,0)
 ;;=4^D31.01
 ;;^UTILITY(U,$J,358.3,13322,2)
 ;;=^5002112
 ;;^UTILITY(U,$J,358.3,13323,0)
 ;;=D31.02^^74^743^23
 ;;^UTILITY(U,$J,358.3,13323,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13323,1,3,0)
 ;;=3^Benign Neop of Conj,Left Eye
 ;;^UTILITY(U,$J,358.3,13323,1,4,0)
 ;;=4^D31.02
 ;;^UTILITY(U,$J,358.3,13323,2)
 ;;=^5002113
 ;;^UTILITY(U,$J,358.3,13324,0)
 ;;=C69.01^^74^743^24
 ;;^UTILITY(U,$J,358.3,13324,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13324,1,3,0)
 ;;=3^Malig Neop of Conj,Right Eye
 ;;^UTILITY(U,$J,358.3,13324,1,4,0)
 ;;=4^C69.01
 ;;^UTILITY(U,$J,358.3,13324,2)
 ;;=^5001267
 ;;^UTILITY(U,$J,358.3,13325,0)
 ;;=C69.02^^74^743^25
 ;;^UTILITY(U,$J,358.3,13325,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13325,1,3,0)
 ;;=3^Malig Neop of Conj,Left Eye
 ;;^UTILITY(U,$J,358.3,13325,1,4,0)
 ;;=4^C69.02
 ;;^UTILITY(U,$J,358.3,13325,2)
 ;;=^5001268
 ;;^UTILITY(U,$J,358.3,13326,0)
 ;;=H11.231^^74^743^26
 ;;^UTILITY(U,$J,358.3,13326,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13326,1,3,0)
 ;;=3^Symblepharon,Right Eye
 ;;^UTILITY(U,$J,358.3,13326,1,4,0)
 ;;=4^H11.231
 ;;^UTILITY(U,$J,358.3,13326,2)
 ;;=^5004773
 ;;^UTILITY(U,$J,358.3,13327,0)
 ;;=H11.232^^74^743^27
 ;;^UTILITY(U,$J,358.3,13327,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13327,1,3,0)
 ;;=3^Symblepharon,Left Eye
 ;;^UTILITY(U,$J,358.3,13327,1,4,0)
 ;;=4^H11.232
 ;;^UTILITY(U,$J,358.3,13327,2)
 ;;=^5004774
 ;;^UTILITY(U,$J,358.3,13328,0)
 ;;=L10.81^^74^743^28
 ;;^UTILITY(U,$J,358.3,13328,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13328,1,3,0)
 ;;=3^Paraneoplastic Pemphigus
 ;;^UTILITY(U,$J,358.3,13328,1,4,0)
 ;;=4^L10.81
 ;;^UTILITY(U,$J,358.3,13328,2)
 ;;=^5009088
 ;;^UTILITY(U,$J,358.3,13329,0)
 ;;=L12.9^^74^743^29
 ;;^UTILITY(U,$J,358.3,13329,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13329,1,3,0)
 ;;=3^Pemphigoid,Unspec
 ;;^UTILITY(U,$J,358.3,13329,1,4,0)
 ;;=4^L12.9
 ;;^UTILITY(U,$J,358.3,13329,2)
 ;;=^5009102
 ;;^UTILITY(U,$J,358.3,13330,0)
 ;;=H16.011^^74^744^1
 ;;^UTILITY(U,$J,358.3,13330,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13330,1,3,0)
 ;;=3^Central Corneal Ulcer,Right Eye
 ;;^UTILITY(U,$J,358.3,13330,1,4,0)
 ;;=4^H16.011
 ;;^UTILITY(U,$J,358.3,13330,2)
 ;;=^5004870
 ;;^UTILITY(U,$J,358.3,13331,0)
 ;;=H16.012^^74^744^2
 ;;^UTILITY(U,$J,358.3,13331,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13331,1,3,0)
 ;;=3^Central Corneal Ulcer,Left Eye
 ;;^UTILITY(U,$J,358.3,13331,1,4,0)
 ;;=4^H16.012
 ;;^UTILITY(U,$J,358.3,13331,2)
 ;;=^5004871
 ;;^UTILITY(U,$J,358.3,13332,0)
 ;;=H16.049^^74^744^3
 ;;^UTILITY(U,$J,358.3,13332,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13332,1,3,0)
 ;;=3^Marginal Corneal Ulcer,Unspec Eye
 ;;^UTILITY(U,$J,358.3,13332,1,4,0)
 ;;=4^H16.049
 ;;^UTILITY(U,$J,358.3,13332,2)
 ;;=^5004885
 ;;^UTILITY(U,$J,358.3,13333,0)
 ;;=H17.10^^74^744^4
 ;;^UTILITY(U,$J,358.3,13333,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13333,1,3,0)
 ;;=3^Central Corneal Opacity,Unspec Eye
 ;;^UTILITY(U,$J,358.3,13333,1,4,0)
 ;;=4^H17.10
 ;;^UTILITY(U,$J,358.3,13333,2)
 ;;=^5004990
 ;;^UTILITY(U,$J,358.3,13334,0)
 ;;=H17.9^^74^744^5
 ;;^UTILITY(U,$J,358.3,13334,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13334,1,3,0)
 ;;=3^Corneal Scar & Opacity
 ;;^UTILITY(U,$J,358.3,13334,1,4,0)
 ;;=4^H17.9
 ;;^UTILITY(U,$J,358.3,13334,2)
 ;;=^5005003
 ;;^UTILITY(U,$J,358.3,13335,0)
 ;;=H16.401^^74^744^6
 ;;^UTILITY(U,$J,358.3,13335,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13335,1,3,0)
 ;;=3^Corneal Neovascularization,Right Eye
 ;;^UTILITY(U,$J,358.3,13335,1,4,0)
 ;;=4^H16.401
 ;;^UTILITY(U,$J,358.3,13335,2)
 ;;=^5004965
 ;;^UTILITY(U,$J,358.3,13336,0)
 ;;=H16.402^^74^744^7
 ;;^UTILITY(U,$J,358.3,13336,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13336,1,3,0)
 ;;=3^Corneal Neovascularization,Left Eye
 ;;^UTILITY(U,$J,358.3,13336,1,4,0)
 ;;=4^H16.402
 ;;^UTILITY(U,$J,358.3,13336,2)
 ;;=^5004966
 ;;^UTILITY(U,$J,358.3,13337,0)
 ;;=H18.20^^74^744^11
 ;;^UTILITY(U,$J,358.3,13337,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13337,1,3,0)
 ;;=3^Corneal Edema
 ;;^UTILITY(U,$J,358.3,13337,1,4,0)
 ;;=4^H18.20
 ;;^UTILITY(U,$J,358.3,13337,2)
 ;;=^5005035
 ;;^UTILITY(U,$J,358.3,13338,0)
 ;;=H18.231^^74^744^12
 ;;^UTILITY(U,$J,358.3,13338,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13338,1,3,0)
 ;;=3^Corneal Edema,Right Eye,Secondary
 ;;^UTILITY(U,$J,358.3,13338,1,4,0)
 ;;=4^H18.231
 ;;^UTILITY(U,$J,358.3,13338,2)
 ;;=^5005044
 ;;^UTILITY(U,$J,358.3,13339,0)
 ;;=H18.232^^74^744^13
 ;;^UTILITY(U,$J,358.3,13339,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13339,1,3,0)
 ;;=3^Corneal Edema,Left Eye,Secondary
 ;;^UTILITY(U,$J,358.3,13339,1,4,0)
 ;;=4^H18.232
 ;;^UTILITY(U,$J,358.3,13339,2)
 ;;=^5005045
 ;;^UTILITY(U,$J,358.3,13340,0)
 ;;=H18.11^^74^744^14
 ;;^UTILITY(U,$J,358.3,13340,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13340,1,3,0)
 ;;=3^Bullous Keratopathy,Right Eye
 ;;^UTILITY(U,$J,358.3,13340,1,4,0)
 ;;=4^H18.11
 ;;^UTILITY(U,$J,358.3,13340,2)
 ;;=^5005032
 ;;^UTILITY(U,$J,358.3,13341,0)
 ;;=H18.12^^74^744^15
 ;;^UTILITY(U,$J,358.3,13341,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13341,1,3,0)
 ;;=3^Bullous Keratopathy,Left Eye
 ;;^UTILITY(U,$J,358.3,13341,1,4,0)
 ;;=4^H18.12
 ;;^UTILITY(U,$J,358.3,13341,2)
 ;;=^5005033
 ;;^UTILITY(U,$J,358.3,13342,0)
 ;;=H18.601^^74^744^22
 ;;^UTILITY(U,$J,358.3,13342,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13342,1,3,0)
 ;;=3^Keratoconus,Right Eye
 ;;^UTILITY(U,$J,358.3,13342,1,4,0)
 ;;=4^H18.601
 ;;^UTILITY(U,$J,358.3,13342,2)
 ;;=^5005089
 ;;^UTILITY(U,$J,358.3,13343,0)
 ;;=H18.602^^74^744^23
 ;;^UTILITY(U,$J,358.3,13343,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13343,1,3,0)
 ;;=3^Keratoconus,Left Eye
 ;;^UTILITY(U,$J,358.3,13343,1,4,0)
 ;;=4^H18.602
 ;;^UTILITY(U,$J,358.3,13343,2)
 ;;=^5005090
 ;;^UTILITY(U,$J,358.3,13344,0)
 ;;=H18.423^^74^744^26
 ;;^UTILITY(U,$J,358.3,13344,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13344,1,3,0)
 ;;=3^Band Keratopathy,Bilateral
 ;;^UTILITY(U,$J,358.3,13344,1,4,0)
 ;;=4^H18.423
 ;;^UTILITY(U,$J,358.3,13344,2)
 ;;=^5005068
 ;;^UTILITY(U,$J,358.3,13345,0)
 ;;=H16.213^^74^744^27
 ;;^UTILITY(U,$J,358.3,13345,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13345,1,3,0)
 ;;=3^Exposure Keratoconjunctivitis,Bilateral
 ;;^UTILITY(U,$J,358.3,13345,1,4,0)
 ;;=4^H16.213
 ;;^UTILITY(U,$J,358.3,13345,2)
 ;;=^5004922
 ;;^UTILITY(U,$J,358.3,13346,0)
 ;;=H18.833^^74^744^30
 ;;^UTILITY(U,$J,358.3,13346,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13346,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Bilateral
 ;;^UTILITY(U,$J,358.3,13346,1,4,0)
 ;;=4^H18.833
 ;;^UTILITY(U,$J,358.3,13346,2)
 ;;=^5005128
 ;;^UTILITY(U,$J,358.3,13347,0)
 ;;=B00.51^^74^744^31
 ;;^UTILITY(U,$J,358.3,13347,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13347,1,3,0)
 ;;=3^Herpesviral Iridocyclitis
 ;;^UTILITY(U,$J,358.3,13347,1,4,0)
 ;;=4^B00.51
 ;;^UTILITY(U,$J,358.3,13347,2)
 ;;=^5000473
 ;;^UTILITY(U,$J,358.3,13348,0)
 ;;=B00.52^^74^744^32
 ;;^UTILITY(U,$J,358.3,13348,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13348,1,3,0)
 ;;=3^Herpesviral Keratitis
 ;;^UTILITY(U,$J,358.3,13348,1,4,0)
 ;;=4^B00.52
 ;;^UTILITY(U,$J,358.3,13348,2)
 ;;=^5000474
 ;;^UTILITY(U,$J,358.3,13349,0)
 ;;=B00.59^^74^744^33
 ;;^UTILITY(U,$J,358.3,13349,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13349,1,3,0)
 ;;=3^Herpes Viral Eye Disease
 ;;^UTILITY(U,$J,358.3,13349,1,4,0)
 ;;=4^B00.59
 ;;^UTILITY(U,$J,358.3,13349,2)
 ;;=^5000476
 ;;^UTILITY(U,$J,358.3,13350,0)
 ;;=B02.39^^74^744^34
 ;;^UTILITY(U,$J,358.3,13350,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13350,1,3,0)
 ;;=3^Herpes Zoster Eye Disease
 ;;^UTILITY(U,$J,358.3,13350,1,4,0)
 ;;=4^B02.39
 ;;^UTILITY(U,$J,358.3,13350,2)
 ;;=^5000498
 ;;^UTILITY(U,$J,358.3,13351,0)
 ;;=H16.309^^74^744^35
 ;;^UTILITY(U,$J,358.3,13351,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13351,1,3,0)
 ;;=3^Interstitial Keratitis,Unspec Eye
 ;;^UTILITY(U,$J,358.3,13351,1,4,0)
 ;;=4^H16.309
 ;;^UTILITY(U,$J,358.3,13351,2)
 ;;=^5133472
 ;;^UTILITY(U,$J,358.3,13352,0)
 ;;=S05.01XA^^74^744^36
 ;;^UTILITY(U,$J,358.3,13352,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13352,1,3,0)
 ;;=3^Corneal Abrasion w/o FB,Right Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,13352,1,4,0)
 ;;=4^S05.01XA
 ;;^UTILITY(U,$J,358.3,13352,2)
 ;;=^5020579
 ;;^UTILITY(U,$J,358.3,13353,0)
 ;;=S05.02XA^^74^744^37
 ;;^UTILITY(U,$J,358.3,13353,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13353,1,3,0)
 ;;=3^Corneal Abrasion w/o FB,Left Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,13353,1,4,0)
 ;;=4^S05.02XA
 ;;^UTILITY(U,$J,358.3,13353,2)
 ;;=^5020582
 ;;^UTILITY(U,$J,358.3,13354,0)
 ;;=T15.01XA^^74^744^38
 ;;^UTILITY(U,$J,358.3,13354,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13354,1,3,0)
 ;;=3^Corneal FB,Right Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,13354,1,4,0)
 ;;=4^T15.01XA
 ;;^UTILITY(U,$J,358.3,13354,2)
 ;;=^5046384
 ;;^UTILITY(U,$J,358.3,13355,0)
 ;;=T15.02XA^^74^744^39
 ;;^UTILITY(U,$J,358.3,13355,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13355,1,3,0)
 ;;=3^Corneal FB,Left Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,13355,1,4,0)
 ;;=4^T15.02XA
 ;;^UTILITY(U,$J,358.3,13355,2)
 ;;=^5046387
 ;;^UTILITY(U,$J,358.3,13356,0)
 ;;=H18.832^^74^744^29
 ;;^UTILITY(U,$J,358.3,13356,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13356,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Left Eye
 ;;^UTILITY(U,$J,358.3,13356,1,4,0)
 ;;=4^H18.832
 ;;^UTILITY(U,$J,358.3,13356,2)
 ;;=^5005127
 ;;^UTILITY(U,$J,358.3,13357,0)
 ;;=H18.831^^74^744^28
 ;;^UTILITY(U,$J,358.3,13357,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13357,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Right Eye
 ;;^UTILITY(U,$J,358.3,13357,1,4,0)
 ;;=4^H18.831
 ;;^UTILITY(U,$J,358.3,13357,2)
 ;;=^5005126
 ;;^UTILITY(U,$J,358.3,13358,0)
 ;;=H18.623^^74^744^25
 ;;^UTILITY(U,$J,358.3,13358,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13358,1,3,0)
 ;;=3^Keratoconus,Unstable,Bilateral
 ;;^UTILITY(U,$J,358.3,13358,1,4,0)
 ;;=4^H18.623
 ;;^UTILITY(U,$J,358.3,13358,2)
 ;;=^5005099
 ;;^UTILITY(U,$J,358.3,13359,0)
 ;;=H18.613^^74^744^24
 ;;^UTILITY(U,$J,358.3,13359,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13359,1,3,0)
 ;;=3^Keratoconus,Stable,Bilateral
 ;;^UTILITY(U,$J,358.3,13359,1,4,0)
 ;;=4^H18.613
 ;;^UTILITY(U,$J,358.3,13359,2)
 ;;=^5005095
 ;;^UTILITY(U,$J,358.3,13360,0)
 ;;=H16.423^^74^744^10
 ;;^UTILITY(U,$J,358.3,13360,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13360,1,3,0)
 ;;=3^Pannus (Corneal),Bilateral
 ;;^UTILITY(U,$J,358.3,13360,1,4,0)
 ;;=4^H16.423
 ;;^UTILITY(U,$J,358.3,13360,2)
 ;;=^5004974
 ;;^UTILITY(U,$J,358.3,13361,0)
 ;;=H16.422^^74^744^9
 ;;^UTILITY(U,$J,358.3,13361,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13361,1,3,0)
 ;;=3^Pannus (Corneal),Left Eye
 ;;^UTILITY(U,$J,358.3,13361,1,4,0)
 ;;=4^H16.422
 ;;^UTILITY(U,$J,358.3,13361,2)
 ;;=^5004973
 ;;^UTILITY(U,$J,358.3,13362,0)
 ;;=H16.421^^74^744^8
 ;;^UTILITY(U,$J,358.3,13362,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13362,1,3,0)
 ;;=3^Pannus (Corneal),Right Eye
 ;;^UTILITY(U,$J,358.3,13362,1,4,0)
 ;;=4^H16.421
 ;;^UTILITY(U,$J,358.3,13362,2)
 ;;=^5004972
 ;;^UTILITY(U,$J,358.3,13363,0)
 ;;=H18.511^^74^744^16
 ;;^UTILITY(U,$J,358.3,13363,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13363,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy,Right Eye
 ;;^UTILITY(U,$J,358.3,13363,1,4,0)
 ;;=4^H18.511
 ;;^UTILITY(U,$J,358.3,13363,2)
 ;;=^5159179
 ;;^UTILITY(U,$J,358.3,13364,0)
 ;;=H18.512^^74^744^17
 ;;^UTILITY(U,$J,358.3,13364,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13364,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy,Left Eye
 ;;^UTILITY(U,$J,358.3,13364,1,4,0)
 ;;=4^H18.512
 ;;^UTILITY(U,$J,358.3,13364,2)
 ;;=^5159180
 ;;^UTILITY(U,$J,358.3,13365,0)
 ;;=H18.513^^74^744^18
 ;;^UTILITY(U,$J,358.3,13365,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13365,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy,Bilateral
 ;;^UTILITY(U,$J,358.3,13365,1,4,0)
 ;;=4^H18.513
 ;;^UTILITY(U,$J,358.3,13365,2)
 ;;=^5159181
 ;;^UTILITY(U,$J,358.3,13366,0)
 ;;=H18.501^^74^744^19
 ;;^UTILITY(U,$J,358.3,13366,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13366,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Right Eye
 ;;^UTILITY(U,$J,358.3,13366,1,4,0)
 ;;=4^H18.501
 ;;^UTILITY(U,$J,358.3,13366,2)
 ;;=^5159175
 ;;^UTILITY(U,$J,358.3,13367,0)
 ;;=H18.502^^74^744^20
 ;;^UTILITY(U,$J,358.3,13367,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13367,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Left Eye
 ;;^UTILITY(U,$J,358.3,13367,1,4,0)
 ;;=4^H18.502
 ;;^UTILITY(U,$J,358.3,13367,2)
 ;;=^5159176
 ;;^UTILITY(U,$J,358.3,13368,0)
 ;;=H18.503^^74^744^21
 ;;^UTILITY(U,$J,358.3,13368,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13368,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Bilateral
 ;;^UTILITY(U,$J,358.3,13368,1,4,0)
 ;;=4^H18.503
 ;;^UTILITY(U,$J,358.3,13368,2)
 ;;=^5159177
 ;;^UTILITY(U,$J,358.3,13369,0)
 ;;=H25.11^^74^745^1
 ;;^UTILITY(U,$J,358.3,13369,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13369,1,3,0)
 ;;=3^Cataract,Nuclear Age-Related,Right Eye
 ;;^UTILITY(U,$J,358.3,13369,1,4,0)
 ;;=4^H25.11
 ;;^UTILITY(U,$J,358.3,13369,2)
 ;;=^5005284
 ;;^UTILITY(U,$J,358.3,13370,0)
 ;;=H25.12^^74^745^2
 ;;^UTILITY(U,$J,358.3,13370,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13370,1,3,0)
 ;;=3^Cataract,Nuclear Age-Related,Left Eye
 ;;^UTILITY(U,$J,358.3,13370,1,4,0)
 ;;=4^H25.12
 ;;^UTILITY(U,$J,358.3,13370,2)
 ;;=^5005285
 ;;^UTILITY(U,$J,358.3,13371,0)
 ;;=H25.13^^74^745^3
 ;;^UTILITY(U,$J,358.3,13371,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13371,1,3,0)
 ;;=3^Cataract,Nuclear Age-Related,Bilateral
 ;;^UTILITY(U,$J,358.3,13371,1,4,0)
 ;;=4^H25.13
 ;;^UTILITY(U,$J,358.3,13371,2)
 ;;=^5005286
 ;;^UTILITY(U,$J,358.3,13372,0)
 ;;=H25.019^^74^745^7
 ;;^UTILITY(U,$J,358.3,13372,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13372,1,3,0)
 ;;=3^Cataract,Cortical,Unspec Eye
 ;;^UTILITY(U,$J,358.3,13372,1,4,0)
 ;;=4^H25.019
 ;;^UTILITY(U,$J,358.3,13372,2)
 ;;=^5005270
 ;;^UTILITY(U,$J,358.3,13373,0)
 ;;=H25.049^^74^745^11
 ;;^UTILITY(U,$J,358.3,13373,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13373,1,3,0)
 ;;=3^Cataract,PSC,Unspec Eye
 ;;^UTILITY(U,$J,358.3,13373,1,4,0)
 ;;=4^H25.049
 ;;^UTILITY(U,$J,358.3,13373,2)
 ;;=^5005278
 ;;^UTILITY(U,$J,358.3,13374,0)
 ;;=H26.109^^74^745^38
 ;;^UTILITY(U,$J,358.3,13374,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13374,1,3,0)
 ;;=3^Cataract,Traumatic,Unspec Eye
 ;;^UTILITY(U,$J,358.3,13374,1,4,0)
 ;;=4^H26.109
 ;;^UTILITY(U,$J,358.3,13374,2)
 ;;=^5133478
 ;;^UTILITY(U,$J,358.3,13375,0)
 ;;=H53.71^^74^745^27
 ;;^UTILITY(U,$J,358.3,13375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13375,1,3,0)
 ;;=3^Glare Sensitivity
 ;;^UTILITY(U,$J,358.3,13375,1,4,0)
 ;;=4^H53.71
 ;;^UTILITY(U,$J,358.3,13375,2)
 ;;=^5006354
 ;;^UTILITY(U,$J,358.3,13376,0)
 ;;=H52.13^^74^745^15
 ;;^UTILITY(U,$J,358.3,13376,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13376,1,3,0)
 ;;=3^Myopia,Bilateral
 ;;^UTILITY(U,$J,358.3,13376,1,4,0)
 ;;=4^H52.13
 ;;^UTILITY(U,$J,358.3,13376,2)
 ;;=^5006266
 ;;^UTILITY(U,$J,358.3,13377,0)
 ;;=H52.03^^74^745^16
 ;;^UTILITY(U,$J,358.3,13377,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13377,1,3,0)
 ;;=3^Hypermetropia,Bilateral
 ;;^UTILITY(U,$J,358.3,13377,1,4,0)
 ;;=4^H52.03
 ;;^UTILITY(U,$J,358.3,13377,2)
 ;;=^5006262
 ;;^UTILITY(U,$J,358.3,13378,0)
 ;;=H52.203^^74^745^17
 ;;^UTILITY(U,$J,358.3,13378,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13378,1,3,0)
 ;;=3^Astigmatism,Bilateral
 ;;^UTILITY(U,$J,358.3,13378,1,4,0)
 ;;=4^H52.203
 ;;^UTILITY(U,$J,358.3,13378,2)
 ;;=^5006269
 ;;^UTILITY(U,$J,358.3,13379,0)
 ;;=Z98.49^^74^745^20
 ;;^UTILITY(U,$J,358.3,13379,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13379,1,3,0)
 ;;=3^Cataract Extraction Status,Unspec Eye
 ;;^UTILITY(U,$J,358.3,13379,1,4,0)
 ;;=4^Z98.49
 ;;^UTILITY(U,$J,358.3,13379,2)
 ;;=^5063739
 ;;^UTILITY(U,$J,358.3,13380,0)
 ;;=Z96.1^^74^745^21
 ;;^UTILITY(U,$J,358.3,13380,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,13380,1,3,0)
 ;;=3^Pseudophakia/Intraocular Lens,Unspec Eye
 ;;^UTILITY(U,$J,358.3,13380,1,4,0)
 ;;=4^Z96.1
 ;;^UTILITY(U,$J,358.3,13380,2)
 ;;=^5063682
 ;;^UTILITY(U,$J,358.3,13381,0)
 ;;=H26.491^^74^745^23