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

IBDEI036.m

Go to the documentation of this file.
IBDEI036 ; ; 03-MAY-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2021
 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,7498,1,4,0)
 ;;=4^F42.8
 ;;^UTILITY(U,$J,358.3,7498,2)
 ;;=^5138447
 ;;^UTILITY(U,$J,358.3,7499,0)
 ;;=F42.9^^49^443^51
 ;;^UTILITY(U,$J,358.3,7499,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7499,1,3,0)
 ;;=3^Obsessive-Compulsive Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,7499,1,4,0)
 ;;=4^F42.9
 ;;^UTILITY(U,$J,358.3,7499,2)
 ;;=^5138448
 ;;^UTILITY(U,$J,358.3,7500,0)
 ;;=F43.21^^49^444^1
 ;;^UTILITY(U,$J,358.3,7500,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7500,1,3,0)
 ;;=3^Adjustment Disorder w/ Depressed Mood
 ;;^UTILITY(U,$J,358.3,7500,1,4,0)
 ;;=4^F43.21
 ;;^UTILITY(U,$J,358.3,7500,2)
 ;;=^331948
 ;;^UTILITY(U,$J,358.3,7501,0)
 ;;=F43.23^^49^444^2
 ;;^UTILITY(U,$J,358.3,7501,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7501,1,3,0)
 ;;=3^Adjustment Disorder w/ Mixed Anxiety & Depressed Mood
 ;;^UTILITY(U,$J,358.3,7501,1,4,0)
 ;;=4^F43.23
 ;;^UTILITY(U,$J,358.3,7501,2)
 ;;=^331950
 ;;^UTILITY(U,$J,358.3,7502,0)
 ;;=F10.10^^49^444^3
 ;;^UTILITY(U,$J,358.3,7502,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7502,1,3,0)
 ;;=3^Alcohol Abuse Uncomplicated
 ;;^UTILITY(U,$J,358.3,7502,1,4,0)
 ;;=4^F10.10
 ;;^UTILITY(U,$J,358.3,7502,2)
 ;;=^5003068
 ;;^UTILITY(U,$J,358.3,7503,0)
 ;;=F10.20^^49^444^4
 ;;^UTILITY(U,$J,358.3,7503,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7503,1,3,0)
 ;;=3^Alcohol Dependence Uncomplicated
 ;;^UTILITY(U,$J,358.3,7503,1,4,0)
 ;;=4^F10.20
 ;;^UTILITY(U,$J,358.3,7503,2)
 ;;=^5003081
 ;;^UTILITY(U,$J,358.3,7504,0)
 ;;=F31.81^^49^444^8
 ;;^UTILITY(U,$J,358.3,7504,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7504,1,3,0)
 ;;=3^Bipolar II Disorder
 ;;^UTILITY(U,$J,358.3,7504,1,4,0)
 ;;=4^F31.81
 ;;^UTILITY(U,$J,358.3,7504,2)
 ;;=^5003519
 ;;^UTILITY(U,$J,358.3,7505,0)
 ;;=F34.1^^49^444^9
 ;;^UTILITY(U,$J,358.3,7505,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7505,1,3,0)
 ;;=3^Dysthymic Disorder
 ;;^UTILITY(U,$J,358.3,7505,1,4,0)
 ;;=4^F34.1
 ;;^UTILITY(U,$J,358.3,7505,2)
 ;;=^331913
 ;;^UTILITY(U,$J,358.3,7506,0)
 ;;=F41.1^^49^444^5
 ;;^UTILITY(U,$J,358.3,7506,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7506,1,3,0)
 ;;=3^Anxiety Disorder,Generalized
 ;;^UTILITY(U,$J,358.3,7506,1,4,0)
 ;;=4^F41.1
 ;;^UTILITY(U,$J,358.3,7506,2)
 ;;=^50059
 ;;^UTILITY(U,$J,358.3,7507,0)
 ;;=F33.1^^49^444^11
 ;;^UTILITY(U,$J,358.3,7507,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7507,1,3,0)
 ;;=3^MDD,Recurrent,Moderate
 ;;^UTILITY(U,$J,358.3,7507,1,4,0)
 ;;=4^F33.1
 ;;^UTILITY(U,$J,358.3,7507,2)
 ;;=^5003530
 ;;^UTILITY(U,$J,358.3,7508,0)
 ;;=F06.8^^49^444^13
 ;;^UTILITY(U,$J,358.3,7508,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7508,1,3,0)
 ;;=3^Mental Disorders d/t Physiological Condition
 ;;^UTILITY(U,$J,358.3,7508,1,4,0)
 ;;=4^F06.8
 ;;^UTILITY(U,$J,358.3,7508,2)
 ;;=^5003062
 ;;^UTILITY(U,$J,358.3,7509,0)
 ;;=F43.12^^49^444^32
 ;;^UTILITY(U,$J,358.3,7509,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7509,1,3,0)
 ;;=3^PTSD,Chronic
 ;;^UTILITY(U,$J,358.3,7509,1,4,0)
 ;;=4^F43.12
 ;;^UTILITY(U,$J,358.3,7509,2)
 ;;=^5003572
 ;;^UTILITY(U,$J,358.3,7510,0)
 ;;=F43.10^^49^444^33
 ;;^UTILITY(U,$J,358.3,7510,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7510,1,3,0)
 ;;=3^PTSD,Unspec
 ;;^UTILITY(U,$J,358.3,7510,1,4,0)
 ;;=4^F43.10
 ;;^UTILITY(U,$J,358.3,7510,2)
 ;;=^5003570
 ;;^UTILITY(U,$J,358.3,7511,0)
 ;;=F06.0^^49^444^37
 ;;^UTILITY(U,$J,358.3,7511,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7511,1,3,0)
 ;;=3^Psychotic Disorder w/ Hallucin d/t Physiol Condition
 ;;^UTILITY(U,$J,358.3,7511,1,4,0)
 ;;=4^F06.0
 ;;^UTILITY(U,$J,358.3,7511,2)
 ;;=^5003053
 ;;^UTILITY(U,$J,358.3,7512,0)
 ;;=F20.9^^49^444^39
 ;;^UTILITY(U,$J,358.3,7512,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7512,1,3,0)
 ;;=3^Schizophrenia,Unspec
 ;;^UTILITY(U,$J,358.3,7512,1,4,0)
 ;;=4^F20.9
 ;;^UTILITY(U,$J,358.3,7512,2)
 ;;=^5003476
 ;;^UTILITY(U,$J,358.3,7513,0)
 ;;=F29.^^49^444^36
 ;;^UTILITY(U,$J,358.3,7513,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7513,1,3,0)
 ;;=3^Psychosis Not d/t Substance/Physiol Condition
 ;;^UTILITY(U,$J,358.3,7513,1,4,0)
 ;;=4^F29.
 ;;^UTILITY(U,$J,358.3,7513,2)
 ;;=^5003484
 ;;^UTILITY(U,$J,358.3,7514,0)
 ;;=F41.9^^49^444^6
 ;;^UTILITY(U,$J,358.3,7514,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7514,1,3,0)
 ;;=3^Anxiety Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,7514,1,4,0)
 ;;=4^F41.9
 ;;^UTILITY(U,$J,358.3,7514,2)
 ;;=^5003567
 ;;^UTILITY(U,$J,358.3,7515,0)
 ;;=F31.9^^49^444^7
 ;;^UTILITY(U,$J,358.3,7515,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7515,1,3,0)
 ;;=3^Bipolar Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,7515,1,4,0)
 ;;=4^F31.9
 ;;^UTILITY(U,$J,358.3,7515,2)
 ;;=^331892
 ;;^UTILITY(U,$J,358.3,7516,0)
 ;;=F32.9^^49^444^12
 ;;^UTILITY(U,$J,358.3,7516,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7516,1,3,0)
 ;;=3^MDD,Single Episode,Unspec
 ;;^UTILITY(U,$J,358.3,7516,1,4,0)
 ;;=4^F32.9
 ;;^UTILITY(U,$J,358.3,7516,2)
 ;;=^5003528
 ;;^UTILITY(U,$J,358.3,7517,0)
 ;;=R46.0^^49^444^10
 ;;^UTILITY(U,$J,358.3,7517,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7517,1,3,0)
 ;;=3^Hygiene,Personal,Very Lowe Level
 ;;^UTILITY(U,$J,358.3,7517,1,4,0)
 ;;=4^R46.0
 ;;^UTILITY(U,$J,358.3,7517,2)
 ;;=^5019478
 ;;^UTILITY(U,$J,358.3,7518,0)
 ;;=F39.^^49^444^14
 ;;^UTILITY(U,$J,358.3,7518,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7518,1,3,0)
 ;;=3^Mood Affective Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,7518,1,4,0)
 ;;=4^F39.
 ;;^UTILITY(U,$J,358.3,7518,2)
 ;;=^5003541
 ;;^UTILITY(U,$J,358.3,7519,0)
 ;;=F06.30^^49^444^15
 ;;^UTILITY(U,$J,358.3,7519,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7519,1,3,0)
 ;;=3^Mood Disorder d/t Physiological Condition
 ;;^UTILITY(U,$J,358.3,7519,1,4,0)
 ;;=4^F06.30
 ;;^UTILITY(U,$J,358.3,7519,2)
 ;;=^5003056
 ;;^UTILITY(U,$J,358.3,7520,0)
 ;;=F17.221^^49^444^19
 ;;^UTILITY(U,$J,358.3,7520,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7520,1,3,0)
 ;;=3^Nicotine Dependence,Chewing Tobacco,in Remission
 ;;^UTILITY(U,$J,358.3,7520,1,4,0)
 ;;=4^F17.221
 ;;^UTILITY(U,$J,358.3,7520,2)
 ;;=^5003371
 ;;^UTILITY(U,$J,358.3,7521,0)
 ;;=F17.220^^49^444^18
 ;;^UTILITY(U,$J,358.3,7521,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7521,1,3,0)
 ;;=3^Nicotine Dependence,Chewing Tobacco,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7521,1,4,0)
 ;;=4^F17.220
 ;;^UTILITY(U,$J,358.3,7521,2)
 ;;=^5003370
 ;;^UTILITY(U,$J,358.3,7522,0)
 ;;=F17.229^^49^444^16
 ;;^UTILITY(U,$J,358.3,7522,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7522,1,3,0)
 ;;=3^Nicotine Dependence,Chewing Tobacco w/ Unspec Disorders
 ;;^UTILITY(U,$J,358.3,7522,1,4,0)
 ;;=4^F17.229
 ;;^UTILITY(U,$J,358.3,7522,2)
 ;;=^5003374
 ;;^UTILITY(U,$J,358.3,7523,0)
 ;;=F17.223^^49^444^17
 ;;^UTILITY(U,$J,358.3,7523,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7523,1,3,0)
 ;;=3^Nicotine Dependence,Chewing Tobacco w/ Withdrawal
 ;;^UTILITY(U,$J,358.3,7523,1,4,0)
 ;;=4^F17.223
 ;;^UTILITY(U,$J,358.3,7523,2)
 ;;=^5003372
 ;;^UTILITY(U,$J,358.3,7524,0)
 ;;=F17.211^^49^444^23
 ;;^UTILITY(U,$J,358.3,7524,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7524,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes,in Remission
 ;;^UTILITY(U,$J,358.3,7524,1,4,0)
 ;;=4^F17.211
 ;;^UTILITY(U,$J,358.3,7524,2)
 ;;=^5003366
 ;;^UTILITY(U,$J,358.3,7525,0)
 ;;=F17.210^^49^444^22
 ;;^UTILITY(U,$J,358.3,7525,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7525,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7525,1,4,0)
 ;;=4^F17.210
 ;;^UTILITY(U,$J,358.3,7525,2)
 ;;=^5003365
 ;;^UTILITY(U,$J,358.3,7526,0)
 ;;=F17.219^^49^444^20
 ;;^UTILITY(U,$J,358.3,7526,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7526,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes w/ Unspec Disorders
 ;;^UTILITY(U,$J,358.3,7526,1,4,0)
 ;;=4^F17.219
 ;;^UTILITY(U,$J,358.3,7526,2)
 ;;=^5003369
 ;;^UTILITY(U,$J,358.3,7527,0)
 ;;=F17.213^^49^444^21
 ;;^UTILITY(U,$J,358.3,7527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7527,1,3,0)
 ;;=3^Nicotine Dependence,Cigarettes w/ Withdrawal
 ;;^UTILITY(U,$J,358.3,7527,1,4,0)
 ;;=4^F17.213
 ;;^UTILITY(U,$J,358.3,7527,2)
 ;;=^5003367
 ;;^UTILITY(U,$J,358.3,7528,0)
 ;;=F17.291^^49^444^24
 ;;^UTILITY(U,$J,358.3,7528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7528,1,3,0)
 ;;=3^Nicotine Dependence,Oth Tobacco Product,in Remission
 ;;^UTILITY(U,$J,358.3,7528,1,4,0)
 ;;=4^F17.291
 ;;^UTILITY(U,$J,358.3,7528,2)
 ;;=^5003376
 ;;^UTILITY(U,$J,358.3,7529,0)
 ;;=F17.290^^49^444^25
 ;;^UTILITY(U,$J,358.3,7529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7529,1,3,0)
 ;;=3^Nicotine Dependence,Oth Tobacco Product,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7529,1,4,0)
 ;;=4^F17.290
 ;;^UTILITY(U,$J,358.3,7529,2)
 ;;=^5003375
 ;;^UTILITY(U,$J,358.3,7530,0)
 ;;=F17.299^^49^444^26
 ;;^UTILITY(U,$J,358.3,7530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7530,1,3,0)
 ;;=3^Nicotine Dependence,Oth Tobacco Product w/ Unspec Disorders
 ;;^UTILITY(U,$J,358.3,7530,1,4,0)
 ;;=4^F17.299
 ;;^UTILITY(U,$J,358.3,7530,2)
 ;;=^5003379
 ;;^UTILITY(U,$J,358.3,7531,0)
 ;;=F17.293^^49^444^27
 ;;^UTILITY(U,$J,358.3,7531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7531,1,3,0)
 ;;=3^Nicotine Dependence,Oth Tobacco Product w/ Withdrawal
 ;;^UTILITY(U,$J,358.3,7531,1,4,0)
 ;;=4^F17.293
 ;;^UTILITY(U,$J,358.3,7531,2)
 ;;=^5003377
 ;;^UTILITY(U,$J,358.3,7532,0)
 ;;=F17.201^^49^444^31
 ;;^UTILITY(U,$J,358.3,7532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7532,1,3,0)
 ;;=3^Nicotine Dependence,Unspec,in Remission
 ;;^UTILITY(U,$J,358.3,7532,1,4,0)
 ;;=4^F17.201
 ;;^UTILITY(U,$J,358.3,7532,2)
 ;;=^5003361
 ;;^UTILITY(U,$J,358.3,7533,0)
 ;;=F17.200^^49^444^30
 ;;^UTILITY(U,$J,358.3,7533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7533,1,3,0)
 ;;=3^Nicotine Dependence,Unspec,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7533,1,4,0)
 ;;=4^F17.200
 ;;^UTILITY(U,$J,358.3,7533,2)
 ;;=^5003360
 ;;^UTILITY(U,$J,358.3,7534,0)
 ;;=F17.209^^49^444^28
 ;;^UTILITY(U,$J,358.3,7534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7534,1,3,0)
 ;;=3^Nicotine Dependence,Unspec w/ Unspec Disorders
 ;;^UTILITY(U,$J,358.3,7534,1,4,0)
 ;;=4^F17.209
 ;;^UTILITY(U,$J,358.3,7534,2)
 ;;=^5003364
 ;;^UTILITY(U,$J,358.3,7535,0)
 ;;=F17.203^^49^444^29
 ;;^UTILITY(U,$J,358.3,7535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7535,1,3,0)
 ;;=3^Nicotine Dependence,Unspec w/ Withdrawal
 ;;^UTILITY(U,$J,358.3,7535,1,4,0)
 ;;=4^F17.203
 ;;^UTILITY(U,$J,358.3,7535,2)
 ;;=^5003362
 ;;^UTILITY(U,$J,358.3,7536,0)
 ;;=F07.0^^49^444^35
 ;;^UTILITY(U,$J,358.3,7536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7536,1,3,0)
 ;;=3^Personality Changed d/t Physiological Condition
 ;;^UTILITY(U,$J,358.3,7536,1,4,0)
 ;;=4^F07.0
 ;;^UTILITY(U,$J,358.3,7536,2)
 ;;=^5003063
 ;;^UTILITY(U,$J,358.3,7537,0)
 ;;=F20.0^^49^444^38
 ;;^UTILITY(U,$J,358.3,7537,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7537,1,3,0)
 ;;=3^Schizophrenia,Paranoid
 ;;^UTILITY(U,$J,358.3,7537,1,4,0)
 ;;=4^F20.0
 ;;^UTILITY(U,$J,358.3,7537,2)
 ;;=^5003469
 ;;^UTILITY(U,$J,358.3,7538,0)
 ;;=R45.851^^49^444^40
 ;;^UTILITY(U,$J,358.3,7538,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7538,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,7538,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,7538,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,7539,0)
 ;;=Z87.820^^49^444^34
 ;;^UTILITY(U,$J,358.3,7539,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7539,1,3,0)
 ;;=3^Personal Hx of TBI
 ;;^UTILITY(U,$J,358.3,7539,1,4,0)
 ;;=4^Z87.820
 ;;^UTILITY(U,$J,358.3,7539,2)
 ;;=^5063514
 ;;^UTILITY(U,$J,358.3,7540,0)
 ;;=R14.0^^49^445^1
 ;;^UTILITY(U,$J,358.3,7540,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7540,1,3,0)
 ;;=3^Abdominal Distension
 ;;^UTILITY(U,$J,358.3,7540,1,4,0)
 ;;=4^R14.0
 ;;^UTILITY(U,$J,358.3,7540,2)
 ;;=^5019240
 ;;^UTILITY(U,$J,358.3,7541,0)
 ;;=Z90.81^^49^445^2
 ;;^UTILITY(U,$J,358.3,7541,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7541,1,3,0)
 ;;=3^Acquired Absence of Spleen
 ;;^UTILITY(U,$J,358.3,7541,1,4,0)
 ;;=4^Z90.81
 ;;^UTILITY(U,$J,358.3,7541,2)
 ;;=^5063597
 ;;^UTILITY(U,$J,358.3,7542,0)
 ;;=K62.9^^49^445^3
 ;;^UTILITY(U,$J,358.3,7542,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7542,1,3,0)
 ;;=3^Anus & Rectum Disease,Unspec
 ;;^UTILITY(U,$J,358.3,7542,1,4,0)
 ;;=4^K62.9
 ;;^UTILITY(U,$J,358.3,7542,2)
 ;;=^5008760
 ;;^UTILITY(U,$J,358.3,7543,0)
 ;;=Z93.3^^49^445^4
 ;;^UTILITY(U,$J,358.3,7543,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7543,1,3,0)
 ;;=3^Artificial Opening,Colostomy Status
 ;;^UTILITY(U,$J,358.3,7543,1,4,0)
 ;;=4^Z93.3
 ;;^UTILITY(U,$J,358.3,7543,2)
 ;;=^5063645
 ;;^UTILITY(U,$J,358.3,7544,0)
 ;;=Z93.4^^49^445^5
 ;;^UTILITY(U,$J,358.3,7544,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7544,1,3,0)
 ;;=3^Artificial Opening,GI Tract
 ;;^UTILITY(U,$J,358.3,7544,1,4,0)
 ;;=4^Z93.4
 ;;^UTILITY(U,$J,358.3,7544,2)
 ;;=^5063646
 ;;^UTILITY(U,$J,358.3,7545,0)
 ;;=Z93.1^^49^445^6
 ;;^UTILITY(U,$J,358.3,7545,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7545,1,3,0)
 ;;=3^Artificial Opening,Gastrostomy Status
 ;;^UTILITY(U,$J,358.3,7545,1,4,0)
 ;;=4^Z93.1
 ;;^UTILITY(U,$J,358.3,7545,2)
 ;;=^5063643
 ;;^UTILITY(U,$J,358.3,7546,0)
 ;;=Z93.2^^49^445^7
 ;;^UTILITY(U,$J,358.3,7546,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7546,1,3,0)
 ;;=3^Artificial Opening,Ileostomy Status
 ;;^UTILITY(U,$J,358.3,7546,1,4,0)
 ;;=4^Z93.2
 ;;^UTILITY(U,$J,358.3,7546,2)
 ;;=^5063644
 ;;^UTILITY(U,$J,358.3,7547,0)
 ;;=K83.9^^49^445^8
 ;;^UTILITY(U,$J,358.3,7547,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7547,1,3,0)
 ;;=3^Biliary Tract Disease,Unspec
 ;;^UTILITY(U,$J,358.3,7547,1,4,0)
 ;;=4^K83.9
 ;;^UTILITY(U,$J,358.3,7547,2)
 ;;=^5008881
 ;;^UTILITY(U,$J,358.3,7548,0)
 ;;=R14.2^^49^445^9
 ;;^UTILITY(U,$J,358.3,7548,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7548,1,3,0)
 ;;=3^Burping-Belching
 ;;^UTILITY(U,$J,358.3,7548,1,4,0)
 ;;=4^R14.2
 ;;^UTILITY(U,$J,358.3,7548,2)
 ;;=^5019242
 ;;^UTILITY(U,$J,358.3,7549,0)
 ;;=K90.0^^49^445^10
 ;;^UTILITY(U,$J,358.3,7549,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7549,1,3,0)
 ;;=3^Celiac Disease
 ;;^UTILITY(U,$J,358.3,7549,1,4,0)
 ;;=4^K90.0
 ;;^UTILITY(U,$J,358.3,7549,2)
 ;;=^20828
 ;;^UTILITY(U,$J,358.3,7550,0)
 ;;=K51.00^^49^445^12
 ;;^UTILITY(U,$J,358.3,7550,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7550,1,3,0)
 ;;=3^Colitis,Ulcerative
 ;;^UTILITY(U,$J,358.3,7550,1,4,0)
 ;;=4^K51.00
 ;;^UTILITY(U,$J,358.3,7550,2)
 ;;=^5008652
 ;;^UTILITY(U,$J,358.3,7551,0)
 ;;=K94.00^^49^445^13
 ;;^UTILITY(U,$J,358.3,7551,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7551,1,3,0)
 ;;=3^Complication of Colostomy,Unspec
 ;;^UTILITY(U,$J,358.3,7551,1,4,0)
 ;;=4^K94.00
 ;;^UTILITY(U,$J,358.3,7551,2)
 ;;=^5008918
 ;;^UTILITY(U,$J,358.3,7552,0)
 ;;=K94.10^^49^445^14
 ;;^UTILITY(U,$J,358.3,7552,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7552,1,3,0)
 ;;=3^Complication of Enterostomy,Unspec
 ;;^UTILITY(U,$J,358.3,7552,1,4,0)
 ;;=4^K94.10
 ;;^UTILITY(U,$J,358.3,7552,2)
 ;;=^5008923
 ;;^UTILITY(U,$J,358.3,7553,0)
 ;;=K94.30^^49^445^15
 ;;^UTILITY(U,$J,358.3,7553,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7553,1,3,0)
 ;;=3^Complication of Esophagostomy,Unspec
 ;;^UTILITY(U,$J,358.3,7553,1,4,0)
 ;;=4^K94.30
 ;;^UTILITY(U,$J,358.3,7553,2)
 ;;=^5008933
 ;;^UTILITY(U,$J,358.3,7554,0)
 ;;=K94.20^^49^445^16
 ;;^UTILITY(U,$J,358.3,7554,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7554,1,3,0)
 ;;=3^Complication of Gastrostomy,Unspec
 ;;^UTILITY(U,$J,358.3,7554,1,4,0)
 ;;=4^K94.20
 ;;^UTILITY(U,$J,358.3,7554,2)
 ;;=^5008928
 ;;^UTILITY(U,$J,358.3,7555,0)
 ;;=K59.00^^49^445^17
 ;;^UTILITY(U,$J,358.3,7555,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7555,1,3,0)
 ;;=3^Constipation,Unspec
 ;;^UTILITY(U,$J,358.3,7555,1,4,0)
 ;;=4^K59.00
 ;;^UTILITY(U,$J,358.3,7555,2)
 ;;=^323537
 ;;^UTILITY(U,$J,358.3,7556,0)
 ;;=K50.00^^49^445^18
 ;;^UTILITY(U,$J,358.3,7556,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7556,1,3,0)
 ;;=3^Crohn's Disease,Small Intestine w/o Complications
 ;;^UTILITY(U,$J,358.3,7556,1,4,0)
 ;;=4^K50.00
 ;;^UTILITY(U,$J,358.3,7556,2)
 ;;=^5008624
 ;;^UTILITY(U,$J,358.3,7557,0)
 ;;=K92.9^^49^445^19
 ;;^UTILITY(U,$J,358.3,7557,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7557,1,3,0)
 ;;=3^Digestive System Disease,Unspec
 ;;^UTILITY(U,$J,358.3,7557,1,4,0)
 ;;=4^K92.9
 ;;^UTILITY(U,$J,358.3,7557,2)
 ;;=^5008917
 ;;^UTILITY(U,$J,358.3,7558,0)
 ;;=K57.93^^49^445^22
 ;;^UTILITY(U,$J,358.3,7558,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7558,1,3,0)
 ;;=3^Dvtrcli of Intest w/o Perf/Abscess w/ Bleeding
 ;;^UTILITY(U,$J,358.3,7558,1,4,0)
 ;;=4^K57.93
 ;;^UTILITY(U,$J,358.3,7558,2)
 ;;=^5008738
 ;;^UTILITY(U,$J,358.3,7559,0)
 ;;=K57.92^^49^445^23
 ;;^UTILITY(U,$J,358.3,7559,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7559,1,3,0)
 ;;=3^Dvtrcli of Intest w/o Perf/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,7559,1,4,0)
 ;;=4^K57.92
 ;;^UTILITY(U,$J,358.3,7559,2)
 ;;=^5008737
 ;;^UTILITY(U,$J,358.3,7560,0)
 ;;=K57.91^^49^445^20
 ;;^UTILITY(U,$J,358.3,7560,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7560,1,3,0)
 ;;=3^Dvrtclos of Intest w/o Perf/Abscess w/ Bleed
 ;;^UTILITY(U,$J,358.3,7560,1,4,0)
 ;;=4^K57.91
 ;;^UTILITY(U,$J,358.3,7560,2)
 ;;=^5008736
 ;;^UTILITY(U,$J,358.3,7561,0)
 ;;=K57.90^^49^445^21
 ;;^UTILITY(U,$J,358.3,7561,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7561,1,3,0)
 ;;=3^Dvrtclos of Intest w/o Perf/Abscess w/o Bleed
 ;;^UTILITY(U,$J,358.3,7561,1,4,0)
 ;;=4^K57.90
 ;;^UTILITY(U,$J,358.3,7561,2)
 ;;=^5008735
 ;;^UTILITY(U,$J,358.3,7562,0)
 ;;=K30.^^49^445^24
 ;;^UTILITY(U,$J,358.3,7562,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7562,1,3,0)
 ;;=3^Dyspepsia,Functional
 ;;^UTILITY(U,$J,358.3,7562,1,4,0)
 ;;=4^K30.
 ;;^UTILITY(U,$J,358.3,7562,2)
 ;;=^5008558
 ;;^UTILITY(U,$J,358.3,7563,0)
 ;;=K08.109^^49^445^25
 ;;^UTILITY(U,$J,358.3,7563,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7563,1,3,0)
 ;;=3^Edentulous
 ;;^UTILITY(U,$J,358.3,7563,1,4,0)
 ;;=4^K08.109
 ;;^UTILITY(U,$J,358.3,7563,2)
 ;;=^5008410
 ;;^UTILITY(U,$J,358.3,7564,0)
 ;;=K22.9^^49^445^26
 ;;^UTILITY(U,$J,358.3,7564,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7564,1,3,0)
 ;;=3^Esophagus Disease,Unspec
 ;;^UTILITY(U,$J,358.3,7564,1,4,0)
 ;;=4^K22.9
 ;;^UTILITY(U,$J,358.3,7564,2)
 ;;=^5008516
 ;;^UTILITY(U,$J,358.3,7565,0)
 ;;=R14.3^^49^445^27
 ;;^UTILITY(U,$J,358.3,7565,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7565,1,3,0)
 ;;=3^Flatulence
 ;;^UTILITY(U,$J,358.3,7565,1,4,0)
 ;;=4^R14.3
 ;;^UTILITY(U,$J,358.3,7565,2)
 ;;=^5019243
 ;;^UTILITY(U,$J,358.3,7566,0)
 ;;=K81.9^^49^445^11
 ;;^UTILITY(U,$J,358.3,7566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7566,1,3,0)
 ;;=3^Cholecystitis,Unspec
 ;;^UTILITY(U,$J,358.3,7566,1,4,0)
 ;;=4^K81.9
 ;;^UTILITY(U,$J,358.3,7566,2)
 ;;=^87388
 ;;^UTILITY(U,$J,358.3,7567,0)
 ;;=K80.70^^49^445^28
 ;;^UTILITY(U,$J,358.3,7567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7567,1,3,0)
 ;;=3^GB & Bile Duct Calculus w/o Cholecyst or Obstruction
 ;;^UTILITY(U,$J,358.3,7567,1,4,0)
 ;;=4^K80.70
 ;;^UTILITY(U,$J,358.3,7567,2)
 ;;=^5008870