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

IBDEI0CI.m

Go to the documentation of this file.
IBDEI0CI ; ; 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,31370,1,3,0)
 ;;=3^Obesity,Morbid
 ;;^UTILITY(U,$J,358.3,31370,1,4,0)
 ;;=4^E66.01
 ;;^UTILITY(U,$J,358.3,31370,2)
 ;;=^5002826
 ;;^UTILITY(U,$J,358.3,31371,0)
 ;;=H93.19^^89^1263^96
 ;;^UTILITY(U,$J,358.3,31371,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31371,1,3,0)
 ;;=3^Tinnitus,Unspec Ear
 ;;^UTILITY(U,$J,358.3,31371,1,4,0)
 ;;=4^H93.19
 ;;^UTILITY(U,$J,358.3,31371,2)
 ;;=^5006967
 ;;^UTILITY(U,$J,358.3,31372,0)
 ;;=G47.00^^89^1263^69
 ;;^UTILITY(U,$J,358.3,31372,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31372,1,3,0)
 ;;=3^Insomnia,Unspec
 ;;^UTILITY(U,$J,358.3,31372,1,4,0)
 ;;=4^G47.00
 ;;^UTILITY(U,$J,358.3,31372,2)
 ;;=^332924
 ;;^UTILITY(U,$J,358.3,31373,0)
 ;;=F43.10^^89^1263^85
 ;;^UTILITY(U,$J,358.3,31373,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31373,1,3,0)
 ;;=3^PTSD,Unspec
 ;;^UTILITY(U,$J,358.3,31373,1,4,0)
 ;;=4^F43.10
 ;;^UTILITY(U,$J,358.3,31373,2)
 ;;=^5003570
 ;;^UTILITY(U,$J,358.3,31374,0)
 ;;=F43.11^^89^1263^83
 ;;^UTILITY(U,$J,358.3,31374,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31374,1,3,0)
 ;;=3^PTSD,Acute
 ;;^UTILITY(U,$J,358.3,31374,1,4,0)
 ;;=4^F43.11
 ;;^UTILITY(U,$J,358.3,31374,2)
 ;;=^5003571
 ;;^UTILITY(U,$J,358.3,31375,0)
 ;;=F43.12^^89^1263^84
 ;;^UTILITY(U,$J,358.3,31375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31375,1,3,0)
 ;;=3^PTSD,Chronic
 ;;^UTILITY(U,$J,358.3,31375,1,4,0)
 ;;=4^F43.12
 ;;^UTILITY(U,$J,358.3,31375,2)
 ;;=^5003572
 ;;^UTILITY(U,$J,358.3,31376,0)
 ;;=I25.119^^89^1263^7
 ;;^UTILITY(U,$J,358.3,31376,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31376,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Ang Pctrs,Unspec
 ;;^UTILITY(U,$J,358.3,31376,1,4,0)
 ;;=4^I25.119
 ;;^UTILITY(U,$J,358.3,31376,2)
 ;;=^5007111
 ;;^UTILITY(U,$J,358.3,31377,0)
 ;;=I25.10^^89^1263^10
 ;;^UTILITY(U,$J,358.3,31377,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31377,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/o Ang Pctrs
 ;;^UTILITY(U,$J,358.3,31377,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,31377,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,31378,0)
 ;;=I25.110^^89^1263^9
 ;;^UTILITY(U,$J,358.3,31378,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31378,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Unstable Ang Pctrs
 ;;^UTILITY(U,$J,358.3,31378,1,4,0)
 ;;=4^I25.110
 ;;^UTILITY(U,$J,358.3,31378,2)
 ;;=^5007108
 ;;^UTILITY(U,$J,358.3,31379,0)
 ;;=F17.219^^89^1263^77
 ;;^UTILITY(U,$J,358.3,31379,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31379,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes
 ;;^UTILITY(U,$J,358.3,31379,1,4,0)
 ;;=4^F17.219
 ;;^UTILITY(U,$J,358.3,31379,2)
 ;;=^5003369
 ;;^UTILITY(U,$J,358.3,31380,0)
 ;;=F17.299^^89^1263^78
 ;;^UTILITY(U,$J,358.3,31380,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31380,1,3,0)
 ;;=3^Nicotine Dependence,E-Cigarettes
 ;;^UTILITY(U,$J,358.3,31380,1,4,0)
 ;;=4^F17.299
 ;;^UTILITY(U,$J,358.3,31380,2)
 ;;=^5003379
 ;;^UTILITY(U,$J,358.3,31381,0)
 ;;=Z51.5^^89^1263^86
 ;;^UTILITY(U,$J,358.3,31381,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31381,1,3,0)
 ;;=3^Palliative Care Encounter
 ;;^UTILITY(U,$J,358.3,31381,1,4,0)
 ;;=4^Z51.5
 ;;^UTILITY(U,$J,358.3,31381,2)
 ;;=^5063063
 ;;^UTILITY(U,$J,358.3,31382,0)
 ;;=Z23.^^89^1263^40
 ;;^UTILITY(U,$J,358.3,31382,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31382,1,3,0)
 ;;=3^Encounter for Immunization(s)
 ;;^UTILITY(U,$J,358.3,31382,1,4,0)
 ;;=4^Z23.
 ;;^UTILITY(U,$J,358.3,31382,2)
 ;;=^5062795
 ;;^UTILITY(U,$J,358.3,31383,0)
 ;;=E11.65^^89^1263^24
 ;;^UTILITY(U,$J,358.3,31383,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31383,1,3,0)
 ;;=3^DM Type 2 Uncontrolled w/ Hyperglycemia
 ;;^UTILITY(U,$J,358.3,31383,1,4,0)
 ;;=4^E11.65
 ;;^UTILITY(U,$J,358.3,31383,2)
 ;;=^5002663
 ;;^UTILITY(U,$J,358.3,31384,0)
 ;;=E11.649^^89^1263^25
 ;;^UTILITY(U,$J,358.3,31384,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31384,1,3,0)
 ;;=3^DM Type 2 Uncontrolled w/ Hypoglycemia w/o Coma
 ;;^UTILITY(U,$J,358.3,31384,1,4,0)
 ;;=4^E11.649
 ;;^UTILITY(U,$J,358.3,31384,2)
 ;;=^5002662
 ;;^UTILITY(U,$J,358.3,31385,0)
 ;;=I16.1^^89^1263^66
 ;;^UTILITY(U,$J,358.3,31385,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31385,1,3,0)
 ;;=3^Hypertensive Emergency
 ;;^UTILITY(U,$J,358.3,31385,1,4,0)
 ;;=4^I16.1
 ;;^UTILITY(U,$J,358.3,31385,2)
 ;;=^8204721
 ;;^UTILITY(U,$J,358.3,31386,0)
 ;;=I16.9^^89^1263^65
 ;;^UTILITY(U,$J,358.3,31386,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31386,1,3,0)
 ;;=3^Hypertensive Crisis,Unspec
 ;;^UTILITY(U,$J,358.3,31386,1,4,0)
 ;;=4^I16.9
 ;;^UTILITY(U,$J,358.3,31386,2)
 ;;=^5138600
 ;;^UTILITY(U,$J,358.3,31387,0)
 ;;=I16.0^^89^1263^67
 ;;^UTILITY(U,$J,358.3,31387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31387,1,3,0)
 ;;=3^Hypertensive Urgency
 ;;^UTILITY(U,$J,358.3,31387,1,4,0)
 ;;=4^I16.0
 ;;^UTILITY(U,$J,358.3,31387,2)
 ;;=^8133013
 ;;^UTILITY(U,$J,358.3,31388,0)
 ;;=R97.20^^89^1263^39
 ;;^UTILITY(U,$J,358.3,31388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31388,1,3,0)
 ;;=3^Elevated PSA
 ;;^UTILITY(U,$J,358.3,31388,1,4,0)
 ;;=4^R97.20
 ;;^UTILITY(U,$J,358.3,31388,2)
 ;;=^334262
 ;;^UTILITY(U,$J,358.3,31389,0)
 ;;=R82.79^^89^1263^1
 ;;^UTILITY(U,$J,358.3,31389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31389,1,3,0)
 ;;=3^Abnormal Findings Microbiological Urine Exam,Other
 ;;^UTILITY(U,$J,358.3,31389,1,4,0)
 ;;=4^R82.79
 ;;^UTILITY(U,$J,358.3,31389,2)
 ;;=^5139222
 ;;^UTILITY(U,$J,358.3,31390,0)
 ;;=R73.03^^89^1263^88
 ;;^UTILITY(U,$J,358.3,31390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31390,1,3,0)
 ;;=3^Pre-Diabetes
 ;;^UTILITY(U,$J,358.3,31390,1,4,0)
 ;;=4^R73.03
 ;;^UTILITY(U,$J,358.3,31390,2)
 ;;=^8295662
 ;;^UTILITY(U,$J,358.3,31391,0)
 ;;=R97.21^^89^1263^90
 ;;^UTILITY(U,$J,358.3,31391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31391,1,3,0)
 ;;=3^Rising PSA After Tx for Prostate CA
 ;;^UTILITY(U,$J,358.3,31391,1,4,0)
 ;;=4^R97.21
 ;;^UTILITY(U,$J,358.3,31391,2)
 ;;=^5139228
 ;;^UTILITY(U,$J,358.3,31392,0)
 ;;=R82.81^^89^1263^89
 ;;^UTILITY(U,$J,358.3,31392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31392,1,3,0)
 ;;=3^Pyuria
 ;;^UTILITY(U,$J,358.3,31392,1,4,0)
 ;;=4^R82.81
 ;;^UTILITY(U,$J,358.3,31392,2)
 ;;=^101879
 ;;^UTILITY(U,$J,358.3,31393,0)
 ;;=I25.118^^89^1263^8
 ;;^UTILITY(U,$J,358.3,31393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31393,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Oth Angina
 ;;^UTILITY(U,$J,358.3,31393,1,4,0)
 ;;=4^I25.118
 ;;^UTILITY(U,$J,358.3,31393,2)
 ;;=^5007110
 ;;^UTILITY(U,$J,358.3,31394,0)
 ;;=J44.0^^89^1263^17
 ;;^UTILITY(U,$J,358.3,31394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31394,1,3,0)
 ;;=3^COPD w/ Lower Respiratory Infection
 ;;^UTILITY(U,$J,358.3,31394,1,4,0)
 ;;=4^J44.0
 ;;^UTILITY(U,$J,358.3,31394,2)
 ;;=^5008239
 ;;^UTILITY(U,$J,358.3,31395,0)
 ;;=J44.1^^89^1263^16
 ;;^UTILITY(U,$J,358.3,31395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31395,1,3,0)
 ;;=3^COPD w/ Acute Exacerbation
 ;;^UTILITY(U,$J,358.3,31395,1,4,0)
 ;;=4^J44.1
 ;;^UTILITY(U,$J,358.3,31395,2)
 ;;=^5008240
 ;;^UTILITY(U,$J,358.3,31396,0)
 ;;=I50.22^^89^1263^15
 ;;^UTILITY(U,$J,358.3,31396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31396,1,3,0)
 ;;=3^CHF-Systolic (HFrEF),Chronic
 ;;^UTILITY(U,$J,358.3,31396,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,31396,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,31397,0)
 ;;=I50.32^^89^1263^13
 ;;^UTILITY(U,$J,358.3,31397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31397,1,3,0)
 ;;=3^CHF-Diastolic (HFpEF),Chronic
 ;;^UTILITY(U,$J,358.3,31397,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,31397,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,31398,0)
 ;;=I50.42^^89^1263^12
 ;;^UTILITY(U,$J,358.3,31398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31398,1,3,0)
 ;;=3^CHF-Combined Systolic & Diastolic,Chronic
 ;;^UTILITY(U,$J,358.3,31398,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,31398,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,31399,0)
 ;;=I50.84^^89^1263^14
 ;;^UTILITY(U,$J,358.3,31399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31399,1,3,0)
 ;;=3^CHF-End Stage
 ;;^UTILITY(U,$J,358.3,31399,1,4,0)
 ;;=4^I50.84
 ;;^UTILITY(U,$J,358.3,31399,2)
 ;;=^5151391
 ;;^UTILITY(U,$J,358.3,31400,0)
 ;;=E11.22^^89^1263^28
 ;;^UTILITY(U,$J,358.3,31400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31400,1,3,0)
 ;;=3^DM Type 2 w/ Chronic Kidney Disease
 ;;^UTILITY(U,$J,358.3,31400,1,4,0)
 ;;=4^E11.22
 ;;^UTILITY(U,$J,358.3,31400,2)
 ;;=^5002630
 ;;^UTILITY(U,$J,358.3,31401,0)
 ;;=E11.21^^89^1263^31
 ;;^UTILITY(U,$J,358.3,31401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31401,1,3,0)
 ;;=3^DM Type 2 w/ Nephropathy,Unspec
 ;;^UTILITY(U,$J,358.3,31401,1,4,0)
 ;;=4^E11.21
 ;;^UTILITY(U,$J,358.3,31401,2)
 ;;=^5002629
 ;;^UTILITY(U,$J,358.3,31402,0)
 ;;=E11.42^^89^1263^36
 ;;^UTILITY(U,$J,358.3,31402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31402,1,3,0)
 ;;=3^DM Type 2 w/ Peripheral Neuropathy
 ;;^UTILITY(U,$J,358.3,31402,1,4,0)
 ;;=4^E11.42
 ;;^UTILITY(U,$J,358.3,31402,2)
 ;;=^5002646
 ;;^UTILITY(U,$J,358.3,31403,0)
 ;;=E11.43^^89^1263^26
 ;;^UTILITY(U,$J,358.3,31403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31403,1,3,0)
 ;;=3^DM Type 2 w/ Autonomic Neuropathy
 ;;^UTILITY(U,$J,358.3,31403,1,4,0)
 ;;=4^E11.43
 ;;^UTILITY(U,$J,358.3,31403,2)
 ;;=^5002647
 ;;^UTILITY(U,$J,358.3,31404,0)
 ;;=E11.51^^89^1263^35
 ;;^UTILITY(U,$J,358.3,31404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31404,1,3,0)
 ;;=3^DM Type 2 w/ PVD/PAD w/o Gangrene
 ;;^UTILITY(U,$J,358.3,31404,1,4,0)
 ;;=4^E11.51
 ;;^UTILITY(U,$J,358.3,31404,2)
 ;;=^5002650
 ;;^UTILITY(U,$J,358.3,31405,0)
 ;;=E11.52^^89^1263^34
 ;;^UTILITY(U,$J,358.3,31405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31405,1,3,0)
 ;;=3^DM Type 2 w/ PVD/PAD w/ Gangrene
 ;;^UTILITY(U,$J,358.3,31405,1,4,0)
 ;;=4^E11.52
 ;;^UTILITY(U,$J,358.3,31405,2)
 ;;=^5002651
 ;;^UTILITY(U,$J,358.3,31406,0)
 ;;=H90.0^^89^1263^49
 ;;^UTILITY(U,$J,358.3,31406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31406,1,3,0)
 ;;=3^Hearing Loss,Conductive,Bilateral
 ;;^UTILITY(U,$J,358.3,31406,1,4,0)
 ;;=4^H90.0
 ;;^UTILITY(U,$J,358.3,31406,2)
 ;;=^335257
 ;;^UTILITY(U,$J,358.3,31407,0)
 ;;=H90.11^^89^1263^51
 ;;^UTILITY(U,$J,358.3,31407,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31407,1,3,0)
 ;;=3^Hearing Loss,Conductive,Right Ear
 ;;^UTILITY(U,$J,358.3,31407,1,4,0)
 ;;=4^H90.11
 ;;^UTILITY(U,$J,358.3,31407,2)
 ;;=^5006918
 ;;^UTILITY(U,$J,358.3,31408,0)
 ;;=H90.12^^89^1263^50
 ;;^UTILITY(U,$J,358.3,31408,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31408,1,3,0)
 ;;=3^Hearing Loss,Conductive,Left Ear
 ;;^UTILITY(U,$J,358.3,31408,1,4,0)
 ;;=4^H90.12
 ;;^UTILITY(U,$J,358.3,31408,2)
 ;;=^5006919
 ;;^UTILITY(U,$J,358.3,31409,0)
 ;;=H90.2^^89^1263^52
 ;;^UTILITY(U,$J,358.3,31409,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31409,1,3,0)
 ;;=3^Hearing Loss,Conductive,Unspec
 ;;^UTILITY(U,$J,358.3,31409,1,4,0)
 ;;=4^H90.2
 ;;^UTILITY(U,$J,358.3,31409,2)
 ;;=^5006920
 ;;^UTILITY(U,$J,358.3,31410,0)
 ;;=H90.3^^89^1263^53
 ;;^UTILITY(U,$J,358.3,31410,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31410,1,3,0)
 ;;=3^Hearing Loss,Sensorineural,Bilateral
 ;;^UTILITY(U,$J,358.3,31410,1,4,0)
 ;;=4^H90.3
 ;;^UTILITY(U,$J,358.3,31410,2)
 ;;=^335328
 ;;^UTILITY(U,$J,358.3,31411,0)
 ;;=H90.41^^89^1263^55
 ;;^UTILITY(U,$J,358.3,31411,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31411,1,3,0)
 ;;=3^Hearing Loss,Sensorineural,Right Ear
 ;;^UTILITY(U,$J,358.3,31411,1,4,0)
 ;;=4^H90.41
 ;;^UTILITY(U,$J,358.3,31411,2)
 ;;=^5006921
 ;;^UTILITY(U,$J,358.3,31412,0)
 ;;=H90.42^^89^1263^54
 ;;^UTILITY(U,$J,358.3,31412,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31412,1,3,0)
 ;;=3^Hearing Loss,Sensorineural,Left Ear
 ;;^UTILITY(U,$J,358.3,31412,1,4,0)
 ;;=4^H90.42
 ;;^UTILITY(U,$J,358.3,31412,2)
 ;;=^5006922
 ;;^UTILITY(U,$J,358.3,31413,0)
 ;;=H90.5^^89^1263^56
 ;;^UTILITY(U,$J,358.3,31413,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31413,1,3,0)
 ;;=3^Hearing Loss,Sensorineural,Unspec
 ;;^UTILITY(U,$J,358.3,31413,1,4,0)
 ;;=4^H90.5
 ;;^UTILITY(U,$J,358.3,31413,2)
 ;;=^5006923
 ;;^UTILITY(U,$J,358.3,31414,0)
 ;;=D63.1^^89^1263^4
 ;;^UTILITY(U,$J,358.3,31414,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31414,1,3,0)
 ;;=3^Anemia,CKD
 ;;^UTILITY(U,$J,358.3,31414,1,4,0)
 ;;=4^D63.1
 ;;^UTILITY(U,$J,358.3,31414,2)
 ;;=^332908
 ;;^UTILITY(U,$J,358.3,31415,0)
 ;;=I11.0^^89^1263^44
 ;;^UTILITY(U,$J,358.3,31415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31415,1,3,0)
 ;;=3^HTN/CHF
 ;;^UTILITY(U,$J,358.3,31415,1,4,0)
 ;;=4^I11.0
 ;;^UTILITY(U,$J,358.3,31415,2)
 ;;=^5007063
 ;;^UTILITY(U,$J,358.3,31416,0)
 ;;=I12.0^^89^1263^48
 ;;^UTILITY(U,$J,358.3,31416,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31416,1,3,0)
 ;;=3^HTN/CKD 5 or ESRD
 ;;^UTILITY(U,$J,358.3,31416,1,4,0)
 ;;=4^I12.0
 ;;^UTILITY(U,$J,358.3,31416,2)
 ;;=^5007065
 ;;^UTILITY(U,$J,358.3,31417,0)
 ;;=I12.9^^89^1263^47
 ;;^UTILITY(U,$J,358.3,31417,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31417,1,3,0)
 ;;=3^HTN/CKD 1-4
 ;;^UTILITY(U,$J,358.3,31417,1,4,0)
 ;;=4^I12.9
 ;;^UTILITY(U,$J,358.3,31417,2)
 ;;=^5007066
 ;;^UTILITY(U,$J,358.3,31418,0)
 ;;=I13.0^^89^1263^46
 ;;^UTILITY(U,$J,358.3,31418,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31418,1,3,0)
 ;;=3^HTN/CHF/CKD 1-4
 ;;^UTILITY(U,$J,358.3,31418,1,4,0)
 ;;=4^I13.0
 ;;^UTILITY(U,$J,358.3,31418,2)
 ;;=^5007067
 ;;^UTILITY(U,$J,358.3,31419,0)
 ;;=I13.2^^89^1263^45
 ;;^UTILITY(U,$J,358.3,31419,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31419,1,3,0)
 ;;=3^HTN/CHF/CDK 5 or ESRD
 ;;^UTILITY(U,$J,358.3,31419,1,4,0)
 ;;=4^I13.2
 ;;^UTILITY(U,$J,358.3,31419,2)
 ;;=^5007070
 ;;^UTILITY(U,$J,358.3,31420,0)
 ;;=E11.43^^89^1263^27
 ;;^UTILITY(U,$J,358.3,31420,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31420,1,3,0)
 ;;=3^DM Type 2 w/ Autonomic Neuropathy
 ;;^UTILITY(U,$J,358.3,31420,1,4,0)
 ;;=4^E11.43
 ;;^UTILITY(U,$J,358.3,31420,2)
 ;;=^5002647
 ;;^UTILITY(U,$J,358.3,31421,0)
 ;;=E11.610^^89^1263^32
 ;;^UTILITY(U,$J,358.3,31421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31421,1,3,0)
 ;;=3^DM Type 2 w/ Neuropathic Arthropathy
 ;;^UTILITY(U,$J,358.3,31421,1,4,0)
 ;;=4^E11.610
 ;;^UTILITY(U,$J,358.3,31421,2)
 ;;=^5002653
 ;;^UTILITY(U,$J,358.3,31422,0)
 ;;=E11.621^^89^1263^29
 ;;^UTILITY(U,$J,358.3,31422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31422,1,3,0)
 ;;=3^DM Type 2 w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,31422,1,4,0)
 ;;=4^E11.621
 ;;^UTILITY(U,$J,358.3,31422,2)
 ;;=^5002656
 ;;^UTILITY(U,$J,358.3,31423,0)
 ;;=E11.65^^89^1263^30
 ;;^UTILITY(U,$J,358.3,31423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31423,1,3,0)
 ;;=3^DM Type 2 w/ Hyperglycemia
 ;;^UTILITY(U,$J,358.3,31423,1,4,0)
 ;;=4^E11.65
 ;;^UTILITY(U,$J,358.3,31423,2)
 ;;=^5002663
 ;;^UTILITY(U,$J,358.3,31424,0)
 ;;=R45.851^^89^1264^3
 ;;^UTILITY(U,$J,358.3,31424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31424,1,3,0)
 ;;=3^Suicidal Ideation
 ;;^UTILITY(U,$J,358.3,31424,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,31424,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,31425,0)
 ;;=T14.91XA^^89^1264^4
 ;;^UTILITY(U,$J,358.3,31425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31425,1,3,0)
 ;;=3^Suicide Attempt,Initial Encntr
 ;;^UTILITY(U,$J,358.3,31425,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,31425,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,31426,0)
 ;;=T14.91XD^^89^1264^6
 ;;^UTILITY(U,$J,358.3,31426,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31426,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,31426,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,31426,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,31427,0)
 ;;=T14.91XS^^89^1264^5
 ;;^UTILITY(U,$J,358.3,31427,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31427,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,31427,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,31427,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,31428,0)
 ;;=Z91.51^^89^1264^2
 ;;^UTILITY(U,$J,358.3,31428,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31428,1,3,0)
 ;;=3^Personal Hx of Suicidal Behavior
 ;;^UTILITY(U,$J,358.3,31428,1,4,0)
 ;;=4^Z91.51
 ;;^UTILITY(U,$J,358.3,31428,2)
 ;;=^5161317
 ;;^UTILITY(U,$J,358.3,31429,0)
 ;;=Z91.52^^89^1264^1
 ;;^UTILITY(U,$J,358.3,31429,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31429,1,3,0)
 ;;=3^Personal Hx of Non-Suicidal Self-Harm
 ;;^UTILITY(U,$J,358.3,31429,1,4,0)
 ;;=4^Z91.52
 ;;^UTILITY(U,$J,358.3,31429,2)
 ;;=^5161318
 ;;^UTILITY(U,$J,358.3,31430,0)
 ;;=Z02.5^^89^1265^1
 ;;^UTILITY(U,$J,358.3,31430,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31430,1,3,0)
 ;;=3^Exam for Sports Participation (Primary)
 ;;^UTILITY(U,$J,358.3,31430,1,4,0)
 ;;=4^Z02.5
 ;;^UTILITY(U,$J,358.3,31430,2)
 ;;=^5062638
 ;;^UTILITY(U,$J,358.3,31431,0)
 ;;=G35.^^89^1266^9
 ;;^UTILITY(U,$J,358.3,31431,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31431,1,3,0)
 ;;=3^Multiple Sclerosis
 ;;^UTILITY(U,$J,358.3,31431,1,4,0)
 ;;=4^G35.
 ;;^UTILITY(U,$J,358.3,31431,2)
 ;;=^79761
 ;;^UTILITY(U,$J,358.3,31432,0)
 ;;=S14.101S^^89^1266^4
 ;;^UTILITY(U,$J,358.3,31432,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31432,1,3,0)
 ;;=3^Injury at C1 Level of Cervical Spinal Cord,Unspec,Sequela
 ;;^UTILITY(U,$J,358.3,31432,1,4,0)
 ;;=4^S14.101S
 ;;^UTILITY(U,$J,358.3,31432,2)
 ;;=^5022045
 ;;^UTILITY(U,$J,358.3,31433,0)
 ;;=S14.159S^^89^1266^2
 ;;^UTILITY(U,$J,358.3,31433,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31433,1,3,0)
 ;;=3^Incmpl Lesion at Unspec Level of Cervical Spinal Cord,Other,Sequela
 ;;^UTILITY(U,$J,358.3,31433,1,4,0)
 ;;=4^S14.159S
 ;;^UTILITY(U,$J,358.3,31433,2)
 ;;=^5022201
 ;;^UTILITY(U,$J,358.3,31434,0)
 ;;=S24.101S^^89^1266^5
 ;;^UTILITY(U,$J,358.3,31434,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31434,1,3,0)
 ;;=3^Injury at T1 Level of Thoracic Spinal Cord,Unspec,Sequela
 ;;^UTILITY(U,$J,358.3,31434,1,4,0)
 ;;=4^S24.101S
 ;;^UTILITY(U,$J,358.3,31434,2)
 ;;=^5023275
 ;;^UTILITY(U,$J,358.3,31435,0)
 ;;=S24.159S^^89^1266^3
 ;;^UTILITY(U,$J,358.3,31435,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31435,1,3,0)
 ;;=3^Incmpl Lesion at Unspec Level of Thoracic Spinal Cord,Other,Sequela
 ;;^UTILITY(U,$J,358.3,31435,1,4,0)
 ;;=4^S24.159S
 ;;^UTILITY(U,$J,358.3,31435,2)
 ;;=^5023344
 ;;^UTILITY(U,$J,358.3,31436,0)
 ;;=S34.101S^^89^1266^6
 ;;^UTILITY(U,$J,358.3,31436,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31436,1,3,0)
 ;;=3^Injury to L1 Level of Lumbar Spinal Cord,Unspec,Sequela
 ;;^UTILITY(U,$J,358.3,31436,1,4,0)
 ;;=4^S34.101S
 ;;^UTILITY(U,$J,358.3,31436,2)
 ;;=^5025192
 ;;^UTILITY(U,$J,358.3,31437,0)
 ;;=S34.139S^^89^1266^7
 ;;^UTILITY(U,$J,358.3,31437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31437,1,3,0)
 ;;=3^Injury to Sacral Spinal Cord,Unspec,Sequela
 ;;^UTILITY(U,$J,358.3,31437,1,4,0)
 ;;=4^S34.139S
 ;;^UTILITY(U,$J,358.3,31437,2)
 ;;=^5025249
 ;;^UTILITY(U,$J,358.3,31438,0)
 ;;=S06.0X0S^^89^1266^1
 ;;^UTILITY(U,$J,358.3,31438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,31438,1,3,0)
 ;;=3^Concussion w/o Loss of Consciousness,Sequela
 ;;^UTILITY(U,$J,358.3,31438,1,4,0)
 ;;=4^S06.0X0S
 ;;^UTILITY(U,$J,358.3,31438,2)
 ;;=^5020668