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

IBDEI078.m

Go to the documentation of this file.
IBDEI078 ; ; 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,17574,2)
 ;;=^5019230
 ;;^UTILITY(U,$J,358.3,17575,0)
 ;;=R10.11^^59^699^4
 ;;^UTILITY(U,$J,358.3,17575,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17575,1,3,0)
 ;;=3^Abdominal Pain,RUQ
 ;;^UTILITY(U,$J,358.3,17575,1,4,0)
 ;;=4^R10.11
 ;;^UTILITY(U,$J,358.3,17575,2)
 ;;=^5019206
 ;;^UTILITY(U,$J,358.3,17576,0)
 ;;=R10.12^^59^699^2
 ;;^UTILITY(U,$J,358.3,17576,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17576,1,3,0)
 ;;=3^Abdominal Pain,LUQ
 ;;^UTILITY(U,$J,358.3,17576,1,4,0)
 ;;=4^R10.12
 ;;^UTILITY(U,$J,358.3,17576,2)
 ;;=^5019207
 ;;^UTILITY(U,$J,358.3,17577,0)
 ;;=R10.13^^59^699^25
 ;;^UTILITY(U,$J,358.3,17577,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17577,1,3,0)
 ;;=3^Epigastric Pain
 ;;^UTILITY(U,$J,358.3,17577,1,4,0)
 ;;=4^R10.13
 ;;^UTILITY(U,$J,358.3,17577,2)
 ;;=^5019208
 ;;^UTILITY(U,$J,358.3,17578,0)
 ;;=R10.2^^59^699^35
 ;;^UTILITY(U,$J,358.3,17578,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17578,1,3,0)
 ;;=3^Pelvic and Perineal Pain
 ;;^UTILITY(U,$J,358.3,17578,1,4,0)
 ;;=4^R10.2
 ;;^UTILITY(U,$J,358.3,17578,2)
 ;;=^5019209
 ;;^UTILITY(U,$J,358.3,17579,0)
 ;;=R10.31^^59^699^3
 ;;^UTILITY(U,$J,358.3,17579,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17579,1,3,0)
 ;;=3^Abdominal Pain,RLQ
 ;;^UTILITY(U,$J,358.3,17579,1,4,0)
 ;;=4^R10.31
 ;;^UTILITY(U,$J,358.3,17579,2)
 ;;=^5019211
 ;;^UTILITY(U,$J,358.3,17580,0)
 ;;=R10.32^^59^699^1
 ;;^UTILITY(U,$J,358.3,17580,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17580,1,3,0)
 ;;=3^Abdominal Pain,LLQ
 ;;^UTILITY(U,$J,358.3,17580,1,4,0)
 ;;=4^R10.32
 ;;^UTILITY(U,$J,358.3,17580,2)
 ;;=^5019212
 ;;^UTILITY(U,$J,358.3,17581,0)
 ;;=R10.33^^59^699^36
 ;;^UTILITY(U,$J,358.3,17581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17581,1,3,0)
 ;;=3^Periumbilical Pain
 ;;^UTILITY(U,$J,358.3,17581,1,4,0)
 ;;=4^R10.33
 ;;^UTILITY(U,$J,358.3,17581,2)
 ;;=^5019213
 ;;^UTILITY(U,$J,358.3,17582,0)
 ;;=R11.0^^59^699^33
 ;;^UTILITY(U,$J,358.3,17582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17582,1,3,0)
 ;;=3^Nausea
 ;;^UTILITY(U,$J,358.3,17582,1,4,0)
 ;;=4^R11.0
 ;;^UTILITY(U,$J,358.3,17582,2)
 ;;=^5019231
 ;;^UTILITY(U,$J,358.3,17583,0)
 ;;=R11.11^^59^699^50
 ;;^UTILITY(U,$J,358.3,17583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17583,1,3,0)
 ;;=3^Vomiting w/o Nausea
 ;;^UTILITY(U,$J,358.3,17583,1,4,0)
 ;;=4^R11.11
 ;;^UTILITY(U,$J,358.3,17583,2)
 ;;=^5019233
 ;;^UTILITY(U,$J,358.3,17584,0)
 ;;=R11.12^^59^699^40
 ;;^UTILITY(U,$J,358.3,17584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17584,1,3,0)
 ;;=3^Projectile Vomiting
 ;;^UTILITY(U,$J,358.3,17584,1,4,0)
 ;;=4^R11.12
 ;;^UTILITY(U,$J,358.3,17584,2)
 ;;=^5019234
 ;;^UTILITY(U,$J,358.3,17585,0)
 ;;=R11.13^^59^699^49
 ;;^UTILITY(U,$J,358.3,17585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17585,1,3,0)
 ;;=3^Vomiting of Fecal Matter
 ;;^UTILITY(U,$J,358.3,17585,1,4,0)
 ;;=4^R11.13
 ;;^UTILITY(U,$J,358.3,17585,2)
 ;;=^5019235
 ;;^UTILITY(U,$J,358.3,17586,0)
 ;;=R11.14^^59^699^9
 ;;^UTILITY(U,$J,358.3,17586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17586,1,3,0)
 ;;=3^Bilious Vomiting
 ;;^UTILITY(U,$J,358.3,17586,1,4,0)
 ;;=4^R11.14
 ;;^UTILITY(U,$J,358.3,17586,2)
 ;;=^5019236
 ;;^UTILITY(U,$J,358.3,17587,0)
 ;;=R11.2^^59^699^34
 ;;^UTILITY(U,$J,358.3,17587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17587,1,3,0)
 ;;=3^Nausea w/ Vomiting,Unspec
 ;;^UTILITY(U,$J,358.3,17587,1,4,0)
 ;;=4^R11.2
 ;;^UTILITY(U,$J,358.3,17587,2)
 ;;=^5019237
 ;;^UTILITY(U,$J,358.3,17588,0)
 ;;=R54.^^59^699^7
 ;;^UTILITY(U,$J,358.3,17588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17588,1,3,0)
 ;;=3^Age-Related Physical Debility
 ;;^UTILITY(U,$J,358.3,17588,1,4,0)
 ;;=4^R54.
 ;;^UTILITY(U,$J,358.3,17588,2)
 ;;=^5019521
 ;;^UTILITY(U,$J,358.3,17589,0)
 ;;=R55.^^59^699^45
 ;;^UTILITY(U,$J,358.3,17589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17589,1,3,0)
 ;;=3^Syncope and Collapse
 ;;^UTILITY(U,$J,358.3,17589,1,4,0)
 ;;=4^R55.
 ;;^UTILITY(U,$J,358.3,17589,2)
 ;;=^116707
 ;;^UTILITY(U,$J,358.3,17590,0)
 ;;=R56.9^^59^699^42
 ;;^UTILITY(U,$J,358.3,17590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17590,1,3,0)
 ;;=3^Seizures
 ;;^UTILITY(U,$J,358.3,17590,1,4,0)
 ;;=4^R56.9
 ;;^UTILITY(U,$J,358.3,17590,2)
 ;;=^5019524
 ;;^UTILITY(U,$J,358.3,17591,0)
 ;;=N50.82^^59^699^41
 ;;^UTILITY(U,$J,358.3,17591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17591,1,3,0)
 ;;=3^Scrotal Pain
 ;;^UTILITY(U,$J,358.3,17591,1,4,0)
 ;;=4^N50.82
 ;;^UTILITY(U,$J,358.3,17591,2)
 ;;=^5138930
 ;;^UTILITY(U,$J,358.3,17592,0)
 ;;=N50.812^^59^699^46
 ;;^UTILITY(U,$J,358.3,17592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17592,1,3,0)
 ;;=3^Testicular Pain,Left Side
 ;;^UTILITY(U,$J,358.3,17592,1,4,0)
 ;;=4^N50.812
 ;;^UTILITY(U,$J,358.3,17592,2)
 ;;=^5138928
 ;;^UTILITY(U,$J,358.3,17593,0)
 ;;=N50.811^^59^699^47
 ;;^UTILITY(U,$J,358.3,17593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17593,1,3,0)
 ;;=3^Testicular Pain,Right Side
 ;;^UTILITY(U,$J,358.3,17593,1,4,0)
 ;;=4^N50.811
 ;;^UTILITY(U,$J,358.3,17593,2)
 ;;=^5138927
 ;;^UTILITY(U,$J,358.3,17594,0)
 ;;=D63.1^^59^699^8
 ;;^UTILITY(U,$J,358.3,17594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17594,1,3,0)
 ;;=3^Anemia in Chronic Kidney Disease
 ;;^UTILITY(U,$J,358.3,17594,1,4,0)
 ;;=4^D63.1
 ;;^UTILITY(U,$J,358.3,17594,2)
 ;;=^332908
 ;;^UTILITY(U,$J,358.3,17595,0)
 ;;=R11.15^^59^699^20
 ;;^UTILITY(U,$J,358.3,17595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17595,1,3,0)
 ;;=3^Cyclical Vomiting Syndrome Unrelated to Migraine
 ;;^UTILITY(U,$J,358.3,17595,1,4,0)
 ;;=4^R11.15
 ;;^UTILITY(U,$J,358.3,17595,2)
 ;;=^5158141
 ;;^UTILITY(U,$J,358.3,17596,0)
 ;;=U07.1^^59^699^12
 ;;^UTILITY(U,$J,358.3,17596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17596,1,3,0)
 ;;=3^Confirmed COVID-19
 ;;^UTILITY(U,$J,358.3,17596,1,4,0)
 ;;=4^U07.1
 ;;^UTILITY(U,$J,358.3,17596,2)
 ;;=^5159070
 ;;^UTILITY(U,$J,358.3,17597,0)
 ;;=R06.02^^59^699^43
 ;;^UTILITY(U,$J,358.3,17597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17597,1,3,0)
 ;;=3^Shortness of Breath
 ;;^UTILITY(U,$J,358.3,17597,1,4,0)
 ;;=4^R06.02
 ;;^UTILITY(U,$J,358.3,17597,2)
 ;;=^5019181
 ;;^UTILITY(U,$J,358.3,17598,0)
 ;;=R51.0^^59^699^28
 ;;^UTILITY(U,$J,358.3,17598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17598,1,3,0)
 ;;=3^Headache w/ Orthostatic Component,NEC
 ;;^UTILITY(U,$J,358.3,17598,1,4,0)
 ;;=4^R51.0
 ;;^UTILITY(U,$J,358.3,17598,2)
 ;;=^5159305
 ;;^UTILITY(U,$J,358.3,17599,0)
 ;;=R51.9^^59^699^29
 ;;^UTILITY(U,$J,358.3,17599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17599,1,3,0)
 ;;=3^Headache,Unspecified
 ;;^UTILITY(U,$J,358.3,17599,1,4,0)
 ;;=4^R51.9
 ;;^UTILITY(U,$J,358.3,17599,2)
 ;;=^5159306
 ;;^UTILITY(U,$J,358.3,17600,0)
 ;;=Z20.822^^59^699^14
 ;;^UTILITY(U,$J,358.3,17600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17600,1,3,0)
 ;;=3^Contact w/ & Exposure to COVID-19
 ;;^UTILITY(U,$J,358.3,17600,1,4,0)
 ;;=4^Z20.822
 ;;^UTILITY(U,$J,358.3,17600,2)
 ;;=^5160187
 ;;^UTILITY(U,$J,358.3,17601,0)
 ;;=R05.9^^59^699^19
 ;;^UTILITY(U,$J,358.3,17601,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17601,1,3,0)
 ;;=3^Cough,Unspec
 ;;^UTILITY(U,$J,358.3,17601,1,4,0)
 ;;=4^R05.9
 ;;^UTILITY(U,$J,358.3,17601,2)
 ;;=^5161232
 ;;^UTILITY(U,$J,358.3,17602,0)
 ;;=R05.1^^59^699^16
 ;;^UTILITY(U,$J,358.3,17602,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17602,1,3,0)
 ;;=3^Cough,Acute
 ;;^UTILITY(U,$J,358.3,17602,1,4,0)
 ;;=4^R05.1
 ;;^UTILITY(U,$J,358.3,17602,2)
 ;;=^5161227
 ;;^UTILITY(U,$J,358.3,17603,0)
 ;;=R05.2^^59^699^18
 ;;^UTILITY(U,$J,358.3,17603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17603,1,3,0)
 ;;=3^Cough,Subacute
 ;;^UTILITY(U,$J,358.3,17603,1,4,0)
 ;;=4^R05.2
 ;;^UTILITY(U,$J,358.3,17603,2)
 ;;=^5161228
 ;;^UTILITY(U,$J,358.3,17604,0)
 ;;=R05.3^^59^699^17
 ;;^UTILITY(U,$J,358.3,17604,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17604,1,3,0)
 ;;=3^Cough,Chronic
 ;;^UTILITY(U,$J,358.3,17604,1,4,0)
 ;;=4^R05.3
 ;;^UTILITY(U,$J,358.3,17604,2)
 ;;=^5161229
 ;;^UTILITY(U,$J,358.3,17605,0)
 ;;=R05.4^^59^699^15
 ;;^UTILITY(U,$J,358.3,17605,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17605,1,3,0)
 ;;=3^Cough Syncope
 ;;^UTILITY(U,$J,358.3,17605,1,4,0)
 ;;=4^R05.4
 ;;^UTILITY(U,$J,358.3,17605,2)
 ;;=^5161230
 ;;^UTILITY(U,$J,358.3,17606,0)
 ;;=I05.0^^59^700^37
 ;;^UTILITY(U,$J,358.3,17606,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17606,1,3,0)
 ;;=3^Rheumatic Mitral Stenosis
 ;;^UTILITY(U,$J,358.3,17606,1,4,0)
 ;;=4^I05.0
 ;;^UTILITY(U,$J,358.3,17606,2)
 ;;=^5007041
 ;;^UTILITY(U,$J,358.3,17607,0)
 ;;=I05.8^^59^700^38
 ;;^UTILITY(U,$J,358.3,17607,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17607,1,3,0)
 ;;=3^Rheumatic Mitral Valve Diseases,Other
 ;;^UTILITY(U,$J,358.3,17607,1,4,0)
 ;;=4^I05.8
 ;;^UTILITY(U,$J,358.3,17607,2)
 ;;=^5007043
 ;;^UTILITY(U,$J,358.3,17608,0)
 ;;=I10.^^59^700^25
 ;;^UTILITY(U,$J,358.3,17608,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17608,1,3,0)
 ;;=3^Hypertension
 ;;^UTILITY(U,$J,358.3,17608,1,4,0)
 ;;=4^I10.
 ;;^UTILITY(U,$J,358.3,17608,2)
 ;;=^5007062
 ;;^UTILITY(U,$J,358.3,17609,0)
 ;;=I20.0^^59^700^40
 ;;^UTILITY(U,$J,358.3,17609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17609,1,3,0)
 ;;=3^Unstable Angina w/o Athscl Hrt Disease
 ;;^UTILITY(U,$J,358.3,17609,1,4,0)
 ;;=4^I20.0
 ;;^UTILITY(U,$J,358.3,17609,2)
 ;;=^5007076
 ;;^UTILITY(U,$J,358.3,17610,0)
 ;;=I20.9^^59^700^1
 ;;^UTILITY(U,$J,358.3,17610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17610,1,3,0)
 ;;=3^Angina Pectoris,Unspec
 ;;^UTILITY(U,$J,358.3,17610,1,4,0)
 ;;=4^I20.9
 ;;^UTILITY(U,$J,358.3,17610,2)
 ;;=^5007079
 ;;^UTILITY(U,$J,358.3,17611,0)
 ;;=I25.10^^59^700^2
 ;;^UTILITY(U,$J,358.3,17611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17611,1,3,0)
 ;;=3^Athscl Hrt Disease,Native Coronary Artery w/o Ang Pctrs
 ;;^UTILITY(U,$J,358.3,17611,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,17611,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,17612,0)
 ;;=I25.9^^59^700^13
 ;;^UTILITY(U,$J,358.3,17612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17612,1,3,0)
 ;;=3^Chronic Ischemic Heart Disease,Unspec
 ;;^UTILITY(U,$J,358.3,17612,1,4,0)
 ;;=4^I25.9
 ;;^UTILITY(U,$J,358.3,17612,2)
 ;;=^5007144
 ;;^UTILITY(U,$J,358.3,17613,0)
 ;;=I35.0^^59^700^32
 ;;^UTILITY(U,$J,358.3,17613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17613,1,3,0)
 ;;=3^Nonrheumatic Aortic Valve Stenosis
 ;;^UTILITY(U,$J,358.3,17613,1,4,0)
 ;;=4^I35.0
 ;;^UTILITY(U,$J,358.3,17613,2)
 ;;=^5007174
 ;;^UTILITY(U,$J,358.3,17614,0)
 ;;=I35.1^^59^700^31
 ;;^UTILITY(U,$J,358.3,17614,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17614,1,3,0)
 ;;=3^Nonrheumatic Aortic Valve Insufficiency
 ;;^UTILITY(U,$J,358.3,17614,1,4,0)
 ;;=4^I35.1
 ;;^UTILITY(U,$J,358.3,17614,2)
 ;;=^5007175
 ;;^UTILITY(U,$J,358.3,17615,0)
 ;;=I35.2^^59^700^33
 ;;^UTILITY(U,$J,358.3,17615,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17615,1,3,0)
 ;;=3^Nonrheumatic Aortic Valve Stenosis w/ Insufficiency
 ;;^UTILITY(U,$J,358.3,17615,1,4,0)
 ;;=4^I35.2
 ;;^UTILITY(U,$J,358.3,17615,2)
 ;;=^5007176
 ;;^UTILITY(U,$J,358.3,17616,0)
 ;;=I35.8^^59^700^29
 ;;^UTILITY(U,$J,358.3,17616,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17616,1,3,0)
 ;;=3^Nonrheumatic Aortic Valve Disorders,Other
 ;;^UTILITY(U,$J,358.3,17616,1,4,0)
 ;;=4^I35.8
 ;;^UTILITY(U,$J,358.3,17616,2)
 ;;=^5007177
 ;;^UTILITY(U,$J,358.3,17617,0)
 ;;=I35.9^^59^700^30
 ;;^UTILITY(U,$J,358.3,17617,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17617,1,3,0)
 ;;=3^Nonrheumatic Aortic Valve Disorders,Unspec
 ;;^UTILITY(U,$J,358.3,17617,1,4,0)
 ;;=4^I35.9
 ;;^UTILITY(U,$J,358.3,17617,2)
 ;;=^5007178
 ;;^UTILITY(U,$J,358.3,17618,0)
 ;;=I48.91^^59^700^9
 ;;^UTILITY(U,$J,358.3,17618,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17618,1,3,0)
 ;;=3^Atrial Fibrillation,Unspec
 ;;^UTILITY(U,$J,358.3,17618,1,4,0)
 ;;=4^I48.91
 ;;^UTILITY(U,$J,358.3,17618,2)
 ;;=^5007229
 ;;^UTILITY(U,$J,358.3,17619,0)
 ;;=I49.9^^59^700^12
 ;;^UTILITY(U,$J,358.3,17619,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17619,1,3,0)
 ;;=3^Cardiac Arrhythmia,Unspec
 ;;^UTILITY(U,$J,358.3,17619,1,4,0)
 ;;=4^I49.9
 ;;^UTILITY(U,$J,358.3,17619,2)
 ;;=^5007237
 ;;^UTILITY(U,$J,358.3,17620,0)
 ;;=I50.9^^59^700^24
 ;;^UTILITY(U,$J,358.3,17620,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17620,1,3,0)
 ;;=3^Heart Failure,Unspec
 ;;^UTILITY(U,$J,358.3,17620,1,4,0)
 ;;=4^I50.9
 ;;^UTILITY(U,$J,358.3,17620,2)
 ;;=^5007251
 ;;^UTILITY(U,$J,358.3,17621,0)
 ;;=I73.9^^59^700^36
 ;;^UTILITY(U,$J,358.3,17621,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17621,1,3,0)
 ;;=3^Periph Vascular Disease,Unspec
 ;;^UTILITY(U,$J,358.3,17621,1,4,0)
 ;;=4^I73.9
 ;;^UTILITY(U,$J,358.3,17621,2)
 ;;=^184182
 ;;^UTILITY(U,$J,358.3,17622,0)
 ;;=I87.2^^59^700^41
 ;;^UTILITY(U,$J,358.3,17622,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17622,1,3,0)
 ;;=3^Venous Insufficiency
 ;;^UTILITY(U,$J,358.3,17622,1,4,0)
 ;;=4^I87.2
 ;;^UTILITY(U,$J,358.3,17622,2)
 ;;=^5008047
 ;;^UTILITY(U,$J,358.3,17623,0)
 ;;=R03.0^^59^700^14
 ;;^UTILITY(U,$J,358.3,17623,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17623,1,3,0)
 ;;=3^Elevated B/P Reading w/o HTN Dx
 ;;^UTILITY(U,$J,358.3,17623,1,4,0)
 ;;=4^R03.0
 ;;^UTILITY(U,$J,358.3,17623,2)
 ;;=^5019171
 ;;^UTILITY(U,$J,358.3,17624,0)
 ;;=I25.110^^59^700^3
 ;;^UTILITY(U,$J,358.3,17624,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17624,1,3,0)
 ;;=3^Athscl Hrt Disease,Native Coronary Artery w/ Unstable Angina
 ;;^UTILITY(U,$J,358.3,17624,1,4,0)
 ;;=4^I25.110
 ;;^UTILITY(U,$J,358.3,17624,2)
 ;;=^5007108
 ;;^UTILITY(U,$J,358.3,17625,0)
 ;;=I25.119^^59^700^4
 ;;^UTILITY(U,$J,358.3,17625,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17625,1,3,0)
 ;;=3^Athscl Hrt Disease,Native Coronary Artery w/ Unspec Angina
 ;;^UTILITY(U,$J,358.3,17625,1,4,0)
 ;;=4^I25.119
 ;;^UTILITY(U,$J,358.3,17625,2)
 ;;=^5007111
 ;;^UTILITY(U,$J,358.3,17626,0)
 ;;=I48.0^^59^700^34
 ;;^UTILITY(U,$J,358.3,17626,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17626,1,3,0)
 ;;=3^Paroxysmal Atrial Fibrillation
 ;;^UTILITY(U,$J,358.3,17626,1,4,0)
 ;;=4^I48.0
 ;;^UTILITY(U,$J,358.3,17626,2)
 ;;=^90473
 ;;^UTILITY(U,$J,358.3,17627,0)
 ;;=I48.92^^59^700^10
 ;;^UTILITY(U,$J,358.3,17627,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17627,1,3,0)
 ;;=3^Atrial Flutter,Unspec
 ;;^UTILITY(U,$J,358.3,17627,1,4,0)
 ;;=4^I48.92
 ;;^UTILITY(U,$J,358.3,17627,2)
 ;;=^5007230
 ;;^UTILITY(U,$J,358.3,17628,0)
 ;;=I48.3^^59^700^39
 ;;^UTILITY(U,$J,358.3,17628,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17628,1,3,0)
 ;;=3^Typical Atrial Flutter
 ;;^UTILITY(U,$J,358.3,17628,1,4,0)
 ;;=4^I48.3
 ;;^UTILITY(U,$J,358.3,17628,2)
 ;;=^5007227
 ;;^UTILITY(U,$J,358.3,17629,0)
 ;;=I48.4^^59^700^11
 ;;^UTILITY(U,$J,358.3,17629,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17629,1,3,0)
 ;;=3^Atypical Atrial Flutter
 ;;^UTILITY(U,$J,358.3,17629,1,4,0)
 ;;=4^I48.4
 ;;^UTILITY(U,$J,358.3,17629,2)
 ;;=^5007228
 ;;^UTILITY(U,$J,358.3,17630,0)
 ;;=I16.9^^59^700^26
 ;;^UTILITY(U,$J,358.3,17630,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17630,1,3,0)
 ;;=3^Hypertensive Crisis,Unspec
 ;;^UTILITY(U,$J,358.3,17630,1,4,0)
 ;;=4^I16.9
 ;;^UTILITY(U,$J,358.3,17630,2)
 ;;=^5138600
 ;;^UTILITY(U,$J,358.3,17631,0)
 ;;=I16.1^^59^700^27
 ;;^UTILITY(U,$J,358.3,17631,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17631,1,3,0)
 ;;=3^Hypertensive Emergency
 ;;^UTILITY(U,$J,358.3,17631,1,4,0)
 ;;=4^I16.1
 ;;^UTILITY(U,$J,358.3,17631,2)
 ;;=^8204721
 ;;^UTILITY(U,$J,358.3,17632,0)
 ;;=I16.0^^59^700^28
 ;;^UTILITY(U,$J,358.3,17632,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17632,1,3,0)
 ;;=3^Hypertensive Urgency
 ;;^UTILITY(U,$J,358.3,17632,1,4,0)
 ;;=4^I16.0
 ;;^UTILITY(U,$J,358.3,17632,2)
 ;;=^8133013
 ;;^UTILITY(U,$J,358.3,17633,0)
 ;;=I12.9^^59^700^15
 ;;^UTILITY(U,$J,358.3,17633,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17633,1,3,0)
 ;;=3^HTN CKD w/ Stage 1-4 CKD or Unspec
 ;;^UTILITY(U,$J,358.3,17633,1,4,0)
 ;;=4^I12.9
 ;;^UTILITY(U,$J,358.3,17633,2)
 ;;=^5007066
 ;;^UTILITY(U,$J,358.3,17634,0)
 ;;=I12.0^^59^700^16
 ;;^UTILITY(U,$J,358.3,17634,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17634,1,3,0)
 ;;=3^HTN CKD w/ Stage 5 CKD or ESRD
 ;;^UTILITY(U,$J,358.3,17634,1,4,0)
 ;;=4^I12.0
 ;;^UTILITY(U,$J,358.3,17634,2)
 ;;=^5007065
 ;;^UTILITY(U,$J,358.3,17635,0)
 ;;=I13.10^^59^700^19
 ;;^UTILITY(U,$J,358.3,17635,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17635,1,3,0)
 ;;=3^HTN Heart & CKD w/o Heart Fail w/ 1-4 CKD or Unspec
 ;;^UTILITY(U,$J,358.3,17635,1,4,0)
 ;;=4^I13.10
 ;;^UTILITY(U,$J,358.3,17635,2)
 ;;=^5007068
 ;;^UTILITY(U,$J,358.3,17636,0)
 ;;=I13.11^^59^700^20
 ;;^UTILITY(U,$J,358.3,17636,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17636,1,3,0)
 ;;=3^HTN Heart & CKD w/o Heart Fail w/ 5 CKD or ESRD
 ;;^UTILITY(U,$J,358.3,17636,1,4,0)
 ;;=4^I13.11
 ;;^UTILITY(U,$J,358.3,17636,2)
 ;;=^5007069
 ;;^UTILITY(U,$J,358.3,17637,0)
 ;;=I13.0^^59^700^17
 ;;^UTILITY(U,$J,358.3,17637,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17637,1,3,0)
 ;;=3^HTN Heart & CKD w/ Heart Fail w/ 1-4 CKD or Unspec
 ;;^UTILITY(U,$J,358.3,17637,1,4,0)
 ;;=4^I13.0
 ;;^UTILITY(U,$J,358.3,17637,2)
 ;;=^5007067
 ;;^UTILITY(U,$J,358.3,17638,0)
 ;;=I13.2^^59^700^18
 ;;^UTILITY(U,$J,358.3,17638,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17638,1,3,0)
 ;;=3^HTN Heart & CKD w/ Heart Fail w/ 5 CKD or ESRD
 ;;^UTILITY(U,$J,358.3,17638,1,4,0)
 ;;=4^I13.2
 ;;^UTILITY(U,$J,358.3,17638,2)
 ;;=^5007070
 ;;^UTILITY(U,$J,358.3,17639,0)
 ;;=I31.9^^59^700^35
 ;;^UTILITY(U,$J,358.3,17639,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17639,1,3,0)
 ;;=3^Pericardial Disease NOS
 ;;^UTILITY(U,$J,358.3,17639,1,4,0)
 ;;=4^I31.9
 ;;^UTILITY(U,$J,358.3,17639,2)
 ;;=^5007165
 ;;^UTILITY(U,$J,358.3,17640,0)
 ;;=I48.20^^59^700^5
 ;;^UTILITY(U,$J,358.3,17640,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17640,1,3,0)
 ;;=3^Atrial Fibrillation,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,17640,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,17640,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,17641,0)
 ;;=I48.21^^59^700^8
 ;;^UTILITY(U,$J,358.3,17641,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17641,1,3,0)
 ;;=3^Atrial Fibrillation,Permanent
 ;;^UTILITY(U,$J,358.3,17641,1,4,0)
 ;;=4^I48.21
 ;;^UTILITY(U,$J,358.3,17641,2)
 ;;=^304710
 ;;^UTILITY(U,$J,358.3,17642,0)
 ;;=I48.11^^59^700^6
 ;;^UTILITY(U,$J,358.3,17642,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17642,1,3,0)
 ;;=3^Atrial Fibrillation,Longstanding Persistent
 ;;^UTILITY(U,$J,358.3,17642,1,4,0)
 ;;=4^I48.11
 ;;^UTILITY(U,$J,358.3,17642,2)
 ;;=^5158046
 ;;^UTILITY(U,$J,358.3,17643,0)
 ;;=I48.19^^59^700^7
 ;;^UTILITY(U,$J,358.3,17643,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17643,1,3,0)
 ;;=3^Atrial Fibrillation,Oth Persistent
 ;;^UTILITY(U,$J,358.3,17643,1,4,0)
 ;;=4^I48.19
 ;;^UTILITY(U,$J,358.3,17643,2)
 ;;=^5158047
 ;;^UTILITY(U,$J,358.3,17644,0)
 ;;=I50.20^^59^700^23
 ;;^UTILITY(U,$J,358.3,17644,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17644,1,3,0)
 ;;=3^Heart Failure,Systolic,Unspec