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

IBDEI02J.m

Go to the documentation of this file.
IBDEI02J ; ; 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,5896,2)
 ;;=^5005159
 ;;^UTILITY(U,$J,358.3,5897,0)
 ;;=H20.22^^37^317^30
 ;;^UTILITY(U,$J,358.3,5897,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5897,1,3,0)
 ;;=3^Iridocyclitis,Lens-Induced,Left Eye
 ;;^UTILITY(U,$J,358.3,5897,1,4,0)
 ;;=4^H20.22
 ;;^UTILITY(U,$J,358.3,5897,2)
 ;;=^5005160
 ;;^UTILITY(U,$J,358.3,5898,0)
 ;;=H21.81^^37^317^31
 ;;^UTILITY(U,$J,358.3,5898,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5898,1,3,0)
 ;;=3^Floppy Iris Syndrome
 ;;^UTILITY(U,$J,358.3,5898,1,4,0)
 ;;=4^H21.81
 ;;^UTILITY(U,$J,358.3,5898,2)
 ;;=^5005263
 ;;^UTILITY(U,$J,358.3,5899,0)
 ;;=H27.01^^37^317^33
 ;;^UTILITY(U,$J,358.3,5899,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5899,1,3,0)
 ;;=3^Aphakia,Right Eye
 ;;^UTILITY(U,$J,358.3,5899,1,4,0)
 ;;=4^H27.01
 ;;^UTILITY(U,$J,358.3,5899,2)
 ;;=^5005365
 ;;^UTILITY(U,$J,358.3,5900,0)
 ;;=H27.02^^37^317^34
 ;;^UTILITY(U,$J,358.3,5900,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5900,1,3,0)
 ;;=3^Aphakia,Left Eye
 ;;^UTILITY(U,$J,358.3,5900,1,4,0)
 ;;=4^H27.02
 ;;^UTILITY(U,$J,358.3,5900,2)
 ;;=^5005366
 ;;^UTILITY(U,$J,358.3,5901,0)
 ;;=H27.111^^37^317^35
 ;;^UTILITY(U,$J,358.3,5901,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5901,1,3,0)
 ;;=3^Subluxation of Lens,Right Eye
 ;;^UTILITY(U,$J,358.3,5901,1,4,0)
 ;;=4^H27.111
 ;;^UTILITY(U,$J,358.3,5901,2)
 ;;=^5005369
 ;;^UTILITY(U,$J,358.3,5902,0)
 ;;=H27.112^^37^317^36
 ;;^UTILITY(U,$J,358.3,5902,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5902,1,3,0)
 ;;=3^Subluxation of Lens,Left Eye
 ;;^UTILITY(U,$J,358.3,5902,1,4,0)
 ;;=4^H27.112
 ;;^UTILITY(U,$J,358.3,5902,2)
 ;;=^5005370
 ;;^UTILITY(U,$J,358.3,5903,0)
 ;;=T85.22XA^^37^317^37
 ;;^UTILITY(U,$J,358.3,5903,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5903,1,3,0)
 ;;=3^Displacement of IOL,Init Encntr
 ;;^UTILITY(U,$J,358.3,5903,1,4,0)
 ;;=4^T85.22XA
 ;;^UTILITY(U,$J,358.3,5903,2)
 ;;=^5055529
 ;;^UTILITY(U,$J,358.3,5904,0)
 ;;=H25.813^^37^317^14
 ;;^UTILITY(U,$J,358.3,5904,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5904,1,3,0)
 ;;=3^Cataract,Combined Nucl/Cortical,Bilateral
 ;;^UTILITY(U,$J,358.3,5904,1,4,0)
 ;;=4^H25.813
 ;;^UTILITY(U,$J,358.3,5904,2)
 ;;=^5005293
 ;;^UTILITY(U,$J,358.3,5905,0)
 ;;=Z48.810^^37^317^22
 ;;^UTILITY(U,$J,358.3,5905,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5905,1,3,0)
 ;;=3^Aftercare Following EYE Surgery
 ;;^UTILITY(U,$J,358.3,5905,1,4,0)
 ;;=4^Z48.810
 ;;^UTILITY(U,$J,358.3,5905,2)
 ;;=^5063047
 ;;^UTILITY(U,$J,358.3,5906,0)
 ;;=H26.109^^37^317^32
 ;;^UTILITY(U,$J,358.3,5906,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5906,1,3,0)
 ;;=3^Retained Lens Fragments in Eye s/p Surgery,Unspec Eye
 ;;^UTILITY(U,$J,358.3,5906,1,4,0)
 ;;=4^H26.109
 ;;^UTILITY(U,$J,358.3,5906,2)
 ;;=^5133478
 ;;^UTILITY(U,$J,358.3,5907,0)
 ;;=Z98.42^^37^317^19
 ;;^UTILITY(U,$J,358.3,5907,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5907,1,3,0)
 ;;=3^Cataract Extraction Status,Left Eye
 ;;^UTILITY(U,$J,358.3,5907,1,4,0)
 ;;=4^Z98.42
 ;;^UTILITY(U,$J,358.3,5907,2)
 ;;=^5063738
 ;;^UTILITY(U,$J,358.3,5908,0)
 ;;=Z98.41^^37^317^18
 ;;^UTILITY(U,$J,358.3,5908,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5908,1,3,0)
 ;;=3^Cataract Extraction Status,Right Eye
 ;;^UTILITY(U,$J,358.3,5908,1,4,0)
 ;;=4^Z98.41
 ;;^UTILITY(U,$J,358.3,5908,2)
 ;;=^5063737
 ;;^UTILITY(U,$J,358.3,5909,0)
 ;;=H25.812^^37^317^13
 ;;^UTILITY(U,$J,358.3,5909,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5909,1,3,0)
 ;;=3^Combined Forms of Age-Related Cataract,Left Eye
 ;;^UTILITY(U,$J,358.3,5909,1,4,0)
 ;;=4^H25.812
 ;;^UTILITY(U,$J,358.3,5909,2)
 ;;=^5005292
 ;;^UTILITY(U,$J,358.3,5910,0)
 ;;=H25.811^^37^317^12
 ;;^UTILITY(U,$J,358.3,5910,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5910,1,3,0)
 ;;=3^Combined Forms of Age-Related Cataract,Right Eye
 ;;^UTILITY(U,$J,358.3,5910,1,4,0)
 ;;=4^H25.811
 ;;^UTILITY(U,$J,358.3,5910,2)
 ;;=^5005291
 ;;^UTILITY(U,$J,358.3,5911,0)
 ;;=H25.011^^37^317^4
 ;;^UTILITY(U,$J,358.3,5911,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5911,1,3,0)
 ;;=3^Cortical Age-Related Cataract,Right Eye
 ;;^UTILITY(U,$J,358.3,5911,1,4,0)
 ;;=4^H25.011
 ;;^UTILITY(U,$J,358.3,5911,2)
 ;;=^5005267
 ;;^UTILITY(U,$J,358.3,5912,0)
 ;;=H25.012^^37^317^5
 ;;^UTILITY(U,$J,358.3,5912,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5912,1,3,0)
 ;;=3^Cortical Age-Related Cataract,Left Eye
 ;;^UTILITY(U,$J,358.3,5912,1,4,0)
 ;;=4^H25.012
 ;;^UTILITY(U,$J,358.3,5912,2)
 ;;=^5005268
 ;;^UTILITY(U,$J,358.3,5913,0)
 ;;=H25.013^^37^317^6
 ;;^UTILITY(U,$J,358.3,5913,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5913,1,3,0)
 ;;=3^Cortical Age-Related Cataract,Bilateral
 ;;^UTILITY(U,$J,358.3,5913,1,4,0)
 ;;=4^H25.013
 ;;^UTILITY(U,$J,358.3,5913,2)
 ;;=^5005269
 ;;^UTILITY(U,$J,358.3,5914,0)
 ;;=H25.041^^37^317^8
 ;;^UTILITY(U,$J,358.3,5914,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5914,1,3,0)
 ;;=3^Posterior Subcapular Polar Age-Related Cataract,Right Eye
 ;;^UTILITY(U,$J,358.3,5914,1,4,0)
 ;;=4^H25.041
 ;;^UTILITY(U,$J,358.3,5914,2)
 ;;=^5005275
 ;;^UTILITY(U,$J,358.3,5915,0)
 ;;=H25.042^^37^317^9
 ;;^UTILITY(U,$J,358.3,5915,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5915,1,3,0)
 ;;=3^Posterior Subcapular Polar Age-Related Cataract,Left Eye
 ;;^UTILITY(U,$J,358.3,5915,1,4,0)
 ;;=4^H25.042
 ;;^UTILITY(U,$J,358.3,5915,2)
 ;;=^5005276
 ;;^UTILITY(U,$J,358.3,5916,0)
 ;;=H25.043^^37^317^10
 ;;^UTILITY(U,$J,358.3,5916,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5916,1,3,0)
 ;;=3^Posterior Subcapular Polar Age-Related Cataract,Bilateral
 ;;^UTILITY(U,$J,358.3,5916,1,4,0)
 ;;=4^H25.043
 ;;^UTILITY(U,$J,358.3,5916,2)
 ;;=^5005277
 ;;^UTILITY(U,$J,358.3,5917,0)
 ;;=H52.221^^37^317^39
 ;;^UTILITY(U,$J,358.3,5917,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5917,1,3,0)
 ;;=3^Regular Astigmatism,Right Eye
 ;;^UTILITY(U,$J,358.3,5917,1,4,0)
 ;;=4^H52.221
 ;;^UTILITY(U,$J,358.3,5917,2)
 ;;=^5006274
 ;;^UTILITY(U,$J,358.3,5918,0)
 ;;=H52.222^^37^317^40
 ;;^UTILITY(U,$J,358.3,5918,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5918,1,3,0)
 ;;=3^Regular Astigmatism,Left Eye
 ;;^UTILITY(U,$J,358.3,5918,1,4,0)
 ;;=4^H52.222
 ;;^UTILITY(U,$J,358.3,5918,2)
 ;;=^5006275
 ;;^UTILITY(U,$J,358.3,5919,0)
 ;;=H52.223^^37^317^41
 ;;^UTILITY(U,$J,358.3,5919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5919,1,3,0)
 ;;=3^Regular Astigmatism,Bilateral
 ;;^UTILITY(U,$J,358.3,5919,1,4,0)
 ;;=4^H52.223
 ;;^UTILITY(U,$J,358.3,5919,2)
 ;;=^5006276
 ;;^UTILITY(U,$J,358.3,5920,0)
 ;;=H52.4^^37^317^42
 ;;^UTILITY(U,$J,358.3,5920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5920,1,3,0)
 ;;=3^Presbyopia
 ;;^UTILITY(U,$J,358.3,5920,1,4,0)
 ;;=4^H52.4
 ;;^UTILITY(U,$J,358.3,5920,2)
 ;;=^98095
 ;;^UTILITY(U,$J,358.3,5921,0)
 ;;=H20.00^^37^318^1
 ;;^UTILITY(U,$J,358.3,5921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5921,1,3,0)
 ;;=3^Iridocyclitis,Acute/Subacute NEC
 ;;^UTILITY(U,$J,358.3,5921,1,4,0)
 ;;=4^H20.00
 ;;^UTILITY(U,$J,358.3,5921,2)
 ;;=^5005133
 ;;^UTILITY(U,$J,358.3,5922,0)
 ;;=H20.051^^37^318^12
 ;;^UTILITY(U,$J,358.3,5922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5922,1,3,0)
 ;;=3^Hypopyon,Right Eye
 ;;^UTILITY(U,$J,358.3,5922,1,4,0)
 ;;=4^H20.051
 ;;^UTILITY(U,$J,358.3,5922,2)
 ;;=^5005150
 ;;^UTILITY(U,$J,358.3,5923,0)
 ;;=H20.052^^37^318^13
 ;;^UTILITY(U,$J,358.3,5923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5923,1,3,0)
 ;;=3^Hypopyon,Left Eye
 ;;^UTILITY(U,$J,358.3,5923,1,4,0)
 ;;=4^H20.052
 ;;^UTILITY(U,$J,358.3,5923,2)
 ;;=^5005151
 ;;^UTILITY(U,$J,358.3,5924,0)
 ;;=B00.52^^37^318^6
 ;;^UTILITY(U,$J,358.3,5924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5924,1,3,0)
 ;;=3^Herpes Viral Keratitis
 ;;^UTILITY(U,$J,358.3,5924,1,4,0)
 ;;=4^B00.52
 ;;^UTILITY(U,$J,358.3,5924,2)
 ;;=^5000474
 ;;^UTILITY(U,$J,358.3,5925,0)
 ;;=B00.51^^37^318^7
 ;;^UTILITY(U,$J,358.3,5925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5925,1,3,0)
 ;;=3^Herpes Viral Iridocyclitis
 ;;^UTILITY(U,$J,358.3,5925,1,4,0)
 ;;=4^B00.51
 ;;^UTILITY(U,$J,358.3,5925,2)
 ;;=^5000473
 ;;^UTILITY(U,$J,358.3,5926,0)
 ;;=B00.59^^37^318^8
 ;;^UTILITY(U,$J,358.3,5926,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5926,1,3,0)
 ;;=3^Herpes Viral Eye Disease NEC
 ;;^UTILITY(U,$J,358.3,5926,1,4,0)
 ;;=4^B00.59
 ;;^UTILITY(U,$J,358.3,5926,2)
 ;;=^5000476
 ;;^UTILITY(U,$J,358.3,5927,0)
 ;;=B02.33^^37^318^9
 ;;^UTILITY(U,$J,358.3,5927,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5927,1,3,0)
 ;;=3^Herpes Zoster Keratitis
 ;;^UTILITY(U,$J,358.3,5927,1,4,0)
 ;;=4^B02.33
 ;;^UTILITY(U,$J,358.3,5927,2)
 ;;=^5000496
 ;;^UTILITY(U,$J,358.3,5928,0)
 ;;=B02.32^^37^318^10
 ;;^UTILITY(U,$J,358.3,5928,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5928,1,3,0)
 ;;=3^Herpes Zoster Iridocyclitis
 ;;^UTILITY(U,$J,358.3,5928,1,4,0)
 ;;=4^B02.32
 ;;^UTILITY(U,$J,358.3,5928,2)
 ;;=^5000495
 ;;^UTILITY(U,$J,358.3,5929,0)
 ;;=B02.39^^37^318^11
 ;;^UTILITY(U,$J,358.3,5929,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5929,1,3,0)
 ;;=3^Herpes Zoster Eye Disease NEC
 ;;^UTILITY(U,$J,358.3,5929,1,4,0)
 ;;=4^B02.39
 ;;^UTILITY(U,$J,358.3,5929,2)
 ;;=^5000498
 ;;^UTILITY(U,$J,358.3,5930,0)
 ;;=H21.01^^37^318^14
 ;;^UTILITY(U,$J,358.3,5930,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5930,1,3,0)
 ;;=3^Hyphema,Right Eye
 ;;^UTILITY(U,$J,358.3,5930,1,4,0)
 ;;=4^H21.01
 ;;^UTILITY(U,$J,358.3,5930,2)
 ;;=^5005172
 ;;^UTILITY(U,$J,358.3,5931,0)
 ;;=H21.02^^37^318^15
 ;;^UTILITY(U,$J,358.3,5931,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5931,1,3,0)
 ;;=3^Hyphema,Left Eye
 ;;^UTILITY(U,$J,358.3,5931,1,4,0)
 ;;=4^H21.02
 ;;^UTILITY(U,$J,358.3,5931,2)
 ;;=^5005173
 ;;^UTILITY(U,$J,358.3,5932,0)
 ;;=H44.001^^37^318^24
 ;;^UTILITY(U,$J,358.3,5932,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5932,1,3,0)
 ;;=3^Purulent Endophthalmitis,Right Eye
 ;;^UTILITY(U,$J,358.3,5932,1,4,0)
 ;;=4^H44.001
 ;;^UTILITY(U,$J,358.3,5932,2)
 ;;=^5005963
 ;;^UTILITY(U,$J,358.3,5933,0)
 ;;=H44.002^^37^318^25
 ;;^UTILITY(U,$J,358.3,5933,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5933,1,3,0)
 ;;=3^Purulent Endophthalmitis,Left Eye
 ;;^UTILITY(U,$J,358.3,5933,1,4,0)
 ;;=4^H44.002
 ;;^UTILITY(U,$J,358.3,5933,2)
 ;;=^5005964
 ;;^UTILITY(U,$J,358.3,5934,0)
 ;;=H21.511^^37^318^18
 ;;^UTILITY(U,$J,358.3,5934,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5934,1,3,0)
 ;;=3^Anterior Synechiae,Right Eye
 ;;^UTILITY(U,$J,358.3,5934,1,4,0)
 ;;=4^H21.511
 ;;^UTILITY(U,$J,358.3,5934,2)
 ;;=^5005239
 ;;^UTILITY(U,$J,358.3,5935,0)
 ;;=H21.512^^37^318^19
 ;;^UTILITY(U,$J,358.3,5935,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5935,1,3,0)
 ;;=3^Anterior Synechiae,Left Eye
 ;;^UTILITY(U,$J,358.3,5935,1,4,0)
 ;;=4^H21.512
 ;;^UTILITY(U,$J,358.3,5935,2)
 ;;=^5005240
 ;;^UTILITY(U,$J,358.3,5936,0)
 ;;=H21.542^^37^318^20
 ;;^UTILITY(U,$J,358.3,5936,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5936,1,3,0)
 ;;=3^Posterior Synechiae,Left Eye
 ;;^UTILITY(U,$J,358.3,5936,1,4,0)
 ;;=4^H21.542
 ;;^UTILITY(U,$J,358.3,5936,2)
 ;;=^5005252
 ;;^UTILITY(U,$J,358.3,5937,0)
 ;;=H21.541^^37^318^21
 ;;^UTILITY(U,$J,358.3,5937,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5937,1,3,0)
 ;;=3^Posterior Synechiae,Right Eye
 ;;^UTILITY(U,$J,358.3,5937,1,4,0)
 ;;=4^H21.541
 ;;^UTILITY(U,$J,358.3,5937,2)
 ;;=^5005251
 ;;^UTILITY(U,$J,358.3,5938,0)
 ;;=H21.261^^37^318^26
 ;;^UTILITY(U,$J,358.3,5938,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5938,1,3,0)
 ;;=3^Iris Atrophy,Essential,Right Eye
 ;;^UTILITY(U,$J,358.3,5938,1,4,0)
 ;;=4^H21.261
 ;;^UTILITY(U,$J,358.3,5938,2)
 ;;=^5005199
 ;;^UTILITY(U,$J,358.3,5939,0)
 ;;=H21.262^^37^318^27
 ;;^UTILITY(U,$J,358.3,5939,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5939,1,3,0)
 ;;=3^Iris Atrophy,Essential,Left Eye
 ;;^UTILITY(U,$J,358.3,5939,1,4,0)
 ;;=4^H21.262
 ;;^UTILITY(U,$J,358.3,5939,2)
 ;;=^5005200
 ;;^UTILITY(U,$J,358.3,5940,0)
 ;;=H21.231^^37^318^28
 ;;^UTILITY(U,$J,358.3,5940,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5940,1,3,0)
 ;;=3^Degeneration of Iris,Pigmentary,Right Eye
 ;;^UTILITY(U,$J,358.3,5940,1,4,0)
 ;;=4^H21.231
 ;;^UTILITY(U,$J,358.3,5940,2)
 ;;=^5005187
 ;;^UTILITY(U,$J,358.3,5941,0)
 ;;=H21.232^^37^318^29
 ;;^UTILITY(U,$J,358.3,5941,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5941,1,3,0)
 ;;=3^Degeneration of Iris,Pigmentary,Left Eye
 ;;^UTILITY(U,$J,358.3,5941,1,4,0)
 ;;=4^H21.232
 ;;^UTILITY(U,$J,358.3,5941,2)
 ;;=^5005188
 ;;^UTILITY(U,$J,358.3,5942,0)
 ;;=H57.00^^37^318^30
 ;;^UTILITY(U,$J,358.3,5942,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5942,1,3,0)
 ;;=3^Anomaly of Pupillary Function,Unspec
 ;;^UTILITY(U,$J,358.3,5942,1,4,0)
 ;;=4^H57.00
 ;;^UTILITY(U,$J,358.3,5942,2)
 ;;=^5006375
 ;;^UTILITY(U,$J,358.3,5943,0)
 ;;=D31.42^^37^318^31
 ;;^UTILITY(U,$J,358.3,5943,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5943,1,3,0)
 ;;=3^Benign Neopl of Ciliary Body,Left Eye
 ;;^UTILITY(U,$J,358.3,5943,1,4,0)
 ;;=4^D31.42
 ;;^UTILITY(U,$J,358.3,5943,2)
 ;;=^5002125
 ;;^UTILITY(U,$J,358.3,5944,0)
 ;;=D31.41^^37^318^32
 ;;^UTILITY(U,$J,358.3,5944,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5944,1,3,0)
 ;;=3^Benign Neopl of Ciliary Body,Right Eye
 ;;^UTILITY(U,$J,358.3,5944,1,4,0)
 ;;=4^D31.41
 ;;^UTILITY(U,$J,358.3,5944,2)
 ;;=^5002124
 ;;^UTILITY(U,$J,358.3,5945,0)
 ;;=C69.41^^37^318^33
 ;;^UTILITY(U,$J,358.3,5945,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5945,1,3,0)
 ;;=3^Malig Neopl of Ciliary Body,Right Eye
 ;;^UTILITY(U,$J,358.3,5945,1,4,0)
 ;;=4^C69.41
 ;;^UTILITY(U,$J,358.3,5945,2)
 ;;=^5001279
 ;;^UTILITY(U,$J,358.3,5946,0)
 ;;=C69.42^^37^318^34
 ;;^UTILITY(U,$J,358.3,5946,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5946,1,3,0)
 ;;=3^Malig Neopl of Ciliary Body,Left Eye
 ;;^UTILITY(U,$J,358.3,5946,1,4,0)
 ;;=4^C69.42
 ;;^UTILITY(U,$J,358.3,5946,2)
 ;;=^5001280
 ;;^UTILITY(U,$J,358.3,5947,0)
 ;;=H35.061^^37^318^35
 ;;^UTILITY(U,$J,358.3,5947,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5947,1,3,0)
 ;;=3^Retinal Vasculitis,Right Eye
 ;;^UTILITY(U,$J,358.3,5947,1,4,0)
 ;;=4^H35.061
 ;;^UTILITY(U,$J,358.3,5947,2)
 ;;=^5005602
 ;;^UTILITY(U,$J,358.3,5948,0)
 ;;=H35.062^^37^318^36
 ;;^UTILITY(U,$J,358.3,5948,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5948,1,3,0)
 ;;=3^Retinal Vasculitis,Left Eye
 ;;^UTILITY(U,$J,358.3,5948,1,4,0)
 ;;=4^H35.062
 ;;^UTILITY(U,$J,358.3,5948,2)
 ;;=^5005603
 ;;^UTILITY(U,$J,358.3,5949,0)
 ;;=H20.011^^37^318^2
 ;;^UTILITY(U,$J,358.3,5949,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5949,1,3,0)
 ;;=3^Iridocyclitis,Primary,Right Eye
 ;;^UTILITY(U,$J,358.3,5949,1,4,0)
 ;;=4^H20.011
 ;;^UTILITY(U,$J,358.3,5949,2)
 ;;=^5005134
 ;;^UTILITY(U,$J,358.3,5950,0)
 ;;=H20.012^^37^318^3
 ;;^UTILITY(U,$J,358.3,5950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5950,1,3,0)
 ;;=3^Iridocyclitis,Primary,Left Eye
 ;;^UTILITY(U,$J,358.3,5950,1,4,0)
 ;;=4^H20.012
 ;;^UTILITY(U,$J,358.3,5950,2)
 ;;=^5005135
 ;;^UTILITY(U,$J,358.3,5951,0)
 ;;=H20.11^^37^318^4
 ;;^UTILITY(U,$J,358.3,5951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5951,1,3,0)
 ;;=3^Iridocyclitis,Chronic,Right Eye
 ;;^UTILITY(U,$J,358.3,5951,1,4,0)
 ;;=4^H20.11
 ;;^UTILITY(U,$J,358.3,5951,2)
 ;;=^5005155
 ;;^UTILITY(U,$J,358.3,5952,0)
 ;;=H20.12^^37^318^5
 ;;^UTILITY(U,$J,358.3,5952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5952,1,3,0)
 ;;=3^Iridocyclitis,Chronic,Left Eye
 ;;^UTILITY(U,$J,358.3,5952,1,4,0)
 ;;=4^H20.12
 ;;^UTILITY(U,$J,358.3,5952,2)
 ;;=^5005156
 ;;^UTILITY(U,$J,358.3,5953,0)
 ;;=H21.551^^37^318^16
 ;;^UTILITY(U,$J,358.3,5953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5953,1,3,0)
 ;;=3^Angle Recession,Right Eye
 ;;^UTILITY(U,$J,358.3,5953,1,4,0)
 ;;=4^H21.551
 ;;^UTILITY(U,$J,358.3,5953,2)
 ;;=^5005255
 ;;^UTILITY(U,$J,358.3,5954,0)
 ;;=H21.552^^37^318^17
 ;;^UTILITY(U,$J,358.3,5954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5954,1,3,0)
 ;;=3^Angle Recession,Left Eye
 ;;^UTILITY(U,$J,358.3,5954,1,4,0)
 ;;=4^H21.552
 ;;^UTILITY(U,$J,358.3,5954,2)
 ;;=^5005256
 ;;^UTILITY(U,$J,358.3,5955,0)
 ;;=H20.041^^37^318^22
 ;;^UTILITY(U,$J,358.3,5955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5955,1,3,0)
 ;;=3^Iridocyclitis,Traumatic,Right Eye
 ;;^UTILITY(U,$J,358.3,5955,1,4,0)
 ;;=4^H20.041
 ;;^UTILITY(U,$J,358.3,5955,2)
 ;;=^5005146
 ;;^UTILITY(U,$J,358.3,5956,0)
 ;;=H20.042^^37^318^23
 ;;^UTILITY(U,$J,358.3,5956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5956,1,3,0)
 ;;=3^Iridocyclitis,Traumatic,Left Eye
 ;;^UTILITY(U,$J,358.3,5956,1,4,0)
 ;;=4^H20.042
 ;;^UTILITY(U,$J,358.3,5956,2)
 ;;=^5005147
 ;;^UTILITY(U,$J,358.3,5957,0)
 ;;=H21.1X1^^37^318^37
 ;;^UTILITY(U,$J,358.3,5957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5957,1,3,0)
 ;;=3^Vascular Disorders of Iris & Ciliary Body,Rt Eye
 ;;^UTILITY(U,$J,358.3,5957,1,4,0)
 ;;=4^H21.1X1
 ;;^UTILITY(U,$J,358.3,5957,2)
 ;;=^5005175
 ;;^UTILITY(U,$J,358.3,5958,0)
 ;;=H21.1X2^^37^318^38
 ;;^UTILITY(U,$J,358.3,5958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5958,1,3,0)
 ;;=3^Vascular Disorders of Iris & Ciliary Body,Lt Eye
 ;;^UTILITY(U,$J,358.3,5958,1,4,0)
 ;;=4^H21.1X2
 ;;^UTILITY(U,$J,358.3,5958,2)
 ;;=^5005176
 ;;^UTILITY(U,$J,358.3,5959,0)
 ;;=H21.1X3^^37^318^39
 ;;^UTILITY(U,$J,358.3,5959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5959,1,3,0)
 ;;=3^Vascular Disorders of Iris & Ciliary Body,Bilateral
 ;;^UTILITY(U,$J,358.3,5959,1,4,0)
 ;;=4^H21.1X3
 ;;^UTILITY(U,$J,358.3,5959,2)
 ;;=^5005177
 ;;^UTILITY(U,$J,358.3,5960,0)
 ;;=H40.051^^37^319^1
 ;;^UTILITY(U,$J,358.3,5960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5960,1,3,0)
 ;;=3^Ocular Hypertension,Right Eye
 ;;^UTILITY(U,$J,358.3,5960,1,4,0)
 ;;=4^H40.051
 ;;^UTILITY(U,$J,358.3,5960,2)
 ;;=^5005740
 ;;^UTILITY(U,$J,358.3,5961,0)
 ;;=H40.052^^37^319^2
 ;;^UTILITY(U,$J,358.3,5961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5961,1,3,0)
 ;;=3^Ocular Hypertension,Left Eye
 ;;^UTILITY(U,$J,358.3,5961,1,4,0)
 ;;=4^H40.052
 ;;^UTILITY(U,$J,358.3,5961,2)
 ;;=^5005741
 ;;^UTILITY(U,$J,358.3,5962,0)
 ;;=H40.053^^37^319^3
 ;;^UTILITY(U,$J,358.3,5962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5962,1,3,0)
 ;;=3^Ocular Hypertension,Bilateral
 ;;^UTILITY(U,$J,358.3,5962,1,4,0)
 ;;=4^H40.053
 ;;^UTILITY(U,$J,358.3,5962,2)
 ;;=^5005742
 ;;^UTILITY(U,$J,358.3,5963,0)
 ;;=H40.1211^^37^319^16
 ;;^UTILITY(U,$J,358.3,5963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5963,1,3,0)
 ;;=3^Low-Tension Glaucoma,Mild,Right Eye
 ;;^UTILITY(U,$J,358.3,5963,1,4,0)
 ;;=4^H40.1211
 ;;^UTILITY(U,$J,358.3,5963,2)
 ;;=^5005759
 ;;^UTILITY(U,$J,358.3,5964,0)
 ;;=H40.1221^^37^319^19
 ;;^UTILITY(U,$J,358.3,5964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5964,1,3,0)
 ;;=3^Low-Tension Glaucoma,Mild,Left Eye
 ;;^UTILITY(U,$J,358.3,5964,1,4,0)
 ;;=4^H40.1221
 ;;^UTILITY(U,$J,358.3,5964,2)
 ;;=^5005764
 ;;^UTILITY(U,$J,358.3,5965,0)
 ;;=H40.1231^^37^319^22
 ;;^UTILITY(U,$J,358.3,5965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5965,1,3,0)
 ;;=3^Low-Tension Glaucoma,Mild,Bilateral
 ;;^UTILITY(U,$J,358.3,5965,1,4,0)
 ;;=4^H40.1231
 ;;^UTILITY(U,$J,358.3,5965,2)
 ;;=^5005768
 ;;^UTILITY(U,$J,358.3,5966,0)
 ;;=H40.1233^^37^319^24