- IBDEI066 ; ; 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,14959,1,4,0)
- ;;=4^E66.8
- ;;^UTILITY(U,$J,358.3,14959,2)
- ;;=^5002831
- ;;^UTILITY(U,$J,358.3,14960,0)
- ;;=E66.9^^56^637^25
- ;;^UTILITY(U,$J,358.3,14960,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14960,1,3,0)
- ;;=3^Obesity,Unspec
- ;;^UTILITY(U,$J,358.3,14960,1,4,0)
- ;;=4^E66.9
- ;;^UTILITY(U,$J,358.3,14960,2)
- ;;=^5002832
- ;;^UTILITY(U,$J,358.3,14961,0)
- ;;=E74.39^^56^637^16
- ;;^UTILITY(U,$J,358.3,14961,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14961,1,3,0)
- ;;=3^Intestinal Carbohydrate Absorption Disorder NEC
- ;;^UTILITY(U,$J,358.3,14961,1,4,0)
- ;;=4^E74.39
- ;;^UTILITY(U,$J,358.3,14961,2)
- ;;=^5002928
- ;;^UTILITY(U,$J,358.3,14962,0)
- ;;=E83.30^^56^637^28
- ;;^UTILITY(U,$J,358.3,14962,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14962,1,3,0)
- ;;=3^Phosphorus Metabolism Disorder,Unspec
- ;;^UTILITY(U,$J,358.3,14962,1,4,0)
- ;;=4^E83.30
- ;;^UTILITY(U,$J,358.3,14962,2)
- ;;=^5002997
- ;;^UTILITY(U,$J,358.3,14963,0)
- ;;=E83.51^^56^637^9
- ;;^UTILITY(U,$J,358.3,14963,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14963,1,3,0)
- ;;=3^Hypocalcemia
- ;;^UTILITY(U,$J,358.3,14963,1,4,0)
- ;;=4^E83.51
- ;;^UTILITY(U,$J,358.3,14963,2)
- ;;=^60542
- ;;^UTILITY(U,$J,358.3,14964,0)
- ;;=E83.52^^56^637^7
- ;;^UTILITY(U,$J,358.3,14964,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14964,1,3,0)
- ;;=3^Hypercalcemia
- ;;^UTILITY(U,$J,358.3,14964,1,4,0)
- ;;=4^E83.52
- ;;^UTILITY(U,$J,358.3,14964,2)
- ;;=^59932
- ;;^UTILITY(U,$J,358.3,14965,0)
- ;;=E87.5^^56^637^8
- ;;^UTILITY(U,$J,358.3,14965,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14965,1,3,0)
- ;;=3^Hyperkalemia
- ;;^UTILITY(U,$J,358.3,14965,1,4,0)
- ;;=4^E87.5
- ;;^UTILITY(U,$J,358.3,14965,2)
- ;;=^60041
- ;;^UTILITY(U,$J,358.3,14966,0)
- ;;=E89.2^^56^637^30
- ;;^UTILITY(U,$J,358.3,14966,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14966,1,3,0)
- ;;=3^PostProcedural Hypoparathyroidism
- ;;^UTILITY(U,$J,358.3,14966,1,4,0)
- ;;=4^E89.2
- ;;^UTILITY(U,$J,358.3,14966,2)
- ;;=^5003037
- ;;^UTILITY(U,$J,358.3,14967,0)
- ;;=E89.6^^56^637^29
- ;;^UTILITY(U,$J,358.3,14967,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14967,1,3,0)
- ;;=3^PostProcedural Adrenocortical Hypofunction
- ;;^UTILITY(U,$J,358.3,14967,1,4,0)
- ;;=4^E89.6
- ;;^UTILITY(U,$J,358.3,14967,2)
- ;;=^5003042
- ;;^UTILITY(U,$J,358.3,14968,0)
- ;;=L68.0^^56^637^6
- ;;^UTILITY(U,$J,358.3,14968,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14968,1,3,0)
- ;;=3^Hirsutism
- ;;^UTILITY(U,$J,358.3,14968,1,4,0)
- ;;=4^L68.0
- ;;^UTILITY(U,$J,358.3,14968,2)
- ;;=^5009262
- ;;^UTILITY(U,$J,358.3,14969,0)
- ;;=M80.00XA^^56^637^2
- ;;^UTILITY(U,$J,358.3,14969,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14969,1,3,0)
- ;;=3^Age-Related Osteoporosis w/ Fx,Unspec Site,Init Encntr
- ;;^UTILITY(U,$J,358.3,14969,1,4,0)
- ;;=4^M80.00XA
- ;;^UTILITY(U,$J,358.3,14969,2)
- ;;=^5013363
- ;;^UTILITY(U,$J,358.3,14970,0)
- ;;=M81.0^^56^637^3
- ;;^UTILITY(U,$J,358.3,14970,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14970,1,3,0)
- ;;=3^Age-Related Osteoporosis w/o Fx
- ;;^UTILITY(U,$J,358.3,14970,1,4,0)
- ;;=4^M81.0
- ;;^UTILITY(U,$J,358.3,14970,2)
- ;;=^5013555
- ;;^UTILITY(U,$J,358.3,14971,0)
- ;;=M85.80^^56^637^26
- ;;^UTILITY(U,$J,358.3,14971,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14971,1,3,0)
- ;;=3^Osteopenia,Unspec Site
- ;;^UTILITY(U,$J,358.3,14971,1,4,0)
- ;;=4^M85.80
- ;;^UTILITY(U,$J,358.3,14971,2)
- ;;=^5014473
- ;;^UTILITY(U,$J,358.3,14972,0)
- ;;=N62.^^56^637^5
- ;;^UTILITY(U,$J,358.3,14972,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14972,1,3,0)
- ;;=3^Gynecomastia
- ;;^UTILITY(U,$J,358.3,14972,1,4,0)
- ;;=4^N62.
- ;;^UTILITY(U,$J,358.3,14972,2)
- ;;=^5015790
- ;;^UTILITY(U,$J,358.3,14973,0)
- ;;=E66.3^^56^637^27
- ;;^UTILITY(U,$J,358.3,14973,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14973,1,3,0)
- ;;=3^Overweight
- ;;^UTILITY(U,$J,358.3,14973,1,4,0)
- ;;=4^E66.3
- ;;^UTILITY(U,$J,358.3,14973,2)
- ;;=^5002830
- ;;^UTILITY(U,$J,358.3,14974,0)
- ;;=E89.1^^56^637^31
- ;;^UTILITY(U,$J,358.3,14974,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14974,1,3,0)
- ;;=3^Postprocedural Hypoinsulinemia
- ;;^UTILITY(U,$J,358.3,14974,1,4,0)
- ;;=4^E89.1
- ;;^UTILITY(U,$J,358.3,14974,2)
- ;;=^5003036
- ;;^UTILITY(U,$J,358.3,14975,0)
- ;;=R73.03^^56^637^33
- ;;^UTILITY(U,$J,358.3,14975,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14975,1,3,0)
- ;;=3^Pre-Diabetes
- ;;^UTILITY(U,$J,358.3,14975,1,4,0)
- ;;=4^R73.03
- ;;^UTILITY(U,$J,358.3,14975,2)
- ;;=^8295662
- ;;^UTILITY(U,$J,358.3,14976,0)
- ;;=E73.9^^56^637^18
- ;;^UTILITY(U,$J,358.3,14976,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14976,1,3,0)
- ;;=3^Lactose Intolerance,Unspec
- ;;^UTILITY(U,$J,358.3,14976,1,4,0)
- ;;=4^E73.9
- ;;^UTILITY(U,$J,358.3,14976,2)
- ;;=^5002914
- ;;^UTILITY(U,$J,358.3,14977,0)
- ;;=H40.9^^56^638^11
- ;;^UTILITY(U,$J,358.3,14977,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14977,1,3,0)
- ;;=3^Glaucoma,Unspec
- ;;^UTILITY(U,$J,358.3,14977,1,4,0)
- ;;=4^H40.9
- ;;^UTILITY(U,$J,358.3,14977,2)
- ;;=^5005931
- ;;^UTILITY(U,$J,358.3,14978,0)
- ;;=H26.9^^56^638^7
- ;;^UTILITY(U,$J,358.3,14978,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14978,1,3,0)
- ;;=3^Cataract,Unspec
- ;;^UTILITY(U,$J,358.3,14978,1,4,0)
- ;;=4^H26.9
- ;;^UTILITY(U,$J,358.3,14978,2)
- ;;=^5005363
- ;;^UTILITY(U,$J,358.3,14979,0)
- ;;=H10.9^^56^638^10
- ;;^UTILITY(U,$J,358.3,14979,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14979,1,3,0)
- ;;=3^Conjunctivitis,Unspec
- ;;^UTILITY(U,$J,358.3,14979,1,4,0)
- ;;=4^H10.9
- ;;^UTILITY(U,$J,358.3,14979,2)
- ;;=^5004716
- ;;^UTILITY(U,$J,358.3,14980,0)
- ;;=H11.32^^56^638^8
- ;;^UTILITY(U,$J,358.3,14980,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14980,1,3,0)
- ;;=3^Conjunctival Hemorrhage,Left Eye
- ;;^UTILITY(U,$J,358.3,14980,1,4,0)
- ;;=4^H11.32
- ;;^UTILITY(U,$J,358.3,14980,2)
- ;;=^5004783
- ;;^UTILITY(U,$J,358.3,14981,0)
- ;;=H11.31^^56^638^9
- ;;^UTILITY(U,$J,358.3,14981,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14981,1,3,0)
- ;;=3^Conjunctival Hemorrhage,Right Eye
- ;;^UTILITY(U,$J,358.3,14981,1,4,0)
- ;;=4^H11.31
- ;;^UTILITY(U,$J,358.3,14981,2)
- ;;=^5004782
- ;;^UTILITY(U,$J,358.3,14982,0)
- ;;=H01.002^^56^638^3
- ;;^UTILITY(U,$J,358.3,14982,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14982,1,3,0)
- ;;=3^Blepharitis Unspec,Right Lower Eyelid
- ;;^UTILITY(U,$J,358.3,14982,1,4,0)
- ;;=4^H01.002
- ;;^UTILITY(U,$J,358.3,14982,2)
- ;;=^5004239
- ;;^UTILITY(U,$J,358.3,14983,0)
- ;;=H01.004^^56^638^2
- ;;^UTILITY(U,$J,358.3,14983,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14983,1,3,0)
- ;;=3^Blepharitis Unspec,Left Upper Eyelid
- ;;^UTILITY(U,$J,358.3,14983,1,4,0)
- ;;=4^H01.004
- ;;^UTILITY(U,$J,358.3,14983,2)
- ;;=^5004241
- ;;^UTILITY(U,$J,358.3,14984,0)
- ;;=H01.005^^56^638^1
- ;;^UTILITY(U,$J,358.3,14984,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14984,1,3,0)
- ;;=3^Blepharitis Unspec,Left Lower Eyelid
- ;;^UTILITY(U,$J,358.3,14984,1,4,0)
- ;;=4^H01.005
- ;;^UTILITY(U,$J,358.3,14984,2)
- ;;=^5133380
- ;;^UTILITY(U,$J,358.3,14985,0)
- ;;=H01.001^^56^638^4
- ;;^UTILITY(U,$J,358.3,14985,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14985,1,3,0)
- ;;=3^Blepharitis Unspec,Right Upper Eyelid
- ;;^UTILITY(U,$J,358.3,14985,1,4,0)
- ;;=4^H01.001
- ;;^UTILITY(U,$J,358.3,14985,2)
- ;;=^5004238
- ;;^UTILITY(U,$J,358.3,14986,0)
- ;;=H57.13^^56^638^12
- ;;^UTILITY(U,$J,358.3,14986,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14986,1,3,0)
- ;;=3^Ocular Pain,Bilateral
- ;;^UTILITY(U,$J,358.3,14986,1,4,0)
- ;;=4^H57.13
- ;;^UTILITY(U,$J,358.3,14986,2)
- ;;=^5006384
- ;;^UTILITY(U,$J,358.3,14987,0)
- ;;=H57.12^^56^638^13
- ;;^UTILITY(U,$J,358.3,14987,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14987,1,3,0)
- ;;=3^Ocular Pain,Left Eye
- ;;^UTILITY(U,$J,358.3,14987,1,4,0)
- ;;=4^H57.12
- ;;^UTILITY(U,$J,358.3,14987,2)
- ;;=^5006383
- ;;^UTILITY(U,$J,358.3,14988,0)
- ;;=H57.11^^56^638^14
- ;;^UTILITY(U,$J,358.3,14988,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14988,1,3,0)
- ;;=3^Ocular Pain,Right Eye
- ;;^UTILITY(U,$J,358.3,14988,1,4,0)
- ;;=4^H57.11
- ;;^UTILITY(U,$J,358.3,14988,2)
- ;;=^5006382
- ;;^UTILITY(U,$J,358.3,14989,0)
- ;;=H01.00B^^56^638^5
- ;;^UTILITY(U,$J,358.3,14989,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14989,1,3,0)
- ;;=3^Blepharitis,Unspec,Left Upper & Lower Eyelids
- ;;^UTILITY(U,$J,358.3,14989,1,4,0)
- ;;=4^H01.00B
- ;;^UTILITY(U,$J,358.3,14989,2)
- ;;=^5157319
- ;;^UTILITY(U,$J,358.3,14990,0)
- ;;=H01.00A^^56^638^6
- ;;^UTILITY(U,$J,358.3,14990,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14990,1,3,0)
- ;;=3^Blepharitis,Unspec,Right Upper & Lower Eyelids
- ;;^UTILITY(U,$J,358.3,14990,1,4,0)
- ;;=4^H01.00A
- ;;^UTILITY(U,$J,358.3,14990,2)
- ;;=^5157318
- ;;^UTILITY(U,$J,358.3,14991,0)
- ;;=S05.02XA^^56^639^3
- ;;^UTILITY(U,$J,358.3,14991,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14991,1,3,0)
- ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Left Eye,Init
- ;;^UTILITY(U,$J,358.3,14991,1,4,0)
- ;;=4^S05.02XA
- ;;^UTILITY(U,$J,358.3,14991,2)
- ;;=^5020582
- ;;^UTILITY(U,$J,358.3,14992,0)
- ;;=S05.01XA^^56^639^4
- ;;^UTILITY(U,$J,358.3,14992,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14992,1,3,0)
- ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Right Eye,Init
- ;;^UTILITY(U,$J,358.3,14992,1,4,0)
- ;;=4^S05.01XA
- ;;^UTILITY(U,$J,358.3,14992,2)
- ;;=^5020579
- ;;^UTILITY(U,$J,358.3,14993,0)
- ;;=T15.02XA^^56^639^1
- ;;^UTILITY(U,$J,358.3,14993,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14993,1,3,0)
- ;;=3^Foreign Body in Cornea,Left Eye,Init Encntr
- ;;^UTILITY(U,$J,358.3,14993,1,4,0)
- ;;=4^T15.02XA
- ;;^UTILITY(U,$J,358.3,14993,2)
- ;;=^5046387
- ;;^UTILITY(U,$J,358.3,14994,0)
- ;;=T15.01XA^^56^639^2
- ;;^UTILITY(U,$J,358.3,14994,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14994,1,3,0)
- ;;=3^Foreign Body in Cornea,Right Eye,Init Encntr
- ;;^UTILITY(U,$J,358.3,14994,1,4,0)
- ;;=4^T15.01XA
- ;;^UTILITY(U,$J,358.3,14994,2)
- ;;=^5046384
- ;;^UTILITY(U,$J,358.3,14995,0)
- ;;=S00.252A^^56^639^5
- ;;^UTILITY(U,$J,358.3,14995,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14995,1,3,0)
- ;;=3^Superficial FB of Left Eyelid/Periocular Area,Init Encntr
- ;;^UTILITY(U,$J,358.3,14995,1,4,0)
- ;;=4^S00.252A
- ;;^UTILITY(U,$J,358.3,14995,2)
- ;;=^5019820
- ;;^UTILITY(U,$J,358.3,14996,0)
- ;;=S00.251A^^56^639^6
- ;;^UTILITY(U,$J,358.3,14996,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14996,1,3,0)
- ;;=3^Superficial FB of Right Eyelid/Periocular Area,Init Encntr
- ;;^UTILITY(U,$J,358.3,14996,1,4,0)
- ;;=4^S00.251A
- ;;^UTILITY(U,$J,358.3,14996,2)
- ;;=^5019817
- ;;^UTILITY(U,$J,358.3,14997,0)
- ;;=B96.81^^56^640^64
- ;;^UTILITY(U,$J,358.3,14997,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14997,1,3,0)
- ;;=3^H. Pylori as the Cause of Diseases Classified Elsewhere
- ;;^UTILITY(U,$J,358.3,14997,1,4,0)
- ;;=4^B96.81
- ;;^UTILITY(U,$J,358.3,14997,2)
- ;;=^5000857
- ;;^UTILITY(U,$J,358.3,14998,0)
- ;;=B15.9^^56^640^66
- ;;^UTILITY(U,$J,358.3,14998,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14998,1,3,0)
- ;;=3^Hepatitis A,Acute w/o Hepatic Coma
- ;;^UTILITY(U,$J,358.3,14998,1,4,0)
- ;;=4^B15.9
- ;;^UTILITY(U,$J,358.3,14998,2)
- ;;=^5000536
- ;;^UTILITY(U,$J,358.3,14999,0)
- ;;=B16.9^^56^640^67
- ;;^UTILITY(U,$J,358.3,14999,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,14999,1,3,0)
- ;;=3^Hepatitis B,Acute w/o Delta-Agent & w/o Hepatic Coma
- ;;^UTILITY(U,$J,358.3,14999,1,4,0)
- ;;=4^B16.9
- ;;^UTILITY(U,$J,358.3,14999,2)
- ;;=^5000540
- ;;^UTILITY(U,$J,358.3,15000,0)
- ;;=B19.10^^56^640^69
- ;;^UTILITY(U,$J,358.3,15000,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15000,1,3,0)
- ;;=3^Hepatitis B,Viral w/o Hepatic Coma,Unspec
- ;;^UTILITY(U,$J,358.3,15000,1,4,0)
- ;;=4^B19.10
- ;;^UTILITY(U,$J,358.3,15000,2)
- ;;=^5000552
- ;;^UTILITY(U,$J,358.3,15001,0)
- ;;=B18.1^^56^640^68
- ;;^UTILITY(U,$J,358.3,15001,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15001,1,3,0)
- ;;=3^Hepatitis B,Chronic Viral w/o Delta-Agent
- ;;^UTILITY(U,$J,358.3,15001,1,4,0)
- ;;=4^B18.1
- ;;^UTILITY(U,$J,358.3,15001,2)
- ;;=^5000547
- ;;^UTILITY(U,$J,358.3,15002,0)
- ;;=B17.10^^56^640^70
- ;;^UTILITY(U,$J,358.3,15002,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15002,1,3,0)
- ;;=3^Hepatitis C,Acute w/o Hepatic Coma
- ;;^UTILITY(U,$J,358.3,15002,1,4,0)
- ;;=4^B17.10
- ;;^UTILITY(U,$J,358.3,15002,2)
- ;;=^5000542
- ;;^UTILITY(U,$J,358.3,15003,0)
- ;;=B18.2^^56^640^71
- ;;^UTILITY(U,$J,358.3,15003,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15003,1,3,0)
- ;;=3^Hepatitis C,Chronic Viral
- ;;^UTILITY(U,$J,358.3,15003,1,4,0)
- ;;=4^B18.2
- ;;^UTILITY(U,$J,358.3,15003,2)
- ;;=^5000548
- ;;^UTILITY(U,$J,358.3,15004,0)
- ;;=B18.8^^56^640^73
- ;;^UTILITY(U,$J,358.3,15004,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15004,1,3,0)
- ;;=3^Hepatitis,Oth Chronic Viral
- ;;^UTILITY(U,$J,358.3,15004,1,4,0)
- ;;=4^B18.8
- ;;^UTILITY(U,$J,358.3,15004,2)
- ;;=^5000549
- ;;^UTILITY(U,$J,358.3,15005,0)
- ;;=B17.8^^56^640^74
- ;;^UTILITY(U,$J,358.3,15005,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15005,1,3,0)
- ;;=3^Hepatitis,Oth Spec Acute Viral
- ;;^UTILITY(U,$J,358.3,15005,1,4,0)
- ;;=4^B17.8
- ;;^UTILITY(U,$J,358.3,15005,2)
- ;;=^5000544
- ;;^UTILITY(U,$J,358.3,15006,0)
- ;;=B18.9^^56^640^72
- ;;^UTILITY(U,$J,358.3,15006,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15006,1,3,0)
- ;;=3^Hepatitis,Chronic Viral Unspec
- ;;^UTILITY(U,$J,358.3,15006,1,4,0)
- ;;=4^B18.9
- ;;^UTILITY(U,$J,358.3,15006,2)
- ;;=^5000550
- ;;^UTILITY(U,$J,358.3,15007,0)
- ;;=B37.81^^56^640^18
- ;;^UTILITY(U,$J,358.3,15007,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15007,1,3,0)
- ;;=3^Candidal Esophagitis
- ;;^UTILITY(U,$J,358.3,15007,1,4,0)
- ;;=4^B37.81
- ;;^UTILITY(U,$J,358.3,15007,2)
- ;;=^5000620
- ;;^UTILITY(U,$J,358.3,15008,0)
- ;;=D12.0^^56^640^12
- ;;^UTILITY(U,$J,358.3,15008,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15008,1,3,0)
- ;;=3^Benign Neop of Cecum
- ;;^UTILITY(U,$J,358.3,15008,1,4,0)
- ;;=4^D12.0
- ;;^UTILITY(U,$J,358.3,15008,2)
- ;;=^5001963
- ;;^UTILITY(U,$J,358.3,15009,0)
- ;;=D12.6^^56^640^13
- ;;^UTILITY(U,$J,358.3,15009,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15009,1,3,0)
- ;;=3^Benign Neop of Colon,Unspec
- ;;^UTILITY(U,$J,358.3,15009,1,4,0)
- ;;=4^D12.6
- ;;^UTILITY(U,$J,358.3,15009,2)
- ;;=^5001969
- ;;^UTILITY(U,$J,358.3,15010,0)
- ;;=D12.1^^56^640^10
- ;;^UTILITY(U,$J,358.3,15010,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15010,1,3,0)
- ;;=3^Benign Neop of Appendix
- ;;^UTILITY(U,$J,358.3,15010,1,4,0)
- ;;=4^D12.1
- ;;^UTILITY(U,$J,358.3,15010,2)
- ;;=^5001964
- ;;^UTILITY(U,$J,358.3,15011,0)
- ;;=K63.5^^56^640^84
- ;;^UTILITY(U,$J,358.3,15011,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15011,1,3,0)
- ;;=3^Polyp of Colon
- ;;^UTILITY(U,$J,358.3,15011,1,4,0)
- ;;=4^K63.5
- ;;^UTILITY(U,$J,358.3,15011,2)
- ;;=^5008765
- ;;^UTILITY(U,$J,358.3,15012,0)
- ;;=D12.3^^56^640^17
- ;;^UTILITY(U,$J,358.3,15012,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15012,1,3,0)
- ;;=3^Benign Neop of Transverse Colon
- ;;^UTILITY(U,$J,358.3,15012,1,4,0)
- ;;=4^D12.3
- ;;^UTILITY(U,$J,358.3,15012,2)
- ;;=^5001966
- ;;^UTILITY(U,$J,358.3,15013,0)
- ;;=D12.2^^56^640^11
- ;;^UTILITY(U,$J,358.3,15013,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15013,1,3,0)
- ;;=3^Benign Neop of Ascending Colon
- ;;^UTILITY(U,$J,358.3,15013,1,4,0)
- ;;=4^D12.2
- ;;^UTILITY(U,$J,358.3,15013,2)
- ;;=^5001965
- ;;^UTILITY(U,$J,358.3,15014,0)
- ;;=D12.5^^56^640^16
- ;;^UTILITY(U,$J,358.3,15014,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15014,1,3,0)
- ;;=3^Benign Neop of Sigmoid Colon
- ;;^UTILITY(U,$J,358.3,15014,1,4,0)
- ;;=4^D12.5
- ;;^UTILITY(U,$J,358.3,15014,2)
- ;;=^5001968
- ;;^UTILITY(U,$J,358.3,15015,0)
- ;;=D12.4^^56^640^14
- ;;^UTILITY(U,$J,358.3,15015,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15015,1,3,0)
- ;;=3^Benign Neop of Descending Colon
- ;;^UTILITY(U,$J,358.3,15015,1,4,0)
- ;;=4^D12.4
- ;;^UTILITY(U,$J,358.3,15015,2)
- ;;=^5001967
- ;;^UTILITY(U,$J,358.3,15016,0)
- ;;=D73.2^^56^640^19
- ;;^UTILITY(U,$J,358.3,15016,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15016,1,3,0)
- ;;=3^Congestive Splenomegaly,Chronic
- ;;^UTILITY(U,$J,358.3,15016,1,4,0)
- ;;=4^D73.2
- ;;^UTILITY(U,$J,358.3,15016,2)
- ;;=^268000
- ;;^UTILITY(U,$J,358.3,15017,0)
- ;;=I85.00^^56^640^53
- ;;^UTILITY(U,$J,358.3,15017,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15017,1,3,0)
- ;;=3^Esophageal Varices w/o Bleeding
- ;;^UTILITY(U,$J,358.3,15017,1,4,0)
- ;;=4^I85.00
- ;;^UTILITY(U,$J,358.3,15017,2)
- ;;=^5008023
- ;;^UTILITY(U,$J,358.3,15018,0)
- ;;=K21.9^^56^640^63
- ;;^UTILITY(U,$J,358.3,15018,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15018,1,3,0)
- ;;=3^Gastroesophageal Reflux Disease w/o Esophagitis
- ;;^UTILITY(U,$J,358.3,15018,1,4,0)
- ;;=4^K21.9
- ;;^UTILITY(U,$J,358.3,15018,2)
- ;;=^5008505
- ;;^UTILITY(U,$J,358.3,15019,0)
- ;;=K25.7^^56^640^58
- ;;^UTILITY(U,$J,358.3,15019,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15019,1,3,0)
- ;;=3^Gastric Ulcer w/o Hemorrhage/Perforation,Chronic
- ;;^UTILITY(U,$J,358.3,15019,1,4,0)
- ;;=4^K25.7
- ;;^UTILITY(U,$J,358.3,15019,2)
- ;;=^5008521
- ;;^UTILITY(U,$J,358.3,15020,0)
- ;;=K26.9^^56^640^49
- ;;^UTILITY(U,$J,358.3,15020,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15020,1,3,0)
- ;;=3^Duadenal Ulcer w/o Hemorrhage/Perforation,Unspec
- ;;^UTILITY(U,$J,358.3,15020,1,4,0)
- ;;=4^K26.9
- ;;^UTILITY(U,$J,358.3,15020,2)
- ;;=^5008527
- ;;^UTILITY(U,$J,358.3,15021,0)
- ;;=K27.9^^56^640^83
- ;;^UTILITY(U,$J,358.3,15021,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15021,1,3,0)
- ;;=3^Peptic Ulcer w/o Hemorrhage/Perforation,Unspec
- ;;^UTILITY(U,$J,358.3,15021,1,4,0)
- ;;=4^K27.9
- ;;^UTILITY(U,$J,358.3,15021,2)
- ;;=^5008536
- ;;^UTILITY(U,$J,358.3,15022,0)
- ;;=K29.70^^56^640^59
- ;;^UTILITY(U,$J,358.3,15022,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15022,1,3,0)
- ;;=3^Gastritis w/o Bleeding,Unspec
- ;;^UTILITY(U,$J,358.3,15022,1,4,0)
- ;;=4^K29.70
- ;;^UTILITY(U,$J,358.3,15022,2)
- ;;=^5008552
- ;;^UTILITY(U,$J,358.3,15023,0)
- ;;=K29.90^^56^640^60
- ;;^UTILITY(U,$J,358.3,15023,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15023,1,3,0)
- ;;=3^Gastroduodenitis w/o Bleeding,Unspec
- ;;^UTILITY(U,$J,358.3,15023,1,4,0)
- ;;=4^K29.90
- ;;^UTILITY(U,$J,358.3,15023,2)
- ;;=^5008556
- ;;^UTILITY(U,$J,358.3,15024,0)
- ;;=K30.^^56^640^50
- ;;^UTILITY(U,$J,358.3,15024,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15024,1,3,0)
- ;;=3^Dyspepsia,Functional
- ;;^UTILITY(U,$J,358.3,15024,1,4,0)
- ;;=4^K30.
- ;;^UTILITY(U,$J,358.3,15024,2)
- ;;=^5008558
- ;;^UTILITY(U,$J,358.3,15025,0)
- ;;=K31.89^^56^640^39
- ;;^UTILITY(U,$J,358.3,15025,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15025,1,3,0)
- ;;=3^Diseases of Stomach & Duodenum,Other
- ;;^UTILITY(U,$J,358.3,15025,1,4,0)
- ;;=4^K31.89
- ;;^UTILITY(U,$J,358.3,15025,2)
- ;;=^5008569
- ;;^UTILITY(U,$J,358.3,15026,0)
- ;;=K31.9^^56^640^38
- ;;^UTILITY(U,$J,358.3,15026,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15026,1,3,0)
- ;;=3^Disease of Stomach & Duodenum,Unspec
- ;;^UTILITY(U,$J,358.3,15026,1,4,0)
- ;;=4^K31.9
- ;;^UTILITY(U,$J,358.3,15026,2)
- ;;=^5008570
- ;;^UTILITY(U,$J,358.3,15027,0)
- ;;=K40.90^^56^640^76
- ;;^UTILITY(U,$J,358.3,15027,1,0)
- ;;=^358.31IA^4^2
- ;;^UTILITY(U,$J,358.3,15027,1,3,0)
- ;;=3^Inguinal Hernia,Unilat w/o Obst or Gangrene
- ;;^UTILITY(U,$J,358.3,15027,1,4,0)
- ;;=4^K40.90
- ;;^UTILITY(U,$J,358.3,15027,2)
- ;;=^5008591
- ;;^UTILITY(U,$J,358.3,15028,0)
- ;;=K40.20^^56^640^75
- ;;^UTILITY(U,$J,358.3,15028,1,0)
- ;;=^358.31IA^4^2
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI066 19788 printed Feb 18, 2025@23:08:48 Page 2
- IBDEI066 ; ; 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,14959,1,4,0)
- +2 ;;=4^E66.8
- +3 ;;^UTILITY(U,$J,358.3,14959,2)
- +4 ;;=^5002831
- +5 ;;^UTILITY(U,$J,358.3,14960,0)
- +6 ;;=E66.9^^56^637^25
- +7 ;;^UTILITY(U,$J,358.3,14960,1,0)
- +8 ;;=^358.31IA^4^2
- +9 ;;^UTILITY(U,$J,358.3,14960,1,3,0)
- +10 ;;=3^Obesity,Unspec
- +11 ;;^UTILITY(U,$J,358.3,14960,1,4,0)
- +12 ;;=4^E66.9
- +13 ;;^UTILITY(U,$J,358.3,14960,2)
- +14 ;;=^5002832
- +15 ;;^UTILITY(U,$J,358.3,14961,0)
- +16 ;;=E74.39^^56^637^16
- +17 ;;^UTILITY(U,$J,358.3,14961,1,0)
- +18 ;;=^358.31IA^4^2
- +19 ;;^UTILITY(U,$J,358.3,14961,1,3,0)
- +20 ;;=3^Intestinal Carbohydrate Absorption Disorder NEC
- +21 ;;^UTILITY(U,$J,358.3,14961,1,4,0)
- +22 ;;=4^E74.39
- +23 ;;^UTILITY(U,$J,358.3,14961,2)
- +24 ;;=^5002928
- +25 ;;^UTILITY(U,$J,358.3,14962,0)
- +26 ;;=E83.30^^56^637^28
- +27 ;;^UTILITY(U,$J,358.3,14962,1,0)
- +28 ;;=^358.31IA^4^2
- +29 ;;^UTILITY(U,$J,358.3,14962,1,3,0)
- +30 ;;=3^Phosphorus Metabolism Disorder,Unspec
- +31 ;;^UTILITY(U,$J,358.3,14962,1,4,0)
- +32 ;;=4^E83.30
- +33 ;;^UTILITY(U,$J,358.3,14962,2)
- +34 ;;=^5002997
- +35 ;;^UTILITY(U,$J,358.3,14963,0)
- +36 ;;=E83.51^^56^637^9
- +37 ;;^UTILITY(U,$J,358.3,14963,1,0)
- +38 ;;=^358.31IA^4^2
- +39 ;;^UTILITY(U,$J,358.3,14963,1,3,0)
- +40 ;;=3^Hypocalcemia
- +41 ;;^UTILITY(U,$J,358.3,14963,1,4,0)
- +42 ;;=4^E83.51
- +43 ;;^UTILITY(U,$J,358.3,14963,2)
- +44 ;;=^60542
- +45 ;;^UTILITY(U,$J,358.3,14964,0)
- +46 ;;=E83.52^^56^637^7
- +47 ;;^UTILITY(U,$J,358.3,14964,1,0)
- +48 ;;=^358.31IA^4^2
- +49 ;;^UTILITY(U,$J,358.3,14964,1,3,0)
- +50 ;;=3^Hypercalcemia
- +51 ;;^UTILITY(U,$J,358.3,14964,1,4,0)
- +52 ;;=4^E83.52
- +53 ;;^UTILITY(U,$J,358.3,14964,2)
- +54 ;;=^59932
- +55 ;;^UTILITY(U,$J,358.3,14965,0)
- +56 ;;=E87.5^^56^637^8
- +57 ;;^UTILITY(U,$J,358.3,14965,1,0)
- +58 ;;=^358.31IA^4^2
- +59 ;;^UTILITY(U,$J,358.3,14965,1,3,0)
- +60 ;;=3^Hyperkalemia
- +61 ;;^UTILITY(U,$J,358.3,14965,1,4,0)
- +62 ;;=4^E87.5
- +63 ;;^UTILITY(U,$J,358.3,14965,2)
- +64 ;;=^60041
- +65 ;;^UTILITY(U,$J,358.3,14966,0)
- +66 ;;=E89.2^^56^637^30
- +67 ;;^UTILITY(U,$J,358.3,14966,1,0)
- +68 ;;=^358.31IA^4^2
- +69 ;;^UTILITY(U,$J,358.3,14966,1,3,0)
- +70 ;;=3^PostProcedural Hypoparathyroidism
- +71 ;;^UTILITY(U,$J,358.3,14966,1,4,0)
- +72 ;;=4^E89.2
- +73 ;;^UTILITY(U,$J,358.3,14966,2)
- +74 ;;=^5003037
- +75 ;;^UTILITY(U,$J,358.3,14967,0)
- +76 ;;=E89.6^^56^637^29
- +77 ;;^UTILITY(U,$J,358.3,14967,1,0)
- +78 ;;=^358.31IA^4^2
- +79 ;;^UTILITY(U,$J,358.3,14967,1,3,0)
- +80 ;;=3^PostProcedural Adrenocortical Hypofunction
- +81 ;;^UTILITY(U,$J,358.3,14967,1,4,0)
- +82 ;;=4^E89.6
- +83 ;;^UTILITY(U,$J,358.3,14967,2)
- +84 ;;=^5003042
- +85 ;;^UTILITY(U,$J,358.3,14968,0)
- +86 ;;=L68.0^^56^637^6
- +87 ;;^UTILITY(U,$J,358.3,14968,1,0)
- +88 ;;=^358.31IA^4^2
- +89 ;;^UTILITY(U,$J,358.3,14968,1,3,0)
- +90 ;;=3^Hirsutism
- +91 ;;^UTILITY(U,$J,358.3,14968,1,4,0)
- +92 ;;=4^L68.0
- +93 ;;^UTILITY(U,$J,358.3,14968,2)
- +94 ;;=^5009262
- +95 ;;^UTILITY(U,$J,358.3,14969,0)
- +96 ;;=M80.00XA^^56^637^2
- +97 ;;^UTILITY(U,$J,358.3,14969,1,0)
- +98 ;;=^358.31IA^4^2
- +99 ;;^UTILITY(U,$J,358.3,14969,1,3,0)
- +100 ;;=3^Age-Related Osteoporosis w/ Fx,Unspec Site,Init Encntr
- +101 ;;^UTILITY(U,$J,358.3,14969,1,4,0)
- +102 ;;=4^M80.00XA
- +103 ;;^UTILITY(U,$J,358.3,14969,2)
- +104 ;;=^5013363
- +105 ;;^UTILITY(U,$J,358.3,14970,0)
- +106 ;;=M81.0^^56^637^3
- +107 ;;^UTILITY(U,$J,358.3,14970,1,0)
- +108 ;;=^358.31IA^4^2
- +109 ;;^UTILITY(U,$J,358.3,14970,1,3,0)
- +110 ;;=3^Age-Related Osteoporosis w/o Fx
- +111 ;;^UTILITY(U,$J,358.3,14970,1,4,0)
- +112 ;;=4^M81.0
- +113 ;;^UTILITY(U,$J,358.3,14970,2)
- +114 ;;=^5013555
- +115 ;;^UTILITY(U,$J,358.3,14971,0)
- +116 ;;=M85.80^^56^637^26
- +117 ;;^UTILITY(U,$J,358.3,14971,1,0)
- +118 ;;=^358.31IA^4^2
- +119 ;;^UTILITY(U,$J,358.3,14971,1,3,0)
- +120 ;;=3^Osteopenia,Unspec Site
- +121 ;;^UTILITY(U,$J,358.3,14971,1,4,0)
- +122 ;;=4^M85.80
- +123 ;;^UTILITY(U,$J,358.3,14971,2)
- +124 ;;=^5014473
- +125 ;;^UTILITY(U,$J,358.3,14972,0)
- +126 ;;=N62.^^56^637^5
- +127 ;;^UTILITY(U,$J,358.3,14972,1,0)
- +128 ;;=^358.31IA^4^2
- +129 ;;^UTILITY(U,$J,358.3,14972,1,3,0)
- +130 ;;=3^Gynecomastia
- +131 ;;^UTILITY(U,$J,358.3,14972,1,4,0)
- +132 ;;=4^N62.
- +133 ;;^UTILITY(U,$J,358.3,14972,2)
- +134 ;;=^5015790
- +135 ;;^UTILITY(U,$J,358.3,14973,0)
- +136 ;;=E66.3^^56^637^27
- +137 ;;^UTILITY(U,$J,358.3,14973,1,0)
- +138 ;;=^358.31IA^4^2
- +139 ;;^UTILITY(U,$J,358.3,14973,1,3,0)
- +140 ;;=3^Overweight
- +141 ;;^UTILITY(U,$J,358.3,14973,1,4,0)
- +142 ;;=4^E66.3
- +143 ;;^UTILITY(U,$J,358.3,14973,2)
- +144 ;;=^5002830
- +145 ;;^UTILITY(U,$J,358.3,14974,0)
- +146 ;;=E89.1^^56^637^31
- +147 ;;^UTILITY(U,$J,358.3,14974,1,0)
- +148 ;;=^358.31IA^4^2
- +149 ;;^UTILITY(U,$J,358.3,14974,1,3,0)
- +150 ;;=3^Postprocedural Hypoinsulinemia
- +151 ;;^UTILITY(U,$J,358.3,14974,1,4,0)
- +152 ;;=4^E89.1
- +153 ;;^UTILITY(U,$J,358.3,14974,2)
- +154 ;;=^5003036
- +155 ;;^UTILITY(U,$J,358.3,14975,0)
- +156 ;;=R73.03^^56^637^33
- +157 ;;^UTILITY(U,$J,358.3,14975,1,0)
- +158 ;;=^358.31IA^4^2
- +159 ;;^UTILITY(U,$J,358.3,14975,1,3,0)
- +160 ;;=3^Pre-Diabetes
- +161 ;;^UTILITY(U,$J,358.3,14975,1,4,0)
- +162 ;;=4^R73.03
- +163 ;;^UTILITY(U,$J,358.3,14975,2)
- +164 ;;=^8295662
- +165 ;;^UTILITY(U,$J,358.3,14976,0)
- +166 ;;=E73.9^^56^637^18
- +167 ;;^UTILITY(U,$J,358.3,14976,1,0)
- +168 ;;=^358.31IA^4^2
- +169 ;;^UTILITY(U,$J,358.3,14976,1,3,0)
- +170 ;;=3^Lactose Intolerance,Unspec
- +171 ;;^UTILITY(U,$J,358.3,14976,1,4,0)
- +172 ;;=4^E73.9
- +173 ;;^UTILITY(U,$J,358.3,14976,2)
- +174 ;;=^5002914
- +175 ;;^UTILITY(U,$J,358.3,14977,0)
- +176 ;;=H40.9^^56^638^11
- +177 ;;^UTILITY(U,$J,358.3,14977,1,0)
- +178 ;;=^358.31IA^4^2
- +179 ;;^UTILITY(U,$J,358.3,14977,1,3,0)
- +180 ;;=3^Glaucoma,Unspec
- +181 ;;^UTILITY(U,$J,358.3,14977,1,4,0)
- +182 ;;=4^H40.9
- +183 ;;^UTILITY(U,$J,358.3,14977,2)
- +184 ;;=^5005931
- +185 ;;^UTILITY(U,$J,358.3,14978,0)
- +186 ;;=H26.9^^56^638^7
- +187 ;;^UTILITY(U,$J,358.3,14978,1,0)
- +188 ;;=^358.31IA^4^2
- +189 ;;^UTILITY(U,$J,358.3,14978,1,3,0)
- +190 ;;=3^Cataract,Unspec
- +191 ;;^UTILITY(U,$J,358.3,14978,1,4,0)
- +192 ;;=4^H26.9
- +193 ;;^UTILITY(U,$J,358.3,14978,2)
- +194 ;;=^5005363
- +195 ;;^UTILITY(U,$J,358.3,14979,0)
- +196 ;;=H10.9^^56^638^10
- +197 ;;^UTILITY(U,$J,358.3,14979,1,0)
- +198 ;;=^358.31IA^4^2
- +199 ;;^UTILITY(U,$J,358.3,14979,1,3,0)
- +200 ;;=3^Conjunctivitis,Unspec
- +201 ;;^UTILITY(U,$J,358.3,14979,1,4,0)
- +202 ;;=4^H10.9
- +203 ;;^UTILITY(U,$J,358.3,14979,2)
- +204 ;;=^5004716
- +205 ;;^UTILITY(U,$J,358.3,14980,0)
- +206 ;;=H11.32^^56^638^8
- +207 ;;^UTILITY(U,$J,358.3,14980,1,0)
- +208 ;;=^358.31IA^4^2
- +209 ;;^UTILITY(U,$J,358.3,14980,1,3,0)
- +210 ;;=3^Conjunctival Hemorrhage,Left Eye
- +211 ;;^UTILITY(U,$J,358.3,14980,1,4,0)
- +212 ;;=4^H11.32
- +213 ;;^UTILITY(U,$J,358.3,14980,2)
- +214 ;;=^5004783
- +215 ;;^UTILITY(U,$J,358.3,14981,0)
- +216 ;;=H11.31^^56^638^9
- +217 ;;^UTILITY(U,$J,358.3,14981,1,0)
- +218 ;;=^358.31IA^4^2
- +219 ;;^UTILITY(U,$J,358.3,14981,1,3,0)
- +220 ;;=3^Conjunctival Hemorrhage,Right Eye
- +221 ;;^UTILITY(U,$J,358.3,14981,1,4,0)
- +222 ;;=4^H11.31
- +223 ;;^UTILITY(U,$J,358.3,14981,2)
- +224 ;;=^5004782
- +225 ;;^UTILITY(U,$J,358.3,14982,0)
- +226 ;;=H01.002^^56^638^3
- +227 ;;^UTILITY(U,$J,358.3,14982,1,0)
- +228 ;;=^358.31IA^4^2
- +229 ;;^UTILITY(U,$J,358.3,14982,1,3,0)
- +230 ;;=3^Blepharitis Unspec,Right Lower Eyelid
- +231 ;;^UTILITY(U,$J,358.3,14982,1,4,0)
- +232 ;;=4^H01.002
- +233 ;;^UTILITY(U,$J,358.3,14982,2)
- +234 ;;=^5004239
- +235 ;;^UTILITY(U,$J,358.3,14983,0)
- +236 ;;=H01.004^^56^638^2
- +237 ;;^UTILITY(U,$J,358.3,14983,1,0)
- +238 ;;=^358.31IA^4^2
- +239 ;;^UTILITY(U,$J,358.3,14983,1,3,0)
- +240 ;;=3^Blepharitis Unspec,Left Upper Eyelid
- +241 ;;^UTILITY(U,$J,358.3,14983,1,4,0)
- +242 ;;=4^H01.004
- +243 ;;^UTILITY(U,$J,358.3,14983,2)
- +244 ;;=^5004241
- +245 ;;^UTILITY(U,$J,358.3,14984,0)
- +246 ;;=H01.005^^56^638^1
- +247 ;;^UTILITY(U,$J,358.3,14984,1,0)
- +248 ;;=^358.31IA^4^2
- +249 ;;^UTILITY(U,$J,358.3,14984,1,3,0)
- +250 ;;=3^Blepharitis Unspec,Left Lower Eyelid
- +251 ;;^UTILITY(U,$J,358.3,14984,1,4,0)
- +252 ;;=4^H01.005
- +253 ;;^UTILITY(U,$J,358.3,14984,2)
- +254 ;;=^5133380
- +255 ;;^UTILITY(U,$J,358.3,14985,0)
- +256 ;;=H01.001^^56^638^4
- +257 ;;^UTILITY(U,$J,358.3,14985,1,0)
- +258 ;;=^358.31IA^4^2
- +259 ;;^UTILITY(U,$J,358.3,14985,1,3,0)
- +260 ;;=3^Blepharitis Unspec,Right Upper Eyelid
- +261 ;;^UTILITY(U,$J,358.3,14985,1,4,0)
- +262 ;;=4^H01.001
- +263 ;;^UTILITY(U,$J,358.3,14985,2)
- +264 ;;=^5004238
- +265 ;;^UTILITY(U,$J,358.3,14986,0)
- +266 ;;=H57.13^^56^638^12
- +267 ;;^UTILITY(U,$J,358.3,14986,1,0)
- +268 ;;=^358.31IA^4^2
- +269 ;;^UTILITY(U,$J,358.3,14986,1,3,0)
- +270 ;;=3^Ocular Pain,Bilateral
- +271 ;;^UTILITY(U,$J,358.3,14986,1,4,0)
- +272 ;;=4^H57.13
- +273 ;;^UTILITY(U,$J,358.3,14986,2)
- +274 ;;=^5006384
- +275 ;;^UTILITY(U,$J,358.3,14987,0)
- +276 ;;=H57.12^^56^638^13
- +277 ;;^UTILITY(U,$J,358.3,14987,1,0)
- +278 ;;=^358.31IA^4^2
- +279 ;;^UTILITY(U,$J,358.3,14987,1,3,0)
- +280 ;;=3^Ocular Pain,Left Eye
- +281 ;;^UTILITY(U,$J,358.3,14987,1,4,0)
- +282 ;;=4^H57.12
- +283 ;;^UTILITY(U,$J,358.3,14987,2)
- +284 ;;=^5006383
- +285 ;;^UTILITY(U,$J,358.3,14988,0)
- +286 ;;=H57.11^^56^638^14
- +287 ;;^UTILITY(U,$J,358.3,14988,1,0)
- +288 ;;=^358.31IA^4^2
- +289 ;;^UTILITY(U,$J,358.3,14988,1,3,0)
- +290 ;;=3^Ocular Pain,Right Eye
- +291 ;;^UTILITY(U,$J,358.3,14988,1,4,0)
- +292 ;;=4^H57.11
- +293 ;;^UTILITY(U,$J,358.3,14988,2)
- +294 ;;=^5006382
- +295 ;;^UTILITY(U,$J,358.3,14989,0)
- +296 ;;=H01.00B^^56^638^5
- +297 ;;^UTILITY(U,$J,358.3,14989,1,0)
- +298 ;;=^358.31IA^4^2
- +299 ;;^UTILITY(U,$J,358.3,14989,1,3,0)
- +300 ;;=3^Blepharitis,Unspec,Left Upper & Lower Eyelids
- +301 ;;^UTILITY(U,$J,358.3,14989,1,4,0)
- +302 ;;=4^H01.00B
- +303 ;;^UTILITY(U,$J,358.3,14989,2)
- +304 ;;=^5157319
- +305 ;;^UTILITY(U,$J,358.3,14990,0)
- +306 ;;=H01.00A^^56^638^6
- +307 ;;^UTILITY(U,$J,358.3,14990,1,0)
- +308 ;;=^358.31IA^4^2
- +309 ;;^UTILITY(U,$J,358.3,14990,1,3,0)
- +310 ;;=3^Blepharitis,Unspec,Right Upper & Lower Eyelids
- +311 ;;^UTILITY(U,$J,358.3,14990,1,4,0)
- +312 ;;=4^H01.00A
- +313 ;;^UTILITY(U,$J,358.3,14990,2)
- +314 ;;=^5157318
- +315 ;;^UTILITY(U,$J,358.3,14991,0)
- +316 ;;=S05.02XA^^56^639^3
- +317 ;;^UTILITY(U,$J,358.3,14991,1,0)
- +318 ;;=^358.31IA^4^2
- +319 ;;^UTILITY(U,$J,358.3,14991,1,3,0)
- +320 ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Left Eye,Init
- +321 ;;^UTILITY(U,$J,358.3,14991,1,4,0)
- +322 ;;=4^S05.02XA
- +323 ;;^UTILITY(U,$J,358.3,14991,2)
- +324 ;;=^5020582
- +325 ;;^UTILITY(U,$J,358.3,14992,0)
- +326 ;;=S05.01XA^^56^639^4
- +327 ;;^UTILITY(U,$J,358.3,14992,1,0)
- +328 ;;=^358.31IA^4^2
- +329 ;;^UTILITY(U,$J,358.3,14992,1,3,0)
- +330 ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Right Eye,Init
- +331 ;;^UTILITY(U,$J,358.3,14992,1,4,0)
- +332 ;;=4^S05.01XA
- +333 ;;^UTILITY(U,$J,358.3,14992,2)
- +334 ;;=^5020579
- +335 ;;^UTILITY(U,$J,358.3,14993,0)
- +336 ;;=T15.02XA^^56^639^1
- +337 ;;^UTILITY(U,$J,358.3,14993,1,0)
- +338 ;;=^358.31IA^4^2
- +339 ;;^UTILITY(U,$J,358.3,14993,1,3,0)
- +340 ;;=3^Foreign Body in Cornea,Left Eye,Init Encntr
- +341 ;;^UTILITY(U,$J,358.3,14993,1,4,0)
- +342 ;;=4^T15.02XA
- +343 ;;^UTILITY(U,$J,358.3,14993,2)
- +344 ;;=^5046387
- +345 ;;^UTILITY(U,$J,358.3,14994,0)
- +346 ;;=T15.01XA^^56^639^2
- +347 ;;^UTILITY(U,$J,358.3,14994,1,0)
- +348 ;;=^358.31IA^4^2
- +349 ;;^UTILITY(U,$J,358.3,14994,1,3,0)
- +350 ;;=3^Foreign Body in Cornea,Right Eye,Init Encntr
- +351 ;;^UTILITY(U,$J,358.3,14994,1,4,0)
- +352 ;;=4^T15.01XA
- +353 ;;^UTILITY(U,$J,358.3,14994,2)
- +354 ;;=^5046384
- +355 ;;^UTILITY(U,$J,358.3,14995,0)
- +356 ;;=S00.252A^^56^639^5
- +357 ;;^UTILITY(U,$J,358.3,14995,1,0)
- +358 ;;=^358.31IA^4^2
- +359 ;;^UTILITY(U,$J,358.3,14995,1,3,0)
- +360 ;;=3^Superficial FB of Left Eyelid/Periocular Area,Init Encntr
- +361 ;;^UTILITY(U,$J,358.3,14995,1,4,0)
- +362 ;;=4^S00.252A
- +363 ;;^UTILITY(U,$J,358.3,14995,2)
- +364 ;;=^5019820
- +365 ;;^UTILITY(U,$J,358.3,14996,0)
- +366 ;;=S00.251A^^56^639^6
- +367 ;;^UTILITY(U,$J,358.3,14996,1,0)
- +368 ;;=^358.31IA^4^2
- +369 ;;^UTILITY(U,$J,358.3,14996,1,3,0)
- +370 ;;=3^Superficial FB of Right Eyelid/Periocular Area,Init Encntr
- +371 ;;^UTILITY(U,$J,358.3,14996,1,4,0)
- +372 ;;=4^S00.251A
- +373 ;;^UTILITY(U,$J,358.3,14996,2)
- +374 ;;=^5019817
- +375 ;;^UTILITY(U,$J,358.3,14997,0)
- +376 ;;=B96.81^^56^640^64
- +377 ;;^UTILITY(U,$J,358.3,14997,1,0)
- +378 ;;=^358.31IA^4^2
- +379 ;;^UTILITY(U,$J,358.3,14997,1,3,0)
- +380 ;;=3^H. Pylori as the Cause of Diseases Classified Elsewhere
- +381 ;;^UTILITY(U,$J,358.3,14997,1,4,0)
- +382 ;;=4^B96.81
- +383 ;;^UTILITY(U,$J,358.3,14997,2)
- +384 ;;=^5000857
- +385 ;;^UTILITY(U,$J,358.3,14998,0)
- +386 ;;=B15.9^^56^640^66
- +387 ;;^UTILITY(U,$J,358.3,14998,1,0)
- +388 ;;=^358.31IA^4^2
- +389 ;;^UTILITY(U,$J,358.3,14998,1,3,0)
- +390 ;;=3^Hepatitis A,Acute w/o Hepatic Coma
- +391 ;;^UTILITY(U,$J,358.3,14998,1,4,0)
- +392 ;;=4^B15.9
- +393 ;;^UTILITY(U,$J,358.3,14998,2)
- +394 ;;=^5000536
- +395 ;;^UTILITY(U,$J,358.3,14999,0)
- +396 ;;=B16.9^^56^640^67
- +397 ;;^UTILITY(U,$J,358.3,14999,1,0)
- +398 ;;=^358.31IA^4^2
- +399 ;;^UTILITY(U,$J,358.3,14999,1,3,0)
- +400 ;;=3^Hepatitis B,Acute w/o Delta-Agent & w/o Hepatic Coma
- +401 ;;^UTILITY(U,$J,358.3,14999,1,4,0)
- +402 ;;=4^B16.9
- +403 ;;^UTILITY(U,$J,358.3,14999,2)
- +404 ;;=^5000540
- +405 ;;^UTILITY(U,$J,358.3,15000,0)
- +406 ;;=B19.10^^56^640^69
- +407 ;;^UTILITY(U,$J,358.3,15000,1,0)
- +408 ;;=^358.31IA^4^2
- +409 ;;^UTILITY(U,$J,358.3,15000,1,3,0)
- +410 ;;=3^Hepatitis B,Viral w/o Hepatic Coma,Unspec
- +411 ;;^UTILITY(U,$J,358.3,15000,1,4,0)
- +412 ;;=4^B19.10
- +413 ;;^UTILITY(U,$J,358.3,15000,2)
- +414 ;;=^5000552
- +415 ;;^UTILITY(U,$J,358.3,15001,0)
- +416 ;;=B18.1^^56^640^68
- +417 ;;^UTILITY(U,$J,358.3,15001,1,0)
- +418 ;;=^358.31IA^4^2
- +419 ;;^UTILITY(U,$J,358.3,15001,1,3,0)
- +420 ;;=3^Hepatitis B,Chronic Viral w/o Delta-Agent
- +421 ;;^UTILITY(U,$J,358.3,15001,1,4,0)
- +422 ;;=4^B18.1
- +423 ;;^UTILITY(U,$J,358.3,15001,2)
- +424 ;;=^5000547
- +425 ;;^UTILITY(U,$J,358.3,15002,0)
- +426 ;;=B17.10^^56^640^70
- +427 ;;^UTILITY(U,$J,358.3,15002,1,0)
- +428 ;;=^358.31IA^4^2
- +429 ;;^UTILITY(U,$J,358.3,15002,1,3,0)
- +430 ;;=3^Hepatitis C,Acute w/o Hepatic Coma
- +431 ;;^UTILITY(U,$J,358.3,15002,1,4,0)
- +432 ;;=4^B17.10
- +433 ;;^UTILITY(U,$J,358.3,15002,2)
- +434 ;;=^5000542
- +435 ;;^UTILITY(U,$J,358.3,15003,0)
- +436 ;;=B18.2^^56^640^71
- +437 ;;^UTILITY(U,$J,358.3,15003,1,0)
- +438 ;;=^358.31IA^4^2
- +439 ;;^UTILITY(U,$J,358.3,15003,1,3,0)
- +440 ;;=3^Hepatitis C,Chronic Viral
- +441 ;;^UTILITY(U,$J,358.3,15003,1,4,0)
- +442 ;;=4^B18.2
- +443 ;;^UTILITY(U,$J,358.3,15003,2)
- +444 ;;=^5000548
- +445 ;;^UTILITY(U,$J,358.3,15004,0)
- +446 ;;=B18.8^^56^640^73
- +447 ;;^UTILITY(U,$J,358.3,15004,1,0)
- +448 ;;=^358.31IA^4^2
- +449 ;;^UTILITY(U,$J,358.3,15004,1,3,0)
- +450 ;;=3^Hepatitis,Oth Chronic Viral
- +451 ;;^UTILITY(U,$J,358.3,15004,1,4,0)
- +452 ;;=4^B18.8
- +453 ;;^UTILITY(U,$J,358.3,15004,2)
- +454 ;;=^5000549
- +455 ;;^UTILITY(U,$J,358.3,15005,0)
- +456 ;;=B17.8^^56^640^74
- +457 ;;^UTILITY(U,$J,358.3,15005,1,0)
- +458 ;;=^358.31IA^4^2
- +459 ;;^UTILITY(U,$J,358.3,15005,1,3,0)
- +460 ;;=3^Hepatitis,Oth Spec Acute Viral
- +461 ;;^UTILITY(U,$J,358.3,15005,1,4,0)
- +462 ;;=4^B17.8
- +463 ;;^UTILITY(U,$J,358.3,15005,2)
- +464 ;;=^5000544
- +465 ;;^UTILITY(U,$J,358.3,15006,0)
- +466 ;;=B18.9^^56^640^72
- +467 ;;^UTILITY(U,$J,358.3,15006,1,0)
- +468 ;;=^358.31IA^4^2
- +469 ;;^UTILITY(U,$J,358.3,15006,1,3,0)
- +470 ;;=3^Hepatitis,Chronic Viral Unspec
- +471 ;;^UTILITY(U,$J,358.3,15006,1,4,0)
- +472 ;;=4^B18.9
- +473 ;;^UTILITY(U,$J,358.3,15006,2)
- +474 ;;=^5000550
- +475 ;;^UTILITY(U,$J,358.3,15007,0)
- +476 ;;=B37.81^^56^640^18
- +477 ;;^UTILITY(U,$J,358.3,15007,1,0)
- +478 ;;=^358.31IA^4^2
- +479 ;;^UTILITY(U,$J,358.3,15007,1,3,0)
- +480 ;;=3^Candidal Esophagitis
- +481 ;;^UTILITY(U,$J,358.3,15007,1,4,0)
- +482 ;;=4^B37.81
- +483 ;;^UTILITY(U,$J,358.3,15007,2)
- +484 ;;=^5000620
- +485 ;;^UTILITY(U,$J,358.3,15008,0)
- +486 ;;=D12.0^^56^640^12
- +487 ;;^UTILITY(U,$J,358.3,15008,1,0)
- +488 ;;=^358.31IA^4^2
- +489 ;;^UTILITY(U,$J,358.3,15008,1,3,0)
- +490 ;;=3^Benign Neop of Cecum
- +491 ;;^UTILITY(U,$J,358.3,15008,1,4,0)
- +492 ;;=4^D12.0
- +493 ;;^UTILITY(U,$J,358.3,15008,2)
- +494 ;;=^5001963
- +495 ;;^UTILITY(U,$J,358.3,15009,0)
- +496 ;;=D12.6^^56^640^13
- +497 ;;^UTILITY(U,$J,358.3,15009,1,0)
- +498 ;;=^358.31IA^4^2
- +499 ;;^UTILITY(U,$J,358.3,15009,1,3,0)
- +500 ;;=3^Benign Neop of Colon,Unspec
- +501 ;;^UTILITY(U,$J,358.3,15009,1,4,0)
- +502 ;;=4^D12.6
- +503 ;;^UTILITY(U,$J,358.3,15009,2)
- +504 ;;=^5001969
- +505 ;;^UTILITY(U,$J,358.3,15010,0)
- +506 ;;=D12.1^^56^640^10
- +507 ;;^UTILITY(U,$J,358.3,15010,1,0)
- +508 ;;=^358.31IA^4^2
- +509 ;;^UTILITY(U,$J,358.3,15010,1,3,0)
- +510 ;;=3^Benign Neop of Appendix
- +511 ;;^UTILITY(U,$J,358.3,15010,1,4,0)
- +512 ;;=4^D12.1
- +513 ;;^UTILITY(U,$J,358.3,15010,2)
- +514 ;;=^5001964
- +515 ;;^UTILITY(U,$J,358.3,15011,0)
- +516 ;;=K63.5^^56^640^84
- +517 ;;^UTILITY(U,$J,358.3,15011,1,0)
- +518 ;;=^358.31IA^4^2
- +519 ;;^UTILITY(U,$J,358.3,15011,1,3,0)
- +520 ;;=3^Polyp of Colon
- +521 ;;^UTILITY(U,$J,358.3,15011,1,4,0)
- +522 ;;=4^K63.5
- +523 ;;^UTILITY(U,$J,358.3,15011,2)
- +524 ;;=^5008765
- +525 ;;^UTILITY(U,$J,358.3,15012,0)
- +526 ;;=D12.3^^56^640^17
- +527 ;;^UTILITY(U,$J,358.3,15012,1,0)
- +528 ;;=^358.31IA^4^2
- +529 ;;^UTILITY(U,$J,358.3,15012,1,3,0)
- +530 ;;=3^Benign Neop of Transverse Colon
- +531 ;;^UTILITY(U,$J,358.3,15012,1,4,0)
- +532 ;;=4^D12.3
- +533 ;;^UTILITY(U,$J,358.3,15012,2)
- +534 ;;=^5001966
- +535 ;;^UTILITY(U,$J,358.3,15013,0)
- +536 ;;=D12.2^^56^640^11
- +537 ;;^UTILITY(U,$J,358.3,15013,1,0)
- +538 ;;=^358.31IA^4^2
- +539 ;;^UTILITY(U,$J,358.3,15013,1,3,0)
- +540 ;;=3^Benign Neop of Ascending Colon
- +541 ;;^UTILITY(U,$J,358.3,15013,1,4,0)
- +542 ;;=4^D12.2
- +543 ;;^UTILITY(U,$J,358.3,15013,2)
- +544 ;;=^5001965
- +545 ;;^UTILITY(U,$J,358.3,15014,0)
- +546 ;;=D12.5^^56^640^16
- +547 ;;^UTILITY(U,$J,358.3,15014,1,0)
- +548 ;;=^358.31IA^4^2
- +549 ;;^UTILITY(U,$J,358.3,15014,1,3,0)
- +550 ;;=3^Benign Neop of Sigmoid Colon
- +551 ;;^UTILITY(U,$J,358.3,15014,1,4,0)
- +552 ;;=4^D12.5
- +553 ;;^UTILITY(U,$J,358.3,15014,2)
- +554 ;;=^5001968
- +555 ;;^UTILITY(U,$J,358.3,15015,0)
- +556 ;;=D12.4^^56^640^14
- +557 ;;^UTILITY(U,$J,358.3,15015,1,0)
- +558 ;;=^358.31IA^4^2
- +559 ;;^UTILITY(U,$J,358.3,15015,1,3,0)
- +560 ;;=3^Benign Neop of Descending Colon
- +561 ;;^UTILITY(U,$J,358.3,15015,1,4,0)
- +562 ;;=4^D12.4
- +563 ;;^UTILITY(U,$J,358.3,15015,2)
- +564 ;;=^5001967
- +565 ;;^UTILITY(U,$J,358.3,15016,0)
- +566 ;;=D73.2^^56^640^19
- +567 ;;^UTILITY(U,$J,358.3,15016,1,0)
- +568 ;;=^358.31IA^4^2
- +569 ;;^UTILITY(U,$J,358.3,15016,1,3,0)
- +570 ;;=3^Congestive Splenomegaly,Chronic
- +571 ;;^UTILITY(U,$J,358.3,15016,1,4,0)
- +572 ;;=4^D73.2
- +573 ;;^UTILITY(U,$J,358.3,15016,2)
- +574 ;;=^268000
- +575 ;;^UTILITY(U,$J,358.3,15017,0)
- +576 ;;=I85.00^^56^640^53
- +577 ;;^UTILITY(U,$J,358.3,15017,1,0)
- +578 ;;=^358.31IA^4^2
- +579 ;;^UTILITY(U,$J,358.3,15017,1,3,0)
- +580 ;;=3^Esophageal Varices w/o Bleeding
- +581 ;;^UTILITY(U,$J,358.3,15017,1,4,0)
- +582 ;;=4^I85.00
- +583 ;;^UTILITY(U,$J,358.3,15017,2)
- +584 ;;=^5008023
- +585 ;;^UTILITY(U,$J,358.3,15018,0)
- +586 ;;=K21.9^^56^640^63
- +587 ;;^UTILITY(U,$J,358.3,15018,1,0)
- +588 ;;=^358.31IA^4^2
- +589 ;;^UTILITY(U,$J,358.3,15018,1,3,0)
- +590 ;;=3^Gastroesophageal Reflux Disease w/o Esophagitis
- +591 ;;^UTILITY(U,$J,358.3,15018,1,4,0)
- +592 ;;=4^K21.9
- +593 ;;^UTILITY(U,$J,358.3,15018,2)
- +594 ;;=^5008505
- +595 ;;^UTILITY(U,$J,358.3,15019,0)
- +596 ;;=K25.7^^56^640^58
- +597 ;;^UTILITY(U,$J,358.3,15019,1,0)
- +598 ;;=^358.31IA^4^2
- +599 ;;^UTILITY(U,$J,358.3,15019,1,3,0)
- +600 ;;=3^Gastric Ulcer w/o Hemorrhage/Perforation,Chronic
- +601 ;;^UTILITY(U,$J,358.3,15019,1,4,0)
- +602 ;;=4^K25.7
- +603 ;;^UTILITY(U,$J,358.3,15019,2)
- +604 ;;=^5008521
- +605 ;;^UTILITY(U,$J,358.3,15020,0)
- +606 ;;=K26.9^^56^640^49
- +607 ;;^UTILITY(U,$J,358.3,15020,1,0)
- +608 ;;=^358.31IA^4^2
- +609 ;;^UTILITY(U,$J,358.3,15020,1,3,0)
- +610 ;;=3^Duadenal Ulcer w/o Hemorrhage/Perforation,Unspec
- +611 ;;^UTILITY(U,$J,358.3,15020,1,4,0)
- +612 ;;=4^K26.9
- +613 ;;^UTILITY(U,$J,358.3,15020,2)
- +614 ;;=^5008527
- +615 ;;^UTILITY(U,$J,358.3,15021,0)
- +616 ;;=K27.9^^56^640^83
- +617 ;;^UTILITY(U,$J,358.3,15021,1,0)
- +618 ;;=^358.31IA^4^2
- +619 ;;^UTILITY(U,$J,358.3,15021,1,3,0)
- +620 ;;=3^Peptic Ulcer w/o Hemorrhage/Perforation,Unspec
- +621 ;;^UTILITY(U,$J,358.3,15021,1,4,0)
- +622 ;;=4^K27.9
- +623 ;;^UTILITY(U,$J,358.3,15021,2)
- +624 ;;=^5008536
- +625 ;;^UTILITY(U,$J,358.3,15022,0)
- +626 ;;=K29.70^^56^640^59
- +627 ;;^UTILITY(U,$J,358.3,15022,1,0)
- +628 ;;=^358.31IA^4^2
- +629 ;;^UTILITY(U,$J,358.3,15022,1,3,0)
- +630 ;;=3^Gastritis w/o Bleeding,Unspec
- +631 ;;^UTILITY(U,$J,358.3,15022,1,4,0)
- +632 ;;=4^K29.70
- +633 ;;^UTILITY(U,$J,358.3,15022,2)
- +634 ;;=^5008552
- +635 ;;^UTILITY(U,$J,358.3,15023,0)
- +636 ;;=K29.90^^56^640^60
- +637 ;;^UTILITY(U,$J,358.3,15023,1,0)
- +638 ;;=^358.31IA^4^2
- +639 ;;^UTILITY(U,$J,358.3,15023,1,3,0)
- +640 ;;=3^Gastroduodenitis w/o Bleeding,Unspec
- +641 ;;^UTILITY(U,$J,358.3,15023,1,4,0)
- +642 ;;=4^K29.90
- +643 ;;^UTILITY(U,$J,358.3,15023,2)
- +644 ;;=^5008556
- +645 ;;^UTILITY(U,$J,358.3,15024,0)
- +646 ;;=K30.^^56^640^50
- +647 ;;^UTILITY(U,$J,358.3,15024,1,0)
- +648 ;;=^358.31IA^4^2
- +649 ;;^UTILITY(U,$J,358.3,15024,1,3,0)
- +650 ;;=3^Dyspepsia,Functional
- +651 ;;^UTILITY(U,$J,358.3,15024,1,4,0)
- +652 ;;=4^K30.
- +653 ;;^UTILITY(U,$J,358.3,15024,2)
- +654 ;;=^5008558
- +655 ;;^UTILITY(U,$J,358.3,15025,0)
- +656 ;;=K31.89^^56^640^39
- +657 ;;^UTILITY(U,$J,358.3,15025,1,0)
- +658 ;;=^358.31IA^4^2
- +659 ;;^UTILITY(U,$J,358.3,15025,1,3,0)
- +660 ;;=3^Diseases of Stomach & Duodenum,Other
- +661 ;;^UTILITY(U,$J,358.3,15025,1,4,0)
- +662 ;;=4^K31.89
- +663 ;;^UTILITY(U,$J,358.3,15025,2)
- +664 ;;=^5008569
- +665 ;;^UTILITY(U,$J,358.3,15026,0)
- +666 ;;=K31.9^^56^640^38
- +667 ;;^UTILITY(U,$J,358.3,15026,1,0)
- +668 ;;=^358.31IA^4^2
- +669 ;;^UTILITY(U,$J,358.3,15026,1,3,0)
- +670 ;;=3^Disease of Stomach & Duodenum,Unspec
- +671 ;;^UTILITY(U,$J,358.3,15026,1,4,0)
- +672 ;;=4^K31.9
- +673 ;;^UTILITY(U,$J,358.3,15026,2)
- +674 ;;=^5008570
- +675 ;;^UTILITY(U,$J,358.3,15027,0)
- +676 ;;=K40.90^^56^640^76
- +677 ;;^UTILITY(U,$J,358.3,15027,1,0)
- +678 ;;=^358.31IA^4^2
- +679 ;;^UTILITY(U,$J,358.3,15027,1,3,0)
- +680 ;;=3^Inguinal Hernia,Unilat w/o Obst or Gangrene
- +681 ;;^UTILITY(U,$J,358.3,15027,1,4,0)
- +682 ;;=4^K40.90
- +683 ;;^UTILITY(U,$J,358.3,15027,2)
- +684 ;;=^5008591
- +685 ;;^UTILITY(U,$J,358.3,15028,0)
- +686 ;;=K40.20^^56^640^75
- +687 ;;^UTILITY(U,$J,358.3,15028,1,0)
- +688 ;;=^358.31IA^4^2