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

IBDEI02H.m

Go to the documentation of this file.
IBDEI02H ; ; 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,5757,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5757,1,3,0)
 ;;=3^BCC Neop Skin,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,5757,1,4,0)
 ;;=4^C44.1191
 ;;^UTILITY(U,$J,358.3,5757,2)
 ;;=^5157259
 ;;^UTILITY(U,$J,358.3,5758,0)
 ;;=C44.1192^^37^313^25
 ;;^UTILITY(U,$J,358.3,5758,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5758,1,3,0)
 ;;=3^BCC Neop Skin,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,5758,1,4,0)
 ;;=4^C44.1192
 ;;^UTILITY(U,$J,358.3,5758,2)
 ;;=^5157260
 ;;^UTILITY(U,$J,358.3,5759,0)
 ;;=C44.1221^^37^313^26
 ;;^UTILITY(U,$J,358.3,5759,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5759,1,3,0)
 ;;=3^SCC Neop Skin,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,5759,1,4,0)
 ;;=4^C44.1221
 ;;^UTILITY(U,$J,358.3,5759,2)
 ;;=^5157261
 ;;^UTILITY(U,$J,358.3,5760,0)
 ;;=C44.1222^^37^313^27
 ;;^UTILITY(U,$J,358.3,5760,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5760,1,3,0)
 ;;=3^SCC Neop Skin,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,5760,1,4,0)
 ;;=4^C44.1222
 ;;^UTILITY(U,$J,358.3,5760,2)
 ;;=^5157262
 ;;^UTILITY(U,$J,358.3,5761,0)
 ;;=C44.1291^^37^313^28
 ;;^UTILITY(U,$J,358.3,5761,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5761,1,3,0)
 ;;=3^SCC Neop Skin,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,5761,1,4,0)
 ;;=4^C44.1291
 ;;^UTILITY(U,$J,358.3,5761,2)
 ;;=^5157263
 ;;^UTILITY(U,$J,358.3,5762,0)
 ;;=C44.1292^^37^313^29
 ;;^UTILITY(U,$J,358.3,5762,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5762,1,3,0)
 ;;=3^SCC Neop Skin,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,5762,1,4,0)
 ;;=4^C44.1292
 ;;^UTILITY(U,$J,358.3,5762,2)
 ;;=^5157264
 ;;^UTILITY(U,$J,358.3,5763,0)
 ;;=H52.13^^37^314^34
 ;;^UTILITY(U,$J,358.3,5763,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5763,1,3,0)
 ;;=3^Myopia,Bilateral
 ;;^UTILITY(U,$J,358.3,5763,1,4,0)
 ;;=4^H52.13
 ;;^UTILITY(U,$J,358.3,5763,2)
 ;;=^5006266
 ;;^UTILITY(U,$J,358.3,5764,0)
 ;;=H52.03^^37^314^31
 ;;^UTILITY(U,$J,358.3,5764,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5764,1,3,0)
 ;;=3^Hypermetropia,Bilateral
 ;;^UTILITY(U,$J,358.3,5764,1,4,0)
 ;;=4^H52.03
 ;;^UTILITY(U,$J,358.3,5764,2)
 ;;=^5006262
 ;;^UTILITY(U,$J,358.3,5765,0)
 ;;=H52.4^^37^314^41
 ;;^UTILITY(U,$J,358.3,5765,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5765,1,3,0)
 ;;=3^Presbyopia
 ;;^UTILITY(U,$J,358.3,5765,1,4,0)
 ;;=4^H52.4
 ;;^UTILITY(U,$J,358.3,5765,2)
 ;;=^98095
 ;;^UTILITY(U,$J,358.3,5766,0)
 ;;=H25.11^^37^314^9
 ;;^UTILITY(U,$J,358.3,5766,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5766,1,3,0)
 ;;=3^Cataract,Nuclear Age-Rel,Right Eye
 ;;^UTILITY(U,$J,358.3,5766,1,4,0)
 ;;=4^H25.11
 ;;^UTILITY(U,$J,358.3,5766,2)
 ;;=^5005284
 ;;^UTILITY(U,$J,358.3,5767,0)
 ;;=H25.12^^37^314^8
 ;;^UTILITY(U,$J,358.3,5767,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5767,1,3,0)
 ;;=3^Cataract,Nuclear Age-Rel,Left Eye
 ;;^UTILITY(U,$J,358.3,5767,1,4,0)
 ;;=4^H25.12
 ;;^UTILITY(U,$J,358.3,5767,2)
 ;;=^5005285
 ;;^UTILITY(U,$J,358.3,5768,0)
 ;;=Z98.49^^37^314^7
 ;;^UTILITY(U,$J,358.3,5768,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5768,1,3,0)
 ;;=3^Cataract Extraction Status,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5768,1,4,0)
 ;;=4^Z98.49
 ;;^UTILITY(U,$J,358.3,5768,2)
 ;;=^5063739
 ;;^UTILITY(U,$J,358.3,5769,0)
 ;;=H04.123^^37^314^22
 ;;^UTILITY(U,$J,358.3,5769,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5769,1,3,0)
 ;;=3^Dry Eye Syndrome,Bilateral Lacrimal Glands
 ;;^UTILITY(U,$J,358.3,5769,1,4,0)
 ;;=4^H04.123
 ;;^UTILITY(U,$J,358.3,5769,2)
 ;;=^5004465
 ;;^UTILITY(U,$J,358.3,5770,0)
 ;;=H01.009^^37^314^5
 ;;^UTILITY(U,$J,358.3,5770,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5770,1,3,0)
 ;;=3^Blepharitis,Unspec
 ;;^UTILITY(U,$J,358.3,5770,1,4,0)
 ;;=4^H01.009
 ;;^UTILITY(U,$J,358.3,5770,2)
 ;;=^5133381
 ;;^UTILITY(U,$J,358.3,5771,0)
 ;;=H40.023^^37^314^29
 ;;^UTILITY(U,$J,358.3,5771,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5771,1,3,0)
 ;;=3^Glaucoma Suspect,High Risk,Bilateral,Open Angle
 ;;^UTILITY(U,$J,358.3,5771,1,4,0)
 ;;=4^H40.023
 ;;^UTILITY(U,$J,358.3,5771,2)
 ;;=^5005730
 ;;^UTILITY(U,$J,358.3,5772,0)
 ;;=H40.053^^37^314^38
 ;;^UTILITY(U,$J,358.3,5772,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5772,1,3,0)
 ;;=3^Ocular Hypertension,Bilateral
 ;;^UTILITY(U,$J,358.3,5772,1,4,0)
 ;;=4^H40.053
 ;;^UTILITY(U,$J,358.3,5772,2)
 ;;=^5005742
 ;;^UTILITY(U,$J,358.3,5773,0)
 ;;=E11.9^^37^314^19
 ;;^UTILITY(U,$J,358.3,5773,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5773,1,3,0)
 ;;=3^DM Type 2 w/o Complications
 ;;^UTILITY(U,$J,358.3,5773,1,4,0)
 ;;=4^E11.9
 ;;^UTILITY(U,$J,358.3,5773,2)
 ;;=^5002666
 ;;^UTILITY(U,$J,358.3,5774,0)
 ;;=E11.39^^37^314^18
 ;;^UTILITY(U,$J,358.3,5774,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5774,1,3,0)
 ;;=3^DM Type 2 w/ Ophthalmic Complications
 ;;^UTILITY(U,$J,358.3,5774,1,4,0)
 ;;=4^E11.39
 ;;^UTILITY(U,$J,358.3,5774,2)
 ;;=^5002643
 ;;^UTILITY(U,$J,358.3,5775,0)
 ;;=H59.039^^37^314^6
 ;;^UTILITY(U,$J,358.3,5775,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5775,1,3,0)
 ;;=3^CME Mac Edema,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5775,1,4,0)
 ;;=4^H59.039
 ;;^UTILITY(U,$J,358.3,5775,2)
 ;;=^5006396
 ;;^UTILITY(U,$J,358.3,5776,0)
 ;;=H02.831^^37^314^21
 ;;^UTILITY(U,$J,358.3,5776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5776,1,3,0)
 ;;=3^Dermatochalasis,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,5776,1,4,0)
 ;;=4^H02.831
 ;;^UTILITY(U,$J,358.3,5776,2)
 ;;=^5004418
 ;;^UTILITY(U,$J,358.3,5777,0)
 ;;=H02.834^^37^314^20
 ;;^UTILITY(U,$J,358.3,5777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5777,1,3,0)
 ;;=3^Dermatochalasis,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,5777,1,4,0)
 ;;=4^H02.834
 ;;^UTILITY(U,$J,358.3,5777,2)
 ;;=^5004421
 ;;^UTILITY(U,$J,358.3,5778,0)
 ;;=H10.31^^37^314^13
 ;;^UTILITY(U,$J,358.3,5778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5778,1,3,0)
 ;;=3^Conjunctivitis,Acute,Right Eye
 ;;^UTILITY(U,$J,358.3,5778,1,4,0)
 ;;=4^H10.31
 ;;^UTILITY(U,$J,358.3,5778,2)
 ;;=^5133458
 ;;^UTILITY(U,$J,358.3,5779,0)
 ;;=H10.32^^37^314^12
 ;;^UTILITY(U,$J,358.3,5779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5779,1,3,0)
 ;;=3^Conjunctivitis,Acute,Left Eye
 ;;^UTILITY(U,$J,358.3,5779,1,4,0)
 ;;=4^H10.32
 ;;^UTILITY(U,$J,358.3,5779,2)
 ;;=^5133459
 ;;^UTILITY(U,$J,358.3,5780,0)
 ;;=H00.11^^37^314^11
 ;;^UTILITY(U,$J,358.3,5780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5780,1,3,0)
 ;;=3^Chalazion,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,5780,1,4,0)
 ;;=4^H00.11
 ;;^UTILITY(U,$J,358.3,5780,2)
 ;;=^5004233
 ;;^UTILITY(U,$J,358.3,5781,0)
 ;;=H00.14^^37^314^10
 ;;^UTILITY(U,$J,358.3,5781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5781,1,3,0)
 ;;=3^Chalazion,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,5781,1,4,0)
 ;;=4^H00.14
 ;;^UTILITY(U,$J,358.3,5781,2)
 ;;=^5004236
 ;;^UTILITY(U,$J,358.3,5782,0)
 ;;=H20.00^^37^314^32
 ;;^UTILITY(U,$J,358.3,5782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5782,1,3,0)
 ;;=3^Iridocyclitis,Acute/Subacute,Unspec
 ;;^UTILITY(U,$J,358.3,5782,1,4,0)
 ;;=4^H20.00
 ;;^UTILITY(U,$J,358.3,5782,2)
 ;;=^5005133
 ;;^UTILITY(U,$J,358.3,5783,0)
 ;;=B00.59^^37^314^30
 ;;^UTILITY(U,$J,358.3,5783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5783,1,3,0)
 ;;=3^Herpes Viral Eye Disease NEC
 ;;^UTILITY(U,$J,358.3,5783,1,4,0)
 ;;=4^B00.59
 ;;^UTILITY(U,$J,358.3,5783,2)
 ;;=^5000476
 ;;^UTILITY(U,$J,358.3,5784,0)
 ;;=Z01.00^^37^314^27
 ;;^UTILITY(U,$J,358.3,5784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5784,1,3,0)
 ;;=3^Eye/Vision Exam w/o Abnormal Findings
 ;;^UTILITY(U,$J,358.3,5784,1,4,0)
 ;;=4^Z01.00
 ;;^UTILITY(U,$J,358.3,5784,2)
 ;;=^5062612
 ;;^UTILITY(U,$J,358.3,5785,0)
 ;;=Z01.01^^37^314^26
 ;;^UTILITY(U,$J,358.3,5785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5785,1,3,0)
 ;;=3^Eye/Vision Exam w/ Abnormal Findings
 ;;^UTILITY(U,$J,358.3,5785,1,4,0)
 ;;=4^Z01.01
 ;;^UTILITY(U,$J,358.3,5785,2)
 ;;=^5062613
 ;;^UTILITY(U,$J,358.3,5786,0)
 ;;=H52.223^^37^314^2
 ;;^UTILITY(U,$J,358.3,5786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5786,1,3,0)
 ;;=3^Astigmatism,Regular,Bilateral
 ;;^UTILITY(U,$J,358.3,5786,1,4,0)
 ;;=4^H52.223
 ;;^UTILITY(U,$J,358.3,5786,2)
 ;;=^5006276
 ;;^UTILITY(U,$J,358.3,5787,0)
 ;;=H35.3110^^37^314^37
 ;;^UTILITY(U,$J,358.3,5787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5787,1,3,0)
 ;;=3^Nonexudative ARMD,Right Eye
 ;;^UTILITY(U,$J,358.3,5787,1,4,0)
 ;;=4^H35.3110
 ;;^UTILITY(U,$J,358.3,5787,2)
 ;;=^5138500
 ;;^UTILITY(U,$J,358.3,5788,0)
 ;;=H35.3120^^37^314^36
 ;;^UTILITY(U,$J,358.3,5788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5788,1,3,0)
 ;;=3^Nonexudative ARMD,Left Eye
 ;;^UTILITY(U,$J,358.3,5788,1,4,0)
 ;;=4^H35.3120
 ;;^UTILITY(U,$J,358.3,5788,2)
 ;;=^5138505
 ;;^UTILITY(U,$J,358.3,5789,0)
 ;;=H35.3210^^37^314^25
 ;;^UTILITY(U,$J,358.3,5789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5789,1,3,0)
 ;;=3^Exudative ARMD,Right Eye
 ;;^UTILITY(U,$J,358.3,5789,1,4,0)
 ;;=4^H35.3210
 ;;^UTILITY(U,$J,358.3,5789,2)
 ;;=^5138520
 ;;^UTILITY(U,$J,358.3,5790,0)
 ;;=H35.3220^^37^314^24
 ;;^UTILITY(U,$J,358.3,5790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5790,1,3,0)
 ;;=3^Exudative ARMD,Left Eye
 ;;^UTILITY(U,$J,358.3,5790,1,4,0)
 ;;=4^H35.3220
 ;;^UTILITY(U,$J,358.3,5790,2)
 ;;=^5138524
 ;;^UTILITY(U,$J,358.3,5791,0)
 ;;=E11.3291^^37^314^14
 ;;^UTILITY(U,$J,358.3,5791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5791,1,3,0)
 ;;=3^DM Type 2 w/ Mild NPDR w/o Macular Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,5791,1,4,0)
 ;;=4^E11.3291
 ;;^UTILITY(U,$J,358.3,5791,2)
 ;;=^5138335
 ;;^UTILITY(U,$J,358.3,5792,0)
 ;;=E11.3292^^37^314^15
 ;;^UTILITY(U,$J,358.3,5792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5792,1,3,0)
 ;;=3^DM Type 2 w/ Mild NPDR w/o Macular Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,5792,1,4,0)
 ;;=4^E11.3292
 ;;^UTILITY(U,$J,358.3,5792,2)
 ;;=^5138336
 ;;^UTILITY(U,$J,358.3,5793,0)
 ;;=E11.3391^^37^314^16
 ;;^UTILITY(U,$J,358.3,5793,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5793,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/o Macular Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,5793,1,4,0)
 ;;=4^E11.3391
 ;;^UTILITY(U,$J,358.3,5793,2)
 ;;=^5138343
 ;;^UTILITY(U,$J,358.3,5794,0)
 ;;=E11.3392^^37^314^17
 ;;^UTILITY(U,$J,358.3,5794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5794,1,3,0)
 ;;=3^DM Type 2 w/ Mod NPDR w/o Macular Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,5794,1,4,0)
 ;;=4^E11.3392
 ;;^UTILITY(U,$J,358.3,5794,2)
 ;;=^5138344
 ;;^UTILITY(U,$J,358.3,5795,0)
 ;;=H35.3230^^37^314^23
 ;;^UTILITY(U,$J,358.3,5795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5795,1,3,0)
 ;;=3^Exudative ARMD,Bilateral
 ;;^UTILITY(U,$J,358.3,5795,1,4,0)
 ;;=4^H35.3230
 ;;^UTILITY(U,$J,358.3,5795,2)
 ;;=^5138528
 ;;^UTILITY(U,$J,358.3,5796,0)
 ;;=H35.3130^^37^314^35
 ;;^UTILITY(U,$J,358.3,5796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5796,1,3,0)
 ;;=3^Nonexudative ARMD,Bilateral
 ;;^UTILITY(U,$J,358.3,5796,1,4,0)
 ;;=4^H35.3130
 ;;^UTILITY(U,$J,358.3,5796,2)
 ;;=^5138510
 ;;^UTILITY(U,$J,358.3,5797,0)
 ;;=Z13.5^^37^314^45
 ;;^UTILITY(U,$J,358.3,5797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5797,1,3,0)
 ;;=3^Screening for Eye and Ear Disorders
 ;;^UTILITY(U,$J,358.3,5797,1,4,0)
 ;;=4^Z13.5
 ;;^UTILITY(U,$J,358.3,5797,2)
 ;;=^5062706
 ;;^UTILITY(U,$J,358.3,5798,0)
 ;;=Z48.810^^37^314^1
 ;;^UTILITY(U,$J,358.3,5798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5798,1,3,0)
 ;;=3^Aftercare Following EYE Surgery
 ;;^UTILITY(U,$J,358.3,5798,1,4,0)
 ;;=4^Z48.810
 ;;^UTILITY(U,$J,358.3,5798,2)
 ;;=^5063047
 ;;^UTILITY(U,$J,358.3,5799,0)
 ;;=H02.889^^37^314^33
 ;;^UTILITY(U,$J,358.3,5799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5799,1,3,0)
 ;;=3^Meibomian Gland Dysfunction,Unspec
 ;;^UTILITY(U,$J,358.3,5799,1,4,0)
 ;;=4^H02.889
 ;;^UTILITY(U,$J,358.3,5799,2)
 ;;=^5157349
 ;;^UTILITY(U,$J,358.3,5800,0)
 ;;=H43.813^^37^314^48
 ;;^UTILITY(U,$J,358.3,5800,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5800,1,3,0)
 ;;=3^Vitreous Degeneration,Bilateral
 ;;^UTILITY(U,$J,358.3,5800,1,4,0)
 ;;=4^H43.813
 ;;^UTILITY(U,$J,358.3,5800,2)
 ;;=^5005955
 ;;^UTILITY(U,$J,358.3,5801,0)
 ;;=H26.491^^37^314^40
 ;;^UTILITY(U,$J,358.3,5801,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5801,1,3,0)
 ;;=3^PCO/Secondary Cataract,Right Eye
 ;;^UTILITY(U,$J,358.3,5801,1,4,0)
 ;;=4^H26.491
 ;;^UTILITY(U,$J,358.3,5801,2)
 ;;=^5005358
 ;;^UTILITY(U,$J,358.3,5802,0)
 ;;=H26.492^^37^314^39
 ;;^UTILITY(U,$J,358.3,5802,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5802,1,3,0)
 ;;=3^PCO/Secondary Cataract,Left Eye
 ;;^UTILITY(U,$J,358.3,5802,1,4,0)
 ;;=4^H26.492
 ;;^UTILITY(U,$J,358.3,5802,2)
 ;;=^5005359
 ;;^UTILITY(U,$J,358.3,5803,0)
 ;;=D31.31^^37^314^4
 ;;^UTILITY(U,$J,358.3,5803,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5803,1,3,0)
 ;;=3^Benign Neop/Nevus Choroid,Right Eye
 ;;^UTILITY(U,$J,358.3,5803,1,4,0)
 ;;=4^D31.31
 ;;^UTILITY(U,$J,358.3,5803,2)
 ;;=^5002121
 ;;^UTILITY(U,$J,358.3,5804,0)
 ;;=D31.32^^37^314^3
 ;;^UTILITY(U,$J,358.3,5804,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5804,1,3,0)
 ;;=3^Benign Neop/Nevus Choroid,Left Eye
 ;;^UTILITY(U,$J,358.3,5804,1,4,0)
 ;;=4^D31.32
 ;;^UTILITY(U,$J,358.3,5804,2)
 ;;=^5002122
 ;;^UTILITY(U,$J,358.3,5805,0)
 ;;=H40.1131^^37^314^42
 ;;^UTILITY(U,$J,358.3,5805,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5805,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Mild Stage,Bilateral
 ;;^UTILITY(U,$J,358.3,5805,1,4,0)
 ;;=4^H40.1131
 ;;^UTILITY(U,$J,358.3,5805,2)
 ;;=^5138547
 ;;^UTILITY(U,$J,358.3,5806,0)
 ;;=H40.1132^^37^314^43
 ;;^UTILITY(U,$J,358.3,5806,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5806,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Moderate Stage,Bilateral
 ;;^UTILITY(U,$J,358.3,5806,1,4,0)
 ;;=4^H40.1132
 ;;^UTILITY(U,$J,358.3,5806,2)
 ;;=^5138548
 ;;^UTILITY(U,$J,358.3,5807,0)
 ;;=H40.013^^37^314^28
 ;;^UTILITY(U,$J,358.3,5807,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5807,1,3,0)
 ;;=3^Glaucoma Suspect,Low Risk,Bilateral,Open Angle
 ;;^UTILITY(U,$J,358.3,5807,1,4,0)
 ;;=4^H40.013
 ;;^UTILITY(U,$J,358.3,5807,2)
 ;;=^5005726
 ;;^UTILITY(U,$J,358.3,5808,0)
 ;;=H40.1133^^37^314^44
 ;;^UTILITY(U,$J,358.3,5808,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5808,1,3,0)
 ;;=3^Primary Open-Angle Gluacoma,Severe Stage,Bilateral
 ;;^UTILITY(U,$J,358.3,5808,1,4,0)
 ;;=4^H40.1133
 ;;^UTILITY(U,$J,358.3,5808,2)
 ;;=^5138549
 ;;^UTILITY(U,$J,358.3,5809,0)
 ;;=H43.811^^37^314^47
 ;;^UTILITY(U,$J,358.3,5809,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5809,1,3,0)
 ;;=3^Vitreous Degeneration,Right Eye
 ;;^UTILITY(U,$J,358.3,5809,1,4,0)
 ;;=4^H43.811
 ;;^UTILITY(U,$J,358.3,5809,2)
 ;;=^5005953
 ;;^UTILITY(U,$J,358.3,5810,0)
 ;;=H43.812^^37^314^46
 ;;^UTILITY(U,$J,358.3,5810,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5810,1,3,0)
 ;;=3^Vitreous Degeneration,Left Eye
 ;;^UTILITY(U,$J,358.3,5810,1,4,0)
 ;;=4^H43.812
 ;;^UTILITY(U,$J,358.3,5810,2)
 ;;=^5005954
 ;;^UTILITY(U,$J,358.3,5811,0)
 ;;=H10.31^^37^315^1
 ;;^UTILITY(U,$J,358.3,5811,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5811,1,3,0)
 ;;=3^Conjunctivitis,Acute,Right Eye
 ;;^UTILITY(U,$J,358.3,5811,1,4,0)
 ;;=4^H10.31
 ;;^UTILITY(U,$J,358.3,5811,2)
 ;;=^5133458
 ;;^UTILITY(U,$J,358.3,5812,0)
 ;;=H10.32^^37^315^2
 ;;^UTILITY(U,$J,358.3,5812,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5812,1,3,0)
 ;;=3^Conjunctivitis,Acute,Left Eye
 ;;^UTILITY(U,$J,358.3,5812,1,4,0)
 ;;=4^H10.32
 ;;^UTILITY(U,$J,358.3,5812,2)
 ;;=^5133459
 ;;^UTILITY(U,$J,358.3,5813,0)
 ;;=H10.401^^37^315^3
 ;;^UTILITY(U,$J,358.3,5813,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5813,1,3,0)
 ;;=3^Conjunctivitis,Chronic,Right Eye
 ;;^UTILITY(U,$J,358.3,5813,1,4,0)
 ;;=4^H10.401
 ;;^UTILITY(U,$J,358.3,5813,2)
 ;;=^5004681
 ;;^UTILITY(U,$J,358.3,5814,0)
 ;;=H10.402^^37^315^4
 ;;^UTILITY(U,$J,358.3,5814,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5814,1,3,0)
 ;;=3^Conjunctivitis,Chronic,Left Eye
 ;;^UTILITY(U,$J,358.3,5814,1,4,0)
 ;;=4^H10.402
 ;;^UTILITY(U,$J,358.3,5814,2)
 ;;=^5004682
 ;;^UTILITY(U,$J,358.3,5815,0)
 ;;=H10.403^^37^315^5
 ;;^UTILITY(U,$J,358.3,5815,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5815,1,3,0)
 ;;=3^Conjunctivitis,Chronic,Bilateral
 ;;^UTILITY(U,$J,358.3,5815,1,4,0)
 ;;=4^H10.403
 ;;^UTILITY(U,$J,358.3,5815,2)
 ;;=^5004683
 ;;^UTILITY(U,$J,358.3,5816,0)
 ;;=H10.45^^37^315^6
 ;;^UTILITY(U,$J,358.3,5816,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5816,1,3,0)
 ;;=3^Conjunctivitis,Allergic,Chronic
 ;;^UTILITY(U,$J,358.3,5816,1,4,0)
 ;;=4^H10.45
 ;;^UTILITY(U,$J,358.3,5816,2)
 ;;=^87396
 ;;^UTILITY(U,$J,358.3,5817,0)
 ;;=B30.8^^37^315^7
 ;;^UTILITY(U,$J,358.3,5817,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5817,1,3,0)
 ;;=3^Conjunctivitis,Viral
 ;;^UTILITY(U,$J,358.3,5817,1,4,0)
 ;;=4^B30.8
 ;;^UTILITY(U,$J,358.3,5817,2)
 ;;=^88239
 ;;^UTILITY(U,$J,358.3,5818,0)
 ;;=H10.13^^37^315^8
 ;;^UTILITY(U,$J,358.3,5818,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5818,1,3,0)
 ;;=3^Conjunctivitis,Atopic,Bilateral
 ;;^UTILITY(U,$J,358.3,5818,1,4,0)
 ;;=4^H10.13
 ;;^UTILITY(U,$J,358.3,5818,2)
 ;;=^5004667
 ;;^UTILITY(U,$J,358.3,5819,0)
 ;;=H10.419^^37^315^9
 ;;^UTILITY(U,$J,358.3,5819,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5819,1,3,0)
 ;;=3^Giant Papillary Conjunctivitis,Chronic
 ;;^UTILITY(U,$J,358.3,5819,1,4,0)
 ;;=4^H10.419
 ;;^UTILITY(U,$J,358.3,5819,2)
 ;;=^5004687
 ;;^UTILITY(U,$J,358.3,5820,0)
 ;;=H10.219^^37^315^10
 ;;^UTILITY(U,$J,358.3,5820,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5820,1,3,0)
 ;;=3^Toxic Conjunctivitis,Acute
 ;;^UTILITY(U,$J,358.3,5820,1,4,0)
 ;;=4^H10.219
 ;;^UTILITY(U,$J,358.3,5820,2)
 ;;=^5004671
 ;;^UTILITY(U,$J,358.3,5821,0)
 ;;=M35.01^^37^315^11
 ;;^UTILITY(U,$J,358.3,5821,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5821,1,3,0)
 ;;=3^Keratoconjunctivitis w/ Sicca Syndrome
 ;;^UTILITY(U,$J,358.3,5821,1,4,0)
 ;;=4^M35.01
 ;;^UTILITY(U,$J,358.3,5821,2)
 ;;=^5011787
 ;;^UTILITY(U,$J,358.3,5822,0)
 ;;=H11.31^^37^315^12
 ;;^UTILITY(U,$J,358.3,5822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5822,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Right Eye
 ;;^UTILITY(U,$J,358.3,5822,1,4,0)
 ;;=4^H11.31
 ;;^UTILITY(U,$J,358.3,5822,2)
 ;;=^5004782
 ;;^UTILITY(U,$J,358.3,5823,0)
 ;;=H11.32^^37^315^13
 ;;^UTILITY(U,$J,358.3,5823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5823,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Left Eye
 ;;^UTILITY(U,$J,358.3,5823,1,4,0)
 ;;=4^H11.32
 ;;^UTILITY(U,$J,358.3,5823,2)
 ;;=^5004783
 ;;^UTILITY(U,$J,358.3,5824,0)
 ;;=H15.101^^37^315^14
 ;;^UTILITY(U,$J,358.3,5824,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5824,1,3,0)
 ;;=3^Episcleritis,Right Eye
 ;;^UTILITY(U,$J,358.3,5824,1,4,0)
 ;;=4^H15.101
 ;;^UTILITY(U,$J,358.3,5824,2)
 ;;=^5004835
 ;;^UTILITY(U,$J,358.3,5825,0)
 ;;=H15.102^^37^315^15
 ;;^UTILITY(U,$J,358.3,5825,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5825,1,3,0)
 ;;=3^Episcleritis,Left Eye
 ;;^UTILITY(U,$J,358.3,5825,1,4,0)
 ;;=4^H15.102
 ;;^UTILITY(U,$J,358.3,5825,2)
 ;;=^5004836
 ;;^UTILITY(U,$J,358.3,5826,0)
 ;;=H15.001^^37^315^16
 ;;^UTILITY(U,$J,358.3,5826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5826,1,3,0)
 ;;=3^Scleritis,Right Eye