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

BGP47T2.m

Go to the documentation of this file.
BGP47T2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"00247-2320-30 ")
 ;;2145
 ;;21,"00247-2320-60 ")
 ;;2161
 ;;21,"00247-2320-90 ")
 ;;2146
 ;;21,"00310-0130-10 ")
 ;;1893
 ;;21,"00310-0130-11 ")
 ;;1894
 ;;21,"00310-0131-11 ")
 ;;1422
 ;;21,"00310-0132-10 ")
 ;;1551
 ;;21,"00310-0132-11 ")
 ;;1658
 ;;21,"00310-0133-10 ")
 ;;1744
 ;;21,"00310-0133-11 ")
 ;;1731
 ;;21,"00310-0134-10 ")
 ;;1831
 ;;21,"00310-0134-11 ")
 ;;1845
 ;;21,"00310-0135-10 ")
 ;;1504
 ;;21,"00310-0135-11 ")
 ;;1516
 ;;21,"00310-0141-10 ")
 ;;1119
 ;;21,"00310-0141-11 ")
 ;;1112
 ;;21,"00310-0142-10 ")
 ;;1150
 ;;21,"00310-0142-11 ")
 ;;1144
 ;;21,"00310-0145-10 ")
 ;;1217
 ;;21,"00310-0145-11 ")
 ;;1210
 ;;21,"00378-0017-77 ")
 ;;2162
 ;;21,"00378-0081-01 ")
 ;;547
 ;;21,"00378-0083-01 ")
 ;;550
 ;;21,"00378-0084-01 ")
 ;;551
 ;;21,"00378-0086-01 ")
 ;;553
 ;;21,"00378-0226-77 ")
 ;;2064
 ;;21,"00378-0254-77 ")
 ;;2102
 ;;21,"00378-0272-77 ")
 ;;2131
 ;;21,"00378-0441-01 ")
 ;;317
 ;;21,"00378-0443-01 ")
 ;;176
 ;;21,"00378-0444-01 ")
 ;;231
 ;;21,"00378-0447-01 ")
 ;;288
 ;;21,"00378-0542-77 ")
 ;;1292
 ;;21,"00378-0543-77 ")
 ;;1301
 ;;21,"00378-0544-77 ")
 ;;1307
 ;;21,"00378-0712-01 ")
 ;;951
 ;;21,"00378-0723-01 ")
 ;;915
 ;;21,"00378-1012-01 ")
 ;;1094
 ;;21,"00378-1051-01 ")
 ;;694
 ;;21,"00378-1051-05 ")
 ;;695
 ;;21,"00378-1052-01 ")
 ;;881
 ;;21,"00378-1052-10 ")
 ;;880
 ;;21,"00378-1053-01 ")
 ;;575
 ;;21,"00378-1053-10 ")
 ;;574
 ;;21,"00378-1054-01 ")
 ;;727
 ;;21,"00378-1054-05 ")
 ;;772
 ;;21,"00378-1117-77 ")
 ;;2147
 ;;21,"00378-2012-01 ")
 ;;1149
 ;;21,"00378-2025-01 ")
 ;;1238
 ;;21,"00378-2072-01 ")
 ;;1505
 ;;21,"00378-2073-01 ")
 ;;1967
 ;;21,"00378-2073-10 ")
 ;;1968
 ;;21,"00378-2074-01 ")
 ;;1339
 ;;21,"00378-2074-10 ")
 ;;1423
 ;;21,"00378-2075-01 ")
 ;;1659
 ;;21,"00378-2075-10 ")
 ;;1552
 ;;21,"00378-2076-01 ")
 ;;1830
 ;;21,"00378-2076-05 ")
 ;;1840
 ;;21,"00378-2077-01 ")
 ;;1728
 ;;21,"00378-3007-01 ")
 ;;420
 ;;21,"00378-3007-10 ")
 ;;417
 ;;21,"00378-3012-01 ")
 ;;442
 ;;21,"00378-3012-10 ")
 ;;465
 ;;21,"00378-3017-01 ")
 ;;528
 ;;21,"00378-3017-10 ")
 ;;520
 ;;21,"00378-3022-01 ")
 ;;393
 ;;21,"00378-3241-01 ")
 ;;2337
 ;;21,"00378-3242-01 ")
 ;;2352
 ;;21,"00378-3243-01 ")
 ;;2368
 ;;21,"00378-4725-01 ")
 ;;382
 ;;21,"00378-4735-01 ")
 ;;342
 ;;21,"00378-4745-01 ")
 ;;363
 ;;21,"00378-4775-01 ")
 ;;377
 ;;21,"00378-6895-01 ")
 ;;48
 ;;21,"00378-6896-01 ")
 ;;67
 ;;21,"00378-6896-05 ")
 ;;83
 ;;21,"00378-6897-01 ")
 ;;116
 ;;21,"00378-6897-05 ")
 ;;115
 ;;21,"00378-6898-01 ")
 ;;8
 ;;21,"00378-6898-05 ")
 ;;27
 ;;21,"00378-6899-01 ")
 ;;134
 ;;21,"00378-6900-01 ")
 ;;32
 ;;21,"00440-7231-60 ")
 ;;448
 ;;21,"00440-7232-60 ")
 ;;506
 ;;21,"00440-7674-90 ")
 ;;1969
 ;;21,"00440-7675-90 ")
 ;;1346
 ;;21,"00440-7676-90 ")
 ;;1553
 ;;21,"00490-0067-00 ")
 ;;928
 ;;21,"00490-0067-30 ")
 ;;933
 ;;21,"00490-0067-60 ")
 ;;916
 ;;21,"00490-0067-90 ")
 ;;917
 ;;21,"00490-7030-00 ")
 ;;945
 ;;21,"00490-7030-30 ")
 ;;942
 ;;21,"00490-7030-60 ")
 ;;936
 ;;21,"00490-7030-90 ")
 ;;937
 ;;21,"00574-0110-01 ")
 ;;2019
 ;;21,"00574-0112-15 ")
 ;;2018
 ;;21,"00574-0133-01 ")
 ;;1271
 ;;21,"00574-0134-01 ")
 ;;1261
 ;;21,"00574-0135-01 ")
 ;;1282
 ;;21,"00591-0405-01 ")
 ;;1499
 ;;21,"00591-0405-05 ")
 ;;1484
 ;;21,"00591-0406-01 ")
 ;;1895
 ;;21,"00591-0406-10 ")
 ;;1970
 ;;21,"00591-0407-01 ")
 ;;1347
 ;;21,"00591-0407-10 ")
 ;;1424
 ;;21,"00591-0408-01 ")
 ;;1554
 ;;21,"00591-0408-10 ")
 ;;1555
 ;;21,"00591-0409-01 ")
 ;;1784
 ;;21,"00591-0409-05 ")
 ;;1829
 ;;21,"00591-0409-75 ")
 ;;1768
 ;;21,"00591-0668-01 ")
 ;;696
 ;;21,"00591-0668-05 ")
 ;;670
 ;;21,"00591-0671-01 ")
 ;;719
 ;;21,"00591-0671-05 ")
 ;;771
 ;;21,"00591-0671-10 ")
 ;;726
 ;;21,"00591-0860-01 ")
 ;;1120
 ;;21,"00591-0860-05 ")
 ;;1100
 ;;21,"00591-0861-01 ")
 ;;1148
 ;;21,"00591-0861-05 ")
 ;;1147
 ;;21,"00591-0862-01 ")
 ;;1209
 ;;21,"00591-0862-05 ")
 ;;1239
 ;;21,"00591-0885-01 ")
 ;;1736
 ;;21,"00591-3757-01 ")
 ;;47
 ;;21,"00591-3758-01 ")
 ;;82
 ;;21,"00591-3758-05 ")
 ;;68
 ;;21,"00591-3759-01 ")
 ;;103
 ;;21,"00591-3759-05 ")
 ;;126
 ;;21,"00591-3760-01 ")
 ;;28
 ;;21,"00591-3760-05 ")
 ;;9
 ;;21,"00591-3761-01 ")
 ;;132
 ;;21,"00591-3762-01 ")
 ;;33
 ;;21,"00603-4209-21 ")
 ;;1478
 ;;21,"00603-4209-28 ")
 ;;1506
 ;;21,"00603-4210-02 ")
 ;;1905
 ;;21,"00603-4210-16 ")
 ;;1897
 ;;21,"00603-4210-21 ")
 ;;1889
 ;;21,"00603-4210-28 ")
 ;;1899
 ;;21,"00603-4210-32 ")
 ;;1900
 ;;21,"00603-4210-60 ")
 ;;1901
 ;;21,"00603-4211-02 ")
 ;;1425
 ;;21,"00603-4211-21 ")
 ;;1426
 ;;21,"00603-4211-28 ")
 ;;1348
 ;;21,"00603-4211-32 ")
 ;;1427
 ;;21,"00603-4211-34 ")
 ;;1349
 ;;21,"00603-4211-60 ")
 ;;1341
 ;;21,"00603-4212-02 ")
 ;;1556
 ;;21,"00603-4212-21 ")
 ;;1557
 ;;21,"00603-4212-28 ")
 ;;1628
 ;;21,"00603-4212-32 ")
 ;;1626
 ;;21,"00603-4212-34 ")
 ;;1547
 ;;21,"00603-4212-60 ")
 ;;1648
 ;;21,"00603-4213-21 ")
 ;;1715
 ;;21,"00603-4213-28 ")
 ;;1730
 ;;21,"00603-4214-02 ")
 ;;1769
 ;;21,"00603-4214-04 ")
 ;;1765
 ;;21,"00603-4214-21 ")
 ;;1771
 ;;21,"00603-4214-28 ")
 ;;1773
 ;;21,"00603-4214-30 ")
 ;;1843
 ;;21,"00603-4214-32 ")
 ;;1828
 ;;21,"00603-4214-60 ")
 ;;1827
 ;;21,"00781-1667-92 ")
 ;;1619
 ;;21,"00781-1668-92 ")
 ;;1782
 ;;21,"00781-1828-01 ")
 ;;421
 ;;21,"00781-1839-01 ")
 ;;399
 ;;21,"00781-1891-01 ")
 ;;318
 ;;21,"00781-1892-01 ")
 ;;141
 ;;21,"00781-1893-01 ")
 ;;235
 ;;21,"00781-1894-01 ")
 ;;296
 ;;21,"00781-2126-01 ")
 ;;2186
 ;;21,"00781-2127-01 ")
 ;;2247
 ;;21,"00781-2127-05 ")
 ;;2269
 ;;21,"00781-2128-01 ")
 ;;2317
 ;;21,"00781-2128-05 ")
 ;;2322
 ;;21,"00781-2129-01 ")
 ;;2224
 ;;21,"00781-2129-05 ")
 ;;2202
 ;;21,"00781-2271-01 ")
 ;;43
 ;;21,"00781-2272-01 ")
 ;;77
 ;;21,"00781-2272-10 ")
 ;;78
 ;;21,"00781-2272-64 ")
 ;;70
 ;;21,"00781-2273-01 ")
 ;;114
 ;;21,"00781-2273-10 ")
 ;;113
 ;;21,"00781-2274-01 ")
 ;;10
 ;;21,"00781-2274-10 ")
 ;;11
 ;;21,"00781-2277-01 ")
 ;;133
 ;;21,"00781-2279-01 ")
 ;;31
 ;;21,"00781-5083-10 ")
 ;;981
 ;;21,"00781-5083-92 ")
 ;;982
 ;;21,"00781-5084-10 ")
 ;;1023
 ;;21,"00781-5084-92 ")
 ;;995
 ;;21,"00781-5131-01 ")
 ;;383
 ;;21,"00781-5132-01 ")
 ;;348
 ;;21,"00781-5133-01 ")
 ;;355
 ;;21,"00781-5134-01 ")
 ;;376
 ;;21,"00781-5320-01 ")
 ;;2339
 ;;21,"00781-5321-01 ")
 ;;2358
 ;;21,"00781-5322-01 ")
 ;;2374
 ;;21,"00781-5441-01 ")
 ;;697
 ;;21,"00781-5441-10 ")
 ;;701
 ;;21,"00781-5442-01 ")
 ;;879
 ;;21,"00781-5442-10 ")
 ;;813
 ;;21,"00781-5443-01 ")
 ;;624
 ;;21,"00781-5443-10 ")
 ;;623
 ;;21,"00781-5444-01 ")
 ;;733
 ;;21,"00781-5444-10 ")
 ;;758
 ;;21,"00904-5045-61 ")
 ;;406
 ;;21,"00904-5046-61 ")
 ;;443
 ;;21,"00904-5047-61 ")
 ;;505
 ;;21,"00904-5502-61 ")
 ;;833
 ;;21,"00904-5502-80 ")
 ;;878
 ;;21,"00904-5609-61 ")
 ;;665
 ;;21,"00904-5610-61 ")
 ;;573
 ;;21,"00904-5611-61 ")
 ;;782
 ;;21,"00904-5638-43 ")
 ;;1902
 ;;21,"00904-5638-89 ")
 ;;1903
 ;;21,"00904-5639-43 ")
 ;;1428
 ;;21,"00904-5639-46 ")
 ;;1429
 ;;21,"00904-5639-48 ")
 ;;1325
 ;;21,"00904-5639-89 ")
 ;;1312
 ;;21,"00904-5640-43 ")
 ;;1571
 ;;21,"00904-5640-46 ")
 ;;1620
 ;;21,"00904-5640-48 ")
 ;;1621
 ;;21,"00904-5640-89 ")
 ;;1559
 ;;21,"00904-5640-93 ")
 ;;1549
 ;;21,"00904-5808-43 ")
 ;;1401
 ;;21,"00904-5808-46 ")
 ;;1399
 ;;21,"00904-5808-48 ")
 ;;1317
 ;;21,"00904-5808-61 ")
 ;;1320
 ;;21,"00904-5808-80 ")
 ;;1419
 ;;21,"00904-5808-89 ")
 ;;1393
 ;;21,"00904-5808-93 ")
 ;;1316
 ;;21,"00904-5809-43 ")
 ;;1622
 ;;21,"00904-5809-46 ")
 ;;1562
 ;;21,"00904-5809-48 ")
 ;;1623
 ;;21,"00904-5809-61 ")
 ;;1624
 ;;21,"00904-5809-80 ")
 ;;1625
 ;;21,"00904-5809-89 ")
 ;;1564
 ;;21,"00904-5809-93 ")
 ;;1565
 ;;21,"00904-5810-43 ")
 ;;1774
 ;;21,"00904-5810-46 ")
 ;;1812
 ;;21,"00904-5810-48 ")
 ;;1826
 ;;21,"00904-5810-52 ")
 ;;1841
 ;;21,"00904-5810-61 ")
 ;;1767
 ;;21,"00904-5810-80 ")
 ;;1776
 ;;21,"00904-5810-89 ")
 ;;1824
 ;;21,"00904-5810-93 ")
 ;;1823
 ;;21,"00904-5811-43 ")
 ;;1904
 ;;21,"00904-5811-46 ")
 ;;1898
 ;;21,"00904-5811-61 ")
 ;;1883
 ;;21,"00904-5811-80 ")
 ;;1873
 ;;21,"00904-5811-89 ")
 ;;1874
 ;;21,"00904-5812-40 ")
 ;;1507
 ;;21,"00904-5812-89 ")
 ;;1508
 ;;21,"00904-6189-40 ")
 ;;319
 ;;21,"00904-6190-40 ")
 ;;150
 ;;21,"00904-6191-40 ")
 ;;236
 ;;21,"00904-6192-40 ")
 ;;267
 ;;21,"12280-0033-00 ")
 ;;297
 ;;21,"12280-0129-60 ")
 ;;1737
 ;;21,"12280-0144-00 ")
 ;;1566
 ;;21,"13811-0627-10 ")
 ;;333
 ;;21,"13811-0628-10 ")
 ;;154
 ;;21,"13811-0628-50 ")
 ;;186
 ;;21,"13811-0629-10 ")
 ;;201
 ;;21,"13811-0629-50 ")
 ;;206
 ;;21,"13811-0630-10 ")
 ;;298
 ;;21,"13811-0630-50 ")
 ;;299
 ;;21,"15338-0200-30 ")
 ;;709
 ;;21,"15338-0211-30 ")
 ;;877
 ;;21,"15338-0220-30 ")
 ;;622
 ;;21,"15338-0233-30 ")
 ;;724
 ;;21,"16252-0541-30 ")
 ;;2338
 ;;21,"16252-0542-90 ")
 ;;2351
 ;;21,"16252-0543-90 ")
 ;;2361
 ;;21,"16252-0570-30 ")
 ;;2182
 ;;21,"16252-0571-01 ")
 ;;2270
 ;;21,"16252-0571-50 ")
 ;;2248
 ;;21,"16252-0572-01 ")
 ;;2318
 ;;21,"16252-0572-50 ")
 ;;2307
 ;;21,"16252-0573-01 ")
 ;;2201
 ;;21,"16252-0573-50 ")
 ;;2200
 ;;21,"16252-0610-01 ")
 ;;2022
 ;;21,"16252-0611-01 ")
 ;;2014
 ;;21,"16252-0612-01 ")
 ;;1268
 ;;21,"16252-0613-01 ")
 ;;1260
 ;;21,"16252-0614-01 ")
 ;;1281
 ;;21,"16590-0309-30 ")
 ;;1240
 ;;21,"16590-0309-60 ")
 ;;1241
 ;;21,"16590-0309-72 ")
 ;;1242
 ;;21,"16590-0309-90 ")
 ;;1208
 ;;21,"18837-0277-30 ")
 ;;1971
 ;;21,"21695-0326-30 ")
 ;;148
 ;;21,"21695-0327-30 ")
 ;;205
 ;;21,"21695-0328-30 ")
 ;;1972
 ;;21,"21695-0329-30 ")
 ;;1394
 ;;21,"21695-0329-90 ")
 ;;1315
 ;;21,"21695-0330-20 ")
 ;;1567
 ;;21,"21695-0330-30 ")
 ;;1568
 ;;21,"21695-0330-90 ")
 ;;1569
 ;;21,"21695-0331-30 ")
 ;;1777
 ;;21,"21695-0393-30 ")
 ;;2148
 ;;21,"21695-0394-30 ")
 ;;2068
 ;;21,"21695-0477-30 ")
 ;;477
 ;;21,"21695-0478-30 ")
 ;;509
 ;;21,"21695-0487-30 ")
 ;;876
 ;;21,"21695-0488-30 ")
 ;;621
 ;;21,"21695-0489-90 ")
 ;;723
 ;;21,"21695-0733-30 ")
 ;;1089
 ;;21,"21695-0780-30 ")
 ;;929
 ;;21,"21695-0821-30 ")
 ;;2271
 ;;21,"21695-0877-30 ")
 ;;300
 ;;21,"23155-0060-01 ")
 ;;1076
 ;;21,"23155-0061-01 ")
 ;;1085
 ;;21,"23490-5118-01 ")
 ;;177
 ;;21,"23490-5119-01 ")
 ;;204
 ;;21,"23490-5120-03 ")
 ;;304
 ;;21,"23490-5120-09 ")
 ;;312
 ;;21,"23490-5121-01 ")
 ;;320
 ;;21,"23490-5191-01 ")
 ;;390
 ;;21,"23490-5192-01 ")
 ;;422
 ;;21,"23490-5193-01 ")
 ;;472
 ;;21,"23490-5193-02 ")
 ;;447
 ;;21,"23490-5193-03 ")
 ;;441
 ;;21,"23490-5194-00 ")
 ;;529
 ;;21,"23490-5194-01 ")
 ;;530
 ;;21,"23490-5194-02 ")
 ;;537
 ;;21,"23490-5491-01 ")
 ;;572
 ;;21,"23490-5491-02 ")
 ;;571
 ;;21,"23490-5491-08 ")
 ;;607
 ;;21,"23490-5491-09 ")
 ;;564
 ;;21,"23490-5492-01 ")
 ;;769
 ;;21,"23490-5492-02 ")
 ;;722
 ;;21,"23490-5494-01 ")
 ;;805
 ;;21,"23490-5494-02 ")
 ;;875
 ;;21,"23490-5815-00 ")
 ;;1395
 ;;21,"23490-5815-01 ")
 ;;1396
 ;;21,"23490-5816-01 ")
 ;;1570
 ;;21,"23490-5816-02 ")
 ;;1561
 ;;21,"23490-5816-06 ")
 ;;1638
 ;;21,"23490-5817-02 ")
 ;;1509
 ;;21,"23490-5818-02 ")
 ;;1778
 ;;21,"23490-5819-02 ")
 ;;1875
 ;;21,"23490-5820-01 ")
 ;;1090
 ;;21,"23490-5821-01 ")
 ;;1146
 ;;21,"23490-5822-01 ")
 ;;1243
 ;;21,"23490-9364-03 ")
 ;;2126
 ;;21,"24658-0200-01 ")
 ;;2185
 ;;21,"24658-0200-05 ")
 ;;2174
 ;;21,"24658-0201-01 ")
 ;;2272
 ;;21,"24658-0201-05 ")
 ;;2252
 ;;21,"24658-0202-01 ")
 ;;2319
 ;;21,"24658-0202-05 ")
 ;;2293
 ;;21,"24658-0203-01 ")
 ;;2225
 ;;21,"24658-0203-05 ")
 ;;2199
 ;;21,"24658-0240-10 ")
 ;;1510
 ;;21,"24658-0240-90 ")
 ;;1511
 ;;21,"24658-0241-10 ")
 ;;1876
 ;;21,"24658-0241-30 ")
 ;;1877
 ;;21,"24658-0241-45 ")
 ;;1949
 ;;21,"24658-0241-90 ")
 ;;1947
 ;;21,"24658-0242-10 ")
 ;;1314
 ;;21,"24658-0242-15 ")
 ;;1397
 ;;21,"24658-0242-18 ")
 ;;1368
 ;;21,"24658-0242-30 ")
 ;;1444
 ;;21,"24658-0242-45 ")
 ;;1313
 ;;21,"24658-0242-90 ")
 ;;1461
 ;;21,"24658-0243-10 ")
 ;;1545
 ;;21,"24658-0243-15 ")
 ;;1535
 ;;21,"24658-0243-18 ")
 ;;1661
 ;;21,"24658-0243-30 ")
 ;;1627
 ;;21,"24658-0243-45 ")
 ;;1533
 ;;21,"24658-0243-90 ")
 ;;1536
 ;;21,"24658-0244-01 ")
 ;;1738
 ;;21,"24658-0244-10 ")
 ;;1727
 ;;21,"24658-0245-10 ")
 ;;1779
 ;;21,"24658-0245-15 ")
 ;;1822
 ;;21,"24658-0245-18 ")
 ;;1780
 ;;21,"24658-0245-30 ")
 ;;1781
 ;;21,"24658-0245-45 ")
 ;;1821
 ;;21,"24658-0245-60 ")
 ;;1820
 ;;21,"24658-0245-90 ")
 ;;1775
 ;;21,"30698-0449-01 ")
 ;;237
 ;;21,"30698-0450-01 ")
 ;;266
 ;;21,"31722-0200-90 ")
 ;;973
 ;;21,"31722-0201-90 ")
 ;;1024
 ;;21,"31722-0202-90 ")
 ;;1032
 ;;21,"31722-0267-90 ")
 ;;2149
 ;;21,"31722-0268-90 ")
 ;;2069
 ;;21,"31722-0269-90 ")
 ;;2087
 ;;21,"31722-0270-90 ")
 ;;2116