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

IBDEI02V.m

Go to the documentation of this file.
IBDEI02V ; ; 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,6760,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/o Macular Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,6760,1,4,0)
 ;;=4^E11.3391
 ;;^UTILITY(U,$J,358.3,6760,2)
 ;;=^5138343
 ;;^UTILITY(U,$J,358.3,6761,0)
 ;;=E11.3392^^40^365^17
 ;;^UTILITY(U,$J,358.3,6761,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6761,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/o Macular Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,6761,1,4,0)
 ;;=4^E11.3392
 ;;^UTILITY(U,$J,358.3,6761,2)
 ;;=^5138344
 ;;^UTILITY(U,$J,358.3,6762,0)
 ;;=H35.3230^^40^365^23
 ;;^UTILITY(U,$J,358.3,6762,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6762,1,3,0)
 ;;=3^Exudative ARMD,Bilateral
 ;;^UTILITY(U,$J,358.3,6762,1,4,0)
 ;;=4^H35.3230
 ;;^UTILITY(U,$J,358.3,6762,2)
 ;;=^5138528
 ;;^UTILITY(U,$J,358.3,6763,0)
 ;;=H35.3130^^40^365^35
 ;;^UTILITY(U,$J,358.3,6763,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6763,1,3,0)
 ;;=3^Nonexudative ARMD,Bilateral
 ;;^UTILITY(U,$J,358.3,6763,1,4,0)
 ;;=4^H35.3130
 ;;^UTILITY(U,$J,358.3,6763,2)
 ;;=^5138510
 ;;^UTILITY(U,$J,358.3,6764,0)
 ;;=Z13.5^^40^365^45
 ;;^UTILITY(U,$J,358.3,6764,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6764,1,3,0)
 ;;=3^Screening for Eye and Ear Disorders
 ;;^UTILITY(U,$J,358.3,6764,1,4,0)
 ;;=4^Z13.5
 ;;^UTILITY(U,$J,358.3,6764,2)
 ;;=^5062706
 ;;^UTILITY(U,$J,358.3,6765,0)
 ;;=Z48.810^^40^365^1
 ;;^UTILITY(U,$J,358.3,6765,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6765,1,3,0)
 ;;=3^Aftercare Following EYE Surgery
 ;;^UTILITY(U,$J,358.3,6765,1,4,0)
 ;;=4^Z48.810
 ;;^UTILITY(U,$J,358.3,6765,2)
 ;;=^5063047
 ;;^UTILITY(U,$J,358.3,6766,0)
 ;;=H02.889^^40^365^33
 ;;^UTILITY(U,$J,358.3,6766,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6766,1,3,0)
 ;;=3^Meibomian Gland Dysfunction,Unspec
 ;;^UTILITY(U,$J,358.3,6766,1,4,0)
 ;;=4^H02.889
 ;;^UTILITY(U,$J,358.3,6766,2)
 ;;=^5157349
 ;;^UTILITY(U,$J,358.3,6767,0)
 ;;=H43.813^^40^365^48
 ;;^UTILITY(U,$J,358.3,6767,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6767,1,3,0)
 ;;=3^Vitreous Degeneration,Bilateral
 ;;^UTILITY(U,$J,358.3,6767,1,4,0)
 ;;=4^H43.813
 ;;^UTILITY(U,$J,358.3,6767,2)
 ;;=^5005955
 ;;^UTILITY(U,$J,358.3,6768,0)
 ;;=H26.491^^40^365^40
 ;;^UTILITY(U,$J,358.3,6768,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6768,1,3,0)
 ;;=3^PCO/Secondary Cataract,Right Eye
 ;;^UTILITY(U,$J,358.3,6768,1,4,0)
 ;;=4^H26.491
 ;;^UTILITY(U,$J,358.3,6768,2)
 ;;=^5005358
 ;;^UTILITY(U,$J,358.3,6769,0)
 ;;=H26.492^^40^365^39
 ;;^UTILITY(U,$J,358.3,6769,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6769,1,3,0)
 ;;=3^PCO/Secondary Cataract,Left Eye
 ;;^UTILITY(U,$J,358.3,6769,1,4,0)
 ;;=4^H26.492
 ;;^UTILITY(U,$J,358.3,6769,2)
 ;;=^5005359
 ;;^UTILITY(U,$J,358.3,6770,0)
 ;;=D31.31^^40^365^4
 ;;^UTILITY(U,$J,358.3,6770,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6770,1,3,0)
 ;;=3^Benign Neop/Nevus Choroid,Right Eye
 ;;^UTILITY(U,$J,358.3,6770,1,4,0)
 ;;=4^D31.31
 ;;^UTILITY(U,$J,358.3,6770,2)
 ;;=^5002121
 ;;^UTILITY(U,$J,358.3,6771,0)
 ;;=D31.32^^40^365^3
 ;;^UTILITY(U,$J,358.3,6771,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6771,1,3,0)
 ;;=3^Benign Neop/Nevus Choroid,Left Eye
 ;;^UTILITY(U,$J,358.3,6771,1,4,0)
 ;;=4^D31.32
 ;;^UTILITY(U,$J,358.3,6771,2)
 ;;=^5002122
 ;;^UTILITY(U,$J,358.3,6772,0)
 ;;=H40.1131^^40^365^42
 ;;^UTILITY(U,$J,358.3,6772,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6772,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Mild Stage,Bilateral
 ;;^UTILITY(U,$J,358.3,6772,1,4,0)
 ;;=4^H40.1131
 ;;^UTILITY(U,$J,358.3,6772,2)
 ;;=^5138547
 ;;^UTILITY(U,$J,358.3,6773,0)
 ;;=H40.1132^^40^365^43
 ;;^UTILITY(U,$J,358.3,6773,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6773,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Moderate Stage,Bilateral
 ;;^UTILITY(U,$J,358.3,6773,1,4,0)
 ;;=4^H40.1132
 ;;^UTILITY(U,$J,358.3,6773,2)
 ;;=^5138548
 ;;^UTILITY(U,$J,358.3,6774,0)
 ;;=H40.013^^40^365^28
 ;;^UTILITY(U,$J,358.3,6774,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6774,1,3,0)
 ;;=3^Glaucoma Suspect,Low Risk,Bilateral,Open Angle
 ;;^UTILITY(U,$J,358.3,6774,1,4,0)
 ;;=4^H40.013
 ;;^UTILITY(U,$J,358.3,6774,2)
 ;;=^5005726
 ;;^UTILITY(U,$J,358.3,6775,0)
 ;;=H40.1133^^40^365^44
 ;;^UTILITY(U,$J,358.3,6775,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6775,1,3,0)
 ;;=3^Primary Open-Angle Gluacoma,Severe Stage,Bilateral
 ;;^UTILITY(U,$J,358.3,6775,1,4,0)
 ;;=4^H40.1133
 ;;^UTILITY(U,$J,358.3,6775,2)
 ;;=^5138549
 ;;^UTILITY(U,$J,358.3,6776,0)
 ;;=H43.811^^40^365^47
 ;;^UTILITY(U,$J,358.3,6776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6776,1,3,0)
 ;;=3^Vitreous Degeneration,Right Eye
 ;;^UTILITY(U,$J,358.3,6776,1,4,0)
 ;;=4^H43.811
 ;;^UTILITY(U,$J,358.3,6776,2)
 ;;=^5005953
 ;;^UTILITY(U,$J,358.3,6777,0)
 ;;=H43.812^^40^365^46
 ;;^UTILITY(U,$J,358.3,6777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6777,1,3,0)
 ;;=3^Vitreous Degeneration,Left Eye
 ;;^UTILITY(U,$J,358.3,6777,1,4,0)
 ;;=4^H43.812
 ;;^UTILITY(U,$J,358.3,6777,2)
 ;;=^5005954
 ;;^UTILITY(U,$J,358.3,6778,0)
 ;;=H10.31^^40^366^1
 ;;^UTILITY(U,$J,358.3,6778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6778,1,3,0)
 ;;=3^Conjunctivitis,Acute,Right Eye
 ;;^UTILITY(U,$J,358.3,6778,1,4,0)
 ;;=4^H10.31
 ;;^UTILITY(U,$J,358.3,6778,2)
 ;;=^5133458
 ;;^UTILITY(U,$J,358.3,6779,0)
 ;;=H10.32^^40^366^2
 ;;^UTILITY(U,$J,358.3,6779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6779,1,3,0)
 ;;=3^Conjunctivitis,Acute,Left Eye
 ;;^UTILITY(U,$J,358.3,6779,1,4,0)
 ;;=4^H10.32
 ;;^UTILITY(U,$J,358.3,6779,2)
 ;;=^5133459
 ;;^UTILITY(U,$J,358.3,6780,0)
 ;;=H10.401^^40^366^3
 ;;^UTILITY(U,$J,358.3,6780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6780,1,3,0)
 ;;=3^Conjunctivitis,Chronic,Right Eye
 ;;^UTILITY(U,$J,358.3,6780,1,4,0)
 ;;=4^H10.401
 ;;^UTILITY(U,$J,358.3,6780,2)
 ;;=^5004681
 ;;^UTILITY(U,$J,358.3,6781,0)
 ;;=H10.402^^40^366^4
 ;;^UTILITY(U,$J,358.3,6781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6781,1,3,0)
 ;;=3^Conjunctivitis,Chronic,Left Eye
 ;;^UTILITY(U,$J,358.3,6781,1,4,0)
 ;;=4^H10.402
 ;;^UTILITY(U,$J,358.3,6781,2)
 ;;=^5004682
 ;;^UTILITY(U,$J,358.3,6782,0)
 ;;=H10.403^^40^366^5
 ;;^UTILITY(U,$J,358.3,6782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6782,1,3,0)
 ;;=3^Conjunctivitis,Chronic,Bilateral
 ;;^UTILITY(U,$J,358.3,6782,1,4,0)
 ;;=4^H10.403
 ;;^UTILITY(U,$J,358.3,6782,2)
 ;;=^5004683
 ;;^UTILITY(U,$J,358.3,6783,0)
 ;;=H10.45^^40^366^6
 ;;^UTILITY(U,$J,358.3,6783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6783,1,3,0)
 ;;=3^Conjunctivitis,Allergic,Chronic
 ;;^UTILITY(U,$J,358.3,6783,1,4,0)
 ;;=4^H10.45
 ;;^UTILITY(U,$J,358.3,6783,2)
 ;;=^87396
 ;;^UTILITY(U,$J,358.3,6784,0)
 ;;=B30.8^^40^366^7
 ;;^UTILITY(U,$J,358.3,6784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6784,1,3,0)
 ;;=3^Conjunctivitis,Viral
 ;;^UTILITY(U,$J,358.3,6784,1,4,0)
 ;;=4^B30.8
 ;;^UTILITY(U,$J,358.3,6784,2)
 ;;=^88239
 ;;^UTILITY(U,$J,358.3,6785,0)
 ;;=H10.13^^40^366^8
 ;;^UTILITY(U,$J,358.3,6785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6785,1,3,0)
 ;;=3^Conjunctivitis,Atopic,Bilateral
 ;;^UTILITY(U,$J,358.3,6785,1,4,0)
 ;;=4^H10.13
 ;;^UTILITY(U,$J,358.3,6785,2)
 ;;=^5004667
 ;;^UTILITY(U,$J,358.3,6786,0)
 ;;=H10.419^^40^366^9
 ;;^UTILITY(U,$J,358.3,6786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6786,1,3,0)
 ;;=3^Giant Papillary Conjunctivitis,Chronic
 ;;^UTILITY(U,$J,358.3,6786,1,4,0)
 ;;=4^H10.419
 ;;^UTILITY(U,$J,358.3,6786,2)
 ;;=^5004687
 ;;^UTILITY(U,$J,358.3,6787,0)
 ;;=H10.219^^40^366^10
 ;;^UTILITY(U,$J,358.3,6787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6787,1,3,0)
 ;;=3^Toxic Conjunctivitis,Acute
 ;;^UTILITY(U,$J,358.3,6787,1,4,0)
 ;;=4^H10.219
 ;;^UTILITY(U,$J,358.3,6787,2)
 ;;=^5004671
 ;;^UTILITY(U,$J,358.3,6788,0)
 ;;=M35.01^^40^366^11
 ;;^UTILITY(U,$J,358.3,6788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6788,1,3,0)
 ;;=3^Keratoconjunctivitis w/ Sicca Syndrome
 ;;^UTILITY(U,$J,358.3,6788,1,4,0)
 ;;=4^M35.01
 ;;^UTILITY(U,$J,358.3,6788,2)
 ;;=^5011787
 ;;^UTILITY(U,$J,358.3,6789,0)
 ;;=H11.31^^40^366^12
 ;;^UTILITY(U,$J,358.3,6789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6789,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Right Eye
 ;;^UTILITY(U,$J,358.3,6789,1,4,0)
 ;;=4^H11.31
 ;;^UTILITY(U,$J,358.3,6789,2)
 ;;=^5004782
 ;;^UTILITY(U,$J,358.3,6790,0)
 ;;=H11.32^^40^366^13
 ;;^UTILITY(U,$J,358.3,6790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6790,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Left Eye
 ;;^UTILITY(U,$J,358.3,6790,1,4,0)
 ;;=4^H11.32
 ;;^UTILITY(U,$J,358.3,6790,2)
 ;;=^5004783
 ;;^UTILITY(U,$J,358.3,6791,0)
 ;;=H15.101^^40^366^14
 ;;^UTILITY(U,$J,358.3,6791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6791,1,3,0)
 ;;=3^Episcleritis,Right Eye
 ;;^UTILITY(U,$J,358.3,6791,1,4,0)
 ;;=4^H15.101
 ;;^UTILITY(U,$J,358.3,6791,2)
 ;;=^5004835
 ;;^UTILITY(U,$J,358.3,6792,0)
 ;;=H15.102^^40^366^15
 ;;^UTILITY(U,$J,358.3,6792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6792,1,3,0)
 ;;=3^Episcleritis,Left Eye
 ;;^UTILITY(U,$J,358.3,6792,1,4,0)
 ;;=4^H15.102
 ;;^UTILITY(U,$J,358.3,6792,2)
 ;;=^5004836
 ;;^UTILITY(U,$J,358.3,6793,0)
 ;;=H15.001^^40^366^16
 ;;^UTILITY(U,$J,358.3,6793,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6793,1,3,0)
 ;;=3^Scleritis,Right Eye
 ;;^UTILITY(U,$J,358.3,6793,1,4,0)
 ;;=4^H15.001
 ;;^UTILITY(U,$J,358.3,6793,2)
 ;;=^5004810
 ;;^UTILITY(U,$J,358.3,6794,0)
 ;;=H15.002^^40^366^17
 ;;^UTILITY(U,$J,358.3,6794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6794,1,3,0)
 ;;=3^Scleritis,Left Eye
 ;;^UTILITY(U,$J,358.3,6794,1,4,0)
 ;;=4^H15.002
 ;;^UTILITY(U,$J,358.3,6794,2)
 ;;=^5004811
 ;;^UTILITY(U,$J,358.3,6795,0)
 ;;=H11.001^^40^366^18
 ;;^UTILITY(U,$J,358.3,6795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6795,1,3,0)
 ;;=3^Pterygium,Right Eye
 ;;^UTILITY(U,$J,358.3,6795,1,4,0)
 ;;=4^H11.001
 ;;^UTILITY(U,$J,358.3,6795,2)
 ;;=^5004717
 ;;^UTILITY(U,$J,358.3,6796,0)
 ;;=H11.002^^40^366^19
 ;;^UTILITY(U,$J,358.3,6796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6796,1,3,0)
 ;;=3^Pterygium,Left Eye
 ;;^UTILITY(U,$J,358.3,6796,1,4,0)
 ;;=4^H11.002
 ;;^UTILITY(U,$J,358.3,6796,2)
 ;;=^5004718
 ;;^UTILITY(U,$J,358.3,6797,0)
 ;;=H11.151^^40^366^20
 ;;^UTILITY(U,$J,358.3,6797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6797,1,3,0)
 ;;=3^Pinguecula,Right Eye
 ;;^UTILITY(U,$J,358.3,6797,1,4,0)
 ;;=4^H11.151
 ;;^UTILITY(U,$J,358.3,6797,2)
 ;;=^5004761
 ;;^UTILITY(U,$J,358.3,6798,0)
 ;;=H11.152^^40^366^21
 ;;^UTILITY(U,$J,358.3,6798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6798,1,3,0)
 ;;=3^Pinguecula,Left Eye
 ;;^UTILITY(U,$J,358.3,6798,1,4,0)
 ;;=4^H11.152
 ;;^UTILITY(U,$J,358.3,6798,2)
 ;;=^5004762
 ;;^UTILITY(U,$J,358.3,6799,0)
 ;;=D31.01^^40^366^22
 ;;^UTILITY(U,$J,358.3,6799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6799,1,3,0)
 ;;=3^Benign Neop of Conj,Right Eye
 ;;^UTILITY(U,$J,358.3,6799,1,4,0)
 ;;=4^D31.01
 ;;^UTILITY(U,$J,358.3,6799,2)
 ;;=^5002112
 ;;^UTILITY(U,$J,358.3,6800,0)
 ;;=D31.02^^40^366^23
 ;;^UTILITY(U,$J,358.3,6800,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6800,1,3,0)
 ;;=3^Benign Neop of Conj,Left Eye
 ;;^UTILITY(U,$J,358.3,6800,1,4,0)
 ;;=4^D31.02
 ;;^UTILITY(U,$J,358.3,6800,2)
 ;;=^5002113
 ;;^UTILITY(U,$J,358.3,6801,0)
 ;;=C69.01^^40^366^24
 ;;^UTILITY(U,$J,358.3,6801,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6801,1,3,0)
 ;;=3^Malig Neop of Conj,Right Eye
 ;;^UTILITY(U,$J,358.3,6801,1,4,0)
 ;;=4^C69.01
 ;;^UTILITY(U,$J,358.3,6801,2)
 ;;=^5001267
 ;;^UTILITY(U,$J,358.3,6802,0)
 ;;=C69.02^^40^366^25
 ;;^UTILITY(U,$J,358.3,6802,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6802,1,3,0)
 ;;=3^Malig Neop of Conj,Left Eye
 ;;^UTILITY(U,$J,358.3,6802,1,4,0)
 ;;=4^C69.02
 ;;^UTILITY(U,$J,358.3,6802,2)
 ;;=^5001268
 ;;^UTILITY(U,$J,358.3,6803,0)
 ;;=H11.231^^40^366^26
 ;;^UTILITY(U,$J,358.3,6803,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6803,1,3,0)
 ;;=3^Symblepharon,Right Eye
 ;;^UTILITY(U,$J,358.3,6803,1,4,0)
 ;;=4^H11.231
 ;;^UTILITY(U,$J,358.3,6803,2)
 ;;=^5004773
 ;;^UTILITY(U,$J,358.3,6804,0)
 ;;=H11.232^^40^366^27
 ;;^UTILITY(U,$J,358.3,6804,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6804,1,3,0)
 ;;=3^Symblepharon,Left Eye
 ;;^UTILITY(U,$J,358.3,6804,1,4,0)
 ;;=4^H11.232
 ;;^UTILITY(U,$J,358.3,6804,2)
 ;;=^5004774
 ;;^UTILITY(U,$J,358.3,6805,0)
 ;;=L10.81^^40^366^28
 ;;^UTILITY(U,$J,358.3,6805,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6805,1,3,0)
 ;;=3^Paraneoplastic Pemphigus
 ;;^UTILITY(U,$J,358.3,6805,1,4,0)
 ;;=4^L10.81
 ;;^UTILITY(U,$J,358.3,6805,2)
 ;;=^5009088
 ;;^UTILITY(U,$J,358.3,6806,0)
 ;;=L12.9^^40^366^29
 ;;^UTILITY(U,$J,358.3,6806,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6806,1,3,0)
 ;;=3^Pemphigoid,Unspec
 ;;^UTILITY(U,$J,358.3,6806,1,4,0)
 ;;=4^L12.9
 ;;^UTILITY(U,$J,358.3,6806,2)
 ;;=^5009102
 ;;^UTILITY(U,$J,358.3,6807,0)
 ;;=H16.011^^40^367^1
 ;;^UTILITY(U,$J,358.3,6807,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6807,1,3,0)
 ;;=3^Central Corneal Ulcer,Right Eye
 ;;^UTILITY(U,$J,358.3,6807,1,4,0)
 ;;=4^H16.011
 ;;^UTILITY(U,$J,358.3,6807,2)
 ;;=^5004870
 ;;^UTILITY(U,$J,358.3,6808,0)
 ;;=H16.012^^40^367^2
 ;;^UTILITY(U,$J,358.3,6808,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6808,1,3,0)
 ;;=3^Central Corneal Ulcer,Left Eye
 ;;^UTILITY(U,$J,358.3,6808,1,4,0)
 ;;=4^H16.012
 ;;^UTILITY(U,$J,358.3,6808,2)
 ;;=^5004871
 ;;^UTILITY(U,$J,358.3,6809,0)
 ;;=H16.049^^40^367^3
 ;;^UTILITY(U,$J,358.3,6809,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6809,1,3,0)
 ;;=3^Marginal Corneal Ulcer,Unspec Eye
 ;;^UTILITY(U,$J,358.3,6809,1,4,0)
 ;;=4^H16.049
 ;;^UTILITY(U,$J,358.3,6809,2)
 ;;=^5004885
 ;;^UTILITY(U,$J,358.3,6810,0)
 ;;=H17.10^^40^367^4
 ;;^UTILITY(U,$J,358.3,6810,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6810,1,3,0)
 ;;=3^Central Corneal Opacity,Unspec Eye
 ;;^UTILITY(U,$J,358.3,6810,1,4,0)
 ;;=4^H17.10
 ;;^UTILITY(U,$J,358.3,6810,2)
 ;;=^5004990
 ;;^UTILITY(U,$J,358.3,6811,0)
 ;;=H17.9^^40^367^5
 ;;^UTILITY(U,$J,358.3,6811,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6811,1,3,0)
 ;;=3^Corneal Scar & Opacity
 ;;^UTILITY(U,$J,358.3,6811,1,4,0)
 ;;=4^H17.9
 ;;^UTILITY(U,$J,358.3,6811,2)
 ;;=^5005003
 ;;^UTILITY(U,$J,358.3,6812,0)
 ;;=H16.401^^40^367^6
 ;;^UTILITY(U,$J,358.3,6812,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6812,1,3,0)
 ;;=3^Corneal Neovascularization,Right Eye
 ;;^UTILITY(U,$J,358.3,6812,1,4,0)
 ;;=4^H16.401
 ;;^UTILITY(U,$J,358.3,6812,2)
 ;;=^5004965
 ;;^UTILITY(U,$J,358.3,6813,0)
 ;;=H16.402^^40^367^7
 ;;^UTILITY(U,$J,358.3,6813,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6813,1,3,0)
 ;;=3^Corneal Neovascularization,Left Eye
 ;;^UTILITY(U,$J,358.3,6813,1,4,0)
 ;;=4^H16.402
 ;;^UTILITY(U,$J,358.3,6813,2)
 ;;=^5004966
 ;;^UTILITY(U,$J,358.3,6814,0)
 ;;=H18.20^^40^367^11
 ;;^UTILITY(U,$J,358.3,6814,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6814,1,3,0)
 ;;=3^Corneal Edema
 ;;^UTILITY(U,$J,358.3,6814,1,4,0)
 ;;=4^H18.20
 ;;^UTILITY(U,$J,358.3,6814,2)
 ;;=^5005035
 ;;^UTILITY(U,$J,358.3,6815,0)
 ;;=H18.231^^40^367^12
 ;;^UTILITY(U,$J,358.3,6815,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6815,1,3,0)
 ;;=3^Corneal Edema,Right Eye,Secondary
 ;;^UTILITY(U,$J,358.3,6815,1,4,0)
 ;;=4^H18.231
 ;;^UTILITY(U,$J,358.3,6815,2)
 ;;=^5005044
 ;;^UTILITY(U,$J,358.3,6816,0)
 ;;=H18.232^^40^367^13
 ;;^UTILITY(U,$J,358.3,6816,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6816,1,3,0)
 ;;=3^Corneal Edema,Left Eye,Secondary
 ;;^UTILITY(U,$J,358.3,6816,1,4,0)
 ;;=4^H18.232
 ;;^UTILITY(U,$J,358.3,6816,2)
 ;;=^5005045
 ;;^UTILITY(U,$J,358.3,6817,0)
 ;;=H18.11^^40^367^14
 ;;^UTILITY(U,$J,358.3,6817,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6817,1,3,0)
 ;;=3^Bullous Keratopathy,Right Eye
 ;;^UTILITY(U,$J,358.3,6817,1,4,0)
 ;;=4^H18.11
 ;;^UTILITY(U,$J,358.3,6817,2)
 ;;=^5005032
 ;;^UTILITY(U,$J,358.3,6818,0)
 ;;=H18.12^^40^367^15
 ;;^UTILITY(U,$J,358.3,6818,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6818,1,3,0)
 ;;=3^Bullous Keratopathy,Left Eye
 ;;^UTILITY(U,$J,358.3,6818,1,4,0)
 ;;=4^H18.12
 ;;^UTILITY(U,$J,358.3,6818,2)
 ;;=^5005033
 ;;^UTILITY(U,$J,358.3,6819,0)
 ;;=H18.601^^40^367^22
 ;;^UTILITY(U,$J,358.3,6819,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6819,1,3,0)
 ;;=3^Keratoconus,Right Eye
 ;;^UTILITY(U,$J,358.3,6819,1,4,0)
 ;;=4^H18.601
 ;;^UTILITY(U,$J,358.3,6819,2)
 ;;=^5005089
 ;;^UTILITY(U,$J,358.3,6820,0)
 ;;=H18.602^^40^367^23
 ;;^UTILITY(U,$J,358.3,6820,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6820,1,3,0)
 ;;=3^Keratoconus,Left Eye
 ;;^UTILITY(U,$J,358.3,6820,1,4,0)
 ;;=4^H18.602
 ;;^UTILITY(U,$J,358.3,6820,2)
 ;;=^5005090
 ;;^UTILITY(U,$J,358.3,6821,0)
 ;;=H18.423^^40^367^26
 ;;^UTILITY(U,$J,358.3,6821,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6821,1,3,0)
 ;;=3^Band Keratopathy,Bilateral
 ;;^UTILITY(U,$J,358.3,6821,1,4,0)
 ;;=4^H18.423
 ;;^UTILITY(U,$J,358.3,6821,2)
 ;;=^5005068
 ;;^UTILITY(U,$J,358.3,6822,0)
 ;;=H16.213^^40^367^27
 ;;^UTILITY(U,$J,358.3,6822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6822,1,3,0)
 ;;=3^Exposure Keratoconjunctivitis,Bilateral
 ;;^UTILITY(U,$J,358.3,6822,1,4,0)
 ;;=4^H16.213
 ;;^UTILITY(U,$J,358.3,6822,2)
 ;;=^5004922
 ;;^UTILITY(U,$J,358.3,6823,0)
 ;;=H18.833^^40^367^30
 ;;^UTILITY(U,$J,358.3,6823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6823,1,3,0)
 ;;=3^Recurrent Erosion of Cornea,Bilateral
 ;;^UTILITY(U,$J,358.3,6823,1,4,0)
 ;;=4^H18.833
 ;;^UTILITY(U,$J,358.3,6823,2)
 ;;=^5005128
 ;;^UTILITY(U,$J,358.3,6824,0)
 ;;=B00.51^^40^367^31
 ;;^UTILITY(U,$J,358.3,6824,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6824,1,3,0)
 ;;=3^Herpesviral Iridocyclitis
 ;;^UTILITY(U,$J,358.3,6824,1,4,0)
 ;;=4^B00.51
 ;;^UTILITY(U,$J,358.3,6824,2)
 ;;=^5000473
 ;;^UTILITY(U,$J,358.3,6825,0)
 ;;=B00.52^^40^367^32
 ;;^UTILITY(U,$J,358.3,6825,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6825,1,3,0)
 ;;=3^Herpesviral Keratitis
 ;;^UTILITY(U,$J,358.3,6825,1,4,0)
 ;;=4^B00.52
 ;;^UTILITY(U,$J,358.3,6825,2)
 ;;=^5000474
 ;;^UTILITY(U,$J,358.3,6826,0)
 ;;=B00.59^^40^367^33
 ;;^UTILITY(U,$J,358.3,6826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6826,1,3,0)
 ;;=3^Herpes Viral Eye Disease
 ;;^UTILITY(U,$J,358.3,6826,1,4,0)
 ;;=4^B00.59
 ;;^UTILITY(U,$J,358.3,6826,2)
 ;;=^5000476
 ;;^UTILITY(U,$J,358.3,6827,0)
 ;;=B02.39^^40^367^34
 ;;^UTILITY(U,$J,358.3,6827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6827,1,3,0)
 ;;=3^Herpes Zoster Eye Disease
 ;;^UTILITY(U,$J,358.3,6827,1,4,0)
 ;;=4^B02.39
 ;;^UTILITY(U,$J,358.3,6827,2)
 ;;=^5000498
 ;;^UTILITY(U,$J,358.3,6828,0)
 ;;=H16.309^^40^367^35
 ;;^UTILITY(U,$J,358.3,6828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6828,1,3,0)
 ;;=3^Interstitial Keratitis,Unspec Eye
 ;;^UTILITY(U,$J,358.3,6828,1,4,0)
 ;;=4^H16.309
 ;;^UTILITY(U,$J,358.3,6828,2)
 ;;=^5133472
 ;;^UTILITY(U,$J,358.3,6829,0)
 ;;=S05.01XA^^40^367^36
 ;;^UTILITY(U,$J,358.3,6829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6829,1,3,0)
 ;;=3^Corneal Abrasion w/o FB,Right Eye,Init Enctr
 ;;^UTILITY(U,$J,358.3,6829,1,4,0)
 ;;=4^S05.01XA
 ;;^UTILITY(U,$J,358.3,6829,2)
 ;;=^5020579
 ;;^UTILITY(U,$J,358.3,6830,0)
 ;;=S05.02XA^^40^367^37
 ;;^UTILITY(U,$J,358.3,6830,1,0)
 ;;=^358.31IA^4^2