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

IBDEI0AF.m

Go to the documentation of this file.
IBDEI0AF ; ; 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,25529,1,3,0)
 ;;=3^PTSD,Chronic
 ;;^UTILITY(U,$J,358.3,25529,1,4,0)
 ;;=4^F43.12
 ;;^UTILITY(U,$J,358.3,25529,2)
 ;;=^5003572
 ;;^UTILITY(U,$J,358.3,25530,0)
 ;;=I25.119^^77^1020^7
 ;;^UTILITY(U,$J,358.3,25530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25530,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Ang Pctrs,Unspec
 ;;^UTILITY(U,$J,358.3,25530,1,4,0)
 ;;=4^I25.119
 ;;^UTILITY(U,$J,358.3,25530,2)
 ;;=^5007111
 ;;^UTILITY(U,$J,358.3,25531,0)
 ;;=I25.10^^77^1020^10
 ;;^UTILITY(U,$J,358.3,25531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25531,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/o Ang Pctrs
 ;;^UTILITY(U,$J,358.3,25531,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,25531,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,25532,0)
 ;;=I25.110^^77^1020^9
 ;;^UTILITY(U,$J,358.3,25532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25532,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Unstable Ang Pctrs
 ;;^UTILITY(U,$J,358.3,25532,1,4,0)
 ;;=4^I25.110
 ;;^UTILITY(U,$J,358.3,25532,2)
 ;;=^5007108
 ;;^UTILITY(U,$J,358.3,25533,0)
 ;;=F17.219^^77^1020^77
 ;;^UTILITY(U,$J,358.3,25533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25533,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes
 ;;^UTILITY(U,$J,358.3,25533,1,4,0)
 ;;=4^F17.219
 ;;^UTILITY(U,$J,358.3,25533,2)
 ;;=^5003369
 ;;^UTILITY(U,$J,358.3,25534,0)
 ;;=F17.299^^77^1020^78
 ;;^UTILITY(U,$J,358.3,25534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25534,1,3,0)
 ;;=3^Nicotine Dependence,E-Cigarettes
 ;;^UTILITY(U,$J,358.3,25534,1,4,0)
 ;;=4^F17.299
 ;;^UTILITY(U,$J,358.3,25534,2)
 ;;=^5003379
 ;;^UTILITY(U,$J,358.3,25535,0)
 ;;=Z51.5^^77^1020^86
 ;;^UTILITY(U,$J,358.3,25535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25535,1,3,0)
 ;;=3^Palliative Care Encounter
 ;;^UTILITY(U,$J,358.3,25535,1,4,0)
 ;;=4^Z51.5
 ;;^UTILITY(U,$J,358.3,25535,2)
 ;;=^5063063
 ;;^UTILITY(U,$J,358.3,25536,0)
 ;;=Z23.^^77^1020^40
 ;;^UTILITY(U,$J,358.3,25536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25536,1,3,0)
 ;;=3^Encounter for Immunization(s)
 ;;^UTILITY(U,$J,358.3,25536,1,4,0)
 ;;=4^Z23.
 ;;^UTILITY(U,$J,358.3,25536,2)
 ;;=^5062795
 ;;^UTILITY(U,$J,358.3,25537,0)
 ;;=E11.65^^77^1020^24
 ;;^UTILITY(U,$J,358.3,25537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25537,1,3,0)
 ;;=3^DM Type 2 Uncontrolled w/ Hyperglycemia
 ;;^UTILITY(U,$J,358.3,25537,1,4,0)
 ;;=4^E11.65
 ;;^UTILITY(U,$J,358.3,25537,2)
 ;;=^5002663
 ;;^UTILITY(U,$J,358.3,25538,0)
 ;;=E11.649^^77^1020^25
 ;;^UTILITY(U,$J,358.3,25538,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25538,1,3,0)
 ;;=3^DM Type 2 Uncontrolled w/ Hypoglycemia w/o Coma
 ;;^UTILITY(U,$J,358.3,25538,1,4,0)
 ;;=4^E11.649
 ;;^UTILITY(U,$J,358.3,25538,2)
 ;;=^5002662
 ;;^UTILITY(U,$J,358.3,25539,0)
 ;;=I16.1^^77^1020^66
 ;;^UTILITY(U,$J,358.3,25539,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25539,1,3,0)
 ;;=3^Hypertensive Emergency
 ;;^UTILITY(U,$J,358.3,25539,1,4,0)
 ;;=4^I16.1
 ;;^UTILITY(U,$J,358.3,25539,2)
 ;;=^8204721
 ;;^UTILITY(U,$J,358.3,25540,0)
 ;;=I16.9^^77^1020^65
 ;;^UTILITY(U,$J,358.3,25540,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25540,1,3,0)
 ;;=3^Hypertensive Crisis,Unspec
 ;;^UTILITY(U,$J,358.3,25540,1,4,0)
 ;;=4^I16.9
 ;;^UTILITY(U,$J,358.3,25540,2)
 ;;=^5138600
 ;;^UTILITY(U,$J,358.3,25541,0)
 ;;=I16.0^^77^1020^67
 ;;^UTILITY(U,$J,358.3,25541,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25541,1,3,0)
 ;;=3^Hypertensive Urgency
 ;;^UTILITY(U,$J,358.3,25541,1,4,0)
 ;;=4^I16.0
 ;;^UTILITY(U,$J,358.3,25541,2)
 ;;=^8133013
 ;;^UTILITY(U,$J,358.3,25542,0)
 ;;=R97.20^^77^1020^39
 ;;^UTILITY(U,$J,358.3,25542,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25542,1,3,0)
 ;;=3^Elevated PSA
 ;;^UTILITY(U,$J,358.3,25542,1,4,0)
 ;;=4^R97.20
 ;;^UTILITY(U,$J,358.3,25542,2)
 ;;=^334262
 ;;^UTILITY(U,$J,358.3,25543,0)
 ;;=R82.79^^77^1020^1
 ;;^UTILITY(U,$J,358.3,25543,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25543,1,3,0)
 ;;=3^Abnormal Findings Microbiological Urine Exam,Other
 ;;^UTILITY(U,$J,358.3,25543,1,4,0)
 ;;=4^R82.79
 ;;^UTILITY(U,$J,358.3,25543,2)
 ;;=^5139222
 ;;^UTILITY(U,$J,358.3,25544,0)
 ;;=R73.03^^77^1020^88
 ;;^UTILITY(U,$J,358.3,25544,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25544,1,3,0)
 ;;=3^Pre-Diabetes
 ;;^UTILITY(U,$J,358.3,25544,1,4,0)
 ;;=4^R73.03
 ;;^UTILITY(U,$J,358.3,25544,2)
 ;;=^8295662
 ;;^UTILITY(U,$J,358.3,25545,0)
 ;;=R97.21^^77^1020^90
 ;;^UTILITY(U,$J,358.3,25545,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25545,1,3,0)
 ;;=3^Rising PSA After Tx for Prostate CA
 ;;^UTILITY(U,$J,358.3,25545,1,4,0)
 ;;=4^R97.21
 ;;^UTILITY(U,$J,358.3,25545,2)
 ;;=^5139228
 ;;^UTILITY(U,$J,358.3,25546,0)
 ;;=R82.81^^77^1020^89
 ;;^UTILITY(U,$J,358.3,25546,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25546,1,3,0)
 ;;=3^Pyuria
 ;;^UTILITY(U,$J,358.3,25546,1,4,0)
 ;;=4^R82.81
 ;;^UTILITY(U,$J,358.3,25546,2)
 ;;=^101879
 ;;^UTILITY(U,$J,358.3,25547,0)
 ;;=I25.118^^77^1020^8
 ;;^UTILITY(U,$J,358.3,25547,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25547,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Oth Angina
 ;;^UTILITY(U,$J,358.3,25547,1,4,0)
 ;;=4^I25.118
 ;;^UTILITY(U,$J,358.3,25547,2)
 ;;=^5007110
 ;;^UTILITY(U,$J,358.3,25548,0)
 ;;=J44.0^^77^1020^17
 ;;^UTILITY(U,$J,358.3,25548,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25548,1,3,0)
 ;;=3^COPD w/ Lower Respiratory Infection
 ;;^UTILITY(U,$J,358.3,25548,1,4,0)
 ;;=4^J44.0
 ;;^UTILITY(U,$J,358.3,25548,2)
 ;;=^5008239
 ;;^UTILITY(U,$J,358.3,25549,0)
 ;;=J44.1^^77^1020^16
 ;;^UTILITY(U,$J,358.3,25549,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25549,1,3,0)
 ;;=3^COPD w/ Acute Exacerbation
 ;;^UTILITY(U,$J,358.3,25549,1,4,0)
 ;;=4^J44.1
 ;;^UTILITY(U,$J,358.3,25549,2)
 ;;=^5008240
 ;;^UTILITY(U,$J,358.3,25550,0)
 ;;=I50.22^^77^1020^15
 ;;^UTILITY(U,$J,358.3,25550,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25550,1,3,0)
 ;;=3^CHF-Systolic (HFrEF),Chronic
 ;;^UTILITY(U,$J,358.3,25550,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,25550,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,25551,0)
 ;;=I50.32^^77^1020^13
 ;;^UTILITY(U,$J,358.3,25551,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25551,1,3,0)
 ;;=3^CHF-Diastolic (HFpEF),Chronic
 ;;^UTILITY(U,$J,358.3,25551,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,25551,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,25552,0)
 ;;=I50.42^^77^1020^12
 ;;^UTILITY(U,$J,358.3,25552,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25552,1,3,0)
 ;;=3^CHF-Combined Systolic & Diastolic,Chronic
 ;;^UTILITY(U,$J,358.3,25552,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,25552,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,25553,0)
 ;;=I50.84^^77^1020^14
 ;;^UTILITY(U,$J,358.3,25553,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25553,1,3,0)
 ;;=3^CHF-End Stage
 ;;^UTILITY(U,$J,358.3,25553,1,4,0)
 ;;=4^I50.84
 ;;^UTILITY(U,$J,358.3,25553,2)
 ;;=^5151391
 ;;^UTILITY(U,$J,358.3,25554,0)
 ;;=E11.22^^77^1020^28
 ;;^UTILITY(U,$J,358.3,25554,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25554,1,3,0)
 ;;=3^DM Type 2 w/ Chronic Kidney Disease
 ;;^UTILITY(U,$J,358.3,25554,1,4,0)
 ;;=4^E11.22
 ;;^UTILITY(U,$J,358.3,25554,2)
 ;;=^5002630
 ;;^UTILITY(U,$J,358.3,25555,0)
 ;;=E11.21^^77^1020^31
 ;;^UTILITY(U,$J,358.3,25555,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25555,1,3,0)
 ;;=3^DM Type 2 w/ Nephropathy,Unspec
 ;;^UTILITY(U,$J,358.3,25555,1,4,0)
 ;;=4^E11.21
 ;;^UTILITY(U,$J,358.3,25555,2)
 ;;=^5002629
 ;;^UTILITY(U,$J,358.3,25556,0)
 ;;=E11.42^^77^1020^36
 ;;^UTILITY(U,$J,358.3,25556,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25556,1,3,0)
 ;;=3^DM Type 2 w/ Peripheral Neuropathy
 ;;^UTILITY(U,$J,358.3,25556,1,4,0)
 ;;=4^E11.42
 ;;^UTILITY(U,$J,358.3,25556,2)
 ;;=^5002646
 ;;^UTILITY(U,$J,358.3,25557,0)
 ;;=E11.43^^77^1020^26
 ;;^UTILITY(U,$J,358.3,25557,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25557,1,3,0)
 ;;=3^DM Type 2 w/ Autonomic Neuropathy
 ;;^UTILITY(U,$J,358.3,25557,1,4,0)
 ;;=4^E11.43
 ;;^UTILITY(U,$J,358.3,25557,2)
 ;;=^5002647
 ;;^UTILITY(U,$J,358.3,25558,0)
 ;;=E11.51^^77^1020^35
 ;;^UTILITY(U,$J,358.3,25558,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25558,1,3,0)
 ;;=3^DM Type 2 w/ PVD/PAD w/o Gangrene
 ;;^UTILITY(U,$J,358.3,25558,1,4,0)
 ;;=4^E11.51
 ;;^UTILITY(U,$J,358.3,25558,2)
 ;;=^5002650
 ;;^UTILITY(U,$J,358.3,25559,0)
 ;;=E11.52^^77^1020^34
 ;;^UTILITY(U,$J,358.3,25559,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25559,1,3,0)
 ;;=3^DM Type 2 w/ PVD/PAD w/ Gangrene
 ;;^UTILITY(U,$J,358.3,25559,1,4,0)
 ;;=4^E11.52
 ;;^UTILITY(U,$J,358.3,25559,2)
 ;;=^5002651
 ;;^UTILITY(U,$J,358.3,25560,0)
 ;;=H90.0^^77^1020^49
 ;;^UTILITY(U,$J,358.3,25560,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25560,1,3,0)
 ;;=3^Hearing Loss,Conductive,Bilateral
 ;;^UTILITY(U,$J,358.3,25560,1,4,0)
 ;;=4^H90.0
 ;;^UTILITY(U,$J,358.3,25560,2)
 ;;=^335257
 ;;^UTILITY(U,$J,358.3,25561,0)
 ;;=H90.11^^77^1020^51
 ;;^UTILITY(U,$J,358.3,25561,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25561,1,3,0)
 ;;=3^Hearing Loss,Conductive,Right Ear
 ;;^UTILITY(U,$J,358.3,25561,1,4,0)
 ;;=4^H90.11
 ;;^UTILITY(U,$J,358.3,25561,2)
 ;;=^5006918
 ;;^UTILITY(U,$J,358.3,25562,0)
 ;;=H90.12^^77^1020^50
 ;;^UTILITY(U,$J,358.3,25562,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25562,1,3,0)
 ;;=3^Hearing Loss,Conductive,Left Ear
 ;;^UTILITY(U,$J,358.3,25562,1,4,0)
 ;;=4^H90.12
 ;;^UTILITY(U,$J,358.3,25562,2)
 ;;=^5006919
 ;;^UTILITY(U,$J,358.3,25563,0)
 ;;=H90.2^^77^1020^52
 ;;^UTILITY(U,$J,358.3,25563,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25563,1,3,0)
 ;;=3^Hearing Loss,Conductive,Unspec
 ;;^UTILITY(U,$J,358.3,25563,1,4,0)
 ;;=4^H90.2
 ;;^UTILITY(U,$J,358.3,25563,2)
 ;;=^5006920
 ;;^UTILITY(U,$J,358.3,25564,0)
 ;;=H90.3^^77^1020^53
 ;;^UTILITY(U,$J,358.3,25564,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25564,1,3,0)
 ;;=3^Hearing Loss,Sensorineural,Bilateral
 ;;^UTILITY(U,$J,358.3,25564,1,4,0)
 ;;=4^H90.3
 ;;^UTILITY(U,$J,358.3,25564,2)
 ;;=^335328
 ;;^UTILITY(U,$J,358.3,25565,0)
 ;;=H90.41^^77^1020^55
 ;;^UTILITY(U,$J,358.3,25565,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25565,1,3,0)
 ;;=3^Hearing Loss,Sensorineural,Right Ear
 ;;^UTILITY(U,$J,358.3,25565,1,4,0)
 ;;=4^H90.41
 ;;^UTILITY(U,$J,358.3,25565,2)
 ;;=^5006921
 ;;^UTILITY(U,$J,358.3,25566,0)
 ;;=H90.42^^77^1020^54
 ;;^UTILITY(U,$J,358.3,25566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25566,1,3,0)
 ;;=3^Hearing Loss,Sensorineural,Left Ear
 ;;^UTILITY(U,$J,358.3,25566,1,4,0)
 ;;=4^H90.42
 ;;^UTILITY(U,$J,358.3,25566,2)
 ;;=^5006922
 ;;^UTILITY(U,$J,358.3,25567,0)
 ;;=H90.5^^77^1020^56
 ;;^UTILITY(U,$J,358.3,25567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25567,1,3,0)
 ;;=3^Hearing Loss,Sensorineural,Unspec
 ;;^UTILITY(U,$J,358.3,25567,1,4,0)
 ;;=4^H90.5
 ;;^UTILITY(U,$J,358.3,25567,2)
 ;;=^5006923
 ;;^UTILITY(U,$J,358.3,25568,0)
 ;;=D63.1^^77^1020^4
 ;;^UTILITY(U,$J,358.3,25568,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25568,1,3,0)
 ;;=3^Anemia,CKD
 ;;^UTILITY(U,$J,358.3,25568,1,4,0)
 ;;=4^D63.1
 ;;^UTILITY(U,$J,358.3,25568,2)
 ;;=^332908
 ;;^UTILITY(U,$J,358.3,25569,0)
 ;;=I11.0^^77^1020^44
 ;;^UTILITY(U,$J,358.3,25569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25569,1,3,0)
 ;;=3^HTN/CHF
 ;;^UTILITY(U,$J,358.3,25569,1,4,0)
 ;;=4^I11.0
 ;;^UTILITY(U,$J,358.3,25569,2)
 ;;=^5007063
 ;;^UTILITY(U,$J,358.3,25570,0)
 ;;=I12.0^^77^1020^48
 ;;^UTILITY(U,$J,358.3,25570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25570,1,3,0)
 ;;=3^HTN/CKD 5 or ESRD
 ;;^UTILITY(U,$J,358.3,25570,1,4,0)
 ;;=4^I12.0
 ;;^UTILITY(U,$J,358.3,25570,2)
 ;;=^5007065
 ;;^UTILITY(U,$J,358.3,25571,0)
 ;;=I12.9^^77^1020^47
 ;;^UTILITY(U,$J,358.3,25571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25571,1,3,0)
 ;;=3^HTN/CKD 1-4
 ;;^UTILITY(U,$J,358.3,25571,1,4,0)
 ;;=4^I12.9
 ;;^UTILITY(U,$J,358.3,25571,2)
 ;;=^5007066
 ;;^UTILITY(U,$J,358.3,25572,0)
 ;;=I13.0^^77^1020^46
 ;;^UTILITY(U,$J,358.3,25572,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25572,1,3,0)
 ;;=3^HTN/CHF/CKD 1-4
 ;;^UTILITY(U,$J,358.3,25572,1,4,0)
 ;;=4^I13.0
 ;;^UTILITY(U,$J,358.3,25572,2)
 ;;=^5007067
 ;;^UTILITY(U,$J,358.3,25573,0)
 ;;=I13.2^^77^1020^45
 ;;^UTILITY(U,$J,358.3,25573,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25573,1,3,0)
 ;;=3^HTN/CHF/CDK 5 or ESRD
 ;;^UTILITY(U,$J,358.3,25573,1,4,0)
 ;;=4^I13.2
 ;;^UTILITY(U,$J,358.3,25573,2)
 ;;=^5007070
 ;;^UTILITY(U,$J,358.3,25574,0)
 ;;=E11.43^^77^1020^27
 ;;^UTILITY(U,$J,358.3,25574,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25574,1,3,0)
 ;;=3^DM Type 2 w/ Autonomic Neuropathy
 ;;^UTILITY(U,$J,358.3,25574,1,4,0)
 ;;=4^E11.43
 ;;^UTILITY(U,$J,358.3,25574,2)
 ;;=^5002647
 ;;^UTILITY(U,$J,358.3,25575,0)
 ;;=E11.610^^77^1020^32
 ;;^UTILITY(U,$J,358.3,25575,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25575,1,3,0)
 ;;=3^DM Type 2 w/ Neuropathic Arthropathy
 ;;^UTILITY(U,$J,358.3,25575,1,4,0)
 ;;=4^E11.610
 ;;^UTILITY(U,$J,358.3,25575,2)
 ;;=^5002653
 ;;^UTILITY(U,$J,358.3,25576,0)
 ;;=E11.621^^77^1020^29
 ;;^UTILITY(U,$J,358.3,25576,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25576,1,3,0)
 ;;=3^DM Type 2 w/ Foot Ulcer
 ;;^UTILITY(U,$J,358.3,25576,1,4,0)
 ;;=4^E11.621
 ;;^UTILITY(U,$J,358.3,25576,2)
 ;;=^5002656
 ;;^UTILITY(U,$J,358.3,25577,0)
 ;;=E11.65^^77^1020^30
 ;;^UTILITY(U,$J,358.3,25577,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25577,1,3,0)
 ;;=3^DM Type 2 w/ Hyperglycemia
 ;;^UTILITY(U,$J,358.3,25577,1,4,0)
 ;;=4^E11.65
 ;;^UTILITY(U,$J,358.3,25577,2)
 ;;=^5002663
 ;;^UTILITY(U,$J,358.3,25578,0)
 ;;=R45.851^^77^1021^3
 ;;^UTILITY(U,$J,358.3,25578,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25578,1,3,0)
 ;;=3^Suicidal Ideation
 ;;^UTILITY(U,$J,358.3,25578,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,25578,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,25579,0)
 ;;=T14.91XA^^77^1021^4
 ;;^UTILITY(U,$J,358.3,25579,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25579,1,3,0)
 ;;=3^Suicide Attempt,Initial Encntr
 ;;^UTILITY(U,$J,358.3,25579,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,25579,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,25580,0)
 ;;=T14.91XD^^77^1021^6
 ;;^UTILITY(U,$J,358.3,25580,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25580,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,25580,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,25580,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,25581,0)
 ;;=T14.91XS^^77^1021^5
 ;;^UTILITY(U,$J,358.3,25581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25581,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,25581,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,25581,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,25582,0)
 ;;=Z91.51^^77^1021^2
 ;;^UTILITY(U,$J,358.3,25582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25582,1,3,0)
 ;;=3^Personal Hx of Suicidal Behavior
 ;;^UTILITY(U,$J,358.3,25582,1,4,0)
 ;;=4^Z91.51
 ;;^UTILITY(U,$J,358.3,25582,2)
 ;;=^5161317
 ;;^UTILITY(U,$J,358.3,25583,0)
 ;;=Z91.52^^77^1021^1
 ;;^UTILITY(U,$J,358.3,25583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25583,1,3,0)
 ;;=3^Personal Hx of Non-Suicidal Self-Harm
 ;;^UTILITY(U,$J,358.3,25583,1,4,0)
 ;;=4^Z91.52
 ;;^UTILITY(U,$J,358.3,25583,2)
 ;;=^5161318
 ;;^UTILITY(U,$J,358.3,25584,0)
 ;;=Z02.5^^77^1022^1
 ;;^UTILITY(U,$J,358.3,25584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25584,1,3,0)
 ;;=3^Exam for Sports Participation (Primary)
 ;;^UTILITY(U,$J,358.3,25584,1,4,0)
 ;;=4^Z02.5
 ;;^UTILITY(U,$J,358.3,25584,2)
 ;;=^5062638
 ;;^UTILITY(U,$J,358.3,25585,0)
 ;;=G35.^^77^1023^9
 ;;^UTILITY(U,$J,358.3,25585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25585,1,3,0)
 ;;=3^Multiple Sclerosis
 ;;^UTILITY(U,$J,358.3,25585,1,4,0)
 ;;=4^G35.
 ;;^UTILITY(U,$J,358.3,25585,2)
 ;;=^79761
 ;;^UTILITY(U,$J,358.3,25586,0)
 ;;=S14.101S^^77^1023^4
 ;;^UTILITY(U,$J,358.3,25586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25586,1,3,0)
 ;;=3^Injury at C1 Level of Cervical Spinal Cord,Unspec,Sequela
 ;;^UTILITY(U,$J,358.3,25586,1,4,0)
 ;;=4^S14.101S
 ;;^UTILITY(U,$J,358.3,25586,2)
 ;;=^5022045
 ;;^UTILITY(U,$J,358.3,25587,0)
 ;;=S14.159S^^77^1023^2
 ;;^UTILITY(U,$J,358.3,25587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25587,1,3,0)
 ;;=3^Incmpl Lesion at Unspec Level of Cervical Spinal Cord,Other,Sequela
 ;;^UTILITY(U,$J,358.3,25587,1,4,0)
 ;;=4^S14.159S
 ;;^UTILITY(U,$J,358.3,25587,2)
 ;;=^5022201
 ;;^UTILITY(U,$J,358.3,25588,0)
 ;;=S24.101S^^77^1023^5
 ;;^UTILITY(U,$J,358.3,25588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25588,1,3,0)
 ;;=3^Injury at T1 Level of Thoracic Spinal Cord,Unspec,Sequela
 ;;^UTILITY(U,$J,358.3,25588,1,4,0)
 ;;=4^S24.101S
 ;;^UTILITY(U,$J,358.3,25588,2)
 ;;=^5023275
 ;;^UTILITY(U,$J,358.3,25589,0)
 ;;=S24.159S^^77^1023^3
 ;;^UTILITY(U,$J,358.3,25589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25589,1,3,0)
 ;;=3^Incmpl Lesion at Unspec Level of Thoracic Spinal Cord,Other,Sequela
 ;;^UTILITY(U,$J,358.3,25589,1,4,0)
 ;;=4^S24.159S
 ;;^UTILITY(U,$J,358.3,25589,2)
 ;;=^5023344
 ;;^UTILITY(U,$J,358.3,25590,0)
 ;;=S34.101S^^77^1023^6
 ;;^UTILITY(U,$J,358.3,25590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25590,1,3,0)
 ;;=3^Injury to L1 Level of Lumbar Spinal Cord,Unspec,Sequela
 ;;^UTILITY(U,$J,358.3,25590,1,4,0)
 ;;=4^S34.101S
 ;;^UTILITY(U,$J,358.3,25590,2)
 ;;=^5025192
 ;;^UTILITY(U,$J,358.3,25591,0)
 ;;=S34.139S^^77^1023^7
 ;;^UTILITY(U,$J,358.3,25591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25591,1,3,0)
 ;;=3^Injury to Sacral Spinal Cord,Unspec,Sequela
 ;;^UTILITY(U,$J,358.3,25591,1,4,0)
 ;;=4^S34.139S
 ;;^UTILITY(U,$J,358.3,25591,2)
 ;;=^5025249
 ;;^UTILITY(U,$J,358.3,25592,0)
 ;;=S06.0X0S^^77^1023^1
 ;;^UTILITY(U,$J,358.3,25592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25592,1,3,0)
 ;;=3^Concussion w/o Loss of Consciousness,Sequela
 ;;^UTILITY(U,$J,358.3,25592,1,4,0)
 ;;=4^S06.0X0S
 ;;^UTILITY(U,$J,358.3,25592,2)
 ;;=^5020668
 ;;^UTILITY(U,$J,358.3,25593,0)
 ;;=S06.9X9S^^77^1023^8
 ;;^UTILITY(U,$J,358.3,25593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25593,1,3,0)
 ;;=3^Intracranial Injury,Unspec,w/ LOC of Unspec Duration,Sequela
 ;;^UTILITY(U,$J,358.3,25593,1,4,0)
 ;;=4^S06.9X9S
 ;;^UTILITY(U,$J,358.3,25593,2)
 ;;=^5021235
 ;;^UTILITY(U,$J,358.3,25594,0)
 ;;=99441^^78^1024^1^^^^1
 ;;^UTILITY(U,$J,358.3,25594,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25594,1,1,0)
 ;;=1^99441
 ;;^UTILITY(U,$J,358.3,25594,1,2,0)
 ;;=2^PHONE E/M 5-10 MIN
 ;;^UTILITY(U,$J,358.3,25595,0)
 ;;=99443^^78^1024^3^^^^1
 ;;^UTILITY(U,$J,358.3,25595,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25595,1,1,0)
 ;;=1^99443
 ;;^UTILITY(U,$J,358.3,25595,1,2,0)
 ;;=2^PHONE E/M 21-30 MIN
 ;;^UTILITY(U,$J,358.3,25596,0)
 ;;=99442^^78^1024^2^^^^1
 ;;^UTILITY(U,$J,358.3,25596,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25596,1,1,0)
 ;;=1^99442
 ;;^UTILITY(U,$J,358.3,25596,1,2,0)
 ;;=2^PHONE E/M 11-20 MIN
 ;;^UTILITY(U,$J,358.3,25597,0)
 ;;=98966^^78^1025^1^^^^1
 ;;^UTILITY(U,$J,358.3,25597,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25597,1,1,0)
 ;;=1^98966
 ;;^UTILITY(U,$J,358.3,25597,1,2,0)
 ;;=2^PHONE CALL BY HC PROF 5-10 MIN
 ;;^UTILITY(U,$J,358.3,25598,0)
 ;;=98967^^78^1025^2^^^^1
 ;;^UTILITY(U,$J,358.3,25598,1,0)
 ;;=^358.31IA^2^2