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