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

IBDEI01Z.m

Go to the documentation of this file.
IBDEI01Z ; ; 03-MAY-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 2021
 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,4437,0)
 ;;=C18.8^^34^294^69
 ;;^UTILITY(U,$J,358.3,4437,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4437,1,3,0)
 ;;=3^Malig Neop of Overlapping Sites of Colon
 ;;^UTILITY(U,$J,358.3,4437,1,4,0)
 ;;=4^C18.8
 ;;^UTILITY(U,$J,358.3,4437,2)
 ;;=^5000928
 ;;^UTILITY(U,$J,358.3,4438,0)
 ;;=C18.9^^34^294^58
 ;;^UTILITY(U,$J,358.3,4438,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4438,1,3,0)
 ;;=3^Malig Neop of Colon,Unspec
 ;;^UTILITY(U,$J,358.3,4438,1,4,0)
 ;;=4^C18.9
 ;;^UTILITY(U,$J,358.3,4438,2)
 ;;=^5000929
 ;;^UTILITY(U,$J,358.3,4439,0)
 ;;=C19.^^34^294^78
 ;;^UTILITY(U,$J,358.3,4439,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4439,1,3,0)
 ;;=3^Malig Neop of Rectosigmoid Junction
 ;;^UTILITY(U,$J,358.3,4439,1,4,0)
 ;;=4^C19.
 ;;^UTILITY(U,$J,358.3,4439,2)
 ;;=^267089
 ;;^UTILITY(U,$J,358.3,4440,0)
 ;;=C20.^^34^294^79
 ;;^UTILITY(U,$J,358.3,4440,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4440,1,3,0)
 ;;=3^Malig Neop of Rectum
 ;;^UTILITY(U,$J,358.3,4440,1,4,0)
 ;;=4^C20.
 ;;^UTILITY(U,$J,358.3,4440,2)
 ;;=^267090
 ;;^UTILITY(U,$J,358.3,4441,0)
 ;;=C25.0^^34^294^64
 ;;^UTILITY(U,$J,358.3,4441,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4441,1,3,0)
 ;;=3^Malig Neop of Head of Pancreas
 ;;^UTILITY(U,$J,358.3,4441,1,4,0)
 ;;=4^C25.0
 ;;^UTILITY(U,$J,358.3,4441,2)
 ;;=^267104
 ;;^UTILITY(U,$J,358.3,4442,0)
 ;;=C25.1^^34^294^54
 ;;^UTILITY(U,$J,358.3,4442,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4442,1,3,0)
 ;;=3^Malig Neop of Body of Pancreas
 ;;^UTILITY(U,$J,358.3,4442,1,4,0)
 ;;=4^C25.1
 ;;^UTILITY(U,$J,358.3,4442,2)
 ;;=^267105
 ;;^UTILITY(U,$J,358.3,4443,0)
 ;;=C25.2^^34^294^83
 ;;^UTILITY(U,$J,358.3,4443,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4443,1,3,0)
 ;;=3^Malig Neop of Tail of Pancreas
 ;;^UTILITY(U,$J,358.3,4443,1,4,0)
 ;;=4^C25.2
 ;;^UTILITY(U,$J,358.3,4443,2)
 ;;=^267106
 ;;^UTILITY(U,$J,358.3,4444,0)
 ;;=C25.3^^34^294^75
 ;;^UTILITY(U,$J,358.3,4444,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4444,1,3,0)
 ;;=3^Malig Neop of Pancreatic Duct
 ;;^UTILITY(U,$J,358.3,4444,1,4,0)
 ;;=4^C25.3
 ;;^UTILITY(U,$J,358.3,4444,2)
 ;;=^267107
 ;;^UTILITY(U,$J,358.3,4445,0)
 ;;=C25.4^^34^294^60
 ;;^UTILITY(U,$J,358.3,4445,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4445,1,3,0)
 ;;=3^Malig Neop of Endocrine Pancreas
 ;;^UTILITY(U,$J,358.3,4445,1,4,0)
 ;;=4^C25.4
 ;;^UTILITY(U,$J,358.3,4445,2)
 ;;=^5000943
 ;;^UTILITY(U,$J,358.3,4446,0)
 ;;=C25.7^^34^294^73
 ;;^UTILITY(U,$J,358.3,4446,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4446,1,3,0)
 ;;=3^Malig Neop of Pancreas NEC
 ;;^UTILITY(U,$J,358.3,4446,1,4,0)
 ;;=4^C25.7
 ;;^UTILITY(U,$J,358.3,4446,2)
 ;;=^5000944
 ;;^UTILITY(U,$J,358.3,4447,0)
 ;;=C25.8^^34^294^71
 ;;^UTILITY(U,$J,358.3,4447,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4447,1,3,0)
 ;;=3^Malig Neop of Overlapping Sites of Pancreas
 ;;^UTILITY(U,$J,358.3,4447,1,4,0)
 ;;=4^C25.8
 ;;^UTILITY(U,$J,358.3,4447,2)
 ;;=^5000945
 ;;^UTILITY(U,$J,358.3,4448,0)
 ;;=C25.9^^34^294^74
 ;;^UTILITY(U,$J,358.3,4448,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4448,1,3,0)
 ;;=3^Malig Neop of Pancreas,Unspec
 ;;^UTILITY(U,$J,358.3,4448,1,4,0)
 ;;=4^C25.9
 ;;^UTILITY(U,$J,358.3,4448,2)
 ;;=^5000946
 ;;^UTILITY(U,$J,358.3,4449,0)
 ;;=D12.0^^34^294^12
 ;;^UTILITY(U,$J,358.3,4449,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4449,1,3,0)
 ;;=3^Benign Neop of Cecum
 ;;^UTILITY(U,$J,358.3,4449,1,4,0)
 ;;=4^D12.0
 ;;^UTILITY(U,$J,358.3,4449,2)
 ;;=^5001963
 ;;^UTILITY(U,$J,358.3,4450,0)
 ;;=D12.1^^34^294^10
 ;;^UTILITY(U,$J,358.3,4450,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4450,1,3,0)
 ;;=3^Benign Neop of Appendix
 ;;^UTILITY(U,$J,358.3,4450,1,4,0)
 ;;=4^D12.1
 ;;^UTILITY(U,$J,358.3,4450,2)
 ;;=^5001964
 ;;^UTILITY(U,$J,358.3,4451,0)
 ;;=D12.2^^34^294^11
 ;;^UTILITY(U,$J,358.3,4451,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4451,1,3,0)
 ;;=3^Benign Neop of Ascending Colon
 ;;^UTILITY(U,$J,358.3,4451,1,4,0)
 ;;=4^D12.2
 ;;^UTILITY(U,$J,358.3,4451,2)
 ;;=^5001965
 ;;^UTILITY(U,$J,358.3,4452,0)
 ;;=D12.3^^34^294^16
 ;;^UTILITY(U,$J,358.3,4452,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4452,1,3,0)
 ;;=3^Benign Neop of Transverse Colon
 ;;^UTILITY(U,$J,358.3,4452,1,4,0)
 ;;=4^D12.3
 ;;^UTILITY(U,$J,358.3,4452,2)
 ;;=^5001966
 ;;^UTILITY(U,$J,358.3,4453,0)
 ;;=D12.4^^34^294^14
 ;;^UTILITY(U,$J,358.3,4453,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4453,1,3,0)
 ;;=3^Benign Neop of Descending Colon
 ;;^UTILITY(U,$J,358.3,4453,1,4,0)
 ;;=4^D12.4
 ;;^UTILITY(U,$J,358.3,4453,2)
 ;;=^5001967
 ;;^UTILITY(U,$J,358.3,4454,0)
 ;;=D12.5^^34^294^15
 ;;^UTILITY(U,$J,358.3,4454,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4454,1,3,0)
 ;;=3^Benign Neop of Sigmoid Colon
 ;;^UTILITY(U,$J,358.3,4454,1,4,0)
 ;;=4^D12.5
 ;;^UTILITY(U,$J,358.3,4454,2)
 ;;=^5001968
 ;;^UTILITY(U,$J,358.3,4455,0)
 ;;=D12.6^^34^294^13
 ;;^UTILITY(U,$J,358.3,4455,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4455,1,3,0)
 ;;=3^Benign Neop of Colon,Unspec
 ;;^UTILITY(U,$J,358.3,4455,1,4,0)
 ;;=4^D12.6
 ;;^UTILITY(U,$J,358.3,4455,2)
 ;;=^5001969
 ;;^UTILITY(U,$J,358.3,4456,0)
 ;;=E66.01^^34^294^87
 ;;^UTILITY(U,$J,358.3,4456,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4456,1,3,0)
 ;;=3^Morbid Obesity d/t Excess Calories
 ;;^UTILITY(U,$J,358.3,4456,1,4,0)
 ;;=4^E66.01
 ;;^UTILITY(U,$J,358.3,4456,2)
 ;;=^5002826
 ;;^UTILITY(U,$J,358.3,4457,0)
 ;;=E66.9^^34^294^88
 ;;^UTILITY(U,$J,358.3,4457,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4457,1,3,0)
 ;;=3^Obesity,Unspec
 ;;^UTILITY(U,$J,358.3,4457,1,4,0)
 ;;=4^E66.9
 ;;^UTILITY(U,$J,358.3,4457,2)
 ;;=^5002832
 ;;^UTILITY(U,$J,358.3,4458,0)
 ;;=K21.9^^34^294^38
 ;;^UTILITY(U,$J,358.3,4458,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4458,1,3,0)
 ;;=3^Gastro-Esophageal Reflux Disease w/o Esophagitis
 ;;^UTILITY(U,$J,358.3,4458,1,4,0)
 ;;=4^K21.9
 ;;^UTILITY(U,$J,358.3,4458,2)
 ;;=^5008505
 ;;^UTILITY(U,$J,358.3,4459,0)
 ;;=K22.10^^34^294^35
 ;;^UTILITY(U,$J,358.3,4459,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4459,1,3,0)
 ;;=3^Esophagus Ulcer w/o Bleeding
 ;;^UTILITY(U,$J,358.3,4459,1,4,0)
 ;;=4^K22.10
 ;;^UTILITY(U,$J,358.3,4459,2)
 ;;=^329929
 ;;^UTILITY(U,$J,358.3,4460,0)
 ;;=K22.2^^34^294^34
 ;;^UTILITY(U,$J,358.3,4460,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4460,1,3,0)
 ;;=3^Esophageal Obstruction
 ;;^UTILITY(U,$J,358.3,4460,1,4,0)
 ;;=4^K22.2
 ;;^UTILITY(U,$J,358.3,4460,2)
 ;;=^5008507
 ;;^UTILITY(U,$J,358.3,4461,0)
 ;;=K25.9^^34^294^37
 ;;^UTILITY(U,$J,358.3,4461,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4461,1,3,0)
 ;;=3^Gastric Ulcer w/o Hemorrhage/Perforation
 ;;^UTILITY(U,$J,358.3,4461,1,4,0)
 ;;=4^K25.9
 ;;^UTILITY(U,$J,358.3,4461,2)
 ;;=^5008522
 ;;^UTILITY(U,$J,358.3,4462,0)
 ;;=K27.9^^34^294^89
 ;;^UTILITY(U,$J,358.3,4462,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4462,1,3,0)
 ;;=3^Peptic Ulcer w/o Hemorrhage/Perforation
 ;;^UTILITY(U,$J,358.3,4462,1,4,0)
 ;;=4^K27.9
 ;;^UTILITY(U,$J,358.3,4462,2)
 ;;=^5008536
 ;;^UTILITY(U,$J,358.3,4463,0)
 ;;=K40.20^^34^294^17
 ;;^UTILITY(U,$J,358.3,4463,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4463,1,3,0)
 ;;=3^Bilateral Inguinal Hernia
 ;;^UTILITY(U,$J,358.3,4463,1,4,0)
 ;;=4^K40.20
 ;;^UTILITY(U,$J,358.3,4463,2)
 ;;=^5008585
 ;;^UTILITY(U,$J,358.3,4464,0)
 ;;=K40.90^^34^294^96
 ;;^UTILITY(U,$J,358.3,4464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4464,1,3,0)
 ;;=3^Unilateral Inguinal Hernia
 ;;^UTILITY(U,$J,358.3,4464,1,4,0)
 ;;=4^K40.90
 ;;^UTILITY(U,$J,358.3,4464,2)
 ;;=^5008591
 ;;^UTILITY(U,$J,358.3,4465,0)
 ;;=K42.9^^34^294^95
 ;;^UTILITY(U,$J,358.3,4465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4465,1,3,0)
 ;;=3^Umbilical Hernia w/o Obstruction/Gangrene
 ;;^UTILITY(U,$J,358.3,4465,1,4,0)
 ;;=4^K42.9
 ;;^UTILITY(U,$J,358.3,4465,2)
 ;;=^5008606
 ;;^UTILITY(U,$J,358.3,4466,0)
 ;;=K43.9^^34^294^97
 ;;^UTILITY(U,$J,358.3,4466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4466,1,3,0)
 ;;=3^Ventral Hernia w/o Obstruction/Gangrene
 ;;^UTILITY(U,$J,358.3,4466,1,4,0)
 ;;=4^K43.9
 ;;^UTILITY(U,$J,358.3,4466,2)
 ;;=^5008615
 ;;^UTILITY(U,$J,358.3,4467,0)
 ;;=K44.9^^34^294^28
 ;;^UTILITY(U,$J,358.3,4467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4467,1,3,0)
 ;;=3^Diaphragmatic Hernia
 ;;^UTILITY(U,$J,358.3,4467,1,4,0)
 ;;=4^K44.9
 ;;^UTILITY(U,$J,358.3,4467,2)
 ;;=^5008617
 ;;^UTILITY(U,$J,358.3,4468,0)
 ;;=K56.49^^34^294^45
 ;;^UTILITY(U,$J,358.3,4468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4468,1,3,0)
 ;;=3^Impaction of Intestine NEC
 ;;^UTILITY(U,$J,358.3,4468,1,4,0)
 ;;=4^K56.49
 ;;^UTILITY(U,$J,358.3,4468,2)
 ;;=^87650
 ;;^UTILITY(U,$J,358.3,4469,0)
 ;;=K58.0^^34^294^48
 ;;^UTILITY(U,$J,358.3,4469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4469,1,3,0)
 ;;=3^Irritable Bowel Syndrome w/ Diarrhea
 ;;^UTILITY(U,$J,358.3,4469,1,4,0)
 ;;=4^K58.0
 ;;^UTILITY(U,$J,358.3,4469,2)
 ;;=^5008739
 ;;^UTILITY(U,$J,358.3,4470,0)
 ;;=K58.9^^34^294^49
 ;;^UTILITY(U,$J,358.3,4470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4470,1,3,0)
 ;;=3^Irritable Bowel Syndrome w/o Diarrhea
 ;;^UTILITY(U,$J,358.3,4470,1,4,0)
 ;;=4^K58.9
 ;;^UTILITY(U,$J,358.3,4470,2)
 ;;=^5008740
 ;;^UTILITY(U,$J,358.3,4471,0)
 ;;=K59.00^^34^294^26
 ;;^UTILITY(U,$J,358.3,4471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4471,1,3,0)
 ;;=3^Constipation,Unspec
 ;;^UTILITY(U,$J,358.3,4471,1,4,0)
 ;;=4^K59.00
 ;;^UTILITY(U,$J,358.3,4471,2)
 ;;=^323537
 ;;^UTILITY(U,$J,358.3,4472,0)
 ;;=K61.0^^34^294^8
 ;;^UTILITY(U,$J,358.3,4472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4472,1,3,0)
 ;;=3^Anal Abscess
 ;;^UTILITY(U,$J,358.3,4472,1,4,0)
 ;;=4^K61.0
 ;;^UTILITY(U,$J,358.3,4472,2)
 ;;=^5008749
 ;;^UTILITY(U,$J,358.3,4473,0)
 ;;=K61.1^^34^294^90
 ;;^UTILITY(U,$J,358.3,4473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4473,1,3,0)
 ;;=3^Rectal Abscess
 ;;^UTILITY(U,$J,358.3,4473,1,4,0)
 ;;=4^K61.1
 ;;^UTILITY(U,$J,358.3,4473,2)
 ;;=^259588
 ;;^UTILITY(U,$J,358.3,4474,0)
 ;;=K61.2^^34^294^9
 ;;^UTILITY(U,$J,358.3,4474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4474,1,3,0)
 ;;=3^Anorectal Abscess
 ;;^UTILITY(U,$J,358.3,4474,1,4,0)
 ;;=4^K61.2
 ;;^UTILITY(U,$J,358.3,4474,2)
 ;;=^5008750
 ;;^UTILITY(U,$J,358.3,4475,0)
 ;;=K61.4^^34^294^47
 ;;^UTILITY(U,$J,358.3,4475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4475,1,3,0)
 ;;=3^Intrasphincteric Abscess
 ;;^UTILITY(U,$J,358.3,4475,1,4,0)
 ;;=4^K61.4
 ;;^UTILITY(U,$J,358.3,4475,2)
 ;;=^5008752
 ;;^UTILITY(U,$J,358.3,4476,0)
 ;;=K63.5^^34^294^21
 ;;^UTILITY(U,$J,358.3,4476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4476,1,3,0)
 ;;=3^Colon Polyp
 ;;^UTILITY(U,$J,358.3,4476,1,4,0)
 ;;=4^K63.5
 ;;^UTILITY(U,$J,358.3,4476,2)
 ;;=^5008765
 ;;^UTILITY(U,$J,358.3,4477,0)
 ;;=K70.2^^34^294^7
 ;;^UTILITY(U,$J,358.3,4477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4477,1,3,0)
 ;;=3^Alcoholic Fibrosis/Sclerosis of Liver
 ;;^UTILITY(U,$J,358.3,4477,1,4,0)
 ;;=4^K70.2
 ;;^UTILITY(U,$J,358.3,4477,2)
 ;;=^5008787
 ;;^UTILITY(U,$J,358.3,4478,0)
 ;;=K80.20^^34^294^18
 ;;^UTILITY(U,$J,358.3,4478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4478,1,3,0)
 ;;=3^Calculus of Gallbladder w/o Cholecystitis/Obstruction
 ;;^UTILITY(U,$J,358.3,4478,1,4,0)
 ;;=4^K80.20
 ;;^UTILITY(U,$J,358.3,4478,2)
 ;;=^5008846
 ;;^UTILITY(U,$J,358.3,4479,0)
 ;;=K80.80^^34^294^20
 ;;^UTILITY(U,$J,358.3,4479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4479,1,3,0)
 ;;=3^Cholelithiasis w/o Obstruction NEC
 ;;^UTILITY(U,$J,358.3,4479,1,4,0)
 ;;=4^K80.80
 ;;^UTILITY(U,$J,358.3,4479,2)
 ;;=^5008871
 ;;^UTILITY(U,$J,358.3,4480,0)
 ;;=K81.9^^34^294^19
 ;;^UTILITY(U,$J,358.3,4480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4480,1,3,0)
 ;;=3^Cholecystitis,Unspec
 ;;^UTILITY(U,$J,358.3,4480,1,4,0)
 ;;=4^K81.9
 ;;^UTILITY(U,$J,358.3,4480,2)
 ;;=^87388
 ;;^UTILITY(U,$J,358.3,4481,0)
 ;;=K92.1^^34^294^86
 ;;^UTILITY(U,$J,358.3,4481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4481,1,3,0)
 ;;=3^Melena
 ;;^UTILITY(U,$J,358.3,4481,1,4,0)
 ;;=4^K92.1
 ;;^UTILITY(U,$J,358.3,4481,2)
 ;;=^5008914
 ;;^UTILITY(U,$J,358.3,4482,0)
 ;;=K94.01^^34^294^23
 ;;^UTILITY(U,$J,358.3,4482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4482,1,3,0)
 ;;=3^Colostomy Hemorrhage
 ;;^UTILITY(U,$J,358.3,4482,1,4,0)
 ;;=4^K94.01
 ;;^UTILITY(U,$J,358.3,4482,2)
 ;;=^5008919
 ;;^UTILITY(U,$J,358.3,4483,0)
 ;;=K94.02^^34^294^24
 ;;^UTILITY(U,$J,358.3,4483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4483,1,3,0)
 ;;=3^Colostomy Infection
 ;;^UTILITY(U,$J,358.3,4483,1,4,0)
 ;;=4^K94.02
 ;;^UTILITY(U,$J,358.3,4483,2)
 ;;=^5008920
 ;;^UTILITY(U,$J,358.3,4484,0)
 ;;=K94.03^^34^294^25
 ;;^UTILITY(U,$J,358.3,4484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4484,1,3,0)
 ;;=3^Colostomy Malfunction
 ;;^UTILITY(U,$J,358.3,4484,1,4,0)
 ;;=4^K94.03
 ;;^UTILITY(U,$J,358.3,4484,2)
 ;;=^5008921
 ;;^UTILITY(U,$J,358.3,4485,0)
 ;;=K94.09^^34^294^22
 ;;^UTILITY(U,$J,358.3,4485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4485,1,3,0)
 ;;=3^Colostomy Complications NEC
 ;;^UTILITY(U,$J,358.3,4485,1,4,0)
 ;;=4^K94.09
 ;;^UTILITY(U,$J,358.3,4485,2)
 ;;=^5008922
 ;;^UTILITY(U,$J,358.3,4486,0)
 ;;=K94.11^^34^294^31
 ;;^UTILITY(U,$J,358.3,4486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4486,1,3,0)
 ;;=3^Enterostomy Hemorrhage
 ;;^UTILITY(U,$J,358.3,4486,1,4,0)
 ;;=4^K94.11
 ;;^UTILITY(U,$J,358.3,4486,2)
 ;;=^5008924
 ;;^UTILITY(U,$J,358.3,4487,0)
 ;;=K94.12^^34^294^32
 ;;^UTILITY(U,$J,358.3,4487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4487,1,3,0)
 ;;=3^Enterostomy Infection
 ;;^UTILITY(U,$J,358.3,4487,1,4,0)
 ;;=4^K94.12
 ;;^UTILITY(U,$J,358.3,4487,2)
 ;;=^5008925
 ;;^UTILITY(U,$J,358.3,4488,0)
 ;;=K94.13^^34^294^33
 ;;^UTILITY(U,$J,358.3,4488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4488,1,3,0)
 ;;=3^Enterostomy Malfunction
 ;;^UTILITY(U,$J,358.3,4488,1,4,0)
 ;;=4^K94.13
 ;;^UTILITY(U,$J,358.3,4488,2)
 ;;=^5008926
 ;;^UTILITY(U,$J,358.3,4489,0)
 ;;=K94.19^^34^294^30
 ;;^UTILITY(U,$J,358.3,4489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4489,1,3,0)
 ;;=3^Enterostomy Complications NEC
 ;;^UTILITY(U,$J,358.3,4489,1,4,0)
 ;;=4^K94.19
 ;;^UTILITY(U,$J,358.3,4489,2)
 ;;=^5008927
 ;;^UTILITY(U,$J,358.3,4490,0)
 ;;=K94.21^^34^294^40
 ;;^UTILITY(U,$J,358.3,4490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4490,1,3,0)
 ;;=3^Gastrostomy Hemorrhage
 ;;^UTILITY(U,$J,358.3,4490,1,4,0)
 ;;=4^K94.21
 ;;^UTILITY(U,$J,358.3,4490,2)
 ;;=^5008929
 ;;^UTILITY(U,$J,358.3,4491,0)
 ;;=K94.22^^34^294^41
 ;;^UTILITY(U,$J,358.3,4491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4491,1,3,0)
 ;;=3^Gastrostomy Infection
 ;;^UTILITY(U,$J,358.3,4491,1,4,0)
 ;;=4^K94.22
 ;;^UTILITY(U,$J,358.3,4491,2)
 ;;=^5008930
 ;;^UTILITY(U,$J,358.3,4492,0)
 ;;=K94.23^^34^294^42
 ;;^UTILITY(U,$J,358.3,4492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4492,1,3,0)
 ;;=3^Gastrostomy Malfunction
 ;;^UTILITY(U,$J,358.3,4492,1,4,0)
 ;;=4^K94.23
 ;;^UTILITY(U,$J,358.3,4492,2)
 ;;=^5008931
 ;;^UTILITY(U,$J,358.3,4493,0)
 ;;=K94.29^^34^294^39
 ;;^UTILITY(U,$J,358.3,4493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4493,1,3,0)
 ;;=3^Gastrostomy Complications NEC
 ;;^UTILITY(U,$J,358.3,4493,1,4,0)
 ;;=4^K94.29
 ;;^UTILITY(U,$J,358.3,4493,2)
 ;;=^5008932
 ;;^UTILITY(U,$J,358.3,4494,0)
 ;;=R16.0^^34^294^43
 ;;^UTILITY(U,$J,358.3,4494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4494,1,3,0)
 ;;=3^Hepatomegaly NEC
 ;;^UTILITY(U,$J,358.3,4494,1,4,0)
 ;;=4^R16.0
 ;;^UTILITY(U,$J,358.3,4494,2)
 ;;=^5019248
 ;;^UTILITY(U,$J,358.3,4495,0)
 ;;=R16.2^^34^294^44
 ;;^UTILITY(U,$J,358.3,4495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4495,1,3,0)
 ;;=3^Hepatomegaly w/ Splenomegaly NEC
 ;;^UTILITY(U,$J,358.3,4495,1,4,0)
 ;;=4^R16.2
 ;;^UTILITY(U,$J,358.3,4495,2)
 ;;=^5019250
 ;;^UTILITY(U,$J,358.3,4496,0)
 ;;=R19.5^^34^294^36
 ;;^UTILITY(U,$J,358.3,4496,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4496,1,3,0)
 ;;=3^Fecal Abnormalities
 ;;^UTILITY(U,$J,358.3,4496,1,4,0)
 ;;=4^R19.5
 ;;^UTILITY(U,$J,358.3,4496,2)
 ;;=^5019274
 ;;^UTILITY(U,$J,358.3,4497,0)
 ;;=R19.7^^34^294^29
 ;;^UTILITY(U,$J,358.3,4497,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4497,1,3,0)
 ;;=3^Diarrhea,Unspec
 ;;^UTILITY(U,$J,358.3,4497,1,4,0)
 ;;=4^R19.7
 ;;^UTILITY(U,$J,358.3,4497,2)
 ;;=^5019276
 ;;^UTILITY(U,$J,358.3,4498,0)
 ;;=K43.2^^34^294^46
 ;;^UTILITY(U,$J,358.3,4498,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4498,1,3,0)
 ;;=3^Incisional Hernia w/o Obstruction/Gangrene
 ;;^UTILITY(U,$J,358.3,4498,1,4,0)
 ;;=4^K43.2
 ;;^UTILITY(U,$J,358.3,4498,2)
 ;;=^5008609
 ;;^UTILITY(U,$J,358.3,4499,0)
 ;;=B25.2^^34^294^27
 ;;^UTILITY(U,$J,358.3,4499,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4499,1,3,0)
 ;;=3^Cytomegaloviral Pancreatitis
 ;;^UTILITY(U,$J,358.3,4499,1,4,0)
 ;;=4^B25.2
 ;;^UTILITY(U,$J,358.3,4499,2)
 ;;=^5000558
 ;;^UTILITY(U,$J,358.3,4500,0)
 ;;=C21.0^^34^294^51
 ;;^UTILITY(U,$J,358.3,4500,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4500,1,3,0)
 ;;=3^Malig Neop of Anus,Unspec
 ;;^UTILITY(U,$J,358.3,4500,1,4,0)
 ;;=4^C21.0
 ;;^UTILITY(U,$J,358.3,4500,2)
 ;;=^5000930
 ;;^UTILITY(U,$J,358.3,4501,0)
 ;;=C15.8^^34^294^70
 ;;^UTILITY(U,$J,358.3,4501,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4501,1,3,0)
 ;;=3^Malig Neop of Overlapping Sites of Esophagus
 ;;^UTILITY(U,$J,358.3,4501,1,4,0)
 ;;=4^C15.8
 ;;^UTILITY(U,$J,358.3,4501,2)
 ;;=^5000918
 ;;^UTILITY(U,$J,358.3,4502,0)
 ;;=C78.4^^34^294^94
 ;;^UTILITY(U,$J,358.3,4502,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4502,1,3,0)
 ;;=3^Secondary Malig Neop of Small Intestine
 ;;^UTILITY(U,$J,358.3,4502,1,4,0)
 ;;=4^C78.4
 ;;^UTILITY(U,$J,358.3,4502,2)
 ;;=^5001338
 ;;^UTILITY(U,$J,358.3,4503,0)
 ;;=K85.80^^34^294^1
 ;;^UTILITY(U,$J,358.3,4503,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4503,1,3,0)
 ;;=3^Acute Pancreatitis NEC
 ;;^UTILITY(U,$J,358.3,4503,1,4,0)
 ;;=4^K85.80
 ;;^UTILITY(U,$J,358.3,4503,2)
 ;;=^5138758
 ;;^UTILITY(U,$J,358.3,4504,0)
 ;;=K85.81^^34^294^4
 ;;^UTILITY(U,$J,358.3,4504,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4504,1,3,0)
 ;;=3^Acute Pancreatitis w/ Uninfected Necrosis,Other
 ;;^UTILITY(U,$J,358.3,4504,1,4,0)
 ;;=4^K85.81
 ;;^UTILITY(U,$J,358.3,4504,2)
 ;;=^5138759
 ;;^UTILITY(U,$J,358.3,4505,0)
 ;;=K85.82^^34^294^2
 ;;^UTILITY(U,$J,358.3,4505,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4505,1,3,0)
 ;;=3^Acute Pancreatitis w/ Infected Necrosis,Other
 ;;^UTILITY(U,$J,358.3,4505,1,4,0)
 ;;=4^K85.82
 ;;^UTILITY(U,$J,358.3,4505,2)
 ;;=^5138760
 ;;^UTILITY(U,$J,358.3,4506,0)
 ;;=K85.90^^34^294^6
 ;;^UTILITY(U,$J,358.3,4506,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4506,1,3,0)
 ;;=3^Acute Pancreatitis,Unspec
 ;;^UTILITY(U,$J,358.3,4506,1,4,0)
 ;;=4^K85.90
 ;;^UTILITY(U,$J,358.3,4506,2)
 ;;=^5138761
 ;;^UTILITY(U,$J,358.3,4507,0)
 ;;=K85.91^^34^294^5
 ;;^UTILITY(U,$J,358.3,4507,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4507,1,3,0)
 ;;=3^Acute Pancreatitis w/ Uninfected Necrosis
 ;;^UTILITY(U,$J,358.3,4507,1,4,0)
 ;;=4^K85.91
 ;;^UTILITY(U,$J,358.3,4507,2)
 ;;=^5138762