IBDEI068 ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
Q:'DIFQR(358.3) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,358.3,15095,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15095,1,3,0)
;;=3^Candidal Cystitis & Urethritis
;;^UTILITY(U,$J,358.3,15095,1,4,0)
;;=4^B37.41
;;^UTILITY(U,$J,358.3,15095,2)
;;=^5000616
;;^UTILITY(U,$J,358.3,15096,0)
;;=B37.42^^56^641^12
;;^UTILITY(U,$J,358.3,15096,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15096,1,3,0)
;;=3^Candidal Balanitis
;;^UTILITY(U,$J,358.3,15096,1,4,0)
;;=4^B37.42
;;^UTILITY(U,$J,358.3,15096,2)
;;=^5000617
;;^UTILITY(U,$J,358.3,15097,0)
;;=A59.03^^56^641^110
;;^UTILITY(U,$J,358.3,15097,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15097,1,3,0)
;;=3^Trichomonal Cystitis & Urethritis
;;^UTILITY(U,$J,358.3,15097,1,4,0)
;;=4^A59.03
;;^UTILITY(U,$J,358.3,15097,2)
;;=^5000349
;;^UTILITY(U,$J,358.3,15098,0)
;;=E87.6^^56^641^63
;;^UTILITY(U,$J,358.3,15098,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15098,1,3,0)
;;=3^Hypokalemia
;;^UTILITY(U,$J,358.3,15098,1,4,0)
;;=4^E87.6
;;^UTILITY(U,$J,358.3,15098,2)
;;=^60610
;;^UTILITY(U,$J,358.3,15099,0)
;;=F52.0^^56^641^62
;;^UTILITY(U,$J,358.3,15099,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15099,1,3,0)
;;=3^Hypoactive Sexual Desire Disorder
;;^UTILITY(U,$J,358.3,15099,1,4,0)
;;=4^F52.0
;;^UTILITY(U,$J,358.3,15099,2)
;;=^5003618
;;^UTILITY(U,$J,358.3,15100,0)
;;=F52.22^^56^641^105
;;^UTILITY(U,$J,358.3,15100,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15100,1,3,0)
;;=3^Sexual Arousal Disorder,Female
;;^UTILITY(U,$J,358.3,15100,1,4,0)
;;=4^F52.22
;;^UTILITY(U,$J,358.3,15100,2)
;;=^5003621
;;^UTILITY(U,$J,358.3,15101,0)
;;=F52.8^^56^641^106
;;^UTILITY(U,$J,358.3,15101,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15101,1,3,0)
;;=3^Sexual Dysfnct Not d/t Substance/Known Physiological Cond
;;^UTILITY(U,$J,358.3,15101,1,4,0)
;;=4^F52.8
;;^UTILITY(U,$J,358.3,15101,2)
;;=^5003624
;;^UTILITY(U,$J,358.3,15102,0)
;;=F52.21^^56^641^35
;;^UTILITY(U,$J,358.3,15102,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15102,1,3,0)
;;=3^Erectile Disorder,Male (Psychogenic)
;;^UTILITY(U,$J,358.3,15102,1,4,0)
;;=4^F52.21
;;^UTILITY(U,$J,358.3,15102,2)
;;=^5003620
;;^UTILITY(U,$J,358.3,15103,0)
;;=I12.9^^56^641^61
;;^UTILITY(U,$J,358.3,15103,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15103,1,3,0)
;;=3^Hypertensive Kidney Disease Chronic w/ Stg 1-4
;;^UTILITY(U,$J,358.3,15103,1,4,0)
;;=4^I12.9
;;^UTILITY(U,$J,358.3,15103,2)
;;=^5007066
;;^UTILITY(U,$J,358.3,15104,0)
;;=N04.9^^56^641^78
;;^UTILITY(U,$J,358.3,15104,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15104,1,3,0)
;;=3^Nephrotic Syndrome w/ Unspec Morphologic Changes
;;^UTILITY(U,$J,358.3,15104,1,4,0)
;;=4^N04.9
;;^UTILITY(U,$J,358.3,15104,2)
;;=^5015540
;;^UTILITY(U,$J,358.3,15105,0)
;;=N02.9^^56^641^55
;;^UTILITY(U,$J,358.3,15105,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15105,1,3,0)
;;=3^Hematuria w/ Unspec Morphologic Changes,Recurrent & Persistent
;;^UTILITY(U,$J,358.3,15105,1,4,0)
;;=4^N02.9
;;^UTILITY(U,$J,358.3,15105,2)
;;=^5015520
;;^UTILITY(U,$J,358.3,15106,0)
;;=N06.9^^56^641^95
;;^UTILITY(U,$J,358.3,15106,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15106,1,3,0)
;;=3^Proteinuria Isolated w/ Unspec Morphologic Lesion
;;^UTILITY(U,$J,358.3,15106,1,4,0)
;;=4^N06.9
;;^UTILITY(U,$J,358.3,15106,2)
;;=^5015558
;;^UTILITY(U,$J,358.3,15107,0)
;;=N05.9^^56^641^75
;;^UTILITY(U,$J,358.3,15107,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15107,1,3,0)
;;=3^Nephritic Syndrome w/ Unspec Morphologic Changes
;;^UTILITY(U,$J,358.3,15107,1,4,0)
;;=4^N05.9
;;^UTILITY(U,$J,358.3,15107,2)
;;=^5134086
;;^UTILITY(U,$J,358.3,15108,0)
;;=N07.9^^56^641^77
;;^UTILITY(U,$J,358.3,15108,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15108,1,3,0)
;;=3^Nephropathy Hereditary w/ Unspec Morphologic Lesions
;;^UTILITY(U,$J,358.3,15108,1,4,0)
;;=4^N07.9
;;^UTILITY(U,$J,358.3,15108,2)
;;=^5015568
;;^UTILITY(U,$J,358.3,15109,0)
;;=N15.9^^56^641^102
;;^UTILITY(U,$J,358.3,15109,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15109,1,3,0)
;;=3^Renal Tubulo-Interstitial Disease,Unspec
;;^UTILITY(U,$J,358.3,15109,1,4,0)
;;=4^N15.9
;;^UTILITY(U,$J,358.3,15109,2)
;;=^5015596
;;^UTILITY(U,$J,358.3,15110,0)
;;=N17.9^^56^641^67
;;^UTILITY(U,$J,358.3,15110,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15110,1,3,0)
;;=3^Kidney Failure,Acute,Unspec
;;^UTILITY(U,$J,358.3,15110,1,4,0)
;;=4^N17.9
;;^UTILITY(U,$J,358.3,15110,2)
;;=^338532
;;^UTILITY(U,$J,358.3,15111,0)
;;=N19.^^56^641^68
;;^UTILITY(U,$J,358.3,15111,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15111,1,3,0)
;;=3^Kidney Failure,Unspec
;;^UTILITY(U,$J,358.3,15111,1,4,0)
;;=4^N19.
;;^UTILITY(U,$J,358.3,15111,2)
;;=^5015607
;;^UTILITY(U,$J,358.3,15112,0)
;;=N11.0^^56^641^99
;;^UTILITY(U,$J,358.3,15112,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15112,1,3,0)
;;=3^Pyelonephritis,Chronic Nonobstructive Reflux-Associated
;;^UTILITY(U,$J,358.3,15112,1,4,0)
;;=4^N11.0
;;^UTILITY(U,$J,358.3,15112,2)
;;=^5015571
;;^UTILITY(U,$J,358.3,15113,0)
;;=N10.^^56^641^76
;;^UTILITY(U,$J,358.3,15113,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15113,1,3,0)
;;=3^Nephritis Acute Tubulo-Interstitial
;;^UTILITY(U,$J,358.3,15113,1,4,0)
;;=4^N10.
;;^UTILITY(U,$J,358.3,15113,2)
;;=^5015570
;;^UTILITY(U,$J,358.3,15114,0)
;;=N20.2^^56^641^10
;;^UTILITY(U,$J,358.3,15114,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15114,1,3,0)
;;=3^Calculus Kidney w/ Calculus Ureter
;;^UTILITY(U,$J,358.3,15114,1,4,0)
;;=4^N20.2
;;^UTILITY(U,$J,358.3,15114,2)
;;=^5015609
;;^UTILITY(U,$J,358.3,15115,0)
;;=N20.0^^56^641^9
;;^UTILITY(U,$J,358.3,15115,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15115,1,3,0)
;;=3^Calculus Kidney
;;^UTILITY(U,$J,358.3,15115,1,4,0)
;;=4^N20.0
;;^UTILITY(U,$J,358.3,15115,2)
;;=^67056
;;^UTILITY(U,$J,358.3,15116,0)
;;=N29.^^56^641^66
;;^UTILITY(U,$J,358.3,15116,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15116,1,3,0)
;;=3^Kidney & Ureter Disorders in Diseases Classified Elsewhere
;;^UTILITY(U,$J,358.3,15116,1,4,0)
;;=4^N29.
;;^UTILITY(U,$J,358.3,15116,2)
;;=^5015631
;;^UTILITY(U,$J,358.3,15117,0)
;;=N28.9^^56^641^65
;;^UTILITY(U,$J,358.3,15117,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15117,1,3,0)
;;=3^Kidney & Ureter Disorder,Unspec
;;^UTILITY(U,$J,358.3,15117,1,4,0)
;;=4^N28.9
;;^UTILITY(U,$J,358.3,15117,2)
;;=^5015630
;;^UTILITY(U,$J,358.3,15118,0)
;;=N30.01^^56^641^24
;;^UTILITY(U,$J,358.3,15118,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15118,1,3,0)
;;=3^Cystitis w/ Hematuria,Acute
;;^UTILITY(U,$J,358.3,15118,1,4,0)
;;=4^N30.01
;;^UTILITY(U,$J,358.3,15118,2)
;;=^5015633
;;^UTILITY(U,$J,358.3,15119,0)
;;=N30.00^^56^641^26
;;^UTILITY(U,$J,358.3,15119,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15119,1,3,0)
;;=3^Cystitis w/o Hematuria,Acute
;;^UTILITY(U,$J,358.3,15119,1,4,0)
;;=4^N30.00
;;^UTILITY(U,$J,358.3,15119,2)
;;=^5015632
;;^UTILITY(U,$J,358.3,15120,0)
;;=N30.41^^56^641^25
;;^UTILITY(U,$J,358.3,15120,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15120,1,3,0)
;;=3^Cystitis w/ Hematuria,Irradiation
;;^UTILITY(U,$J,358.3,15120,1,4,0)
;;=4^N30.41
;;^UTILITY(U,$J,358.3,15120,2)
;;=^5015640
;;^UTILITY(U,$J,358.3,15121,0)
;;=N30.40^^56^641^27
;;^UTILITY(U,$J,358.3,15121,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15121,1,3,0)
;;=3^Cystitis w/o Hematuria,Irradiation
;;^UTILITY(U,$J,358.3,15121,1,4,0)
;;=4^N30.40
;;^UTILITY(U,$J,358.3,15121,2)
;;=^5015639
;;^UTILITY(U,$J,358.3,15122,0)
;;=N32.0^^56^641^8
;;^UTILITY(U,$J,358.3,15122,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15122,1,3,0)
;;=3^Bladder-Neck Obstruction
;;^UTILITY(U,$J,358.3,15122,1,4,0)
;;=4^N32.0
;;^UTILITY(U,$J,358.3,15122,2)
;;=^5015649
;;^UTILITY(U,$J,358.3,15123,0)
;;=N31.9^^56^641^79
;;^UTILITY(U,$J,358.3,15123,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15123,1,3,0)
;;=3^Neurogenic Bladder Dysfunction,Unspec
;;^UTILITY(U,$J,358.3,15123,1,4,0)
;;=4^N31.9
;;^UTILITY(U,$J,358.3,15123,2)
;;=^5015648
;;^UTILITY(U,$J,358.3,15124,0)
;;=N31.1^^56^641^80
;;^UTILITY(U,$J,358.3,15124,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15124,1,3,0)
;;=3^Neuropathic Bladder,Reflex NEC
;;^UTILITY(U,$J,358.3,15124,1,4,0)
;;=4^N31.1
;;^UTILITY(U,$J,358.3,15124,2)
;;=^5015645
;;^UTILITY(U,$J,358.3,15125,0)
;;=N32.89^^56^641^7
;;^UTILITY(U,$J,358.3,15125,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15125,1,3,0)
;;=3^Bladder Disorders,Other Spec
;;^UTILITY(U,$J,358.3,15125,1,4,0)
;;=4^N32.89
;;^UTILITY(U,$J,358.3,15125,2)
;;=^87989
;;^UTILITY(U,$J,358.3,15126,0)
;;=N33.^^56^641^6
;;^UTILITY(U,$J,358.3,15126,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15126,1,3,0)
;;=3^Bladder Disorders,Diseases Classified Elsewhere
;;^UTILITY(U,$J,358.3,15126,1,4,0)
;;=4^N33.
;;^UTILITY(U,$J,358.3,15126,2)
;;=^5015654
;;^UTILITY(U,$J,358.3,15127,0)
;;=N34.2^^56^641^115
;;^UTILITY(U,$J,358.3,15127,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15127,1,3,0)
;;=3^Urethritis
;;^UTILITY(U,$J,358.3,15127,1,4,0)
;;=4^N34.2
;;^UTILITY(U,$J,358.3,15127,2)
;;=^88231
;;^UTILITY(U,$J,358.3,15128,0)
;;=N34.1^^56^641^116
;;^UTILITY(U,$J,358.3,15128,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15128,1,3,0)
;;=3^Urethritis,Nonspec
;;^UTILITY(U,$J,358.3,15128,1,4,0)
;;=4^N34.1
;;^UTILITY(U,$J,358.3,15128,2)
;;=^5015655
;;^UTILITY(U,$J,358.3,15129,0)
;;=N39.0^^56^641^120
;;^UTILITY(U,$J,358.3,15129,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15129,1,3,0)
;;=3^Urinary Tract Infection,Site Not Spec
;;^UTILITY(U,$J,358.3,15129,1,4,0)
;;=4^N39.0
;;^UTILITY(U,$J,358.3,15129,2)
;;=^124436
;;^UTILITY(U,$J,358.3,15130,0)
;;=N31.0^^56^641^81
;;^UTILITY(U,$J,358.3,15130,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15130,1,3,0)
;;=3^Neuropathic Bladder,Uninhibited NEC
;;^UTILITY(U,$J,358.3,15130,1,4,0)
;;=4^N31.0
;;^UTILITY(U,$J,358.3,15130,2)
;;=^5015644
;;^UTILITY(U,$J,358.3,15131,0)
;;=R31.9^^56^641^60
;;^UTILITY(U,$J,358.3,15131,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15131,1,3,0)
;;=3^Hematuria,Unspec
;;^UTILITY(U,$J,358.3,15131,1,4,0)
;;=4^R31.9
;;^UTILITY(U,$J,358.3,15131,2)
;;=^5019328
;;^UTILITY(U,$J,358.3,15132,0)
;;=R31.0^^56^641^57
;;^UTILITY(U,$J,358.3,15132,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15132,1,3,0)
;;=3^Hematuria,Gross
;;^UTILITY(U,$J,358.3,15132,1,4,0)
;;=4^R31.0
;;^UTILITY(U,$J,358.3,15132,2)
;;=^5019325
;;^UTILITY(U,$J,358.3,15133,0)
;;=R31.1^^56^641^56
;;^UTILITY(U,$J,358.3,15133,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15133,1,3,0)
;;=3^Hematuria,Benign Essential Microscopic
;;^UTILITY(U,$J,358.3,15133,1,4,0)
;;=4^R31.1
;;^UTILITY(U,$J,358.3,15133,2)
;;=^5019326
;;^UTILITY(U,$J,358.3,15134,0)
;;=N40.0^^56^641^3
;;^UTILITY(U,$J,358.3,15134,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15134,1,3,0)
;;=3^BPH w/o Lower Urinary Tract Symptoms
;;^UTILITY(U,$J,358.3,15134,1,4,0)
;;=4^N40.0
;;^UTILITY(U,$J,358.3,15134,2)
;;=^5015689
;;^UTILITY(U,$J,358.3,15135,0)
;;=N40.1^^56^641^2
;;^UTILITY(U,$J,358.3,15135,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15135,1,3,0)
;;=3^BPH w/ Lower Urinary Tract Symptoms
;;^UTILITY(U,$J,358.3,15135,1,4,0)
;;=4^N40.1
;;^UTILITY(U,$J,358.3,15135,2)
;;=^5015690
;;^UTILITY(U,$J,358.3,15136,0)
;;=N41.0^^56^641^91
;;^UTILITY(U,$J,358.3,15136,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15136,1,3,0)
;;=3^Prostatitis,Acute
;;^UTILITY(U,$J,358.3,15136,1,4,0)
;;=4^N41.0
;;^UTILITY(U,$J,358.3,15136,2)
;;=^259106
;;^UTILITY(U,$J,358.3,15137,0)
;;=N45.1^^56^641^33
;;^UTILITY(U,$J,358.3,15137,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15137,1,3,0)
;;=3^Epididymitis
;;^UTILITY(U,$J,358.3,15137,1,4,0)
;;=4^N45.1
;;^UTILITY(U,$J,358.3,15137,2)
;;=^41396
;;^UTILITY(U,$J,358.3,15138,0)
;;=N45.2^^56^641^83
;;^UTILITY(U,$J,358.3,15138,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15138,1,3,0)
;;=3^Orchitis
;;^UTILITY(U,$J,358.3,15138,1,4,0)
;;=4^N45.2
;;^UTILITY(U,$J,358.3,15138,2)
;;=^86174
;;^UTILITY(U,$J,358.3,15139,0)
;;=N45.3^^56^641^34
;;^UTILITY(U,$J,358.3,15139,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15139,1,3,0)
;;=3^Epididymo-orchitis
;;^UTILITY(U,$J,358.3,15139,1,4,0)
;;=4^N45.3
;;^UTILITY(U,$J,358.3,15139,2)
;;=^5015707
;;^UTILITY(U,$J,358.3,15140,0)
;;=N47.2^^56^641^85
;;^UTILITY(U,$J,358.3,15140,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15140,1,3,0)
;;=3^Paraphimosis
;;^UTILITY(U,$J,358.3,15140,1,4,0)
;;=4^N47.2
;;^UTILITY(U,$J,358.3,15140,2)
;;=^90023
;;^UTILITY(U,$J,358.3,15141,0)
;;=N47.1^^56^641^87
;;^UTILITY(U,$J,358.3,15141,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15141,1,3,0)
;;=3^Phimosis
;;^UTILITY(U,$J,358.3,15141,1,4,0)
;;=4^N47.1
;;^UTILITY(U,$J,358.3,15141,2)
;;=^93340
;;^UTILITY(U,$J,358.3,15142,0)
;;=N47.3^^56^641^28
;;^UTILITY(U,$J,358.3,15142,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15142,1,3,0)
;;=3^Deficient Foreskin
;;^UTILITY(U,$J,358.3,15142,1,4,0)
;;=4^N47.3
;;^UTILITY(U,$J,358.3,15142,2)
;;=^5015726
;;^UTILITY(U,$J,358.3,15143,0)
;;=N47.5^^56^641^1
;;^UTILITY(U,$J,358.3,15143,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15143,1,3,0)
;;=3^Adhesions Prepuce & Glans Penis
;;^UTILITY(U,$J,358.3,15143,1,4,0)
;;=4^N47.5
;;^UTILITY(U,$J,358.3,15143,2)
;;=^5015728
;;^UTILITY(U,$J,358.3,15144,0)
;;=N47.4^^56^641^23
;;^UTILITY(U,$J,358.3,15144,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15144,1,3,0)
;;=3^Cyst of Prepuce,Benign
;;^UTILITY(U,$J,358.3,15144,1,4,0)
;;=4^N47.4
;;^UTILITY(U,$J,358.3,15144,2)
;;=^5015727
;;^UTILITY(U,$J,358.3,15145,0)
;;=N47.8^^56^641^29
;;^UTILITY(U,$J,358.3,15145,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15145,1,3,0)
;;=3^Disorders of Prepuce
;;^UTILITY(U,$J,358.3,15145,1,4,0)
;;=4^N47.8
;;^UTILITY(U,$J,358.3,15145,2)
;;=^5015730
;;^UTILITY(U,$J,358.3,15146,0)
;;=N47.7^^56^641^64
;;^UTILITY(U,$J,358.3,15146,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15146,1,3,0)
;;=3^Inflammatory Diseases of Prepuce
;;^UTILITY(U,$J,358.3,15146,1,4,0)
;;=4^N47.7
;;^UTILITY(U,$J,358.3,15146,2)
;;=^5015729
;;^UTILITY(U,$J,358.3,15147,0)
;;=N47.6^^56^641^5
;;^UTILITY(U,$J,358.3,15147,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15147,1,3,0)
;;=3^Balanoposthitis
;;^UTILITY(U,$J,358.3,15147,1,4,0)
;;=4^N47.6
;;^UTILITY(U,$J,358.3,15147,2)
;;=^12530
;;^UTILITY(U,$J,358.3,15148,0)
;;=N48.1^^56^641^4
;;^UTILITY(U,$J,358.3,15148,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15148,1,3,0)
;;=3^Balanitis
;;^UTILITY(U,$J,358.3,15148,1,4,0)
;;=4^N48.1
;;^UTILITY(U,$J,358.3,15148,2)
;;=^12525
;;^UTILITY(U,$J,358.3,15149,0)
;;=N52.34^^56^641^43
;;^UTILITY(U,$J,358.3,15149,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15149,1,3,0)
;;=3^Erectile Dysfunction Following Simple Prostatectomy
;;^UTILITY(U,$J,358.3,15149,1,4,0)
;;=4^N52.34
;;^UTILITY(U,$J,358.3,15149,2)
;;=^5015760
;;^UTILITY(U,$J,358.3,15150,0)
;;=N52.39^^56^641^45
;;^UTILITY(U,$J,358.3,15150,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15150,1,3,0)
;;=3^Erectile Dysfunction Post-Surgical,Other & Unspec
;;^UTILITY(U,$J,358.3,15150,1,4,0)
;;=4^N52.39
;;^UTILITY(U,$J,358.3,15150,2)
;;=^5015761
;;^UTILITY(U,$J,358.3,15151,0)
;;=N52.33^^56^641^44
;;^UTILITY(U,$J,358.3,15151,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15151,1,3,0)
;;=3^Erectile Dysfunction Following Urethral Surgery
;;^UTILITY(U,$J,358.3,15151,1,4,0)
;;=4^N52.33
;;^UTILITY(U,$J,358.3,15151,2)
;;=^5015759
;;^UTILITY(U,$J,358.3,15152,0)
;;=N52.32^^56^641^41
;;^UTILITY(U,$J,358.3,15152,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15152,1,3,0)
;;=3^Erectile Dysfunction Following Radical Cystectomy
;;^UTILITY(U,$J,358.3,15152,1,4,0)
;;=4^N52.32
;;^UTILITY(U,$J,358.3,15152,2)
;;=^5015758
;;^UTILITY(U,$J,358.3,15153,0)
;;=N52.31^^56^641^42
;;^UTILITY(U,$J,358.3,15153,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15153,1,3,0)
;;=3^Erectile Dysfunction Following Radical Prostatectomy
;;^UTILITY(U,$J,358.3,15153,1,4,0)
;;=4^N52.31
;;^UTILITY(U,$J,358.3,15153,2)
;;=^5015757
;;^UTILITY(U,$J,358.3,15154,0)
;;=N52.2^^56^641^48
;;^UTILITY(U,$J,358.3,15154,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15154,1,3,0)
;;=3^Erectile Dysfunction,Drug-Induced
;;^UTILITY(U,$J,358.3,15154,1,4,0)
;;=4^N52.2
;;^UTILITY(U,$J,358.3,15154,2)
;;=^5015756
;;^UTILITY(U,$J,358.3,15155,0)
;;=N52.03^^56^641^39
;;^UTILITY(U,$J,358.3,15155,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15155,1,3,0)
;;=3^Erectile Dysfunction Comb Artrl Insuff & Corporo-Venous Occlusv
;;^UTILITY(U,$J,358.3,15155,1,4,0)
;;=4^N52.03
;;^UTILITY(U,$J,358.3,15155,2)
;;=^5015754
;;^UTILITY(U,$J,358.3,15156,0)
;;=N52.02^^56^641^40
;;^UTILITY(U,$J,358.3,15156,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15156,1,3,0)
;;=3^Erectile Dysfunction Corporo-Venous Occlusive
;;^UTILITY(U,$J,358.3,15156,1,4,0)
;;=4^N52.02
;;^UTILITY(U,$J,358.3,15156,2)
;;=^5015753
;;^UTILITY(U,$J,358.3,15157,0)
;;=N52.1^^56^641^47
;;^UTILITY(U,$J,358.3,15157,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15157,1,3,0)
;;=3^Erectile Dysfunction d/t Diseases Classified Elsewhere
;;^UTILITY(U,$J,358.3,15157,1,4,0)
;;=4^N52.1
;;^UTILITY(U,$J,358.3,15157,2)
;;=^5015755
;;^UTILITY(U,$J,358.3,15158,0)
;;=N52.01^^56^641^46
;;^UTILITY(U,$J,358.3,15158,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15158,1,3,0)
;;=3^Erectile Dysfunction d/t Arterial Insufficiency
;;^UTILITY(U,$J,358.3,15158,1,4,0)
;;=4^N52.01
;;^UTILITY(U,$J,358.3,15158,2)
;;=^5015752
;;^UTILITY(U,$J,358.3,15159,0)
;;=N95.2^^56^641^90
;;^UTILITY(U,$J,358.3,15159,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15159,1,3,0)
;;=3^Postmenopausal Atrophic Vaginitis
;;^UTILITY(U,$J,358.3,15159,1,4,0)
;;=4^N95.2
;;^UTILITY(U,$J,358.3,15159,2)
;;=^270577
;;^UTILITY(U,$J,358.3,15160,0)
;;=R30.9^^56^641^71
;;^UTILITY(U,$J,358.3,15160,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15160,1,3,0)
;;=3^Micturition Painful,Unspec
;;^UTILITY(U,$J,358.3,15160,1,4,0)
;;=4^R30.9
;;^UTILITY(U,$J,358.3,15160,2)
;;=^5019324
;;^UTILITY(U,$J,358.3,15161,0)
;;=R30.0^^56^641^30
;;^UTILITY(U,$J,358.3,15161,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15161,1,3,0)
;;=3^Dysuria
;;^UTILITY(U,$J,358.3,15161,1,4,0)
;;=4^R30.0
;;^UTILITY(U,$J,358.3,15161,2)
;;=^5019322
;;^UTILITY(U,$J,358.3,15162,0)
;;=R33.9^^56^641^121
;;^UTILITY(U,$J,358.3,15162,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15162,1,3,0)
;;=3^Urine Retention,Unspec
;;^UTILITY(U,$J,358.3,15162,1,4,0)
;;=4^R33.9
;;^UTILITY(U,$J,358.3,15162,2)
;;=^5019332
;;^UTILITY(U,$J,358.3,15163,0)
;;=R32.^^56^641^119
;;^UTILITY(U,$J,358.3,15163,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15163,1,3,0)
;;=3^Urinary Incontinence,Unspec
;;^UTILITY(U,$J,358.3,15163,1,4,0)
;;=4^R32.
;;^UTILITY(U,$J,358.3,15163,2)
;;=^5019329
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI068 19745 printed Dec 13, 2024@01:42:26 Page 2
IBDEI068 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 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,15095,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,15095,1,3,0)
+4 ;;=3^Candidal Cystitis & Urethritis
+5 ;;^UTILITY(U,$J,358.3,15095,1,4,0)
+6 ;;=4^B37.41
+7 ;;^UTILITY(U,$J,358.3,15095,2)
+8 ;;=^5000616
+9 ;;^UTILITY(U,$J,358.3,15096,0)
+10 ;;=B37.42^^56^641^12
+11 ;;^UTILITY(U,$J,358.3,15096,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,15096,1,3,0)
+14 ;;=3^Candidal Balanitis
+15 ;;^UTILITY(U,$J,358.3,15096,1,4,0)
+16 ;;=4^B37.42
+17 ;;^UTILITY(U,$J,358.3,15096,2)
+18 ;;=^5000617
+19 ;;^UTILITY(U,$J,358.3,15097,0)
+20 ;;=A59.03^^56^641^110
+21 ;;^UTILITY(U,$J,358.3,15097,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,15097,1,3,0)
+24 ;;=3^Trichomonal Cystitis & Urethritis
+25 ;;^UTILITY(U,$J,358.3,15097,1,4,0)
+26 ;;=4^A59.03
+27 ;;^UTILITY(U,$J,358.3,15097,2)
+28 ;;=^5000349
+29 ;;^UTILITY(U,$J,358.3,15098,0)
+30 ;;=E87.6^^56^641^63
+31 ;;^UTILITY(U,$J,358.3,15098,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,15098,1,3,0)
+34 ;;=3^Hypokalemia
+35 ;;^UTILITY(U,$J,358.3,15098,1,4,0)
+36 ;;=4^E87.6
+37 ;;^UTILITY(U,$J,358.3,15098,2)
+38 ;;=^60610
+39 ;;^UTILITY(U,$J,358.3,15099,0)
+40 ;;=F52.0^^56^641^62
+41 ;;^UTILITY(U,$J,358.3,15099,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,15099,1,3,0)
+44 ;;=3^Hypoactive Sexual Desire Disorder
+45 ;;^UTILITY(U,$J,358.3,15099,1,4,0)
+46 ;;=4^F52.0
+47 ;;^UTILITY(U,$J,358.3,15099,2)
+48 ;;=^5003618
+49 ;;^UTILITY(U,$J,358.3,15100,0)
+50 ;;=F52.22^^56^641^105
+51 ;;^UTILITY(U,$J,358.3,15100,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,15100,1,3,0)
+54 ;;=3^Sexual Arousal Disorder,Female
+55 ;;^UTILITY(U,$J,358.3,15100,1,4,0)
+56 ;;=4^F52.22
+57 ;;^UTILITY(U,$J,358.3,15100,2)
+58 ;;=^5003621
+59 ;;^UTILITY(U,$J,358.3,15101,0)
+60 ;;=F52.8^^56^641^106
+61 ;;^UTILITY(U,$J,358.3,15101,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,15101,1,3,0)
+64 ;;=3^Sexual Dysfnct Not d/t Substance/Known Physiological Cond
+65 ;;^UTILITY(U,$J,358.3,15101,1,4,0)
+66 ;;=4^F52.8
+67 ;;^UTILITY(U,$J,358.3,15101,2)
+68 ;;=^5003624
+69 ;;^UTILITY(U,$J,358.3,15102,0)
+70 ;;=F52.21^^56^641^35
+71 ;;^UTILITY(U,$J,358.3,15102,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,15102,1,3,0)
+74 ;;=3^Erectile Disorder,Male (Psychogenic)
+75 ;;^UTILITY(U,$J,358.3,15102,1,4,0)
+76 ;;=4^F52.21
+77 ;;^UTILITY(U,$J,358.3,15102,2)
+78 ;;=^5003620
+79 ;;^UTILITY(U,$J,358.3,15103,0)
+80 ;;=I12.9^^56^641^61
+81 ;;^UTILITY(U,$J,358.3,15103,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,15103,1,3,0)
+84 ;;=3^Hypertensive Kidney Disease Chronic w/ Stg 1-4
+85 ;;^UTILITY(U,$J,358.3,15103,1,4,0)
+86 ;;=4^I12.9
+87 ;;^UTILITY(U,$J,358.3,15103,2)
+88 ;;=^5007066
+89 ;;^UTILITY(U,$J,358.3,15104,0)
+90 ;;=N04.9^^56^641^78
+91 ;;^UTILITY(U,$J,358.3,15104,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,15104,1,3,0)
+94 ;;=3^Nephrotic Syndrome w/ Unspec Morphologic Changes
+95 ;;^UTILITY(U,$J,358.3,15104,1,4,0)
+96 ;;=4^N04.9
+97 ;;^UTILITY(U,$J,358.3,15104,2)
+98 ;;=^5015540
+99 ;;^UTILITY(U,$J,358.3,15105,0)
+100 ;;=N02.9^^56^641^55
+101 ;;^UTILITY(U,$J,358.3,15105,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,15105,1,3,0)
+104 ;;=3^Hematuria w/ Unspec Morphologic Changes,Recurrent & Persistent
+105 ;;^UTILITY(U,$J,358.3,15105,1,4,0)
+106 ;;=4^N02.9
+107 ;;^UTILITY(U,$J,358.3,15105,2)
+108 ;;=^5015520
+109 ;;^UTILITY(U,$J,358.3,15106,0)
+110 ;;=N06.9^^56^641^95
+111 ;;^UTILITY(U,$J,358.3,15106,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,15106,1,3,0)
+114 ;;=3^Proteinuria Isolated w/ Unspec Morphologic Lesion
+115 ;;^UTILITY(U,$J,358.3,15106,1,4,0)
+116 ;;=4^N06.9
+117 ;;^UTILITY(U,$J,358.3,15106,2)
+118 ;;=^5015558
+119 ;;^UTILITY(U,$J,358.3,15107,0)
+120 ;;=N05.9^^56^641^75
+121 ;;^UTILITY(U,$J,358.3,15107,1,0)
+122 ;;=^358.31IA^4^2
+123 ;;^UTILITY(U,$J,358.3,15107,1,3,0)
+124 ;;=3^Nephritic Syndrome w/ Unspec Morphologic Changes
+125 ;;^UTILITY(U,$J,358.3,15107,1,4,0)
+126 ;;=4^N05.9
+127 ;;^UTILITY(U,$J,358.3,15107,2)
+128 ;;=^5134086
+129 ;;^UTILITY(U,$J,358.3,15108,0)
+130 ;;=N07.9^^56^641^77
+131 ;;^UTILITY(U,$J,358.3,15108,1,0)
+132 ;;=^358.31IA^4^2
+133 ;;^UTILITY(U,$J,358.3,15108,1,3,0)
+134 ;;=3^Nephropathy Hereditary w/ Unspec Morphologic Lesions
+135 ;;^UTILITY(U,$J,358.3,15108,1,4,0)
+136 ;;=4^N07.9
+137 ;;^UTILITY(U,$J,358.3,15108,2)
+138 ;;=^5015568
+139 ;;^UTILITY(U,$J,358.3,15109,0)
+140 ;;=N15.9^^56^641^102
+141 ;;^UTILITY(U,$J,358.3,15109,1,0)
+142 ;;=^358.31IA^4^2
+143 ;;^UTILITY(U,$J,358.3,15109,1,3,0)
+144 ;;=3^Renal Tubulo-Interstitial Disease,Unspec
+145 ;;^UTILITY(U,$J,358.3,15109,1,4,0)
+146 ;;=4^N15.9
+147 ;;^UTILITY(U,$J,358.3,15109,2)
+148 ;;=^5015596
+149 ;;^UTILITY(U,$J,358.3,15110,0)
+150 ;;=N17.9^^56^641^67
+151 ;;^UTILITY(U,$J,358.3,15110,1,0)
+152 ;;=^358.31IA^4^2
+153 ;;^UTILITY(U,$J,358.3,15110,1,3,0)
+154 ;;=3^Kidney Failure,Acute,Unspec
+155 ;;^UTILITY(U,$J,358.3,15110,1,4,0)
+156 ;;=4^N17.9
+157 ;;^UTILITY(U,$J,358.3,15110,2)
+158 ;;=^338532
+159 ;;^UTILITY(U,$J,358.3,15111,0)
+160 ;;=N19.^^56^641^68
+161 ;;^UTILITY(U,$J,358.3,15111,1,0)
+162 ;;=^358.31IA^4^2
+163 ;;^UTILITY(U,$J,358.3,15111,1,3,0)
+164 ;;=3^Kidney Failure,Unspec
+165 ;;^UTILITY(U,$J,358.3,15111,1,4,0)
+166 ;;=4^N19.
+167 ;;^UTILITY(U,$J,358.3,15111,2)
+168 ;;=^5015607
+169 ;;^UTILITY(U,$J,358.3,15112,0)
+170 ;;=N11.0^^56^641^99
+171 ;;^UTILITY(U,$J,358.3,15112,1,0)
+172 ;;=^358.31IA^4^2
+173 ;;^UTILITY(U,$J,358.3,15112,1,3,0)
+174 ;;=3^Pyelonephritis,Chronic Nonobstructive Reflux-Associated
+175 ;;^UTILITY(U,$J,358.3,15112,1,4,0)
+176 ;;=4^N11.0
+177 ;;^UTILITY(U,$J,358.3,15112,2)
+178 ;;=^5015571
+179 ;;^UTILITY(U,$J,358.3,15113,0)
+180 ;;=N10.^^56^641^76
+181 ;;^UTILITY(U,$J,358.3,15113,1,0)
+182 ;;=^358.31IA^4^2
+183 ;;^UTILITY(U,$J,358.3,15113,1,3,0)
+184 ;;=3^Nephritis Acute Tubulo-Interstitial
+185 ;;^UTILITY(U,$J,358.3,15113,1,4,0)
+186 ;;=4^N10.
+187 ;;^UTILITY(U,$J,358.3,15113,2)
+188 ;;=^5015570
+189 ;;^UTILITY(U,$J,358.3,15114,0)
+190 ;;=N20.2^^56^641^10
+191 ;;^UTILITY(U,$J,358.3,15114,1,0)
+192 ;;=^358.31IA^4^2
+193 ;;^UTILITY(U,$J,358.3,15114,1,3,0)
+194 ;;=3^Calculus Kidney w/ Calculus Ureter
+195 ;;^UTILITY(U,$J,358.3,15114,1,4,0)
+196 ;;=4^N20.2
+197 ;;^UTILITY(U,$J,358.3,15114,2)
+198 ;;=^5015609
+199 ;;^UTILITY(U,$J,358.3,15115,0)
+200 ;;=N20.0^^56^641^9
+201 ;;^UTILITY(U,$J,358.3,15115,1,0)
+202 ;;=^358.31IA^4^2
+203 ;;^UTILITY(U,$J,358.3,15115,1,3,0)
+204 ;;=3^Calculus Kidney
+205 ;;^UTILITY(U,$J,358.3,15115,1,4,0)
+206 ;;=4^N20.0
+207 ;;^UTILITY(U,$J,358.3,15115,2)
+208 ;;=^67056
+209 ;;^UTILITY(U,$J,358.3,15116,0)
+210 ;;=N29.^^56^641^66
+211 ;;^UTILITY(U,$J,358.3,15116,1,0)
+212 ;;=^358.31IA^4^2
+213 ;;^UTILITY(U,$J,358.3,15116,1,3,0)
+214 ;;=3^Kidney & Ureter Disorders in Diseases Classified Elsewhere
+215 ;;^UTILITY(U,$J,358.3,15116,1,4,0)
+216 ;;=4^N29.
+217 ;;^UTILITY(U,$J,358.3,15116,2)
+218 ;;=^5015631
+219 ;;^UTILITY(U,$J,358.3,15117,0)
+220 ;;=N28.9^^56^641^65
+221 ;;^UTILITY(U,$J,358.3,15117,1,0)
+222 ;;=^358.31IA^4^2
+223 ;;^UTILITY(U,$J,358.3,15117,1,3,0)
+224 ;;=3^Kidney & Ureter Disorder,Unspec
+225 ;;^UTILITY(U,$J,358.3,15117,1,4,0)
+226 ;;=4^N28.9
+227 ;;^UTILITY(U,$J,358.3,15117,2)
+228 ;;=^5015630
+229 ;;^UTILITY(U,$J,358.3,15118,0)
+230 ;;=N30.01^^56^641^24
+231 ;;^UTILITY(U,$J,358.3,15118,1,0)
+232 ;;=^358.31IA^4^2
+233 ;;^UTILITY(U,$J,358.3,15118,1,3,0)
+234 ;;=3^Cystitis w/ Hematuria,Acute
+235 ;;^UTILITY(U,$J,358.3,15118,1,4,0)
+236 ;;=4^N30.01
+237 ;;^UTILITY(U,$J,358.3,15118,2)
+238 ;;=^5015633
+239 ;;^UTILITY(U,$J,358.3,15119,0)
+240 ;;=N30.00^^56^641^26
+241 ;;^UTILITY(U,$J,358.3,15119,1,0)
+242 ;;=^358.31IA^4^2
+243 ;;^UTILITY(U,$J,358.3,15119,1,3,0)
+244 ;;=3^Cystitis w/o Hematuria,Acute
+245 ;;^UTILITY(U,$J,358.3,15119,1,4,0)
+246 ;;=4^N30.00
+247 ;;^UTILITY(U,$J,358.3,15119,2)
+248 ;;=^5015632
+249 ;;^UTILITY(U,$J,358.3,15120,0)
+250 ;;=N30.41^^56^641^25
+251 ;;^UTILITY(U,$J,358.3,15120,1,0)
+252 ;;=^358.31IA^4^2
+253 ;;^UTILITY(U,$J,358.3,15120,1,3,0)
+254 ;;=3^Cystitis w/ Hematuria,Irradiation
+255 ;;^UTILITY(U,$J,358.3,15120,1,4,0)
+256 ;;=4^N30.41
+257 ;;^UTILITY(U,$J,358.3,15120,2)
+258 ;;=^5015640
+259 ;;^UTILITY(U,$J,358.3,15121,0)
+260 ;;=N30.40^^56^641^27
+261 ;;^UTILITY(U,$J,358.3,15121,1,0)
+262 ;;=^358.31IA^4^2
+263 ;;^UTILITY(U,$J,358.3,15121,1,3,0)
+264 ;;=3^Cystitis w/o Hematuria,Irradiation
+265 ;;^UTILITY(U,$J,358.3,15121,1,4,0)
+266 ;;=4^N30.40
+267 ;;^UTILITY(U,$J,358.3,15121,2)
+268 ;;=^5015639
+269 ;;^UTILITY(U,$J,358.3,15122,0)
+270 ;;=N32.0^^56^641^8
+271 ;;^UTILITY(U,$J,358.3,15122,1,0)
+272 ;;=^358.31IA^4^2
+273 ;;^UTILITY(U,$J,358.3,15122,1,3,0)
+274 ;;=3^Bladder-Neck Obstruction
+275 ;;^UTILITY(U,$J,358.3,15122,1,4,0)
+276 ;;=4^N32.0
+277 ;;^UTILITY(U,$J,358.3,15122,2)
+278 ;;=^5015649
+279 ;;^UTILITY(U,$J,358.3,15123,0)
+280 ;;=N31.9^^56^641^79
+281 ;;^UTILITY(U,$J,358.3,15123,1,0)
+282 ;;=^358.31IA^4^2
+283 ;;^UTILITY(U,$J,358.3,15123,1,3,0)
+284 ;;=3^Neurogenic Bladder Dysfunction,Unspec
+285 ;;^UTILITY(U,$J,358.3,15123,1,4,0)
+286 ;;=4^N31.9
+287 ;;^UTILITY(U,$J,358.3,15123,2)
+288 ;;=^5015648
+289 ;;^UTILITY(U,$J,358.3,15124,0)
+290 ;;=N31.1^^56^641^80
+291 ;;^UTILITY(U,$J,358.3,15124,1,0)
+292 ;;=^358.31IA^4^2
+293 ;;^UTILITY(U,$J,358.3,15124,1,3,0)
+294 ;;=3^Neuropathic Bladder,Reflex NEC
+295 ;;^UTILITY(U,$J,358.3,15124,1,4,0)
+296 ;;=4^N31.1
+297 ;;^UTILITY(U,$J,358.3,15124,2)
+298 ;;=^5015645
+299 ;;^UTILITY(U,$J,358.3,15125,0)
+300 ;;=N32.89^^56^641^7
+301 ;;^UTILITY(U,$J,358.3,15125,1,0)
+302 ;;=^358.31IA^4^2
+303 ;;^UTILITY(U,$J,358.3,15125,1,3,0)
+304 ;;=3^Bladder Disorders,Other Spec
+305 ;;^UTILITY(U,$J,358.3,15125,1,4,0)
+306 ;;=4^N32.89
+307 ;;^UTILITY(U,$J,358.3,15125,2)
+308 ;;=^87989
+309 ;;^UTILITY(U,$J,358.3,15126,0)
+310 ;;=N33.^^56^641^6
+311 ;;^UTILITY(U,$J,358.3,15126,1,0)
+312 ;;=^358.31IA^4^2
+313 ;;^UTILITY(U,$J,358.3,15126,1,3,0)
+314 ;;=3^Bladder Disorders,Diseases Classified Elsewhere
+315 ;;^UTILITY(U,$J,358.3,15126,1,4,0)
+316 ;;=4^N33.
+317 ;;^UTILITY(U,$J,358.3,15126,2)
+318 ;;=^5015654
+319 ;;^UTILITY(U,$J,358.3,15127,0)
+320 ;;=N34.2^^56^641^115
+321 ;;^UTILITY(U,$J,358.3,15127,1,0)
+322 ;;=^358.31IA^4^2
+323 ;;^UTILITY(U,$J,358.3,15127,1,3,0)
+324 ;;=3^Urethritis
+325 ;;^UTILITY(U,$J,358.3,15127,1,4,0)
+326 ;;=4^N34.2
+327 ;;^UTILITY(U,$J,358.3,15127,2)
+328 ;;=^88231
+329 ;;^UTILITY(U,$J,358.3,15128,0)
+330 ;;=N34.1^^56^641^116
+331 ;;^UTILITY(U,$J,358.3,15128,1,0)
+332 ;;=^358.31IA^4^2
+333 ;;^UTILITY(U,$J,358.3,15128,1,3,0)
+334 ;;=3^Urethritis,Nonspec
+335 ;;^UTILITY(U,$J,358.3,15128,1,4,0)
+336 ;;=4^N34.1
+337 ;;^UTILITY(U,$J,358.3,15128,2)
+338 ;;=^5015655
+339 ;;^UTILITY(U,$J,358.3,15129,0)
+340 ;;=N39.0^^56^641^120
+341 ;;^UTILITY(U,$J,358.3,15129,1,0)
+342 ;;=^358.31IA^4^2
+343 ;;^UTILITY(U,$J,358.3,15129,1,3,0)
+344 ;;=3^Urinary Tract Infection,Site Not Spec
+345 ;;^UTILITY(U,$J,358.3,15129,1,4,0)
+346 ;;=4^N39.0
+347 ;;^UTILITY(U,$J,358.3,15129,2)
+348 ;;=^124436
+349 ;;^UTILITY(U,$J,358.3,15130,0)
+350 ;;=N31.0^^56^641^81
+351 ;;^UTILITY(U,$J,358.3,15130,1,0)
+352 ;;=^358.31IA^4^2
+353 ;;^UTILITY(U,$J,358.3,15130,1,3,0)
+354 ;;=3^Neuropathic Bladder,Uninhibited NEC
+355 ;;^UTILITY(U,$J,358.3,15130,1,4,0)
+356 ;;=4^N31.0
+357 ;;^UTILITY(U,$J,358.3,15130,2)
+358 ;;=^5015644
+359 ;;^UTILITY(U,$J,358.3,15131,0)
+360 ;;=R31.9^^56^641^60
+361 ;;^UTILITY(U,$J,358.3,15131,1,0)
+362 ;;=^358.31IA^4^2
+363 ;;^UTILITY(U,$J,358.3,15131,1,3,0)
+364 ;;=3^Hematuria,Unspec
+365 ;;^UTILITY(U,$J,358.3,15131,1,4,0)
+366 ;;=4^R31.9
+367 ;;^UTILITY(U,$J,358.3,15131,2)
+368 ;;=^5019328
+369 ;;^UTILITY(U,$J,358.3,15132,0)
+370 ;;=R31.0^^56^641^57
+371 ;;^UTILITY(U,$J,358.3,15132,1,0)
+372 ;;=^358.31IA^4^2
+373 ;;^UTILITY(U,$J,358.3,15132,1,3,0)
+374 ;;=3^Hematuria,Gross
+375 ;;^UTILITY(U,$J,358.3,15132,1,4,0)
+376 ;;=4^R31.0
+377 ;;^UTILITY(U,$J,358.3,15132,2)
+378 ;;=^5019325
+379 ;;^UTILITY(U,$J,358.3,15133,0)
+380 ;;=R31.1^^56^641^56
+381 ;;^UTILITY(U,$J,358.3,15133,1,0)
+382 ;;=^358.31IA^4^2
+383 ;;^UTILITY(U,$J,358.3,15133,1,3,0)
+384 ;;=3^Hematuria,Benign Essential Microscopic
+385 ;;^UTILITY(U,$J,358.3,15133,1,4,0)
+386 ;;=4^R31.1
+387 ;;^UTILITY(U,$J,358.3,15133,2)
+388 ;;=^5019326
+389 ;;^UTILITY(U,$J,358.3,15134,0)
+390 ;;=N40.0^^56^641^3
+391 ;;^UTILITY(U,$J,358.3,15134,1,0)
+392 ;;=^358.31IA^4^2
+393 ;;^UTILITY(U,$J,358.3,15134,1,3,0)
+394 ;;=3^BPH w/o Lower Urinary Tract Symptoms
+395 ;;^UTILITY(U,$J,358.3,15134,1,4,0)
+396 ;;=4^N40.0
+397 ;;^UTILITY(U,$J,358.3,15134,2)
+398 ;;=^5015689
+399 ;;^UTILITY(U,$J,358.3,15135,0)
+400 ;;=N40.1^^56^641^2
+401 ;;^UTILITY(U,$J,358.3,15135,1,0)
+402 ;;=^358.31IA^4^2
+403 ;;^UTILITY(U,$J,358.3,15135,1,3,0)
+404 ;;=3^BPH w/ Lower Urinary Tract Symptoms
+405 ;;^UTILITY(U,$J,358.3,15135,1,4,0)
+406 ;;=4^N40.1
+407 ;;^UTILITY(U,$J,358.3,15135,2)
+408 ;;=^5015690
+409 ;;^UTILITY(U,$J,358.3,15136,0)
+410 ;;=N41.0^^56^641^91
+411 ;;^UTILITY(U,$J,358.3,15136,1,0)
+412 ;;=^358.31IA^4^2
+413 ;;^UTILITY(U,$J,358.3,15136,1,3,0)
+414 ;;=3^Prostatitis,Acute
+415 ;;^UTILITY(U,$J,358.3,15136,1,4,0)
+416 ;;=4^N41.0
+417 ;;^UTILITY(U,$J,358.3,15136,2)
+418 ;;=^259106
+419 ;;^UTILITY(U,$J,358.3,15137,0)
+420 ;;=N45.1^^56^641^33
+421 ;;^UTILITY(U,$J,358.3,15137,1,0)
+422 ;;=^358.31IA^4^2
+423 ;;^UTILITY(U,$J,358.3,15137,1,3,0)
+424 ;;=3^Epididymitis
+425 ;;^UTILITY(U,$J,358.3,15137,1,4,0)
+426 ;;=4^N45.1
+427 ;;^UTILITY(U,$J,358.3,15137,2)
+428 ;;=^41396
+429 ;;^UTILITY(U,$J,358.3,15138,0)
+430 ;;=N45.2^^56^641^83
+431 ;;^UTILITY(U,$J,358.3,15138,1,0)
+432 ;;=^358.31IA^4^2
+433 ;;^UTILITY(U,$J,358.3,15138,1,3,0)
+434 ;;=3^Orchitis
+435 ;;^UTILITY(U,$J,358.3,15138,1,4,0)
+436 ;;=4^N45.2
+437 ;;^UTILITY(U,$J,358.3,15138,2)
+438 ;;=^86174
+439 ;;^UTILITY(U,$J,358.3,15139,0)
+440 ;;=N45.3^^56^641^34
+441 ;;^UTILITY(U,$J,358.3,15139,1,0)
+442 ;;=^358.31IA^4^2
+443 ;;^UTILITY(U,$J,358.3,15139,1,3,0)
+444 ;;=3^Epididymo-orchitis
+445 ;;^UTILITY(U,$J,358.3,15139,1,4,0)
+446 ;;=4^N45.3
+447 ;;^UTILITY(U,$J,358.3,15139,2)
+448 ;;=^5015707
+449 ;;^UTILITY(U,$J,358.3,15140,0)
+450 ;;=N47.2^^56^641^85
+451 ;;^UTILITY(U,$J,358.3,15140,1,0)
+452 ;;=^358.31IA^4^2
+453 ;;^UTILITY(U,$J,358.3,15140,1,3,0)
+454 ;;=3^Paraphimosis
+455 ;;^UTILITY(U,$J,358.3,15140,1,4,0)
+456 ;;=4^N47.2
+457 ;;^UTILITY(U,$J,358.3,15140,2)
+458 ;;=^90023
+459 ;;^UTILITY(U,$J,358.3,15141,0)
+460 ;;=N47.1^^56^641^87
+461 ;;^UTILITY(U,$J,358.3,15141,1,0)
+462 ;;=^358.31IA^4^2
+463 ;;^UTILITY(U,$J,358.3,15141,1,3,0)
+464 ;;=3^Phimosis
+465 ;;^UTILITY(U,$J,358.3,15141,1,4,0)
+466 ;;=4^N47.1
+467 ;;^UTILITY(U,$J,358.3,15141,2)
+468 ;;=^93340
+469 ;;^UTILITY(U,$J,358.3,15142,0)
+470 ;;=N47.3^^56^641^28
+471 ;;^UTILITY(U,$J,358.3,15142,1,0)
+472 ;;=^358.31IA^4^2
+473 ;;^UTILITY(U,$J,358.3,15142,1,3,0)
+474 ;;=3^Deficient Foreskin
+475 ;;^UTILITY(U,$J,358.3,15142,1,4,0)
+476 ;;=4^N47.3
+477 ;;^UTILITY(U,$J,358.3,15142,2)
+478 ;;=^5015726
+479 ;;^UTILITY(U,$J,358.3,15143,0)
+480 ;;=N47.5^^56^641^1
+481 ;;^UTILITY(U,$J,358.3,15143,1,0)
+482 ;;=^358.31IA^4^2
+483 ;;^UTILITY(U,$J,358.3,15143,1,3,0)
+484 ;;=3^Adhesions Prepuce & Glans Penis
+485 ;;^UTILITY(U,$J,358.3,15143,1,4,0)
+486 ;;=4^N47.5
+487 ;;^UTILITY(U,$J,358.3,15143,2)
+488 ;;=^5015728
+489 ;;^UTILITY(U,$J,358.3,15144,0)
+490 ;;=N47.4^^56^641^23
+491 ;;^UTILITY(U,$J,358.3,15144,1,0)
+492 ;;=^358.31IA^4^2
+493 ;;^UTILITY(U,$J,358.3,15144,1,3,0)
+494 ;;=3^Cyst of Prepuce,Benign
+495 ;;^UTILITY(U,$J,358.3,15144,1,4,0)
+496 ;;=4^N47.4
+497 ;;^UTILITY(U,$J,358.3,15144,2)
+498 ;;=^5015727
+499 ;;^UTILITY(U,$J,358.3,15145,0)
+500 ;;=N47.8^^56^641^29
+501 ;;^UTILITY(U,$J,358.3,15145,1,0)
+502 ;;=^358.31IA^4^2
+503 ;;^UTILITY(U,$J,358.3,15145,1,3,0)
+504 ;;=3^Disorders of Prepuce
+505 ;;^UTILITY(U,$J,358.3,15145,1,4,0)
+506 ;;=4^N47.8
+507 ;;^UTILITY(U,$J,358.3,15145,2)
+508 ;;=^5015730
+509 ;;^UTILITY(U,$J,358.3,15146,0)
+510 ;;=N47.7^^56^641^64
+511 ;;^UTILITY(U,$J,358.3,15146,1,0)
+512 ;;=^358.31IA^4^2
+513 ;;^UTILITY(U,$J,358.3,15146,1,3,0)
+514 ;;=3^Inflammatory Diseases of Prepuce
+515 ;;^UTILITY(U,$J,358.3,15146,1,4,0)
+516 ;;=4^N47.7
+517 ;;^UTILITY(U,$J,358.3,15146,2)
+518 ;;=^5015729
+519 ;;^UTILITY(U,$J,358.3,15147,0)
+520 ;;=N47.6^^56^641^5
+521 ;;^UTILITY(U,$J,358.3,15147,1,0)
+522 ;;=^358.31IA^4^2
+523 ;;^UTILITY(U,$J,358.3,15147,1,3,0)
+524 ;;=3^Balanoposthitis
+525 ;;^UTILITY(U,$J,358.3,15147,1,4,0)
+526 ;;=4^N47.6
+527 ;;^UTILITY(U,$J,358.3,15147,2)
+528 ;;=^12530
+529 ;;^UTILITY(U,$J,358.3,15148,0)
+530 ;;=N48.1^^56^641^4
+531 ;;^UTILITY(U,$J,358.3,15148,1,0)
+532 ;;=^358.31IA^4^2
+533 ;;^UTILITY(U,$J,358.3,15148,1,3,0)
+534 ;;=3^Balanitis
+535 ;;^UTILITY(U,$J,358.3,15148,1,4,0)
+536 ;;=4^N48.1
+537 ;;^UTILITY(U,$J,358.3,15148,2)
+538 ;;=^12525
+539 ;;^UTILITY(U,$J,358.3,15149,0)
+540 ;;=N52.34^^56^641^43
+541 ;;^UTILITY(U,$J,358.3,15149,1,0)
+542 ;;=^358.31IA^4^2
+543 ;;^UTILITY(U,$J,358.3,15149,1,3,0)
+544 ;;=3^Erectile Dysfunction Following Simple Prostatectomy
+545 ;;^UTILITY(U,$J,358.3,15149,1,4,0)
+546 ;;=4^N52.34
+547 ;;^UTILITY(U,$J,358.3,15149,2)
+548 ;;=^5015760
+549 ;;^UTILITY(U,$J,358.3,15150,0)
+550 ;;=N52.39^^56^641^45
+551 ;;^UTILITY(U,$J,358.3,15150,1,0)
+552 ;;=^358.31IA^4^2
+553 ;;^UTILITY(U,$J,358.3,15150,1,3,0)
+554 ;;=3^Erectile Dysfunction Post-Surgical,Other & Unspec
+555 ;;^UTILITY(U,$J,358.3,15150,1,4,0)
+556 ;;=4^N52.39
+557 ;;^UTILITY(U,$J,358.3,15150,2)
+558 ;;=^5015761
+559 ;;^UTILITY(U,$J,358.3,15151,0)
+560 ;;=N52.33^^56^641^44
+561 ;;^UTILITY(U,$J,358.3,15151,1,0)
+562 ;;=^358.31IA^4^2
+563 ;;^UTILITY(U,$J,358.3,15151,1,3,0)
+564 ;;=3^Erectile Dysfunction Following Urethral Surgery
+565 ;;^UTILITY(U,$J,358.3,15151,1,4,0)
+566 ;;=4^N52.33
+567 ;;^UTILITY(U,$J,358.3,15151,2)
+568 ;;=^5015759
+569 ;;^UTILITY(U,$J,358.3,15152,0)
+570 ;;=N52.32^^56^641^41
+571 ;;^UTILITY(U,$J,358.3,15152,1,0)
+572 ;;=^358.31IA^4^2
+573 ;;^UTILITY(U,$J,358.3,15152,1,3,0)
+574 ;;=3^Erectile Dysfunction Following Radical Cystectomy
+575 ;;^UTILITY(U,$J,358.3,15152,1,4,0)
+576 ;;=4^N52.32
+577 ;;^UTILITY(U,$J,358.3,15152,2)
+578 ;;=^5015758
+579 ;;^UTILITY(U,$J,358.3,15153,0)
+580 ;;=N52.31^^56^641^42
+581 ;;^UTILITY(U,$J,358.3,15153,1,0)
+582 ;;=^358.31IA^4^2
+583 ;;^UTILITY(U,$J,358.3,15153,1,3,0)
+584 ;;=3^Erectile Dysfunction Following Radical Prostatectomy
+585 ;;^UTILITY(U,$J,358.3,15153,1,4,0)
+586 ;;=4^N52.31
+587 ;;^UTILITY(U,$J,358.3,15153,2)
+588 ;;=^5015757
+589 ;;^UTILITY(U,$J,358.3,15154,0)
+590 ;;=N52.2^^56^641^48
+591 ;;^UTILITY(U,$J,358.3,15154,1,0)
+592 ;;=^358.31IA^4^2
+593 ;;^UTILITY(U,$J,358.3,15154,1,3,0)
+594 ;;=3^Erectile Dysfunction,Drug-Induced
+595 ;;^UTILITY(U,$J,358.3,15154,1,4,0)
+596 ;;=4^N52.2
+597 ;;^UTILITY(U,$J,358.3,15154,2)
+598 ;;=^5015756
+599 ;;^UTILITY(U,$J,358.3,15155,0)
+600 ;;=N52.03^^56^641^39
+601 ;;^UTILITY(U,$J,358.3,15155,1,0)
+602 ;;=^358.31IA^4^2
+603 ;;^UTILITY(U,$J,358.3,15155,1,3,0)
+604 ;;=3^Erectile Dysfunction Comb Artrl Insuff & Corporo-Venous Occlusv
+605 ;;^UTILITY(U,$J,358.3,15155,1,4,0)
+606 ;;=4^N52.03
+607 ;;^UTILITY(U,$J,358.3,15155,2)
+608 ;;=^5015754
+609 ;;^UTILITY(U,$J,358.3,15156,0)
+610 ;;=N52.02^^56^641^40
+611 ;;^UTILITY(U,$J,358.3,15156,1,0)
+612 ;;=^358.31IA^4^2
+613 ;;^UTILITY(U,$J,358.3,15156,1,3,0)
+614 ;;=3^Erectile Dysfunction Corporo-Venous Occlusive
+615 ;;^UTILITY(U,$J,358.3,15156,1,4,0)
+616 ;;=4^N52.02
+617 ;;^UTILITY(U,$J,358.3,15156,2)
+618 ;;=^5015753
+619 ;;^UTILITY(U,$J,358.3,15157,0)
+620 ;;=N52.1^^56^641^47
+621 ;;^UTILITY(U,$J,358.3,15157,1,0)
+622 ;;=^358.31IA^4^2
+623 ;;^UTILITY(U,$J,358.3,15157,1,3,0)
+624 ;;=3^Erectile Dysfunction d/t Diseases Classified Elsewhere
+625 ;;^UTILITY(U,$J,358.3,15157,1,4,0)
+626 ;;=4^N52.1
+627 ;;^UTILITY(U,$J,358.3,15157,2)
+628 ;;=^5015755
+629 ;;^UTILITY(U,$J,358.3,15158,0)
+630 ;;=N52.01^^56^641^46
+631 ;;^UTILITY(U,$J,358.3,15158,1,0)
+632 ;;=^358.31IA^4^2
+633 ;;^UTILITY(U,$J,358.3,15158,1,3,0)
+634 ;;=3^Erectile Dysfunction d/t Arterial Insufficiency
+635 ;;^UTILITY(U,$J,358.3,15158,1,4,0)
+636 ;;=4^N52.01
+637 ;;^UTILITY(U,$J,358.3,15158,2)
+638 ;;=^5015752
+639 ;;^UTILITY(U,$J,358.3,15159,0)
+640 ;;=N95.2^^56^641^90
+641 ;;^UTILITY(U,$J,358.3,15159,1,0)
+642 ;;=^358.31IA^4^2
+643 ;;^UTILITY(U,$J,358.3,15159,1,3,0)
+644 ;;=3^Postmenopausal Atrophic Vaginitis
+645 ;;^UTILITY(U,$J,358.3,15159,1,4,0)
+646 ;;=4^N95.2
+647 ;;^UTILITY(U,$J,358.3,15159,2)
+648 ;;=^270577
+649 ;;^UTILITY(U,$J,358.3,15160,0)
+650 ;;=R30.9^^56^641^71
+651 ;;^UTILITY(U,$J,358.3,15160,1,0)
+652 ;;=^358.31IA^4^2
+653 ;;^UTILITY(U,$J,358.3,15160,1,3,0)
+654 ;;=3^Micturition Painful,Unspec
+655 ;;^UTILITY(U,$J,358.3,15160,1,4,0)
+656 ;;=4^R30.9
+657 ;;^UTILITY(U,$J,358.3,15160,2)
+658 ;;=^5019324
+659 ;;^UTILITY(U,$J,358.3,15161,0)
+660 ;;=R30.0^^56^641^30
+661 ;;^UTILITY(U,$J,358.3,15161,1,0)
+662 ;;=^358.31IA^4^2
+663 ;;^UTILITY(U,$J,358.3,15161,1,3,0)
+664 ;;=3^Dysuria
+665 ;;^UTILITY(U,$J,358.3,15161,1,4,0)
+666 ;;=4^R30.0
+667 ;;^UTILITY(U,$J,358.3,15161,2)
+668 ;;=^5019322
+669 ;;^UTILITY(U,$J,358.3,15162,0)
+670 ;;=R33.9^^56^641^121
+671 ;;^UTILITY(U,$J,358.3,15162,1,0)
+672 ;;=^358.31IA^4^2
+673 ;;^UTILITY(U,$J,358.3,15162,1,3,0)
+674 ;;=3^Urine Retention,Unspec
+675 ;;^UTILITY(U,$J,358.3,15162,1,4,0)
+676 ;;=4^R33.9
+677 ;;^UTILITY(U,$J,358.3,15162,2)
+678 ;;=^5019332
+679 ;;^UTILITY(U,$J,358.3,15163,0)
+680 ;;=R32.^^56^641^119
+681 ;;^UTILITY(U,$J,358.3,15163,1,0)
+682 ;;=^358.31IA^4^2
+683 ;;^UTILITY(U,$J,358.3,15163,1,3,0)
+684 ;;=3^Urinary Incontinence,Unspec
+685 ;;^UTILITY(U,$J,358.3,15163,1,4,0)
+686 ;;=4^R32.
+687 ;;^UTILITY(U,$J,358.3,15163,2)
+688 ;;=^5019329