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

IBDEI02D.m

Go to the documentation of this file.
  1. IBDEI02D ; ; 01-AUG-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,5481,0)
  1. ;;=92273^^36^303^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,5481,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5481,1,2,0)
  1. ;;=2^ERG w/ Int & Rpt;Full Field
  1. ;;^UTILITY(U,$J,358.3,5481,1,3,0)
  1. ;;=3^92273
  1. ;;^UTILITY(U,$J,358.3,5482,0)
  1. ;;=92274^^36^303^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,5482,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5482,1,2,0)
  1. ;;=2^ERG w/ Int & Rpt;Multifocal
  1. ;;^UTILITY(U,$J,358.3,5482,1,3,0)
  1. ;;=3^92274
  1. ;;^UTILITY(U,$J,358.3,5483,0)
  1. ;;=0333T^^36^303^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,5483,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5483,1,2,0)
  1. ;;=2^VEP,Scr Acuity,Automated w/ Rpt
  1. ;;^UTILITY(U,$J,358.3,5483,1,3,0)
  1. ;;=3^0333T
  1. ;;^UTILITY(U,$J,358.3,5484,0)
  1. ;;=92015^^36^304^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,5484,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5484,1,2,0)
  1. ;;=2^Refraction
  1. ;;^UTILITY(U,$J,358.3,5484,1,3,0)
  1. ;;=3^92015
  1. ;;^UTILITY(U,$J,358.3,5485,0)
  1. ;;=99174^^36^304^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,5485,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5485,1,2,0)
  1. ;;=2^Autorefraction,Bilateral
  1. ;;^UTILITY(U,$J,358.3,5485,1,3,0)
  1. ;;=3^99174
  1. ;;^UTILITY(U,$J,358.3,5486,0)
  1. ;;=92370^^36^304^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,5486,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5486,1,2,0)
  1. ;;=2^Repair/Refit Glasses
  1. ;;^UTILITY(U,$J,358.3,5486,1,3,0)
  1. ;;=3^92370
  1. ;;^UTILITY(U,$J,358.3,5487,0)
  1. ;;=92371^^36^304^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,5487,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5487,1,2,0)
  1. ;;=2^Repair/Refit Glasses for Aphakia
  1. ;;^UTILITY(U,$J,358.3,5487,1,3,0)
  1. ;;=3^92371
  1. ;;^UTILITY(U,$J,358.3,5488,0)
  1. ;;=92341^^36^304^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,5488,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5488,1,2,0)
  1. ;;=2^Glasses Fitting,Bifocal
  1. ;;^UTILITY(U,$J,358.3,5488,1,3,0)
  1. ;;=3^92341
  1. ;;^UTILITY(U,$J,358.3,5489,0)
  1. ;;=92340^^36^304^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,5489,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5489,1,2,0)
  1. ;;=2^Glasses Fitting,Monofocal
  1. ;;^UTILITY(U,$J,358.3,5489,1,3,0)
  1. ;;=3^92340
  1. ;;^UTILITY(U,$J,358.3,5490,0)
  1. ;;=92352^^36^304^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,5490,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5490,1,2,0)
  1. ;;=2^Glasses Fitting,Monofocal for Aphakia
  1. ;;^UTILITY(U,$J,358.3,5490,1,3,0)
  1. ;;=3^92352
  1. ;;^UTILITY(U,$J,358.3,5491,0)
  1. ;;=92342^^36^304^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,5491,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5491,1,2,0)
  1. ;;=2^Glasses Fitting,Multifocal
  1. ;;^UTILITY(U,$J,358.3,5491,1,3,0)
  1. ;;=3^92342
  1. ;;^UTILITY(U,$J,358.3,5492,0)
  1. ;;=92353^^36^304^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,5492,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5492,1,2,0)
  1. ;;=2^Glasses Fitting,Multifocal for Aphakia
  1. ;;^UTILITY(U,$J,358.3,5492,1,3,0)
  1. ;;=3^92353
  1. ;;^UTILITY(U,$J,358.3,5493,0)
  1. ;;=92072^^36^304^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,5493,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5493,1,2,0)
  1. ;;=2^Contact Lens Mgmt Keratoconus,Init
  1. ;;^UTILITY(U,$J,358.3,5493,1,3,0)
  1. ;;=3^92072
  1. ;;^UTILITY(U,$J,358.3,5494,0)
  1. ;;=92071^^36^304^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,5494,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5494,1,2,0)
  1. ;;=2^Contact Lens Tx for Ocular Disease
  1. ;;^UTILITY(U,$J,358.3,5494,1,3,0)
  1. ;;=3^92071
  1. ;;^UTILITY(U,$J,358.3,5495,0)
  1. ;;=92311^^36^304^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,5495,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5495,1,2,0)
  1. ;;=2^Contact Lens-Aphakia Od/Os
  1. ;;^UTILITY(U,$J,358.3,5495,1,3,0)
  1. ;;=3^92311
  1. ;;^UTILITY(U,$J,358.3,5496,0)
  1. ;;=92312^^36^304^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,5496,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5496,1,2,0)
  1. ;;=2^Contact Lens-Aphakia OU
  1. ;;^UTILITY(U,$J,358.3,5496,1,3,0)
  1. ;;=3^92312
  1. ;;^UTILITY(U,$J,358.3,5497,0)
  1. ;;=92354^^36^304^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,5497,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5497,1,2,0)
  1. ;;=2^Low Vision Aid Fitting,Single Element
  1. ;;^UTILITY(U,$J,358.3,5497,1,3,0)
  1. ;;=3^92354
  1. ;;^UTILITY(U,$J,358.3,5498,0)
  1. ;;=92355^^36^304^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,5498,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,5498,1,2,0)
  1. ;;=2^Low Vision Aid Fitng,Telescopic/Compound Lens
  1. ;;^UTILITY(U,$J,358.3,5498,1,3,0)
  1. ;;=3^92355
  1. ;;^UTILITY(U,$J,358.3,5499,0)
  1. ;;=H54.3^^37^306^2
  1. ;;^UTILITY(U,$J,358.3,5499,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5499,1,3,0)
  1. ;;=3^Visual Loss,Both Eyes,Unqualified
  1. ;;^UTILITY(U,$J,358.3,5499,1,4,0)
  1. ;;=4^H54.3
  1. ;;^UTILITY(U,$J,358.3,5499,2)
  1. ;;=^268886
  1. ;;^UTILITY(U,$J,358.3,5500,0)
  1. ;;=H54.7^^37^306^1
  1. ;;^UTILITY(U,$J,358.3,5500,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5500,1,3,0)
  1. ;;=3^Visual Loss
  1. ;;^UTILITY(U,$J,358.3,5500,1,4,0)
  1. ;;=4^H54.7
  1. ;;^UTILITY(U,$J,358.3,5500,2)
  1. ;;=^5006368
  1. ;;^UTILITY(U,$J,358.3,5501,0)
  1. ;;=H54.8^^37^306^44
  1. ;;^UTILITY(U,$J,358.3,5501,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5501,1,3,0)
  1. ;;=3^Legal Blindness,as Defined in USA
  1. ;;^UTILITY(U,$J,358.3,5501,1,4,0)
  1. ;;=4^H54.8
  1. ;;^UTILITY(U,$J,358.3,5501,2)
  1. ;;=^5006369
  1. ;;^UTILITY(U,$J,358.3,5502,0)
  1. ;;=H54.40^^37^306^6
  1. ;;^UTILITY(U,$J,358.3,5502,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5502,1,3,0)
  1. ;;=3^Monocular,Blindness in One Eye
  1. ;;^UTILITY(U,$J,358.3,5502,1,4,0)
  1. ;;=4^H54.40
  1. ;;^UTILITY(U,$J,358.3,5502,2)
  1. ;;=^5006362
  1. ;;^UTILITY(U,$J,358.3,5503,0)
  1. ;;=H53.71^^37^306^3
  1. ;;^UTILITY(U,$J,358.3,5503,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5503,1,3,0)
  1. ;;=3^Glare Sensitivity
  1. ;;^UTILITY(U,$J,358.3,5503,1,4,0)
  1. ;;=4^H53.71
  1. ;;^UTILITY(U,$J,358.3,5503,2)
  1. ;;=^5006354
  1. ;;^UTILITY(U,$J,358.3,5504,0)
  1. ;;=H53.72^^37^306^4
  1. ;;^UTILITY(U,$J,358.3,5504,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5504,1,3,0)
  1. ;;=3^Impaired Contrast Sensitivity
  1. ;;^UTILITY(U,$J,358.3,5504,1,4,0)
  1. ;;=4^H53.72
  1. ;;^UTILITY(U,$J,358.3,5504,2)
  1. ;;=^5006355
  1. ;;^UTILITY(U,$J,358.3,5505,0)
  1. ;;=Z82.1^^37^306^5
  1. ;;^UTILITY(U,$J,358.3,5505,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5505,1,3,0)
  1. ;;=3^Family Hx Blindness/Visual Loss
  1. ;;^UTILITY(U,$J,358.3,5505,1,4,0)
  1. ;;=4^Z82.1
  1. ;;^UTILITY(U,$J,358.3,5505,2)
  1. ;;=^5063365
  1. ;;^UTILITY(U,$J,358.3,5506,0)
  1. ;;=H54.7^^37^306^43
  1. ;;^UTILITY(U,$J,358.3,5506,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5506,1,3,0)
  1. ;;=3^Visual Loss,Unspec
  1. ;;^UTILITY(U,$J,358.3,5506,1,4,0)
  1. ;;=4^H54.7
  1. ;;^UTILITY(U,$J,358.3,5506,2)
  1. ;;=^5006368
  1. ;;^UTILITY(U,$J,358.3,5507,0)
  1. ;;=H54.1213^^37^306^7
  1. ;;^UTILITY(U,$J,358.3,5507,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5507,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 3
  1. ;;^UTILITY(U,$J,358.3,5507,1,4,0)
  1. ;;=4^H54.1213
  1. ;;^UTILITY(U,$J,358.3,5507,2)
  1. ;;=^5151353
  1. ;;^UTILITY(U,$J,358.3,5508,0)
  1. ;;=H54.1214^^37^306^8
  1. ;;^UTILITY(U,$J,358.3,5508,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5508,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 4
  1. ;;^UTILITY(U,$J,358.3,5508,1,4,0)
  1. ;;=4^H54.1214
  1. ;;^UTILITY(U,$J,358.3,5508,2)
  1. ;;=^5151354
  1. ;;^UTILITY(U,$J,358.3,5509,0)
  1. ;;=H54.1215^^37^306^9
  1. ;;^UTILITY(U,$J,358.3,5509,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5509,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 5
  1. ;;^UTILITY(U,$J,358.3,5509,1,4,0)
  1. ;;=4^H54.1215
  1. ;;^UTILITY(U,$J,358.3,5509,2)
  1. ;;=^5151355
  1. ;;^UTILITY(U,$J,358.3,5510,0)
  1. ;;=H54.1223^^37^306^10
  1. ;;^UTILITY(U,$J,358.3,5510,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5510,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 3
  1. ;;^UTILITY(U,$J,358.3,5510,1,4,0)
  1. ;;=4^H54.1223
  1. ;;^UTILITY(U,$J,358.3,5510,2)
  1. ;;=^5151356
  1. ;;^UTILITY(U,$J,358.3,5511,0)
  1. ;;=H54.1224^^37^306^11
  1. ;;^UTILITY(U,$J,358.3,5511,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5511,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 4
  1. ;;^UTILITY(U,$J,358.3,5511,1,4,0)
  1. ;;=4^H54.1224
  1. ;;^UTILITY(U,$J,358.3,5511,2)
  1. ;;=^5151357
  1. ;;^UTILITY(U,$J,358.3,5512,0)
  1. ;;=H54.1225^^37^306^12
  1. ;;^UTILITY(U,$J,358.3,5512,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5512,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 5
  1. ;;^UTILITY(U,$J,358.3,5512,1,4,0)
  1. ;;=4^H54.1225
  1. ;;^UTILITY(U,$J,358.3,5512,2)
  1. ;;=^5151358
  1. ;;^UTILITY(U,$J,358.3,5513,0)
  1. ;;=H54.2X12^^37^306^13
  1. ;;^UTILITY(U,$J,358.3,5513,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5513,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 1,Low Vision Lt Eye Category 2
  1. ;;^UTILITY(U,$J,358.3,5513,1,4,0)
  1. ;;=4^H54.2X12
  1. ;;^UTILITY(U,$J,358.3,5513,2)
  1. ;;=^5151360
  1. ;;^UTILITY(U,$J,358.3,5514,0)
  1. ;;=H54.2X21^^37^306^14
  1. ;;^UTILITY(U,$J,358.3,5514,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5514,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 1
  1. ;;^UTILITY(U,$J,358.3,5514,1,4,0)
  1. ;;=4^H54.2X21
  1. ;;^UTILITY(U,$J,358.3,5514,2)
  1. ;;=^5151361
  1. ;;^UTILITY(U,$J,358.3,5515,0)
  1. ;;=H54.2X22^^37^306^15
  1. ;;^UTILITY(U,$J,358.3,5515,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5515,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 2
  1. ;;^UTILITY(U,$J,358.3,5515,1,4,0)
  1. ;;=4^H54.2X22
  1. ;;^UTILITY(U,$J,358.3,5515,2)
  1. ;;=^5151362
  1. ;;^UTILITY(U,$J,358.3,5516,0)
  1. ;;=H54.511A^^37^306^16
  1. ;;^UTILITY(U,$J,358.3,5516,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5516,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 1,Normal Vision Lt Eye
  1. ;;^UTILITY(U,$J,358.3,5516,1,4,0)
  1. ;;=4^H54.511A
  1. ;;^UTILITY(U,$J,358.3,5516,2)
  1. ;;=^5151369
  1. ;;^UTILITY(U,$J,358.3,5517,0)
  1. ;;=H54.512A^^37^306^17
  1. ;;^UTILITY(U,$J,358.3,5517,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5517,1,3,0)
  1. ;;=3^Low Vision Rt Eye Category 2,Normal Vision Lt Eye
  1. ;;^UTILITY(U,$J,358.3,5517,1,4,0)
  1. ;;=4^H54.512A
  1. ;;^UTILITY(U,$J,358.3,5517,2)
  1. ;;=^5151370
  1. ;;^UTILITY(U,$J,358.3,5518,0)
  1. ;;=H54.52A1^^37^306^18
  1. ;;^UTILITY(U,$J,358.3,5518,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5518,1,3,0)
  1. ;;=3^Low Vision Lt Eye Category 1,Normal Vision Rt Eye
  1. ;;^UTILITY(U,$J,358.3,5518,1,4,0)
  1. ;;=4^H54.52A1
  1. ;;^UTILITY(U,$J,358.3,5518,2)
  1. ;;=^5151371
  1. ;;^UTILITY(U,$J,358.3,5519,0)
  1. ;;=H54.52A2^^37^306^19
  1. ;;^UTILITY(U,$J,358.3,5519,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5519,1,3,0)
  1. ;;=3^Low Vision Lt Eye Category 2,Normal Vision Rt Eye
  1. ;;^UTILITY(U,$J,358.3,5519,1,4,0)
  1. ;;=4^H54.52A2
  1. ;;^UTILITY(U,$J,358.3,5519,2)
  1. ;;=^5151372
  1. ;;^UTILITY(U,$J,358.3,5520,0)
  1. ;;=H54.0X33^^37^306^20
  1. ;;^UTILITY(U,$J,358.3,5520,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5520,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 3
  1. ;;^UTILITY(U,$J,358.3,5520,1,4,0)
  1. ;;=4^H54.0X33
  1. ;;^UTILITY(U,$J,358.3,5520,2)
  1. ;;=^5151338
  1. ;;^UTILITY(U,$J,358.3,5521,0)
  1. ;;=H54.0X34^^37^306^21
  1. ;;^UTILITY(U,$J,358.3,5521,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5521,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 4
  1. ;;^UTILITY(U,$J,358.3,5521,1,4,0)
  1. ;;=4^H54.0X34
  1. ;;^UTILITY(U,$J,358.3,5521,2)
  1. ;;=^5151339
  1. ;;^UTILITY(U,$J,358.3,5522,0)
  1. ;;=H54.0X35^^37^306^22
  1. ;;^UTILITY(U,$J,358.3,5522,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5522,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 5
  1. ;;^UTILITY(U,$J,358.3,5522,1,4,0)
  1. ;;=4^H54.0X35
  1. ;;^UTILITY(U,$J,358.3,5522,2)
  1. ;;=^5151340
  1. ;;^UTILITY(U,$J,358.3,5523,0)
  1. ;;=H54.0X43^^37^306^23
  1. ;;^UTILITY(U,$J,358.3,5523,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5523,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 3
  1. ;;^UTILITY(U,$J,358.3,5523,1,4,0)
  1. ;;=4^H54.0X43
  1. ;;^UTILITY(U,$J,358.3,5523,2)
  1. ;;=^5151341
  1. ;;^UTILITY(U,$J,358.3,5524,0)
  1. ;;=H54.0X44^^37^306^24
  1. ;;^UTILITY(U,$J,358.3,5524,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5524,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 4
  1. ;;^UTILITY(U,$J,358.3,5524,1,4,0)
  1. ;;=4^H54.0X44
  1. ;;^UTILITY(U,$J,358.3,5524,2)
  1. ;;=^5151342
  1. ;;^UTILITY(U,$J,358.3,5525,0)
  1. ;;=H54.0X45^^37^306^25
  1. ;;^UTILITY(U,$J,358.3,5525,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5525,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 5
  1. ;;^UTILITY(U,$J,358.3,5525,1,4,0)
  1. ;;=4^H54.0X45
  1. ;;^UTILITY(U,$J,358.3,5525,2)
  1. ;;=^5151343
  1. ;;^UTILITY(U,$J,358.3,5526,0)
  1. ;;=H54.0X53^^37^306^26
  1. ;;^UTILITY(U,$J,358.3,5526,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5526,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 3
  1. ;;^UTILITY(U,$J,358.3,5526,1,4,0)
  1. ;;=4^H54.0X53
  1. ;;^UTILITY(U,$J,358.3,5526,2)
  1. ;;=^5151344
  1. ;;^UTILITY(U,$J,358.3,5527,0)
  1. ;;=H54.0X54^^37^306^27
  1. ;;^UTILITY(U,$J,358.3,5527,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5527,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 4
  1. ;;^UTILITY(U,$J,358.3,5527,1,4,0)
  1. ;;=4^H54.0X54
  1. ;;^UTILITY(U,$J,358.3,5527,2)
  1. ;;=^5151345
  1. ;;^UTILITY(U,$J,358.3,5528,0)
  1. ;;=H54.0X55^^37^306^28
  1. ;;^UTILITY(U,$J,358.3,5528,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5528,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 5
  1. ;;^UTILITY(U,$J,358.3,5528,1,4,0)
  1. ;;=4^H54.0X55
  1. ;;^UTILITY(U,$J,358.3,5528,2)
  1. ;;=^5151346
  1. ;;^UTILITY(U,$J,358.3,5529,0)
  1. ;;=H54.10^^37^306^29
  1. ;;^UTILITY(U,$J,358.3,5529,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5529,1,3,0)
  1. ;;=3^Blindness,One Eye,Low Vision Other Eye,Unspec Eyes
  1. ;;^UTILITY(U,$J,358.3,5529,1,4,0)
  1. ;;=4^H54.10
  1. ;;^UTILITY(U,$J,358.3,5529,2)
  1. ;;=^5006358
  1. ;;^UTILITY(U,$J,358.3,5530,0)
  1. ;;=H54.1131^^37^306^30
  1. ;;^UTILITY(U,$J,358.3,5530,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5530,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 3,Low Vision Lt Eye Category 1
  1. ;;^UTILITY(U,$J,358.3,5530,1,4,0)
  1. ;;=4^H54.1131
  1. ;;^UTILITY(U,$J,358.3,5530,2)
  1. ;;=^5151347
  1. ;;^UTILITY(U,$J,358.3,5531,0)
  1. ;;=H54.1132^^37^306^31
  1. ;;^UTILITY(U,$J,358.3,5531,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5531,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 3,Low Vision Lt Eye Category 2
  1. ;;^UTILITY(U,$J,358.3,5531,1,4,0)
  1. ;;=4^H54.1132
  1. ;;^UTILITY(U,$J,358.3,5531,2)
  1. ;;=^5151348
  1. ;;^UTILITY(U,$J,358.3,5532,0)
  1. ;;=H54.1141^^37^306^32
  1. ;;^UTILITY(U,$J,358.3,5532,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5532,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 4,Low Vision Lt Eye Category 1
  1. ;;^UTILITY(U,$J,358.3,5532,1,4,0)
  1. ;;=4^H54.1141
  1. ;;^UTILITY(U,$J,358.3,5532,2)
  1. ;;=^5151349
  1. ;;^UTILITY(U,$J,358.3,5533,0)
  1. ;;=H54.1142^^37^306^33
  1. ;;^UTILITY(U,$J,358.3,5533,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5533,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 4,Low Vision Lt Eye Category 2
  1. ;;^UTILITY(U,$J,358.3,5533,1,4,0)
  1. ;;=4^H54.1142
  1. ;;^UTILITY(U,$J,358.3,5533,2)
  1. ;;=^5151350
  1. ;;^UTILITY(U,$J,358.3,5534,0)
  1. ;;=H54.1151^^37^306^34
  1. ;;^UTILITY(U,$J,358.3,5534,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5534,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 5,Low Vision Lt Eye Category 1
  1. ;;^UTILITY(U,$J,358.3,5534,1,4,0)
  1. ;;=4^H54.1151
  1. ;;^UTILITY(U,$J,358.3,5534,2)
  1. ;;=^5151351
  1. ;;^UTILITY(U,$J,358.3,5535,0)
  1. ;;=H54.1152^^37^306^35
  1. ;;^UTILITY(U,$J,358.3,5535,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5535,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 5,Low Vision Lt Eye Category 2
  1. ;;^UTILITY(U,$J,358.3,5535,1,4,0)
  1. ;;=4^H54.1152
  1. ;;^UTILITY(U,$J,358.3,5535,2)
  1. ;;=^5151352
  1. ;;^UTILITY(U,$J,358.3,5536,0)
  1. ;;=H54.40^^37^306^36
  1. ;;^UTILITY(U,$J,358.3,5536,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5536,1,3,0)
  1. ;;=3^Blindness,One Eye,Unspec Eye
  1. ;;^UTILITY(U,$J,358.3,5536,1,4,0)
  1. ;;=4^H54.40
  1. ;;^UTILITY(U,$J,358.3,5536,2)
  1. ;;=^5006362
  1. ;;^UTILITY(U,$J,358.3,5537,0)
  1. ;;=H54.413A^^37^306^37
  1. ;;^UTILITY(U,$J,358.3,5537,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5537,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 3,Normal Vision Lt Eye
  1. ;;^UTILITY(U,$J,358.3,5537,1,4,0)
  1. ;;=4^H54.413A
  1. ;;^UTILITY(U,$J,358.3,5537,2)
  1. ;;=^5151363
  1. ;;^UTILITY(U,$J,358.3,5538,0)
  1. ;;=H54.414A^^37^306^38
  1. ;;^UTILITY(U,$J,358.3,5538,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5538,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 4,Normal Vision Lt Eye
  1. ;;^UTILITY(U,$J,358.3,5538,1,4,0)
  1. ;;=4^H54.414A
  1. ;;^UTILITY(U,$J,358.3,5538,2)
  1. ;;=^5151364
  1. ;;^UTILITY(U,$J,358.3,5539,0)
  1. ;;=H54.415A^^37^306^39
  1. ;;^UTILITY(U,$J,358.3,5539,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5539,1,3,0)
  1. ;;=3^Blindness Rt Eye Category 5,Normal Vision Lt Eye
  1. ;;^UTILITY(U,$J,358.3,5539,1,4,0)
  1. ;;=4^H54.415A
  1. ;;^UTILITY(U,$J,358.3,5539,2)
  1. ;;=^5151365
  1. ;;^UTILITY(U,$J,358.3,5540,0)
  1. ;;=H54.42A3^^37^306^40
  1. ;;^UTILITY(U,$J,358.3,5540,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5540,1,3,0)
  1. ;;=3^Blindness Lt Eye Category 3,Normal Vision Rt Eye
  1. ;;^UTILITY(U,$J,358.3,5540,1,4,0)
  1. ;;=4^H54.42A3
  1. ;;^UTILITY(U,$J,358.3,5540,2)
  1. ;;=^5151366
  1. ;;^UTILITY(U,$J,358.3,5541,0)
  1. ;;=H54.42A4^^37^306^41
  1. ;;^UTILITY(U,$J,358.3,5541,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5541,1,3,0)
  1. ;;=3^Blindness Lt Eye Category 4,Normal Vision Rt Eye
  1. ;;^UTILITY(U,$J,358.3,5541,1,4,0)
  1. ;;=4^H54.42A4
  1. ;;^UTILITY(U,$J,358.3,5541,2)
  1. ;;=^5151367
  1. ;;^UTILITY(U,$J,358.3,5542,0)
  1. ;;=H54.42A5^^37^306^42
  1. ;;^UTILITY(U,$J,358.3,5542,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5542,1,3,0)
  1. ;;=3^Blindness Lt Eye Category 5,Normal Vision Rt Eye
  1. ;;^UTILITY(U,$J,358.3,5542,1,4,0)
  1. ;;=4^H54.42A5
  1. ;;^UTILITY(U,$J,358.3,5542,2)
  1. ;;=^5151368
  1. ;;^UTILITY(U,$J,358.3,5543,0)
  1. ;;=H35.81^^37^307^20
  1. ;;^UTILITY(U,$J,358.3,5543,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5543,1,3,0)
  1. ;;=3^Retinal Edema/CME Other Etiology
  1. ;;^UTILITY(U,$J,358.3,5543,1,4,0)
  1. ;;=4^H35.81
  1. ;;^UTILITY(U,$J,358.3,5543,2)
  1. ;;=^5005715
  1. ;;^UTILITY(U,$J,358.3,5544,0)
  1. ;;=H34.11^^37^307^9
  1. ;;^UTILITY(U,$J,358.3,5544,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5544,1,3,0)
  1. ;;=3^Central Retinal Artery Occlusion,Right Eye
  1. ;;^UTILITY(U,$J,358.3,5544,1,4,0)
  1. ;;=4^H34.11
  1. ;;^UTILITY(U,$J,358.3,5544,2)
  1. ;;=^5005557
  1. ;;^UTILITY(U,$J,358.3,5545,0)
  1. ;;=H34.12^^37^307^10
  1. ;;^UTILITY(U,$J,358.3,5545,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5545,1,3,0)
  1. ;;=3^Central Retinal Artery Occlusion,Left Eye
  1. ;;^UTILITY(U,$J,358.3,5545,1,4,0)
  1. ;;=4^H34.12
  1. ;;^UTILITY(U,$J,358.3,5545,2)
  1. ;;=^5005558
  1. ;;^UTILITY(U,$J,358.3,5546,0)
  1. ;;=H34.231^^37^307^1
  1. ;;^UTILITY(U,$J,358.3,5546,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5546,1,3,0)
  1. ;;=3^Branch Retinal Artery Occlusion,Right Eye
  1. ;;^UTILITY(U,$J,358.3,5546,1,4,0)
  1. ;;=4^H34.231
  1. ;;^UTILITY(U,$J,358.3,5546,2)
  1. ;;=^5005564
  1. ;;^UTILITY(U,$J,358.3,5547,0)
  1. ;;=H34.232^^37^307^2
  1. ;;^UTILITY(U,$J,358.3,5547,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5547,1,3,0)
  1. ;;=3^Branch Retinal Artery Occlusion,Left Eye
  1. ;;^UTILITY(U,$J,358.3,5547,1,4,0)
  1. ;;=4^H34.232
  1. ;;^UTILITY(U,$J,358.3,5547,2)
  1. ;;=^5005565
  1. ;;^UTILITY(U,$J,358.3,5548,0)
  1. ;;=H35.031^^37^307^17
  1. ;;^UTILITY(U,$J,358.3,5548,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5548,1,3,0)
  1. ;;=3^Hypertensive Retinopathy,Right Eye
  1. ;;^UTILITY(U,$J,358.3,5548,1,4,0)
  1. ;;=4^H35.031
  1. ;;^UTILITY(U,$J,358.3,5548,2)
  1. ;;=^5005590
  1. ;;^UTILITY(U,$J,358.3,5549,0)
  1. ;;=H35.032^^37^307^18
  1. ;;^UTILITY(U,$J,358.3,5549,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5549,1,3,0)
  1. ;;=3^Hypertensive Retinopathy,Left Eye
  1. ;;^UTILITY(U,$J,358.3,5549,1,4,0)
  1. ;;=4^H35.032
  1. ;;^UTILITY(U,$J,358.3,5549,2)
  1. ;;=^5005591
  1. ;;^UTILITY(U,$J,358.3,5550,0)
  1. ;;=H35.033^^37^307^19
  1. ;;^UTILITY(U,$J,358.3,5550,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,5550,1,3,0)
  1. ;;=3^Hypertensive Retinopathy,Bilateral