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

IBDEI035.m

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