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

IBDEI0DK.m

Go to the documentation of this file.
IBDEI0DK ; ; 03-MAY-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,34028,1,4,0)
 ;;=4^E04.2
 ;;^UTILITY(U,$J,358.3,34028,2)
 ;;=^267790
 ;;^UTILITY(U,$J,358.3,34029,0)
 ;;=E01.1^^105^1426^17
 ;;^UTILITY(U,$J,358.3,34029,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34029,1,3,0)
 ;;=3^Iodine-Deficiency Related Multinodular (Endemic) Goiter
 ;;^UTILITY(U,$J,358.3,34029,1,4,0)
 ;;=4^E01.1
 ;;^UTILITY(U,$J,358.3,34029,2)
 ;;=^5002465
 ;;^UTILITY(U,$J,358.3,34030,0)
 ;;=E05.00^^105^1426^39
 ;;^UTILITY(U,$J,358.3,34030,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34030,1,3,0)
 ;;=3^Thyrotoxicosis w/ Diffuse Goiter w/o Thyrotoxic Crisis
 ;;^UTILITY(U,$J,358.3,34030,1,4,0)
 ;;=4^E05.00
 ;;^UTILITY(U,$J,358.3,34030,2)
 ;;=^5002481
 ;;^UTILITY(U,$J,358.3,34031,0)
 ;;=E05.01^^105^1426^38
 ;;^UTILITY(U,$J,358.3,34031,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34031,1,3,0)
 ;;=3^Thyrotoxicosis w/ Diffuse Goiter w/ Thyrotoxic Crisis/Storm
 ;;^UTILITY(U,$J,358.3,34031,1,4,0)
 ;;=4^E05.01
 ;;^UTILITY(U,$J,358.3,34031,2)
 ;;=^5002482
 ;;^UTILITY(U,$J,358.3,34032,0)
 ;;=E05.90^^105^1426^41
 ;;^UTILITY(U,$J,358.3,34032,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34032,1,3,0)
 ;;=3^Thyrotoxicosis,Unspec w/o Thyrotoxic Crisis/Storm
 ;;^UTILITY(U,$J,358.3,34032,1,4,0)
 ;;=4^E05.90
 ;;^UTILITY(U,$J,358.3,34032,2)
 ;;=^5002492
 ;;^UTILITY(U,$J,358.3,34033,0)
 ;;=E05.91^^105^1426^40
 ;;^UTILITY(U,$J,358.3,34033,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34033,1,3,0)
 ;;=3^Thyrotoxicosis,Unspec w/ Thyrotoxic Crisis/Storm
 ;;^UTILITY(U,$J,358.3,34033,1,4,0)
 ;;=4^E05.91
 ;;^UTILITY(U,$J,358.3,34033,2)
 ;;=^5002493
 ;;^UTILITY(U,$J,358.3,34034,0)
 ;;=E89.0^^105^1426^32
 ;;^UTILITY(U,$J,358.3,34034,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34034,1,3,0)
 ;;=3^Postprocedural Hypothyroidism
 ;;^UTILITY(U,$J,358.3,34034,1,4,0)
 ;;=4^E89.0
 ;;^UTILITY(U,$J,358.3,34034,2)
 ;;=^5003035
 ;;^UTILITY(U,$J,358.3,34035,0)
 ;;=E03.2^^105^1426^13
 ;;^UTILITY(U,$J,358.3,34035,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34035,1,3,0)
 ;;=3^Hypothyroidism d/t Meds/Oth Exogenous Substances
 ;;^UTILITY(U,$J,358.3,34035,1,4,0)
 ;;=4^E03.2
 ;;^UTILITY(U,$J,358.3,34035,2)
 ;;=^5002471
 ;;^UTILITY(U,$J,358.3,34036,0)
 ;;=E03.9^^105^1426^14
 ;;^UTILITY(U,$J,358.3,34036,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34036,1,3,0)
 ;;=3^Hypothyroidism,Unspec
 ;;^UTILITY(U,$J,358.3,34036,1,4,0)
 ;;=4^E03.9
 ;;^UTILITY(U,$J,358.3,34036,2)
 ;;=^5002476
 ;;^UTILITY(U,$J,358.3,34037,0)
 ;;=E06.0^^105^1426^36
 ;;^UTILITY(U,$J,358.3,34037,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34037,1,3,0)
 ;;=3^Thyroiditis,Acute
 ;;^UTILITY(U,$J,358.3,34037,1,4,0)
 ;;=4^E06.0
 ;;^UTILITY(U,$J,358.3,34037,2)
 ;;=^2692
 ;;^UTILITY(U,$J,358.3,34038,0)
 ;;=E06.1^^105^1426^37
 ;;^UTILITY(U,$J,358.3,34038,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34038,1,3,0)
 ;;=3^Thyroiditis,Subacute
 ;;^UTILITY(U,$J,358.3,34038,1,4,0)
 ;;=4^E06.1
 ;;^UTILITY(U,$J,358.3,34038,2)
 ;;=^119376
 ;;^UTILITY(U,$J,358.3,34039,0)
 ;;=C73.^^105^1426^19
 ;;^UTILITY(U,$J,358.3,34039,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34039,1,3,0)
 ;;=3^Malig Neop of Thyroid Gland
 ;;^UTILITY(U,$J,358.3,34039,1,4,0)
 ;;=4^C73.
 ;;^UTILITY(U,$J,358.3,34039,2)
 ;;=^267296
 ;;^UTILITY(U,$J,358.3,34040,0)
 ;;=E16.2^^105^1426^10
 ;;^UTILITY(U,$J,358.3,34040,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34040,1,3,0)
 ;;=3^Hypoglycemia,Unspec
 ;;^UTILITY(U,$J,358.3,34040,1,4,0)
 ;;=4^E16.2
 ;;^UTILITY(U,$J,358.3,34040,2)
 ;;=^5002708
 ;;^UTILITY(U,$J,358.3,34041,0)
 ;;=E20.0^^105^1426^15
 ;;^UTILITY(U,$J,358.3,34041,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34041,1,3,0)
 ;;=3^Idiopathic Hypoparathyroidism
 ;;^UTILITY(U,$J,358.3,34041,1,4,0)
 ;;=4^E20.0
 ;;^UTILITY(U,$J,358.3,34041,2)
 ;;=^5002712
 ;;^UTILITY(U,$J,358.3,34042,0)
 ;;=E20.9^^105^1426^11
 ;;^UTILITY(U,$J,358.3,34042,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34042,1,3,0)
 ;;=3^Hypoparathyroidism,Unspec
 ;;^UTILITY(U,$J,358.3,34042,1,4,0)
 ;;=4^E20.9
 ;;^UTILITY(U,$J,358.3,34042,2)
 ;;=^5002714
 ;;^UTILITY(U,$J,358.3,34043,0)
 ;;=E23.0^^105^1426^12
 ;;^UTILITY(U,$J,358.3,34043,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34043,1,3,0)
 ;;=3^Hypopituitarism
 ;;^UTILITY(U,$J,358.3,34043,1,4,0)
 ;;=4^E23.0
 ;;^UTILITY(U,$J,358.3,34043,2)
 ;;=^60685
 ;;^UTILITY(U,$J,358.3,34044,0)
 ;;=E27.1^^105^1426^34
 ;;^UTILITY(U,$J,358.3,34044,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34044,1,3,0)
 ;;=3^Primary Adrenocortical Insufficiency
 ;;^UTILITY(U,$J,358.3,34044,1,4,0)
 ;;=4^E27.1
 ;;^UTILITY(U,$J,358.3,34044,2)
 ;;=^5002740
 ;;^UTILITY(U,$J,358.3,34045,0)
 ;;=E27.2^^105^1426^1
 ;;^UTILITY(U,$J,358.3,34045,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34045,1,3,0)
 ;;=3^Addisonian Crisis
 ;;^UTILITY(U,$J,358.3,34045,1,4,0)
 ;;=4^E27.2
 ;;^UTILITY(U,$J,358.3,34045,2)
 ;;=^263725
 ;;^UTILITY(U,$J,358.3,34046,0)
 ;;=E27.3^^105^1426^4
 ;;^UTILITY(U,$J,358.3,34046,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34046,1,3,0)
 ;;=3^Drug-induced Adrenocortical Insufficiency
 ;;^UTILITY(U,$J,358.3,34046,1,4,0)
 ;;=4^E27.3
 ;;^UTILITY(U,$J,358.3,34046,2)
 ;;=^5002741
 ;;^UTILITY(U,$J,358.3,34047,0)
 ;;=E29.1^^105^1426^35
 ;;^UTILITY(U,$J,358.3,34047,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34047,1,3,0)
 ;;=3^Testicular Hypofunction
 ;;^UTILITY(U,$J,358.3,34047,1,4,0)
 ;;=4^E29.1
 ;;^UTILITY(U,$J,358.3,34047,2)
 ;;=^5002754
 ;;^UTILITY(U,$J,358.3,34048,0)
 ;;=E55.9^^105^1426^42
 ;;^UTILITY(U,$J,358.3,34048,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34048,1,3,0)
 ;;=3^Vitamin D Deficiency,Unspec
 ;;^UTILITY(U,$J,358.3,34048,1,4,0)
 ;;=4^E55.9
 ;;^UTILITY(U,$J,358.3,34048,2)
 ;;=^5002799
 ;;^UTILITY(U,$J,358.3,34049,0)
 ;;=E66.01^^105^1426^20
 ;;^UTILITY(U,$J,358.3,34049,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34049,1,3,0)
 ;;=3^Morbid Obesity
 ;;^UTILITY(U,$J,358.3,34049,1,4,0)
 ;;=4^E66.01
 ;;^UTILITY(U,$J,358.3,34049,2)
 ;;=^5002826
 ;;^UTILITY(U,$J,358.3,34050,0)
 ;;=E66.8^^105^1426^24
 ;;^UTILITY(U,$J,358.3,34050,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34050,1,3,0)
 ;;=3^Obesity NEC
 ;;^UTILITY(U,$J,358.3,34050,1,4,0)
 ;;=4^E66.8
 ;;^UTILITY(U,$J,358.3,34050,2)
 ;;=^5002831
 ;;^UTILITY(U,$J,358.3,34051,0)
 ;;=E66.9^^105^1426^25
 ;;^UTILITY(U,$J,358.3,34051,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34051,1,3,0)
 ;;=3^Obesity,Unspec
 ;;^UTILITY(U,$J,358.3,34051,1,4,0)
 ;;=4^E66.9
 ;;^UTILITY(U,$J,358.3,34051,2)
 ;;=^5002832
 ;;^UTILITY(U,$J,358.3,34052,0)
 ;;=E74.39^^105^1426^16
 ;;^UTILITY(U,$J,358.3,34052,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34052,1,3,0)
 ;;=3^Intestinal Carbohydrate Absorption Disorder NEC
 ;;^UTILITY(U,$J,358.3,34052,1,4,0)
 ;;=4^E74.39
 ;;^UTILITY(U,$J,358.3,34052,2)
 ;;=^5002928
 ;;^UTILITY(U,$J,358.3,34053,0)
 ;;=E83.30^^105^1426^28
 ;;^UTILITY(U,$J,358.3,34053,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34053,1,3,0)
 ;;=3^Phosphorus Metabolism Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,34053,1,4,0)
 ;;=4^E83.30
 ;;^UTILITY(U,$J,358.3,34053,2)
 ;;=^5002997
 ;;^UTILITY(U,$J,358.3,34054,0)
 ;;=E83.51^^105^1426^9
 ;;^UTILITY(U,$J,358.3,34054,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34054,1,3,0)
 ;;=3^Hypocalcemia
 ;;^UTILITY(U,$J,358.3,34054,1,4,0)
 ;;=4^E83.51
 ;;^UTILITY(U,$J,358.3,34054,2)
 ;;=^60542
 ;;^UTILITY(U,$J,358.3,34055,0)
 ;;=E83.52^^105^1426^7
 ;;^UTILITY(U,$J,358.3,34055,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34055,1,3,0)
 ;;=3^Hypercalcemia
 ;;^UTILITY(U,$J,358.3,34055,1,4,0)
 ;;=4^E83.52
 ;;^UTILITY(U,$J,358.3,34055,2)
 ;;=^59932
 ;;^UTILITY(U,$J,358.3,34056,0)
 ;;=E87.5^^105^1426^8
 ;;^UTILITY(U,$J,358.3,34056,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34056,1,3,0)
 ;;=3^Hyperkalemia
 ;;^UTILITY(U,$J,358.3,34056,1,4,0)
 ;;=4^E87.5
 ;;^UTILITY(U,$J,358.3,34056,2)
 ;;=^60041
 ;;^UTILITY(U,$J,358.3,34057,0)
 ;;=E89.2^^105^1426^30
 ;;^UTILITY(U,$J,358.3,34057,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34057,1,3,0)
 ;;=3^PostProcedural Hypoparathyroidism
 ;;^UTILITY(U,$J,358.3,34057,1,4,0)
 ;;=4^E89.2
 ;;^UTILITY(U,$J,358.3,34057,2)
 ;;=^5003037
 ;;^UTILITY(U,$J,358.3,34058,0)
 ;;=E89.6^^105^1426^29
 ;;^UTILITY(U,$J,358.3,34058,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34058,1,3,0)
 ;;=3^PostProcedural Adrenocortical Hypofunction
 ;;^UTILITY(U,$J,358.3,34058,1,4,0)
 ;;=4^E89.6
 ;;^UTILITY(U,$J,358.3,34058,2)
 ;;=^5003042
 ;;^UTILITY(U,$J,358.3,34059,0)
 ;;=L68.0^^105^1426^6
 ;;^UTILITY(U,$J,358.3,34059,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34059,1,3,0)
 ;;=3^Hirsutism
 ;;^UTILITY(U,$J,358.3,34059,1,4,0)
 ;;=4^L68.0
 ;;^UTILITY(U,$J,358.3,34059,2)
 ;;=^5009262
 ;;^UTILITY(U,$J,358.3,34060,0)
 ;;=M80.00XA^^105^1426^2
 ;;^UTILITY(U,$J,358.3,34060,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34060,1,3,0)
 ;;=3^Age-Related Osteoporosis w/ Fx,Unspec Site,Init Encntr
 ;;^UTILITY(U,$J,358.3,34060,1,4,0)
 ;;=4^M80.00XA
 ;;^UTILITY(U,$J,358.3,34060,2)
 ;;=^5013363
 ;;^UTILITY(U,$J,358.3,34061,0)
 ;;=M81.0^^105^1426^3
 ;;^UTILITY(U,$J,358.3,34061,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34061,1,3,0)
 ;;=3^Age-Related Osteoporosis w/o Fx
 ;;^UTILITY(U,$J,358.3,34061,1,4,0)
 ;;=4^M81.0
 ;;^UTILITY(U,$J,358.3,34061,2)
 ;;=^5013555
 ;;^UTILITY(U,$J,358.3,34062,0)
 ;;=M85.80^^105^1426^26
 ;;^UTILITY(U,$J,358.3,34062,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34062,1,3,0)
 ;;=3^Osteopenia,Unspec Site
 ;;^UTILITY(U,$J,358.3,34062,1,4,0)
 ;;=4^M85.80
 ;;^UTILITY(U,$J,358.3,34062,2)
 ;;=^5014473
 ;;^UTILITY(U,$J,358.3,34063,0)
 ;;=N62.^^105^1426^5
 ;;^UTILITY(U,$J,358.3,34063,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34063,1,3,0)
 ;;=3^Gynecomastia
 ;;^UTILITY(U,$J,358.3,34063,1,4,0)
 ;;=4^N62.
 ;;^UTILITY(U,$J,358.3,34063,2)
 ;;=^5015790
 ;;^UTILITY(U,$J,358.3,34064,0)
 ;;=E66.3^^105^1426^27
 ;;^UTILITY(U,$J,358.3,34064,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34064,1,3,0)
 ;;=3^Overweight
 ;;^UTILITY(U,$J,358.3,34064,1,4,0)
 ;;=4^E66.3
 ;;^UTILITY(U,$J,358.3,34064,2)
 ;;=^5002830
 ;;^UTILITY(U,$J,358.3,34065,0)
 ;;=E89.1^^105^1426^31
 ;;^UTILITY(U,$J,358.3,34065,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34065,1,3,0)
 ;;=3^Postprocedural Hypoinsulinemia
 ;;^UTILITY(U,$J,358.3,34065,1,4,0)
 ;;=4^E89.1
 ;;^UTILITY(U,$J,358.3,34065,2)
 ;;=^5003036
 ;;^UTILITY(U,$J,358.3,34066,0)
 ;;=R73.03^^105^1426^33
 ;;^UTILITY(U,$J,358.3,34066,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34066,1,3,0)
 ;;=3^Pre-Diabetes
 ;;^UTILITY(U,$J,358.3,34066,1,4,0)
 ;;=4^R73.03
 ;;^UTILITY(U,$J,358.3,34066,2)
 ;;=^8295662
 ;;^UTILITY(U,$J,358.3,34067,0)
 ;;=E73.9^^105^1426^18
 ;;^UTILITY(U,$J,358.3,34067,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34067,1,3,0)
 ;;=3^Lactose Intolerance,Unspec
 ;;^UTILITY(U,$J,358.3,34067,1,4,0)
 ;;=4^E73.9
 ;;^UTILITY(U,$J,358.3,34067,2)
 ;;=^5002914
 ;;^UTILITY(U,$J,358.3,34068,0)
 ;;=H40.9^^105^1427^11
 ;;^UTILITY(U,$J,358.3,34068,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34068,1,3,0)
 ;;=3^Glaucoma,Unspec
 ;;^UTILITY(U,$J,358.3,34068,1,4,0)
 ;;=4^H40.9
 ;;^UTILITY(U,$J,358.3,34068,2)
 ;;=^5005931
 ;;^UTILITY(U,$J,358.3,34069,0)
 ;;=H26.9^^105^1427^7
 ;;^UTILITY(U,$J,358.3,34069,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34069,1,3,0)
 ;;=3^Cataract,Unspec
 ;;^UTILITY(U,$J,358.3,34069,1,4,0)
 ;;=4^H26.9
 ;;^UTILITY(U,$J,358.3,34069,2)
 ;;=^5005363
 ;;^UTILITY(U,$J,358.3,34070,0)
 ;;=H10.9^^105^1427^10
 ;;^UTILITY(U,$J,358.3,34070,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34070,1,3,0)
 ;;=3^Conjunctivitis,Unspec
 ;;^UTILITY(U,$J,358.3,34070,1,4,0)
 ;;=4^H10.9
 ;;^UTILITY(U,$J,358.3,34070,2)
 ;;=^5004716
 ;;^UTILITY(U,$J,358.3,34071,0)
 ;;=H11.32^^105^1427^8
 ;;^UTILITY(U,$J,358.3,34071,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34071,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Left Eye
 ;;^UTILITY(U,$J,358.3,34071,1,4,0)
 ;;=4^H11.32
 ;;^UTILITY(U,$J,358.3,34071,2)
 ;;=^5004783
 ;;^UTILITY(U,$J,358.3,34072,0)
 ;;=H11.31^^105^1427^9
 ;;^UTILITY(U,$J,358.3,34072,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34072,1,3,0)
 ;;=3^Conjunctival Hemorrhage,Right Eye
 ;;^UTILITY(U,$J,358.3,34072,1,4,0)
 ;;=4^H11.31
 ;;^UTILITY(U,$J,358.3,34072,2)
 ;;=^5004782
 ;;^UTILITY(U,$J,358.3,34073,0)
 ;;=H01.002^^105^1427^3
 ;;^UTILITY(U,$J,358.3,34073,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34073,1,3,0)
 ;;=3^Blepharitis Unspec,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,34073,1,4,0)
 ;;=4^H01.002
 ;;^UTILITY(U,$J,358.3,34073,2)
 ;;=^5004239
 ;;^UTILITY(U,$J,358.3,34074,0)
 ;;=H01.004^^105^1427^2
 ;;^UTILITY(U,$J,358.3,34074,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34074,1,3,0)
 ;;=3^Blepharitis Unspec,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,34074,1,4,0)
 ;;=4^H01.004
 ;;^UTILITY(U,$J,358.3,34074,2)
 ;;=^5004241
 ;;^UTILITY(U,$J,358.3,34075,0)
 ;;=H01.005^^105^1427^1
 ;;^UTILITY(U,$J,358.3,34075,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34075,1,3,0)
 ;;=3^Blepharitis Unspec,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,34075,1,4,0)
 ;;=4^H01.005
 ;;^UTILITY(U,$J,358.3,34075,2)
 ;;=^5133380
 ;;^UTILITY(U,$J,358.3,34076,0)
 ;;=H01.001^^105^1427^4
 ;;^UTILITY(U,$J,358.3,34076,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34076,1,3,0)
 ;;=3^Blepharitis Unspec,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,34076,1,4,0)
 ;;=4^H01.001
 ;;^UTILITY(U,$J,358.3,34076,2)
 ;;=^5004238
 ;;^UTILITY(U,$J,358.3,34077,0)
 ;;=H57.13^^105^1427^12
 ;;^UTILITY(U,$J,358.3,34077,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34077,1,3,0)
 ;;=3^Ocular Pain,Bilateral
 ;;^UTILITY(U,$J,358.3,34077,1,4,0)
 ;;=4^H57.13
 ;;^UTILITY(U,$J,358.3,34077,2)
 ;;=^5006384
 ;;^UTILITY(U,$J,358.3,34078,0)
 ;;=H57.12^^105^1427^13
 ;;^UTILITY(U,$J,358.3,34078,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34078,1,3,0)
 ;;=3^Ocular Pain,Left Eye
 ;;^UTILITY(U,$J,358.3,34078,1,4,0)
 ;;=4^H57.12
 ;;^UTILITY(U,$J,358.3,34078,2)
 ;;=^5006383
 ;;^UTILITY(U,$J,358.3,34079,0)
 ;;=H57.11^^105^1427^14
 ;;^UTILITY(U,$J,358.3,34079,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34079,1,3,0)
 ;;=3^Ocular Pain,Right Eye
 ;;^UTILITY(U,$J,358.3,34079,1,4,0)
 ;;=4^H57.11
 ;;^UTILITY(U,$J,358.3,34079,2)
 ;;=^5006382
 ;;^UTILITY(U,$J,358.3,34080,0)
 ;;=H01.00B^^105^1427^5
 ;;^UTILITY(U,$J,358.3,34080,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34080,1,3,0)
 ;;=3^Blepharitis,Unspec,Left Upper & Lower Eyelids
 ;;^UTILITY(U,$J,358.3,34080,1,4,0)
 ;;=4^H01.00B
 ;;^UTILITY(U,$J,358.3,34080,2)
 ;;=^5157319
 ;;^UTILITY(U,$J,358.3,34081,0)
 ;;=H01.00A^^105^1427^6
 ;;^UTILITY(U,$J,358.3,34081,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34081,1,3,0)
 ;;=3^Blepharitis,Unspec,Right Upper & Lower Eyelids
 ;;^UTILITY(U,$J,358.3,34081,1,4,0)
 ;;=4^H01.00A
 ;;^UTILITY(U,$J,358.3,34081,2)
 ;;=^5157318
 ;;^UTILITY(U,$J,358.3,34082,0)
 ;;=S05.02XA^^105^1428^3
 ;;^UTILITY(U,$J,358.3,34082,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34082,1,3,0)
 ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Left Eye,Init
 ;;^UTILITY(U,$J,358.3,34082,1,4,0)
 ;;=4^S05.02XA
 ;;^UTILITY(U,$J,358.3,34082,2)
 ;;=^5020582
 ;;^UTILITY(U,$J,358.3,34083,0)
 ;;=S05.01XA^^105^1428^4
 ;;^UTILITY(U,$J,358.3,34083,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34083,1,3,0)
 ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Right Eye,Init
 ;;^UTILITY(U,$J,358.3,34083,1,4,0)
 ;;=4^S05.01XA
 ;;^UTILITY(U,$J,358.3,34083,2)
 ;;=^5020579
 ;;^UTILITY(U,$J,358.3,34084,0)
 ;;=T15.02XA^^105^1428^1
 ;;^UTILITY(U,$J,358.3,34084,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34084,1,3,0)
 ;;=3^Foreign Body in Cornea,Left Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,34084,1,4,0)
 ;;=4^T15.02XA
 ;;^UTILITY(U,$J,358.3,34084,2)
 ;;=^5046387
 ;;^UTILITY(U,$J,358.3,34085,0)
 ;;=T15.01XA^^105^1428^2
 ;;^UTILITY(U,$J,358.3,34085,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34085,1,3,0)
 ;;=3^Foreign Body in Cornea,Right Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,34085,1,4,0)
 ;;=4^T15.01XA
 ;;^UTILITY(U,$J,358.3,34085,2)
 ;;=^5046384
 ;;^UTILITY(U,$J,358.3,34086,0)
 ;;=S00.252A^^105^1428^5
 ;;^UTILITY(U,$J,358.3,34086,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34086,1,3,0)
 ;;=3^Superficial FB of Left Eyelid/Periocular Area,Init Encntr
 ;;^UTILITY(U,$J,358.3,34086,1,4,0)
 ;;=4^S00.252A
 ;;^UTILITY(U,$J,358.3,34086,2)
 ;;=^5019820
 ;;^UTILITY(U,$J,358.3,34087,0)
 ;;=S00.251A^^105^1428^6
 ;;^UTILITY(U,$J,358.3,34087,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34087,1,3,0)
 ;;=3^Superficial FB of Right Eyelid/Periocular Area,Init Encntr
 ;;^UTILITY(U,$J,358.3,34087,1,4,0)
 ;;=4^S00.251A
 ;;^UTILITY(U,$J,358.3,34087,2)
 ;;=^5019817
 ;;^UTILITY(U,$J,358.3,34088,0)
 ;;=B96.81^^105^1429^64
 ;;^UTILITY(U,$J,358.3,34088,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34088,1,3,0)
 ;;=3^H. Pylori as the Cause of Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,34088,1,4,0)
 ;;=4^B96.81
 ;;^UTILITY(U,$J,358.3,34088,2)
 ;;=^5000857
 ;;^UTILITY(U,$J,358.3,34089,0)
 ;;=B15.9^^105^1429^66
 ;;^UTILITY(U,$J,358.3,34089,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34089,1,3,0)
 ;;=3^Hepatitis A,Acute w/o Hepatic Coma
 ;;^UTILITY(U,$J,358.3,34089,1,4,0)
 ;;=4^B15.9
 ;;^UTILITY(U,$J,358.3,34089,2)
 ;;=^5000536
 ;;^UTILITY(U,$J,358.3,34090,0)
 ;;=B16.9^^105^1429^67
 ;;^UTILITY(U,$J,358.3,34090,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34090,1,3,0)
 ;;=3^Hepatitis B,Acute w/o Delta-Agent & w/o Hepatic Coma
 ;;^UTILITY(U,$J,358.3,34090,1,4,0)
 ;;=4^B16.9
 ;;^UTILITY(U,$J,358.3,34090,2)
 ;;=^5000540
 ;;^UTILITY(U,$J,358.3,34091,0)
 ;;=B19.10^^105^1429^69
 ;;^UTILITY(U,$J,358.3,34091,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34091,1,3,0)
 ;;=3^Hepatitis B,Viral w/o Hepatic Coma,Unspec
 ;;^UTILITY(U,$J,358.3,34091,1,4,0)
 ;;=4^B19.10
 ;;^UTILITY(U,$J,358.3,34091,2)
 ;;=^5000552
 ;;^UTILITY(U,$J,358.3,34092,0)
 ;;=B18.1^^105^1429^68
 ;;^UTILITY(U,$J,358.3,34092,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34092,1,3,0)
 ;;=3^Hepatitis B,Chronic Viral w/o Delta-Agent
 ;;^UTILITY(U,$J,358.3,34092,1,4,0)
 ;;=4^B18.1
 ;;^UTILITY(U,$J,358.3,34092,2)
 ;;=^5000547
 ;;^UTILITY(U,$J,358.3,34093,0)
 ;;=B17.10^^105^1429^70
 ;;^UTILITY(U,$J,358.3,34093,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34093,1,3,0)
 ;;=3^Hepatitis C,Acute w/o Hepatic Coma
 ;;^UTILITY(U,$J,358.3,34093,1,4,0)
 ;;=4^B17.10
 ;;^UTILITY(U,$J,358.3,34093,2)
 ;;=^5000542
 ;;^UTILITY(U,$J,358.3,34094,0)
 ;;=B18.2^^105^1429^71
 ;;^UTILITY(U,$J,358.3,34094,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34094,1,3,0)
 ;;=3^Hepatitis C,Chronic Viral
 ;;^UTILITY(U,$J,358.3,34094,1,4,0)
 ;;=4^B18.2
 ;;^UTILITY(U,$J,358.3,34094,2)
 ;;=^5000548
 ;;^UTILITY(U,$J,358.3,34095,0)
 ;;=B18.8^^105^1429^73
 ;;^UTILITY(U,$J,358.3,34095,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34095,1,3,0)
 ;;=3^Hepatitis,Oth Chronic Viral
 ;;^UTILITY(U,$J,358.3,34095,1,4,0)
 ;;=4^B18.8
 ;;^UTILITY(U,$J,358.3,34095,2)
 ;;=^5000549
 ;;^UTILITY(U,$J,358.3,34096,0)
 ;;=B17.8^^105^1429^74
 ;;^UTILITY(U,$J,358.3,34096,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34096,1,3,0)
 ;;=3^Hepatitis,Oth Spec Acute Viral
 ;;^UTILITY(U,$J,358.3,34096,1,4,0)
 ;;=4^B17.8
 ;;^UTILITY(U,$J,358.3,34096,2)
 ;;=^5000544