IBDEI010 ; ; 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,1913,0)
;;=E11.3491^^16^126^111
;;^UTILITY(U,$J,358.3,1913,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1913,1,3,0)
;;=3^Diabetes Type 2 w/ Severe Nonprlf Diab Rtnop w/o Mac Edema,Rt Eye
;;^UTILITY(U,$J,358.3,1913,1,4,0)
;;=4^E11.3491
;;^UTILITY(U,$J,358.3,1913,2)
;;=^5138351
;;^UTILITY(U,$J,358.3,1914,0)
;;=E11.3492^^16^126^112
;;^UTILITY(U,$J,358.3,1914,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1914,1,3,0)
;;=3^Diabetes Type 2 w/ Severe Nonprlf Diab Rtnop w/o Mac Edema,Lt Eye
;;^UTILITY(U,$J,358.3,1914,1,4,0)
;;=4^E11.3492
;;^UTILITY(U,$J,358.3,1914,2)
;;=^5138352
;;^UTILITY(U,$J,358.3,1915,0)
;;=E11.3493^^16^126^113
;;^UTILITY(U,$J,358.3,1915,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1915,1,3,0)
;;=3^Diabetes Type 2 w/ Severe Nonprlf Diab Rtnop w/o Mac Edema,Bilateral
;;^UTILITY(U,$J,358.3,1915,1,4,0)
;;=4^E11.3493
;;^UTILITY(U,$J,358.3,1915,2)
;;=^5138353
;;^UTILITY(U,$J,358.3,1916,0)
;;=E10.37X1^^16^126^6
;;^UTILITY(U,$J,358.3,1916,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1916,1,3,0)
;;=3^Diabetes Type 1 w/ Diabetic Macular Edema,Resolved S/P Tx,Right Eye
;;^UTILITY(U,$J,358.3,1916,1,4,0)
;;=4^E10.37X1
;;^UTILITY(U,$J,358.3,1916,2)
;;=^5138327
;;^UTILITY(U,$J,358.3,1917,0)
;;=E10.37X2^^16^126^7
;;^UTILITY(U,$J,358.3,1917,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1917,1,3,0)
;;=3^Diabetes Type 1 w/ Diabetic Macular Edema,Resolved S/P Tx,Left Eye
;;^UTILITY(U,$J,358.3,1917,1,4,0)
;;=4^E10.37X2
;;^UTILITY(U,$J,358.3,1917,2)
;;=^5138328
;;^UTILITY(U,$J,358.3,1918,0)
;;=E10.37X3^^16^126^8
;;^UTILITY(U,$J,358.3,1918,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1918,1,3,0)
;;=3^Diabetes Type 1 w/ Diabetic Macular Edema,Resolved S/P Tx,Bilateral
;;^UTILITY(U,$J,358.3,1918,1,4,0)
;;=4^E10.37X3
;;^UTILITY(U,$J,358.3,1918,2)
;;=^5138329
;;^UTILITY(U,$J,358.3,1919,0)
;;=E10.3521^^16^126^47
;;^UTILITY(U,$J,358.3,1919,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1919,1,3,0)
;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Dtch Macula,Right Eye
;;^UTILITY(U,$J,358.3,1919,1,4,0)
;;=4^E10.3521
;;^UTILITY(U,$J,358.3,1919,2)
;;=^5138307
;;^UTILITY(U,$J,358.3,1920,0)
;;=E10.3522^^16^126^48
;;^UTILITY(U,$J,358.3,1920,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1920,1,3,0)
;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Dtch Macula,Left Eye
;;^UTILITY(U,$J,358.3,1920,1,4,0)
;;=4^E10.3522
;;^UTILITY(U,$J,358.3,1920,2)
;;=^5138308
;;^UTILITY(U,$J,358.3,1921,0)
;;=E10.3523^^16^126^49
;;^UTILITY(U,$J,358.3,1921,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1921,1,3,0)
;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Dtch Macula,Bilateral
;;^UTILITY(U,$J,358.3,1921,1,4,0)
;;=4^E10.3523
;;^UTILITY(U,$J,358.3,1921,2)
;;=^5138309
;;^UTILITY(U,$J,358.3,1922,0)
;;=E10.3541^^16^126^50
;;^UTILITY(U,$J,358.3,1922,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1922,1,3,0)
;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Comb Detach,Right Eye
;;^UTILITY(U,$J,358.3,1922,1,4,0)
;;=4^E10.3541
;;^UTILITY(U,$J,358.3,1922,2)
;;=^5138315
;;^UTILITY(U,$J,358.3,1923,0)
;;=E10.3542^^16^126^51
;;^UTILITY(U,$J,358.3,1923,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1923,1,3,0)
;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Comb Detach,Left Eye
;;^UTILITY(U,$J,358.3,1923,1,4,0)
;;=4^E10.3542
;;^UTILITY(U,$J,358.3,1923,2)
;;=^5138316
;;^UTILITY(U,$J,358.3,1924,0)
;;=E10.3543^^16^126^52
;;^UTILITY(U,$J,358.3,1924,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1924,1,3,0)
;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Comb Detach,Bilateral
;;^UTILITY(U,$J,358.3,1924,1,4,0)
;;=4^E10.3543
;;^UTILITY(U,$J,358.3,1924,2)
;;=^5138317
;;^UTILITY(U,$J,358.3,1925,0)
;;=E10.3551^^16^126^59
;;^UTILITY(U,$J,358.3,1925,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1925,1,3,0)
;;=3^Diabetes Type 1 w/ Stable Prolif Diab Rtnop,Right Eye
;;^UTILITY(U,$J,358.3,1925,1,4,0)
;;=4^E10.3551
;;^UTILITY(U,$J,358.3,1925,2)
;;=^5138319
;;^UTILITY(U,$J,358.3,1926,0)
;;=E10.3552^^16^126^60
;;^UTILITY(U,$J,358.3,1926,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1926,1,3,0)
;;=3^Diabetes Type 1 w/ Stable Prolif Diab Rtnop,Left Eye
;;^UTILITY(U,$J,358.3,1926,1,4,0)
;;=4^E10.3552
;;^UTILITY(U,$J,358.3,1926,2)
;;=^5138320
;;^UTILITY(U,$J,358.3,1927,0)
;;=E10.3553^^16^126^61
;;^UTILITY(U,$J,358.3,1927,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1927,1,3,0)
;;=3^Diabetes Type 1 w/ Stable Prolif Diab Rtnop,Bilateral
;;^UTILITY(U,$J,358.3,1927,1,4,0)
;;=4^E10.3553
;;^UTILITY(U,$J,358.3,1927,2)
;;=^5138321
;;^UTILITY(U,$J,358.3,1928,0)
;;=E11.3521^^16^126^99
;;^UTILITY(U,$J,358.3,1928,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1928,1,3,0)
;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch Macular,Right Eye
;;^UTILITY(U,$J,358.3,1928,1,4,0)
;;=4^E11.3521
;;^UTILITY(U,$J,358.3,1928,2)
;;=^5138359
;;^UTILITY(U,$J,358.3,1929,0)
;;=E11.3522^^16^126^100
;;^UTILITY(U,$J,358.3,1929,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1929,1,3,0)
;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch Macular,Left Eye
;;^UTILITY(U,$J,358.3,1929,1,4,0)
;;=4^E11.3522
;;^UTILITY(U,$J,358.3,1929,2)
;;=^5138360
;;^UTILITY(U,$J,358.3,1930,0)
;;=E11.3523^^16^126^101
;;^UTILITY(U,$J,358.3,1930,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1930,1,3,0)
;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch Macular,Bilateral
;;^UTILITY(U,$J,358.3,1930,1,4,0)
;;=4^E11.3523
;;^UTILITY(U,$J,358.3,1930,2)
;;=^5138361
;;^UTILITY(U,$J,358.3,1931,0)
;;=E11.3531^^16^126^102
;;^UTILITY(U,$J,358.3,1931,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1931,1,3,0)
;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch w/o Mac,Rt Eye
;;^UTILITY(U,$J,358.3,1931,1,4,0)
;;=4^E11.3531
;;^UTILITY(U,$J,358.3,1931,2)
;;=^5138363
;;^UTILITY(U,$J,358.3,1932,0)
;;=E11.3532^^16^126^103
;;^UTILITY(U,$J,358.3,1932,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1932,1,3,0)
;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch w/o Mac,Lt Eye
;;^UTILITY(U,$J,358.3,1932,1,4,0)
;;=4^E11.3532
;;^UTILITY(U,$J,358.3,1932,2)
;;=^5138364
;;^UTILITY(U,$J,358.3,1933,0)
;;=E11.3533^^16^126^104
;;^UTILITY(U,$J,358.3,1933,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1933,1,3,0)
;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch w/o Mac,Bil
;;^UTILITY(U,$J,358.3,1933,1,4,0)
;;=4^E11.3533
;;^UTILITY(U,$J,358.3,1933,2)
;;=^5138365
;;^UTILITY(U,$J,358.3,1934,0)
;;=E11.3541^^16^126^105
;;^UTILITY(U,$J,358.3,1934,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1934,1,3,0)
;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Comb Detach,Right Eye
;;^UTILITY(U,$J,358.3,1934,1,4,0)
;;=4^E11.3541
;;^UTILITY(U,$J,358.3,1934,2)
;;=^5138367
;;^UTILITY(U,$J,358.3,1935,0)
;;=E11.3542^^16^126^106
;;^UTILITY(U,$J,358.3,1935,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1935,1,3,0)
;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Comb Detach,Left Eye
;;^UTILITY(U,$J,358.3,1935,1,4,0)
;;=4^E11.3542
;;^UTILITY(U,$J,358.3,1935,2)
;;=^5138368
;;^UTILITY(U,$J,358.3,1936,0)
;;=E11.3543^^16^126^107
;;^UTILITY(U,$J,358.3,1936,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1936,1,3,0)
;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Comb Detach,Bilateral
;;^UTILITY(U,$J,358.3,1936,1,4,0)
;;=4^E11.3543
;;^UTILITY(U,$J,358.3,1936,2)
;;=^5138369
;;^UTILITY(U,$J,358.3,1937,0)
;;=E11.3551^^16^126^114
;;^UTILITY(U,$J,358.3,1937,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1937,1,3,0)
;;=3^Diabetes Type 2 w/ Stable Prolif Diab Rtnop,Right Eye
;;^UTILITY(U,$J,358.3,1937,1,4,0)
;;=4^E11.3551
;;^UTILITY(U,$J,358.3,1937,2)
;;=^5138371
;;^UTILITY(U,$J,358.3,1938,0)
;;=E11.3552^^16^126^115
;;^UTILITY(U,$J,358.3,1938,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1938,1,3,0)
;;=3^Diabetes Type 2 w/ Stable Prolif Diab Rtnop,Left Eye
;;^UTILITY(U,$J,358.3,1938,1,4,0)
;;=4^E11.3552
;;^UTILITY(U,$J,358.3,1938,2)
;;=^5138372
;;^UTILITY(U,$J,358.3,1939,0)
;;=E11.3553^^16^126^116
;;^UTILITY(U,$J,358.3,1939,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1939,1,3,0)
;;=3^Diabetes Type 2 w/ Stable Prolif Diab Rtnop,Bilateral
;;^UTILITY(U,$J,358.3,1939,1,4,0)
;;=4^E11.3553
;;^UTILITY(U,$J,358.3,1939,2)
;;=^5138373
;;^UTILITY(U,$J,358.3,1940,0)
;;=H54.8^^16^127^26
;;^UTILITY(U,$J,358.3,1940,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1940,1,3,0)
;;=3^Legal Blindness (Defined in USA)
;;^UTILITY(U,$J,358.3,1940,1,4,0)
;;=4^H54.8
;;^UTILITY(U,$J,358.3,1940,2)
;;=^5006369
;;^UTILITY(U,$J,358.3,1941,0)
;;=H54.10^^16^127^22
;;^UTILITY(U,$J,358.3,1941,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1941,1,3,0)
;;=3^Blindness One Eye,Low Vision-Unspec Eye
;;^UTILITY(U,$J,358.3,1941,1,4,0)
;;=4^H54.10
;;^UTILITY(U,$J,358.3,1941,2)
;;=^5006358
;;^UTILITY(U,$J,358.3,1942,0)
;;=H54.3^^16^127^41
;;^UTILITY(U,$J,358.3,1942,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1942,1,3,0)
;;=3^Visual Loss,Both Eyes,Unqualified
;;^UTILITY(U,$J,358.3,1942,1,4,0)
;;=4^H54.3
;;^UTILITY(U,$J,358.3,1942,2)
;;=^268886
;;^UTILITY(U,$J,358.3,1943,0)
;;=H54.42A3^^16^127^19
;;^UTILITY(U,$J,358.3,1943,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1943,1,3,0)
;;=3^Blindness OS Category 3,Normal Vision OD
;;^UTILITY(U,$J,358.3,1943,1,4,0)
;;=4^H54.42A3
;;^UTILITY(U,$J,358.3,1943,2)
;;=^5151366
;;^UTILITY(U,$J,358.3,1944,0)
;;=H54.42A4^^16^127^20
;;^UTILITY(U,$J,358.3,1944,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1944,1,3,0)
;;=3^Blindness OS Category 4,Normal Vision OD
;;^UTILITY(U,$J,358.3,1944,1,4,0)
;;=4^H54.42A4
;;^UTILITY(U,$J,358.3,1944,2)
;;=^5151367
;;^UTILITY(U,$J,358.3,1945,0)
;;=H54.42A5^^16^127^21
;;^UTILITY(U,$J,358.3,1945,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1945,1,3,0)
;;=3^Blindness OS Category 5,Normal Vision OD
;;^UTILITY(U,$J,358.3,1945,1,4,0)
;;=4^H54.42A5
;;^UTILITY(U,$J,358.3,1945,2)
;;=^5151368
;;^UTILITY(U,$J,358.3,1946,0)
;;=H54.0X33^^16^127^1
;;^UTILITY(U,$J,358.3,1946,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1946,1,3,0)
;;=3^Blindness OD Category 3,Blindness OS Category 3
;;^UTILITY(U,$J,358.3,1946,1,4,0)
;;=4^H54.0X33
;;^UTILITY(U,$J,358.3,1946,2)
;;=^5151338
;;^UTILITY(U,$J,358.3,1947,0)
;;=H54.0X34^^16^127^2
;;^UTILITY(U,$J,358.3,1947,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1947,1,3,0)
;;=3^Blindness OD Category 3,Blindness OS Category 4
;;^UTILITY(U,$J,358.3,1947,1,4,0)
;;=4^H54.0X34
;;^UTILITY(U,$J,358.3,1947,2)
;;=^5151339
;;^UTILITY(U,$J,358.3,1948,0)
;;=H54.0X35^^16^127^3
;;^UTILITY(U,$J,358.3,1948,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1948,1,3,0)
;;=3^Blindness OD Category 3,Blindness OS Category 5
;;^UTILITY(U,$J,358.3,1948,1,4,0)
;;=4^H54.0X35
;;^UTILITY(U,$J,358.3,1948,2)
;;=^5151340
;;^UTILITY(U,$J,358.3,1949,0)
;;=H54.413A^^16^127^6
;;^UTILITY(U,$J,358.3,1949,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1949,1,3,0)
;;=3^Blindness OD Category 3,Normal Vision OS
;;^UTILITY(U,$J,358.3,1949,1,4,0)
;;=4^H54.413A
;;^UTILITY(U,$J,358.3,1949,2)
;;=^5151363
;;^UTILITY(U,$J,358.3,1950,0)
;;=H54.0X43^^16^127^7
;;^UTILITY(U,$J,358.3,1950,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1950,1,3,0)
;;=3^Blindness OD Category 4,Blindness OS Category 3
;;^UTILITY(U,$J,358.3,1950,1,4,0)
;;=4^H54.0X43
;;^UTILITY(U,$J,358.3,1950,2)
;;=^5151341
;;^UTILITY(U,$J,358.3,1951,0)
;;=H54.0X44^^16^127^8
;;^UTILITY(U,$J,358.3,1951,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1951,1,3,0)
;;=3^Blindness OD Category 4,Blindness OS Category 4
;;^UTILITY(U,$J,358.3,1951,1,4,0)
;;=4^H54.0X44
;;^UTILITY(U,$J,358.3,1951,2)
;;=^5151342
;;^UTILITY(U,$J,358.3,1952,0)
;;=H54.0X45^^16^127^9
;;^UTILITY(U,$J,358.3,1952,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1952,1,3,0)
;;=3^Blindness OD Category 4,Blindness OS Category 5
;;^UTILITY(U,$J,358.3,1952,1,4,0)
;;=4^H54.0X45
;;^UTILITY(U,$J,358.3,1952,2)
;;=^5151343
;;^UTILITY(U,$J,358.3,1953,0)
;;=H54.414A^^16^127^12
;;^UTILITY(U,$J,358.3,1953,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1953,1,3,0)
;;=3^Blindness OD Category 4,Normal Vision OS
;;^UTILITY(U,$J,358.3,1953,1,4,0)
;;=4^H54.414A
;;^UTILITY(U,$J,358.3,1953,2)
;;=^5151364
;;^UTILITY(U,$J,358.3,1954,0)
;;=H54.0X53^^16^127^13
;;^UTILITY(U,$J,358.3,1954,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1954,1,3,0)
;;=3^Blindness OD Category 5,Blindness OS Category 3
;;^UTILITY(U,$J,358.3,1954,1,4,0)
;;=4^H54.0X53
;;^UTILITY(U,$J,358.3,1954,2)
;;=^5151344
;;^UTILITY(U,$J,358.3,1955,0)
;;=H54.0X54^^16^127^14
;;^UTILITY(U,$J,358.3,1955,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1955,1,3,0)
;;=3^Blindness OD Category 5,Blindness OS Category 4
;;^UTILITY(U,$J,358.3,1955,1,4,0)
;;=4^H54.0X54
;;^UTILITY(U,$J,358.3,1955,2)
;;=^5151345
;;^UTILITY(U,$J,358.3,1956,0)
;;=H54.0X55^^16^127^15
;;^UTILITY(U,$J,358.3,1956,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1956,1,3,0)
;;=3^Blindness OD Category 5,Blindness OS Category 5
;;^UTILITY(U,$J,358.3,1956,1,4,0)
;;=4^H54.0X55
;;^UTILITY(U,$J,358.3,1956,2)
;;=^5151346
;;^UTILITY(U,$J,358.3,1957,0)
;;=H54.415A^^16^127^18
;;^UTILITY(U,$J,358.3,1957,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1957,1,3,0)
;;=3^Blindness OD Category 5,Normal Vision OS
;;^UTILITY(U,$J,358.3,1957,1,4,0)
;;=4^H54.415A
;;^UTILITY(U,$J,358.3,1957,2)
;;=^5151365
;;^UTILITY(U,$J,358.3,1958,0)
;;=H54.52A1^^16^127^39
;;^UTILITY(U,$J,358.3,1958,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1958,1,3,0)
;;=3^Low Vision OS Category 1,Normal Vision OD
;;^UTILITY(U,$J,358.3,1958,1,4,0)
;;=4^H54.52A1
;;^UTILITY(U,$J,358.3,1958,2)
;;=^5151371
;;^UTILITY(U,$J,358.3,1959,0)
;;=H54.52A2^^16^127^40
;;^UTILITY(U,$J,358.3,1959,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1959,1,3,0)
;;=3^Low Vision OS Category 2,Normal Vision OD
;;^UTILITY(U,$J,358.3,1959,1,4,0)
;;=4^H54.52A2
;;^UTILITY(U,$J,358.3,1959,2)
;;=^5151372
;;^UTILITY(U,$J,358.3,1960,0)
;;=H54.1213^^16^127^27
;;^UTILITY(U,$J,358.3,1960,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1960,1,3,0)
;;=3^Low Vision OD Category 1,Blindness OS Category 3
;;^UTILITY(U,$J,358.3,1960,1,4,0)
;;=4^H54.1213
;;^UTILITY(U,$J,358.3,1960,2)
;;=^5151353
;;^UTILITY(U,$J,358.3,1961,0)
;;=H54.1214^^16^127^28
;;^UTILITY(U,$J,358.3,1961,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1961,1,3,0)
;;=3^Low Vision OD Category 1,Blindness OS Category 4
;;^UTILITY(U,$J,358.3,1961,1,4,0)
;;=4^H54.1214
;;^UTILITY(U,$J,358.3,1961,2)
;;=^5151354
;;^UTILITY(U,$J,358.3,1962,0)
;;=H54.1215^^16^127^29
;;^UTILITY(U,$J,358.3,1962,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1962,1,3,0)
;;=3^Low Vision OD Category 1,Blindness OS Category 5
;;^UTILITY(U,$J,358.3,1962,1,4,0)
;;=4^H54.1215
;;^UTILITY(U,$J,358.3,1962,2)
;;=^5151355
;;^UTILITY(U,$J,358.3,1963,0)
;;=H54.2X11^^16^127^30
;;^UTILITY(U,$J,358.3,1963,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1963,1,3,0)
;;=3^Low Vision OD Category 1,Low Vision OS Category 1
;;^UTILITY(U,$J,358.3,1963,1,4,0)
;;=4^H54.2X11
;;^UTILITY(U,$J,358.3,1963,2)
;;=^5151359
;;^UTILITY(U,$J,358.3,1964,0)
;;=H54.2X12^^16^127^31
;;^UTILITY(U,$J,358.3,1964,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1964,1,3,0)
;;=3^Low Vision OD Category 1,Low Vision OS Category 2
;;^UTILITY(U,$J,358.3,1964,1,4,0)
;;=4^H54.2X12
;;^UTILITY(U,$J,358.3,1964,2)
;;=^5151360
;;^UTILITY(U,$J,358.3,1965,0)
;;=H54.511A^^16^127^32
;;^UTILITY(U,$J,358.3,1965,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1965,1,3,0)
;;=3^Low Vision OD Category 1,Normal Vision OS
;;^UTILITY(U,$J,358.3,1965,1,4,0)
;;=4^H54.511A
;;^UTILITY(U,$J,358.3,1965,2)
;;=^5151369
;;^UTILITY(U,$J,358.3,1966,0)
;;=H54.1223^^16^127^33
;;^UTILITY(U,$J,358.3,1966,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1966,1,3,0)
;;=3^Low Vision OD Category 2,Blindness OS Category 3
;;^UTILITY(U,$J,358.3,1966,1,4,0)
;;=4^H54.1223
;;^UTILITY(U,$J,358.3,1966,2)
;;=^5151356
;;^UTILITY(U,$J,358.3,1967,0)
;;=H54.1224^^16^127^34
;;^UTILITY(U,$J,358.3,1967,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1967,1,3,0)
;;=3^Low Vision OD Category 2,Blindness OS Category 4
;;^UTILITY(U,$J,358.3,1967,1,4,0)
;;=4^H54.1224
;;^UTILITY(U,$J,358.3,1967,2)
;;=^5151357
;;^UTILITY(U,$J,358.3,1968,0)
;;=H54.1225^^16^127^35
;;^UTILITY(U,$J,358.3,1968,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1968,1,3,0)
;;=3^Low Vision OD Category 2,Blindness OS Category 5
;;^UTILITY(U,$J,358.3,1968,1,4,0)
;;=4^H54.1225
;;^UTILITY(U,$J,358.3,1968,2)
;;=^5151358
;;^UTILITY(U,$J,358.3,1969,0)
;;=H54.2X21^^16^127^36
;;^UTILITY(U,$J,358.3,1969,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1969,1,3,0)
;;=3^Low Vision OD Category 2,Low Vision OS Category 1
;;^UTILITY(U,$J,358.3,1969,1,4,0)
;;=4^H54.2X21
;;^UTILITY(U,$J,358.3,1969,2)
;;=^5151361
;;^UTILITY(U,$J,358.3,1970,0)
;;=H54.2X22^^16^127^37
;;^UTILITY(U,$J,358.3,1970,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1970,1,3,0)
;;=3^Low Vision OD Category 2,Low Vision OS Category 2
;;^UTILITY(U,$J,358.3,1970,1,4,0)
;;=4^H54.2X22
;;^UTILITY(U,$J,358.3,1970,2)
;;=^5151362
;;^UTILITY(U,$J,358.3,1971,0)
;;=H54.512A^^16^127^38
;;^UTILITY(U,$J,358.3,1971,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1971,1,3,0)
;;=3^Low Vision OD Category 2,Normal Vision OS
;;^UTILITY(U,$J,358.3,1971,1,4,0)
;;=4^H54.512A
;;^UTILITY(U,$J,358.3,1971,2)
;;=^5151370
;;^UTILITY(U,$J,358.3,1972,0)
;;=H54.1131^^16^127^4
;;^UTILITY(U,$J,358.3,1972,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1972,1,3,0)
;;=3^Blindness OD Category 3,Low Vision OS Category 1
;;^UTILITY(U,$J,358.3,1972,1,4,0)
;;=4^H54.1131
;;^UTILITY(U,$J,358.3,1972,2)
;;=^5151347
;;^UTILITY(U,$J,358.3,1973,0)
;;=H54.1132^^16^127^5
;;^UTILITY(U,$J,358.3,1973,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1973,1,3,0)
;;=3^Blindness OD Category 3,Low Vision OS Category 2
;;^UTILITY(U,$J,358.3,1973,1,4,0)
;;=4^H54.1132
;;^UTILITY(U,$J,358.3,1973,2)
;;=^5151348
;;^UTILITY(U,$J,358.3,1974,0)
;;=H54.1141^^16^127^10
;;^UTILITY(U,$J,358.3,1974,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1974,1,3,0)
;;=3^Blindness OD Category 4,Low Vision OS Category 1
;;^UTILITY(U,$J,358.3,1974,1,4,0)
;;=4^H54.1141
;;^UTILITY(U,$J,358.3,1974,2)
;;=^5151349
;;^UTILITY(U,$J,358.3,1975,0)
;;=H54.1142^^16^127^11
;;^UTILITY(U,$J,358.3,1975,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1975,1,3,0)
;;=3^Blindness OD Category 4,Low Vision OS Category 2
;;^UTILITY(U,$J,358.3,1975,1,4,0)
;;=4^H54.1142
;;^UTILITY(U,$J,358.3,1975,2)
;;=^5151350
;;^UTILITY(U,$J,358.3,1976,0)
;;=H54.1151^^16^127^16
;;^UTILITY(U,$J,358.3,1976,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,1976,1,3,0)
;;=3^Blindness OD Category 5,Low Vision OS Category 1
;;^UTILITY(U,$J,358.3,1976,1,4,0)
;;=4^H54.1151
;;^UTILITY(U,$J,358.3,1976,2)
;;=^5151351
;;^UTILITY(U,$J,358.3,1977,0)
;;=H54.1152^^16^127^17
;;^UTILITY(U,$J,358.3,1977,1,0)
;;=^358.31IA^4^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI010 19789 printed Dec 13, 2024@01:39:29 Page 2
IBDEI010 ; ; 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,1913,0)
+2 ;;=E11.3491^^16^126^111
+3 ;;^UTILITY(U,$J,358.3,1913,1,0)
+4 ;;=^358.31IA^4^2
+5 ;;^UTILITY(U,$J,358.3,1913,1,3,0)
+6 ;;=3^Diabetes Type 2 w/ Severe Nonprlf Diab Rtnop w/o Mac Edema,Rt Eye
+7 ;;^UTILITY(U,$J,358.3,1913,1,4,0)
+8 ;;=4^E11.3491
+9 ;;^UTILITY(U,$J,358.3,1913,2)
+10 ;;=^5138351
+11 ;;^UTILITY(U,$J,358.3,1914,0)
+12 ;;=E11.3492^^16^126^112
+13 ;;^UTILITY(U,$J,358.3,1914,1,0)
+14 ;;=^358.31IA^4^2
+15 ;;^UTILITY(U,$J,358.3,1914,1,3,0)
+16 ;;=3^Diabetes Type 2 w/ Severe Nonprlf Diab Rtnop w/o Mac Edema,Lt Eye
+17 ;;^UTILITY(U,$J,358.3,1914,1,4,0)
+18 ;;=4^E11.3492
+19 ;;^UTILITY(U,$J,358.3,1914,2)
+20 ;;=^5138352
+21 ;;^UTILITY(U,$J,358.3,1915,0)
+22 ;;=E11.3493^^16^126^113
+23 ;;^UTILITY(U,$J,358.3,1915,1,0)
+24 ;;=^358.31IA^4^2
+25 ;;^UTILITY(U,$J,358.3,1915,1,3,0)
+26 ;;=3^Diabetes Type 2 w/ Severe Nonprlf Diab Rtnop w/o Mac Edema,Bilateral
+27 ;;^UTILITY(U,$J,358.3,1915,1,4,0)
+28 ;;=4^E11.3493
+29 ;;^UTILITY(U,$J,358.3,1915,2)
+30 ;;=^5138353
+31 ;;^UTILITY(U,$J,358.3,1916,0)
+32 ;;=E10.37X1^^16^126^6
+33 ;;^UTILITY(U,$J,358.3,1916,1,0)
+34 ;;=^358.31IA^4^2
+35 ;;^UTILITY(U,$J,358.3,1916,1,3,0)
+36 ;;=3^Diabetes Type 1 w/ Diabetic Macular Edema,Resolved S/P Tx,Right Eye
+37 ;;^UTILITY(U,$J,358.3,1916,1,4,0)
+38 ;;=4^E10.37X1
+39 ;;^UTILITY(U,$J,358.3,1916,2)
+40 ;;=^5138327
+41 ;;^UTILITY(U,$J,358.3,1917,0)
+42 ;;=E10.37X2^^16^126^7
+43 ;;^UTILITY(U,$J,358.3,1917,1,0)
+44 ;;=^358.31IA^4^2
+45 ;;^UTILITY(U,$J,358.3,1917,1,3,0)
+46 ;;=3^Diabetes Type 1 w/ Diabetic Macular Edema,Resolved S/P Tx,Left Eye
+47 ;;^UTILITY(U,$J,358.3,1917,1,4,0)
+48 ;;=4^E10.37X2
+49 ;;^UTILITY(U,$J,358.3,1917,2)
+50 ;;=^5138328
+51 ;;^UTILITY(U,$J,358.3,1918,0)
+52 ;;=E10.37X3^^16^126^8
+53 ;;^UTILITY(U,$J,358.3,1918,1,0)
+54 ;;=^358.31IA^4^2
+55 ;;^UTILITY(U,$J,358.3,1918,1,3,0)
+56 ;;=3^Diabetes Type 1 w/ Diabetic Macular Edema,Resolved S/P Tx,Bilateral
+57 ;;^UTILITY(U,$J,358.3,1918,1,4,0)
+58 ;;=4^E10.37X3
+59 ;;^UTILITY(U,$J,358.3,1918,2)
+60 ;;=^5138329
+61 ;;^UTILITY(U,$J,358.3,1919,0)
+62 ;;=E10.3521^^16^126^47
+63 ;;^UTILITY(U,$J,358.3,1919,1,0)
+64 ;;=^358.31IA^4^2
+65 ;;^UTILITY(U,$J,358.3,1919,1,3,0)
+66 ;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Dtch Macula,Right Eye
+67 ;;^UTILITY(U,$J,358.3,1919,1,4,0)
+68 ;;=4^E10.3521
+69 ;;^UTILITY(U,$J,358.3,1919,2)
+70 ;;=^5138307
+71 ;;^UTILITY(U,$J,358.3,1920,0)
+72 ;;=E10.3522^^16^126^48
+73 ;;^UTILITY(U,$J,358.3,1920,1,0)
+74 ;;=^358.31IA^4^2
+75 ;;^UTILITY(U,$J,358.3,1920,1,3,0)
+76 ;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Dtch Macula,Left Eye
+77 ;;^UTILITY(U,$J,358.3,1920,1,4,0)
+78 ;;=4^E10.3522
+79 ;;^UTILITY(U,$J,358.3,1920,2)
+80 ;;=^5138308
+81 ;;^UTILITY(U,$J,358.3,1921,0)
+82 ;;=E10.3523^^16^126^49
+83 ;;^UTILITY(U,$J,358.3,1921,1,0)
+84 ;;=^358.31IA^4^2
+85 ;;^UTILITY(U,$J,358.3,1921,1,3,0)
+86 ;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Dtch Macula,Bilateral
+87 ;;^UTILITY(U,$J,358.3,1921,1,4,0)
+88 ;;=4^E10.3523
+89 ;;^UTILITY(U,$J,358.3,1921,2)
+90 ;;=^5138309
+91 ;;^UTILITY(U,$J,358.3,1922,0)
+92 ;;=E10.3541^^16^126^50
+93 ;;^UTILITY(U,$J,358.3,1922,1,0)
+94 ;;=^358.31IA^4^2
+95 ;;^UTILITY(U,$J,358.3,1922,1,3,0)
+96 ;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Comb Detach,Right Eye
+97 ;;^UTILITY(U,$J,358.3,1922,1,4,0)
+98 ;;=4^E10.3541
+99 ;;^UTILITY(U,$J,358.3,1922,2)
+100 ;;=^5138315
+101 ;;^UTILITY(U,$J,358.3,1923,0)
+102 ;;=E10.3542^^16^126^51
+103 ;;^UTILITY(U,$J,358.3,1923,1,0)
+104 ;;=^358.31IA^4^2
+105 ;;^UTILITY(U,$J,358.3,1923,1,3,0)
+106 ;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Comb Detach,Left Eye
+107 ;;^UTILITY(U,$J,358.3,1923,1,4,0)
+108 ;;=4^E10.3542
+109 ;;^UTILITY(U,$J,358.3,1923,2)
+110 ;;=^5138316
+111 ;;^UTILITY(U,$J,358.3,1924,0)
+112 ;;=E10.3543^^16^126^52
+113 ;;^UTILITY(U,$J,358.3,1924,1,0)
+114 ;;=^358.31IA^4^2
+115 ;;^UTILITY(U,$J,358.3,1924,1,3,0)
+116 ;;=3^Diabetes Type 1 w/ Prolif Diab Rtnop w/ Comb Detach,Bilateral
+117 ;;^UTILITY(U,$J,358.3,1924,1,4,0)
+118 ;;=4^E10.3543
+119 ;;^UTILITY(U,$J,358.3,1924,2)
+120 ;;=^5138317
+121 ;;^UTILITY(U,$J,358.3,1925,0)
+122 ;;=E10.3551^^16^126^59
+123 ;;^UTILITY(U,$J,358.3,1925,1,0)
+124 ;;=^358.31IA^4^2
+125 ;;^UTILITY(U,$J,358.3,1925,1,3,0)
+126 ;;=3^Diabetes Type 1 w/ Stable Prolif Diab Rtnop,Right Eye
+127 ;;^UTILITY(U,$J,358.3,1925,1,4,0)
+128 ;;=4^E10.3551
+129 ;;^UTILITY(U,$J,358.3,1925,2)
+130 ;;=^5138319
+131 ;;^UTILITY(U,$J,358.3,1926,0)
+132 ;;=E10.3552^^16^126^60
+133 ;;^UTILITY(U,$J,358.3,1926,1,0)
+134 ;;=^358.31IA^4^2
+135 ;;^UTILITY(U,$J,358.3,1926,1,3,0)
+136 ;;=3^Diabetes Type 1 w/ Stable Prolif Diab Rtnop,Left Eye
+137 ;;^UTILITY(U,$J,358.3,1926,1,4,0)
+138 ;;=4^E10.3552
+139 ;;^UTILITY(U,$J,358.3,1926,2)
+140 ;;=^5138320
+141 ;;^UTILITY(U,$J,358.3,1927,0)
+142 ;;=E10.3553^^16^126^61
+143 ;;^UTILITY(U,$J,358.3,1927,1,0)
+144 ;;=^358.31IA^4^2
+145 ;;^UTILITY(U,$J,358.3,1927,1,3,0)
+146 ;;=3^Diabetes Type 1 w/ Stable Prolif Diab Rtnop,Bilateral
+147 ;;^UTILITY(U,$J,358.3,1927,1,4,0)
+148 ;;=4^E10.3553
+149 ;;^UTILITY(U,$J,358.3,1927,2)
+150 ;;=^5138321
+151 ;;^UTILITY(U,$J,358.3,1928,0)
+152 ;;=E11.3521^^16^126^99
+153 ;;^UTILITY(U,$J,358.3,1928,1,0)
+154 ;;=^358.31IA^4^2
+155 ;;^UTILITY(U,$J,358.3,1928,1,3,0)
+156 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch Macular,Right Eye
+157 ;;^UTILITY(U,$J,358.3,1928,1,4,0)
+158 ;;=4^E11.3521
+159 ;;^UTILITY(U,$J,358.3,1928,2)
+160 ;;=^5138359
+161 ;;^UTILITY(U,$J,358.3,1929,0)
+162 ;;=E11.3522^^16^126^100
+163 ;;^UTILITY(U,$J,358.3,1929,1,0)
+164 ;;=^358.31IA^4^2
+165 ;;^UTILITY(U,$J,358.3,1929,1,3,0)
+166 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch Macular,Left Eye
+167 ;;^UTILITY(U,$J,358.3,1929,1,4,0)
+168 ;;=4^E11.3522
+169 ;;^UTILITY(U,$J,358.3,1929,2)
+170 ;;=^5138360
+171 ;;^UTILITY(U,$J,358.3,1930,0)
+172 ;;=E11.3523^^16^126^101
+173 ;;^UTILITY(U,$J,358.3,1930,1,0)
+174 ;;=^358.31IA^4^2
+175 ;;^UTILITY(U,$J,358.3,1930,1,3,0)
+176 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch Macular,Bilateral
+177 ;;^UTILITY(U,$J,358.3,1930,1,4,0)
+178 ;;=4^E11.3523
+179 ;;^UTILITY(U,$J,358.3,1930,2)
+180 ;;=^5138361
+181 ;;^UTILITY(U,$J,358.3,1931,0)
+182 ;;=E11.3531^^16^126^102
+183 ;;^UTILITY(U,$J,358.3,1931,1,0)
+184 ;;=^358.31IA^4^2
+185 ;;^UTILITY(U,$J,358.3,1931,1,3,0)
+186 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch w/o Mac,Rt Eye
+187 ;;^UTILITY(U,$J,358.3,1931,1,4,0)
+188 ;;=4^E11.3531
+189 ;;^UTILITY(U,$J,358.3,1931,2)
+190 ;;=^5138363
+191 ;;^UTILITY(U,$J,358.3,1932,0)
+192 ;;=E11.3532^^16^126^103
+193 ;;^UTILITY(U,$J,358.3,1932,1,0)
+194 ;;=^358.31IA^4^2
+195 ;;^UTILITY(U,$J,358.3,1932,1,3,0)
+196 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch w/o Mac,Lt Eye
+197 ;;^UTILITY(U,$J,358.3,1932,1,4,0)
+198 ;;=4^E11.3532
+199 ;;^UTILITY(U,$J,358.3,1932,2)
+200 ;;=^5138364
+201 ;;^UTILITY(U,$J,358.3,1933,0)
+202 ;;=E11.3533^^16^126^104
+203 ;;^UTILITY(U,$J,358.3,1933,1,0)
+204 ;;=^358.31IA^4^2
+205 ;;^UTILITY(U,$J,358.3,1933,1,3,0)
+206 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Trctn Dtch w/o Mac,Bil
+207 ;;^UTILITY(U,$J,358.3,1933,1,4,0)
+208 ;;=4^E11.3533
+209 ;;^UTILITY(U,$J,358.3,1933,2)
+210 ;;=^5138365
+211 ;;^UTILITY(U,$J,358.3,1934,0)
+212 ;;=E11.3541^^16^126^105
+213 ;;^UTILITY(U,$J,358.3,1934,1,0)
+214 ;;=^358.31IA^4^2
+215 ;;^UTILITY(U,$J,358.3,1934,1,3,0)
+216 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Comb Detach,Right Eye
+217 ;;^UTILITY(U,$J,358.3,1934,1,4,0)
+218 ;;=4^E11.3541
+219 ;;^UTILITY(U,$J,358.3,1934,2)
+220 ;;=^5138367
+221 ;;^UTILITY(U,$J,358.3,1935,0)
+222 ;;=E11.3542^^16^126^106
+223 ;;^UTILITY(U,$J,358.3,1935,1,0)
+224 ;;=^358.31IA^4^2
+225 ;;^UTILITY(U,$J,358.3,1935,1,3,0)
+226 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Comb Detach,Left Eye
+227 ;;^UTILITY(U,$J,358.3,1935,1,4,0)
+228 ;;=4^E11.3542
+229 ;;^UTILITY(U,$J,358.3,1935,2)
+230 ;;=^5138368
+231 ;;^UTILITY(U,$J,358.3,1936,0)
+232 ;;=E11.3543^^16^126^107
+233 ;;^UTILITY(U,$J,358.3,1936,1,0)
+234 ;;=^358.31IA^4^2
+235 ;;^UTILITY(U,$J,358.3,1936,1,3,0)
+236 ;;=3^Diabetes Type 2 w/ Prolif Diab Rtnop w/ Comb Detach,Bilateral
+237 ;;^UTILITY(U,$J,358.3,1936,1,4,0)
+238 ;;=4^E11.3543
+239 ;;^UTILITY(U,$J,358.3,1936,2)
+240 ;;=^5138369
+241 ;;^UTILITY(U,$J,358.3,1937,0)
+242 ;;=E11.3551^^16^126^114
+243 ;;^UTILITY(U,$J,358.3,1937,1,0)
+244 ;;=^358.31IA^4^2
+245 ;;^UTILITY(U,$J,358.3,1937,1,3,0)
+246 ;;=3^Diabetes Type 2 w/ Stable Prolif Diab Rtnop,Right Eye
+247 ;;^UTILITY(U,$J,358.3,1937,1,4,0)
+248 ;;=4^E11.3551
+249 ;;^UTILITY(U,$J,358.3,1937,2)
+250 ;;=^5138371
+251 ;;^UTILITY(U,$J,358.3,1938,0)
+252 ;;=E11.3552^^16^126^115
+253 ;;^UTILITY(U,$J,358.3,1938,1,0)
+254 ;;=^358.31IA^4^2
+255 ;;^UTILITY(U,$J,358.3,1938,1,3,0)
+256 ;;=3^Diabetes Type 2 w/ Stable Prolif Diab Rtnop,Left Eye
+257 ;;^UTILITY(U,$J,358.3,1938,1,4,0)
+258 ;;=4^E11.3552
+259 ;;^UTILITY(U,$J,358.3,1938,2)
+260 ;;=^5138372
+261 ;;^UTILITY(U,$J,358.3,1939,0)
+262 ;;=E11.3553^^16^126^116
+263 ;;^UTILITY(U,$J,358.3,1939,1,0)
+264 ;;=^358.31IA^4^2
+265 ;;^UTILITY(U,$J,358.3,1939,1,3,0)
+266 ;;=3^Diabetes Type 2 w/ Stable Prolif Diab Rtnop,Bilateral
+267 ;;^UTILITY(U,$J,358.3,1939,1,4,0)
+268 ;;=4^E11.3553
+269 ;;^UTILITY(U,$J,358.3,1939,2)
+270 ;;=^5138373
+271 ;;^UTILITY(U,$J,358.3,1940,0)
+272 ;;=H54.8^^16^127^26
+273 ;;^UTILITY(U,$J,358.3,1940,1,0)
+274 ;;=^358.31IA^4^2
+275 ;;^UTILITY(U,$J,358.3,1940,1,3,0)
+276 ;;=3^Legal Blindness (Defined in USA)
+277 ;;^UTILITY(U,$J,358.3,1940,1,4,0)
+278 ;;=4^H54.8
+279 ;;^UTILITY(U,$J,358.3,1940,2)
+280 ;;=^5006369
+281 ;;^UTILITY(U,$J,358.3,1941,0)
+282 ;;=H54.10^^16^127^22
+283 ;;^UTILITY(U,$J,358.3,1941,1,0)
+284 ;;=^358.31IA^4^2
+285 ;;^UTILITY(U,$J,358.3,1941,1,3,0)
+286 ;;=3^Blindness One Eye,Low Vision-Unspec Eye
+287 ;;^UTILITY(U,$J,358.3,1941,1,4,0)
+288 ;;=4^H54.10
+289 ;;^UTILITY(U,$J,358.3,1941,2)
+290 ;;=^5006358
+291 ;;^UTILITY(U,$J,358.3,1942,0)
+292 ;;=H54.3^^16^127^41
+293 ;;^UTILITY(U,$J,358.3,1942,1,0)
+294 ;;=^358.31IA^4^2
+295 ;;^UTILITY(U,$J,358.3,1942,1,3,0)
+296 ;;=3^Visual Loss,Both Eyes,Unqualified
+297 ;;^UTILITY(U,$J,358.3,1942,1,4,0)
+298 ;;=4^H54.3
+299 ;;^UTILITY(U,$J,358.3,1942,2)
+300 ;;=^268886
+301 ;;^UTILITY(U,$J,358.3,1943,0)
+302 ;;=H54.42A3^^16^127^19
+303 ;;^UTILITY(U,$J,358.3,1943,1,0)
+304 ;;=^358.31IA^4^2
+305 ;;^UTILITY(U,$J,358.3,1943,1,3,0)
+306 ;;=3^Blindness OS Category 3,Normal Vision OD
+307 ;;^UTILITY(U,$J,358.3,1943,1,4,0)
+308 ;;=4^H54.42A3
+309 ;;^UTILITY(U,$J,358.3,1943,2)
+310 ;;=^5151366
+311 ;;^UTILITY(U,$J,358.3,1944,0)
+312 ;;=H54.42A4^^16^127^20
+313 ;;^UTILITY(U,$J,358.3,1944,1,0)
+314 ;;=^358.31IA^4^2
+315 ;;^UTILITY(U,$J,358.3,1944,1,3,0)
+316 ;;=3^Blindness OS Category 4,Normal Vision OD
+317 ;;^UTILITY(U,$J,358.3,1944,1,4,0)
+318 ;;=4^H54.42A4
+319 ;;^UTILITY(U,$J,358.3,1944,2)
+320 ;;=^5151367
+321 ;;^UTILITY(U,$J,358.3,1945,0)
+322 ;;=H54.42A5^^16^127^21
+323 ;;^UTILITY(U,$J,358.3,1945,1,0)
+324 ;;=^358.31IA^4^2
+325 ;;^UTILITY(U,$J,358.3,1945,1,3,0)
+326 ;;=3^Blindness OS Category 5,Normal Vision OD
+327 ;;^UTILITY(U,$J,358.3,1945,1,4,0)
+328 ;;=4^H54.42A5
+329 ;;^UTILITY(U,$J,358.3,1945,2)
+330 ;;=^5151368
+331 ;;^UTILITY(U,$J,358.3,1946,0)
+332 ;;=H54.0X33^^16^127^1
+333 ;;^UTILITY(U,$J,358.3,1946,1,0)
+334 ;;=^358.31IA^4^2
+335 ;;^UTILITY(U,$J,358.3,1946,1,3,0)
+336 ;;=3^Blindness OD Category 3,Blindness OS Category 3
+337 ;;^UTILITY(U,$J,358.3,1946,1,4,0)
+338 ;;=4^H54.0X33
+339 ;;^UTILITY(U,$J,358.3,1946,2)
+340 ;;=^5151338
+341 ;;^UTILITY(U,$J,358.3,1947,0)
+342 ;;=H54.0X34^^16^127^2
+343 ;;^UTILITY(U,$J,358.3,1947,1,0)
+344 ;;=^358.31IA^4^2
+345 ;;^UTILITY(U,$J,358.3,1947,1,3,0)
+346 ;;=3^Blindness OD Category 3,Blindness OS Category 4
+347 ;;^UTILITY(U,$J,358.3,1947,1,4,0)
+348 ;;=4^H54.0X34
+349 ;;^UTILITY(U,$J,358.3,1947,2)
+350 ;;=^5151339
+351 ;;^UTILITY(U,$J,358.3,1948,0)
+352 ;;=H54.0X35^^16^127^3
+353 ;;^UTILITY(U,$J,358.3,1948,1,0)
+354 ;;=^358.31IA^4^2
+355 ;;^UTILITY(U,$J,358.3,1948,1,3,0)
+356 ;;=3^Blindness OD Category 3,Blindness OS Category 5
+357 ;;^UTILITY(U,$J,358.3,1948,1,4,0)
+358 ;;=4^H54.0X35
+359 ;;^UTILITY(U,$J,358.3,1948,2)
+360 ;;=^5151340
+361 ;;^UTILITY(U,$J,358.3,1949,0)
+362 ;;=H54.413A^^16^127^6
+363 ;;^UTILITY(U,$J,358.3,1949,1,0)
+364 ;;=^358.31IA^4^2
+365 ;;^UTILITY(U,$J,358.3,1949,1,3,0)
+366 ;;=3^Blindness OD Category 3,Normal Vision OS
+367 ;;^UTILITY(U,$J,358.3,1949,1,4,0)
+368 ;;=4^H54.413A
+369 ;;^UTILITY(U,$J,358.3,1949,2)
+370 ;;=^5151363
+371 ;;^UTILITY(U,$J,358.3,1950,0)
+372 ;;=H54.0X43^^16^127^7
+373 ;;^UTILITY(U,$J,358.3,1950,1,0)
+374 ;;=^358.31IA^4^2
+375 ;;^UTILITY(U,$J,358.3,1950,1,3,0)
+376 ;;=3^Blindness OD Category 4,Blindness OS Category 3
+377 ;;^UTILITY(U,$J,358.3,1950,1,4,0)
+378 ;;=4^H54.0X43
+379 ;;^UTILITY(U,$J,358.3,1950,2)
+380 ;;=^5151341
+381 ;;^UTILITY(U,$J,358.3,1951,0)
+382 ;;=H54.0X44^^16^127^8
+383 ;;^UTILITY(U,$J,358.3,1951,1,0)
+384 ;;=^358.31IA^4^2
+385 ;;^UTILITY(U,$J,358.3,1951,1,3,0)
+386 ;;=3^Blindness OD Category 4,Blindness OS Category 4
+387 ;;^UTILITY(U,$J,358.3,1951,1,4,0)
+388 ;;=4^H54.0X44
+389 ;;^UTILITY(U,$J,358.3,1951,2)
+390 ;;=^5151342
+391 ;;^UTILITY(U,$J,358.3,1952,0)
+392 ;;=H54.0X45^^16^127^9
+393 ;;^UTILITY(U,$J,358.3,1952,1,0)
+394 ;;=^358.31IA^4^2
+395 ;;^UTILITY(U,$J,358.3,1952,1,3,0)
+396 ;;=3^Blindness OD Category 4,Blindness OS Category 5
+397 ;;^UTILITY(U,$J,358.3,1952,1,4,0)
+398 ;;=4^H54.0X45
+399 ;;^UTILITY(U,$J,358.3,1952,2)
+400 ;;=^5151343
+401 ;;^UTILITY(U,$J,358.3,1953,0)
+402 ;;=H54.414A^^16^127^12
+403 ;;^UTILITY(U,$J,358.3,1953,1,0)
+404 ;;=^358.31IA^4^2
+405 ;;^UTILITY(U,$J,358.3,1953,1,3,0)
+406 ;;=3^Blindness OD Category 4,Normal Vision OS
+407 ;;^UTILITY(U,$J,358.3,1953,1,4,0)
+408 ;;=4^H54.414A
+409 ;;^UTILITY(U,$J,358.3,1953,2)
+410 ;;=^5151364
+411 ;;^UTILITY(U,$J,358.3,1954,0)
+412 ;;=H54.0X53^^16^127^13
+413 ;;^UTILITY(U,$J,358.3,1954,1,0)
+414 ;;=^358.31IA^4^2
+415 ;;^UTILITY(U,$J,358.3,1954,1,3,0)
+416 ;;=3^Blindness OD Category 5,Blindness OS Category 3
+417 ;;^UTILITY(U,$J,358.3,1954,1,4,0)
+418 ;;=4^H54.0X53
+419 ;;^UTILITY(U,$J,358.3,1954,2)
+420 ;;=^5151344
+421 ;;^UTILITY(U,$J,358.3,1955,0)
+422 ;;=H54.0X54^^16^127^14
+423 ;;^UTILITY(U,$J,358.3,1955,1,0)
+424 ;;=^358.31IA^4^2
+425 ;;^UTILITY(U,$J,358.3,1955,1,3,0)
+426 ;;=3^Blindness OD Category 5,Blindness OS Category 4
+427 ;;^UTILITY(U,$J,358.3,1955,1,4,0)
+428 ;;=4^H54.0X54
+429 ;;^UTILITY(U,$J,358.3,1955,2)
+430 ;;=^5151345
+431 ;;^UTILITY(U,$J,358.3,1956,0)
+432 ;;=H54.0X55^^16^127^15
+433 ;;^UTILITY(U,$J,358.3,1956,1,0)
+434 ;;=^358.31IA^4^2
+435 ;;^UTILITY(U,$J,358.3,1956,1,3,0)
+436 ;;=3^Blindness OD Category 5,Blindness OS Category 5
+437 ;;^UTILITY(U,$J,358.3,1956,1,4,0)
+438 ;;=4^H54.0X55
+439 ;;^UTILITY(U,$J,358.3,1956,2)
+440 ;;=^5151346
+441 ;;^UTILITY(U,$J,358.3,1957,0)
+442 ;;=H54.415A^^16^127^18
+443 ;;^UTILITY(U,$J,358.3,1957,1,0)
+444 ;;=^358.31IA^4^2
+445 ;;^UTILITY(U,$J,358.3,1957,1,3,0)
+446 ;;=3^Blindness OD Category 5,Normal Vision OS
+447 ;;^UTILITY(U,$J,358.3,1957,1,4,0)
+448 ;;=4^H54.415A
+449 ;;^UTILITY(U,$J,358.3,1957,2)
+450 ;;=^5151365
+451 ;;^UTILITY(U,$J,358.3,1958,0)
+452 ;;=H54.52A1^^16^127^39
+453 ;;^UTILITY(U,$J,358.3,1958,1,0)
+454 ;;=^358.31IA^4^2
+455 ;;^UTILITY(U,$J,358.3,1958,1,3,0)
+456 ;;=3^Low Vision OS Category 1,Normal Vision OD
+457 ;;^UTILITY(U,$J,358.3,1958,1,4,0)
+458 ;;=4^H54.52A1
+459 ;;^UTILITY(U,$J,358.3,1958,2)
+460 ;;=^5151371
+461 ;;^UTILITY(U,$J,358.3,1959,0)
+462 ;;=H54.52A2^^16^127^40
+463 ;;^UTILITY(U,$J,358.3,1959,1,0)
+464 ;;=^358.31IA^4^2
+465 ;;^UTILITY(U,$J,358.3,1959,1,3,0)
+466 ;;=3^Low Vision OS Category 2,Normal Vision OD
+467 ;;^UTILITY(U,$J,358.3,1959,1,4,0)
+468 ;;=4^H54.52A2
+469 ;;^UTILITY(U,$J,358.3,1959,2)
+470 ;;=^5151372
+471 ;;^UTILITY(U,$J,358.3,1960,0)
+472 ;;=H54.1213^^16^127^27
+473 ;;^UTILITY(U,$J,358.3,1960,1,0)
+474 ;;=^358.31IA^4^2
+475 ;;^UTILITY(U,$J,358.3,1960,1,3,0)
+476 ;;=3^Low Vision OD Category 1,Blindness OS Category 3
+477 ;;^UTILITY(U,$J,358.3,1960,1,4,0)
+478 ;;=4^H54.1213
+479 ;;^UTILITY(U,$J,358.3,1960,2)
+480 ;;=^5151353
+481 ;;^UTILITY(U,$J,358.3,1961,0)
+482 ;;=H54.1214^^16^127^28
+483 ;;^UTILITY(U,$J,358.3,1961,1,0)
+484 ;;=^358.31IA^4^2
+485 ;;^UTILITY(U,$J,358.3,1961,1,3,0)
+486 ;;=3^Low Vision OD Category 1,Blindness OS Category 4
+487 ;;^UTILITY(U,$J,358.3,1961,1,4,0)
+488 ;;=4^H54.1214
+489 ;;^UTILITY(U,$J,358.3,1961,2)
+490 ;;=^5151354
+491 ;;^UTILITY(U,$J,358.3,1962,0)
+492 ;;=H54.1215^^16^127^29
+493 ;;^UTILITY(U,$J,358.3,1962,1,0)
+494 ;;=^358.31IA^4^2
+495 ;;^UTILITY(U,$J,358.3,1962,1,3,0)
+496 ;;=3^Low Vision OD Category 1,Blindness OS Category 5
+497 ;;^UTILITY(U,$J,358.3,1962,1,4,0)
+498 ;;=4^H54.1215
+499 ;;^UTILITY(U,$J,358.3,1962,2)
+500 ;;=^5151355
+501 ;;^UTILITY(U,$J,358.3,1963,0)
+502 ;;=H54.2X11^^16^127^30
+503 ;;^UTILITY(U,$J,358.3,1963,1,0)
+504 ;;=^358.31IA^4^2
+505 ;;^UTILITY(U,$J,358.3,1963,1,3,0)
+506 ;;=3^Low Vision OD Category 1,Low Vision OS Category 1
+507 ;;^UTILITY(U,$J,358.3,1963,1,4,0)
+508 ;;=4^H54.2X11
+509 ;;^UTILITY(U,$J,358.3,1963,2)
+510 ;;=^5151359
+511 ;;^UTILITY(U,$J,358.3,1964,0)
+512 ;;=H54.2X12^^16^127^31
+513 ;;^UTILITY(U,$J,358.3,1964,1,0)
+514 ;;=^358.31IA^4^2
+515 ;;^UTILITY(U,$J,358.3,1964,1,3,0)
+516 ;;=3^Low Vision OD Category 1,Low Vision OS Category 2
+517 ;;^UTILITY(U,$J,358.3,1964,1,4,0)
+518 ;;=4^H54.2X12
+519 ;;^UTILITY(U,$J,358.3,1964,2)
+520 ;;=^5151360
+521 ;;^UTILITY(U,$J,358.3,1965,0)
+522 ;;=H54.511A^^16^127^32
+523 ;;^UTILITY(U,$J,358.3,1965,1,0)
+524 ;;=^358.31IA^4^2
+525 ;;^UTILITY(U,$J,358.3,1965,1,3,0)
+526 ;;=3^Low Vision OD Category 1,Normal Vision OS
+527 ;;^UTILITY(U,$J,358.3,1965,1,4,0)
+528 ;;=4^H54.511A
+529 ;;^UTILITY(U,$J,358.3,1965,2)
+530 ;;=^5151369
+531 ;;^UTILITY(U,$J,358.3,1966,0)
+532 ;;=H54.1223^^16^127^33
+533 ;;^UTILITY(U,$J,358.3,1966,1,0)
+534 ;;=^358.31IA^4^2
+535 ;;^UTILITY(U,$J,358.3,1966,1,3,0)
+536 ;;=3^Low Vision OD Category 2,Blindness OS Category 3
+537 ;;^UTILITY(U,$J,358.3,1966,1,4,0)
+538 ;;=4^H54.1223
+539 ;;^UTILITY(U,$J,358.3,1966,2)
+540 ;;=^5151356
+541 ;;^UTILITY(U,$J,358.3,1967,0)
+542 ;;=H54.1224^^16^127^34
+543 ;;^UTILITY(U,$J,358.3,1967,1,0)
+544 ;;=^358.31IA^4^2
+545 ;;^UTILITY(U,$J,358.3,1967,1,3,0)
+546 ;;=3^Low Vision OD Category 2,Blindness OS Category 4
+547 ;;^UTILITY(U,$J,358.3,1967,1,4,0)
+548 ;;=4^H54.1224
+549 ;;^UTILITY(U,$J,358.3,1967,2)
+550 ;;=^5151357
+551 ;;^UTILITY(U,$J,358.3,1968,0)
+552 ;;=H54.1225^^16^127^35
+553 ;;^UTILITY(U,$J,358.3,1968,1,0)
+554 ;;=^358.31IA^4^2
+555 ;;^UTILITY(U,$J,358.3,1968,1,3,0)
+556 ;;=3^Low Vision OD Category 2,Blindness OS Category 5
+557 ;;^UTILITY(U,$J,358.3,1968,1,4,0)
+558 ;;=4^H54.1225
+559 ;;^UTILITY(U,$J,358.3,1968,2)
+560 ;;=^5151358
+561 ;;^UTILITY(U,$J,358.3,1969,0)
+562 ;;=H54.2X21^^16^127^36
+563 ;;^UTILITY(U,$J,358.3,1969,1,0)
+564 ;;=^358.31IA^4^2
+565 ;;^UTILITY(U,$J,358.3,1969,1,3,0)
+566 ;;=3^Low Vision OD Category 2,Low Vision OS Category 1
+567 ;;^UTILITY(U,$J,358.3,1969,1,4,0)
+568 ;;=4^H54.2X21
+569 ;;^UTILITY(U,$J,358.3,1969,2)
+570 ;;=^5151361
+571 ;;^UTILITY(U,$J,358.3,1970,0)
+572 ;;=H54.2X22^^16^127^37
+573 ;;^UTILITY(U,$J,358.3,1970,1,0)
+574 ;;=^358.31IA^4^2
+575 ;;^UTILITY(U,$J,358.3,1970,1,3,0)
+576 ;;=3^Low Vision OD Category 2,Low Vision OS Category 2
+577 ;;^UTILITY(U,$J,358.3,1970,1,4,0)
+578 ;;=4^H54.2X22
+579 ;;^UTILITY(U,$J,358.3,1970,2)
+580 ;;=^5151362
+581 ;;^UTILITY(U,$J,358.3,1971,0)
+582 ;;=H54.512A^^16^127^38
+583 ;;^UTILITY(U,$J,358.3,1971,1,0)
+584 ;;=^358.31IA^4^2
+585 ;;^UTILITY(U,$J,358.3,1971,1,3,0)
+586 ;;=3^Low Vision OD Category 2,Normal Vision OS
+587 ;;^UTILITY(U,$J,358.3,1971,1,4,0)
+588 ;;=4^H54.512A
+589 ;;^UTILITY(U,$J,358.3,1971,2)
+590 ;;=^5151370
+591 ;;^UTILITY(U,$J,358.3,1972,0)
+592 ;;=H54.1131^^16^127^4
+593 ;;^UTILITY(U,$J,358.3,1972,1,0)
+594 ;;=^358.31IA^4^2
+595 ;;^UTILITY(U,$J,358.3,1972,1,3,0)
+596 ;;=3^Blindness OD Category 3,Low Vision OS Category 1
+597 ;;^UTILITY(U,$J,358.3,1972,1,4,0)
+598 ;;=4^H54.1131
+599 ;;^UTILITY(U,$J,358.3,1972,2)
+600 ;;=^5151347
+601 ;;^UTILITY(U,$J,358.3,1973,0)
+602 ;;=H54.1132^^16^127^5
+603 ;;^UTILITY(U,$J,358.3,1973,1,0)
+604 ;;=^358.31IA^4^2
+605 ;;^UTILITY(U,$J,358.3,1973,1,3,0)
+606 ;;=3^Blindness OD Category 3,Low Vision OS Category 2
+607 ;;^UTILITY(U,$J,358.3,1973,1,4,0)
+608 ;;=4^H54.1132
+609 ;;^UTILITY(U,$J,358.3,1973,2)
+610 ;;=^5151348
+611 ;;^UTILITY(U,$J,358.3,1974,0)
+612 ;;=H54.1141^^16^127^10
+613 ;;^UTILITY(U,$J,358.3,1974,1,0)
+614 ;;=^358.31IA^4^2
+615 ;;^UTILITY(U,$J,358.3,1974,1,3,0)
+616 ;;=3^Blindness OD Category 4,Low Vision OS Category 1
+617 ;;^UTILITY(U,$J,358.3,1974,1,4,0)
+618 ;;=4^H54.1141
+619 ;;^UTILITY(U,$J,358.3,1974,2)
+620 ;;=^5151349
+621 ;;^UTILITY(U,$J,358.3,1975,0)
+622 ;;=H54.1142^^16^127^11
+623 ;;^UTILITY(U,$J,358.3,1975,1,0)
+624 ;;=^358.31IA^4^2
+625 ;;^UTILITY(U,$J,358.3,1975,1,3,0)
+626 ;;=3^Blindness OD Category 4,Low Vision OS Category 2
+627 ;;^UTILITY(U,$J,358.3,1975,1,4,0)
+628 ;;=4^H54.1142
+629 ;;^UTILITY(U,$J,358.3,1975,2)
+630 ;;=^5151350
+631 ;;^UTILITY(U,$J,358.3,1976,0)
+632 ;;=H54.1151^^16^127^16
+633 ;;^UTILITY(U,$J,358.3,1976,1,0)
+634 ;;=^358.31IA^4^2
+635 ;;^UTILITY(U,$J,358.3,1976,1,3,0)
+636 ;;=3^Blindness OD Category 5,Low Vision OS Category 1
+637 ;;^UTILITY(U,$J,358.3,1976,1,4,0)
+638 ;;=4^H54.1151
+639 ;;^UTILITY(U,$J,358.3,1976,2)
+640 ;;=^5151351
+641 ;;^UTILITY(U,$J,358.3,1977,0)
+642 ;;=H54.1152^^16^127^17
+643 ;;^UTILITY(U,$J,358.3,1977,1,0)
+644 ;;=^358.31IA^4^2
