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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0DM 19793 printed Sep 23, 2025@19:22:35 Page 2
IBDEI0DM ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,34163,1,4,0)
+2 ;;=4^K62.5
+3 ;;^UTILITY(U,$J,358.3,34163,2)
+4 ;;=^5008755
+5 ;;^UTILITY(U,$J,358.3,34164,0)
+6 ;;=K92.1^^105^1429^82
+7 ;;^UTILITY(U,$J,358.3,34164,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,34164,1,3,0)
+10 ;;=3^Melena/Hematochezia
+11 ;;^UTILITY(U,$J,358.3,34164,1,4,0)
+12 ;;=4^K92.1
+13 ;;^UTILITY(U,$J,358.3,34164,2)
+14 ;;=^5008914
+15 ;;^UTILITY(U,$J,358.3,34165,0)
+16 ;;=R19.5^^105^1429^56
+17 ;;^UTILITY(U,$J,358.3,34165,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,34165,1,3,0)
+20 ;;=3^Fecal Abnormalities NEC
+21 ;;^UTILITY(U,$J,358.3,34165,1,4,0)
+22 ;;=4^R19.5
+23 ;;^UTILITY(U,$J,358.3,34165,2)
+24 ;;=^5019274
+25 ;;^UTILITY(U,$J,358.3,34166,0)
+26 ;;=E53.8^^105^1429^92
+27 ;;^UTILITY(U,$J,358.3,34166,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,34166,1,3,0)
+30 ;;=3^Vitamin B12 Deficiency
+31 ;;^UTILITY(U,$J,358.3,34166,1,4,0)
+32 ;;=4^E53.8
+33 ;;^UTILITY(U,$J,358.3,34166,2)
+34 ;;=^5002797
+35 ;;^UTILITY(U,$J,358.3,34167,0)
+36 ;;=K59.04^^105^1429^20
+37 ;;^UTILITY(U,$J,358.3,34167,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,34167,1,3,0)
+40 ;;=3^Constipation,Chronic Idiopathic
+41 ;;^UTILITY(U,$J,358.3,34167,1,4,0)
+42 ;;=4^K59.04
+43 ;;^UTILITY(U,$J,358.3,34167,2)
+44 ;;=^7148177
+45 ;;^UTILITY(U,$J,358.3,34168,0)
+46 ;;=K59.03^^105^1429^21
+47 ;;^UTILITY(U,$J,358.3,34168,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,34168,1,3,0)
+50 ;;=3^Constipation,Drug Induced
+51 ;;^UTILITY(U,$J,358.3,34168,1,4,0)
+52 ;;=4^K59.03
+53 ;;^UTILITY(U,$J,358.3,34168,2)
+54 ;;=^5138744
+55 ;;^UTILITY(U,$J,358.3,34169,0)
+56 ;;=K52.21^^105^1429^51
+57 ;;^UTILITY(U,$J,358.3,34169,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,34169,1,3,0)
+60 ;;=3^Enterocolitis Synd Induced by Food Protein
+61 ;;^UTILITY(U,$J,358.3,34169,1,4,0)
+62 ;;=4^K52.21
+63 ;;^UTILITY(U,$J,358.3,34169,2)
+64 ;;=^5138713
+65 ;;^UTILITY(U,$J,358.3,34170,0)
+66 ;;=K52.22^^105^1429^52
+67 ;;^UTILITY(U,$J,358.3,34170,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,34170,1,3,0)
+70 ;;=3^Enterocolopathy Induced by Food Protein
+71 ;;^UTILITY(U,$J,358.3,34170,1,4,0)
+72 ;;=4^K52.22
+73 ;;^UTILITY(U,$J,358.3,34170,2)
+74 ;;=^5138714
+75 ;;^UTILITY(U,$J,358.3,34171,0)
+76 ;;=K58.2^^105^1429^80
+77 ;;^UTILITY(U,$J,358.3,34171,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,34171,1,3,0)
+80 ;;=3^Irritable Bowel Syndrome,Mixed
+81 ;;^UTILITY(U,$J,358.3,34171,1,4,0)
+82 ;;=4^K58.2
+83 ;;^UTILITY(U,$J,358.3,34171,2)
+84 ;;=^5138742
+85 ;;^UTILITY(U,$J,358.3,34172,0)
+86 ;;=K58.8^^105^1429^81
+87 ;;^UTILITY(U,$J,358.3,34172,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,34172,1,3,0)
+90 ;;=3^Irritable Bowel Syndrome,Other
+91 ;;^UTILITY(U,$J,358.3,34172,1,4,0)
+92 ;;=4^K58.8
+93 ;;^UTILITY(U,$J,358.3,34172,2)
+94 ;;=^5138743
+95 ;;^UTILITY(U,$J,358.3,34173,0)
+96 ;;=K58.1^^105^1429^77
+97 ;;^UTILITY(U,$J,358.3,34173,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,34173,1,3,0)
+100 ;;=3^Irritable Bowel Syndrome w/ Constipation
+101 ;;^UTILITY(U,$J,358.3,34173,1,4,0)
+102 ;;=4^K58.1
+103 ;;^UTILITY(U,$J,358.3,34173,2)
+104 ;;=^5138741
+105 ;;^UTILITY(U,$J,358.3,34174,0)
+106 ;;=K61.39^^105^1429^5
+107 ;;^UTILITY(U,$J,358.3,34174,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,34174,1,3,0)
+110 ;;=3^Abscess,Ischiorectal NOS
+111 ;;^UTILITY(U,$J,358.3,34174,1,4,0)
+112 ;;=4^K61.39
+113 ;;^UTILITY(U,$J,358.3,34174,2)
+114 ;;=^5157385
+115 ;;^UTILITY(U,$J,358.3,34175,0)
+116 ;;=G43.A1^^105^1429^34
+117 ;;^UTILITY(U,$J,358.3,34175,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,34175,1,3,0)
+120 ;;=3^Cyclical Vomiting,In Migraine,Intractable
+121 ;;^UTILITY(U,$J,358.3,34175,1,4,0)
+122 ;;=4^G43.A1
+123 ;;^UTILITY(U,$J,358.3,34175,2)
+124 ;;=^5003913
+125 ;;^UTILITY(U,$J,358.3,34176,0)
+126 ;;=G43.A0^^105^1429^35
+127 ;;^UTILITY(U,$J,358.3,34176,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,34176,1,3,0)
+130 ;;=3^Cyclical Vomiting,In Migraine,Not intractable
+131 ;;^UTILITY(U,$J,358.3,34176,1,4,0)
+132 ;;=4^G43.A0
+133 ;;^UTILITY(U,$J,358.3,34176,2)
+134 ;;=^5003912
+135 ;;^UTILITY(U,$J,358.3,34177,0)
+136 ;;=R11.15^^105^1429^33
+137 ;;^UTILITY(U,$J,358.3,34177,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,34177,1,3,0)
+140 ;;=3^Cyclical Vomiting Syndrome,Unrelated to Migraine
+141 ;;^UTILITY(U,$J,358.3,34177,1,4,0)
+142 ;;=4^R11.15
+143 ;;^UTILITY(U,$J,358.3,34177,2)
+144 ;;=^5158141
+145 ;;^UTILITY(U,$J,358.3,34178,0)
+146 ;;=K20.90^^105^1429^55
+147 ;;^UTILITY(U,$J,358.3,34178,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,34178,1,3,0)
+150 ;;=3^Esophagitis w/o Bleeding,Unspec
+151 ;;^UTILITY(U,$J,358.3,34178,1,4,0)
+152 ;;=4^K20.90
+153 ;;^UTILITY(U,$J,358.3,34178,2)
+154 ;;=^5159212
+155 ;;^UTILITY(U,$J,358.3,34179,0)
+156 ;;=K20.91^^105^1429^54
+157 ;;^UTILITY(U,$J,358.3,34179,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,34179,1,3,0)
+160 ;;=3^Esophagitis w/ Bleeding,Unspec
+161 ;;^UTILITY(U,$J,358.3,34179,1,4,0)
+162 ;;=4^K20.91
+163 ;;^UTILITY(U,$J,358.3,34179,2)
+164 ;;=^5159213
+165 ;;^UTILITY(U,$J,358.3,34180,0)
+166 ;;=A54.00^^105^1430^52
+167 ;;^UTILITY(U,$J,358.3,34180,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,34180,1,3,0)
+170 ;;=3^Gonococcal Infection Lower Genitourinary Tract,Unspec
+171 ;;^UTILITY(U,$J,358.3,34180,1,4,0)
+172 ;;=4^A54.00
+173 ;;^UTILITY(U,$J,358.3,34180,2)
+174 ;;=^5000311
+175 ;;^UTILITY(U,$J,358.3,34181,0)
+176 ;;=A54.09^^105^1430^53
+177 ;;^UTILITY(U,$J,358.3,34181,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,34181,1,3,0)
+180 ;;=3^Gonococcal Infection Lower Genitourinary Tract,Other
+181 ;;^UTILITY(U,$J,358.3,34181,1,4,0)
+182 ;;=4^A54.09
+183 ;;^UTILITY(U,$J,358.3,34181,2)
+184 ;;=^5000315
+185 ;;^UTILITY(U,$J,358.3,34182,0)
+186 ;;=A54.02^^105^1430^54
+187 ;;^UTILITY(U,$J,358.3,34182,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,34182,1,3,0)
+190 ;;=3^Gonococcal Vulvovaginitis,Unspec
+191 ;;^UTILITY(U,$J,358.3,34182,1,4,0)
+192 ;;=4^A54.02
+193 ;;^UTILITY(U,$J,358.3,34182,2)
+194 ;;=^5000313
+195 ;;^UTILITY(U,$J,358.3,34183,0)
+196 ;;=A54.1^^105^1430^51
+197 ;;^UTILITY(U,$J,358.3,34183,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,34183,1,3,0)
+200 ;;=3^Gonococcal Infection Lower GU Tract w/ Periureth & Acc Gland Abscess
+201 ;;^UTILITY(U,$J,358.3,34183,1,4,0)
+202 ;;=4^A54.1
+203 ;;^UTILITY(U,$J,358.3,34183,2)
+204 ;;=^5000316
+205 ;;^UTILITY(U,$J,358.3,34184,0)
+206 ;;=A54.01^^105^1430^50
+207 ;;^UTILITY(U,$J,358.3,34184,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,34184,1,3,0)
+210 ;;=3^Gonococcal Cystitis & Urethritis,Unspec
+211 ;;^UTILITY(U,$J,358.3,34184,1,4,0)
+212 ;;=4^A54.01
+213 ;;^UTILITY(U,$J,358.3,34184,2)
+214 ;;=^5000312
+215 ;;^UTILITY(U,$J,358.3,34185,0)
+216 ;;=B37.49^^105^1430^14
+217 ;;^UTILITY(U,$J,358.3,34185,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,34185,1,3,0)
+220 ;;=3^Candidiasis Urogenital,Other
+221 ;;^UTILITY(U,$J,358.3,34185,1,4,0)
+222 ;;=4^B37.49
+223 ;;^UTILITY(U,$J,358.3,34185,2)
+224 ;;=^5000618
+225 ;;^UTILITY(U,$J,358.3,34186,0)
+226 ;;=B37.41^^105^1430^13
+227 ;;^UTILITY(U,$J,358.3,34186,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,34186,1,3,0)
+230 ;;=3^Candidal Cystitis & Urethritis
+231 ;;^UTILITY(U,$J,358.3,34186,1,4,0)
+232 ;;=4^B37.41
+233 ;;^UTILITY(U,$J,358.3,34186,2)
+234 ;;=^5000616
+235 ;;^UTILITY(U,$J,358.3,34187,0)
+236 ;;=B37.42^^105^1430^12
+237 ;;^UTILITY(U,$J,358.3,34187,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,34187,1,3,0)
+240 ;;=3^Candidal Balanitis
+241 ;;^UTILITY(U,$J,358.3,34187,1,4,0)
+242 ;;=4^B37.42
+243 ;;^UTILITY(U,$J,358.3,34187,2)
+244 ;;=^5000617
+245 ;;^UTILITY(U,$J,358.3,34188,0)
+246 ;;=A59.03^^105^1430^110
+247 ;;^UTILITY(U,$J,358.3,34188,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,34188,1,3,0)
+250 ;;=3^Trichomonal Cystitis & Urethritis
+251 ;;^UTILITY(U,$J,358.3,34188,1,4,0)
+252 ;;=4^A59.03
+253 ;;^UTILITY(U,$J,358.3,34188,2)
+254 ;;=^5000349
+255 ;;^UTILITY(U,$J,358.3,34189,0)
+256 ;;=E87.6^^105^1430^63
+257 ;;^UTILITY(U,$J,358.3,34189,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,34189,1,3,0)
+260 ;;=3^Hypokalemia
+261 ;;^UTILITY(U,$J,358.3,34189,1,4,0)
+262 ;;=4^E87.6
+263 ;;^UTILITY(U,$J,358.3,34189,2)
+264 ;;=^60610
+265 ;;^UTILITY(U,$J,358.3,34190,0)
+266 ;;=F52.0^^105^1430^62
+267 ;;^UTILITY(U,$J,358.3,34190,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,34190,1,3,0)
+270 ;;=3^Hypoactive Sexual Desire Disorder
+271 ;;^UTILITY(U,$J,358.3,34190,1,4,0)
+272 ;;=4^F52.0
+273 ;;^UTILITY(U,$J,358.3,34190,2)
+274 ;;=^5003618
+275 ;;^UTILITY(U,$J,358.3,34191,0)
+276 ;;=F52.22^^105^1430^105
+277 ;;^UTILITY(U,$J,358.3,34191,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,34191,1,3,0)
+280 ;;=3^Sexual Arousal Disorder,Female
+281 ;;^UTILITY(U,$J,358.3,34191,1,4,0)
+282 ;;=4^F52.22
+283 ;;^UTILITY(U,$J,358.3,34191,2)
+284 ;;=^5003621
+285 ;;^UTILITY(U,$J,358.3,34192,0)
+286 ;;=F52.8^^105^1430^106
+287 ;;^UTILITY(U,$J,358.3,34192,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,34192,1,3,0)
+290 ;;=3^Sexual Dysfnct Not d/t Substance/Known Physiological Cond
+291 ;;^UTILITY(U,$J,358.3,34192,1,4,0)
+292 ;;=4^F52.8
+293 ;;^UTILITY(U,$J,358.3,34192,2)
+294 ;;=^5003624
+295 ;;^UTILITY(U,$J,358.3,34193,0)
+296 ;;=F52.21^^105^1430^35
+297 ;;^UTILITY(U,$J,358.3,34193,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,34193,1,3,0)
+300 ;;=3^Erectile Disorder,Male (Psychogenic)
+301 ;;^UTILITY(U,$J,358.3,34193,1,4,0)
+302 ;;=4^F52.21
+303 ;;^UTILITY(U,$J,358.3,34193,2)
+304 ;;=^5003620
+305 ;;^UTILITY(U,$J,358.3,34194,0)
+306 ;;=I12.9^^105^1430^61
+307 ;;^UTILITY(U,$J,358.3,34194,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,34194,1,3,0)
+310 ;;=3^Hypertensive Kidney Disease Chronic w/ Stg 1-4
+311 ;;^UTILITY(U,$J,358.3,34194,1,4,0)
+312 ;;=4^I12.9
+313 ;;^UTILITY(U,$J,358.3,34194,2)
+314 ;;=^5007066
+315 ;;^UTILITY(U,$J,358.3,34195,0)
+316 ;;=N04.9^^105^1430^78
+317 ;;^UTILITY(U,$J,358.3,34195,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,34195,1,3,0)
+320 ;;=3^Nephrotic Syndrome w/ Unspec Morphologic Changes
+321 ;;^UTILITY(U,$J,358.3,34195,1,4,0)
+322 ;;=4^N04.9
+323 ;;^UTILITY(U,$J,358.3,34195,2)
+324 ;;=^5015540
+325 ;;^UTILITY(U,$J,358.3,34196,0)
+326 ;;=N02.9^^105^1430^55
+327 ;;^UTILITY(U,$J,358.3,34196,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,34196,1,3,0)
+330 ;;=3^Hematuria w/ Unspec Morphologic Changes,Recurrent & Persistent
+331 ;;^UTILITY(U,$J,358.3,34196,1,4,0)
+332 ;;=4^N02.9
+333 ;;^UTILITY(U,$J,358.3,34196,2)
+334 ;;=^5015520
+335 ;;^UTILITY(U,$J,358.3,34197,0)
+336 ;;=N06.9^^105^1430^95
+337 ;;^UTILITY(U,$J,358.3,34197,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,34197,1,3,0)
+340 ;;=3^Proteinuria Isolated w/ Unspec Morphologic Lesion
+341 ;;^UTILITY(U,$J,358.3,34197,1,4,0)
+342 ;;=4^N06.9
+343 ;;^UTILITY(U,$J,358.3,34197,2)
+344 ;;=^5015558
+345 ;;^UTILITY(U,$J,358.3,34198,0)
+346 ;;=N05.9^^105^1430^75
+347 ;;^UTILITY(U,$J,358.3,34198,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,34198,1,3,0)
+350 ;;=3^Nephritic Syndrome w/ Unspec Morphologic Changes
+351 ;;^UTILITY(U,$J,358.3,34198,1,4,0)
+352 ;;=4^N05.9
+353 ;;^UTILITY(U,$J,358.3,34198,2)
+354 ;;=^5134086
+355 ;;^UTILITY(U,$J,358.3,34199,0)
+356 ;;=N07.9^^105^1430^77
+357 ;;^UTILITY(U,$J,358.3,34199,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,34199,1,3,0)
+360 ;;=3^Nephropathy Hereditary w/ Unspec Morphologic Lesions
+361 ;;^UTILITY(U,$J,358.3,34199,1,4,0)
+362 ;;=4^N07.9
+363 ;;^UTILITY(U,$J,358.3,34199,2)
+364 ;;=^5015568
+365 ;;^UTILITY(U,$J,358.3,34200,0)
+366 ;;=N15.9^^105^1430^102
+367 ;;^UTILITY(U,$J,358.3,34200,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,34200,1,3,0)
+370 ;;=3^Renal Tubulo-Interstitial Disease,Unspec
+371 ;;^UTILITY(U,$J,358.3,34200,1,4,0)
+372 ;;=4^N15.9
+373 ;;^UTILITY(U,$J,358.3,34200,2)
+374 ;;=^5015596
+375 ;;^UTILITY(U,$J,358.3,34201,0)
+376 ;;=N17.9^^105^1430^67
+377 ;;^UTILITY(U,$J,358.3,34201,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,34201,1,3,0)
+380 ;;=3^Kidney Failure,Acute,Unspec
+381 ;;^UTILITY(U,$J,358.3,34201,1,4,0)
+382 ;;=4^N17.9
+383 ;;^UTILITY(U,$J,358.3,34201,2)
+384 ;;=^338532
+385 ;;^UTILITY(U,$J,358.3,34202,0)
+386 ;;=N19.^^105^1430^68
+387 ;;^UTILITY(U,$J,358.3,34202,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,34202,1,3,0)
+390 ;;=3^Kidney Failure,Unspec
+391 ;;^UTILITY(U,$J,358.3,34202,1,4,0)
+392 ;;=4^N19.
+393 ;;^UTILITY(U,$J,358.3,34202,2)
+394 ;;=^5015607
+395 ;;^UTILITY(U,$J,358.3,34203,0)
+396 ;;=N11.0^^105^1430^99
+397 ;;^UTILITY(U,$J,358.3,34203,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,34203,1,3,0)
+400 ;;=3^Pyelonephritis,Chronic Nonobstructive Reflux-Associated
+401 ;;^UTILITY(U,$J,358.3,34203,1,4,0)
+402 ;;=4^N11.0
+403 ;;^UTILITY(U,$J,358.3,34203,2)
+404 ;;=^5015571
+405 ;;^UTILITY(U,$J,358.3,34204,0)
+406 ;;=N10.^^105^1430^76
+407 ;;^UTILITY(U,$J,358.3,34204,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,34204,1,3,0)
+410 ;;=3^Nephritis Acute Tubulo-Interstitial
+411 ;;^UTILITY(U,$J,358.3,34204,1,4,0)
+412 ;;=4^N10.
+413 ;;^UTILITY(U,$J,358.3,34204,2)
+414 ;;=^5015570
+415 ;;^UTILITY(U,$J,358.3,34205,0)
+416 ;;=N20.2^^105^1430^10
+417 ;;^UTILITY(U,$J,358.3,34205,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,34205,1,3,0)
+420 ;;=3^Calculus Kidney w/ Calculus Ureter
+421 ;;^UTILITY(U,$J,358.3,34205,1,4,0)
+422 ;;=4^N20.2
+423 ;;^UTILITY(U,$J,358.3,34205,2)
+424 ;;=^5015609
+425 ;;^UTILITY(U,$J,358.3,34206,0)
+426 ;;=N20.0^^105^1430^9
+427 ;;^UTILITY(U,$J,358.3,34206,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,34206,1,3,0)
+430 ;;=3^Calculus Kidney
+431 ;;^UTILITY(U,$J,358.3,34206,1,4,0)
+432 ;;=4^N20.0
+433 ;;^UTILITY(U,$J,358.3,34206,2)
+434 ;;=^67056
+435 ;;^UTILITY(U,$J,358.3,34207,0)
+436 ;;=N29.^^105^1430^66
+437 ;;^UTILITY(U,$J,358.3,34207,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,34207,1,3,0)
+440 ;;=3^Kidney & Ureter Disorders in Diseases Classified Elsewhere
+441 ;;^UTILITY(U,$J,358.3,34207,1,4,0)
+442 ;;=4^N29.
+443 ;;^UTILITY(U,$J,358.3,34207,2)
+444 ;;=^5015631
+445 ;;^UTILITY(U,$J,358.3,34208,0)
+446 ;;=N28.9^^105^1430^65
+447 ;;^UTILITY(U,$J,358.3,34208,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,34208,1,3,0)
+450 ;;=3^Kidney & Ureter Disorder,Unspec
+451 ;;^UTILITY(U,$J,358.3,34208,1,4,0)
+452 ;;=4^N28.9
+453 ;;^UTILITY(U,$J,358.3,34208,2)
+454 ;;=^5015630
+455 ;;^UTILITY(U,$J,358.3,34209,0)
+456 ;;=N30.01^^105^1430^24
+457 ;;^UTILITY(U,$J,358.3,34209,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,34209,1,3,0)
+460 ;;=3^Cystitis w/ Hematuria,Acute
+461 ;;^UTILITY(U,$J,358.3,34209,1,4,0)
+462 ;;=4^N30.01
+463 ;;^UTILITY(U,$J,358.3,34209,2)
+464 ;;=^5015633
+465 ;;^UTILITY(U,$J,358.3,34210,0)
+466 ;;=N30.00^^105^1430^26
+467 ;;^UTILITY(U,$J,358.3,34210,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,34210,1,3,0)
+470 ;;=3^Cystitis w/o Hematuria,Acute
+471 ;;^UTILITY(U,$J,358.3,34210,1,4,0)
+472 ;;=4^N30.00
+473 ;;^UTILITY(U,$J,358.3,34210,2)
+474 ;;=^5015632
+475 ;;^UTILITY(U,$J,358.3,34211,0)
+476 ;;=N30.41^^105^1430^25
+477 ;;^UTILITY(U,$J,358.3,34211,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,34211,1,3,0)
+480 ;;=3^Cystitis w/ Hematuria,Irradiation
+481 ;;^UTILITY(U,$J,358.3,34211,1,4,0)
+482 ;;=4^N30.41
+483 ;;^UTILITY(U,$J,358.3,34211,2)
+484 ;;=^5015640
+485 ;;^UTILITY(U,$J,358.3,34212,0)
+486 ;;=N30.40^^105^1430^27
+487 ;;^UTILITY(U,$J,358.3,34212,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,34212,1,3,0)
+490 ;;=3^Cystitis w/o Hematuria,Irradiation
+491 ;;^UTILITY(U,$J,358.3,34212,1,4,0)
+492 ;;=4^N30.40
+493 ;;^UTILITY(U,$J,358.3,34212,2)
+494 ;;=^5015639
+495 ;;^UTILITY(U,$J,358.3,34213,0)
+496 ;;=N32.0^^105^1430^8
+497 ;;^UTILITY(U,$J,358.3,34213,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,34213,1,3,0)
+500 ;;=3^Bladder-Neck Obstruction
+501 ;;^UTILITY(U,$J,358.3,34213,1,4,0)
+502 ;;=4^N32.0
+503 ;;^UTILITY(U,$J,358.3,34213,2)
+504 ;;=^5015649
+505 ;;^UTILITY(U,$J,358.3,34214,0)
+506 ;;=N31.9^^105^1430^79
+507 ;;^UTILITY(U,$J,358.3,34214,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,34214,1,3,0)
+510 ;;=3^Neurogenic Bladder Dysfunction,Unspec
+511 ;;^UTILITY(U,$J,358.3,34214,1,4,0)
+512 ;;=4^N31.9
+513 ;;^UTILITY(U,$J,358.3,34214,2)
+514 ;;=^5015648
+515 ;;^UTILITY(U,$J,358.3,34215,0)
+516 ;;=N31.1^^105^1430^80
+517 ;;^UTILITY(U,$J,358.3,34215,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,34215,1,3,0)
+520 ;;=3^Neuropathic Bladder,Reflex NEC
+521 ;;^UTILITY(U,$J,358.3,34215,1,4,0)
+522 ;;=4^N31.1
+523 ;;^UTILITY(U,$J,358.3,34215,2)
+524 ;;=^5015645
+525 ;;^UTILITY(U,$J,358.3,34216,0)
+526 ;;=N32.89^^105^1430^7
+527 ;;^UTILITY(U,$J,358.3,34216,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,34216,1,3,0)
+530 ;;=3^Bladder Disorders,Other Spec
+531 ;;^UTILITY(U,$J,358.3,34216,1,4,0)
+532 ;;=4^N32.89
+533 ;;^UTILITY(U,$J,358.3,34216,2)
+534 ;;=^87989
+535 ;;^UTILITY(U,$J,358.3,34217,0)
+536 ;;=N33.^^105^1430^6
+537 ;;^UTILITY(U,$J,358.3,34217,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,34217,1,3,0)
+540 ;;=3^Bladder Disorders,Diseases Classified Elsewhere
+541 ;;^UTILITY(U,$J,358.3,34217,1,4,0)
+542 ;;=4^N33.
+543 ;;^UTILITY(U,$J,358.3,34217,2)
+544 ;;=^5015654
+545 ;;^UTILITY(U,$J,358.3,34218,0)
+546 ;;=N34.2^^105^1430^115
+547 ;;^UTILITY(U,$J,358.3,34218,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,34218,1,3,0)
+550 ;;=3^Urethritis
+551 ;;^UTILITY(U,$J,358.3,34218,1,4,0)
+552 ;;=4^N34.2
+553 ;;^UTILITY(U,$J,358.3,34218,2)
+554 ;;=^88231
+555 ;;^UTILITY(U,$J,358.3,34219,0)
+556 ;;=N34.1^^105^1430^116
+557 ;;^UTILITY(U,$J,358.3,34219,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,34219,1,3,0)
+560 ;;=3^Urethritis,Nonspec
+561 ;;^UTILITY(U,$J,358.3,34219,1,4,0)
+562 ;;=4^N34.1
+563 ;;^UTILITY(U,$J,358.3,34219,2)
+564 ;;=^5015655
+565 ;;^UTILITY(U,$J,358.3,34220,0)
+566 ;;=N39.0^^105^1430^120
+567 ;;^UTILITY(U,$J,358.3,34220,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,34220,1,3,0)
+570 ;;=3^Urinary Tract Infection,Site Not Spec
+571 ;;^UTILITY(U,$J,358.3,34220,1,4,0)
+572 ;;=4^N39.0
+573 ;;^UTILITY(U,$J,358.3,34220,2)
+574 ;;=^124436
+575 ;;^UTILITY(U,$J,358.3,34221,0)
+576 ;;=N31.0^^105^1430^81
+577 ;;^UTILITY(U,$J,358.3,34221,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,34221,1,3,0)
+580 ;;=3^Neuropathic Bladder,Uninhibited NEC
+581 ;;^UTILITY(U,$J,358.3,34221,1,4,0)
+582 ;;=4^N31.0
+583 ;;^UTILITY(U,$J,358.3,34221,2)
+584 ;;=^5015644
+585 ;;^UTILITY(U,$J,358.3,34222,0)
+586 ;;=R31.9^^105^1430^60
+587 ;;^UTILITY(U,$J,358.3,34222,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,34222,1,3,0)
+590 ;;=3^Hematuria,Unspec
+591 ;;^UTILITY(U,$J,358.3,34222,1,4,0)
+592 ;;=4^R31.9
+593 ;;^UTILITY(U,$J,358.3,34222,2)
+594 ;;=^5019328
+595 ;;^UTILITY(U,$J,358.3,34223,0)
+596 ;;=R31.0^^105^1430^57
+597 ;;^UTILITY(U,$J,358.3,34223,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,34223,1,3,0)
+600 ;;=3^Hematuria,Gross
+601 ;;^UTILITY(U,$J,358.3,34223,1,4,0)
+602 ;;=4^R31.0
+603 ;;^UTILITY(U,$J,358.3,34223,2)
+604 ;;=^5019325
+605 ;;^UTILITY(U,$J,358.3,34224,0)
+606 ;;=R31.1^^105^1430^56
+607 ;;^UTILITY(U,$J,358.3,34224,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,34224,1,3,0)
+610 ;;=3^Hematuria,Benign Essential Microscopic
+611 ;;^UTILITY(U,$J,358.3,34224,1,4,0)
+612 ;;=4^R31.1
+613 ;;^UTILITY(U,$J,358.3,34224,2)
+614 ;;=^5019326
+615 ;;^UTILITY(U,$J,358.3,34225,0)
+616 ;;=N40.0^^105^1430^3
+617 ;;^UTILITY(U,$J,358.3,34225,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,34225,1,3,0)
+620 ;;=3^BPH w/o Lower Urinary Tract Symptoms
+621 ;;^UTILITY(U,$J,358.3,34225,1,4,0)
+622 ;;=4^N40.0
+623 ;;^UTILITY(U,$J,358.3,34225,2)
+624 ;;=^5015689
+625 ;;^UTILITY(U,$J,358.3,34226,0)
+626 ;;=N40.1^^105^1430^2
+627 ;;^UTILITY(U,$J,358.3,34226,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,34226,1,3,0)
+630 ;;=3^BPH w/ Lower Urinary Tract Symptoms
+631 ;;^UTILITY(U,$J,358.3,34226,1,4,0)
+632 ;;=4^N40.1
+633 ;;^UTILITY(U,$J,358.3,34226,2)
+634 ;;=^5015690
+635 ;;^UTILITY(U,$J,358.3,34227,0)
+636 ;;=N41.0^^105^1430^91
+637 ;;^UTILITY(U,$J,358.3,34227,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,34227,1,3,0)
+640 ;;=3^Prostatitis,Acute
+641 ;;^UTILITY(U,$J,358.3,34227,1,4,0)
+642 ;;=4^N41.0
+643 ;;^UTILITY(U,$J,358.3,34227,2)
+644 ;;=^259106
+645 ;;^UTILITY(U,$J,358.3,34228,0)
+646 ;;=N45.1^^105^1430^33
+647 ;;^UTILITY(U,$J,358.3,34228,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,34228,1,3,0)
+650 ;;=3^Epididymitis
+651 ;;^UTILITY(U,$J,358.3,34228,1,4,0)
+652 ;;=4^N45.1
+653 ;;^UTILITY(U,$J,358.3,34228,2)
+654 ;;=^41396
+655 ;;^UTILITY(U,$J,358.3,34229,0)
+656 ;;=N45.2^^105^1430^83
+657 ;;^UTILITY(U,$J,358.3,34229,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,34229,1,3,0)
+660 ;;=3^Orchitis
+661 ;;^UTILITY(U,$J,358.3,34229,1,4,0)
+662 ;;=4^N45.2
+663 ;;^UTILITY(U,$J,358.3,34229,2)
+664 ;;=^86174
+665 ;;^UTILITY(U,$J,358.3,34230,0)
+666 ;;=N45.3^^105^1430^34
+667 ;;^UTILITY(U,$J,358.3,34230,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,34230,1,3,0)
+670 ;;=3^Epididymo-orchitis
+671 ;;^UTILITY(U,$J,358.3,34230,1,4,0)
+672 ;;=4^N45.3
+673 ;;^UTILITY(U,$J,358.3,34230,2)
+674 ;;=^5015707
+675 ;;^UTILITY(U,$J,358.3,34231,0)
+676 ;;=N47.2^^105^1430^85
+677 ;;^UTILITY(U,$J,358.3,34231,1,0)
+678 ;;=^358.31IA^4^2
+679 ;;^UTILITY(U,$J,358.3,34231,1,3,0)
+680 ;;=3^Paraphimosis
+681 ;;^UTILITY(U,$J,358.3,34231,1,4,0)
+682 ;;=4^N47.2
