IBDEI0AH ; ; 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,25666,1,4,0)
;;=4^Z91.52
;;^UTILITY(U,$J,358.3,25666,2)
;;=^5161318
;;^UTILITY(U,$J,358.3,25667,0)
;;=Z51.81^^79^1030^19
;;^UTILITY(U,$J,358.3,25667,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25667,1,3,0)
;;=3^Therapeutic Drug Level Monitoring
;;^UTILITY(U,$J,358.3,25667,1,4,0)
;;=4^Z51.81
;;^UTILITY(U,$J,358.3,25667,2)
;;=^5063064
;;^UTILITY(U,$J,358.3,25668,0)
;;=Z79.01^^79^1030^15
;;^UTILITY(U,$J,358.3,25668,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25668,1,3,0)
;;=3^Long Term Current Use of Anticoagulants
;;^UTILITY(U,$J,358.3,25668,1,4,0)
;;=4^Z79.01
;;^UTILITY(U,$J,358.3,25668,2)
;;=^5063330
;;^UTILITY(U,$J,358.3,25669,0)
;;=I48.0^^79^1030^7
;;^UTILITY(U,$J,358.3,25669,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25669,1,3,0)
;;=3^Atrial Fibrillation,Paroxysmal
;;^UTILITY(U,$J,358.3,25669,1,4,0)
;;=4^I48.0
;;^UTILITY(U,$J,358.3,25669,2)
;;=^90473
;;^UTILITY(U,$J,358.3,25670,0)
;;=Z86.711^^79^1030^17
;;^UTILITY(U,$J,358.3,25670,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25670,1,3,0)
;;=3^Personal Hx of Pulmonary Embolism
;;^UTILITY(U,$J,358.3,25670,1,4,0)
;;=4^Z86.711
;;^UTILITY(U,$J,358.3,25670,2)
;;=^5063474
;;^UTILITY(U,$J,358.3,25671,0)
;;=Z95.2^^79^1030^18
;;^UTILITY(U,$J,358.3,25671,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25671,1,3,0)
;;=3^Presence of Prosthetic Heart Valve
;;^UTILITY(U,$J,358.3,25671,1,4,0)
;;=4^Z95.2
;;^UTILITY(U,$J,358.3,25671,2)
;;=^5063670
;;^UTILITY(U,$J,358.3,25672,0)
;;=I48.92^^79^1030^9
;;^UTILITY(U,$J,358.3,25672,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25672,1,3,0)
;;=3^Atrial Flutter,Unspec
;;^UTILITY(U,$J,358.3,25672,1,4,0)
;;=4^I48.92
;;^UTILITY(U,$J,358.3,25672,2)
;;=^5007230
;;^UTILITY(U,$J,358.3,25673,0)
;;=D68.8^^79^1030^11
;;^UTILITY(U,$J,358.3,25673,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25673,1,3,0)
;;=3^Coagulation Defects,Oth Specified
;;^UTILITY(U,$J,358.3,25673,1,4,0)
;;=4^D68.8
;;^UTILITY(U,$J,358.3,25673,2)
;;=^5002363
;;^UTILITY(U,$J,358.3,25674,0)
;;=D68.318^^79^1030^13
;;^UTILITY(U,$J,358.3,25674,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25674,1,3,0)
;;=3^Hemorrhagic Disorder d/t Intrns Circ Anticoag/Antib/Inhib
;;^UTILITY(U,$J,358.3,25674,1,4,0)
;;=4^D68.318
;;^UTILITY(U,$J,358.3,25674,2)
;;=^340504
;;^UTILITY(U,$J,358.3,25675,0)
;;=D68.32^^79^1030^12
;;^UTILITY(U,$J,358.3,25675,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25675,1,3,0)
;;=3^Hemorrhagic Disorder d/t Extrinsic Circulating Anticoagulants
;;^UTILITY(U,$J,358.3,25675,1,4,0)
;;=4^D68.32
;;^UTILITY(U,$J,358.3,25675,2)
;;=^5002357
;;^UTILITY(U,$J,358.3,25676,0)
;;=I10.^^79^1030^14
;;^UTILITY(U,$J,358.3,25676,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25676,1,3,0)
;;=3^Hypertension,Essential
;;^UTILITY(U,$J,358.3,25676,1,4,0)
;;=4^I10.
;;^UTILITY(U,$J,358.3,25676,2)
;;=^5007062
;;^UTILITY(U,$J,358.3,25677,0)
;;=I82.401^^79^1030^3
;;^UTILITY(U,$J,358.3,25677,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25677,1,3,0)
;;=3^Acute Embolism/Thrombos Deep Veins,Rt Lower Extrem,Unspec
;;^UTILITY(U,$J,358.3,25677,1,4,0)
;;=4^I82.401
;;^UTILITY(U,$J,358.3,25677,2)
;;=^5007854
;;^UTILITY(U,$J,358.3,25678,0)
;;=I82.402^^79^1030^2
;;^UTILITY(U,$J,358.3,25678,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25678,1,3,0)
;;=3^Acute Embolism/Thrombos Deep Veins,Lt Lower Extrem,Unspec
;;^UTILITY(U,$J,358.3,25678,1,4,0)
;;=4^I82.402
;;^UTILITY(U,$J,358.3,25678,2)
;;=^5007855
;;^UTILITY(U,$J,358.3,25679,0)
;;=I82.890^^79^1030^1
;;^UTILITY(U,$J,358.3,25679,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25679,1,3,0)
;;=3^Acute Embolism/Thromb of Other Specified Veins
;;^UTILITY(U,$J,358.3,25679,1,4,0)
;;=4^I82.890
;;^UTILITY(U,$J,358.3,25679,2)
;;=^5007938
;;^UTILITY(U,$J,358.3,25680,0)
;;=I82.891^^79^1030^10
;;^UTILITY(U,$J,358.3,25680,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25680,1,3,0)
;;=3^Chronic Embolism/Thrombo of Other Specified Veins
;;^UTILITY(U,$J,358.3,25680,1,4,0)
;;=4^I82.891
;;^UTILITY(U,$J,358.3,25680,2)
;;=^5007939
;;^UTILITY(U,$J,358.3,25681,0)
;;=D68.62^^79^1030^16
;;^UTILITY(U,$J,358.3,25681,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25681,1,3,0)
;;=3^Lupus Anticoagulant Syndrome
;;^UTILITY(U,$J,358.3,25681,1,4,0)
;;=4^D68.62
;;^UTILITY(U,$J,358.3,25681,2)
;;=^5002361
;;^UTILITY(U,$J,358.3,25682,0)
;;=I48.20^^79^1030^4
;;^UTILITY(U,$J,358.3,25682,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25682,1,3,0)
;;=3^Atrial Fibrillation,Chronic,Unspec
;;^UTILITY(U,$J,358.3,25682,1,4,0)
;;=4^I48.20
;;^UTILITY(U,$J,358.3,25682,2)
;;=^5158048
;;^UTILITY(U,$J,358.3,25683,0)
;;=I48.21^^79^1030^8
;;^UTILITY(U,$J,358.3,25683,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25683,1,3,0)
;;=3^Atrial Fibrillation,Permanent
;;^UTILITY(U,$J,358.3,25683,1,4,0)
;;=4^I48.21
;;^UTILITY(U,$J,358.3,25683,2)
;;=^304710
;;^UTILITY(U,$J,358.3,25684,0)
;;=I48.11^^79^1030^5
;;^UTILITY(U,$J,358.3,25684,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25684,1,3,0)
;;=3^Atrial Fibrillation,Longstanding Persistent
;;^UTILITY(U,$J,358.3,25684,1,4,0)
;;=4^I48.11
;;^UTILITY(U,$J,358.3,25684,2)
;;=^5158046
;;^UTILITY(U,$J,358.3,25685,0)
;;=I48.19^^79^1030^6
;;^UTILITY(U,$J,358.3,25685,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25685,1,3,0)
;;=3^Atrial Fibrillation,Other Persistent
;;^UTILITY(U,$J,358.3,25685,1,4,0)
;;=4^I48.19
;;^UTILITY(U,$J,358.3,25685,2)
;;=^5158047
;;^UTILITY(U,$J,358.3,25686,0)
;;=Z13.5^^79^1031^10
;;^UTILITY(U,$J,358.3,25686,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25686,1,3,0)
;;=3^Screening for Eye Disorders
;;^UTILITY(U,$J,358.3,25686,1,4,0)
;;=4^Z13.5
;;^UTILITY(U,$J,358.3,25686,2)
;;=^5062706
;;^UTILITY(U,$J,358.3,25687,0)
;;=H00.19^^79^1031^2
;;^UTILITY(U,$J,358.3,25687,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25687,1,3,0)
;;=3^Chalazion Eyelid
;;^UTILITY(U,$J,358.3,25687,1,4,0)
;;=4^H00.19
;;^UTILITY(U,$J,358.3,25687,2)
;;=^5133379
;;^UTILITY(U,$J,358.3,25688,0)
;;=H10.9^^79^1031^3
;;^UTILITY(U,$J,358.3,25688,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25688,1,3,0)
;;=3^Conjunctivitis
;;^UTILITY(U,$J,358.3,25688,1,4,0)
;;=4^H10.9
;;^UTILITY(U,$J,358.3,25688,2)
;;=^5004716
;;^UTILITY(U,$J,358.3,25689,0)
;;=E11.3299^^79^1031^4
;;^UTILITY(U,$J,358.3,25689,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25689,1,3,0)
;;=3^DM2 Diabetic Retinopathy w/o Macular Edema
;;^UTILITY(U,$J,358.3,25689,1,4,0)
;;=4^E11.3299
;;^UTILITY(U,$J,358.3,25689,2)
;;=^5138338
;;^UTILITY(U,$J,358.3,25690,0)
;;=H25.10^^79^1031^1
;;^UTILITY(U,$J,358.3,25690,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25690,1,3,0)
;;=3^Cataract
;;^UTILITY(U,$J,358.3,25690,1,4,0)
;;=4^H25.10
;;^UTILITY(U,$J,358.3,25690,2)
;;=^5005283
;;^UTILITY(U,$J,358.3,25691,0)
;;=H35.3190^^79^1031^7
;;^UTILITY(U,$J,358.3,25691,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25691,1,3,0)
;;=3^Nonexudative ARMD
;;^UTILITY(U,$J,358.3,25691,1,4,0)
;;=4^H35.3190
;;^UTILITY(U,$J,358.3,25691,2)
;;=^5138515
;;^UTILITY(U,$J,358.3,25692,0)
;;=H35.3290^^79^1031^6
;;^UTILITY(U,$J,358.3,25692,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25692,1,3,0)
;;=3^Exudative ARMD
;;^UTILITY(U,$J,358.3,25692,1,4,0)
;;=4^H35.3290
;;^UTILITY(U,$J,358.3,25692,2)
;;=^5138532
;;^UTILITY(U,$J,358.3,25693,0)
;;=H40.1192^^79^1031^5
;;^UTILITY(U,$J,358.3,25693,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25693,1,3,0)
;;=3^Glaucoma
;;^UTILITY(U,$J,358.3,25693,1,4,0)
;;=4^H40.1192
;;^UTILITY(U,$J,358.3,25693,2)
;;=^5138553
;;^UTILITY(U,$J,358.3,25694,0)
;;=H52.4^^79^1031^9
;;^UTILITY(U,$J,358.3,25694,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25694,1,3,0)
;;=3^Presbyopia
;;^UTILITY(U,$J,358.3,25694,1,4,0)
;;=4^H52.4
;;^UTILITY(U,$J,358.3,25694,2)
;;=^98095
;;^UTILITY(U,$J,358.3,25695,0)
;;=H52.10^^79^1031^8
;;^UTILITY(U,$J,358.3,25695,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25695,1,3,0)
;;=3^Myopia
;;^UTILITY(U,$J,358.3,25695,1,4,0)
;;=4^H52.10
;;^UTILITY(U,$J,358.3,25695,2)
;;=^5006263
;;^UTILITY(U,$J,358.3,25696,0)
;;=Q3014^^80^1032^6^^^^1
;;^UTILITY(U,$J,358.3,25696,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25696,1,2,0)
;;=2^Q3014
;;^UTILITY(U,$J,358.3,25696,1,3,0)
;;=3^TELEHEALTH FACILITY FEE
;;^UTILITY(U,$J,358.3,25697,0)
;;=92227^^80^1032^4^^^^1
;;^UTILITY(U,$J,358.3,25697,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25697,1,2,0)
;;=2^92227
;;^UTILITY(U,$J,358.3,25697,1,3,0)
;;=3^REMOTE DX RETINAL IMAGING
;;^UTILITY(U,$J,358.3,25698,0)
;;=92228^^80^1032^5^^^^1
;;^UTILITY(U,$J,358.3,25698,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25698,1,2,0)
;;=2^92228
;;^UTILITY(U,$J,358.3,25698,1,3,0)
;;=3^REMOTE IMAGING-RETINAL MGMT
;;^UTILITY(U,$J,358.3,25699,0)
;;=92250^^80^1032^2^^^^1
;;^UTILITY(U,$J,358.3,25699,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25699,1,2,0)
;;=2^92250
;;^UTILITY(U,$J,358.3,25699,1,3,0)
;;=3^FUNDUS PHOTO W/ INTERP & RPT
;;^UTILITY(U,$J,358.3,25700,0)
;;=T1014^^80^1032^7^^^^1
;;^UTILITY(U,$J,358.3,25700,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25700,1,2,0)
;;=2^T1014
;;^UTILITY(U,$J,358.3,25700,1,3,0)
;;=3^TELEHEALTH TRANSMIT, PER MIN
;;^UTILITY(U,$J,358.3,25701,0)
;;=3072F^^80^1032^3^^^^1
;;^UTILITY(U,$J,358.3,25701,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25701,1,2,0)
;;=2^3072F
;;^UTILITY(U,$J,358.3,25701,1,3,0)
;;=3^LOW RISK FOR RETINOPATHY
;;^UTILITY(U,$J,358.3,25702,0)
;;=99451^^80^1032^1^^^^1
;;^UTILITY(U,$J,358.3,25702,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,25702,1,2,0)
;;=2^99451
;;^UTILITY(U,$J,358.3,25702,1,3,0)
;;=3^E-CONSULT 5 OR MORE MIN
;;^UTILITY(U,$J,358.3,25703,0)
;;=H54.3^^81^1033^2
;;^UTILITY(U,$J,358.3,25703,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25703,1,3,0)
;;=3^Visual Loss,Both Eyes,Unqualified
;;^UTILITY(U,$J,358.3,25703,1,4,0)
;;=4^H54.3
;;^UTILITY(U,$J,358.3,25703,2)
;;=^268886
;;^UTILITY(U,$J,358.3,25704,0)
;;=H54.7^^81^1033^1
;;^UTILITY(U,$J,358.3,25704,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25704,1,3,0)
;;=3^Visual Loss
;;^UTILITY(U,$J,358.3,25704,1,4,0)
;;=4^H54.7
;;^UTILITY(U,$J,358.3,25704,2)
;;=^5006368
;;^UTILITY(U,$J,358.3,25705,0)
;;=H54.8^^81^1033^44
;;^UTILITY(U,$J,358.3,25705,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25705,1,3,0)
;;=3^Legal Blindness,as Defined in USA
;;^UTILITY(U,$J,358.3,25705,1,4,0)
;;=4^H54.8
;;^UTILITY(U,$J,358.3,25705,2)
;;=^5006369
;;^UTILITY(U,$J,358.3,25706,0)
;;=H54.40^^81^1033^6
;;^UTILITY(U,$J,358.3,25706,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25706,1,3,0)
;;=3^Monocular,Blindness in One Eye
;;^UTILITY(U,$J,358.3,25706,1,4,0)
;;=4^H54.40
;;^UTILITY(U,$J,358.3,25706,2)
;;=^5006362
;;^UTILITY(U,$J,358.3,25707,0)
;;=H53.71^^81^1033^3
;;^UTILITY(U,$J,358.3,25707,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25707,1,3,0)
;;=3^Glare Sensitivity
;;^UTILITY(U,$J,358.3,25707,1,4,0)
;;=4^H53.71
;;^UTILITY(U,$J,358.3,25707,2)
;;=^5006354
;;^UTILITY(U,$J,358.3,25708,0)
;;=H53.72^^81^1033^4
;;^UTILITY(U,$J,358.3,25708,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25708,1,3,0)
;;=3^Impaired Contrast Sensitivity
;;^UTILITY(U,$J,358.3,25708,1,4,0)
;;=4^H53.72
;;^UTILITY(U,$J,358.3,25708,2)
;;=^5006355
;;^UTILITY(U,$J,358.3,25709,0)
;;=Z82.1^^81^1033^5
;;^UTILITY(U,$J,358.3,25709,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25709,1,3,0)
;;=3^Family Hx Blindness/Visual Loss
;;^UTILITY(U,$J,358.3,25709,1,4,0)
;;=4^Z82.1
;;^UTILITY(U,$J,358.3,25709,2)
;;=^5063365
;;^UTILITY(U,$J,358.3,25710,0)
;;=H54.7^^81^1033^43
;;^UTILITY(U,$J,358.3,25710,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25710,1,3,0)
;;=3^Visual Loss,Unspec
;;^UTILITY(U,$J,358.3,25710,1,4,0)
;;=4^H54.7
;;^UTILITY(U,$J,358.3,25710,2)
;;=^5006368
;;^UTILITY(U,$J,358.3,25711,0)
;;=H54.1213^^81^1033^7
;;^UTILITY(U,$J,358.3,25711,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25711,1,3,0)
;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 3
;;^UTILITY(U,$J,358.3,25711,1,4,0)
;;=4^H54.1213
;;^UTILITY(U,$J,358.3,25711,2)
;;=^5151353
;;^UTILITY(U,$J,358.3,25712,0)
;;=H54.1214^^81^1033^8
;;^UTILITY(U,$J,358.3,25712,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25712,1,3,0)
;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 4
;;^UTILITY(U,$J,358.3,25712,1,4,0)
;;=4^H54.1214
;;^UTILITY(U,$J,358.3,25712,2)
;;=^5151354
;;^UTILITY(U,$J,358.3,25713,0)
;;=H54.1215^^81^1033^9
;;^UTILITY(U,$J,358.3,25713,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25713,1,3,0)
;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 5
;;^UTILITY(U,$J,358.3,25713,1,4,0)
;;=4^H54.1215
;;^UTILITY(U,$J,358.3,25713,2)
;;=^5151355
;;^UTILITY(U,$J,358.3,25714,0)
;;=H54.1223^^81^1033^10
;;^UTILITY(U,$J,358.3,25714,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25714,1,3,0)
;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 3
;;^UTILITY(U,$J,358.3,25714,1,4,0)
;;=4^H54.1223
;;^UTILITY(U,$J,358.3,25714,2)
;;=^5151356
;;^UTILITY(U,$J,358.3,25715,0)
;;=H54.1224^^81^1033^11
;;^UTILITY(U,$J,358.3,25715,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25715,1,3,0)
;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 4
;;^UTILITY(U,$J,358.3,25715,1,4,0)
;;=4^H54.1224
;;^UTILITY(U,$J,358.3,25715,2)
;;=^5151357
;;^UTILITY(U,$J,358.3,25716,0)
;;=H54.1225^^81^1033^12
;;^UTILITY(U,$J,358.3,25716,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25716,1,3,0)
;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 5
;;^UTILITY(U,$J,358.3,25716,1,4,0)
;;=4^H54.1225
;;^UTILITY(U,$J,358.3,25716,2)
;;=^5151358
;;^UTILITY(U,$J,358.3,25717,0)
;;=H54.2X12^^81^1033^13
;;^UTILITY(U,$J,358.3,25717,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25717,1,3,0)
;;=3^Low Vision Rt Eye Category 1,Low Vision Lt Eye Category 2
;;^UTILITY(U,$J,358.3,25717,1,4,0)
;;=4^H54.2X12
;;^UTILITY(U,$J,358.3,25717,2)
;;=^5151360
;;^UTILITY(U,$J,358.3,25718,0)
;;=H54.2X21^^81^1033^14
;;^UTILITY(U,$J,358.3,25718,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25718,1,3,0)
;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 1
;;^UTILITY(U,$J,358.3,25718,1,4,0)
;;=4^H54.2X21
;;^UTILITY(U,$J,358.3,25718,2)
;;=^5151361
;;^UTILITY(U,$J,358.3,25719,0)
;;=H54.2X22^^81^1033^15
;;^UTILITY(U,$J,358.3,25719,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25719,1,3,0)
;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 2
;;^UTILITY(U,$J,358.3,25719,1,4,0)
;;=4^H54.2X22
;;^UTILITY(U,$J,358.3,25719,2)
;;=^5151362
;;^UTILITY(U,$J,358.3,25720,0)
;;=H54.511A^^81^1033^16
;;^UTILITY(U,$J,358.3,25720,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25720,1,3,0)
;;=3^Low Vision Rt Eye Category 1,Normal Vision Lt Eye
;;^UTILITY(U,$J,358.3,25720,1,4,0)
;;=4^H54.511A
;;^UTILITY(U,$J,358.3,25720,2)
;;=^5151369
;;^UTILITY(U,$J,358.3,25721,0)
;;=H54.512A^^81^1033^17
;;^UTILITY(U,$J,358.3,25721,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25721,1,3,0)
;;=3^Low Vision Rt Eye Category 2,Normal Vision Lt Eye
;;^UTILITY(U,$J,358.3,25721,1,4,0)
;;=4^H54.512A
;;^UTILITY(U,$J,358.3,25721,2)
;;=^5151370
;;^UTILITY(U,$J,358.3,25722,0)
;;=H54.52A1^^81^1033^18
;;^UTILITY(U,$J,358.3,25722,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25722,1,3,0)
;;=3^Low Vision Lt Eye Category 1,Normal Vision Rt Eye
;;^UTILITY(U,$J,358.3,25722,1,4,0)
;;=4^H54.52A1
;;^UTILITY(U,$J,358.3,25722,2)
;;=^5151371
;;^UTILITY(U,$J,358.3,25723,0)
;;=H54.52A2^^81^1033^19
;;^UTILITY(U,$J,358.3,25723,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25723,1,3,0)
;;=3^Low Vision Lt Eye Category 2,Normal Vision Rt Eye
;;^UTILITY(U,$J,358.3,25723,1,4,0)
;;=4^H54.52A2
;;^UTILITY(U,$J,358.3,25723,2)
;;=^5151372
;;^UTILITY(U,$J,358.3,25724,0)
;;=H54.0X33^^81^1033^20
;;^UTILITY(U,$J,358.3,25724,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25724,1,3,0)
;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 3
;;^UTILITY(U,$J,358.3,25724,1,4,0)
;;=4^H54.0X33
;;^UTILITY(U,$J,358.3,25724,2)
;;=^5151338
;;^UTILITY(U,$J,358.3,25725,0)
;;=H54.0X34^^81^1033^21
;;^UTILITY(U,$J,358.3,25725,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25725,1,3,0)
;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 4
;;^UTILITY(U,$J,358.3,25725,1,4,0)
;;=4^H54.0X34
;;^UTILITY(U,$J,358.3,25725,2)
;;=^5151339
;;^UTILITY(U,$J,358.3,25726,0)
;;=H54.0X35^^81^1033^22
;;^UTILITY(U,$J,358.3,25726,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25726,1,3,0)
;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 5
;;^UTILITY(U,$J,358.3,25726,1,4,0)
;;=4^H54.0X35
;;^UTILITY(U,$J,358.3,25726,2)
;;=^5151340
;;^UTILITY(U,$J,358.3,25727,0)
;;=H54.0X43^^81^1033^23
;;^UTILITY(U,$J,358.3,25727,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25727,1,3,0)
;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 3
;;^UTILITY(U,$J,358.3,25727,1,4,0)
;;=4^H54.0X43
;;^UTILITY(U,$J,358.3,25727,2)
;;=^5151341
;;^UTILITY(U,$J,358.3,25728,0)
;;=H54.0X44^^81^1033^24
;;^UTILITY(U,$J,358.3,25728,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25728,1,3,0)
;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 4
;;^UTILITY(U,$J,358.3,25728,1,4,0)
;;=4^H54.0X44
;;^UTILITY(U,$J,358.3,25728,2)
;;=^5151342
;;^UTILITY(U,$J,358.3,25729,0)
;;=H54.0X45^^81^1033^25
;;^UTILITY(U,$J,358.3,25729,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25729,1,3,0)
;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 5
;;^UTILITY(U,$J,358.3,25729,1,4,0)
;;=4^H54.0X45
;;^UTILITY(U,$J,358.3,25729,2)
;;=^5151343
;;^UTILITY(U,$J,358.3,25730,0)
;;=H54.0X53^^81^1033^26
;;^UTILITY(U,$J,358.3,25730,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25730,1,3,0)
;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 3
;;^UTILITY(U,$J,358.3,25730,1,4,0)
;;=4^H54.0X53
;;^UTILITY(U,$J,358.3,25730,2)
;;=^5151344
;;^UTILITY(U,$J,358.3,25731,0)
;;=H54.0X54^^81^1033^27
;;^UTILITY(U,$J,358.3,25731,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25731,1,3,0)
;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 4
;;^UTILITY(U,$J,358.3,25731,1,4,0)
;;=4^H54.0X54
;;^UTILITY(U,$J,358.3,25731,2)
;;=^5151345
;;^UTILITY(U,$J,358.3,25732,0)
;;=H54.0X55^^81^1033^28
;;^UTILITY(U,$J,358.3,25732,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25732,1,3,0)
;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 5
;;^UTILITY(U,$J,358.3,25732,1,4,0)
;;=4^H54.0X55
;;^UTILITY(U,$J,358.3,25732,2)
;;=^5151346
;;^UTILITY(U,$J,358.3,25733,0)
;;=H54.10^^81^1033^29
;;^UTILITY(U,$J,358.3,25733,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,25733,1,3,0)
;;=3^Blindness,One Eye,Low Vision Other Eye,Unspec Eyes
;;^UTILITY(U,$J,358.3,25733,1,4,0)
;;=4^H54.10
;;^UTILITY(U,$J,358.3,25733,2)
;;=^5006358
;;^UTILITY(U,$J,358.3,25734,0)
;;=H54.1131^^81^1033^30
;;^UTILITY(U,$J,358.3,25734,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0AH 19758 printed Apr 09, 2024@21:59:28 Page 2
IBDEI0AH ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,25666,1,4,0)
+2 ;;=4^Z91.52
+3 ;;^UTILITY(U,$J,358.3,25666,2)
+4 ;;=^5161318
+5 ;;^UTILITY(U,$J,358.3,25667,0)
+6 ;;=Z51.81^^79^1030^19
+7 ;;^UTILITY(U,$J,358.3,25667,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,25667,1,3,0)
+10 ;;=3^Therapeutic Drug Level Monitoring
+11 ;;^UTILITY(U,$J,358.3,25667,1,4,0)
+12 ;;=4^Z51.81
+13 ;;^UTILITY(U,$J,358.3,25667,2)
+14 ;;=^5063064
+15 ;;^UTILITY(U,$J,358.3,25668,0)
+16 ;;=Z79.01^^79^1030^15
+17 ;;^UTILITY(U,$J,358.3,25668,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,25668,1,3,0)
+20 ;;=3^Long Term Current Use of Anticoagulants
+21 ;;^UTILITY(U,$J,358.3,25668,1,4,0)
+22 ;;=4^Z79.01
+23 ;;^UTILITY(U,$J,358.3,25668,2)
+24 ;;=^5063330
+25 ;;^UTILITY(U,$J,358.3,25669,0)
+26 ;;=I48.0^^79^1030^7
+27 ;;^UTILITY(U,$J,358.3,25669,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,25669,1,3,0)
+30 ;;=3^Atrial Fibrillation,Paroxysmal
+31 ;;^UTILITY(U,$J,358.3,25669,1,4,0)
+32 ;;=4^I48.0
+33 ;;^UTILITY(U,$J,358.3,25669,2)
+34 ;;=^90473
+35 ;;^UTILITY(U,$J,358.3,25670,0)
+36 ;;=Z86.711^^79^1030^17
+37 ;;^UTILITY(U,$J,358.3,25670,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,25670,1,3,0)
+40 ;;=3^Personal Hx of Pulmonary Embolism
+41 ;;^UTILITY(U,$J,358.3,25670,1,4,0)
+42 ;;=4^Z86.711
+43 ;;^UTILITY(U,$J,358.3,25670,2)
+44 ;;=^5063474
+45 ;;^UTILITY(U,$J,358.3,25671,0)
+46 ;;=Z95.2^^79^1030^18
+47 ;;^UTILITY(U,$J,358.3,25671,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,25671,1,3,0)
+50 ;;=3^Presence of Prosthetic Heart Valve
+51 ;;^UTILITY(U,$J,358.3,25671,1,4,0)
+52 ;;=4^Z95.2
+53 ;;^UTILITY(U,$J,358.3,25671,2)
+54 ;;=^5063670
+55 ;;^UTILITY(U,$J,358.3,25672,0)
+56 ;;=I48.92^^79^1030^9
+57 ;;^UTILITY(U,$J,358.3,25672,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,25672,1,3,0)
+60 ;;=3^Atrial Flutter,Unspec
+61 ;;^UTILITY(U,$J,358.3,25672,1,4,0)
+62 ;;=4^I48.92
+63 ;;^UTILITY(U,$J,358.3,25672,2)
+64 ;;=^5007230
+65 ;;^UTILITY(U,$J,358.3,25673,0)
+66 ;;=D68.8^^79^1030^11
+67 ;;^UTILITY(U,$J,358.3,25673,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,25673,1,3,0)
+70 ;;=3^Coagulation Defects,Oth Specified
+71 ;;^UTILITY(U,$J,358.3,25673,1,4,0)
+72 ;;=4^D68.8
+73 ;;^UTILITY(U,$J,358.3,25673,2)
+74 ;;=^5002363
+75 ;;^UTILITY(U,$J,358.3,25674,0)
+76 ;;=D68.318^^79^1030^13
+77 ;;^UTILITY(U,$J,358.3,25674,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,25674,1,3,0)
+80 ;;=3^Hemorrhagic Disorder d/t Intrns Circ Anticoag/Antib/Inhib
+81 ;;^UTILITY(U,$J,358.3,25674,1,4,0)
+82 ;;=4^D68.318
+83 ;;^UTILITY(U,$J,358.3,25674,2)
+84 ;;=^340504
+85 ;;^UTILITY(U,$J,358.3,25675,0)
+86 ;;=D68.32^^79^1030^12
+87 ;;^UTILITY(U,$J,358.3,25675,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,25675,1,3,0)
+90 ;;=3^Hemorrhagic Disorder d/t Extrinsic Circulating Anticoagulants
+91 ;;^UTILITY(U,$J,358.3,25675,1,4,0)
+92 ;;=4^D68.32
+93 ;;^UTILITY(U,$J,358.3,25675,2)
+94 ;;=^5002357
+95 ;;^UTILITY(U,$J,358.3,25676,0)
+96 ;;=I10.^^79^1030^14
+97 ;;^UTILITY(U,$J,358.3,25676,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,25676,1,3,0)
+100 ;;=3^Hypertension,Essential
+101 ;;^UTILITY(U,$J,358.3,25676,1,4,0)
+102 ;;=4^I10.
+103 ;;^UTILITY(U,$J,358.3,25676,2)
+104 ;;=^5007062
+105 ;;^UTILITY(U,$J,358.3,25677,0)
+106 ;;=I82.401^^79^1030^3
+107 ;;^UTILITY(U,$J,358.3,25677,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,25677,1,3,0)
+110 ;;=3^Acute Embolism/Thrombos Deep Veins,Rt Lower Extrem,Unspec
+111 ;;^UTILITY(U,$J,358.3,25677,1,4,0)
+112 ;;=4^I82.401
+113 ;;^UTILITY(U,$J,358.3,25677,2)
+114 ;;=^5007854
+115 ;;^UTILITY(U,$J,358.3,25678,0)
+116 ;;=I82.402^^79^1030^2
+117 ;;^UTILITY(U,$J,358.3,25678,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,25678,1,3,0)
+120 ;;=3^Acute Embolism/Thrombos Deep Veins,Lt Lower Extrem,Unspec
+121 ;;^UTILITY(U,$J,358.3,25678,1,4,0)
+122 ;;=4^I82.402
+123 ;;^UTILITY(U,$J,358.3,25678,2)
+124 ;;=^5007855
+125 ;;^UTILITY(U,$J,358.3,25679,0)
+126 ;;=I82.890^^79^1030^1
+127 ;;^UTILITY(U,$J,358.3,25679,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,25679,1,3,0)
+130 ;;=3^Acute Embolism/Thromb of Other Specified Veins
+131 ;;^UTILITY(U,$J,358.3,25679,1,4,0)
+132 ;;=4^I82.890
+133 ;;^UTILITY(U,$J,358.3,25679,2)
+134 ;;=^5007938
+135 ;;^UTILITY(U,$J,358.3,25680,0)
+136 ;;=I82.891^^79^1030^10
+137 ;;^UTILITY(U,$J,358.3,25680,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,25680,1,3,0)
+140 ;;=3^Chronic Embolism/Thrombo of Other Specified Veins
+141 ;;^UTILITY(U,$J,358.3,25680,1,4,0)
+142 ;;=4^I82.891
+143 ;;^UTILITY(U,$J,358.3,25680,2)
+144 ;;=^5007939
+145 ;;^UTILITY(U,$J,358.3,25681,0)
+146 ;;=D68.62^^79^1030^16
+147 ;;^UTILITY(U,$J,358.3,25681,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,25681,1,3,0)
+150 ;;=3^Lupus Anticoagulant Syndrome
+151 ;;^UTILITY(U,$J,358.3,25681,1,4,0)
+152 ;;=4^D68.62
+153 ;;^UTILITY(U,$J,358.3,25681,2)
+154 ;;=^5002361
+155 ;;^UTILITY(U,$J,358.3,25682,0)
+156 ;;=I48.20^^79^1030^4
+157 ;;^UTILITY(U,$J,358.3,25682,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,25682,1,3,0)
+160 ;;=3^Atrial Fibrillation,Chronic,Unspec
+161 ;;^UTILITY(U,$J,358.3,25682,1,4,0)
+162 ;;=4^I48.20
+163 ;;^UTILITY(U,$J,358.3,25682,2)
+164 ;;=^5158048
+165 ;;^UTILITY(U,$J,358.3,25683,0)
+166 ;;=I48.21^^79^1030^8
+167 ;;^UTILITY(U,$J,358.3,25683,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,25683,1,3,0)
+170 ;;=3^Atrial Fibrillation,Permanent
+171 ;;^UTILITY(U,$J,358.3,25683,1,4,0)
+172 ;;=4^I48.21
+173 ;;^UTILITY(U,$J,358.3,25683,2)
+174 ;;=^304710
+175 ;;^UTILITY(U,$J,358.3,25684,0)
+176 ;;=I48.11^^79^1030^5
+177 ;;^UTILITY(U,$J,358.3,25684,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,25684,1,3,0)
+180 ;;=3^Atrial Fibrillation,Longstanding Persistent
+181 ;;^UTILITY(U,$J,358.3,25684,1,4,0)
+182 ;;=4^I48.11
+183 ;;^UTILITY(U,$J,358.3,25684,2)
+184 ;;=^5158046
+185 ;;^UTILITY(U,$J,358.3,25685,0)
+186 ;;=I48.19^^79^1030^6
+187 ;;^UTILITY(U,$J,358.3,25685,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,25685,1,3,0)
+190 ;;=3^Atrial Fibrillation,Other Persistent
+191 ;;^UTILITY(U,$J,358.3,25685,1,4,0)
+192 ;;=4^I48.19
+193 ;;^UTILITY(U,$J,358.3,25685,2)
+194 ;;=^5158047
+195 ;;^UTILITY(U,$J,358.3,25686,0)
+196 ;;=Z13.5^^79^1031^10
+197 ;;^UTILITY(U,$J,358.3,25686,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,25686,1,3,0)
+200 ;;=3^Screening for Eye Disorders
+201 ;;^UTILITY(U,$J,358.3,25686,1,4,0)
+202 ;;=4^Z13.5
+203 ;;^UTILITY(U,$J,358.3,25686,2)
+204 ;;=^5062706
+205 ;;^UTILITY(U,$J,358.3,25687,0)
+206 ;;=H00.19^^79^1031^2
+207 ;;^UTILITY(U,$J,358.3,25687,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,25687,1,3,0)
+210 ;;=3^Chalazion Eyelid
+211 ;;^UTILITY(U,$J,358.3,25687,1,4,0)
+212 ;;=4^H00.19
+213 ;;^UTILITY(U,$J,358.3,25687,2)
+214 ;;=^5133379
+215 ;;^UTILITY(U,$J,358.3,25688,0)
+216 ;;=H10.9^^79^1031^3
+217 ;;^UTILITY(U,$J,358.3,25688,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,25688,1,3,0)
+220 ;;=3^Conjunctivitis
+221 ;;^UTILITY(U,$J,358.3,25688,1,4,0)
+222 ;;=4^H10.9
+223 ;;^UTILITY(U,$J,358.3,25688,2)
+224 ;;=^5004716
+225 ;;^UTILITY(U,$J,358.3,25689,0)
+226 ;;=E11.3299^^79^1031^4
+227 ;;^UTILITY(U,$J,358.3,25689,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,25689,1,3,0)
+230 ;;=3^DM2 Diabetic Retinopathy w/o Macular Edema
+231 ;;^UTILITY(U,$J,358.3,25689,1,4,0)
+232 ;;=4^E11.3299
+233 ;;^UTILITY(U,$J,358.3,25689,2)
+234 ;;=^5138338
+235 ;;^UTILITY(U,$J,358.3,25690,0)
+236 ;;=H25.10^^79^1031^1
+237 ;;^UTILITY(U,$J,358.3,25690,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,25690,1,3,0)
+240 ;;=3^Cataract
+241 ;;^UTILITY(U,$J,358.3,25690,1,4,0)
+242 ;;=4^H25.10
+243 ;;^UTILITY(U,$J,358.3,25690,2)
+244 ;;=^5005283
+245 ;;^UTILITY(U,$J,358.3,25691,0)
+246 ;;=H35.3190^^79^1031^7
+247 ;;^UTILITY(U,$J,358.3,25691,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,25691,1,3,0)
+250 ;;=3^Nonexudative ARMD
+251 ;;^UTILITY(U,$J,358.3,25691,1,4,0)
+252 ;;=4^H35.3190
+253 ;;^UTILITY(U,$J,358.3,25691,2)
+254 ;;=^5138515
+255 ;;^UTILITY(U,$J,358.3,25692,0)
+256 ;;=H35.3290^^79^1031^6
+257 ;;^UTILITY(U,$J,358.3,25692,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,25692,1,3,0)
+260 ;;=3^Exudative ARMD
+261 ;;^UTILITY(U,$J,358.3,25692,1,4,0)
+262 ;;=4^H35.3290
+263 ;;^UTILITY(U,$J,358.3,25692,2)
+264 ;;=^5138532
+265 ;;^UTILITY(U,$J,358.3,25693,0)
+266 ;;=H40.1192^^79^1031^5
+267 ;;^UTILITY(U,$J,358.3,25693,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,25693,1,3,0)
+270 ;;=3^Glaucoma
+271 ;;^UTILITY(U,$J,358.3,25693,1,4,0)
+272 ;;=4^H40.1192
+273 ;;^UTILITY(U,$J,358.3,25693,2)
+274 ;;=^5138553
+275 ;;^UTILITY(U,$J,358.3,25694,0)
+276 ;;=H52.4^^79^1031^9
+277 ;;^UTILITY(U,$J,358.3,25694,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,25694,1,3,0)
+280 ;;=3^Presbyopia
+281 ;;^UTILITY(U,$J,358.3,25694,1,4,0)
+282 ;;=4^H52.4
+283 ;;^UTILITY(U,$J,358.3,25694,2)
+284 ;;=^98095
+285 ;;^UTILITY(U,$J,358.3,25695,0)
+286 ;;=H52.10^^79^1031^8
+287 ;;^UTILITY(U,$J,358.3,25695,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,25695,1,3,0)
+290 ;;=3^Myopia
+291 ;;^UTILITY(U,$J,358.3,25695,1,4,0)
+292 ;;=4^H52.10
+293 ;;^UTILITY(U,$J,358.3,25695,2)
+294 ;;=^5006263
+295 ;;^UTILITY(U,$J,358.3,25696,0)
+296 ;;=Q3014^^80^1032^6^^^^1
+297 ;;^UTILITY(U,$J,358.3,25696,1,0)
+298 ;;=^358.31IA^3^2
+299 ;;^UTILITY(U,$J,358.3,25696,1,2,0)
+300 ;;=2^Q3014
+301 ;;^UTILITY(U,$J,358.3,25696,1,3,0)
+302 ;;=3^TELEHEALTH FACILITY FEE
+303 ;;^UTILITY(U,$J,358.3,25697,0)
+304 ;;=92227^^80^1032^4^^^^1
+305 ;;^UTILITY(U,$J,358.3,25697,1,0)
+306 ;;=^358.31IA^3^2
+307 ;;^UTILITY(U,$J,358.3,25697,1,2,0)
+308 ;;=2^92227
+309 ;;^UTILITY(U,$J,358.3,25697,1,3,0)
+310 ;;=3^REMOTE DX RETINAL IMAGING
+311 ;;^UTILITY(U,$J,358.3,25698,0)
+312 ;;=92228^^80^1032^5^^^^1
+313 ;;^UTILITY(U,$J,358.3,25698,1,0)
+314 ;;=^358.31IA^3^2
+315 ;;^UTILITY(U,$J,358.3,25698,1,2,0)
+316 ;;=2^92228
+317 ;;^UTILITY(U,$J,358.3,25698,1,3,0)
+318 ;;=3^REMOTE IMAGING-RETINAL MGMT
+319 ;;^UTILITY(U,$J,358.3,25699,0)
+320 ;;=92250^^80^1032^2^^^^1
+321 ;;^UTILITY(U,$J,358.3,25699,1,0)
+322 ;;=^358.31IA^3^2
+323 ;;^UTILITY(U,$J,358.3,25699,1,2,0)
+324 ;;=2^92250
+325 ;;^UTILITY(U,$J,358.3,25699,1,3,0)
+326 ;;=3^FUNDUS PHOTO W/ INTERP & RPT
+327 ;;^UTILITY(U,$J,358.3,25700,0)
+328 ;;=T1014^^80^1032^7^^^^1
+329 ;;^UTILITY(U,$J,358.3,25700,1,0)
+330 ;;=^358.31IA^3^2
+331 ;;^UTILITY(U,$J,358.3,25700,1,2,0)
+332 ;;=2^T1014
+333 ;;^UTILITY(U,$J,358.3,25700,1,3,0)
+334 ;;=3^TELEHEALTH TRANSMIT, PER MIN
+335 ;;^UTILITY(U,$J,358.3,25701,0)
+336 ;;=3072F^^80^1032^3^^^^1
+337 ;;^UTILITY(U,$J,358.3,25701,1,0)
+338 ;;=^358.31IA^3^2
+339 ;;^UTILITY(U,$J,358.3,25701,1,2,0)
+340 ;;=2^3072F
+341 ;;^UTILITY(U,$J,358.3,25701,1,3,0)
+342 ;;=3^LOW RISK FOR RETINOPATHY
+343 ;;^UTILITY(U,$J,358.3,25702,0)
+344 ;;=99451^^80^1032^1^^^^1
+345 ;;^UTILITY(U,$J,358.3,25702,1,0)
+346 ;;=^358.31IA^3^2
+347 ;;^UTILITY(U,$J,358.3,25702,1,2,0)
+348 ;;=2^99451
+349 ;;^UTILITY(U,$J,358.3,25702,1,3,0)
+350 ;;=3^E-CONSULT 5 OR MORE MIN
+351 ;;^UTILITY(U,$J,358.3,25703,0)
+352 ;;=H54.3^^81^1033^2
+353 ;;^UTILITY(U,$J,358.3,25703,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,25703,1,3,0)
+356 ;;=3^Visual Loss,Both Eyes,Unqualified
+357 ;;^UTILITY(U,$J,358.3,25703,1,4,0)
+358 ;;=4^H54.3
+359 ;;^UTILITY(U,$J,358.3,25703,2)
+360 ;;=^268886
+361 ;;^UTILITY(U,$J,358.3,25704,0)
+362 ;;=H54.7^^81^1033^1
+363 ;;^UTILITY(U,$J,358.3,25704,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,25704,1,3,0)
+366 ;;=3^Visual Loss
+367 ;;^UTILITY(U,$J,358.3,25704,1,4,0)
+368 ;;=4^H54.7
+369 ;;^UTILITY(U,$J,358.3,25704,2)
+370 ;;=^5006368
+371 ;;^UTILITY(U,$J,358.3,25705,0)
+372 ;;=H54.8^^81^1033^44
+373 ;;^UTILITY(U,$J,358.3,25705,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,25705,1,3,0)
+376 ;;=3^Legal Blindness,as Defined in USA
+377 ;;^UTILITY(U,$J,358.3,25705,1,4,0)
+378 ;;=4^H54.8
+379 ;;^UTILITY(U,$J,358.3,25705,2)
+380 ;;=^5006369
+381 ;;^UTILITY(U,$J,358.3,25706,0)
+382 ;;=H54.40^^81^1033^6
+383 ;;^UTILITY(U,$J,358.3,25706,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,25706,1,3,0)
+386 ;;=3^Monocular,Blindness in One Eye
+387 ;;^UTILITY(U,$J,358.3,25706,1,4,0)
+388 ;;=4^H54.40
+389 ;;^UTILITY(U,$J,358.3,25706,2)
+390 ;;=^5006362
+391 ;;^UTILITY(U,$J,358.3,25707,0)
+392 ;;=H53.71^^81^1033^3
+393 ;;^UTILITY(U,$J,358.3,25707,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,25707,1,3,0)
+396 ;;=3^Glare Sensitivity
+397 ;;^UTILITY(U,$J,358.3,25707,1,4,0)
+398 ;;=4^H53.71
+399 ;;^UTILITY(U,$J,358.3,25707,2)
+400 ;;=^5006354
+401 ;;^UTILITY(U,$J,358.3,25708,0)
+402 ;;=H53.72^^81^1033^4
+403 ;;^UTILITY(U,$J,358.3,25708,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,25708,1,3,0)
+406 ;;=3^Impaired Contrast Sensitivity
+407 ;;^UTILITY(U,$J,358.3,25708,1,4,0)
+408 ;;=4^H53.72
+409 ;;^UTILITY(U,$J,358.3,25708,2)
+410 ;;=^5006355
+411 ;;^UTILITY(U,$J,358.3,25709,0)
+412 ;;=Z82.1^^81^1033^5
+413 ;;^UTILITY(U,$J,358.3,25709,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,25709,1,3,0)
+416 ;;=3^Family Hx Blindness/Visual Loss
+417 ;;^UTILITY(U,$J,358.3,25709,1,4,0)
+418 ;;=4^Z82.1
+419 ;;^UTILITY(U,$J,358.3,25709,2)
+420 ;;=^5063365
+421 ;;^UTILITY(U,$J,358.3,25710,0)
+422 ;;=H54.7^^81^1033^43
+423 ;;^UTILITY(U,$J,358.3,25710,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,25710,1,3,0)
+426 ;;=3^Visual Loss,Unspec
+427 ;;^UTILITY(U,$J,358.3,25710,1,4,0)
+428 ;;=4^H54.7
+429 ;;^UTILITY(U,$J,358.3,25710,2)
+430 ;;=^5006368
+431 ;;^UTILITY(U,$J,358.3,25711,0)
+432 ;;=H54.1213^^81^1033^7
+433 ;;^UTILITY(U,$J,358.3,25711,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,25711,1,3,0)
+436 ;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 3
+437 ;;^UTILITY(U,$J,358.3,25711,1,4,0)
+438 ;;=4^H54.1213
+439 ;;^UTILITY(U,$J,358.3,25711,2)
+440 ;;=^5151353
+441 ;;^UTILITY(U,$J,358.3,25712,0)
+442 ;;=H54.1214^^81^1033^8
+443 ;;^UTILITY(U,$J,358.3,25712,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,25712,1,3,0)
+446 ;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 4
+447 ;;^UTILITY(U,$J,358.3,25712,1,4,0)
+448 ;;=4^H54.1214
+449 ;;^UTILITY(U,$J,358.3,25712,2)
+450 ;;=^5151354
+451 ;;^UTILITY(U,$J,358.3,25713,0)
+452 ;;=H54.1215^^81^1033^9
+453 ;;^UTILITY(U,$J,358.3,25713,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,25713,1,3,0)
+456 ;;=3^Low Vision Rt Eye Category 1,Blindness Lt Eye Category 5
+457 ;;^UTILITY(U,$J,358.3,25713,1,4,0)
+458 ;;=4^H54.1215
+459 ;;^UTILITY(U,$J,358.3,25713,2)
+460 ;;=^5151355
+461 ;;^UTILITY(U,$J,358.3,25714,0)
+462 ;;=H54.1223^^81^1033^10
+463 ;;^UTILITY(U,$J,358.3,25714,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,25714,1,3,0)
+466 ;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 3
+467 ;;^UTILITY(U,$J,358.3,25714,1,4,0)
+468 ;;=4^H54.1223
+469 ;;^UTILITY(U,$J,358.3,25714,2)
+470 ;;=^5151356
+471 ;;^UTILITY(U,$J,358.3,25715,0)
+472 ;;=H54.1224^^81^1033^11
+473 ;;^UTILITY(U,$J,358.3,25715,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,25715,1,3,0)
+476 ;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 4
+477 ;;^UTILITY(U,$J,358.3,25715,1,4,0)
+478 ;;=4^H54.1224
+479 ;;^UTILITY(U,$J,358.3,25715,2)
+480 ;;=^5151357
+481 ;;^UTILITY(U,$J,358.3,25716,0)
+482 ;;=H54.1225^^81^1033^12
+483 ;;^UTILITY(U,$J,358.3,25716,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,25716,1,3,0)
+486 ;;=3^Low Vision Rt Eye Category 2,Blindness Lt Eye Category 5
+487 ;;^UTILITY(U,$J,358.3,25716,1,4,0)
+488 ;;=4^H54.1225
+489 ;;^UTILITY(U,$J,358.3,25716,2)
+490 ;;=^5151358
+491 ;;^UTILITY(U,$J,358.3,25717,0)
+492 ;;=H54.2X12^^81^1033^13
+493 ;;^UTILITY(U,$J,358.3,25717,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,25717,1,3,0)
+496 ;;=3^Low Vision Rt Eye Category 1,Low Vision Lt Eye Category 2
+497 ;;^UTILITY(U,$J,358.3,25717,1,4,0)
+498 ;;=4^H54.2X12
+499 ;;^UTILITY(U,$J,358.3,25717,2)
+500 ;;=^5151360
+501 ;;^UTILITY(U,$J,358.3,25718,0)
+502 ;;=H54.2X21^^81^1033^14
+503 ;;^UTILITY(U,$J,358.3,25718,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,25718,1,3,0)
+506 ;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 1
+507 ;;^UTILITY(U,$J,358.3,25718,1,4,0)
+508 ;;=4^H54.2X21
+509 ;;^UTILITY(U,$J,358.3,25718,2)
+510 ;;=^5151361
+511 ;;^UTILITY(U,$J,358.3,25719,0)
+512 ;;=H54.2X22^^81^1033^15
+513 ;;^UTILITY(U,$J,358.3,25719,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,25719,1,3,0)
+516 ;;=3^Low Vision Rt Eye Category 2,Low Vision Lt Eye Category 2
+517 ;;^UTILITY(U,$J,358.3,25719,1,4,0)
+518 ;;=4^H54.2X22
+519 ;;^UTILITY(U,$J,358.3,25719,2)
+520 ;;=^5151362
+521 ;;^UTILITY(U,$J,358.3,25720,0)
+522 ;;=H54.511A^^81^1033^16
+523 ;;^UTILITY(U,$J,358.3,25720,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,25720,1,3,0)
+526 ;;=3^Low Vision Rt Eye Category 1,Normal Vision Lt Eye
+527 ;;^UTILITY(U,$J,358.3,25720,1,4,0)
+528 ;;=4^H54.511A
+529 ;;^UTILITY(U,$J,358.3,25720,2)
+530 ;;=^5151369
+531 ;;^UTILITY(U,$J,358.3,25721,0)
+532 ;;=H54.512A^^81^1033^17
+533 ;;^UTILITY(U,$J,358.3,25721,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,25721,1,3,0)
+536 ;;=3^Low Vision Rt Eye Category 2,Normal Vision Lt Eye
+537 ;;^UTILITY(U,$J,358.3,25721,1,4,0)
+538 ;;=4^H54.512A
+539 ;;^UTILITY(U,$J,358.3,25721,2)
+540 ;;=^5151370
+541 ;;^UTILITY(U,$J,358.3,25722,0)
+542 ;;=H54.52A1^^81^1033^18
+543 ;;^UTILITY(U,$J,358.3,25722,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,25722,1,3,0)
+546 ;;=3^Low Vision Lt Eye Category 1,Normal Vision Rt Eye
+547 ;;^UTILITY(U,$J,358.3,25722,1,4,0)
+548 ;;=4^H54.52A1
+549 ;;^UTILITY(U,$J,358.3,25722,2)
+550 ;;=^5151371
+551 ;;^UTILITY(U,$J,358.3,25723,0)
+552 ;;=H54.52A2^^81^1033^19
+553 ;;^UTILITY(U,$J,358.3,25723,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,25723,1,3,0)
+556 ;;=3^Low Vision Lt Eye Category 2,Normal Vision Rt Eye
+557 ;;^UTILITY(U,$J,358.3,25723,1,4,0)
+558 ;;=4^H54.52A2
+559 ;;^UTILITY(U,$J,358.3,25723,2)
+560 ;;=^5151372
+561 ;;^UTILITY(U,$J,358.3,25724,0)
+562 ;;=H54.0X33^^81^1033^20
+563 ;;^UTILITY(U,$J,358.3,25724,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,25724,1,3,0)
+566 ;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 3
+567 ;;^UTILITY(U,$J,358.3,25724,1,4,0)
+568 ;;=4^H54.0X33
+569 ;;^UTILITY(U,$J,358.3,25724,2)
+570 ;;=^5151338
+571 ;;^UTILITY(U,$J,358.3,25725,0)
+572 ;;=H54.0X34^^81^1033^21
+573 ;;^UTILITY(U,$J,358.3,25725,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,25725,1,3,0)
+576 ;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 4
+577 ;;^UTILITY(U,$J,358.3,25725,1,4,0)
+578 ;;=4^H54.0X34
+579 ;;^UTILITY(U,$J,358.3,25725,2)
+580 ;;=^5151339
+581 ;;^UTILITY(U,$J,358.3,25726,0)
+582 ;;=H54.0X35^^81^1033^22
+583 ;;^UTILITY(U,$J,358.3,25726,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,25726,1,3,0)
+586 ;;=3^Blindness Rt Eye Category 3,Blindness Lt Eye Category 5
+587 ;;^UTILITY(U,$J,358.3,25726,1,4,0)
+588 ;;=4^H54.0X35
+589 ;;^UTILITY(U,$J,358.3,25726,2)
+590 ;;=^5151340
+591 ;;^UTILITY(U,$J,358.3,25727,0)
+592 ;;=H54.0X43^^81^1033^23
+593 ;;^UTILITY(U,$J,358.3,25727,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,25727,1,3,0)
+596 ;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 3
+597 ;;^UTILITY(U,$J,358.3,25727,1,4,0)
+598 ;;=4^H54.0X43
+599 ;;^UTILITY(U,$J,358.3,25727,2)
+600 ;;=^5151341
+601 ;;^UTILITY(U,$J,358.3,25728,0)
+602 ;;=H54.0X44^^81^1033^24
+603 ;;^UTILITY(U,$J,358.3,25728,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,25728,1,3,0)
+606 ;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 4
+607 ;;^UTILITY(U,$J,358.3,25728,1,4,0)
+608 ;;=4^H54.0X44
+609 ;;^UTILITY(U,$J,358.3,25728,2)
+610 ;;=^5151342
+611 ;;^UTILITY(U,$J,358.3,25729,0)
+612 ;;=H54.0X45^^81^1033^25
+613 ;;^UTILITY(U,$J,358.3,25729,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,25729,1,3,0)
+616 ;;=3^Blindness Rt Eye Category 4,Blindness Lt Eye Category 5
+617 ;;^UTILITY(U,$J,358.3,25729,1,4,0)
+618 ;;=4^H54.0X45
+619 ;;^UTILITY(U,$J,358.3,25729,2)
+620 ;;=^5151343
+621 ;;^UTILITY(U,$J,358.3,25730,0)
+622 ;;=H54.0X53^^81^1033^26
+623 ;;^UTILITY(U,$J,358.3,25730,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,25730,1,3,0)
+626 ;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 3
+627 ;;^UTILITY(U,$J,358.3,25730,1,4,0)
+628 ;;=4^H54.0X53
+629 ;;^UTILITY(U,$J,358.3,25730,2)
+630 ;;=^5151344
+631 ;;^UTILITY(U,$J,358.3,25731,0)
+632 ;;=H54.0X54^^81^1033^27
+633 ;;^UTILITY(U,$J,358.3,25731,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,25731,1,3,0)
+636 ;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 4
+637 ;;^UTILITY(U,$J,358.3,25731,1,4,0)
+638 ;;=4^H54.0X54
+639 ;;^UTILITY(U,$J,358.3,25731,2)
+640 ;;=^5151345
+641 ;;^UTILITY(U,$J,358.3,25732,0)
+642 ;;=H54.0X55^^81^1033^28
+643 ;;^UTILITY(U,$J,358.3,25732,1,0)
+644 ;;=^358.31IA^4^2
+645 ;;^UTILITY(U,$J,358.3,25732,1,3,0)
+646 ;;=3^Blindness Rt Eye Category 5,Blindness Lt Eye Category 5
+647 ;;^UTILITY(U,$J,358.3,25732,1,4,0)
+648 ;;=4^H54.0X55
+649 ;;^UTILITY(U,$J,358.3,25732,2)
+650 ;;=^5151346
+651 ;;^UTILITY(U,$J,358.3,25733,0)
+652 ;;=H54.10^^81^1033^29
+653 ;;^UTILITY(U,$J,358.3,25733,1,0)
+654 ;;=^358.31IA^4^2
+655 ;;^UTILITY(U,$J,358.3,25733,1,3,0)
+656 ;;=3^Blindness,One Eye,Low Vision Other Eye,Unspec Eyes
+657 ;;^UTILITY(U,$J,358.3,25733,1,4,0)
+658 ;;=4^H54.10
+659 ;;^UTILITY(U,$J,358.3,25733,2)
+660 ;;=^5006358
+661 ;;^UTILITY(U,$J,358.3,25734,0)
+662 ;;=H54.1131^^81^1033^30
+663 ;;^UTILITY(U,$J,358.3,25734,1,0)
+664 ;;=^358.31IA^4^2
