IBDEI035 ; ; 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,7456,1,3,0)
;;=3^Fistula of Intestine
;;^UTILITY(U,$J,358.3,7456,1,4,0)
;;=4^K63.2
;;^UTILITY(U,$J,358.3,7456,2)
;;=^5008762
;;^UTILITY(U,$J,358.3,7457,0)
;;=K52.22^^42^388^26
;;^UTILITY(U,$J,358.3,7457,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7457,1,3,0)
;;=3^Food-Protein induced enteropathy
;;^UTILITY(U,$J,358.3,7457,1,4,0)
;;=4^K52.22
;;^UTILITY(U,$J,358.3,7457,2)
;;=^5138714
;;^UTILITY(U,$J,358.3,7458,0)
;;=T18.3XXA^^42^388^27
;;^UTILITY(U,$J,358.3,7458,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7458,1,3,0)
;;=3^Foreign body in Sm Int,Initial
;;^UTILITY(U,$J,358.3,7458,1,4,0)
;;=4^T18.3XXA
;;^UTILITY(U,$J,358.3,7458,2)
;;=^5046606
;;^UTILITY(U,$J,358.3,7459,0)
;;=T18.3XXD^^42^388^29
;;^UTILITY(U,$J,358.3,7459,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7459,1,3,0)
;;=3^Foreign body in Sm Int,Subsequent
;;^UTILITY(U,$J,358.3,7459,1,4,0)
;;=4^T18.3XXD
;;^UTILITY(U,$J,358.3,7459,2)
;;=^5046607
;;^UTILITY(U,$J,358.3,7460,0)
;;=T18.3XXS^^42^388^28
;;^UTILITY(U,$J,358.3,7460,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7460,1,3,0)
;;=3^Foreign body in Sm Int,Sequela
;;^UTILITY(U,$J,358.3,7460,1,4,0)
;;=4^T18.3XXS
;;^UTILITY(U,$J,358.3,7460,2)
;;=^5046608
;;^UTILITY(U,$J,358.3,7461,0)
;;=K56.3^^42^388^30
;;^UTILITY(U,$J,358.3,7461,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7461,1,3,0)
;;=3^Gallstone ileus
;;^UTILITY(U,$J,358.3,7461,1,4,0)
;;=4^K56.3
;;^UTILITY(U,$J,358.3,7461,2)
;;=^270259
;;^UTILITY(U,$J,358.3,7462,0)
;;=E88.09^^42^388^31
;;^UTILITY(U,$J,358.3,7462,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7462,1,3,0)
;;=3^Hypoalbuminemia
;;^UTILITY(U,$J,358.3,7462,1,4,0)
;;=4^E88.09
;;^UTILITY(U,$J,358.3,7462,2)
;;=^5003027
;;^UTILITY(U,$J,358.3,7463,0)
;;=K56.0^^42^388^32
;;^UTILITY(U,$J,358.3,7463,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7463,1,3,0)
;;=3^Ileus
;;^UTILITY(U,$J,358.3,7463,1,4,0)
;;=4^K56.0
;;^UTILITY(U,$J,358.3,7463,2)
;;=^89879
;;^UTILITY(U,$J,358.3,7464,0)
;;=K56.1^^42^388^35
;;^UTILITY(U,$J,358.3,7464,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7464,1,3,0)
;;=3^Intussusception
;;^UTILITY(U,$J,358.3,7464,1,4,0)
;;=4^K56.1
;;^UTILITY(U,$J,358.3,7464,2)
;;=^65213
;;^UTILITY(U,$J,358.3,7465,0)
;;=K55.021^^42^388^34
;;^UTILITY(U,$J,358.3,7465,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7465,1,3,0)
;;=3^Infarction of Sm Int,Acute Segmental
;;^UTILITY(U,$J,358.3,7465,1,4,0)
;;=4^K55.021
;;^UTILITY(U,$J,358.3,7465,2)
;;=^5138722
;;^UTILITY(U,$J,358.3,7466,0)
;;=K55.022^^42^388^33
;;^UTILITY(U,$J,358.3,7466,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7466,1,3,0)
;;=3^Infarction of Sm Int,Acute Diffused
;;^UTILITY(U,$J,358.3,7466,1,4,0)
;;=4^K55.022
;;^UTILITY(U,$J,358.3,7466,2)
;;=^5138723
;;^UTILITY(U,$J,358.3,7467,0)
;;=K55.011^^42^388^37
;;^UTILITY(U,$J,358.3,7467,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7467,1,3,0)
;;=3^Ischemia of Sm Int,Acute Segmental
;;^UTILITY(U,$J,358.3,7467,1,4,0)
;;=4^K55.011
;;^UTILITY(U,$J,358.3,7467,2)
;;=^5138719
;;^UTILITY(U,$J,358.3,7468,0)
;;=K55.012^^42^388^36
;;^UTILITY(U,$J,358.3,7468,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7468,1,3,0)
;;=3^Ischemia of Sm Int,Acute Diffuse
;;^UTILITY(U,$J,358.3,7468,1,4,0)
;;=4^K55.012
;;^UTILITY(U,$J,358.3,7468,2)
;;=^5138720
;;^UTILITY(U,$J,358.3,7469,0)
;;=K55.1^^42^388^38
;;^UTILITY(U,$J,358.3,7469,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7469,1,3,0)
;;=3^Ischemic Sm Int,Chronic
;;^UTILITY(U,$J,358.3,7469,1,4,0)
;;=4^K55.1
;;^UTILITY(U,$J,358.3,7469,2)
;;=^5008706
;;^UTILITY(U,$J,358.3,7470,0)
;;=K90.49^^42^388^39
;;^UTILITY(U,$J,358.3,7470,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7470,1,3,0)
;;=3^Malabsortion d/t intolerance NEC
;;^UTILITY(U,$J,358.3,7470,1,4,0)
;;=4^K90.49
;;^UTILITY(U,$J,358.3,7470,2)
;;=^5008896
;;^UTILITY(U,$J,358.3,7471,0)
;;=C17.0^^42^388^40
;;^UTILITY(U,$J,358.3,7471,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7471,1,3,0)
;;=3^Malignant neoplasm,Duodenum
;;^UTILITY(U,$J,358.3,7471,1,4,0)
;;=4^C17.0
;;^UTILITY(U,$J,358.3,7471,2)
;;=^267072
;;^UTILITY(U,$J,358.3,7472,0)
;;=C17.1^^42^388^42
;;^UTILITY(U,$J,358.3,7472,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7472,1,3,0)
;;=3^Malignant neoplasm,Jejunum
;;^UTILITY(U,$J,358.3,7472,1,4,0)
;;=4^C17.1
;;^UTILITY(U,$J,358.3,7472,2)
;;=^267073
;;^UTILITY(U,$J,358.3,7473,0)
;;=C17.2^^42^388^41
;;^UTILITY(U,$J,358.3,7473,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7473,1,3,0)
;;=3^Malignant neoplasm,Ileum
;;^UTILITY(U,$J,358.3,7473,1,4,0)
;;=4^C17.2
;;^UTILITY(U,$J,358.3,7473,2)
;;=^267074
;;^UTILITY(U,$J,358.3,7474,0)
;;=C17.9^^42^388^43
;;^UTILITY(U,$J,358.3,7474,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7474,1,3,0)
;;=3^Malignant neoplasm,Unsp Sm Int
;;^UTILITY(U,$J,358.3,7474,1,4,0)
;;=4^C17.9
;;^UTILITY(U,$J,358.3,7474,2)
;;=^5000926
;;^UTILITY(U,$J,358.3,7475,0)
;;=K31.5^^42^388^44
;;^UTILITY(U,$J,358.3,7475,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7475,1,3,0)
;;=3^Obstruction of Duodenum
;;^UTILITY(U,$J,358.3,7475,1,4,0)
;;=4^K31.5
;;^UTILITY(U,$J,358.3,7475,2)
;;=^5008564
;;^UTILITY(U,$J,358.3,7476,0)
;;=K63.1^^42^388^51
;;^UTILITY(U,$J,358.3,7476,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7476,1,3,0)
;;=3^Perforation of Intestine (non-traumatic)
;;^UTILITY(U,$J,358.3,7476,1,4,0)
;;=4^K63.1
;;^UTILITY(U,$J,358.3,7476,2)
;;=^5008761
;;^UTILITY(U,$J,358.3,7477,0)
;;=K31.7^^42^388^52
;;^UTILITY(U,$J,358.3,7477,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7477,1,3,0)
;;=3^Polyp of Duodenum
;;^UTILITY(U,$J,358.3,7477,1,4,0)
;;=4^K31.7
;;^UTILITY(U,$J,358.3,7477,2)
;;=^5008566
;;^UTILITY(U,$J,358.3,7478,0)
;;=K52.0^^42^388^53
;;^UTILITY(U,$J,358.3,7478,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7478,1,3,0)
;;=3^Radiation-induced gastroenteritis & Colitis
;;^UTILITY(U,$J,358.3,7478,1,4,0)
;;=4^K52.0
;;^UTILITY(U,$J,358.3,7478,2)
;;=^270254
;;^UTILITY(U,$J,358.3,7479,0)
;;=K63.89^^42^388^54
;;^UTILITY(U,$J,358.3,7479,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7479,1,3,0)
;;=3^Small Intestine bacterial overgrowth
;;^UTILITY(U,$J,358.3,7479,1,4,0)
;;=4^K63.89
;;^UTILITY(U,$J,358.3,7479,2)
;;=^5008767
;;^UTILITY(U,$J,358.3,7480,0)
;;=K26.0^^42^388^57
;;^UTILITY(U,$J,358.3,7480,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7480,1,3,0)
;;=3^Ulcer,Duodenal,Acute w/ Bleeding
;;^UTILITY(U,$J,358.3,7480,1,4,0)
;;=4^K26.0
;;^UTILITY(U,$J,358.3,7480,2)
;;=^270089
;;^UTILITY(U,$J,358.3,7481,0)
;;=K26.1^^42^388^58
;;^UTILITY(U,$J,358.3,7481,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7481,1,3,0)
;;=3^Ulcer,Duodenal,Acute w/ Perforation
;;^UTILITY(U,$J,358.3,7481,1,4,0)
;;=4^K26.1
;;^UTILITY(U,$J,358.3,7481,2)
;;=^270092
;;^UTILITY(U,$J,358.3,7482,0)
;;=K26.2^^42^388^56
;;^UTILITY(U,$J,358.3,7482,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7482,1,3,0)
;;=3^Ulcer,Duodenal,Acute w/ Bleed & Perf
;;^UTILITY(U,$J,358.3,7482,1,4,0)
;;=4^K26.2
;;^UTILITY(U,$J,358.3,7482,2)
;;=^5008523
;;^UTILITY(U,$J,358.3,7483,0)
;;=K26.3^^42^388^59
;;^UTILITY(U,$J,358.3,7483,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7483,1,3,0)
;;=3^Ulcer,Duodenal,Acute w/o Bleed or Perf
;;^UTILITY(U,$J,358.3,7483,1,4,0)
;;=4^K26.3
;;^UTILITY(U,$J,358.3,7483,2)
;;=^5008524
;;^UTILITY(U,$J,358.3,7484,0)
;;=K26.4^^42^388^61
;;^UTILITY(U,$J,358.3,7484,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7484,1,3,0)
;;=3^Ulcer,Duodenal,Chronic w/ Bleeding
;;^UTILITY(U,$J,358.3,7484,1,4,0)
;;=4^K26.4
;;^UTILITY(U,$J,358.3,7484,2)
;;=^270101
;;^UTILITY(U,$J,358.3,7485,0)
;;=K26.5^^42^388^62
;;^UTILITY(U,$J,358.3,7485,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7485,1,3,0)
;;=3^Ulcer,Duodenal,Chronic w/ Perforation
;;^UTILITY(U,$J,358.3,7485,1,4,0)
;;=4^K26.5
;;^UTILITY(U,$J,358.3,7485,2)
;;=^270104
;;^UTILITY(U,$J,358.3,7486,0)
;;=K26.6^^42^388^60
;;^UTILITY(U,$J,358.3,7486,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7486,1,3,0)
;;=3^Ulcer,Duodenal,Chronic w/ Bleed & Perf
;;^UTILITY(U,$J,358.3,7486,1,4,0)
;;=4^K26.6
;;^UTILITY(U,$J,358.3,7486,2)
;;=^5008525
;;^UTILITY(U,$J,358.3,7487,0)
;;=K28.0^^42^388^65
;;^UTILITY(U,$J,358.3,7487,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7487,1,3,0)
;;=3^Ulcer,Jejunal,Acute w/ Bleeding
;;^UTILITY(U,$J,358.3,7487,1,4,0)
;;=4^K28.0
;;^UTILITY(U,$J,358.3,7487,2)
;;=^270141
;;^UTILITY(U,$J,358.3,7488,0)
;;=K28.1^^42^388^66
;;^UTILITY(U,$J,358.3,7488,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7488,1,3,0)
;;=3^Ulcer,Jejunal,Acute w/ Perforation
;;^UTILITY(U,$J,358.3,7488,1,4,0)
;;=4^K28.1
;;^UTILITY(U,$J,358.3,7488,2)
;;=^270144
;;^UTILITY(U,$J,358.3,7489,0)
;;=K28.2^^42^388^64
;;^UTILITY(U,$J,358.3,7489,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7489,1,3,0)
;;=3^Ulcer,Jejunal,Acute w/ Bleed & Perf
;;^UTILITY(U,$J,358.3,7489,1,4,0)
;;=4^K28.2
;;^UTILITY(U,$J,358.3,7489,2)
;;=^5008537
;;^UTILITY(U,$J,358.3,7490,0)
;;=K28.3^^42^388^67
;;^UTILITY(U,$J,358.3,7490,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7490,1,3,0)
;;=3^Ulcer,Jejunal,Acute w/o Bleed or Perf
;;^UTILITY(U,$J,358.3,7490,1,4,0)
;;=4^K28.3
;;^UTILITY(U,$J,358.3,7490,2)
;;=^5008538
;;^UTILITY(U,$J,358.3,7491,0)
;;=K28.4^^42^388^69
;;^UTILITY(U,$J,358.3,7491,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7491,1,3,0)
;;=3^Ulcer,Jejunal,Chronic w/ Bleeding
;;^UTILITY(U,$J,358.3,7491,1,4,0)
;;=4^K28.4
;;^UTILITY(U,$J,358.3,7491,2)
;;=^270153
;;^UTILITY(U,$J,358.3,7492,0)
;;=K28.5^^42^388^70
;;^UTILITY(U,$J,358.3,7492,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7492,1,3,0)
;;=3^Ulcer,Jejunal,Chronic w/ Perforation
;;^UTILITY(U,$J,358.3,7492,1,4,0)
;;=4^K28.5
;;^UTILITY(U,$J,358.3,7492,2)
;;=^270156
;;^UTILITY(U,$J,358.3,7493,0)
;;=K28.6^^42^388^68
;;^UTILITY(U,$J,358.3,7493,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7493,1,3,0)
;;=3^Ulcer,Jejunal,Chronic w/ Bleed & Perf
;;^UTILITY(U,$J,358.3,7493,1,4,0)
;;=4^K28.6
;;^UTILITY(U,$J,358.3,7493,2)
;;=^5008539
;;^UTILITY(U,$J,358.3,7494,0)
;;=K28.7^^42^388^71
;;^UTILITY(U,$J,358.3,7494,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7494,1,3,0)
;;=3^Ulcer,Jejunal,Chronic w/o Bleed or Perf
;;^UTILITY(U,$J,358.3,7494,1,4,0)
;;=4^K28.7
;;^UTILITY(U,$J,358.3,7494,2)
;;=^5008540
;;^UTILITY(U,$J,358.3,7495,0)
;;=K63.3^^42^388^55
;;^UTILITY(U,$J,358.3,7495,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7495,1,3,0)
;;=3^Ulcer of Intestine w/o Perforation
;;^UTILITY(U,$J,358.3,7495,1,4,0)
;;=4^K63.3
;;^UTILITY(U,$J,358.3,7495,2)
;;=^5008763
;;^UTILITY(U,$J,358.3,7496,0)
;;=K55.8^^42^388^72
;;^UTILITY(U,$J,358.3,7496,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7496,1,3,0)
;;=3^Vascular disorders of Intestine,Other
;;^UTILITY(U,$J,358.3,7496,1,4,0)
;;=4^K55.8
;;^UTILITY(U,$J,358.3,7496,2)
;;=^5008709
;;^UTILITY(U,$J,358.3,7497,0)
;;=K56.2^^42^388^73
;;^UTILITY(U,$J,358.3,7497,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7497,1,3,0)
;;=3^Volvulus
;;^UTILITY(U,$J,358.3,7497,1,4,0)
;;=4^K56.2
;;^UTILITY(U,$J,358.3,7497,2)
;;=^5008711
;;^UTILITY(U,$J,358.3,7498,0)
;;=K31.9^^42^388^13
;;^UTILITY(U,$J,358.3,7498,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7498,1,3,0)
;;=3^Disease of Duodenum,Unsp
;;^UTILITY(U,$J,358.3,7498,1,4,0)
;;=4^K31.9
;;^UTILITY(U,$J,358.3,7498,2)
;;=^5008570
;;^UTILITY(U,$J,358.3,7499,0)
;;=K63.9^^42^388^14
;;^UTILITY(U,$J,358.3,7499,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7499,1,3,0)
;;=3^Disease of Intestine,Unspec
;;^UTILITY(U,$J,358.3,7499,1,4,0)
;;=4^K63.9
;;^UTILITY(U,$J,358.3,7499,2)
;;=^5008768
;;^UTILITY(U,$J,358.3,7500,0)
;;=K56.50^^42^388^48
;;^UTILITY(U,$J,358.3,7500,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7500,1,3,0)
;;=3^Obstruction of Sm Int,Partial or Complete,Adhesions
;;^UTILITY(U,$J,358.3,7500,1,4,0)
;;=4^K56.50
;;^UTILITY(U,$J,358.3,7500,2)
;;=^5151418
;;^UTILITY(U,$J,358.3,7501,0)
;;=K56.51^^42^388^50
;;^UTILITY(U,$J,358.3,7501,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7501,1,3,0)
;;=3^Obstruction of Sm Int,Partial,Adhesions
;;^UTILITY(U,$J,358.3,7501,1,4,0)
;;=4^K56.51
;;^UTILITY(U,$J,358.3,7501,2)
;;=^5151419
;;^UTILITY(U,$J,358.3,7502,0)
;;=K56.52^^42^388^46
;;^UTILITY(U,$J,358.3,7502,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7502,1,3,0)
;;=3^Obstruction of Sm Int,Complete,Adhesions
;;^UTILITY(U,$J,358.3,7502,1,4,0)
;;=4^K56.52
;;^UTILITY(U,$J,358.3,7502,2)
;;=^5151420
;;^UTILITY(U,$J,358.3,7503,0)
;;=K56.600^^42^388^47
;;^UTILITY(U,$J,358.3,7503,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7503,1,3,0)
;;=3^Obstruction of Sm Int,Partial
;;^UTILITY(U,$J,358.3,7503,1,4,0)
;;=4^K56.600
;;^UTILITY(U,$J,358.3,7503,2)
;;=^5151421
;;^UTILITY(U,$J,358.3,7504,0)
;;=K56.601^^42^388^45
;;^UTILITY(U,$J,358.3,7504,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7504,1,3,0)
;;=3^Obstruction of Sm Int,Complete
;;^UTILITY(U,$J,358.3,7504,1,4,0)
;;=4^K56.601
;;^UTILITY(U,$J,358.3,7504,2)
;;=^5151422
;;^UTILITY(U,$J,358.3,7505,0)
;;=K56.609^^42^388^49
;;^UTILITY(U,$J,358.3,7505,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7505,1,3,0)
;;=3^Obstruction of Sm Int,Partial or Complete
;;^UTILITY(U,$J,358.3,7505,1,4,0)
;;=4^K56.609
;;^UTILITY(U,$J,358.3,7505,2)
;;=^5151423
;;^UTILITY(U,$J,358.3,7506,0)
;;=K29.81^^42^388^21
;;^UTILITY(U,$J,358.3,7506,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7506,1,3,0)
;;=3^Duodenitis w/ Bleeding
;;^UTILITY(U,$J,358.3,7506,1,4,0)
;;=4^K29.81
;;^UTILITY(U,$J,358.3,7506,2)
;;=^5008555
;;^UTILITY(U,$J,358.3,7507,0)
;;=K29.80^^42^388^22
;;^UTILITY(U,$J,358.3,7507,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7507,1,3,0)
;;=3^Duodenitis w/o Bleeding
;;^UTILITY(U,$J,358.3,7507,1,4,0)
;;=4^K29.80
;;^UTILITY(U,$J,358.3,7507,2)
;;=^5008554
;;^UTILITY(U,$J,358.3,7508,0)
;;=K26.7^^42^388^63
;;^UTILITY(U,$J,358.3,7508,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7508,1,3,0)
;;=3^Ulcer,Duodenal,Chronic w/o Bleed or Perforation
;;^UTILITY(U,$J,358.3,7508,1,4,0)
;;=4^K26.7
;;^UTILITY(U,$J,358.3,7508,2)
;;=^5008526
;;^UTILITY(U,$J,358.3,7509,0)
;;=B96.81^^42^389^27
;;^UTILITY(U,$J,358.3,7509,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7509,1,3,0)
;;=3^Helicobacter pylori w/ or w/o complications
;;^UTILITY(U,$J,358.3,7509,1,4,0)
;;=4^B96.81
;;^UTILITY(U,$J,358.3,7509,2)
;;=^5000857
;;^UTILITY(U,$J,358.3,7510,0)
;;=C16.9^^42^389^34
;;^UTILITY(U,$J,358.3,7510,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7510,1,3,0)
;;=3^Malignant neoplasm,Unsp stomach
;;^UTILITY(U,$J,358.3,7510,1,4,0)
;;=4^C16.9
;;^UTILITY(U,$J,358.3,7510,2)
;;=^5000923
;;^UTILITY(U,$J,358.3,7511,0)
;;=I86.4^^42^389^15
;;^UTILITY(U,$J,358.3,7511,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7511,1,3,0)
;;=3^Gastric varices
;;^UTILITY(U,$J,358.3,7511,1,4,0)
;;=4^I86.4
;;^UTILITY(U,$J,358.3,7511,2)
;;=^49382
;;^UTILITY(U,$J,358.3,7512,0)
;;=K25.0^^42^389^39
;;^UTILITY(U,$J,358.3,7512,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7512,1,3,0)
;;=3^Ulcer,Stomach,Acute w/ Bleeding
;;^UTILITY(U,$J,358.3,7512,1,4,0)
;;=4^K25.0
;;^UTILITY(U,$J,358.3,7512,2)
;;=^270064
;;^UTILITY(U,$J,358.3,7513,0)
;;=K29.30^^42^389^22
;;^UTILITY(U,$J,358.3,7513,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7513,1,3,0)
;;=3^Gastritis,Chronic superficial w/o bleeding
;;^UTILITY(U,$J,358.3,7513,1,4,0)
;;=4^K29.30
;;^UTILITY(U,$J,358.3,7513,2)
;;=^5008546
;;^UTILITY(U,$J,358.3,7514,0)
;;=K29.20^^42^389^19
;;^UTILITY(U,$J,358.3,7514,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7514,1,3,0)
;;=3^Gastritis,Alcoholic w/o bleeding
;;^UTILITY(U,$J,358.3,7514,1,4,0)
;;=4^K29.20
;;^UTILITY(U,$J,358.3,7514,2)
;;=^5008544
;;^UTILITY(U,$J,358.3,7515,0)
;;=K31.89^^42^389^37
;;^UTILITY(U,$J,358.3,7515,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7515,1,3,0)
;;=3^Portal hypertensive gastropathy
;;^UTILITY(U,$J,358.3,7515,1,4,0)
;;=4^K31.89
;;^UTILITY(U,$J,358.3,7515,2)
;;=^5008569
;;^UTILITY(U,$J,358.3,7516,0)
;;=K31.819^^42^389^3
;;^UTILITY(U,$J,358.3,7516,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7516,1,3,0)
;;=3^Angiodysplasia Stomach w/o Bleeding
;;^UTILITY(U,$J,358.3,7516,1,4,0)
;;=4^K31.819
;;^UTILITY(U,$J,358.3,7516,2)
;;=^5008568
;;^UTILITY(U,$J,358.3,7517,0)
;;=K31.811^^42^389^2
;;^UTILITY(U,$J,358.3,7517,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7517,1,3,0)
;;=3^Angiodysplasia Stomach w/ Bleeding
;;^UTILITY(U,$J,358.3,7517,1,4,0)
;;=4^K31.811
;;^UTILITY(U,$J,358.3,7517,2)
;;=^5008567
;;^UTILITY(U,$J,358.3,7518,0)
;;=K25.1^^42^389^40
;;^UTILITY(U,$J,358.3,7518,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7518,1,3,0)
;;=3^Ulcer,Stomach,Acute w/ Perforation
;;^UTILITY(U,$J,358.3,7518,1,4,0)
;;=4^K25.1
;;^UTILITY(U,$J,358.3,7518,2)
;;=^270067
;;^UTILITY(U,$J,358.3,7519,0)
;;=K25.2^^42^389^38
;;^UTILITY(U,$J,358.3,7519,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7519,1,3,0)
;;=3^Ulcer,Stomach,Acute w/ Bleed & Perf
;;^UTILITY(U,$J,358.3,7519,1,4,0)
;;=4^K25.2
;;^UTILITY(U,$J,358.3,7519,2)
;;=^5008518
;;^UTILITY(U,$J,358.3,7520,0)
;;=K25.3^^42^389^41
;;^UTILITY(U,$J,358.3,7520,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7520,1,3,0)
;;=3^Ulcer,Stomach,Acute w/o Bleed or Perf
;;^UTILITY(U,$J,358.3,7520,1,4,0)
;;=4^K25.3
;;^UTILITY(U,$J,358.3,7520,2)
;;=^5008519
;;^UTILITY(U,$J,358.3,7521,0)
;;=K25.4^^42^389^43
;;^UTILITY(U,$J,358.3,7521,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7521,1,3,0)
;;=3^Ulcer,Stomach,Chronic w/ Bleeding
;;^UTILITY(U,$J,358.3,7521,1,4,0)
;;=4^K25.4
;;^UTILITY(U,$J,358.3,7521,2)
;;=^270076
;;^UTILITY(U,$J,358.3,7522,0)
;;=K25.5^^42^389^44
;;^UTILITY(U,$J,358.3,7522,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7522,1,3,0)
;;=3^Ulcer,Stomach,Chronic w/ Perf
;;^UTILITY(U,$J,358.3,7522,1,4,0)
;;=4^K25.5
;;^UTILITY(U,$J,358.3,7522,2)
;;=^270079
;;^UTILITY(U,$J,358.3,7523,0)
;;=K25.6^^42^389^42
;;^UTILITY(U,$J,358.3,7523,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7523,1,3,0)
;;=3^Ulcer,Stomach,Chronic w/ Bleed & Perf
;;^UTILITY(U,$J,358.3,7523,1,4,0)
;;=4^K25.6
;;^UTILITY(U,$J,358.3,7523,2)
;;=^5008520
;;^UTILITY(U,$J,358.3,7524,0)
;;=R93.3^^42^389^1
;;^UTILITY(U,$J,358.3,7524,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7524,1,3,0)
;;=3^Abnormal imaging Digestive tract
;;^UTILITY(U,$J,358.3,7524,1,4,0)
;;=4^R93.3
;;^UTILITY(U,$J,358.3,7524,2)
;;=^5019716
;;^UTILITY(U,$J,358.3,7525,0)
;;=D13.1^^42^389^4
;;^UTILITY(U,$J,358.3,7525,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7525,1,3,0)
;;=3^Benign neoplasm of Stomach
;;^UTILITY(U,$J,358.3,7525,1,4,0)
;;=4^D13.1
;;^UTILITY(U,$J,358.3,7525,2)
;;=^267589
;;^UTILITY(U,$J,358.3,7526,0)
;;=K31.82^^42^389^6
;;^UTILITY(U,$J,358.3,7526,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,7526,1,3,0)
;;=3^Dieulafoy lesion of Stomach
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI035 19793 printed Sep 23, 2025@19:16:41 Page 2
IBDEI035 ; ; 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,7456,1,3,0)
+2 ;;=3^Fistula of Intestine
+3 ;;^UTILITY(U,$J,358.3,7456,1,4,0)
+4 ;;=4^K63.2
+5 ;;^UTILITY(U,$J,358.3,7456,2)
+6 ;;=^5008762
+7 ;;^UTILITY(U,$J,358.3,7457,0)
+8 ;;=K52.22^^42^388^26
+9 ;;^UTILITY(U,$J,358.3,7457,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,7457,1,3,0)
+12 ;;=3^Food-Protein induced enteropathy
+13 ;;^UTILITY(U,$J,358.3,7457,1,4,0)
+14 ;;=4^K52.22
+15 ;;^UTILITY(U,$J,358.3,7457,2)
+16 ;;=^5138714
+17 ;;^UTILITY(U,$J,358.3,7458,0)
+18 ;;=T18.3XXA^^42^388^27
+19 ;;^UTILITY(U,$J,358.3,7458,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,7458,1,3,0)
+22 ;;=3^Foreign body in Sm Int,Initial
+23 ;;^UTILITY(U,$J,358.3,7458,1,4,0)
+24 ;;=4^T18.3XXA
+25 ;;^UTILITY(U,$J,358.3,7458,2)
+26 ;;=^5046606
+27 ;;^UTILITY(U,$J,358.3,7459,0)
+28 ;;=T18.3XXD^^42^388^29
+29 ;;^UTILITY(U,$J,358.3,7459,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,7459,1,3,0)
+32 ;;=3^Foreign body in Sm Int,Subsequent
+33 ;;^UTILITY(U,$J,358.3,7459,1,4,0)
+34 ;;=4^T18.3XXD
+35 ;;^UTILITY(U,$J,358.3,7459,2)
+36 ;;=^5046607
+37 ;;^UTILITY(U,$J,358.3,7460,0)
+38 ;;=T18.3XXS^^42^388^28
+39 ;;^UTILITY(U,$J,358.3,7460,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,7460,1,3,0)
+42 ;;=3^Foreign body in Sm Int,Sequela
+43 ;;^UTILITY(U,$J,358.3,7460,1,4,0)
+44 ;;=4^T18.3XXS
+45 ;;^UTILITY(U,$J,358.3,7460,2)
+46 ;;=^5046608
+47 ;;^UTILITY(U,$J,358.3,7461,0)
+48 ;;=K56.3^^42^388^30
+49 ;;^UTILITY(U,$J,358.3,7461,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,7461,1,3,0)
+52 ;;=3^Gallstone ileus
+53 ;;^UTILITY(U,$J,358.3,7461,1,4,0)
+54 ;;=4^K56.3
+55 ;;^UTILITY(U,$J,358.3,7461,2)
+56 ;;=^270259
+57 ;;^UTILITY(U,$J,358.3,7462,0)
+58 ;;=E88.09^^42^388^31
+59 ;;^UTILITY(U,$J,358.3,7462,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,7462,1,3,0)
+62 ;;=3^Hypoalbuminemia
+63 ;;^UTILITY(U,$J,358.3,7462,1,4,0)
+64 ;;=4^E88.09
+65 ;;^UTILITY(U,$J,358.3,7462,2)
+66 ;;=^5003027
+67 ;;^UTILITY(U,$J,358.3,7463,0)
+68 ;;=K56.0^^42^388^32
+69 ;;^UTILITY(U,$J,358.3,7463,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,7463,1,3,0)
+72 ;;=3^Ileus
+73 ;;^UTILITY(U,$J,358.3,7463,1,4,0)
+74 ;;=4^K56.0
+75 ;;^UTILITY(U,$J,358.3,7463,2)
+76 ;;=^89879
+77 ;;^UTILITY(U,$J,358.3,7464,0)
+78 ;;=K56.1^^42^388^35
+79 ;;^UTILITY(U,$J,358.3,7464,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,7464,1,3,0)
+82 ;;=3^Intussusception
+83 ;;^UTILITY(U,$J,358.3,7464,1,4,0)
+84 ;;=4^K56.1
+85 ;;^UTILITY(U,$J,358.3,7464,2)
+86 ;;=^65213
+87 ;;^UTILITY(U,$J,358.3,7465,0)
+88 ;;=K55.021^^42^388^34
+89 ;;^UTILITY(U,$J,358.3,7465,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,7465,1,3,0)
+92 ;;=3^Infarction of Sm Int,Acute Segmental
+93 ;;^UTILITY(U,$J,358.3,7465,1,4,0)
+94 ;;=4^K55.021
+95 ;;^UTILITY(U,$J,358.3,7465,2)
+96 ;;=^5138722
+97 ;;^UTILITY(U,$J,358.3,7466,0)
+98 ;;=K55.022^^42^388^33
+99 ;;^UTILITY(U,$J,358.3,7466,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,7466,1,3,0)
+102 ;;=3^Infarction of Sm Int,Acute Diffused
+103 ;;^UTILITY(U,$J,358.3,7466,1,4,0)
+104 ;;=4^K55.022
+105 ;;^UTILITY(U,$J,358.3,7466,2)
+106 ;;=^5138723
+107 ;;^UTILITY(U,$J,358.3,7467,0)
+108 ;;=K55.011^^42^388^37
+109 ;;^UTILITY(U,$J,358.3,7467,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,7467,1,3,0)
+112 ;;=3^Ischemia of Sm Int,Acute Segmental
+113 ;;^UTILITY(U,$J,358.3,7467,1,4,0)
+114 ;;=4^K55.011
+115 ;;^UTILITY(U,$J,358.3,7467,2)
+116 ;;=^5138719
+117 ;;^UTILITY(U,$J,358.3,7468,0)
+118 ;;=K55.012^^42^388^36
+119 ;;^UTILITY(U,$J,358.3,7468,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,7468,1,3,0)
+122 ;;=3^Ischemia of Sm Int,Acute Diffuse
+123 ;;^UTILITY(U,$J,358.3,7468,1,4,0)
+124 ;;=4^K55.012
+125 ;;^UTILITY(U,$J,358.3,7468,2)
+126 ;;=^5138720
+127 ;;^UTILITY(U,$J,358.3,7469,0)
+128 ;;=K55.1^^42^388^38
+129 ;;^UTILITY(U,$J,358.3,7469,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,7469,1,3,0)
+132 ;;=3^Ischemic Sm Int,Chronic
+133 ;;^UTILITY(U,$J,358.3,7469,1,4,0)
+134 ;;=4^K55.1
+135 ;;^UTILITY(U,$J,358.3,7469,2)
+136 ;;=^5008706
+137 ;;^UTILITY(U,$J,358.3,7470,0)
+138 ;;=K90.49^^42^388^39
+139 ;;^UTILITY(U,$J,358.3,7470,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,7470,1,3,0)
+142 ;;=3^Malabsortion d/t intolerance NEC
+143 ;;^UTILITY(U,$J,358.3,7470,1,4,0)
+144 ;;=4^K90.49
+145 ;;^UTILITY(U,$J,358.3,7470,2)
+146 ;;=^5008896
+147 ;;^UTILITY(U,$J,358.3,7471,0)
+148 ;;=C17.0^^42^388^40
+149 ;;^UTILITY(U,$J,358.3,7471,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,7471,1,3,0)
+152 ;;=3^Malignant neoplasm,Duodenum
+153 ;;^UTILITY(U,$J,358.3,7471,1,4,0)
+154 ;;=4^C17.0
+155 ;;^UTILITY(U,$J,358.3,7471,2)
+156 ;;=^267072
+157 ;;^UTILITY(U,$J,358.3,7472,0)
+158 ;;=C17.1^^42^388^42
+159 ;;^UTILITY(U,$J,358.3,7472,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,7472,1,3,0)
+162 ;;=3^Malignant neoplasm,Jejunum
+163 ;;^UTILITY(U,$J,358.3,7472,1,4,0)
+164 ;;=4^C17.1
+165 ;;^UTILITY(U,$J,358.3,7472,2)
+166 ;;=^267073
+167 ;;^UTILITY(U,$J,358.3,7473,0)
+168 ;;=C17.2^^42^388^41
+169 ;;^UTILITY(U,$J,358.3,7473,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,7473,1,3,0)
+172 ;;=3^Malignant neoplasm,Ileum
+173 ;;^UTILITY(U,$J,358.3,7473,1,4,0)
+174 ;;=4^C17.2
+175 ;;^UTILITY(U,$J,358.3,7473,2)
+176 ;;=^267074
+177 ;;^UTILITY(U,$J,358.3,7474,0)
+178 ;;=C17.9^^42^388^43
+179 ;;^UTILITY(U,$J,358.3,7474,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,7474,1,3,0)
+182 ;;=3^Malignant neoplasm,Unsp Sm Int
+183 ;;^UTILITY(U,$J,358.3,7474,1,4,0)
+184 ;;=4^C17.9
+185 ;;^UTILITY(U,$J,358.3,7474,2)
+186 ;;=^5000926
+187 ;;^UTILITY(U,$J,358.3,7475,0)
+188 ;;=K31.5^^42^388^44
+189 ;;^UTILITY(U,$J,358.3,7475,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,7475,1,3,0)
+192 ;;=3^Obstruction of Duodenum
+193 ;;^UTILITY(U,$J,358.3,7475,1,4,0)
+194 ;;=4^K31.5
+195 ;;^UTILITY(U,$J,358.3,7475,2)
+196 ;;=^5008564
+197 ;;^UTILITY(U,$J,358.3,7476,0)
+198 ;;=K63.1^^42^388^51
+199 ;;^UTILITY(U,$J,358.3,7476,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,7476,1,3,0)
+202 ;;=3^Perforation of Intestine (non-traumatic)
+203 ;;^UTILITY(U,$J,358.3,7476,1,4,0)
+204 ;;=4^K63.1
+205 ;;^UTILITY(U,$J,358.3,7476,2)
+206 ;;=^5008761
+207 ;;^UTILITY(U,$J,358.3,7477,0)
+208 ;;=K31.7^^42^388^52
+209 ;;^UTILITY(U,$J,358.3,7477,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,7477,1,3,0)
+212 ;;=3^Polyp of Duodenum
+213 ;;^UTILITY(U,$J,358.3,7477,1,4,0)
+214 ;;=4^K31.7
+215 ;;^UTILITY(U,$J,358.3,7477,2)
+216 ;;=^5008566
+217 ;;^UTILITY(U,$J,358.3,7478,0)
+218 ;;=K52.0^^42^388^53
+219 ;;^UTILITY(U,$J,358.3,7478,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,7478,1,3,0)
+222 ;;=3^Radiation-induced gastroenteritis & Colitis
+223 ;;^UTILITY(U,$J,358.3,7478,1,4,0)
+224 ;;=4^K52.0
+225 ;;^UTILITY(U,$J,358.3,7478,2)
+226 ;;=^270254
+227 ;;^UTILITY(U,$J,358.3,7479,0)
+228 ;;=K63.89^^42^388^54
+229 ;;^UTILITY(U,$J,358.3,7479,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,7479,1,3,0)
+232 ;;=3^Small Intestine bacterial overgrowth
+233 ;;^UTILITY(U,$J,358.3,7479,1,4,0)
+234 ;;=4^K63.89
+235 ;;^UTILITY(U,$J,358.3,7479,2)
+236 ;;=^5008767
+237 ;;^UTILITY(U,$J,358.3,7480,0)
+238 ;;=K26.0^^42^388^57
+239 ;;^UTILITY(U,$J,358.3,7480,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,7480,1,3,0)
+242 ;;=3^Ulcer,Duodenal,Acute w/ Bleeding
+243 ;;^UTILITY(U,$J,358.3,7480,1,4,0)
+244 ;;=4^K26.0
+245 ;;^UTILITY(U,$J,358.3,7480,2)
+246 ;;=^270089
+247 ;;^UTILITY(U,$J,358.3,7481,0)
+248 ;;=K26.1^^42^388^58
+249 ;;^UTILITY(U,$J,358.3,7481,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,7481,1,3,0)
+252 ;;=3^Ulcer,Duodenal,Acute w/ Perforation
+253 ;;^UTILITY(U,$J,358.3,7481,1,4,0)
+254 ;;=4^K26.1
+255 ;;^UTILITY(U,$J,358.3,7481,2)
+256 ;;=^270092
+257 ;;^UTILITY(U,$J,358.3,7482,0)
+258 ;;=K26.2^^42^388^56
+259 ;;^UTILITY(U,$J,358.3,7482,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,7482,1,3,0)
+262 ;;=3^Ulcer,Duodenal,Acute w/ Bleed & Perf
+263 ;;^UTILITY(U,$J,358.3,7482,1,4,0)
+264 ;;=4^K26.2
+265 ;;^UTILITY(U,$J,358.3,7482,2)
+266 ;;=^5008523
+267 ;;^UTILITY(U,$J,358.3,7483,0)
+268 ;;=K26.3^^42^388^59
+269 ;;^UTILITY(U,$J,358.3,7483,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,7483,1,3,0)
+272 ;;=3^Ulcer,Duodenal,Acute w/o Bleed or Perf
+273 ;;^UTILITY(U,$J,358.3,7483,1,4,0)
+274 ;;=4^K26.3
+275 ;;^UTILITY(U,$J,358.3,7483,2)
+276 ;;=^5008524
+277 ;;^UTILITY(U,$J,358.3,7484,0)
+278 ;;=K26.4^^42^388^61
+279 ;;^UTILITY(U,$J,358.3,7484,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,7484,1,3,0)
+282 ;;=3^Ulcer,Duodenal,Chronic w/ Bleeding
+283 ;;^UTILITY(U,$J,358.3,7484,1,4,0)
+284 ;;=4^K26.4
+285 ;;^UTILITY(U,$J,358.3,7484,2)
+286 ;;=^270101
+287 ;;^UTILITY(U,$J,358.3,7485,0)
+288 ;;=K26.5^^42^388^62
+289 ;;^UTILITY(U,$J,358.3,7485,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,7485,1,3,0)
+292 ;;=3^Ulcer,Duodenal,Chronic w/ Perforation
+293 ;;^UTILITY(U,$J,358.3,7485,1,4,0)
+294 ;;=4^K26.5
+295 ;;^UTILITY(U,$J,358.3,7485,2)
+296 ;;=^270104
+297 ;;^UTILITY(U,$J,358.3,7486,0)
+298 ;;=K26.6^^42^388^60
+299 ;;^UTILITY(U,$J,358.3,7486,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,7486,1,3,0)
+302 ;;=3^Ulcer,Duodenal,Chronic w/ Bleed & Perf
+303 ;;^UTILITY(U,$J,358.3,7486,1,4,0)
+304 ;;=4^K26.6
+305 ;;^UTILITY(U,$J,358.3,7486,2)
+306 ;;=^5008525
+307 ;;^UTILITY(U,$J,358.3,7487,0)
+308 ;;=K28.0^^42^388^65
+309 ;;^UTILITY(U,$J,358.3,7487,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,7487,1,3,0)
+312 ;;=3^Ulcer,Jejunal,Acute w/ Bleeding
+313 ;;^UTILITY(U,$J,358.3,7487,1,4,0)
+314 ;;=4^K28.0
+315 ;;^UTILITY(U,$J,358.3,7487,2)
+316 ;;=^270141
+317 ;;^UTILITY(U,$J,358.3,7488,0)
+318 ;;=K28.1^^42^388^66
+319 ;;^UTILITY(U,$J,358.3,7488,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,7488,1,3,0)
+322 ;;=3^Ulcer,Jejunal,Acute w/ Perforation
+323 ;;^UTILITY(U,$J,358.3,7488,1,4,0)
+324 ;;=4^K28.1
+325 ;;^UTILITY(U,$J,358.3,7488,2)
+326 ;;=^270144
+327 ;;^UTILITY(U,$J,358.3,7489,0)
+328 ;;=K28.2^^42^388^64
+329 ;;^UTILITY(U,$J,358.3,7489,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,7489,1,3,0)
+332 ;;=3^Ulcer,Jejunal,Acute w/ Bleed & Perf
+333 ;;^UTILITY(U,$J,358.3,7489,1,4,0)
+334 ;;=4^K28.2
+335 ;;^UTILITY(U,$J,358.3,7489,2)
+336 ;;=^5008537
+337 ;;^UTILITY(U,$J,358.3,7490,0)
+338 ;;=K28.3^^42^388^67
+339 ;;^UTILITY(U,$J,358.3,7490,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,7490,1,3,0)
+342 ;;=3^Ulcer,Jejunal,Acute w/o Bleed or Perf
+343 ;;^UTILITY(U,$J,358.3,7490,1,4,0)
+344 ;;=4^K28.3
+345 ;;^UTILITY(U,$J,358.3,7490,2)
+346 ;;=^5008538
+347 ;;^UTILITY(U,$J,358.3,7491,0)
+348 ;;=K28.4^^42^388^69
+349 ;;^UTILITY(U,$J,358.3,7491,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,7491,1,3,0)
+352 ;;=3^Ulcer,Jejunal,Chronic w/ Bleeding
+353 ;;^UTILITY(U,$J,358.3,7491,1,4,0)
+354 ;;=4^K28.4
+355 ;;^UTILITY(U,$J,358.3,7491,2)
+356 ;;=^270153
+357 ;;^UTILITY(U,$J,358.3,7492,0)
+358 ;;=K28.5^^42^388^70
+359 ;;^UTILITY(U,$J,358.3,7492,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,7492,1,3,0)
+362 ;;=3^Ulcer,Jejunal,Chronic w/ Perforation
+363 ;;^UTILITY(U,$J,358.3,7492,1,4,0)
+364 ;;=4^K28.5
+365 ;;^UTILITY(U,$J,358.3,7492,2)
+366 ;;=^270156
+367 ;;^UTILITY(U,$J,358.3,7493,0)
+368 ;;=K28.6^^42^388^68
+369 ;;^UTILITY(U,$J,358.3,7493,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,7493,1,3,0)
+372 ;;=3^Ulcer,Jejunal,Chronic w/ Bleed & Perf
+373 ;;^UTILITY(U,$J,358.3,7493,1,4,0)
+374 ;;=4^K28.6
+375 ;;^UTILITY(U,$J,358.3,7493,2)
+376 ;;=^5008539
+377 ;;^UTILITY(U,$J,358.3,7494,0)
+378 ;;=K28.7^^42^388^71
+379 ;;^UTILITY(U,$J,358.3,7494,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,7494,1,3,0)
+382 ;;=3^Ulcer,Jejunal,Chronic w/o Bleed or Perf
+383 ;;^UTILITY(U,$J,358.3,7494,1,4,0)
+384 ;;=4^K28.7
+385 ;;^UTILITY(U,$J,358.3,7494,2)
+386 ;;=^5008540
+387 ;;^UTILITY(U,$J,358.3,7495,0)
+388 ;;=K63.3^^42^388^55
+389 ;;^UTILITY(U,$J,358.3,7495,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,7495,1,3,0)
+392 ;;=3^Ulcer of Intestine w/o Perforation
+393 ;;^UTILITY(U,$J,358.3,7495,1,4,0)
+394 ;;=4^K63.3
+395 ;;^UTILITY(U,$J,358.3,7495,2)
+396 ;;=^5008763
+397 ;;^UTILITY(U,$J,358.3,7496,0)
+398 ;;=K55.8^^42^388^72
+399 ;;^UTILITY(U,$J,358.3,7496,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,7496,1,3,0)
+402 ;;=3^Vascular disorders of Intestine,Other
+403 ;;^UTILITY(U,$J,358.3,7496,1,4,0)
+404 ;;=4^K55.8
+405 ;;^UTILITY(U,$J,358.3,7496,2)
+406 ;;=^5008709
+407 ;;^UTILITY(U,$J,358.3,7497,0)
+408 ;;=K56.2^^42^388^73
+409 ;;^UTILITY(U,$J,358.3,7497,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,7497,1,3,0)
+412 ;;=3^Volvulus
+413 ;;^UTILITY(U,$J,358.3,7497,1,4,0)
+414 ;;=4^K56.2
+415 ;;^UTILITY(U,$J,358.3,7497,2)
+416 ;;=^5008711
+417 ;;^UTILITY(U,$J,358.3,7498,0)
+418 ;;=K31.9^^42^388^13
+419 ;;^UTILITY(U,$J,358.3,7498,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,7498,1,3,0)
+422 ;;=3^Disease of Duodenum,Unsp
+423 ;;^UTILITY(U,$J,358.3,7498,1,4,0)
+424 ;;=4^K31.9
+425 ;;^UTILITY(U,$J,358.3,7498,2)
+426 ;;=^5008570
+427 ;;^UTILITY(U,$J,358.3,7499,0)
+428 ;;=K63.9^^42^388^14
+429 ;;^UTILITY(U,$J,358.3,7499,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,7499,1,3,0)
+432 ;;=3^Disease of Intestine,Unspec
+433 ;;^UTILITY(U,$J,358.3,7499,1,4,0)
+434 ;;=4^K63.9
+435 ;;^UTILITY(U,$J,358.3,7499,2)
+436 ;;=^5008768
+437 ;;^UTILITY(U,$J,358.3,7500,0)
+438 ;;=K56.50^^42^388^48
+439 ;;^UTILITY(U,$J,358.3,7500,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,7500,1,3,0)
+442 ;;=3^Obstruction of Sm Int,Partial or Complete,Adhesions
+443 ;;^UTILITY(U,$J,358.3,7500,1,4,0)
+444 ;;=4^K56.50
+445 ;;^UTILITY(U,$J,358.3,7500,2)
+446 ;;=^5151418
+447 ;;^UTILITY(U,$J,358.3,7501,0)
+448 ;;=K56.51^^42^388^50
+449 ;;^UTILITY(U,$J,358.3,7501,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,7501,1,3,0)
+452 ;;=3^Obstruction of Sm Int,Partial,Adhesions
+453 ;;^UTILITY(U,$J,358.3,7501,1,4,0)
+454 ;;=4^K56.51
+455 ;;^UTILITY(U,$J,358.3,7501,2)
+456 ;;=^5151419
+457 ;;^UTILITY(U,$J,358.3,7502,0)
+458 ;;=K56.52^^42^388^46
+459 ;;^UTILITY(U,$J,358.3,7502,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,7502,1,3,0)
+462 ;;=3^Obstruction of Sm Int,Complete,Adhesions
+463 ;;^UTILITY(U,$J,358.3,7502,1,4,0)
+464 ;;=4^K56.52
+465 ;;^UTILITY(U,$J,358.3,7502,2)
+466 ;;=^5151420
+467 ;;^UTILITY(U,$J,358.3,7503,0)
+468 ;;=K56.600^^42^388^47
+469 ;;^UTILITY(U,$J,358.3,7503,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,7503,1,3,0)
+472 ;;=3^Obstruction of Sm Int,Partial
+473 ;;^UTILITY(U,$J,358.3,7503,1,4,0)
+474 ;;=4^K56.600
+475 ;;^UTILITY(U,$J,358.3,7503,2)
+476 ;;=^5151421
+477 ;;^UTILITY(U,$J,358.3,7504,0)
+478 ;;=K56.601^^42^388^45
+479 ;;^UTILITY(U,$J,358.3,7504,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,7504,1,3,0)
+482 ;;=3^Obstruction of Sm Int,Complete
+483 ;;^UTILITY(U,$J,358.3,7504,1,4,0)
+484 ;;=4^K56.601
+485 ;;^UTILITY(U,$J,358.3,7504,2)
+486 ;;=^5151422
+487 ;;^UTILITY(U,$J,358.3,7505,0)
+488 ;;=K56.609^^42^388^49
+489 ;;^UTILITY(U,$J,358.3,7505,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,7505,1,3,0)
+492 ;;=3^Obstruction of Sm Int,Partial or Complete
+493 ;;^UTILITY(U,$J,358.3,7505,1,4,0)
+494 ;;=4^K56.609
+495 ;;^UTILITY(U,$J,358.3,7505,2)
+496 ;;=^5151423
+497 ;;^UTILITY(U,$J,358.3,7506,0)
+498 ;;=K29.81^^42^388^21
+499 ;;^UTILITY(U,$J,358.3,7506,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,7506,1,3,0)
+502 ;;=3^Duodenitis w/ Bleeding
+503 ;;^UTILITY(U,$J,358.3,7506,1,4,0)
+504 ;;=4^K29.81
+505 ;;^UTILITY(U,$J,358.3,7506,2)
+506 ;;=^5008555
+507 ;;^UTILITY(U,$J,358.3,7507,0)
+508 ;;=K29.80^^42^388^22
+509 ;;^UTILITY(U,$J,358.3,7507,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,7507,1,3,0)
+512 ;;=3^Duodenitis w/o Bleeding
+513 ;;^UTILITY(U,$J,358.3,7507,1,4,0)
+514 ;;=4^K29.80
+515 ;;^UTILITY(U,$J,358.3,7507,2)
+516 ;;=^5008554
+517 ;;^UTILITY(U,$J,358.3,7508,0)
+518 ;;=K26.7^^42^388^63
+519 ;;^UTILITY(U,$J,358.3,7508,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,7508,1,3,0)
+522 ;;=3^Ulcer,Duodenal,Chronic w/o Bleed or Perforation
+523 ;;^UTILITY(U,$J,358.3,7508,1,4,0)
+524 ;;=4^K26.7
+525 ;;^UTILITY(U,$J,358.3,7508,2)
+526 ;;=^5008526
+527 ;;^UTILITY(U,$J,358.3,7509,0)
+528 ;;=B96.81^^42^389^27
+529 ;;^UTILITY(U,$J,358.3,7509,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,7509,1,3,0)
+532 ;;=3^Helicobacter pylori w/ or w/o complications
+533 ;;^UTILITY(U,$J,358.3,7509,1,4,0)
+534 ;;=4^B96.81
+535 ;;^UTILITY(U,$J,358.3,7509,2)
+536 ;;=^5000857
+537 ;;^UTILITY(U,$J,358.3,7510,0)
+538 ;;=C16.9^^42^389^34
+539 ;;^UTILITY(U,$J,358.3,7510,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,7510,1,3,0)
+542 ;;=3^Malignant neoplasm,Unsp stomach
+543 ;;^UTILITY(U,$J,358.3,7510,1,4,0)
+544 ;;=4^C16.9
+545 ;;^UTILITY(U,$J,358.3,7510,2)
+546 ;;=^5000923
+547 ;;^UTILITY(U,$J,358.3,7511,0)
+548 ;;=I86.4^^42^389^15
+549 ;;^UTILITY(U,$J,358.3,7511,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,7511,1,3,0)
+552 ;;=3^Gastric varices
+553 ;;^UTILITY(U,$J,358.3,7511,1,4,0)
+554 ;;=4^I86.4
+555 ;;^UTILITY(U,$J,358.3,7511,2)
+556 ;;=^49382
+557 ;;^UTILITY(U,$J,358.3,7512,0)
+558 ;;=K25.0^^42^389^39
+559 ;;^UTILITY(U,$J,358.3,7512,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,7512,1,3,0)
+562 ;;=3^Ulcer,Stomach,Acute w/ Bleeding
+563 ;;^UTILITY(U,$J,358.3,7512,1,4,0)
+564 ;;=4^K25.0
+565 ;;^UTILITY(U,$J,358.3,7512,2)
+566 ;;=^270064
+567 ;;^UTILITY(U,$J,358.3,7513,0)
+568 ;;=K29.30^^42^389^22
+569 ;;^UTILITY(U,$J,358.3,7513,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,7513,1,3,0)
+572 ;;=3^Gastritis,Chronic superficial w/o bleeding
+573 ;;^UTILITY(U,$J,358.3,7513,1,4,0)
+574 ;;=4^K29.30
+575 ;;^UTILITY(U,$J,358.3,7513,2)
+576 ;;=^5008546
+577 ;;^UTILITY(U,$J,358.3,7514,0)
+578 ;;=K29.20^^42^389^19
+579 ;;^UTILITY(U,$J,358.3,7514,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,7514,1,3,0)
+582 ;;=3^Gastritis,Alcoholic w/o bleeding
+583 ;;^UTILITY(U,$J,358.3,7514,1,4,0)
+584 ;;=4^K29.20
+585 ;;^UTILITY(U,$J,358.3,7514,2)
+586 ;;=^5008544
+587 ;;^UTILITY(U,$J,358.3,7515,0)
+588 ;;=K31.89^^42^389^37
+589 ;;^UTILITY(U,$J,358.3,7515,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,7515,1,3,0)
+592 ;;=3^Portal hypertensive gastropathy
+593 ;;^UTILITY(U,$J,358.3,7515,1,4,0)
+594 ;;=4^K31.89
+595 ;;^UTILITY(U,$J,358.3,7515,2)
+596 ;;=^5008569
+597 ;;^UTILITY(U,$J,358.3,7516,0)
+598 ;;=K31.819^^42^389^3
+599 ;;^UTILITY(U,$J,358.3,7516,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,7516,1,3,0)
+602 ;;=3^Angiodysplasia Stomach w/o Bleeding
+603 ;;^UTILITY(U,$J,358.3,7516,1,4,0)
+604 ;;=4^K31.819
+605 ;;^UTILITY(U,$J,358.3,7516,2)
+606 ;;=^5008568
+607 ;;^UTILITY(U,$J,358.3,7517,0)
+608 ;;=K31.811^^42^389^2
+609 ;;^UTILITY(U,$J,358.3,7517,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,7517,1,3,0)
+612 ;;=3^Angiodysplasia Stomach w/ Bleeding
+613 ;;^UTILITY(U,$J,358.3,7517,1,4,0)
+614 ;;=4^K31.811
+615 ;;^UTILITY(U,$J,358.3,7517,2)
+616 ;;=^5008567
+617 ;;^UTILITY(U,$J,358.3,7518,0)
+618 ;;=K25.1^^42^389^40
+619 ;;^UTILITY(U,$J,358.3,7518,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,7518,1,3,0)
+622 ;;=3^Ulcer,Stomach,Acute w/ Perforation
+623 ;;^UTILITY(U,$J,358.3,7518,1,4,0)
+624 ;;=4^K25.1
+625 ;;^UTILITY(U,$J,358.3,7518,2)
+626 ;;=^270067
+627 ;;^UTILITY(U,$J,358.3,7519,0)
+628 ;;=K25.2^^42^389^38
+629 ;;^UTILITY(U,$J,358.3,7519,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,7519,1,3,0)
+632 ;;=3^Ulcer,Stomach,Acute w/ Bleed & Perf
+633 ;;^UTILITY(U,$J,358.3,7519,1,4,0)
+634 ;;=4^K25.2
+635 ;;^UTILITY(U,$J,358.3,7519,2)
+636 ;;=^5008518
+637 ;;^UTILITY(U,$J,358.3,7520,0)
+638 ;;=K25.3^^42^389^41
+639 ;;^UTILITY(U,$J,358.3,7520,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,7520,1,3,0)
+642 ;;=3^Ulcer,Stomach,Acute w/o Bleed or Perf
+643 ;;^UTILITY(U,$J,358.3,7520,1,4,0)
+644 ;;=4^K25.3
+645 ;;^UTILITY(U,$J,358.3,7520,2)
+646 ;;=^5008519
+647 ;;^UTILITY(U,$J,358.3,7521,0)
+648 ;;=K25.4^^42^389^43
+649 ;;^UTILITY(U,$J,358.3,7521,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,7521,1,3,0)
+652 ;;=3^Ulcer,Stomach,Chronic w/ Bleeding
+653 ;;^UTILITY(U,$J,358.3,7521,1,4,0)
+654 ;;=4^K25.4
+655 ;;^UTILITY(U,$J,358.3,7521,2)
+656 ;;=^270076
+657 ;;^UTILITY(U,$J,358.3,7522,0)
+658 ;;=K25.5^^42^389^44
+659 ;;^UTILITY(U,$J,358.3,7522,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,7522,1,3,0)
+662 ;;=3^Ulcer,Stomach,Chronic w/ Perf
+663 ;;^UTILITY(U,$J,358.3,7522,1,4,0)
+664 ;;=4^K25.5
+665 ;;^UTILITY(U,$J,358.3,7522,2)
+666 ;;=^270079
+667 ;;^UTILITY(U,$J,358.3,7523,0)
+668 ;;=K25.6^^42^389^42
+669 ;;^UTILITY(U,$J,358.3,7523,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,7523,1,3,0)
+672 ;;=3^Ulcer,Stomach,Chronic w/ Bleed & Perf
+673 ;;^UTILITY(U,$J,358.3,7523,1,4,0)
+674 ;;=4^K25.6
+675 ;;^UTILITY(U,$J,358.3,7523,2)
+676 ;;=^5008520
+677 ;;^UTILITY(U,$J,358.3,7524,0)
+678 ;;=R93.3^^42^389^1
+679 ;;^UTILITY(U,$J,358.3,7524,1,0)
+680 ;;=^358.31IA^4^2
+681 ;;^UTILITY(U,$J,358.3,7524,1,3,0)
+682 ;;=3^Abnormal imaging Digestive tract
+683 ;;^UTILITY(U,$J,358.3,7524,1,4,0)
+684 ;;=4^R93.3
+685 ;;^UTILITY(U,$J,358.3,7524,2)
+686 ;;=^5019716
+687 ;;^UTILITY(U,$J,358.3,7525,0)
+688 ;;=D13.1^^42^389^4
+689 ;;^UTILITY(U,$J,358.3,7525,1,0)
+690 ;;=^358.31IA^4^2
+691 ;;^UTILITY(U,$J,358.3,7525,1,3,0)
+692 ;;=3^Benign neoplasm of Stomach
+693 ;;^UTILITY(U,$J,358.3,7525,1,4,0)
+694 ;;=4^D13.1
+695 ;;^UTILITY(U,$J,358.3,7525,2)
+696 ;;=^267589
+697 ;;^UTILITY(U,$J,358.3,7526,0)
+698 ;;=K31.82^^42^389^6
+699 ;;^UTILITY(U,$J,358.3,7526,1,0)
+700 ;;=^358.31IA^4^2
+701 ;;^UTILITY(U,$J,358.3,7526,1,3,0)
+702 ;;=3^Dieulafoy lesion of Stomach
