IBDEI0CY ; ; 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,32494,1,4,0)
;;=4^K20.90
;;^UTILITY(U,$J,358.3,32494,2)
;;=^5159212
;;^UTILITY(U,$J,358.3,32495,0)
;;=K20.91^^99^1342^10
;;^UTILITY(U,$J,358.3,32495,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32495,1,3,0)
;;=3^Esophagitis,Unspec w/ Bleeding
;;^UTILITY(U,$J,358.3,32495,1,4,0)
;;=4^K20.91
;;^UTILITY(U,$J,358.3,32495,2)
;;=^5159213
;;^UTILITY(U,$J,358.3,32496,0)
;;=K21.00^^99^1342^15
;;^UTILITY(U,$J,358.3,32496,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32496,1,3,0)
;;=3^GERD w/ Esophagitis w/o Bleed
;;^UTILITY(U,$J,358.3,32496,1,4,0)
;;=4^K21.00
;;^UTILITY(U,$J,358.3,32496,2)
;;=^5159214
;;^UTILITY(U,$J,358.3,32497,0)
;;=K21.01^^99^1342^14
;;^UTILITY(U,$J,358.3,32497,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32497,1,3,0)
;;=3^GERD w/ Esophagitis w/ Bleed
;;^UTILITY(U,$J,358.3,32497,1,4,0)
;;=4^K21.01
;;^UTILITY(U,$J,358.3,32497,2)
;;=^5159215
;;^UTILITY(U,$J,358.3,32498,0)
;;=I69.959^^99^1343^13
;;^UTILITY(U,$J,358.3,32498,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32498,1,3,0)
;;=3^Hemiplegia/Hemiparesis Following Unspec Cerebrovascular Disease
;;^UTILITY(U,$J,358.3,32498,1,4,0)
;;=4^I69.959
;;^UTILITY(U,$J,358.3,32498,2)
;;=^5007563
;;^UTILITY(U,$J,358.3,32499,0)
;;=I10.^^99^1343^12
;;^UTILITY(U,$J,358.3,32499,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32499,1,3,0)
;;=3^HTN,Essential
;;^UTILITY(U,$J,358.3,32499,1,4,0)
;;=4^I10.
;;^UTILITY(U,$J,358.3,32499,2)
;;=^5007062
;;^UTILITY(U,$J,358.3,32500,0)
;;=I20.9^^99^1343^1
;;^UTILITY(U,$J,358.3,32500,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32500,1,3,0)
;;=3^Angina pectoris, unspecified
;;^UTILITY(U,$J,358.3,32500,1,4,0)
;;=4^I20.9
;;^UTILITY(U,$J,358.3,32500,2)
;;=^5007079
;;^UTILITY(U,$J,358.3,32501,0)
;;=I21.3^^99^1343^16
;;^UTILITY(U,$J,358.3,32501,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32501,1,3,0)
;;=3^Myocardial infarctions (STEMI), unspec site
;;^UTILITY(U,$J,358.3,32501,1,4,0)
;;=4^I21.3
;;^UTILITY(U,$J,358.3,32501,2)
;;=^5007087
;;^UTILITY(U,$J,358.3,32502,0)
;;=I25.10^^99^1343^2
;;^UTILITY(U,$J,358.3,32502,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32502,1,3,0)
;;=3^Athscl hrt disease w/o angina pectoris
;;^UTILITY(U,$J,358.3,32502,1,4,0)
;;=4^I25.10
;;^UTILITY(U,$J,358.3,32502,2)
;;=^5007107
;;^UTILITY(U,$J,358.3,32503,0)
;;=I25.2^^99^1343^20
;;^UTILITY(U,$J,358.3,32503,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32503,1,3,0)
;;=3^Old myocardial infarction
;;^UTILITY(U,$J,358.3,32503,1,4,0)
;;=4^I25.2
;;^UTILITY(U,$J,358.3,32503,2)
;;=^259884
;;^UTILITY(U,$J,358.3,32504,0)
;;=I30.0^^99^1343^14
;;^UTILITY(U,$J,358.3,32504,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32504,1,3,0)
;;=3^Idiopathic pericarditis, acute
;;^UTILITY(U,$J,358.3,32504,1,4,0)
;;=4^I30.0
;;^UTILITY(U,$J,358.3,32504,2)
;;=^5007157
;;^UTILITY(U,$J,358.3,32505,0)
;;=I34.1^^99^1343^19
;;^UTILITY(U,$J,358.3,32505,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32505,1,3,0)
;;=3^Nonrheumatic mitral valve prolapse
;;^UTILITY(U,$J,358.3,32505,1,4,0)
;;=4^I34.1
;;^UTILITY(U,$J,358.3,32505,2)
;;=^5007170
;;^UTILITY(U,$J,358.3,32506,0)
;;=I35.0^^99^1343^17
;;^UTILITY(U,$J,358.3,32506,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32506,1,3,0)
;;=3^Nonrheumatic aortic valve stenosis
;;^UTILITY(U,$J,358.3,32506,1,4,0)
;;=4^I35.0
;;^UTILITY(U,$J,358.3,32506,2)
;;=^5007174
;;^UTILITY(U,$J,358.3,32507,0)
;;=I35.2^^99^1343^18
;;^UTILITY(U,$J,358.3,32507,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32507,1,3,0)
;;=3^Nonrheumatic aortic valve stenosis w/ insufficiency
;;^UTILITY(U,$J,358.3,32507,1,4,0)
;;=4^I35.2
;;^UTILITY(U,$J,358.3,32507,2)
;;=^5007176
;;^UTILITY(U,$J,358.3,32508,0)
;;=I42.8^^99^1343^7
;;^UTILITY(U,$J,358.3,32508,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32508,1,3,0)
;;=3^Cardiomyopathies, other
;;^UTILITY(U,$J,358.3,32508,1,4,0)
;;=4^I42.8
;;^UTILITY(U,$J,358.3,32508,2)
;;=^5007199
;;^UTILITY(U,$J,358.3,32509,0)
;;=I48.91^^99^1343^3
;;^UTILITY(U,$J,358.3,32509,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32509,1,3,0)
;;=3^Atrial fibrillation, unspec
;;^UTILITY(U,$J,358.3,32509,1,4,0)
;;=4^I48.91
;;^UTILITY(U,$J,358.3,32509,2)
;;=^5007229
;;^UTILITY(U,$J,358.3,32510,0)
;;=I48.92^^99^1343^4
;;^UTILITY(U,$J,358.3,32510,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32510,1,3,0)
;;=3^Atrial flutter, unspec
;;^UTILITY(U,$J,358.3,32510,1,4,0)
;;=4^I48.92
;;^UTILITY(U,$J,358.3,32510,2)
;;=^5007230
;;^UTILITY(U,$J,358.3,32511,0)
;;=I49.3^^99^1343^23
;;^UTILITY(U,$J,358.3,32511,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32511,1,3,0)
;;=3^Ventricular premature depolarization
;;^UTILITY(U,$J,358.3,32511,1,4,0)
;;=4^I49.3
;;^UTILITY(U,$J,358.3,32511,2)
;;=^5007233
;;^UTILITY(U,$J,358.3,32512,0)
;;=I50.9^^99^1343^6
;;^UTILITY(U,$J,358.3,32512,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32512,1,3,0)
;;=3^CHF,Unspec
;;^UTILITY(U,$J,358.3,32512,1,4,0)
;;=4^I50.9
;;^UTILITY(U,$J,358.3,32512,2)
;;=^5007251
;;^UTILITY(U,$J,358.3,32513,0)
;;=I69.928^^99^1343^22
;;^UTILITY(U,$J,358.3,32513,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32513,1,3,0)
;;=3^Speech/lang deficits following unsp cerebvasc disease
;;^UTILITY(U,$J,358.3,32513,1,4,0)
;;=4^I69.928
;;^UTILITY(U,$J,358.3,32513,2)
;;=^5007557
;;^UTILITY(U,$J,358.3,32514,0)
;;=I69.910^^99^1343^5
;;^UTILITY(U,$J,358.3,32514,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32514,1,3,0)
;;=3^Attention/Concentration Deficit Following Cerebrvasc Disease
;;^UTILITY(U,$J,358.3,32514,1,4,0)
;;=4^I69.910
;;^UTILITY(U,$J,358.3,32514,2)
;;=^5138660
;;^UTILITY(U,$J,358.3,32515,0)
;;=I69.911^^99^1343^15
;;^UTILITY(U,$J,358.3,32515,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32515,1,3,0)
;;=3^Memory Deficit Following Cerebvasc Disease
;;^UTILITY(U,$J,358.3,32515,1,4,0)
;;=4^I69.911
;;^UTILITY(U,$J,358.3,32515,2)
;;=^5138661
;;^UTILITY(U,$J,358.3,32516,0)
;;=I69.912^^99^1343^24
;;^UTILITY(U,$J,358.3,32516,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32516,1,3,0)
;;=3^Visospatial Deficit Following Cerebvasc Disease
;;^UTILITY(U,$J,358.3,32516,1,4,0)
;;=4^I69.912
;;^UTILITY(U,$J,358.3,32516,2)
;;=^5138662
;;^UTILITY(U,$J,358.3,32517,0)
;;=I69.913^^99^1343^21
;;^UTILITY(U,$J,358.3,32517,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32517,1,3,0)
;;=3^Psychomotor Deficit Following Cerebvasc Disease
;;^UTILITY(U,$J,358.3,32517,1,4,0)
;;=4^I69.913
;;^UTILITY(U,$J,358.3,32517,2)
;;=^5138663
;;^UTILITY(U,$J,358.3,32518,0)
;;=I69.914^^99^1343^11
;;^UTILITY(U,$J,358.3,32518,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32518,1,3,0)
;;=3^Frontal Lobe/Executive Fcn Deficit Following Cerebvasc Disease
;;^UTILITY(U,$J,358.3,32518,1,4,0)
;;=4^I69.914
;;^UTILITY(U,$J,358.3,32518,2)
;;=^5138664
;;^UTILITY(U,$J,358.3,32519,0)
;;=I69.915^^99^1343^10
;;^UTILITY(U,$J,358.3,32519,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32519,1,3,0)
;;=3^Cognitive Social/Emotional Deficit Following Cerebvasc Disease
;;^UTILITY(U,$J,358.3,32519,1,4,0)
;;=4^I69.915
;;^UTILITY(U,$J,358.3,32519,2)
;;=^5138665
;;^UTILITY(U,$J,358.3,32520,0)
;;=I69.918^^99^1343^8
;;^UTILITY(U,$J,358.3,32520,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32520,1,3,0)
;;=3^Cognitive Function Oth Symp/Signs Following Cerebvasc Disease
;;^UTILITY(U,$J,358.3,32520,1,4,0)
;;=4^I69.918
;;^UTILITY(U,$J,358.3,32520,2)
;;=^5138666
;;^UTILITY(U,$J,358.3,32521,0)
;;=I69.919^^99^1343^9
;;^UTILITY(U,$J,358.3,32521,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32521,1,3,0)
;;=3^Cognitive Function Unspec Symp/Signs Following Cerebvasc Disease
;;^UTILITY(U,$J,358.3,32521,1,4,0)
;;=4^I69.919
;;^UTILITY(U,$J,358.3,32521,2)
;;=^5138667
;;^UTILITY(U,$J,358.3,32522,0)
;;=K40.90^^99^1344^5
;;^UTILITY(U,$J,358.3,32522,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32522,1,3,0)
;;=3^Inguinal Hernia,Unil w/o Obst/Gangr
;;^UTILITY(U,$J,358.3,32522,1,4,0)
;;=4^K40.90
;;^UTILITY(U,$J,358.3,32522,2)
;;=^5008591
;;^UTILITY(U,$J,358.3,32523,0)
;;=K40.20^^99^1344^4
;;^UTILITY(U,$J,358.3,32523,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32523,1,3,0)
;;=3^Inguinal Hernia,Bilat w/o Obst/Gangr
;;^UTILITY(U,$J,358.3,32523,1,4,0)
;;=4^K40.20
;;^UTILITY(U,$J,358.3,32523,2)
;;=^5008585
;;^UTILITY(U,$J,358.3,32524,0)
;;=K42.9^^99^1344^6
;;^UTILITY(U,$J,358.3,32524,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32524,1,3,0)
;;=3^Umbilical hernia w/o obstruction/gangrene
;;^UTILITY(U,$J,358.3,32524,1,4,0)
;;=4^K42.9
;;^UTILITY(U,$J,358.3,32524,2)
;;=^5008606
;;^UTILITY(U,$J,358.3,32525,0)
;;=K43.2^^99^1344^3
;;^UTILITY(U,$J,358.3,32525,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32525,1,3,0)
;;=3^Incisional hernia w/o obstruction/gangrene
;;^UTILITY(U,$J,358.3,32525,1,4,0)
;;=4^K43.2
;;^UTILITY(U,$J,358.3,32525,2)
;;=^5008609
;;^UTILITY(U,$J,358.3,32526,0)
;;=K44.9^^99^1344^2
;;^UTILITY(U,$J,358.3,32526,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32526,1,3,0)
;;=3^Diaphragmatic hernia w/o obstruction/gangrene
;;^UTILITY(U,$J,358.3,32526,1,4,0)
;;=4^K44.9
;;^UTILITY(U,$J,358.3,32526,2)
;;=^5008617
;;^UTILITY(U,$J,358.3,32527,0)
;;=K46.9^^99^1344^1
;;^UTILITY(U,$J,358.3,32527,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32527,1,3,0)
;;=3^Abdominal hernia w/o obstruction/gangrene
;;^UTILITY(U,$J,358.3,32527,1,4,0)
;;=4^K46.9
;;^UTILITY(U,$J,358.3,32527,2)
;;=^5008623
;;^UTILITY(U,$J,358.3,32528,0)
;;=N17.9^^99^1345^14
;;^UTILITY(U,$J,358.3,32528,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32528,1,3,0)
;;=3^Kidney Failure,Acute
;;^UTILITY(U,$J,358.3,32528,1,4,0)
;;=4^N17.9
;;^UTILITY(U,$J,358.3,32528,2)
;;=^338532
;;^UTILITY(U,$J,358.3,32529,0)
;;=N18.9^^99^1345^15
;;^UTILITY(U,$J,358.3,32529,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32529,1,3,0)
;;=3^Kidney Failure,Chronic
;;^UTILITY(U,$J,358.3,32529,1,4,0)
;;=4^N18.9
;;^UTILITY(U,$J,358.3,32529,2)
;;=^332812
;;^UTILITY(U,$J,358.3,32530,0)
;;=N28.9^^99^1345^7
;;^UTILITY(U,$J,358.3,32530,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32530,1,3,0)
;;=3^Kidney & Ureter Disorder,Unspec
;;^UTILITY(U,$J,358.3,32530,1,4,0)
;;=4^N28.9
;;^UTILITY(U,$J,358.3,32530,2)
;;=^5015630
;;^UTILITY(U,$J,358.3,32531,0)
;;=N20.0^^99^1345^2
;;^UTILITY(U,$J,358.3,32531,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32531,1,3,0)
;;=3^Calculus of Kidney
;;^UTILITY(U,$J,358.3,32531,1,4,0)
;;=4^N20.0
;;^UTILITY(U,$J,358.3,32531,2)
;;=^67056
;;^UTILITY(U,$J,358.3,32532,0)
;;=N32.0^^99^1345^1
;;^UTILITY(U,$J,358.3,32532,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32532,1,3,0)
;;=3^Bladder-Neck Obstruction
;;^UTILITY(U,$J,358.3,32532,1,4,0)
;;=4^N32.0
;;^UTILITY(U,$J,358.3,32532,2)
;;=^5015649
;;^UTILITY(U,$J,358.3,32533,0)
;;=N34.1^^99^1345^18
;;^UTILITY(U,$J,358.3,32533,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32533,1,3,0)
;;=3^Urethritis, nonspecific
;;^UTILITY(U,$J,358.3,32533,1,4,0)
;;=4^N34.1
;;^UTILITY(U,$J,358.3,32533,2)
;;=^5015655
;;^UTILITY(U,$J,358.3,32534,0)
;;=N39.0^^99^1345^19
;;^UTILITY(U,$J,358.3,32534,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32534,1,3,0)
;;=3^Urinary tract infection
;;^UTILITY(U,$J,358.3,32534,1,4,0)
;;=4^N39.0
;;^UTILITY(U,$J,358.3,32534,2)
;;=^124436
;;^UTILITY(U,$J,358.3,32535,0)
;;=N40.0^^99^1345^5
;;^UTILITY(U,$J,358.3,32535,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32535,1,3,0)
;;=3^Enlarged Prostate w/o LUTS
;;^UTILITY(U,$J,358.3,32535,1,4,0)
;;=4^N40.0
;;^UTILITY(U,$J,358.3,32535,2)
;;=^5015689
;;^UTILITY(U,$J,358.3,32536,0)
;;=N40.1^^99^1345^4
;;^UTILITY(U,$J,358.3,32536,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32536,1,3,0)
;;=3^Enlarged Prostate w/ LUTS
;;^UTILITY(U,$J,358.3,32536,1,4,0)
;;=4^N40.1
;;^UTILITY(U,$J,358.3,32536,2)
;;=^5015690
;;^UTILITY(U,$J,358.3,32537,0)
;;=N43.3^^99^1345^6
;;^UTILITY(U,$J,358.3,32537,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32537,1,3,0)
;;=3^Hydrocele, unspecified
;;^UTILITY(U,$J,358.3,32537,1,4,0)
;;=4^N43.3
;;^UTILITY(U,$J,358.3,32537,2)
;;=^5015700
;;^UTILITY(U,$J,358.3,32538,0)
;;=N52.9^^99^1345^17
;;^UTILITY(U,$J,358.3,32538,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32538,1,3,0)
;;=3^Male erectile dysfunction, unspecified
;;^UTILITY(U,$J,358.3,32538,1,4,0)
;;=4^N52.9
;;^UTILITY(U,$J,358.3,32538,2)
;;=^5015763
;;^UTILITY(U,$J,358.3,32539,0)
;;=N18.1^^99^1345^8
;;^UTILITY(U,$J,358.3,32539,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32539,1,3,0)
;;=3^Kidney Disease,Chr,Stage 1
;;^UTILITY(U,$J,358.3,32539,1,4,0)
;;=4^N18.1
;;^UTILITY(U,$J,358.3,32539,2)
;;=^5015602
;;^UTILITY(U,$J,358.3,32540,0)
;;=N18.2^^99^1345^9
;;^UTILITY(U,$J,358.3,32540,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32540,1,3,0)
;;=3^Kidney Disease,Chr,Stage 2 (Mild)
;;^UTILITY(U,$J,358.3,32540,1,4,0)
;;=4^N18.2
;;^UTILITY(U,$J,358.3,32540,2)
;;=^5015603
;;^UTILITY(U,$J,358.3,32541,0)
;;=N18.30^^99^1345^10
;;^UTILITY(U,$J,358.3,32541,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32541,1,3,0)
;;=3^Kidney Disease,Chr,Stage 3,Unspec
;;^UTILITY(U,$J,358.3,32541,1,4,0)
;;=4^N18.30
;;^UTILITY(U,$J,358.3,32541,2)
;;=^5159286
;;^UTILITY(U,$J,358.3,32542,0)
;;=N18.31^^99^1345^11
;;^UTILITY(U,$J,358.3,32542,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32542,1,3,0)
;;=3^Kidney Disease,Chr,Stage 3a
;;^UTILITY(U,$J,358.3,32542,1,4,0)
;;=4^N18.31
;;^UTILITY(U,$J,358.3,32542,2)
;;=^5159287
;;^UTILITY(U,$J,358.3,32543,0)
;;=N18.32^^99^1345^12
;;^UTILITY(U,$J,358.3,32543,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32543,1,3,0)
;;=3^Kidney Disease,Chr,Stage 3b
;;^UTILITY(U,$J,358.3,32543,1,4,0)
;;=4^N18.32
;;^UTILITY(U,$J,358.3,32543,2)
;;=^5159288
;;^UTILITY(U,$J,358.3,32544,0)
;;=N18.9^^99^1345^13
;;^UTILITY(U,$J,358.3,32544,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32544,1,3,0)
;;=3^Kidney Disease,Chr,Unspec
;;^UTILITY(U,$J,358.3,32544,1,4,0)
;;=4^N18.9
;;^UTILITY(U,$J,358.3,32544,2)
;;=^332812
;;^UTILITY(U,$J,358.3,32545,0)
;;=N19.^^99^1345^16
;;^UTILITY(U,$J,358.3,32545,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32545,1,3,0)
;;=3^Kidney Failure,Unspec
;;^UTILITY(U,$J,358.3,32545,1,4,0)
;;=4^N19.
;;^UTILITY(U,$J,358.3,32545,2)
;;=^5015607
;;^UTILITY(U,$J,358.3,32546,0)
;;=N20.1^^99^1345^3
;;^UTILITY(U,$J,358.3,32546,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32546,1,3,0)
;;=3^Calculus of Ureter
;;^UTILITY(U,$J,358.3,32546,1,4,0)
;;=4^N20.1
;;^UTILITY(U,$J,358.3,32546,2)
;;=^5015608
;;^UTILITY(U,$J,358.3,32547,0)
;;=L03.031^^99^1346^3
;;^UTILITY(U,$J,358.3,32547,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32547,1,3,0)
;;=3^Cellulitis of right toe
;;^UTILITY(U,$J,358.3,32547,1,4,0)
;;=4^L03.031
;;^UTILITY(U,$J,358.3,32547,2)
;;=^5009025
;;^UTILITY(U,$J,358.3,32548,0)
;;=L03.032^^99^1346^2
;;^UTILITY(U,$J,358.3,32548,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32548,1,3,0)
;;=3^Cellulitis of left toe
;;^UTILITY(U,$J,358.3,32548,1,4,0)
;;=4^L03.032
;;^UTILITY(U,$J,358.3,32548,2)
;;=^5009026
;;^UTILITY(U,$J,358.3,32549,0)
;;=L03.90^^99^1346^4
;;^UTILITY(U,$J,358.3,32549,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32549,1,3,0)
;;=3^Cellulitis, unspecified
;;^UTILITY(U,$J,358.3,32549,1,4,0)
;;=4^L03.90
;;^UTILITY(U,$J,358.3,32549,2)
;;=^5009067
;;^UTILITY(U,$J,358.3,32550,0)
;;=L08.9^^99^1346^32
;;^UTILITY(U,$J,358.3,32550,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32550,1,3,0)
;;=3^Skin infection, unspec
;;^UTILITY(U,$J,358.3,32550,1,4,0)
;;=4^L08.9
;;^UTILITY(U,$J,358.3,32550,2)
;;=^5009082
;;^UTILITY(U,$J,358.3,32551,0)
;;=L29.9^^99^1346^23
;;^UTILITY(U,$J,358.3,32551,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32551,1,3,0)
;;=3^Pruritus, unspecified
;;^UTILITY(U,$J,358.3,32551,1,4,0)
;;=4^L29.9
;;^UTILITY(U,$J,358.3,32551,2)
;;=^5009153
;;^UTILITY(U,$J,358.3,32552,0)
;;=L30.9^^99^1346^16
;;^UTILITY(U,$J,358.3,32552,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32552,1,3,0)
;;=3^Dermatitis,Unspec
;;^UTILITY(U,$J,358.3,32552,1,4,0)
;;=4^L30.9
;;^UTILITY(U,$J,358.3,32552,2)
;;=^5009159
;;^UTILITY(U,$J,358.3,32553,0)
;;=L40.0^^99^1346^27
;;^UTILITY(U,$J,358.3,32553,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32553,1,3,0)
;;=3^Psoriasis,Vulgaris
;;^UTILITY(U,$J,358.3,32553,1,4,0)
;;=4^L40.0
;;^UTILITY(U,$J,358.3,32553,2)
;;=^5009160
;;^UTILITY(U,$J,358.3,32554,0)
;;=L40.1^^99^1346^28
;;^UTILITY(U,$J,358.3,32554,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32554,1,3,0)
;;=3^Pustular psoriasis, generalized
;;^UTILITY(U,$J,358.3,32554,1,4,0)
;;=4^L40.1
;;^UTILITY(U,$J,358.3,32554,2)
;;=^5009161
;;^UTILITY(U,$J,358.3,32555,0)
;;=L40.2^^99^1346^1
;;^UTILITY(U,$J,358.3,32555,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32555,1,3,0)
;;=3^Acrodermatitis continua
;;^UTILITY(U,$J,358.3,32555,1,4,0)
;;=4^L40.2
;;^UTILITY(U,$J,358.3,32555,2)
;;=^5009162
;;^UTILITY(U,$J,358.3,32556,0)
;;=L40.3^^99^1346^29
;;^UTILITY(U,$J,358.3,32556,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32556,1,3,0)
;;=3^Pustulosis palmaris et plantaris
;;^UTILITY(U,$J,358.3,32556,1,4,0)
;;=4^L40.3
;;^UTILITY(U,$J,358.3,32556,2)
;;=^5009163
;;^UTILITY(U,$J,358.3,32557,0)
;;=L40.4^^99^1346^25
;;^UTILITY(U,$J,358.3,32557,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32557,1,3,0)
;;=3^Psoriasis,Guttate
;;^UTILITY(U,$J,358.3,32557,1,4,0)
;;=4^L40.4
;;^UTILITY(U,$J,358.3,32557,2)
;;=^5009164
;;^UTILITY(U,$J,358.3,32558,0)
;;=L40.8^^99^1346^26
;;^UTILITY(U,$J,358.3,32558,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32558,1,3,0)
;;=3^Psoriasis,Other
;;^UTILITY(U,$J,358.3,32558,1,4,0)
;;=4^L40.8
;;^UTILITY(U,$J,358.3,32558,2)
;;=^271917
;;^UTILITY(U,$J,358.3,32559,0)
;;=L72.3^^99^1346^31
;;^UTILITY(U,$J,358.3,32559,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32559,1,3,0)
;;=3^Sebaceous cyst
;;^UTILITY(U,$J,358.3,32559,1,4,0)
;;=4^L72.3
;;^UTILITY(U,$J,358.3,32559,2)
;;=^5009281
;;^UTILITY(U,$J,358.3,32560,0)
;;=L97.919^^99^1346^21
;;^UTILITY(U,$J,358.3,32560,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32560,1,3,0)
;;=3^Non-pressure chr ulcer unspec part right lower leg
;;^UTILITY(U,$J,358.3,32560,1,4,0)
;;=4^L97.919
;;^UTILITY(U,$J,358.3,32560,2)
;;=^5133688
;;^UTILITY(U,$J,358.3,32561,0)
;;=L97.929^^99^1346^20
;;^UTILITY(U,$J,358.3,32561,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32561,1,3,0)
;;=3^Non-pressure chr ulcer unspec part left lower leg
;;^UTILITY(U,$J,358.3,32561,1,4,0)
;;=4^L97.929
;;^UTILITY(U,$J,358.3,32561,2)
;;=^5133689
;;^UTILITY(U,$J,358.3,32562,0)
;;=L98.499^^99^1346^19
;;^UTILITY(U,$J,358.3,32562,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,32562,1,3,0)
;;=3^Non-pressure chr skin ulcer
;;^UTILITY(U,$J,358.3,32562,1,4,0)
;;=4^L98.499
;;^UTILITY(U,$J,358.3,32562,2)
;;=^5009591
;;^UTILITY(U,$J,358.3,32563,0)
;;=L98.9^^99^1346^33
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0CY 19778 printed Dec 13, 2024@01:46:14 Page 2
IBDEI0CY ; ; 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,32494,1,4,0)
+2 ;;=4^K20.90
+3 ;;^UTILITY(U,$J,358.3,32494,2)
+4 ;;=^5159212
+5 ;;^UTILITY(U,$J,358.3,32495,0)
+6 ;;=K20.91^^99^1342^10
+7 ;;^UTILITY(U,$J,358.3,32495,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,32495,1,3,0)
+10 ;;=3^Esophagitis,Unspec w/ Bleeding
+11 ;;^UTILITY(U,$J,358.3,32495,1,4,0)
+12 ;;=4^K20.91
+13 ;;^UTILITY(U,$J,358.3,32495,2)
+14 ;;=^5159213
+15 ;;^UTILITY(U,$J,358.3,32496,0)
+16 ;;=K21.00^^99^1342^15
+17 ;;^UTILITY(U,$J,358.3,32496,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,32496,1,3,0)
+20 ;;=3^GERD w/ Esophagitis w/o Bleed
+21 ;;^UTILITY(U,$J,358.3,32496,1,4,0)
+22 ;;=4^K21.00
+23 ;;^UTILITY(U,$J,358.3,32496,2)
+24 ;;=^5159214
+25 ;;^UTILITY(U,$J,358.3,32497,0)
+26 ;;=K21.01^^99^1342^14
+27 ;;^UTILITY(U,$J,358.3,32497,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,32497,1,3,0)
+30 ;;=3^GERD w/ Esophagitis w/ Bleed
+31 ;;^UTILITY(U,$J,358.3,32497,1,4,0)
+32 ;;=4^K21.01
+33 ;;^UTILITY(U,$J,358.3,32497,2)
+34 ;;=^5159215
+35 ;;^UTILITY(U,$J,358.3,32498,0)
+36 ;;=I69.959^^99^1343^13
+37 ;;^UTILITY(U,$J,358.3,32498,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,32498,1,3,0)
+40 ;;=3^Hemiplegia/Hemiparesis Following Unspec Cerebrovascular Disease
+41 ;;^UTILITY(U,$J,358.3,32498,1,4,0)
+42 ;;=4^I69.959
+43 ;;^UTILITY(U,$J,358.3,32498,2)
+44 ;;=^5007563
+45 ;;^UTILITY(U,$J,358.3,32499,0)
+46 ;;=I10.^^99^1343^12
+47 ;;^UTILITY(U,$J,358.3,32499,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,32499,1,3,0)
+50 ;;=3^HTN,Essential
+51 ;;^UTILITY(U,$J,358.3,32499,1,4,0)
+52 ;;=4^I10.
+53 ;;^UTILITY(U,$J,358.3,32499,2)
+54 ;;=^5007062
+55 ;;^UTILITY(U,$J,358.3,32500,0)
+56 ;;=I20.9^^99^1343^1
+57 ;;^UTILITY(U,$J,358.3,32500,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,32500,1,3,0)
+60 ;;=3^Angina pectoris, unspecified
+61 ;;^UTILITY(U,$J,358.3,32500,1,4,0)
+62 ;;=4^I20.9
+63 ;;^UTILITY(U,$J,358.3,32500,2)
+64 ;;=^5007079
+65 ;;^UTILITY(U,$J,358.3,32501,0)
+66 ;;=I21.3^^99^1343^16
+67 ;;^UTILITY(U,$J,358.3,32501,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,32501,1,3,0)
+70 ;;=3^Myocardial infarctions (STEMI), unspec site
+71 ;;^UTILITY(U,$J,358.3,32501,1,4,0)
+72 ;;=4^I21.3
+73 ;;^UTILITY(U,$J,358.3,32501,2)
+74 ;;=^5007087
+75 ;;^UTILITY(U,$J,358.3,32502,0)
+76 ;;=I25.10^^99^1343^2
+77 ;;^UTILITY(U,$J,358.3,32502,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,32502,1,3,0)
+80 ;;=3^Athscl hrt disease w/o angina pectoris
+81 ;;^UTILITY(U,$J,358.3,32502,1,4,0)
+82 ;;=4^I25.10
+83 ;;^UTILITY(U,$J,358.3,32502,2)
+84 ;;=^5007107
+85 ;;^UTILITY(U,$J,358.3,32503,0)
+86 ;;=I25.2^^99^1343^20
+87 ;;^UTILITY(U,$J,358.3,32503,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,32503,1,3,0)
+90 ;;=3^Old myocardial infarction
+91 ;;^UTILITY(U,$J,358.3,32503,1,4,0)
+92 ;;=4^I25.2
+93 ;;^UTILITY(U,$J,358.3,32503,2)
+94 ;;=^259884
+95 ;;^UTILITY(U,$J,358.3,32504,0)
+96 ;;=I30.0^^99^1343^14
+97 ;;^UTILITY(U,$J,358.3,32504,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,32504,1,3,0)
+100 ;;=3^Idiopathic pericarditis, acute
+101 ;;^UTILITY(U,$J,358.3,32504,1,4,0)
+102 ;;=4^I30.0
+103 ;;^UTILITY(U,$J,358.3,32504,2)
+104 ;;=^5007157
+105 ;;^UTILITY(U,$J,358.3,32505,0)
+106 ;;=I34.1^^99^1343^19
+107 ;;^UTILITY(U,$J,358.3,32505,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,32505,1,3,0)
+110 ;;=3^Nonrheumatic mitral valve prolapse
+111 ;;^UTILITY(U,$J,358.3,32505,1,4,0)
+112 ;;=4^I34.1
+113 ;;^UTILITY(U,$J,358.3,32505,2)
+114 ;;=^5007170
+115 ;;^UTILITY(U,$J,358.3,32506,0)
+116 ;;=I35.0^^99^1343^17
+117 ;;^UTILITY(U,$J,358.3,32506,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,32506,1,3,0)
+120 ;;=3^Nonrheumatic aortic valve stenosis
+121 ;;^UTILITY(U,$J,358.3,32506,1,4,0)
+122 ;;=4^I35.0
+123 ;;^UTILITY(U,$J,358.3,32506,2)
+124 ;;=^5007174
+125 ;;^UTILITY(U,$J,358.3,32507,0)
+126 ;;=I35.2^^99^1343^18
+127 ;;^UTILITY(U,$J,358.3,32507,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,32507,1,3,0)
+130 ;;=3^Nonrheumatic aortic valve stenosis w/ insufficiency
+131 ;;^UTILITY(U,$J,358.3,32507,1,4,0)
+132 ;;=4^I35.2
+133 ;;^UTILITY(U,$J,358.3,32507,2)
+134 ;;=^5007176
+135 ;;^UTILITY(U,$J,358.3,32508,0)
+136 ;;=I42.8^^99^1343^7
+137 ;;^UTILITY(U,$J,358.3,32508,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,32508,1,3,0)
+140 ;;=3^Cardiomyopathies, other
+141 ;;^UTILITY(U,$J,358.3,32508,1,4,0)
+142 ;;=4^I42.8
+143 ;;^UTILITY(U,$J,358.3,32508,2)
+144 ;;=^5007199
+145 ;;^UTILITY(U,$J,358.3,32509,0)
+146 ;;=I48.91^^99^1343^3
+147 ;;^UTILITY(U,$J,358.3,32509,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,32509,1,3,0)
+150 ;;=3^Atrial fibrillation, unspec
+151 ;;^UTILITY(U,$J,358.3,32509,1,4,0)
+152 ;;=4^I48.91
+153 ;;^UTILITY(U,$J,358.3,32509,2)
+154 ;;=^5007229
+155 ;;^UTILITY(U,$J,358.3,32510,0)
+156 ;;=I48.92^^99^1343^4
+157 ;;^UTILITY(U,$J,358.3,32510,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,32510,1,3,0)
+160 ;;=3^Atrial flutter, unspec
+161 ;;^UTILITY(U,$J,358.3,32510,1,4,0)
+162 ;;=4^I48.92
+163 ;;^UTILITY(U,$J,358.3,32510,2)
+164 ;;=^5007230
+165 ;;^UTILITY(U,$J,358.3,32511,0)
+166 ;;=I49.3^^99^1343^23
+167 ;;^UTILITY(U,$J,358.3,32511,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,32511,1,3,0)
+170 ;;=3^Ventricular premature depolarization
+171 ;;^UTILITY(U,$J,358.3,32511,1,4,0)
+172 ;;=4^I49.3
+173 ;;^UTILITY(U,$J,358.3,32511,2)
+174 ;;=^5007233
+175 ;;^UTILITY(U,$J,358.3,32512,0)
+176 ;;=I50.9^^99^1343^6
+177 ;;^UTILITY(U,$J,358.3,32512,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,32512,1,3,0)
+180 ;;=3^CHF,Unspec
+181 ;;^UTILITY(U,$J,358.3,32512,1,4,0)
+182 ;;=4^I50.9
+183 ;;^UTILITY(U,$J,358.3,32512,2)
+184 ;;=^5007251
+185 ;;^UTILITY(U,$J,358.3,32513,0)
+186 ;;=I69.928^^99^1343^22
+187 ;;^UTILITY(U,$J,358.3,32513,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,32513,1,3,0)
+190 ;;=3^Speech/lang deficits following unsp cerebvasc disease
+191 ;;^UTILITY(U,$J,358.3,32513,1,4,0)
+192 ;;=4^I69.928
+193 ;;^UTILITY(U,$J,358.3,32513,2)
+194 ;;=^5007557
+195 ;;^UTILITY(U,$J,358.3,32514,0)
+196 ;;=I69.910^^99^1343^5
+197 ;;^UTILITY(U,$J,358.3,32514,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,32514,1,3,0)
+200 ;;=3^Attention/Concentration Deficit Following Cerebrvasc Disease
+201 ;;^UTILITY(U,$J,358.3,32514,1,4,0)
+202 ;;=4^I69.910
+203 ;;^UTILITY(U,$J,358.3,32514,2)
+204 ;;=^5138660
+205 ;;^UTILITY(U,$J,358.3,32515,0)
+206 ;;=I69.911^^99^1343^15
+207 ;;^UTILITY(U,$J,358.3,32515,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,32515,1,3,0)
+210 ;;=3^Memory Deficit Following Cerebvasc Disease
+211 ;;^UTILITY(U,$J,358.3,32515,1,4,0)
+212 ;;=4^I69.911
+213 ;;^UTILITY(U,$J,358.3,32515,2)
+214 ;;=^5138661
+215 ;;^UTILITY(U,$J,358.3,32516,0)
+216 ;;=I69.912^^99^1343^24
+217 ;;^UTILITY(U,$J,358.3,32516,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,32516,1,3,0)
+220 ;;=3^Visospatial Deficit Following Cerebvasc Disease
+221 ;;^UTILITY(U,$J,358.3,32516,1,4,0)
+222 ;;=4^I69.912
+223 ;;^UTILITY(U,$J,358.3,32516,2)
+224 ;;=^5138662
+225 ;;^UTILITY(U,$J,358.3,32517,0)
+226 ;;=I69.913^^99^1343^21
+227 ;;^UTILITY(U,$J,358.3,32517,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,32517,1,3,0)
+230 ;;=3^Psychomotor Deficit Following Cerebvasc Disease
+231 ;;^UTILITY(U,$J,358.3,32517,1,4,0)
+232 ;;=4^I69.913
+233 ;;^UTILITY(U,$J,358.3,32517,2)
+234 ;;=^5138663
+235 ;;^UTILITY(U,$J,358.3,32518,0)
+236 ;;=I69.914^^99^1343^11
+237 ;;^UTILITY(U,$J,358.3,32518,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,32518,1,3,0)
+240 ;;=3^Frontal Lobe/Executive Fcn Deficit Following Cerebvasc Disease
+241 ;;^UTILITY(U,$J,358.3,32518,1,4,0)
+242 ;;=4^I69.914
+243 ;;^UTILITY(U,$J,358.3,32518,2)
+244 ;;=^5138664
+245 ;;^UTILITY(U,$J,358.3,32519,0)
+246 ;;=I69.915^^99^1343^10
+247 ;;^UTILITY(U,$J,358.3,32519,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,32519,1,3,0)
+250 ;;=3^Cognitive Social/Emotional Deficit Following Cerebvasc Disease
+251 ;;^UTILITY(U,$J,358.3,32519,1,4,0)
+252 ;;=4^I69.915
+253 ;;^UTILITY(U,$J,358.3,32519,2)
+254 ;;=^5138665
+255 ;;^UTILITY(U,$J,358.3,32520,0)
+256 ;;=I69.918^^99^1343^8
+257 ;;^UTILITY(U,$J,358.3,32520,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,32520,1,3,0)
+260 ;;=3^Cognitive Function Oth Symp/Signs Following Cerebvasc Disease
+261 ;;^UTILITY(U,$J,358.3,32520,1,4,0)
+262 ;;=4^I69.918
+263 ;;^UTILITY(U,$J,358.3,32520,2)
+264 ;;=^5138666
+265 ;;^UTILITY(U,$J,358.3,32521,0)
+266 ;;=I69.919^^99^1343^9
+267 ;;^UTILITY(U,$J,358.3,32521,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,32521,1,3,0)
+270 ;;=3^Cognitive Function Unspec Symp/Signs Following Cerebvasc Disease
+271 ;;^UTILITY(U,$J,358.3,32521,1,4,0)
+272 ;;=4^I69.919
+273 ;;^UTILITY(U,$J,358.3,32521,2)
+274 ;;=^5138667
+275 ;;^UTILITY(U,$J,358.3,32522,0)
+276 ;;=K40.90^^99^1344^5
+277 ;;^UTILITY(U,$J,358.3,32522,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,32522,1,3,0)
+280 ;;=3^Inguinal Hernia,Unil w/o Obst/Gangr
+281 ;;^UTILITY(U,$J,358.3,32522,1,4,0)
+282 ;;=4^K40.90
+283 ;;^UTILITY(U,$J,358.3,32522,2)
+284 ;;=^5008591
+285 ;;^UTILITY(U,$J,358.3,32523,0)
+286 ;;=K40.20^^99^1344^4
+287 ;;^UTILITY(U,$J,358.3,32523,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,32523,1,3,0)
+290 ;;=3^Inguinal Hernia,Bilat w/o Obst/Gangr
+291 ;;^UTILITY(U,$J,358.3,32523,1,4,0)
+292 ;;=4^K40.20
+293 ;;^UTILITY(U,$J,358.3,32523,2)
+294 ;;=^5008585
+295 ;;^UTILITY(U,$J,358.3,32524,0)
+296 ;;=K42.9^^99^1344^6
+297 ;;^UTILITY(U,$J,358.3,32524,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,32524,1,3,0)
+300 ;;=3^Umbilical hernia w/o obstruction/gangrene
+301 ;;^UTILITY(U,$J,358.3,32524,1,4,0)
+302 ;;=4^K42.9
+303 ;;^UTILITY(U,$J,358.3,32524,2)
+304 ;;=^5008606
+305 ;;^UTILITY(U,$J,358.3,32525,0)
+306 ;;=K43.2^^99^1344^3
+307 ;;^UTILITY(U,$J,358.3,32525,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,32525,1,3,0)
+310 ;;=3^Incisional hernia w/o obstruction/gangrene
+311 ;;^UTILITY(U,$J,358.3,32525,1,4,0)
+312 ;;=4^K43.2
+313 ;;^UTILITY(U,$J,358.3,32525,2)
+314 ;;=^5008609
+315 ;;^UTILITY(U,$J,358.3,32526,0)
+316 ;;=K44.9^^99^1344^2
+317 ;;^UTILITY(U,$J,358.3,32526,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,32526,1,3,0)
+320 ;;=3^Diaphragmatic hernia w/o obstruction/gangrene
+321 ;;^UTILITY(U,$J,358.3,32526,1,4,0)
+322 ;;=4^K44.9
+323 ;;^UTILITY(U,$J,358.3,32526,2)
+324 ;;=^5008617
+325 ;;^UTILITY(U,$J,358.3,32527,0)
+326 ;;=K46.9^^99^1344^1
+327 ;;^UTILITY(U,$J,358.3,32527,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,32527,1,3,0)
+330 ;;=3^Abdominal hernia w/o obstruction/gangrene
+331 ;;^UTILITY(U,$J,358.3,32527,1,4,0)
+332 ;;=4^K46.9
+333 ;;^UTILITY(U,$J,358.3,32527,2)
+334 ;;=^5008623
+335 ;;^UTILITY(U,$J,358.3,32528,0)
+336 ;;=N17.9^^99^1345^14
+337 ;;^UTILITY(U,$J,358.3,32528,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,32528,1,3,0)
+340 ;;=3^Kidney Failure,Acute
+341 ;;^UTILITY(U,$J,358.3,32528,1,4,0)
+342 ;;=4^N17.9
+343 ;;^UTILITY(U,$J,358.3,32528,2)
+344 ;;=^338532
+345 ;;^UTILITY(U,$J,358.3,32529,0)
+346 ;;=N18.9^^99^1345^15
+347 ;;^UTILITY(U,$J,358.3,32529,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,32529,1,3,0)
+350 ;;=3^Kidney Failure,Chronic
+351 ;;^UTILITY(U,$J,358.3,32529,1,4,0)
+352 ;;=4^N18.9
+353 ;;^UTILITY(U,$J,358.3,32529,2)
+354 ;;=^332812
+355 ;;^UTILITY(U,$J,358.3,32530,0)
+356 ;;=N28.9^^99^1345^7
+357 ;;^UTILITY(U,$J,358.3,32530,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,32530,1,3,0)
+360 ;;=3^Kidney & Ureter Disorder,Unspec
+361 ;;^UTILITY(U,$J,358.3,32530,1,4,0)
+362 ;;=4^N28.9
+363 ;;^UTILITY(U,$J,358.3,32530,2)
+364 ;;=^5015630
+365 ;;^UTILITY(U,$J,358.3,32531,0)
+366 ;;=N20.0^^99^1345^2
+367 ;;^UTILITY(U,$J,358.3,32531,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,32531,1,3,0)
+370 ;;=3^Calculus of Kidney
+371 ;;^UTILITY(U,$J,358.3,32531,1,4,0)
+372 ;;=4^N20.0
+373 ;;^UTILITY(U,$J,358.3,32531,2)
+374 ;;=^67056
+375 ;;^UTILITY(U,$J,358.3,32532,0)
+376 ;;=N32.0^^99^1345^1
+377 ;;^UTILITY(U,$J,358.3,32532,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,32532,1,3,0)
+380 ;;=3^Bladder-Neck Obstruction
+381 ;;^UTILITY(U,$J,358.3,32532,1,4,0)
+382 ;;=4^N32.0
+383 ;;^UTILITY(U,$J,358.3,32532,2)
+384 ;;=^5015649
+385 ;;^UTILITY(U,$J,358.3,32533,0)
+386 ;;=N34.1^^99^1345^18
+387 ;;^UTILITY(U,$J,358.3,32533,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,32533,1,3,0)
+390 ;;=3^Urethritis, nonspecific
+391 ;;^UTILITY(U,$J,358.3,32533,1,4,0)
+392 ;;=4^N34.1
+393 ;;^UTILITY(U,$J,358.3,32533,2)
+394 ;;=^5015655
+395 ;;^UTILITY(U,$J,358.3,32534,0)
+396 ;;=N39.0^^99^1345^19
+397 ;;^UTILITY(U,$J,358.3,32534,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,32534,1,3,0)
+400 ;;=3^Urinary tract infection
+401 ;;^UTILITY(U,$J,358.3,32534,1,4,0)
+402 ;;=4^N39.0
+403 ;;^UTILITY(U,$J,358.3,32534,2)
+404 ;;=^124436
+405 ;;^UTILITY(U,$J,358.3,32535,0)
+406 ;;=N40.0^^99^1345^5
+407 ;;^UTILITY(U,$J,358.3,32535,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,32535,1,3,0)
+410 ;;=3^Enlarged Prostate w/o LUTS
+411 ;;^UTILITY(U,$J,358.3,32535,1,4,0)
+412 ;;=4^N40.0
+413 ;;^UTILITY(U,$J,358.3,32535,2)
+414 ;;=^5015689
+415 ;;^UTILITY(U,$J,358.3,32536,0)
+416 ;;=N40.1^^99^1345^4
+417 ;;^UTILITY(U,$J,358.3,32536,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,32536,1,3,0)
+420 ;;=3^Enlarged Prostate w/ LUTS
+421 ;;^UTILITY(U,$J,358.3,32536,1,4,0)
+422 ;;=4^N40.1
+423 ;;^UTILITY(U,$J,358.3,32536,2)
+424 ;;=^5015690
+425 ;;^UTILITY(U,$J,358.3,32537,0)
+426 ;;=N43.3^^99^1345^6
+427 ;;^UTILITY(U,$J,358.3,32537,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,32537,1,3,0)
+430 ;;=3^Hydrocele, unspecified
+431 ;;^UTILITY(U,$J,358.3,32537,1,4,0)
+432 ;;=4^N43.3
+433 ;;^UTILITY(U,$J,358.3,32537,2)
+434 ;;=^5015700
+435 ;;^UTILITY(U,$J,358.3,32538,0)
+436 ;;=N52.9^^99^1345^17
+437 ;;^UTILITY(U,$J,358.3,32538,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,32538,1,3,0)
+440 ;;=3^Male erectile dysfunction, unspecified
+441 ;;^UTILITY(U,$J,358.3,32538,1,4,0)
+442 ;;=4^N52.9
+443 ;;^UTILITY(U,$J,358.3,32538,2)
+444 ;;=^5015763
+445 ;;^UTILITY(U,$J,358.3,32539,0)
+446 ;;=N18.1^^99^1345^8
+447 ;;^UTILITY(U,$J,358.3,32539,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,32539,1,3,0)
+450 ;;=3^Kidney Disease,Chr,Stage 1
+451 ;;^UTILITY(U,$J,358.3,32539,1,4,0)
+452 ;;=4^N18.1
+453 ;;^UTILITY(U,$J,358.3,32539,2)
+454 ;;=^5015602
+455 ;;^UTILITY(U,$J,358.3,32540,0)
+456 ;;=N18.2^^99^1345^9
+457 ;;^UTILITY(U,$J,358.3,32540,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,32540,1,3,0)
+460 ;;=3^Kidney Disease,Chr,Stage 2 (Mild)
+461 ;;^UTILITY(U,$J,358.3,32540,1,4,0)
+462 ;;=4^N18.2
+463 ;;^UTILITY(U,$J,358.3,32540,2)
+464 ;;=^5015603
+465 ;;^UTILITY(U,$J,358.3,32541,0)
+466 ;;=N18.30^^99^1345^10
+467 ;;^UTILITY(U,$J,358.3,32541,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,32541,1,3,0)
+470 ;;=3^Kidney Disease,Chr,Stage 3,Unspec
+471 ;;^UTILITY(U,$J,358.3,32541,1,4,0)
+472 ;;=4^N18.30
+473 ;;^UTILITY(U,$J,358.3,32541,2)
+474 ;;=^5159286
+475 ;;^UTILITY(U,$J,358.3,32542,0)
+476 ;;=N18.31^^99^1345^11
+477 ;;^UTILITY(U,$J,358.3,32542,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,32542,1,3,0)
+480 ;;=3^Kidney Disease,Chr,Stage 3a
+481 ;;^UTILITY(U,$J,358.3,32542,1,4,0)
+482 ;;=4^N18.31
+483 ;;^UTILITY(U,$J,358.3,32542,2)
+484 ;;=^5159287
+485 ;;^UTILITY(U,$J,358.3,32543,0)
+486 ;;=N18.32^^99^1345^12
+487 ;;^UTILITY(U,$J,358.3,32543,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,32543,1,3,0)
+490 ;;=3^Kidney Disease,Chr,Stage 3b
+491 ;;^UTILITY(U,$J,358.3,32543,1,4,0)
+492 ;;=4^N18.32
+493 ;;^UTILITY(U,$J,358.3,32543,2)
+494 ;;=^5159288
+495 ;;^UTILITY(U,$J,358.3,32544,0)
+496 ;;=N18.9^^99^1345^13
+497 ;;^UTILITY(U,$J,358.3,32544,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,32544,1,3,0)
+500 ;;=3^Kidney Disease,Chr,Unspec
+501 ;;^UTILITY(U,$J,358.3,32544,1,4,0)
+502 ;;=4^N18.9
+503 ;;^UTILITY(U,$J,358.3,32544,2)
+504 ;;=^332812
+505 ;;^UTILITY(U,$J,358.3,32545,0)
+506 ;;=N19.^^99^1345^16
+507 ;;^UTILITY(U,$J,358.3,32545,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,32545,1,3,0)
+510 ;;=3^Kidney Failure,Unspec
+511 ;;^UTILITY(U,$J,358.3,32545,1,4,0)
+512 ;;=4^N19.
+513 ;;^UTILITY(U,$J,358.3,32545,2)
+514 ;;=^5015607
+515 ;;^UTILITY(U,$J,358.3,32546,0)
+516 ;;=N20.1^^99^1345^3
+517 ;;^UTILITY(U,$J,358.3,32546,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,32546,1,3,0)
+520 ;;=3^Calculus of Ureter
+521 ;;^UTILITY(U,$J,358.3,32546,1,4,0)
+522 ;;=4^N20.1
+523 ;;^UTILITY(U,$J,358.3,32546,2)
+524 ;;=^5015608
+525 ;;^UTILITY(U,$J,358.3,32547,0)
+526 ;;=L03.031^^99^1346^3
+527 ;;^UTILITY(U,$J,358.3,32547,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,32547,1,3,0)
+530 ;;=3^Cellulitis of right toe
+531 ;;^UTILITY(U,$J,358.3,32547,1,4,0)
+532 ;;=4^L03.031
+533 ;;^UTILITY(U,$J,358.3,32547,2)
+534 ;;=^5009025
+535 ;;^UTILITY(U,$J,358.3,32548,0)
+536 ;;=L03.032^^99^1346^2
+537 ;;^UTILITY(U,$J,358.3,32548,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,32548,1,3,0)
+540 ;;=3^Cellulitis of left toe
+541 ;;^UTILITY(U,$J,358.3,32548,1,4,0)
+542 ;;=4^L03.032
+543 ;;^UTILITY(U,$J,358.3,32548,2)
+544 ;;=^5009026
+545 ;;^UTILITY(U,$J,358.3,32549,0)
+546 ;;=L03.90^^99^1346^4
+547 ;;^UTILITY(U,$J,358.3,32549,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,32549,1,3,0)
+550 ;;=3^Cellulitis, unspecified
+551 ;;^UTILITY(U,$J,358.3,32549,1,4,0)
+552 ;;=4^L03.90
+553 ;;^UTILITY(U,$J,358.3,32549,2)
+554 ;;=^5009067
+555 ;;^UTILITY(U,$J,358.3,32550,0)
+556 ;;=L08.9^^99^1346^32
+557 ;;^UTILITY(U,$J,358.3,32550,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,32550,1,3,0)
+560 ;;=3^Skin infection, unspec
+561 ;;^UTILITY(U,$J,358.3,32550,1,4,0)
+562 ;;=4^L08.9
+563 ;;^UTILITY(U,$J,358.3,32550,2)
+564 ;;=^5009082
+565 ;;^UTILITY(U,$J,358.3,32551,0)
+566 ;;=L29.9^^99^1346^23
+567 ;;^UTILITY(U,$J,358.3,32551,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,32551,1,3,0)
+570 ;;=3^Pruritus, unspecified
+571 ;;^UTILITY(U,$J,358.3,32551,1,4,0)
+572 ;;=4^L29.9
+573 ;;^UTILITY(U,$J,358.3,32551,2)
+574 ;;=^5009153
+575 ;;^UTILITY(U,$J,358.3,32552,0)
+576 ;;=L30.9^^99^1346^16
+577 ;;^UTILITY(U,$J,358.3,32552,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,32552,1,3,0)
+580 ;;=3^Dermatitis,Unspec
+581 ;;^UTILITY(U,$J,358.3,32552,1,4,0)
+582 ;;=4^L30.9
+583 ;;^UTILITY(U,$J,358.3,32552,2)
+584 ;;=^5009159
+585 ;;^UTILITY(U,$J,358.3,32553,0)
+586 ;;=L40.0^^99^1346^27
+587 ;;^UTILITY(U,$J,358.3,32553,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,32553,1,3,0)
+590 ;;=3^Psoriasis,Vulgaris
+591 ;;^UTILITY(U,$J,358.3,32553,1,4,0)
+592 ;;=4^L40.0
+593 ;;^UTILITY(U,$J,358.3,32553,2)
+594 ;;=^5009160
+595 ;;^UTILITY(U,$J,358.3,32554,0)
+596 ;;=L40.1^^99^1346^28
+597 ;;^UTILITY(U,$J,358.3,32554,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,32554,1,3,0)
+600 ;;=3^Pustular psoriasis, generalized
+601 ;;^UTILITY(U,$J,358.3,32554,1,4,0)
+602 ;;=4^L40.1
+603 ;;^UTILITY(U,$J,358.3,32554,2)
+604 ;;=^5009161
+605 ;;^UTILITY(U,$J,358.3,32555,0)
+606 ;;=L40.2^^99^1346^1
+607 ;;^UTILITY(U,$J,358.3,32555,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,32555,1,3,0)
+610 ;;=3^Acrodermatitis continua
+611 ;;^UTILITY(U,$J,358.3,32555,1,4,0)
+612 ;;=4^L40.2
+613 ;;^UTILITY(U,$J,358.3,32555,2)
+614 ;;=^5009162
+615 ;;^UTILITY(U,$J,358.3,32556,0)
+616 ;;=L40.3^^99^1346^29
+617 ;;^UTILITY(U,$J,358.3,32556,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,32556,1,3,0)
+620 ;;=3^Pustulosis palmaris et plantaris
+621 ;;^UTILITY(U,$J,358.3,32556,1,4,0)
+622 ;;=4^L40.3
+623 ;;^UTILITY(U,$J,358.3,32556,2)
+624 ;;=^5009163
+625 ;;^UTILITY(U,$J,358.3,32557,0)
+626 ;;=L40.4^^99^1346^25
+627 ;;^UTILITY(U,$J,358.3,32557,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,32557,1,3,0)
+630 ;;=3^Psoriasis,Guttate
+631 ;;^UTILITY(U,$J,358.3,32557,1,4,0)
+632 ;;=4^L40.4
+633 ;;^UTILITY(U,$J,358.3,32557,2)
+634 ;;=^5009164
+635 ;;^UTILITY(U,$J,358.3,32558,0)
+636 ;;=L40.8^^99^1346^26
+637 ;;^UTILITY(U,$J,358.3,32558,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,32558,1,3,0)
+640 ;;=3^Psoriasis,Other
+641 ;;^UTILITY(U,$J,358.3,32558,1,4,0)
+642 ;;=4^L40.8
+643 ;;^UTILITY(U,$J,358.3,32558,2)
+644 ;;=^271917
+645 ;;^UTILITY(U,$J,358.3,32559,0)
+646 ;;=L72.3^^99^1346^31
+647 ;;^UTILITY(U,$J,358.3,32559,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,32559,1,3,0)
+650 ;;=3^Sebaceous cyst
+651 ;;^UTILITY(U,$J,358.3,32559,1,4,0)
+652 ;;=4^L72.3
+653 ;;^UTILITY(U,$J,358.3,32559,2)
+654 ;;=^5009281
+655 ;;^UTILITY(U,$J,358.3,32560,0)
+656 ;;=L97.919^^99^1346^21
+657 ;;^UTILITY(U,$J,358.3,32560,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,32560,1,3,0)
+660 ;;=3^Non-pressure chr ulcer unspec part right lower leg
+661 ;;^UTILITY(U,$J,358.3,32560,1,4,0)
+662 ;;=4^L97.919
+663 ;;^UTILITY(U,$J,358.3,32560,2)
+664 ;;=^5133688
+665 ;;^UTILITY(U,$J,358.3,32561,0)
+666 ;;=L97.929^^99^1346^20
+667 ;;^UTILITY(U,$J,358.3,32561,1,0)
+668 ;;=^358.31IA^4^2
+669 ;;^UTILITY(U,$J,358.3,32561,1,3,0)
+670 ;;=3^Non-pressure chr ulcer unspec part left lower leg
+671 ;;^UTILITY(U,$J,358.3,32561,1,4,0)
+672 ;;=4^L97.929
+673 ;;^UTILITY(U,$J,358.3,32561,2)
+674 ;;=^5133689
+675 ;;^UTILITY(U,$J,358.3,32562,0)
+676 ;;=L98.499^^99^1346^19
+677 ;;^UTILITY(U,$J,358.3,32562,1,0)
+678 ;;=^358.31IA^4^2
+679 ;;^UTILITY(U,$J,358.3,32562,1,3,0)
+680 ;;=3^Non-pressure chr skin ulcer
+681 ;;^UTILITY(U,$J,358.3,32562,1,4,0)
+682 ;;=4^L98.499
+683 ;;^UTILITY(U,$J,358.3,32562,2)
+684 ;;=^5009591
+685 ;;^UTILITY(U,$J,358.3,32563,0)
+686 ;;=L98.9^^99^1346^33
