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

IBDEI090.m

Go to the documentation of this file.
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