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

BGP2TC3.m

Go to the documentation of this file.
BGP2TC3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"24090-0479-88 ")
 ;;2206
 ;;21,"29300-0126-01 ")
 ;;1305
 ;;21,"29300-0126-13 ")
 ;;1306
 ;;21,"29300-0127-01 ")
 ;;1281
 ;;21,"29300-0127-13 ")
 ;;1282
 ;;21,"29300-0187-01 ")
 ;;620
 ;;21,"29300-0187-05 ")
 ;;621
 ;;21,"29300-0187-13 ")
 ;;622
 ;;21,"29300-0188-01 ")
 ;;659
 ;;21,"29300-0188-05 ")
 ;;660
 ;;21,"29300-0188-13 ")
 ;;661
 ;;21,"29300-0189-01 ")
 ;;583
 ;;21,"29300-0189-05 ")
 ;;584
 ;;21,"29300-0189-13 ")
 ;;585
 ;;21,"33261-0221-30 ")
 ;;381
 ;;21,"33261-0221-60 ")
 ;;382
 ;;21,"33261-0221-90 ")
 ;;383
 ;;21,"33261-0349-30 ")
 ;;1119
 ;;21,"33261-0349-60 ")
 ;;1120
 ;;21,"33261-0349-90 ")
 ;;1121
 ;;21,"33261-0642-30 ")
 ;;2424
 ;;21,"33261-0642-60 ")
 ;;2425
 ;;21,"33261-0642-90 ")
 ;;2426
 ;;21,"33261-0643-30 ")
 ;;2527
 ;;21,"33261-0643-60 ")
 ;;2528
 ;;21,"33261-0643-90 ")
 ;;2529
 ;;21,"33358-0037-00 ")
 ;;923
 ;;21,"33358-0037-30 ")
 ;;924
 ;;21,"33358-0037-60 ")
 ;;925
 ;;21,"33358-0038-00 ")
 ;;1116
 ;;21,"33358-0038-30 ")
 ;;1117
 ;;21,"33358-0038-60 ")
 ;;1118
 ;;21,"33358-0039-00 ")
 ;;798
 ;;21,"33358-0039-30 ")
 ;;799
 ;;21,"33358-0192-30 ")
 ;;2349
 ;;21,"33358-0193-30 ")
 ;;2423
 ;;21,"33358-0194-30 ")
 ;;2238
 ;;21,"33358-0242-00 ")
 ;;1888
 ;;21,"33358-0242-01 ")
 ;;1889
 ;;21,"33358-0242-30 ")
 ;;1890
 ;;21,"33358-0242-60 ")
 ;;1891
 ;;21,"33358-0242-90 ")
 ;;1892
 ;;21,"33358-0243-00 ")
 ;;1692
 ;;21,"33358-0243-30 ")
 ;;1693
 ;;21,"35356-0362-60 ")
 ;;384
 ;;21,"35356-0415-30 ")
 ;;1893
 ;;21,"35356-0490-30 ")
 ;;23
 ;;21,"35356-0512-30 ")
 ;;306
 ;;21,"35356-0513-30 ")
 ;;223
 ;;21,"35356-0518-30 ")
 ;;10
 ;;21,"35356-0526-00 ")
 ;;141
 ;;21,"38245-0724-20 ")
 ;;2154
 ;;21,"38245-0727-20 ")
 ;;2068
 ;;21,"42254-0005-30 ")
 ;;2580
 ;;21,"42291-0101-90 ")
 ;;741
 ;;21,"42291-0102-90 ")
 ;;759
 ;;21,"42291-0171-90 ")
 ;;619
 ;;21,"42291-0172-90 ")
 ;;666
 ;;21,"42291-0173-90 ")
 ;;578
 ;;21,"42806-0038-01 ")
 ;;1262
 ;;21,"42806-0039-01 ")
 ;;1270
 ;;21,"43063-0006-01 ")
 ;;1691
 ;;21,"43063-0125-93 ")
 ;;48
 ;;21,"43063-0126-93 ")
 ;;224
 ;;21,"43063-0127-93 ")
 ;;307
 ;;21,"43063-0129-93 ")
 ;;143
 ;;21,"43063-0134-30 ")
 ;;579
 ;;21,"43063-0134-90 ")
 ;;580
 ;;21,"43063-0135-90 ")
 ;;625
 ;;21,"43063-0210-30 ")
 ;;1441
 ;;21,"43063-0211-30 ")
 ;;1497
 ;;21,"43353-0111-30 ")
 ;;144
 ;;21,"43353-0111-53 ")
 ;;145
 ;;21,"43353-0111-60 ")
 ;;146
 ;;21,"43353-0111-80 ")
 ;;147
 ;;21,"43353-0119-30 ")
 ;;308
 ;;21,"43353-0119-53 ")
 ;;309
 ;;21,"43353-0119-60 ")
 ;;310
 ;;21,"43353-0119-80 ")
 ;;311
 ;;21,"43353-0122-30 ")
 ;;45
 ;;21,"43353-0122-53 ")
 ;;46
 ;;21,"43353-0122-60 ")
 ;;47
 ;;21,"43353-0133-60 ")
 ;;142
 ;;21,"43353-0134-45 ")
 ;;1338
 ;;21,"43353-0134-60 ")
 ;;1339
 ;;21,"43353-0156-60 ")
 ;;298
 ;;21,"43353-0156-80 ")
 ;;299
 ;;21,"43353-0160-30 ")
 ;;54
 ;;21,"43353-0160-53 ")
 ;;55
 ;;21,"43353-0160-60 ")
 ;;56
 ;;21,"43353-0160-70 ")
 ;;57
 ;;21,"43353-0160-80 ")
 ;;58
 ;;21,"43353-0173-30 ")
 ;;1503
 ;;21,"43353-0173-42 ")
 ;;1504
 ;;21,"43353-0173-45 ")
 ;;1505
 ;;21,"43353-0173-80 ")
 ;;1506
 ;;21,"43353-0348-30 ")
 ;;1507
 ;;21,"43353-0348-45 ")
 ;;1508
 ;;21,"43353-0399-60 ")
 ;;1115
 ;;21,"43353-0440-30 ")
 ;;135
 ;;21,"43353-0440-53 ")
 ;;136
 ;;21,"43353-0440-60 ")
 ;;137
 ;;21,"43353-0440-80 ")
 ;;138
 ;;21,"43353-0478-30 ")
 ;;49
 ;;21,"43353-0478-53 ")
 ;;50
 ;;21,"43353-0478-60 ")
 ;;51
 ;;21,"43353-0485-53 ")
 ;;225
 ;;21,"43353-0485-60 ")
 ;;226
 ;;21,"43353-0486-30 ")
 ;;302
 ;;21,"43353-0486-53 ")
 ;;303
 ;;21,"43353-0486-60 ")
 ;;304
 ;;21,"43353-0486-80 ")
 ;;305
 ;;21,"43353-0508-60 ")
 ;;2428
 ;;21,"43353-0576-45 ")
 ;;1848
 ;;21,"43353-0576-53 ")
 ;;1849
 ;;21,"43353-0576-60 ")
 ;;1850
 ;;21,"43353-0576-70 ")
 ;;1851
 ;;21,"43353-0576-80 ")
 ;;1852
 ;;21,"43353-0576-92 ")
 ;;1853
 ;;21,"43353-0583-30 ")
 ;;1500
 ;;21,"43353-0583-45 ")
 ;;1501
 ;;21,"43353-0583-60 ")
 ;;1502
 ;;21,"43353-0701-60 ")
 ;;2427
 ;;21,"43353-0706-60 ")
 ;;2526
 ;;21,"43478-0900-88 ")
 ;;2239
 ;;21,"43478-0901-88 ")
 ;;2277
 ;;21,"43478-0902-88 ")
 ;;2180
 ;;21,"43478-0903-88 ")
 ;;2207
 ;;21,"43547-0254-10 ")
 ;;229
 ;;21,"43547-0254-50 ")
 ;;230
 ;;21,"43547-0255-10 ")
 ;;296
 ;;21,"43547-0255-50 ")
 ;;297
 ;;21,"43547-0256-10 ")
 ;;59
 ;;21,"43547-0256-50 ")
 ;;60
 ;;21,"43547-0257-10 ")
 ;;133
 ;;21,"43547-0257-50 ")
 ;;134
 ;;21,"43683-0142-30 ")
 ;;555
 ;;21,"43683-0143-30 ")
 ;;524
 ;;21,"43683-0144-30 ")
 ;;1114
 ;;21,"43683-0146-30 ")
 ;;1847
 ;;21,"47463-0028-30 ")
 ;;926
 ;;21,"47463-0029-30 ")
 ;;1112
 ;;21,"47463-0029-90 ")
 ;;1113
 ;;21,"47463-0030-30 ")
 ;;800
 ;;21,"47463-0056-30 ")
 ;;52
 ;;21,"47463-0056-60 ")
 ;;53
 ;;21,"47463-0057-30 ")
 ;;300
 ;;21,"47463-0057-60 ")
 ;;301
 ;;21,"47463-0058-30 ")
 ;;139
 ;;21,"47463-0058-60 ")
 ;;140
 ;;21,"47463-0059-30 ")
 ;;227
 ;;21,"47463-0059-60 ")
 ;;228
 ;;21,"47463-0519-30 ")
 ;;1498
 ;;21,"47463-0519-60 ")
 ;;1499
 ;;21,"47463-0520-30 ")
 ;;1340
 ;;21,"47463-0521-30 ")
 ;;1438
 ;;21,"47463-0522-30 ")
 ;;1594
 ;;21,"47463-0523-30 ")
 ;;1738
 ;;21,"47463-0524-30 ")
 ;;1844
 ;;21,"47463-0524-60 ")
 ;;1845
 ;;21,"47463-0524-74 ")
 ;;1846
 ;;21,"49884-0282-01 ")
 ;;2242
 ;;21,"49884-0282-10 ")
 ;;2243
 ;;21,"49884-0328-01 ")
 ;;2283
 ;;21,"49884-0328-10 ")
 ;;2284
 ;;21,"49884-0329-01 ")
 ;;2181
 ;;21,"49884-0329-10 ")
 ;;2182
 ;;21,"49884-0330-01 ")
 ;;2211
 ;;21,"49884-0330-10 ")
 ;;2212
 ;;21,"49884-0404-01 ")
 ;;1439
 ;;21,"49884-0404-10 ")
 ;;1440
 ;;21,"49884-0405-01 ")
 ;;1495
 ;;21,"49884-0405-10 ")
 ;;1496
 ;;21,"49884-0406-01 ")
 ;;1335
 ;;21,"49884-0406-10 ")
 ;;1336
 ;;21,"49884-0407-01 ")
 ;;1397
 ;;21,"49884-0407-10 ")
 ;;1398
 ;;21,"49884-0456-01 ")
 ;;1090
 ;;21,"49884-0456-10 ")
 ;;1091
 ;;21,"49884-0457-01 ")
 ;;792
 ;;21,"49884-0457-10 ")
 ;;793
 ;;21,"49884-0587-01 ")
 ;;742
 ;;21,"49884-0588-01 ")
 ;;758
 ;;21,"49884-0944-01 ")
 ;;941
 ;;21,"49884-0944-10 ")
 ;;942
 ;;21,"49999-0010-00 ")
 ;;1902
 ;;21,"49999-0010-30 ")
 ;;1903
 ;;21,"49999-0010-40 ")
 ;;1839
 ;;21,"49999-0010-60 ")
 ;;1901
 ;;21,"49999-0104-00 ")
 ;;1092
 ;;21,"49999-0104-30 ")
 ;;1093
 ;;21,"49999-0104-60 ")
 ;;1094
 ;;21,"49999-0104-90 ")
 ;;1095
 ;;21,"49999-0178-00 ")
 ;;790
 ;;21,"49999-0178-30 ")
 ;;791
 ;;21,"49999-0201-30 ")
 ;;2131
 ;;21,"49999-0202-30 ")
 ;;2155
 ;;21,"49999-0203-30 ")
 ;;2074
 ;;21,"49999-0226-00 ")
 ;;1694
 ;;21,"49999-0226-30 ")
 ;;1695
 ;;21,"49999-0226-60 ")
 ;;1696
 ;;21,"49999-0286-60 ")
 ;;2521
 ;;21,"49999-0454-00 ")
 ;;945
 ;;21,"49999-0454-10 ")
 ;;946
 ;;21,"49999-0454-30 ")
 ;;947
 ;;21,"49999-0454-60 ")
 ;;948
 ;;21,"49999-0454-90 ")
 ;;949
 ;;21,"49999-0482-30 ")
 ;;1478
 ;;21,"49999-0483-00 ")
 ;;1562
 ;;21,"49999-0483-30 ")
 ;;1563
 ;;21,"49999-0484-00 ")
 ;;1377
 ;;21,"49999-0484-30 ")
 ;;1378
 ;;21,"49999-0512-30 ")
 ;;554
 ;;21,"49999-0555-60 ")
 ;;2433
 ;;21,"49999-0555-90 ")
 ;;2434
 ;;21,"49999-0575-10 ")
 ;;1776
 ;;21,"49999-0575-20 ")
 ;;1777
 ;;21,"49999-0575-30 ")
 ;;1778
 ;;21,"49999-0577-20 ")
 ;;272
 ;;21,"49999-0866-00 ")
 ;;1302
 ;;21,"49999-0872-30 ")
 ;;202
 ;;21,"49999-0938-30 ")
 ;;108
 ;;21,"49999-0939-30 ")
 ;;363
 ;;21,"49999-0996-00 ")
 ;;1422
 ;;21,"50111-0467-01 ")
 ;;2343
 ;;21,"50111-0467-03 ")
 ;;2344
 ;;21,"50111-0468-01 ")
 ;;2431
 ;;21,"50111-0468-03 ")
 ;;2432
 ;;21,"50111-0469-01 ")
 ;;2522
 ;;21,"50111-0469-03 ")
 ;;2523
 ;;21,"50111-0470-01 ")
 ;;2581
 ;;21,"50111-0471-01 ")
 ;;2613
 ;;21,"50111-0471-02 ")
 ;;2614
 ;;21,"50111-0473-01 ")
 ;;728
 ;;21,"50111-0473-02 ")
 ;;729
 ;;21,"50111-0474-01 ")
 ;;734
 ;;21,"50268-0050-15 ")
 ;;743
 ;;21,"50268-0051-15 ")
 ;;757
 ;;21,"50742-0101-01 ")
 ;;943
 ;;21,"50742-0101-10 ")
 ;;944
 ;;21,"50742-0102-01 ")
 ;;1088
 ;;21,"50742-0102-10 ")
 ;;1089
 ;;21,"50742-0103-01 ")
 ;;794
 ;;21,"50742-0103-10 ")
 ;;795
 ;;21,"50742-0107-01 ")
 ;;1736
 ;;21,"50742-0107-05 ")
 ;;1737
 ;;21,"50742-0108-01 ")
 ;;1837
 ;;21,"50742-0108-10 ")
 ;;1838
 ;;21,"50742-0109-01 ")
 ;;1595
 ;;21,"50742-0109-10 ")
 ;;1596
 ;;21,"51079-0255-01 ")
 ;;1779
 ;;21,"51079-0255-17 ")
 ;;1780
 ;;21,"51079-0255-19 ")
 ;;1781
 ;;21,"51079-0255-20 ")
 ;;1782
 ;;21,"51079-0277-01 ")
 ;;2345
 ;;21,"51079-0277-17 ")
 ;;2346
 ;;21,"51079-0277-19 ")
 ;;2347
 ;;21,"51079-0277-20 ")
 ;;2348
 ;;21,"51079-0278-01 ")
 ;;2429
 ;;21,"51079-0278-20 ")
 ;;2430
 ;;21,"51079-0279-01 ")
 ;;2524
 ;;21,"51079-0279-20 ")
 ;;2525
 ;;21,"51079-0280-01 ")
 ;;2615
 ;;21,"51079-0280-20 ")
 ;;2616
 ;;21,"51079-0684-01 ")
 ;;1082
 ;;21,"51079-0684-17 ")
 ;;1083
 ;;21,"51079-0684-19 ")
 ;;1084
 ;;21,"51079-0684-20 ")
 ;;1085
 ;;21,"51079-0684-24 ")
 ;;1086
 ;;21,"51079-0684-63 ")
 ;;1087
 ;;21,"51079-0685-01 ")
 ;;796
 ;;21,"51079-0685-20 ")
 ;;797
 ;;21,"51079-0759-01 ")
 ;;950
 ;;21,"51079-0759-17 ")
 ;;951
 ;;21,"51079-0759-19 ")
 ;;952
 ;;21,"51079-0759-20 ")
 ;;953
 ;;21,"51079-0759-63 ")
 ;;954
 ;;21,"51079-0771-01 ")
 ;;217
 ;;21,"51079-0771-17 ")
 ;;218
 ;;21,"51079-0771-19 ")
 ;;219
 ;;21,"51079-0771-20 ")
 ;;220
 ;;21,"51079-0801-01 ")
 ;;1904
 ;;21,"51079-0801-17 ")
 ;;1905
 ;;21,"51079-0801-19 ")
 ;;1906
 ;;21,"51079-0801-20 ")
 ;;1907
 ;;21,"51079-0801-23 ")
 ;;1908
 ;;21,"51079-0801-24 ")
 ;;1909
 ;;21,"51079-0801-30 ")
 ;;1910
 ;;21,"51079-0801-56 ")
 ;;1911
 ;;21,"51079-0801-57 ")
 ;;1912
 ;;21,"51079-0802-01 ")
 ;;1697
 ;;21,"51079-0802-17 ")
 ;;1698
 ;;21,"51079-0802-19 ")
 ;;1699
 ;;21,"51079-0802-20 ")
 ;;1700
 ;;21,"51079-0812-01 ")
 ;;2095
 ;;21,"51079-0812-20 ")
 ;;2096
 ;;21,"51079-0813-01 ")
 ;;2129
 ;;21,"51079-0813-20 ")
 ;;2130
 ;;21,"51079-0814-01 ")
 ;;2156
 ;;21,"51079-0814-20 ")
 ;;2157
 ;;21,"51079-0928-01 ")
 ;;392
 ;;21,"51079-0928-20 ")
 ;;393
 ;;21,"51079-0929-01 ")
 ;;452
 ;;21,"51079-0929-20 ")
 ;;453
 ;;21,"51079-0930-01 ")
 ;;287
 ;;21,"51079-0930-17 ")
 ;;288
 ;;21,"51079-0930-19 ")
 ;;289
 ;;21,"51079-0930-20 ")
 ;;290
 ;;21,"51079-0931-01 ")
 ;;39
 ;;21,"51079-0931-17 ")
 ;;40
 ;;21,"51079-0931-19 ")
 ;;41
 ;;21,"51079-0931-20 ")
 ;;42
 ;;21,"51079-0932-01 ")
 ;;123
 ;;21,"51079-0932-20 ")
 ;;124
 ;;21,"51079-0954-01 ")
 ;;623
 ;;21,"51079-0954-20 ")
 ;;624
 ;;21,"51079-0955-01 ")
 ;;657
 ;;21,"51079-0955-20 ")
 ;;658
 ;;21,"51079-0956-01 ")
 ;;576
 ;;21,"51079-0956-20 ")
 ;;577
 ;;21,"51138-0009-30 ")
 ;;627
 ;;21,"51138-0010-30 ")
 ;;655
 ;;21,"51138-0011-30 ")
 ;;575
 ;;21,"51138-0096-30 ")
 ;;956
 ;;21,"51138-0097-30 ")
 ;;1080
 ;;21,"51138-0098-30 ")
 ;;789
 ;;21,"51138-0105-30 ")
 ;;1734
 ;;21,"51138-0106-30 ")
 ;;1833
 ;;21,"51138-0107-30 ")
 ;;1834
 ;;21,"51138-0108-30 ")
 ;;1591
 ;;21,"51138-0109-30 ")
 ;;1592
 ;;21,"51138-0115-30 ")
 ;;1732
 ;;21,"51138-0116-30 ")
 ;;1836
 ;;21,"51138-0117-30 ")
 ;;1589
 ;;21,"51138-0118-30 ")
 ;;1733
 ;;21,"51138-0119-30 ")
 ;;1835
 ;;21,"51138-0120-30 ")
 ;;1590
 ;;21,"51138-0131-30 ")
 ;;955
 ;;21,"51138-0132-30 ")
 ;;1081
 ;;21,"51138-0133-30 ")
 ;;788
 ;;21,"51138-0157-30 ")
 ;;1735
 ;;21,"51138-0158-30 ")
 ;;1832
 ;;21,"51138-0159-30 ")
 ;;1593
 ;;21,"51138-0172-30 ")
 ;;1434
 ;;21,"51138-0173-30 ")
 ;;1494
 ;;21,"51138-0174-30 ")
 ;;1332
 ;;21,"51138-0175-30 ")
 ;;1396
 ;;21,"51138-0204-30 ")
 ;;1433
 ;;21,"51138-0205-30 ")
 ;;1490
 ;;21,"51138-0206-30 ")
 ;;1331
 ;;21,"51138-0207-30 ")
 ;;1393
 ;;21,"51138-0373-10 ")
 ;;2244
 ;;21,"51138-0373-30 ")
 ;;2245
 ;;21,"51138-0374-10 ")
 ;;2281
 ;;21,"51138-0374-30 ")
 ;;2282
 ;;21,"51138-0375-10 ")
 ;;2183
 ;;21,"51138-0375-30 ")
 ;;2184
 ;;21,"51138-0376-10 ")
 ;;2210
 ;;21,"51138-0383-30 ")
 ;;216
 ;;21,"51138-0384-30 ")
 ;;291
 ;;21,"51138-0385-30 ")
 ;;37
 ;;21,"51138-0386-30 ")
 ;;126
 ;;21,"51138-0409-10 ")
 ;;2246
 ;;21,"51138-0409-30 ")
 ;;2247
 ;;21,"51138-0410-10 ")
 ;;2278
 ;;21,"51138-0410-30 ")
 ;;2279
 ;;21,"51138-0411-10 ")
 ;;2185
 ;;21,"51138-0411-30 ")
 ;;2186
 ;;21,"51138-0412-10 ")
 ;;2208
 ;;21,"51138-0412-30 ")
 ;;2209
 ;;21,"51138-0413-30 ")
 ;;2342
 ;;21,"51138-0414-30 ")
 ;;2435
 ;;21,"51138-0415-30 ")
 ;;2520
 ;;21,"51138-0416-20 ")
 ;;2582
 ;;21,"51138-0416-30 ")
 ;;2583
 ;;21,"51138-0417-30 ")
 ;;2612
 ;;21,"51138-0452-30 ")
 ;;2051
 ;;21,"51138-0453-30 ")
 ;;2055
 ;;21,"51138-0454-30 ")
 ;;2047
 ;;21,"51138-0455-30 ")
 ;;2052
 ;;21,"51138-0459-30 ")
 ;;390
 ;;21,"51138-0459-60 ")
 ;;391
 ;;21,"51138-0460-30 ")
 ;;454
 ;;21,"51138-0460-60 ")
 ;;455
 ;;21,"51138-0461-30 ")
 ;;483
 ;;21,"51138-0461-60 ")
 ;;484
 ;;21,"51138-0462-10 ")
 ;;1435
 ;;21,"51138-0462-15 ")
 ;;1436
 ;;21,"51138-0462-30 ")
 ;;1437
 ;;21,"51138-0463-10 ")
 ;;1491
 ;;21,"51138-0463-30 ")
 ;;1492