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

IBDEI068.m

Go to the documentation of this file. 
  1. IBDEI068 ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,15095,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15095,1,3,0)
  1.  ;;=3^Candidal Cystitis & Urethritis
  1.  ;;^UTILITY(U,$J,358.3,15095,1,4,0)
  1.  ;;=4^B37.41
  1.  ;;^UTILITY(U,$J,358.3,15095,2)
  1.  ;;=^5000616
  1.  ;;^UTILITY(U,$J,358.3,15096,0)
  1.  ;;=B37.42^^56^641^12
  1.  ;;^UTILITY(U,$J,358.3,15096,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15096,1,3,0)
  1.  ;;=3^Candidal Balanitis
  1.  ;;^UTILITY(U,$J,358.3,15096,1,4,0)
  1.  ;;=4^B37.42
  1.  ;;^UTILITY(U,$J,358.3,15096,2)
  1.  ;;=^5000617
  1.  ;;^UTILITY(U,$J,358.3,15097,0)
  1.  ;;=A59.03^^56^641^110
  1.  ;;^UTILITY(U,$J,358.3,15097,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15097,1,3,0)
  1.  ;;=3^Trichomonal Cystitis & Urethritis
  1.  ;;^UTILITY(U,$J,358.3,15097,1,4,0)
  1.  ;;=4^A59.03
  1.  ;;^UTILITY(U,$J,358.3,15097,2)
  1.  ;;=^5000349
  1.  ;;^UTILITY(U,$J,358.3,15098,0)
  1.  ;;=E87.6^^56^641^63
  1.  ;;^UTILITY(U,$J,358.3,15098,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15098,1,3,0)
  1.  ;;=3^Hypokalemia
  1.  ;;^UTILITY(U,$J,358.3,15098,1,4,0)
  1.  ;;=4^E87.6
  1.  ;;^UTILITY(U,$J,358.3,15098,2)
  1.  ;;=^60610
  1.  ;;^UTILITY(U,$J,358.3,15099,0)
  1.  ;;=F52.0^^56^641^62
  1.  ;;^UTILITY(U,$J,358.3,15099,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15099,1,3,0)
  1.  ;;=3^Hypoactive Sexual Desire Disorder
  1.  ;;^UTILITY(U,$J,358.3,15099,1,4,0)
  1.  ;;=4^F52.0
  1.  ;;^UTILITY(U,$J,358.3,15099,2)
  1.  ;;=^5003618
  1.  ;;^UTILITY(U,$J,358.3,15100,0)
  1.  ;;=F52.22^^56^641^105
  1.  ;;^UTILITY(U,$J,358.3,15100,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15100,1,3,0)
  1.  ;;=3^Sexual Arousal Disorder,Female
  1.  ;;^UTILITY(U,$J,358.3,15100,1,4,0)
  1.  ;;=4^F52.22
  1.  ;;^UTILITY(U,$J,358.3,15100,2)
  1.  ;;=^5003621
  1.  ;;^UTILITY(U,$J,358.3,15101,0)
  1.  ;;=F52.8^^56^641^106
  1.  ;;^UTILITY(U,$J,358.3,15101,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15101,1,3,0)
  1.  ;;=3^Sexual Dysfnct Not d/t Substance/Known Physiological Cond
  1.  ;;^UTILITY(U,$J,358.3,15101,1,4,0)
  1.  ;;=4^F52.8
  1.  ;;^UTILITY(U,$J,358.3,15101,2)
  1.  ;;=^5003624
  1.  ;;^UTILITY(U,$J,358.3,15102,0)
  1.  ;;=F52.21^^56^641^35
  1.  ;;^UTILITY(U,$J,358.3,15102,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15102,1,3,0)
  1.  ;;=3^Erectile Disorder,Male (Psychogenic)
  1.  ;;^UTILITY(U,$J,358.3,15102,1,4,0)
  1.  ;;=4^F52.21
  1.  ;;^UTILITY(U,$J,358.3,15102,2)
  1.  ;;=^5003620
  1.  ;;^UTILITY(U,$J,358.3,15103,0)
  1.  ;;=I12.9^^56^641^61
  1.  ;;^UTILITY(U,$J,358.3,15103,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15103,1,3,0)
  1.  ;;=3^Hypertensive Kidney Disease Chronic w/ Stg 1-4
  1.  ;;^UTILITY(U,$J,358.3,15103,1,4,0)
  1.  ;;=4^I12.9
  1.  ;;^UTILITY(U,$J,358.3,15103,2)
  1.  ;;=^5007066
  1.  ;;^UTILITY(U,$J,358.3,15104,0)
  1.  ;;=N04.9^^56^641^78
  1.  ;;^UTILITY(U,$J,358.3,15104,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15104,1,3,0)
  1.  ;;=3^Nephrotic Syndrome w/ Unspec Morphologic Changes
  1.  ;;^UTILITY(U,$J,358.3,15104,1,4,0)
  1.  ;;=4^N04.9
  1.  ;;^UTILITY(U,$J,358.3,15104,2)
  1.  ;;=^5015540
  1.  ;;^UTILITY(U,$J,358.3,15105,0)
  1.  ;;=N02.9^^56^641^55
  1.  ;;^UTILITY(U,$J,358.3,15105,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15105,1,3,0)
  1.  ;;=3^Hematuria w/ Unspec Morphologic Changes,Recurrent & Persistent
  1.  ;;^UTILITY(U,$J,358.3,15105,1,4,0)
  1.  ;;=4^N02.9
  1.  ;;^UTILITY(U,$J,358.3,15105,2)
  1.  ;;=^5015520
  1.  ;;^UTILITY(U,$J,358.3,15106,0)
  1.  ;;=N06.9^^56^641^95
  1.  ;;^UTILITY(U,$J,358.3,15106,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15106,1,3,0)
  1.  ;;=3^Proteinuria Isolated w/ Unspec Morphologic Lesion
  1.  ;;^UTILITY(U,$J,358.3,15106,1,4,0)
  1.  ;;=4^N06.9
  1.  ;;^UTILITY(U,$J,358.3,15106,2)
  1.  ;;=^5015558
  1.  ;;^UTILITY(U,$J,358.3,15107,0)
  1.  ;;=N05.9^^56^641^75
  1.  ;;^UTILITY(U,$J,358.3,15107,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15107,1,3,0)
  1.  ;;=3^Nephritic Syndrome w/ Unspec Morphologic Changes
  1.  ;;^UTILITY(U,$J,358.3,15107,1,4,0)
  1.  ;;=4^N05.9
  1.  ;;^UTILITY(U,$J,358.3,15107,2)
  1.  ;;=^5134086
  1.  ;;^UTILITY(U,$J,358.3,15108,0)
  1.  ;;=N07.9^^56^641^77
  1.  ;;^UTILITY(U,$J,358.3,15108,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15108,1,3,0)
  1.  ;;=3^Nephropathy Hereditary w/ Unspec Morphologic Lesions
  1.  ;;^UTILITY(U,$J,358.3,15108,1,4,0)
  1.  ;;=4^N07.9
  1.  ;;^UTILITY(U,$J,358.3,15108,2)
  1.  ;;=^5015568
  1.  ;;^UTILITY(U,$J,358.3,15109,0)
  1.  ;;=N15.9^^56^641^102
  1.  ;;^UTILITY(U,$J,358.3,15109,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15109,1,3,0)
  1.  ;;=3^Renal Tubulo-Interstitial Disease,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15109,1,4,0)
  1.  ;;=4^N15.9
  1.  ;;^UTILITY(U,$J,358.3,15109,2)
  1.  ;;=^5015596
  1.  ;;^UTILITY(U,$J,358.3,15110,0)
  1.  ;;=N17.9^^56^641^67
  1.  ;;^UTILITY(U,$J,358.3,15110,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15110,1,3,0)
  1.  ;;=3^Kidney Failure,Acute,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15110,1,4,0)
  1.  ;;=4^N17.9
  1.  ;;^UTILITY(U,$J,358.3,15110,2)
  1.  ;;=^338532
  1.  ;;^UTILITY(U,$J,358.3,15111,0)
  1.  ;;=N19.^^56^641^68
  1.  ;;^UTILITY(U,$J,358.3,15111,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15111,1,3,0)
  1.  ;;=3^Kidney Failure,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15111,1,4,0)
  1.  ;;=4^N19.
  1.  ;;^UTILITY(U,$J,358.3,15111,2)
  1.  ;;=^5015607
  1.  ;;^UTILITY(U,$J,358.3,15112,0)
  1.  ;;=N11.0^^56^641^99
  1.  ;;^UTILITY(U,$J,358.3,15112,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15112,1,3,0)
  1.  ;;=3^Pyelonephritis,Chronic Nonobstructive Reflux-Associated
  1.  ;;^UTILITY(U,$J,358.3,15112,1,4,0)
  1.  ;;=4^N11.0
  1.  ;;^UTILITY(U,$J,358.3,15112,2)
  1.  ;;=^5015571
  1.  ;;^UTILITY(U,$J,358.3,15113,0)
  1.  ;;=N10.^^56^641^76
  1.  ;;^UTILITY(U,$J,358.3,15113,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15113,1,3,0)
  1.  ;;=3^Nephritis Acute Tubulo-Interstitial
  1.  ;;^UTILITY(U,$J,358.3,15113,1,4,0)
  1.  ;;=4^N10.
  1.  ;;^UTILITY(U,$J,358.3,15113,2)
  1.  ;;=^5015570
  1.  ;;^UTILITY(U,$J,358.3,15114,0)
  1.  ;;=N20.2^^56^641^10
  1.  ;;^UTILITY(U,$J,358.3,15114,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15114,1,3,0)
  1.  ;;=3^Calculus Kidney w/ Calculus Ureter
  1.  ;;^UTILITY(U,$J,358.3,15114,1,4,0)
  1.  ;;=4^N20.2
  1.  ;;^UTILITY(U,$J,358.3,15114,2)
  1.  ;;=^5015609
  1.  ;;^UTILITY(U,$J,358.3,15115,0)
  1.  ;;=N20.0^^56^641^9
  1.  ;;^UTILITY(U,$J,358.3,15115,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15115,1,3,0)
  1.  ;;=3^Calculus Kidney
  1.  ;;^UTILITY(U,$J,358.3,15115,1,4,0)
  1.  ;;=4^N20.0
  1.  ;;^UTILITY(U,$J,358.3,15115,2)
  1.  ;;=^67056
  1.  ;;^UTILITY(U,$J,358.3,15116,0)
  1.  ;;=N29.^^56^641^66
  1.  ;;^UTILITY(U,$J,358.3,15116,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15116,1,3,0)
  1.  ;;=3^Kidney & Ureter Disorders in Diseases Classified Elsewhere
  1.  ;;^UTILITY(U,$J,358.3,15116,1,4,0)
  1.  ;;=4^N29.
  1.  ;;^UTILITY(U,$J,358.3,15116,2)
  1.  ;;=^5015631
  1.  ;;^UTILITY(U,$J,358.3,15117,0)
  1.  ;;=N28.9^^56^641^65
  1.  ;;^UTILITY(U,$J,358.3,15117,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15117,1,3,0)
  1.  ;;=3^Kidney & Ureter Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15117,1,4,0)
  1.  ;;=4^N28.9
  1.  ;;^UTILITY(U,$J,358.3,15117,2)
  1.  ;;=^5015630
  1.  ;;^UTILITY(U,$J,358.3,15118,0)
  1.  ;;=N30.01^^56^641^24
  1.  ;;^UTILITY(U,$J,358.3,15118,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15118,1,3,0)
  1.  ;;=3^Cystitis w/ Hematuria,Acute
  1.  ;;^UTILITY(U,$J,358.3,15118,1,4,0)
  1.  ;;=4^N30.01
  1.  ;;^UTILITY(U,$J,358.3,15118,2)
  1.  ;;=^5015633
  1.  ;;^UTILITY(U,$J,358.3,15119,0)
  1.  ;;=N30.00^^56^641^26
  1.  ;;^UTILITY(U,$J,358.3,15119,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15119,1,3,0)
  1.  ;;=3^Cystitis w/o Hematuria,Acute
  1.  ;;^UTILITY(U,$J,358.3,15119,1,4,0)
  1.  ;;=4^N30.00
  1.  ;;^UTILITY(U,$J,358.3,15119,2)
  1.  ;;=^5015632
  1.  ;;^UTILITY(U,$J,358.3,15120,0)
  1.  ;;=N30.41^^56^641^25
  1.  ;;^UTILITY(U,$J,358.3,15120,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15120,1,3,0)
  1.  ;;=3^Cystitis w/ Hematuria,Irradiation
  1.  ;;^UTILITY(U,$J,358.3,15120,1,4,0)
  1.  ;;=4^N30.41
  1.  ;;^UTILITY(U,$J,358.3,15120,2)
  1.  ;;=^5015640
  1.  ;;^UTILITY(U,$J,358.3,15121,0)
  1.  ;;=N30.40^^56^641^27
  1.  ;;^UTILITY(U,$J,358.3,15121,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15121,1,3,0)
  1.  ;;=3^Cystitis w/o Hematuria,Irradiation
  1.  ;;^UTILITY(U,$J,358.3,15121,1,4,0)
  1.  ;;=4^N30.40
  1.  ;;^UTILITY(U,$J,358.3,15121,2)
  1.  ;;=^5015639
  1.  ;;^UTILITY(U,$J,358.3,15122,0)
  1.  ;;=N32.0^^56^641^8
  1.  ;;^UTILITY(U,$J,358.3,15122,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15122,1,3,0)
  1.  ;;=3^Bladder-Neck Obstruction
  1.  ;;^UTILITY(U,$J,358.3,15122,1,4,0)
  1.  ;;=4^N32.0
  1.  ;;^UTILITY(U,$J,358.3,15122,2)
  1.  ;;=^5015649
  1.  ;;^UTILITY(U,$J,358.3,15123,0)
  1.  ;;=N31.9^^56^641^79
  1.  ;;^UTILITY(U,$J,358.3,15123,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15123,1,3,0)
  1.  ;;=3^Neurogenic Bladder Dysfunction,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15123,1,4,0)
  1.  ;;=4^N31.9
  1.  ;;^UTILITY(U,$J,358.3,15123,2)
  1.  ;;=^5015648
  1.  ;;^UTILITY(U,$J,358.3,15124,0)
  1.  ;;=N31.1^^56^641^80
  1.  ;;^UTILITY(U,$J,358.3,15124,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15124,1,3,0)
  1.  ;;=3^Neuropathic Bladder,Reflex NEC
  1.  ;;^UTILITY(U,$J,358.3,15124,1,4,0)
  1.  ;;=4^N31.1
  1.  ;;^UTILITY(U,$J,358.3,15124,2)
  1.  ;;=^5015645
  1.  ;;^UTILITY(U,$J,358.3,15125,0)
  1.  ;;=N32.89^^56^641^7
  1.  ;;^UTILITY(U,$J,358.3,15125,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15125,1,3,0)
  1.  ;;=3^Bladder Disorders,Other Spec
  1.  ;;^UTILITY(U,$J,358.3,15125,1,4,0)
  1.  ;;=4^N32.89
  1.  ;;^UTILITY(U,$J,358.3,15125,2)
  1.  ;;=^87989
  1.  ;;^UTILITY(U,$J,358.3,15126,0)
  1.  ;;=N33.^^56^641^6
  1.  ;;^UTILITY(U,$J,358.3,15126,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15126,1,3,0)
  1.  ;;=3^Bladder Disorders,Diseases Classified Elsewhere
  1.  ;;^UTILITY(U,$J,358.3,15126,1,4,0)
  1.  ;;=4^N33.
  1.  ;;^UTILITY(U,$J,358.3,15126,2)
  1.  ;;=^5015654
  1.  ;;^UTILITY(U,$J,358.3,15127,0)
  1.  ;;=N34.2^^56^641^115
  1.  ;;^UTILITY(U,$J,358.3,15127,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15127,1,3,0)
  1.  ;;=3^Urethritis
  1.  ;;^UTILITY(U,$J,358.3,15127,1,4,0)
  1.  ;;=4^N34.2
  1.  ;;^UTILITY(U,$J,358.3,15127,2)
  1.  ;;=^88231
  1.  ;;^UTILITY(U,$J,358.3,15128,0)
  1.  ;;=N34.1^^56^641^116
  1.  ;;^UTILITY(U,$J,358.3,15128,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15128,1,3,0)
  1.  ;;=3^Urethritis,Nonspec
  1.  ;;^UTILITY(U,$J,358.3,15128,1,4,0)
  1.  ;;=4^N34.1
  1.  ;;^UTILITY(U,$J,358.3,15128,2)
  1.  ;;=^5015655
  1.  ;;^UTILITY(U,$J,358.3,15129,0)
  1.  ;;=N39.0^^56^641^120
  1.  ;;^UTILITY(U,$J,358.3,15129,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15129,1,3,0)
  1.  ;;=3^Urinary Tract Infection,Site Not Spec
  1.  ;;^UTILITY(U,$J,358.3,15129,1,4,0)
  1.  ;;=4^N39.0
  1.  ;;^UTILITY(U,$J,358.3,15129,2)
  1.  ;;=^124436
  1.  ;;^UTILITY(U,$J,358.3,15130,0)
  1.  ;;=N31.0^^56^641^81
  1.  ;;^UTILITY(U,$J,358.3,15130,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15130,1,3,0)
  1.  ;;=3^Neuropathic Bladder,Uninhibited NEC
  1.  ;;^UTILITY(U,$J,358.3,15130,1,4,0)
  1.  ;;=4^N31.0
  1.  ;;^UTILITY(U,$J,358.3,15130,2)
  1.  ;;=^5015644
  1.  ;;^UTILITY(U,$J,358.3,15131,0)
  1.  ;;=R31.9^^56^641^60
  1.  ;;^UTILITY(U,$J,358.3,15131,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15131,1,3,0)
  1.  ;;=3^Hematuria,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15131,1,4,0)
  1.  ;;=4^R31.9
  1.  ;;^UTILITY(U,$J,358.3,15131,2)
  1.  ;;=^5019328
  1.  ;;^UTILITY(U,$J,358.3,15132,0)
  1.  ;;=R31.0^^56^641^57
  1.  ;;^UTILITY(U,$J,358.3,15132,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15132,1,3,0)
  1.  ;;=3^Hematuria,Gross
  1.  ;;^UTILITY(U,$J,358.3,15132,1,4,0)
  1.  ;;=4^R31.0
  1.  ;;^UTILITY(U,$J,358.3,15132,2)
  1.  ;;=^5019325
  1.  ;;^UTILITY(U,$J,358.3,15133,0)
  1.  ;;=R31.1^^56^641^56
  1.  ;;^UTILITY(U,$J,358.3,15133,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15133,1,3,0)
  1.  ;;=3^Hematuria,Benign Essential Microscopic
  1.  ;;^UTILITY(U,$J,358.3,15133,1,4,0)
  1.  ;;=4^R31.1
  1.  ;;^UTILITY(U,$J,358.3,15133,2)
  1.  ;;=^5019326
  1.  ;;^UTILITY(U,$J,358.3,15134,0)
  1.  ;;=N40.0^^56^641^3
  1.  ;;^UTILITY(U,$J,358.3,15134,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15134,1,3,0)
  1.  ;;=3^BPH w/o Lower Urinary Tract Symptoms
  1.  ;;^UTILITY(U,$J,358.3,15134,1,4,0)
  1.  ;;=4^N40.0
  1.  ;;^UTILITY(U,$J,358.3,15134,2)
  1.  ;;=^5015689
  1.  ;;^UTILITY(U,$J,358.3,15135,0)
  1.  ;;=N40.1^^56^641^2
  1.  ;;^UTILITY(U,$J,358.3,15135,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15135,1,3,0)
  1.  ;;=3^BPH w/ Lower Urinary Tract Symptoms
  1.  ;;^UTILITY(U,$J,358.3,15135,1,4,0)
  1.  ;;=4^N40.1
  1.  ;;^UTILITY(U,$J,358.3,15135,2)
  1.  ;;=^5015690
  1.  ;;^UTILITY(U,$J,358.3,15136,0)
  1.  ;;=N41.0^^56^641^91
  1.  ;;^UTILITY(U,$J,358.3,15136,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15136,1,3,0)
  1.  ;;=3^Prostatitis,Acute
  1.  ;;^UTILITY(U,$J,358.3,15136,1,4,0)
  1.  ;;=4^N41.0
  1.  ;;^UTILITY(U,$J,358.3,15136,2)
  1.  ;;=^259106
  1.  ;;^UTILITY(U,$J,358.3,15137,0)
  1.  ;;=N45.1^^56^641^33
  1.  ;;^UTILITY(U,$J,358.3,15137,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15137,1,3,0)
  1.  ;;=3^Epididymitis
  1.  ;;^UTILITY(U,$J,358.3,15137,1,4,0)
  1.  ;;=4^N45.1
  1.  ;;^UTILITY(U,$J,358.3,15137,2)
  1.  ;;=^41396
  1.  ;;^UTILITY(U,$J,358.3,15138,0)
  1.  ;;=N45.2^^56^641^83
  1.  ;;^UTILITY(U,$J,358.3,15138,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15138,1,3,0)
  1.  ;;=3^Orchitis
  1.  ;;^UTILITY(U,$J,358.3,15138,1,4,0)
  1.  ;;=4^N45.2
  1.  ;;^UTILITY(U,$J,358.3,15138,2)
  1.  ;;=^86174
  1.  ;;^UTILITY(U,$J,358.3,15139,0)
  1.  ;;=N45.3^^56^641^34
  1.  ;;^UTILITY(U,$J,358.3,15139,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15139,1,3,0)
  1.  ;;=3^Epididymo-orchitis
  1.  ;;^UTILITY(U,$J,358.3,15139,1,4,0)
  1.  ;;=4^N45.3
  1.  ;;^UTILITY(U,$J,358.3,15139,2)
  1.  ;;=^5015707
  1.  ;;^UTILITY(U,$J,358.3,15140,0)
  1.  ;;=N47.2^^56^641^85
  1.  ;;^UTILITY(U,$J,358.3,15140,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15140,1,3,0)
  1.  ;;=3^Paraphimosis
  1.  ;;^UTILITY(U,$J,358.3,15140,1,4,0)
  1.  ;;=4^N47.2
  1.  ;;^UTILITY(U,$J,358.3,15140,2)
  1.  ;;=^90023
  1.  ;;^UTILITY(U,$J,358.3,15141,0)
  1.  ;;=N47.1^^56^641^87
  1.  ;;^UTILITY(U,$J,358.3,15141,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15141,1,3,0)
  1.  ;;=3^Phimosis
  1.  ;;^UTILITY(U,$J,358.3,15141,1,4,0)
  1.  ;;=4^N47.1
  1.  ;;^UTILITY(U,$J,358.3,15141,2)
  1.  ;;=^93340
  1.  ;;^UTILITY(U,$J,358.3,15142,0)
  1.  ;;=N47.3^^56^641^28
  1.  ;;^UTILITY(U,$J,358.3,15142,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15142,1,3,0)
  1.  ;;=3^Deficient Foreskin
  1.  ;;^UTILITY(U,$J,358.3,15142,1,4,0)
  1.  ;;=4^N47.3
  1.  ;;^UTILITY(U,$J,358.3,15142,2)
  1.  ;;=^5015726
  1.  ;;^UTILITY(U,$J,358.3,15143,0)
  1.  ;;=N47.5^^56^641^1
  1.  ;;^UTILITY(U,$J,358.3,15143,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15143,1,3,0)
  1.  ;;=3^Adhesions Prepuce & Glans Penis
  1.  ;;^UTILITY(U,$J,358.3,15143,1,4,0)
  1.  ;;=4^N47.5
  1.  ;;^UTILITY(U,$J,358.3,15143,2)
  1.  ;;=^5015728
  1.  ;;^UTILITY(U,$J,358.3,15144,0)
  1.  ;;=N47.4^^56^641^23
  1.  ;;^UTILITY(U,$J,358.3,15144,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15144,1,3,0)
  1.  ;;=3^Cyst of Prepuce,Benign
  1.  ;;^UTILITY(U,$J,358.3,15144,1,4,0)
  1.  ;;=4^N47.4
  1.  ;;^UTILITY(U,$J,358.3,15144,2)
  1.  ;;=^5015727
  1.  ;;^UTILITY(U,$J,358.3,15145,0)
  1.  ;;=N47.8^^56^641^29
  1.  ;;^UTILITY(U,$J,358.3,15145,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15145,1,3,0)
  1.  ;;=3^Disorders of Prepuce
  1.  ;;^UTILITY(U,$J,358.3,15145,1,4,0)
  1.  ;;=4^N47.8
  1.  ;;^UTILITY(U,$J,358.3,15145,2)
  1.  ;;=^5015730
  1.  ;;^UTILITY(U,$J,358.3,15146,0)
  1.  ;;=N47.7^^56^641^64
  1.  ;;^UTILITY(U,$J,358.3,15146,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15146,1,3,0)
  1.  ;;=3^Inflammatory Diseases of Prepuce
  1.  ;;^UTILITY(U,$J,358.3,15146,1,4,0)
  1.  ;;=4^N47.7
  1.  ;;^UTILITY(U,$J,358.3,15146,2)
  1.  ;;=^5015729
  1.  ;;^UTILITY(U,$J,358.3,15147,0)
  1.  ;;=N47.6^^56^641^5
  1.  ;;^UTILITY(U,$J,358.3,15147,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15147,1,3,0)
  1.  ;;=3^Balanoposthitis
  1.  ;;^UTILITY(U,$J,358.3,15147,1,4,0)
  1.  ;;=4^N47.6
  1.  ;;^UTILITY(U,$J,358.3,15147,2)
  1.  ;;=^12530
  1.  ;;^UTILITY(U,$J,358.3,15148,0)
  1.  ;;=N48.1^^56^641^4
  1.  ;;^UTILITY(U,$J,358.3,15148,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15148,1,3,0)
  1.  ;;=3^Balanitis
  1.  ;;^UTILITY(U,$J,358.3,15148,1,4,0)
  1.  ;;=4^N48.1
  1.  ;;^UTILITY(U,$J,358.3,15148,2)
  1.  ;;=^12525
  1.  ;;^UTILITY(U,$J,358.3,15149,0)
  1.  ;;=N52.34^^56^641^43
  1.  ;;^UTILITY(U,$J,358.3,15149,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15149,1,3,0)
  1.  ;;=3^Erectile Dysfunction Following Simple Prostatectomy
  1.  ;;^UTILITY(U,$J,358.3,15149,1,4,0)
  1.  ;;=4^N52.34
  1.  ;;^UTILITY(U,$J,358.3,15149,2)
  1.  ;;=^5015760
  1.  ;;^UTILITY(U,$J,358.3,15150,0)
  1.  ;;=N52.39^^56^641^45
  1.  ;;^UTILITY(U,$J,358.3,15150,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15150,1,3,0)
  1.  ;;=3^Erectile Dysfunction Post-Surgical,Other & Unspec
  1.  ;;^UTILITY(U,$J,358.3,15150,1,4,0)
  1.  ;;=4^N52.39
  1.  ;;^UTILITY(U,$J,358.3,15150,2)
  1.  ;;=^5015761
  1.  ;;^UTILITY(U,$J,358.3,15151,0)
  1.  ;;=N52.33^^56^641^44
  1.  ;;^UTILITY(U,$J,358.3,15151,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15151,1,3,0)
  1.  ;;=3^Erectile Dysfunction Following Urethral Surgery
  1.  ;;^UTILITY(U,$J,358.3,15151,1,4,0)
  1.  ;;=4^N52.33
  1.  ;;^UTILITY(U,$J,358.3,15151,2)
  1.  ;;=^5015759
  1.  ;;^UTILITY(U,$J,358.3,15152,0)
  1.  ;;=N52.32^^56^641^41
  1.  ;;^UTILITY(U,$J,358.3,15152,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15152,1,3,0)
  1.  ;;=3^Erectile Dysfunction Following Radical Cystectomy
  1.  ;;^UTILITY(U,$J,358.3,15152,1,4,0)
  1.  ;;=4^N52.32
  1.  ;;^UTILITY(U,$J,358.3,15152,2)
  1.  ;;=^5015758
  1.  ;;^UTILITY(U,$J,358.3,15153,0)
  1.  ;;=N52.31^^56^641^42
  1.  ;;^UTILITY(U,$J,358.3,15153,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15153,1,3,0)
  1.  ;;=3^Erectile Dysfunction Following Radical Prostatectomy
  1.  ;;^UTILITY(U,$J,358.3,15153,1,4,0)
  1.  ;;=4^N52.31
  1.  ;;^UTILITY(U,$J,358.3,15153,2)
  1.  ;;=^5015757
  1.  ;;^UTILITY(U,$J,358.3,15154,0)
  1.  ;;=N52.2^^56^641^48
  1.  ;;^UTILITY(U,$J,358.3,15154,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15154,1,3,0)
  1.  ;;=3^Erectile Dysfunction,Drug-Induced
  1.  ;;^UTILITY(U,$J,358.3,15154,1,4,0)
  1.  ;;=4^N52.2
  1.  ;;^UTILITY(U,$J,358.3,15154,2)
  1.  ;;=^5015756
  1.  ;;^UTILITY(U,$J,358.3,15155,0)
  1.  ;;=N52.03^^56^641^39
  1.  ;;^UTILITY(U,$J,358.3,15155,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15155,1,3,0)
  1.  ;;=3^Erectile Dysfunction Comb Artrl Insuff & Corporo-Venous Occlusv
  1.  ;;^UTILITY(U,$J,358.3,15155,1,4,0)
  1.  ;;=4^N52.03
  1.  ;;^UTILITY(U,$J,358.3,15155,2)
  1.  ;;=^5015754
  1.  ;;^UTILITY(U,$J,358.3,15156,0)
  1.  ;;=N52.02^^56^641^40
  1.  ;;^UTILITY(U,$J,358.3,15156,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15156,1,3,0)
  1.  ;;=3^Erectile Dysfunction Corporo-Venous Occlusive
  1.  ;;^UTILITY(U,$J,358.3,15156,1,4,0)
  1.  ;;=4^N52.02
  1.  ;;^UTILITY(U,$J,358.3,15156,2)
  1.  ;;=^5015753
  1.  ;;^UTILITY(U,$J,358.3,15157,0)
  1.  ;;=N52.1^^56^641^47
  1.  ;;^UTILITY(U,$J,358.3,15157,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15157,1,3,0)
  1.  ;;=3^Erectile Dysfunction d/t Diseases Classified Elsewhere
  1.  ;;^UTILITY(U,$J,358.3,15157,1,4,0)
  1.  ;;=4^N52.1
  1.  ;;^UTILITY(U,$J,358.3,15157,2)
  1.  ;;=^5015755
  1.  ;;^UTILITY(U,$J,358.3,15158,0)
  1.  ;;=N52.01^^56^641^46
  1.  ;;^UTILITY(U,$J,358.3,15158,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15158,1,3,0)
  1.  ;;=3^Erectile Dysfunction d/t Arterial Insufficiency
  1.  ;;^UTILITY(U,$J,358.3,15158,1,4,0)
  1.  ;;=4^N52.01
  1.  ;;^UTILITY(U,$J,358.3,15158,2)
  1.  ;;=^5015752
  1.  ;;^UTILITY(U,$J,358.3,15159,0)
  1.  ;;=N95.2^^56^641^90
  1.  ;;^UTILITY(U,$J,358.3,15159,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15159,1,3,0)
  1.  ;;=3^Postmenopausal Atrophic Vaginitis
  1.  ;;^UTILITY(U,$J,358.3,15159,1,4,0)
  1.  ;;=4^N95.2
  1.  ;;^UTILITY(U,$J,358.3,15159,2)
  1.  ;;=^270577
  1.  ;;^UTILITY(U,$J,358.3,15160,0)
  1.  ;;=R30.9^^56^641^71
  1.  ;;^UTILITY(U,$J,358.3,15160,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15160,1,3,0)
  1.  ;;=3^Micturition Painful,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15160,1,4,0)
  1.  ;;=4^R30.9
  1.  ;;^UTILITY(U,$J,358.3,15160,2)
  1.  ;;=^5019324
  1.  ;;^UTILITY(U,$J,358.3,15161,0)
  1.  ;;=R30.0^^56^641^30
  1.  ;;^UTILITY(U,$J,358.3,15161,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15161,1,3,0)
  1.  ;;=3^Dysuria
  1.  ;;^UTILITY(U,$J,358.3,15161,1,4,0)
  1.  ;;=4^R30.0
  1.  ;;^UTILITY(U,$J,358.3,15161,2)
  1.  ;;=^5019322
  1.  ;;^UTILITY(U,$J,358.3,15162,0)
  1.  ;;=R33.9^^56^641^121
  1.  ;;^UTILITY(U,$J,358.3,15162,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15162,1,3,0)
  1.  ;;=3^Urine Retention,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15162,1,4,0)
  1.  ;;=4^R33.9
  1.  ;;^UTILITY(U,$J,358.3,15162,2)
  1.  ;;=^5019332
  1.  ;;^UTILITY(U,$J,358.3,15163,0)
  1.  ;;=R32.^^56^641^119
  1.  ;;^UTILITY(U,$J,358.3,15163,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15163,1,3,0)
  1.  ;;=3^Urinary Incontinence,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15163,1,4,0)
  1.  ;;=4^R32.
  1.  ;;^UTILITY(U,$J,358.3,15163,2)
  1.  ;;=^5019329