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

IBDEI077.m

Go to the documentation of this file.
IBDEI077 ; ; 28-OCT-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;OCT 28, 2020
 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,17340,2)
 ;;=^5007230
 ;;^UTILITY(U,$J,358.3,17341,0)
 ;;=I67.9^^82^859^28
 ;;^UTILITY(U,$J,358.3,17341,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17341,1,3,0)
 ;;=3^Cerebrovascular disease,Unsp
 ;;^UTILITY(U,$J,358.3,17341,1,4,0)
 ;;=4^I67.9
 ;;^UTILITY(U,$J,358.3,17341,2)
 ;;=^5007389
 ;;^UTILITY(U,$J,358.3,17342,0)
 ;;=I25.119^^82^859^29
 ;;^UTILITY(U,$J,358.3,17342,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17342,1,3,0)
 ;;=3^Coronary artery disease w/ Angina
 ;;^UTILITY(U,$J,358.3,17342,1,4,0)
 ;;=4^I25.119
 ;;^UTILITY(U,$J,358.3,17342,2)
 ;;=^5007111
 ;;^UTILITY(U,$J,358.3,17343,0)
 ;;=I25.10^^82^859^30
 ;;^UTILITY(U,$J,358.3,17343,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17343,1,3,0)
 ;;=3^Coronary artery disease w/o Angina
 ;;^UTILITY(U,$J,358.3,17343,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,17343,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,17344,0)
 ;;=Z95.5^^82^859^31
 ;;^UTILITY(U,$J,358.3,17344,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17344,1,3,0)
 ;;=3^Coronary artery stent,Hx of placement
 ;;^UTILITY(U,$J,358.3,17344,1,4,0)
 ;;=4^Z95.5
 ;;^UTILITY(U,$J,358.3,17344,2)
 ;;=^5063673
 ;;^UTILITY(U,$J,358.3,17345,0)
 ;;=I50.41^^82^859^10
 ;;^UTILITY(U,$J,358.3,17345,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17345,1,3,0)
 ;;=3^CHF,Acute Combined
 ;;^UTILITY(U,$J,358.3,17345,1,4,0)
 ;;=4^I50.41
 ;;^UTILITY(U,$J,358.3,17345,2)
 ;;=^5007248
 ;;^UTILITY(U,$J,358.3,17346,0)
 ;;=I50.31^^82^859^11
 ;;^UTILITY(U,$J,358.3,17346,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17346,1,3,0)
 ;;=3^CHF,Acute Diastolic
 ;;^UTILITY(U,$J,358.3,17346,1,4,0)
 ;;=4^I50.31
 ;;^UTILITY(U,$J,358.3,17346,2)
 ;;=^5007244
 ;;^UTILITY(U,$J,358.3,17347,0)
 ;;=I50.21^^82^859^12
 ;;^UTILITY(U,$J,358.3,17347,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17347,1,3,0)
 ;;=3^CHF,Acute Systolic
 ;;^UTILITY(U,$J,358.3,17347,1,4,0)
 ;;=4^I50.21
 ;;^UTILITY(U,$J,358.3,17347,2)
 ;;=^5007240
 ;;^UTILITY(U,$J,358.3,17348,0)
 ;;=I50.43^^82^859^13
 ;;^UTILITY(U,$J,358.3,17348,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17348,1,3,0)
 ;;=3^CHF,Acute on Chronic Combined
 ;;^UTILITY(U,$J,358.3,17348,1,4,0)
 ;;=4^I50.43
 ;;^UTILITY(U,$J,358.3,17348,2)
 ;;=^5007250
 ;;^UTILITY(U,$J,358.3,17349,0)
 ;;=I50.33^^82^859^14
 ;;^UTILITY(U,$J,358.3,17349,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17349,1,3,0)
 ;;=3^CHF,Acute on Chronic Diastolic
 ;;^UTILITY(U,$J,358.3,17349,1,4,0)
 ;;=4^I50.33
 ;;^UTILITY(U,$J,358.3,17349,2)
 ;;=^5007246
 ;;^UTILITY(U,$J,358.3,17350,0)
 ;;=I50.23^^82^859^15
 ;;^UTILITY(U,$J,358.3,17350,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17350,1,3,0)
 ;;=3^CHF,Acute on Chronic Systolic
 ;;^UTILITY(U,$J,358.3,17350,1,4,0)
 ;;=4^I50.23
 ;;^UTILITY(U,$J,358.3,17350,2)
 ;;=^5007242
 ;;^UTILITY(U,$J,358.3,17351,0)
 ;;=I50.42^^82^859^16
 ;;^UTILITY(U,$J,358.3,17351,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17351,1,3,0)
 ;;=3^CHF,Chronic Combined
 ;;^UTILITY(U,$J,358.3,17351,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,17351,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,17352,0)
 ;;=I50.32^^82^859^17
 ;;^UTILITY(U,$J,358.3,17352,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17352,1,3,0)
 ;;=3^CHF,Chronic Diastolic
 ;;^UTILITY(U,$J,358.3,17352,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,17352,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,17353,0)
 ;;=I50.22^^82^859^18
 ;;^UTILITY(U,$J,358.3,17353,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17353,1,3,0)
 ;;=3^CHF,Chronic Systolic
 ;;^UTILITY(U,$J,358.3,17353,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,17353,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,17354,0)
 ;;=N18.1^^82^859^19
 ;;^UTILITY(U,$J,358.3,17354,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17354,1,3,0)
 ;;=3^CKD Stage 1 (GFR>=90)
 ;;^UTILITY(U,$J,358.3,17354,1,4,0)
 ;;=4^N18.1
 ;;^UTILITY(U,$J,358.3,17354,2)
 ;;=^5015602
 ;;^UTILITY(U,$J,358.3,17355,0)
 ;;=N18.2^^82^859^20
 ;;^UTILITY(U,$J,358.3,17355,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17355,1,3,0)
 ;;=3^CKD Stage 2 (GFR 60-89)
 ;;^UTILITY(U,$J,358.3,17355,1,4,0)
 ;;=4^N18.2
 ;;^UTILITY(U,$J,358.3,17355,2)
 ;;=^5015603
 ;;^UTILITY(U,$J,358.3,17356,0)
 ;;=N18.4^^82^859^24
 ;;^UTILITY(U,$J,358.3,17356,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17356,1,3,0)
 ;;=3^CKD Stage 4 (GFR 15-29)
 ;;^UTILITY(U,$J,358.3,17356,1,4,0)
 ;;=4^N18.4
 ;;^UTILITY(U,$J,358.3,17356,2)
 ;;=^5015605
 ;;^UTILITY(U,$J,358.3,17357,0)
 ;;=N18.5^^82^859^25
 ;;^UTILITY(U,$J,358.3,17357,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17357,1,3,0)
 ;;=3^CKD Stage 5 (GFR<15)
 ;;^UTILITY(U,$J,358.3,17357,1,4,0)
 ;;=4^N18.5
 ;;^UTILITY(U,$J,358.3,17357,2)
 ;;=^5015606
 ;;^UTILITY(U,$J,358.3,17358,0)
 ;;=J44.1^^82^859^27
 ;;^UTILITY(U,$J,358.3,17358,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17358,1,3,0)
 ;;=3^COPD w/ Acute exacerbation
 ;;^UTILITY(U,$J,358.3,17358,1,4,0)
 ;;=4^J44.1
 ;;^UTILITY(U,$J,358.3,17358,2)
 ;;=^5008240
 ;;^UTILITY(U,$J,358.3,17359,0)
 ;;=J44.9^^82^859^26
 ;;^UTILITY(U,$J,358.3,17359,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17359,1,3,0)
 ;;=3^COPD
 ;;^UTILITY(U,$J,358.3,17359,1,4,0)
 ;;=4^J44.9
 ;;^UTILITY(U,$J,358.3,17359,2)
 ;;=^5008241
 ;;^UTILITY(U,$J,358.3,17360,0)
 ;;=E11.69^^82^859^35
 ;;^UTILITY(U,$J,358.3,17360,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17360,1,3,0)
 ;;=3^Diabetes mellitus,Type 2 w/ Other complications
 ;;^UTILITY(U,$J,358.3,17360,1,4,0)
 ;;=4^E11.69
 ;;^UTILITY(U,$J,358.3,17360,2)
 ;;=^5002664
 ;;^UTILITY(U,$J,358.3,17361,0)
 ;;=Z86.718^^82^859^33
 ;;^UTILITY(U,$J,358.3,17361,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17361,1,3,0)
 ;;=3^DVT,Hx of
 ;;^UTILITY(U,$J,358.3,17361,1,4,0)
 ;;=4^Z86.718
 ;;^UTILITY(U,$J,358.3,17361,2)
 ;;=^5063475
 ;;^UTILITY(U,$J,358.3,17362,0)
 ;;=I82.509^^82^859^32
 ;;^UTILITY(U,$J,358.3,17362,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17362,1,3,0)
 ;;=3^DVT,Chr,Unsp lower extremity vein
 ;;^UTILITY(U,$J,358.3,17362,1,4,0)
 ;;=4^I82.509
 ;;^UTILITY(U,$J,358.3,17362,2)
 ;;=^5133628
 ;;^UTILITY(U,$J,358.3,17363,0)
 ;;=R06.00^^82^859^36
 ;;^UTILITY(U,$J,358.3,17363,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17363,1,3,0)
 ;;=3^Dyspnea
 ;;^UTILITY(U,$J,358.3,17363,1,4,0)
 ;;=4^R06.00
 ;;^UTILITY(U,$J,358.3,17363,2)
 ;;=^5019180
 ;;^UTILITY(U,$J,358.3,17364,0)
 ;;=R06.09^^82^859^37
 ;;^UTILITY(U,$J,358.3,17364,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17364,1,3,0)
 ;;=3^Dyspnea on exertion
 ;;^UTILITY(U,$J,358.3,17364,1,4,0)
 ;;=4^R06.09
 ;;^UTILITY(U,$J,358.3,17364,2)
 ;;=^5019182
 ;;^UTILITY(U,$J,358.3,17365,0)
 ;;=Z59.0^^82^859^38
 ;;^UTILITY(U,$J,358.3,17365,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17365,1,3,0)
 ;;=3^Homelessness
 ;;^UTILITY(U,$J,358.3,17365,1,4,0)
 ;;=4^Z59.0
 ;;^UTILITY(U,$J,358.3,17365,2)
 ;;=^5063129
 ;;^UTILITY(U,$J,358.3,17366,0)
 ;;=D68.59^^82^859^39
 ;;^UTILITY(U,$J,358.3,17366,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17366,1,3,0)
 ;;=3^Hypercoagulable state,Primary
 ;;^UTILITY(U,$J,358.3,17366,1,4,0)
 ;;=4^D68.59
 ;;^UTILITY(U,$J,358.3,17366,2)
 ;;=^5002360
 ;;^UTILITY(U,$J,358.3,17367,0)
 ;;=E78.2^^82^859^41
 ;;^UTILITY(U,$J,358.3,17367,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17367,1,3,0)
 ;;=3^Hyperlipidemia,LDL & Triglycerides
 ;;^UTILITY(U,$J,358.3,17367,1,4,0)
 ;;=4^E78.2
 ;;^UTILITY(U,$J,358.3,17367,2)
 ;;=^78424
 ;;^UTILITY(U,$J,358.3,17368,0)
 ;;=E78.00^^82^859^42
 ;;^UTILITY(U,$J,358.3,17368,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17368,1,3,0)
 ;;=3^Hyperlipidemia,LDL only
 ;;^UTILITY(U,$J,358.3,17368,1,4,0)
 ;;=4^E78.00
 ;;^UTILITY(U,$J,358.3,17368,2)
 ;;=^5138435
 ;;^UTILITY(U,$J,358.3,17369,0)
 ;;=E78.1^^82^859^43
 ;;^UTILITY(U,$J,358.3,17369,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17369,1,3,0)
 ;;=3^Hyperlipidemia,Triglycerides only
 ;;^UTILITY(U,$J,358.3,17369,1,4,0)
 ;;=4^E78.1
 ;;^UTILITY(U,$J,358.3,17369,2)
 ;;=^101303
 ;;^UTILITY(U,$J,358.3,17370,0)
 ;;=I10.^^82^859^45
 ;;^UTILITY(U,$J,358.3,17370,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17370,1,3,0)
 ;;=3^Hypertension (Essential)
 ;;^UTILITY(U,$J,358.3,17370,1,4,0)
 ;;=4^I10.
 ;;^UTILITY(U,$J,358.3,17370,2)
 ;;=^5007062
 ;;^UTILITY(U,$J,358.3,17371,0)
 ;;=R09.02^^82^859^48
 ;;^UTILITY(U,$J,358.3,17371,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17371,1,3,0)
 ;;=3^Hypoxemia
 ;;^UTILITY(U,$J,358.3,17371,1,4,0)
 ;;=4^R09.02
 ;;^UTILITY(U,$J,358.3,17371,2)
 ;;=^332831
 ;;^UTILITY(U,$J,358.3,17372,0)
 ;;=Z59.6^^82^859^49
 ;;^UTILITY(U,$J,358.3,17372,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17372,1,3,0)
 ;;=3^Low income
 ;;^UTILITY(U,$J,358.3,17372,1,4,0)
 ;;=4^Z59.6
 ;;^UTILITY(U,$J,358.3,17372,2)
 ;;=^5063135
 ;;^UTILITY(U,$J,358.3,17373,0)
 ;;=E88.81^^82^859^50
 ;;^UTILITY(U,$J,358.3,17373,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17373,1,3,0)
 ;;=3^Metabolic syndrome
 ;;^UTILITY(U,$J,358.3,17373,1,4,0)
 ;;=4^E88.81
 ;;^UTILITY(U,$J,358.3,17373,2)
 ;;=^5003032
 ;;^UTILITY(U,$J,358.3,17374,0)
 ;;=E66.01^^82^859^51
 ;;^UTILITY(U,$J,358.3,17374,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17374,1,3,0)
 ;;=3^Morbid Obesity
 ;;^UTILITY(U,$J,358.3,17374,1,4,0)
 ;;=4^E66.01
 ;;^UTILITY(U,$J,358.3,17374,2)
 ;;=^5002826
 ;;^UTILITY(U,$J,358.3,17375,0)
 ;;=E66.2^^82^859^52
 ;;^UTILITY(U,$J,358.3,17375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17375,1,3,0)
 ;;=3^Morbid Obesity w/ Alveolar hypoventilation
 ;;^UTILITY(U,$J,358.3,17375,1,4,0)
 ;;=4^E66.2
 ;;^UTILITY(U,$J,358.3,17375,2)
 ;;=^5002829
 ;;^UTILITY(U,$J,358.3,17376,0)
 ;;=I25.2^^82^859^53
 ;;^UTILITY(U,$J,358.3,17376,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17376,1,3,0)
 ;;=3^Myocardial infarction,Hx of
 ;;^UTILITY(U,$J,358.3,17376,1,4,0)
 ;;=4^I25.2
 ;;^UTILITY(U,$J,358.3,17376,2)
 ;;=^259884
 ;;^UTILITY(U,$J,358.3,17377,0)
 ;;=I21.4^^82^859^54
 ;;^UTILITY(U,$J,358.3,17377,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17377,1,3,0)
 ;;=3^Myocardial infarction,NSTEMI
 ;;^UTILITY(U,$J,358.3,17377,1,4,0)
 ;;=4^I21.4
 ;;^UTILITY(U,$J,358.3,17377,2)
 ;;=^5007088
 ;;^UTILITY(U,$J,358.3,17378,0)
 ;;=I21.3^^82^859^55
 ;;^UTILITY(U,$J,358.3,17378,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17378,1,3,0)
 ;;=3^Myocardial infarction,STEMI
 ;;^UTILITY(U,$J,358.3,17378,1,4,0)
 ;;=4^I21.3
 ;;^UTILITY(U,$J,358.3,17378,2)
 ;;=^5007087
 ;;^UTILITY(U,$J,358.3,17379,0)
 ;;=Z91.11^^82^859^56
 ;;^UTILITY(U,$J,358.3,17379,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17379,1,3,0)
 ;;=3^Noncompliance,Dietary regimen
 ;;^UTILITY(U,$J,358.3,17379,1,4,0)
 ;;=4^Z91.11
 ;;^UTILITY(U,$J,358.3,17379,2)
 ;;=^5063611
 ;;^UTILITY(U,$J,358.3,17380,0)
 ;;=Z91.19^^82^859^57
 ;;^UTILITY(U,$J,358.3,17380,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17380,1,3,0)
 ;;=3^Noncompliance,Medical treatment
 ;;^UTILITY(U,$J,358.3,17380,1,4,0)
 ;;=4^Z91.19
 ;;^UTILITY(U,$J,358.3,17380,2)
 ;;=^5063618
 ;;^UTILITY(U,$J,358.3,17381,0)
 ;;=E66.9^^82^859^58
 ;;^UTILITY(U,$J,358.3,17381,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17381,1,3,0)
 ;;=3^Obesity
 ;;^UTILITY(U,$J,358.3,17381,1,4,0)
 ;;=4^E66.9
 ;;^UTILITY(U,$J,358.3,17381,2)
 ;;=^5002832
 ;;^UTILITY(U,$J,358.3,17382,0)
 ;;=G47.33^^82^859^59
 ;;^UTILITY(U,$J,358.3,17382,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17382,1,3,0)
 ;;=3^Obstructive sleep apnea 
 ;;^UTILITY(U,$J,358.3,17382,1,4,0)
 ;;=4^G47.33
 ;;^UTILITY(U,$J,358.3,17382,2)
 ;;=^332763
 ;;^UTILITY(U,$J,358.3,17383,0)
 ;;=R06.01^^82^859^60
 ;;^UTILITY(U,$J,358.3,17383,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17383,1,3,0)
 ;;=3^Orthopnea
 ;;^UTILITY(U,$J,358.3,17383,1,4,0)
 ;;=4^R06.01
 ;;^UTILITY(U,$J,358.3,17383,2)
 ;;=^186737
 ;;^UTILITY(U,$J,358.3,17384,0)
 ;;=E66.3^^82^859^61
 ;;^UTILITY(U,$J,358.3,17384,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17384,1,3,0)
 ;;=3^Overweight
 ;;^UTILITY(U,$J,358.3,17384,1,4,0)
 ;;=4^E66.3
 ;;^UTILITY(U,$J,358.3,17384,2)
 ;;=^5002830
 ;;^UTILITY(U,$J,358.3,17385,0)
 ;;=Z99.81^^82^859^62
 ;;^UTILITY(U,$J,358.3,17385,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17385,1,3,0)
 ;;=3^Oxygen dependence (supplemental)
 ;;^UTILITY(U,$J,358.3,17385,1,4,0)
 ;;=4^Z99.81
 ;;^UTILITY(U,$J,358.3,17385,2)
 ;;=^5063760
 ;;^UTILITY(U,$J,358.3,17386,0)
 ;;=Z95.0^^82^859^71
 ;;^UTILITY(U,$J,358.3,17386,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17386,1,3,0)
 ;;=3^Pacemaker (cardiac),Hx of placement
 ;;^UTILITY(U,$J,358.3,17386,1,4,0)
 ;;=4^Z95.0
 ;;^UTILITY(U,$J,358.3,17386,2)
 ;;=^5063668
 ;;^UTILITY(U,$J,358.3,17387,0)
 ;;=I26.09^^82^859^63
 ;;^UTILITY(U,$J,358.3,17387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17387,1,3,0)
 ;;=3^PE,Acute Other w/ Cor pulmonale
 ;;^UTILITY(U,$J,358.3,17387,1,4,0)
 ;;=4^I26.09
 ;;^UTILITY(U,$J,358.3,17387,2)
 ;;=^5007147
 ;;^UTILITY(U,$J,358.3,17388,0)
 ;;=I26.99^^82^859^64
 ;;^UTILITY(U,$J,358.3,17388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17388,1,3,0)
 ;;=3^PE,Acute Other w/o Cor pulmonale
 ;;^UTILITY(U,$J,358.3,17388,1,4,0)
 ;;=4^I26.99
 ;;^UTILITY(U,$J,358.3,17388,2)
 ;;=^5007150
 ;;^UTILITY(U,$J,358.3,17389,0)
 ;;=I26.01^^82^859^65
 ;;^UTILITY(U,$J,358.3,17389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17389,1,3,0)
 ;;=3^PE,Acute Septic w/ Cor pulmonale
 ;;^UTILITY(U,$J,358.3,17389,1,4,0)
 ;;=4^I26.01
 ;;^UTILITY(U,$J,358.3,17389,2)
 ;;=^5007145
 ;;^UTILITY(U,$J,358.3,17390,0)
 ;;=I26.90^^82^859^66
 ;;^UTILITY(U,$J,358.3,17390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17390,1,3,0)
 ;;=3^PE,Acute Septic w/o Cor pulmonale
 ;;^UTILITY(U,$J,358.3,17390,1,4,0)
 ;;=4^I26.90
 ;;^UTILITY(U,$J,358.3,17390,2)
 ;;=^5007148
 ;;^UTILITY(U,$J,358.3,17391,0)
 ;;=I27.82^^82^859^67
 ;;^UTILITY(U,$J,358.3,17391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17391,1,3,0)
 ;;=3^PE,Chronic
 ;;^UTILITY(U,$J,358.3,17391,1,4,0)
 ;;=4^I27.82
 ;;^UTILITY(U,$J,358.3,17391,2)
 ;;=^338238
 ;;^UTILITY(U,$J,358.3,17392,0)
 ;;=Z86.711^^82^859^68
 ;;^UTILITY(U,$J,358.3,17392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17392,1,3,0)
 ;;=3^PE,Hx of
 ;;^UTILITY(U,$J,358.3,17392,1,4,0)
 ;;=4^Z86.711
 ;;^UTILITY(U,$J,358.3,17392,2)
 ;;=^5063474
 ;;^UTILITY(U,$J,358.3,17393,0)
 ;;=F29.^^82^859^72
 ;;^UTILITY(U,$J,358.3,17393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17393,1,3,0)
 ;;=3^Psychosis,Unsp
 ;;^UTILITY(U,$J,358.3,17393,1,4,0)
 ;;=4^F29.
 ;;^UTILITY(U,$J,358.3,17393,2)
 ;;=^5003484
 ;;^UTILITY(U,$J,358.3,17394,0)
 ;;=F43.11^^82^859^69
 ;;^UTILITY(U,$J,358.3,17394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17394,1,3,0)
 ;;=3^PTSD,Acute
 ;;^UTILITY(U,$J,358.3,17394,1,4,0)
 ;;=4^F43.11
 ;;^UTILITY(U,$J,358.3,17394,2)
 ;;=^5003571
 ;;^UTILITY(U,$J,358.3,17395,0)
 ;;=J96.02^^82^859^75
 ;;^UTILITY(U,$J,358.3,17395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17395,1,3,0)
 ;;=3^Respiratory failure,Acute w/ Hypercapnia
 ;;^UTILITY(U,$J,358.3,17395,1,4,0)
 ;;=4^J96.02
 ;;^UTILITY(U,$J,358.3,17395,2)
 ;;=^5008349
 ;;^UTILITY(U,$J,358.3,17396,0)
 ;;=J96.01^^82^859^76
 ;;^UTILITY(U,$J,358.3,17396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17396,1,3,0)
 ;;=3^Respiratory failure,Acute w/ Hypoxia
 ;;^UTILITY(U,$J,358.3,17396,1,4,0)
 ;;=4^J96.01
 ;;^UTILITY(U,$J,358.3,17396,2)
 ;;=^5008348
 ;;^UTILITY(U,$J,358.3,17397,0)
 ;;=J96.22^^82^859^73
 ;;^UTILITY(U,$J,358.3,17397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17397,1,3,0)
 ;;=3^Respiratory failure,Acute & Chronic w/ Hypercapnia
 ;;^UTILITY(U,$J,358.3,17397,1,4,0)
 ;;=4^J96.22
 ;;^UTILITY(U,$J,358.3,17397,2)
 ;;=^5008355
 ;;^UTILITY(U,$J,358.3,17398,0)
 ;;=J96.21^^82^859^74
 ;;^UTILITY(U,$J,358.3,17398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17398,1,3,0)
 ;;=3^Respiratory failure,Acute & Chronic w/ Hypoxia
 ;;^UTILITY(U,$J,358.3,17398,1,4,0)
 ;;=4^J96.21
 ;;^UTILITY(U,$J,358.3,17398,2)
 ;;=^5008354
 ;;^UTILITY(U,$J,358.3,17399,0)
 ;;=J96.12^^82^859^77
 ;;^UTILITY(U,$J,358.3,17399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17399,1,3,0)
 ;;=3^Respiratory failure,Chronic w/ Hypercapnia
 ;;^UTILITY(U,$J,358.3,17399,1,4,0)
 ;;=4^J96.12
 ;;^UTILITY(U,$J,358.3,17399,2)
 ;;=^5008352
 ;;^UTILITY(U,$J,358.3,17400,0)
 ;;=J96.11^^82^859^78
 ;;^UTILITY(U,$J,358.3,17400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17400,1,3,0)
 ;;=3^Respiratory failure,Chronic w/ Hypoxia
 ;;^UTILITY(U,$J,358.3,17400,1,4,0)
 ;;=4^J96.11
 ;;^UTILITY(U,$J,358.3,17400,2)
 ;;=^5008351
 ;;^UTILITY(U,$J,358.3,17401,0)
 ;;=F10.188^^82^859^83
 ;;^UTILITY(U,$J,358.3,17401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17401,1,3,0)
 ;;=3^Substance abuse,Alcohol w/ ETOH Induced Disorder
 ;;^UTILITY(U,$J,358.3,17401,1,4,0)
 ;;=4^F10.188
 ;;^UTILITY(U,$J,358.3,17401,2)
 ;;=^5003079
 ;;^UTILITY(U,$J,358.3,17402,0)
 ;;=F10.10^^82^859^84
 ;;^UTILITY(U,$J,358.3,17402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17402,1,3,0)
 ;;=3^Substance abuse,Alcohol,Uncomplicated
 ;;^UTILITY(U,$J,358.3,17402,1,4,0)
 ;;=4^F10.10
 ;;^UTILITY(U,$J,358.3,17402,2)
 ;;=^5003068
 ;;^UTILITY(U,$J,358.3,17403,0)
 ;;=F12.120^^82^859^85
 ;;^UTILITY(U,$J,358.3,17403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17403,1,3,0)
 ;;=3^Substance abuse,Cannabis w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,17403,1,4,0)
 ;;=4^F12.120
 ;;^UTILITY(U,$J,358.3,17403,2)
 ;;=^5003156
 ;;^UTILITY(U,$J,358.3,17404,0)
 ;;=F14.120^^82^859^86
 ;;^UTILITY(U,$J,358.3,17404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17404,1,3,0)
 ;;=3^Substance abuse,Cocaine w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,17404,1,4,0)
 ;;=4^F14.120
 ;;^UTILITY(U,$J,358.3,17404,2)
 ;;=^5003240
 ;;^UTILITY(U,$J,358.3,17405,0)
 ;;=F16.120^^82^859^87
 ;;^UTILITY(U,$J,358.3,17405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17405,1,3,0)
 ;;=3^Substance abuse,Hallucinogen w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,17405,1,4,0)
 ;;=4^F16.120
 ;;^UTILITY(U,$J,358.3,17405,2)
 ;;=^5003324
 ;;^UTILITY(U,$J,358.3,17406,0)
 ;;=F11.10^^82^859^88
 ;;^UTILITY(U,$J,358.3,17406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17406,1,3,0)
 ;;=3^Substance abuse,Opioid,Uncomplicated
 ;;^UTILITY(U,$J,358.3,17406,1,4,0)
 ;;=4^F11.10
 ;;^UTILITY(U,$J,358.3,17406,2)
 ;;=^5003114
 ;;^UTILITY(U,$J,358.3,17407,0)
 ;;=F19.120^^82^859^89
 ;;^UTILITY(U,$J,358.3,17407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17407,1,3,0)
 ;;=3^Substance abuse,Psychoactive w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,17407,1,4,0)
 ;;=4^F19.120
 ;;^UTILITY(U,$J,358.3,17407,2)
 ;;=^5003417
 ;;^UTILITY(U,$J,358.3,17408,0)
 ;;=F15.220^^82^859^82
 ;;^UTILITY(U,$J,358.3,17408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17408,1,3,0)
 ;;=3^Substance Dependence,Oth Stimulant w/ Intoxication,Uncomplicated
 ;;^UTILITY(U,$J,358.3,17408,1,4,0)
 ;;=4^F15.220
 ;;^UTILITY(U,$J,358.3,17408,2)
 ;;=^5003297
 ;;^UTILITY(U,$J,358.3,17409,0)
 ;;=R56.9^^82^859^81
 ;;^UTILITY(U,$J,358.3,17409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17409,1,3,0)
 ;;=3^Seizure Disorder,Unsp
 ;;^UTILITY(U,$J,358.3,17409,1,4,0)
 ;;=4^R56.9
 ;;^UTILITY(U,$J,358.3,17409,2)
 ;;=^5019524
 ;;^UTILITY(U,$J,358.3,17410,0)
 ;;=Z93.0^^82^859^91
 ;;^UTILITY(U,$J,358.3,17410,1,0)
 ;;=^358.31IA^4^2