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

IBDEI029.m

Go to the documentation of this file.
IBDEI029 ; ; 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,5185,2)
 ;;=^5001312
 ;;^UTILITY(U,$J,358.3,5186,0)
 ;;=C74.02^^34^292^153
 ;;^UTILITY(U,$J,358.3,5186,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5186,1,3,0)
 ;;=3^Malig Neop of Left Adrenal Gland Cortex
 ;;^UTILITY(U,$J,358.3,5186,1,4,0)
 ;;=4^C74.02
 ;;^UTILITY(U,$J,358.3,5186,2)
 ;;=^5001313
 ;;^UTILITY(U,$J,358.3,5187,0)
 ;;=C74.11^^34^292^159
 ;;^UTILITY(U,$J,358.3,5187,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5187,1,3,0)
 ;;=3^Malig Neop of Right Adrenal Gland Medulla
 ;;^UTILITY(U,$J,358.3,5187,1,4,0)
 ;;=4^C74.11
 ;;^UTILITY(U,$J,358.3,5187,2)
 ;;=^5001315
 ;;^UTILITY(U,$J,358.3,5188,0)
 ;;=C74.12^^34^292^154
 ;;^UTILITY(U,$J,358.3,5188,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5188,1,3,0)
 ;;=3^Malig Neop of Left Adrenal Gland Medulla
 ;;^UTILITY(U,$J,358.3,5188,1,4,0)
 ;;=4^C74.12
 ;;^UTILITY(U,$J,358.3,5188,2)
 ;;=^5001316
 ;;^UTILITY(U,$J,358.3,5189,0)
 ;;=C75.0^^34^292^155
 ;;^UTILITY(U,$J,358.3,5189,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5189,1,3,0)
 ;;=3^Malig Neop of Parathyroid Gland
 ;;^UTILITY(U,$J,358.3,5189,1,4,0)
 ;;=4^C75.0
 ;;^UTILITY(U,$J,358.3,5189,2)
 ;;=^267299
 ;;^UTILITY(U,$J,358.3,5190,0)
 ;;=C75.1^^34^292^157
 ;;^UTILITY(U,$J,358.3,5190,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5190,1,3,0)
 ;;=3^Malig Neop of Pituitary Gland
 ;;^UTILITY(U,$J,358.3,5190,1,4,0)
 ;;=4^C75.1
 ;;^UTILITY(U,$J,358.3,5190,2)
 ;;=^5001320
 ;;^UTILITY(U,$J,358.3,5191,0)
 ;;=C75.2^^34^292^151
 ;;^UTILITY(U,$J,358.3,5191,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5191,1,3,0)
 ;;=3^Malig Neop of Craniopharyngeal Duct
 ;;^UTILITY(U,$J,358.3,5191,1,4,0)
 ;;=4^C75.2
 ;;^UTILITY(U,$J,358.3,5191,2)
 ;;=^5001321
 ;;^UTILITY(U,$J,358.3,5192,0)
 ;;=C75.3^^34^292^156
 ;;^UTILITY(U,$J,358.3,5192,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5192,1,3,0)
 ;;=3^Malig Neop of Pineal Gland
 ;;^UTILITY(U,$J,358.3,5192,1,4,0)
 ;;=4^C75.3
 ;;^UTILITY(U,$J,358.3,5192,2)
 ;;=^267301
 ;;^UTILITY(U,$J,358.3,5193,0)
 ;;=C75.4^^34^292^150
 ;;^UTILITY(U,$J,358.3,5193,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5193,1,3,0)
 ;;=3^Malig Neop of Carotid Body
 ;;^UTILITY(U,$J,358.3,5193,1,4,0)
 ;;=4^C75.4
 ;;^UTILITY(U,$J,358.3,5193,2)
 ;;=^267302
 ;;^UTILITY(U,$J,358.3,5194,0)
 ;;=C75.5^^34^292^149
 ;;^UTILITY(U,$J,358.3,5194,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5194,1,3,0)
 ;;=3^Malig Neop of Aortic Body/Oth Paraganglia
 ;;^UTILITY(U,$J,358.3,5194,1,4,0)
 ;;=4^C75.5
 ;;^UTILITY(U,$J,358.3,5194,2)
 ;;=^267303
 ;;^UTILITY(U,$J,358.3,5195,0)
 ;;=C75.8^^34^292^161
 ;;^UTILITY(U,$J,358.3,5195,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5195,1,3,0)
 ;;=3^Malig Neop w/ Pluriglandular Involvement,Unspec
 ;;^UTILITY(U,$J,358.3,5195,1,4,0)
 ;;=4^C75.8
 ;;^UTILITY(U,$J,358.3,5195,2)
 ;;=^5001322
 ;;^UTILITY(U,$J,358.3,5196,0)
 ;;=C75.9^^34^292^152
 ;;^UTILITY(U,$J,358.3,5196,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5196,1,3,0)
 ;;=3^Malig Neop of Endocrine Gland,Unspec
 ;;^UTILITY(U,$J,358.3,5196,1,4,0)
 ;;=4^C75.9
 ;;^UTILITY(U,$J,358.3,5196,2)
 ;;=^5001323
 ;;^UTILITY(U,$J,358.3,5197,0)
 ;;=E22.0^^34^292^9
 ;;^UTILITY(U,$J,358.3,5197,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5197,1,3,0)
 ;;=3^Acromegaly and Pituitary Gigantism
 ;;^UTILITY(U,$J,358.3,5197,1,4,0)
 ;;=4^E22.0
 ;;^UTILITY(U,$J,358.3,5197,2)
 ;;=^5002717
 ;;^UTILITY(U,$J,358.3,5198,0)
 ;;=E24.0^^34^292^201
 ;;^UTILITY(U,$J,358.3,5198,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5198,1,3,0)
 ;;=3^Pituitary-Dependent Cushing's Disease
 ;;^UTILITY(U,$J,358.3,5198,1,4,0)
 ;;=4^E24.0
 ;;^UTILITY(U,$J,358.3,5198,2)
 ;;=^5002725
 ;;^UTILITY(U,$J,358.3,5199,0)
 ;;=E24.1^^34^292^168
 ;;^UTILITY(U,$J,358.3,5199,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5199,1,3,0)
 ;;=3^Nelson's Syndrome
 ;;^UTILITY(U,$J,358.3,5199,1,4,0)
 ;;=4^E24.1
 ;;^UTILITY(U,$J,358.3,5199,2)
 ;;=^5002726
 ;;^UTILITY(U,$J,358.3,5200,0)
 ;;=E24.2^^34^292^53
 ;;^UTILITY(U,$J,358.3,5200,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5200,1,3,0)
 ;;=3^Cushing's Syndrome,Drug-Induced
 ;;^UTILITY(U,$J,358.3,5200,1,4,0)
 ;;=4^E24.2
 ;;^UTILITY(U,$J,358.3,5200,2)
 ;;=^5002727
 ;;^UTILITY(U,$J,358.3,5201,0)
 ;;=E24.4^^34^292^23
 ;;^UTILITY(U,$J,358.3,5201,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5201,1,3,0)
 ;;=3^Alcohol-Induced Pseudo-Cushing's Syndrome
 ;;^UTILITY(U,$J,358.3,5201,1,4,0)
 ;;=4^E24.4
 ;;^UTILITY(U,$J,358.3,5201,2)
 ;;=^5002729
 ;;^UTILITY(U,$J,358.3,5202,0)
 ;;=E24.8^^34^292^52
 ;;^UTILITY(U,$J,358.3,5202,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5202,1,3,0)
 ;;=3^Cushing's Syndrome NEC
 ;;^UTILITY(U,$J,358.3,5202,1,4,0)
 ;;=4^E24.8
 ;;^UTILITY(U,$J,358.3,5202,2)
 ;;=^5002730
 ;;^UTILITY(U,$J,358.3,5203,0)
 ;;=E24.9^^34^292^54
 ;;^UTILITY(U,$J,358.3,5203,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5203,1,3,0)
 ;;=3^Cushing's Syndrome,Unspec
 ;;^UTILITY(U,$J,358.3,5203,1,4,0)
 ;;=4^E24.9
 ;;^UTILITY(U,$J,358.3,5203,2)
 ;;=^5002731
 ;;^UTILITY(U,$J,358.3,5204,0)
 ;;=E05.00^^34^292^79
 ;;^UTILITY(U,$J,358.3,5204,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5204,1,3,0)
 ;;=3^Graves Disease w/o Thyrotoxic Crisis/Storm
 ;;^UTILITY(U,$J,358.3,5204,1,4,0)
 ;;=4^E05.00
 ;;^UTILITY(U,$J,358.3,5204,2)
 ;;=^5002481
 ;;^UTILITY(U,$J,358.3,5205,0)
 ;;=D44.0^^34^292^177
 ;;^UTILITY(U,$J,358.3,5205,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5205,1,3,0)
 ;;=3^Neoplasm of Thyroid Gland,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,5205,1,4,0)
 ;;=4^D44.0
 ;;^UTILITY(U,$J,358.3,5205,2)
 ;;=^5002235
 ;;^UTILITY(U,$J,358.3,5206,0)
 ;;=D44.11^^34^292^176
 ;;^UTILITY(U,$J,358.3,5206,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5206,1,3,0)
 ;;=3^Neoplasm of Right Adrenal Gland,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,5206,1,4,0)
 ;;=4^D44.11
 ;;^UTILITY(U,$J,358.3,5206,2)
 ;;=^5002237
 ;;^UTILITY(U,$J,358.3,5207,0)
 ;;=D44.12^^34^292^172
 ;;^UTILITY(U,$J,358.3,5207,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5207,1,3,0)
 ;;=3^Neoplasm of Left Adrenal Gland,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,5207,1,4,0)
 ;;=4^D44.12
 ;;^UTILITY(U,$J,358.3,5207,2)
 ;;=^5002238
 ;;^UTILITY(U,$J,358.3,5208,0)
 ;;=D44.2^^34^292^173
 ;;^UTILITY(U,$J,358.3,5208,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5208,1,3,0)
 ;;=3^Neoplasm of Parathyroid Gland,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,5208,1,4,0)
 ;;=4^D44.2
 ;;^UTILITY(U,$J,358.3,5208,2)
 ;;=^5002239
 ;;^UTILITY(U,$J,358.3,5209,0)
 ;;=D44.3^^34^292^175
 ;;^UTILITY(U,$J,358.3,5209,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5209,1,3,0)
 ;;=3^Neoplasm of Pituitary Gland,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,5209,1,4,0)
 ;;=4^D44.3
 ;;^UTILITY(U,$J,358.3,5209,2)
 ;;=^5002240
 ;;^UTILITY(U,$J,358.3,5210,0)
 ;;=D44.4^^34^292^171
 ;;^UTILITY(U,$J,358.3,5210,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5210,1,3,0)
 ;;=3^Neoplasm of Craniopharyngeal Duct,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,5210,1,4,0)
 ;;=4^D44.4
 ;;^UTILITY(U,$J,358.3,5210,2)
 ;;=^5002241
 ;;^UTILITY(U,$J,358.3,5211,0)
 ;;=D44.5^^34^292^174
 ;;^UTILITY(U,$J,358.3,5211,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5211,1,3,0)
 ;;=3^Neoplasm of Pineal Gland,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,5211,1,4,0)
 ;;=4^D44.5
 ;;^UTILITY(U,$J,358.3,5211,2)
 ;;=^81967
 ;;^UTILITY(U,$J,358.3,5212,0)
 ;;=D44.6^^34^292^170
 ;;^UTILITY(U,$J,358.3,5212,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5212,1,3,0)
 ;;=3^Neoplasm of Carotid Body,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,5212,1,4,0)
 ;;=4^D44.6
 ;;^UTILITY(U,$J,358.3,5212,2)
 ;;=^5002242
 ;;^UTILITY(U,$J,358.3,5213,0)
 ;;=D44.7^^34^292^169
 ;;^UTILITY(U,$J,358.3,5213,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5213,1,3,0)
 ;;=3^Neoplasm of Aortic Body/Oth Paraganglia,Uncertain Behavior
 ;;^UTILITY(U,$J,358.3,5213,1,4,0)
 ;;=4^D44.7
 ;;^UTILITY(U,$J,358.3,5213,2)
 ;;=^5002243
 ;;^UTILITY(U,$J,358.3,5214,0)
 ;;=E01.8^^34^292^130
 ;;^UTILITY(U,$J,358.3,5214,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5214,1,3,0)
 ;;=3^Hypothyroidism,Acquired Iodine-Deficiency
 ;;^UTILITY(U,$J,358.3,5214,1,4,0)
 ;;=4^E01.8
 ;;^UTILITY(U,$J,358.3,5214,2)
 ;;=^5002467
 ;;^UTILITY(U,$J,358.3,5215,0)
 ;;=E02.^^34^292^132
 ;;^UTILITY(U,$J,358.3,5215,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5215,1,3,0)
 ;;=3^Hypothyroidism,Subclinical Iodine-Deficiency
 ;;^UTILITY(U,$J,358.3,5215,1,4,0)
 ;;=4^E02.
 ;;^UTILITY(U,$J,358.3,5215,2)
 ;;=^5002468
 ;;^UTILITY(U,$J,358.3,5216,0)
 ;;=E21.1^^34^292^107
 ;;^UTILITY(U,$J,358.3,5216,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5216,1,3,0)
 ;;=3^Hyperparathyroidism,Secondary to Non Renal
 ;;^UTILITY(U,$J,358.3,5216,1,4,0)
 ;;=4^E21.1
 ;;^UTILITY(U,$J,358.3,5216,2)
 ;;=^5002715
 ;;^UTILITY(U,$J,358.3,5217,0)
 ;;=N25.81^^34^292^108
 ;;^UTILITY(U,$J,358.3,5217,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5217,1,3,0)
 ;;=3^Hyperparathyroidism,Secondary to Renal
 ;;^UTILITY(U,$J,358.3,5217,1,4,0)
 ;;=4^N25.81
 ;;^UTILITY(U,$J,358.3,5217,2)
 ;;=^5015617
 ;;^UTILITY(U,$J,358.3,5218,0)
 ;;=E27.40^^34^292^15
 ;;^UTILITY(U,$J,358.3,5218,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5218,1,3,0)
 ;;=3^Adrenocortical Insufficiency,Unspec
 ;;^UTILITY(U,$J,358.3,5218,1,4,0)
 ;;=4^E27.40
 ;;^UTILITY(U,$J,358.3,5218,2)
 ;;=^5002742
 ;;^UTILITY(U,$J,358.3,5219,0)
 ;;=E29.1^^34^292^125
 ;;^UTILITY(U,$J,358.3,5219,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5219,1,3,0)
 ;;=3^Hypogonadism,Male
 ;;^UTILITY(U,$J,358.3,5219,1,4,0)
 ;;=4^E29.1
 ;;^UTILITY(U,$J,358.3,5219,2)
 ;;=^5002754
 ;;^UTILITY(U,$J,358.3,5220,0)
 ;;=E89.0^^34^292^131
 ;;^UTILITY(U,$J,358.3,5220,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5220,1,3,0)
 ;;=3^Hypothyroidism,Post Surgical
 ;;^UTILITY(U,$J,358.3,5220,1,4,0)
 ;;=4^E89.0
 ;;^UTILITY(U,$J,358.3,5220,2)
 ;;=^5003035
 ;;^UTILITY(U,$J,358.3,5221,0)
 ;;=M85.80^^34^292^197
 ;;^UTILITY(U,$J,358.3,5221,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5221,1,3,0)
 ;;=3^Osteopenia,Unspec Site
 ;;^UTILITY(U,$J,358.3,5221,1,4,0)
 ;;=4^M85.80
 ;;^UTILITY(U,$J,358.3,5221,2)
 ;;=^5014473
 ;;^UTILITY(U,$J,358.3,5222,0)
 ;;=M85.89^^34^292^196
 ;;^UTILITY(U,$J,358.3,5222,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5222,1,3,0)
 ;;=3^Osteopenia,Mult Sites
 ;;^UTILITY(U,$J,358.3,5222,1,4,0)
 ;;=4^M85.89
 ;;^UTILITY(U,$J,358.3,5222,2)
 ;;=^5014495
 ;;^UTILITY(U,$J,358.3,5223,0)
 ;;=R94.6^^34^292^6
 ;;^UTILITY(U,$J,358.3,5223,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5223,1,3,0)
 ;;=3^Abnl Thyroid Function Studies
 ;;^UTILITY(U,$J,358.3,5223,1,4,0)
 ;;=4^R94.6
 ;;^UTILITY(U,$J,358.3,5223,2)
 ;;=^5019743
 ;;^UTILITY(U,$J,358.3,5224,0)
 ;;=Z78.0^^34^292^162
 ;;^UTILITY(U,$J,358.3,5224,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5224,1,3,0)
 ;;=3^Menopausal
 ;;^UTILITY(U,$J,358.3,5224,1,4,0)
 ;;=4^Z78.0
 ;;^UTILITY(U,$J,358.3,5224,2)
 ;;=^5063327
 ;;^UTILITY(U,$J,358.3,5225,0)
 ;;=I16.0^^34^292^121
 ;;^UTILITY(U,$J,358.3,5225,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5225,1,3,0)
 ;;=3^Hypertensive Urgency
 ;;^UTILITY(U,$J,358.3,5225,1,4,0)
 ;;=4^I16.0
 ;;^UTILITY(U,$J,358.3,5225,2)
 ;;=^8133013
 ;;^UTILITY(U,$J,358.3,5226,0)
 ;;=I16.1^^34^292^112
 ;;^UTILITY(U,$J,358.3,5226,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5226,1,3,0)
 ;;=3^Hypertensive Emergency
 ;;^UTILITY(U,$J,358.3,5226,1,4,0)
 ;;=4^I16.1
 ;;^UTILITY(U,$J,358.3,5226,2)
 ;;=^8204721
 ;;^UTILITY(U,$J,358.3,5227,0)
 ;;=I16.9^^34^292^111
 ;;^UTILITY(U,$J,358.3,5227,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5227,1,3,0)
 ;;=3^Hypertensive Crisis,Unspec
 ;;^UTILITY(U,$J,358.3,5227,1,4,0)
 ;;=4^I16.9
 ;;^UTILITY(U,$J,358.3,5227,2)
 ;;=^5138600
 ;;^UTILITY(U,$J,358.3,5228,0)
 ;;=Z90.410^^34^292^8
 ;;^UTILITY(U,$J,358.3,5228,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5228,1,3,0)
 ;;=3^Acquired Total Absence of Pancreas
 ;;^UTILITY(U,$J,358.3,5228,1,4,0)
 ;;=4^Z90.410
 ;;^UTILITY(U,$J,358.3,5228,2)
 ;;=^5063587
 ;;^UTILITY(U,$J,358.3,5229,0)
 ;;=Z90.411^^34^292^7
 ;;^UTILITY(U,$J,358.3,5229,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5229,1,3,0)
 ;;=3^Acquired Partial Absence of pancreas
 ;;^UTILITY(U,$J,358.3,5229,1,4,0)
 ;;=4^Z90.411
 ;;^UTILITY(U,$J,358.3,5229,2)
 ;;=^5063588
 ;;^UTILITY(U,$J,358.3,5230,0)
 ;;=F17.210^^34^292^178
 ;;^UTILITY(U,$J,358.3,5230,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5230,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes
 ;;^UTILITY(U,$J,358.3,5230,1,4,0)
 ;;=4^F17.210
 ;;^UTILITY(U,$J,358.3,5230,2)
 ;;=^5003365
 ;;^UTILITY(U,$J,358.3,5231,0)
 ;;=E66.9^^34^292^180
 ;;^UTILITY(U,$J,358.3,5231,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5231,1,3,0)
 ;;=3^Obesity
 ;;^UTILITY(U,$J,358.3,5231,1,4,0)
 ;;=4^E66.9
 ;;^UTILITY(U,$J,358.3,5231,2)
 ;;=^5002832
 ;;^UTILITY(U,$J,358.3,5232,0)
 ;;=E66.01^^34^292^163
 ;;^UTILITY(U,$J,358.3,5232,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5232,1,3,0)
 ;;=3^Morbid Obesity
 ;;^UTILITY(U,$J,358.3,5232,1,4,0)
 ;;=4^E66.01
 ;;^UTILITY(U,$J,358.3,5232,2)
 ;;=^5002826
 ;;^UTILITY(U,$J,358.3,5233,0)
 ;;=Z68.41^^34^292^28
 ;;^UTILITY(U,$J,358.3,5233,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5233,1,3,0)
 ;;=3^BMI 40.0-44.9
 ;;^UTILITY(U,$J,358.3,5233,1,4,0)
 ;;=4^Z68.41
 ;;^UTILITY(U,$J,358.3,5233,2)
 ;;=^5063219
 ;;^UTILITY(U,$J,358.3,5234,0)
 ;;=Z68.42^^34^292^29
 ;;^UTILITY(U,$J,358.3,5234,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5234,1,3,0)
 ;;=3^BMI 45.0-49.9
 ;;^UTILITY(U,$J,358.3,5234,1,4,0)
 ;;=4^Z68.42
 ;;^UTILITY(U,$J,358.3,5234,2)
 ;;=^5063220
 ;;^UTILITY(U,$J,358.3,5235,0)
 ;;=Z68.43^^34^292^30
 ;;^UTILITY(U,$J,358.3,5235,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5235,1,3,0)
 ;;=3^BMI 50.0-59.9
 ;;^UTILITY(U,$J,358.3,5235,1,4,0)
 ;;=4^Z68.43
 ;;^UTILITY(U,$J,358.3,5235,2)
 ;;=^5063221
 ;;^UTILITY(U,$J,358.3,5236,0)
 ;;=Z68.44^^34^292^31
 ;;^UTILITY(U,$J,358.3,5236,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5236,1,3,0)
 ;;=3^BMI 60.0-69.9
 ;;^UTILITY(U,$J,358.3,5236,1,4,0)
 ;;=4^Z68.44
 ;;^UTILITY(U,$J,358.3,5236,2)
 ;;=^5063222
 ;;^UTILITY(U,$J,358.3,5237,0)
 ;;=Z68.45^^34^292^32
 ;;^UTILITY(U,$J,358.3,5237,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5237,1,3,0)
 ;;=3^BMI 70 or Greater
 ;;^UTILITY(U,$J,358.3,5237,1,4,0)
 ;;=4^Z68.45
 ;;^UTILITY(U,$J,358.3,5237,2)
 ;;=^5063223
 ;;^UTILITY(U,$J,358.3,5238,0)
 ;;=R73.09^^34^292^3
 ;;^UTILITY(U,$J,358.3,5238,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5238,1,3,0)
 ;;=3^Abnl Glucose,Other
 ;;^UTILITY(U,$J,358.3,5238,1,4,0)
 ;;=4^R73.09
 ;;^UTILITY(U,$J,358.3,5238,2)
 ;;=^5019563
 ;;^UTILITY(U,$J,358.3,5239,0)
 ;;=K31.84^^34^292^75
 ;;^UTILITY(U,$J,358.3,5239,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5239,1,3,0)
 ;;=3^Gastroparesis
 ;;^UTILITY(U,$J,358.3,5239,1,4,0)
 ;;=4^K31.84
 ;;^UTILITY(U,$J,358.3,5239,2)
 ;;=^264447
 ;;^UTILITY(U,$J,358.3,5240,0)
 ;;=Z79.4^^34^292^144
 ;;^UTILITY(U,$J,358.3,5240,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5240,1,3,0)
 ;;=3^Long Term (Current) Use of Insulin
 ;;^UTILITY(U,$J,358.3,5240,1,4,0)
 ;;=4^Z79.4
 ;;^UTILITY(U,$J,358.3,5240,2)
 ;;=^5063334
 ;;^UTILITY(U,$J,358.3,5241,0)
 ;;=N52.9^^34^292^148
 ;;^UTILITY(U,$J,358.3,5241,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5241,1,3,0)
 ;;=3^Male Erectile Dysfunction,Unsp
 ;;^UTILITY(U,$J,358.3,5241,1,4,0)
 ;;=4^N52.9
 ;;^UTILITY(U,$J,358.3,5241,2)
 ;;=^5015763
 ;;^UTILITY(U,$J,358.3,5242,0)
 ;;=F17.200^^34^292^179
 ;;^UTILITY(U,$J,358.3,5242,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5242,1,3,0)
 ;;=3^Nicotine Dependence,Unsp
 ;;^UTILITY(U,$J,358.3,5242,1,4,0)
 ;;=4^F17.200
 ;;^UTILITY(U,$J,358.3,5242,2)
 ;;=^5003360
 ;;^UTILITY(U,$J,358.3,5243,0)
 ;;=E78.41^^34^292^73
 ;;^UTILITY(U,$J,358.3,5243,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5243,1,3,0)
 ;;=3^Elevated Lipoprotein(a)
 ;;^UTILITY(U,$J,358.3,5243,1,4,0)
 ;;=4^E78.41
 ;;^UTILITY(U,$J,358.3,5243,2)
 ;;=^5157298
 ;;^UTILITY(U,$J,358.3,5244,0)
 ;;=E78.49^^34^292^104
 ;;^UTILITY(U,$J,358.3,5244,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5244,1,3,0)
 ;;=3^Hyperlipidemia,Other
 ;;^UTILITY(U,$J,358.3,5244,1,4,0)
 ;;=4^E78.49
 ;;^UTILITY(U,$J,358.3,5244,2)
 ;;=^5157299
 ;;^UTILITY(U,$J,358.3,5245,0)
 ;;=Z96.41^^34^292^210
 ;;^UTILITY(U,$J,358.3,5245,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5245,1,3,0)
 ;;=3^Presence of Insulin Pump
 ;;^UTILITY(U,$J,358.3,5245,1,4,0)
 ;;=4^Z96.41
 ;;^UTILITY(U,$J,358.3,5245,2)
 ;;=^5063688
 ;;^UTILITY(U,$J,358.3,5246,0)
 ;;=Z68.1^^34^292^27
 ;;^UTILITY(U,$J,358.3,5246,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5246,1,3,0)
 ;;=3^BMI 19.9 or Less
 ;;^UTILITY(U,$J,358.3,5246,1,4,0)
 ;;=4^Z68.1
 ;;^UTILITY(U,$J,358.3,5246,2)
 ;;=^5063198
 ;;^UTILITY(U,$J,358.3,5247,0)
 ;;=R73.01^^34^292^134
 ;;^UTILITY(U,$J,358.3,5247,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5247,1,3,0)
 ;;=3^Impaired Fasting Glucose
 ;;^UTILITY(U,$J,358.3,5247,1,4,0)
 ;;=4^R73.01
 ;;^UTILITY(U,$J,358.3,5247,2)
 ;;=^5019561
 ;;^UTILITY(U,$J,358.3,5248,0)
 ;;=R73.02^^34^292^135
 ;;^UTILITY(U,$J,358.3,5248,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5248,1,3,0)
 ;;=3^Impaired Glucose Tolerance (Oral)
 ;;^UTILITY(U,$J,358.3,5248,1,4,0)
 ;;=4^R73.02
 ;;^UTILITY(U,$J,358.3,5248,2)
 ;;=^5019562
 ;;^UTILITY(U,$J,358.3,5249,0)
 ;;=R73.03^^34^292^207
 ;;^UTILITY(U,$J,358.3,5249,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5249,1,3,0)
 ;;=3^Pre-Diabetes
 ;;^UTILITY(U,$J,358.3,5249,1,4,0)
 ;;=4^R73.03
 ;;^UTILITY(U,$J,358.3,5249,2)
 ;;=^8295662
 ;;^UTILITY(U,$J,358.3,5250,0)
 ;;=R73.9^^34^292^102
 ;;^UTILITY(U,$J,358.3,5250,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5250,1,3,0)
 ;;=3^Hyperglycemia,Unspec
 ;;^UTILITY(U,$J,358.3,5250,1,4,0)
 ;;=4^R73.9
 ;;^UTILITY(U,$J,358.3,5250,2)
 ;;=^5019564
 ;;^UTILITY(U,$J,358.3,5251,0)
 ;;=R94.4^^34^292^4
 ;;^UTILITY(U,$J,358.3,5251,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5251,1,3,0)
 ;;=3^Abnl Kidney Function Studies
 ;;^UTILITY(U,$J,358.3,5251,1,4,0)
 ;;=4^R94.4
 ;;^UTILITY(U,$J,358.3,5251,2)
 ;;=^5019741
 ;;^UTILITY(U,$J,358.3,5252,0)
 ;;=R94.5^^34^292^5
 ;;^UTILITY(U,$J,358.3,5252,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5252,1,3,0)
 ;;=3^Abnl Liver Function Studies
 ;;^UTILITY(U,$J,358.3,5252,1,4,0)
 ;;=4^R94.5
 ;;^UTILITY(U,$J,358.3,5252,2)
 ;;=^5019742
 ;;^UTILITY(U,$J,358.3,5253,0)
 ;;=R94.7^^34^292^1
 ;;^UTILITY(U,$J,358.3,5253,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5253,1,3,0)
 ;;=3^Abnl Endocrine Function Studies,Other
 ;;^UTILITY(U,$J,358.3,5253,1,4,0)
 ;;=4^R94.7
 ;;^UTILITY(U,$J,358.3,5253,2)
 ;;=^5019744
 ;;^UTILITY(U,$J,358.3,5254,0)
 ;;=R94.8^^34^292^2
 ;;^UTILITY(U,$J,358.3,5254,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5254,1,3,0)
 ;;=3^Abnl Function Studies or Organs/Systems
 ;;^UTILITY(U,$J,358.3,5254,1,4,0)
 ;;=4^R94.8
 ;;^UTILITY(U,$J,358.3,5254,2)
 ;;=^5019745
 ;;^UTILITY(U,$J,358.3,5255,0)
 ;;=E27.2^^34^292^10
 ;;^UTILITY(U,$J,358.3,5255,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,5255,1,3,0)
 ;;=3^Addisonian Crisis
 ;;^UTILITY(U,$J,358.3,5255,1,4,0)
 ;;=4^E27.2
 ;;^UTILITY(U,$J,358.3,5255,2)
 ;;=^263725
 ;;^UTILITY(U,$J,358.3,5256,0)
 ;;=E27.1^^34^292^14