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

IBDEI066.m

Go to the documentation of this file. 
  1. IBDEI066 ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  Q:'DIFQR(358.3)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,14959,1,4,0)
  1.  ;;=4^E66.8
  1.  ;;^UTILITY(U,$J,358.3,14959,2)
  1.  ;;=^5002831
  1.  ;;^UTILITY(U,$J,358.3,14960,0)
  1.  ;;=E66.9^^56^637^25
  1.  ;;^UTILITY(U,$J,358.3,14960,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14960,1,3,0)
  1.  ;;=3^Obesity,Unspec
  1.  ;;^UTILITY(U,$J,358.3,14960,1,4,0)
  1.  ;;=4^E66.9
  1.  ;;^UTILITY(U,$J,358.3,14960,2)
  1.  ;;=^5002832
  1.  ;;^UTILITY(U,$J,358.3,14961,0)
  1.  ;;=E74.39^^56^637^16
  1.  ;;^UTILITY(U,$J,358.3,14961,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14961,1,3,0)
  1.  ;;=3^Intestinal Carbohydrate Absorption Disorder NEC
  1.  ;;^UTILITY(U,$J,358.3,14961,1,4,0)
  1.  ;;=4^E74.39
  1.  ;;^UTILITY(U,$J,358.3,14961,2)
  1.  ;;=^5002928
  1.  ;;^UTILITY(U,$J,358.3,14962,0)
  1.  ;;=E83.30^^56^637^28
  1.  ;;^UTILITY(U,$J,358.3,14962,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14962,1,3,0)
  1.  ;;=3^Phosphorus Metabolism Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,14962,1,4,0)
  1.  ;;=4^E83.30
  1.  ;;^UTILITY(U,$J,358.3,14962,2)
  1.  ;;=^5002997
  1.  ;;^UTILITY(U,$J,358.3,14963,0)
  1.  ;;=E83.51^^56^637^9
  1.  ;;^UTILITY(U,$J,358.3,14963,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14963,1,3,0)
  1.  ;;=3^Hypocalcemia
  1.  ;;^UTILITY(U,$J,358.3,14963,1,4,0)
  1.  ;;=4^E83.51
  1.  ;;^UTILITY(U,$J,358.3,14963,2)
  1.  ;;=^60542
  1.  ;;^UTILITY(U,$J,358.3,14964,0)
  1.  ;;=E83.52^^56^637^7
  1.  ;;^UTILITY(U,$J,358.3,14964,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14964,1,3,0)
  1.  ;;=3^Hypercalcemia
  1.  ;;^UTILITY(U,$J,358.3,14964,1,4,0)
  1.  ;;=4^E83.52
  1.  ;;^UTILITY(U,$J,358.3,14964,2)
  1.  ;;=^59932
  1.  ;;^UTILITY(U,$J,358.3,14965,0)
  1.  ;;=E87.5^^56^637^8
  1.  ;;^UTILITY(U,$J,358.3,14965,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14965,1,3,0)
  1.  ;;=3^Hyperkalemia
  1.  ;;^UTILITY(U,$J,358.3,14965,1,4,0)
  1.  ;;=4^E87.5
  1.  ;;^UTILITY(U,$J,358.3,14965,2)
  1.  ;;=^60041
  1.  ;;^UTILITY(U,$J,358.3,14966,0)
  1.  ;;=E89.2^^56^637^30
  1.  ;;^UTILITY(U,$J,358.3,14966,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14966,1,3,0)
  1.  ;;=3^PostProcedural Hypoparathyroidism
  1.  ;;^UTILITY(U,$J,358.3,14966,1,4,0)
  1.  ;;=4^E89.2
  1.  ;;^UTILITY(U,$J,358.3,14966,2)
  1.  ;;=^5003037
  1.  ;;^UTILITY(U,$J,358.3,14967,0)
  1.  ;;=E89.6^^56^637^29
  1.  ;;^UTILITY(U,$J,358.3,14967,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14967,1,3,0)
  1.  ;;=3^PostProcedural Adrenocortical Hypofunction
  1.  ;;^UTILITY(U,$J,358.3,14967,1,4,0)
  1.  ;;=4^E89.6
  1.  ;;^UTILITY(U,$J,358.3,14967,2)
  1.  ;;=^5003042
  1.  ;;^UTILITY(U,$J,358.3,14968,0)
  1.  ;;=L68.0^^56^637^6
  1.  ;;^UTILITY(U,$J,358.3,14968,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14968,1,3,0)
  1.  ;;=3^Hirsutism
  1.  ;;^UTILITY(U,$J,358.3,14968,1,4,0)
  1.  ;;=4^L68.0
  1.  ;;^UTILITY(U,$J,358.3,14968,2)
  1.  ;;=^5009262
  1.  ;;^UTILITY(U,$J,358.3,14969,0)
  1.  ;;=M80.00XA^^56^637^2
  1.  ;;^UTILITY(U,$J,358.3,14969,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14969,1,3,0)
  1.  ;;=3^Age-Related Osteoporosis w/ Fx,Unspec Site,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,14969,1,4,0)
  1.  ;;=4^M80.00XA
  1.  ;;^UTILITY(U,$J,358.3,14969,2)
  1.  ;;=^5013363
  1.  ;;^UTILITY(U,$J,358.3,14970,0)
  1.  ;;=M81.0^^56^637^3
  1.  ;;^UTILITY(U,$J,358.3,14970,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14970,1,3,0)
  1.  ;;=3^Age-Related Osteoporosis w/o Fx
  1.  ;;^UTILITY(U,$J,358.3,14970,1,4,0)
  1.  ;;=4^M81.0
  1.  ;;^UTILITY(U,$J,358.3,14970,2)
  1.  ;;=^5013555
  1.  ;;^UTILITY(U,$J,358.3,14971,0)
  1.  ;;=M85.80^^56^637^26
  1.  ;;^UTILITY(U,$J,358.3,14971,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14971,1,3,0)
  1.  ;;=3^Osteopenia,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,14971,1,4,0)
  1.  ;;=4^M85.80
  1.  ;;^UTILITY(U,$J,358.3,14971,2)
  1.  ;;=^5014473
  1.  ;;^UTILITY(U,$J,358.3,14972,0)
  1.  ;;=N62.^^56^637^5
  1.  ;;^UTILITY(U,$J,358.3,14972,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14972,1,3,0)
  1.  ;;=3^Gynecomastia
  1.  ;;^UTILITY(U,$J,358.3,14972,1,4,0)
  1.  ;;=4^N62.
  1.  ;;^UTILITY(U,$J,358.3,14972,2)
  1.  ;;=^5015790
  1.  ;;^UTILITY(U,$J,358.3,14973,0)
  1.  ;;=E66.3^^56^637^27
  1.  ;;^UTILITY(U,$J,358.3,14973,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14973,1,3,0)
  1.  ;;=3^Overweight
  1.  ;;^UTILITY(U,$J,358.3,14973,1,4,0)
  1.  ;;=4^E66.3
  1.  ;;^UTILITY(U,$J,358.3,14973,2)
  1.  ;;=^5002830
  1.  ;;^UTILITY(U,$J,358.3,14974,0)
  1.  ;;=E89.1^^56^637^31
  1.  ;;^UTILITY(U,$J,358.3,14974,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14974,1,3,0)
  1.  ;;=3^Postprocedural Hypoinsulinemia
  1.  ;;^UTILITY(U,$J,358.3,14974,1,4,0)
  1.  ;;=4^E89.1
  1.  ;;^UTILITY(U,$J,358.3,14974,2)
  1.  ;;=^5003036
  1.  ;;^UTILITY(U,$J,358.3,14975,0)
  1.  ;;=R73.03^^56^637^33
  1.  ;;^UTILITY(U,$J,358.3,14975,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14975,1,3,0)
  1.  ;;=3^Pre-Diabetes
  1.  ;;^UTILITY(U,$J,358.3,14975,1,4,0)
  1.  ;;=4^R73.03
  1.  ;;^UTILITY(U,$J,358.3,14975,2)
  1.  ;;=^8295662
  1.  ;;^UTILITY(U,$J,358.3,14976,0)
  1.  ;;=E73.9^^56^637^18
  1.  ;;^UTILITY(U,$J,358.3,14976,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14976,1,3,0)
  1.  ;;=3^Lactose Intolerance,Unspec
  1.  ;;^UTILITY(U,$J,358.3,14976,1,4,0)
  1.  ;;=4^E73.9
  1.  ;;^UTILITY(U,$J,358.3,14976,2)
  1.  ;;=^5002914
  1.  ;;^UTILITY(U,$J,358.3,14977,0)
  1.  ;;=H40.9^^56^638^11
  1.  ;;^UTILITY(U,$J,358.3,14977,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14977,1,3,0)
  1.  ;;=3^Glaucoma,Unspec
  1.  ;;^UTILITY(U,$J,358.3,14977,1,4,0)
  1.  ;;=4^H40.9
  1.  ;;^UTILITY(U,$J,358.3,14977,2)
  1.  ;;=^5005931
  1.  ;;^UTILITY(U,$J,358.3,14978,0)
  1.  ;;=H26.9^^56^638^7
  1.  ;;^UTILITY(U,$J,358.3,14978,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14978,1,3,0)
  1.  ;;=3^Cataract,Unspec
  1.  ;;^UTILITY(U,$J,358.3,14978,1,4,0)
  1.  ;;=4^H26.9
  1.  ;;^UTILITY(U,$J,358.3,14978,2)
  1.  ;;=^5005363
  1.  ;;^UTILITY(U,$J,358.3,14979,0)
  1.  ;;=H10.9^^56^638^10
  1.  ;;^UTILITY(U,$J,358.3,14979,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14979,1,3,0)
  1.  ;;=3^Conjunctivitis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,14979,1,4,0)
  1.  ;;=4^H10.9
  1.  ;;^UTILITY(U,$J,358.3,14979,2)
  1.  ;;=^5004716
  1.  ;;^UTILITY(U,$J,358.3,14980,0)
  1.  ;;=H11.32^^56^638^8
  1.  ;;^UTILITY(U,$J,358.3,14980,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14980,1,3,0)
  1.  ;;=3^Conjunctival Hemorrhage,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,14980,1,4,0)
  1.  ;;=4^H11.32
  1.  ;;^UTILITY(U,$J,358.3,14980,2)
  1.  ;;=^5004783
  1.  ;;^UTILITY(U,$J,358.3,14981,0)
  1.  ;;=H11.31^^56^638^9
  1.  ;;^UTILITY(U,$J,358.3,14981,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14981,1,3,0)
  1.  ;;=3^Conjunctival Hemorrhage,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,14981,1,4,0)
  1.  ;;=4^H11.31
  1.  ;;^UTILITY(U,$J,358.3,14981,2)
  1.  ;;=^5004782
  1.  ;;^UTILITY(U,$J,358.3,14982,0)
  1.  ;;=H01.002^^56^638^3
  1.  ;;^UTILITY(U,$J,358.3,14982,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14982,1,3,0)
  1.  ;;=3^Blepharitis Unspec,Right Lower Eyelid
  1.  ;;^UTILITY(U,$J,358.3,14982,1,4,0)
  1.  ;;=4^H01.002
  1.  ;;^UTILITY(U,$J,358.3,14982,2)
  1.  ;;=^5004239
  1.  ;;^UTILITY(U,$J,358.3,14983,0)
  1.  ;;=H01.004^^56^638^2
  1.  ;;^UTILITY(U,$J,358.3,14983,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14983,1,3,0)
  1.  ;;=3^Blepharitis Unspec,Left Upper Eyelid
  1.  ;;^UTILITY(U,$J,358.3,14983,1,4,0)
  1.  ;;=4^H01.004
  1.  ;;^UTILITY(U,$J,358.3,14983,2)
  1.  ;;=^5004241
  1.  ;;^UTILITY(U,$J,358.3,14984,0)
  1.  ;;=H01.005^^56^638^1
  1.  ;;^UTILITY(U,$J,358.3,14984,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14984,1,3,0)
  1.  ;;=3^Blepharitis Unspec,Left Lower Eyelid
  1.  ;;^UTILITY(U,$J,358.3,14984,1,4,0)
  1.  ;;=4^H01.005
  1.  ;;^UTILITY(U,$J,358.3,14984,2)
  1.  ;;=^5133380
  1.  ;;^UTILITY(U,$J,358.3,14985,0)
  1.  ;;=H01.001^^56^638^4
  1.  ;;^UTILITY(U,$J,358.3,14985,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14985,1,3,0)
  1.  ;;=3^Blepharitis Unspec,Right Upper Eyelid
  1.  ;;^UTILITY(U,$J,358.3,14985,1,4,0)
  1.  ;;=4^H01.001
  1.  ;;^UTILITY(U,$J,358.3,14985,2)
  1.  ;;=^5004238
  1.  ;;^UTILITY(U,$J,358.3,14986,0)
  1.  ;;=H57.13^^56^638^12
  1.  ;;^UTILITY(U,$J,358.3,14986,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14986,1,3,0)
  1.  ;;=3^Ocular Pain,Bilateral
  1.  ;;^UTILITY(U,$J,358.3,14986,1,4,0)
  1.  ;;=4^H57.13
  1.  ;;^UTILITY(U,$J,358.3,14986,2)
  1.  ;;=^5006384
  1.  ;;^UTILITY(U,$J,358.3,14987,0)
  1.  ;;=H57.12^^56^638^13
  1.  ;;^UTILITY(U,$J,358.3,14987,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14987,1,3,0)
  1.  ;;=3^Ocular Pain,Left Eye
  1.  ;;^UTILITY(U,$J,358.3,14987,1,4,0)
  1.  ;;=4^H57.12
  1.  ;;^UTILITY(U,$J,358.3,14987,2)
  1.  ;;=^5006383
  1.  ;;^UTILITY(U,$J,358.3,14988,0)
  1.  ;;=H57.11^^56^638^14
  1.  ;;^UTILITY(U,$J,358.3,14988,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14988,1,3,0)
  1.  ;;=3^Ocular Pain,Right Eye
  1.  ;;^UTILITY(U,$J,358.3,14988,1,4,0)
  1.  ;;=4^H57.11
  1.  ;;^UTILITY(U,$J,358.3,14988,2)
  1.  ;;=^5006382
  1.  ;;^UTILITY(U,$J,358.3,14989,0)
  1.  ;;=H01.00B^^56^638^5
  1.  ;;^UTILITY(U,$J,358.3,14989,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14989,1,3,0)
  1.  ;;=3^Blepharitis,Unspec,Left Upper & Lower Eyelids
  1.  ;;^UTILITY(U,$J,358.3,14989,1,4,0)
  1.  ;;=4^H01.00B
  1.  ;;^UTILITY(U,$J,358.3,14989,2)
  1.  ;;=^5157319
  1.  ;;^UTILITY(U,$J,358.3,14990,0)
  1.  ;;=H01.00A^^56^638^6
  1.  ;;^UTILITY(U,$J,358.3,14990,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14990,1,3,0)
  1.  ;;=3^Blepharitis,Unspec,Right Upper & Lower Eyelids
  1.  ;;^UTILITY(U,$J,358.3,14990,1,4,0)
  1.  ;;=4^H01.00A
  1.  ;;^UTILITY(U,$J,358.3,14990,2)
  1.  ;;=^5157318
  1.  ;;^UTILITY(U,$J,358.3,14991,0)
  1.  ;;=S05.02XA^^56^639^3
  1.  ;;^UTILITY(U,$J,358.3,14991,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14991,1,3,0)
  1.  ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Left Eye,Init
  1.  ;;^UTILITY(U,$J,358.3,14991,1,4,0)
  1.  ;;=4^S05.02XA
  1.  ;;^UTILITY(U,$J,358.3,14991,2)
  1.  ;;=^5020582
  1.  ;;^UTILITY(U,$J,358.3,14992,0)
  1.  ;;=S05.01XA^^56^639^4
  1.  ;;^UTILITY(U,$J,358.3,14992,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14992,1,3,0)
  1.  ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Right Eye,Init
  1.  ;;^UTILITY(U,$J,358.3,14992,1,4,0)
  1.  ;;=4^S05.01XA
  1.  ;;^UTILITY(U,$J,358.3,14992,2)
  1.  ;;=^5020579
  1.  ;;^UTILITY(U,$J,358.3,14993,0)
  1.  ;;=T15.02XA^^56^639^1
  1.  ;;^UTILITY(U,$J,358.3,14993,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14993,1,3,0)
  1.  ;;=3^Foreign Body in Cornea,Left Eye,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,14993,1,4,0)
  1.  ;;=4^T15.02XA
  1.  ;;^UTILITY(U,$J,358.3,14993,2)
  1.  ;;=^5046387
  1.  ;;^UTILITY(U,$J,358.3,14994,0)
  1.  ;;=T15.01XA^^56^639^2
  1.  ;;^UTILITY(U,$J,358.3,14994,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14994,1,3,0)
  1.  ;;=3^Foreign Body in Cornea,Right Eye,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,14994,1,4,0)
  1.  ;;=4^T15.01XA
  1.  ;;^UTILITY(U,$J,358.3,14994,2)
  1.  ;;=^5046384
  1.  ;;^UTILITY(U,$J,358.3,14995,0)
  1.  ;;=S00.252A^^56^639^5
  1.  ;;^UTILITY(U,$J,358.3,14995,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14995,1,3,0)
  1.  ;;=3^Superficial FB of Left Eyelid/Periocular Area,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,14995,1,4,0)
  1.  ;;=4^S00.252A
  1.  ;;^UTILITY(U,$J,358.3,14995,2)
  1.  ;;=^5019820
  1.  ;;^UTILITY(U,$J,358.3,14996,0)
  1.  ;;=S00.251A^^56^639^6
  1.  ;;^UTILITY(U,$J,358.3,14996,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14996,1,3,0)
  1.  ;;=3^Superficial FB of Right Eyelid/Periocular Area,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,14996,1,4,0)
  1.  ;;=4^S00.251A
  1.  ;;^UTILITY(U,$J,358.3,14996,2)
  1.  ;;=^5019817
  1.  ;;^UTILITY(U,$J,358.3,14997,0)
  1.  ;;=B96.81^^56^640^64
  1.  ;;^UTILITY(U,$J,358.3,14997,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14997,1,3,0)
  1.  ;;=3^H. Pylori as the Cause of Diseases Classified Elsewhere
  1.  ;;^UTILITY(U,$J,358.3,14997,1,4,0)
  1.  ;;=4^B96.81
  1.  ;;^UTILITY(U,$J,358.3,14997,2)
  1.  ;;=^5000857
  1.  ;;^UTILITY(U,$J,358.3,14998,0)
  1.  ;;=B15.9^^56^640^66
  1.  ;;^UTILITY(U,$J,358.3,14998,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14998,1,3,0)
  1.  ;;=3^Hepatitis A,Acute w/o Hepatic Coma
  1.  ;;^UTILITY(U,$J,358.3,14998,1,4,0)
  1.  ;;=4^B15.9
  1.  ;;^UTILITY(U,$J,358.3,14998,2)
  1.  ;;=^5000536
  1.  ;;^UTILITY(U,$J,358.3,14999,0)
  1.  ;;=B16.9^^56^640^67
  1.  ;;^UTILITY(U,$J,358.3,14999,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,14999,1,3,0)
  1.  ;;=3^Hepatitis B,Acute w/o Delta-Agent & w/o Hepatic Coma
  1.  ;;^UTILITY(U,$J,358.3,14999,1,4,0)
  1.  ;;=4^B16.9
  1.  ;;^UTILITY(U,$J,358.3,14999,2)
  1.  ;;=^5000540
  1.  ;;^UTILITY(U,$J,358.3,15000,0)
  1.  ;;=B19.10^^56^640^69
  1.  ;;^UTILITY(U,$J,358.3,15000,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15000,1,3,0)
  1.  ;;=3^Hepatitis B,Viral w/o Hepatic Coma,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15000,1,4,0)
  1.  ;;=4^B19.10
  1.  ;;^UTILITY(U,$J,358.3,15000,2)
  1.  ;;=^5000552
  1.  ;;^UTILITY(U,$J,358.3,15001,0)
  1.  ;;=B18.1^^56^640^68
  1.  ;;^UTILITY(U,$J,358.3,15001,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15001,1,3,0)
  1.  ;;=3^Hepatitis B,Chronic Viral w/o Delta-Agent
  1.  ;;^UTILITY(U,$J,358.3,15001,1,4,0)
  1.  ;;=4^B18.1
  1.  ;;^UTILITY(U,$J,358.3,15001,2)
  1.  ;;=^5000547
  1.  ;;^UTILITY(U,$J,358.3,15002,0)
  1.  ;;=B17.10^^56^640^70
  1.  ;;^UTILITY(U,$J,358.3,15002,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15002,1,3,0)
  1.  ;;=3^Hepatitis C,Acute w/o Hepatic Coma
  1.  ;;^UTILITY(U,$J,358.3,15002,1,4,0)
  1.  ;;=4^B17.10
  1.  ;;^UTILITY(U,$J,358.3,15002,2)
  1.  ;;=^5000542
  1.  ;;^UTILITY(U,$J,358.3,15003,0)
  1.  ;;=B18.2^^56^640^71
  1.  ;;^UTILITY(U,$J,358.3,15003,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15003,1,3,0)
  1.  ;;=3^Hepatitis C,Chronic Viral
  1.  ;;^UTILITY(U,$J,358.3,15003,1,4,0)
  1.  ;;=4^B18.2
  1.  ;;^UTILITY(U,$J,358.3,15003,2)
  1.  ;;=^5000548
  1.  ;;^UTILITY(U,$J,358.3,15004,0)
  1.  ;;=B18.8^^56^640^73
  1.  ;;^UTILITY(U,$J,358.3,15004,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15004,1,3,0)
  1.  ;;=3^Hepatitis,Oth Chronic Viral
  1.  ;;^UTILITY(U,$J,358.3,15004,1,4,0)
  1.  ;;=4^B18.8
  1.  ;;^UTILITY(U,$J,358.3,15004,2)
  1.  ;;=^5000549
  1.  ;;^UTILITY(U,$J,358.3,15005,0)
  1.  ;;=B17.8^^56^640^74
  1.  ;;^UTILITY(U,$J,358.3,15005,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15005,1,3,0)
  1.  ;;=3^Hepatitis,Oth Spec Acute Viral
  1.  ;;^UTILITY(U,$J,358.3,15005,1,4,0)
  1.  ;;=4^B17.8
  1.  ;;^UTILITY(U,$J,358.3,15005,2)
  1.  ;;=^5000544
  1.  ;;^UTILITY(U,$J,358.3,15006,0)
  1.  ;;=B18.9^^56^640^72
  1.  ;;^UTILITY(U,$J,358.3,15006,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15006,1,3,0)
  1.  ;;=3^Hepatitis,Chronic Viral Unspec
  1.  ;;^UTILITY(U,$J,358.3,15006,1,4,0)
  1.  ;;=4^B18.9
  1.  ;;^UTILITY(U,$J,358.3,15006,2)
  1.  ;;=^5000550
  1.  ;;^UTILITY(U,$J,358.3,15007,0)
  1.  ;;=B37.81^^56^640^18
  1.  ;;^UTILITY(U,$J,358.3,15007,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15007,1,3,0)
  1.  ;;=3^Candidal Esophagitis
  1.  ;;^UTILITY(U,$J,358.3,15007,1,4,0)
  1.  ;;=4^B37.81
  1.  ;;^UTILITY(U,$J,358.3,15007,2)
  1.  ;;=^5000620
  1.  ;;^UTILITY(U,$J,358.3,15008,0)
  1.  ;;=D12.0^^56^640^12
  1.  ;;^UTILITY(U,$J,358.3,15008,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15008,1,3,0)
  1.  ;;=3^Benign Neop of Cecum
  1.  ;;^UTILITY(U,$J,358.3,15008,1,4,0)
  1.  ;;=4^D12.0
  1.  ;;^UTILITY(U,$J,358.3,15008,2)
  1.  ;;=^5001963
  1.  ;;^UTILITY(U,$J,358.3,15009,0)
  1.  ;;=D12.6^^56^640^13
  1.  ;;^UTILITY(U,$J,358.3,15009,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15009,1,3,0)
  1.  ;;=3^Benign Neop of Colon,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15009,1,4,0)
  1.  ;;=4^D12.6
  1.  ;;^UTILITY(U,$J,358.3,15009,2)
  1.  ;;=^5001969
  1.  ;;^UTILITY(U,$J,358.3,15010,0)
  1.  ;;=D12.1^^56^640^10
  1.  ;;^UTILITY(U,$J,358.3,15010,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15010,1,3,0)
  1.  ;;=3^Benign Neop of Appendix
  1.  ;;^UTILITY(U,$J,358.3,15010,1,4,0)
  1.  ;;=4^D12.1
  1.  ;;^UTILITY(U,$J,358.3,15010,2)
  1.  ;;=^5001964
  1.  ;;^UTILITY(U,$J,358.3,15011,0)
  1.  ;;=K63.5^^56^640^84
  1.  ;;^UTILITY(U,$J,358.3,15011,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15011,1,3,0)
  1.  ;;=3^Polyp of Colon
  1.  ;;^UTILITY(U,$J,358.3,15011,1,4,0)
  1.  ;;=4^K63.5
  1.  ;;^UTILITY(U,$J,358.3,15011,2)
  1.  ;;=^5008765
  1.  ;;^UTILITY(U,$J,358.3,15012,0)
  1.  ;;=D12.3^^56^640^17
  1.  ;;^UTILITY(U,$J,358.3,15012,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15012,1,3,0)
  1.  ;;=3^Benign Neop of Transverse Colon
  1.  ;;^UTILITY(U,$J,358.3,15012,1,4,0)
  1.  ;;=4^D12.3
  1.  ;;^UTILITY(U,$J,358.3,15012,2)
  1.  ;;=^5001966
  1.  ;;^UTILITY(U,$J,358.3,15013,0)
  1.  ;;=D12.2^^56^640^11
  1.  ;;^UTILITY(U,$J,358.3,15013,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15013,1,3,0)
  1.  ;;=3^Benign Neop of Ascending Colon
  1.  ;;^UTILITY(U,$J,358.3,15013,1,4,0)
  1.  ;;=4^D12.2
  1.  ;;^UTILITY(U,$J,358.3,15013,2)
  1.  ;;=^5001965
  1.  ;;^UTILITY(U,$J,358.3,15014,0)
  1.  ;;=D12.5^^56^640^16
  1.  ;;^UTILITY(U,$J,358.3,15014,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15014,1,3,0)
  1.  ;;=3^Benign Neop of Sigmoid Colon
  1.  ;;^UTILITY(U,$J,358.3,15014,1,4,0)
  1.  ;;=4^D12.5
  1.  ;;^UTILITY(U,$J,358.3,15014,2)
  1.  ;;=^5001968
  1.  ;;^UTILITY(U,$J,358.3,15015,0)
  1.  ;;=D12.4^^56^640^14
  1.  ;;^UTILITY(U,$J,358.3,15015,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15015,1,3,0)
  1.  ;;=3^Benign Neop of Descending Colon
  1.  ;;^UTILITY(U,$J,358.3,15015,1,4,0)
  1.  ;;=4^D12.4
  1.  ;;^UTILITY(U,$J,358.3,15015,2)
  1.  ;;=^5001967
  1.  ;;^UTILITY(U,$J,358.3,15016,0)
  1.  ;;=D73.2^^56^640^19
  1.  ;;^UTILITY(U,$J,358.3,15016,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15016,1,3,0)
  1.  ;;=3^Congestive Splenomegaly,Chronic
  1.  ;;^UTILITY(U,$J,358.3,15016,1,4,0)
  1.  ;;=4^D73.2
  1.  ;;^UTILITY(U,$J,358.3,15016,2)
  1.  ;;=^268000
  1.  ;;^UTILITY(U,$J,358.3,15017,0)
  1.  ;;=I85.00^^56^640^53
  1.  ;;^UTILITY(U,$J,358.3,15017,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15017,1,3,0)
  1.  ;;=3^Esophageal Varices w/o Bleeding
  1.  ;;^UTILITY(U,$J,358.3,15017,1,4,0)
  1.  ;;=4^I85.00
  1.  ;;^UTILITY(U,$J,358.3,15017,2)
  1.  ;;=^5008023
  1.  ;;^UTILITY(U,$J,358.3,15018,0)
  1.  ;;=K21.9^^56^640^63
  1.  ;;^UTILITY(U,$J,358.3,15018,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15018,1,3,0)
  1.  ;;=3^Gastroesophageal Reflux Disease w/o Esophagitis
  1.  ;;^UTILITY(U,$J,358.3,15018,1,4,0)
  1.  ;;=4^K21.9
  1.  ;;^UTILITY(U,$J,358.3,15018,2)
  1.  ;;=^5008505
  1.  ;;^UTILITY(U,$J,358.3,15019,0)
  1.  ;;=K25.7^^56^640^58
  1.  ;;^UTILITY(U,$J,358.3,15019,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15019,1,3,0)
  1.  ;;=3^Gastric Ulcer w/o Hemorrhage/Perforation,Chronic
  1.  ;;^UTILITY(U,$J,358.3,15019,1,4,0)
  1.  ;;=4^K25.7
  1.  ;;^UTILITY(U,$J,358.3,15019,2)
  1.  ;;=^5008521
  1.  ;;^UTILITY(U,$J,358.3,15020,0)
  1.  ;;=K26.9^^56^640^49
  1.  ;;^UTILITY(U,$J,358.3,15020,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15020,1,3,0)
  1.  ;;=3^Duadenal Ulcer w/o Hemorrhage/Perforation,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15020,1,4,0)
  1.  ;;=4^K26.9
  1.  ;;^UTILITY(U,$J,358.3,15020,2)
  1.  ;;=^5008527
  1.  ;;^UTILITY(U,$J,358.3,15021,0)
  1.  ;;=K27.9^^56^640^83
  1.  ;;^UTILITY(U,$J,358.3,15021,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15021,1,3,0)
  1.  ;;=3^Peptic Ulcer w/o Hemorrhage/Perforation,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15021,1,4,0)
  1.  ;;=4^K27.9
  1.  ;;^UTILITY(U,$J,358.3,15021,2)
  1.  ;;=^5008536
  1.  ;;^UTILITY(U,$J,358.3,15022,0)
  1.  ;;=K29.70^^56^640^59
  1.  ;;^UTILITY(U,$J,358.3,15022,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15022,1,3,0)
  1.  ;;=3^Gastritis w/o Bleeding,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15022,1,4,0)
  1.  ;;=4^K29.70
  1.  ;;^UTILITY(U,$J,358.3,15022,2)
  1.  ;;=^5008552
  1.  ;;^UTILITY(U,$J,358.3,15023,0)
  1.  ;;=K29.90^^56^640^60
  1.  ;;^UTILITY(U,$J,358.3,15023,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15023,1,3,0)
  1.  ;;=3^Gastroduodenitis w/o Bleeding,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15023,1,4,0)
  1.  ;;=4^K29.90
  1.  ;;^UTILITY(U,$J,358.3,15023,2)
  1.  ;;=^5008556
  1.  ;;^UTILITY(U,$J,358.3,15024,0)
  1.  ;;=K30.^^56^640^50
  1.  ;;^UTILITY(U,$J,358.3,15024,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15024,1,3,0)
  1.  ;;=3^Dyspepsia,Functional
  1.  ;;^UTILITY(U,$J,358.3,15024,1,4,0)
  1.  ;;=4^K30.
  1.  ;;^UTILITY(U,$J,358.3,15024,2)
  1.  ;;=^5008558
  1.  ;;^UTILITY(U,$J,358.3,15025,0)
  1.  ;;=K31.89^^56^640^39
  1.  ;;^UTILITY(U,$J,358.3,15025,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15025,1,3,0)
  1.  ;;=3^Diseases of Stomach & Duodenum,Other
  1.  ;;^UTILITY(U,$J,358.3,15025,1,4,0)
  1.  ;;=4^K31.89
  1.  ;;^UTILITY(U,$J,358.3,15025,2)
  1.  ;;=^5008569
  1.  ;;^UTILITY(U,$J,358.3,15026,0)
  1.  ;;=K31.9^^56^640^38
  1.  ;;^UTILITY(U,$J,358.3,15026,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15026,1,3,0)
  1.  ;;=3^Disease of Stomach & Duodenum,Unspec
  1.  ;;^UTILITY(U,$J,358.3,15026,1,4,0)
  1.  ;;=4^K31.9
  1.  ;;^UTILITY(U,$J,358.3,15026,2)
  1.  ;;=^5008570
  1.  ;;^UTILITY(U,$J,358.3,15027,0)
  1.  ;;=K40.90^^56^640^76
  1.  ;;^UTILITY(U,$J,358.3,15027,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,15027,1,3,0)
  1.  ;;=3^Inguinal Hernia,Unilat w/o Obst or Gangrene
  1.  ;;^UTILITY(U,$J,358.3,15027,1,4,0)
  1.  ;;=4^K40.90
  1.  ;;^UTILITY(U,$J,358.3,15027,2)
  1.  ;;=^5008591
  1.  ;;^UTILITY(U,$J,358.3,15028,0)
  1.  ;;=K40.20^^56^640^75
  1.  ;;^UTILITY(U,$J,358.3,15028,1,0)
  1.  ;;=^358.31IA^4^2