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