Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPM3AAX

BGPM3AAX.m

Go to the documentation of this file.
BGPM3AAX ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"55567010618 ")
 ;;2430
 ;;21,"55567010635 ")
 ;;2431
 ;;21,"55567010700 ")
 ;;2487
 ;;21,"55567010701 ")
 ;;2488
 ;;21,"55567010710 ")
 ;;2489
 ;;21,"55567010718 ")
 ;;2490
 ;;21,"55567010735 ")
 ;;2491
 ;;21,"55567010800 ")
 ;;1563
 ;;21,"55567010801 ")
 ;;1564
 ;;21,"55567010810 ")
 ;;1565
 ;;21,"55567010818 ")
 ;;1566
 ;;21,"55567010835 ")
 ;;1567
 ;;21,"55567026600 ")
 ;;1959
 ;;21,"55567026601 ")
 ;;1960
 ;;21,"55567026610 ")
 ;;1961
 ;;21,"55567026700 ")
 ;;2042
 ;;21,"55567026701 ")
 ;;2043
 ;;21,"55567026710 ")
 ;;2044
 ;;21,"55567026800 ")
 ;;2236
 ;;21,"55567026801 ")
 ;;2237
 ;;21,"55567026810 ")
 ;;2238
 ;;21,"55587057810 ")
 ;;2239
 ;;21,"55587057830 ")
 ;;2240
 ;;21,"55587057845 ")
 ;;2241
 ;;21,"55587057860 ")
 ;;2242
 ;;21,"55587057886 ")
 ;;2243
 ;;21,"55587057890 ")
 ;;2244
 ;;21,"55829015310 ")
 ;;366
 ;;21,"55887004401 ")
 ;;1962
 ;;21,"55887004430 ")
 ;;1963
 ;;21,"55887004460 ")
 ;;1964
 ;;21,"55887004490 ")
 ;;1965
 ;;21,"55887026401 ")
 ;;1432
 ;;21,"55887026430 ")
 ;;1433
 ;;21,"55887026490 ")
 ;;1434
 ;;21,"55887038630 ")
 ;;124
 ;;21,"55887046430 ")
 ;;2045
 ;;21,"55887046490 ")
 ;;2046
 ;;21,"55887057710 ")
 ;;1848
 ;;21,"55887057730 ")
 ;;1849
 ;;21,"55887057760 ")
 ;;1850
 ;;21,"55887057790 ")
 ;;1851
 ;;21,"55887057810 ")
 ;;2245
 ;;21,"55887057830 ")
 ;;2246
 ;;21,"55887057860 ")
 ;;2247
 ;;21,"55887057886 ")
 ;;2248
 ;;21,"55887057890 ")
 ;;2249
 ;;21,"55887069001 ")
 ;;367
 ;;21,"55887069030 ")
 ;;368
 ;;21,"55887092630 ")
 ;;1665
 ;;21,"55887092690 ")
 ;;1666
 ;;21,"55966002809 ")
 ;;760
 ;;21,"55966002820 ")
 ;;761
 ;;21,"55966004109 ")
 ;;369
 ;;21,"55966004124 ")
 ;;370
 ;;21,"55966004501 ")
 ;;125
 ;;21,"55966004509 ")
 ;;126
 ;;21,"55966004801 ")
 ;;371
 ;;21,"55966004805 ")
 ;;372
 ;;21,"55966004809 ")
 ;;373
 ;;21,"55966004810 ")
 ;;374
 ;;21,"55966004815 ")
 ;;375
 ;;21,"55966004837 ")
 ;;376
 ;;21,"55966008903 ")
 ;;834
 ;;21,"55966008909 ")
 ;;835
 ;;21,"55966010706 ")
 ;;631
 ;;21,"55966010709 ")
 ;;632
 ;;21,"57394028652 ")
 ;;127
 ;;21,"57394028662 ")
 ;;128
 ;;21,"57480010401 ")
 ;;377
 ;;21,"57480010406 ")
 ;;378
 ;;21,"57480010601 ")
 ;;129
 ;;21,"57480010606 ")
 ;;130
 ;;21,"57664032706 ")
 ;;1358
 ;;21,"57664032713 ")
 ;;1359
 ;;21,"57664032783 ")
 ;;1360
 ;;21,"57866109003 ")
 ;;379
 ;;21,"57866109103 ")
 ;;131
 ;;21,"57866994601 ")
 ;;1667
 ;;21,"57866994602 ")
 ;;1668
 ;;21,"57896050001 ")
 ;;380
 ;;21,"57896050010 ")
 ;;381
 ;;21,"57896050101 ")
 ;;382
 ;;21,"57896050110 ")
 ;;383
 ;;21,"57896051036 ")
 ;;762
 ;;21,"57896053001 ")
 ;;384
 ;;21,"57896053010 ")
 ;;385
 ;;21,"57896090101 ")
 ;;386
 ;;21,"57896090110 ")
 ;;387
 ;;21,"57896090125 ")
 ;;388
 ;;21,"57896093101 ")
 ;;389
 ;;21,"58016001400 ")
 ;;899
 ;;21,"58016001401 ")
 ;;900
 ;;21,"58016001402 ")
 ;;901
 ;;21,"58016001403 ")
 ;;902
 ;;21,"58016001404 ")
 ;;903
 ;;21,"58016001405 ")
 ;;904
 ;;21,"58016001406 ")
 ;;905
 ;;21,"58016001407 ")
 ;;906
 ;;21,"58016001408 ")
 ;;907
 ;;21,"58016001409 ")
 ;;908
 ;;21,"58016001410 ")
 ;;909
 ;;21,"58016001430 ")
 ;;910
 ;;21,"58016001460 ")
 ;;911
 ;;21,"58016001490 ")
 ;;912
 ;;21,"58016008300 ")
 ;;2047
 ;;21,"58016008301 ")
 ;;2048
 ;;21,"58016008302 ")
 ;;2049
 ;;21,"58016008303 ")
 ;;2050
 ;;21,"58016008304 ")
 ;;2051
 ;;21,"58016008305 ")
 ;;2052
 ;;21,"58016008306 ")
 ;;2053
 ;;21,"58016008307 ")
 ;;2054
 ;;21,"58016008308 ")
 ;;2055
 ;;21,"58016008309 ")
 ;;2056
 ;;21,"58016008310 ")
 ;;2057
 ;;21,"58016008312 ")
 ;;2058
 ;;21,"58016008314 ")
 ;;2059
 ;;21,"58016008315 ")
 ;;2060
 ;;21,"58016008316 ")
 ;;2061
 ;;21,"58016008318 ")
 ;;2062
 ;;21,"58016008320 ")
 ;;2063
 ;;21,"58016008321 ")
 ;;2064
 ;;21,"58016008324 ")
 ;;2065
 ;;21,"58016008325 ")
 ;;2066
 ;;21,"58016008326 ")
 ;;2067
 ;;21,"58016008327 ")
 ;;2068
 ;;21,"58016008328 ")
 ;;2069
 ;;21,"58016008330 ")
 ;;2070
 ;;21,"58016008332 ")
 ;;2071
 ;;21,"58016008335 ")
 ;;2072
 ;;21,"58016008336 ")
 ;;2073
 ;;21,"58016008340 ")
 ;;2074
 ;;21,"58016008342 ")
 ;;2075
 ;;21,"58016008344 ")
 ;;2076
 ;;21,"58016008345 ")
 ;;2077
 ;;21,"58016008348 ")
 ;;2078
 ;;21,"58016008350 ")
 ;;2079
 ;;21,"58016008356 ")
 ;;2080
 ;;21,"58016008360 ")
 ;;2081
 ;;21,"58016008367 ")
 ;;2082
 ;;21,"58016008369 ")
 ;;2083
 ;;21,"58016008370 ")
 ;;2084
 ;;21,"58016008371 ")
 ;;2085
 ;;21,"58016008372 ")
 ;;2086
 ;;21,"58016008373 ")
 ;;2087
 ;;21,"58016008375 ")
 ;;2088
 ;;21,"58016008376 ")
 ;;2089
 ;;21,"58016008377 ")
 ;;2090
 ;;21,"58016008379 ")
 ;;2091
 ;;21,"58016008380 ")
 ;;2092
 ;;21,"58016008381 ")
 ;;2093
 ;;21,"58016008382 ")
 ;;2094
 ;;21,"58016008383 ")
 ;;2095
 ;;21,"58016008384 ")
 ;;2096
 ;;21,"58016008387 ")
 ;;2097
 ;;21,"58016008389 ")
 ;;2098
 ;;21,"58016008390 ")
 ;;2099
 ;;21,"58016008391 ")
 ;;2100
 ;;21,"58016008392 ")
 ;;2101
 ;;21,"58016008393 ")
 ;;2102
 ;;21,"58016008396 ")
 ;;2103
 ;;21,"58016008397 ")
 ;;2104
 ;;21,"58016008398 ")
 ;;2105
 ;;21,"58016008399 ")
 ;;2106
 ;;21,"58016020700 ")
 ;;390
 ;;21,"58016022500 ")
 ;;132
 ;;21,"58016022520 ")
 ;;133
 ;;21,"58016022530 ")
 ;;134
 ;;21,"58016022560 ")
 ;;135
 ;;21,"58016027700 ")
 ;;1669
 ;;21,"58016027701 ")
 ;;1670
 ;;21,"58016027702 ")
 ;;1671
 ;;21,"58016027703 ")
 ;;1672
 ;;21,"58016027704 ")
 ;;1673
 ;;21,"58016027705 ")
 ;;1674
 ;;21,"58016027706 ")
 ;;1675
 ;;21,"58016027707 ")
 ;;1676
 ;;21,"58016027708 ")
 ;;1677
 ;;21,"58016027709 ")
 ;;1678
 ;;21,"58016027710 ")
 ;;1679
 ;;21,"58016027712 ")
 ;;1680
 ;;21,"58016027714 ")
 ;;1681
 ;;21,"58016027715 ")
 ;;1682
 ;;21,"58016027716 ")
 ;;1683
 ;;21,"58016027718 ")
 ;;1684
 ;;21,"58016027720 ")
 ;;1685
 ;;21,"58016027721 ")
 ;;1686
 ;;21,"58016027724 ")
 ;;1687
 ;;21,"58016027725 ")
 ;;1688
 ;;21,"58016027726 ")
 ;;1689
 ;;21,"58016027727 ")
 ;;1690
 ;;21,"58016027728 ")
 ;;1691
 ;;21,"58016027730 ")
 ;;1692
 ;;21,"58016027732 ")
 ;;1693
 ;;21,"58016027735 ")
 ;;1694
 ;;21,"58016027736 ")
 ;;1695
 ;;21,"58016027740 ")
 ;;1696
 ;;21,"58016027742 ")
 ;;1697
 ;;21,"58016027744 ")
 ;;1698
 ;;21,"58016027745 ")
 ;;1699
 ;;21,"58016027748 ")
 ;;1700
 ;;21,"58016027750 ")
 ;;1701
 ;;21,"58016027756 ")
 ;;1702
 ;;21,"58016027760 ")
 ;;1703
 ;;21,"58016027767 ")
 ;;1704
 ;;21,"58016027769 ")
 ;;1705
 ;;21,"58016027770 ")
 ;;1706
 ;;21,"58016027771 ")
 ;;1707
 ;;21,"58016027772 ")
 ;;1708
 ;;21,"58016027773 ")
 ;;1709
 ;;21,"58016027775 ")
 ;;1710
 ;;21,"58016027776 ")
 ;;1711
 ;;21,"58016027777 ")
 ;;1712
 ;;21,"58016027779 ")
 ;;1713
 ;;21,"58016027780 ")
 ;;1714
 ;;21,"58016027781 ")
 ;;1715
 ;;21,"58016027782 ")
 ;;1716
 ;;21,"58016027783 ")
 ;;1717
 ;;21,"58016027784 ")
 ;;1718
 ;;21,"58016027787 ")
 ;;1719
 ;;21,"58016027789 ")
 ;;1720
 ;;21,"58016027790 ")
 ;;1721
 ;;21,"58016027791 ")
 ;;1722
 ;;21,"58016027792 ")
 ;;1723
 ;;21,"58016027793 ")
 ;;1724
 ;;21,"58016027796 ")
 ;;1725
 ;;21,"58016027797 ")
 ;;1726
 ;;21,"58016027798 ")
 ;;1727
 ;;21,"58016027799 ")
 ;;1728
 ;;21,"58016069700 ")
 ;;1568
 ;;21,"58016069730 ")
 ;;1569
 ;;21,"58016069760 ")
 ;;1570
 ;;21,"58016069790 ")
 ;;1571
 ;;21,"58016078600 ")
 ;;1852
 ;;21,"58016097100 ")
 ;;1435
 ;;21,"58016097101 ")
 ;;1436
 ;;21,"58016097102 ")
 ;;1437
 ;;21,"58016097103 ")
 ;;1438
 ;;21,"58016097104 ")
 ;;1439
 ;;21,"58016097105 ")
 ;;1440
 ;;21,"58016097106 ")
 ;;1441
 ;;21,"58016097107 ")
 ;;1442
 ;;21,"58016097108 ")
 ;;1443
 ;;21,"58016097109 ")
 ;;1444
 ;;21,"58016097110 ")
 ;;1445
 ;;21,"58016097112 ")
 ;;1446
 ;;21,"58016097114 ")
 ;;1447
 ;;21,"58016097116 ")
 ;;1448
 ;;21,"58016097118 ")
 ;;1449
 ;;21,"58016097120 ")
 ;;1450
 ;;21,"58016097121 ")
 ;;1451
 ;;21,"58016097124 ")
 ;;1452
 ;;21,"58016097125 ")
 ;;1453
 ;;21,"58016097126 ")
 ;;1454
 ;;21,"58016097127 ")
 ;;1455
 ;;21,"58016097128 ")
 ;;1456
 ;;21,"58016097130 ")
 ;;1457
 ;;21,"58016097132 ")
 ;;1458
 ;;21,"58016097135 ")
 ;;1459
 ;;21,"58016097136 ")
 ;;1460
 ;;21,"58016097140 ")
 ;;1461
 ;;21,"58016097142 ")
 ;;1462
 ;;21,"58016097144 ")
 ;;1463
 ;;21,"58016097145 ")
 ;;1464
 ;;21,"58016097148 ")
 ;;1465
 ;;21,"58016097150 ")
 ;;1466
 ;;21,"58016097156 ")
 ;;1467
 ;;21,"58016097160 ")
 ;;1468
 ;;21,"58016097167 ")
 ;;1469
 ;;21,"58016097169 ")
 ;;1470
 ;;21,"58016097170 ")
 ;;1471
 ;;21,"58016097171 ")
 ;;1472
 ;;21,"58016097172 ")
 ;;1473
 ;;21,"58016097173 ")
 ;;1474
 ;;21,"58016097175 ")
 ;;1475
 ;;21,"58016097176 ")
 ;;1476
 ;;21,"58016097177 ")
 ;;1477
 ;;21,"58016097179 ")
 ;;1478
 ;;21,"58016097180 ")
 ;;1479
 ;;21,"58016097181 ")
 ;;1480
 ;;21,"58016097182 ")
 ;;1481
 ;;21,"58016097183 ")
 ;;1482
 ;;21,"58016097184 ")
 ;;1483
 ;;21,"58016097187 ")
 ;;1484
 ;;21,"58016097189 ")
 ;;1485
 ;;21,"58016097190 ")
 ;;1486
 ;;21,"58016097191 ")
 ;;1487
 ;;21,"58016097192 ")
 ;;1488
 ;;21,"58016097193 ")
 ;;1489
 ;;21,"58016097196 ")
 ;;1490
 ;;21,"58016097197 ")
 ;;1491
 ;;21,"58016097198 ")
 ;;1492
 ;;21,"58016097199 ")
 ;;1493
 ;;21,"58016097200 ")
 ;;2250
 ;;21,"58016097201 ")
 ;;2251
 ;;21,"58016097202 ")
 ;;2252
 ;;21,"58016097203 ")
 ;;2253
 ;;21,"58016097204 ")
 ;;2254
 ;;21,"58016097205 ")
 ;;2255
 ;;21,"58016097206 ")
 ;;2256
 ;;21,"58016097207 ")
 ;;2257
 ;;21,"58016097208 ")
 ;;2258
 ;;21,"58016097209 ")
 ;;2259
 ;;21,"58016097210 ")
 ;;2260
 ;;21,"58016097212 ")
 ;;2261
 ;;21,"58016097214 ")
 ;;2262
 ;;21,"58016097216 ")
 ;;2263
 ;;21,"58016097218 ")
 ;;2264
 ;;21,"58016097220 ")
 ;;2265
 ;;21,"58016097221 ")
 ;;2266
 ;;21,"58016097224 ")
 ;;2267
 ;;21,"58016097225 ")
 ;;2268
 ;;21,"58016097226 ")
 ;;2269
 ;;21,"58016097227 ")
 ;;2270
 ;;21,"58016097228 ")
 ;;2271
 ;;21,"58016097230 ")
 ;;2272
 ;;21,"58016097232 ")
 ;;2273
 ;;21,"58016097235 ")
 ;;2274
 ;;21,"58016097236 ")
 ;;2275
 ;;21,"58016097240 ")
 ;;2276
 ;;21,"58016097242 ")
 ;;2277
 ;;21,"58016097244 ")
 ;;2278
 ;;21,"58016097245 ")
 ;;2279
 ;;21,"58016097248 ")
 ;;2280
 ;;21,"58016097250 ")
 ;;2281
 ;;21,"58016097256 ")
 ;;2282
 ;;21,"58016097260 ")
 ;;2283
 ;;21,"58016097267 ")
 ;;2284
 ;;21,"58016097269 ")
 ;;2285
 ;;21,"58016097270 ")
 ;;2286
 ;;21,"58016097271 ")
 ;;2287
 ;;21,"58016097272 ")
 ;;2288
 ;;21,"58016097273 ")
 ;;2289
 ;;21,"58016097275 ")
 ;;2290
 ;;21,"58016097276 ")
 ;;2291
 ;;21,"58016097277 ")
 ;;2292
 ;;21,"58016097279 ")
 ;;2293
 ;;21,"58016097280 ")
 ;;2294
 ;;21,"58016097281 ")
 ;;2295
 ;;21,"58016097282 ")
 ;;2296
 ;;21,"58016097283 ")
 ;;2297
 ;;21,"58016097284 ")
 ;;2298
 ;;21,"58016097287 ")
 ;;2299
 ;;21,"58016097289 ")
 ;;2300
 ;;21,"58016097290 ")
 ;;2301
 ;;21,"58016097291 ")
 ;;2302
 ;;21,"58016097292 ")
 ;;2303
 ;;21,"58016097293 ")
 ;;2304
 ;;21,"58016097296 ")
 ;;2305
 ;;21,"58016097297 ")
 ;;2306
 ;;21,"58016097298 ")
 ;;2307
 ;;21,"58016097299 ")
 ;;2308