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

IBDEI030.m

Go to the documentation of this file.
IBDEI030 ; ; 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,7104,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7104,1,3,0)
 ;;=3^Exudative ARMD,Right Eye w/ Active Choroidal Neovascularization
 ;;^UTILITY(U,$J,358.3,7104,1,4,0)
 ;;=4^H35.3211
 ;;^UTILITY(U,$J,358.3,7104,2)
 ;;=^5138521
 ;;^UTILITY(U,$J,358.3,7105,0)
 ;;=H35.3212^^40^375^18
 ;;^UTILITY(U,$J,358.3,7105,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7105,1,3,0)
 ;;=3^Exudative ARMD,Right Eye w/ Inactive Choroidal Neovascularization
 ;;^UTILITY(U,$J,358.3,7105,1,4,0)
 ;;=4^H35.3212
 ;;^UTILITY(U,$J,358.3,7105,2)
 ;;=^5138522
 ;;^UTILITY(U,$J,358.3,7106,0)
 ;;=H35.3213^^40^375^19
 ;;^UTILITY(U,$J,358.3,7106,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7106,1,3,0)
 ;;=3^Exudative ARMD,Right Eye w/ Inactive Scar
 ;;^UTILITY(U,$J,358.3,7106,1,4,0)
 ;;=4^H35.3213
 ;;^UTILITY(U,$J,358.3,7106,2)
 ;;=^5138523
 ;;^UTILITY(U,$J,358.3,7107,0)
 ;;=H35.3221^^40^375^21
 ;;^UTILITY(U,$J,358.3,7107,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7107,1,3,0)
 ;;=3^Exudative ARMD,Left Eye w/ Active Choroidal Neovascularization
 ;;^UTILITY(U,$J,358.3,7107,1,4,0)
 ;;=4^H35.3221
 ;;^UTILITY(U,$J,358.3,7107,2)
 ;;=^5138525
 ;;^UTILITY(U,$J,358.3,7108,0)
 ;;=H35.3222^^40^375^22
 ;;^UTILITY(U,$J,358.3,7108,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7108,1,3,0)
 ;;=3^Exudative ARMD,Left Eye w/ Inactive Choroidal Neovascularization
 ;;^UTILITY(U,$J,358.3,7108,1,4,0)
 ;;=4^H35.3222
 ;;^UTILITY(U,$J,358.3,7108,2)
 ;;=^5138526
 ;;^UTILITY(U,$J,358.3,7109,0)
 ;;=H35.3223^^40^375^23
 ;;^UTILITY(U,$J,358.3,7109,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7109,1,3,0)
 ;;=3^Exudative ARMD,Left Eye w/ Inactive Scar
 ;;^UTILITY(U,$J,358.3,7109,1,4,0)
 ;;=4^H35.3223
 ;;^UTILITY(U,$J,358.3,7109,2)
 ;;=^5138527
 ;;^UTILITY(U,$J,358.3,7110,0)
 ;;=R45.851^^40^376^3
 ;;^UTILITY(U,$J,358.3,7110,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7110,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,7110,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,7110,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,7111,0)
 ;;=T14.91XA^^40^376^4
 ;;^UTILITY(U,$J,358.3,7111,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7111,1,3,0)
 ;;=3^Suicide Attempt,Init Encntr
 ;;^UTILITY(U,$J,358.3,7111,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,7111,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,7112,0)
 ;;=T14.91XD^^40^376^6
 ;;^UTILITY(U,$J,358.3,7112,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7112,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,7112,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,7112,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,7113,0)
 ;;=T14.91XS^^40^376^5
 ;;^UTILITY(U,$J,358.3,7113,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7113,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,7113,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,7113,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,7114,0)
 ;;=Z91.51^^40^376^2
 ;;^UTILITY(U,$J,358.3,7114,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7114,1,3,0)
 ;;=3^Personal Hx of Suicidal Behavior     
 ;;^UTILITY(U,$J,358.3,7114,1,4,0)
 ;;=4^Z91.51
 ;;^UTILITY(U,$J,358.3,7114,2)
 ;;=^5161317
 ;;^UTILITY(U,$J,358.3,7115,0)
 ;;=Z91.52^^40^376^1
 ;;^UTILITY(U,$J,358.3,7115,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7115,1,3,0)
 ;;=3^Personal Hx of Non-Suicidal Self-Harm
 ;;^UTILITY(U,$J,358.3,7115,1,4,0)
 ;;=4^Z91.52
 ;;^UTILITY(U,$J,358.3,7115,2)
 ;;=^5161318
 ;;^UTILITY(U,$J,358.3,7116,0)
 ;;=H53.8^^40^377^1
 ;;^UTILITY(U,$J,358.3,7116,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7116,1,3,0)
 ;;=3^Visual Disturbances
 ;;^UTILITY(U,$J,358.3,7116,1,4,0)
 ;;=4^H53.8
 ;;^UTILITY(U,$J,358.3,7116,2)
 ;;=^5006356
 ;;^UTILITY(U,$J,358.3,7117,0)
 ;;=H57.11^^40^377^2
 ;;^UTILITY(U,$J,358.3,7117,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7117,1,3,0)
 ;;=3^Ocular Pain,Right Eye
 ;;^UTILITY(U,$J,358.3,7117,1,4,0)
 ;;=4^H57.11
 ;;^UTILITY(U,$J,358.3,7117,2)
 ;;=^5006382
 ;;^UTILITY(U,$J,358.3,7118,0)
 ;;=H57.12^^40^377^3
 ;;^UTILITY(U,$J,358.3,7118,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7118,1,3,0)
 ;;=3^Ocular Pain,Left Eye
 ;;^UTILITY(U,$J,358.3,7118,1,4,0)
 ;;=4^H57.12
 ;;^UTILITY(U,$J,358.3,7118,2)
 ;;=^5006383
 ;;^UTILITY(U,$J,358.3,7119,0)
 ;;=H57.13^^40^377^4
 ;;^UTILITY(U,$J,358.3,7119,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7119,1,3,0)
 ;;=3^Ocular Pain,Bilateral
 ;;^UTILITY(U,$J,358.3,7119,1,4,0)
 ;;=4^H57.13
 ;;^UTILITY(U,$J,358.3,7119,2)
 ;;=^5006384
 ;;^UTILITY(U,$J,358.3,7120,0)
 ;;=Z01.00^^40^377^5
 ;;^UTILITY(U,$J,358.3,7120,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7120,1,3,0)
 ;;=3^Eye/Vision Exam w/o Abnormal Findings
 ;;^UTILITY(U,$J,358.3,7120,1,4,0)
 ;;=4^Z01.00
 ;;^UTILITY(U,$J,358.3,7120,2)
 ;;=^5062612
 ;;^UTILITY(U,$J,358.3,7121,0)
 ;;=Z01.01^^40^377^6
 ;;^UTILITY(U,$J,358.3,7121,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7121,1,3,0)
 ;;=3^Eye/Vision Exam w/ Abnormal Findings
 ;;^UTILITY(U,$J,358.3,7121,1,4,0)
 ;;=4^Z01.01
 ;;^UTILITY(U,$J,358.3,7121,2)
 ;;=^5062613
 ;;^UTILITY(U,$J,358.3,7122,0)
 ;;=I10.^^40^377^9
 ;;^UTILITY(U,$J,358.3,7122,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7122,1,3,0)
 ;;=3^Hypertension,Essential
 ;;^UTILITY(U,$J,358.3,7122,1,4,0)
 ;;=4^I10.
 ;;^UTILITY(U,$J,358.3,7122,2)
 ;;=^5007062
 ;;^UTILITY(U,$J,358.3,7123,0)
 ;;=Z21.^^40^377^10
 ;;^UTILITY(U,$J,358.3,7123,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7123,1,3,0)
 ;;=3^Asymptomatic HIV Infection Status
 ;;^UTILITY(U,$J,358.3,7123,1,4,0)
 ;;=4^Z21.
 ;;^UTILITY(U,$J,358.3,7123,2)
 ;;=^5062777
 ;;^UTILITY(U,$J,358.3,7124,0)
 ;;=Z01.021^^40^377^7
 ;;^UTILITY(U,$J,358.3,7124,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7124,1,3,0)
 ;;=3^Eye/Vision Exam After Failed Exam w/ Abnormal Findings 
 ;;^UTILITY(U,$J,358.3,7124,1,4,0)
 ;;=4^Z01.021
 ;;^UTILITY(U,$J,358.3,7124,2)
 ;;=^5158319
 ;;^UTILITY(U,$J,358.3,7125,0)
 ;;=Z01.020^^40^377^8
 ;;^UTILITY(U,$J,358.3,7125,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7125,1,3,0)
 ;;=3^Eye/Vision Exam After Failed Exam w/o Abnormal Findings
 ;;^UTILITY(U,$J,358.3,7125,1,4,0)
 ;;=4^Z01.020
 ;;^UTILITY(U,$J,358.3,7125,2)
 ;;=^5158318
 ;;^UTILITY(U,$J,358.3,7126,0)
 ;;=Z82.1^^40^377^11
 ;;^UTILITY(U,$J,358.3,7126,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7126,1,3,0)
 ;;=3^Family Hx Blindness/Visual Loss
 ;;^UTILITY(U,$J,358.3,7126,1,4,0)
 ;;=4^Z82.1
 ;;^UTILITY(U,$J,358.3,7126,2)
 ;;=^5063365
 ;;^UTILITY(U,$J,358.3,7127,0)
 ;;=Z83.518^^40^377^12
 ;;^UTILITY(U,$J,358.3,7127,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7127,1,3,0)
 ;;=3^Family Hx Other Eye Disorder
 ;;^UTILITY(U,$J,358.3,7127,1,4,0)
 ;;=4^Z83.518
 ;;^UTILITY(U,$J,358.3,7127,2)
 ;;=^5063383
 ;;^UTILITY(U,$J,358.3,7128,0)
 ;;=Z83.511^^40^377^13
 ;;^UTILITY(U,$J,358.3,7128,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7128,1,3,0)
 ;;=3^Family Hx of Glaucoma
 ;;^UTILITY(U,$J,358.3,7128,1,4,0)
 ;;=4^Z83.511
 ;;^UTILITY(U,$J,358.3,7128,2)
 ;;=^5063382
 ;;^UTILITY(U,$J,358.3,7129,0)
 ;;=H35.3211^^40^378^1
 ;;^UTILITY(U,$J,358.3,7129,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7129,1,3,0)
 ;;=3^Exudative AMD,RIGHT eye,active CNV
 ;;^UTILITY(U,$J,358.3,7129,1,4,0)
 ;;=4^H35.3211
 ;;^UTILITY(U,$J,358.3,7129,2)
 ;;=^5138521
 ;;^UTILITY(U,$J,358.3,7130,0)
 ;;=H35.3221^^40^378^2
 ;;^UTILITY(U,$J,358.3,7130,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7130,1,3,0)
 ;;=3^Exudative AMD,LEFT eye,active CNV 
 ;;^UTILITY(U,$J,358.3,7130,1,4,0)
 ;;=4^H35.3221
 ;;^UTILITY(U,$J,358.3,7130,2)
 ;;=^5138525
 ;;^UTILITY(U,$J,358.3,7131,0)
 ;;=H35.059^^40^378^3
 ;;^UTILITY(U,$J,358.3,7131,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7131,1,3,0)
 ;;=3^Retinal CNV or NV,unspec          
 ;;^UTILITY(U,$J,358.3,7131,1,4,0)
 ;;=4^H35.059
 ;;^UTILITY(U,$J,358.3,7131,2)
 ;;=^5005601
 ;;^UTILITY(U,$J,358.3,7132,0)
 ;;=H35.82^^40^378^4
 ;;^UTILITY(U,$J,358.3,7132,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7132,1,3,0)
 ;;=3^Retinal Ischemia,unspec           
 ;;^UTILITY(U,$J,358.3,7132,1,4,0)
 ;;=4^H35.82
 ;;^UTILITY(U,$J,358.3,7132,2)
 ;;=^5005716
 ;;^UTILITY(U,$J,358.3,7133,0)
 ;;=H35.81^^40^378^5
 ;;^UTILITY(U,$J,358.3,7133,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7133,1,3,0)
 ;;=3^Retinal Edema,unspec              
 ;;^UTILITY(U,$J,358.3,7133,1,4,0)
 ;;=4^H35.81
 ;;^UTILITY(U,$J,358.3,7133,2)
 ;;=^5005715
 ;;^UTILITY(U,$J,358.3,7134,0)
 ;;=E11.3211^^40^378^6
 ;;^UTILITY(U,$J,358.3,7134,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7134,1,3,0)
 ;;=3^DM Type 2 Mild NPDR w/ CME,RIGHT eye    
 ;;^UTILITY(U,$J,358.3,7134,1,4,0)
 ;;=4^E11.3211
 ;;^UTILITY(U,$J,358.3,7134,2)
 ;;=^5138331
 ;;^UTILITY(U,$J,358.3,7135,0)
 ;;=E11.3212^^40^378^7
 ;;^UTILITY(U,$J,358.3,7135,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7135,1,3,0)
 ;;=3^DM Type 2 Mild NPDR w/ CME,LEFT eye     
 ;;^UTILITY(U,$J,358.3,7135,1,4,0)
 ;;=4^E11.3212
 ;;^UTILITY(U,$J,358.3,7135,2)
 ;;=^5138332
 ;;^UTILITY(U,$J,358.3,7136,0)
 ;;=E11.3311^^40^378^8
 ;;^UTILITY(U,$J,358.3,7136,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7136,1,3,0)
 ;;=3^DM Type 2 Mod NPDR w/ CME,RIGHT eye     
 ;;^UTILITY(U,$J,358.3,7136,1,4,0)
 ;;=4^E11.3311
 ;;^UTILITY(U,$J,358.3,7136,2)
 ;;=^5138339
 ;;^UTILITY(U,$J,358.3,7137,0)
 ;;=E11.3312^^40^378^9
 ;;^UTILITY(U,$J,358.3,7137,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7137,1,3,0)
 ;;=3^DM Type 2 Mod NPDR w/ CME,LEFT eye      
 ;;^UTILITY(U,$J,358.3,7137,1,4,0)
 ;;=4^E11.3312
 ;;^UTILITY(U,$J,358.3,7137,2)
 ;;=^5138340
 ;;^UTILITY(U,$J,358.3,7138,0)
 ;;=E11.3411^^40^378^10
 ;;^UTILITY(U,$J,358.3,7138,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7138,1,3,0)
 ;;=3^DM Type 2 Sev NPDR w/ CME,RIGHT eye     
 ;;^UTILITY(U,$J,358.3,7138,1,4,0)
 ;;=4^E11.3411
 ;;^UTILITY(U,$J,358.3,7138,2)
 ;;=^5138347
 ;;^UTILITY(U,$J,358.3,7139,0)
 ;;=E11.3412^^40^378^11
 ;;^UTILITY(U,$J,358.3,7139,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7139,1,3,0)
 ;;=3^DM Type 2 Sev NPDR w/ CME,LEFT eye      
 ;;^UTILITY(U,$J,358.3,7139,1,4,0)
 ;;=4^E11.3412
 ;;^UTILITY(U,$J,358.3,7139,2)
 ;;=^5138348
 ;;^UTILITY(U,$J,358.3,7140,0)
 ;;=E11.3511^^40^378^12
 ;;^UTILITY(U,$J,358.3,7140,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7140,1,3,0)
 ;;=3^DM Type 2 PDR w/ CME,RIGHT eye          
 ;;^UTILITY(U,$J,358.3,7140,1,4,0)
 ;;=4^E11.3511
 ;;^UTILITY(U,$J,358.3,7140,2)
 ;;=^5138355
 ;;^UTILITY(U,$J,358.3,7141,0)
 ;;=E11.3512^^40^378^13
 ;;^UTILITY(U,$J,358.3,7141,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7141,1,3,0)
 ;;=3^DM Type 2 PDR w/ CME,LEFT eye           
 ;;^UTILITY(U,$J,358.3,7141,1,4,0)
 ;;=4^E11.3512
 ;;^UTILITY(U,$J,358.3,7141,2)
 ;;=^5138356
 ;;^UTILITY(U,$J,358.3,7142,0)
 ;;=H59.031^^40^378^14
 ;;^UTILITY(U,$J,358.3,7142,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7142,1,3,0)
 ;;=3^CME s/p Surgery,RIGHT eye         
 ;;^UTILITY(U,$J,358.3,7142,1,4,0)
 ;;=4^H59.031
 ;;^UTILITY(U,$J,358.3,7142,2)
 ;;=^5006393
 ;;^UTILITY(U,$J,358.3,7143,0)
 ;;=H59.032^^40^378^15
 ;;^UTILITY(U,$J,358.3,7143,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7143,1,3,0)
 ;;=3^CME s/p Surgery,LEFT eye            
 ;;^UTILITY(U,$J,358.3,7143,1,4,0)
 ;;=4^H59.032
 ;;^UTILITY(U,$J,358.3,7143,2)
 ;;=^5006394
 ;;^UTILITY(U,$J,358.3,7144,0)
 ;;=H34.8310^^40^378^16
 ;;^UTILITY(U,$J,358.3,7144,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7144,1,3,0)
 ;;=3^BRVO w/ CME,RIGHT eye               
 ;;^UTILITY(U,$J,358.3,7144,1,4,0)
 ;;=4^H34.8310
 ;;^UTILITY(U,$J,358.3,7144,2)
 ;;=^5138488
 ;;^UTILITY(U,$J,358.3,7145,0)
 ;;=H34.8320^^40^378^17
 ;;^UTILITY(U,$J,358.3,7145,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7145,1,3,0)
 ;;=3^BRVO w/ CME,LEFT eye                
 ;;^UTILITY(U,$J,358.3,7145,1,4,0)
 ;;=4^H34.8320
 ;;^UTILITY(U,$J,358.3,7145,2)
 ;;=^5138491
 ;;^UTILITY(U,$J,358.3,7146,0)
 ;;=H34.8311^^40^378^18
 ;;^UTILITY(U,$J,358.3,7146,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7146,1,3,0)
 ;;=3^BRVO w/ NV,RIGHT eye                
 ;;^UTILITY(U,$J,358.3,7146,1,4,0)
 ;;=4^H34.8311
 ;;^UTILITY(U,$J,358.3,7146,2)
 ;;=^5138489
 ;;^UTILITY(U,$J,358.3,7147,0)
 ;;=H34.8321^^40^378^19
 ;;^UTILITY(U,$J,358.3,7147,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7147,1,3,0)
 ;;=3^BRVO w/ NV,LEFT eye                 
 ;;^UTILITY(U,$J,358.3,7147,1,4,0)
 ;;=4^H34.8321
 ;;^UTILITY(U,$J,358.3,7147,2)
 ;;=^5138492
 ;;^UTILITY(U,$J,358.3,7148,0)
 ;;=H34.8111^^40^378^20
 ;;^UTILITY(U,$J,358.3,7148,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7148,1,3,0)
 ;;=3^CRVO w/ NV,RIGHT eye                
 ;;^UTILITY(U,$J,358.3,7148,1,4,0)
 ;;=4^H34.8111
 ;;^UTILITY(U,$J,358.3,7148,2)
 ;;=^5138477
 ;;^UTILITY(U,$J,358.3,7149,0)
 ;;=H34.8121^^40^378^21
 ;;^UTILITY(U,$J,358.3,7149,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7149,1,3,0)
 ;;=3^CRVO w/ NV,LEFT eye                 
 ;;^UTILITY(U,$J,358.3,7149,1,4,0)
 ;;=4^H34.8121
 ;;^UTILITY(U,$J,358.3,7149,2)
 ;;=^5138480
 ;;^UTILITY(U,$J,358.3,7150,0)
 ;;=H34.8110^^40^378^22
 ;;^UTILITY(U,$J,358.3,7150,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7150,1,3,0)
 ;;=3^CRVO w/ CME,RIGHT eye               
 ;;^UTILITY(U,$J,358.3,7150,1,4,0)
 ;;=4^H34.8110
 ;;^UTILITY(U,$J,358.3,7150,2)
 ;;=^5138476
 ;;^UTILITY(U,$J,358.3,7151,0)
 ;;=H34.8120^^40^378^23
 ;;^UTILITY(U,$J,358.3,7151,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7151,1,3,0)
 ;;=3^CRVO w/ CME,LEFT eye                
 ;;^UTILITY(U,$J,358.3,7151,1,4,0)
 ;;=4^H34.8120
 ;;^UTILITY(U,$J,358.3,7151,2)
 ;;=^5138479
 ;;^UTILITY(U,$J,358.3,7152,0)
 ;;=H21.1X1^^40^378^24
 ;;^UTILITY(U,$J,358.3,7152,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7152,1,3,0)
 ;;=3^NVI/NVA/Rubeosis,RIGHT eye          
 ;;^UTILITY(U,$J,358.3,7152,1,4,0)
 ;;=4^H21.1X1
 ;;^UTILITY(U,$J,358.3,7152,2)
 ;;=^5005175
 ;;^UTILITY(U,$J,358.3,7153,0)
 ;;=H21.1X2^^40^378^25
 ;;^UTILITY(U,$J,358.3,7153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7153,1,3,0)
 ;;=3^NVI/NVA/Rubeosis,Left eye           
 ;;^UTILITY(U,$J,358.3,7153,1,4,0)
 ;;=4^H21.1X2
 ;;^UTILITY(U,$J,358.3,7153,2)
 ;;=^5005176
 ;;^UTILITY(U,$J,358.3,7154,0)
 ;;=H35.711^^40^378^26
 ;;^UTILITY(U,$J,358.3,7154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7154,1,3,0)
 ;;=3^Central Serous Retinopathy,RIGHT eye
 ;;^UTILITY(U,$J,358.3,7154,1,4,0)
 ;;=4^H35.711
 ;;^UTILITY(U,$J,358.3,7154,2)
 ;;=^5005703
 ;;^UTILITY(U,$J,358.3,7155,0)
 ;;=H35.712^^40^378^27
 ;;^UTILITY(U,$J,358.3,7155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7155,1,3,0)
 ;;=3^Central Serous Retinopathy,LEFT eye 
 ;;^UTILITY(U,$J,358.3,7155,1,4,0)
 ;;=4^H35.712
 ;;^UTILITY(U,$J,358.3,7155,2)
 ;;=^5005704
 ;;^UTILITY(U,$J,358.3,7156,0)
 ;;=E11.9^^40^379^2
 ;;^UTILITY(U,$J,358.3,7156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7156,1,3,0)
 ;;=3^DM Type 2 w/o Complications
 ;;^UTILITY(U,$J,358.3,7156,1,4,0)
 ;;=4^E11.9
 ;;^UTILITY(U,$J,358.3,7156,2)
 ;;=^5002666
 ;;^UTILITY(U,$J,358.3,7157,0)
 ;;=E11.39^^40^379^1
 ;;^UTILITY(U,$J,358.3,7157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7157,1,3,0)
 ;;=3^DM Type 2 w/ Diabetic Ophthalmic Complications
 ;;^UTILITY(U,$J,358.3,7157,1,4,0)
 ;;=4^E11.39
 ;;^UTILITY(U,$J,358.3,7157,2)
 ;;=^5002643
 ;;^UTILITY(U,$J,358.3,7158,0)
 ;;=E10.9^^40^379^21
 ;;^UTILITY(U,$J,358.3,7158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7158,1,3,0)
 ;;=3^DM Type 1 w/o Complications
 ;;^UTILITY(U,$J,358.3,7158,1,4,0)
 ;;=4^E10.9
 ;;^UTILITY(U,$J,358.3,7158,2)
 ;;=^5002626
 ;;^UTILITY(U,$J,358.3,7159,0)
 ;;=E10.39^^40^379^20
 ;;^UTILITY(U,$J,358.3,7159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7159,1,3,0)
 ;;=3^DM Type 1 w/ Diabetic Ophthalmic Complication
 ;;^UTILITY(U,$J,358.3,7159,1,4,0)
 ;;=4^E10.39
 ;;^UTILITY(U,$J,358.3,7159,2)
 ;;=^5002603
 ;;^UTILITY(U,$J,358.3,7160,0)
 ;;=E10.3291^^40^379^22
 ;;^UTILITY(U,$J,358.3,7160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7160,1,3,0)
 ;;=3^DM Type 1 w/ Mild NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,7160,1,4,0)
 ;;=4^E10.3291
 ;;^UTILITY(U,$J,358.3,7160,2)
 ;;=^5138283
 ;;^UTILITY(U,$J,358.3,7161,0)
 ;;=E10.3292^^40^379^27
 ;;^UTILITY(U,$J,358.3,7161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7161,1,3,0)
 ;;=3^DM Type 1 w/ Mild NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,7161,1,4,0)
 ;;=4^E10.3292
 ;;^UTILITY(U,$J,358.3,7161,2)
 ;;=^5138284
 ;;^UTILITY(U,$J,358.3,7162,0)
 ;;=E10.3391^^40^379^23
 ;;^UTILITY(U,$J,358.3,7162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7162,1,3,0)
 ;;=3^DM Type 1 w/ Mod NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,7162,1,4,0)
 ;;=4^E10.3391
 ;;^UTILITY(U,$J,358.3,7162,2)
 ;;=^5138291
 ;;^UTILITY(U,$J,358.3,7163,0)
 ;;=E10.3392^^40^379^28
 ;;^UTILITY(U,$J,358.3,7163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7163,1,3,0)
 ;;=3^DM Type 1 w/ Mod NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,7163,1,4,0)
 ;;=4^E10.3392
 ;;^UTILITY(U,$J,358.3,7163,2)
 ;;=^5138292
 ;;^UTILITY(U,$J,358.3,7164,0)
 ;;=E10.3491^^40^379^24
 ;;^UTILITY(U,$J,358.3,7164,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7164,1,3,0)
 ;;=3^DM Type 1 w/ Severe NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,7164,1,4,0)
 ;;=4^E10.3491
 ;;^UTILITY(U,$J,358.3,7164,2)
 ;;=^5138299
 ;;^UTILITY(U,$J,358.3,7165,0)
 ;;=E10.3492^^40^379^29
 ;;^UTILITY(U,$J,358.3,7165,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7165,1,3,0)
 ;;=3^DM Type 1 w/ Severe NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,7165,1,4,0)
 ;;=4^E10.3492
 ;;^UTILITY(U,$J,358.3,7165,2)
 ;;=^5138300
 ;;^UTILITY(U,$J,358.3,7166,0)
 ;;=E10.3511^^40^379^25
 ;;^UTILITY(U,$J,358.3,7166,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7166,1,3,0)
 ;;=3^DM Type 1 w/ PDR w/ Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,7166,1,4,0)
 ;;=4^E10.3511
 ;;^UTILITY(U,$J,358.3,7166,2)
 ;;=^5138303
 ;;^UTILITY(U,$J,358.3,7167,0)
 ;;=E10.3512^^40^379^30
 ;;^UTILITY(U,$J,358.3,7167,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7167,1,3,0)
 ;;=3^DM Type 1 w/ PDR w/ Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,7167,1,4,0)
 ;;=4^E10.3512
 ;;^UTILITY(U,$J,358.3,7167,2)
 ;;=^5138304
 ;;^UTILITY(U,$J,358.3,7168,0)
 ;;=E10.3591^^40^379^26
 ;;^UTILITY(U,$J,358.3,7168,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7168,1,3,0)
 ;;=3^DM Type 1 w/ PDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,7168,1,4,0)
 ;;=4^E10.3591
 ;;^UTILITY(U,$J,358.3,7168,2)
 ;;=^5138323
 ;;^UTILITY(U,$J,358.3,7169,0)
 ;;=E10.3592^^40^379^31
 ;;^UTILITY(U,$J,358.3,7169,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7169,1,3,0)
 ;;=3^DM Type 1 w/ PDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,7169,1,4,0)
 ;;=4^E10.3592
 ;;^UTILITY(U,$J,358.3,7169,2)
 ;;=^5138324
 ;;^UTILITY(U,$J,358.3,7170,0)
 ;;=E11.3211^^40^379^4
 ;;^UTILITY(U,$J,358.3,7170,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7170,1,3,0)
 ;;=3^DM Type 2 w/ Mild NPDR w/ Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,7170,1,4,0)
 ;;=4^E11.3211
 ;;^UTILITY(U,$J,358.3,7170,2)
 ;;=^5138331
 ;;^UTILITY(U,$J,358.3,7171,0)
 ;;=E11.3212^^40^379^12
 ;;^UTILITY(U,$J,358.3,7171,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,7171,1,3,0)
 ;;=3^DM Type 2 w/ Mild NPDR w/ Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,7171,1,4,0)
 ;;=4^E11.3212