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

IBDEI032.m

Go to the documentation of this file.
IBDEI032 ; ; 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,7243,2)
 ;;=^329930
 ;;^UTILITY(U,$J,358.3,7244,0)
 ;;=K22.9^^42^384^9
 ;;^UTILITY(U,$J,358.3,7244,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7244,1,3,0)
 ;;=3^Disease of Esophagus,Unspec
 ;;^UTILITY(U,$J,358.3,7244,1,4,0)
 ;;=4^K22.9
 ;;^UTILITY(U,$J,358.3,7244,2)
 ;;=^5008516
 ;;^UTILITY(U,$J,358.3,7245,0)
 ;;=D00.1^^42^384^7
 ;;^UTILITY(U,$J,358.3,7245,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7245,1,3,0)
 ;;=3^Carcinoma in Situ,Esophagus
 ;;^UTILITY(U,$J,358.3,7245,1,4,0)
 ;;=4^D00.1
 ;;^UTILITY(U,$J,358.3,7245,2)
 ;;=^267710
 ;;^UTILITY(U,$J,358.3,7246,0)
 ;;=K20.80^^42^384^17
 ;;^UTILITY(U,$J,358.3,7246,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7246,1,3,0)
 ;;=3^Esophagitis w/o Bleed,Other
 ;;^UTILITY(U,$J,358.3,7246,1,4,0)
 ;;=4^K20.80
 ;;^UTILITY(U,$J,358.3,7246,2)
 ;;=^5159210
 ;;^UTILITY(U,$J,358.3,7247,0)
 ;;=K20.81^^42^384^16
 ;;^UTILITY(U,$J,358.3,7247,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7247,1,3,0)
 ;;=3^Esophagitis w/ Bleed,Other
 ;;^UTILITY(U,$J,358.3,7247,1,4,0)
 ;;=4^K20.81
 ;;^UTILITY(U,$J,358.3,7247,2)
 ;;=^5159211
 ;;^UTILITY(U,$J,358.3,7248,0)
 ;;=K21.00^^42^384^25
 ;;^UTILITY(U,$J,358.3,7248,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7248,1,3,0)
 ;;=3^GERD w/ Esophagitis w/o Bleed
 ;;^UTILITY(U,$J,358.3,7248,1,4,0)
 ;;=4^K21.00
 ;;^UTILITY(U,$J,358.3,7248,2)
 ;;=^5159214
 ;;^UTILITY(U,$J,358.3,7249,0)
 ;;=K21.01^^42^384^24
 ;;^UTILITY(U,$J,358.3,7249,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7249,1,3,0)
 ;;=3^GERD w/ Esophagitis w/ Bleed
 ;;^UTILITY(U,$J,358.3,7249,1,4,0)
 ;;=4^K21.01
 ;;^UTILITY(U,$J,358.3,7249,2)
 ;;=^5159215
 ;;^UTILITY(U,$J,358.3,7250,0)
 ;;=D12.5^^42^385^12
 ;;^UTILITY(U,$J,358.3,7250,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7250,1,3,0)
 ;;=3^Benign neoplasm,Sigmoid
 ;;^UTILITY(U,$J,358.3,7250,1,4,0)
 ;;=4^D12.5
 ;;^UTILITY(U,$J,358.3,7250,2)
 ;;=^5001968
 ;;^UTILITY(U,$J,358.3,7251,0)
 ;;=D12.4^^42^385^9
 ;;^UTILITY(U,$J,358.3,7251,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7251,1,3,0)
 ;;=3^Benign neoplasm,Descending
 ;;^UTILITY(U,$J,358.3,7251,1,4,0)
 ;;=4^D12.4
 ;;^UTILITY(U,$J,358.3,7251,2)
 ;;=^5001967
 ;;^UTILITY(U,$J,358.3,7252,0)
 ;;=D12.2^^42^385^7
 ;;^UTILITY(U,$J,358.3,7252,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7252,1,3,0)
 ;;=3^Benign neoplasm,Ascending
 ;;^UTILITY(U,$J,358.3,7252,1,4,0)
 ;;=4^D12.2
 ;;^UTILITY(U,$J,358.3,7252,2)
 ;;=^5001965
 ;;^UTILITY(U,$J,358.3,7253,0)
 ;;=D12.3^^42^385^13
 ;;^UTILITY(U,$J,358.3,7253,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7253,1,3,0)
 ;;=3^Benign neoplasm,Transverse
 ;;^UTILITY(U,$J,358.3,7253,1,4,0)
 ;;=4^D12.3
 ;;^UTILITY(U,$J,358.3,7253,2)
 ;;=^5001966
 ;;^UTILITY(U,$J,358.3,7254,0)
 ;;=D12.6^^42^385^14
 ;;^UTILITY(U,$J,358.3,7254,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7254,1,3,0)
 ;;=3^Benign neoplasm,Unspec Colon
 ;;^UTILITY(U,$J,358.3,7254,1,4,0)
 ;;=4^D12.6
 ;;^UTILITY(U,$J,358.3,7254,2)
 ;;=^5001969
 ;;^UTILITY(U,$J,358.3,7255,0)
 ;;=D12.1^^42^385^6
 ;;^UTILITY(U,$J,358.3,7255,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7255,1,3,0)
 ;;=3^Benign neoplasm,Appendix
 ;;^UTILITY(U,$J,358.3,7255,1,4,0)
 ;;=4^D12.1
 ;;^UTILITY(U,$J,358.3,7255,2)
 ;;=^5001964
 ;;^UTILITY(U,$J,358.3,7256,0)
 ;;=D12.0^^42^385^8
 ;;^UTILITY(U,$J,358.3,7256,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7256,1,3,0)
 ;;=3^Benign neoplasm,Cecum
 ;;^UTILITY(U,$J,358.3,7256,1,4,0)
 ;;=4^D12.0
 ;;^UTILITY(U,$J,358.3,7256,2)
 ;;=^5001963
 ;;^UTILITY(U,$J,358.3,7257,0)
 ;;=D12.7^^42^385^10
 ;;^UTILITY(U,$J,358.3,7257,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7257,1,3,0)
 ;;=3^Benign neoplasm,Rectosigmoid
 ;;^UTILITY(U,$J,358.3,7257,1,4,0)
 ;;=4^D12.7
 ;;^UTILITY(U,$J,358.3,7257,2)
 ;;=^5001970
 ;;^UTILITY(U,$J,358.3,7258,0)
 ;;=D12.8^^42^385^11
 ;;^UTILITY(U,$J,358.3,7258,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7258,1,3,0)
 ;;=3^Benign neoplasm,Rectum
 ;;^UTILITY(U,$J,358.3,7258,1,4,0)
 ;;=4^D12.8
 ;;^UTILITY(U,$J,358.3,7258,2)
 ;;=^5001971
 ;;^UTILITY(U,$J,358.3,7259,0)
 ;;=K57.30^^42^385^28
 ;;^UTILITY(U,$J,358.3,7259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7259,1,3,0)
 ;;=3^Diverticulosis of Colon w/o Bleeding
 ;;^UTILITY(U,$J,358.3,7259,1,4,0)
 ;;=4^K57.30
 ;;^UTILITY(U,$J,358.3,7259,2)
 ;;=^5008723
 ;;^UTILITY(U,$J,358.3,7260,0)
 ;;=K57.20^^42^385^23
 ;;^UTILITY(U,$J,358.3,7260,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7260,1,3,0)
 ;;=3^Diverticulitis of Colon w/ Perf & Abscess
 ;;^UTILITY(U,$J,358.3,7260,1,4,0)
 ;;=4^K57.20
 ;;^UTILITY(U,$J,358.3,7260,2)
 ;;=^5008721
 ;;^UTILITY(U,$J,358.3,7261,0)
 ;;=K57.32^^42^385^26
 ;;^UTILITY(U,$J,358.3,7261,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7261,1,3,0)
 ;;=3^Diverticulitis of Colon,Uncomplicated
 ;;^UTILITY(U,$J,358.3,7261,1,4,0)
 ;;=4^K57.32
 ;;^UTILITY(U,$J,358.3,7261,2)
 ;;=^5008725
 ;;^UTILITY(U,$J,358.3,7262,0)
 ;;=K55.20^^42^385^5
 ;;^UTILITY(U,$J,358.3,7262,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7262,1,3,0)
 ;;=3^Angiodysplasia of Colon w/o Bleeding
 ;;^UTILITY(U,$J,358.3,7262,1,4,0)
 ;;=4^K55.20
 ;;^UTILITY(U,$J,358.3,7262,2)
 ;;=^5008707
 ;;^UTILITY(U,$J,358.3,7263,0)
 ;;=K52.21^^42^385^2
 ;;^UTILITY(U,$J,358.3,7263,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7263,1,3,0)
 ;;=3^Allergic/Dietetic Gastroenteritis/Colitis,Food Protein
 ;;^UTILITY(U,$J,358.3,7263,1,4,0)
 ;;=4^K52.21
 ;;^UTILITY(U,$J,358.3,7263,2)
 ;;=^5138713
 ;;^UTILITY(U,$J,358.3,7264,0)
 ;;=K52.29^^42^385^3
 ;;^UTILITY(U,$J,358.3,7264,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7264,1,3,0)
 ;;=3^Allergic/Dietetic Gastroenteritis/Colitis,Other
 ;;^UTILITY(U,$J,358.3,7264,1,4,0)
 ;;=4^K52.29
 ;;^UTILITY(U,$J,358.3,7264,2)
 ;;=^5138715
 ;;^UTILITY(U,$J,358.3,7265,0)
 ;;=R93.3^^42^385^1
 ;;^UTILITY(U,$J,358.3,7265,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7265,1,3,0)
 ;;=3^Abnormal imaging Digestive tract
 ;;^UTILITY(U,$J,358.3,7265,1,4,0)
 ;;=4^R93.3
 ;;^UTILITY(U,$J,358.3,7265,2)
 ;;=^5019716
 ;;^UTILITY(U,$J,358.3,7266,0)
 ;;=K55.21^^42^385^4
 ;;^UTILITY(U,$J,358.3,7266,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7266,1,3,0)
 ;;=3^Angiodysplasia of Colon w/ Bleeding
 ;;^UTILITY(U,$J,358.3,7266,1,4,0)
 ;;=4^K55.21
 ;;^UTILITY(U,$J,358.3,7266,2)
 ;;=^5008708
 ;;^UTILITY(U,$J,358.3,7267,0)
 ;;=D01.0^^42^385^15
 ;;^UTILITY(U,$J,358.3,7267,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7267,1,3,0)
 ;;=3^Carcinoma in situ of Colon
 ;;^UTILITY(U,$J,358.3,7267,1,4,0)
 ;;=4^D01.0
 ;;^UTILITY(U,$J,358.3,7267,2)
 ;;=^267712
 ;;^UTILITY(U,$J,358.3,7268,0)
 ;;=D01.2^^42^385^16
 ;;^UTILITY(U,$J,358.3,7268,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7268,1,3,0)
 ;;=3^Carcinoma in situ of Rectum
 ;;^UTILITY(U,$J,358.3,7268,1,4,0)
 ;;=4^D01.2
 ;;^UTILITY(U,$J,358.3,7268,2)
 ;;=^267713
 ;;^UTILITY(U,$J,358.3,7269,0)
 ;;=K52.831^^42^385^20
 ;;^UTILITY(U,$J,358.3,7269,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7269,1,3,0)
 ;;=3^Collagenous colitis
 ;;^UTILITY(U,$J,358.3,7269,1,4,0)
 ;;=4^K52.831
 ;;^UTILITY(U,$J,358.3,7269,2)
 ;;=^7034137
 ;;^UTILITY(U,$J,358.3,7270,0)
 ;;=K63.81^^42^385^21
 ;;^UTILITY(U,$J,358.3,7270,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7270,1,3,0)
 ;;=3^Dieulafoy lesion of Intestine
 ;;^UTILITY(U,$J,358.3,7270,1,4,0)
 ;;=4^K63.81
 ;;^UTILITY(U,$J,358.3,7270,2)
 ;;=^5008766
 ;;^UTILITY(U,$J,358.3,7271,0)
 ;;=K57.31^^42^385^27
 ;;^UTILITY(U,$J,358.3,7271,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7271,1,3,0)
 ;;=3^Diverticulosis of Colon w/ Bleeding
 ;;^UTILITY(U,$J,358.3,7271,1,4,0)
 ;;=4^K57.31
 ;;^UTILITY(U,$J,358.3,7271,2)
 ;;=^5008724
 ;;^UTILITY(U,$J,358.3,7272,0)
 ;;=K57.21^^42^385^24
 ;;^UTILITY(U,$J,358.3,7272,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7272,1,3,0)
 ;;=3^Diverticulitis of Colon w/ Perf,Abscess & Bleed
 ;;^UTILITY(U,$J,358.3,7272,1,4,0)
 ;;=4^K57.21
 ;;^UTILITY(U,$J,358.3,7272,2)
 ;;=^5008722
 ;;^UTILITY(U,$J,358.3,7273,0)
 ;;=K52.82^^42^385^29
 ;;^UTILITY(U,$J,358.3,7273,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7273,1,3,0)
 ;;=3^Eosinophilic colitis
 ;;^UTILITY(U,$J,358.3,7273,1,4,0)
 ;;=4^K52.82
 ;;^UTILITY(U,$J,358.3,7273,2)
 ;;=^336608
 ;;^UTILITY(U,$J,358.3,7274,0)
 ;;=K56.41^^42^385^30
 ;;^UTILITY(U,$J,358.3,7274,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7274,1,3,0)
 ;;=3^Fecal impaction
 ;;^UTILITY(U,$J,358.3,7274,1,4,0)
 ;;=4^K56.41
 ;;^UTILITY(U,$J,358.3,7274,2)
 ;;=^186798
 ;;^UTILITY(U,$J,358.3,7275,0)
 ;;=T18.4XXA^^42^385^32
 ;;^UTILITY(U,$J,358.3,7275,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7275,1,3,0)
 ;;=3^Foreign Body in Colon,Initial
 ;;^UTILITY(U,$J,358.3,7275,1,4,0)
 ;;=4^T18.4XXA
 ;;^UTILITY(U,$J,358.3,7275,2)
 ;;=^5046609
 ;;^UTILITY(U,$J,358.3,7276,0)
 ;;=T18.4XXD^^42^385^33
 ;;^UTILITY(U,$J,358.3,7276,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7276,1,3,0)
 ;;=3^Foreign Body in Colon,Subsequent
 ;;^UTILITY(U,$J,358.3,7276,1,4,0)
 ;;=4^T18.4XXD
 ;;^UTILITY(U,$J,358.3,7276,2)
 ;;=^5046610
 ;;^UTILITY(U,$J,358.3,7277,0)
 ;;=K56.0^^42^385^34
 ;;^UTILITY(U,$J,358.3,7277,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7277,1,3,0)
 ;;=3^Ileus
 ;;^UTILITY(U,$J,358.3,7277,1,4,0)
 ;;=4^K56.0
 ;;^UTILITY(U,$J,358.3,7277,2)
 ;;=^89879
 ;;^UTILITY(U,$J,358.3,7278,0)
 ;;=K55.031^^42^385^36
 ;;^UTILITY(U,$J,358.3,7278,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7278,1,3,0)
 ;;=3^Ischemic colitis,Segmental
 ;;^UTILITY(U,$J,358.3,7278,1,4,0)
 ;;=4^K55.031
 ;;^UTILITY(U,$J,358.3,7278,2)
 ;;=^5138725
 ;;^UTILITY(U,$J,358.3,7279,0)
 ;;=K55.032^^42^385^35
 ;;^UTILITY(U,$J,358.3,7279,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7279,1,3,0)
 ;;=3^Ischemic colitis,Diffuse
 ;;^UTILITY(U,$J,358.3,7279,1,4,0)
 ;;=4^K55.032
 ;;^UTILITY(U,$J,358.3,7279,2)
 ;;=^5138726
 ;;^UTILITY(U,$J,358.3,7280,0)
 ;;=K52.832^^42^385^37
 ;;^UTILITY(U,$J,358.3,7280,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7280,1,3,0)
 ;;=3^Lymphocytic Colitis
 ;;^UTILITY(U,$J,358.3,7280,1,4,0)
 ;;=4^K52.832
 ;;^UTILITY(U,$J,358.3,7280,2)
 ;;=^5138716
 ;;^UTILITY(U,$J,358.3,7281,0)
 ;;=C18.1^^42^385^38
 ;;^UTILITY(U,$J,358.3,7281,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7281,1,3,0)
 ;;=3^Malignant neoplasm,Appendix
 ;;^UTILITY(U,$J,358.3,7281,1,4,0)
 ;;=4^C18.1
 ;;^UTILITY(U,$J,358.3,7281,2)
 ;;=^5000927
 ;;^UTILITY(U,$J,358.3,7282,0)
 ;;=C18.0^^42^385^40
 ;;^UTILITY(U,$J,358.3,7282,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7282,1,3,0)
 ;;=3^Malignant neoplasm,Cecum
 ;;^UTILITY(U,$J,358.3,7282,1,4,0)
 ;;=4^C18.0
 ;;^UTILITY(U,$J,358.3,7282,2)
 ;;=c182^267083
 ;;^UTILITY(U,$J,358.3,7283,0)
 ;;=C18.2^^42^385^39
 ;;^UTILITY(U,$J,358.3,7283,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7283,1,3,0)
 ;;=3^Malignant neoplasm,Ascending
 ;;^UTILITY(U,$J,358.3,7283,1,4,0)
 ;;=4^C18.2
 ;;^UTILITY(U,$J,358.3,7283,2)
 ;;=^267085
 ;;^UTILITY(U,$J,358.3,7284,0)
 ;;=C18.4^^42^385^45
 ;;^UTILITY(U,$J,358.3,7284,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7284,1,3,0)
 ;;=3^Malignant neoplasm,Transverse
 ;;^UTILITY(U,$J,358.3,7284,1,4,0)
 ;;=4^C18.4
 ;;^UTILITY(U,$J,358.3,7284,2)
 ;;=^267080
 ;;^UTILITY(U,$J,358.3,7285,0)
 ;;=C18.6^^42^385^41
 ;;^UTILITY(U,$J,358.3,7285,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7285,1,3,0)
 ;;=3^Malignant neoplasm,Descending
 ;;^UTILITY(U,$J,358.3,7285,1,4,0)
 ;;=4^C18.6
 ;;^UTILITY(U,$J,358.3,7285,2)
 ;;=^267081
 ;;^UTILITY(U,$J,358.3,7286,0)
 ;;=C18.7^^42^385^44
 ;;^UTILITY(U,$J,358.3,7286,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7286,1,3,0)
 ;;=3^Malignant neoplasm,Sigmoid
 ;;^UTILITY(U,$J,358.3,7286,1,4,0)
 ;;=4^C18.7
 ;;^UTILITY(U,$J,358.3,7286,2)
 ;;=^267082
 ;;^UTILITY(U,$J,358.3,7287,0)
 ;;=C19.^^42^385^42
 ;;^UTILITY(U,$J,358.3,7287,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7287,1,3,0)
 ;;=3^Malignant neoplasm,Rectosigmoid
 ;;^UTILITY(U,$J,358.3,7287,1,4,0)
 ;;=4^C19.
 ;;^UTILITY(U,$J,358.3,7287,2)
 ;;=^267089
 ;;^UTILITY(U,$J,358.3,7288,0)
 ;;=C20.^^42^385^43
 ;;^UTILITY(U,$J,358.3,7288,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7288,1,3,0)
 ;;=3^Malignant neoplasm,Rectum
 ;;^UTILITY(U,$J,358.3,7288,1,4,0)
 ;;=4^C20.
 ;;^UTILITY(U,$J,358.3,7288,2)
 ;;=^267090
 ;;^UTILITY(U,$J,358.3,7289,0)
 ;;=C18.9^^42^385^46
 ;;^UTILITY(U,$J,358.3,7289,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7289,1,3,0)
 ;;=3^Malignant neoplasm,Unspec Colon
 ;;^UTILITY(U,$J,358.3,7289,1,4,0)
 ;;=4^C18.9
 ;;^UTILITY(U,$J,358.3,7289,2)
 ;;=^5000929
 ;;^UTILITY(U,$J,358.3,7290,0)
 ;;=K59.39^^42^385^47
 ;;^UTILITY(U,$J,358.3,7290,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7290,1,3,0)
 ;;=3^Megacolon,Other
 ;;^UTILITY(U,$J,358.3,7290,1,4,0)
 ;;=4^K59.39
 ;;^UTILITY(U,$J,358.3,7290,2)
 ;;=^5138745
 ;;^UTILITY(U,$J,358.3,7291,0)
 ;;=K59.31^^42^385^48
 ;;^UTILITY(U,$J,358.3,7291,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7291,1,3,0)
 ;;=3^Megacolon,Toxic
 ;;^UTILITY(U,$J,358.3,7291,1,4,0)
 ;;=4^K59.31
 ;;^UTILITY(U,$J,358.3,7291,2)
 ;;=^7050667
 ;;^UTILITY(U,$J,358.3,7292,0)
 ;;=K63.89^^42^385^49
 ;;^UTILITY(U,$J,358.3,7292,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7292,1,3,0)
 ;;=3^Melanosis coli or Pneumatosis coli
 ;;^UTILITY(U,$J,358.3,7292,1,4,0)
 ;;=4^K63.89
 ;;^UTILITY(U,$J,358.3,7292,2)
 ;;=^5008767
 ;;^UTILITY(U,$J,358.3,7293,0)
 ;;=K52.838^^42^385^50
 ;;^UTILITY(U,$J,358.3,7293,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7293,1,3,0)
 ;;=3^Microscopic Colitis
 ;;^UTILITY(U,$J,358.3,7293,1,4,0)
 ;;=4^K52.838
 ;;^UTILITY(U,$J,358.3,7293,2)
 ;;=^5138717
 ;;^UTILITY(U,$J,358.3,7294,0)
 ;;=K63.1^^42^385^52
 ;;^UTILITY(U,$J,358.3,7294,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7294,1,3,0)
 ;;=3^Performation of Intestine (non-traumatic)
 ;;^UTILITY(U,$J,358.3,7294,1,4,0)
 ;;=4^K63.1
 ;;^UTILITY(U,$J,358.3,7294,2)
 ;;=^5008761
 ;;^UTILITY(U,$J,358.3,7295,0)
 ;;=K63.5^^42^385^53
 ;;^UTILITY(U,$J,358.3,7295,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7295,1,3,0)
 ;;=3^Polyp of Colon
 ;;^UTILITY(U,$J,358.3,7295,1,4,0)
 ;;=4^K63.5
 ;;^UTILITY(U,$J,358.3,7295,2)
 ;;=^5008765
 ;;^UTILITY(U,$J,358.3,7296,0)
 ;;=K62.1^^42^385^54
 ;;^UTILITY(U,$J,358.3,7296,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7296,1,3,0)
 ;;=3^Polyp of Rectum
 ;;^UTILITY(U,$J,358.3,7296,1,4,0)
 ;;=4^K62.1
 ;;^UTILITY(U,$J,358.3,7296,2)
 ;;=^104099
 ;;^UTILITY(U,$J,358.3,7297,0)
 ;;=K52.0^^42^385^55
 ;;^UTILITY(U,$J,358.3,7297,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7297,1,3,0)
 ;;=3^Radiation-induced gastroenteritis & colitis
 ;;^UTILITY(U,$J,358.3,7297,1,4,0)
 ;;=4^K52.0
 ;;^UTILITY(U,$J,358.3,7297,2)
 ;;=^270254
 ;;^UTILITY(U,$J,358.3,7298,0)
 ;;=K63.3^^42^385^56
 ;;^UTILITY(U,$J,358.3,7298,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7298,1,3,0)
 ;;=3^Ulcer of Colon
 ;;^UTILITY(U,$J,358.3,7298,1,4,0)
 ;;=4^K63.3
 ;;^UTILITY(U,$J,358.3,7298,2)
 ;;=^5008763
 ;;^UTILITY(U,$J,358.3,7299,0)
 ;;=K56.2^^42^385^57
 ;;^UTILITY(U,$J,358.3,7299,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7299,1,3,0)
 ;;=3^Volvulus
 ;;^UTILITY(U,$J,358.3,7299,1,4,0)
 ;;=4^K56.2
 ;;^UTILITY(U,$J,358.3,7299,2)
 ;;=^5008711
 ;;^UTILITY(U,$J,358.3,7300,0)
 ;;=K63.9^^42^385^22
 ;;^UTILITY(U,$J,358.3,7300,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7300,1,3,0)
 ;;=3^Disease of Intestine,Unspec
 ;;^UTILITY(U,$J,358.3,7300,1,4,0)
 ;;=4^K63.9
 ;;^UTILITY(U,$J,358.3,7300,2)
 ;;=^5008768
 ;;^UTILITY(U,$J,358.3,7301,0)
 ;;=K57.33^^42^385^25
 ;;^UTILITY(U,$J,358.3,7301,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7301,1,3,0)
 ;;=3^Diverticulitis of Colon w/Bleeding
 ;;^UTILITY(U,$J,358.3,7301,1,4,0)
 ;;=4^K57.33
 ;;^UTILITY(U,$J,358.3,7301,2)
 ;;=^5008726
 ;;^UTILITY(U,$J,358.3,7302,0)
 ;;=K63.2^^42^385^31
 ;;^UTILITY(U,$J,358.3,7302,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7302,1,3,0)
 ;;=3^Fistula of Intestine
 ;;^UTILITY(U,$J,358.3,7302,1,4,0)
 ;;=4^K63.2
 ;;^UTILITY(U,$J,358.3,7302,2)
 ;;=^5008762
 ;;^UTILITY(U,$J,358.3,7303,0)
 ;;=A04.71^^42^385^18
 ;;^UTILITY(U,$J,358.3,7303,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7303,1,3,0)
 ;;=3^Clostridium difficile enterocolitis,recurrent
 ;;^UTILITY(U,$J,358.3,7303,1,4,0)
 ;;=4^A04.71
 ;;^UTILITY(U,$J,358.3,7303,2)
 ;;=^5151291
 ;;^UTILITY(U,$J,358.3,7304,0)
 ;;=A04.72^^42^385^17
 ;;^UTILITY(U,$J,358.3,7304,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7304,1,3,0)
 ;;=3^Clostridium difficile enterocolitis
 ;;^UTILITY(U,$J,358.3,7304,1,4,0)
 ;;=4^A04.72
 ;;^UTILITY(U,$J,358.3,7304,2)
 ;;=^5151292
 ;;^UTILITY(U,$J,358.3,7305,0)
 ;;=K52.9^^42^385^19
 ;;^UTILITY(U,$J,358.3,7305,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7305,1,3,0)
 ;;=3^Colitis,Unspec
 ;;^UTILITY(U,$J,358.3,7305,1,4,0)
 ;;=4^K52.9
 ;;^UTILITY(U,$J,358.3,7305,2)
 ;;=^5008704
 ;;^UTILITY(U,$J,358.3,7306,0)
 ;;=K56.7^^42^385^51
 ;;^UTILITY(U,$J,358.3,7306,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7306,1,3,0)
 ;;=3^Paralytic;Ileus NOS
 ;;^UTILITY(U,$J,358.3,7306,1,4,0)
 ;;=4^K56.7
 ;;^UTILITY(U,$J,358.3,7306,2)
 ;;=^5008714
 ;;^UTILITY(U,$J,358.3,7307,0)
 ;;=B18.1^^42^386^54
 ;;^UTILITY(U,$J,358.3,7307,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7307,1,3,0)
 ;;=3^Hepatitis B,Chronic w/o Delta
 ;;^UTILITY(U,$J,358.3,7307,1,4,0)
 ;;=4^B18.1
 ;;^UTILITY(U,$J,358.3,7307,2)
 ;;=^5000547
 ;;^UTILITY(U,$J,358.3,7308,0)
 ;;=B18.2^^42^386^58
 ;;^UTILITY(U,$J,358.3,7308,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7308,1,3,0)
 ;;=3^Hepatitis C,Chronic
 ;;^UTILITY(U,$J,358.3,7308,1,4,0)
 ;;=4^B18.2
 ;;^UTILITY(U,$J,358.3,7308,2)
 ;;=^5000548
 ;;^UTILITY(U,$J,358.3,7309,0)
 ;;=K76.0^^42^386^30
 ;;^UTILITY(U,$J,358.3,7309,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7309,1,3,0)
 ;;=3^Fatty (change of) liver,Nonalcoholic
 ;;^UTILITY(U,$J,358.3,7309,1,4,0)
 ;;=4^K76.0
 ;;^UTILITY(U,$J,358.3,7309,2)
 ;;=^5008831
 ;;^UTILITY(U,$J,358.3,7310,0)
 ;;=K74.60^^42^386^20
 ;;^UTILITY(U,$J,358.3,7310,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7310,1,3,0)
 ;;=3^Cirrhosis,Other specified cause
 ;;^UTILITY(U,$J,358.3,7310,1,4,0)
 ;;=4^K74.60
 ;;^UTILITY(U,$J,358.3,7310,2)
 ;;=^5008822
 ;;^UTILITY(U,$J,358.3,7311,0)
 ;;=K74.69^^42^386^19
 ;;^UTILITY(U,$J,358.3,7311,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7311,1,3,0)
 ;;=3^Cirrhosis,Cryptogenic
 ;;^UTILITY(U,$J,358.3,7311,1,4,0)
 ;;=4^K74.69
 ;;^UTILITY(U,$J,358.3,7311,2)
 ;;=^5008823
 ;;^UTILITY(U,$J,358.3,7312,0)
 ;;=K75.0^^42^386^3
 ;;^UTILITY(U,$J,358.3,7312,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7312,1,3,0)
 ;;=3^Abscess of liver
 ;;^UTILITY(U,$J,358.3,7312,1,4,0)
 ;;=4^K75.0
 ;;^UTILITY(U,$J,358.3,7312,2)
 ;;=^5008824
 ;;^UTILITY(U,$J,358.3,7313,0)
 ;;=K70.0^^42^386^29
 ;;^UTILITY(U,$J,358.3,7313,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7313,1,3,0)
 ;;=3^Fatty (change of) liver,Alcoholic
 ;;^UTILITY(U,$J,358.3,7313,1,4,0)
 ;;=4^K70.0
 ;;^UTILITY(U,$J,358.3,7313,2)
 ;;=^5008784
 ;;^UTILITY(U,$J,358.3,7314,0)
 ;;=K70.10^^42^386^11
 ;;^UTILITY(U,$J,358.3,7314,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7314,1,3,0)
 ;;=3^Alcoholic hepatitis (Acute) w/o Ascites
 ;;^UTILITY(U,$J,358.3,7314,1,4,0)
 ;;=4^K70.10
 ;;^UTILITY(U,$J,358.3,7314,2)
 ;;=^5008785