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

IBDEI089.m

Go to the documentation of this file.
IBDEI089 ; ; 03-MAY-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2021
 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,20103,1,4,0)
 ;;=4^H01.00B
 ;;^UTILITY(U,$J,358.3,20103,2)
 ;;=^5157319
 ;;^UTILITY(U,$J,358.3,20104,0)
 ;;=H01.00A^^79^982^6
 ;;^UTILITY(U,$J,358.3,20104,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20104,1,3,0)
 ;;=3^Blepharitis,Unspec,Right Upper & Lower Eyelids
 ;;^UTILITY(U,$J,358.3,20104,1,4,0)
 ;;=4^H01.00A
 ;;^UTILITY(U,$J,358.3,20104,2)
 ;;=^5157318
 ;;^UTILITY(U,$J,358.3,20105,0)
 ;;=S05.02XA^^79^983^3
 ;;^UTILITY(U,$J,358.3,20105,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20105,1,3,0)
 ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Left Eye,Init
 ;;^UTILITY(U,$J,358.3,20105,1,4,0)
 ;;=4^S05.02XA
 ;;^UTILITY(U,$J,358.3,20105,2)
 ;;=^5020582
 ;;^UTILITY(U,$J,358.3,20106,0)
 ;;=S05.01XA^^79^983^4
 ;;^UTILITY(U,$J,358.3,20106,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20106,1,3,0)
 ;;=3^Inj Conjunctiva/Corneal Abrasion w/o FB,Right Eye,Init
 ;;^UTILITY(U,$J,358.3,20106,1,4,0)
 ;;=4^S05.01XA
 ;;^UTILITY(U,$J,358.3,20106,2)
 ;;=^5020579
 ;;^UTILITY(U,$J,358.3,20107,0)
 ;;=T15.02XA^^79^983^1
 ;;^UTILITY(U,$J,358.3,20107,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20107,1,3,0)
 ;;=3^Foreign Body in Cornea,Left Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,20107,1,4,0)
 ;;=4^T15.02XA
 ;;^UTILITY(U,$J,358.3,20107,2)
 ;;=^5046387
 ;;^UTILITY(U,$J,358.3,20108,0)
 ;;=T15.01XA^^79^983^2
 ;;^UTILITY(U,$J,358.3,20108,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20108,1,3,0)
 ;;=3^Foreign Body in Cornea,Right Eye,Init Encntr
 ;;^UTILITY(U,$J,358.3,20108,1,4,0)
 ;;=4^T15.01XA
 ;;^UTILITY(U,$J,358.3,20108,2)
 ;;=^5046384
 ;;^UTILITY(U,$J,358.3,20109,0)
 ;;=S00.252A^^79^983^5
 ;;^UTILITY(U,$J,358.3,20109,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20109,1,3,0)
 ;;=3^Superficial FB of Left Eyelid/Periocular Area,Init Encntr
 ;;^UTILITY(U,$J,358.3,20109,1,4,0)
 ;;=4^S00.252A
 ;;^UTILITY(U,$J,358.3,20109,2)
 ;;=^5019820
 ;;^UTILITY(U,$J,358.3,20110,0)
 ;;=S00.251A^^79^983^6
 ;;^UTILITY(U,$J,358.3,20110,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20110,1,3,0)
 ;;=3^Superficial FB of Right Eyelid/Periocular Area,Init Encntr
 ;;^UTILITY(U,$J,358.3,20110,1,4,0)
 ;;=4^S00.251A
 ;;^UTILITY(U,$J,358.3,20110,2)
 ;;=^5019817
 ;;^UTILITY(U,$J,358.3,20111,0)
 ;;=B96.81^^79^984^64
 ;;^UTILITY(U,$J,358.3,20111,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20111,1,3,0)
 ;;=3^H. Pylori as the Cause of Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,20111,1,4,0)
 ;;=4^B96.81
 ;;^UTILITY(U,$J,358.3,20111,2)
 ;;=^5000857
 ;;^UTILITY(U,$J,358.3,20112,0)
 ;;=B15.9^^79^984^66
 ;;^UTILITY(U,$J,358.3,20112,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20112,1,3,0)
 ;;=3^Hepatitis A,Acute w/o Hepatic Coma
 ;;^UTILITY(U,$J,358.3,20112,1,4,0)
 ;;=4^B15.9
 ;;^UTILITY(U,$J,358.3,20112,2)
 ;;=^5000536
 ;;^UTILITY(U,$J,358.3,20113,0)
 ;;=B16.9^^79^984^67
 ;;^UTILITY(U,$J,358.3,20113,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20113,1,3,0)
 ;;=3^Hepatitis B,Acute w/o Delta-Agent & w/o Hepatic Coma
 ;;^UTILITY(U,$J,358.3,20113,1,4,0)
 ;;=4^B16.9
 ;;^UTILITY(U,$J,358.3,20113,2)
 ;;=^5000540
 ;;^UTILITY(U,$J,358.3,20114,0)
 ;;=B19.10^^79^984^69
 ;;^UTILITY(U,$J,358.3,20114,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20114,1,3,0)
 ;;=3^Hepatitis B,Viral w/o Hepatic Coma,Unspec
 ;;^UTILITY(U,$J,358.3,20114,1,4,0)
 ;;=4^B19.10
 ;;^UTILITY(U,$J,358.3,20114,2)
 ;;=^5000552
 ;;^UTILITY(U,$J,358.3,20115,0)
 ;;=B18.1^^79^984^68
 ;;^UTILITY(U,$J,358.3,20115,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20115,1,3,0)
 ;;=3^Hepatitis B,Chronic Viral w/o Delta-Agent
 ;;^UTILITY(U,$J,358.3,20115,1,4,0)
 ;;=4^B18.1
 ;;^UTILITY(U,$J,358.3,20115,2)
 ;;=^5000547
 ;;^UTILITY(U,$J,358.3,20116,0)
 ;;=B17.10^^79^984^70
 ;;^UTILITY(U,$J,358.3,20116,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20116,1,3,0)
 ;;=3^Hepatitis C,Acute w/o Hepatic Coma
 ;;^UTILITY(U,$J,358.3,20116,1,4,0)
 ;;=4^B17.10
 ;;^UTILITY(U,$J,358.3,20116,2)
 ;;=^5000542
 ;;^UTILITY(U,$J,358.3,20117,0)
 ;;=B18.2^^79^984^71
 ;;^UTILITY(U,$J,358.3,20117,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20117,1,3,0)
 ;;=3^Hepatitis C,Chronic Viral
 ;;^UTILITY(U,$J,358.3,20117,1,4,0)
 ;;=4^B18.2
 ;;^UTILITY(U,$J,358.3,20117,2)
 ;;=^5000548
 ;;^UTILITY(U,$J,358.3,20118,0)
 ;;=B18.8^^79^984^73
 ;;^UTILITY(U,$J,358.3,20118,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20118,1,3,0)
 ;;=3^Hepatitis,Oth Chronic Viral
 ;;^UTILITY(U,$J,358.3,20118,1,4,0)
 ;;=4^B18.8
 ;;^UTILITY(U,$J,358.3,20118,2)
 ;;=^5000549
 ;;^UTILITY(U,$J,358.3,20119,0)
 ;;=B17.8^^79^984^74
 ;;^UTILITY(U,$J,358.3,20119,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20119,1,3,0)
 ;;=3^Hepatitis,Oth Spec Acute Viral
 ;;^UTILITY(U,$J,358.3,20119,1,4,0)
 ;;=4^B17.8
 ;;^UTILITY(U,$J,358.3,20119,2)
 ;;=^5000544
 ;;^UTILITY(U,$J,358.3,20120,0)
 ;;=B18.9^^79^984^72
 ;;^UTILITY(U,$J,358.3,20120,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20120,1,3,0)
 ;;=3^Hepatitis,Chronic Viral Unspec
 ;;^UTILITY(U,$J,358.3,20120,1,4,0)
 ;;=4^B18.9
 ;;^UTILITY(U,$J,358.3,20120,2)
 ;;=^5000550
 ;;^UTILITY(U,$J,358.3,20121,0)
 ;;=B37.81^^79^984^18
 ;;^UTILITY(U,$J,358.3,20121,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20121,1,3,0)
 ;;=3^Candidal Esophagitis
 ;;^UTILITY(U,$J,358.3,20121,1,4,0)
 ;;=4^B37.81
 ;;^UTILITY(U,$J,358.3,20121,2)
 ;;=^5000620
 ;;^UTILITY(U,$J,358.3,20122,0)
 ;;=D12.0^^79^984^12
 ;;^UTILITY(U,$J,358.3,20122,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20122,1,3,0)
 ;;=3^Benign Neop of Cecum
 ;;^UTILITY(U,$J,358.3,20122,1,4,0)
 ;;=4^D12.0
 ;;^UTILITY(U,$J,358.3,20122,2)
 ;;=^5001963
 ;;^UTILITY(U,$J,358.3,20123,0)
 ;;=D12.6^^79^984^13
 ;;^UTILITY(U,$J,358.3,20123,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20123,1,3,0)
 ;;=3^Benign Neop of Colon,Unspec
 ;;^UTILITY(U,$J,358.3,20123,1,4,0)
 ;;=4^D12.6
 ;;^UTILITY(U,$J,358.3,20123,2)
 ;;=^5001969
 ;;^UTILITY(U,$J,358.3,20124,0)
 ;;=D12.1^^79^984^10
 ;;^UTILITY(U,$J,358.3,20124,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20124,1,3,0)
 ;;=3^Benign Neop of Appendix
 ;;^UTILITY(U,$J,358.3,20124,1,4,0)
 ;;=4^D12.1
 ;;^UTILITY(U,$J,358.3,20124,2)
 ;;=^5001964
 ;;^UTILITY(U,$J,358.3,20125,0)
 ;;=K63.5^^79^984^84
 ;;^UTILITY(U,$J,358.3,20125,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20125,1,3,0)
 ;;=3^Polyp of Colon
 ;;^UTILITY(U,$J,358.3,20125,1,4,0)
 ;;=4^K63.5
 ;;^UTILITY(U,$J,358.3,20125,2)
 ;;=^5008765
 ;;^UTILITY(U,$J,358.3,20126,0)
 ;;=D12.3^^79^984^17
 ;;^UTILITY(U,$J,358.3,20126,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20126,1,3,0)
 ;;=3^Benign Neop of Transverse Colon
 ;;^UTILITY(U,$J,358.3,20126,1,4,0)
 ;;=4^D12.3
 ;;^UTILITY(U,$J,358.3,20126,2)
 ;;=^5001966
 ;;^UTILITY(U,$J,358.3,20127,0)
 ;;=D12.2^^79^984^11
 ;;^UTILITY(U,$J,358.3,20127,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20127,1,3,0)
 ;;=3^Benign Neop of Ascending Colon
 ;;^UTILITY(U,$J,358.3,20127,1,4,0)
 ;;=4^D12.2
 ;;^UTILITY(U,$J,358.3,20127,2)
 ;;=^5001965
 ;;^UTILITY(U,$J,358.3,20128,0)
 ;;=D12.5^^79^984^16
 ;;^UTILITY(U,$J,358.3,20128,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20128,1,3,0)
 ;;=3^Benign Neop of Sigmoid Colon
 ;;^UTILITY(U,$J,358.3,20128,1,4,0)
 ;;=4^D12.5
 ;;^UTILITY(U,$J,358.3,20128,2)
 ;;=^5001968
 ;;^UTILITY(U,$J,358.3,20129,0)
 ;;=D12.4^^79^984^14
 ;;^UTILITY(U,$J,358.3,20129,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20129,1,3,0)
 ;;=3^Benign Neop of Descending Colon
 ;;^UTILITY(U,$J,358.3,20129,1,4,0)
 ;;=4^D12.4
 ;;^UTILITY(U,$J,358.3,20129,2)
 ;;=^5001967
 ;;^UTILITY(U,$J,358.3,20130,0)
 ;;=D73.2^^79^984^19
 ;;^UTILITY(U,$J,358.3,20130,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20130,1,3,0)
 ;;=3^Congestive Splenomegaly,Chronic
 ;;^UTILITY(U,$J,358.3,20130,1,4,0)
 ;;=4^D73.2
 ;;^UTILITY(U,$J,358.3,20130,2)
 ;;=^268000
 ;;^UTILITY(U,$J,358.3,20131,0)
 ;;=I85.00^^79^984^53
 ;;^UTILITY(U,$J,358.3,20131,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20131,1,3,0)
 ;;=3^Esophageal Varices w/o Bleeding
 ;;^UTILITY(U,$J,358.3,20131,1,4,0)
 ;;=4^I85.00
 ;;^UTILITY(U,$J,358.3,20131,2)
 ;;=^5008023
 ;;^UTILITY(U,$J,358.3,20132,0)
 ;;=K21.9^^79^984^63
 ;;^UTILITY(U,$J,358.3,20132,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20132,1,3,0)
 ;;=3^Gastroesophageal Reflux Disease w/o Esophagitis
 ;;^UTILITY(U,$J,358.3,20132,1,4,0)
 ;;=4^K21.9
 ;;^UTILITY(U,$J,358.3,20132,2)
 ;;=^5008505
 ;;^UTILITY(U,$J,358.3,20133,0)
 ;;=K25.7^^79^984^58
 ;;^UTILITY(U,$J,358.3,20133,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20133,1,3,0)
 ;;=3^Gastric Ulcer w/o Hemorrhage/Perforation,Chronic
 ;;^UTILITY(U,$J,358.3,20133,1,4,0)
 ;;=4^K25.7
 ;;^UTILITY(U,$J,358.3,20133,2)
 ;;=^5008521
 ;;^UTILITY(U,$J,358.3,20134,0)
 ;;=K26.9^^79^984^49
 ;;^UTILITY(U,$J,358.3,20134,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20134,1,3,0)
 ;;=3^Duadenal Ulcer w/o Hemorrhage/Perforation,Unspec
 ;;^UTILITY(U,$J,358.3,20134,1,4,0)
 ;;=4^K26.9
 ;;^UTILITY(U,$J,358.3,20134,2)
 ;;=^5008527
 ;;^UTILITY(U,$J,358.3,20135,0)
 ;;=K27.9^^79^984^83
 ;;^UTILITY(U,$J,358.3,20135,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20135,1,3,0)
 ;;=3^Peptic Ulcer w/o Hemorrhage/Perforation,Unspec
 ;;^UTILITY(U,$J,358.3,20135,1,4,0)
 ;;=4^K27.9
 ;;^UTILITY(U,$J,358.3,20135,2)
 ;;=^5008536
 ;;^UTILITY(U,$J,358.3,20136,0)
 ;;=K29.70^^79^984^59
 ;;^UTILITY(U,$J,358.3,20136,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20136,1,3,0)
 ;;=3^Gastritis w/o Bleeding,Unspec
 ;;^UTILITY(U,$J,358.3,20136,1,4,0)
 ;;=4^K29.70
 ;;^UTILITY(U,$J,358.3,20136,2)
 ;;=^5008552
 ;;^UTILITY(U,$J,358.3,20137,0)
 ;;=K29.90^^79^984^60
 ;;^UTILITY(U,$J,358.3,20137,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20137,1,3,0)
 ;;=3^Gastroduodenitis w/o Bleeding,Unspec
 ;;^UTILITY(U,$J,358.3,20137,1,4,0)
 ;;=4^K29.90
 ;;^UTILITY(U,$J,358.3,20137,2)
 ;;=^5008556
 ;;^UTILITY(U,$J,358.3,20138,0)
 ;;=K30.^^79^984^50
 ;;^UTILITY(U,$J,358.3,20138,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20138,1,3,0)
 ;;=3^Dyspepsia,Functional
 ;;^UTILITY(U,$J,358.3,20138,1,4,0)
 ;;=4^K30.
 ;;^UTILITY(U,$J,358.3,20138,2)
 ;;=^5008558
 ;;^UTILITY(U,$J,358.3,20139,0)
 ;;=K31.89^^79^984^39
 ;;^UTILITY(U,$J,358.3,20139,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20139,1,3,0)
 ;;=3^Diseases of Stomach & Duodenum,Other
 ;;^UTILITY(U,$J,358.3,20139,1,4,0)
 ;;=4^K31.89
 ;;^UTILITY(U,$J,358.3,20139,2)
 ;;=^5008569
 ;;^UTILITY(U,$J,358.3,20140,0)
 ;;=K31.9^^79^984^38
 ;;^UTILITY(U,$J,358.3,20140,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20140,1,3,0)
 ;;=3^Disease of Stomach & Duodenum,Unspec
 ;;^UTILITY(U,$J,358.3,20140,1,4,0)
 ;;=4^K31.9
 ;;^UTILITY(U,$J,358.3,20140,2)
 ;;=^5008570
 ;;^UTILITY(U,$J,358.3,20141,0)
 ;;=K40.90^^79^984^76
 ;;^UTILITY(U,$J,358.3,20141,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20141,1,3,0)
 ;;=3^Inguinal Hernia,Unilat w/o Obst or Gangrene
 ;;^UTILITY(U,$J,358.3,20141,1,4,0)
 ;;=4^K40.90
 ;;^UTILITY(U,$J,358.3,20141,2)
 ;;=^5008591
 ;;^UTILITY(U,$J,358.3,20142,0)
 ;;=K40.20^^79^984^75
 ;;^UTILITY(U,$J,358.3,20142,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20142,1,3,0)
 ;;=3^Inguinal Hernia,Bilat w/o Obst or Gangrene
 ;;^UTILITY(U,$J,358.3,20142,1,4,0)
 ;;=4^K40.20
 ;;^UTILITY(U,$J,358.3,20142,2)
 ;;=^5008585
 ;;^UTILITY(U,$J,358.3,20143,0)
 ;;=K44.9^^79^984^36
 ;;^UTILITY(U,$J,358.3,20143,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20143,1,3,0)
 ;;=3^Diaphragmatic Hernia w/o Obst or Gangrene
 ;;^UTILITY(U,$J,358.3,20143,1,4,0)
 ;;=4^K44.9
 ;;^UTILITY(U,$J,358.3,20143,2)
 ;;=^5008617
 ;;^UTILITY(U,$J,358.3,20144,0)
 ;;=K46.9^^79^984^1
 ;;^UTILITY(U,$J,358.3,20144,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20144,1,3,0)
 ;;=3^Abdominal Hernia w/o Obst or Gangrene,Unspec
 ;;^UTILITY(U,$J,358.3,20144,1,4,0)
 ;;=4^K46.9
 ;;^UTILITY(U,$J,358.3,20144,2)
 ;;=^5008623
 ;;^UTILITY(U,$J,358.3,20145,0)
 ;;=K50.90^^79^984^31
 ;;^UTILITY(U,$J,358.3,20145,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20145,1,3,0)
 ;;=3^Crohn's Disease w/o Complications,Unspec
 ;;^UTILITY(U,$J,358.3,20145,1,4,0)
 ;;=4^K50.90
 ;;^UTILITY(U,$J,358.3,20145,2)
 ;;=^5008645
 ;;^UTILITY(U,$J,358.3,20146,0)
 ;;=K50.911^^79^984^29
 ;;^UTILITY(U,$J,358.3,20146,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20146,1,3,0)
 ;;=3^Crohn's Disease w/ Rectal Bleeding,Unspec
 ;;^UTILITY(U,$J,358.3,20146,1,4,0)
 ;;=4^K50.911
 ;;^UTILITY(U,$J,358.3,20146,2)
 ;;=^5008646
 ;;^UTILITY(U,$J,358.3,20147,0)
 ;;=K50.912^^79^984^27
 ;;^UTILITY(U,$J,358.3,20147,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20147,1,3,0)
 ;;=3^Crohn's Disease w/ Intestinal Obstruction,Unspec
 ;;^UTILITY(U,$J,358.3,20147,1,4,0)
 ;;=4^K50.912
 ;;^UTILITY(U,$J,358.3,20147,2)
 ;;=^5008647
 ;;^UTILITY(U,$J,358.3,20148,0)
 ;;=K50.919^^79^984^30
 ;;^UTILITY(U,$J,358.3,20148,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20148,1,3,0)
 ;;=3^Crohn's Disease w/ Unspec Complications,Unspec
 ;;^UTILITY(U,$J,358.3,20148,1,4,0)
 ;;=4^K50.919
 ;;^UTILITY(U,$J,358.3,20148,2)
 ;;=^5008651
 ;;^UTILITY(U,$J,358.3,20149,0)
 ;;=K50.914^^79^984^25
 ;;^UTILITY(U,$J,358.3,20149,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20149,1,3,0)
 ;;=3^Crohn's Disease w/ Abscess,Unspec
 ;;^UTILITY(U,$J,358.3,20149,1,4,0)
 ;;=4^K50.914
 ;;^UTILITY(U,$J,358.3,20149,2)
 ;;=^5008649
 ;;^UTILITY(U,$J,358.3,20150,0)
 ;;=K50.913^^79^984^26
 ;;^UTILITY(U,$J,358.3,20150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20150,1,3,0)
 ;;=3^Crohn's Disease w/ Fistula,Unspec
 ;;^UTILITY(U,$J,358.3,20150,1,4,0)
 ;;=4^K50.913
 ;;^UTILITY(U,$J,358.3,20150,2)
 ;;=^5008648
 ;;^UTILITY(U,$J,358.3,20151,0)
 ;;=K50.918^^79^984^28
 ;;^UTILITY(U,$J,358.3,20151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20151,1,3,0)
 ;;=3^Crohn's Disease w/ Oth Complication,Unspec
 ;;^UTILITY(U,$J,358.3,20151,1,4,0)
 ;;=4^K50.918
 ;;^UTILITY(U,$J,358.3,20151,2)
 ;;=^5008650
 ;;^UTILITY(U,$J,358.3,20152,0)
 ;;=K51.90^^79^984^91
 ;;^UTILITY(U,$J,358.3,20152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20152,1,3,0)
 ;;=3^Ulcerative Colitis w/o Complications,Unspec
 ;;^UTILITY(U,$J,358.3,20152,1,4,0)
 ;;=4^K51.90
 ;;^UTILITY(U,$J,358.3,20152,2)
 ;;=^5008694
 ;;^UTILITY(U,$J,358.3,20153,0)
 ;;=K51.919^^79^984^90
 ;;^UTILITY(U,$J,358.3,20153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20153,1,3,0)
 ;;=3^Ulcerative Colitis w/ Unspec Complications,Unspec
 ;;^UTILITY(U,$J,358.3,20153,1,4,0)
 ;;=4^K51.919
 ;;^UTILITY(U,$J,358.3,20153,2)
 ;;=^5008700
 ;;^UTILITY(U,$J,358.3,20154,0)
 ;;=K51.918^^79^984^88
 ;;^UTILITY(U,$J,358.3,20154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20154,1,3,0)
 ;;=3^Ulcerative Colitis w/ Oth Complication,Unspec
 ;;^UTILITY(U,$J,358.3,20154,1,4,0)
 ;;=4^K51.918
 ;;^UTILITY(U,$J,358.3,20154,2)
 ;;=^5008699
 ;;^UTILITY(U,$J,358.3,20155,0)
 ;;=K51.914^^79^984^85
 ;;^UTILITY(U,$J,358.3,20155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20155,1,3,0)
 ;;=3^Ulcerative Colitis w/ Abscess,Unspec
 ;;^UTILITY(U,$J,358.3,20155,1,4,0)
 ;;=4^K51.914
 ;;^UTILITY(U,$J,358.3,20155,2)
 ;;=^5008698
 ;;^UTILITY(U,$J,358.3,20156,0)
 ;;=K51.913^^79^984^86
 ;;^UTILITY(U,$J,358.3,20156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20156,1,3,0)
 ;;=3^Ulcerative Colitis w/ Fistula,Unspec
 ;;^UTILITY(U,$J,358.3,20156,1,4,0)
 ;;=4^K51.913
 ;;^UTILITY(U,$J,358.3,20156,2)
 ;;=^5008697
 ;;^UTILITY(U,$J,358.3,20157,0)
 ;;=K51.912^^79^984^87
 ;;^UTILITY(U,$J,358.3,20157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20157,1,3,0)
 ;;=3^Ulcerative Colitis w/ Intestinal Obstruction,Unspec
 ;;^UTILITY(U,$J,358.3,20157,1,4,0)
 ;;=4^K51.912
 ;;^UTILITY(U,$J,358.3,20157,2)
 ;;=^5008696
 ;;^UTILITY(U,$J,358.3,20158,0)
 ;;=K51.911^^79^984^89
 ;;^UTILITY(U,$J,358.3,20158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20158,1,3,0)
 ;;=3^Ulcerative Colitis w/ Rectal Bleeding,Unspec
 ;;^UTILITY(U,$J,358.3,20158,1,4,0)
 ;;=4^K51.911
 ;;^UTILITY(U,$J,358.3,20158,2)
 ;;=^5008695
 ;;^UTILITY(U,$J,358.3,20159,0)
 ;;=K52.89^^79^984^62
 ;;^UTILITY(U,$J,358.3,20159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20159,1,3,0)
 ;;=3^Gastroenteritis & Colitis,Oth Spec Noninfective
 ;;^UTILITY(U,$J,358.3,20159,1,4,0)
 ;;=4^K52.89
 ;;^UTILITY(U,$J,358.3,20159,2)
 ;;=^5008703
 ;;^UTILITY(U,$J,358.3,20160,0)
 ;;=K52.9^^79^984^61
 ;;^UTILITY(U,$J,358.3,20160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20160,1,3,0)
 ;;=3^Gastroenteritis & Colitis,Noninfective Unspec
 ;;^UTILITY(U,$J,358.3,20160,1,4,0)
 ;;=4^K52.9
 ;;^UTILITY(U,$J,358.3,20160,2)
 ;;=^5008704
 ;;^UTILITY(U,$J,358.3,20161,0)
 ;;=K57.30^^79^984^47
 ;;^UTILITY(U,$J,358.3,20161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20161,1,3,0)
 ;;=3^Diverticulosis of Lg Intestine w/o Perforation/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,20161,1,4,0)
 ;;=4^K57.30
 ;;^UTILITY(U,$J,358.3,20161,2)
 ;;=^5008723
 ;;^UTILITY(U,$J,358.3,20162,0)
 ;;=K57.50^^79^984^48
 ;;^UTILITY(U,$J,358.3,20162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20162,1,3,0)
 ;;=3^Diverticulosis of Sm & Lg Intestine w/o Performation/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,20162,1,4,0)
 ;;=4^K57.50
 ;;^UTILITY(U,$J,358.3,20162,2)
 ;;=^5008729
 ;;^UTILITY(U,$J,358.3,20163,0)
 ;;=K57.90^^79^984^46
 ;;^UTILITY(U,$J,358.3,20163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20163,1,3,0)
 ;;=3^Diverticulosis of Intestine,Unspec w/o Performation/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,20163,1,4,0)
 ;;=4^K57.90
 ;;^UTILITY(U,$J,358.3,20163,2)
 ;;=^5008735
 ;;^UTILITY(U,$J,358.3,20164,0)
 ;;=K57.20^^79^984^42
 ;;^UTILITY(U,$J,358.3,20164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20164,1,3,0)
 ;;=3^Diverticulitis of Lg Intestine w/ Performation/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,20164,1,4,0)
 ;;=4^K57.20
 ;;^UTILITY(U,$J,358.3,20164,2)
 ;;=^5008721
 ;;^UTILITY(U,$J,358.3,20165,0)
 ;;=K57.92^^79^984^41
 ;;^UTILITY(U,$J,358.3,20165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20165,1,3,0)
 ;;=3^Diverticulitis of Intestine,Unspec w/o Perforation/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,20165,1,4,0)
 ;;=4^K57.92
 ;;^UTILITY(U,$J,358.3,20165,2)
 ;;=^5008737
 ;;^UTILITY(U,$J,358.3,20166,0)
 ;;=K57.80^^79^984^40
 ;;^UTILITY(U,$J,358.3,20166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20166,1,3,0)
 ;;=3^Diverticulitis of Intestine,Unspec w/ Perforation/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,20166,1,4,0)
 ;;=4^K57.80
 ;;^UTILITY(U,$J,358.3,20166,2)
 ;;=^5008733
 ;;^UTILITY(U,$J,358.3,20167,0)
 ;;=K57.52^^79^984^45
 ;;^UTILITY(U,$J,358.3,20167,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20167,1,3,0)
 ;;=3^Diverticulitis of Sm & Lg Intestine w/o Perforation/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,20167,1,4,0)
 ;;=4^K57.52
 ;;^UTILITY(U,$J,358.3,20167,2)
 ;;=^5008731
 ;;^UTILITY(U,$J,358.3,20168,0)
 ;;=K57.40^^79^984^44
 ;;^UTILITY(U,$J,358.3,20168,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20168,1,3,0)
 ;;=3^Diverticulitis of Sm & Lg Intestine w/ Perforation/Abscess w/o Bleeding
 ;;^UTILITY(U,$J,358.3,20168,1,4,0)
 ;;=4^K57.40
 ;;^UTILITY(U,$J,358.3,20168,2)
 ;;=^5008727
 ;;^UTILITY(U,$J,358.3,20169,0)
 ;;=K57.32^^79^984^43
 ;;^UTILITY(U,$J,358.3,20169,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20169,1,3,0)
 ;;=3^Diverticulitis of Lg Intestine w/o Perforation/Abscess w/o Bleeding