- BGPM5ALK ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
- +1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
- +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,"65243004503 ")
- +2 ;;1820
- +3 ;;21,"65243004518 ")
- +4 ;;1821
- +5 ;;21,"65243006403 ")
- +6 ;;1822
- +7 ;;21,"65243006406 ")
- +8 ;;1823
- +9 ;;21,"65243006409 ")
- +10 ;;1824
- +11 ;;21,"65243006445 ")
- +12 ;;1825
- +13 ;;21,"65243006503 ")
- +14 ;;1826
- +15 ;;21,"65243006506 ")
- +16 ;;1827
- +17 ;;21,"65243006509 ")
- +18 ;;1828
- +19 ;;21,"65243006545 ")
- +20 ;;1829
- +21 ;;21,"65243008203 ")
- +22 ;;1830
- +23 ;;21,"65243008209 ")
- +24 ;;1831
- +25 ;;21,"65243008215 ")
- +26 ;;1832
- +27 ;;21,"65243008245 ")
- +28 ;;1833
- +29 ;;21,"65243012203 ")
- +30 ;;1834
- +31 ;;21,"65243012209 ")
- +32 ;;1835
- +33 ;;21,"65243012245 ")
- +34 ;;1836
- +35 ;;21,"65243012303 ")
- +36 ;;1837
- +37 ;;21,"65243012309 ")
- +38 ;;1838
- +39 ;;21,"65243012345 ")
- +40 ;;1839
- +41 ;;21,"65243028403 ")
- +42 ;;1840
- +43 ;;21,"65243028406 ")
- +44 ;;1841
- +45 ;;21,"65243028409 ")
- +46 ;;1842
- +47 ;;21,"65243028412 ")
- +48 ;;1843
- +49 ;;21,"65243028418 ")
- +50 ;;1844
- +51 ;;21,"65243035203 ")
- +52 ;;1845
- +53 ;;21,"65243035206 ")
- +54 ;;1846
- +55 ;;21,"65243035209 ")
- +56 ;;1847
- +57 ;;21,"65243035218 ")
- +58 ;;1848
- +59 ;;21,"65243035245 ")
- +60 ;;1849
- +61 ;;21,"65427004523 ")
- +62 ;;1850
- +63 ;;21,"65427004530 ")
- +64 ;;1851
- +65 ;;21,"65427004534 ")
- +66 ;;1852
- +67 ;;21,"65427004540 ")
- +68 ;;1853
- +69 ;;21,"65427004597 ")
- +70 ;;1854
- +71 ;;21,"65427004623 ")
- +72 ;;1855
- +73 ;;21,"65427004630 ")
- +74 ;;1856
- +75 ;;21,"65427004640 ")
- +76 ;;1857
- +77 ;;21,"65427004694 ")
- +78 ;;1858
- +79 ;;21,"65427004701 ")
- +80 ;;1859
- +81 ;;21,"65427004702 ")
- +82 ;;1860
- +83 ;;21,"65427004723 ")
- +84 ;;1861
- +85 ;;21,"65427004730 ")
- +86 ;;1862
- +87 ;;21,"65427004773 ")
- +88 ;;1863
- +89 ;;21,"65427004802 ")
- +90 ;;1864
- +91 ;;21,"65427004803 ")
- +92 ;;1865
- +93 ;;21,"65427015823 ")
- +94 ;;1866
- +95 ;;21,"65427015830 ")
- +96 ;;1867
- +97 ;;21,"65427015873 ")
- +98 ;;1868
- +99 ;;21,"65427015897 ")
- +100 ;;1869
- +101 ;;21,"65427073720 ")
- +102 ;;1870
- +103 ;;21,"65427073730 ")
- +104 ;;1871
- +105 ;;21,"65597070118 ")
- +106 ;;1872
- +107 ;;21,"65726040105 ")
- +108 ;;1873
- +109 ;;21,"65726040301 ")
- +110 ;;1874
- +111 ;;21,"65726040305 ")
- +112 ;;1875
- +113 ;;21,"65726040310 ")
- +114 ;;1876
- +115 ;;21,"66105011309 ")
- +116 ;;1877
- +117 ;;21,"66105011409 ")
- +118 ;;1878
- +119 ;;21,"66105011509 ")
- +120 ;;1879
- +121 ;;21,"66105014701 ")
- +122 ;;1880
- +123 ;;21,"66105014703 ")
- +124 ;;1881
- +125 ;;21,"66105014706 ")
- +126 ;;1882
- +127 ;;21,"66105014709 ")
- +128 ;;1883
- +129 ;;21,"66105014710 ")
- +130 ;;1884
- +131 ;;21,"66105050503 ")
- +132 ;;1885
- +133 ;;21,"66105050601 ")
- +134 ;;1886
- +135 ;;21,"66105050603 ")
- +136 ;;1887
- +137 ;;21,"66105050606 ")
- +138 ;;1888
- +139 ;;21,"66105050609 ")
- +140 ;;1889
- +141 ;;21,"66105050610 ")
- +142 ;;1890
- +143 ;;21,"66105097903 ")
- +144 ;;1891
- +145 ;;21,"66105098803 ")
- +146 ;;1892
- +147 ;;21,"66116027730 ")
- +148 ;;1893
- +149 ;;21,"66116045130 ")
- +150 ;;1894
- +151 ;;21,"66116081730 ")
- +152 ;;1895
- +153 ;;21,"66116081830 ")
- +154 ;;1896
- +155 ;;21,"66116083230 ")
- +156 ;;1897
- +157 ;;21,"66116083330 ")
- +158 ;;1898
- +159 ;;21,"66116084730 ")
- +160 ;;1899
- +161 ;;21,"66116086330 ")
- +162 ;;1900
- +163 ;;21,"66267023310 ")
- +164 ;;1901
- +165 ;;21,"66267023320 ")
- +166 ;;1902
- +167 ;;21,"66267023330 ")
- +168 ;;1903
- +169 ;;21,"66267023340 ")
- +170 ;;1904
- +171 ;;21,"66267023360 ")
- +172 ;;1905
- +173 ;;21,"66267037130 ")
- +174 ;;1906
- +175 ;;21,"66267037230 ")
- +176 ;;1907
- +177 ;;21,"66267038730 ")
- +178 ;;1908
- +179 ;;21,"66267043620 ")
- +180 ;;1909
- +181 ;;21,"66267043630 ")
- +182 ;;1910
- +183 ;;21,"66267043640 ")
- +184 ;;1911
- +185 ;;21,"66267043660 ")
- +186 ;;1912
- +187 ;;21,"66267043690 ")
- +188 ;;1913
- +189 ;;21,"66267043692 ")
- +190 ;;1914
- +191 ;;21,"66267044820 ")
- +192 ;;1915
- +193 ;;21,"66267044825 ")
- +194 ;;1916
- +195 ;;21,"66267044830 ")
- +196 ;;1917
- +197 ;;21,"66267044840 ")
- +198 ;;1918
- +199 ;;21,"66267044860 ")
- +200 ;;1919
- +201 ;;21,"66267046210 ")
- +202 ;;1920
- +203 ;;21,"66267046220 ")
- +204 ;;1921
- +205 ;;21,"66267046230 ")
- +206 ;;1922
- +207 ;;21,"66267046240 ")
- +208 ;;1923
- +209 ;;21,"66267046260 ")
- +210 ;;1924
- +211 ;;21,"66267050610 ")
- +212 ;;1925
- +213 ;;21,"66267050615 ")
- +214 ;;1926
- +215 ;;21,"66267050620 ")
- +216 ;;1927
- +217 ;;21,"66267050630 ")
- +218 ;;1928
- +219 ;;21,"66267050640 ")
- +220 ;;1929
- +221 ;;21,"66267050660 ")
- +222 ;;1930
- +223 ;;21,"66267050690 ")
- +224 ;;1931
- +225 ;;21,"66267053010 ")
- +226 ;;1932
- +227 ;;21,"66267053020 ")
- +228 ;;1933
- +229 ;;21,"66267053030 ")
- +230 ;;1934
- +231 ;;21,"66267053040 ")
- +232 ;;1935
- +233 ;;21,"66267053060 ")
- +234 ;;1936
- +235 ;;21,"66267055520 ")
- +236 ;;1937
- +237 ;;21,"66267055528 ")
- +238 ;;1938
- +239 ;;21,"66267055530 ")
- +240 ;;1939
- +241 ;;21,"66267055540 ")
- +242 ;;1940
- +243 ;;21,"66267055560 ")
- +244 ;;1941
- +245 ;;21,"66267055590 ")
- +246 ;;1942
- +247 ;;21,"66267056130 ")
- +248 ;;1943
- +249 ;;21,"66267056160 ")
- +250 ;;1944
- +251 ;;21,"66267056190 ")
- +252 ;;1945
- +253 ;;21,"66267069430 ")
- +254 ;;1946
- +255 ;;21,"66336031030 ")
- +256 ;;1947
- +257 ;;21,"66336031060 ")
- +258 ;;1948
- +259 ;;21,"66336036760 ")
- +260 ;;1949
- +261 ;;21,"66336037130 ")
- +262 ;;1950
- +263 ;;21,"66336041230 ")
- +264 ;;1951
- +265 ;;21,"66411015528 ")
- +266 ;;1952
- +267 ;;21,"66411015590 ")
- +268 ;;1953
- +269 ;;21,"66484074100 ")
- +270 ;;1954
- +271 ;;21,"66484074106 ")
- +272 ;;1955
- +273 ;;21,"66582031101 ")
- +274 ;;1956
- +275 ;;21,"66582031128 ")
- +276 ;;1957
- +277 ;;21,"66582031131 ")
- +278 ;;1958
- +279 ;;21,"66582031154 ")
- +280 ;;1959
- +281 ;;21,"66582031182 ")
- +282 ;;1960
- +283 ;;21,"66582031187 ")
- +284 ;;1961
- +285 ;;21,"66582031201 ")
- +286 ;;1962
- +287 ;;21,"66582031227 ")
- +288 ;;1963
- +289 ;;21,"66582031228 ")
- +290 ;;1964
- +291 ;;21,"66582031231 ")
- +292 ;;1965
- +293 ;;21,"66582031254 ")
- +294 ;;1966
- +295 ;;21,"66582031282 ")
- +296 ;;1967
- +297 ;;21,"66582031287 ")
- +298 ;;1968
- +299 ;;21,"66582031301 ")
- +300 ;;1969
- +301 ;;21,"66582031327 ")
- +302 ;;1970
- +303 ;;21,"66582031331 ")
- +304 ;;1971
- +305 ;;21,"66582031352 ")
- +306 ;;1972
- +307 ;;21,"66582031354 ")
- +308 ;;1973
- +309 ;;21,"66582031374 ")
- +310 ;;1974
- +311 ;;21,"66582031386 ")
- +312 ;;1975
- +313 ;;21,"66582031501 ")
- +314 ;;1976
- +315 ;;21,"66582031531 ")
- +316 ;;1977
- +317 ;;21,"66582031552 ")
- +318 ;;1978
- +319 ;;21,"66582031554 ")
- +320 ;;1979
- +321 ;;21,"66582031566 ")
- +322 ;;1980
- +323 ;;21,"66582031574 ")
- +324 ;;1981
- +325 ;;21,"66582041415 ")
- +326 ;;1982
- +327 ;;21,"66582041428 ")
- +328 ;;1983
- +329 ;;21,"66582041429 ")
- +330 ;;1984
- +331 ;;21,"66582041430 ")
- +332 ;;1985
- +333 ;;21,"66582041431 ")
- +334 ;;1986
- +335 ;;21,"66582041454 ")
- +336 ;;1987
- +337 ;;21,"66582041474 ")
- +338 ;;1988
- +339 ;;21,"66582041476 ")
- +340 ;;1989
- +341 ;;21,"67046023030 ")
- +342 ;;1990
- +343 ;;21,"67046023130 ")
- +344 ;;1991
- +345 ;;21,"67228023803 ")
- +346 ;;1992
- +347 ;;21,"67228023806 ")
- +348 ;;1993
- +349 ;;21,"67228029403 ")
- +350 ;;1994
- +351 ;;21,"67228029406 ")
- +352 ;;1995
- +353 ;;21,"67228034003 ")
- +354 ;;1996
- +355 ;;21,"67228034006 ")
- +356 ;;1997
- +357 ;;21,"67228044903 ")
- +358 ;;1998
- +359 ;;21,"67228044906 ")
- +360 ;;1999
- +361 ;;21,"67228045803 ")
- +362 ;;2000
- +363 ;;21,"67228045806 ")
- +364 ;;2001
- +365 ;;21,"67228046603 ")
- +366 ;;2002
- +367 ;;21,"67228046606 ")
- +368 ;;2003
- +369 ;;21,"67253074106 ")
- +370 ;;2004
- +371 ;;21,"67253074109 ")
- +372 ;;2005
- +373 ;;21,"67253074150 ")
- +374 ;;2006
- +375 ;;21,"67263004890 ")
- +376 ;;2007
- +377 ;;21,"67263026790 ")
- +378 ;;2008
- +379 ;;21,"67263054101 ")
- +380 ;;2009
- +381 ;;21,"67317031101 ")
- +382 ;;2010
- +383 ;;21,"67317031102 ")
- +384 ;;2011
- +385 ;;21,"67317031103 ")
- +386 ;;2012
- +387 ;;21,"67317031104 ")
- +388 ;;2013
- +389 ;;21,"67317031201 ")
- +390 ;;2014
- +391 ;;21,"67317031202 ")
- +392 ;;2015
- +393 ;;21,"67317031203 ")
- +394 ;;2016
- +395 ;;21,"67317031204 ")
- +396 ;;2017
- +397 ;;21,"67317031205 ")
- +398 ;;2018
- +399 ;;21,"67317031206 ")
- +400 ;;2019
- +401 ;;21,"67317031301 ")
- +402 ;;2020
- +403 ;;21,"67317031302 ")
- +404 ;;2021
- +405 ;;21,"67317031303 ")
- +406 ;;2022
- +407 ;;21,"67317031304 ")
- +408 ;;2023
- +409 ;;21,"67317031305 ")
- +410 ;;2024
- +411 ;;21,"67317031306 ")
- +412 ;;2025
- +413 ;;21,"67317031501 ")
- +414 ;;2026
- +415 ;;21,"67317031502 ")
- +416 ;;2027
- +417 ;;21,"67317031503 ")
- +418 ;;2028
- +419 ;;21,"67317031504 ")
- +420 ;;2029
- +421 ;;21,"67317031505 ")
- +422 ;;2030
- +423 ;;21,"67544005015 ")
- +424 ;;2031
- +425 ;;21,"67544005030 ")
- +426 ;;2032
- +427 ;;21,"67544005045 ")
- +428 ;;2033
- +429 ;;21,"67544005053 ")
- +430 ;;2034
- +431 ;;21,"67544005060 ")
- +432 ;;2035
- +433 ;;21,"67544005115 ")
- +434 ;;2036
- +435 ;;21,"67544005145 ")
- +436 ;;2037
- +437 ;;21,"67544005153 ")
- +438 ;;2038
- +439 ;;21,"67544006015 ")
- +440 ;;2039
- +441 ;;21,"67544006030 ")
- +442 ;;2040
- +443 ;;21,"67544006045 ")
- +444 ;;2041
- +445 ;;21,"67544006060 ")
- +446 ;;2042
- +447 ;;21,"67544008115 ")
- +448 ;;2043
- +449 ;;21,"67544008145 ")
- +450 ;;2044
- +451 ;;21,"67544008215 ")
- +452 ;;2045
- +453 ;;21,"67544008245 ")
- +454 ;;2046
- +455 ;;21,"67544009631 ")
- +456 ;;2047
- +457 ;;21,"67544009660 ")
- +458 ;;2048
- +459 ;;21,"67544009680 ")
- +460 ;;2049
- +461 ;;21,"67544010615 ")
- +462 ;;2050
- +463 ;;21,"67544010630 ")
- +464 ;;2051
- +465 ;;21,"67544010631 ")
- +466 ;;2052
- +467 ;;21,"67544010632 ")
- +468 ;;2053
- +469 ;;21,"67544010645 ")
- +470 ;;2054
- +471 ;;21,"67544010653 ")
- +472 ;;2055
- +473 ;;21,"67544010660 ")
- +474 ;;2056
- +475 ;;21,"67544010680 ")
- +476 ;;2057
- +477 ;;21,"67544013730 ")
- +478 ;;2058
- +479 ;;21,"67544013731 ")
- +480 ;;2059
- +481 ;;21,"67544013732 ")
- +482 ;;2060
- +483 ;;21,"67544013760 ")
- +484 ;;2061
- +485 ;;21,"67544013780 ")
- +486 ;;2062
- +487 ;;21,"67544022515 ")
- +488 ;;2063
- +489 ;;21,"67544022530 ")
- +490 ;;2064
- +491 ;;21,"67544022532 ")
- +492 ;;2065
- +493 ;;21,"67544022545 ")
- +494 ;;2066
- +495 ;;21,"67544022553 ")
- +496 ;;2067
- +497 ;;21,"67544022560 ")
- +498 ;;2068
- +499 ;;21,"67544022580 ")
- +500 ;;2069
- +501 ;;21,"67544024530 ")
- +502 ;;2070
- +503 ;;21,"67544024560 ")
- +504 ;;2071
- +505 ;;21,"67544035160 ")
- +506 ;;2072
- +507 ;;21,"67544035180 ")
- +508 ;;2073
- +509 ;;21,"67544043560 ")
- +510 ;;2074
- +511 ;;21,"67544059731 ")
- +512 ;;2075
- +513 ;;21,"67544069131 ")
- +514 ;;2076
- +515 ;;21,"67544069231 ")
- +516 ;;2077
- +517 ;;21,"67544069232 ")
- +518 ;;2078
- +519 ;;21,"67544075715 ")
- +520 ;;2079
- +521 ;;21,"67544075731 ")
- +522 ;;2080
- +523 ;;21,"67544075760 ")
- +524 ;;2081
- +525 ;;21,"67544078932 ")
- +526 ;;2082
- +527 ;;21,"67544083031 ")
- +528 ;;2083
- +529 ;;21,"67544091032 ")
- +530 ;;2084
- +531 ;;21,"67544093632 ")
- +532 ;;2085
- +533 ;;21,"67651002205 ")
- +534 ;;2086
- +535 ;;21,"67651002206 ")
- +536 ;;2087
- +537 ;;21,"67707004330 ")
- +538 ;;2088
- +539 ;;21,"67707004399 ")
- +540 ;;2089
- +541 ;;21,"67707013003 ")
- +542 ;;2090
- +543 ;;21,"67707013007 ")
- +544 ;;2091
- +545 ;;21,"67707013030 ")
- +546 ;;2092
- +547 ;;21,"67707013099 ")
- +548 ;;2093
- +549 ;;21,"67787022505 ")
- +550 ;;2094
- +551 ;;21,"67787022518 ")
- +552 ;;2095
- +553 ;;21,"67787022540 ")
- +554 ;;2096
- +555 ;;21,"67787022552 ")
- +556 ;;2097
- +557 ;;21,"67787022560 ")
- +558 ;;2098
- +559 ;;21,"67801030103 ")
- +560 ;;2099
- +561 ;;21,"67801030135 ")
- +562 ;;2100
- +563 ;;21,"67801031403 ")
- +564 ;;2101
- +565 ;;21,"67801040103 ")
- +566 ;;2102
- +567 ;;21,"67801040203 ")
- +568 ;;2103
- +569 ;;21,"67801040206 ")
- +570 ;;2104
- +571 ;;21,"67801040209 ")
- +572 ;;2105
- +573 ;;21,"67801040230 ")
- +574 ;;2106
- +575 ;;21,"67801041403 ")
- +576 ;;2107
- +577 ;;21,"68071015430 ")
- +578 ;;2108
- +579 ;;21,"68071026330 ")
- +580 ;;2109
- +581 ;;21,"68071031030 ")
- +582 ;;2110
- +583 ;;21,"68071039930 ")
- +584 ;;2111
- +585 ;;21,"68071043290 ")
- +586 ;;2112
- +587 ;;21,"68071043330 ")
- +588 ;;2113
- +589 ;;21,"68071078430 ")
- +590 ;;2114
- +591 ;;21,"68084013101 ")
- +592 ;;2115
- +593 ;;21,"68084013111 ")
- +594 ;;2116
- +595 ;;21,"68084013201 ")
- +596 ;;2117
- +597 ;;21,"68084013211 ")
- +598 ;;2118
- +599 ;;21,"68084013301 ")
- +600 ;;2119
- +601 ;;21,"68084013311 ")
- +602 ;;2120
- +603 ;;21,"68084032911 ")
- +604 ;;2121
- +605 ;;21,"68084032921 ")
- +606 ;;2122
- +607 ;;21,"68084047301 ")
- +608 ;;2123
- +609 ;;21,"68084047311 ")
- +610 ;;2124
- +611 ;;21,"68115077730 ")
- +612 ;;2125
- +613 ;;21,"68180046701 ")
- +614 ;;2126
- +615 ;;21,"68180046703 ")
- +616 ;;2127
- +617 ;;21,"68180046705 ")
- +618 ;;2128
- +619 ;;21,"68180046707 ")
- +620 ;;2129
- +621 ;;21,"68180046801 ")
- +622 ;;2130
- +623 ;;21,"68180046803 ")
- +624 ;;2131
- +625 ;;21,"68180046805 ")
- +626 ;;2132
- +627 ;;21,"68180046807 ")
- +628 ;;2133
- +629 ;;21,"68180046809 ")
- +630 ;;2134
- +631 ;;21,"68180046901 ")
- +632 ;;2135
- +633 ;;21,"68180046903 ")
- +634 ;;2136
- +635 ;;21,"68180046905 ")
- +636 ;;2137
- +637 ;;21,"68180046907 ")
- +638 ;;2138
- +639 ;;21,"68180046909 ")
- +640 ;;2139
- +641 ;;21,"68258600009 ")
- +642 ;;2140
- +643 ;;21,"68258600109 ")
- +644 ;;2141
- +645 ;;21,"68258600209 ")
- +646 ;;2142
- +647 ;;21,"68382010005 ")
- +648 ;;2143
- +649 ;;21,"68382010014 ")
- +650 ;;2144
- +651 ;;21,"68543000101 ")
- +652 ;;2145
- +653 ;;21,"68543000401 ")
- +654 ;;2146
- +655 ;;21,"68543000601 ")
- +656 ;;2147
- +657 ;;21,"68543004801 ")
- +658 ;;2148
- +659 ;;21,"68788003403 ")
- +660 ;;2149
- +661 ;;21,"68788003405 ")
- +662 ;;2150
- +663 ;;21,"68788003406 ")
- +664 ;;2151
- +665 ;;21,"68788007403 ")
- +666 ;;2152
- +667 ;;21,"68788007406 ")
- +668 ;;2153
- +669 ;;21,"68788007409 ")
- +670 ;;2154
- +671 ;;21,"68788057603 ")
- +672 ;;2155
- +673 ;;21,"68788057606 ")
- +674 ;;2156
- +675 ;;21,"68788057609 ")
- +676 ;;2157
- +677 ;;21,"68788075503 ")
- +678 ;;2158
- +679 ;;21,"68788075506 ")
- +680 ;;2159
- +681 ;;21,"68788075509 ")
- +682 ;;2160
- +683 ;;21,"68788092603 ")
- +684 ;;2161
- +685 ;;21,"68788092606 ")
- +686 ;;2162
- +687 ;;21,"68788092609 ")
- +688 ;;2163
- +689 ;;21,"68788092803 ")
- +690 ;;2164
- +691 ;;21,"68788092806 ")
- +692 ;;2165
- +693 ;;21,"68788092809 ")
- +694 ;;2166
- +695 ;;21,"68788236403 ")
- +696 ;;2167
- +697 ;;21,"68788236406 ")
- +698 ;;2168
- +699 ;;21,"68788236409 ")
- +700 ;;2169
- +701 ;;21,"68788263303 ")
- +702 ;;2170
- +703 ;;21,"68788263306 ")
- +704 ;;2171