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 ; ; 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,4463,1,4,0)
 ;;=4^C64.9
 ;;^UTILITY(U,$J,358.3,4463,2)
 ;;=^5001250
 ;;^UTILITY(U,$J,358.3,4464,0)
 ;;=E03.5^^32^267^36
 ;;^UTILITY(U,$J,358.3,4464,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4464,1,3,0)
 ;;=3^Myxedema Coma
 ;;^UTILITY(U,$J,358.3,4464,1,4,0)
 ;;=4^E03.5
 ;;^UTILITY(U,$J,358.3,4464,2)
 ;;=^5002474
 ;;^UTILITY(U,$J,358.3,4465,0)
 ;;=E05.91^^32^267^38
 ;;^UTILITY(U,$J,358.3,4465,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4465,1,3,0)
 ;;=3^Thyroid Storm
 ;;^UTILITY(U,$J,358.3,4465,1,4,0)
 ;;=4^E05.91
 ;;^UTILITY(U,$J,358.3,4465,2)
 ;;=^5002493
 ;;^UTILITY(U,$J,358.3,4466,0)
 ;;=E05.80^^32^267^37
 ;;^UTILITY(U,$J,358.3,4466,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4466,1,3,0)
 ;;=3^Hyperthyroidism
 ;;^UTILITY(U,$J,358.3,4466,1,4,0)
 ;;=4^E05.80
 ;;^UTILITY(U,$J,358.3,4466,2)
 ;;=^5002491
 ;;^UTILITY(U,$J,358.3,4467,0)
 ;;=E10.65^^32^267^4
 ;;^UTILITY(U,$J,358.3,4467,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4467,1,3,0)
 ;;=3^Type 1 DM w/ Hyperglycemia
 ;;^UTILITY(U,$J,358.3,4467,1,4,0)
 ;;=4^E10.65
 ;;^UTILITY(U,$J,358.3,4467,2)
 ;;=^5002623
 ;;^UTILITY(U,$J,358.3,4468,0)
 ;;=E13.11^^32^267^8
 ;;^UTILITY(U,$J,358.3,4468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4468,1,3,0)
 ;;=3^Diabetic Ketoacidosis w/ Coma
 ;;^UTILITY(U,$J,358.3,4468,1,4,0)
 ;;=4^E13.11
 ;;^UTILITY(U,$J,358.3,4468,2)
 ;;=^5133346
 ;;^UTILITY(U,$J,358.3,4469,0)
 ;;=E11.00^^32^267^9
 ;;^UTILITY(U,$J,358.3,4469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4469,1,3,0)
 ;;=3^HHNS w/o Coma
 ;;^UTILITY(U,$J,358.3,4469,1,4,0)
 ;;=4^E11.00
 ;;^UTILITY(U,$J,358.3,4469,2)
 ;;=^5002627
 ;;^UTILITY(U,$J,358.3,4470,0)
 ;;=E11.01^^32^267^10
 ;;^UTILITY(U,$J,358.3,4470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4470,1,3,0)
 ;;=3^HHNS w/ Coma
 ;;^UTILITY(U,$J,358.3,4470,1,4,0)
 ;;=4^E11.01
 ;;^UTILITY(U,$J,358.3,4470,2)
 ;;=^5002628
 ;;^UTILITY(U,$J,358.3,4471,0)
 ;;=E11.40^^32^267^11
 ;;^UTILITY(U,$J,358.3,4471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4471,1,3,0)
 ;;=3^Type 2 DM w/ Neuropathy
 ;;^UTILITY(U,$J,358.3,4471,1,4,0)
 ;;=4^E11.40
 ;;^UTILITY(U,$J,358.3,4471,2)
 ;;=^5002644
 ;;^UTILITY(U,$J,358.3,4472,0)
 ;;=E11.8^^32^267^12
 ;;^UTILITY(U,$J,358.3,4472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4472,1,3,0)
 ;;=3^Type 2 DM w/ Complications
 ;;^UTILITY(U,$J,358.3,4472,1,4,0)
 ;;=4^E11.8
 ;;^UTILITY(U,$J,358.3,4472,2)
 ;;=^5002665
 ;;^UTILITY(U,$J,358.3,4473,0)
 ;;=E13.10^^32^267^7
 ;;^UTILITY(U,$J,358.3,4473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4473,1,3,0)
 ;;=3^Diabetic Ketoacidosis w/o Coma
 ;;^UTILITY(U,$J,358.3,4473,1,4,0)
 ;;=4^E13.10
 ;;^UTILITY(U,$J,358.3,4473,2)
 ;;=^5002669
 ;;^UTILITY(U,$J,358.3,4474,0)
 ;;=E16.2^^32^267^1
 ;;^UTILITY(U,$J,358.3,4474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4474,1,3,0)
 ;;=3^Hypoglycemia
 ;;^UTILITY(U,$J,358.3,4474,1,4,0)
 ;;=4^E16.2
 ;;^UTILITY(U,$J,358.3,4474,2)
 ;;=^5002708
 ;;^UTILITY(U,$J,358.3,4475,0)
 ;;=E21.3^^32^267^40
 ;;^UTILITY(U,$J,358.3,4475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4475,1,3,0)
 ;;=3^Hyperparathyroidism
 ;;^UTILITY(U,$J,358.3,4475,1,4,0)
 ;;=4^E21.3
 ;;^UTILITY(U,$J,358.3,4475,2)
 ;;=^331438
 ;;^UTILITY(U,$J,358.3,4476,0)
 ;;=E83.42^^32^267^27
 ;;^UTILITY(U,$J,358.3,4476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4476,1,3,0)
 ;;=3^Hypomagnesemia
 ;;^UTILITY(U,$J,358.3,4476,1,4,0)
 ;;=4^E83.42
 ;;^UTILITY(U,$J,358.3,4476,2)
 ;;=^5003003
 ;;^UTILITY(U,$J,358.3,4477,0)
 ;;=E86.0^^32^267^19
 ;;^UTILITY(U,$J,358.3,4477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4477,1,3,0)
 ;;=3^Dehydration
 ;;^UTILITY(U,$J,358.3,4477,1,4,0)
 ;;=4^E86.0
 ;;^UTILITY(U,$J,358.3,4477,2)
 ;;=^332743
 ;;^UTILITY(U,$J,358.3,4478,0)
 ;;=E87.70^^32^267^21
 ;;^UTILITY(U,$J,358.3,4478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4478,1,3,0)
 ;;=3^Fluid Overload
 ;;^UTILITY(U,$J,358.3,4478,1,4,0)
 ;;=4^E87.70
 ;;^UTILITY(U,$J,358.3,4478,2)
 ;;=^5003023
 ;;^UTILITY(U,$J,358.3,4479,0)
 ;;=E87.6^^32^267^22
 ;;^UTILITY(U,$J,358.3,4479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4479,1,3,0)
 ;;=3^Hypokalemia
 ;;^UTILITY(U,$J,358.3,4479,1,4,0)
 ;;=4^E87.6
 ;;^UTILITY(U,$J,358.3,4479,2)
 ;;=^60610
 ;;^UTILITY(U,$J,358.3,4480,0)
 ;;=E87.1^^32^267^24
 ;;^UTILITY(U,$J,358.3,4480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4480,1,3,0)
 ;;=3^Hyponatremia & Hypoosmolality
 ;;^UTILITY(U,$J,358.3,4480,1,4,0)
 ;;=4^E87.1
 ;;^UTILITY(U,$J,358.3,4480,2)
 ;;=^5003019
 ;;^UTILITY(U,$J,358.3,4481,0)
 ;;=E87.0^^32^267^25
 ;;^UTILITY(U,$J,358.3,4481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4481,1,3,0)
 ;;=3^Hypernatemia & Hyperosmolality
 ;;^UTILITY(U,$J,358.3,4481,1,4,0)
 ;;=4^E87.0
 ;;^UTILITY(U,$J,358.3,4481,2)
 ;;=^5003018
 ;;^UTILITY(U,$J,358.3,4482,0)
 ;;=E87.2^^32^267^28
 ;;^UTILITY(U,$J,358.3,4482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4482,1,3,0)
 ;;=3^Acidosis
 ;;^UTILITY(U,$J,358.3,4482,1,4,0)
 ;;=4^E87.2
 ;;^UTILITY(U,$J,358.3,4482,2)
 ;;=^5003020
 ;;^UTILITY(U,$J,358.3,4483,0)
 ;;=I95.1^^32^267^20
 ;;^UTILITY(U,$J,358.3,4483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4483,1,3,0)
 ;;=3^Hypotension,Orthostatic
 ;;^UTILITY(U,$J,358.3,4483,1,4,0)
 ;;=4^I95.1
 ;;^UTILITY(U,$J,358.3,4483,2)
 ;;=^60741
 ;;^UTILITY(U,$J,358.3,4484,0)
 ;;=N17.9^^32^267^13
 ;;^UTILITY(U,$J,358.3,4484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4484,1,3,0)
 ;;=3^Acute Kidney Failure
 ;;^UTILITY(U,$J,358.3,4484,1,4,0)
 ;;=4^N17.9
 ;;^UTILITY(U,$J,358.3,4484,2)
 ;;=^338532
 ;;^UTILITY(U,$J,358.3,4485,0)
 ;;=N15.9^^32^267^14
 ;;^UTILITY(U,$J,358.3,4485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4485,1,3,0)
 ;;=3^Renal Disease
 ;;^UTILITY(U,$J,358.3,4485,1,4,0)
 ;;=4^N15.9
 ;;^UTILITY(U,$J,358.3,4485,2)
 ;;=^5015596
 ;;^UTILITY(U,$J,358.3,4486,0)
 ;;=N18.9^^32^267^15
 ;;^UTILITY(U,$J,358.3,4486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4486,1,3,0)
 ;;=3^Chronic Kidney Disease
 ;;^UTILITY(U,$J,358.3,4486,1,4,0)
 ;;=4^N18.9
 ;;^UTILITY(U,$J,358.3,4486,2)
 ;;=^332812
 ;;^UTILITY(U,$J,358.3,4487,0)
 ;;=N18.6^^32^267^16
 ;;^UTILITY(U,$J,358.3,4487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4487,1,3,0)
 ;;=3^ESRD
 ;;^UTILITY(U,$J,358.3,4487,1,4,0)
 ;;=4^N18.6
 ;;^UTILITY(U,$J,358.3,4487,2)
 ;;=^303986
 ;;^UTILITY(U,$J,358.3,4488,0)
 ;;=N10.^^32^267^30
 ;;^UTILITY(U,$J,358.3,4488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4488,1,3,0)
 ;;=3^Acute Pyelonephritis
 ;;^UTILITY(U,$J,358.3,4488,1,4,0)
 ;;=4^N10.
 ;;^UTILITY(U,$J,358.3,4488,2)
 ;;=^5015570
 ;;^UTILITY(U,$J,358.3,4489,0)
 ;;=N13.30^^32^267^31
 ;;^UTILITY(U,$J,358.3,4489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4489,1,3,0)
 ;;=3^Hydronephrosis
 ;;^UTILITY(U,$J,358.3,4489,1,4,0)
 ;;=4^N13.30
 ;;^UTILITY(U,$J,358.3,4489,2)
 ;;=^5015578
 ;;^UTILITY(U,$J,358.3,4490,0)
 ;;=N13.4^^32^267^32
 ;;^UTILITY(U,$J,358.3,4490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4490,1,3,0)
 ;;=3^Hydroureter
 ;;^UTILITY(U,$J,358.3,4490,1,4,0)
 ;;=4^N13.4
 ;;^UTILITY(U,$J,358.3,4490,2)
 ;;=^186913
 ;;^UTILITY(U,$J,358.3,4491,0)
 ;;=R73.9^^32^267^2
 ;;^UTILITY(U,$J,358.3,4491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4491,1,3,0)
 ;;=3^Hyperglycemia
 ;;^UTILITY(U,$J,358.3,4491,1,4,0)
 ;;=4^R73.9
 ;;^UTILITY(U,$J,358.3,4491,2)
 ;;=^5019564
 ;;^UTILITY(U,$J,358.3,4492,0)
 ;;=T82.590A^^32^267^17
 ;;^UTILITY(U,$J,358.3,4492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4492,1,3,0)
 ;;=3^Malfunction of AV Fistula
 ;;^UTILITY(U,$J,358.3,4492,1,4,0)
 ;;=4^T82.590A
 ;;^UTILITY(U,$J,358.3,4492,2)
 ;;=^5054884
 ;;^UTILITY(U,$J,358.3,4493,0)
 ;;=T83.022A^^32^267^18
 ;;^UTILITY(U,$J,358.3,4493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4493,1,3,0)
 ;;=3^Displacement of Nephrostomy Catheter
 ;;^UTILITY(U,$J,358.3,4493,1,4,0)
 ;;=4^T83.022A
 ;;^UTILITY(U,$J,358.3,4493,2)
 ;;=^5140060
 ;;^UTILITY(U,$J,358.3,4494,0)
 ;;=T68.XXXA^^32^267^34
 ;;^UTILITY(U,$J,358.3,4494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4494,1,3,0)
 ;;=3^Hypothermia
 ;;^UTILITY(U,$J,358.3,4494,1,4,0)
 ;;=4^T68.XXXA
 ;;^UTILITY(U,$J,358.3,4494,2)
 ;;=^5053951
 ;;^UTILITY(U,$J,358.3,4495,0)
 ;;=E11.10^^32^267^5
 ;;^UTILITY(U,$J,358.3,4495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4495,1,3,0)
 ;;=3^Type 2 DM w/ Ketacidosis w/o Coma
 ;;^UTILITY(U,$J,358.3,4495,1,4,0)
 ;;=4^E11.10
 ;;^UTILITY(U,$J,358.3,4495,2)
 ;;=^5151300
 ;;^UTILITY(U,$J,358.3,4496,0)
 ;;=E11.11^^32^267^6
 ;;^UTILITY(U,$J,358.3,4496,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4496,1,3,0)
 ;;=3^Type 2 DM w/ Ketacidosis w/ Coma
 ;;^UTILITY(U,$J,358.3,4496,1,4,0)
 ;;=4^E11.11
 ;;^UTILITY(U,$J,358.3,4496,2)
 ;;=^5151301
 ;;^UTILITY(U,$J,358.3,4497,0)
 ;;=R82.998^^32^267^29
 ;;^UTILITY(U,$J,358.3,4497,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4497,1,3,0)
 ;;=3^Abnormal Findings in Urine,Oth
 ;;^UTILITY(U,$J,358.3,4497,1,4,0)
 ;;=4^R82.998
 ;;^UTILITY(U,$J,358.3,4497,2)
 ;;=^5157472
 ;;^UTILITY(U,$J,358.3,4498,0)
 ;;=Z99.2^^32^267^41
 ;;^UTILITY(U,$J,358.3,4498,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4498,1,3,0)
 ;;=3^Dialysis Dependent
 ;;^UTILITY(U,$J,358.3,4498,1,4,0)
 ;;=4^Z99.2
 ;;^UTILITY(U,$J,358.3,4498,2)
 ;;=^5063758
 ;;^UTILITY(U,$J,358.3,4499,0)
 ;;=T85.71XA^^32^267^42
 ;;^UTILITY(U,$J,358.3,4499,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4499,1,3,0)
 ;;=3^Peritoneal Dialysis Catheter Infection
 ;;^UTILITY(U,$J,358.3,4499,1,4,0)
 ;;=4^T85.71XA
 ;;^UTILITY(U,$J,358.3,4499,2)
 ;;=^5055670
 ;;^UTILITY(U,$J,358.3,4500,0)
 ;;=H57.10^^32^268^1
 ;;^UTILITY(U,$J,358.3,4500,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4500,1,3,0)
 ;;=3^Eye Pain
 ;;^UTILITY(U,$J,358.3,4500,1,4,0)
 ;;=4^H57.10
 ;;^UTILITY(U,$J,358.3,4500,2)
 ;;=^5006381
 ;;^UTILITY(U,$J,358.3,4501,0)
 ;;=S05.00XA^^32^268^2
 ;;^UTILITY(U,$J,358.3,4501,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4501,1,3,0)
 ;;=3^Corneal Abrasion w/o FB
 ;;^UTILITY(U,$J,358.3,4501,1,4,0)
 ;;=4^S05.00XA
 ;;^UTILITY(U,$J,358.3,4501,2)
 ;;=^5020576
 ;;^UTILITY(U,$J,358.3,4502,0)
 ;;=T15.00XA^^32^268^3
 ;;^UTILITY(U,$J,358.3,4502,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4502,1,3,0)
 ;;=3^Corneal FB
 ;;^UTILITY(U,$J,358.3,4502,1,4,0)
 ;;=4^T15.00XA
 ;;^UTILITY(U,$J,358.3,4502,2)
 ;;=^5046381
 ;;^UTILITY(U,$J,358.3,4503,0)
 ;;=H10.30^^32^268^5
 ;;^UTILITY(U,$J,358.3,4503,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4503,1,3,0)
 ;;=3^Acute Conjunctivitis
 ;;^UTILITY(U,$J,358.3,4503,1,4,0)
 ;;=4^H10.30
 ;;^UTILITY(U,$J,358.3,4503,2)
 ;;=^5133457
 ;;^UTILITY(U,$J,358.3,4504,0)
 ;;=H01.009^^32^268^6
 ;;^UTILITY(U,$J,358.3,4504,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4504,1,3,0)
 ;;=3^Blepharitis,Unspec Eye,Unspec Eyelid
 ;;^UTILITY(U,$J,358.3,4504,1,4,0)
 ;;=4^H01.009
 ;;^UTILITY(U,$J,358.3,4504,2)
 ;;=^5133381
 ;;^UTILITY(U,$J,358.3,4505,0)
 ;;=H00.019^^32^268^7
 ;;^UTILITY(U,$J,358.3,4505,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4505,1,3,0)
 ;;=3^Stye
 ;;^UTILITY(U,$J,358.3,4505,1,4,0)
 ;;=4^H00.019
 ;;^UTILITY(U,$J,358.3,4505,2)
 ;;=^5133373
 ;;^UTILITY(U,$J,358.3,4506,0)
 ;;=B02.39^^32^268^10
 ;;^UTILITY(U,$J,358.3,4506,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4506,1,3,0)
 ;;=3^Herpes Zoster Eye Disease
 ;;^UTILITY(U,$J,358.3,4506,1,4,0)
 ;;=4^B02.39
 ;;^UTILITY(U,$J,358.3,4506,2)
 ;;=^5000498
 ;;^UTILITY(U,$J,358.3,4507,0)
 ;;=L03.213^^32^268^8
 ;;^UTILITY(U,$J,358.3,4507,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4507,1,3,0)
 ;;=3^Periorbital Cellulitis
 ;;^UTILITY(U,$J,358.3,4507,1,4,0)
 ;;=4^L03.213
 ;;^UTILITY(U,$J,358.3,4507,2)
 ;;=^259555
 ;;^UTILITY(U,$J,358.3,4508,0)
 ;;=H05.019^^32^268^9
 ;;^UTILITY(U,$J,358.3,4508,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4508,1,3,0)
 ;;=3^Orbital Cellulitis
 ;;^UTILITY(U,$J,358.3,4508,1,4,0)
 ;;=4^H05.019
 ;;^UTILITY(U,$J,358.3,4508,2)
 ;;=^5004563
 ;;^UTILITY(U,$J,358.3,4509,0)
 ;;=H43.10^^32^268^11
 ;;^UTILITY(U,$J,358.3,4509,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4509,1,3,0)
 ;;=3^Vitreous Hemorrhage
 ;;^UTILITY(U,$J,358.3,4509,1,4,0)
 ;;=4^H43.10
 ;;^UTILITY(U,$J,358.3,4509,2)
 ;;=^5005937
 ;;^UTILITY(U,$J,358.3,4510,0)
 ;;=H33.20^^32^268^12
 ;;^UTILITY(U,$J,358.3,4510,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4510,1,3,0)
 ;;=3^Retinal Detachment
 ;;^UTILITY(U,$J,358.3,4510,1,4,0)
 ;;=4^H33.20
 ;;^UTILITY(U,$J,358.3,4510,2)
 ;;=^5005528
 ;;^UTILITY(U,$J,358.3,4511,0)
 ;;=H54.7^^32^268^13
 ;;^UTILITY(U,$J,358.3,4511,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4511,1,3,0)
 ;;=3^Vision Loss
 ;;^UTILITY(U,$J,358.3,4511,1,4,0)
 ;;=4^H54.7
 ;;^UTILITY(U,$J,358.3,4511,2)
 ;;=^5006368
 ;;^UTILITY(U,$J,358.3,4512,0)
 ;;=G45.3^^32^268^14
 ;;^UTILITY(U,$J,358.3,4512,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4512,1,3,0)
 ;;=3^Amaurosis Fugax
 ;;^UTILITY(U,$J,358.3,4512,1,4,0)
 ;;=4^G45.3
 ;;^UTILITY(U,$J,358.3,4512,2)
 ;;=^304129
 ;;^UTILITY(U,$J,358.3,4513,0)
 ;;=H53.2^^32^268^15
 ;;^UTILITY(U,$J,358.3,4513,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4513,1,3,0)
 ;;=3^Diplopia
 ;;^UTILITY(U,$J,358.3,4513,1,4,0)
 ;;=4^H53.2
 ;;^UTILITY(U,$J,358.3,4513,2)
 ;;=^35208
 ;;^UTILITY(U,$J,358.3,4514,0)
 ;;=S01.109A^^32^268^16
 ;;^UTILITY(U,$J,358.3,4514,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4514,1,3,0)
 ;;=3^Periorbital Wound
 ;;^UTILITY(U,$J,358.3,4514,1,4,0)
 ;;=4^S01.109A
 ;;^UTILITY(U,$J,358.3,4514,2)
 ;;=^5134187
 ;;^UTILITY(U,$J,358.3,4515,0)
 ;;=S02.30XA^^32^268^17
 ;;^UTILITY(U,$J,358.3,4515,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4515,1,3,0)
 ;;=3^Orbital Floor Fx,Closed
 ;;^UTILITY(U,$J,358.3,4515,1,4,0)
 ;;=4^S02.30XA
 ;;^UTILITY(U,$J,358.3,4515,2)
 ;;=^5139319
 ;;^UTILITY(U,$J,358.3,4516,0)
 ;;=H40.059^^32^268^20
 ;;^UTILITY(U,$J,358.3,4516,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4516,1,3,0)
 ;;=3^Elevated Intraocular Pressure
 ;;^UTILITY(U,$J,358.3,4516,1,4,0)
 ;;=4^H40.059
 ;;^UTILITY(U,$J,358.3,4516,2)
 ;;=^5005743
 ;;^UTILITY(U,$J,358.3,4517,0)
 ;;=H40.219^^32^268^21
 ;;^UTILITY(U,$J,358.3,4517,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4517,1,3,0)
 ;;=3^Acute Angle-Closure Glaucoma
 ;;^UTILITY(U,$J,358.3,4517,1,4,0)
 ;;=4^H40.219
 ;;^UTILITY(U,$J,358.3,4517,2)
 ;;=^5005821
 ;;^UTILITY(U,$J,358.3,4518,0)
 ;;=H16.009^^32^268^4
 ;;^UTILITY(U,$J,358.3,4518,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4518,1,3,0)
 ;;=3^Corneal Ulcer,Unspec,Unspec Eye
 ;;^UTILITY(U,$J,358.3,4518,1,4,0)
 ;;=4^H16.009
 ;;^UTILITY(U,$J,358.3,4518,2)
 ;;=^5133467
 ;;^UTILITY(U,$J,358.3,4519,0)
 ;;=S02.129A^^32^268^18
 ;;^UTILITY(U,$J,358.3,4519,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4519,1,3,0)
 ;;=3^Orbital Roof Fx,Unspec Side,Closed
 ;;^UTILITY(U,$J,358.3,4519,1,4,0)
 ;;=4^S02.129A
 ;;^UTILITY(U,$J,358.3,4519,2)
 ;;=^5158156
 ;;^UTILITY(U,$J,358.3,4520,0)
 ;;=S02.85XA^^32^268^19
 ;;^UTILITY(U,$J,358.3,4520,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4520,1,3,0)
 ;;=3^Orbit Fx,Unspec,Closed
 ;;^UTILITY(U,$J,358.3,4520,1,4,0)
 ;;=4^S02.85XA
 ;;^UTILITY(U,$J,358.3,4520,2)
 ;;=^5158198
 ;;^UTILITY(U,$J,358.3,4521,0)
 ;;=H16.9^^32^268^22
 ;;^UTILITY(U,$J,358.3,4521,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4521,1,3,0)
 ;;=3^Keratitis,Unspec
 ;;^UTILITY(U,$J,358.3,4521,1,4,0)
 ;;=4^H16.9
 ;;^UTILITY(U,$J,358.3,4521,2)
 ;;=^5004985
 ;;^UTILITY(U,$J,358.3,4522,0)
 ;;=K57.92^^32^269^13
 ;;^UTILITY(U,$J,358.3,4522,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4522,1,3,0)
 ;;=3^Diverticulitis
 ;;^UTILITY(U,$J,358.3,4522,1,4,0)
 ;;=4^K57.92
 ;;^UTILITY(U,$J,358.3,4522,2)
 ;;=^5008737
 ;;^UTILITY(U,$J,358.3,4523,0)
 ;;=K59.00^^32^269^22
 ;;^UTILITY(U,$J,358.3,4523,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4523,1,3,0)
 ;;=3^Constipation
 ;;^UTILITY(U,$J,358.3,4523,1,4,0)
 ;;=4^K59.00
 ;;^UTILITY(U,$J,358.3,4523,2)
 ;;=^323537
 ;;^UTILITY(U,$J,358.3,4524,0)
 ;;=K62.5^^32^269^25
 ;;^UTILITY(U,$J,358.3,4524,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4524,1,3,0)
 ;;=3^Rectal Bleeding
 ;;^UTILITY(U,$J,358.3,4524,1,4,0)
 ;;=4^K62.5
 ;;^UTILITY(U,$J,358.3,4524,2)
 ;;=^5008755
 ;;^UTILITY(U,$J,358.3,4525,0)
 ;;=R10.9^^32^269^1
 ;;^UTILITY(U,$J,358.3,4525,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4525,1,3,0)
 ;;=3^Abdominal Pain
 ;;^UTILITY(U,$J,358.3,4525,1,4,0)
 ;;=4^R10.9
 ;;^UTILITY(U,$J,358.3,4525,2)
 ;;=^5019230
 ;;^UTILITY(U,$J,358.3,4526,0)
 ;;=R10.84^^32^269^2
 ;;^UTILITY(U,$J,358.3,4526,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4526,1,3,0)
 ;;=3^Abdominal Pain,Generalized
 ;;^UTILITY(U,$J,358.3,4526,1,4,0)
 ;;=4^R10.84
 ;;^UTILITY(U,$J,358.3,4526,2)
 ;;=^5019229
 ;;^UTILITY(U,$J,358.3,4527,0)
 ;;=R10.13^^32^269^3
 ;;^UTILITY(U,$J,358.3,4527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4527,1,3,0)
 ;;=3^Epigastric Pain
 ;;^UTILITY(U,$J,358.3,4527,1,4,0)
 ;;=4^R10.13
 ;;^UTILITY(U,$J,358.3,4527,2)
 ;;=^5019208
 ;;^UTILITY(U,$J,358.3,4528,0)
 ;;=R10.10^^32^269^4
 ;;^UTILITY(U,$J,358.3,4528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4528,1,3,0)
 ;;=3^Upper Abdominal Pain
 ;;^UTILITY(U,$J,358.3,4528,1,4,0)
 ;;=4^R10.10
 ;;^UTILITY(U,$J,358.3,4528,2)
 ;;=^5019205
 ;;^UTILITY(U,$J,358.3,4529,0)
 ;;=R10.30^^32^269^5
 ;;^UTILITY(U,$J,358.3,4529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4529,1,3,0)
 ;;=3^Lower Abdominal Pain
 ;;^UTILITY(U,$J,358.3,4529,1,4,0)
 ;;=4^R10.30
 ;;^UTILITY(U,$J,358.3,4529,2)
 ;;=^5019210
 ;;^UTILITY(U,$J,358.3,4530,0)
 ;;=K35.80^^32^269^6
 ;;^UTILITY(U,$J,358.3,4530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4530,1,3,0)
 ;;=3^Acute Appenditis NOS
 ;;^UTILITY(U,$J,358.3,4530,1,4,0)
 ;;=4^K35.80
 ;;^UTILITY(U,$J,358.3,4530,2)
 ;;=^5008572
 ;;^UTILITY(U,$J,358.3,4531,0)
 ;;=K80.70^^32^269^11
 ;;^UTILITY(U,$J,358.3,4531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4531,1,3,0)
 ;;=3^Cholelithiasis
 ;;^UTILITY(U,$J,358.3,4531,1,4,0)
 ;;=4^K80.70
 ;;^UTILITY(U,$J,358.3,4531,2)
 ;;=^5008870
 ;;^UTILITY(U,$J,358.3,4532,0)
 ;;=K80.00^^32^269^9
 ;;^UTILITY(U,$J,358.3,4532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4532,1,3,0)
 ;;=3^Acute Cholecystisis
 ;;^UTILITY(U,$J,358.3,4532,1,4,0)
 ;;=4^K80.00
 ;;^UTILITY(U,$J,358.3,4532,2)
 ;;=^5008838
 ;;^UTILITY(U,$J,358.3,4533,0)
 ;;=R11.2^^32^269^14
 ;;^UTILITY(U,$J,358.3,4533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4533,1,3,0)
 ;;=3^Nausea w/ Vomiting
 ;;^UTILITY(U,$J,358.3,4533,1,4,0)
 ;;=4^R11.2
 ;;^UTILITY(U,$J,358.3,4533,2)
 ;;=^5019237
 ;;^UTILITY(U,$J,358.3,4534,0)
 ;;=K52.9^^32^269^15
 ;;^UTILITY(U,$J,358.3,4534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4534,1,3,0)
 ;;=3^Noninfective Gastroenteritis & Colitis
 ;;^UTILITY(U,$J,358.3,4534,1,4,0)
 ;;=4^K52.9
 ;;^UTILITY(U,$J,358.3,4534,2)
 ;;=^5008704
 ;;^UTILITY(U,$J,358.3,4535,0)
 ;;=A09.^^32^269^16
 ;;^UTILITY(U,$J,358.3,4535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4535,1,3,0)
 ;;=3^Infective Gastroenteritis & Colitis
 ;;^UTILITY(U,$J,358.3,4535,1,4,0)
 ;;=4^A09.
 ;;^UTILITY(U,$J,358.3,4535,2)
 ;;=^5000061
 ;;^UTILITY(U,$J,358.3,4536,0)
 ;;=R19.7^^32^269^17
 ;;^UTILITY(U,$J,358.3,4536,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,4536,1,3,0)
 ;;=3^Diarrhea