IBDEI0DL ; ; 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,34097,0)
;;=B18.9^^105^1429^72
;;^UTILITY(U,$J,358.3,34097,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34097,1,3,0)
;;=3^Hepatitis,Chronic Viral Unspec
;;^UTILITY(U,$J,358.3,34097,1,4,0)
;;=4^B18.9
;;^UTILITY(U,$J,358.3,34097,2)
;;=^5000550
;;^UTILITY(U,$J,358.3,34098,0)
;;=B37.81^^105^1429^18
;;^UTILITY(U,$J,358.3,34098,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34098,1,3,0)
;;=3^Candidal Esophagitis
;;^UTILITY(U,$J,358.3,34098,1,4,0)
;;=4^B37.81
;;^UTILITY(U,$J,358.3,34098,2)
;;=^5000620
;;^UTILITY(U,$J,358.3,34099,0)
;;=D12.0^^105^1429^12
;;^UTILITY(U,$J,358.3,34099,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34099,1,3,0)
;;=3^Benign Neop of Cecum
;;^UTILITY(U,$J,358.3,34099,1,4,0)
;;=4^D12.0
;;^UTILITY(U,$J,358.3,34099,2)
;;=^5001963
;;^UTILITY(U,$J,358.3,34100,0)
;;=D12.6^^105^1429^13
;;^UTILITY(U,$J,358.3,34100,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34100,1,3,0)
;;=3^Benign Neop of Colon,Unspec
;;^UTILITY(U,$J,358.3,34100,1,4,0)
;;=4^D12.6
;;^UTILITY(U,$J,358.3,34100,2)
;;=^5001969
;;^UTILITY(U,$J,358.3,34101,0)
;;=D12.1^^105^1429^10
;;^UTILITY(U,$J,358.3,34101,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34101,1,3,0)
;;=3^Benign Neop of Appendix
;;^UTILITY(U,$J,358.3,34101,1,4,0)
;;=4^D12.1
;;^UTILITY(U,$J,358.3,34101,2)
;;=^5001964
;;^UTILITY(U,$J,358.3,34102,0)
;;=K63.5^^105^1429^84
;;^UTILITY(U,$J,358.3,34102,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34102,1,3,0)
;;=3^Polyp of Colon
;;^UTILITY(U,$J,358.3,34102,1,4,0)
;;=4^K63.5
;;^UTILITY(U,$J,358.3,34102,2)
;;=^5008765
;;^UTILITY(U,$J,358.3,34103,0)
;;=D12.3^^105^1429^17
;;^UTILITY(U,$J,358.3,34103,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34103,1,3,0)
;;=3^Benign Neop of Transverse Colon
;;^UTILITY(U,$J,358.3,34103,1,4,0)
;;=4^D12.3
;;^UTILITY(U,$J,358.3,34103,2)
;;=^5001966
;;^UTILITY(U,$J,358.3,34104,0)
;;=D12.2^^105^1429^11
;;^UTILITY(U,$J,358.3,34104,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34104,1,3,0)
;;=3^Benign Neop of Ascending Colon
;;^UTILITY(U,$J,358.3,34104,1,4,0)
;;=4^D12.2
;;^UTILITY(U,$J,358.3,34104,2)
;;=^5001965
;;^UTILITY(U,$J,358.3,34105,0)
;;=D12.5^^105^1429^16
;;^UTILITY(U,$J,358.3,34105,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34105,1,3,0)
;;=3^Benign Neop of Sigmoid Colon
;;^UTILITY(U,$J,358.3,34105,1,4,0)
;;=4^D12.5
;;^UTILITY(U,$J,358.3,34105,2)
;;=^5001968
;;^UTILITY(U,$J,358.3,34106,0)
;;=D12.4^^105^1429^14
;;^UTILITY(U,$J,358.3,34106,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34106,1,3,0)
;;=3^Benign Neop of Descending Colon
;;^UTILITY(U,$J,358.3,34106,1,4,0)
;;=4^D12.4
;;^UTILITY(U,$J,358.3,34106,2)
;;=^5001967
;;^UTILITY(U,$J,358.3,34107,0)
;;=D73.2^^105^1429^19
;;^UTILITY(U,$J,358.3,34107,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34107,1,3,0)
;;=3^Congestive Splenomegaly,Chronic
;;^UTILITY(U,$J,358.3,34107,1,4,0)
;;=4^D73.2
;;^UTILITY(U,$J,358.3,34107,2)
;;=^268000
;;^UTILITY(U,$J,358.3,34108,0)
;;=I85.00^^105^1429^53
;;^UTILITY(U,$J,358.3,34108,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34108,1,3,0)
;;=3^Esophageal Varices w/o Bleeding
;;^UTILITY(U,$J,358.3,34108,1,4,0)
;;=4^I85.00
;;^UTILITY(U,$J,358.3,34108,2)
;;=^5008023
;;^UTILITY(U,$J,358.3,34109,0)
;;=K21.9^^105^1429^63
;;^UTILITY(U,$J,358.3,34109,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34109,1,3,0)
;;=3^Gastroesophageal Reflux Disease w/o Esophagitis
;;^UTILITY(U,$J,358.3,34109,1,4,0)
;;=4^K21.9
;;^UTILITY(U,$J,358.3,34109,2)
;;=^5008505
;;^UTILITY(U,$J,358.3,34110,0)
;;=K25.7^^105^1429^58
;;^UTILITY(U,$J,358.3,34110,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34110,1,3,0)
;;=3^Gastric Ulcer w/o Hemorrhage/Perforation,Chronic
;;^UTILITY(U,$J,358.3,34110,1,4,0)
;;=4^K25.7
;;^UTILITY(U,$J,358.3,34110,2)
;;=^5008521
;;^UTILITY(U,$J,358.3,34111,0)
;;=K26.9^^105^1429^49
;;^UTILITY(U,$J,358.3,34111,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34111,1,3,0)
;;=3^Duadenal Ulcer w/o Hemorrhage/Perforation,Unspec
;;^UTILITY(U,$J,358.3,34111,1,4,0)
;;=4^K26.9
;;^UTILITY(U,$J,358.3,34111,2)
;;=^5008527
;;^UTILITY(U,$J,358.3,34112,0)
;;=K27.9^^105^1429^83
;;^UTILITY(U,$J,358.3,34112,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34112,1,3,0)
;;=3^Peptic Ulcer w/o Hemorrhage/Perforation,Unspec
;;^UTILITY(U,$J,358.3,34112,1,4,0)
;;=4^K27.9
;;^UTILITY(U,$J,358.3,34112,2)
;;=^5008536
;;^UTILITY(U,$J,358.3,34113,0)
;;=K29.70^^105^1429^59
;;^UTILITY(U,$J,358.3,34113,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34113,1,3,0)
;;=3^Gastritis w/o Bleeding,Unspec
;;^UTILITY(U,$J,358.3,34113,1,4,0)
;;=4^K29.70
;;^UTILITY(U,$J,358.3,34113,2)
;;=^5008552
;;^UTILITY(U,$J,358.3,34114,0)
;;=K29.90^^105^1429^60
;;^UTILITY(U,$J,358.3,34114,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34114,1,3,0)
;;=3^Gastroduodenitis w/o Bleeding,Unspec
;;^UTILITY(U,$J,358.3,34114,1,4,0)
;;=4^K29.90
;;^UTILITY(U,$J,358.3,34114,2)
;;=^5008556
;;^UTILITY(U,$J,358.3,34115,0)
;;=K30.^^105^1429^50
;;^UTILITY(U,$J,358.3,34115,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34115,1,3,0)
;;=3^Dyspepsia,Functional
;;^UTILITY(U,$J,358.3,34115,1,4,0)
;;=4^K30.
;;^UTILITY(U,$J,358.3,34115,2)
;;=^5008558
;;^UTILITY(U,$J,358.3,34116,0)
;;=K31.89^^105^1429^39
;;^UTILITY(U,$J,358.3,34116,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34116,1,3,0)
;;=3^Diseases of Stomach & Duodenum,Other
;;^UTILITY(U,$J,358.3,34116,1,4,0)
;;=4^K31.89
;;^UTILITY(U,$J,358.3,34116,2)
;;=^5008569
;;^UTILITY(U,$J,358.3,34117,0)
;;=K31.9^^105^1429^38
;;^UTILITY(U,$J,358.3,34117,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34117,1,3,0)
;;=3^Disease of Stomach & Duodenum,Unspec
;;^UTILITY(U,$J,358.3,34117,1,4,0)
;;=4^K31.9
;;^UTILITY(U,$J,358.3,34117,2)
;;=^5008570
;;^UTILITY(U,$J,358.3,34118,0)
;;=K40.90^^105^1429^76
;;^UTILITY(U,$J,358.3,34118,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34118,1,3,0)
;;=3^Inguinal Hernia,Unilat w/o Obst or Gangrene
;;^UTILITY(U,$J,358.3,34118,1,4,0)
;;=4^K40.90
;;^UTILITY(U,$J,358.3,34118,2)
;;=^5008591
;;^UTILITY(U,$J,358.3,34119,0)
;;=K40.20^^105^1429^75
;;^UTILITY(U,$J,358.3,34119,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34119,1,3,0)
;;=3^Inguinal Hernia,Bilat w/o Obst or Gangrene
;;^UTILITY(U,$J,358.3,34119,1,4,0)
;;=4^K40.20
;;^UTILITY(U,$J,358.3,34119,2)
;;=^5008585
;;^UTILITY(U,$J,358.3,34120,0)
;;=K44.9^^105^1429^36
;;^UTILITY(U,$J,358.3,34120,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34120,1,3,0)
;;=3^Diaphragmatic Hernia w/o Obst or Gangrene
;;^UTILITY(U,$J,358.3,34120,1,4,0)
;;=4^K44.9
;;^UTILITY(U,$J,358.3,34120,2)
;;=^5008617
;;^UTILITY(U,$J,358.3,34121,0)
;;=K46.9^^105^1429^1
;;^UTILITY(U,$J,358.3,34121,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34121,1,3,0)
;;=3^Abdominal Hernia w/o Obst or Gangrene,Unspec
;;^UTILITY(U,$J,358.3,34121,1,4,0)
;;=4^K46.9
;;^UTILITY(U,$J,358.3,34121,2)
;;=^5008623
;;^UTILITY(U,$J,358.3,34122,0)
;;=K50.90^^105^1429^31
;;^UTILITY(U,$J,358.3,34122,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34122,1,3,0)
;;=3^Crohn's Disease w/o Complications,Unspec
;;^UTILITY(U,$J,358.3,34122,1,4,0)
;;=4^K50.90
;;^UTILITY(U,$J,358.3,34122,2)
;;=^5008645
;;^UTILITY(U,$J,358.3,34123,0)
;;=K50.911^^105^1429^29
;;^UTILITY(U,$J,358.3,34123,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34123,1,3,0)
;;=3^Crohn's Disease w/ Rectal Bleeding,Unspec
;;^UTILITY(U,$J,358.3,34123,1,4,0)
;;=4^K50.911
;;^UTILITY(U,$J,358.3,34123,2)
;;=^5008646
;;^UTILITY(U,$J,358.3,34124,0)
;;=K50.912^^105^1429^27
;;^UTILITY(U,$J,358.3,34124,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34124,1,3,0)
;;=3^Crohn's Disease w/ Intestinal Obstruction,Unspec
;;^UTILITY(U,$J,358.3,34124,1,4,0)
;;=4^K50.912
;;^UTILITY(U,$J,358.3,34124,2)
;;=^5008647
;;^UTILITY(U,$J,358.3,34125,0)
;;=K50.919^^105^1429^30
;;^UTILITY(U,$J,358.3,34125,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34125,1,3,0)
;;=3^Crohn's Disease w/ Unspec Complications,Unspec
;;^UTILITY(U,$J,358.3,34125,1,4,0)
;;=4^K50.919
;;^UTILITY(U,$J,358.3,34125,2)
;;=^5008651
;;^UTILITY(U,$J,358.3,34126,0)
;;=K50.914^^105^1429^25
;;^UTILITY(U,$J,358.3,34126,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34126,1,3,0)
;;=3^Crohn's Disease w/ Abscess,Unspec
;;^UTILITY(U,$J,358.3,34126,1,4,0)
;;=4^K50.914
;;^UTILITY(U,$J,358.3,34126,2)
;;=^5008649
;;^UTILITY(U,$J,358.3,34127,0)
;;=K50.913^^105^1429^26
;;^UTILITY(U,$J,358.3,34127,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34127,1,3,0)
;;=3^Crohn's Disease w/ Fistula,Unspec
;;^UTILITY(U,$J,358.3,34127,1,4,0)
;;=4^K50.913
;;^UTILITY(U,$J,358.3,34127,2)
;;=^5008648
;;^UTILITY(U,$J,358.3,34128,0)
;;=K50.918^^105^1429^28
;;^UTILITY(U,$J,358.3,34128,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34128,1,3,0)
;;=3^Crohn's Disease w/ Oth Complication,Unspec
;;^UTILITY(U,$J,358.3,34128,1,4,0)
;;=4^K50.918
;;^UTILITY(U,$J,358.3,34128,2)
;;=^5008650
;;^UTILITY(U,$J,358.3,34129,0)
;;=K51.90^^105^1429^91
;;^UTILITY(U,$J,358.3,34129,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34129,1,3,0)
;;=3^Ulcerative Colitis w/o Complications,Unspec
;;^UTILITY(U,$J,358.3,34129,1,4,0)
;;=4^K51.90
;;^UTILITY(U,$J,358.3,34129,2)
;;=^5008694
;;^UTILITY(U,$J,358.3,34130,0)
;;=K51.919^^105^1429^90
;;^UTILITY(U,$J,358.3,34130,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34130,1,3,0)
;;=3^Ulcerative Colitis w/ Unspec Complications,Unspec
;;^UTILITY(U,$J,358.3,34130,1,4,0)
;;=4^K51.919
;;^UTILITY(U,$J,358.3,34130,2)
;;=^5008700
;;^UTILITY(U,$J,358.3,34131,0)
;;=K51.918^^105^1429^88
;;^UTILITY(U,$J,358.3,34131,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34131,1,3,0)
;;=3^Ulcerative Colitis w/ Oth Complication,Unspec
;;^UTILITY(U,$J,358.3,34131,1,4,0)
;;=4^K51.918
;;^UTILITY(U,$J,358.3,34131,2)
;;=^5008699
;;^UTILITY(U,$J,358.3,34132,0)
;;=K51.914^^105^1429^85
;;^UTILITY(U,$J,358.3,34132,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34132,1,3,0)
;;=3^Ulcerative Colitis w/ Abscess,Unspec
;;^UTILITY(U,$J,358.3,34132,1,4,0)
;;=4^K51.914
;;^UTILITY(U,$J,358.3,34132,2)
;;=^5008698
;;^UTILITY(U,$J,358.3,34133,0)
;;=K51.913^^105^1429^86
;;^UTILITY(U,$J,358.3,34133,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34133,1,3,0)
;;=3^Ulcerative Colitis w/ Fistula,Unspec
;;^UTILITY(U,$J,358.3,34133,1,4,0)
;;=4^K51.913
;;^UTILITY(U,$J,358.3,34133,2)
;;=^5008697
;;^UTILITY(U,$J,358.3,34134,0)
;;=K51.912^^105^1429^87
;;^UTILITY(U,$J,358.3,34134,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34134,1,3,0)
;;=3^Ulcerative Colitis w/ Intestinal Obstruction,Unspec
;;^UTILITY(U,$J,358.3,34134,1,4,0)
;;=4^K51.912
;;^UTILITY(U,$J,358.3,34134,2)
;;=^5008696
;;^UTILITY(U,$J,358.3,34135,0)
;;=K51.911^^105^1429^89
;;^UTILITY(U,$J,358.3,34135,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34135,1,3,0)
;;=3^Ulcerative Colitis w/ Rectal Bleeding,Unspec
;;^UTILITY(U,$J,358.3,34135,1,4,0)
;;=4^K51.911
;;^UTILITY(U,$J,358.3,34135,2)
;;=^5008695
;;^UTILITY(U,$J,358.3,34136,0)
;;=K52.89^^105^1429^62
;;^UTILITY(U,$J,358.3,34136,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34136,1,3,0)
;;=3^Gastroenteritis & Colitis,Oth Spec Noninfective
;;^UTILITY(U,$J,358.3,34136,1,4,0)
;;=4^K52.89
;;^UTILITY(U,$J,358.3,34136,2)
;;=^5008703
;;^UTILITY(U,$J,358.3,34137,0)
;;=K52.9^^105^1429^61
;;^UTILITY(U,$J,358.3,34137,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34137,1,3,0)
;;=3^Gastroenteritis & Colitis,Noninfective Unspec
;;^UTILITY(U,$J,358.3,34137,1,4,0)
;;=4^K52.9
;;^UTILITY(U,$J,358.3,34137,2)
;;=^5008704
;;^UTILITY(U,$J,358.3,34138,0)
;;=K57.30^^105^1429^47
;;^UTILITY(U,$J,358.3,34138,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34138,1,3,0)
;;=3^Diverticulosis of Lg Intestine w/o Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,34138,1,4,0)
;;=4^K57.30
;;^UTILITY(U,$J,358.3,34138,2)
;;=^5008723
;;^UTILITY(U,$J,358.3,34139,0)
;;=K57.50^^105^1429^48
;;^UTILITY(U,$J,358.3,34139,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34139,1,3,0)
;;=3^Diverticulosis of Sm & Lg Intestine w/o Performation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,34139,1,4,0)
;;=4^K57.50
;;^UTILITY(U,$J,358.3,34139,2)
;;=^5008729
;;^UTILITY(U,$J,358.3,34140,0)
;;=K57.90^^105^1429^46
;;^UTILITY(U,$J,358.3,34140,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34140,1,3,0)
;;=3^Diverticulosis of Intestine,Unspec w/o Performation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,34140,1,4,0)
;;=4^K57.90
;;^UTILITY(U,$J,358.3,34140,2)
;;=^5008735
;;^UTILITY(U,$J,358.3,34141,0)
;;=K57.20^^105^1429^42
;;^UTILITY(U,$J,358.3,34141,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34141,1,3,0)
;;=3^Diverticulitis of Lg Intestine w/ Performation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,34141,1,4,0)
;;=4^K57.20
;;^UTILITY(U,$J,358.3,34141,2)
;;=^5008721
;;^UTILITY(U,$J,358.3,34142,0)
;;=K57.92^^105^1429^41
;;^UTILITY(U,$J,358.3,34142,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34142,1,3,0)
;;=3^Diverticulitis of Intestine,Unspec w/o Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,34142,1,4,0)
;;=4^K57.92
;;^UTILITY(U,$J,358.3,34142,2)
;;=^5008737
;;^UTILITY(U,$J,358.3,34143,0)
;;=K57.80^^105^1429^40
;;^UTILITY(U,$J,358.3,34143,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34143,1,3,0)
;;=3^Diverticulitis of Intestine,Unspec w/ Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,34143,1,4,0)
;;=4^K57.80
;;^UTILITY(U,$J,358.3,34143,2)
;;=^5008733
;;^UTILITY(U,$J,358.3,34144,0)
;;=K57.52^^105^1429^45
;;^UTILITY(U,$J,358.3,34144,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34144,1,3,0)
;;=3^Diverticulitis of Sm & Lg Intestine w/o Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,34144,1,4,0)
;;=4^K57.52
;;^UTILITY(U,$J,358.3,34144,2)
;;=^5008731
;;^UTILITY(U,$J,358.3,34145,0)
;;=K57.40^^105^1429^44
;;^UTILITY(U,$J,358.3,34145,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34145,1,3,0)
;;=3^Diverticulitis of Sm & Lg Intestine w/ Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,34145,1,4,0)
;;=4^K57.40
;;^UTILITY(U,$J,358.3,34145,2)
;;=^5008727
;;^UTILITY(U,$J,358.3,34146,0)
;;=K57.32^^105^1429^43
;;^UTILITY(U,$J,358.3,34146,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34146,1,3,0)
;;=3^Diverticulitis of Lg Intestine w/o Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,34146,1,4,0)
;;=4^K57.32
;;^UTILITY(U,$J,358.3,34146,2)
;;=^5008725
;;^UTILITY(U,$J,358.3,34147,0)
;;=K59.00^^105^1429^22
;;^UTILITY(U,$J,358.3,34147,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34147,1,3,0)
;;=3^Constipation,Unspec
;;^UTILITY(U,$J,358.3,34147,1,4,0)
;;=4^K59.00
;;^UTILITY(U,$J,358.3,34147,2)
;;=^323537
;;^UTILITY(U,$J,358.3,34148,0)
;;=K58.9^^105^1429^79
;;^UTILITY(U,$J,358.3,34148,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34148,1,3,0)
;;=3^Irritable Bowel Syndrome w/o Diarrhea
;;^UTILITY(U,$J,358.3,34148,1,4,0)
;;=4^K58.9
;;^UTILITY(U,$J,358.3,34148,2)
;;=^5008740
;;^UTILITY(U,$J,358.3,34149,0)
;;=K58.0^^105^1429^78
;;^UTILITY(U,$J,358.3,34149,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34149,1,3,0)
;;=3^Irritable Bowel Syndrome w/ Diarrhea
;;^UTILITY(U,$J,358.3,34149,1,4,0)
;;=4^K58.0
;;^UTILITY(U,$J,358.3,34149,2)
;;=^5008739
;;^UTILITY(U,$J,358.3,34150,0)
;;=K59.1^^105^1429^37
;;^UTILITY(U,$J,358.3,34150,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34150,1,3,0)
;;=3^Diarrhea,Functional
;;^UTILITY(U,$J,358.3,34150,1,4,0)
;;=4^K59.1
;;^UTILITY(U,$J,358.3,34150,2)
;;=^270281
;;^UTILITY(U,$J,358.3,34151,0)
;;=K61.4^^105^1429^4
;;^UTILITY(U,$J,358.3,34151,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34151,1,3,0)
;;=3^Abscess,Intrasphincteric
;;^UTILITY(U,$J,358.3,34151,1,4,0)
;;=4^K61.4
;;^UTILITY(U,$J,358.3,34151,2)
;;=^5008752
;;^UTILITY(U,$J,358.3,34152,0)
;;=K61.0^^105^1429^2
;;^UTILITY(U,$J,358.3,34152,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34152,1,3,0)
;;=3^Abscess,Anal
;;^UTILITY(U,$J,358.3,34152,1,4,0)
;;=4^K61.0
;;^UTILITY(U,$J,358.3,34152,2)
;;=^5008749
;;^UTILITY(U,$J,358.3,34153,0)
;;=K61.1^^105^1429^6
;;^UTILITY(U,$J,358.3,34153,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34153,1,3,0)
;;=3^Abscess,Rectal
;;^UTILITY(U,$J,358.3,34153,1,4,0)
;;=4^K61.1
;;^UTILITY(U,$J,358.3,34153,2)
;;=^259588
;;^UTILITY(U,$J,358.3,34154,0)
;;=K61.2^^105^1429^3
;;^UTILITY(U,$J,358.3,34154,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34154,1,3,0)
;;=3^Abscess,Anorectal
;;^UTILITY(U,$J,358.3,34154,1,4,0)
;;=4^K61.2
;;^UTILITY(U,$J,358.3,34154,2)
;;=^5008750
;;^UTILITY(U,$J,358.3,34155,0)
;;=K50.014^^105^1429^24
;;^UTILITY(U,$J,358.3,34155,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34155,1,3,0)
;;=3^Crohn's Disease of Small Intestine w/ Abscess
;;^UTILITY(U,$J,358.3,34155,1,4,0)
;;=4^K50.014
;;^UTILITY(U,$J,358.3,34155,2)
;;=^5008628
;;^UTILITY(U,$J,358.3,34156,0)
;;=K50.114^^105^1429^23
;;^UTILITY(U,$J,358.3,34156,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34156,1,3,0)
;;=3^Crohn's Disease of Large Intestine w/ Abscess
;;^UTILITY(U,$J,358.3,34156,1,4,0)
;;=4^K50.114
;;^UTILITY(U,$J,358.3,34156,2)
;;=^5008635
;;^UTILITY(U,$J,358.3,34157,0)
;;=D12.6^^105^1429^7
;;^UTILITY(U,$J,358.3,34157,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34157,1,3,0)
;;=3^Adenomatous Polyp of Colon
;;^UTILITY(U,$J,358.3,34157,1,4,0)
;;=4^D12.6
;;^UTILITY(U,$J,358.3,34157,2)
;;=^5001969
;;^UTILITY(U,$J,358.3,34158,0)
;;=K64.9^^105^1429^65
;;^UTILITY(U,$J,358.3,34158,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34158,1,3,0)
;;=3^Hemorrhoids w/o Complication
;;^UTILITY(U,$J,358.3,34158,1,4,0)
;;=4^K64.9
;;^UTILITY(U,$J,358.3,34158,2)
;;=^5008775
;;^UTILITY(U,$J,358.3,34159,0)
;;=K50.814^^105^1429^32
;;^UTILITY(U,$J,358.3,34159,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34159,1,3,0)
;;=3^Crohn's Disease,Small/Large Intestine w/ Abscess
;;^UTILITY(U,$J,358.3,34159,1,4,0)
;;=4^K50.814
;;^UTILITY(U,$J,358.3,34159,2)
;;=^5008642
;;^UTILITY(U,$J,358.3,34160,0)
;;=D12.9^^105^1429^9
;;^UTILITY(U,$J,358.3,34160,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34160,1,3,0)
;;=3^Benign Neop of Anus
;;^UTILITY(U,$J,358.3,34160,1,4,0)
;;=4^D12.9
;;^UTILITY(U,$J,358.3,34160,2)
;;=^5001972
;;^UTILITY(U,$J,358.3,34161,0)
;;=D12.8^^105^1429^15
;;^UTILITY(U,$J,358.3,34161,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34161,1,3,0)
;;=3^Benign Neop of Rectum
;;^UTILITY(U,$J,358.3,34161,1,4,0)
;;=4^D12.8
;;^UTILITY(U,$J,358.3,34161,2)
;;=^5001971
;;^UTILITY(U,$J,358.3,34162,0)
;;=K92.2^^105^1429^57
;;^UTILITY(U,$J,358.3,34162,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34162,1,3,0)
;;=3^GI Bleed,Unspec
;;^UTILITY(U,$J,358.3,34162,1,4,0)
;;=4^K92.2
;;^UTILITY(U,$J,358.3,34162,2)
;;=^5008915
;;^UTILITY(U,$J,358.3,34163,0)
;;=K62.5^^105^1429^8
;;^UTILITY(U,$J,358.3,34163,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,34163,1,3,0)
;;=3^BRBPR
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0DL 19767 printed Sep 23, 2025@19:22:34 Page 2
IBDEI0DL ; ; 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,34097,0)
+2 ;;=B18.9^^105^1429^72
+3 ;;^UTILITY(U,$J,358.3,34097,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,34097,1,3,0)
+6 ;;=3^Hepatitis,Chronic Viral Unspec
+7 ;;^UTILITY(U,$J,358.3,34097,1,4,0)
+8 ;;=4^B18.9
+9 ;;^UTILITY(U,$J,358.3,34097,2)
+10 ;;=^5000550
+11 ;;^UTILITY(U,$J,358.3,34098,0)
+12 ;;=B37.81^^105^1429^18
+13 ;;^UTILITY(U,$J,358.3,34098,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,34098,1,3,0)
+16 ;;=3^Candidal Esophagitis
+17 ;;^UTILITY(U,$J,358.3,34098,1,4,0)
+18 ;;=4^B37.81
+19 ;;^UTILITY(U,$J,358.3,34098,2)
+20 ;;=^5000620
+21 ;;^UTILITY(U,$J,358.3,34099,0)
+22 ;;=D12.0^^105^1429^12
+23 ;;^UTILITY(U,$J,358.3,34099,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,34099,1,3,0)
+26 ;;=3^Benign Neop of Cecum
+27 ;;^UTILITY(U,$J,358.3,34099,1,4,0)
+28 ;;=4^D12.0
+29 ;;^UTILITY(U,$J,358.3,34099,2)
+30 ;;=^5001963
+31 ;;^UTILITY(U,$J,358.3,34100,0)
+32 ;;=D12.6^^105^1429^13
+33 ;;^UTILITY(U,$J,358.3,34100,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,34100,1,3,0)
+36 ;;=3^Benign Neop of Colon,Unspec
+37 ;;^UTILITY(U,$J,358.3,34100,1,4,0)
+38 ;;=4^D12.6
+39 ;;^UTILITY(U,$J,358.3,34100,2)
+40 ;;=^5001969
+41 ;;^UTILITY(U,$J,358.3,34101,0)
+42 ;;=D12.1^^105^1429^10
+43 ;;^UTILITY(U,$J,358.3,34101,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,34101,1,3,0)
+46 ;;=3^Benign Neop of Appendix
+47 ;;^UTILITY(U,$J,358.3,34101,1,4,0)
+48 ;;=4^D12.1
+49 ;;^UTILITY(U,$J,358.3,34101,2)
+50 ;;=^5001964
+51 ;;^UTILITY(U,$J,358.3,34102,0)
+52 ;;=K63.5^^105^1429^84
+53 ;;^UTILITY(U,$J,358.3,34102,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,34102,1,3,0)
+56 ;;=3^Polyp of Colon
+57 ;;^UTILITY(U,$J,358.3,34102,1,4,0)
+58 ;;=4^K63.5
+59 ;;^UTILITY(U,$J,358.3,34102,2)
+60 ;;=^5008765
+61 ;;^UTILITY(U,$J,358.3,34103,0)
+62 ;;=D12.3^^105^1429^17
+63 ;;^UTILITY(U,$J,358.3,34103,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,34103,1,3,0)
+66 ;;=3^Benign Neop of Transverse Colon
+67 ;;^UTILITY(U,$J,358.3,34103,1,4,0)
+68 ;;=4^D12.3
+69 ;;^UTILITY(U,$J,358.3,34103,2)
+70 ;;=^5001966
+71 ;;^UTILITY(U,$J,358.3,34104,0)
+72 ;;=D12.2^^105^1429^11
+73 ;;^UTILITY(U,$J,358.3,34104,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,34104,1,3,0)
+76 ;;=3^Benign Neop of Ascending Colon
+77 ;;^UTILITY(U,$J,358.3,34104,1,4,0)
+78 ;;=4^D12.2
+79 ;;^UTILITY(U,$J,358.3,34104,2)
+80 ;;=^5001965
+81 ;;^UTILITY(U,$J,358.3,34105,0)
+82 ;;=D12.5^^105^1429^16
+83 ;;^UTILITY(U,$J,358.3,34105,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,34105,1,3,0)
+86 ;;=3^Benign Neop of Sigmoid Colon
+87 ;;^UTILITY(U,$J,358.3,34105,1,4,0)
+88 ;;=4^D12.5
+89 ;;^UTILITY(U,$J,358.3,34105,2)
+90 ;;=^5001968
+91 ;;^UTILITY(U,$J,358.3,34106,0)
+92 ;;=D12.4^^105^1429^14
+93 ;;^UTILITY(U,$J,358.3,34106,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,34106,1,3,0)
+96 ;;=3^Benign Neop of Descending Colon
+97 ;;^UTILITY(U,$J,358.3,34106,1,4,0)
+98 ;;=4^D12.4
+99 ;;^UTILITY(U,$J,358.3,34106,2)
+100 ;;=^5001967
+101 ;;^UTILITY(U,$J,358.3,34107,0)
+102 ;;=D73.2^^105^1429^19
+103 ;;^UTILITY(U,$J,358.3,34107,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,34107,1,3,0)
+106 ;;=3^Congestive Splenomegaly,Chronic
+107 ;;^UTILITY(U,$J,358.3,34107,1,4,0)
+108 ;;=4^D73.2
+109 ;;^UTILITY(U,$J,358.3,34107,2)
+110 ;;=^268000
+111 ;;^UTILITY(U,$J,358.3,34108,0)
+112 ;;=I85.00^^105^1429^53
+113 ;;^UTILITY(U,$J,358.3,34108,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,34108,1,3,0)
+116 ;;=3^Esophageal Varices w/o Bleeding
+117 ;;^UTILITY(U,$J,358.3,34108,1,4,0)
+118 ;;=4^I85.00
+119 ;;^UTILITY(U,$J,358.3,34108,2)
+120 ;;=^5008023
+121 ;;^UTILITY(U,$J,358.3,34109,0)
+122 ;;=K21.9^^105^1429^63
+123 ;;^UTILITY(U,$J,358.3,34109,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,34109,1,3,0)
+126 ;;=3^Gastroesophageal Reflux Disease w/o Esophagitis
+127 ;;^UTILITY(U,$J,358.3,34109,1,4,0)
+128 ;;=4^K21.9
+129 ;;^UTILITY(U,$J,358.3,34109,2)
+130 ;;=^5008505
+131 ;;^UTILITY(U,$J,358.3,34110,0)
+132 ;;=K25.7^^105^1429^58
+133 ;;^UTILITY(U,$J,358.3,34110,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,34110,1,3,0)
+136 ;;=3^Gastric Ulcer w/o Hemorrhage/Perforation,Chronic
+137 ;;^UTILITY(U,$J,358.3,34110,1,4,0)
+138 ;;=4^K25.7
+139 ;;^UTILITY(U,$J,358.3,34110,2)
+140 ;;=^5008521
+141 ;;^UTILITY(U,$J,358.3,34111,0)
+142 ;;=K26.9^^105^1429^49
+143 ;;^UTILITY(U,$J,358.3,34111,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,34111,1,3,0)
+146 ;;=3^Duadenal Ulcer w/o Hemorrhage/Perforation,Unspec
+147 ;;^UTILITY(U,$J,358.3,34111,1,4,0)
+148 ;;=4^K26.9
+149 ;;^UTILITY(U,$J,358.3,34111,2)
+150 ;;=^5008527
+151 ;;^UTILITY(U,$J,358.3,34112,0)
+152 ;;=K27.9^^105^1429^83
+153 ;;^UTILITY(U,$J,358.3,34112,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,34112,1,3,0)
+156 ;;=3^Peptic Ulcer w/o Hemorrhage/Perforation,Unspec
+157 ;;^UTILITY(U,$J,358.3,34112,1,4,0)
+158 ;;=4^K27.9
+159 ;;^UTILITY(U,$J,358.3,34112,2)
+160 ;;=^5008536
+161 ;;^UTILITY(U,$J,358.3,34113,0)
+162 ;;=K29.70^^105^1429^59
+163 ;;^UTILITY(U,$J,358.3,34113,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,34113,1,3,0)
+166 ;;=3^Gastritis w/o Bleeding,Unspec
+167 ;;^UTILITY(U,$J,358.3,34113,1,4,0)
+168 ;;=4^K29.70
+169 ;;^UTILITY(U,$J,358.3,34113,2)
+170 ;;=^5008552
+171 ;;^UTILITY(U,$J,358.3,34114,0)
+172 ;;=K29.90^^105^1429^60
+173 ;;^UTILITY(U,$J,358.3,34114,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,34114,1,3,0)
+176 ;;=3^Gastroduodenitis w/o Bleeding,Unspec
+177 ;;^UTILITY(U,$J,358.3,34114,1,4,0)
+178 ;;=4^K29.90
+179 ;;^UTILITY(U,$J,358.3,34114,2)
+180 ;;=^5008556
+181 ;;^UTILITY(U,$J,358.3,34115,0)
+182 ;;=K30.^^105^1429^50
+183 ;;^UTILITY(U,$J,358.3,34115,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,34115,1,3,0)
+186 ;;=3^Dyspepsia,Functional
+187 ;;^UTILITY(U,$J,358.3,34115,1,4,0)
+188 ;;=4^K30.
+189 ;;^UTILITY(U,$J,358.3,34115,2)
+190 ;;=^5008558
+191 ;;^UTILITY(U,$J,358.3,34116,0)
+192 ;;=K31.89^^105^1429^39
+193 ;;^UTILITY(U,$J,358.3,34116,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,34116,1,3,0)
+196 ;;=3^Diseases of Stomach & Duodenum,Other
+197 ;;^UTILITY(U,$J,358.3,34116,1,4,0)
+198 ;;=4^K31.89
+199 ;;^UTILITY(U,$J,358.3,34116,2)
+200 ;;=^5008569
+201 ;;^UTILITY(U,$J,358.3,34117,0)
+202 ;;=K31.9^^105^1429^38
+203 ;;^UTILITY(U,$J,358.3,34117,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,34117,1,3,0)
+206 ;;=3^Disease of Stomach & Duodenum,Unspec
+207 ;;^UTILITY(U,$J,358.3,34117,1,4,0)
+208 ;;=4^K31.9
+209 ;;^UTILITY(U,$J,358.3,34117,2)
+210 ;;=^5008570
+211 ;;^UTILITY(U,$J,358.3,34118,0)
+212 ;;=K40.90^^105^1429^76
+213 ;;^UTILITY(U,$J,358.3,34118,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,34118,1,3,0)
+216 ;;=3^Inguinal Hernia,Unilat w/o Obst or Gangrene
+217 ;;^UTILITY(U,$J,358.3,34118,1,4,0)
+218 ;;=4^K40.90
+219 ;;^UTILITY(U,$J,358.3,34118,2)
+220 ;;=^5008591
+221 ;;^UTILITY(U,$J,358.3,34119,0)
+222 ;;=K40.20^^105^1429^75
+223 ;;^UTILITY(U,$J,358.3,34119,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,34119,1,3,0)
+226 ;;=3^Inguinal Hernia,Bilat w/o Obst or Gangrene
+227 ;;^UTILITY(U,$J,358.3,34119,1,4,0)
+228 ;;=4^K40.20
+229 ;;^UTILITY(U,$J,358.3,34119,2)
+230 ;;=^5008585
+231 ;;^UTILITY(U,$J,358.3,34120,0)
+232 ;;=K44.9^^105^1429^36
+233 ;;^UTILITY(U,$J,358.3,34120,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,34120,1,3,0)
+236 ;;=3^Diaphragmatic Hernia w/o Obst or Gangrene
+237 ;;^UTILITY(U,$J,358.3,34120,1,4,0)
+238 ;;=4^K44.9
+239 ;;^UTILITY(U,$J,358.3,34120,2)
+240 ;;=^5008617
+241 ;;^UTILITY(U,$J,358.3,34121,0)
+242 ;;=K46.9^^105^1429^1
+243 ;;^UTILITY(U,$J,358.3,34121,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,34121,1,3,0)
+246 ;;=3^Abdominal Hernia w/o Obst or Gangrene,Unspec
+247 ;;^UTILITY(U,$J,358.3,34121,1,4,0)
+248 ;;=4^K46.9
+249 ;;^UTILITY(U,$J,358.3,34121,2)
+250 ;;=^5008623
+251 ;;^UTILITY(U,$J,358.3,34122,0)
+252 ;;=K50.90^^105^1429^31
+253 ;;^UTILITY(U,$J,358.3,34122,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,34122,1,3,0)
+256 ;;=3^Crohn's Disease w/o Complications,Unspec
+257 ;;^UTILITY(U,$J,358.3,34122,1,4,0)
+258 ;;=4^K50.90
+259 ;;^UTILITY(U,$J,358.3,34122,2)
+260 ;;=^5008645
+261 ;;^UTILITY(U,$J,358.3,34123,0)
+262 ;;=K50.911^^105^1429^29
+263 ;;^UTILITY(U,$J,358.3,34123,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,34123,1,3,0)
+266 ;;=3^Crohn's Disease w/ Rectal Bleeding,Unspec
+267 ;;^UTILITY(U,$J,358.3,34123,1,4,0)
+268 ;;=4^K50.911
+269 ;;^UTILITY(U,$J,358.3,34123,2)
+270 ;;=^5008646
+271 ;;^UTILITY(U,$J,358.3,34124,0)
+272 ;;=K50.912^^105^1429^27
+273 ;;^UTILITY(U,$J,358.3,34124,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,34124,1,3,0)
+276 ;;=3^Crohn's Disease w/ Intestinal Obstruction,Unspec
+277 ;;^UTILITY(U,$J,358.3,34124,1,4,0)
+278 ;;=4^K50.912
+279 ;;^UTILITY(U,$J,358.3,34124,2)
+280 ;;=^5008647
+281 ;;^UTILITY(U,$J,358.3,34125,0)
+282 ;;=K50.919^^105^1429^30
+283 ;;^UTILITY(U,$J,358.3,34125,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,34125,1,3,0)
+286 ;;=3^Crohn's Disease w/ Unspec Complications,Unspec
+287 ;;^UTILITY(U,$J,358.3,34125,1,4,0)
+288 ;;=4^K50.919
+289 ;;^UTILITY(U,$J,358.3,34125,2)
+290 ;;=^5008651
+291 ;;^UTILITY(U,$J,358.3,34126,0)
+292 ;;=K50.914^^105^1429^25
+293 ;;^UTILITY(U,$J,358.3,34126,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,34126,1,3,0)
+296 ;;=3^Crohn's Disease w/ Abscess,Unspec
+297 ;;^UTILITY(U,$J,358.3,34126,1,4,0)
+298 ;;=4^K50.914
+299 ;;^UTILITY(U,$J,358.3,34126,2)
+300 ;;=^5008649
+301 ;;^UTILITY(U,$J,358.3,34127,0)
+302 ;;=K50.913^^105^1429^26
+303 ;;^UTILITY(U,$J,358.3,34127,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,34127,1,3,0)
+306 ;;=3^Crohn's Disease w/ Fistula,Unspec
+307 ;;^UTILITY(U,$J,358.3,34127,1,4,0)
+308 ;;=4^K50.913
+309 ;;^UTILITY(U,$J,358.3,34127,2)
+310 ;;=^5008648
+311 ;;^UTILITY(U,$J,358.3,34128,0)
+312 ;;=K50.918^^105^1429^28
+313 ;;^UTILITY(U,$J,358.3,34128,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,34128,1,3,0)
+316 ;;=3^Crohn's Disease w/ Oth Complication,Unspec
+317 ;;^UTILITY(U,$J,358.3,34128,1,4,0)
+318 ;;=4^K50.918
+319 ;;^UTILITY(U,$J,358.3,34128,2)
+320 ;;=^5008650
+321 ;;^UTILITY(U,$J,358.3,34129,0)
+322 ;;=K51.90^^105^1429^91
+323 ;;^UTILITY(U,$J,358.3,34129,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,34129,1,3,0)
+326 ;;=3^Ulcerative Colitis w/o Complications,Unspec
+327 ;;^UTILITY(U,$J,358.3,34129,1,4,0)
+328 ;;=4^K51.90
+329 ;;^UTILITY(U,$J,358.3,34129,2)
+330 ;;=^5008694
+331 ;;^UTILITY(U,$J,358.3,34130,0)
+332 ;;=K51.919^^105^1429^90
+333 ;;^UTILITY(U,$J,358.3,34130,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,34130,1,3,0)
+336 ;;=3^Ulcerative Colitis w/ Unspec Complications,Unspec
+337 ;;^UTILITY(U,$J,358.3,34130,1,4,0)
+338 ;;=4^K51.919
+339 ;;^UTILITY(U,$J,358.3,34130,2)
+340 ;;=^5008700
+341 ;;^UTILITY(U,$J,358.3,34131,0)
+342 ;;=K51.918^^105^1429^88
+343 ;;^UTILITY(U,$J,358.3,34131,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,34131,1,3,0)
+346 ;;=3^Ulcerative Colitis w/ Oth Complication,Unspec
+347 ;;^UTILITY(U,$J,358.3,34131,1,4,0)
+348 ;;=4^K51.918
+349 ;;^UTILITY(U,$J,358.3,34131,2)
+350 ;;=^5008699
+351 ;;^UTILITY(U,$J,358.3,34132,0)
+352 ;;=K51.914^^105^1429^85
+353 ;;^UTILITY(U,$J,358.3,34132,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,34132,1,3,0)
+356 ;;=3^Ulcerative Colitis w/ Abscess,Unspec
+357 ;;^UTILITY(U,$J,358.3,34132,1,4,0)
+358 ;;=4^K51.914
+359 ;;^UTILITY(U,$J,358.3,34132,2)
+360 ;;=^5008698
+361 ;;^UTILITY(U,$J,358.3,34133,0)
+362 ;;=K51.913^^105^1429^86
+363 ;;^UTILITY(U,$J,358.3,34133,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,34133,1,3,0)
+366 ;;=3^Ulcerative Colitis w/ Fistula,Unspec
+367 ;;^UTILITY(U,$J,358.3,34133,1,4,0)
+368 ;;=4^K51.913
+369 ;;^UTILITY(U,$J,358.3,34133,2)
+370 ;;=^5008697
+371 ;;^UTILITY(U,$J,358.3,34134,0)
+372 ;;=K51.912^^105^1429^87
+373 ;;^UTILITY(U,$J,358.3,34134,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,34134,1,3,0)
+376 ;;=3^Ulcerative Colitis w/ Intestinal Obstruction,Unspec
+377 ;;^UTILITY(U,$J,358.3,34134,1,4,0)
+378 ;;=4^K51.912
+379 ;;^UTILITY(U,$J,358.3,34134,2)
+380 ;;=^5008696
+381 ;;^UTILITY(U,$J,358.3,34135,0)
+382 ;;=K51.911^^105^1429^89
+383 ;;^UTILITY(U,$J,358.3,34135,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,34135,1,3,0)
+386 ;;=3^Ulcerative Colitis w/ Rectal Bleeding,Unspec
+387 ;;^UTILITY(U,$J,358.3,34135,1,4,0)
+388 ;;=4^K51.911
+389 ;;^UTILITY(U,$J,358.3,34135,2)
+390 ;;=^5008695
+391 ;;^UTILITY(U,$J,358.3,34136,0)
+392 ;;=K52.89^^105^1429^62
+393 ;;^UTILITY(U,$J,358.3,34136,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,34136,1,3,0)
+396 ;;=3^Gastroenteritis & Colitis,Oth Spec Noninfective
+397 ;;^UTILITY(U,$J,358.3,34136,1,4,0)
+398 ;;=4^K52.89
+399 ;;^UTILITY(U,$J,358.3,34136,2)
+400 ;;=^5008703
+401 ;;^UTILITY(U,$J,358.3,34137,0)
+402 ;;=K52.9^^105^1429^61
+403 ;;^UTILITY(U,$J,358.3,34137,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,34137,1,3,0)
+406 ;;=3^Gastroenteritis & Colitis,Noninfective Unspec
+407 ;;^UTILITY(U,$J,358.3,34137,1,4,0)
+408 ;;=4^K52.9
+409 ;;^UTILITY(U,$J,358.3,34137,2)
+410 ;;=^5008704
+411 ;;^UTILITY(U,$J,358.3,34138,0)
+412 ;;=K57.30^^105^1429^47
+413 ;;^UTILITY(U,$J,358.3,34138,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,34138,1,3,0)
+416 ;;=3^Diverticulosis of Lg Intestine w/o Perforation/Abscess w/o Bleeding
+417 ;;^UTILITY(U,$J,358.3,34138,1,4,0)
+418 ;;=4^K57.30
+419 ;;^UTILITY(U,$J,358.3,34138,2)
+420 ;;=^5008723
+421 ;;^UTILITY(U,$J,358.3,34139,0)
+422 ;;=K57.50^^105^1429^48
+423 ;;^UTILITY(U,$J,358.3,34139,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,34139,1,3,0)
+426 ;;=3^Diverticulosis of Sm & Lg Intestine w/o Performation/Abscess w/o Bleeding
+427 ;;^UTILITY(U,$J,358.3,34139,1,4,0)
+428 ;;=4^K57.50
+429 ;;^UTILITY(U,$J,358.3,34139,2)
+430 ;;=^5008729
+431 ;;^UTILITY(U,$J,358.3,34140,0)
+432 ;;=K57.90^^105^1429^46
+433 ;;^UTILITY(U,$J,358.3,34140,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,34140,1,3,0)
+436 ;;=3^Diverticulosis of Intestine,Unspec w/o Performation/Abscess w/o Bleeding
+437 ;;^UTILITY(U,$J,358.3,34140,1,4,0)
+438 ;;=4^K57.90
+439 ;;^UTILITY(U,$J,358.3,34140,2)
+440 ;;=^5008735
+441 ;;^UTILITY(U,$J,358.3,34141,0)
+442 ;;=K57.20^^105^1429^42
+443 ;;^UTILITY(U,$J,358.3,34141,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,34141,1,3,0)
+446 ;;=3^Diverticulitis of Lg Intestine w/ Performation/Abscess w/o Bleeding
+447 ;;^UTILITY(U,$J,358.3,34141,1,4,0)
+448 ;;=4^K57.20
+449 ;;^UTILITY(U,$J,358.3,34141,2)
+450 ;;=^5008721
+451 ;;^UTILITY(U,$J,358.3,34142,0)
+452 ;;=K57.92^^105^1429^41
+453 ;;^UTILITY(U,$J,358.3,34142,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,34142,1,3,0)
+456 ;;=3^Diverticulitis of Intestine,Unspec w/o Perforation/Abscess w/o Bleeding
+457 ;;^UTILITY(U,$J,358.3,34142,1,4,0)
+458 ;;=4^K57.92
+459 ;;^UTILITY(U,$J,358.3,34142,2)
+460 ;;=^5008737
+461 ;;^UTILITY(U,$J,358.3,34143,0)
+462 ;;=K57.80^^105^1429^40
+463 ;;^UTILITY(U,$J,358.3,34143,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,34143,1,3,0)
+466 ;;=3^Diverticulitis of Intestine,Unspec w/ Perforation/Abscess w/o Bleeding
+467 ;;^UTILITY(U,$J,358.3,34143,1,4,0)
+468 ;;=4^K57.80
+469 ;;^UTILITY(U,$J,358.3,34143,2)
+470 ;;=^5008733
+471 ;;^UTILITY(U,$J,358.3,34144,0)
+472 ;;=K57.52^^105^1429^45
+473 ;;^UTILITY(U,$J,358.3,34144,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,34144,1,3,0)
+476 ;;=3^Diverticulitis of Sm & Lg Intestine w/o Perforation/Abscess w/o Bleeding
+477 ;;^UTILITY(U,$J,358.3,34144,1,4,0)
+478 ;;=4^K57.52
+479 ;;^UTILITY(U,$J,358.3,34144,2)
+480 ;;=^5008731
+481 ;;^UTILITY(U,$J,358.3,34145,0)
+482 ;;=K57.40^^105^1429^44
+483 ;;^UTILITY(U,$J,358.3,34145,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,34145,1,3,0)
+486 ;;=3^Diverticulitis of Sm & Lg Intestine w/ Perforation/Abscess w/o Bleeding
+487 ;;^UTILITY(U,$J,358.3,34145,1,4,0)
+488 ;;=4^K57.40
+489 ;;^UTILITY(U,$J,358.3,34145,2)
+490 ;;=^5008727
+491 ;;^UTILITY(U,$J,358.3,34146,0)
+492 ;;=K57.32^^105^1429^43
+493 ;;^UTILITY(U,$J,358.3,34146,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,34146,1,3,0)
+496 ;;=3^Diverticulitis of Lg Intestine w/o Perforation/Abscess w/o Bleeding
+497 ;;^UTILITY(U,$J,358.3,34146,1,4,0)
+498 ;;=4^K57.32
+499 ;;^UTILITY(U,$J,358.3,34146,2)
+500 ;;=^5008725
+501 ;;^UTILITY(U,$J,358.3,34147,0)
+502 ;;=K59.00^^105^1429^22
+503 ;;^UTILITY(U,$J,358.3,34147,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,34147,1,3,0)
+506 ;;=3^Constipation,Unspec
+507 ;;^UTILITY(U,$J,358.3,34147,1,4,0)
+508 ;;=4^K59.00
+509 ;;^UTILITY(U,$J,358.3,34147,2)
+510 ;;=^323537
+511 ;;^UTILITY(U,$J,358.3,34148,0)
+512 ;;=K58.9^^105^1429^79
+513 ;;^UTILITY(U,$J,358.3,34148,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,34148,1,3,0)
+516 ;;=3^Irritable Bowel Syndrome w/o Diarrhea
+517 ;;^UTILITY(U,$J,358.3,34148,1,4,0)
+518 ;;=4^K58.9
+519 ;;^UTILITY(U,$J,358.3,34148,2)
+520 ;;=^5008740
+521 ;;^UTILITY(U,$J,358.3,34149,0)
+522 ;;=K58.0^^105^1429^78
+523 ;;^UTILITY(U,$J,358.3,34149,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,34149,1,3,0)
+526 ;;=3^Irritable Bowel Syndrome w/ Diarrhea
+527 ;;^UTILITY(U,$J,358.3,34149,1,4,0)
+528 ;;=4^K58.0
+529 ;;^UTILITY(U,$J,358.3,34149,2)
+530 ;;=^5008739
+531 ;;^UTILITY(U,$J,358.3,34150,0)
+532 ;;=K59.1^^105^1429^37
+533 ;;^UTILITY(U,$J,358.3,34150,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,34150,1,3,0)
+536 ;;=3^Diarrhea,Functional
+537 ;;^UTILITY(U,$J,358.3,34150,1,4,0)
+538 ;;=4^K59.1
+539 ;;^UTILITY(U,$J,358.3,34150,2)
+540 ;;=^270281
+541 ;;^UTILITY(U,$J,358.3,34151,0)
+542 ;;=K61.4^^105^1429^4
+543 ;;^UTILITY(U,$J,358.3,34151,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,34151,1,3,0)
+546 ;;=3^Abscess,Intrasphincteric
+547 ;;^UTILITY(U,$J,358.3,34151,1,4,0)
+548 ;;=4^K61.4
+549 ;;^UTILITY(U,$J,358.3,34151,2)
+550 ;;=^5008752
+551 ;;^UTILITY(U,$J,358.3,34152,0)
+552 ;;=K61.0^^105^1429^2
+553 ;;^UTILITY(U,$J,358.3,34152,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,34152,1,3,0)
+556 ;;=3^Abscess,Anal
+557 ;;^UTILITY(U,$J,358.3,34152,1,4,0)
+558 ;;=4^K61.0
+559 ;;^UTILITY(U,$J,358.3,34152,2)
+560 ;;=^5008749
+561 ;;^UTILITY(U,$J,358.3,34153,0)
+562 ;;=K61.1^^105^1429^6
+563 ;;^UTILITY(U,$J,358.3,34153,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,34153,1,3,0)
+566 ;;=3^Abscess,Rectal
+567 ;;^UTILITY(U,$J,358.3,34153,1,4,0)
+568 ;;=4^K61.1
+569 ;;^UTILITY(U,$J,358.3,34153,2)
+570 ;;=^259588
+571 ;;^UTILITY(U,$J,358.3,34154,0)
+572 ;;=K61.2^^105^1429^3
+573 ;;^UTILITY(U,$J,358.3,34154,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,34154,1,3,0)
+576 ;;=3^Abscess,Anorectal
+577 ;;^UTILITY(U,$J,358.3,34154,1,4,0)
+578 ;;=4^K61.2
+579 ;;^UTILITY(U,$J,358.3,34154,2)
+580 ;;=^5008750
+581 ;;^UTILITY(U,$J,358.3,34155,0)
+582 ;;=K50.014^^105^1429^24
+583 ;;^UTILITY(U,$J,358.3,34155,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,34155,1,3,0)
+586 ;;=3^Crohn's Disease of Small Intestine w/ Abscess
+587 ;;^UTILITY(U,$J,358.3,34155,1,4,0)
+588 ;;=4^K50.014
+589 ;;^UTILITY(U,$J,358.3,34155,2)
+590 ;;=^5008628
+591 ;;^UTILITY(U,$J,358.3,34156,0)
+592 ;;=K50.114^^105^1429^23
+593 ;;^UTILITY(U,$J,358.3,34156,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,34156,1,3,0)
+596 ;;=3^Crohn's Disease of Large Intestine w/ Abscess
+597 ;;^UTILITY(U,$J,358.3,34156,1,4,0)
+598 ;;=4^K50.114
+599 ;;^UTILITY(U,$J,358.3,34156,2)
+600 ;;=^5008635
+601 ;;^UTILITY(U,$J,358.3,34157,0)
+602 ;;=D12.6^^105^1429^7
+603 ;;^UTILITY(U,$J,358.3,34157,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,34157,1,3,0)
+606 ;;=3^Adenomatous Polyp of Colon
+607 ;;^UTILITY(U,$J,358.3,34157,1,4,0)
+608 ;;=4^D12.6
+609 ;;^UTILITY(U,$J,358.3,34157,2)
+610 ;;=^5001969
+611 ;;^UTILITY(U,$J,358.3,34158,0)
+612 ;;=K64.9^^105^1429^65
+613 ;;^UTILITY(U,$J,358.3,34158,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,34158,1,3,0)
+616 ;;=3^Hemorrhoids w/o Complication
+617 ;;^UTILITY(U,$J,358.3,34158,1,4,0)
+618 ;;=4^K64.9
+619 ;;^UTILITY(U,$J,358.3,34158,2)
+620 ;;=^5008775
+621 ;;^UTILITY(U,$J,358.3,34159,0)
+622 ;;=K50.814^^105^1429^32
+623 ;;^UTILITY(U,$J,358.3,34159,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,34159,1,3,0)
+626 ;;=3^Crohn's Disease,Small/Large Intestine w/ Abscess
+627 ;;^UTILITY(U,$J,358.3,34159,1,4,0)
+628 ;;=4^K50.814
+629 ;;^UTILITY(U,$J,358.3,34159,2)
+630 ;;=^5008642
+631 ;;^UTILITY(U,$J,358.3,34160,0)
+632 ;;=D12.9^^105^1429^9
+633 ;;^UTILITY(U,$J,358.3,34160,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,34160,1,3,0)
+636 ;;=3^Benign Neop of Anus
+637 ;;^UTILITY(U,$J,358.3,34160,1,4,0)
+638 ;;=4^D12.9
+639 ;;^UTILITY(U,$J,358.3,34160,2)
+640 ;;=^5001972
+641 ;;^UTILITY(U,$J,358.3,34161,0)
+642 ;;=D12.8^^105^1429^15
+643 ;;^UTILITY(U,$J,358.3,34161,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,34161,1,3,0)
+646 ;;=3^Benign Neop of Rectum
+647 ;;^UTILITY(U,$J,358.3,34161,1,4,0)
+648 ;;=4^D12.8
+649 ;;^UTILITY(U,$J,358.3,34161,2)
+650 ;;=^5001971
+651 ;;^UTILITY(U,$J,358.3,34162,0)
+652 ;;=K92.2^^105^1429^57
+653 ;;^UTILITY(U,$J,358.3,34162,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,34162,1,3,0)
+656 ;;=3^GI Bleed,Unspec
+657 ;;^UTILITY(U,$J,358.3,34162,1,4,0)
+658 ;;=4^K92.2
+659 ;;^UTILITY(U,$J,358.3,34162,2)
+660 ;;=^5008915
+661 ;;^UTILITY(U,$J,358.3,34163,0)
+662 ;;=K62.5^^105^1429^8
+663 ;;^UTILITY(U,$J,358.3,34163,1,0)
+664 ;;=^358.31IA^4^2
+665 ;;^UTILITY(U,$J,358.3,34163,1,3,0)
+666 ;;=3^BRBPR
