IBDEI067 ; ; 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,15028,1,3,0)
;;=3^Inguinal Hernia,Bilat w/o Obst or Gangrene
;;^UTILITY(U,$J,358.3,15028,1,4,0)
;;=4^K40.20
;;^UTILITY(U,$J,358.3,15028,2)
;;=^5008585
;;^UTILITY(U,$J,358.3,15029,0)
;;=K44.9^^56^640^36
;;^UTILITY(U,$J,358.3,15029,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15029,1,3,0)
;;=3^Diaphragmatic Hernia w/o Obst or Gangrene
;;^UTILITY(U,$J,358.3,15029,1,4,0)
;;=4^K44.9
;;^UTILITY(U,$J,358.3,15029,2)
;;=^5008617
;;^UTILITY(U,$J,358.3,15030,0)
;;=K46.9^^56^640^1
;;^UTILITY(U,$J,358.3,15030,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15030,1,3,0)
;;=3^Abdominal Hernia w/o Obst or Gangrene,Unspec
;;^UTILITY(U,$J,358.3,15030,1,4,0)
;;=4^K46.9
;;^UTILITY(U,$J,358.3,15030,2)
;;=^5008623
;;^UTILITY(U,$J,358.3,15031,0)
;;=K50.90^^56^640^31
;;^UTILITY(U,$J,358.3,15031,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15031,1,3,0)
;;=3^Crohn's Disease w/o Complications,Unspec
;;^UTILITY(U,$J,358.3,15031,1,4,0)
;;=4^K50.90
;;^UTILITY(U,$J,358.3,15031,2)
;;=^5008645
;;^UTILITY(U,$J,358.3,15032,0)
;;=K50.911^^56^640^29
;;^UTILITY(U,$J,358.3,15032,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15032,1,3,0)
;;=3^Crohn's Disease w/ Rectal Bleeding,Unspec
;;^UTILITY(U,$J,358.3,15032,1,4,0)
;;=4^K50.911
;;^UTILITY(U,$J,358.3,15032,2)
;;=^5008646
;;^UTILITY(U,$J,358.3,15033,0)
;;=K50.912^^56^640^27
;;^UTILITY(U,$J,358.3,15033,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15033,1,3,0)
;;=3^Crohn's Disease w/ Intestinal Obstruction,Unspec
;;^UTILITY(U,$J,358.3,15033,1,4,0)
;;=4^K50.912
;;^UTILITY(U,$J,358.3,15033,2)
;;=^5008647
;;^UTILITY(U,$J,358.3,15034,0)
;;=K50.919^^56^640^30
;;^UTILITY(U,$J,358.3,15034,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15034,1,3,0)
;;=3^Crohn's Disease w/ Unspec Complications,Unspec
;;^UTILITY(U,$J,358.3,15034,1,4,0)
;;=4^K50.919
;;^UTILITY(U,$J,358.3,15034,2)
;;=^5008651
;;^UTILITY(U,$J,358.3,15035,0)
;;=K50.914^^56^640^25
;;^UTILITY(U,$J,358.3,15035,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15035,1,3,0)
;;=3^Crohn's Disease w/ Abscess,Unspec
;;^UTILITY(U,$J,358.3,15035,1,4,0)
;;=4^K50.914
;;^UTILITY(U,$J,358.3,15035,2)
;;=^5008649
;;^UTILITY(U,$J,358.3,15036,0)
;;=K50.913^^56^640^26
;;^UTILITY(U,$J,358.3,15036,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15036,1,3,0)
;;=3^Crohn's Disease w/ Fistula,Unspec
;;^UTILITY(U,$J,358.3,15036,1,4,0)
;;=4^K50.913
;;^UTILITY(U,$J,358.3,15036,2)
;;=^5008648
;;^UTILITY(U,$J,358.3,15037,0)
;;=K50.918^^56^640^28
;;^UTILITY(U,$J,358.3,15037,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15037,1,3,0)
;;=3^Crohn's Disease w/ Oth Complication,Unspec
;;^UTILITY(U,$J,358.3,15037,1,4,0)
;;=4^K50.918
;;^UTILITY(U,$J,358.3,15037,2)
;;=^5008650
;;^UTILITY(U,$J,358.3,15038,0)
;;=K51.90^^56^640^91
;;^UTILITY(U,$J,358.3,15038,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15038,1,3,0)
;;=3^Ulcerative Colitis w/o Complications,Unspec
;;^UTILITY(U,$J,358.3,15038,1,4,0)
;;=4^K51.90
;;^UTILITY(U,$J,358.3,15038,2)
;;=^5008694
;;^UTILITY(U,$J,358.3,15039,0)
;;=K51.919^^56^640^90
;;^UTILITY(U,$J,358.3,15039,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15039,1,3,0)
;;=3^Ulcerative Colitis w/ Unspec Complications,Unspec
;;^UTILITY(U,$J,358.3,15039,1,4,0)
;;=4^K51.919
;;^UTILITY(U,$J,358.3,15039,2)
;;=^5008700
;;^UTILITY(U,$J,358.3,15040,0)
;;=K51.918^^56^640^88
;;^UTILITY(U,$J,358.3,15040,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15040,1,3,0)
;;=3^Ulcerative Colitis w/ Oth Complication,Unspec
;;^UTILITY(U,$J,358.3,15040,1,4,0)
;;=4^K51.918
;;^UTILITY(U,$J,358.3,15040,2)
;;=^5008699
;;^UTILITY(U,$J,358.3,15041,0)
;;=K51.914^^56^640^85
;;^UTILITY(U,$J,358.3,15041,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15041,1,3,0)
;;=3^Ulcerative Colitis w/ Abscess,Unspec
;;^UTILITY(U,$J,358.3,15041,1,4,0)
;;=4^K51.914
;;^UTILITY(U,$J,358.3,15041,2)
;;=^5008698
;;^UTILITY(U,$J,358.3,15042,0)
;;=K51.913^^56^640^86
;;^UTILITY(U,$J,358.3,15042,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15042,1,3,0)
;;=3^Ulcerative Colitis w/ Fistula,Unspec
;;^UTILITY(U,$J,358.3,15042,1,4,0)
;;=4^K51.913
;;^UTILITY(U,$J,358.3,15042,2)
;;=^5008697
;;^UTILITY(U,$J,358.3,15043,0)
;;=K51.912^^56^640^87
;;^UTILITY(U,$J,358.3,15043,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15043,1,3,0)
;;=3^Ulcerative Colitis w/ Intestinal Obstruction,Unspec
;;^UTILITY(U,$J,358.3,15043,1,4,0)
;;=4^K51.912
;;^UTILITY(U,$J,358.3,15043,2)
;;=^5008696
;;^UTILITY(U,$J,358.3,15044,0)
;;=K51.911^^56^640^89
;;^UTILITY(U,$J,358.3,15044,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15044,1,3,0)
;;=3^Ulcerative Colitis w/ Rectal Bleeding,Unspec
;;^UTILITY(U,$J,358.3,15044,1,4,0)
;;=4^K51.911
;;^UTILITY(U,$J,358.3,15044,2)
;;=^5008695
;;^UTILITY(U,$J,358.3,15045,0)
;;=K52.89^^56^640^62
;;^UTILITY(U,$J,358.3,15045,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15045,1,3,0)
;;=3^Gastroenteritis & Colitis,Oth Spec Noninfective
;;^UTILITY(U,$J,358.3,15045,1,4,0)
;;=4^K52.89
;;^UTILITY(U,$J,358.3,15045,2)
;;=^5008703
;;^UTILITY(U,$J,358.3,15046,0)
;;=K52.9^^56^640^61
;;^UTILITY(U,$J,358.3,15046,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15046,1,3,0)
;;=3^Gastroenteritis & Colitis,Noninfective Unspec
;;^UTILITY(U,$J,358.3,15046,1,4,0)
;;=4^K52.9
;;^UTILITY(U,$J,358.3,15046,2)
;;=^5008704
;;^UTILITY(U,$J,358.3,15047,0)
;;=K57.30^^56^640^47
;;^UTILITY(U,$J,358.3,15047,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15047,1,3,0)
;;=3^Diverticulosis of Lg Intestine w/o Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,15047,1,4,0)
;;=4^K57.30
;;^UTILITY(U,$J,358.3,15047,2)
;;=^5008723
;;^UTILITY(U,$J,358.3,15048,0)
;;=K57.50^^56^640^48
;;^UTILITY(U,$J,358.3,15048,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15048,1,3,0)
;;=3^Diverticulosis of Sm & Lg Intestine w/o Performation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,15048,1,4,0)
;;=4^K57.50
;;^UTILITY(U,$J,358.3,15048,2)
;;=^5008729
;;^UTILITY(U,$J,358.3,15049,0)
;;=K57.90^^56^640^46
;;^UTILITY(U,$J,358.3,15049,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15049,1,3,0)
;;=3^Diverticulosis of Intestine,Unspec w/o Performation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,15049,1,4,0)
;;=4^K57.90
;;^UTILITY(U,$J,358.3,15049,2)
;;=^5008735
;;^UTILITY(U,$J,358.3,15050,0)
;;=K57.20^^56^640^42
;;^UTILITY(U,$J,358.3,15050,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15050,1,3,0)
;;=3^Diverticulitis of Lg Intestine w/ Performation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,15050,1,4,0)
;;=4^K57.20
;;^UTILITY(U,$J,358.3,15050,2)
;;=^5008721
;;^UTILITY(U,$J,358.3,15051,0)
;;=K57.92^^56^640^41
;;^UTILITY(U,$J,358.3,15051,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15051,1,3,0)
;;=3^Diverticulitis of Intestine,Unspec w/o Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,15051,1,4,0)
;;=4^K57.92
;;^UTILITY(U,$J,358.3,15051,2)
;;=^5008737
;;^UTILITY(U,$J,358.3,15052,0)
;;=K57.80^^56^640^40
;;^UTILITY(U,$J,358.3,15052,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15052,1,3,0)
;;=3^Diverticulitis of Intestine,Unspec w/ Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,15052,1,4,0)
;;=4^K57.80
;;^UTILITY(U,$J,358.3,15052,2)
;;=^5008733
;;^UTILITY(U,$J,358.3,15053,0)
;;=K57.52^^56^640^45
;;^UTILITY(U,$J,358.3,15053,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15053,1,3,0)
;;=3^Diverticulitis of Sm & Lg Intestine w/o Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,15053,1,4,0)
;;=4^K57.52
;;^UTILITY(U,$J,358.3,15053,2)
;;=^5008731
;;^UTILITY(U,$J,358.3,15054,0)
;;=K57.40^^56^640^44
;;^UTILITY(U,$J,358.3,15054,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15054,1,3,0)
;;=3^Diverticulitis of Sm & Lg Intestine w/ Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,15054,1,4,0)
;;=4^K57.40
;;^UTILITY(U,$J,358.3,15054,2)
;;=^5008727
;;^UTILITY(U,$J,358.3,15055,0)
;;=K57.32^^56^640^43
;;^UTILITY(U,$J,358.3,15055,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15055,1,3,0)
;;=3^Diverticulitis of Lg Intestine w/o Perforation/Abscess w/o Bleeding
;;^UTILITY(U,$J,358.3,15055,1,4,0)
;;=4^K57.32
;;^UTILITY(U,$J,358.3,15055,2)
;;=^5008725
;;^UTILITY(U,$J,358.3,15056,0)
;;=K59.00^^56^640^22
;;^UTILITY(U,$J,358.3,15056,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15056,1,3,0)
;;=3^Constipation,Unspec
;;^UTILITY(U,$J,358.3,15056,1,4,0)
;;=4^K59.00
;;^UTILITY(U,$J,358.3,15056,2)
;;=^323537
;;^UTILITY(U,$J,358.3,15057,0)
;;=K58.9^^56^640^79
;;^UTILITY(U,$J,358.3,15057,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15057,1,3,0)
;;=3^Irritable Bowel Syndrome w/o Diarrhea
;;^UTILITY(U,$J,358.3,15057,1,4,0)
;;=4^K58.9
;;^UTILITY(U,$J,358.3,15057,2)
;;=^5008740
;;^UTILITY(U,$J,358.3,15058,0)
;;=K58.0^^56^640^78
;;^UTILITY(U,$J,358.3,15058,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15058,1,3,0)
;;=3^Irritable Bowel Syndrome w/ Diarrhea
;;^UTILITY(U,$J,358.3,15058,1,4,0)
;;=4^K58.0
;;^UTILITY(U,$J,358.3,15058,2)
;;=^5008739
;;^UTILITY(U,$J,358.3,15059,0)
;;=K59.1^^56^640^37
;;^UTILITY(U,$J,358.3,15059,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15059,1,3,0)
;;=3^Diarrhea,Functional
;;^UTILITY(U,$J,358.3,15059,1,4,0)
;;=4^K59.1
;;^UTILITY(U,$J,358.3,15059,2)
;;=^270281
;;^UTILITY(U,$J,358.3,15060,0)
;;=K61.4^^56^640^4
;;^UTILITY(U,$J,358.3,15060,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15060,1,3,0)
;;=3^Abscess,Intrasphincteric
;;^UTILITY(U,$J,358.3,15060,1,4,0)
;;=4^K61.4
;;^UTILITY(U,$J,358.3,15060,2)
;;=^5008752
;;^UTILITY(U,$J,358.3,15061,0)
;;=K61.0^^56^640^2
;;^UTILITY(U,$J,358.3,15061,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15061,1,3,0)
;;=3^Abscess,Anal
;;^UTILITY(U,$J,358.3,15061,1,4,0)
;;=4^K61.0
;;^UTILITY(U,$J,358.3,15061,2)
;;=^5008749
;;^UTILITY(U,$J,358.3,15062,0)
;;=K61.1^^56^640^6
;;^UTILITY(U,$J,358.3,15062,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15062,1,3,0)
;;=3^Abscess,Rectal
;;^UTILITY(U,$J,358.3,15062,1,4,0)
;;=4^K61.1
;;^UTILITY(U,$J,358.3,15062,2)
;;=^259588
;;^UTILITY(U,$J,358.3,15063,0)
;;=K61.2^^56^640^3
;;^UTILITY(U,$J,358.3,15063,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15063,1,3,0)
;;=3^Abscess,Anorectal
;;^UTILITY(U,$J,358.3,15063,1,4,0)
;;=4^K61.2
;;^UTILITY(U,$J,358.3,15063,2)
;;=^5008750
;;^UTILITY(U,$J,358.3,15064,0)
;;=K50.014^^56^640^24
;;^UTILITY(U,$J,358.3,15064,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15064,1,3,0)
;;=3^Crohn's Disease of Small Intestine w/ Abscess
;;^UTILITY(U,$J,358.3,15064,1,4,0)
;;=4^K50.014
;;^UTILITY(U,$J,358.3,15064,2)
;;=^5008628
;;^UTILITY(U,$J,358.3,15065,0)
;;=K50.114^^56^640^23
;;^UTILITY(U,$J,358.3,15065,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15065,1,3,0)
;;=3^Crohn's Disease of Large Intestine w/ Abscess
;;^UTILITY(U,$J,358.3,15065,1,4,0)
;;=4^K50.114
;;^UTILITY(U,$J,358.3,15065,2)
;;=^5008635
;;^UTILITY(U,$J,358.3,15066,0)
;;=D12.6^^56^640^7
;;^UTILITY(U,$J,358.3,15066,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15066,1,3,0)
;;=3^Adenomatous Polyp of Colon
;;^UTILITY(U,$J,358.3,15066,1,4,0)
;;=4^D12.6
;;^UTILITY(U,$J,358.3,15066,2)
;;=^5001969
;;^UTILITY(U,$J,358.3,15067,0)
;;=K64.9^^56^640^65
;;^UTILITY(U,$J,358.3,15067,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15067,1,3,0)
;;=3^Hemorrhoids w/o Complication
;;^UTILITY(U,$J,358.3,15067,1,4,0)
;;=4^K64.9
;;^UTILITY(U,$J,358.3,15067,2)
;;=^5008775
;;^UTILITY(U,$J,358.3,15068,0)
;;=K50.814^^56^640^32
;;^UTILITY(U,$J,358.3,15068,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15068,1,3,0)
;;=3^Crohn's Disease,Small/Large Intestine w/ Abscess
;;^UTILITY(U,$J,358.3,15068,1,4,0)
;;=4^K50.814
;;^UTILITY(U,$J,358.3,15068,2)
;;=^5008642
;;^UTILITY(U,$J,358.3,15069,0)
;;=D12.9^^56^640^9
;;^UTILITY(U,$J,358.3,15069,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15069,1,3,0)
;;=3^Benign Neop of Anus
;;^UTILITY(U,$J,358.3,15069,1,4,0)
;;=4^D12.9
;;^UTILITY(U,$J,358.3,15069,2)
;;=^5001972
;;^UTILITY(U,$J,358.3,15070,0)
;;=D12.8^^56^640^15
;;^UTILITY(U,$J,358.3,15070,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15070,1,3,0)
;;=3^Benign Neop of Rectum
;;^UTILITY(U,$J,358.3,15070,1,4,0)
;;=4^D12.8
;;^UTILITY(U,$J,358.3,15070,2)
;;=^5001971
;;^UTILITY(U,$J,358.3,15071,0)
;;=K92.2^^56^640^57
;;^UTILITY(U,$J,358.3,15071,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15071,1,3,0)
;;=3^GI Bleed,Unspec
;;^UTILITY(U,$J,358.3,15071,1,4,0)
;;=4^K92.2
;;^UTILITY(U,$J,358.3,15071,2)
;;=^5008915
;;^UTILITY(U,$J,358.3,15072,0)
;;=K62.5^^56^640^8
;;^UTILITY(U,$J,358.3,15072,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15072,1,3,0)
;;=3^BRBPR
;;^UTILITY(U,$J,358.3,15072,1,4,0)
;;=4^K62.5
;;^UTILITY(U,$J,358.3,15072,2)
;;=^5008755
;;^UTILITY(U,$J,358.3,15073,0)
;;=K92.1^^56^640^82
;;^UTILITY(U,$J,358.3,15073,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15073,1,3,0)
;;=3^Melena/Hematochezia
;;^UTILITY(U,$J,358.3,15073,1,4,0)
;;=4^K92.1
;;^UTILITY(U,$J,358.3,15073,2)
;;=^5008914
;;^UTILITY(U,$J,358.3,15074,0)
;;=R19.5^^56^640^56
;;^UTILITY(U,$J,358.3,15074,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15074,1,3,0)
;;=3^Fecal Abnormalities NEC
;;^UTILITY(U,$J,358.3,15074,1,4,0)
;;=4^R19.5
;;^UTILITY(U,$J,358.3,15074,2)
;;=^5019274
;;^UTILITY(U,$J,358.3,15075,0)
;;=E53.8^^56^640^92
;;^UTILITY(U,$J,358.3,15075,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15075,1,3,0)
;;=3^Vitamin B12 Deficiency
;;^UTILITY(U,$J,358.3,15075,1,4,0)
;;=4^E53.8
;;^UTILITY(U,$J,358.3,15075,2)
;;=^5002797
;;^UTILITY(U,$J,358.3,15076,0)
;;=K59.04^^56^640^20
;;^UTILITY(U,$J,358.3,15076,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15076,1,3,0)
;;=3^Constipation,Chronic Idiopathic
;;^UTILITY(U,$J,358.3,15076,1,4,0)
;;=4^K59.04
;;^UTILITY(U,$J,358.3,15076,2)
;;=^7148177
;;^UTILITY(U,$J,358.3,15077,0)
;;=K59.03^^56^640^21
;;^UTILITY(U,$J,358.3,15077,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15077,1,3,0)
;;=3^Constipation,Drug Induced
;;^UTILITY(U,$J,358.3,15077,1,4,0)
;;=4^K59.03
;;^UTILITY(U,$J,358.3,15077,2)
;;=^5138744
;;^UTILITY(U,$J,358.3,15078,0)
;;=K52.21^^56^640^51
;;^UTILITY(U,$J,358.3,15078,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15078,1,3,0)
;;=3^Enterocolitis Synd Induced by Food Protein
;;^UTILITY(U,$J,358.3,15078,1,4,0)
;;=4^K52.21
;;^UTILITY(U,$J,358.3,15078,2)
;;=^5138713
;;^UTILITY(U,$J,358.3,15079,0)
;;=K52.22^^56^640^52
;;^UTILITY(U,$J,358.3,15079,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15079,1,3,0)
;;=3^Enterocolopathy Induced by Food Protein
;;^UTILITY(U,$J,358.3,15079,1,4,0)
;;=4^K52.22
;;^UTILITY(U,$J,358.3,15079,2)
;;=^5138714
;;^UTILITY(U,$J,358.3,15080,0)
;;=K58.2^^56^640^80
;;^UTILITY(U,$J,358.3,15080,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15080,1,3,0)
;;=3^Irritable Bowel Syndrome,Mixed
;;^UTILITY(U,$J,358.3,15080,1,4,0)
;;=4^K58.2
;;^UTILITY(U,$J,358.3,15080,2)
;;=^5138742
;;^UTILITY(U,$J,358.3,15081,0)
;;=K58.8^^56^640^81
;;^UTILITY(U,$J,358.3,15081,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15081,1,3,0)
;;=3^Irritable Bowel Syndrome,Other
;;^UTILITY(U,$J,358.3,15081,1,4,0)
;;=4^K58.8
;;^UTILITY(U,$J,358.3,15081,2)
;;=^5138743
;;^UTILITY(U,$J,358.3,15082,0)
;;=K58.1^^56^640^77
;;^UTILITY(U,$J,358.3,15082,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15082,1,3,0)
;;=3^Irritable Bowel Syndrome w/ Constipation
;;^UTILITY(U,$J,358.3,15082,1,4,0)
;;=4^K58.1
;;^UTILITY(U,$J,358.3,15082,2)
;;=^5138741
;;^UTILITY(U,$J,358.3,15083,0)
;;=K61.39^^56^640^5
;;^UTILITY(U,$J,358.3,15083,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15083,1,3,0)
;;=3^Abscess,Ischiorectal NOS
;;^UTILITY(U,$J,358.3,15083,1,4,0)
;;=4^K61.39
;;^UTILITY(U,$J,358.3,15083,2)
;;=^5157385
;;^UTILITY(U,$J,358.3,15084,0)
;;=G43.A1^^56^640^34
;;^UTILITY(U,$J,358.3,15084,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15084,1,3,0)
;;=3^Cyclical Vomiting,In Migraine,Intractable
;;^UTILITY(U,$J,358.3,15084,1,4,0)
;;=4^G43.A1
;;^UTILITY(U,$J,358.3,15084,2)
;;=^5003913
;;^UTILITY(U,$J,358.3,15085,0)
;;=G43.A0^^56^640^35
;;^UTILITY(U,$J,358.3,15085,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15085,1,3,0)
;;=3^Cyclical Vomiting,In Migraine,Not intractable
;;^UTILITY(U,$J,358.3,15085,1,4,0)
;;=4^G43.A0
;;^UTILITY(U,$J,358.3,15085,2)
;;=^5003912
;;^UTILITY(U,$J,358.3,15086,0)
;;=R11.15^^56^640^33
;;^UTILITY(U,$J,358.3,15086,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15086,1,3,0)
;;=3^Cyclical Vomiting Syndrome,Unrelated to Migraine
;;^UTILITY(U,$J,358.3,15086,1,4,0)
;;=4^R11.15
;;^UTILITY(U,$J,358.3,15086,2)
;;=^5158141
;;^UTILITY(U,$J,358.3,15087,0)
;;=K20.90^^56^640^55
;;^UTILITY(U,$J,358.3,15087,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15087,1,3,0)
;;=3^Esophagitis w/o Bleeding,Unspec
;;^UTILITY(U,$J,358.3,15087,1,4,0)
;;=4^K20.90
;;^UTILITY(U,$J,358.3,15087,2)
;;=^5159212
;;^UTILITY(U,$J,358.3,15088,0)
;;=K20.91^^56^640^54
;;^UTILITY(U,$J,358.3,15088,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15088,1,3,0)
;;=3^Esophagitis w/ Bleeding,Unspec
;;^UTILITY(U,$J,358.3,15088,1,4,0)
;;=4^K20.91
;;^UTILITY(U,$J,358.3,15088,2)
;;=^5159213
;;^UTILITY(U,$J,358.3,15089,0)
;;=A54.00^^56^641^52
;;^UTILITY(U,$J,358.3,15089,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15089,1,3,0)
;;=3^Gonococcal Infection Lower Genitourinary Tract,Unspec
;;^UTILITY(U,$J,358.3,15089,1,4,0)
;;=4^A54.00
;;^UTILITY(U,$J,358.3,15089,2)
;;=^5000311
;;^UTILITY(U,$J,358.3,15090,0)
;;=A54.09^^56^641^53
;;^UTILITY(U,$J,358.3,15090,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15090,1,3,0)
;;=3^Gonococcal Infection Lower Genitourinary Tract,Other
;;^UTILITY(U,$J,358.3,15090,1,4,0)
;;=4^A54.09
;;^UTILITY(U,$J,358.3,15090,2)
;;=^5000315
;;^UTILITY(U,$J,358.3,15091,0)
;;=A54.02^^56^641^54
;;^UTILITY(U,$J,358.3,15091,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15091,1,3,0)
;;=3^Gonococcal Vulvovaginitis,Unspec
;;^UTILITY(U,$J,358.3,15091,1,4,0)
;;=4^A54.02
;;^UTILITY(U,$J,358.3,15091,2)
;;=^5000313
;;^UTILITY(U,$J,358.3,15092,0)
;;=A54.1^^56^641^51
;;^UTILITY(U,$J,358.3,15092,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15092,1,3,0)
;;=3^Gonococcal Infection Lower GU Tract w/ Periureth & Acc Gland Abscess
;;^UTILITY(U,$J,358.3,15092,1,4,0)
;;=4^A54.1
;;^UTILITY(U,$J,358.3,15092,2)
;;=^5000316
;;^UTILITY(U,$J,358.3,15093,0)
;;=A54.01^^56^641^50
;;^UTILITY(U,$J,358.3,15093,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15093,1,3,0)
;;=3^Gonococcal Cystitis & Urethritis,Unspec
;;^UTILITY(U,$J,358.3,15093,1,4,0)
;;=4^A54.01
;;^UTILITY(U,$J,358.3,15093,2)
;;=^5000312
;;^UTILITY(U,$J,358.3,15094,0)
;;=B37.49^^56^641^14
;;^UTILITY(U,$J,358.3,15094,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,15094,1,3,0)
;;=3^Candidiasis Urogenital,Other
;;^UTILITY(U,$J,358.3,15094,1,4,0)
;;=4^B37.49
;;^UTILITY(U,$J,358.3,15094,2)
;;=^5000618
;;^UTILITY(U,$J,358.3,15095,0)
;;=B37.41^^56^641^13
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI067 19783 printed Sep 23, 2025@19:18:25 Page 2
IBDEI067 ; ; 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,15028,1,3,0)
+2 ;;=3^Inguinal Hernia,Bilat w/o Obst or Gangrene
+3 ;;^UTILITY(U,$J,358.3,15028,1,4,0)
+4 ;;=4^K40.20
+5 ;;^UTILITY(U,$J,358.3,15028,2)
+6 ;;=^5008585
+7 ;;^UTILITY(U,$J,358.3,15029,0)
+8 ;;=K44.9^^56^640^36
+9 ;;^UTILITY(U,$J,358.3,15029,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,15029,1,3,0)
+12 ;;=3^Diaphragmatic Hernia w/o Obst or Gangrene
+13 ;;^UTILITY(U,$J,358.3,15029,1,4,0)
+14 ;;=4^K44.9
+15 ;;^UTILITY(U,$J,358.3,15029,2)
+16 ;;=^5008617
+17 ;;^UTILITY(U,$J,358.3,15030,0)
+18 ;;=K46.9^^56^640^1
+19 ;;^UTILITY(U,$J,358.3,15030,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,15030,1,3,0)
+22 ;;=3^Abdominal Hernia w/o Obst or Gangrene,Unspec
+23 ;;^UTILITY(U,$J,358.3,15030,1,4,0)
+24 ;;=4^K46.9
+25 ;;^UTILITY(U,$J,358.3,15030,2)
+26 ;;=^5008623
+27 ;;^UTILITY(U,$J,358.3,15031,0)
+28 ;;=K50.90^^56^640^31
+29 ;;^UTILITY(U,$J,358.3,15031,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,15031,1,3,0)
+32 ;;=3^Crohn's Disease w/o Complications,Unspec
+33 ;;^UTILITY(U,$J,358.3,15031,1,4,0)
+34 ;;=4^K50.90
+35 ;;^UTILITY(U,$J,358.3,15031,2)
+36 ;;=^5008645
+37 ;;^UTILITY(U,$J,358.3,15032,0)
+38 ;;=K50.911^^56^640^29
+39 ;;^UTILITY(U,$J,358.3,15032,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,15032,1,3,0)
+42 ;;=3^Crohn's Disease w/ Rectal Bleeding,Unspec
+43 ;;^UTILITY(U,$J,358.3,15032,1,4,0)
+44 ;;=4^K50.911
+45 ;;^UTILITY(U,$J,358.3,15032,2)
+46 ;;=^5008646
+47 ;;^UTILITY(U,$J,358.3,15033,0)
+48 ;;=K50.912^^56^640^27
+49 ;;^UTILITY(U,$J,358.3,15033,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,15033,1,3,0)
+52 ;;=3^Crohn's Disease w/ Intestinal Obstruction,Unspec
+53 ;;^UTILITY(U,$J,358.3,15033,1,4,0)
+54 ;;=4^K50.912
+55 ;;^UTILITY(U,$J,358.3,15033,2)
+56 ;;=^5008647
+57 ;;^UTILITY(U,$J,358.3,15034,0)
+58 ;;=K50.919^^56^640^30
+59 ;;^UTILITY(U,$J,358.3,15034,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,15034,1,3,0)
+62 ;;=3^Crohn's Disease w/ Unspec Complications,Unspec
+63 ;;^UTILITY(U,$J,358.3,15034,1,4,0)
+64 ;;=4^K50.919
+65 ;;^UTILITY(U,$J,358.3,15034,2)
+66 ;;=^5008651
+67 ;;^UTILITY(U,$J,358.3,15035,0)
+68 ;;=K50.914^^56^640^25
+69 ;;^UTILITY(U,$J,358.3,15035,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,15035,1,3,0)
+72 ;;=3^Crohn's Disease w/ Abscess,Unspec
+73 ;;^UTILITY(U,$J,358.3,15035,1,4,0)
+74 ;;=4^K50.914
+75 ;;^UTILITY(U,$J,358.3,15035,2)
+76 ;;=^5008649
+77 ;;^UTILITY(U,$J,358.3,15036,0)
+78 ;;=K50.913^^56^640^26
+79 ;;^UTILITY(U,$J,358.3,15036,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,15036,1,3,0)
+82 ;;=3^Crohn's Disease w/ Fistula,Unspec
+83 ;;^UTILITY(U,$J,358.3,15036,1,4,0)
+84 ;;=4^K50.913
+85 ;;^UTILITY(U,$J,358.3,15036,2)
+86 ;;=^5008648
+87 ;;^UTILITY(U,$J,358.3,15037,0)
+88 ;;=K50.918^^56^640^28
+89 ;;^UTILITY(U,$J,358.3,15037,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,15037,1,3,0)
+92 ;;=3^Crohn's Disease w/ Oth Complication,Unspec
+93 ;;^UTILITY(U,$J,358.3,15037,1,4,0)
+94 ;;=4^K50.918
+95 ;;^UTILITY(U,$J,358.3,15037,2)
+96 ;;=^5008650
+97 ;;^UTILITY(U,$J,358.3,15038,0)
+98 ;;=K51.90^^56^640^91
+99 ;;^UTILITY(U,$J,358.3,15038,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,15038,1,3,0)
+102 ;;=3^Ulcerative Colitis w/o Complications,Unspec
+103 ;;^UTILITY(U,$J,358.3,15038,1,4,0)
+104 ;;=4^K51.90
+105 ;;^UTILITY(U,$J,358.3,15038,2)
+106 ;;=^5008694
+107 ;;^UTILITY(U,$J,358.3,15039,0)
+108 ;;=K51.919^^56^640^90
+109 ;;^UTILITY(U,$J,358.3,15039,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,15039,1,3,0)
+112 ;;=3^Ulcerative Colitis w/ Unspec Complications,Unspec
+113 ;;^UTILITY(U,$J,358.3,15039,1,4,0)
+114 ;;=4^K51.919
+115 ;;^UTILITY(U,$J,358.3,15039,2)
+116 ;;=^5008700
+117 ;;^UTILITY(U,$J,358.3,15040,0)
+118 ;;=K51.918^^56^640^88
+119 ;;^UTILITY(U,$J,358.3,15040,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,15040,1,3,0)
+122 ;;=3^Ulcerative Colitis w/ Oth Complication,Unspec
+123 ;;^UTILITY(U,$J,358.3,15040,1,4,0)
+124 ;;=4^K51.918
+125 ;;^UTILITY(U,$J,358.3,15040,2)
+126 ;;=^5008699
+127 ;;^UTILITY(U,$J,358.3,15041,0)
+128 ;;=K51.914^^56^640^85
+129 ;;^UTILITY(U,$J,358.3,15041,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,15041,1,3,0)
+132 ;;=3^Ulcerative Colitis w/ Abscess,Unspec
+133 ;;^UTILITY(U,$J,358.3,15041,1,4,0)
+134 ;;=4^K51.914
+135 ;;^UTILITY(U,$J,358.3,15041,2)
+136 ;;=^5008698
+137 ;;^UTILITY(U,$J,358.3,15042,0)
+138 ;;=K51.913^^56^640^86
+139 ;;^UTILITY(U,$J,358.3,15042,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,15042,1,3,0)
+142 ;;=3^Ulcerative Colitis w/ Fistula,Unspec
+143 ;;^UTILITY(U,$J,358.3,15042,1,4,0)
+144 ;;=4^K51.913
+145 ;;^UTILITY(U,$J,358.3,15042,2)
+146 ;;=^5008697
+147 ;;^UTILITY(U,$J,358.3,15043,0)
+148 ;;=K51.912^^56^640^87
+149 ;;^UTILITY(U,$J,358.3,15043,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,15043,1,3,0)
+152 ;;=3^Ulcerative Colitis w/ Intestinal Obstruction,Unspec
+153 ;;^UTILITY(U,$J,358.3,15043,1,4,0)
+154 ;;=4^K51.912
+155 ;;^UTILITY(U,$J,358.3,15043,2)
+156 ;;=^5008696
+157 ;;^UTILITY(U,$J,358.3,15044,0)
+158 ;;=K51.911^^56^640^89
+159 ;;^UTILITY(U,$J,358.3,15044,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,15044,1,3,0)
+162 ;;=3^Ulcerative Colitis w/ Rectal Bleeding,Unspec
+163 ;;^UTILITY(U,$J,358.3,15044,1,4,0)
+164 ;;=4^K51.911
+165 ;;^UTILITY(U,$J,358.3,15044,2)
+166 ;;=^5008695
+167 ;;^UTILITY(U,$J,358.3,15045,0)
+168 ;;=K52.89^^56^640^62
+169 ;;^UTILITY(U,$J,358.3,15045,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,15045,1,3,0)
+172 ;;=3^Gastroenteritis & Colitis,Oth Spec Noninfective
+173 ;;^UTILITY(U,$J,358.3,15045,1,4,0)
+174 ;;=4^K52.89
+175 ;;^UTILITY(U,$J,358.3,15045,2)
+176 ;;=^5008703
+177 ;;^UTILITY(U,$J,358.3,15046,0)
+178 ;;=K52.9^^56^640^61
+179 ;;^UTILITY(U,$J,358.3,15046,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,15046,1,3,0)
+182 ;;=3^Gastroenteritis & Colitis,Noninfective Unspec
+183 ;;^UTILITY(U,$J,358.3,15046,1,4,0)
+184 ;;=4^K52.9
+185 ;;^UTILITY(U,$J,358.3,15046,2)
+186 ;;=^5008704
+187 ;;^UTILITY(U,$J,358.3,15047,0)
+188 ;;=K57.30^^56^640^47
+189 ;;^UTILITY(U,$J,358.3,15047,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,15047,1,3,0)
+192 ;;=3^Diverticulosis of Lg Intestine w/o Perforation/Abscess w/o Bleeding
+193 ;;^UTILITY(U,$J,358.3,15047,1,4,0)
+194 ;;=4^K57.30
+195 ;;^UTILITY(U,$J,358.3,15047,2)
+196 ;;=^5008723
+197 ;;^UTILITY(U,$J,358.3,15048,0)
+198 ;;=K57.50^^56^640^48
+199 ;;^UTILITY(U,$J,358.3,15048,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,15048,1,3,0)
+202 ;;=3^Diverticulosis of Sm & Lg Intestine w/o Performation/Abscess w/o Bleeding
+203 ;;^UTILITY(U,$J,358.3,15048,1,4,0)
+204 ;;=4^K57.50
+205 ;;^UTILITY(U,$J,358.3,15048,2)
+206 ;;=^5008729
+207 ;;^UTILITY(U,$J,358.3,15049,0)
+208 ;;=K57.90^^56^640^46
+209 ;;^UTILITY(U,$J,358.3,15049,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,15049,1,3,0)
+212 ;;=3^Diverticulosis of Intestine,Unspec w/o Performation/Abscess w/o Bleeding
+213 ;;^UTILITY(U,$J,358.3,15049,1,4,0)
+214 ;;=4^K57.90
+215 ;;^UTILITY(U,$J,358.3,15049,2)
+216 ;;=^5008735
+217 ;;^UTILITY(U,$J,358.3,15050,0)
+218 ;;=K57.20^^56^640^42
+219 ;;^UTILITY(U,$J,358.3,15050,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,15050,1,3,0)
+222 ;;=3^Diverticulitis of Lg Intestine w/ Performation/Abscess w/o Bleeding
+223 ;;^UTILITY(U,$J,358.3,15050,1,4,0)
+224 ;;=4^K57.20
+225 ;;^UTILITY(U,$J,358.3,15050,2)
+226 ;;=^5008721
+227 ;;^UTILITY(U,$J,358.3,15051,0)
+228 ;;=K57.92^^56^640^41
+229 ;;^UTILITY(U,$J,358.3,15051,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,15051,1,3,0)
+232 ;;=3^Diverticulitis of Intestine,Unspec w/o Perforation/Abscess w/o Bleeding
+233 ;;^UTILITY(U,$J,358.3,15051,1,4,0)
+234 ;;=4^K57.92
+235 ;;^UTILITY(U,$J,358.3,15051,2)
+236 ;;=^5008737
+237 ;;^UTILITY(U,$J,358.3,15052,0)
+238 ;;=K57.80^^56^640^40
+239 ;;^UTILITY(U,$J,358.3,15052,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,15052,1,3,0)
+242 ;;=3^Diverticulitis of Intestine,Unspec w/ Perforation/Abscess w/o Bleeding
+243 ;;^UTILITY(U,$J,358.3,15052,1,4,0)
+244 ;;=4^K57.80
+245 ;;^UTILITY(U,$J,358.3,15052,2)
+246 ;;=^5008733
+247 ;;^UTILITY(U,$J,358.3,15053,0)
+248 ;;=K57.52^^56^640^45
+249 ;;^UTILITY(U,$J,358.3,15053,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,15053,1,3,0)
+252 ;;=3^Diverticulitis of Sm & Lg Intestine w/o Perforation/Abscess w/o Bleeding
+253 ;;^UTILITY(U,$J,358.3,15053,1,4,0)
+254 ;;=4^K57.52
+255 ;;^UTILITY(U,$J,358.3,15053,2)
+256 ;;=^5008731
+257 ;;^UTILITY(U,$J,358.3,15054,0)
+258 ;;=K57.40^^56^640^44
+259 ;;^UTILITY(U,$J,358.3,15054,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,15054,1,3,0)
+262 ;;=3^Diverticulitis of Sm & Lg Intestine w/ Perforation/Abscess w/o Bleeding
+263 ;;^UTILITY(U,$J,358.3,15054,1,4,0)
+264 ;;=4^K57.40
+265 ;;^UTILITY(U,$J,358.3,15054,2)
+266 ;;=^5008727
+267 ;;^UTILITY(U,$J,358.3,15055,0)
+268 ;;=K57.32^^56^640^43
+269 ;;^UTILITY(U,$J,358.3,15055,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,15055,1,3,0)
+272 ;;=3^Diverticulitis of Lg Intestine w/o Perforation/Abscess w/o Bleeding
+273 ;;^UTILITY(U,$J,358.3,15055,1,4,0)
+274 ;;=4^K57.32
+275 ;;^UTILITY(U,$J,358.3,15055,2)
+276 ;;=^5008725
+277 ;;^UTILITY(U,$J,358.3,15056,0)
+278 ;;=K59.00^^56^640^22
+279 ;;^UTILITY(U,$J,358.3,15056,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,15056,1,3,0)
+282 ;;=3^Constipation,Unspec
+283 ;;^UTILITY(U,$J,358.3,15056,1,4,0)
+284 ;;=4^K59.00
+285 ;;^UTILITY(U,$J,358.3,15056,2)
+286 ;;=^323537
+287 ;;^UTILITY(U,$J,358.3,15057,0)
+288 ;;=K58.9^^56^640^79
+289 ;;^UTILITY(U,$J,358.3,15057,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,15057,1,3,0)
+292 ;;=3^Irritable Bowel Syndrome w/o Diarrhea
+293 ;;^UTILITY(U,$J,358.3,15057,1,4,0)
+294 ;;=4^K58.9
+295 ;;^UTILITY(U,$J,358.3,15057,2)
+296 ;;=^5008740
+297 ;;^UTILITY(U,$J,358.3,15058,0)
+298 ;;=K58.0^^56^640^78
+299 ;;^UTILITY(U,$J,358.3,15058,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,15058,1,3,0)
+302 ;;=3^Irritable Bowel Syndrome w/ Diarrhea
+303 ;;^UTILITY(U,$J,358.3,15058,1,4,0)
+304 ;;=4^K58.0
+305 ;;^UTILITY(U,$J,358.3,15058,2)
+306 ;;=^5008739
+307 ;;^UTILITY(U,$J,358.3,15059,0)
+308 ;;=K59.1^^56^640^37
+309 ;;^UTILITY(U,$J,358.3,15059,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,15059,1,3,0)
+312 ;;=3^Diarrhea,Functional
+313 ;;^UTILITY(U,$J,358.3,15059,1,4,0)
+314 ;;=4^K59.1
+315 ;;^UTILITY(U,$J,358.3,15059,2)
+316 ;;=^270281
+317 ;;^UTILITY(U,$J,358.3,15060,0)
+318 ;;=K61.4^^56^640^4
+319 ;;^UTILITY(U,$J,358.3,15060,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,15060,1,3,0)
+322 ;;=3^Abscess,Intrasphincteric
+323 ;;^UTILITY(U,$J,358.3,15060,1,4,0)
+324 ;;=4^K61.4
+325 ;;^UTILITY(U,$J,358.3,15060,2)
+326 ;;=^5008752
+327 ;;^UTILITY(U,$J,358.3,15061,0)
+328 ;;=K61.0^^56^640^2
+329 ;;^UTILITY(U,$J,358.3,15061,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,15061,1,3,0)
+332 ;;=3^Abscess,Anal
+333 ;;^UTILITY(U,$J,358.3,15061,1,4,0)
+334 ;;=4^K61.0
+335 ;;^UTILITY(U,$J,358.3,15061,2)
+336 ;;=^5008749
+337 ;;^UTILITY(U,$J,358.3,15062,0)
+338 ;;=K61.1^^56^640^6
+339 ;;^UTILITY(U,$J,358.3,15062,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,15062,1,3,0)
+342 ;;=3^Abscess,Rectal
+343 ;;^UTILITY(U,$J,358.3,15062,1,4,0)
+344 ;;=4^K61.1
+345 ;;^UTILITY(U,$J,358.3,15062,2)
+346 ;;=^259588
+347 ;;^UTILITY(U,$J,358.3,15063,0)
+348 ;;=K61.2^^56^640^3
+349 ;;^UTILITY(U,$J,358.3,15063,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,15063,1,3,0)
+352 ;;=3^Abscess,Anorectal
+353 ;;^UTILITY(U,$J,358.3,15063,1,4,0)
+354 ;;=4^K61.2
+355 ;;^UTILITY(U,$J,358.3,15063,2)
+356 ;;=^5008750
+357 ;;^UTILITY(U,$J,358.3,15064,0)
+358 ;;=K50.014^^56^640^24
+359 ;;^UTILITY(U,$J,358.3,15064,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,15064,1,3,0)
+362 ;;=3^Crohn's Disease of Small Intestine w/ Abscess
+363 ;;^UTILITY(U,$J,358.3,15064,1,4,0)
+364 ;;=4^K50.014
+365 ;;^UTILITY(U,$J,358.3,15064,2)
+366 ;;=^5008628
+367 ;;^UTILITY(U,$J,358.3,15065,0)
+368 ;;=K50.114^^56^640^23
+369 ;;^UTILITY(U,$J,358.3,15065,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,15065,1,3,0)
+372 ;;=3^Crohn's Disease of Large Intestine w/ Abscess
+373 ;;^UTILITY(U,$J,358.3,15065,1,4,0)
+374 ;;=4^K50.114
+375 ;;^UTILITY(U,$J,358.3,15065,2)
+376 ;;=^5008635
+377 ;;^UTILITY(U,$J,358.3,15066,0)
+378 ;;=D12.6^^56^640^7
+379 ;;^UTILITY(U,$J,358.3,15066,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,15066,1,3,0)
+382 ;;=3^Adenomatous Polyp of Colon
+383 ;;^UTILITY(U,$J,358.3,15066,1,4,0)
+384 ;;=4^D12.6
+385 ;;^UTILITY(U,$J,358.3,15066,2)
+386 ;;=^5001969
+387 ;;^UTILITY(U,$J,358.3,15067,0)
+388 ;;=K64.9^^56^640^65
+389 ;;^UTILITY(U,$J,358.3,15067,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,15067,1,3,0)
+392 ;;=3^Hemorrhoids w/o Complication
+393 ;;^UTILITY(U,$J,358.3,15067,1,4,0)
+394 ;;=4^K64.9
+395 ;;^UTILITY(U,$J,358.3,15067,2)
+396 ;;=^5008775
+397 ;;^UTILITY(U,$J,358.3,15068,0)
+398 ;;=K50.814^^56^640^32
+399 ;;^UTILITY(U,$J,358.3,15068,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,15068,1,3,0)
+402 ;;=3^Crohn's Disease,Small/Large Intestine w/ Abscess
+403 ;;^UTILITY(U,$J,358.3,15068,1,4,0)
+404 ;;=4^K50.814
+405 ;;^UTILITY(U,$J,358.3,15068,2)
+406 ;;=^5008642
+407 ;;^UTILITY(U,$J,358.3,15069,0)
+408 ;;=D12.9^^56^640^9
+409 ;;^UTILITY(U,$J,358.3,15069,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,15069,1,3,0)
+412 ;;=3^Benign Neop of Anus
+413 ;;^UTILITY(U,$J,358.3,15069,1,4,0)
+414 ;;=4^D12.9
+415 ;;^UTILITY(U,$J,358.3,15069,2)
+416 ;;=^5001972
+417 ;;^UTILITY(U,$J,358.3,15070,0)
+418 ;;=D12.8^^56^640^15
+419 ;;^UTILITY(U,$J,358.3,15070,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,15070,1,3,0)
+422 ;;=3^Benign Neop of Rectum
+423 ;;^UTILITY(U,$J,358.3,15070,1,4,0)
+424 ;;=4^D12.8
+425 ;;^UTILITY(U,$J,358.3,15070,2)
+426 ;;=^5001971
+427 ;;^UTILITY(U,$J,358.3,15071,0)
+428 ;;=K92.2^^56^640^57
+429 ;;^UTILITY(U,$J,358.3,15071,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,15071,1,3,0)
+432 ;;=3^GI Bleed,Unspec
+433 ;;^UTILITY(U,$J,358.3,15071,1,4,0)
+434 ;;=4^K92.2
+435 ;;^UTILITY(U,$J,358.3,15071,2)
+436 ;;=^5008915
+437 ;;^UTILITY(U,$J,358.3,15072,0)
+438 ;;=K62.5^^56^640^8
+439 ;;^UTILITY(U,$J,358.3,15072,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,15072,1,3,0)
+442 ;;=3^BRBPR
+443 ;;^UTILITY(U,$J,358.3,15072,1,4,0)
+444 ;;=4^K62.5
+445 ;;^UTILITY(U,$J,358.3,15072,2)
+446 ;;=^5008755
+447 ;;^UTILITY(U,$J,358.3,15073,0)
+448 ;;=K92.1^^56^640^82
+449 ;;^UTILITY(U,$J,358.3,15073,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,15073,1,3,0)
+452 ;;=3^Melena/Hematochezia
+453 ;;^UTILITY(U,$J,358.3,15073,1,4,0)
+454 ;;=4^K92.1
+455 ;;^UTILITY(U,$J,358.3,15073,2)
+456 ;;=^5008914
+457 ;;^UTILITY(U,$J,358.3,15074,0)
+458 ;;=R19.5^^56^640^56
+459 ;;^UTILITY(U,$J,358.3,15074,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,15074,1,3,0)
+462 ;;=3^Fecal Abnormalities NEC
+463 ;;^UTILITY(U,$J,358.3,15074,1,4,0)
+464 ;;=4^R19.5
+465 ;;^UTILITY(U,$J,358.3,15074,2)
+466 ;;=^5019274
+467 ;;^UTILITY(U,$J,358.3,15075,0)
+468 ;;=E53.8^^56^640^92
+469 ;;^UTILITY(U,$J,358.3,15075,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,15075,1,3,0)
+472 ;;=3^Vitamin B12 Deficiency
+473 ;;^UTILITY(U,$J,358.3,15075,1,4,0)
+474 ;;=4^E53.8
+475 ;;^UTILITY(U,$J,358.3,15075,2)
+476 ;;=^5002797
+477 ;;^UTILITY(U,$J,358.3,15076,0)
+478 ;;=K59.04^^56^640^20
+479 ;;^UTILITY(U,$J,358.3,15076,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,15076,1,3,0)
+482 ;;=3^Constipation,Chronic Idiopathic
+483 ;;^UTILITY(U,$J,358.3,15076,1,4,0)
+484 ;;=4^K59.04
+485 ;;^UTILITY(U,$J,358.3,15076,2)
+486 ;;=^7148177
+487 ;;^UTILITY(U,$J,358.3,15077,0)
+488 ;;=K59.03^^56^640^21
+489 ;;^UTILITY(U,$J,358.3,15077,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,15077,1,3,0)
+492 ;;=3^Constipation,Drug Induced
+493 ;;^UTILITY(U,$J,358.3,15077,1,4,0)
+494 ;;=4^K59.03
+495 ;;^UTILITY(U,$J,358.3,15077,2)
+496 ;;=^5138744
+497 ;;^UTILITY(U,$J,358.3,15078,0)
+498 ;;=K52.21^^56^640^51
+499 ;;^UTILITY(U,$J,358.3,15078,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,15078,1,3,0)
+502 ;;=3^Enterocolitis Synd Induced by Food Protein
+503 ;;^UTILITY(U,$J,358.3,15078,1,4,0)
+504 ;;=4^K52.21
+505 ;;^UTILITY(U,$J,358.3,15078,2)
+506 ;;=^5138713
+507 ;;^UTILITY(U,$J,358.3,15079,0)
+508 ;;=K52.22^^56^640^52
+509 ;;^UTILITY(U,$J,358.3,15079,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,15079,1,3,0)
+512 ;;=3^Enterocolopathy Induced by Food Protein
+513 ;;^UTILITY(U,$J,358.3,15079,1,4,0)
+514 ;;=4^K52.22
+515 ;;^UTILITY(U,$J,358.3,15079,2)
+516 ;;=^5138714
+517 ;;^UTILITY(U,$J,358.3,15080,0)
+518 ;;=K58.2^^56^640^80
+519 ;;^UTILITY(U,$J,358.3,15080,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,15080,1,3,0)
+522 ;;=3^Irritable Bowel Syndrome,Mixed
+523 ;;^UTILITY(U,$J,358.3,15080,1,4,0)
+524 ;;=4^K58.2
+525 ;;^UTILITY(U,$J,358.3,15080,2)
+526 ;;=^5138742
+527 ;;^UTILITY(U,$J,358.3,15081,0)
+528 ;;=K58.8^^56^640^81
+529 ;;^UTILITY(U,$J,358.3,15081,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,15081,1,3,0)
+532 ;;=3^Irritable Bowel Syndrome,Other
+533 ;;^UTILITY(U,$J,358.3,15081,1,4,0)
+534 ;;=4^K58.8
+535 ;;^UTILITY(U,$J,358.3,15081,2)
+536 ;;=^5138743
+537 ;;^UTILITY(U,$J,358.3,15082,0)
+538 ;;=K58.1^^56^640^77
+539 ;;^UTILITY(U,$J,358.3,15082,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,15082,1,3,0)
+542 ;;=3^Irritable Bowel Syndrome w/ Constipation
+543 ;;^UTILITY(U,$J,358.3,15082,1,4,0)
+544 ;;=4^K58.1
+545 ;;^UTILITY(U,$J,358.3,15082,2)
+546 ;;=^5138741
+547 ;;^UTILITY(U,$J,358.3,15083,0)
+548 ;;=K61.39^^56^640^5
+549 ;;^UTILITY(U,$J,358.3,15083,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,15083,1,3,0)
+552 ;;=3^Abscess,Ischiorectal NOS
+553 ;;^UTILITY(U,$J,358.3,15083,1,4,0)
+554 ;;=4^K61.39
+555 ;;^UTILITY(U,$J,358.3,15083,2)
+556 ;;=^5157385
+557 ;;^UTILITY(U,$J,358.3,15084,0)
+558 ;;=G43.A1^^56^640^34
+559 ;;^UTILITY(U,$J,358.3,15084,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,15084,1,3,0)
+562 ;;=3^Cyclical Vomiting,In Migraine,Intractable
+563 ;;^UTILITY(U,$J,358.3,15084,1,4,0)
+564 ;;=4^G43.A1
+565 ;;^UTILITY(U,$J,358.3,15084,2)
+566 ;;=^5003913
+567 ;;^UTILITY(U,$J,358.3,15085,0)
+568 ;;=G43.A0^^56^640^35
+569 ;;^UTILITY(U,$J,358.3,15085,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,15085,1,3,0)
+572 ;;=3^Cyclical Vomiting,In Migraine,Not intractable
+573 ;;^UTILITY(U,$J,358.3,15085,1,4,0)
+574 ;;=4^G43.A0
+575 ;;^UTILITY(U,$J,358.3,15085,2)
+576 ;;=^5003912
+577 ;;^UTILITY(U,$J,358.3,15086,0)
+578 ;;=R11.15^^56^640^33
+579 ;;^UTILITY(U,$J,358.3,15086,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,15086,1,3,0)
+582 ;;=3^Cyclical Vomiting Syndrome,Unrelated to Migraine
+583 ;;^UTILITY(U,$J,358.3,15086,1,4,0)
+584 ;;=4^R11.15
+585 ;;^UTILITY(U,$J,358.3,15086,2)
+586 ;;=^5158141
+587 ;;^UTILITY(U,$J,358.3,15087,0)
+588 ;;=K20.90^^56^640^55
+589 ;;^UTILITY(U,$J,358.3,15087,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,15087,1,3,0)
+592 ;;=3^Esophagitis w/o Bleeding,Unspec
+593 ;;^UTILITY(U,$J,358.3,15087,1,4,0)
+594 ;;=4^K20.90
+595 ;;^UTILITY(U,$J,358.3,15087,2)
+596 ;;=^5159212
+597 ;;^UTILITY(U,$J,358.3,15088,0)
+598 ;;=K20.91^^56^640^54
+599 ;;^UTILITY(U,$J,358.3,15088,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,15088,1,3,0)
+602 ;;=3^Esophagitis w/ Bleeding,Unspec
+603 ;;^UTILITY(U,$J,358.3,15088,1,4,0)
+604 ;;=4^K20.91
+605 ;;^UTILITY(U,$J,358.3,15088,2)
+606 ;;=^5159213
+607 ;;^UTILITY(U,$J,358.3,15089,0)
+608 ;;=A54.00^^56^641^52
+609 ;;^UTILITY(U,$J,358.3,15089,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,15089,1,3,0)
+612 ;;=3^Gonococcal Infection Lower Genitourinary Tract,Unspec
+613 ;;^UTILITY(U,$J,358.3,15089,1,4,0)
+614 ;;=4^A54.00
+615 ;;^UTILITY(U,$J,358.3,15089,2)
+616 ;;=^5000311
+617 ;;^UTILITY(U,$J,358.3,15090,0)
+618 ;;=A54.09^^56^641^53
+619 ;;^UTILITY(U,$J,358.3,15090,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,15090,1,3,0)
+622 ;;=3^Gonococcal Infection Lower Genitourinary Tract,Other
+623 ;;^UTILITY(U,$J,358.3,15090,1,4,0)
+624 ;;=4^A54.09
+625 ;;^UTILITY(U,$J,358.3,15090,2)
+626 ;;=^5000315
+627 ;;^UTILITY(U,$J,358.3,15091,0)
+628 ;;=A54.02^^56^641^54
+629 ;;^UTILITY(U,$J,358.3,15091,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,15091,1,3,0)
+632 ;;=3^Gonococcal Vulvovaginitis,Unspec
+633 ;;^UTILITY(U,$J,358.3,15091,1,4,0)
+634 ;;=4^A54.02
+635 ;;^UTILITY(U,$J,358.3,15091,2)
+636 ;;=^5000313
+637 ;;^UTILITY(U,$J,358.3,15092,0)
+638 ;;=A54.1^^56^641^51
+639 ;;^UTILITY(U,$J,358.3,15092,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,15092,1,3,0)
+642 ;;=3^Gonococcal Infection Lower GU Tract w/ Periureth & Acc Gland Abscess
+643 ;;^UTILITY(U,$J,358.3,15092,1,4,0)
+644 ;;=4^A54.1
+645 ;;^UTILITY(U,$J,358.3,15092,2)
+646 ;;=^5000316
+647 ;;^UTILITY(U,$J,358.3,15093,0)
+648 ;;=A54.01^^56^641^50
+649 ;;^UTILITY(U,$J,358.3,15093,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,15093,1,3,0)
+652 ;;=3^Gonococcal Cystitis & Urethritis,Unspec
+653 ;;^UTILITY(U,$J,358.3,15093,1,4,0)
+654 ;;=4^A54.01
+655 ;;^UTILITY(U,$J,358.3,15093,2)
+656 ;;=^5000312
+657 ;;^UTILITY(U,$J,358.3,15094,0)
+658 ;;=B37.49^^56^641^14
+659 ;;^UTILITY(U,$J,358.3,15094,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,15094,1,3,0)
+662 ;;=3^Candidiasis Urogenital,Other
+663 ;;^UTILITY(U,$J,358.3,15094,1,4,0)
+664 ;;=4^B37.49
+665 ;;^UTILITY(U,$J,358.3,15094,2)
+666 ;;=^5000618
+667 ;;^UTILITY(U,$J,358.3,15095,0)
+668 ;;=B37.41^^56^641^13
