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

IBDEI02K.m

Go to the documentation of this file.
IBDEI02K ; ; 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,5966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5966,1,3,0)
 ;;=3^Low-Tension Glaucoma,Severe,Bilateral
 ;;^UTILITY(U,$J,358.3,5966,1,4,0)
 ;;=4^H40.1233
 ;;^UTILITY(U,$J,358.3,5966,2)
 ;;=^5005770
 ;;^UTILITY(U,$J,358.3,5967,0)
 ;;=H40.011^^37^319^25
 ;;^UTILITY(U,$J,358.3,5967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5967,1,3,0)
 ;;=3^Open Angle w/ Borderline Findings,Low Risk,Right Eye
 ;;^UTILITY(U,$J,358.3,5967,1,4,0)
 ;;=4^H40.011
 ;;^UTILITY(U,$J,358.3,5967,2)
 ;;=^5005724
 ;;^UTILITY(U,$J,358.3,5968,0)
 ;;=H40.012^^37^319^26
 ;;^UTILITY(U,$J,358.3,5968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5968,1,3,0)
 ;;=3^Open Angle w/ Borderline Findings,Low Risk,Left Eye
 ;;^UTILITY(U,$J,358.3,5968,1,4,0)
 ;;=4^H40.012
 ;;^UTILITY(U,$J,358.3,5968,2)
 ;;=^5005725
 ;;^UTILITY(U,$J,358.3,5969,0)
 ;;=H59.41^^37^319^29
 ;;^UTILITY(U,$J,358.3,5969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5969,1,3,0)
 ;;=3^Blebitis,Stage 1
 ;;^UTILITY(U,$J,358.3,5969,1,4,0)
 ;;=4^H59.41
 ;;^UTILITY(U,$J,358.3,5969,2)
 ;;=^5006426
 ;;^UTILITY(U,$J,358.3,5970,0)
 ;;=H40.1111^^37^319^6
 ;;^UTILITY(U,$J,358.3,5970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5970,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Mild Stage,Right Eye
 ;;^UTILITY(U,$J,358.3,5970,1,4,0)
 ;;=4^H40.1111
 ;;^UTILITY(U,$J,358.3,5970,2)
 ;;=^5138537
 ;;^UTILITY(U,$J,358.3,5971,0)
 ;;=H40.1121^^37^319^7
 ;;^UTILITY(U,$J,358.3,5971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5971,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Mild Stage,Left Eye
 ;;^UTILITY(U,$J,358.3,5971,1,4,0)
 ;;=4^H40.1121
 ;;^UTILITY(U,$J,358.3,5971,2)
 ;;=^5138542
 ;;^UTILITY(U,$J,358.3,5972,0)
 ;;=H40.013^^37^319^4
 ;;^UTILITY(U,$J,358.3,5972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5972,1,3,0)
 ;;=3^Glaucoma Suspect,Low Risk,Bilateral
 ;;^UTILITY(U,$J,358.3,5972,1,4,0)
 ;;=4^H40.013
 ;;^UTILITY(U,$J,358.3,5972,2)
 ;;=^5005726
 ;;^UTILITY(U,$J,358.3,5973,0)
 ;;=H40.023^^37^319^5
 ;;^UTILITY(U,$J,358.3,5973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5973,1,3,0)
 ;;=3^Glaucoma Suspect,High Risk,Bilateral
 ;;^UTILITY(U,$J,358.3,5973,1,4,0)
 ;;=4^H40.023
 ;;^UTILITY(U,$J,358.3,5973,2)
 ;;=^5005730
 ;;^UTILITY(U,$J,358.3,5974,0)
 ;;=H40.1132^^37^319^11
 ;;^UTILITY(U,$J,358.3,5974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5974,1,3,0)
 ;;=3^Primary Open-Angle Gluacoma,Mod Stage,Bilateral
 ;;^UTILITY(U,$J,358.3,5974,1,4,0)
 ;;=4^H40.1132
 ;;^UTILITY(U,$J,358.3,5974,2)
 ;;=^5138548
 ;;^UTILITY(U,$J,358.3,5975,0)
 ;;=H40.1232^^37^319^23
 ;;^UTILITY(U,$J,358.3,5975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5975,1,3,0)
 ;;=3^Low-Tension Glaucoma,Mod,Bilateral
 ;;^UTILITY(U,$J,358.3,5975,1,4,0)
 ;;=4^H40.1232
 ;;^UTILITY(U,$J,358.3,5975,2)
 ;;=^5005769
 ;;^UTILITY(U,$J,358.3,5976,0)
 ;;=H40.1113^^37^319^12
 ;;^UTILITY(U,$J,358.3,5976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5976,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Sev Stage,Right Eye
 ;;^UTILITY(U,$J,358.3,5976,1,4,0)
 ;;=4^H40.1113
 ;;^UTILITY(U,$J,358.3,5976,2)
 ;;=^5138539
 ;;^UTILITY(U,$J,358.3,5977,0)
 ;;=H40.1123^^37^319^13
 ;;^UTILITY(U,$J,358.3,5977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5977,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Sev Stage,Left Eye
 ;;^UTILITY(U,$J,358.3,5977,1,4,0)
 ;;=4^H40.1123
 ;;^UTILITY(U,$J,358.3,5977,2)
 ;;=^5138544
 ;;^UTILITY(U,$J,358.3,5978,0)
 ;;=H40.022^^37^319^28
 ;;^UTILITY(U,$J,358.3,5978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5978,1,3,0)
 ;;=3^Open Angle w/ Borderline Findings,High Risk,Left Eye
 ;;^UTILITY(U,$J,358.3,5978,1,4,0)
 ;;=4^H40.022
 ;;^UTILITY(U,$J,358.3,5978,2)
 ;;=^5005729
 ;;^UTILITY(U,$J,358.3,5979,0)
 ;;=H40.021^^37^319^27
 ;;^UTILITY(U,$J,358.3,5979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5979,1,3,0)
 ;;=3^Open Angle w/ Borderline Findings,High Risk,Right Eye
 ;;^UTILITY(U,$J,358.3,5979,1,4,0)
 ;;=4^H40.021
 ;;^UTILITY(U,$J,358.3,5979,2)
 ;;=^5005728
 ;;^UTILITY(U,$J,358.3,5980,0)
 ;;=H40.1131^^37^319^8
 ;;^UTILITY(U,$J,358.3,5980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5980,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Mild Stage,Bilateral
 ;;^UTILITY(U,$J,358.3,5980,1,4,0)
 ;;=4^H40.1131
 ;;^UTILITY(U,$J,358.3,5980,2)
 ;;=^5138547
 ;;^UTILITY(U,$J,358.3,5981,0)
 ;;=H40.1112^^37^319^9
 ;;^UTILITY(U,$J,358.3,5981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5981,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Mod Stage,Right Eye
 ;;^UTILITY(U,$J,358.3,5981,1,4,0)
 ;;=4^H40.1112
 ;;^UTILITY(U,$J,358.3,5981,2)
 ;;=^5138538
 ;;^UTILITY(U,$J,358.3,5982,0)
 ;;=H40.1122^^37^319^10
 ;;^UTILITY(U,$J,358.3,5982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5982,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Mod Stage,Left Eye
 ;;^UTILITY(U,$J,358.3,5982,1,4,0)
 ;;=4^H40.1122
 ;;^UTILITY(U,$J,358.3,5982,2)
 ;;=^5138543
 ;;^UTILITY(U,$J,358.3,5983,0)
 ;;=H40.1114^^37^319^14
 ;;^UTILITY(U,$J,358.3,5983,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5983,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Indeterminate,Right Eye
 ;;^UTILITY(U,$J,358.3,5983,1,4,0)
 ;;=4^H40.1114
 ;;^UTILITY(U,$J,358.3,5983,2)
 ;;=^5138540
 ;;^UTILITY(U,$J,358.3,5984,0)
 ;;=H40.1124^^37^319^15
 ;;^UTILITY(U,$J,358.3,5984,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5984,1,3,0)
 ;;=3^Primary Open-Angle Glaucoma,Indeterminate,Left Eye
 ;;^UTILITY(U,$J,358.3,5984,1,4,0)
 ;;=4^H40.1124
 ;;^UTILITY(U,$J,358.3,5984,2)
 ;;=^5138545
 ;;^UTILITY(U,$J,358.3,5985,0)
 ;;=Z83.511^^37^319^30
 ;;^UTILITY(U,$J,358.3,5985,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5985,1,3,0)
 ;;=3^Family Hx of Glaucoma
 ;;^UTILITY(U,$J,358.3,5985,1,4,0)
 ;;=4^Z83.511
 ;;^UTILITY(U,$J,358.3,5985,2)
 ;;=^5063382
 ;;^UTILITY(U,$J,358.3,5986,0)
 ;;=H40.1223^^37^319^21
 ;;^UTILITY(U,$J,358.3,5986,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5986,1,3,0)
 ;;=3^Low-Tension Glaucoma,Severe,Left Eye
 ;;^UTILITY(U,$J,358.3,5986,1,4,0)
 ;;=4^H40.1223
 ;;^UTILITY(U,$J,358.3,5986,2)
 ;;=^5133492
 ;;^UTILITY(U,$J,358.3,5987,0)
 ;;=H40.1222^^37^319^20
 ;;^UTILITY(U,$J,358.3,5987,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5987,1,3,0)
 ;;=3^Low-Tension Glaucoma,Moderate,Left Eye
 ;;^UTILITY(U,$J,358.3,5987,1,4,0)
 ;;=4^H40.1222
 ;;^UTILITY(U,$J,358.3,5987,2)
 ;;=^5005765
 ;;^UTILITY(U,$J,358.3,5988,0)
 ;;=H40.1213^^37^319^18
 ;;^UTILITY(U,$J,358.3,5988,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5988,1,3,0)
 ;;=3^Low-Tension Glaucoma,Severe,Right Eye
 ;;^UTILITY(U,$J,358.3,5988,1,4,0)
 ;;=4^H40.1213
 ;;^UTILITY(U,$J,358.3,5988,2)
 ;;=^5005761
 ;;^UTILITY(U,$J,358.3,5989,0)
 ;;=H40.1212^^37^319^17
 ;;^UTILITY(U,$J,358.3,5989,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5989,1,3,0)
 ;;=3^Low-Tension Glaucoma,Moderate,Right Eye
 ;;^UTILITY(U,$J,358.3,5989,1,4,0)
 ;;=4^H40.1212
 ;;^UTILITY(U,$J,358.3,5989,2)
 ;;=^5005760
 ;;^UTILITY(U,$J,358.3,5990,0)
 ;;=H40.031^^37^320^1
 ;;^UTILITY(U,$J,358.3,5990,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5990,1,3,0)
 ;;=3^Anatomical Narrow Angle,Right Eye
 ;;^UTILITY(U,$J,358.3,5990,1,4,0)
 ;;=4^H40.031
 ;;^UTILITY(U,$J,358.3,5990,2)
 ;;=^5005732
 ;;^UTILITY(U,$J,358.3,5991,0)
 ;;=H40.032^^37^320^2
 ;;^UTILITY(U,$J,358.3,5991,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5991,1,3,0)
 ;;=3^Anatomical Narrow Angle,Left Eye
 ;;^UTILITY(U,$J,358.3,5991,1,4,0)
 ;;=4^H40.032
 ;;^UTILITY(U,$J,358.3,5991,2)
 ;;=^5005733
 ;;^UTILITY(U,$J,358.3,5992,0)
 ;;=H40.033^^37^320^3
 ;;^UTILITY(U,$J,358.3,5992,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5992,1,3,0)
 ;;=3^Anatomical Narrow Angle,Bilateral
 ;;^UTILITY(U,$J,358.3,5992,1,4,0)
 ;;=4^H40.033
 ;;^UTILITY(U,$J,358.3,5992,2)
 ;;=^5005734
 ;;^UTILITY(U,$J,358.3,5993,0)
 ;;=H40.061^^37^320^4
 ;;^UTILITY(U,$J,358.3,5993,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5993,1,3,0)
 ;;=3^Primary Angle Closure w/o Damage,Right Eye
 ;;^UTILITY(U,$J,358.3,5993,1,4,0)
 ;;=4^H40.061
 ;;^UTILITY(U,$J,358.3,5993,2)
 ;;=^5005744
 ;;^UTILITY(U,$J,358.3,5994,0)
 ;;=H40.062^^37^320^5
 ;;^UTILITY(U,$J,358.3,5994,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5994,1,3,0)
 ;;=3^Primary Angle Closure w/o Damage,Left Eye
 ;;^UTILITY(U,$J,358.3,5994,1,4,0)
 ;;=4^H40.062
 ;;^UTILITY(U,$J,358.3,5994,2)
 ;;=^5005745
 ;;^UTILITY(U,$J,358.3,5995,0)
 ;;=H40.063^^37^320^6
 ;;^UTILITY(U,$J,358.3,5995,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5995,1,3,0)
 ;;=3^Primary Angle Closure w/o Damage,Bilateral
 ;;^UTILITY(U,$J,358.3,5995,1,4,0)
 ;;=4^H40.063
 ;;^UTILITY(U,$J,358.3,5995,2)
 ;;=^5005746
 ;;^UTILITY(U,$J,358.3,5996,0)
 ;;=H40.20X1^^37^320^7
 ;;^UTILITY(U,$J,358.3,5996,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5996,1,3,0)
 ;;=3^Angle-Closure Glaucoma,Primary,Mild Stage
 ;;^UTILITY(U,$J,358.3,5996,1,4,0)
 ;;=4^H40.20X1
 ;;^UTILITY(U,$J,358.3,5996,2)
 ;;=^5005814
 ;;^UTILITY(U,$J,358.3,5997,0)
 ;;=H40.20X2^^37^320^8
 ;;^UTILITY(U,$J,358.3,5997,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5997,1,3,0)
 ;;=3^Angle-Closure Glaucoma,Primary,Moderate Stage
 ;;^UTILITY(U,$J,358.3,5997,1,4,0)
 ;;=4^H40.20X2
 ;;^UTILITY(U,$J,358.3,5997,2)
 ;;=^5005815
 ;;^UTILITY(U,$J,358.3,5998,0)
 ;;=H40.20X3^^37^320^9
 ;;^UTILITY(U,$J,358.3,5998,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5998,1,3,0)
 ;;=3^Angle-Closure Glaucoma,Primary,Severe Stage
 ;;^UTILITY(U,$J,358.3,5998,1,4,0)
 ;;=4^H40.20X3
 ;;^UTILITY(U,$J,358.3,5998,2)
 ;;=^5005816
 ;;^UTILITY(U,$J,358.3,5999,0)
 ;;=H40.2211^^37^320^10
 ;;^UTILITY(U,$J,358.3,5999,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5999,1,3,0)
 ;;=3^Angle-Closure Glaucoma,Chronic,Mild,Right Eye
 ;;^UTILITY(U,$J,358.3,5999,1,4,0)
 ;;=4^H40.2211
 ;;^UTILITY(U,$J,358.3,5999,2)
 ;;=^5005823
 ;;^UTILITY(U,$J,358.3,6000,0)
 ;;=H40.2221^^37^320^11
 ;;^UTILITY(U,$J,358.3,6000,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6000,1,3,0)
 ;;=3^Angle-Closure Glaucoma,Chronic,Mild,Left Eye
 ;;^UTILITY(U,$J,358.3,6000,1,4,0)
 ;;=4^H40.2221
 ;;^UTILITY(U,$J,358.3,6000,2)
 ;;=^5005828
 ;;^UTILITY(U,$J,358.3,6001,0)
 ;;=H40.2231^^37^320^12
 ;;^UTILITY(U,$J,358.3,6001,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6001,1,3,0)
 ;;=3^Angle-Closure Glaucoma,Chronic,Mild,Bilateral
 ;;^UTILITY(U,$J,358.3,6001,1,4,0)
 ;;=4^H40.2231
 ;;^UTILITY(U,$J,358.3,6001,2)
 ;;=^5005832
 ;;^UTILITY(U,$J,358.3,6002,0)
 ;;=H40.2213^^37^320^13
 ;;^UTILITY(U,$J,358.3,6002,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6002,1,3,0)
 ;;=3^Angle-Closure Glaucoma,Chronic,Severe,Right Eye
 ;;^UTILITY(U,$J,358.3,6002,1,4,0)
 ;;=4^H40.2213
 ;;^UTILITY(U,$J,358.3,6002,2)
 ;;=^5005825
 ;;^UTILITY(U,$J,358.3,6003,0)
 ;;=H40.2223^^37^320^14
 ;;^UTILITY(U,$J,358.3,6003,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6003,1,3,0)
 ;;=3^Angle-Closure Glaucoma,Chronic,Severe,Left Eye
 ;;^UTILITY(U,$J,358.3,6003,1,4,0)
 ;;=4^H40.2223
 ;;^UTILITY(U,$J,358.3,6003,2)
 ;;=^5133501
 ;;^UTILITY(U,$J,358.3,6004,0)
 ;;=H40.2233^^37^320^15
 ;;^UTILITY(U,$J,358.3,6004,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6004,1,3,0)
 ;;=3^Angle-Closure Glaucoma,Chronic,Severe,Bilateral
 ;;^UTILITY(U,$J,358.3,6004,1,4,0)
 ;;=4^H40.2233
 ;;^UTILITY(U,$J,358.3,6004,2)
 ;;=^5005834
 ;;^UTILITY(U,$J,358.3,6005,0)
 ;;=H40.831^^37^320^16
 ;;^UTILITY(U,$J,358.3,6005,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6005,1,3,0)
 ;;=3^Aqueous Misdirection,Right Eye
 ;;^UTILITY(U,$J,358.3,6005,1,4,0)
 ;;=4^H40.831
 ;;^UTILITY(U,$J,358.3,6005,2)
 ;;=^5005927
 ;;^UTILITY(U,$J,358.3,6006,0)
 ;;=H40.832^^37^320^17
 ;;^UTILITY(U,$J,358.3,6006,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6006,1,3,0)
 ;;=3^Aqueous Misdirection,Left Eye
 ;;^UTILITY(U,$J,358.3,6006,1,4,0)
 ;;=4^H40.832
 ;;^UTILITY(U,$J,358.3,6006,2)
 ;;=^5005928
 ;;^UTILITY(U,$J,358.3,6007,0)
 ;;=Z83.511^^37^320^18
 ;;^UTILITY(U,$J,358.3,6007,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6007,1,3,0)
 ;;=3^Family Hx of Glaucoma
 ;;^UTILITY(U,$J,358.3,6007,1,4,0)
 ;;=4^Z83.511
 ;;^UTILITY(U,$J,358.3,6007,2)
 ;;=^5063382
 ;;^UTILITY(U,$J,358.3,6008,0)
 ;;=H40.1311^^37^321^1
 ;;^UTILITY(U,$J,358.3,6008,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6008,1,3,0)
 ;;=3^Pigmentary Glaucoma,Mild,Right Eye
 ;;^UTILITY(U,$J,358.3,6008,1,4,0)
 ;;=4^H40.1311
 ;;^UTILITY(U,$J,358.3,6008,2)
 ;;=^5005776
 ;;^UTILITY(U,$J,358.3,6009,0)
 ;;=H40.1321^^37^321^4
 ;;^UTILITY(U,$J,358.3,6009,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6009,1,3,0)
 ;;=3^Pigmentary Glaucoma,Mild,Left Eye
 ;;^UTILITY(U,$J,358.3,6009,1,4,0)
 ;;=4^H40.1321
 ;;^UTILITY(U,$J,358.3,6009,2)
 ;;=^5005781
 ;;^UTILITY(U,$J,358.3,6010,0)
 ;;=H40.1331^^37^321^7
 ;;^UTILITY(U,$J,358.3,6010,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6010,1,3,0)
 ;;=3^Pigmentary Glaucoma,Mild,Bilateral
 ;;^UTILITY(U,$J,358.3,6010,1,4,0)
 ;;=4^H40.1331
 ;;^UTILITY(U,$J,358.3,6010,2)
 ;;=^5005785
 ;;^UTILITY(U,$J,358.3,6011,0)
 ;;=H40.1313^^37^321^3
 ;;^UTILITY(U,$J,358.3,6011,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6011,1,3,0)
 ;;=3^Pigmentary Glaucoma,Severe,Right Eye
 ;;^UTILITY(U,$J,358.3,6011,1,4,0)
 ;;=4^H40.1313
 ;;^UTILITY(U,$J,358.3,6011,2)
 ;;=^5005778
 ;;^UTILITY(U,$J,358.3,6012,0)
 ;;=H40.1323^^37^321^6
 ;;^UTILITY(U,$J,358.3,6012,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6012,1,3,0)
 ;;=3^Pigmentary Glaucoma,Severe,Left Eye
 ;;^UTILITY(U,$J,358.3,6012,1,4,0)
 ;;=4^H40.1323
 ;;^UTILITY(U,$J,358.3,6012,2)
 ;;=^5133495
 ;;^UTILITY(U,$J,358.3,6013,0)
 ;;=H40.1333^^37^321^9
 ;;^UTILITY(U,$J,358.3,6013,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6013,1,3,0)
 ;;=3^Pigmentary Glaucoma,Severe,Bilateral
 ;;^UTILITY(U,$J,358.3,6013,1,4,0)
 ;;=4^H40.1333
 ;;^UTILITY(U,$J,358.3,6013,2)
 ;;=^5005787
 ;;^UTILITY(U,$J,358.3,6014,0)
 ;;=H40.1411^^37^321^10
 ;;^UTILITY(U,$J,358.3,6014,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6014,1,3,0)
 ;;=3^Pseudoexf Glaucoma,Mild,Right Eye
 ;;^UTILITY(U,$J,358.3,6014,1,4,0)
 ;;=4^H40.1411
 ;;^UTILITY(U,$J,358.3,6014,2)
 ;;=^5138018
 ;;^UTILITY(U,$J,358.3,6015,0)
 ;;=H40.1421^^37^321^13
 ;;^UTILITY(U,$J,358.3,6015,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6015,1,3,0)
 ;;=3^Pseudoexf Glaucoma,Mild,Left Eye
 ;;^UTILITY(U,$J,358.3,6015,1,4,0)
 ;;=4^H40.1421
 ;;^UTILITY(U,$J,358.3,6015,2)
 ;;=^5138023
 ;;^UTILITY(U,$J,358.3,6016,0)
 ;;=H40.1431^^37^321^16
 ;;^UTILITY(U,$J,358.3,6016,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6016,1,3,0)
 ;;=3^Pseudoexf Glaucoma,Mild,Bilateral
 ;;^UTILITY(U,$J,358.3,6016,1,4,0)
 ;;=4^H40.1431
 ;;^UTILITY(U,$J,358.3,6016,2)
 ;;=^5138028
 ;;^UTILITY(U,$J,358.3,6017,0)
 ;;=H40.1413^^37^321^12
 ;;^UTILITY(U,$J,358.3,6017,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6017,1,3,0)
 ;;=3^Pseudoexf Glaucoma,Severe,Right Eye
 ;;^UTILITY(U,$J,358.3,6017,1,4,0)
 ;;=4^H40.1413
 ;;^UTILITY(U,$J,358.3,6017,2)
 ;;=^5138020
 ;;^UTILITY(U,$J,358.3,6018,0)
 ;;=H40.1433^^37^321^18
 ;;^UTILITY(U,$J,358.3,6018,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6018,1,3,0)
 ;;=3^Pseudoexf Glaucoma,Severe,Bilateral
 ;;^UTILITY(U,$J,358.3,6018,1,4,0)
 ;;=4^H40.1433
 ;;^UTILITY(U,$J,358.3,6018,2)
 ;;=^5138030
 ;;^UTILITY(U,$J,358.3,6019,0)
 ;;=H40.041^^37^321^19
 ;;^UTILITY(U,$J,358.3,6019,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6019,1,3,0)
 ;;=3^Steroid Responsive Glauc,Right Eye
 ;;^UTILITY(U,$J,358.3,6019,1,4,0)
 ;;=4^H40.041
 ;;^UTILITY(U,$J,358.3,6019,2)
 ;;=^5005736
 ;;^UTILITY(U,$J,358.3,6020,0)
 ;;=H40.042^^37^321^20
 ;;^UTILITY(U,$J,358.3,6020,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6020,1,3,0)
 ;;=3^Steroid Responsive Glauc,Left Eye
 ;;^UTILITY(U,$J,358.3,6020,1,4,0)
 ;;=4^H40.042
 ;;^UTILITY(U,$J,358.3,6020,2)
 ;;=^5005737
 ;;^UTILITY(U,$J,358.3,6021,0)
 ;;=H40.043^^37^321^21
 ;;^UTILITY(U,$J,358.3,6021,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6021,1,3,0)
 ;;=3^Steroid Responsive Glauc,Bilateral
 ;;^UTILITY(U,$J,358.3,6021,1,4,0)
 ;;=4^H40.043
 ;;^UTILITY(U,$J,358.3,6021,2)
 ;;=^5005738
 ;;^UTILITY(U,$J,358.3,6022,0)
 ;;=H40.31X1^^37^321^22
 ;;^UTILITY(U,$J,358.3,6022,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6022,1,3,0)
 ;;=3^Glaucoma d/t Trauma,Mild,Right Eye
 ;;^UTILITY(U,$J,358.3,6022,1,4,0)
 ;;=4^H40.31X1
 ;;^UTILITY(U,$J,358.3,6022,2)
 ;;=^5005853
 ;;^UTILITY(U,$J,358.3,6023,0)
 ;;=H40.32X1^^37^321^23
 ;;^UTILITY(U,$J,358.3,6023,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6023,1,3,0)
 ;;=3^Glaucoma d/t Trauma,Mild,Left Eye
 ;;^UTILITY(U,$J,358.3,6023,1,4,0)
 ;;=4^H40.32X1
 ;;^UTILITY(U,$J,358.3,6023,2)
 ;;=^5005857
 ;;^UTILITY(U,$J,358.3,6024,0)
 ;;=H40.33X1^^37^321^24
 ;;^UTILITY(U,$J,358.3,6024,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6024,1,3,0)
 ;;=3^Glaucoma d/t Trauma,Mild,Bilateral
 ;;^UTILITY(U,$J,358.3,6024,1,4,0)
 ;;=4^H40.33X1
 ;;^UTILITY(U,$J,358.3,6024,2)
 ;;=^5005861
 ;;^UTILITY(U,$J,358.3,6025,0)
 ;;=H40.31X3^^37^321^25
 ;;^UTILITY(U,$J,358.3,6025,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6025,1,3,0)
 ;;=3^Glaucoma d/t Trauma,Severe,Right Eye
 ;;^UTILITY(U,$J,358.3,6025,1,4,0)
 ;;=4^H40.31X3
 ;;^UTILITY(U,$J,358.3,6025,2)
 ;;=^5133503
 ;;^UTILITY(U,$J,358.3,6026,0)
 ;;=H40.32X3^^37^321^26
 ;;^UTILITY(U,$J,358.3,6026,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6026,1,3,0)
 ;;=3^Glaucoma d/t Trauma,Severe,Left Eye
 ;;^UTILITY(U,$J,358.3,6026,1,4,0)
 ;;=4^H40.32X3
 ;;^UTILITY(U,$J,358.3,6026,2)
 ;;=^5133504
 ;;^UTILITY(U,$J,358.3,6027,0)
 ;;=H40.33X3^^37^321^27
 ;;^UTILITY(U,$J,358.3,6027,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6027,1,3,0)
 ;;=3^Glaucoma d/t Trauma,Severe,Bilateral
 ;;^UTILITY(U,$J,358.3,6027,1,4,0)
 ;;=4^H40.33X3
 ;;^UTILITY(U,$J,358.3,6027,2)
 ;;=^5005863
 ;;^UTILITY(U,$J,358.3,6028,0)
 ;;=H40.41X1^^37^321^28
 ;;^UTILITY(U,$J,358.3,6028,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6028,1,3,0)
 ;;=3^Glaucoma d/t Uveitis,Mild,Right Eye
 ;;^UTILITY(U,$J,358.3,6028,1,4,0)
 ;;=4^H40.41X1
 ;;^UTILITY(U,$J,358.3,6028,2)
 ;;=^5005871
 ;;^UTILITY(U,$J,358.3,6029,0)
 ;;=H40.42X1^^37^321^29
 ;;^UTILITY(U,$J,358.3,6029,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6029,1,3,0)
 ;;=3^Glaucoma d/t Uveitis,Mild,Left Eye
 ;;^UTILITY(U,$J,358.3,6029,1,4,0)
 ;;=4^H40.42X1
 ;;^UTILITY(U,$J,358.3,6029,2)
 ;;=^5005875
 ;;^UTILITY(U,$J,358.3,6030,0)
 ;;=H40.43X1^^37^321^30
 ;;^UTILITY(U,$J,358.3,6030,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6030,1,3,0)
 ;;=3^Glaucoma d/t Uveitis,Mild,Bilateral
 ;;^UTILITY(U,$J,358.3,6030,1,4,0)
 ;;=4^H40.43X1
 ;;^UTILITY(U,$J,358.3,6030,2)
 ;;=^5005879
 ;;^UTILITY(U,$J,358.3,6031,0)
 ;;=H40.41X3^^37^321^31
 ;;^UTILITY(U,$J,358.3,6031,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6031,1,3,0)
 ;;=3^Glaucoma d/t Uveitis,Severe,Right Eye
 ;;^UTILITY(U,$J,358.3,6031,1,4,0)
 ;;=4^H40.41X3
 ;;^UTILITY(U,$J,358.3,6031,2)
 ;;=^5133505
 ;;^UTILITY(U,$J,358.3,6032,0)
 ;;=H40.42X3^^37^321^32
 ;;^UTILITY(U,$J,358.3,6032,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6032,1,3,0)
 ;;=3^Glaucoma d/t Uveitis,Severe,Left Eye
 ;;^UTILITY(U,$J,358.3,6032,1,4,0)
 ;;=4^H40.42X3
 ;;^UTILITY(U,$J,358.3,6032,2)
 ;;=^5133506
 ;;^UTILITY(U,$J,358.3,6033,0)
 ;;=H40.43X3^^37^321^33
 ;;^UTILITY(U,$J,358.3,6033,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6033,1,3,0)
 ;;=3^Glaucoma d/t Uveitis,Severe,Bilateral