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

IBDEI039.m

Go to the documentation of this file.
IBDEI039 ; ; 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,7739,0)
 ;;=I21.4^^42^394^54
 ;;^UTILITY(U,$J,358.3,7739,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7739,1,3,0)
 ;;=3^Myocardial infarction,NSTEMI
 ;;^UTILITY(U,$J,358.3,7739,1,4,0)
 ;;=4^I21.4
 ;;^UTILITY(U,$J,358.3,7739,2)
 ;;=^5007088
 ;;^UTILITY(U,$J,358.3,7740,0)
 ;;=I21.3^^42^394^55
 ;;^UTILITY(U,$J,358.3,7740,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7740,1,3,0)
 ;;=3^Myocardial infarction,STEMI
 ;;^UTILITY(U,$J,358.3,7740,1,4,0)
 ;;=4^I21.3
 ;;^UTILITY(U,$J,358.3,7740,2)
 ;;=^5007087
 ;;^UTILITY(U,$J,358.3,7741,0)
 ;;=Z91.11^^42^394^56
 ;;^UTILITY(U,$J,358.3,7741,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7741,1,3,0)
 ;;=3^Noncompliance,Dietary regimen
 ;;^UTILITY(U,$J,358.3,7741,1,4,0)
 ;;=4^Z91.11
 ;;^UTILITY(U,$J,358.3,7741,2)
 ;;=^5063611
 ;;^UTILITY(U,$J,358.3,7742,0)
 ;;=Z91.19^^42^394^57
 ;;^UTILITY(U,$J,358.3,7742,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7742,1,3,0)
 ;;=3^Noncompliance,Medical treatment
 ;;^UTILITY(U,$J,358.3,7742,1,4,0)
 ;;=4^Z91.19
 ;;^UTILITY(U,$J,358.3,7742,2)
 ;;=^5063618
 ;;^UTILITY(U,$J,358.3,7743,0)
 ;;=E66.9^^42^394^58
 ;;^UTILITY(U,$J,358.3,7743,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7743,1,3,0)
 ;;=3^Obesity
 ;;^UTILITY(U,$J,358.3,7743,1,4,0)
 ;;=4^E66.9
 ;;^UTILITY(U,$J,358.3,7743,2)
 ;;=^5002832
 ;;^UTILITY(U,$J,358.3,7744,0)
 ;;=G47.33^^42^394^59
 ;;^UTILITY(U,$J,358.3,7744,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7744,1,3,0)
 ;;=3^Obstructive sleep apnea 
 ;;^UTILITY(U,$J,358.3,7744,1,4,0)
 ;;=4^G47.33
 ;;^UTILITY(U,$J,358.3,7744,2)
 ;;=^332763
 ;;^UTILITY(U,$J,358.3,7745,0)
 ;;=R06.01^^42^394^60
 ;;^UTILITY(U,$J,358.3,7745,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7745,1,3,0)
 ;;=3^Orthopnea
 ;;^UTILITY(U,$J,358.3,7745,1,4,0)
 ;;=4^R06.01
 ;;^UTILITY(U,$J,358.3,7745,2)
 ;;=^186737
 ;;^UTILITY(U,$J,358.3,7746,0)
 ;;=E66.3^^42^394^61
 ;;^UTILITY(U,$J,358.3,7746,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7746,1,3,0)
 ;;=3^Overweight
 ;;^UTILITY(U,$J,358.3,7746,1,4,0)
 ;;=4^E66.3
 ;;^UTILITY(U,$J,358.3,7746,2)
 ;;=^5002830
 ;;^UTILITY(U,$J,358.3,7747,0)
 ;;=Z99.81^^42^394^62
 ;;^UTILITY(U,$J,358.3,7747,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7747,1,3,0)
 ;;=3^Oxygen dependence (supplemental)
 ;;^UTILITY(U,$J,358.3,7747,1,4,0)
 ;;=4^Z99.81
 ;;^UTILITY(U,$J,358.3,7747,2)
 ;;=^5063760
 ;;^UTILITY(U,$J,358.3,7748,0)
 ;;=Z95.0^^42^394^71
 ;;^UTILITY(U,$J,358.3,7748,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7748,1,3,0)
 ;;=3^Pacemaker (cardiac),Hx of placement
 ;;^UTILITY(U,$J,358.3,7748,1,4,0)
 ;;=4^Z95.0
 ;;^UTILITY(U,$J,358.3,7748,2)
 ;;=^5063668
 ;;^UTILITY(U,$J,358.3,7749,0)
 ;;=I26.09^^42^394^63
 ;;^UTILITY(U,$J,358.3,7749,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7749,1,3,0)
 ;;=3^PE,Acute Other w/ Cor pulmonale
 ;;^UTILITY(U,$J,358.3,7749,1,4,0)
 ;;=4^I26.09
 ;;^UTILITY(U,$J,358.3,7749,2)
 ;;=^5007147
 ;;^UTILITY(U,$J,358.3,7750,0)
 ;;=I26.99^^42^394^64
 ;;^UTILITY(U,$J,358.3,7750,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7750,1,3,0)
 ;;=3^PE,Acute Other w/o Cor pulmonale
 ;;^UTILITY(U,$J,358.3,7750,1,4,0)
 ;;=4^I26.99
 ;;^UTILITY(U,$J,358.3,7750,2)
 ;;=^5007150
 ;;^UTILITY(U,$J,358.3,7751,0)
 ;;=I26.01^^42^394^65
 ;;^UTILITY(U,$J,358.3,7751,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7751,1,3,0)
 ;;=3^PE,Acute Septic w/ Cor pulmonale
 ;;^UTILITY(U,$J,358.3,7751,1,4,0)
 ;;=4^I26.01
 ;;^UTILITY(U,$J,358.3,7751,2)
 ;;=^5007145
 ;;^UTILITY(U,$J,358.3,7752,0)
 ;;=I26.90^^42^394^66
 ;;^UTILITY(U,$J,358.3,7752,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7752,1,3,0)
 ;;=3^PE,Acute Septic w/o Cor pulmonale
 ;;^UTILITY(U,$J,358.3,7752,1,4,0)
 ;;=4^I26.90
 ;;^UTILITY(U,$J,358.3,7752,2)
 ;;=^5007148
 ;;^UTILITY(U,$J,358.3,7753,0)
 ;;=I27.82^^42^394^67
 ;;^UTILITY(U,$J,358.3,7753,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7753,1,3,0)
 ;;=3^PE,Chronic
 ;;^UTILITY(U,$J,358.3,7753,1,4,0)
 ;;=4^I27.82
 ;;^UTILITY(U,$J,358.3,7753,2)
 ;;=^338238
 ;;^UTILITY(U,$J,358.3,7754,0)
 ;;=Z86.711^^42^394^68
 ;;^UTILITY(U,$J,358.3,7754,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7754,1,3,0)
 ;;=3^PE,Hx of
 ;;^UTILITY(U,$J,358.3,7754,1,4,0)
 ;;=4^Z86.711
 ;;^UTILITY(U,$J,358.3,7754,2)
 ;;=^5063474
 ;;^UTILITY(U,$J,358.3,7755,0)
 ;;=F29.^^42^394^72
 ;;^UTILITY(U,$J,358.3,7755,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7755,1,3,0)
 ;;=3^Psychosis,Unsp
 ;;^UTILITY(U,$J,358.3,7755,1,4,0)
 ;;=4^F29.
 ;;^UTILITY(U,$J,358.3,7755,2)
 ;;=^5003484
 ;;^UTILITY(U,$J,358.3,7756,0)
 ;;=F43.11^^42^394^69
 ;;^UTILITY(U,$J,358.3,7756,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7756,1,3,0)
 ;;=3^PTSD,Acute
 ;;^UTILITY(U,$J,358.3,7756,1,4,0)
 ;;=4^F43.11
 ;;^UTILITY(U,$J,358.3,7756,2)
 ;;=^5003571
 ;;^UTILITY(U,$J,358.3,7757,0)
 ;;=J96.02^^42^394^75
 ;;^UTILITY(U,$J,358.3,7757,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7757,1,3,0)
 ;;=3^Respiratory failure,Acute w/ Hypercapnia
 ;;^UTILITY(U,$J,358.3,7757,1,4,0)
 ;;=4^J96.02
 ;;^UTILITY(U,$J,358.3,7757,2)
 ;;=^5008349
 ;;^UTILITY(U,$J,358.3,7758,0)
 ;;=J96.01^^42^394^76
 ;;^UTILITY(U,$J,358.3,7758,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7758,1,3,0)
 ;;=3^Respiratory failure,Acute w/ Hypoxia
 ;;^UTILITY(U,$J,358.3,7758,1,4,0)
 ;;=4^J96.01
 ;;^UTILITY(U,$J,358.3,7758,2)
 ;;=^5008348
 ;;^UTILITY(U,$J,358.3,7759,0)
 ;;=J96.22^^42^394^73
 ;;^UTILITY(U,$J,358.3,7759,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7759,1,3,0)
 ;;=3^Respiratory failure,Acute & Chronic w/ Hypercapnia
 ;;^UTILITY(U,$J,358.3,7759,1,4,0)
 ;;=4^J96.22
 ;;^UTILITY(U,$J,358.3,7759,2)
 ;;=^5008355
 ;;^UTILITY(U,$J,358.3,7760,0)
 ;;=J96.21^^42^394^74
 ;;^UTILITY(U,$J,358.3,7760,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7760,1,3,0)
 ;;=3^Respiratory failure,Acute & Chronic w/ Hypoxia
 ;;^UTILITY(U,$J,358.3,7760,1,4,0)
 ;;=4^J96.21
 ;;^UTILITY(U,$J,358.3,7760,2)
 ;;=^5008354
 ;;^UTILITY(U,$J,358.3,7761,0)
 ;;=J96.12^^42^394^77
 ;;^UTILITY(U,$J,358.3,7761,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7761,1,3,0)
 ;;=3^Respiratory failure,Chronic w/ Hypercapnia
 ;;^UTILITY(U,$J,358.3,7761,1,4,0)
 ;;=4^J96.12
 ;;^UTILITY(U,$J,358.3,7761,2)
 ;;=^5008352
 ;;^UTILITY(U,$J,358.3,7762,0)
 ;;=J96.11^^42^394^78
 ;;^UTILITY(U,$J,358.3,7762,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7762,1,3,0)
 ;;=3^Respiratory failure,Chronic w/ Hypoxia
 ;;^UTILITY(U,$J,358.3,7762,1,4,0)
 ;;=4^J96.11
 ;;^UTILITY(U,$J,358.3,7762,2)
 ;;=^5008351
 ;;^UTILITY(U,$J,358.3,7763,0)
 ;;=F10.188^^42^394^83
 ;;^UTILITY(U,$J,358.3,7763,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7763,1,3,0)
 ;;=3^Substance abuse,Alcohol w/ ETOH Induced Disorder
 ;;^UTILITY(U,$J,358.3,7763,1,4,0)
 ;;=4^F10.188
 ;;^UTILITY(U,$J,358.3,7763,2)
 ;;=^5003079
 ;;^UTILITY(U,$J,358.3,7764,0)
 ;;=F10.10^^42^394^84
 ;;^UTILITY(U,$J,358.3,7764,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7764,1,3,0)
 ;;=3^Substance abuse,Alcohol,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7764,1,4,0)
 ;;=4^F10.10
 ;;^UTILITY(U,$J,358.3,7764,2)
 ;;=^5003068
 ;;^UTILITY(U,$J,358.3,7765,0)
 ;;=F12.120^^42^394^85
 ;;^UTILITY(U,$J,358.3,7765,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7765,1,3,0)
 ;;=3^Substance abuse,Cannabis w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7765,1,4,0)
 ;;=4^F12.120
 ;;^UTILITY(U,$J,358.3,7765,2)
 ;;=^5003156
 ;;^UTILITY(U,$J,358.3,7766,0)
 ;;=F14.120^^42^394^86
 ;;^UTILITY(U,$J,358.3,7766,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7766,1,3,0)
 ;;=3^Substance abuse,Cocaine w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7766,1,4,0)
 ;;=4^F14.120
 ;;^UTILITY(U,$J,358.3,7766,2)
 ;;=^5003240
 ;;^UTILITY(U,$J,358.3,7767,0)
 ;;=F16.120^^42^394^87
 ;;^UTILITY(U,$J,358.3,7767,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7767,1,3,0)
 ;;=3^Substance abuse,Hallucinogen w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7767,1,4,0)
 ;;=4^F16.120
 ;;^UTILITY(U,$J,358.3,7767,2)
 ;;=^5003324
 ;;^UTILITY(U,$J,358.3,7768,0)
 ;;=F11.10^^42^394^88
 ;;^UTILITY(U,$J,358.3,7768,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7768,1,3,0)
 ;;=3^Substance abuse,Opioid,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7768,1,4,0)
 ;;=4^F11.10
 ;;^UTILITY(U,$J,358.3,7768,2)
 ;;=^5003114
 ;;^UTILITY(U,$J,358.3,7769,0)
 ;;=F19.120^^42^394^89
 ;;^UTILITY(U,$J,358.3,7769,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7769,1,3,0)
 ;;=3^Substance abuse,Psychoactive w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7769,1,4,0)
 ;;=4^F19.120
 ;;^UTILITY(U,$J,358.3,7769,2)
 ;;=^5003417
 ;;^UTILITY(U,$J,358.3,7770,0)
 ;;=F15.220^^42^394^82
 ;;^UTILITY(U,$J,358.3,7770,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7770,1,3,0)
 ;;=3^Substance Dependence,Oth Stimulant w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7770,1,4,0)
 ;;=4^F15.220
 ;;^UTILITY(U,$J,358.3,7770,2)
 ;;=^5003297
 ;;^UTILITY(U,$J,358.3,7771,0)
 ;;=R56.9^^42^394^81
 ;;^UTILITY(U,$J,358.3,7771,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7771,1,3,0)
 ;;=3^Seizure Disorder,Unsp
 ;;^UTILITY(U,$J,358.3,7771,1,4,0)
 ;;=4^R56.9
 ;;^UTILITY(U,$J,358.3,7771,2)
 ;;=^5019524
 ;;^UTILITY(U,$J,358.3,7772,0)
 ;;=Z93.0^^42^394^91
 ;;^UTILITY(U,$J,358.3,7772,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7772,1,3,0)
 ;;=3^Tracheostomy status
 ;;^UTILITY(U,$J,358.3,7772,1,4,0)
 ;;=4^Z93.0
 ;;^UTILITY(U,$J,358.3,7772,2)
 ;;=^5063642
 ;;^UTILITY(U,$J,358.3,7773,0)
 ;;=I47.2^^42^394^92
 ;;^UTILITY(U,$J,358.3,7773,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7773,1,3,0)
 ;;=3^Ventricular tachycardia
 ;;^UTILITY(U,$J,358.3,7773,1,4,0)
 ;;=4^I47.2
 ;;^UTILITY(U,$J,358.3,7773,2)
 ;;=^125976
 ;;^UTILITY(U,$J,358.3,7774,0)
 ;;=N17.9^^42^394^2
 ;;^UTILITY(U,$J,358.3,7774,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7774,1,3,0)
 ;;=3^Acute kidney failure,unspc
 ;;^UTILITY(U,$J,358.3,7774,1,4,0)
 ;;=4^N17.9
 ;;^UTILITY(U,$J,358.3,7774,2)
 ;;=^338532
 ;;^UTILITY(U,$J,358.3,7775,0)
 ;;=Z72.0^^42^394^90
 ;;^UTILITY(U,$J,358.3,7775,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7775,1,3,0)
 ;;=3^Tobacco Use
 ;;^UTILITY(U,$J,358.3,7775,1,4,0)
 ;;=4^Z72.0
 ;;^UTILITY(U,$J,358.3,7775,2)
 ;;=^5063255
 ;;^UTILITY(U,$J,358.3,7776,0)
 ;;=E87.6^^42^394^46
 ;;^UTILITY(U,$J,358.3,7776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7776,1,3,0)
 ;;=3^Hypokalemia
 ;;^UTILITY(U,$J,358.3,7776,1,4,0)
 ;;=4^E87.6
 ;;^UTILITY(U,$J,358.3,7776,2)
 ;;=^60610
 ;;^UTILITY(U,$J,358.3,7777,0)
 ;;=E87.1^^42^394^47
 ;;^UTILITY(U,$J,358.3,7777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7777,1,3,0)
 ;;=3^Hyponatremia
 ;;^UTILITY(U,$J,358.3,7777,1,4,0)
 ;;=4^E87.1
 ;;^UTILITY(U,$J,358.3,7777,2)
 ;;=^5003019
 ;;^UTILITY(U,$J,358.3,7778,0)
 ;;=E87.5^^42^394^40
 ;;^UTILITY(U,$J,358.3,7778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7778,1,3,0)
 ;;=3^Hyperkalemia
 ;;^UTILITY(U,$J,358.3,7778,1,4,0)
 ;;=4^E87.5
 ;;^UTILITY(U,$J,358.3,7778,2)
 ;;=^60041
 ;;^UTILITY(U,$J,358.3,7779,0)
 ;;=E87.0^^42^394^44
 ;;^UTILITY(U,$J,358.3,7779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7779,1,3,0)
 ;;=3^Hypernatremia
 ;;^UTILITY(U,$J,358.3,7779,1,4,0)
 ;;=4^E87.0
 ;;^UTILITY(U,$J,358.3,7779,2)
 ;;=^5003018
 ;;^UTILITY(U,$J,358.3,7780,0)
 ;;=I48.20^^42^394^6
 ;;^UTILITY(U,$J,358.3,7780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7780,1,3,0)
 ;;=3^Atrial Fibrillation,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,7780,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,7780,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,7781,0)
 ;;=N18.30^^42^394^21
 ;;^UTILITY(U,$J,358.3,7781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7781,1,3,0)
 ;;=3^CKD Stage 3,Unspec
 ;;^UTILITY(U,$J,358.3,7781,1,4,0)
 ;;=4^N18.30
 ;;^UTILITY(U,$J,358.3,7781,2)
 ;;=^5159286
 ;;^UTILITY(U,$J,358.3,7782,0)
 ;;=N18.31^^42^394^22
 ;;^UTILITY(U,$J,358.3,7782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7782,1,3,0)
 ;;=3^CKD Stage 3a
 ;;^UTILITY(U,$J,358.3,7782,1,4,0)
 ;;=4^N18.31
 ;;^UTILITY(U,$J,358.3,7782,2)
 ;;=^5159287
 ;;^UTILITY(U,$J,358.3,7783,0)
 ;;=N18.32^^42^394^23
 ;;^UTILITY(U,$J,358.3,7783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7783,1,3,0)
 ;;=3^CKD Stage 3b
 ;;^UTILITY(U,$J,358.3,7783,1,4,0)
 ;;=4^N18.32
 ;;^UTILITY(U,$J,358.3,7783,2)
 ;;=^5159288
 ;;^UTILITY(U,$J,358.3,7784,0)
 ;;=Z59.00^^42^394^38
 ;;^UTILITY(U,$J,358.3,7784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7784,1,3,0)
 ;;=3^Homelessness,Unspec
 ;;^UTILITY(U,$J,358.3,7784,1,4,0)
 ;;=4^Z59.00
 ;;^UTILITY(U,$J,358.3,7784,2)
 ;;=^5161304
 ;;^UTILITY(U,$J,358.3,7785,0)
 ;;=K61.0^^42^395^1
 ;;^UTILITY(U,$J,358.3,7785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7785,1,3,0)
 ;;=3^Abscess of Anus
 ;;^UTILITY(U,$J,358.3,7785,1,4,0)
 ;;=4^K61.0
 ;;^UTILITY(U,$J,358.3,7785,2)
 ;;=^5008749
 ;;^UTILITY(U,$J,358.3,7786,0)
 ;;=K60.0^^42^395^2
 ;;^UTILITY(U,$J,358.3,7786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7786,1,3,0)
 ;;=3^Anal Fissure,Acute
 ;;^UTILITY(U,$J,358.3,7786,1,4,0)
 ;;=4^K60.0
 ;;^UTILITY(U,$J,358.3,7786,2)
 ;;=^5008745
 ;;^UTILITY(U,$J,358.3,7787,0)
 ;;=K60.1^^42^395^3
 ;;^UTILITY(U,$J,358.3,7787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7787,1,3,0)
 ;;=3^Anal Fissure,Chronic
 ;;^UTILITY(U,$J,358.3,7787,1,4,0)
 ;;=4^K60.1
 ;;^UTILITY(U,$J,358.3,7787,2)
 ;;=^5008746
 ;;^UTILITY(U,$J,358.3,7788,0)
 ;;=D12.9^^42^395^5
 ;;^UTILITY(U,$J,358.3,7788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7788,1,3,0)
 ;;=3^Benign neoplasm,Anal Canal
 ;;^UTILITY(U,$J,358.3,7788,1,4,0)
 ;;=4^D12.9
 ;;^UTILITY(U,$J,358.3,7788,2)
 ;;=^5001972
 ;;^UTILITY(U,$J,358.3,7789,0)
 ;;=D12.8^^42^395^6
 ;;^UTILITY(U,$J,358.3,7789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7789,1,3,0)
 ;;=3^Benign neoplasm,Rectum
 ;;^UTILITY(U,$J,358.3,7789,1,4,0)
 ;;=4^D12.8
 ;;^UTILITY(U,$J,358.3,7789,2)
 ;;=^5001971
 ;;^UTILITY(U,$J,358.3,7790,0)
 ;;=D01.2^^42^395^7
 ;;^UTILITY(U,$J,358.3,7790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7790,1,3,0)
 ;;=3^Carcinoma in situ of Rectum
 ;;^UTILITY(U,$J,358.3,7790,1,4,0)
 ;;=4^D01.2
 ;;^UTILITY(U,$J,358.3,7790,2)
 ;;=^267713
 ;;^UTILITY(U,$J,358.3,7791,0)
 ;;=K60.3^^42^395^9
 ;;^UTILITY(U,$J,358.3,7791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7791,1,3,0)
 ;;=3^Fistula,Anal
 ;;^UTILITY(U,$J,358.3,7791,1,4,0)
 ;;=4^K60.3
 ;;^UTILITY(U,$J,358.3,7791,2)
 ;;=^6684
 ;;^UTILITY(U,$J,358.3,7792,0)
 ;;=K60.5^^42^395^10
 ;;^UTILITY(U,$J,358.3,7792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7792,1,3,0)
 ;;=3^Fistula,Anorectal
 ;;^UTILITY(U,$J,358.3,7792,1,4,0)
 ;;=4^K60.5
 ;;^UTILITY(U,$J,358.3,7792,2)
 ;;=^5008748
 ;;^UTILITY(U,$J,358.3,7793,0)
 ;;=K60.4^^42^395^11
 ;;^UTILITY(U,$J,358.3,7793,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7793,1,3,0)
 ;;=3^Fistula,Rectum
 ;;^UTILITY(U,$J,358.3,7793,1,4,0)
 ;;=4^K60.4
 ;;^UTILITY(U,$J,358.3,7793,2)
 ;;=^104084
 ;;^UTILITY(U,$J,358.3,7794,0)
 ;;=K64.0^^42^395^12
 ;;^UTILITY(U,$J,358.3,7794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7794,1,3,0)
 ;;=3^Hemorrhoids,1st degree
 ;;^UTILITY(U,$J,358.3,7794,1,4,0)
 ;;=4^K64.0
 ;;^UTILITY(U,$J,358.3,7794,2)
 ;;=^5008769
 ;;^UTILITY(U,$J,358.3,7795,0)
 ;;=K64.1^^42^395^13
 ;;^UTILITY(U,$J,358.3,7795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7795,1,3,0)
 ;;=3^Hemorrhoids,2nd degree
 ;;^UTILITY(U,$J,358.3,7795,1,4,0)
 ;;=4^K64.1
 ;;^UTILITY(U,$J,358.3,7795,2)
 ;;=^5008770
 ;;^UTILITY(U,$J,358.3,7796,0)
 ;;=K64.2^^42^395^14
 ;;^UTILITY(U,$J,358.3,7796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7796,1,3,0)
 ;;=3^Hemorrhoids,3rd degree
 ;;^UTILITY(U,$J,358.3,7796,1,4,0)
 ;;=4^K64.2
 ;;^UTILITY(U,$J,358.3,7796,2)
 ;;=^5008771
 ;;^UTILITY(U,$J,358.3,7797,0)
 ;;=K64.8^^42^395^16
 ;;^UTILITY(U,$J,358.3,7797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7797,1,3,0)
 ;;=3^Hemorrhoids,Other
 ;;^UTILITY(U,$J,358.3,7797,1,4,0)
 ;;=4^K64.8
 ;;^UTILITY(U,$J,358.3,7797,2)
 ;;=^5008774
 ;;^UTILITY(U,$J,358.3,7798,0)
 ;;=C21.1^^42^395^18
 ;;^UTILITY(U,$J,358.3,7798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7798,1,3,0)
 ;;=3^Malignant neoplasm,Anal canal
 ;;^UTILITY(U,$J,358.3,7798,1,4,0)
 ;;=4^C21.1
 ;;^UTILITY(U,$J,358.3,7798,2)
 ;;=^267091
 ;;^UTILITY(U,$J,358.3,7799,0)
 ;;=C20.^^42^395^19
 ;;^UTILITY(U,$J,358.3,7799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7799,1,3,0)
 ;;=3^Malignant neoplasm,Rectum
 ;;^UTILITY(U,$J,358.3,7799,1,4,0)
 ;;=4^C20.
 ;;^UTILITY(U,$J,358.3,7799,2)
 ;;=^267090
 ;;^UTILITY(U,$J,358.3,7800,0)
 ;;=K59.02^^42^395^20
 ;;^UTILITY(U,$J,358.3,7800,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7800,1,3,0)
 ;;=3^Outlet dysfunction constipation
 ;;^UTILITY(U,$J,358.3,7800,1,4,0)
 ;;=4^K59.02
 ;;^UTILITY(U,$J,358.3,7800,2)
 ;;=^323539
 ;;^UTILITY(U,$J,358.3,7801,0)
 ;;=K62.1^^42^395^21
 ;;^UTILITY(U,$J,358.3,7801,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7801,1,3,0)
 ;;=3^Polyp of Rectum
 ;;^UTILITY(U,$J,358.3,7801,1,4,0)
 ;;=4^K62.1
 ;;^UTILITY(U,$J,358.3,7801,2)
 ;;=^104099
 ;;^UTILITY(U,$J,358.3,7802,0)
 ;;=K59.4^^42^395^22
 ;;^UTILITY(U,$J,358.3,7802,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7802,1,3,0)
 ;;=3^Proctalgia fugax
 ;;^UTILITY(U,$J,358.3,7802,1,4,0)
 ;;=4^K59.4
 ;;^UTILITY(U,$J,358.3,7802,2)
 ;;=^265303
 ;;^UTILITY(U,$J,358.3,7803,0)
 ;;=K62.7^^42^395^23
 ;;^UTILITY(U,$J,358.3,7803,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7803,1,3,0)
 ;;=3^Radiation proctitis
 ;;^UTILITY(U,$J,358.3,7803,1,4,0)
 ;;=4^K62.7
 ;;^UTILITY(U,$J,358.3,7803,2)
 ;;=^5008756
 ;;^UTILITY(U,$J,358.3,7804,0)
 ;;=K62.3^^42^395^24
 ;;^UTILITY(U,$J,358.3,7804,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7804,1,3,0)
 ;;=3^Rectal prolapse
 ;;^UTILITY(U,$J,358.3,7804,1,4,0)
 ;;=4^K62.3
 ;;^UTILITY(U,$J,358.3,7804,2)
 ;;=^104104
 ;;^UTILITY(U,$J,358.3,7805,0)
 ;;=K62.4^^42^395^25
 ;;^UTILITY(U,$J,358.3,7805,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7805,1,3,0)
 ;;=3^Stenosis,Anus or Rectum
 ;;^UTILITY(U,$J,358.3,7805,1,4,0)
 ;;=4^K62.4
 ;;^UTILITY(U,$J,358.3,7805,2)
 ;;=^270293
 ;;^UTILITY(U,$J,358.3,7806,0)
 ;;=K62.6^^42^395^26
 ;;^UTILITY(U,$J,358.3,7806,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7806,1,3,0)
 ;;=3^Ulcer,Anus or Rectum
 ;;^UTILITY(U,$J,358.3,7806,1,4,0)
 ;;=4^K62.6
 ;;^UTILITY(U,$J,358.3,7806,2)
 ;;=^270294
 ;;^UTILITY(U,$J,358.3,7807,0)
 ;;=K62.9^^42^395^8
 ;;^UTILITY(U,$J,358.3,7807,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7807,1,3,0)
 ;;=3^Disease of Anus or Rectum,Unspec
 ;;^UTILITY(U,$J,358.3,7807,1,4,0)
 ;;=4^K62.9
 ;;^UTILITY(U,$J,358.3,7807,2)
 ;;=^5008760
 ;;^UTILITY(U,$J,358.3,7808,0)
 ;;=K64.3^^42^395^15
 ;;^UTILITY(U,$J,358.3,7808,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7808,1,3,0)
 ;;=3^Hemorrhoids,4th degree
 ;;^UTILITY(U,$J,358.3,7808,1,4,0)
 ;;=4^K64.3
 ;;^UTILITY(U,$J,358.3,7808,2)
 ;;=^5008772
 ;;^UTILITY(U,$J,358.3,7809,0)
 ;;=K64.5^^42^395^17
 ;;^UTILITY(U,$J,358.3,7809,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7809,1,3,0)
 ;;=3^Hemorrhoids,Perianal/External w/ Thrombosis
 ;;^UTILITY(U,$J,358.3,7809,1,4,0)
 ;;=4^K64.5
 ;;^UTILITY(U,$J,358.3,7809,2)
 ;;=^5008773
 ;;^UTILITY(U,$J,358.3,7810,0)
 ;;=K62.2^^42^395^4
 ;;^UTILITY(U,$J,358.3,7810,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7810,1,3,0)
 ;;=3^Anal Prolapse