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

IBDEI0DM.m

Go to the documentation of this file.
IBDEI0DM ; ; 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,34163,1,4,0)
 ;;=4^K62.5
 ;;^UTILITY(U,$J,358.3,34163,2)
 ;;=^5008755
 ;;^UTILITY(U,$J,358.3,34164,0)
 ;;=K92.1^^105^1429^82
 ;;^UTILITY(U,$J,358.3,34164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34164,1,3,0)
 ;;=3^Melena/Hematochezia
 ;;^UTILITY(U,$J,358.3,34164,1,4,0)
 ;;=4^K92.1
 ;;^UTILITY(U,$J,358.3,34164,2)
 ;;=^5008914
 ;;^UTILITY(U,$J,358.3,34165,0)
 ;;=R19.5^^105^1429^56
 ;;^UTILITY(U,$J,358.3,34165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34165,1,3,0)
 ;;=3^Fecal Abnormalities NEC
 ;;^UTILITY(U,$J,358.3,34165,1,4,0)
 ;;=4^R19.5
 ;;^UTILITY(U,$J,358.3,34165,2)
 ;;=^5019274
 ;;^UTILITY(U,$J,358.3,34166,0)
 ;;=E53.8^^105^1429^92
 ;;^UTILITY(U,$J,358.3,34166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34166,1,3,0)
 ;;=3^Vitamin B12 Deficiency
 ;;^UTILITY(U,$J,358.3,34166,1,4,0)
 ;;=4^E53.8
 ;;^UTILITY(U,$J,358.3,34166,2)
 ;;=^5002797
 ;;^UTILITY(U,$J,358.3,34167,0)
 ;;=K59.04^^105^1429^20
 ;;^UTILITY(U,$J,358.3,34167,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34167,1,3,0)
 ;;=3^Constipation,Chronic Idiopathic
 ;;^UTILITY(U,$J,358.3,34167,1,4,0)
 ;;=4^K59.04
 ;;^UTILITY(U,$J,358.3,34167,2)
 ;;=^7148177
 ;;^UTILITY(U,$J,358.3,34168,0)
 ;;=K59.03^^105^1429^21
 ;;^UTILITY(U,$J,358.3,34168,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34168,1,3,0)
 ;;=3^Constipation,Drug Induced
 ;;^UTILITY(U,$J,358.3,34168,1,4,0)
 ;;=4^K59.03
 ;;^UTILITY(U,$J,358.3,34168,2)
 ;;=^5138744
 ;;^UTILITY(U,$J,358.3,34169,0)
 ;;=K52.21^^105^1429^51
 ;;^UTILITY(U,$J,358.3,34169,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34169,1,3,0)
 ;;=3^Enterocolitis Synd Induced by Food Protein
 ;;^UTILITY(U,$J,358.3,34169,1,4,0)
 ;;=4^K52.21
 ;;^UTILITY(U,$J,358.3,34169,2)
 ;;=^5138713
 ;;^UTILITY(U,$J,358.3,34170,0)
 ;;=K52.22^^105^1429^52
 ;;^UTILITY(U,$J,358.3,34170,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34170,1,3,0)
 ;;=3^Enterocolopathy Induced by Food Protein
 ;;^UTILITY(U,$J,358.3,34170,1,4,0)
 ;;=4^K52.22
 ;;^UTILITY(U,$J,358.3,34170,2)
 ;;=^5138714
 ;;^UTILITY(U,$J,358.3,34171,0)
 ;;=K58.2^^105^1429^80
 ;;^UTILITY(U,$J,358.3,34171,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34171,1,3,0)
 ;;=3^Irritable Bowel Syndrome,Mixed
 ;;^UTILITY(U,$J,358.3,34171,1,4,0)
 ;;=4^K58.2
 ;;^UTILITY(U,$J,358.3,34171,2)
 ;;=^5138742
 ;;^UTILITY(U,$J,358.3,34172,0)
 ;;=K58.8^^105^1429^81
 ;;^UTILITY(U,$J,358.3,34172,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34172,1,3,0)
 ;;=3^Irritable Bowel Syndrome,Other
 ;;^UTILITY(U,$J,358.3,34172,1,4,0)
 ;;=4^K58.8
 ;;^UTILITY(U,$J,358.3,34172,2)
 ;;=^5138743
 ;;^UTILITY(U,$J,358.3,34173,0)
 ;;=K58.1^^105^1429^77
 ;;^UTILITY(U,$J,358.3,34173,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34173,1,3,0)
 ;;=3^Irritable Bowel Syndrome w/ Constipation
 ;;^UTILITY(U,$J,358.3,34173,1,4,0)
 ;;=4^K58.1
 ;;^UTILITY(U,$J,358.3,34173,2)
 ;;=^5138741
 ;;^UTILITY(U,$J,358.3,34174,0)
 ;;=K61.39^^105^1429^5
 ;;^UTILITY(U,$J,358.3,34174,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34174,1,3,0)
 ;;=3^Abscess,Ischiorectal NOS
 ;;^UTILITY(U,$J,358.3,34174,1,4,0)
 ;;=4^K61.39
 ;;^UTILITY(U,$J,358.3,34174,2)
 ;;=^5157385
 ;;^UTILITY(U,$J,358.3,34175,0)
 ;;=G43.A1^^105^1429^34
 ;;^UTILITY(U,$J,358.3,34175,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34175,1,3,0)
 ;;=3^Cyclical Vomiting,In Migraine,Intractable
 ;;^UTILITY(U,$J,358.3,34175,1,4,0)
 ;;=4^G43.A1
 ;;^UTILITY(U,$J,358.3,34175,2)
 ;;=^5003913
 ;;^UTILITY(U,$J,358.3,34176,0)
 ;;=G43.A0^^105^1429^35
 ;;^UTILITY(U,$J,358.3,34176,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34176,1,3,0)
 ;;=3^Cyclical Vomiting,In Migraine,Not intractable
 ;;^UTILITY(U,$J,358.3,34176,1,4,0)
 ;;=4^G43.A0
 ;;^UTILITY(U,$J,358.3,34176,2)
 ;;=^5003912
 ;;^UTILITY(U,$J,358.3,34177,0)
 ;;=R11.15^^105^1429^33
 ;;^UTILITY(U,$J,358.3,34177,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34177,1,3,0)
 ;;=3^Cyclical Vomiting Syndrome,Unrelated to Migraine
 ;;^UTILITY(U,$J,358.3,34177,1,4,0)
 ;;=4^R11.15
 ;;^UTILITY(U,$J,358.3,34177,2)
 ;;=^5158141
 ;;^UTILITY(U,$J,358.3,34178,0)
 ;;=K20.90^^105^1429^55
 ;;^UTILITY(U,$J,358.3,34178,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34178,1,3,0)
 ;;=3^Esophagitis w/o Bleeding,Unspec
 ;;^UTILITY(U,$J,358.3,34178,1,4,0)
 ;;=4^K20.90
 ;;^UTILITY(U,$J,358.3,34178,2)
 ;;=^5159212
 ;;^UTILITY(U,$J,358.3,34179,0)
 ;;=K20.91^^105^1429^54
 ;;^UTILITY(U,$J,358.3,34179,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34179,1,3,0)
 ;;=3^Esophagitis w/ Bleeding,Unspec
 ;;^UTILITY(U,$J,358.3,34179,1,4,0)
 ;;=4^K20.91
 ;;^UTILITY(U,$J,358.3,34179,2)
 ;;=^5159213
 ;;^UTILITY(U,$J,358.3,34180,0)
 ;;=A54.00^^105^1430^52
 ;;^UTILITY(U,$J,358.3,34180,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34180,1,3,0)
 ;;=3^Gonococcal Infection Lower Genitourinary Tract,Unspec
 ;;^UTILITY(U,$J,358.3,34180,1,4,0)
 ;;=4^A54.00
 ;;^UTILITY(U,$J,358.3,34180,2)
 ;;=^5000311
 ;;^UTILITY(U,$J,358.3,34181,0)
 ;;=A54.09^^105^1430^53
 ;;^UTILITY(U,$J,358.3,34181,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34181,1,3,0)
 ;;=3^Gonococcal Infection Lower Genitourinary Tract,Other
 ;;^UTILITY(U,$J,358.3,34181,1,4,0)
 ;;=4^A54.09
 ;;^UTILITY(U,$J,358.3,34181,2)
 ;;=^5000315
 ;;^UTILITY(U,$J,358.3,34182,0)
 ;;=A54.02^^105^1430^54
 ;;^UTILITY(U,$J,358.3,34182,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34182,1,3,0)
 ;;=3^Gonococcal Vulvovaginitis,Unspec
 ;;^UTILITY(U,$J,358.3,34182,1,4,0)
 ;;=4^A54.02
 ;;^UTILITY(U,$J,358.3,34182,2)
 ;;=^5000313
 ;;^UTILITY(U,$J,358.3,34183,0)
 ;;=A54.1^^105^1430^51
 ;;^UTILITY(U,$J,358.3,34183,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34183,1,3,0)
 ;;=3^Gonococcal Infection Lower GU Tract w/ Periureth & Acc Gland Abscess
 ;;^UTILITY(U,$J,358.3,34183,1,4,0)
 ;;=4^A54.1
 ;;^UTILITY(U,$J,358.3,34183,2)
 ;;=^5000316
 ;;^UTILITY(U,$J,358.3,34184,0)
 ;;=A54.01^^105^1430^50
 ;;^UTILITY(U,$J,358.3,34184,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34184,1,3,0)
 ;;=3^Gonococcal Cystitis & Urethritis,Unspec
 ;;^UTILITY(U,$J,358.3,34184,1,4,0)
 ;;=4^A54.01
 ;;^UTILITY(U,$J,358.3,34184,2)
 ;;=^5000312
 ;;^UTILITY(U,$J,358.3,34185,0)
 ;;=B37.49^^105^1430^14
 ;;^UTILITY(U,$J,358.3,34185,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34185,1,3,0)
 ;;=3^Candidiasis Urogenital,Other
 ;;^UTILITY(U,$J,358.3,34185,1,4,0)
 ;;=4^B37.49
 ;;^UTILITY(U,$J,358.3,34185,2)
 ;;=^5000618
 ;;^UTILITY(U,$J,358.3,34186,0)
 ;;=B37.41^^105^1430^13
 ;;^UTILITY(U,$J,358.3,34186,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34186,1,3,0)
 ;;=3^Candidal Cystitis & Urethritis
 ;;^UTILITY(U,$J,358.3,34186,1,4,0)
 ;;=4^B37.41
 ;;^UTILITY(U,$J,358.3,34186,2)
 ;;=^5000616
 ;;^UTILITY(U,$J,358.3,34187,0)
 ;;=B37.42^^105^1430^12
 ;;^UTILITY(U,$J,358.3,34187,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34187,1,3,0)
 ;;=3^Candidal Balanitis
 ;;^UTILITY(U,$J,358.3,34187,1,4,0)
 ;;=4^B37.42
 ;;^UTILITY(U,$J,358.3,34187,2)
 ;;=^5000617
 ;;^UTILITY(U,$J,358.3,34188,0)
 ;;=A59.03^^105^1430^110
 ;;^UTILITY(U,$J,358.3,34188,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34188,1,3,0)
 ;;=3^Trichomonal Cystitis & Urethritis
 ;;^UTILITY(U,$J,358.3,34188,1,4,0)
 ;;=4^A59.03
 ;;^UTILITY(U,$J,358.3,34188,2)
 ;;=^5000349
 ;;^UTILITY(U,$J,358.3,34189,0)
 ;;=E87.6^^105^1430^63
 ;;^UTILITY(U,$J,358.3,34189,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34189,1,3,0)
 ;;=3^Hypokalemia
 ;;^UTILITY(U,$J,358.3,34189,1,4,0)
 ;;=4^E87.6
 ;;^UTILITY(U,$J,358.3,34189,2)
 ;;=^60610
 ;;^UTILITY(U,$J,358.3,34190,0)
 ;;=F52.0^^105^1430^62
 ;;^UTILITY(U,$J,358.3,34190,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34190,1,3,0)
 ;;=3^Hypoactive Sexual Desire Disorder
 ;;^UTILITY(U,$J,358.3,34190,1,4,0)
 ;;=4^F52.0
 ;;^UTILITY(U,$J,358.3,34190,2)
 ;;=^5003618
 ;;^UTILITY(U,$J,358.3,34191,0)
 ;;=F52.22^^105^1430^105
 ;;^UTILITY(U,$J,358.3,34191,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34191,1,3,0)
 ;;=3^Sexual Arousal Disorder,Female
 ;;^UTILITY(U,$J,358.3,34191,1,4,0)
 ;;=4^F52.22
 ;;^UTILITY(U,$J,358.3,34191,2)
 ;;=^5003621
 ;;^UTILITY(U,$J,358.3,34192,0)
 ;;=F52.8^^105^1430^106
 ;;^UTILITY(U,$J,358.3,34192,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34192,1,3,0)
 ;;=3^Sexual Dysfnct Not d/t Substance/Known Physiological Cond
 ;;^UTILITY(U,$J,358.3,34192,1,4,0)
 ;;=4^F52.8
 ;;^UTILITY(U,$J,358.3,34192,2)
 ;;=^5003624
 ;;^UTILITY(U,$J,358.3,34193,0)
 ;;=F52.21^^105^1430^35
 ;;^UTILITY(U,$J,358.3,34193,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34193,1,3,0)
 ;;=3^Erectile Disorder,Male (Psychogenic)
 ;;^UTILITY(U,$J,358.3,34193,1,4,0)
 ;;=4^F52.21
 ;;^UTILITY(U,$J,358.3,34193,2)
 ;;=^5003620
 ;;^UTILITY(U,$J,358.3,34194,0)
 ;;=I12.9^^105^1430^61
 ;;^UTILITY(U,$J,358.3,34194,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34194,1,3,0)
 ;;=3^Hypertensive Kidney Disease Chronic w/ Stg 1-4
 ;;^UTILITY(U,$J,358.3,34194,1,4,0)
 ;;=4^I12.9
 ;;^UTILITY(U,$J,358.3,34194,2)
 ;;=^5007066
 ;;^UTILITY(U,$J,358.3,34195,0)
 ;;=N04.9^^105^1430^78
 ;;^UTILITY(U,$J,358.3,34195,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34195,1,3,0)
 ;;=3^Nephrotic Syndrome w/ Unspec Morphologic Changes
 ;;^UTILITY(U,$J,358.3,34195,1,4,0)
 ;;=4^N04.9
 ;;^UTILITY(U,$J,358.3,34195,2)
 ;;=^5015540
 ;;^UTILITY(U,$J,358.3,34196,0)
 ;;=N02.9^^105^1430^55
 ;;^UTILITY(U,$J,358.3,34196,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34196,1,3,0)
 ;;=3^Hematuria w/ Unspec Morphologic Changes,Recurrent & Persistent
 ;;^UTILITY(U,$J,358.3,34196,1,4,0)
 ;;=4^N02.9
 ;;^UTILITY(U,$J,358.3,34196,2)
 ;;=^5015520
 ;;^UTILITY(U,$J,358.3,34197,0)
 ;;=N06.9^^105^1430^95
 ;;^UTILITY(U,$J,358.3,34197,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34197,1,3,0)
 ;;=3^Proteinuria Isolated w/ Unspec Morphologic Lesion
 ;;^UTILITY(U,$J,358.3,34197,1,4,0)
 ;;=4^N06.9
 ;;^UTILITY(U,$J,358.3,34197,2)
 ;;=^5015558
 ;;^UTILITY(U,$J,358.3,34198,0)
 ;;=N05.9^^105^1430^75
 ;;^UTILITY(U,$J,358.3,34198,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34198,1,3,0)
 ;;=3^Nephritic Syndrome w/ Unspec Morphologic Changes
 ;;^UTILITY(U,$J,358.3,34198,1,4,0)
 ;;=4^N05.9
 ;;^UTILITY(U,$J,358.3,34198,2)
 ;;=^5134086
 ;;^UTILITY(U,$J,358.3,34199,0)
 ;;=N07.9^^105^1430^77
 ;;^UTILITY(U,$J,358.3,34199,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34199,1,3,0)
 ;;=3^Nephropathy Hereditary w/ Unspec Morphologic Lesions
 ;;^UTILITY(U,$J,358.3,34199,1,4,0)
 ;;=4^N07.9
 ;;^UTILITY(U,$J,358.3,34199,2)
 ;;=^5015568
 ;;^UTILITY(U,$J,358.3,34200,0)
 ;;=N15.9^^105^1430^102
 ;;^UTILITY(U,$J,358.3,34200,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34200,1,3,0)
 ;;=3^Renal Tubulo-Interstitial Disease,Unspec
 ;;^UTILITY(U,$J,358.3,34200,1,4,0)
 ;;=4^N15.9
 ;;^UTILITY(U,$J,358.3,34200,2)
 ;;=^5015596
 ;;^UTILITY(U,$J,358.3,34201,0)
 ;;=N17.9^^105^1430^67
 ;;^UTILITY(U,$J,358.3,34201,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34201,1,3,0)
 ;;=3^Kidney Failure,Acute,Unspec
 ;;^UTILITY(U,$J,358.3,34201,1,4,0)
 ;;=4^N17.9
 ;;^UTILITY(U,$J,358.3,34201,2)
 ;;=^338532
 ;;^UTILITY(U,$J,358.3,34202,0)
 ;;=N19.^^105^1430^68
 ;;^UTILITY(U,$J,358.3,34202,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34202,1,3,0)
 ;;=3^Kidney Failure,Unspec
 ;;^UTILITY(U,$J,358.3,34202,1,4,0)
 ;;=4^N19.
 ;;^UTILITY(U,$J,358.3,34202,2)
 ;;=^5015607
 ;;^UTILITY(U,$J,358.3,34203,0)
 ;;=N11.0^^105^1430^99
 ;;^UTILITY(U,$J,358.3,34203,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34203,1,3,0)
 ;;=3^Pyelonephritis,Chronic Nonobstructive Reflux-Associated
 ;;^UTILITY(U,$J,358.3,34203,1,4,0)
 ;;=4^N11.0
 ;;^UTILITY(U,$J,358.3,34203,2)
 ;;=^5015571
 ;;^UTILITY(U,$J,358.3,34204,0)
 ;;=N10.^^105^1430^76
 ;;^UTILITY(U,$J,358.3,34204,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34204,1,3,0)
 ;;=3^Nephritis Acute Tubulo-Interstitial
 ;;^UTILITY(U,$J,358.3,34204,1,4,0)
 ;;=4^N10.
 ;;^UTILITY(U,$J,358.3,34204,2)
 ;;=^5015570
 ;;^UTILITY(U,$J,358.3,34205,0)
 ;;=N20.2^^105^1430^10
 ;;^UTILITY(U,$J,358.3,34205,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34205,1,3,0)
 ;;=3^Calculus Kidney w/ Calculus Ureter
 ;;^UTILITY(U,$J,358.3,34205,1,4,0)
 ;;=4^N20.2
 ;;^UTILITY(U,$J,358.3,34205,2)
 ;;=^5015609
 ;;^UTILITY(U,$J,358.3,34206,0)
 ;;=N20.0^^105^1430^9
 ;;^UTILITY(U,$J,358.3,34206,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34206,1,3,0)
 ;;=3^Calculus Kidney
 ;;^UTILITY(U,$J,358.3,34206,1,4,0)
 ;;=4^N20.0
 ;;^UTILITY(U,$J,358.3,34206,2)
 ;;=^67056
 ;;^UTILITY(U,$J,358.3,34207,0)
 ;;=N29.^^105^1430^66
 ;;^UTILITY(U,$J,358.3,34207,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34207,1,3,0)
 ;;=3^Kidney & Ureter Disorders in Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,34207,1,4,0)
 ;;=4^N29.
 ;;^UTILITY(U,$J,358.3,34207,2)
 ;;=^5015631
 ;;^UTILITY(U,$J,358.3,34208,0)
 ;;=N28.9^^105^1430^65
 ;;^UTILITY(U,$J,358.3,34208,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34208,1,3,0)
 ;;=3^Kidney & Ureter Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,34208,1,4,0)
 ;;=4^N28.9
 ;;^UTILITY(U,$J,358.3,34208,2)
 ;;=^5015630
 ;;^UTILITY(U,$J,358.3,34209,0)
 ;;=N30.01^^105^1430^24
 ;;^UTILITY(U,$J,358.3,34209,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34209,1,3,0)
 ;;=3^Cystitis w/ Hematuria,Acute
 ;;^UTILITY(U,$J,358.3,34209,1,4,0)
 ;;=4^N30.01
 ;;^UTILITY(U,$J,358.3,34209,2)
 ;;=^5015633
 ;;^UTILITY(U,$J,358.3,34210,0)
 ;;=N30.00^^105^1430^26
 ;;^UTILITY(U,$J,358.3,34210,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34210,1,3,0)
 ;;=3^Cystitis w/o Hematuria,Acute
 ;;^UTILITY(U,$J,358.3,34210,1,4,0)
 ;;=4^N30.00
 ;;^UTILITY(U,$J,358.3,34210,2)
 ;;=^5015632
 ;;^UTILITY(U,$J,358.3,34211,0)
 ;;=N30.41^^105^1430^25
 ;;^UTILITY(U,$J,358.3,34211,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34211,1,3,0)
 ;;=3^Cystitis w/ Hematuria,Irradiation
 ;;^UTILITY(U,$J,358.3,34211,1,4,0)
 ;;=4^N30.41
 ;;^UTILITY(U,$J,358.3,34211,2)
 ;;=^5015640
 ;;^UTILITY(U,$J,358.3,34212,0)
 ;;=N30.40^^105^1430^27
 ;;^UTILITY(U,$J,358.3,34212,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34212,1,3,0)
 ;;=3^Cystitis w/o Hematuria,Irradiation
 ;;^UTILITY(U,$J,358.3,34212,1,4,0)
 ;;=4^N30.40
 ;;^UTILITY(U,$J,358.3,34212,2)
 ;;=^5015639
 ;;^UTILITY(U,$J,358.3,34213,0)
 ;;=N32.0^^105^1430^8
 ;;^UTILITY(U,$J,358.3,34213,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34213,1,3,0)
 ;;=3^Bladder-Neck Obstruction
 ;;^UTILITY(U,$J,358.3,34213,1,4,0)
 ;;=4^N32.0
 ;;^UTILITY(U,$J,358.3,34213,2)
 ;;=^5015649
 ;;^UTILITY(U,$J,358.3,34214,0)
 ;;=N31.9^^105^1430^79
 ;;^UTILITY(U,$J,358.3,34214,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34214,1,3,0)
 ;;=3^Neurogenic Bladder Dysfunction,Unspec
 ;;^UTILITY(U,$J,358.3,34214,1,4,0)
 ;;=4^N31.9
 ;;^UTILITY(U,$J,358.3,34214,2)
 ;;=^5015648
 ;;^UTILITY(U,$J,358.3,34215,0)
 ;;=N31.1^^105^1430^80
 ;;^UTILITY(U,$J,358.3,34215,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34215,1,3,0)
 ;;=3^Neuropathic Bladder,Reflex NEC
 ;;^UTILITY(U,$J,358.3,34215,1,4,0)
 ;;=4^N31.1
 ;;^UTILITY(U,$J,358.3,34215,2)
 ;;=^5015645
 ;;^UTILITY(U,$J,358.3,34216,0)
 ;;=N32.89^^105^1430^7
 ;;^UTILITY(U,$J,358.3,34216,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34216,1,3,0)
 ;;=3^Bladder Disorders,Other Spec
 ;;^UTILITY(U,$J,358.3,34216,1,4,0)
 ;;=4^N32.89
 ;;^UTILITY(U,$J,358.3,34216,2)
 ;;=^87989
 ;;^UTILITY(U,$J,358.3,34217,0)
 ;;=N33.^^105^1430^6
 ;;^UTILITY(U,$J,358.3,34217,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34217,1,3,0)
 ;;=3^Bladder Disorders,Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,34217,1,4,0)
 ;;=4^N33.
 ;;^UTILITY(U,$J,358.3,34217,2)
 ;;=^5015654
 ;;^UTILITY(U,$J,358.3,34218,0)
 ;;=N34.2^^105^1430^115
 ;;^UTILITY(U,$J,358.3,34218,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34218,1,3,0)
 ;;=3^Urethritis
 ;;^UTILITY(U,$J,358.3,34218,1,4,0)
 ;;=4^N34.2
 ;;^UTILITY(U,$J,358.3,34218,2)
 ;;=^88231
 ;;^UTILITY(U,$J,358.3,34219,0)
 ;;=N34.1^^105^1430^116
 ;;^UTILITY(U,$J,358.3,34219,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34219,1,3,0)
 ;;=3^Urethritis,Nonspec
 ;;^UTILITY(U,$J,358.3,34219,1,4,0)
 ;;=4^N34.1
 ;;^UTILITY(U,$J,358.3,34219,2)
 ;;=^5015655
 ;;^UTILITY(U,$J,358.3,34220,0)
 ;;=N39.0^^105^1430^120
 ;;^UTILITY(U,$J,358.3,34220,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34220,1,3,0)
 ;;=3^Urinary Tract Infection,Site Not Spec
 ;;^UTILITY(U,$J,358.3,34220,1,4,0)
 ;;=4^N39.0
 ;;^UTILITY(U,$J,358.3,34220,2)
 ;;=^124436
 ;;^UTILITY(U,$J,358.3,34221,0)
 ;;=N31.0^^105^1430^81
 ;;^UTILITY(U,$J,358.3,34221,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34221,1,3,0)
 ;;=3^Neuropathic Bladder,Uninhibited NEC
 ;;^UTILITY(U,$J,358.3,34221,1,4,0)
 ;;=4^N31.0
 ;;^UTILITY(U,$J,358.3,34221,2)
 ;;=^5015644
 ;;^UTILITY(U,$J,358.3,34222,0)
 ;;=R31.9^^105^1430^60
 ;;^UTILITY(U,$J,358.3,34222,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34222,1,3,0)
 ;;=3^Hematuria,Unspec
 ;;^UTILITY(U,$J,358.3,34222,1,4,0)
 ;;=4^R31.9
 ;;^UTILITY(U,$J,358.3,34222,2)
 ;;=^5019328
 ;;^UTILITY(U,$J,358.3,34223,0)
 ;;=R31.0^^105^1430^57
 ;;^UTILITY(U,$J,358.3,34223,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34223,1,3,0)
 ;;=3^Hematuria,Gross
 ;;^UTILITY(U,$J,358.3,34223,1,4,0)
 ;;=4^R31.0
 ;;^UTILITY(U,$J,358.3,34223,2)
 ;;=^5019325
 ;;^UTILITY(U,$J,358.3,34224,0)
 ;;=R31.1^^105^1430^56
 ;;^UTILITY(U,$J,358.3,34224,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34224,1,3,0)
 ;;=3^Hematuria,Benign Essential Microscopic
 ;;^UTILITY(U,$J,358.3,34224,1,4,0)
 ;;=4^R31.1
 ;;^UTILITY(U,$J,358.3,34224,2)
 ;;=^5019326
 ;;^UTILITY(U,$J,358.3,34225,0)
 ;;=N40.0^^105^1430^3
 ;;^UTILITY(U,$J,358.3,34225,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34225,1,3,0)
 ;;=3^BPH w/o Lower Urinary Tract Symptoms
 ;;^UTILITY(U,$J,358.3,34225,1,4,0)
 ;;=4^N40.0
 ;;^UTILITY(U,$J,358.3,34225,2)
 ;;=^5015689
 ;;^UTILITY(U,$J,358.3,34226,0)
 ;;=N40.1^^105^1430^2
 ;;^UTILITY(U,$J,358.3,34226,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34226,1,3,0)
 ;;=3^BPH w/ Lower Urinary Tract Symptoms
 ;;^UTILITY(U,$J,358.3,34226,1,4,0)
 ;;=4^N40.1
 ;;^UTILITY(U,$J,358.3,34226,2)
 ;;=^5015690
 ;;^UTILITY(U,$J,358.3,34227,0)
 ;;=N41.0^^105^1430^91
 ;;^UTILITY(U,$J,358.3,34227,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34227,1,3,0)
 ;;=3^Prostatitis,Acute
 ;;^UTILITY(U,$J,358.3,34227,1,4,0)
 ;;=4^N41.0
 ;;^UTILITY(U,$J,358.3,34227,2)
 ;;=^259106
 ;;^UTILITY(U,$J,358.3,34228,0)
 ;;=N45.1^^105^1430^33
 ;;^UTILITY(U,$J,358.3,34228,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34228,1,3,0)
 ;;=3^Epididymitis
 ;;^UTILITY(U,$J,358.3,34228,1,4,0)
 ;;=4^N45.1
 ;;^UTILITY(U,$J,358.3,34228,2)
 ;;=^41396
 ;;^UTILITY(U,$J,358.3,34229,0)
 ;;=N45.2^^105^1430^83
 ;;^UTILITY(U,$J,358.3,34229,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34229,1,3,0)
 ;;=3^Orchitis
 ;;^UTILITY(U,$J,358.3,34229,1,4,0)
 ;;=4^N45.2
 ;;^UTILITY(U,$J,358.3,34229,2)
 ;;=^86174
 ;;^UTILITY(U,$J,358.3,34230,0)
 ;;=N45.3^^105^1430^34
 ;;^UTILITY(U,$J,358.3,34230,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34230,1,3,0)
 ;;=3^Epididymo-orchitis
 ;;^UTILITY(U,$J,358.3,34230,1,4,0)
 ;;=4^N45.3
 ;;^UTILITY(U,$J,358.3,34230,2)
 ;;=^5015707
 ;;^UTILITY(U,$J,358.3,34231,0)
 ;;=N47.2^^105^1430^85
 ;;^UTILITY(U,$J,358.3,34231,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,34231,1,3,0)
 ;;=3^Paraphimosis
 ;;^UTILITY(U,$J,358.3,34231,1,4,0)
 ;;=4^N47.2