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

IBDEI0EG.m

Go to the documentation of this file.
IBDEI0EG ; ; 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,36190,1,4,0)
 ;;=4^Z91.19
 ;;^UTILITY(U,$J,358.3,36190,2)
 ;;=^5063618
 ;;^UTILITY(U,$J,358.3,36191,0)
 ;;=E66.01^^107^1472^54
 ;;^UTILITY(U,$J,358.3,36191,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36191,1,3,0)
 ;;=3^Obesity,Morbid
 ;;^UTILITY(U,$J,358.3,36191,1,4,0)
 ;;=4^E66.01
 ;;^UTILITY(U,$J,358.3,36191,2)
 ;;=^5002826
 ;;^UTILITY(U,$J,358.3,36192,0)
 ;;=F43.11^^107^1472^61
 ;;^UTILITY(U,$J,358.3,36192,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36192,1,3,0)
 ;;=3^PTSD,Acute
 ;;^UTILITY(U,$J,358.3,36192,1,4,0)
 ;;=4^F43.11
 ;;^UTILITY(U,$J,358.3,36192,2)
 ;;=^5003571
 ;;^UTILITY(U,$J,358.3,36193,0)
 ;;=F43.12^^107^1472^62
 ;;^UTILITY(U,$J,358.3,36193,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36193,1,3,0)
 ;;=3^PTSD,Chronic
 ;;^UTILITY(U,$J,358.3,36193,1,4,0)
 ;;=4^F43.12
 ;;^UTILITY(U,$J,358.3,36193,2)
 ;;=^5003572
 ;;^UTILITY(U,$J,358.3,36194,0)
 ;;=I25.119^^107^1472^5
 ;;^UTILITY(U,$J,358.3,36194,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36194,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/ Ang Pctrs,Unspec
 ;;^UTILITY(U,$J,358.3,36194,1,4,0)
 ;;=4^I25.119
 ;;^UTILITY(U,$J,358.3,36194,2)
 ;;=^5007111
 ;;^UTILITY(U,$J,358.3,36195,0)
 ;;=I25.10^^107^1472^6
 ;;^UTILITY(U,$J,358.3,36195,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36195,1,3,0)
 ;;=3^Athscl Hrt Dis of Native Cor Art w/o Ang Pctrs
 ;;^UTILITY(U,$J,358.3,36195,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,36195,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,36196,0)
 ;;=F17.219^^107^1472^51
 ;;^UTILITY(U,$J,358.3,36196,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36196,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes
 ;;^UTILITY(U,$J,358.3,36196,1,4,0)
 ;;=4^F17.219
 ;;^UTILITY(U,$J,358.3,36196,2)
 ;;=^5003369
 ;;^UTILITY(U,$J,358.3,36197,0)
 ;;=Z51.5^^107^1472^64
 ;;^UTILITY(U,$J,358.3,36197,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36197,1,3,0)
 ;;=3^Palliative Care Encounter
 ;;^UTILITY(U,$J,358.3,36197,1,4,0)
 ;;=4^Z51.5
 ;;^UTILITY(U,$J,358.3,36197,2)
 ;;=^5063063
 ;;^UTILITY(U,$J,358.3,36198,0)
 ;;=Z23.^^107^1472^28
 ;;^UTILITY(U,$J,358.3,36198,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36198,1,3,0)
 ;;=3^Encounter for Immunization(s)
 ;;^UTILITY(U,$J,358.3,36198,1,4,0)
 ;;=4^Z23.
 ;;^UTILITY(U,$J,358.3,36198,2)
 ;;=^5062795
 ;;^UTILITY(U,$J,358.3,36199,0)
 ;;=E11.65^^107^1472^20
 ;;^UTILITY(U,$J,358.3,36199,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36199,1,3,0)
 ;;=3^DM Type 2 Uncontrolled w/ Hyperglycemia
 ;;^UTILITY(U,$J,358.3,36199,1,4,0)
 ;;=4^E11.65
 ;;^UTILITY(U,$J,358.3,36199,2)
 ;;=^5002663
 ;;^UTILITY(U,$J,358.3,36200,0)
 ;;=E11.649^^107^1472^21
 ;;^UTILITY(U,$J,358.3,36200,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36200,1,3,0)
 ;;=3^DM Type 2 Uncontrolled w/ Hypoglycemia w/o Coma
 ;;^UTILITY(U,$J,358.3,36200,1,4,0)
 ;;=4^E11.649
 ;;^UTILITY(U,$J,358.3,36200,2)
 ;;=^5002662
 ;;^UTILITY(U,$J,358.3,36201,0)
 ;;=I16.0^^107^1472^44
 ;;^UTILITY(U,$J,358.3,36201,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36201,1,3,0)
 ;;=3^Hypertensive Urgency
 ;;^UTILITY(U,$J,358.3,36201,1,4,0)
 ;;=4^I16.0
 ;;^UTILITY(U,$J,358.3,36201,2)
 ;;=^8133013
 ;;^UTILITY(U,$J,358.3,36202,0)
 ;;=H54.8^^107^1472^47
 ;;^UTILITY(U,$J,358.3,36202,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36202,1,3,0)
 ;;=3^Legal Blindness,USA Definition
 ;;^UTILITY(U,$J,358.3,36202,1,4,0)
 ;;=4^H54.8
 ;;^UTILITY(U,$J,358.3,36202,2)
 ;;=^5006369
 ;;^UTILITY(U,$J,358.3,36203,0)
 ;;=F10.10^^107^1472^2
 ;;^UTILITY(U,$J,358.3,36203,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36203,1,3,0)
 ;;=3^Alcohol Abuse,Uncomplicated
 ;;^UTILITY(U,$J,358.3,36203,1,4,0)
 ;;=4^F10.10
 ;;^UTILITY(U,$J,358.3,36203,2)
 ;;=^5003068
 ;;^UTILITY(U,$J,358.3,36204,0)
 ;;=J30.9^^107^1472^3
 ;;^UTILITY(U,$J,358.3,36204,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36204,1,3,0)
 ;;=3^Allergic Rhinitis,Unspec
 ;;^UTILITY(U,$J,358.3,36204,1,4,0)
 ;;=4^J30.9
 ;;^UTILITY(U,$J,358.3,36204,2)
 ;;=^5008205
 ;;^UTILITY(U,$J,358.3,36205,0)
 ;;=I48.0^^107^1472^7
 ;;^UTILITY(U,$J,358.3,36205,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36205,1,3,0)
 ;;=3^Atrial Fibrillation Paroxysmal (PAF)
 ;;^UTILITY(U,$J,358.3,36205,1,4,0)
 ;;=4^I48.0
 ;;^UTILITY(U,$J,358.3,36205,2)
 ;;=^90473
 ;;^UTILITY(U,$J,358.3,36206,0)
 ;;=N18.1^^107^1472^9
 ;;^UTILITY(U,$J,358.3,36206,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36206,1,3,0)
 ;;=3^CKD,Stage 1
 ;;^UTILITY(U,$J,358.3,36206,1,4,0)
 ;;=4^N18.1
 ;;^UTILITY(U,$J,358.3,36206,2)
 ;;=^5015602
 ;;^UTILITY(U,$J,358.3,36207,0)
 ;;=N18.2^^107^1472^10
 ;;^UTILITY(U,$J,358.3,36207,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36207,1,3,0)
 ;;=3^CKD,Stage 2
 ;;^UTILITY(U,$J,358.3,36207,1,4,0)
 ;;=4^N18.2
 ;;^UTILITY(U,$J,358.3,36207,2)
 ;;=^5015603
 ;;^UTILITY(U,$J,358.3,36208,0)
 ;;=N18.4^^107^1472^14
 ;;^UTILITY(U,$J,358.3,36208,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36208,1,3,0)
 ;;=3^CKD,Stage 4
 ;;^UTILITY(U,$J,358.3,36208,1,4,0)
 ;;=4^N18.4
 ;;^UTILITY(U,$J,358.3,36208,2)
 ;;=^5015605
 ;;^UTILITY(U,$J,358.3,36209,0)
 ;;=N18.5^^107^1472^15
 ;;^UTILITY(U,$J,358.3,36209,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36209,1,3,0)
 ;;=3^CKD,Stage 5
 ;;^UTILITY(U,$J,358.3,36209,1,4,0)
 ;;=4^N18.5
 ;;^UTILITY(U,$J,358.3,36209,2)
 ;;=^5015606
 ;;^UTILITY(U,$J,358.3,36210,0)
 ;;=N18.6^^107^1472^26
 ;;^UTILITY(U,$J,358.3,36210,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36210,1,3,0)
 ;;=3^ESRD
 ;;^UTILITY(U,$J,358.3,36210,1,4,0)
 ;;=4^N18.6
 ;;^UTILITY(U,$J,358.3,36210,2)
 ;;=^303986
 ;;^UTILITY(U,$J,358.3,36211,0)
 ;;=E11.22^^107^1472^22
 ;;^UTILITY(U,$J,358.3,36211,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36211,1,3,0)
 ;;=3^DM Type 2 w/ CKD
 ;;^UTILITY(U,$J,358.3,36211,1,4,0)
 ;;=4^E11.22
 ;;^UTILITY(U,$J,358.3,36211,2)
 ;;=^5002630
 ;;^UTILITY(U,$J,358.3,36212,0)
 ;;=E11.319^^107^1472^24
 ;;^UTILITY(U,$J,358.3,36212,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36212,1,3,0)
 ;;=3^DM Type 2 w/ Retinopathy Unspec w/o Macular Edema
 ;;^UTILITY(U,$J,358.3,36212,1,4,0)
 ;;=4^E11.319
 ;;^UTILITY(U,$J,358.3,36212,2)
 ;;=^5002633
 ;;^UTILITY(U,$J,358.3,36213,0)
 ;;=G40.909^^107^1472^76
 ;;^UTILITY(U,$J,358.3,36213,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36213,1,3,0)
 ;;=3^Seizure Disorder NOS
 ;;^UTILITY(U,$J,358.3,36213,1,4,0)
 ;;=4^G40.909
 ;;^UTILITY(U,$J,358.3,36213,2)
 ;;=^5003865
 ;;^UTILITY(U,$J,358.3,36214,0)
 ;;=N52.9^^107^1472^30
 ;;^UTILITY(U,$J,358.3,36214,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36214,1,3,0)
 ;;=3^Erectile Dysfuntion,Unspec
 ;;^UTILITY(U,$J,358.3,36214,1,4,0)
 ;;=4^N52.9
 ;;^UTILITY(U,$J,358.3,36214,2)
 ;;=^5015763
 ;;^UTILITY(U,$J,358.3,36215,0)
 ;;=I50.22^^107^1472^39
 ;;^UTILITY(U,$J,358.3,36215,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36215,1,3,0)
 ;;=3^Heart Failure,Systolic,Chronic
 ;;^UTILITY(U,$J,358.3,36215,1,4,0)
 ;;=4^I50.22
 ;;^UTILITY(U,$J,358.3,36215,2)
 ;;=^5007241
 ;;^UTILITY(U,$J,358.3,36216,0)
 ;;=I50.32^^107^1472^37
 ;;^UTILITY(U,$J,358.3,36216,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36216,1,3,0)
 ;;=3^Heart Failure,Diastolic,Chronic
 ;;^UTILITY(U,$J,358.3,36216,1,4,0)
 ;;=4^I50.32
 ;;^UTILITY(U,$J,358.3,36216,2)
 ;;=^5007245
 ;;^UTILITY(U,$J,358.3,36217,0)
 ;;=I50.42^^107^1472^38
 ;;^UTILITY(U,$J,358.3,36217,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36217,1,3,0)
 ;;=3^Heart Failure,Systolic & Diastolic,Chronic
 ;;^UTILITY(U,$J,358.3,36217,1,4,0)
 ;;=4^I50.42
 ;;^UTILITY(U,$J,358.3,36217,2)
 ;;=^5007249
 ;;^UTILITY(U,$J,358.3,36218,0)
 ;;=I13.0^^107^1472^32
 ;;^UTILITY(U,$J,358.3,36218,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36218,1,3,0)
 ;;=3^HTN Hrt & CKD w/ Hrt Fail w/ Stage 1-4 Chr Kdny
 ;;^UTILITY(U,$J,358.3,36218,1,4,0)
 ;;=4^I13.0
 ;;^UTILITY(U,$J,358.3,36218,2)
 ;;=^5007067
 ;;^UTILITY(U,$J,358.3,36219,0)
 ;;=I13.2^^107^1472^33
 ;;^UTILITY(U,$J,358.3,36219,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36219,1,3,0)
 ;;=3^HTN Hrt & CKD w/ Hrt Fail w/ Stage 5 Chr Kdny
 ;;^UTILITY(U,$J,358.3,36219,1,4,0)
 ;;=4^I13.2
 ;;^UTILITY(U,$J,358.3,36219,2)
 ;;=^5007070
 ;;^UTILITY(U,$J,358.3,36220,0)
 ;;=I13.10^^107^1472^34
 ;;^UTILITY(U,$J,358.3,36220,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36220,1,3,0)
 ;;=3^HTN Hrt & CKD w/o Hrt Fail w/ Stage 1-4 Chr Kdny
 ;;^UTILITY(U,$J,358.3,36220,1,4,0)
 ;;=4^I13.10
 ;;^UTILITY(U,$J,358.3,36220,2)
 ;;=^5007068
 ;;^UTILITY(U,$J,358.3,36221,0)
 ;;=I13.11^^107^1472^35
 ;;^UTILITY(U,$J,358.3,36221,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36221,1,3,0)
 ;;=3^HTN Hrt & CKD w/o Hrt Fail w/ Stage 5 Chr Kdny
 ;;^UTILITY(U,$J,358.3,36221,1,4,0)
 ;;=4^I13.11
 ;;^UTILITY(U,$J,358.3,36221,2)
 ;;=^5007069
 ;;^UTILITY(U,$J,358.3,36222,0)
 ;;=E03.9^^107^1472^45
 ;;^UTILITY(U,$J,358.3,36222,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36222,1,3,0)
 ;;=3^Hypothyroidism,Unspec
 ;;^UTILITY(U,$J,358.3,36222,1,4,0)
 ;;=4^E03.9
 ;;^UTILITY(U,$J,358.3,36222,2)
 ;;=^5002476
 ;;^UTILITY(U,$J,358.3,36223,0)
 ;;=C61.^^107^1472^49
 ;;^UTILITY(U,$J,358.3,36223,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36223,1,3,0)
 ;;=3^Malig Neopl Prostate
 ;;^UTILITY(U,$J,358.3,36223,1,4,0)
 ;;=4^C61.
 ;;^UTILITY(U,$J,358.3,36223,2)
 ;;=^267239
 ;;^UTILITY(U,$J,358.3,36224,0)
 ;;=F11.20^^107^1472^55
 ;;^UTILITY(U,$J,358.3,36224,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36224,1,3,0)
 ;;=3^Opioid Dependence,Uncomplicated
 ;;^UTILITY(U,$J,358.3,36224,1,4,0)
 ;;=4^F11.20
 ;;^UTILITY(U,$J,358.3,36224,2)
 ;;=^5003127
 ;;^UTILITY(U,$J,358.3,36225,0)
 ;;=M19.90^^107^1472^56
 ;;^UTILITY(U,$J,358.3,36225,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36225,1,3,0)
 ;;=3^Osteoarthritis,Unspec
 ;;^UTILITY(U,$J,358.3,36225,1,4,0)
 ;;=4^M19.90
 ;;^UTILITY(U,$J,358.3,36225,2)
 ;;=^5010853
 ;;^UTILITY(U,$J,358.3,36226,0)
 ;;=M85.80^^107^1472^57
 ;;^UTILITY(U,$J,358.3,36226,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36226,1,3,0)
 ;;=3^Osteopenia,Unspec Site
 ;;^UTILITY(U,$J,358.3,36226,1,4,0)
 ;;=4^M85.80
 ;;^UTILITY(U,$J,358.3,36226,2)
 ;;=^5014473
 ;;^UTILITY(U,$J,358.3,36227,0)
 ;;=M81.0^^107^1472^58
 ;;^UTILITY(U,$J,358.3,36227,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36227,1,3,0)
 ;;=3^Osteoporosis,Age-Related w/o Fx
 ;;^UTILITY(U,$J,358.3,36227,1,4,0)
 ;;=4^M81.0
 ;;^UTILITY(U,$J,358.3,36227,2)
 ;;=^5013555
 ;;^UTILITY(U,$J,358.3,36228,0)
 ;;=I73.9^^107^1472^65
 ;;^UTILITY(U,$J,358.3,36228,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36228,1,3,0)
 ;;=3^Peripheral Vascular Disease,Unspec
 ;;^UTILITY(U,$J,358.3,36228,1,4,0)
 ;;=4^I73.9
 ;;^UTILITY(U,$J,358.3,36228,2)
 ;;=^184182
 ;;^UTILITY(U,$J,358.3,36229,0)
 ;;=R21.^^107^1472^68
 ;;^UTILITY(U,$J,358.3,36229,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36229,1,3,0)
 ;;=3^Rash
 ;;^UTILITY(U,$J,358.3,36229,1,4,0)
 ;;=4^R21.
 ;;^UTILITY(U,$J,358.3,36229,2)
 ;;=^5019283
 ;;^UTILITY(U,$J,358.3,36230,0)
 ;;=Z12.11^^107^1472^73
 ;;^UTILITY(U,$J,358.3,36230,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36230,1,3,0)
 ;;=3^Screening,Colon CA
 ;;^UTILITY(U,$J,358.3,36230,1,4,0)
 ;;=4^Z12.11
 ;;^UTILITY(U,$J,358.3,36230,2)
 ;;=^5062681
 ;;^UTILITY(U,$J,358.3,36231,0)
 ;;=Z12.39^^107^1472^71
 ;;^UTILITY(U,$J,358.3,36231,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36231,1,3,0)
 ;;=3^Screening,Breast CA
 ;;^UTILITY(U,$J,358.3,36231,1,4,0)
 ;;=4^Z12.39
 ;;^UTILITY(U,$J,358.3,36231,2)
 ;;=^5062686
 ;;^UTILITY(U,$J,358.3,36232,0)
 ;;=Z12.4^^107^1472^72
 ;;^UTILITY(U,$J,358.3,36232,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36232,1,3,0)
 ;;=3^Screening,Cervical CA
 ;;^UTILITY(U,$J,358.3,36232,1,4,0)
 ;;=4^Z12.4
 ;;^UTILITY(U,$J,358.3,36232,2)
 ;;=^5062687
 ;;^UTILITY(U,$J,358.3,36233,0)
 ;;=Z13.6^^107^1472^70
 ;;^UTILITY(U,$J,358.3,36233,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36233,1,3,0)
 ;;=3^Screening,AAA
 ;;^UTILITY(U,$J,358.3,36233,1,4,0)
 ;;=4^Z13.6
 ;;^UTILITY(U,$J,358.3,36233,2)
 ;;=^5062707
 ;;^UTILITY(U,$J,358.3,36234,0)
 ;;=Z11.3^^107^1472^75
 ;;^UTILITY(U,$J,358.3,36234,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36234,1,3,0)
 ;;=3^Screening,STI
 ;;^UTILITY(U,$J,358.3,36234,1,4,0)
 ;;=4^Z11.3
 ;;^UTILITY(U,$J,358.3,36234,2)
 ;;=^5062672
 ;;^UTILITY(U,$J,358.3,36235,0)
 ;;=Z13.1^^107^1472^74
 ;;^UTILITY(U,$J,358.3,36235,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36235,1,3,0)
 ;;=3^Screening,Diabetes
 ;;^UTILITY(U,$J,358.3,36235,1,4,0)
 ;;=4^Z13.1
 ;;^UTILITY(U,$J,358.3,36235,2)
 ;;=^5062700
 ;;^UTILITY(U,$J,358.3,36236,0)
 ;;=M48.061^^107^1472^80
 ;;^UTILITY(U,$J,358.3,36236,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36236,1,3,0)
 ;;=3^Spinal Stenosis,Lumbar Region w/o Neurogenic Claudication
 ;;^UTILITY(U,$J,358.3,36236,1,4,0)
 ;;=4^M48.061
 ;;^UTILITY(U,$J,358.3,36236,2)
 ;;=^5151513
 ;;^UTILITY(U,$J,358.3,36237,0)
 ;;=M48.062^^107^1472^79
 ;;^UTILITY(U,$J,358.3,36237,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36237,1,3,0)
 ;;=3^Spinal Stenosis,Lumbar Region w/ Neurogenic Claudication
 ;;^UTILITY(U,$J,358.3,36237,1,4,0)
 ;;=4^M48.062
 ;;^UTILITY(U,$J,358.3,36237,2)
 ;;=^5151514
 ;;^UTILITY(U,$J,358.3,36238,0)
 ;;=Z53.21^^107^1472^60
 ;;^UTILITY(U,$J,358.3,36238,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36238,1,3,0)
 ;;=3^PT left w/o being seen
 ;;^UTILITY(U,$J,358.3,36238,1,4,0)
 ;;=4^Z53.21
 ;;^UTILITY(U,$J,358.3,36238,2)
 ;;=^5063096
 ;;^UTILITY(U,$J,358.3,36239,0)
 ;;=Z78.9^^107^1472^81
 ;;^UTILITY(U,$J,358.3,36239,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36239,1,3,0)
 ;;=3^Triaged to Primary Care Clinic
 ;;^UTILITY(U,$J,358.3,36239,1,4,0)
 ;;=4^Z78.9
 ;;^UTILITY(U,$J,358.3,36239,2)
 ;;=^5063329
 ;;^UTILITY(U,$J,358.3,36240,0)
 ;;=I48.20^^107^1472^8
 ;;^UTILITY(U,$J,358.3,36240,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36240,1,3,0)
 ;;=3^Atrial Fibrillation,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,36240,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,36240,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,36241,0)
 ;;=M54.6^^107^1472^63
 ;;^UTILITY(U,$J,358.3,36241,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36241,1,3,0)
 ;;=3^Pain in Thoracic Spine
 ;;^UTILITY(U,$J,358.3,36241,1,4,0)
 ;;=4^M54.6
 ;;^UTILITY(U,$J,358.3,36241,2)
 ;;=^272507
 ;;^UTILITY(U,$J,358.3,36242,0)
 ;;=M54.12^^107^1472^66
 ;;^UTILITY(U,$J,358.3,36242,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36242,1,3,0)
 ;;=3^Radiculopathy,Cervical Region
 ;;^UTILITY(U,$J,358.3,36242,1,4,0)
 ;;=4^M54.12
 ;;^UTILITY(U,$J,358.3,36242,2)
 ;;=^5012297
 ;;^UTILITY(U,$J,358.3,36243,0)
 ;;=M54.17^^107^1472^67
 ;;^UTILITY(U,$J,358.3,36243,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36243,1,3,0)
 ;;=3^Radiculopathy,Lumbosacral Region
 ;;^UTILITY(U,$J,358.3,36243,1,4,0)
 ;;=4^M54.17
 ;;^UTILITY(U,$J,358.3,36243,2)
 ;;=^5012302
 ;;^UTILITY(U,$J,358.3,36244,0)
 ;;=M54.30^^107^1472^69
 ;;^UTILITY(U,$J,358.3,36244,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36244,1,3,0)
 ;;=3^Sciatica
 ;;^UTILITY(U,$J,358.3,36244,1,4,0)
 ;;=4^M54.30
 ;;^UTILITY(U,$J,358.3,36244,2)
 ;;=^5012305
 ;;^UTILITY(U,$J,358.3,36245,0)
 ;;=M48.02^^107^1472^78
 ;;^UTILITY(U,$J,358.3,36245,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36245,1,3,0)
 ;;=3^Spinal Stenosis,Cervical Region
 ;;^UTILITY(U,$J,358.3,36245,1,4,0)
 ;;=4^M48.02
 ;;^UTILITY(U,$J,358.3,36245,2)
 ;;=^5012089
 ;;^UTILITY(U,$J,358.3,36246,0)
 ;;=N18.30^^107^1472^11
 ;;^UTILITY(U,$J,358.3,36246,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36246,1,3,0)
 ;;=3^CKD,Stage 3 Unspec
 ;;^UTILITY(U,$J,358.3,36246,1,4,0)
 ;;=4^N18.30
 ;;^UTILITY(U,$J,358.3,36246,2)
 ;;=^5159286
 ;;^UTILITY(U,$J,358.3,36247,0)
 ;;=N18.31^^107^1472^12
 ;;^UTILITY(U,$J,358.3,36247,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36247,1,3,0)
 ;;=3^CKD,Stage 3a
 ;;^UTILITY(U,$J,358.3,36247,1,4,0)
 ;;=4^N18.31
 ;;^UTILITY(U,$J,358.3,36247,2)
 ;;=^5159287
 ;;^UTILITY(U,$J,358.3,36248,0)
 ;;=N18.32^^107^1472^13
 ;;^UTILITY(U,$J,358.3,36248,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36248,1,3,0)
 ;;=3^CKD,Stage 3b
 ;;^UTILITY(U,$J,358.3,36248,1,4,0)
 ;;=4^N18.32
 ;;^UTILITY(U,$J,358.3,36248,2)
 ;;=^5159288
 ;;^UTILITY(U,$J,358.3,36249,0)
 ;;=M54.50^^107^1472^48
 ;;^UTILITY(U,$J,358.3,36249,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36249,1,3,0)
 ;;=3^Low Back Pain,Unspec
 ;;^UTILITY(U,$J,358.3,36249,1,4,0)
 ;;=4^M54.50
 ;;^UTILITY(U,$J,358.3,36249,2)
 ;;=^5161215
 ;;^UTILITY(U,$J,358.3,36250,0)
 ;;=Z51.81^^107^1473^17
 ;;^UTILITY(U,$J,358.3,36250,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36250,1,3,0)
 ;;=3^Therapeutic Drug Level Monitoring
 ;;^UTILITY(U,$J,358.3,36250,1,4,0)
 ;;=4^Z51.81
 ;;^UTILITY(U,$J,358.3,36250,2)
 ;;=^5063064
 ;;^UTILITY(U,$J,358.3,36251,0)
 ;;=Z02.79^^107^1473^11
 ;;^UTILITY(U,$J,358.3,36251,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36251,1,3,0)
 ;;=3^Issue of Medical Certificate NEC
 ;;^UTILITY(U,$J,358.3,36251,1,4,0)
 ;;=4^Z02.79
 ;;^UTILITY(U,$J,358.3,36251,2)
 ;;=^5062641
 ;;^UTILITY(U,$J,358.3,36252,0)
 ;;=Z76.0^^107^1473^12
 ;;^UTILITY(U,$J,358.3,36252,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36252,1,3,0)
 ;;=3^Issue of Repeat Prescription
 ;;^UTILITY(U,$J,358.3,36252,1,4,0)
 ;;=4^Z76.0
 ;;^UTILITY(U,$J,358.3,36252,2)
 ;;=^5063297
 ;;^UTILITY(U,$J,358.3,36253,0)
 ;;=Z04.9^^107^1473^3
 ;;^UTILITY(U,$J,358.3,36253,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36253,1,3,0)
 ;;=3^Exam & Observation for Unsp Reason
 ;;^UTILITY(U,$J,358.3,36253,1,4,0)
 ;;=4^Z04.9
 ;;^UTILITY(U,$J,358.3,36253,2)
 ;;=^5062666
 ;;^UTILITY(U,$J,358.3,36254,0)
 ;;=Z02.2^^107^1473^4
 ;;^UTILITY(U,$J,358.3,36254,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36254,1,3,0)
 ;;=3^Exam for Admission to Residential Institution
 ;;^UTILITY(U,$J,358.3,36254,1,4,0)
 ;;=4^Z02.2
 ;;^UTILITY(U,$J,358.3,36254,2)
 ;;=^5062635
 ;;^UTILITY(U,$J,358.3,36255,0)
 ;;=Z02.4^^107^1473^5
 ;;^UTILITY(U,$J,358.3,36255,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36255,1,3,0)
 ;;=3^Exam for Driving License
 ;;^UTILITY(U,$J,358.3,36255,1,4,0)
 ;;=4^Z02.4
 ;;^UTILITY(U,$J,358.3,36255,2)
 ;;=^5062637
 ;;^UTILITY(U,$J,358.3,36256,0)
 ;;=Z00.5^^107^1473^7
 ;;^UTILITY(U,$J,358.3,36256,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36256,1,3,0)
 ;;=3^Exam of Potential Donor of Organ/Tissue
 ;;^UTILITY(U,$J,358.3,36256,1,4,0)
 ;;=4^Z00.5
 ;;^UTILITY(U,$J,358.3,36256,2)
 ;;=^5062607
 ;;^UTILITY(U,$J,358.3,36257,0)
 ;;=Z02.3^^107^1473^6
 ;;^UTILITY(U,$J,358.3,36257,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36257,1,3,0)
 ;;=3^Exam for Recruitment to Armed Forces
 ;;^UTILITY(U,$J,358.3,36257,1,4,0)
 ;;=4^Z02.3
 ;;^UTILITY(U,$J,358.3,36257,2)
 ;;=^5062636
 ;;^UTILITY(U,$J,358.3,36258,0)
 ;;=Z02.89^^107^1473^1
 ;;^UTILITY(U,$J,358.3,36258,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36258,1,3,0)
 ;;=3^Admin Exam NEC
 ;;^UTILITY(U,$J,358.3,36258,1,4,0)
 ;;=4^Z02.89
 ;;^UTILITY(U,$J,358.3,36258,2)
 ;;=^5062645
 ;;^UTILITY(U,$J,358.3,36259,0)
 ;;=Z00.8^^107^1473^8
 ;;^UTILITY(U,$J,358.3,36259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36259,1,3,0)
 ;;=3^General Exam NEC
 ;;^UTILITY(U,$J,358.3,36259,1,4,0)
 ;;=4^Z00.8
 ;;^UTILITY(U,$J,358.3,36259,2)
 ;;=^5062611
 ;;^UTILITY(U,$J,358.3,36260,0)
 ;;=Z02.1^^107^1473^14