ATXD3S5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
;
START ;
K:'$G(ATXPGMC) ^TMP("ATX",$J)
S ATXPGMC=$G(ATXPGMC)+1
F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"O69.89X5 ")
;;1851
;;21,"O69.89X9 ")
;;1852
;;21,"O69.9XX0 ")
;;1853
;;21,"O69.9XX1 ")
;;1854
;;21,"O69.9XX2 ")
;;1855
;;21,"O69.9XX3 ")
;;1856
;;21,"O69.9XX4 ")
;;1857
;;21,"O69.9XX5 ")
;;1858
;;21,"O69.9XX9 ")
;;1859
;;21,"O71.00 ")
;;1860
;;21,"O71.02 ")
;;1861
;;21,"O71.03 ")
;;1862
;;21,"O71.1 ")
;;1863
;;21,"O71.89 ")
;;1864
;;21,"O71.9 ")
;;1865
;;21,"O74.0 ")
;;1866
;;21,"O74.1 ")
;;1867
;;21,"O74.2 ")
;;1868
;;21,"O74.3 ")
;;1869
;;21,"O74.4 ")
;;1870
;;21,"O74.5 ")
;;1871
;;21,"O74.6 ")
;;1872
;;21,"O74.7 ")
;;1873
;;21,"O74.8 ")
;;1874
;;21,"O74.9 ")
;;1875
;;21,"O75.0 ")
;;1876
;;21,"O75.1 ")
;;1877
;;21,"O75.2 ")
;;1878
;;21,"O75.3 ")
;;1879
;;21,"O75.4 ")
;;1880
;;21,"O75.5 ")
;;1881
;;21,"O75.81 ")
;;1882
;;21,"O75.89 ")
;;1883
;;21,"O75.9 ")
;;1884
;;21,"O76. ")
;;1885
;;21,"O77.0 ")
;;1886
;;21,"O77.1 ")
;;1887
;;21,"O77.8 ")
;;1888
;;21,"O77.9 ")
;;1889
;;21,"O88.011 ")
;;1890
;;21,"O88.012 ")
;;1891
;;21,"O88.013 ")
;;1892
;;21,"O88.019 ")
;;1893
;;21,"O88.02 ")
;;1894
;;21,"O88.111 ")
;;1895
;;21,"O88.112 ")
;;1896
;;21,"O88.113 ")
;;1897
;;21,"O88.119 ")
;;1898
;;21,"O88.12 ")
;;1899
;;21,"O88.211 ")
;;1900
;;21,"O88.212 ")
;;1901
;;21,"O88.213 ")
;;1902
;;21,"O88.219 ")
;;1903
;;21,"O88.22 ")
;;1904
;;21,"O88.311 ")
;;1905
;;21,"O88.312 ")
;;1906
;;21,"O88.313 ")
;;1907
;;21,"O88.319 ")
;;1908
;;21,"O88.32 ")
;;1909
;;21,"O88.811 ")
;;1910
;;21,"O88.812 ")
;;1911
;;21,"O88.813 ")
;;1912
;;21,"O88.819 ")
;;1913
;;21,"O88.82 ")
;;1914
;;21,"O90.3 ")
;;1915
;;21,"O91.011 ")
;;1916
;;21,"O91.012 ")
;;1917
;;21,"O91.013 ")
;;1918
;;21,"O91.019 ")
;;1919
;;21,"O91.111 ")
;;1920
;;21,"O91.112 ")
;;1921
;;21,"O91.113 ")
;;1922
;;21,"O91.119 ")
;;1923
;;21,"O91.211 ")
;;1924
;;21,"O91.212 ")
;;1925
;;21,"O91.213 ")
;;1926
;;21,"O91.219 ")
;;1927
;;21,"O92.011 ")
;;1928
;;21,"O92.012 ")
;;1929
;;21,"O92.013 ")
;;1930
;;21,"O92.019 ")
;;1931
;;21,"O92.20 ")
;;1932
;;21,"O92.29 ")
;;1933
;;21,"O98.011 ")
;;1934
;;21,"O98.012 ")
;;1935
;;21,"O98.013 ")
;;1936
;;21,"O98.019 ")
;;1937
;;21,"O98.02 ")
;;1938
;;21,"O98.111 ")
;;1939
;;21,"O98.112 ")
;;1940
;;21,"O98.113 ")
;;1941
;;21,"O98.119 ")
;;1942
;;21,"O98.12 ")
;;1943
;;21,"O98.211 ")
;;1944
;;21,"O98.212 ")
;;1945
;;21,"O98.213 ")
;;1946
;;21,"O98.219 ")
;;1947
;;21,"O98.22 ")
;;1948
;;21,"O98.311 ")
;;1949
;;21,"O98.312 ")
;;1950
;;21,"O98.313 ")
;;1951
;;21,"O98.319 ")
;;1952
;;21,"O98.32 ")
;;1953
;;21,"O98.411 ")
;;1954
;;21,"O98.412 ")
;;1955
;;21,"O98.413 ")
;;1956
;;21,"O98.419 ")
;;1957
;;21,"O98.42 ")
;;1958
;;21,"O98.511 ")
;;1959
;;21,"O98.512 ")
;;1960
;;21,"O98.513 ")
;;1961
;;21,"O98.519 ")
;;1962
;;21,"O98.52 ")
;;1963
;;21,"O98.611 ")
;;1964
;;21,"O98.612 ")
;;1965
;;21,"O98.613 ")
;;1966
;;21,"O98.619 ")
;;1967
;;21,"O98.62 ")
;;1968
;;21,"O98.711 ")
;;1969
;;21,"O98.712 ")
;;1970
;;21,"O98.713 ")
;;1971
;;21,"O98.719 ")
;;1972
;;21,"O98.72 ")
;;1973
;;21,"O98.811 ")
;;1974
;;21,"O98.812 ")
;;1975
;;21,"O98.813 ")
;;1976
;;21,"O98.819 ")
;;1977
;;21,"O98.82 ")
;;1978
;;21,"O98.911 ")
;;1979
;;21,"O98.912 ")
;;1980
;;21,"O98.913 ")
;;1981
;;21,"O98.919 ")
;;1982
;;21,"O98.92 ")
;;1983
;;21,"O99.011 ")
;;1984
;;21,"O99.012 ")
;;1985
;;21,"O99.013 ")
;;1986
;;21,"O99.019 ")
;;1987
;;21,"O99.02 ")
;;1988
;;21,"O99.111 ")
;;1989
;;21,"O99.112 ")
;;1990
;;21,"O99.113 ")
;;1991
;;21,"O99.119 ")
;;1992
;;21,"O99.12 ")
;;1993
;;21,"O99.210 ")
;;1994
;;21,"O99.211 ")
;;1995
;;21,"O99.212 ")
;;1996
;;21,"O99.213 ")
;;1997
;;21,"O99.214 ")
;;1998
;;21,"O99.280 ")
;;1999
;;21,"O99.281 ")
;;2000
;;21,"O99.282 ")
;;2001
;;21,"O99.283 ")
;;2002
;;21,"O99.284 ")
;;2003
;;21,"O99.310 ")
;;2004
;;21,"O99.311 ")
;;2005
;;21,"O99.312 ")
;;2006
;;21,"O99.313 ")
;;2007
;;21,"O99.314 ")
;;2008
;;21,"O99.320 ")
;;2009
;;21,"O99.321 ")
;;2010
;;21,"O99.322 ")
;;2011
;;21,"O99.323 ")
;;2012
;;21,"O99.324 ")
;;2013
;;21,"O99.330 ")
;;2014
;;21,"O99.331 ")
;;2015
;;21,"O99.332 ")
;;2016
;;21,"O99.333 ")
;;2017
;;21,"O99.334 ")
;;2018
;;21,"O99.340 ")
;;2019
;;21,"O99.341 ")
;;2020
;;21,"O99.342 ")
;;2021
;;21,"O99.343 ")
;;2022
;;21,"O99.344 ")
;;2023
;;21,"O99.350 ")
;;2024
;;21,"O99.351 ")
;;2025
;;21,"O99.352 ")
;;2026
;;21,"O99.353 ")
;;2027
;;21,"O99.354 ")
;;2028
;;21,"O99.411 ")
;;2029
;;21,"O99.412 ")
;;2030
;;21,"O99.413 ")
;;2031
;;21,"O99.419 ")
;;2032
;;21,"O99.511 ")
;;2033
;;21,"O99.512 ")
;;2034
;;21,"O99.513 ")
;;2035
;;21,"O99.519 ")
;;2036
;;21,"O99.52 ")
;;2037
;;21,"O99.611 ")
;;2038
;;21,"O99.612 ")
;;2039
;;21,"O99.613 ")
;;2040
;;21,"O99.619 ")
;;2041
;;21,"O99.62 ")
;;2042
;;21,"O99.711 ")
;;2043
;;21,"O99.712 ")
;;2044
;;21,"O99.713 ")
;;2045
;;21,"O99.719 ")
;;2046
;;21,"O99.72 ")
;;2047
;;21,"O99.810 ")
;;2048
;;21,"O99.814 ")
;;2049
;;21,"O99.820 ")
;;2050
;;21,"O99.824 ")
;;2051
;;21,"O99.830 ")
;;2052
;;21,"O99.834 ")
;;2053
;;21,"O99.840 ")
;;2054
;;21,"O99.841 ")
;;2055
;;21,"O99.842 ")
;;2056
;;21,"O99.843 ")
;;2057
;;21,"O99.844 ")
;;2058
;;21,"O99.89 ")
;;2059
;;21,"O9A.111 ")
;;2060
;;21,"O9A.112 ")
;;2061
;;21,"O9A.113 ")
;;2062
;;21,"O9A.119 ")
;;2063
;;21,"O9A.12 ")
;;2064
;;21,"O9A.211 ")
;;2065
;;21,"O9A.212 ")
;;2066
;;21,"O9A.213 ")
;;2067
;;21,"O9A.219 ")
;;2068
;;21,"O9A.22 ")
;;2069
;;21,"O9A.311 ")
;;2070
;;21,"O9A.312 ")
;;2071
;;21,"O9A.313 ")
;;2072
;;21,"O9A.319 ")
;;2073
;;21,"O9A.32 ")
;;2074
;;21,"O9A.411 ")
;;2075
;;21,"O9A.412 ")
;;2076
;;21,"O9A.413 ")
;;2077
;;21,"O9A.419 ")
;;2078
;;21,"O9A.42 ")
;;2079
;;21,"O9A.511 ")
;;2080
;;21,"O9A.512 ")
;;2081
;;21,"O9A.513 ")
;;2082
;;21,"O9A.519 ")
;;2083
;;21,"O9A.52 ")
;;2084
;;21,"V22.0 ")
;;2085
;;21,"V28.81 ")
;;2086
;;21,"V72.42 ")
;;2087
;;21,"V89.01 ")
;;2088
;;21,"Z03.71 ")
;;2089
;;21,"Z03.72 ")
;;2090
;;21,"Z03.73 ")
;;2091
;;21,"Z03.74 ")
;;2092
;;21,"Z03.75 ")
;;2093
;;21,"Z03.79 ")
;;2094
;;21,"Z32.01 ")
;;2095
;;21,"Z33.1 ")
;;2096
;;21,"Z34.00 ")
;;2097
;;21,"Z34.01 ")
;;2098
;;21,"Z34.02 ")
;;2099
;;21,"Z34.03 ")
;;2100
;;21,"Z34.80 ")
;;2101
;;21,"Z34.81 ")
;;2102
;;21,"Z34.82 ")
;;2103
;;21,"Z34.83 ")
;;2104
;;21,"Z34.90 ")
;;2105
;;21,"Z34.91 ")
;;2106
;;21,"Z34.92 ")
;;2107
;;21,"Z34.93 ")
;;2108
;;21,"Z36. ")
;;2109
;;9002226,1011,.01)
;;BGP PREGNANCY DIAGNOSES 2
;;9002226,1011,.02)
;;@
;;9002226,1011,.04)
;;n
;;9002226,1011,.06)
;;@
;;9002226,1011,.08)
;;0
;;9002226,1011,.09)
;;3130521
;;9002226,1011,.11)
;;@
;;9002226,1011,.12)
;;31
;;9002226,1011,.13)
;;1
;;9002226,1011,.14)
;;@
;;9002226,1011,.15)
;;80
;;9002226,1011,.16)
;;@
;;9002226,1011,.17)
;;@
;;9002226,1011,3101)
;;@
;;9002226.02101,"1011,640.03 ",.01)
;;640.03
;;9002226.02101,"1011,640.03 ",.02)
;;640.03
;;9002226.02101,"1011,640.03 ",.03)
;;1
;;9002226.02101,"1011,640.83 ",.01)
;;640.83
;;9002226.02101,"1011,640.83 ",.02)
;;640.83
;;9002226.02101,"1011,640.83 ",.03)
;;1
;;9002226.02101,"1011,640.93 ",.01)
;;640.93
;;9002226.02101,"1011,640.93 ",.02)
;;640.93
;;9002226.02101,"1011,640.93 ",.03)
;;1
;;9002226.02101,"1011,641.03 ",.01)
;;641.03
;;9002226.02101,"1011,641.03 ",.02)
;;641.03
;;9002226.02101,"1011,641.03 ",.03)
;;1
;;9002226.02101,"1011,641.13 ",.01)
;;641.13
;;9002226.02101,"1011,641.13 ",.02)
;;641.13
;;9002226.02101,"1011,641.13 ",.03)
;;1
;;9002226.02101,"1011,641.23 ",.01)
;;641.23
;;9002226.02101,"1011,641.23 ",.02)
;;641.23
;;9002226.02101,"1011,641.23 ",.03)
;;1
;;9002226.02101,"1011,641.33 ",.01)
;;641.33
;;9002226.02101,"1011,641.33 ",.02)
;;641.33
;;9002226.02101,"1011,641.33 ",.03)
;;1
;;9002226.02101,"1011,641.83 ",.01)
;;641.83
;;9002226.02101,"1011,641.83 ",.02)
;;641.83
;;9002226.02101,"1011,641.83 ",.03)
;;1
;;9002226.02101,"1011,641.93 ",.01)
;;641.93
;;9002226.02101,"1011,641.93 ",.02)
;;641.93
;;9002226.02101,"1011,641.93 ",.03)
;;1
;;9002226.02101,"1011,642.03 ",.01)
;;642.03
;;9002226.02101,"1011,642.03 ",.02)
;;642.03
;;9002226.02101,"1011,642.03 ",.03)
;;1
;;9002226.02101,"1011,642.13 ",.01)
;;642.13
;;9002226.02101,"1011,642.13 ",.02)
;;642.13
;;9002226.02101,"1011,642.13 ",.03)
;;1
;;9002226.02101,"1011,642.23 ",.01)
;;642.23
;;9002226.02101,"1011,642.23 ",.02)
;;642.23
;;9002226.02101,"1011,642.23 ",.03)
;;1
;;9002226.02101,"1011,642.33 ",.01)
;;642.33
;;9002226.02101,"1011,642.33 ",.02)
;;642.33
;;9002226.02101,"1011,642.33 ",.03)
;;1
;;9002226.02101,"1011,642.43 ",.01)
;;642.43
;;9002226.02101,"1011,642.43 ",.02)
;;642.43
;;9002226.02101,"1011,642.43 ",.03)
;;1
;;9002226.02101,"1011,642.53 ",.01)
;;642.53
;;9002226.02101,"1011,642.53 ",.02)
;;642.53
;;9002226.02101,"1011,642.53 ",.03)
;;1
;;9002226.02101,"1011,642.63 ",.01)
;;642.63
;;9002226.02101,"1011,642.63 ",.02)
;;642.63
;;9002226.02101,"1011,642.63 ",.03)
;;1
;;9002226.02101,"1011,642.73 ",.01)
;;642.73
;;9002226.02101,"1011,642.73 ",.02)
;;642.73
;;9002226.02101,"1011,642.73 ",.03)
;;1
;;9002226.02101,"1011,642.93 ",.01)
;;642.93
;;9002226.02101,"1011,642.93 ",.02)
;;642.93
;;9002226.02101,"1011,642.93 ",.03)
;;1
;;9002226.02101,"1011,643.03 ",.01)
;;643.03
;;9002226.02101,"1011,643.03 ",.02)
;;643.03
;;9002226.02101,"1011,643.03 ",.03)
;;1
;;9002226.02101,"1011,643.13 ",.01)
;;643.13
;;9002226.02101,"1011,643.13 ",.02)
;;643.13
;;9002226.02101,"1011,643.13 ",.03)
;;1
;;9002226.02101,"1011,643.23 ",.01)
;;643.23
;;9002226.02101,"1011,643.23 ",.02)
;;643.23
;;9002226.02101,"1011,643.23 ",.03)
;;1
;;9002226.02101,"1011,643.83 ",.01)
;;643.83
;;9002226.02101,"1011,643.83 ",.02)
;;643.83
;;9002226.02101,"1011,643.83 ",.03)
;;1
;;9002226.02101,"1011,643.93 ",.01)
;;643.93
;;9002226.02101,"1011,643.93 ",.02)
;;643.93
;;9002226.02101,"1011,643.93 ",.03)
;;1
;;9002226.02101,"1011,644.03 ",.01)
;;644.03
;;9002226.02101,"1011,644.03 ",.02)
;;644.03
;;9002226.02101,"1011,644.03 ",.03)
;;1
;;9002226.02101,"1011,644.13 ",.01)
;;644.13
;;9002226.02101,"1011,644.13 ",.02)
;;644.13
;;9002226.02101,"1011,644.13 ",.03)
;;1
;;9002226.02101,"1011,645.13 ",.01)
;;645.13
;;9002226.02101,"1011,645.13 ",.02)
;;645.13
;;9002226.02101,"1011,645.13 ",.03)
;;1
;;9002226.02101,"1011,645.23 ",.01)
;;645.23
;;9002226.02101,"1011,645.23 ",.02)
;;645.23
;;9002226.02101,"1011,645.23 ",.03)
;;1
;;9002226.02101,"1011,646.03 ",.01)
;;646.03
;;9002226.02101,"1011,646.03 ",.02)
;;646.03
;;9002226.02101,"1011,646.03 ",.03)
;;1
;;9002226.02101,"1011,646.13 ",.01)
;;646.13
;;9002226.02101,"1011,646.13 ",.02)
;;646.13
;;9002226.02101,"1011,646.13 ",.03)
;;1
;;9002226.02101,"1011,646.23 ",.01)
;;646.23
;;9002226.02101,"1011,646.23 ",.02)
;;646.23
;;9002226.02101,"1011,646.23 ",.03)
;;1
;;9002226.02101,"1011,646.33 ",.01)
;;646.33
;;9002226.02101,"1011,646.33 ",.02)
;;646.33
;;9002226.02101,"1011,646.33 ",.03)
;;1
;;9002226.02101,"1011,646.43 ",.01)
;;646.43
;;9002226.02101,"1011,646.43 ",.02)
;;646.43
;;9002226.02101,"1011,646.43 ",.03)
;;1
;;9002226.02101,"1011,646.53 ",.01)
;;646.53
;;9002226.02101,"1011,646.53 ",.02)
;;646.53
;;9002226.02101,"1011,646.53 ",.03)
;;1
;;9002226.02101,"1011,646.63 ",.01)
;;646.63
;;9002226.02101,"1011,646.63 ",.02)
;;646.63
;;9002226.02101,"1011,646.63 ",.03)
;;1
;;9002226.02101,"1011,646.73 ",.01)
;;646.73
;;9002226.02101,"1011,646.73 ",.02)
;;646.73
;;9002226.02101,"1011,646.73 ",.03)
;;1
;;9002226.02101,"1011,646.83 ",.01)
;;646.83
;;9002226.02101,"1011,646.83 ",.02)
;;646.83
;;9002226.02101,"1011,646.83 ",.03)
;;1
;;9002226.02101,"1011,646.93 ",.01)
;;646.93
;;9002226.02101,"1011,646.93 ",.02)
;;646.93
;;9002226.02101,"1011,646.93 ",.03)
;;1
;;9002226.02101,"1011,647.03 ",.01)
;;647.03
;;9002226.02101,"1011,647.03 ",.02)
;;647.03
;;9002226.02101,"1011,647.03 ",.03)
;;1
;;9002226.02101,"1011,647.13 ",.01)
;;647.13
;;9002226.02101,"1011,647.13 ",.02)
;;647.13
ATXD3S5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"O69.89X5 ")
+2 ;;1851
+3 ;;21,"O69.89X9 ")
+4 ;;1852
+5 ;;21,"O69.9XX0 ")
+6 ;;1853
+7 ;;21,"O69.9XX1 ")
+8 ;;1854
+9 ;;21,"O69.9XX2 ")
+10 ;;1855
+11 ;;21,"O69.9XX3 ")
+12 ;;1856
+13 ;;21,"O69.9XX4 ")
+14 ;;1857
+15 ;;21,"O69.9XX5 ")
+16 ;;1858
+17 ;;21,"O69.9XX9 ")
+18 ;;1859
+19 ;;21,"O71.00 ")
+20 ;;1860
+21 ;;21,"O71.02 ")
+22 ;;1861
+23 ;;21,"O71.03 ")
+24 ;;1862
+25 ;;21,"O71.1 ")
+26 ;;1863
+27 ;;21,"O71.89 ")
+28 ;;1864
+29 ;;21,"O71.9 ")
+30 ;;1865
+31 ;;21,"O74.0 ")
+32 ;;1866
+33 ;;21,"O74.1 ")
+34 ;;1867
+35 ;;21,"O74.2 ")
+36 ;;1868
+37 ;;21,"O74.3 ")
+38 ;;1869
+39 ;;21,"O74.4 ")
+40 ;;1870
+41 ;;21,"O74.5 ")
+42 ;;1871
+43 ;;21,"O74.6 ")
+44 ;;1872
+45 ;;21,"O74.7 ")
+46 ;;1873
+47 ;;21,"O74.8 ")
+48 ;;1874
+49 ;;21,"O74.9 ")
+50 ;;1875
+51 ;;21,"O75.0 ")
+52 ;;1876
+53 ;;21,"O75.1 ")
+54 ;;1877
+55 ;;21,"O75.2 ")
+56 ;;1878
+57 ;;21,"O75.3 ")
+58 ;;1879
+59 ;;21,"O75.4 ")
+60 ;;1880
+61 ;;21,"O75.5 ")
+62 ;;1881
+63 ;;21,"O75.81 ")
+64 ;;1882
+65 ;;21,"O75.89 ")
+66 ;;1883
+67 ;;21,"O75.9 ")
+68 ;;1884
+69 ;;21,"O76. ")
+70 ;;1885
+71 ;;21,"O77.0 ")
+72 ;;1886
+73 ;;21,"O77.1 ")
+74 ;;1887
+75 ;;21,"O77.8 ")
+76 ;;1888
+77 ;;21,"O77.9 ")
+78 ;;1889
+79 ;;21,"O88.011 ")
+80 ;;1890
+81 ;;21,"O88.012 ")
+82 ;;1891
+83 ;;21,"O88.013 ")
+84 ;;1892
+85 ;;21,"O88.019 ")
+86 ;;1893
+87 ;;21,"O88.02 ")
+88 ;;1894
+89 ;;21,"O88.111 ")
+90 ;;1895
+91 ;;21,"O88.112 ")
+92 ;;1896
+93 ;;21,"O88.113 ")
+94 ;;1897
+95 ;;21,"O88.119 ")
+96 ;;1898
+97 ;;21,"O88.12 ")
+98 ;;1899
+99 ;;21,"O88.211 ")
+100 ;;1900
+101 ;;21,"O88.212 ")
+102 ;;1901
+103 ;;21,"O88.213 ")
+104 ;;1902
+105 ;;21,"O88.219 ")
+106 ;;1903
+107 ;;21,"O88.22 ")
+108 ;;1904
+109 ;;21,"O88.311 ")
+110 ;;1905
+111 ;;21,"O88.312 ")
+112 ;;1906
+113 ;;21,"O88.313 ")
+114 ;;1907
+115 ;;21,"O88.319 ")
+116 ;;1908
+117 ;;21,"O88.32 ")
+118 ;;1909
+119 ;;21,"O88.811 ")
+120 ;;1910
+121 ;;21,"O88.812 ")
+122 ;;1911
+123 ;;21,"O88.813 ")
+124 ;;1912
+125 ;;21,"O88.819 ")
+126 ;;1913
+127 ;;21,"O88.82 ")
+128 ;;1914
+129 ;;21,"O90.3 ")
+130 ;;1915
+131 ;;21,"O91.011 ")
+132 ;;1916
+133 ;;21,"O91.012 ")
+134 ;;1917
+135 ;;21,"O91.013 ")
+136 ;;1918
+137 ;;21,"O91.019 ")
+138 ;;1919
+139 ;;21,"O91.111 ")
+140 ;;1920
+141 ;;21,"O91.112 ")
+142 ;;1921
+143 ;;21,"O91.113 ")
+144 ;;1922
+145 ;;21,"O91.119 ")
+146 ;;1923
+147 ;;21,"O91.211 ")
+148 ;;1924
+149 ;;21,"O91.212 ")
+150 ;;1925
+151 ;;21,"O91.213 ")
+152 ;;1926
+153 ;;21,"O91.219 ")
+154 ;;1927
+155 ;;21,"O92.011 ")
+156 ;;1928
+157 ;;21,"O92.012 ")
+158 ;;1929
+159 ;;21,"O92.013 ")
+160 ;;1930
+161 ;;21,"O92.019 ")
+162 ;;1931
+163 ;;21,"O92.20 ")
+164 ;;1932
+165 ;;21,"O92.29 ")
+166 ;;1933
+167 ;;21,"O98.011 ")
+168 ;;1934
+169 ;;21,"O98.012 ")
+170 ;;1935
+171 ;;21,"O98.013 ")
+172 ;;1936
+173 ;;21,"O98.019 ")
+174 ;;1937
+175 ;;21,"O98.02 ")
+176 ;;1938
+177 ;;21,"O98.111 ")
+178 ;;1939
+179 ;;21,"O98.112 ")
+180 ;;1940
+181 ;;21,"O98.113 ")
+182 ;;1941
+183 ;;21,"O98.119 ")
+184 ;;1942
+185 ;;21,"O98.12 ")
+186 ;;1943
+187 ;;21,"O98.211 ")
+188 ;;1944
+189 ;;21,"O98.212 ")
+190 ;;1945
+191 ;;21,"O98.213 ")
+192 ;;1946
+193 ;;21,"O98.219 ")
+194 ;;1947
+195 ;;21,"O98.22 ")
+196 ;;1948
+197 ;;21,"O98.311 ")
+198 ;;1949
+199 ;;21,"O98.312 ")
+200 ;;1950
+201 ;;21,"O98.313 ")
+202 ;;1951
+203 ;;21,"O98.319 ")
+204 ;;1952
+205 ;;21,"O98.32 ")
+206 ;;1953
+207 ;;21,"O98.411 ")
+208 ;;1954
+209 ;;21,"O98.412 ")
+210 ;;1955
+211 ;;21,"O98.413 ")
+212 ;;1956
+213 ;;21,"O98.419 ")
+214 ;;1957
+215 ;;21,"O98.42 ")
+216 ;;1958
+217 ;;21,"O98.511 ")
+218 ;;1959
+219 ;;21,"O98.512 ")
+220 ;;1960
+221 ;;21,"O98.513 ")
+222 ;;1961
+223 ;;21,"O98.519 ")
+224 ;;1962
+225 ;;21,"O98.52 ")
+226 ;;1963
+227 ;;21,"O98.611 ")
+228 ;;1964
+229 ;;21,"O98.612 ")
+230 ;;1965
+231 ;;21,"O98.613 ")
+232 ;;1966
+233 ;;21,"O98.619 ")
+234 ;;1967
+235 ;;21,"O98.62 ")
+236 ;;1968
+237 ;;21,"O98.711 ")
+238 ;;1969
+239 ;;21,"O98.712 ")
+240 ;;1970
+241 ;;21,"O98.713 ")
+242 ;;1971
+243 ;;21,"O98.719 ")
+244 ;;1972
+245 ;;21,"O98.72 ")
+246 ;;1973
+247 ;;21,"O98.811 ")
+248 ;;1974
+249 ;;21,"O98.812 ")
+250 ;;1975
+251 ;;21,"O98.813 ")
+252 ;;1976
+253 ;;21,"O98.819 ")
+254 ;;1977
+255 ;;21,"O98.82 ")
+256 ;;1978
+257 ;;21,"O98.911 ")
+258 ;;1979
+259 ;;21,"O98.912 ")
+260 ;;1980
+261 ;;21,"O98.913 ")
+262 ;;1981
+263 ;;21,"O98.919 ")
+264 ;;1982
+265 ;;21,"O98.92 ")
+266 ;;1983
+267 ;;21,"O99.011 ")
+268 ;;1984
+269 ;;21,"O99.012 ")
+270 ;;1985
+271 ;;21,"O99.013 ")
+272 ;;1986
+273 ;;21,"O99.019 ")
+274 ;;1987
+275 ;;21,"O99.02 ")
+276 ;;1988
+277 ;;21,"O99.111 ")
+278 ;;1989
+279 ;;21,"O99.112 ")
+280 ;;1990
+281 ;;21,"O99.113 ")
+282 ;;1991
+283 ;;21,"O99.119 ")
+284 ;;1992
+285 ;;21,"O99.12 ")
+286 ;;1993
+287 ;;21,"O99.210 ")
+288 ;;1994
+289 ;;21,"O99.211 ")
+290 ;;1995
+291 ;;21,"O99.212 ")
+292 ;;1996
+293 ;;21,"O99.213 ")
+294 ;;1997
+295 ;;21,"O99.214 ")
+296 ;;1998
+297 ;;21,"O99.280 ")
+298 ;;1999
+299 ;;21,"O99.281 ")
+300 ;;2000
+301 ;;21,"O99.282 ")
+302 ;;2001
+303 ;;21,"O99.283 ")
+304 ;;2002
+305 ;;21,"O99.284 ")
+306 ;;2003
+307 ;;21,"O99.310 ")
+308 ;;2004
+309 ;;21,"O99.311 ")
+310 ;;2005
+311 ;;21,"O99.312 ")
+312 ;;2006
+313 ;;21,"O99.313 ")
+314 ;;2007
+315 ;;21,"O99.314 ")
+316 ;;2008
+317 ;;21,"O99.320 ")
+318 ;;2009
+319 ;;21,"O99.321 ")
+320 ;;2010
+321 ;;21,"O99.322 ")
+322 ;;2011
+323 ;;21,"O99.323 ")
+324 ;;2012
+325 ;;21,"O99.324 ")
+326 ;;2013
+327 ;;21,"O99.330 ")
+328 ;;2014
+329 ;;21,"O99.331 ")
+330 ;;2015
+331 ;;21,"O99.332 ")
+332 ;;2016
+333 ;;21,"O99.333 ")
+334 ;;2017
+335 ;;21,"O99.334 ")
+336 ;;2018
+337 ;;21,"O99.340 ")
+338 ;;2019
+339 ;;21,"O99.341 ")
+340 ;;2020
+341 ;;21,"O99.342 ")
+342 ;;2021
+343 ;;21,"O99.343 ")
+344 ;;2022
+345 ;;21,"O99.344 ")
+346 ;;2023
+347 ;;21,"O99.350 ")
+348 ;;2024
+349 ;;21,"O99.351 ")
+350 ;;2025
+351 ;;21,"O99.352 ")
+352 ;;2026
+353 ;;21,"O99.353 ")
+354 ;;2027
+355 ;;21,"O99.354 ")
+356 ;;2028
+357 ;;21,"O99.411 ")
+358 ;;2029
+359 ;;21,"O99.412 ")
+360 ;;2030
+361 ;;21,"O99.413 ")
+362 ;;2031
+363 ;;21,"O99.419 ")
+364 ;;2032
+365 ;;21,"O99.511 ")
+366 ;;2033
+367 ;;21,"O99.512 ")
+368 ;;2034
+369 ;;21,"O99.513 ")
+370 ;;2035
+371 ;;21,"O99.519 ")
+372 ;;2036
+373 ;;21,"O99.52 ")
+374 ;;2037
+375 ;;21,"O99.611 ")
+376 ;;2038
+377 ;;21,"O99.612 ")
+378 ;;2039
+379 ;;21,"O99.613 ")
+380 ;;2040
+381 ;;21,"O99.619 ")
+382 ;;2041
+383 ;;21,"O99.62 ")
+384 ;;2042
+385 ;;21,"O99.711 ")
+386 ;;2043
+387 ;;21,"O99.712 ")
+388 ;;2044
+389 ;;21,"O99.713 ")
+390 ;;2045
+391 ;;21,"O99.719 ")
+392 ;;2046
+393 ;;21,"O99.72 ")
+394 ;;2047
+395 ;;21,"O99.810 ")
+396 ;;2048
+397 ;;21,"O99.814 ")
+398 ;;2049
+399 ;;21,"O99.820 ")
+400 ;;2050
+401 ;;21,"O99.824 ")
+402 ;;2051
+403 ;;21,"O99.830 ")
+404 ;;2052
+405 ;;21,"O99.834 ")
+406 ;;2053
+407 ;;21,"O99.840 ")
+408 ;;2054
+409 ;;21,"O99.841 ")
+410 ;;2055
+411 ;;21,"O99.842 ")
+412 ;;2056
+413 ;;21,"O99.843 ")
+414 ;;2057
+415 ;;21,"O99.844 ")
+416 ;;2058
+417 ;;21,"O99.89 ")
+418 ;;2059
+419 ;;21,"O9A.111 ")
+420 ;;2060
+421 ;;21,"O9A.112 ")
+422 ;;2061
+423 ;;21,"O9A.113 ")
+424 ;;2062
+425 ;;21,"O9A.119 ")
+426 ;;2063
+427 ;;21,"O9A.12 ")
+428 ;;2064
+429 ;;21,"O9A.211 ")
+430 ;;2065
+431 ;;21,"O9A.212 ")
+432 ;;2066
+433 ;;21,"O9A.213 ")
+434 ;;2067
+435 ;;21,"O9A.219 ")
+436 ;;2068
+437 ;;21,"O9A.22 ")
+438 ;;2069
+439 ;;21,"O9A.311 ")
+440 ;;2070
+441 ;;21,"O9A.312 ")
+442 ;;2071
+443 ;;21,"O9A.313 ")
+444 ;;2072
+445 ;;21,"O9A.319 ")
+446 ;;2073
+447 ;;21,"O9A.32 ")
+448 ;;2074
+449 ;;21,"O9A.411 ")
+450 ;;2075
+451 ;;21,"O9A.412 ")
+452 ;;2076
+453 ;;21,"O9A.413 ")
+454 ;;2077
+455 ;;21,"O9A.419 ")
+456 ;;2078
+457 ;;21,"O9A.42 ")
+458 ;;2079
+459 ;;21,"O9A.511 ")
+460 ;;2080
+461 ;;21,"O9A.512 ")
+462 ;;2081
+463 ;;21,"O9A.513 ")
+464 ;;2082
+465 ;;21,"O9A.519 ")
+466 ;;2083
+467 ;;21,"O9A.52 ")
+468 ;;2084
+469 ;;21,"V22.0 ")
+470 ;;2085
+471 ;;21,"V28.81 ")
+472 ;;2086
+473 ;;21,"V72.42 ")
+474 ;;2087
+475 ;;21,"V89.01 ")
+476 ;;2088
+477 ;;21,"Z03.71 ")
+478 ;;2089
+479 ;;21,"Z03.72 ")
+480 ;;2090
+481 ;;21,"Z03.73 ")
+482 ;;2091
+483 ;;21,"Z03.74 ")
+484 ;;2092
+485 ;;21,"Z03.75 ")
+486 ;;2093
+487 ;;21,"Z03.79 ")
+488 ;;2094
+489 ;;21,"Z32.01 ")
+490 ;;2095
+491 ;;21,"Z33.1 ")
+492 ;;2096
+493 ;;21,"Z34.00 ")
+494 ;;2097
+495 ;;21,"Z34.01 ")
+496 ;;2098
+497 ;;21,"Z34.02 ")
+498 ;;2099
+499 ;;21,"Z34.03 ")
+500 ;;2100
+501 ;;21,"Z34.80 ")
+502 ;;2101
+503 ;;21,"Z34.81 ")
+504 ;;2102
+505 ;;21,"Z34.82 ")
+506 ;;2103
+507 ;;21,"Z34.83 ")
+508 ;;2104
+509 ;;21,"Z34.90 ")
+510 ;;2105
+511 ;;21,"Z34.91 ")
+512 ;;2106
+513 ;;21,"Z34.92 ")
+514 ;;2107
+515 ;;21,"Z34.93 ")
+516 ;;2108
+517 ;;21,"Z36. ")
+518 ;;2109
+519 ;;9002226,1011,.01)
+520 ;;BGP PREGNANCY DIAGNOSES 2
+521 ;;9002226,1011,.02)
+522 ;;@
+523 ;;9002226,1011,.04)
+524 ;;n
+525 ;;9002226,1011,.06)
+526 ;;@
+527 ;;9002226,1011,.08)
+528 ;;0
+529 ;;9002226,1011,.09)
+530 ;;3130521
+531 ;;9002226,1011,.11)
+532 ;;@
+533 ;;9002226,1011,.12)
+534 ;;31
+535 ;;9002226,1011,.13)
+536 ;;1
+537 ;;9002226,1011,.14)
+538 ;;@
+539 ;;9002226,1011,.15)
+540 ;;80
+541 ;;9002226,1011,.16)
+542 ;;@
+543 ;;9002226,1011,.17)
+544 ;;@
+545 ;;9002226,1011,3101)
+546 ;;@
+547 ;;9002226.02101,"1011,640.03 ",.01)
+548 ;;640.03
+549 ;;9002226.02101,"1011,640.03 ",.02)
+550 ;;640.03
+551 ;;9002226.02101,"1011,640.03 ",.03)
+552 ;;1
+553 ;;9002226.02101,"1011,640.83 ",.01)
+554 ;;640.83
+555 ;;9002226.02101,"1011,640.83 ",.02)
+556 ;;640.83
+557 ;;9002226.02101,"1011,640.83 ",.03)
+558 ;;1
+559 ;;9002226.02101,"1011,640.93 ",.01)
+560 ;;640.93
+561 ;;9002226.02101,"1011,640.93 ",.02)
+562 ;;640.93
+563 ;;9002226.02101,"1011,640.93 ",.03)
+564 ;;1
+565 ;;9002226.02101,"1011,641.03 ",.01)
+566 ;;641.03
+567 ;;9002226.02101,"1011,641.03 ",.02)
+568 ;;641.03
+569 ;;9002226.02101,"1011,641.03 ",.03)
+570 ;;1
+571 ;;9002226.02101,"1011,641.13 ",.01)
+572 ;;641.13
+573 ;;9002226.02101,"1011,641.13 ",.02)
+574 ;;641.13
+575 ;;9002226.02101,"1011,641.13 ",.03)
+576 ;;1
+577 ;;9002226.02101,"1011,641.23 ",.01)
+578 ;;641.23
+579 ;;9002226.02101,"1011,641.23 ",.02)
+580 ;;641.23
+581 ;;9002226.02101,"1011,641.23 ",.03)
+582 ;;1
+583 ;;9002226.02101,"1011,641.33 ",.01)
+584 ;;641.33
+585 ;;9002226.02101,"1011,641.33 ",.02)
+586 ;;641.33
+587 ;;9002226.02101,"1011,641.33 ",.03)
+588 ;;1
+589 ;;9002226.02101,"1011,641.83 ",.01)
+590 ;;641.83
+591 ;;9002226.02101,"1011,641.83 ",.02)
+592 ;;641.83
+593 ;;9002226.02101,"1011,641.83 ",.03)
+594 ;;1
+595 ;;9002226.02101,"1011,641.93 ",.01)
+596 ;;641.93
+597 ;;9002226.02101,"1011,641.93 ",.02)
+598 ;;641.93
+599 ;;9002226.02101,"1011,641.93 ",.03)
+600 ;;1
+601 ;;9002226.02101,"1011,642.03 ",.01)
+602 ;;642.03
+603 ;;9002226.02101,"1011,642.03 ",.02)
+604 ;;642.03
+605 ;;9002226.02101,"1011,642.03 ",.03)
+606 ;;1
+607 ;;9002226.02101,"1011,642.13 ",.01)
+608 ;;642.13
+609 ;;9002226.02101,"1011,642.13 ",.02)
+610 ;;642.13
+611 ;;9002226.02101,"1011,642.13 ",.03)
+612 ;;1
+613 ;;9002226.02101,"1011,642.23 ",.01)
+614 ;;642.23
+615 ;;9002226.02101,"1011,642.23 ",.02)
+616 ;;642.23
+617 ;;9002226.02101,"1011,642.23 ",.03)
+618 ;;1
+619 ;;9002226.02101,"1011,642.33 ",.01)
+620 ;;642.33
+621 ;;9002226.02101,"1011,642.33 ",.02)
+622 ;;642.33
+623 ;;9002226.02101,"1011,642.33 ",.03)
+624 ;;1
+625 ;;9002226.02101,"1011,642.43 ",.01)
+626 ;;642.43
+627 ;;9002226.02101,"1011,642.43 ",.02)
+628 ;;642.43
+629 ;;9002226.02101,"1011,642.43 ",.03)
+630 ;;1
+631 ;;9002226.02101,"1011,642.53 ",.01)
+632 ;;642.53
+633 ;;9002226.02101,"1011,642.53 ",.02)
+634 ;;642.53
+635 ;;9002226.02101,"1011,642.53 ",.03)
+636 ;;1
+637 ;;9002226.02101,"1011,642.63 ",.01)
+638 ;;642.63
+639 ;;9002226.02101,"1011,642.63 ",.02)
+640 ;;642.63
+641 ;;9002226.02101,"1011,642.63 ",.03)
+642 ;;1
+643 ;;9002226.02101,"1011,642.73 ",.01)
+644 ;;642.73
+645 ;;9002226.02101,"1011,642.73 ",.02)
+646 ;;642.73
+647 ;;9002226.02101,"1011,642.73 ",.03)
+648 ;;1
+649 ;;9002226.02101,"1011,642.93 ",.01)
+650 ;;642.93
+651 ;;9002226.02101,"1011,642.93 ",.02)
+652 ;;642.93
+653 ;;9002226.02101,"1011,642.93 ",.03)
+654 ;;1
+655 ;;9002226.02101,"1011,643.03 ",.01)
+656 ;;643.03
+657 ;;9002226.02101,"1011,643.03 ",.02)
+658 ;;643.03
+659 ;;9002226.02101,"1011,643.03 ",.03)
+660 ;;1
+661 ;;9002226.02101,"1011,643.13 ",.01)
+662 ;;643.13
+663 ;;9002226.02101,"1011,643.13 ",.02)
+664 ;;643.13
+665 ;;9002226.02101,"1011,643.13 ",.03)
+666 ;;1
+667 ;;9002226.02101,"1011,643.23 ",.01)
+668 ;;643.23
+669 ;;9002226.02101,"1011,643.23 ",.02)
+670 ;;643.23
+671 ;;9002226.02101,"1011,643.23 ",.03)
+672 ;;1
+673 ;;9002226.02101,"1011,643.83 ",.01)
+674 ;;643.83
+675 ;;9002226.02101,"1011,643.83 ",.02)
+676 ;;643.83
+677 ;;9002226.02101,"1011,643.83 ",.03)
+678 ;;1
+679 ;;9002226.02101,"1011,643.93 ",.01)
+680 ;;643.93
+681 ;;9002226.02101,"1011,643.93 ",.02)
+682 ;;643.93
+683 ;;9002226.02101,"1011,643.93 ",.03)
+684 ;;1
+685 ;;9002226.02101,"1011,644.03 ",.01)
+686 ;;644.03
+687 ;;9002226.02101,"1011,644.03 ",.02)
+688 ;;644.03
+689 ;;9002226.02101,"1011,644.03 ",.03)
+690 ;;1
+691 ;;9002226.02101,"1011,644.13 ",.01)
+692 ;;644.13
+693 ;;9002226.02101,"1011,644.13 ",.02)
+694 ;;644.13
+695 ;;9002226.02101,"1011,644.13 ",.03)
+696 ;;1
+697 ;;9002226.02101,"1011,645.13 ",.01)
+698 ;;645.13
+699 ;;9002226.02101,"1011,645.13 ",.02)
+700 ;;645.13
+701 ;;9002226.02101,"1011,645.13 ",.03)
+702 ;;1
+703 ;;9002226.02101,"1011,645.23 ",.01)
+704 ;;645.23
+705 ;;9002226.02101,"1011,645.23 ",.02)
+706 ;;645.23
+707 ;;9002226.02101,"1011,645.23 ",.03)
+708 ;;1
+709 ;;9002226.02101,"1011,646.03 ",.01)
+710 ;;646.03
+711 ;;9002226.02101,"1011,646.03 ",.02)
+712 ;;646.03
+713 ;;9002226.02101,"1011,646.03 ",.03)
+714 ;;1
+715 ;;9002226.02101,"1011,646.13 ",.01)
+716 ;;646.13
+717 ;;9002226.02101,"1011,646.13 ",.02)
+718 ;;646.13
+719 ;;9002226.02101,"1011,646.13 ",.03)
+720 ;;1
+721 ;;9002226.02101,"1011,646.23 ",.01)
+722 ;;646.23
+723 ;;9002226.02101,"1011,646.23 ",.02)
+724 ;;646.23
+725 ;;9002226.02101,"1011,646.23 ",.03)
+726 ;;1
+727 ;;9002226.02101,"1011,646.33 ",.01)
+728 ;;646.33
+729 ;;9002226.02101,"1011,646.33 ",.02)
+730 ;;646.33
+731 ;;9002226.02101,"1011,646.33 ",.03)
+732 ;;1
+733 ;;9002226.02101,"1011,646.43 ",.01)
+734 ;;646.43
+735 ;;9002226.02101,"1011,646.43 ",.02)
+736 ;;646.43
+737 ;;9002226.02101,"1011,646.43 ",.03)
+738 ;;1
+739 ;;9002226.02101,"1011,646.53 ",.01)
+740 ;;646.53
+741 ;;9002226.02101,"1011,646.53 ",.02)
+742 ;;646.53
+743 ;;9002226.02101,"1011,646.53 ",.03)
+744 ;;1
+745 ;;9002226.02101,"1011,646.63 ",.01)
+746 ;;646.63
+747 ;;9002226.02101,"1011,646.63 ",.02)
+748 ;;646.63
+749 ;;9002226.02101,"1011,646.63 ",.03)
+750 ;;1
+751 ;;9002226.02101,"1011,646.73 ",.01)
+752 ;;646.73
+753 ;;9002226.02101,"1011,646.73 ",.02)
+754 ;;646.73
+755 ;;9002226.02101,"1011,646.73 ",.03)
+756 ;;1
+757 ;;9002226.02101,"1011,646.83 ",.01)
+758 ;;646.83
+759 ;;9002226.02101,"1011,646.83 ",.02)
+760 ;;646.83
+761 ;;9002226.02101,"1011,646.83 ",.03)
+762 ;;1
+763 ;;9002226.02101,"1011,646.93 ",.01)
+764 ;;646.93
+765 ;;9002226.02101,"1011,646.93 ",.02)
+766 ;;646.93
+767 ;;9002226.02101,"1011,646.93 ",.03)
+768 ;;1
+769 ;;9002226.02101,"1011,647.03 ",.01)
+770 ;;647.03
+771 ;;9002226.02101,"1011,647.03 ",.02)
+772 ;;647.03
+773 ;;9002226.02101,"1011,647.03 ",.03)
+774 ;;1
+775 ;;9002226.02101,"1011,647.13 ",.01)
+776 ;;647.13
+777 ;;9002226.02101,"1011,647.13 ",.02)
+778 ;;647.13
