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

IBDEI0CY.m

Go to the documentation of this file. 
  1. IBDEI0CY ; ; 03-MAY-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,32494,1,4,0)
  1.  ;;=4^K20.90
  1.  ;;^UTILITY(U,$J,358.3,32494,2)
  1.  ;;=^5159212
  1.  ;;^UTILITY(U,$J,358.3,32495,0)
  1.  ;;=K20.91^^99^1342^10
  1.  ;;^UTILITY(U,$J,358.3,32495,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32495,1,3,0)
  1.  ;;=3^Esophagitis,Unspec w/ Bleeding
  1.  ;;^UTILITY(U,$J,358.3,32495,1,4,0)
  1.  ;;=4^K20.91
  1.  ;;^UTILITY(U,$J,358.3,32495,2)
  1.  ;;=^5159213
  1.  ;;^UTILITY(U,$J,358.3,32496,0)
  1.  ;;=K21.00^^99^1342^15
  1.  ;;^UTILITY(U,$J,358.3,32496,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32496,1,3,0)
  1.  ;;=3^GERD w/ Esophagitis w/o Bleed
  1.  ;;^UTILITY(U,$J,358.3,32496,1,4,0)
  1.  ;;=4^K21.00
  1.  ;;^UTILITY(U,$J,358.3,32496,2)
  1.  ;;=^5159214
  1.  ;;^UTILITY(U,$J,358.3,32497,0)
  1.  ;;=K21.01^^99^1342^14
  1.  ;;^UTILITY(U,$J,358.3,32497,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32497,1,3,0)
  1.  ;;=3^GERD w/ Esophagitis w/ Bleed
  1.  ;;^UTILITY(U,$J,358.3,32497,1,4,0)
  1.  ;;=4^K21.01
  1.  ;;^UTILITY(U,$J,358.3,32497,2)
  1.  ;;=^5159215
  1.  ;;^UTILITY(U,$J,358.3,32498,0)
  1.  ;;=I69.959^^99^1343^13
  1.  ;;^UTILITY(U,$J,358.3,32498,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32498,1,3,0)
  1.  ;;=3^Hemiplegia/Hemiparesis Following Unspec Cerebrovascular Disease
  1.  ;;^UTILITY(U,$J,358.3,32498,1,4,0)
  1.  ;;=4^I69.959
  1.  ;;^UTILITY(U,$J,358.3,32498,2)
  1.  ;;=^5007563
  1.  ;;^UTILITY(U,$J,358.3,32499,0)
  1.  ;;=I10.^^99^1343^12
  1.  ;;^UTILITY(U,$J,358.3,32499,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32499,1,3,0)
  1.  ;;=3^HTN,Essential
  1.  ;;^UTILITY(U,$J,358.3,32499,1,4,0)
  1.  ;;=4^I10.
  1.  ;;^UTILITY(U,$J,358.3,32499,2)
  1.  ;;=^5007062
  1.  ;;^UTILITY(U,$J,358.3,32500,0)
  1.  ;;=I20.9^^99^1343^1
  1.  ;;^UTILITY(U,$J,358.3,32500,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32500,1,3,0)
  1.  ;;=3^Angina pectoris, unspecified
  1.  ;;^UTILITY(U,$J,358.3,32500,1,4,0)
  1.  ;;=4^I20.9
  1.  ;;^UTILITY(U,$J,358.3,32500,2)
  1.  ;;=^5007079
  1.  ;;^UTILITY(U,$J,358.3,32501,0)
  1.  ;;=I21.3^^99^1343^16
  1.  ;;^UTILITY(U,$J,358.3,32501,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32501,1,3,0)
  1.  ;;=3^Myocardial infarctions (STEMI), unspec site
  1.  ;;^UTILITY(U,$J,358.3,32501,1,4,0)
  1.  ;;=4^I21.3
  1.  ;;^UTILITY(U,$J,358.3,32501,2)
  1.  ;;=^5007087
  1.  ;;^UTILITY(U,$J,358.3,32502,0)
  1.  ;;=I25.10^^99^1343^2
  1.  ;;^UTILITY(U,$J,358.3,32502,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32502,1,3,0)
  1.  ;;=3^Athscl hrt disease w/o angina pectoris
  1.  ;;^UTILITY(U,$J,358.3,32502,1,4,0)
  1.  ;;=4^I25.10
  1.  ;;^UTILITY(U,$J,358.3,32502,2)
  1.  ;;=^5007107
  1.  ;;^UTILITY(U,$J,358.3,32503,0)
  1.  ;;=I25.2^^99^1343^20
  1.  ;;^UTILITY(U,$J,358.3,32503,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32503,1,3,0)
  1.  ;;=3^Old myocardial infarction
  1.  ;;^UTILITY(U,$J,358.3,32503,1,4,0)
  1.  ;;=4^I25.2
  1.  ;;^UTILITY(U,$J,358.3,32503,2)
  1.  ;;=^259884
  1.  ;;^UTILITY(U,$J,358.3,32504,0)
  1.  ;;=I30.0^^99^1343^14
  1.  ;;^UTILITY(U,$J,358.3,32504,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32504,1,3,0)
  1.  ;;=3^Idiopathic pericarditis, acute
  1.  ;;^UTILITY(U,$J,358.3,32504,1,4,0)
  1.  ;;=4^I30.0
  1.  ;;^UTILITY(U,$J,358.3,32504,2)
  1.  ;;=^5007157
  1.  ;;^UTILITY(U,$J,358.3,32505,0)
  1.  ;;=I34.1^^99^1343^19
  1.  ;;^UTILITY(U,$J,358.3,32505,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32505,1,3,0)
  1.  ;;=3^Nonrheumatic mitral valve prolapse
  1.  ;;^UTILITY(U,$J,358.3,32505,1,4,0)
  1.  ;;=4^I34.1
  1.  ;;^UTILITY(U,$J,358.3,32505,2)
  1.  ;;=^5007170
  1.  ;;^UTILITY(U,$J,358.3,32506,0)
  1.  ;;=I35.0^^99^1343^17
  1.  ;;^UTILITY(U,$J,358.3,32506,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32506,1,3,0)
  1.  ;;=3^Nonrheumatic aortic valve stenosis
  1.  ;;^UTILITY(U,$J,358.3,32506,1,4,0)
  1.  ;;=4^I35.0
  1.  ;;^UTILITY(U,$J,358.3,32506,2)
  1.  ;;=^5007174
  1.  ;;^UTILITY(U,$J,358.3,32507,0)
  1.  ;;=I35.2^^99^1343^18
  1.  ;;^UTILITY(U,$J,358.3,32507,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32507,1,3,0)
  1.  ;;=3^Nonrheumatic aortic valve stenosis w/ insufficiency
  1.  ;;^UTILITY(U,$J,358.3,32507,1,4,0)
  1.  ;;=4^I35.2
  1.  ;;^UTILITY(U,$J,358.3,32507,2)
  1.  ;;=^5007176
  1.  ;;^UTILITY(U,$J,358.3,32508,0)
  1.  ;;=I42.8^^99^1343^7
  1.  ;;^UTILITY(U,$J,358.3,32508,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32508,1,3,0)
  1.  ;;=3^Cardiomyopathies, other
  1.  ;;^UTILITY(U,$J,358.3,32508,1,4,0)
  1.  ;;=4^I42.8
  1.  ;;^UTILITY(U,$J,358.3,32508,2)
  1.  ;;=^5007199
  1.  ;;^UTILITY(U,$J,358.3,32509,0)
  1.  ;;=I48.91^^99^1343^3
  1.  ;;^UTILITY(U,$J,358.3,32509,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32509,1,3,0)
  1.  ;;=3^Atrial fibrillation, unspec
  1.  ;;^UTILITY(U,$J,358.3,32509,1,4,0)
  1.  ;;=4^I48.91
  1.  ;;^UTILITY(U,$J,358.3,32509,2)
  1.  ;;=^5007229
  1.  ;;^UTILITY(U,$J,358.3,32510,0)
  1.  ;;=I48.92^^99^1343^4
  1.  ;;^UTILITY(U,$J,358.3,32510,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32510,1,3,0)
  1.  ;;=3^Atrial flutter, unspec
  1.  ;;^UTILITY(U,$J,358.3,32510,1,4,0)
  1.  ;;=4^I48.92
  1.  ;;^UTILITY(U,$J,358.3,32510,2)
  1.  ;;=^5007230
  1.  ;;^UTILITY(U,$J,358.3,32511,0)
  1.  ;;=I49.3^^99^1343^23
  1.  ;;^UTILITY(U,$J,358.3,32511,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32511,1,3,0)
  1.  ;;=3^Ventricular premature depolarization
  1.  ;;^UTILITY(U,$J,358.3,32511,1,4,0)
  1.  ;;=4^I49.3
  1.  ;;^UTILITY(U,$J,358.3,32511,2)
  1.  ;;=^5007233
  1.  ;;^UTILITY(U,$J,358.3,32512,0)
  1.  ;;=I50.9^^99^1343^6
  1.  ;;^UTILITY(U,$J,358.3,32512,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32512,1,3,0)
  1.  ;;=3^CHF,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32512,1,4,0)
  1.  ;;=4^I50.9
  1.  ;;^UTILITY(U,$J,358.3,32512,2)
  1.  ;;=^5007251
  1.  ;;^UTILITY(U,$J,358.3,32513,0)
  1.  ;;=I69.928^^99^1343^22
  1.  ;;^UTILITY(U,$J,358.3,32513,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32513,1,3,0)
  1.  ;;=3^Speech/lang deficits following unsp cerebvasc disease
  1.  ;;^UTILITY(U,$J,358.3,32513,1,4,0)
  1.  ;;=4^I69.928
  1.  ;;^UTILITY(U,$J,358.3,32513,2)
  1.  ;;=^5007557
  1.  ;;^UTILITY(U,$J,358.3,32514,0)
  1.  ;;=I69.910^^99^1343^5
  1.  ;;^UTILITY(U,$J,358.3,32514,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32514,1,3,0)
  1.  ;;=3^Attention/Concentration Deficit Following Cerebrvasc Disease
  1.  ;;^UTILITY(U,$J,358.3,32514,1,4,0)
  1.  ;;=4^I69.910
  1.  ;;^UTILITY(U,$J,358.3,32514,2)
  1.  ;;=^5138660
  1.  ;;^UTILITY(U,$J,358.3,32515,0)
  1.  ;;=I69.911^^99^1343^15
  1.  ;;^UTILITY(U,$J,358.3,32515,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32515,1,3,0)
  1.  ;;=3^Memory Deficit Following Cerebvasc Disease
  1.  ;;^UTILITY(U,$J,358.3,32515,1,4,0)
  1.  ;;=4^I69.911
  1.  ;;^UTILITY(U,$J,358.3,32515,2)
  1.  ;;=^5138661
  1.  ;;^UTILITY(U,$J,358.3,32516,0)
  1.  ;;=I69.912^^99^1343^24
  1.  ;;^UTILITY(U,$J,358.3,32516,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32516,1,3,0)
  1.  ;;=3^Visospatial Deficit Following Cerebvasc Disease
  1.  ;;^UTILITY(U,$J,358.3,32516,1,4,0)
  1.  ;;=4^I69.912
  1.  ;;^UTILITY(U,$J,358.3,32516,2)
  1.  ;;=^5138662
  1.  ;;^UTILITY(U,$J,358.3,32517,0)
  1.  ;;=I69.913^^99^1343^21
  1.  ;;^UTILITY(U,$J,358.3,32517,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32517,1,3,0)
  1.  ;;=3^Psychomotor Deficit Following Cerebvasc Disease
  1.  ;;^UTILITY(U,$J,358.3,32517,1,4,0)
  1.  ;;=4^I69.913
  1.  ;;^UTILITY(U,$J,358.3,32517,2)
  1.  ;;=^5138663
  1.  ;;^UTILITY(U,$J,358.3,32518,0)
  1.  ;;=I69.914^^99^1343^11
  1.  ;;^UTILITY(U,$J,358.3,32518,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32518,1,3,0)
  1.  ;;=3^Frontal Lobe/Executive Fcn Deficit Following Cerebvasc Disease
  1.  ;;^UTILITY(U,$J,358.3,32518,1,4,0)
  1.  ;;=4^I69.914
  1.  ;;^UTILITY(U,$J,358.3,32518,2)
  1.  ;;=^5138664
  1.  ;;^UTILITY(U,$J,358.3,32519,0)
  1.  ;;=I69.915^^99^1343^10
  1.  ;;^UTILITY(U,$J,358.3,32519,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32519,1,3,0)
  1.  ;;=3^Cognitive Social/Emotional Deficit Following Cerebvasc Disease
  1.  ;;^UTILITY(U,$J,358.3,32519,1,4,0)
  1.  ;;=4^I69.915
  1.  ;;^UTILITY(U,$J,358.3,32519,2)
  1.  ;;=^5138665
  1.  ;;^UTILITY(U,$J,358.3,32520,0)
  1.  ;;=I69.918^^99^1343^8
  1.  ;;^UTILITY(U,$J,358.3,32520,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32520,1,3,0)
  1.  ;;=3^Cognitive Function Oth Symp/Signs Following Cerebvasc Disease
  1.  ;;^UTILITY(U,$J,358.3,32520,1,4,0)
  1.  ;;=4^I69.918
  1.  ;;^UTILITY(U,$J,358.3,32520,2)
  1.  ;;=^5138666
  1.  ;;^UTILITY(U,$J,358.3,32521,0)
  1.  ;;=I69.919^^99^1343^9
  1.  ;;^UTILITY(U,$J,358.3,32521,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32521,1,3,0)
  1.  ;;=3^Cognitive Function Unspec Symp/Signs Following Cerebvasc Disease
  1.  ;;^UTILITY(U,$J,358.3,32521,1,4,0)
  1.  ;;=4^I69.919
  1.  ;;^UTILITY(U,$J,358.3,32521,2)
  1.  ;;=^5138667
  1.  ;;^UTILITY(U,$J,358.3,32522,0)
  1.  ;;=K40.90^^99^1344^5
  1.  ;;^UTILITY(U,$J,358.3,32522,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32522,1,3,0)
  1.  ;;=3^Inguinal Hernia,Unil w/o Obst/Gangr
  1.  ;;^UTILITY(U,$J,358.3,32522,1,4,0)
  1.  ;;=4^K40.90
  1.  ;;^UTILITY(U,$J,358.3,32522,2)
  1.  ;;=^5008591
  1.  ;;^UTILITY(U,$J,358.3,32523,0)
  1.  ;;=K40.20^^99^1344^4
  1.  ;;^UTILITY(U,$J,358.3,32523,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32523,1,3,0)
  1.  ;;=3^Inguinal Hernia,Bilat w/o Obst/Gangr
  1.  ;;^UTILITY(U,$J,358.3,32523,1,4,0)
  1.  ;;=4^K40.20
  1.  ;;^UTILITY(U,$J,358.3,32523,2)
  1.  ;;=^5008585
  1.  ;;^UTILITY(U,$J,358.3,32524,0)
  1.  ;;=K42.9^^99^1344^6
  1.  ;;^UTILITY(U,$J,358.3,32524,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32524,1,3,0)
  1.  ;;=3^Umbilical hernia w/o obstruction/gangrene
  1.  ;;^UTILITY(U,$J,358.3,32524,1,4,0)
  1.  ;;=4^K42.9
  1.  ;;^UTILITY(U,$J,358.3,32524,2)
  1.  ;;=^5008606
  1.  ;;^UTILITY(U,$J,358.3,32525,0)
  1.  ;;=K43.2^^99^1344^3
  1.  ;;^UTILITY(U,$J,358.3,32525,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32525,1,3,0)
  1.  ;;=3^Incisional hernia w/o obstruction/gangrene
  1.  ;;^UTILITY(U,$J,358.3,32525,1,4,0)
  1.  ;;=4^K43.2
  1.  ;;^UTILITY(U,$J,358.3,32525,2)
  1.  ;;=^5008609
  1.  ;;^UTILITY(U,$J,358.3,32526,0)
  1.  ;;=K44.9^^99^1344^2
  1.  ;;^UTILITY(U,$J,358.3,32526,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32526,1,3,0)
  1.  ;;=3^Diaphragmatic hernia w/o obstruction/gangrene
  1.  ;;^UTILITY(U,$J,358.3,32526,1,4,0)
  1.  ;;=4^K44.9
  1.  ;;^UTILITY(U,$J,358.3,32526,2)
  1.  ;;=^5008617
  1.  ;;^UTILITY(U,$J,358.3,32527,0)
  1.  ;;=K46.9^^99^1344^1
  1.  ;;^UTILITY(U,$J,358.3,32527,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32527,1,3,0)
  1.  ;;=3^Abdominal hernia w/o obstruction/gangrene
  1.  ;;^UTILITY(U,$J,358.3,32527,1,4,0)
  1.  ;;=4^K46.9
  1.  ;;^UTILITY(U,$J,358.3,32527,2)
  1.  ;;=^5008623
  1.  ;;^UTILITY(U,$J,358.3,32528,0)
  1.  ;;=N17.9^^99^1345^14
  1.  ;;^UTILITY(U,$J,358.3,32528,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32528,1,3,0)
  1.  ;;=3^Kidney Failure,Acute
  1.  ;;^UTILITY(U,$J,358.3,32528,1,4,0)
  1.  ;;=4^N17.9
  1.  ;;^UTILITY(U,$J,358.3,32528,2)
  1.  ;;=^338532
  1.  ;;^UTILITY(U,$J,358.3,32529,0)
  1.  ;;=N18.9^^99^1345^15
  1.  ;;^UTILITY(U,$J,358.3,32529,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32529,1,3,0)
  1.  ;;=3^Kidney Failure,Chronic
  1.  ;;^UTILITY(U,$J,358.3,32529,1,4,0)
  1.  ;;=4^N18.9
  1.  ;;^UTILITY(U,$J,358.3,32529,2)
  1.  ;;=^332812
  1.  ;;^UTILITY(U,$J,358.3,32530,0)
  1.  ;;=N28.9^^99^1345^7
  1.  ;;^UTILITY(U,$J,358.3,32530,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32530,1,3,0)
  1.  ;;=3^Kidney & Ureter Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32530,1,4,0)
  1.  ;;=4^N28.9
  1.  ;;^UTILITY(U,$J,358.3,32530,2)
  1.  ;;=^5015630
  1.  ;;^UTILITY(U,$J,358.3,32531,0)
  1.  ;;=N20.0^^99^1345^2
  1.  ;;^UTILITY(U,$J,358.3,32531,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32531,1,3,0)
  1.  ;;=3^Calculus of Kidney
  1.  ;;^UTILITY(U,$J,358.3,32531,1,4,0)
  1.  ;;=4^N20.0
  1.  ;;^UTILITY(U,$J,358.3,32531,2)
  1.  ;;=^67056
  1.  ;;^UTILITY(U,$J,358.3,32532,0)
  1.  ;;=N32.0^^99^1345^1
  1.  ;;^UTILITY(U,$J,358.3,32532,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32532,1,3,0)
  1.  ;;=3^Bladder-Neck Obstruction
  1.  ;;^UTILITY(U,$J,358.3,32532,1,4,0)
  1.  ;;=4^N32.0
  1.  ;;^UTILITY(U,$J,358.3,32532,2)
  1.  ;;=^5015649
  1.  ;;^UTILITY(U,$J,358.3,32533,0)
  1.  ;;=N34.1^^99^1345^18
  1.  ;;^UTILITY(U,$J,358.3,32533,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32533,1,3,0)
  1.  ;;=3^Urethritis, nonspecific
  1.  ;;^UTILITY(U,$J,358.3,32533,1,4,0)
  1.  ;;=4^N34.1
  1.  ;;^UTILITY(U,$J,358.3,32533,2)
  1.  ;;=^5015655
  1.  ;;^UTILITY(U,$J,358.3,32534,0)
  1.  ;;=N39.0^^99^1345^19
  1.  ;;^UTILITY(U,$J,358.3,32534,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32534,1,3,0)
  1.  ;;=3^Urinary tract infection
  1.  ;;^UTILITY(U,$J,358.3,32534,1,4,0)
  1.  ;;=4^N39.0
  1.  ;;^UTILITY(U,$J,358.3,32534,2)
  1.  ;;=^124436
  1.  ;;^UTILITY(U,$J,358.3,32535,0)
  1.  ;;=N40.0^^99^1345^5
  1.  ;;^UTILITY(U,$J,358.3,32535,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32535,1,3,0)
  1.  ;;=3^Enlarged Prostate w/o LUTS
  1.  ;;^UTILITY(U,$J,358.3,32535,1,4,0)
  1.  ;;=4^N40.0
  1.  ;;^UTILITY(U,$J,358.3,32535,2)
  1.  ;;=^5015689
  1.  ;;^UTILITY(U,$J,358.3,32536,0)
  1.  ;;=N40.1^^99^1345^4
  1.  ;;^UTILITY(U,$J,358.3,32536,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32536,1,3,0)
  1.  ;;=3^Enlarged Prostate w/ LUTS
  1.  ;;^UTILITY(U,$J,358.3,32536,1,4,0)
  1.  ;;=4^N40.1
  1.  ;;^UTILITY(U,$J,358.3,32536,2)
  1.  ;;=^5015690
  1.  ;;^UTILITY(U,$J,358.3,32537,0)
  1.  ;;=N43.3^^99^1345^6
  1.  ;;^UTILITY(U,$J,358.3,32537,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32537,1,3,0)
  1.  ;;=3^Hydrocele, unspecified
  1.  ;;^UTILITY(U,$J,358.3,32537,1,4,0)
  1.  ;;=4^N43.3
  1.  ;;^UTILITY(U,$J,358.3,32537,2)
  1.  ;;=^5015700
  1.  ;;^UTILITY(U,$J,358.3,32538,0)
  1.  ;;=N52.9^^99^1345^17
  1.  ;;^UTILITY(U,$J,358.3,32538,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32538,1,3,0)
  1.  ;;=3^Male erectile dysfunction, unspecified
  1.  ;;^UTILITY(U,$J,358.3,32538,1,4,0)
  1.  ;;=4^N52.9
  1.  ;;^UTILITY(U,$J,358.3,32538,2)
  1.  ;;=^5015763
  1.  ;;^UTILITY(U,$J,358.3,32539,0)
  1.  ;;=N18.1^^99^1345^8
  1.  ;;^UTILITY(U,$J,358.3,32539,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32539,1,3,0)
  1.  ;;=3^Kidney Disease,Chr,Stage 1
  1.  ;;^UTILITY(U,$J,358.3,32539,1,4,0)
  1.  ;;=4^N18.1
  1.  ;;^UTILITY(U,$J,358.3,32539,2)
  1.  ;;=^5015602
  1.  ;;^UTILITY(U,$J,358.3,32540,0)
  1.  ;;=N18.2^^99^1345^9
  1.  ;;^UTILITY(U,$J,358.3,32540,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32540,1,3,0)
  1.  ;;=3^Kidney Disease,Chr,Stage 2 (Mild)
  1.  ;;^UTILITY(U,$J,358.3,32540,1,4,0)
  1.  ;;=4^N18.2
  1.  ;;^UTILITY(U,$J,358.3,32540,2)
  1.  ;;=^5015603
  1.  ;;^UTILITY(U,$J,358.3,32541,0)
  1.  ;;=N18.30^^99^1345^10
  1.  ;;^UTILITY(U,$J,358.3,32541,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32541,1,3,0)
  1.  ;;=3^Kidney Disease,Chr,Stage 3,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32541,1,4,0)
  1.  ;;=4^N18.30
  1.  ;;^UTILITY(U,$J,358.3,32541,2)
  1.  ;;=^5159286
  1.  ;;^UTILITY(U,$J,358.3,32542,0)
  1.  ;;=N18.31^^99^1345^11
  1.  ;;^UTILITY(U,$J,358.3,32542,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32542,1,3,0)
  1.  ;;=3^Kidney Disease,Chr,Stage 3a
  1.  ;;^UTILITY(U,$J,358.3,32542,1,4,0)
  1.  ;;=4^N18.31
  1.  ;;^UTILITY(U,$J,358.3,32542,2)
  1.  ;;=^5159287
  1.  ;;^UTILITY(U,$J,358.3,32543,0)
  1.  ;;=N18.32^^99^1345^12
  1.  ;;^UTILITY(U,$J,358.3,32543,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32543,1,3,0)
  1.  ;;=3^Kidney Disease,Chr,Stage 3b
  1.  ;;^UTILITY(U,$J,358.3,32543,1,4,0)
  1.  ;;=4^N18.32
  1.  ;;^UTILITY(U,$J,358.3,32543,2)
  1.  ;;=^5159288
  1.  ;;^UTILITY(U,$J,358.3,32544,0)
  1.  ;;=N18.9^^99^1345^13
  1.  ;;^UTILITY(U,$J,358.3,32544,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32544,1,3,0)
  1.  ;;=3^Kidney Disease,Chr,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32544,1,4,0)
  1.  ;;=4^N18.9
  1.  ;;^UTILITY(U,$J,358.3,32544,2)
  1.  ;;=^332812
  1.  ;;^UTILITY(U,$J,358.3,32545,0)
  1.  ;;=N19.^^99^1345^16
  1.  ;;^UTILITY(U,$J,358.3,32545,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32545,1,3,0)
  1.  ;;=3^Kidney Failure,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32545,1,4,0)
  1.  ;;=4^N19.
  1.  ;;^UTILITY(U,$J,358.3,32545,2)
  1.  ;;=^5015607
  1.  ;;^UTILITY(U,$J,358.3,32546,0)
  1.  ;;=N20.1^^99^1345^3
  1.  ;;^UTILITY(U,$J,358.3,32546,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32546,1,3,0)
  1.  ;;=3^Calculus of Ureter
  1.  ;;^UTILITY(U,$J,358.3,32546,1,4,0)
  1.  ;;=4^N20.1
  1.  ;;^UTILITY(U,$J,358.3,32546,2)
  1.  ;;=^5015608
  1.  ;;^UTILITY(U,$J,358.3,32547,0)
  1.  ;;=L03.031^^99^1346^3
  1.  ;;^UTILITY(U,$J,358.3,32547,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32547,1,3,0)
  1.  ;;=3^Cellulitis of right toe
  1.  ;;^UTILITY(U,$J,358.3,32547,1,4,0)
  1.  ;;=4^L03.031
  1.  ;;^UTILITY(U,$J,358.3,32547,2)
  1.  ;;=^5009025
  1.  ;;^UTILITY(U,$J,358.3,32548,0)
  1.  ;;=L03.032^^99^1346^2
  1.  ;;^UTILITY(U,$J,358.3,32548,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32548,1,3,0)
  1.  ;;=3^Cellulitis of left toe
  1.  ;;^UTILITY(U,$J,358.3,32548,1,4,0)
  1.  ;;=4^L03.032
  1.  ;;^UTILITY(U,$J,358.3,32548,2)
  1.  ;;=^5009026
  1.  ;;^UTILITY(U,$J,358.3,32549,0)
  1.  ;;=L03.90^^99^1346^4
  1.  ;;^UTILITY(U,$J,358.3,32549,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32549,1,3,0)
  1.  ;;=3^Cellulitis, unspecified
  1.  ;;^UTILITY(U,$J,358.3,32549,1,4,0)
  1.  ;;=4^L03.90
  1.  ;;^UTILITY(U,$J,358.3,32549,2)
  1.  ;;=^5009067
  1.  ;;^UTILITY(U,$J,358.3,32550,0)
  1.  ;;=L08.9^^99^1346^32
  1.  ;;^UTILITY(U,$J,358.3,32550,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32550,1,3,0)
  1.  ;;=3^Skin infection, unspec
  1.  ;;^UTILITY(U,$J,358.3,32550,1,4,0)
  1.  ;;=4^L08.9
  1.  ;;^UTILITY(U,$J,358.3,32550,2)
  1.  ;;=^5009082
  1.  ;;^UTILITY(U,$J,358.3,32551,0)
  1.  ;;=L29.9^^99^1346^23
  1.  ;;^UTILITY(U,$J,358.3,32551,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32551,1,3,0)
  1.  ;;=3^Pruritus, unspecified
  1.  ;;^UTILITY(U,$J,358.3,32551,1,4,0)
  1.  ;;=4^L29.9
  1.  ;;^UTILITY(U,$J,358.3,32551,2)
  1.  ;;=^5009153
  1.  ;;^UTILITY(U,$J,358.3,32552,0)
  1.  ;;=L30.9^^99^1346^16
  1.  ;;^UTILITY(U,$J,358.3,32552,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32552,1,3,0)
  1.  ;;=3^Dermatitis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,32552,1,4,0)
  1.  ;;=4^L30.9
  1.  ;;^UTILITY(U,$J,358.3,32552,2)
  1.  ;;=^5009159
  1.  ;;^UTILITY(U,$J,358.3,32553,0)
  1.  ;;=L40.0^^99^1346^27
  1.  ;;^UTILITY(U,$J,358.3,32553,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32553,1,3,0)
  1.  ;;=3^Psoriasis,Vulgaris
  1.  ;;^UTILITY(U,$J,358.3,32553,1,4,0)
  1.  ;;=4^L40.0
  1.  ;;^UTILITY(U,$J,358.3,32553,2)
  1.  ;;=^5009160
  1.  ;;^UTILITY(U,$J,358.3,32554,0)
  1.  ;;=L40.1^^99^1346^28
  1.  ;;^UTILITY(U,$J,358.3,32554,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32554,1,3,0)
  1.  ;;=3^Pustular psoriasis, generalized
  1.  ;;^UTILITY(U,$J,358.3,32554,1,4,0)
  1.  ;;=4^L40.1
  1.  ;;^UTILITY(U,$J,358.3,32554,2)
  1.  ;;=^5009161
  1.  ;;^UTILITY(U,$J,358.3,32555,0)
  1.  ;;=L40.2^^99^1346^1
  1.  ;;^UTILITY(U,$J,358.3,32555,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32555,1,3,0)
  1.  ;;=3^Acrodermatitis continua
  1.  ;;^UTILITY(U,$J,358.3,32555,1,4,0)
  1.  ;;=4^L40.2
  1.  ;;^UTILITY(U,$J,358.3,32555,2)
  1.  ;;=^5009162
  1.  ;;^UTILITY(U,$J,358.3,32556,0)
  1.  ;;=L40.3^^99^1346^29
  1.  ;;^UTILITY(U,$J,358.3,32556,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32556,1,3,0)
  1.  ;;=3^Pustulosis palmaris et plantaris
  1.  ;;^UTILITY(U,$J,358.3,32556,1,4,0)
  1.  ;;=4^L40.3
  1.  ;;^UTILITY(U,$J,358.3,32556,2)
  1.  ;;=^5009163
  1.  ;;^UTILITY(U,$J,358.3,32557,0)
  1.  ;;=L40.4^^99^1346^25
  1.  ;;^UTILITY(U,$J,358.3,32557,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32557,1,3,0)
  1.  ;;=3^Psoriasis,Guttate
  1.  ;;^UTILITY(U,$J,358.3,32557,1,4,0)
  1.  ;;=4^L40.4
  1.  ;;^UTILITY(U,$J,358.3,32557,2)
  1.  ;;=^5009164
  1.  ;;^UTILITY(U,$J,358.3,32558,0)
  1.  ;;=L40.8^^99^1346^26
  1.  ;;^UTILITY(U,$J,358.3,32558,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32558,1,3,0)
  1.  ;;=3^Psoriasis,Other
  1.  ;;^UTILITY(U,$J,358.3,32558,1,4,0)
  1.  ;;=4^L40.8
  1.  ;;^UTILITY(U,$J,358.3,32558,2)
  1.  ;;=^271917
  1.  ;;^UTILITY(U,$J,358.3,32559,0)
  1.  ;;=L72.3^^99^1346^31
  1.  ;;^UTILITY(U,$J,358.3,32559,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32559,1,3,0)
  1.  ;;=3^Sebaceous cyst
  1.  ;;^UTILITY(U,$J,358.3,32559,1,4,0)
  1.  ;;=4^L72.3
  1.  ;;^UTILITY(U,$J,358.3,32559,2)
  1.  ;;=^5009281
  1.  ;;^UTILITY(U,$J,358.3,32560,0)
  1.  ;;=L97.919^^99^1346^21
  1.  ;;^UTILITY(U,$J,358.3,32560,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32560,1,3,0)
  1.  ;;=3^Non-pressure chr ulcer unspec part right lower leg
  1.  ;;^UTILITY(U,$J,358.3,32560,1,4,0)
  1.  ;;=4^L97.919
  1.  ;;^UTILITY(U,$J,358.3,32560,2)
  1.  ;;=^5133688
  1.  ;;^UTILITY(U,$J,358.3,32561,0)
  1.  ;;=L97.929^^99^1346^20
  1.  ;;^UTILITY(U,$J,358.3,32561,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32561,1,3,0)
  1.  ;;=3^Non-pressure chr ulcer unspec part left lower leg
  1.  ;;^UTILITY(U,$J,358.3,32561,1,4,0)
  1.  ;;=4^L97.929
  1.  ;;^UTILITY(U,$J,358.3,32561,2)
  1.  ;;=^5133689
  1.  ;;^UTILITY(U,$J,358.3,32562,0)
  1.  ;;=L98.499^^99^1346^19
  1.  ;;^UTILITY(U,$J,358.3,32562,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,32562,1,3,0)
  1.  ;;=3^Non-pressure chr skin ulcer
  1.  ;;^UTILITY(U,$J,358.3,32562,1,4,0)
  1.  ;;=4^L98.499
  1.  ;;^UTILITY(U,$J,358.3,32562,2)
  1.  ;;=^5009591
  1.  ;;^UTILITY(U,$J,358.3,32563,0)
  1.  ;;=L98.9^^99^1346^33