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

IBDEI0AR.m

Go to the documentation of this file.
IBDEI0AR ; ; 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,26340,1,3,0)
 ;;=3^Non-Exudative ARMD,Bilateral,Adv Atrpc w/ Sbfvl Invlv
 ;;^UTILITY(U,$J,358.3,26340,1,4,0)
 ;;=4^H35.3134
 ;;^UTILITY(U,$J,358.3,26340,2)
 ;;=^5138514
 ;;^UTILITY(U,$J,358.3,26341,0)
 ;;=H35.3211^^81^1051^17
 ;;^UTILITY(U,$J,358.3,26341,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26341,1,3,0)
 ;;=3^Exudative ARMD,Right Eye w/ Active Choroidal Neovascularization
 ;;^UTILITY(U,$J,358.3,26341,1,4,0)
 ;;=4^H35.3211
 ;;^UTILITY(U,$J,358.3,26341,2)
 ;;=^5138521
 ;;^UTILITY(U,$J,358.3,26342,0)
 ;;=H35.3212^^81^1051^18
 ;;^UTILITY(U,$J,358.3,26342,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26342,1,3,0)
 ;;=3^Exudative ARMD,Right Eye w/ Inactive Choroidal Neovascularization
 ;;^UTILITY(U,$J,358.3,26342,1,4,0)
 ;;=4^H35.3212
 ;;^UTILITY(U,$J,358.3,26342,2)
 ;;=^5138522
 ;;^UTILITY(U,$J,358.3,26343,0)
 ;;=H35.3213^^81^1051^19
 ;;^UTILITY(U,$J,358.3,26343,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26343,1,3,0)
 ;;=3^Exudative ARMD,Right Eye w/ Inactive Scar
 ;;^UTILITY(U,$J,358.3,26343,1,4,0)
 ;;=4^H35.3213
 ;;^UTILITY(U,$J,358.3,26343,2)
 ;;=^5138523
 ;;^UTILITY(U,$J,358.3,26344,0)
 ;;=H35.3221^^81^1051^21
 ;;^UTILITY(U,$J,358.3,26344,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26344,1,3,0)
 ;;=3^Exudative ARMD,Left Eye w/ Active Choroidal Neovascularization
 ;;^UTILITY(U,$J,358.3,26344,1,4,0)
 ;;=4^H35.3221
 ;;^UTILITY(U,$J,358.3,26344,2)
 ;;=^5138525
 ;;^UTILITY(U,$J,358.3,26345,0)
 ;;=H35.3222^^81^1051^22
 ;;^UTILITY(U,$J,358.3,26345,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26345,1,3,0)
 ;;=3^Exudative ARMD,Left Eye w/ Inactive Choroidal Neovascularization
 ;;^UTILITY(U,$J,358.3,26345,1,4,0)
 ;;=4^H35.3222
 ;;^UTILITY(U,$J,358.3,26345,2)
 ;;=^5138526
 ;;^UTILITY(U,$J,358.3,26346,0)
 ;;=H35.3223^^81^1051^23
 ;;^UTILITY(U,$J,358.3,26346,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26346,1,3,0)
 ;;=3^Exudative ARMD,Left Eye w/ Inactive Scar
 ;;^UTILITY(U,$J,358.3,26346,1,4,0)
 ;;=4^H35.3223
 ;;^UTILITY(U,$J,358.3,26346,2)
 ;;=^5138527
 ;;^UTILITY(U,$J,358.3,26347,0)
 ;;=R45.851^^81^1052^3
 ;;^UTILITY(U,$J,358.3,26347,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26347,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,26347,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,26347,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,26348,0)
 ;;=T14.91XA^^81^1052^4
 ;;^UTILITY(U,$J,358.3,26348,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26348,1,3,0)
 ;;=3^Suicide Attempt,Init Encntr
 ;;^UTILITY(U,$J,358.3,26348,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,26348,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,26349,0)
 ;;=T14.91XD^^81^1052^6
 ;;^UTILITY(U,$J,358.3,26349,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26349,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,26349,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,26349,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,26350,0)
 ;;=T14.91XS^^81^1052^5
 ;;^UTILITY(U,$J,358.3,26350,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26350,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,26350,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,26350,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,26351,0)
 ;;=Z91.51^^81^1052^2
 ;;^UTILITY(U,$J,358.3,26351,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26351,1,3,0)
 ;;=3^Personal Hx of Suicidal Behavior     
 ;;^UTILITY(U,$J,358.3,26351,1,4,0)
 ;;=4^Z91.51
 ;;^UTILITY(U,$J,358.3,26351,2)
 ;;=^5161317
 ;;^UTILITY(U,$J,358.3,26352,0)
 ;;=Z91.52^^81^1052^1
 ;;^UTILITY(U,$J,358.3,26352,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26352,1,3,0)
 ;;=3^Personal Hx of Non-Suicidal Self-Harm
 ;;^UTILITY(U,$J,358.3,26352,1,4,0)
 ;;=4^Z91.52
 ;;^UTILITY(U,$J,358.3,26352,2)
 ;;=^5161318
 ;;^UTILITY(U,$J,358.3,26353,0)
 ;;=H53.8^^81^1053^1
 ;;^UTILITY(U,$J,358.3,26353,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26353,1,3,0)
 ;;=3^Visual Disturbances
 ;;^UTILITY(U,$J,358.3,26353,1,4,0)
 ;;=4^H53.8
 ;;^UTILITY(U,$J,358.3,26353,2)
 ;;=^5006356
 ;;^UTILITY(U,$J,358.3,26354,0)
 ;;=H57.11^^81^1053^2
 ;;^UTILITY(U,$J,358.3,26354,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26354,1,3,0)
 ;;=3^Ocular Pain,Right Eye
 ;;^UTILITY(U,$J,358.3,26354,1,4,0)
 ;;=4^H57.11
 ;;^UTILITY(U,$J,358.3,26354,2)
 ;;=^5006382
 ;;^UTILITY(U,$J,358.3,26355,0)
 ;;=H57.12^^81^1053^3
 ;;^UTILITY(U,$J,358.3,26355,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26355,1,3,0)
 ;;=3^Ocular Pain,Left Eye
 ;;^UTILITY(U,$J,358.3,26355,1,4,0)
 ;;=4^H57.12
 ;;^UTILITY(U,$J,358.3,26355,2)
 ;;=^5006383
 ;;^UTILITY(U,$J,358.3,26356,0)
 ;;=H57.13^^81^1053^4
 ;;^UTILITY(U,$J,358.3,26356,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26356,1,3,0)
 ;;=3^Ocular Pain,Bilateral
 ;;^UTILITY(U,$J,358.3,26356,1,4,0)
 ;;=4^H57.13
 ;;^UTILITY(U,$J,358.3,26356,2)
 ;;=^5006384
 ;;^UTILITY(U,$J,358.3,26357,0)
 ;;=Z01.00^^81^1053^5
 ;;^UTILITY(U,$J,358.3,26357,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26357,1,3,0)
 ;;=3^Eye/Vision Exam w/o Abnormal Findings
 ;;^UTILITY(U,$J,358.3,26357,1,4,0)
 ;;=4^Z01.00
 ;;^UTILITY(U,$J,358.3,26357,2)
 ;;=^5062612
 ;;^UTILITY(U,$J,358.3,26358,0)
 ;;=Z01.01^^81^1053^6
 ;;^UTILITY(U,$J,358.3,26358,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26358,1,3,0)
 ;;=3^Eye/Vision Exam w/ Abnormal Findings
 ;;^UTILITY(U,$J,358.3,26358,1,4,0)
 ;;=4^Z01.01
 ;;^UTILITY(U,$J,358.3,26358,2)
 ;;=^5062613
 ;;^UTILITY(U,$J,358.3,26359,0)
 ;;=I10.^^81^1053^9
 ;;^UTILITY(U,$J,358.3,26359,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26359,1,3,0)
 ;;=3^Hypertension,Essential
 ;;^UTILITY(U,$J,358.3,26359,1,4,0)
 ;;=4^I10.
 ;;^UTILITY(U,$J,358.3,26359,2)
 ;;=^5007062
 ;;^UTILITY(U,$J,358.3,26360,0)
 ;;=Z21.^^81^1053^10
 ;;^UTILITY(U,$J,358.3,26360,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26360,1,3,0)
 ;;=3^Asymptomatic HIV Infection Status
 ;;^UTILITY(U,$J,358.3,26360,1,4,0)
 ;;=4^Z21.
 ;;^UTILITY(U,$J,358.3,26360,2)
 ;;=^5062777
 ;;^UTILITY(U,$J,358.3,26361,0)
 ;;=Z01.021^^81^1053^7
 ;;^UTILITY(U,$J,358.3,26361,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26361,1,3,0)
 ;;=3^Eye/Vision Exam After Failed Exam w/ Abnormal Findings 
 ;;^UTILITY(U,$J,358.3,26361,1,4,0)
 ;;=4^Z01.021
 ;;^UTILITY(U,$J,358.3,26361,2)
 ;;=^5158319
 ;;^UTILITY(U,$J,358.3,26362,0)
 ;;=Z01.020^^81^1053^8
 ;;^UTILITY(U,$J,358.3,26362,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26362,1,3,0)
 ;;=3^Eye/Vision Exam After Failed Exam w/o Abnormal Findings
 ;;^UTILITY(U,$J,358.3,26362,1,4,0)
 ;;=4^Z01.020
 ;;^UTILITY(U,$J,358.3,26362,2)
 ;;=^5158318
 ;;^UTILITY(U,$J,358.3,26363,0)
 ;;=Z82.1^^81^1053^11
 ;;^UTILITY(U,$J,358.3,26363,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26363,1,3,0)
 ;;=3^Family Hx Blindness/Visual Loss
 ;;^UTILITY(U,$J,358.3,26363,1,4,0)
 ;;=4^Z82.1
 ;;^UTILITY(U,$J,358.3,26363,2)
 ;;=^5063365
 ;;^UTILITY(U,$J,358.3,26364,0)
 ;;=Z83.518^^81^1053^12
 ;;^UTILITY(U,$J,358.3,26364,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26364,1,3,0)
 ;;=3^Family Hx Other Eye Disorder
 ;;^UTILITY(U,$J,358.3,26364,1,4,0)
 ;;=4^Z83.518
 ;;^UTILITY(U,$J,358.3,26364,2)
 ;;=^5063383
 ;;^UTILITY(U,$J,358.3,26365,0)
 ;;=Z83.511^^81^1053^13
 ;;^UTILITY(U,$J,358.3,26365,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26365,1,3,0)
 ;;=3^Family Hx of Glaucoma
 ;;^UTILITY(U,$J,358.3,26365,1,4,0)
 ;;=4^Z83.511
 ;;^UTILITY(U,$J,358.3,26365,2)
 ;;=^5063382
 ;;^UTILITY(U,$J,358.3,26366,0)
 ;;=H35.3211^^81^1054^1
 ;;^UTILITY(U,$J,358.3,26366,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26366,1,3,0)
 ;;=3^Exudative AMD,RIGHT eye,active CNV
 ;;^UTILITY(U,$J,358.3,26366,1,4,0)
 ;;=4^H35.3211
 ;;^UTILITY(U,$J,358.3,26366,2)
 ;;=^5138521
 ;;^UTILITY(U,$J,358.3,26367,0)
 ;;=H35.3221^^81^1054^2
 ;;^UTILITY(U,$J,358.3,26367,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26367,1,3,0)
 ;;=3^Exudative AMD,LEFT eye,active CNV 
 ;;^UTILITY(U,$J,358.3,26367,1,4,0)
 ;;=4^H35.3221
 ;;^UTILITY(U,$J,358.3,26367,2)
 ;;=^5138525
 ;;^UTILITY(U,$J,358.3,26368,0)
 ;;=H35.059^^81^1054^3
 ;;^UTILITY(U,$J,358.3,26368,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26368,1,3,0)
 ;;=3^Retinal CNV or NV,unspec          
 ;;^UTILITY(U,$J,358.3,26368,1,4,0)
 ;;=4^H35.059
 ;;^UTILITY(U,$J,358.3,26368,2)
 ;;=^5005601
 ;;^UTILITY(U,$J,358.3,26369,0)
 ;;=H35.82^^81^1054^4
 ;;^UTILITY(U,$J,358.3,26369,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26369,1,3,0)
 ;;=3^Retinal Ischemia,unspec           
 ;;^UTILITY(U,$J,358.3,26369,1,4,0)
 ;;=4^H35.82
 ;;^UTILITY(U,$J,358.3,26369,2)
 ;;=^5005716
 ;;^UTILITY(U,$J,358.3,26370,0)
 ;;=H35.81^^81^1054^5
 ;;^UTILITY(U,$J,358.3,26370,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26370,1,3,0)
 ;;=3^Retinal Edema,unspec              
 ;;^UTILITY(U,$J,358.3,26370,1,4,0)
 ;;=4^H35.81
 ;;^UTILITY(U,$J,358.3,26370,2)
 ;;=^5005715
 ;;^UTILITY(U,$J,358.3,26371,0)
 ;;=E11.3211^^81^1054^6
 ;;^UTILITY(U,$J,358.3,26371,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26371,1,3,0)
 ;;=3^DM Type 2 Mild NPDR w/ CME,RIGHT eye    
 ;;^UTILITY(U,$J,358.3,26371,1,4,0)
 ;;=4^E11.3211
 ;;^UTILITY(U,$J,358.3,26371,2)
 ;;=^5138331
 ;;^UTILITY(U,$J,358.3,26372,0)
 ;;=E11.3212^^81^1054^7
 ;;^UTILITY(U,$J,358.3,26372,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26372,1,3,0)
 ;;=3^DM Type 2 Mild NPDR w/ CME,LEFT eye     
 ;;^UTILITY(U,$J,358.3,26372,1,4,0)
 ;;=4^E11.3212
 ;;^UTILITY(U,$J,358.3,26372,2)
 ;;=^5138332
 ;;^UTILITY(U,$J,358.3,26373,0)
 ;;=E11.3311^^81^1054^8
 ;;^UTILITY(U,$J,358.3,26373,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26373,1,3,0)
 ;;=3^DM Type 2 Mod NPDR w/ CME,RIGHT eye     
 ;;^UTILITY(U,$J,358.3,26373,1,4,0)
 ;;=4^E11.3311
 ;;^UTILITY(U,$J,358.3,26373,2)
 ;;=^5138339
 ;;^UTILITY(U,$J,358.3,26374,0)
 ;;=E11.3312^^81^1054^9
 ;;^UTILITY(U,$J,358.3,26374,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26374,1,3,0)
 ;;=3^DM Type 2 Mod NPDR w/ CME,LEFT eye      
 ;;^UTILITY(U,$J,358.3,26374,1,4,0)
 ;;=4^E11.3312
 ;;^UTILITY(U,$J,358.3,26374,2)
 ;;=^5138340
 ;;^UTILITY(U,$J,358.3,26375,0)
 ;;=E11.3411^^81^1054^10
 ;;^UTILITY(U,$J,358.3,26375,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26375,1,3,0)
 ;;=3^DM Type 2 Sev NPDR w/ CME,RIGHT eye     
 ;;^UTILITY(U,$J,358.3,26375,1,4,0)
 ;;=4^E11.3411
 ;;^UTILITY(U,$J,358.3,26375,2)
 ;;=^5138347
 ;;^UTILITY(U,$J,358.3,26376,0)
 ;;=E11.3412^^81^1054^11
 ;;^UTILITY(U,$J,358.3,26376,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26376,1,3,0)
 ;;=3^DM Type 2 Sev NPDR w/ CME,LEFT eye      
 ;;^UTILITY(U,$J,358.3,26376,1,4,0)
 ;;=4^E11.3412
 ;;^UTILITY(U,$J,358.3,26376,2)
 ;;=^5138348
 ;;^UTILITY(U,$J,358.3,26377,0)
 ;;=E11.3511^^81^1054^12
 ;;^UTILITY(U,$J,358.3,26377,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26377,1,3,0)
 ;;=3^DM Type 2 PDR w/ CME,RIGHT eye          
 ;;^UTILITY(U,$J,358.3,26377,1,4,0)
 ;;=4^E11.3511
 ;;^UTILITY(U,$J,358.3,26377,2)
 ;;=^5138355
 ;;^UTILITY(U,$J,358.3,26378,0)
 ;;=E11.3512^^81^1054^13
 ;;^UTILITY(U,$J,358.3,26378,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26378,1,3,0)
 ;;=3^DM Type 2 PDR w/ CME,LEFT eye           
 ;;^UTILITY(U,$J,358.3,26378,1,4,0)
 ;;=4^E11.3512
 ;;^UTILITY(U,$J,358.3,26378,2)
 ;;=^5138356
 ;;^UTILITY(U,$J,358.3,26379,0)
 ;;=H59.031^^81^1054^14
 ;;^UTILITY(U,$J,358.3,26379,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26379,1,3,0)
 ;;=3^CME s/p Surgery,RIGHT eye         
 ;;^UTILITY(U,$J,358.3,26379,1,4,0)
 ;;=4^H59.031
 ;;^UTILITY(U,$J,358.3,26379,2)
 ;;=^5006393
 ;;^UTILITY(U,$J,358.3,26380,0)
 ;;=H59.032^^81^1054^15
 ;;^UTILITY(U,$J,358.3,26380,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26380,1,3,0)
 ;;=3^CME s/p Surgery,LEFT eye            
 ;;^UTILITY(U,$J,358.3,26380,1,4,0)
 ;;=4^H59.032
 ;;^UTILITY(U,$J,358.3,26380,2)
 ;;=^5006394
 ;;^UTILITY(U,$J,358.3,26381,0)
 ;;=H34.8310^^81^1054^16
 ;;^UTILITY(U,$J,358.3,26381,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26381,1,3,0)
 ;;=3^BRVO w/ CME,RIGHT eye               
 ;;^UTILITY(U,$J,358.3,26381,1,4,0)
 ;;=4^H34.8310
 ;;^UTILITY(U,$J,358.3,26381,2)
 ;;=^5138488
 ;;^UTILITY(U,$J,358.3,26382,0)
 ;;=H34.8320^^81^1054^17
 ;;^UTILITY(U,$J,358.3,26382,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26382,1,3,0)
 ;;=3^BRVO w/ CME,LEFT eye                
 ;;^UTILITY(U,$J,358.3,26382,1,4,0)
 ;;=4^H34.8320
 ;;^UTILITY(U,$J,358.3,26382,2)
 ;;=^5138491
 ;;^UTILITY(U,$J,358.3,26383,0)
 ;;=H34.8311^^81^1054^18
 ;;^UTILITY(U,$J,358.3,26383,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26383,1,3,0)
 ;;=3^BRVO w/ NV,RIGHT eye                
 ;;^UTILITY(U,$J,358.3,26383,1,4,0)
 ;;=4^H34.8311
 ;;^UTILITY(U,$J,358.3,26383,2)
 ;;=^5138489
 ;;^UTILITY(U,$J,358.3,26384,0)
 ;;=H34.8321^^81^1054^19
 ;;^UTILITY(U,$J,358.3,26384,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26384,1,3,0)
 ;;=3^BRVO w/ NV,LEFT eye                 
 ;;^UTILITY(U,$J,358.3,26384,1,4,0)
 ;;=4^H34.8321
 ;;^UTILITY(U,$J,358.3,26384,2)
 ;;=^5138492
 ;;^UTILITY(U,$J,358.3,26385,0)
 ;;=H34.8111^^81^1054^20
 ;;^UTILITY(U,$J,358.3,26385,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26385,1,3,0)
 ;;=3^CRVO w/ NV,RIGHT eye                
 ;;^UTILITY(U,$J,358.3,26385,1,4,0)
 ;;=4^H34.8111
 ;;^UTILITY(U,$J,358.3,26385,2)
 ;;=^5138477
 ;;^UTILITY(U,$J,358.3,26386,0)
 ;;=H34.8121^^81^1054^21
 ;;^UTILITY(U,$J,358.3,26386,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26386,1,3,0)
 ;;=3^CRVO w/ NV,LEFT eye                 
 ;;^UTILITY(U,$J,358.3,26386,1,4,0)
 ;;=4^H34.8121
 ;;^UTILITY(U,$J,358.3,26386,2)
 ;;=^5138480
 ;;^UTILITY(U,$J,358.3,26387,0)
 ;;=H34.8110^^81^1054^22
 ;;^UTILITY(U,$J,358.3,26387,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26387,1,3,0)
 ;;=3^CRVO w/ CME,RIGHT eye               
 ;;^UTILITY(U,$J,358.3,26387,1,4,0)
 ;;=4^H34.8110
 ;;^UTILITY(U,$J,358.3,26387,2)
 ;;=^5138476
 ;;^UTILITY(U,$J,358.3,26388,0)
 ;;=H34.8120^^81^1054^23
 ;;^UTILITY(U,$J,358.3,26388,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26388,1,3,0)
 ;;=3^CRVO w/ CME,LEFT eye                
 ;;^UTILITY(U,$J,358.3,26388,1,4,0)
 ;;=4^H34.8120
 ;;^UTILITY(U,$J,358.3,26388,2)
 ;;=^5138479
 ;;^UTILITY(U,$J,358.3,26389,0)
 ;;=H21.1X1^^81^1054^24
 ;;^UTILITY(U,$J,358.3,26389,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26389,1,3,0)
 ;;=3^NVI/NVA/Rubeosis,RIGHT eye          
 ;;^UTILITY(U,$J,358.3,26389,1,4,0)
 ;;=4^H21.1X1
 ;;^UTILITY(U,$J,358.3,26389,2)
 ;;=^5005175
 ;;^UTILITY(U,$J,358.3,26390,0)
 ;;=H21.1X2^^81^1054^25
 ;;^UTILITY(U,$J,358.3,26390,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26390,1,3,0)
 ;;=3^NVI/NVA/Rubeosis,Left eye           
 ;;^UTILITY(U,$J,358.3,26390,1,4,0)
 ;;=4^H21.1X2
 ;;^UTILITY(U,$J,358.3,26390,2)
 ;;=^5005176
 ;;^UTILITY(U,$J,358.3,26391,0)
 ;;=H35.711^^81^1054^26
 ;;^UTILITY(U,$J,358.3,26391,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26391,1,3,0)
 ;;=3^Central Serous Retinopathy,RIGHT eye
 ;;^UTILITY(U,$J,358.3,26391,1,4,0)
 ;;=4^H35.711
 ;;^UTILITY(U,$J,358.3,26391,2)
 ;;=^5005703
 ;;^UTILITY(U,$J,358.3,26392,0)
 ;;=H35.712^^81^1054^27
 ;;^UTILITY(U,$J,358.3,26392,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26392,1,3,0)
 ;;=3^Central Serous Retinopathy,LEFT eye 
 ;;^UTILITY(U,$J,358.3,26392,1,4,0)
 ;;=4^H35.712
 ;;^UTILITY(U,$J,358.3,26392,2)
 ;;=^5005704
 ;;^UTILITY(U,$J,358.3,26393,0)
 ;;=E11.9^^81^1055^2
 ;;^UTILITY(U,$J,358.3,26393,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26393,1,3,0)
 ;;=3^DM Type 2 w/o Complications
 ;;^UTILITY(U,$J,358.3,26393,1,4,0)
 ;;=4^E11.9
 ;;^UTILITY(U,$J,358.3,26393,2)
 ;;=^5002666
 ;;^UTILITY(U,$J,358.3,26394,0)
 ;;=E11.39^^81^1055^1
 ;;^UTILITY(U,$J,358.3,26394,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26394,1,3,0)
 ;;=3^DM Type 2 w/ Diabetic Ophthalmic Complications
 ;;^UTILITY(U,$J,358.3,26394,1,4,0)
 ;;=4^E11.39
 ;;^UTILITY(U,$J,358.3,26394,2)
 ;;=^5002643
 ;;^UTILITY(U,$J,358.3,26395,0)
 ;;=E10.9^^81^1055^21
 ;;^UTILITY(U,$J,358.3,26395,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26395,1,3,0)
 ;;=3^DM Type 1 w/o Complications
 ;;^UTILITY(U,$J,358.3,26395,1,4,0)
 ;;=4^E10.9
 ;;^UTILITY(U,$J,358.3,26395,2)
 ;;=^5002626
 ;;^UTILITY(U,$J,358.3,26396,0)
 ;;=E10.39^^81^1055^20
 ;;^UTILITY(U,$J,358.3,26396,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26396,1,3,0)
 ;;=3^DM Type 1 w/ Diabetic Ophthalmic Complication
 ;;^UTILITY(U,$J,358.3,26396,1,4,0)
 ;;=4^E10.39
 ;;^UTILITY(U,$J,358.3,26396,2)
 ;;=^5002603
 ;;^UTILITY(U,$J,358.3,26397,0)
 ;;=E10.3291^^81^1055^22
 ;;^UTILITY(U,$J,358.3,26397,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26397,1,3,0)
 ;;=3^DM Type 1 w/ Mild NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26397,1,4,0)
 ;;=4^E10.3291
 ;;^UTILITY(U,$J,358.3,26397,2)
 ;;=^5138283
 ;;^UTILITY(U,$J,358.3,26398,0)
 ;;=E10.3292^^81^1055^27
 ;;^UTILITY(U,$J,358.3,26398,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26398,1,3,0)
 ;;=3^DM Type 1 w/ Mild NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26398,1,4,0)
 ;;=4^E10.3292
 ;;^UTILITY(U,$J,358.3,26398,2)
 ;;=^5138284
 ;;^UTILITY(U,$J,358.3,26399,0)
 ;;=E10.3391^^81^1055^23
 ;;^UTILITY(U,$J,358.3,26399,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26399,1,3,0)
 ;;=3^DM Type 1 w/ Mod NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26399,1,4,0)
 ;;=4^E10.3391
 ;;^UTILITY(U,$J,358.3,26399,2)
 ;;=^5138291
 ;;^UTILITY(U,$J,358.3,26400,0)
 ;;=E10.3392^^81^1055^28
 ;;^UTILITY(U,$J,358.3,26400,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26400,1,3,0)
 ;;=3^DM Type 1 w/ Mod NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26400,1,4,0)
 ;;=4^E10.3392
 ;;^UTILITY(U,$J,358.3,26400,2)
 ;;=^5138292
 ;;^UTILITY(U,$J,358.3,26401,0)
 ;;=E10.3491^^81^1055^24
 ;;^UTILITY(U,$J,358.3,26401,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26401,1,3,0)
 ;;=3^DM Type 1 w/ Severe NPDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26401,1,4,0)
 ;;=4^E10.3491
 ;;^UTILITY(U,$J,358.3,26401,2)
 ;;=^5138299
 ;;^UTILITY(U,$J,358.3,26402,0)
 ;;=E10.3492^^81^1055^29
 ;;^UTILITY(U,$J,358.3,26402,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26402,1,3,0)
 ;;=3^DM Type 1 w/ Severe NPDR w/o Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26402,1,4,0)
 ;;=4^E10.3492
 ;;^UTILITY(U,$J,358.3,26402,2)
 ;;=^5138300
 ;;^UTILITY(U,$J,358.3,26403,0)
 ;;=E10.3511^^81^1055^25
 ;;^UTILITY(U,$J,358.3,26403,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26403,1,3,0)
 ;;=3^DM Type 1 w/ PDR w/ Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26403,1,4,0)
 ;;=4^E10.3511
 ;;^UTILITY(U,$J,358.3,26403,2)
 ;;=^5138303
 ;;^UTILITY(U,$J,358.3,26404,0)
 ;;=E10.3512^^81^1055^30
 ;;^UTILITY(U,$J,358.3,26404,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26404,1,3,0)
 ;;=3^DM Type 1 w/ PDR w/ Macula Edema,Left Eye
 ;;^UTILITY(U,$J,358.3,26404,1,4,0)
 ;;=4^E10.3512
 ;;^UTILITY(U,$J,358.3,26404,2)
 ;;=^5138304
 ;;^UTILITY(U,$J,358.3,26405,0)
 ;;=E10.3591^^81^1055^26
 ;;^UTILITY(U,$J,358.3,26405,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26405,1,3,0)
 ;;=3^DM Type 1 w/ PDR w/o Macula Edema,Right Eye
 ;;^UTILITY(U,$J,358.3,26405,1,4,0)
 ;;=4^E10.3591
 ;;^UTILITY(U,$J,358.3,26405,2)
 ;;=^5138323
 ;;^UTILITY(U,$J,358.3,26406,0)
 ;;=E10.3592^^81^1055^31
 ;;^UTILITY(U,$J,358.3,26406,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,26406,1,3,0)
 ;;=3^DM Type 1 w/ PDR w/o Macula Edema,Left Eye