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

BGP2TA6.m

Go to the documentation of this file.
BGP2TA6 ;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,"60505-0175-00 ")
 ;;2357
 ;;21,"60505-0175-01 ")
 ;;2358
 ;;21,"60505-0184-00 ")
 ;;1703
 ;;21,"60505-0184-01 ")
 ;;1704
 ;;21,"60505-0185-00 ")
 ;;2193
 ;;21,"60505-0185-01 ")
 ;;2194
 ;;21,"60505-0185-07 ")
 ;;2195
 ;;21,"60505-0185-09 ")
 ;;2196
 ;;21,"60505-0186-00 ")
 ;;1620
 ;;21,"60505-0186-01 ")
 ;;1621
 ;;21,"60505-0186-07 ")
 ;;1622
 ;;21,"60505-0186-09 ")
 ;;1623
 ;;21,"60505-0187-00 ")
 ;;1857
 ;;21,"60505-0187-01 ")
 ;;1858
 ;;21,"60505-0187-07 ")
 ;;1859
 ;;21,"60505-0187-09 ")
 ;;1860
 ;;21,"60505-0188-00 ")
 ;;1939
 ;;21,"60505-0188-01 ")
 ;;1940
 ;;21,"60505-0188-09 ")
 ;;1941
 ;;21,"60505-0189-00 ")
 ;;2057
 ;;21,"60505-0189-01 ")
 ;;2058
 ;;21,"60505-0189-08 ")
 ;;2059
 ;;21,"60505-0189-09 ")
 ;;2060
 ;;21,"60505-0205-03 ")
 ;;1221
 ;;21,"60505-0206-03 ")
 ;;1283
 ;;21,"60505-0207-03 ")
 ;;1340
 ;;21,"60505-0208-01 ")
 ;;1165
 ;;21,"60505-0209-01 ")
 ;;1148
 ;;21,"60505-0265-01 ")
 ;;309
 ;;21,"60505-0266-01 ")
 ;;156
 ;;21,"60505-0266-05 ")
 ;;157
 ;;21,"60505-0267-01 ")
 ;;219
 ;;21,"60505-0267-05 ")
 ;;220
 ;;21,"60505-0268-01 ")
 ;;273
 ;;21,"60505-0268-05 ")
 ;;274
 ;;21,"60505-0271-01 ")
 ;;2252
 ;;21,"60505-0272-01 ")
 ;;2241
 ;;21,"60505-2510-02 ")
 ;;1059
 ;;21,"60505-2510-04 ")
 ;;1060
 ;;21,"60505-2511-02 ")
 ;;1098
 ;;21,"60505-2511-04 ")
 ;;1099
 ;;21,"60505-2512-02 ")
 ;;1136
 ;;21,"60505-2512-08 ")
 ;;1137
 ;;21,"60505-2683-01 ")
 ;;1705
 ;;21,"60505-2684-01 ")
 ;;2197
 ;;21,"60505-2684-08 ")
 ;;2198
 ;;21,"60505-2684-09 ")
 ;;2199
 ;;21,"60505-2685-01 ")
 ;;1624
 ;;21,"60505-2685-08 ")
 ;;1625
 ;;21,"60505-2685-09 ")
 ;;1626
 ;;21,"60505-2686-01 ")
 ;;1861
 ;;21,"60505-2686-08 ")
 ;;1862
 ;;21,"60505-2686-09 ")
 ;;1863
 ;;21,"60505-2688-01 ")
 ;;2061
 ;;21,"60505-2688-08 ")
 ;;2062
 ;;21,"60505-2688-09 ")
 ;;2063
 ;;21,"60505-2689-01 ")
 ;;1222
 ;;21,"60505-2690-01 ")
 ;;1284
 ;;21,"60505-2691-01 ")
 ;;1341
 ;;21,"60505-2875-01 ")
 ;;2408
 ;;21,"60505-2876-00 ")
 ;;2486
 ;;21,"60505-2876-01 ")
 ;;2487
 ;;21,"60505-2876-05 ")
 ;;2488
 ;;21,"60505-2877-00 ")
 ;;2532
 ;;21,"60505-2877-01 ")
 ;;2533
 ;;21,"60505-2877-05 ")
 ;;2534
 ;;21,"60505-2878-00 ")
 ;;2446
 ;;21,"60505-2878-01 ")
 ;;2447
 ;;21,"60505-2878-05 ")
 ;;2448
 ;;21,"60763-1011-00 ")
 ;;412
 ;;21,"60763-1011-02 ")
 ;;413
 ;;21,"60763-1012-00 ")
 ;;502
 ;;21,"60763-1012-02 ")
 ;;503
 ;;21,"60763-1013-00 ")
 ;;577
 ;;21,"60793-0500-01 ")
 ;;2417
 ;;21,"60793-0501-01 ")
 ;;2504
 ;;21,"60793-0502-01 ")
 ;;2549
 ;;21,"60793-0503-01 ")
 ;;2460
 ;;21,"60951-0721-90 ")
 ;;414
 ;;21,"60951-0724-90 ")
 ;;578
 ;;21,"60951-0731-70 ")
 ;;349
 ;;21,"60951-0733-70 ")
 ;;334
 ;;21,"60951-0739-70 ")
 ;;343
 ;;21,"60951-0741-70 ")
 ;;339
 ;;21,"61570-0110-01 ")
 ;;2409
 ;;21,"61570-0111-01 ")
 ;;2489
 ;;21,"61570-0111-05 ")
 ;;2490
 ;;21,"61570-0111-56 ")
 ;;2491
 ;;21,"61570-0112-01 ")
 ;;2535
 ;;21,"61570-0112-05 ")
 ;;2536
 ;;21,"61570-0112-56 ")
 ;;2537
 ;;21,"61570-0120-01 ")
 ;;2449
 ;;21,"61570-0120-05 ")
 ;;2450
 ;;21,"61570-0120-80 ")
 ;;2451
 ;;21,"62033-0101-20 ")
 ;;504
 ;;21,"62037-0516-01 ")
 ;;310
 ;;21,"62037-0517-01 ")
 ;;158
 ;;21,"62037-0518-01 ")
 ;;221
 ;;21,"62037-0519-01 ")
 ;;275
 ;;21,"62037-0531-90 ")
 ;;2391
 ;;21,"62037-0532-90 ")
 ;;2297
 ;;21,"62037-0533-90 ")
 ;;2331
 ;;21,"62037-0534-90 ")
 ;;2359
 ;;21,"62037-0756-01 ")
 ;;324
 ;;21,"62037-0757-01 ")
 ;;76
 ;;21,"62037-0758-01 ")
 ;;93
 ;;21,"62037-0759-01 ")
 ;;108
 ;;21,"62037-0935-90 ")
 ;;1061
 ;;21,"62037-0936-90 ")
 ;;1100
 ;;21,"62037-0937-90 ")
 ;;1138
 ;;21,"62175-0171-37 ")
 ;;2253
 ;;21,"62175-0177-37 ")
 ;;2242
 ;;21,"62175-0712-37 ")
 ;;1356
 ;;21,"62175-0720-37 ")
 ;;1351
 ;;21,"62175-0725-37 ")
 ;;1362
 ;;21,"62682-6044-03 ")
 ;;311
 ;;21,"63304-0155-01 ")
 ;;77
 ;;21,"63304-0156-01 ")
 ;;94
 ;;21,"63304-0157-01 ")
 ;;109
 ;;21,"63304-0337-01 ")
 ;;312
 ;;21,"63304-0338-01 ")
 ;;159
 ;;21,"63304-0338-05 ")
 ;;160
 ;;21,"63304-0339-01 ")
 ;;222
 ;;21,"63304-0339-05 ")
 ;;223
 ;;21,"63304-0340-01 ")
 ;;276
 ;;21,"63304-0340-05 ")
 ;;277
 ;;21,"63304-0403-01 ")
 ;;1170
 ;;21,"63304-0404-01 ")
 ;;1178
 ;;21,"63304-0531-01 ")
 ;;1706
 ;;21,"63304-0532-01 ")
 ;;2200
 ;;21,"63304-0532-10 ")
 ;;2201
 ;;21,"63304-0533-01 ")
 ;;1627
 ;;21,"63304-0533-10 ")
 ;;1628
 ;;21,"63304-0534-01 ")
 ;;1864
 ;;21,"63304-0534-10 ")
 ;;1865
 ;;21,"63304-0535-01 ")
 ;;2064
 ;;21,"63304-0535-10 ")
 ;;2065
 ;;21,"63304-0536-01 ")
 ;;1223
 ;;21,"63304-0536-05 ")
 ;;1224
 ;;21,"63304-0537-01 ")
 ;;1285
 ;;21,"63304-0537-05 ")
 ;;1286
 ;;21,"63304-0538-01 ")
 ;;1342
 ;;21,"63304-0538-05 ")
 ;;1343
 ;;21,"63304-0548-90 ")
 ;;2392
 ;;21,"63304-0549-90 ")
 ;;2298
 ;;21,"63304-0550-90 ")
 ;;2332
 ;;21,"63304-0551-90 ")
 ;;2360
 ;;21,"63304-0599-01 ")
 ;;1942
 ;;21,"63304-0736-01 ")
 ;;313
 ;;21,"63304-0736-05 ")
 ;;314
 ;;21,"63304-0737-01 ")
 ;;161
 ;;21,"63304-0737-05 ")
 ;;162
 ;;21,"63304-0738-01 ")
 ;;224
 ;;21,"63304-0738-05 ")
 ;;225
 ;;21,"63304-0739-01 ")
 ;;278
 ;;21,"63304-0739-05 ")
 ;;279
 ;;21,"63304-0775-10 ")
 ;;1062
 ;;21,"63304-0775-90 ")
 ;;1063
 ;;21,"63304-0776-10 ")
 ;;1101
 ;;21,"63304-0776-90 ")
 ;;1102
 ;;21,"63304-0777-10 ")
 ;;1139
 ;;21,"63304-0777-90 ")
 ;;1140
 ;;21,"63304-0834-01 ")
 ;;765
 ;;21,"63304-0834-10 ")
 ;;766
 ;;21,"63304-0835-01 ")
 ;;981
 ;;21,"63304-0835-10 ")
 ;;982
 ;;21,"63304-0836-01 ")
 ;;681
 ;;21,"63304-0836-10 ")
 ;;682
 ;;21,"63304-0837-01 ")
 ;;855
 ;;21,"63304-0837-10 ")
 ;;856
 ;;21,"63629-1240-01 ")
 ;;2299
 ;;21,"63629-1241-01 ")
 ;;2333
 ;;21,"63629-1242-01 ")
 ;;2361
 ;;21,"63629-1254-01 ")
 ;;2538
 ;;21,"63629-1338-01 ")
 ;;505
 ;;21,"63629-1454-01 ")
 ;;1425
 ;;21,"63629-1522-01 ")
 ;;983
 ;;21,"63629-1522-02 ")
 ;;984
 ;;21,"63629-1522-03 ")
 ;;985
 ;;21,"63629-1525-01 ")
 ;;857
 ;;21,"63629-1525-02 ")
 ;;858
 ;;21,"63629-1525-03 ")
 ;;859
 ;;21,"63629-1526-01 ")
 ;;683
 ;;21,"63629-1526-02 ")
 ;;684
 ;;21,"63629-1679-01 ")
 ;;1225
 ;;21,"63629-1679-02 ")
 ;;1226
 ;;21,"63629-1679-03 ")
 ;;1227
 ;;21,"63629-1706-01 ")
 ;;365
 ;;21,"63629-1728-01 ")
 ;;226
 ;;21,"63629-1809-01 ")
 ;;78
 ;;21,"63629-2541-01 ")
 ;;579
 ;;21,"63629-2672-01 ")
 ;;163
 ;;21,"63629-2680-01 ")
 ;;95
 ;;21,"63629-2680-02 ")
 ;;96
 ;;21,"63629-2688-01 ")
 ;;1629
 ;;21,"63629-2735-01 ")
 ;;110
 ;;21,"63629-2908-01 ")
 ;;1866
 ;;21,"63629-2908-02 ")
 ;;1867
 ;;21,"63629-2908-03 ")
 ;;1868
 ;;21,"63629-2923-01 ")
 ;;280
 ;;21,"63629-2935-01 ")
 ;;2066
 ;;21,"63739-0042-01 ")
 ;;415
 ;;21,"63739-0042-03 ")
 ;;416
 ;;21,"63739-0042-10 ")
 ;;417
 ;;21,"63739-0042-15 ")
 ;;418
 ;;21,"63739-0043-01 ")
 ;;506
 ;;21,"63739-0043-03 ")
 ;;507
 ;;21,"63739-0043-10 ")
 ;;508
 ;;21,"63739-0043-15 ")
 ;;509
 ;;21,"63739-0302-10 ")
 ;;685
 ;;21,"63739-0302-15 ")
 ;;686
 ;;21,"63739-0322-05 ")
 ;;767
 ;;21,"63739-0322-10 ")
 ;;768
 ;;21,"63739-0322-15 ")
 ;;769
 ;;21,"63739-0323-10 ")
 ;;986
 ;;21,"63739-0323-15 ")
 ;;987
 ;;21,"63739-0348-10 ")
 ;;2202
 ;;21,"63739-0348-15 ")
 ;;2203
 ;;21,"63739-0349-10 ")
 ;;1630
 ;;21,"63739-0349-15 ")
 ;;1631
 ;;21,"63739-0350-10 ")
 ;;1869
 ;;21,"63739-0350-15 ")
 ;;1870
 ;;21,"63874-0058-10 ")
 ;;2362
 ;;21,"63874-0058-15 ")
 ;;2363
 ;;21,"63874-0058-30 ")
 ;;2364
 ;;21,"63874-0058-90 ")
 ;;2365
 ;;21,"63874-0347-01 ")
 ;;510
 ;;21,"63874-0347-02 ")
 ;;511
 ;;21,"63874-0347-05 ")
 ;;512
 ;;21,"63874-0347-20 ")
 ;;513
 ;;21,"63874-0347-30 ")
 ;;514
 ;;21,"63874-0347-40 ")
 ;;515
 ;;21,"63874-0347-42 ")
 ;;516
 ;;21,"63874-0347-45 ")
 ;;517
 ;;21,"63874-0347-90 ")
 ;;518
 ;;21,"63874-0348-01 ")
 ;;580
 ;;21,"63874-0348-10 ")
 ;;581
 ;;21,"63874-0348-14 ")
 ;;582
 ;;21,"63874-0348-20 ")
 ;;583
 ;;21,"63874-0348-30 ")
 ;;584
 ;;21,"63874-0348-60 ")
 ;;585
 ;;21,"63874-0348-90 ")
 ;;586
 ;;21,"63874-0379-10 ")
 ;;2393
 ;;21,"63874-0379-30 ")
 ;;2394
 ;;21,"63874-0423-01 ")
 ;;988
 ;;21,"63874-0423-07 ")
 ;;989
 ;;21,"63874-0423-10 ")
 ;;990
 ;;21,"63874-0423-14 ")
 ;;991
 ;;21,"63874-0423-20 ")
 ;;992
 ;;21,"63874-0423-30 ")
 ;;993
 ;;21,"63874-0423-60 ")
 ;;994
 ;;21,"63874-0514-01 ")
 ;;1871
 ;;21,"63874-0514-10 ")
 ;;1872
 ;;21,"63874-0514-14 ")
 ;;1873
 ;;21,"63874-0514-15 ")
 ;;1874
 ;;21,"63874-0514-16 ")
 ;;1875
 ;;21,"63874-0514-20 ")
 ;;1876
 ;;21,"63874-0514-28 ")
 ;;1877
 ;;21,"63874-0514-30 ")
 ;;1878
 ;;21,"63874-0514-60 ")
 ;;1879
 ;;21,"63874-0514-90 ")
 ;;1880
 ;;21,"63874-0522-01 ")
 ;;1632
 ;;21,"63874-0522-15 ")
 ;;1633
 ;;21,"63874-0522-30 ")
 ;;1634
 ;;21,"63874-0522-60 ")
 ;;1635
 ;;21,"63874-0558-01 ")
 ;;2204
 ;;21,"63874-0558-10 ")
 ;;2205
 ;;21,"63874-0558-14 ")
 ;;2206
 ;;21,"63874-0558-16 ")
 ;;2207
 ;;21,"63874-0558-28 ")
 ;;2208
 ;;21,"63874-0558-30 ")
 ;;2209
 ;;21,"63874-0558-60 ")
 ;;2210
 ;;21,"63874-0558-90 ")
 ;;2211
 ;;21,"63874-0581-10 ")
 ;;2300
 ;;21,"63874-0581-30 ")
 ;;2301
 ;;21,"63874-0581-90 ")
 ;;2302
 ;;21,"63874-0655-01 ")
 ;;687
 ;;21,"63874-0655-10 ")
 ;;688
 ;;21,"63874-0655-20 ")
 ;;689
 ;;21,"63874-0655-30 ")
 ;;690
 ;;21,"63874-0655-60 ")
 ;;691
 ;;21,"63874-0987-01 ")
 ;;860
 ;;21,"63874-0987-10 ")
 ;;861
 ;;21,"63874-0987-14 ")
 ;;862
 ;;21,"63874-0987-20 ")
 ;;863
 ;;21,"63874-0987-30 ")
 ;;864
 ;;21,"63874-0987-60 ")
 ;;865
 ;;21,"63874-1114-09 ")
 ;;1943
 ;;21,"64455-0140-10 ")
 ;;770
 ;;21,"64455-0140-30 ")
 ;;771
 ;;21,"64455-0140-90 ")
 ;;772
 ;;21,"64455-0141-10 ")
 ;;995
 ;;21,"64455-0141-30 ")
 ;;996
 ;;21,"64455-0141-90 ")
 ;;997
 ;;21,"64455-0142-10 ")
 ;;692
 ;;21,"64455-0142-30 ")
 ;;693
 ;;21,"64455-0142-90 ")
 ;;694
 ;;21,"64455-0143-10 ")
 ;;866
 ;;21,"64455-0143-30 ")
 ;;867
 ;;21,"64455-0143-90 ")
 ;;868
 ;;21,"64455-0145-01 ")
 ;;1472
 ;;21,"64455-0146-01 ")
 ;;1470
 ;;21,"64679-0902-01 ")
 ;;419
 ;;21,"64679-0902-02 ")
 ;;420
 ;;21,"64679-0903-01 ")
 ;;519
 ;;21,"64679-0903-02 ")
 ;;520
 ;;21,"64679-0904-01 ")
 ;;587
 ;;21,"64679-0904-02 ")
 ;;588
 ;;21,"64679-0905-01 ")
 ;;366
 ;;21,"64679-0923-02 ")
 ;;773
 ;;21,"64679-0923-03 ")
 ;;774
 ;;21,"64679-0923-09 ")
 ;;775
 ;;21,"64679-0924-02 ")
 ;;998
 ;;21,"64679-0924-03 ")
 ;;999
 ;;21,"64679-0924-09 ")
 ;;1000
 ;;21,"64679-0925-01 ")
 ;;695
 ;;21,"64679-0925-02 ")
 ;;696
 ;;21,"64679-0925-03 ")
 ;;697
 ;;21,"64679-0925-09 ")
 ;;698
 ;;21,"64679-0926-02 ")
 ;;869
 ;;21,"64679-0926-03 ")
 ;;870
 ;;21,"64679-0926-09 ")
 ;;871
 ;;21,"64679-0927-01 ")
 ;;1707
 ;;21,"64679-0927-02 ")
 ;;1708
 ;;21,"64679-0927-05 ")
 ;;1709
 ;;21,"64679-0927-09 ")
 ;;1710
 ;;21,"64679-0928-01 ")
 ;;2212
 ;;21,"64679-0928-05 ")
 ;;2213
 ;;21,"64679-0928-06 ")
 ;;2214
 ;;21,"64679-0928-10 ")
 ;;2215
 ;;21,"64679-0929-01 ")
 ;;1636
 ;;21,"64679-0929-05 ")
 ;;1637
 ;;21,"64679-0929-06 ")
 ;;1638
 ;;21,"64679-0929-10 ")
 ;;1639
 ;;21,"64679-0941-01 ")
 ;;1881
 ;;21,"64679-0941-05 ")
 ;;1882
 ;;21,"64679-0941-06 ")
 ;;1883
 ;;21,"64679-0941-10 ")
 ;;1884
 ;;21,"64679-0942-01 ")
 ;;2067
 ;;21,"64679-0942-02 ")
 ;;2068
 ;;21,"64679-0942-05 ")
 ;;2069
 ;;21,"64679-0942-09 ")
 ;;2070
 ;;21,"64679-0953-01 ")
 ;;1944
 ;;21,"64679-0953-02 ")
 ;;1945
 ;;21,"64679-0953-05 ")
 ;;1946
 ;;21,"64679-0953-09 ")
 ;;1947
 ;;21,"65162-0751-10 ")
 ;;315
 ;;21,"65162-0751-50 ")
 ;;316
 ;;21,"65162-0752-10 ")
 ;;164
 ;;21,"65162-0752-50 ")
 ;;165
 ;;21,"65162-0753-10 ")
 ;;227
 ;;21,"65162-0753-50 ")
 ;;228
 ;;21,"65162-0754-10 ")
 ;;281
 ;;21,"65162-0754-50 ")
 ;;282
 ;;21,"65243-0303-03 ")
 ;;2216
 ;;21,"65243-0314-03 ")
 ;;2071
 ;;21,"65862-0037-01 ")
 ;;1711
 ;;21,"65862-0037-05 ")
 ;;1712
 ;;21,"65862-0038-01 ")
 ;;2217
 ;;21,"65862-0038-05 ")
 ;;2218
 ;;21,"65862-0039-01 ")
 ;;1640
 ;;21,"65862-0039-05 ")
 ;;1641
 ;;21,"65862-0040-01 ")
 ;;1885
 ;;21,"65862-0040-05 ")
 ;;1886
 ;;21,"65862-0041-01 ")
 ;;1948
 ;;21,"65862-0042-01 ")
 ;;2072
 ;;21,"65862-0042-05 ")
 ;;2073
 ;;21,"65862-0043-01 ")
 ;;1228
 ;;21,"65862-0043-05 ")
 ;;1229
 ;;21,"65862-0044-01 ")
 ;;1287
 ;;21,"65862-0044-05 ")
 ;;1288
 ;;21,"65862-0045-01 ")
 ;;1344
 ;;21,"65862-0045-05 ")
 ;;1345
 ;;21,"65862-0116-01 ")
 ;;166
 ;;21,"65862-0117-01 ")
 ;;229
 ;;21,"65862-0118-01 ")
 ;;283
 ;;21,"65862-0162-30 ")
 ;;1369
 ;;21,"65862-0162-90 ")
 ;;1370
 ;;21,"65862-0163-90 ")
 ;;1374
 ;;21,"65862-0164-01 ")
 ;;2559
 ;;21,"65862-0165-01 ")
 ;;2571
 ;;21,"65862-0166-01 ")
 ;;2586
 ;;21,"65862-0286-01 ")
 ;;2257
 ;;21,"65862-0287-01 ")
 ;;2263
 ;;21,"65862-0288-01 ")
 ;;2269
 ;;21,"65862-0308-01 ")
 ;;1171
 ;;21,"65862-0309-01 ")
 ;;1179
 ;;21,"66105-0101-09 ")
 ;;2303
 ;;21,"66105-0102-09 ")
 ;;2334
 ;;21,"66105-0103-09 ")
 ;;2366