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

IBDEI02Z.m

Go to the documentation of this file.
IBDEI02Z ; ; 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,7036,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7036,1,3,0)
 ;;=3^Retina Detachments NEC
 ;;^UTILITY(U,$J,358.3,7036,1,4,0)
 ;;=4^H33.8
 ;;^UTILITY(U,$J,358.3,7036,2)
 ;;=^5005551
 ;;^UTILITY(U,$J,358.3,7037,0)
 ;;=H33.001^^40^374^6
 ;;^UTILITY(U,$J,358.3,7037,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7037,1,3,0)
 ;;=3^Retinal Break w/ Retinal Detach,Right Eye
 ;;^UTILITY(U,$J,358.3,7037,1,4,0)
 ;;=4^H33.001
 ;;^UTILITY(U,$J,358.3,7037,2)
 ;;=^5005490
 ;;^UTILITY(U,$J,358.3,7038,0)
 ;;=H33.002^^40^374^7
 ;;^UTILITY(U,$J,358.3,7038,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7038,1,3,0)
 ;;=3^Retinal Break w/ Retinal Detach,Left Eye
 ;;^UTILITY(U,$J,358.3,7038,1,4,0)
 ;;=4^H33.002
 ;;^UTILITY(U,$J,358.3,7038,2)
 ;;=^5005491
 ;;^UTILITY(U,$J,358.3,7039,0)
 ;;=H33.311^^40^374^8
 ;;^UTILITY(U,$J,358.3,7039,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7039,1,3,0)
 ;;=3^Horseshoe Retinal Tear w/o Detach,Right Eye
 ;;^UTILITY(U,$J,358.3,7039,1,4,0)
 ;;=4^H33.311
 ;;^UTILITY(U,$J,358.3,7039,2)
 ;;=^5005535
 ;;^UTILITY(U,$J,358.3,7040,0)
 ;;=H33.312^^40^374^9
 ;;^UTILITY(U,$J,358.3,7040,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7040,1,3,0)
 ;;=3^Horseshoe Retinal Tear w/o Detach,Left Eye
 ;;^UTILITY(U,$J,358.3,7040,1,4,0)
 ;;=4^H33.312
 ;;^UTILITY(U,$J,358.3,7040,2)
 ;;=^5005536
 ;;^UTILITY(U,$J,358.3,7041,0)
 ;;=H33.031^^40^374^10
 ;;^UTILITY(U,$J,358.3,7041,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7041,1,3,0)
 ;;=3^Giant Retinal Tear w/ Detach,Right Eye
 ;;^UTILITY(U,$J,358.3,7041,1,4,0)
 ;;=4^H33.031
 ;;^UTILITY(U,$J,358.3,7041,2)
 ;;=^5005501
 ;;^UTILITY(U,$J,358.3,7042,0)
 ;;=H33.032^^40^374^11
 ;;^UTILITY(U,$J,358.3,7042,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7042,1,3,0)
 ;;=3^Giant Retinal Tear w/ Detach,Left Eye
 ;;^UTILITY(U,$J,358.3,7042,1,4,0)
 ;;=4^H33.032
 ;;^UTILITY(U,$J,358.3,7042,2)
 ;;=^5005502
 ;;^UTILITY(U,$J,358.3,7043,0)
 ;;=H33.051^^40^374^12
 ;;^UTILITY(U,$J,358.3,7043,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7043,1,3,0)
 ;;=3^Total Retinal Detach,Right Eye
 ;;^UTILITY(U,$J,358.3,7043,1,4,0)
 ;;=4^H33.051
 ;;^UTILITY(U,$J,358.3,7043,2)
 ;;=^5005509
 ;;^UTILITY(U,$J,358.3,7044,0)
 ;;=H33.052^^40^374^13
 ;;^UTILITY(U,$J,358.3,7044,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7044,1,3,0)
 ;;=3^Total Retinal Detach,Left Eye
 ;;^UTILITY(U,$J,358.3,7044,1,4,0)
 ;;=4^H33.052
 ;;^UTILITY(U,$J,358.3,7044,2)
 ;;=^5005510
 ;;^UTILITY(U,$J,358.3,7045,0)
 ;;=H43.11^^40^374^14
 ;;^UTILITY(U,$J,358.3,7045,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7045,1,3,0)
 ;;=3^Vitreous Hemorrhage,Right Eye
 ;;^UTILITY(U,$J,358.3,7045,1,4,0)
 ;;=4^H43.11
 ;;^UTILITY(U,$J,358.3,7045,2)
 ;;=^5005938
 ;;^UTILITY(U,$J,358.3,7046,0)
 ;;=H43.12^^40^374^15
 ;;^UTILITY(U,$J,358.3,7046,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7046,1,3,0)
 ;;=3^Vitreous Hemorrhage,Left Eye
 ;;^UTILITY(U,$J,358.3,7046,1,4,0)
 ;;=4^H43.12
 ;;^UTILITY(U,$J,358.3,7046,2)
 ;;=^5005939
 ;;^UTILITY(U,$J,358.3,7047,0)
 ;;=H35.431^^40^374^16
 ;;^UTILITY(U,$J,358.3,7047,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7047,1,3,0)
 ;;=3^Paving Stone Degen,Right Eye
 ;;^UTILITY(U,$J,358.3,7047,1,4,0)
 ;;=4^H35.431
 ;;^UTILITY(U,$J,358.3,7047,2)
 ;;=^5005679
 ;;^UTILITY(U,$J,358.3,7048,0)
 ;;=H35.432^^40^374^17
 ;;^UTILITY(U,$J,358.3,7048,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7048,1,3,0)
 ;;=3^Paving Stone Degen,Left Eye
 ;;^UTILITY(U,$J,358.3,7048,1,4,0)
 ;;=4^H35.432
 ;;^UTILITY(U,$J,358.3,7048,2)
 ;;=^5005680
 ;;^UTILITY(U,$J,358.3,7049,0)
 ;;=H35.411^^40^374^18
 ;;^UTILITY(U,$J,358.3,7049,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7049,1,3,0)
 ;;=3^Lattice Degeneration,Right Eye
 ;;^UTILITY(U,$J,358.3,7049,1,4,0)
 ;;=4^H35.411
 ;;^UTILITY(U,$J,358.3,7049,2)
 ;;=^5005671
 ;;^UTILITY(U,$J,358.3,7050,0)
 ;;=H35.412^^40^374^19
 ;;^UTILITY(U,$J,358.3,7050,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7050,1,3,0)
 ;;=3^Lattice Degeneration,Left Eye
 ;;^UTILITY(U,$J,358.3,7050,1,4,0)
 ;;=4^H35.412
 ;;^UTILITY(U,$J,358.3,7050,2)
 ;;=^5005672
 ;;^UTILITY(U,$J,358.3,7051,0)
 ;;=H35.413^^40^374^20
 ;;^UTILITY(U,$J,358.3,7051,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7051,1,3,0)
 ;;=3^Lattice Degeneration,Bilateral
 ;;^UTILITY(U,$J,358.3,7051,1,4,0)
 ;;=4^H35.413
 ;;^UTILITY(U,$J,358.3,7051,2)
 ;;=^5005673
 ;;^UTILITY(U,$J,358.3,7052,0)
 ;;=H35.52^^40^374^21
 ;;^UTILITY(U,$J,358.3,7052,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7052,1,3,0)
 ;;=3^Retinal Pigmentary Dystrophy
 ;;^UTILITY(U,$J,358.3,7052,1,4,0)
 ;;=4^H35.52
 ;;^UTILITY(U,$J,358.3,7052,2)
 ;;=^5005697
 ;;^UTILITY(U,$J,358.3,7053,0)
 ;;=H35.50^^40^374^22
 ;;^UTILITY(U,$J,358.3,7053,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7053,1,3,0)
 ;;=3^Retinal Dystrophy,Hereditary,Unspec
 ;;^UTILITY(U,$J,358.3,7053,1,4,0)
 ;;=4^H35.50
 ;;^UTILITY(U,$J,358.3,7053,2)
 ;;=^5005695
 ;;^UTILITY(U,$J,358.3,7054,0)
 ;;=H35.363^^40^375^29
 ;;^UTILITY(U,$J,358.3,7054,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7054,1,3,0)
 ;;=3^Drusen of Macula,Bilateral
 ;;^UTILITY(U,$J,358.3,7054,1,4,0)
 ;;=4^H35.363
 ;;^UTILITY(U,$J,358.3,7054,2)
 ;;=^5005660
 ;;^UTILITY(U,$J,358.3,7055,0)
 ;;=H35.731^^40^375^42
 ;;^UTILITY(U,$J,358.3,7055,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7055,1,3,0)
 ;;=3^Hemorrhagic Detachment of RPE,Right Eye
 ;;^UTILITY(U,$J,358.3,7055,1,4,0)
 ;;=4^H35.731
 ;;^UTILITY(U,$J,358.3,7055,2)
 ;;=^5005711
 ;;^UTILITY(U,$J,358.3,7056,0)
 ;;=H35.732^^40^375^43
 ;;^UTILITY(U,$J,358.3,7056,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7056,1,3,0)
 ;;=3^Hemorrhagic Detachment of RPE,Left Eye
 ;;^UTILITY(U,$J,358.3,7056,1,4,0)
 ;;=4^H35.732
 ;;^UTILITY(U,$J,358.3,7056,2)
 ;;=^5005712
 ;;^UTILITY(U,$J,358.3,7057,0)
 ;;=H35.721^^40^375^44
 ;;^UTILITY(U,$J,358.3,7057,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7057,1,3,0)
 ;;=3^Serous Detachment of RPE,Right Eye
 ;;^UTILITY(U,$J,358.3,7057,1,4,0)
 ;;=4^H35.721
 ;;^UTILITY(U,$J,358.3,7057,2)
 ;;=^5005707
 ;;^UTILITY(U,$J,358.3,7058,0)
 ;;=H35.722^^40^375^45
 ;;^UTILITY(U,$J,358.3,7058,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7058,1,3,0)
 ;;=3^Serous Detachment of RPE,Left Eye
 ;;^UTILITY(U,$J,358.3,7058,1,4,0)
 ;;=4^H35.722
 ;;^UTILITY(U,$J,358.3,7058,2)
 ;;=^5005708
 ;;^UTILITY(U,$J,358.3,7059,0)
 ;;=H59.031^^40^375^30
 ;;^UTILITY(U,$J,358.3,7059,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7059,1,3,0)
 ;;=3^CME after Cataract Surgery,Right Eye
 ;;^UTILITY(U,$J,358.3,7059,1,4,0)
 ;;=4^H59.031
 ;;^UTILITY(U,$J,358.3,7059,2)
 ;;=^5006393
 ;;^UTILITY(U,$J,358.3,7060,0)
 ;;=H59.032^^40^375^31
 ;;^UTILITY(U,$J,358.3,7060,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7060,1,3,0)
 ;;=3^CME after Cataract Surgery,Left Eye
 ;;^UTILITY(U,$J,358.3,7060,1,4,0)
 ;;=4^H59.032
 ;;^UTILITY(U,$J,358.3,7060,2)
 ;;=^5006394
 ;;^UTILITY(U,$J,358.3,7061,0)
 ;;=H35.81^^40^375^32
 ;;^UTILITY(U,$J,358.3,7061,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7061,1,3,0)
 ;;=3^Retinal Edema/CME Other Etiology
 ;;^UTILITY(U,$J,358.3,7061,1,4,0)
 ;;=4^H35.81
 ;;^UTILITY(U,$J,358.3,7061,2)
 ;;=^5005715
 ;;^UTILITY(U,$J,358.3,7062,0)
 ;;=H35.371^^40^375^33
 ;;^UTILITY(U,$J,358.3,7062,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7062,1,3,0)
 ;;=3^Macular Pucker/ERM,Right Eye
 ;;^UTILITY(U,$J,358.3,7062,1,4,0)
 ;;=4^H35.371
 ;;^UTILITY(U,$J,358.3,7062,2)
 ;;=^5005662
 ;;^UTILITY(U,$J,358.3,7063,0)
 ;;=H35.372^^40^375^34
 ;;^UTILITY(U,$J,358.3,7063,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7063,1,3,0)
 ;;=3^Macular Pucker/ERM,Left Eye
 ;;^UTILITY(U,$J,358.3,7063,1,4,0)
 ;;=4^H35.372
 ;;^UTILITY(U,$J,358.3,7063,2)
 ;;=^5005663
 ;;^UTILITY(U,$J,358.3,7064,0)
 ;;=H35.373^^40^375^35
 ;;^UTILITY(U,$J,358.3,7064,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7064,1,3,0)
 ;;=3^Macular Pucker/ERM,Bilateral
 ;;^UTILITY(U,$J,358.3,7064,1,4,0)
 ;;=4^H35.373
 ;;^UTILITY(U,$J,358.3,7064,2)
 ;;=^5005664
 ;;^UTILITY(U,$J,358.3,7065,0)
 ;;=H35.341^^40^375^36
 ;;^UTILITY(U,$J,358.3,7065,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7065,1,3,0)
 ;;=3^Macular Hole/Cyst/Pseudohole,Right Eye
 ;;^UTILITY(U,$J,358.3,7065,1,4,0)
 ;;=4^H35.341
 ;;^UTILITY(U,$J,358.3,7065,2)
 ;;=^5005650
 ;;^UTILITY(U,$J,358.3,7066,0)
 ;;=H35.342^^40^375^37
 ;;^UTILITY(U,$J,358.3,7066,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7066,1,3,0)
 ;;=3^Macular Hole/Cyst/Pseudohole,Left Eye
 ;;^UTILITY(U,$J,358.3,7066,1,4,0)
 ;;=4^H35.342
 ;;^UTILITY(U,$J,358.3,7066,2)
 ;;=^5005651
 ;;^UTILITY(U,$J,358.3,7067,0)
 ;;=H43.821^^40^375^38
 ;;^UTILITY(U,$J,358.3,7067,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7067,1,3,0)
 ;;=3^Vitreomacular Adhesion,Right Eye
 ;;^UTILITY(U,$J,358.3,7067,1,4,0)
 ;;=4^H43.821
 ;;^UTILITY(U,$J,358.3,7067,2)
 ;;=^5005957
 ;;^UTILITY(U,$J,358.3,7068,0)
 ;;=H43.822^^40^375^39
 ;;^UTILITY(U,$J,358.3,7068,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7068,1,3,0)
 ;;=3^Vitreomacular Adhesion,Left Eye
 ;;^UTILITY(U,$J,358.3,7068,1,4,0)
 ;;=4^H43.822
 ;;^UTILITY(U,$J,358.3,7068,2)
 ;;=^5005958
 ;;^UTILITY(U,$J,358.3,7069,0)
 ;;=H35.711^^40^375^40
 ;;^UTILITY(U,$J,358.3,7069,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7069,1,3,0)
 ;;=3^Central Serous Retinopathy,Right Eye
 ;;^UTILITY(U,$J,358.3,7069,1,4,0)
 ;;=4^H35.711
 ;;^UTILITY(U,$J,358.3,7069,2)
 ;;=^5005703
 ;;^UTILITY(U,$J,358.3,7070,0)
 ;;=H35.712^^40^375^41
 ;;^UTILITY(U,$J,358.3,7070,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7070,1,3,0)
 ;;=3^Central Serous Retinopathy,Left Eye
 ;;^UTILITY(U,$J,358.3,7070,1,4,0)
 ;;=4^H35.712
 ;;^UTILITY(U,$J,358.3,7070,2)
 ;;=^5005704
 ;;^UTILITY(U,$J,358.3,7071,0)
 ;;=H35.383^^40^375^46
 ;;^UTILITY(U,$J,358.3,7071,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7071,1,3,0)
 ;;=3^Toxic Maculopathy,Bilateral
 ;;^UTILITY(U,$J,358.3,7071,1,4,0)
 ;;=4^H35.383
 ;;^UTILITY(U,$J,358.3,7071,2)
 ;;=^5005668
 ;;^UTILITY(U,$J,358.3,7072,0)
 ;;=H31.021^^40^375^48
 ;;^UTILITY(U,$J,358.3,7072,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7072,1,3,0)
 ;;=3^Solar Retinopathy,Right Eye
 ;;^UTILITY(U,$J,358.3,7072,1,4,0)
 ;;=4^H31.021
 ;;^UTILITY(U,$J,358.3,7072,2)
 ;;=^5005443
 ;;^UTILITY(U,$J,358.3,7073,0)
 ;;=H31.022^^40^375^49
 ;;^UTILITY(U,$J,358.3,7073,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7073,1,3,0)
 ;;=3^Solar Retinopathy,Left Eye
 ;;^UTILITY(U,$J,358.3,7073,1,4,0)
 ;;=4^H31.022
 ;;^UTILITY(U,$J,358.3,7073,2)
 ;;=^5005444
 ;;^UTILITY(U,$J,358.3,7074,0)
 ;;=H44.23^^40^375^50
 ;;^UTILITY(U,$J,358.3,7074,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7074,1,3,0)
 ;;=3^Degenerative Myopia,Bilateral
 ;;^UTILITY(U,$J,358.3,7074,1,4,0)
 ;;=4^H44.23
 ;;^UTILITY(U,$J,358.3,7074,2)
 ;;=^5005989
 ;;^UTILITY(U,$J,358.3,7075,0)
 ;;=H31.011^^40^375^55
 ;;^UTILITY(U,$J,358.3,7075,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7075,1,3,0)
 ;;=3^Macula Scars of Posterior Pole,Right Eye
 ;;^UTILITY(U,$J,358.3,7075,1,4,0)
 ;;=4^H31.011
 ;;^UTILITY(U,$J,358.3,7075,2)
 ;;=^5005439
 ;;^UTILITY(U,$J,358.3,7076,0)
 ;;=H31.012^^40^375^57
 ;;^UTILITY(U,$J,358.3,7076,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7076,1,3,0)
 ;;=3^Macula Scars of Posterior Pole,Left Eye
 ;;^UTILITY(U,$J,358.3,7076,1,4,0)
 ;;=4^H31.012
 ;;^UTILITY(U,$J,358.3,7076,2)
 ;;=^5005440
 ;;^UTILITY(U,$J,358.3,7077,0)
 ;;=H35.50^^40^375^58
 ;;^UTILITY(U,$J,358.3,7077,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7077,1,3,0)
 ;;=3^Retinal Dystrophy,Hereditary,Unspec
 ;;^UTILITY(U,$J,358.3,7077,1,4,0)
 ;;=4^H35.50
 ;;^UTILITY(U,$J,358.3,7077,2)
 ;;=^5005695
 ;;^UTILITY(U,$J,358.3,7078,0)
 ;;=H35.3110^^40^375^1
 ;;^UTILITY(U,$J,358.3,7078,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7078,1,3,0)
 ;;=3^Non-Exudative ARMD,Right Eye (Unspec Stage)
 ;;^UTILITY(U,$J,358.3,7078,1,4,0)
 ;;=4^H35.3110
 ;;^UTILITY(U,$J,358.3,7078,2)
 ;;=^5138500
 ;;^UTILITY(U,$J,358.3,7079,0)
 ;;=H35.3120^^40^375^6
 ;;^UTILITY(U,$J,358.3,7079,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7079,1,3,0)
 ;;=3^Non-Exudative ARMD,Left Eye (Unspec Stage)
 ;;^UTILITY(U,$J,358.3,7079,1,4,0)
 ;;=4^H35.3120
 ;;^UTILITY(U,$J,358.3,7079,2)
 ;;=^5138505
 ;;^UTILITY(U,$J,358.3,7080,0)
 ;;=H35.3210^^40^375^16
 ;;^UTILITY(U,$J,358.3,7080,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7080,1,3,0)
 ;;=3^Exudative ARMD,Right Eye (Unspec Stage)
 ;;^UTILITY(U,$J,358.3,7080,1,4,0)
 ;;=4^H35.3210
 ;;^UTILITY(U,$J,358.3,7080,2)
 ;;=^5138520
 ;;^UTILITY(U,$J,358.3,7081,0)
 ;;=H35.3220^^40^375^20
 ;;^UTILITY(U,$J,358.3,7081,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7081,1,3,0)
 ;;=3^Exudative ARMD,Left Eye (Unspec Stage)
 ;;^UTILITY(U,$J,358.3,7081,1,4,0)
 ;;=4^H35.3220
 ;;^UTILITY(U,$J,358.3,7081,2)
 ;;=^5138524
 ;;^UTILITY(U,$J,358.3,7082,0)
 ;;=H35.3131^^40^375^12
 ;;^UTILITY(U,$J,358.3,7082,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7082,1,3,0)
 ;;=3^Non-Exudative ARMD,Bilateral,Early Dry Stage
 ;;^UTILITY(U,$J,358.3,7082,1,4,0)
 ;;=4^H35.3131
 ;;^UTILITY(U,$J,358.3,7082,2)
 ;;=^5138511
 ;;^UTILITY(U,$J,358.3,7083,0)
 ;;=H35.3130^^40^375^11
 ;;^UTILITY(U,$J,358.3,7083,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7083,1,3,0)
 ;;=3^Non-Exudative ARMD,Bilateral (Unspec Stage)
 ;;^UTILITY(U,$J,358.3,7083,1,4,0)
 ;;=4^H35.3130
 ;;^UTILITY(U,$J,358.3,7083,2)
 ;;=^5138510
 ;;^UTILITY(U,$J,358.3,7084,0)
 ;;=H44.2A1^^40^375^51
 ;;^UTILITY(U,$J,358.3,7084,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7084,1,3,0)
 ;;=3^Degenerative Myopia w/ CNV,Right Eye
 ;;^UTILITY(U,$J,358.3,7084,1,4,0)
 ;;=4^H44.2A1
 ;;^UTILITY(U,$J,358.3,7084,2)
 ;;=^5151318
 ;;^UTILITY(U,$J,358.3,7085,0)
 ;;=H44.2A2^^40^375^52
 ;;^UTILITY(U,$J,358.3,7085,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7085,1,3,0)
 ;;=3^Degenerative Myopia w/ CNV,Left Eye
 ;;^UTILITY(U,$J,358.3,7085,1,4,0)
 ;;=4^H44.2A2
 ;;^UTILITY(U,$J,358.3,7085,2)
 ;;=^5151319
 ;;^UTILITY(U,$J,358.3,7086,0)
 ;;=H44.2A3^^40^375^53
 ;;^UTILITY(U,$J,358.3,7086,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7086,1,3,0)
 ;;=3^Degenerative Myopia w/ CNV,Bilateral
 ;;^UTILITY(U,$J,358.3,7086,1,4,0)
 ;;=4^H44.2A3
 ;;^UTILITY(U,$J,358.3,7086,2)
 ;;=^5151320
 ;;^UTILITY(U,$J,358.3,7087,0)
 ;;=H44.2B1^^40^375^54
 ;;^UTILITY(U,$J,358.3,7087,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7087,1,3,0)
 ;;=3^Degenerative Myopia w/ Mac Hole,Right Eye
 ;;^UTILITY(U,$J,358.3,7087,1,4,0)
 ;;=4^H44.2B1
 ;;^UTILITY(U,$J,358.3,7087,2)
 ;;=^5151322
 ;;^UTILITY(U,$J,358.3,7088,0)
 ;;=H44.2B2^^40^375^56
 ;;^UTILITY(U,$J,358.3,7088,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7088,1,3,0)
 ;;=3^Degenerative Myopia w/ Mac Hole,Left Eye
 ;;^UTILITY(U,$J,358.3,7088,1,4,0)
 ;;=4^H44.2B2
 ;;^UTILITY(U,$J,358.3,7088,2)
 ;;=^5151323
 ;;^UTILITY(U,$J,358.3,7089,0)
 ;;=H35.3133^^40^375^14
 ;;^UTILITY(U,$J,358.3,7089,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7089,1,3,0)
 ;;=3^Non-Exudative ARMD,Bilateral,Adv Atrpc w/o Sbfvl Invlv
 ;;^UTILITY(U,$J,358.3,7089,1,4,0)
 ;;=4^H35.3133
 ;;^UTILITY(U,$J,358.3,7089,2)
 ;;=^5138513
 ;;^UTILITY(U,$J,358.3,7090,0)
 ;;=H35.3132^^40^375^13
 ;;^UTILITY(U,$J,358.3,7090,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7090,1,3,0)
 ;;=3^Non-Exudative ARMD,Bilateral,Intermed Dry Stage
 ;;^UTILITY(U,$J,358.3,7090,1,4,0)
 ;;=4^H35.3132
 ;;^UTILITY(U,$J,358.3,7090,2)
 ;;=^5138512
 ;;^UTILITY(U,$J,358.3,7091,0)
 ;;=H35.3291^^40^375^25
 ;;^UTILITY(U,$J,358.3,7091,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7091,1,3,0)
 ;;=3^Exudative ARMD, w/ Active CNVM, Unspec Eye
 ;;^UTILITY(U,$J,358.3,7091,1,4,0)
 ;;=4^H35.3291
 ;;^UTILITY(U,$J,358.3,7091,2)
 ;;=^5138533
 ;;^UTILITY(U,$J,358.3,7092,0)
 ;;=H35.3292^^40^375^24
 ;;^UTILITY(U,$J,358.3,7092,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7092,1,3,0)
 ;;=3^Exudative ARMD, w/ Inactive CNVM, Unspec Eye
 ;;^UTILITY(U,$J,358.3,7092,1,4,0)
 ;;=4^H35.3292
 ;;^UTILITY(U,$J,358.3,7092,2)
 ;;=^5138534
 ;;^UTILITY(U,$J,358.3,7093,0)
 ;;=H35.3293^^40^375^26
 ;;^UTILITY(U,$J,358.3,7093,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7093,1,3,0)
 ;;=3^Exudative ARMD, w/ Inactive Scar, Unspec Eye
 ;;^UTILITY(U,$J,358.3,7093,1,4,0)
 ;;=4^H35.3293
 ;;^UTILITY(U,$J,358.3,7093,2)
 ;;=^5138535
 ;;^UTILITY(U,$J,358.3,7094,0)
 ;;=Z79.899^^40^375^47
 ;;^UTILITY(U,$J,358.3,7094,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7094,1,3,0)
 ;;=3^Plaquenil/Long Term Med Screening
 ;;^UTILITY(U,$J,358.3,7094,1,4,0)
 ;;=4^Z79.899
 ;;^UTILITY(U,$J,358.3,7094,2)
 ;;=^5063343
 ;;^UTILITY(U,$J,358.3,7095,0)
 ;;=H35.3111^^40^375^2
 ;;^UTILITY(U,$J,358.3,7095,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7095,1,3,0)
 ;;=3^Non-Exudative ARMD,Right Eye,Early Dry Stage
 ;;^UTILITY(U,$J,358.3,7095,1,4,0)
 ;;=4^H35.3111
 ;;^UTILITY(U,$J,358.3,7095,2)
 ;;=^5138501
 ;;^UTILITY(U,$J,358.3,7096,0)
 ;;=H35.3112^^40^375^3
 ;;^UTILITY(U,$J,358.3,7096,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7096,1,3,0)
 ;;=3^Non-Exudative ARMD,Right Eye,Intermed Dry Stage
 ;;^UTILITY(U,$J,358.3,7096,1,4,0)
 ;;=4^H35.3112
 ;;^UTILITY(U,$J,358.3,7096,2)
 ;;=^5138502
 ;;^UTILITY(U,$J,358.3,7097,0)
 ;;=H35.3113^^40^375^4
 ;;^UTILITY(U,$J,358.3,7097,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7097,1,3,0)
 ;;=3^Non-Exudative ARMD,Right Eye,Adv Atrpc w/o Sbfvl Invlv
 ;;^UTILITY(U,$J,358.3,7097,1,4,0)
 ;;=4^H35.3113
 ;;^UTILITY(U,$J,358.3,7097,2)
 ;;=^5138503
 ;;^UTILITY(U,$J,358.3,7098,0)
 ;;=H35.3114^^40^375^5
 ;;^UTILITY(U,$J,358.3,7098,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7098,1,3,0)
 ;;=3^Non-Exudative ARMD,Right Eye,Adv Atrpc w/ Sbfvl Invlv
 ;;^UTILITY(U,$J,358.3,7098,1,4,0)
 ;;=4^H35.3114
 ;;^UTILITY(U,$J,358.3,7098,2)
 ;;=^5138504
 ;;^UTILITY(U,$J,358.3,7099,0)
 ;;=H35.3121^^40^375^7
 ;;^UTILITY(U,$J,358.3,7099,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7099,1,3,0)
 ;;=3^Non-Exudative ARMD,Left Eye,Early Dry Stage
 ;;^UTILITY(U,$J,358.3,7099,1,4,0)
 ;;=4^H35.3121
 ;;^UTILITY(U,$J,358.3,7099,2)
 ;;=^5138506
 ;;^UTILITY(U,$J,358.3,7100,0)
 ;;=H35.3124^^40^375^10
 ;;^UTILITY(U,$J,358.3,7100,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7100,1,3,0)
 ;;=3^Non-Exudative ARMD,Left Eye,Adv Atrpc w/ Sbfvl Invlv
 ;;^UTILITY(U,$J,358.3,7100,1,4,0)
 ;;=4^H35.3124
 ;;^UTILITY(U,$J,358.3,7100,2)
 ;;=^5138509
 ;;^UTILITY(U,$J,358.3,7101,0)
 ;;=H35.3122^^40^375^8
 ;;^UTILITY(U,$J,358.3,7101,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7101,1,3,0)
 ;;=3^Non-Exudative ARMD,Left Eye,Intermed Dry Stage
 ;;^UTILITY(U,$J,358.3,7101,1,4,0)
 ;;=4^H35.3122
 ;;^UTILITY(U,$J,358.3,7101,2)
 ;;=^5138507
 ;;^UTILITY(U,$J,358.3,7102,0)
 ;;=H35.3123^^40^375^9
 ;;^UTILITY(U,$J,358.3,7102,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7102,1,3,0)
 ;;=3^Non-Exudative ARMD,Left Eye,Adv Atrpc w/o Sbfvl Invlv
 ;;^UTILITY(U,$J,358.3,7102,1,4,0)
 ;;=4^H35.3123
 ;;^UTILITY(U,$J,358.3,7102,2)
 ;;=^5138508
 ;;^UTILITY(U,$J,358.3,7103,0)
 ;;=H35.3134^^40^375^15
 ;;^UTILITY(U,$J,358.3,7103,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7103,1,3,0)
 ;;=3^Non-Exudative ARMD,Bilateral,Adv Atrpc w/ Sbfvl Invlv
 ;;^UTILITY(U,$J,358.3,7103,1,4,0)
 ;;=4^H35.3134
 ;;^UTILITY(U,$J,358.3,7103,2)
 ;;=^5138514
 ;;^UTILITY(U,$J,358.3,7104,0)
 ;;=H35.3211^^40^375^17