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

IBDEI02I.m

Go to the documentation of this file.
IBDEI02I ; ; 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,5826,1,4,0)
 ;;=4^H15.001
 ;;^UTILITY(U,$J,358.3,5826,2)
 ;;=^5004810
 ;;^UTILITY(U,$J,358.3,5827,0)
 ;;=H15.002^^37^315^17
 ;;^UTILITY(U,$J,358.3,5827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5827,1,3,0)
 ;;=3^Scleritis,Left Eye
 ;;^UTILITY(U,$J,358.3,5827,1,4,0)
 ;;=4^H15.002
 ;;^UTILITY(U,$J,358.3,5827,2)
 ;;=^5004811
 ;;^UTILITY(U,$J,358.3,5828,0)
 ;;=H11.001^^37^315^18
 ;;^UTILITY(U,$J,358.3,5828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5828,1,3,0)
 ;;=3^Pterygium,Right Eye
 ;;^UTILITY(U,$J,358.3,5828,1,4,0)
 ;;=4^H11.001
 ;;^UTILITY(U,$J,358.3,5828,2)
 ;;=^5004717
 ;;^UTILITY(U,$J,358.3,5829,0)
 ;;=H11.002^^37^315^19
 ;;^UTILITY(U,$J,358.3,5829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5829,1,3,0)
 ;;=3^Pterygium,Left Eye
 ;;^UTILITY(U,$J,358.3,5829,1,4,0)
 ;;=4^H11.002
 ;;^UTILITY(U,$J,358.3,5829,2)
 ;;=^5004718
 ;;^UTILITY(U,$J,358.3,5830,0)
 ;;=H11.151^^37^315^20
 ;;^UTILITY(U,$J,358.3,5830,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5830,1,3,0)
 ;;=3^Pinguecula,Right Eye
 ;;^UTILITY(U,$J,358.3,5830,1,4,0)
 ;;=4^H11.151
 ;;^UTILITY(U,$J,358.3,5830,2)
 ;;=^5004761
 ;;^UTILITY(U,$J,358.3,5831,0)
 ;;=H11.152^^37^315^21
 ;;^UTILITY(U,$J,358.3,5831,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5831,1,3,0)
 ;;=3^Pinguecula,Left Eye
 ;;^UTILITY(U,$J,358.3,5831,1,4,0)
 ;;=4^H11.152
 ;;^UTILITY(U,$J,358.3,5831,2)
 ;;=^5004762
 ;;^UTILITY(U,$J,358.3,5832,0)
 ;;=D31.01^^37^315^22
 ;;^UTILITY(U,$J,358.3,5832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5832,1,3,0)
 ;;=3^Benign Neop of Conj,Right Eye
 ;;^UTILITY(U,$J,358.3,5832,1,4,0)
 ;;=4^D31.01
 ;;^UTILITY(U,$J,358.3,5832,2)
 ;;=^5002112
 ;;^UTILITY(U,$J,358.3,5833,0)
 ;;=D31.02^^37^315^23
 ;;^UTILITY(U,$J,358.3,5833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5833,1,3,0)
 ;;=3^Benign Neop of Conj,Left Eye
 ;;^UTILITY(U,$J,358.3,5833,1,4,0)
 ;;=4^D31.02
 ;;^UTILITY(U,$J,358.3,5833,2)
 ;;=^5002113
 ;;^UTILITY(U,$J,358.3,5834,0)
 ;;=C69.01^^37^315^24
 ;;^UTILITY(U,$J,358.3,5834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5834,1,3,0)
 ;;=3^Malig Neop of Conj,Right Eye
 ;;^UTILITY(U,$J,358.3,5834,1,4,0)
 ;;=4^C69.01
 ;;^UTILITY(U,$J,358.3,5834,2)
 ;;=^5001267
 ;;^UTILITY(U,$J,358.3,5835,0)
 ;;=C69.02^^37^315^25
 ;;^UTILITY(U,$J,358.3,5835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5835,1,3,0)
 ;;=3^Malig Neop of Conj,Left Eye
 ;;^UTILITY(U,$J,358.3,5835,1,4,0)
 ;;=4^C69.02
 ;;^UTILITY(U,$J,358.3,5835,2)
 ;;=^5001268
 ;;^UTILITY(U,$J,358.3,5836,0)
 ;;=H11.231^^37^315^26
 ;;^UTILITY(U,$J,358.3,5836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5836,1,3,0)
 ;;=3^Symblepharon,Right Eye
 ;;^UTILITY(U,$J,358.3,5836,1,4,0)
 ;;=4^H11.231
 ;;^UTILITY(U,$J,358.3,5836,2)
 ;;=^5004773
 ;;^UTILITY(U,$J,358.3,5837,0)
 ;;=H11.232^^37^315^27
 ;;^UTILITY(U,$J,358.3,5837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5837,1,3,0)
 ;;=3^Symblepharon,Left Eye
 ;;^UTILITY(U,$J,358.3,5837,1,4,0)
 ;;=4^H11.232
 ;;^UTILITY(U,$J,358.3,5837,2)
 ;;=^5004774
 ;;^UTILITY(U,$J,358.3,5838,0)
 ;;=L10.81^^37^315^28
 ;;^UTILITY(U,$J,358.3,5838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5838,1,3,0)
 ;;=3^Paraneoplastic Pemphigus
 ;;^UTILITY(U,$J,358.3,5838,1,4,0)
 ;;=4^L10.81
 ;;^UTILITY(U,$J,358.3,5838,2)
 ;;=^5009088
 ;;^UTILITY(U,$J,358.3,5839,0)
 ;;=L12.9^^37^315^29
 ;;^UTILITY(U,$J,358.3,5839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5839,1,3,0)
 ;;=3^Pemphigoid,Unspec
 ;;^UTILITY(U,$J,358.3,5839,1,4,0)
 ;;=4^L12.9
 ;;^UTILITY(U,$J,358.3,5839,2)
 ;;=^5009102
 ;;^UTILITY(U,$J,358.3,5840,0)
 ;;=H16.011^^37^316^1
 ;;^UTILITY(U,$J,358.3,5840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5840,1,3,0)
 ;;=3^Central Corneal Ulcer,Right Eye
 ;;^UTILITY(U,$J,358.3,5840,1,4,0)
 ;;=4^H16.011
 ;;^UTILITY(U,$J,358.3,5840,2)
 ;;=^5004870
 ;;^UTILITY(U,$J,358.3,5841,0)
 ;;=H16.012^^37^316^2
 ;;^UTILITY(U,$J,358.3,5841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5841,1,3,0)
 ;;=3^Central Corneal Ulcer,Left Eye
 ;;^UTILITY(U,$J,358.3,5841,1,4,0)
 ;;=4^H16.012
 ;;^UTILITY(U,$J,358.3,5841,2)
 ;;=^5004871
 ;;^UTILITY(U,$J,358.3,5842,0)
 ;;=H16.049^^37^316^3
 ;;^UTILITY(U,$J,358.3,5842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5842,1,3,0)
 ;;=3^Marginal Corneal Ulcer,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5842,1,4,0)
 ;;=4^H16.049
 ;;^UTILITY(U,$J,358.3,5842,2)
 ;;=^5004885
 ;;^UTILITY(U,$J,358.3,5843,0)
 ;;=H17.10^^37^316^4
 ;;^UTILITY(U,$J,358.3,5843,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5843,1,3,0)
 ;;=3^Central Corneal Opacity,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5843,1,4,0)
 ;;=4^H17.10
 ;;^UTILITY(U,$J,358.3,5843,2)
 ;;=^5004990
 ;;^UTILITY(U,$J,358.3,5844,0)
 ;;=H17.9^^37^316^5
 ;;^UTILITY(U,$J,358.3,5844,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5844,1,3,0)
 ;;=3^Corneal Scar & Opacity
 ;;^UTILITY(U,$J,358.3,5844,1,4,0)
 ;;=4^H17.9
 ;;^UTILITY(U,$J,358.3,5844,2)
 ;;=^5005003
 ;;^UTILITY(U,$J,358.3,5845,0)
 ;;=H16.401^^37^316^6
 ;;^UTILITY(U,$J,358.3,5845,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5845,1,3,0)
 ;;=3^Corneal Neovascularization,Right Eye
 ;;^UTILITY(U,$J,358.3,5845,1,4,0)
 ;;=4^H16.401
 ;;^UTILITY(U,$J,358.3,5845,2)
 ;;=^5004965
 ;;^UTILITY(U,$J,358.3,5846,0)
 ;;=H16.402^^37^316^7
 ;;^UTILITY(U,$J,358.3,5846,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5846,1,3,0)
 ;;=3^Corneal Neovascularization,Left Eye
 ;;^UTILITY(U,$J,358.3,5846,1,4,0)
 ;;=4^H16.402
 ;;^UTILITY(U,$J,358.3,5846,2)
 ;;=^5004966
 ;;^UTILITY(U,$J,358.3,5847,0)
 ;;=H18.20^^37^316^11
 ;;^UTILITY(U,$J,358.3,5847,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5847,1,3,0)
 ;;=3^Corneal Edema
 ;;^UTILITY(U,$J,358.3,5847,1,4,0)
 ;;=4^H18.20
 ;;^UTILITY(U,$J,358.3,5847,2)
 ;;=^5005035
 ;;^UTILITY(U,$J,358.3,5848,0)
 ;;=H18.231^^37^316^12
 ;;^UTILITY(U,$J,358.3,5848,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5848,1,3,0)
 ;;=3^Corneal Edema,Right Eye,Secondary
 ;;^UTILITY(U,$J,358.3,5848,1,4,0)
 ;;=4^H18.231
 ;;^UTILITY(U,$J,358.3,5848,2)
 ;;=^5005044
 ;;^UTILITY(U,$J,358.3,5849,0)
 ;;=H18.232^^37^316^13
 ;;^UTILITY(U,$J,358.3,5849,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5849,1,3,0)
 ;;=3^Corneal Edema,Left Eye,Secondary
 ;;^UTILITY(U,$J,358.3,5849,1,4,0)
 ;;=4^H18.232
 ;;^UTILITY(U,$J,358.3,5849,2)
 ;;=^5005045
 ;;^UTILITY(U,$J,358.3,5850,0)
 ;;=H18.11^^37^316^14
 ;;^UTILITY(U,$J,358.3,5850,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5850,1,3,0)
 ;;=3^Bullous Keratopathy,Right Eye
 ;;^UTILITY(U,$J,358.3,5850,1,4,0)
 ;;=4^H18.11
 ;;^UTILITY(U,$J,358.3,5850,2)
 ;;=^5005032
 ;;^UTILITY(U,$J,358.3,5851,0)
 ;;=H18.12^^37^316^15
 ;;^UTILITY(U,$J,358.3,5851,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5851,1,3,0)
 ;;=3^Bullous Keratopathy,Left Eye
 ;;^UTILITY(U,$J,358.3,5851,1,4,0)
 ;;=4^H18.12
 ;;^UTILITY(U,$J,358.3,5851,2)
 ;;=^5005033
 ;;^UTILITY(U,$J,358.3,5852,0)
 ;;=H18.601^^37^316^22
 ;;^UTILITY(U,$J,358.3,5852,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5852,1,3,0)
 ;;=3^Keratoconus,Right Eye
 ;;^UTILITY(U,$J,358.3,5852,1,4,0)
 ;;=4^H18.601
 ;;^UTILITY(U,$J,358.3,5852,2)
 ;;=^5005089
 ;;^UTILITY(U,$J,358.3,5853,0)
 ;;=H18.602^^37^316^23
 ;;^UTILITY(U,$J,358.3,5853,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5853,1,3,0)
 ;;=3^Keratoconus,Left Eye
 ;;^UTILITY(U,$J,358.3,5853,1,4,0)
 ;;=4^H18.602
 ;;^UTILITY(U,$J,358.3,5853,2)
 ;;=^5005090
 ;;^UTILITY(U,$J,358.3,5854,0)
 ;;=H18.423^^37^316^26
 ;;^UTILITY(U,$J,358.3,5854,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5854,1,3,0)
 ;;=3^Band Keratopathy,Bilateral
 ;;^UTILITY(U,$J,358.3,5854,1,4,0)
 ;;=4^H18.423
 ;;^UTILITY(U,$J,358.3,5854,2)
 ;;=^5005068
 ;;^UTILITY(U,$J,358.3,5855,0)
 ;;=H16.213^^37^316^27
 ;;^UTILITY(U,$J,358.3,5855,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5855,1,3,0)
 ;;=3^Exposure Keratoconjunctivitis,Bilateral
 ;;^UTILITY(U,$J,358.3,5855,1,4,0)
 ;;=4^H16.213
 ;;^UTILITY(U,$J,358.3,5855,2)
 ;;=^5004922
 ;;^UTILITY(U,$J,358.3,5856,0)
 ;;=H18.833^^37^316^30
 ;;^UTILITY(U,$J,358.3,5856,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5856,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Bilateral
 ;;^UTILITY(U,$J,358.3,5856,1,4,0)
 ;;=4^H18.833
 ;;^UTILITY(U,$J,358.3,5856,2)
 ;;=^5005128
 ;;^UTILITY(U,$J,358.3,5857,0)
 ;;=B00.51^^37^316^31
 ;;^UTILITY(U,$J,358.3,5857,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5857,1,3,0)
 ;;=3^Herpesviral Iridocyclitis
 ;;^UTILITY(U,$J,358.3,5857,1,4,0)
 ;;=4^B00.51
 ;;^UTILITY(U,$J,358.3,5857,2)
 ;;=^5000473
 ;;^UTILITY(U,$J,358.3,5858,0)
 ;;=B00.52^^37^316^32
 ;;^UTILITY(U,$J,358.3,5858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5858,1,3,0)
 ;;=3^Herpesviral Keratitis
 ;;^UTILITY(U,$J,358.3,5858,1,4,0)
 ;;=4^B00.52
 ;;^UTILITY(U,$J,358.3,5858,2)
 ;;=^5000474
 ;;^UTILITY(U,$J,358.3,5859,0)
 ;;=B00.59^^37^316^33
 ;;^UTILITY(U,$J,358.3,5859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5859,1,3,0)
 ;;=3^Herpes Viral Eye Disease
 ;;^UTILITY(U,$J,358.3,5859,1,4,0)
 ;;=4^B00.59
 ;;^UTILITY(U,$J,358.3,5859,2)
 ;;=^5000476
 ;;^UTILITY(U,$J,358.3,5860,0)
 ;;=B02.39^^37^316^34
 ;;^UTILITY(U,$J,358.3,5860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5860,1,3,0)
 ;;=3^Herpes Zoster Eye Disease
 ;;^UTILITY(U,$J,358.3,5860,1,4,0)
 ;;=4^B02.39
 ;;^UTILITY(U,$J,358.3,5860,2)
 ;;=^5000498
 ;;^UTILITY(U,$J,358.3,5861,0)
 ;;=H16.309^^37^316^35
 ;;^UTILITY(U,$J,358.3,5861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5861,1,3,0)
 ;;=3^Interstitial Keratitis,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5861,1,4,0)
 ;;=4^H16.309
 ;;^UTILITY(U,$J,358.3,5861,2)
 ;;=^5133472
 ;;^UTILITY(U,$J,358.3,5862,0)
 ;;=S05.01XA^^37^316^36
 ;;^UTILITY(U,$J,358.3,5862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5862,1,3,0)
 ;;=3^Corneal Abrasion w/o FB,Right Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,5862,1,4,0)
 ;;=4^S05.01XA
 ;;^UTILITY(U,$J,358.3,5862,2)
 ;;=^5020579
 ;;^UTILITY(U,$J,358.3,5863,0)
 ;;=S05.02XA^^37^316^37
 ;;^UTILITY(U,$J,358.3,5863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5863,1,3,0)
 ;;=3^Corneal Abrasion w/o FB,Left Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,5863,1,4,0)
 ;;=4^S05.02XA
 ;;^UTILITY(U,$J,358.3,5863,2)
 ;;=^5020582
 ;;^UTILITY(U,$J,358.3,5864,0)
 ;;=T15.01XA^^37^316^38
 ;;^UTILITY(U,$J,358.3,5864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5864,1,3,0)
 ;;=3^Corneal FB,Right Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,5864,1,4,0)
 ;;=4^T15.01XA
 ;;^UTILITY(U,$J,358.3,5864,2)
 ;;=^5046384
 ;;^UTILITY(U,$J,358.3,5865,0)
 ;;=T15.02XA^^37^316^39
 ;;^UTILITY(U,$J,358.3,5865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5865,1,3,0)
 ;;=3^Corneal FB,Left Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,5865,1,4,0)
 ;;=4^T15.02XA
 ;;^UTILITY(U,$J,358.3,5865,2)
 ;;=^5046387
 ;;^UTILITY(U,$J,358.3,5866,0)
 ;;=H18.832^^37^316^29
 ;;^UTILITY(U,$J,358.3,5866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5866,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Left Eye
 ;;^UTILITY(U,$J,358.3,5866,1,4,0)
 ;;=4^H18.832
 ;;^UTILITY(U,$J,358.3,5866,2)
 ;;=^5005127
 ;;^UTILITY(U,$J,358.3,5867,0)
 ;;=H18.831^^37^316^28
 ;;^UTILITY(U,$J,358.3,5867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5867,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Right Eye
 ;;^UTILITY(U,$J,358.3,5867,1,4,0)
 ;;=4^H18.831
 ;;^UTILITY(U,$J,358.3,5867,2)
 ;;=^5005126
 ;;^UTILITY(U,$J,358.3,5868,0)
 ;;=H18.623^^37^316^25
 ;;^UTILITY(U,$J,358.3,5868,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5868,1,3,0)
 ;;=3^Keratoconus,Unstable,Bilateral
 ;;^UTILITY(U,$J,358.3,5868,1,4,0)
 ;;=4^H18.623
 ;;^UTILITY(U,$J,358.3,5868,2)
 ;;=^5005099
 ;;^UTILITY(U,$J,358.3,5869,0)
 ;;=H18.613^^37^316^24
 ;;^UTILITY(U,$J,358.3,5869,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5869,1,3,0)
 ;;=3^Keratoconus,Stable,Bilateral
 ;;^UTILITY(U,$J,358.3,5869,1,4,0)
 ;;=4^H18.613
 ;;^UTILITY(U,$J,358.3,5869,2)
 ;;=^5005095
 ;;^UTILITY(U,$J,358.3,5870,0)
 ;;=H16.423^^37^316^10
 ;;^UTILITY(U,$J,358.3,5870,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5870,1,3,0)
 ;;=3^Pannus (Corneal),Bilateral
 ;;^UTILITY(U,$J,358.3,5870,1,4,0)
 ;;=4^H16.423
 ;;^UTILITY(U,$J,358.3,5870,2)
 ;;=^5004974
 ;;^UTILITY(U,$J,358.3,5871,0)
 ;;=H16.422^^37^316^9
 ;;^UTILITY(U,$J,358.3,5871,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5871,1,3,0)
 ;;=3^Pannus (Corneal),Left Eye
 ;;^UTILITY(U,$J,358.3,5871,1,4,0)
 ;;=4^H16.422
 ;;^UTILITY(U,$J,358.3,5871,2)
 ;;=^5004973
 ;;^UTILITY(U,$J,358.3,5872,0)
 ;;=H16.421^^37^316^8
 ;;^UTILITY(U,$J,358.3,5872,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5872,1,3,0)
 ;;=3^Pannus (Corneal),Right Eye
 ;;^UTILITY(U,$J,358.3,5872,1,4,0)
 ;;=4^H16.421
 ;;^UTILITY(U,$J,358.3,5872,2)
 ;;=^5004972
 ;;^UTILITY(U,$J,358.3,5873,0)
 ;;=H18.511^^37^316^16
 ;;^UTILITY(U,$J,358.3,5873,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5873,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy,Right Eye
 ;;^UTILITY(U,$J,358.3,5873,1,4,0)
 ;;=4^H18.511
 ;;^UTILITY(U,$J,358.3,5873,2)
 ;;=^5159179
 ;;^UTILITY(U,$J,358.3,5874,0)
 ;;=H18.512^^37^316^17
 ;;^UTILITY(U,$J,358.3,5874,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5874,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy,Left Eye
 ;;^UTILITY(U,$J,358.3,5874,1,4,0)
 ;;=4^H18.512
 ;;^UTILITY(U,$J,358.3,5874,2)
 ;;=^5159180
 ;;^UTILITY(U,$J,358.3,5875,0)
 ;;=H18.513^^37^316^18
 ;;^UTILITY(U,$J,358.3,5875,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5875,1,3,0)
 ;;=3^Endothelial Corneal Dystrophy,Bilateral
 ;;^UTILITY(U,$J,358.3,5875,1,4,0)
 ;;=4^H18.513
 ;;^UTILITY(U,$J,358.3,5875,2)
 ;;=^5159181
 ;;^UTILITY(U,$J,358.3,5876,0)
 ;;=H18.501^^37^316^19
 ;;^UTILITY(U,$J,358.3,5876,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5876,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Right Eye
 ;;^UTILITY(U,$J,358.3,5876,1,4,0)
 ;;=4^H18.501
 ;;^UTILITY(U,$J,358.3,5876,2)
 ;;=^5159175
 ;;^UTILITY(U,$J,358.3,5877,0)
 ;;=H18.502^^37^316^20
 ;;^UTILITY(U,$J,358.3,5877,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5877,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Left Eye
 ;;^UTILITY(U,$J,358.3,5877,1,4,0)
 ;;=4^H18.502
 ;;^UTILITY(U,$J,358.3,5877,2)
 ;;=^5159176
 ;;^UTILITY(U,$J,358.3,5878,0)
 ;;=H18.503^^37^316^21
 ;;^UTILITY(U,$J,358.3,5878,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5878,1,3,0)
 ;;=3^Hereditary Corneal Dystrophies,Bilateral
 ;;^UTILITY(U,$J,358.3,5878,1,4,0)
 ;;=4^H18.503
 ;;^UTILITY(U,$J,358.3,5878,2)
 ;;=^5159177
 ;;^UTILITY(U,$J,358.3,5879,0)
 ;;=H25.11^^37^317^1
 ;;^UTILITY(U,$J,358.3,5879,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5879,1,3,0)
 ;;=3^Cataract,Nuclear Age-Related,Right Eye
 ;;^UTILITY(U,$J,358.3,5879,1,4,0)
 ;;=4^H25.11
 ;;^UTILITY(U,$J,358.3,5879,2)
 ;;=^5005284
 ;;^UTILITY(U,$J,358.3,5880,0)
 ;;=H25.12^^37^317^2
 ;;^UTILITY(U,$J,358.3,5880,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5880,1,3,0)
 ;;=3^Cataract,Nuclear Age-Related,Left Eye
 ;;^UTILITY(U,$J,358.3,5880,1,4,0)
 ;;=4^H25.12
 ;;^UTILITY(U,$J,358.3,5880,2)
 ;;=^5005285
 ;;^UTILITY(U,$J,358.3,5881,0)
 ;;=H25.13^^37^317^3
 ;;^UTILITY(U,$J,358.3,5881,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5881,1,3,0)
 ;;=3^Cataract,Nuclear Age-Related,Bilateral
 ;;^UTILITY(U,$J,358.3,5881,1,4,0)
 ;;=4^H25.13
 ;;^UTILITY(U,$J,358.3,5881,2)
 ;;=^5005286
 ;;^UTILITY(U,$J,358.3,5882,0)
 ;;=H25.019^^37^317^7
 ;;^UTILITY(U,$J,358.3,5882,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5882,1,3,0)
 ;;=3^Cataract,Cortical,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5882,1,4,0)
 ;;=4^H25.019
 ;;^UTILITY(U,$J,358.3,5882,2)
 ;;=^5005270
 ;;^UTILITY(U,$J,358.3,5883,0)
 ;;=H25.049^^37^317^11
 ;;^UTILITY(U,$J,358.3,5883,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5883,1,3,0)
 ;;=3^Cataract,PSC,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5883,1,4,0)
 ;;=4^H25.049
 ;;^UTILITY(U,$J,358.3,5883,2)
 ;;=^5005278
 ;;^UTILITY(U,$J,358.3,5884,0)
 ;;=H26.109^^37^317^38
 ;;^UTILITY(U,$J,358.3,5884,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5884,1,3,0)
 ;;=3^Cataract,Traumatic,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5884,1,4,0)
 ;;=4^H26.109
 ;;^UTILITY(U,$J,358.3,5884,2)
 ;;=^5133478
 ;;^UTILITY(U,$J,358.3,5885,0)
 ;;=H53.71^^37^317^27
 ;;^UTILITY(U,$J,358.3,5885,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5885,1,3,0)
 ;;=3^Glare Sensitivity
 ;;^UTILITY(U,$J,358.3,5885,1,4,0)
 ;;=4^H53.71
 ;;^UTILITY(U,$J,358.3,5885,2)
 ;;=^5006354
 ;;^UTILITY(U,$J,358.3,5886,0)
 ;;=H52.13^^37^317^15
 ;;^UTILITY(U,$J,358.3,5886,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5886,1,3,0)
 ;;=3^Myopia,Bilateral
 ;;^UTILITY(U,$J,358.3,5886,1,4,0)
 ;;=4^H52.13
 ;;^UTILITY(U,$J,358.3,5886,2)
 ;;=^5006266
 ;;^UTILITY(U,$J,358.3,5887,0)
 ;;=H52.03^^37^317^16
 ;;^UTILITY(U,$J,358.3,5887,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5887,1,3,0)
 ;;=3^Hypermetropia,Bilateral
 ;;^UTILITY(U,$J,358.3,5887,1,4,0)
 ;;=4^H52.03
 ;;^UTILITY(U,$J,358.3,5887,2)
 ;;=^5006262
 ;;^UTILITY(U,$J,358.3,5888,0)
 ;;=H52.203^^37^317^17
 ;;^UTILITY(U,$J,358.3,5888,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5888,1,3,0)
 ;;=3^Astigmatism,Bilateral
 ;;^UTILITY(U,$J,358.3,5888,1,4,0)
 ;;=4^H52.203
 ;;^UTILITY(U,$J,358.3,5888,2)
 ;;=^5006269
 ;;^UTILITY(U,$J,358.3,5889,0)
 ;;=Z98.49^^37^317^20
 ;;^UTILITY(U,$J,358.3,5889,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5889,1,3,0)
 ;;=3^Cataract Extraction Status,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5889,1,4,0)
 ;;=4^Z98.49
 ;;^UTILITY(U,$J,358.3,5889,2)
 ;;=^5063739
 ;;^UTILITY(U,$J,358.3,5890,0)
 ;;=Z96.1^^37^317^21
 ;;^UTILITY(U,$J,358.3,5890,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5890,1,3,0)
 ;;=3^Pseudophakia/Intraocular Lens,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5890,1,4,0)
 ;;=4^Z96.1
 ;;^UTILITY(U,$J,358.3,5890,2)
 ;;=^5063682
 ;;^UTILITY(U,$J,358.3,5891,0)
 ;;=H26.491^^37^317^23
 ;;^UTILITY(U,$J,358.3,5891,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5891,1,3,0)
 ;;=3^PCO/Secondary Cataract,Right Eye
 ;;^UTILITY(U,$J,358.3,5891,1,4,0)
 ;;=4^H26.491
 ;;^UTILITY(U,$J,358.3,5891,2)
 ;;=^5005358
 ;;^UTILITY(U,$J,358.3,5892,0)
 ;;=H26.492^^37^317^24
 ;;^UTILITY(U,$J,358.3,5892,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5892,1,3,0)
 ;;=3^PCO/Secondary Cataract,Left Eye
 ;;^UTILITY(U,$J,358.3,5892,1,4,0)
 ;;=4^H26.492
 ;;^UTILITY(U,$J,358.3,5892,2)
 ;;=^5005359
 ;;^UTILITY(U,$J,358.3,5893,0)
 ;;=H59.031^^37^317^25
 ;;^UTILITY(U,$J,358.3,5893,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5893,1,3,0)
 ;;=3^CME after Cataract Surgery,Right Eye
 ;;^UTILITY(U,$J,358.3,5893,1,4,0)
 ;;=4^H59.031
 ;;^UTILITY(U,$J,358.3,5893,2)
 ;;=^5006393
 ;;^UTILITY(U,$J,358.3,5894,0)
 ;;=H59.032^^37^317^26
 ;;^UTILITY(U,$J,358.3,5894,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5894,1,3,0)
 ;;=3^CME after Cataract Surgery,Left Eye
 ;;^UTILITY(U,$J,358.3,5894,1,4,0)
 ;;=4^H59.032
 ;;^UTILITY(U,$J,358.3,5894,2)
 ;;=^5006394
 ;;^UTILITY(U,$J,358.3,5895,0)
 ;;=H20.9^^37^317^28
 ;;^UTILITY(U,$J,358.3,5895,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5895,1,3,0)
 ;;=3^Iridocyclitis,Unspec
 ;;^UTILITY(U,$J,358.3,5895,1,4,0)
 ;;=4^H20.9
 ;;^UTILITY(U,$J,358.3,5895,2)
 ;;=^5005170
 ;;^UTILITY(U,$J,358.3,5896,0)
 ;;=H20.21^^37^317^29
 ;;^UTILITY(U,$J,358.3,5896,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5896,1,3,0)
 ;;=3^Iridocyclitis,Lens-Induced,Right Eye
 ;;^UTILITY(U,$J,358.3,5896,1,4,0)
 ;;=4^H20.21