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

BGP2TC6.m

Go to the documentation of this file.
BGP2TC6 ;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,"58864-0784-30 ")
 ;;681
 ;;21,"59762-1258-01 ")
 ;;1307
 ;;21,"59762-1258-02 ")
 ;;1308
 ;;21,"59762-1261-01 ")
 ;;1293
 ;;21,"59762-1261-02 ")
 ;;1294
 ;;21,"59762-1300-01 ")
 ;;1750
 ;;21,"59762-1300-03 ")
 ;;1751
 ;;21,"59762-1301-01 ")
 ;;1823
 ;;21,"59762-1301-03 ")
 ;;1824
 ;;21,"59762-1302-01 ")
 ;;1619
 ;;21,"59762-1302-03 ")
 ;;1620
 ;;21,"59772-2461-01 ")
 ;;2078
 ;;21,"59772-2462-01 ")
 ;;2105
 ;;21,"59772-2462-03 ")
 ;;2106
 ;;21,"59772-2463-01 ")
 ;;2139
 ;;21,"59772-2463-03 ")
 ;;2140
 ;;21,"59772-2464-01 ")
 ;;2066
 ;;21,"59772-2465-01 ")
 ;;2071
 ;;21,"59911-5842-01 ")
 ;;750
 ;;21,"59911-7060-01 ")
 ;;1309
 ;;21,"59911-7061-01 ")
 ;;1292
 ;;21,"59930-1602-01 ")
 ;;402
 ;;21,"59930-1602-02 ")
 ;;403
 ;;21,"59930-1602-03 ")
 ;;404
 ;;21,"59930-1636-01 ")
 ;;436
 ;;21,"59930-1636-04 ")
 ;;437
 ;;21,"59930-1653-01 ")
 ;;487
 ;;21,"59930-1653-03 ")
 ;;488
 ;;21,"60346-0431-60 ")
 ;;2597
 ;;21,"60346-0523-25 ")
 ;;1930
 ;;21,"60346-0523-30 ")
 ;;1931
 ;;21,"60346-0523-60 ")
 ;;1932
 ;;21,"60346-0570-30 ")
 ;;2373
 ;;21,"60346-0570-40 ")
 ;;2374
 ;;21,"60346-0570-90 ")
 ;;2375
 ;;21,"60346-0570-94 ")
 ;;2376
 ;;21,"60346-0587-60 ")
 ;;984
 ;;21,"60346-0598-15 ")
 ;;2488
 ;;21,"60346-0598-25 ")
 ;;2489
 ;;21,"60346-0598-30 ")
 ;;2490
 ;;21,"60346-0598-60 ")
 ;;2491
 ;;21,"60346-0598-90 ")
 ;;2492
 ;;21,"60346-0719-30 ")
 ;;1198
 ;;21,"60346-0719-60 ")
 ;;1199
 ;;21,"60346-0719-62 ")
 ;;1200
 ;;21,"60346-0719-90 ")
 ;;1201
 ;;21,"60346-0719-94 ")
 ;;1202
 ;;21,"60346-0775-30 ")
 ;;867
 ;;21,"60346-0806-30 ")
 ;;2540
 ;;21,"60346-0806-60 ")
 ;;2541
 ;;21,"60346-0806-90 ")
 ;;2542
 ;;21,"60346-0836-30 ")
 ;;730
 ;;21,"60346-0914-30 ")
 ;;883
 ;;21,"60346-0914-60 ")
 ;;884
 ;;21,"60346-0914-90 ")
 ;;885
 ;;21,"60346-0914-94 ")
 ;;886
 ;;21,"60346-0967-30 ")
 ;;2622
 ;;21,"60346-0967-60 ")
 ;;2623
 ;;21,"60346-0967-90 ")
 ;;2624
 ;;21,"60429-0025-30 ")
 ;;1203
 ;;21,"60429-0025-90 ")
 ;;1204
 ;;21,"60429-0026-30 ")
 ;;866
 ;;21,"60429-0126-30 ")
 ;;1935
 ;;21,"60429-0126-60 ")
 ;;1936
 ;;21,"60429-0127-30 ")
 ;;1635
 ;;21,"60429-0211-90 ")
 ;;981
 ;;21,"60429-0753-01 ")
 ;;1265
 ;;21,"60429-0754-01 ")
 ;;1272
 ;;21,"60505-2606-01 ")
 ;;252
 ;;21,"60505-2606-08 ")
 ;;253
 ;;21,"60505-2607-01 ")
 ;;341
 ;;21,"60505-2607-08 ")
 ;;342
 ;;21,"60505-2608-01 ")
 ;;89
 ;;21,"60505-2608-08 ")
 ;;90
 ;;21,"60505-2609-01 ")
 ;;181
 ;;21,"60505-2609-08 ")
 ;;182
 ;;21,"60760-0059-30 ")
 ;;1177
 ;;21,"60760-0060-30 ")
 ;;1001
 ;;21,"60793-0283-01 ")
 ;;710
 ;;21,"60793-0284-01 ")
 ;;715
 ;;21,"60793-0800-01 ")
 ;;2077
 ;;21,"60793-0801-01 ")
 ;;2104
 ;;21,"60793-0802-01 ")
 ;;2138
 ;;21,"60951-0782-70 ")
 ;;2651
 ;;21,"60976-0346-43 ")
 ;;414
 ;;21,"60976-0346-44 ")
 ;;415
 ;;21,"60976-0346-47 ")
 ;;416
 ;;21,"61570-0175-01 ")
 ;;711
 ;;21,"61570-0176-01 ")
 ;;714
 ;;21,"61570-0200-01 ")
 ;;2076
 ;;21,"61570-0201-01 ")
 ;;2102
 ;;21,"61570-0201-10 ")
 ;;2103
 ;;21,"61570-0202-01 ")
 ;;2136
 ;;21,"61570-0202-10 ")
 ;;2137
 ;;21,"61570-0203-01 ")
 ;;2065
 ;;21,"61570-0204-01 ")
 ;;2070
 ;;21,"62037-0830-01 ")
 ;;1442
 ;;21,"62037-0830-10 ")
 ;;1443
 ;;21,"62037-0831-01 ")
 ;;1515
 ;;21,"62037-0831-10 ")
 ;;1516
 ;;21,"62037-0832-01 ")
 ;;1341
 ;;21,"62037-0832-10 ")
 ;;1342
 ;;21,"62037-0833-01 ")
 ;;1399
 ;;21,"62037-0833-10 ")
 ;;1400
 ;;21,"62584-0265-01 ")
 ;;1767
 ;;21,"62584-0265-11 ")
 ;;1768
 ;;21,"62584-0266-01 ")
 ;;1933
 ;;21,"62584-0266-11 ")
 ;;1934
 ;;21,"62584-0267-01 ")
 ;;1636
 ;;21,"62584-0267-11 ")
 ;;1637
 ;;21,"62584-0467-01 ")
 ;;1178
 ;;21,"62584-0467-11 ")
 ;;1179
 ;;21,"62584-0467-80 ")
 ;;1180
 ;;21,"62584-0467-85 ")
 ;;1181
 ;;21,"62584-0620-01 ")
 ;;1182
 ;;21,"62584-0715-01 ")
 ;;875
 ;;21,"62584-0715-11 ")
 ;;876
 ;;21,"62584-0788-01 ")
 ;;1913
 ;;21,"62584-0788-33 ")
 ;;1914
 ;;21,"62584-0842-01 ")
 ;;2377
 ;;21,"62584-0842-33 ")
 ;;2378
 ;;21,"62584-0842-80 ")
 ;;2379
 ;;21,"62584-0842-85 ")
 ;;2380
 ;;21,"62584-0843-01 ")
 ;;2484
 ;;21,"62584-0843-33 ")
 ;;2485
 ;;21,"62584-0843-80 ")
 ;;2486
 ;;21,"62584-0843-85 ")
 ;;2487
 ;;21,"62584-0844-01 ")
 ;;2543
 ;;21,"62584-0845-01 ")
 ;;2627
 ;;21,"63304-0579-01 ")
 ;;1753
 ;;21,"63304-0579-10 ")
 ;;1754
 ;;21,"63304-0580-01 ")
 ;;1825
 ;;21,"63304-0580-10 ")
 ;;1826
 ;;21,"63304-0581-01 ")
 ;;1621
 ;;21,"63304-0581-10 ")
 ;;1622
 ;;21,"63304-0621-01 ")
 ;;1002
 ;;21,"63304-0621-10 ")
 ;;1003
 ;;21,"63304-0622-01 ")
 ;;1172
 ;;21,"63304-0622-10 ")
 ;;1173
 ;;21,"63304-0623-01 ")
 ;;881
 ;;21,"63304-0623-10 ")
 ;;882
 ;;21,"63629-1423-01 ")
 ;;2381
 ;;21,"63629-1423-02 ")
 ;;2382
 ;;21,"63629-1462-01 ")
 ;;1623
 ;;21,"63629-1462-02 ")
 ;;1624
 ;;21,"63629-1462-03 ")
 ;;1625
 ;;21,"63629-1463-01 ")
 ;;1827
 ;;21,"63629-1463-02 ")
 ;;1828
 ;;21,"63629-1463-03 ")
 ;;1829
 ;;21,"63629-1463-04 ")
 ;;1830
 ;;21,"63629-1463-05 ")
 ;;1831
 ;;21,"63629-1674-01 ")
 ;;628
 ;;21,"63629-1740-01 ")
 ;;1174
 ;;21,"63629-1740-02 ")
 ;;1175
 ;;21,"63629-1740-03 ")
 ;;1176
 ;;21,"63629-1785-01 ")
 ;;998
 ;;21,"63629-1785-02 ")
 ;;999
 ;;21,"63629-1785-03 ")
 ;;1000
 ;;21,"63629-1842-01 ")
 ;;2255
 ;;21,"63629-2570-01 ")
 ;;2480
 ;;21,"63629-2570-02 ")
 ;;2481
 ;;21,"63629-2570-03 ")
 ;;2482
 ;;21,"63629-2570-04 ")
 ;;2483
 ;;21,"63629-2626-01 ")
 ;;877
 ;;21,"63629-2626-02 ")
 ;;878
 ;;21,"63629-2626-03 ")
 ;;879
 ;;21,"63629-2626-04 ")
 ;;880
 ;;21,"63629-2909-01 ")
 ;;527
 ;;21,"63629-2909-02 ")
 ;;528
 ;;21,"63629-2909-03 ")
 ;;529
 ;;21,"63629-2909-04 ")
 ;;530
 ;;21,"63629-3587-01 ")
 ;;2625
 ;;21,"63629-3587-02 ")
 ;;2626
 ;;21,"63629-3636-01 ")
 ;;1558
 ;;21,"63629-3636-02 ")
 ;;1559
 ;;21,"63629-3668-01 ")
 ;;338
 ;;21,"63629-3668-02 ")
 ;;339
 ;;21,"63629-3668-03 ")
 ;;340
 ;;21,"63629-3669-01 ")
 ;;91
 ;;21,"63629-3669-02 ")
 ;;92
 ;;21,"63629-3669-03 ")
 ;;93
 ;;21,"63629-3738-01 ")
 ;;512
 ;;21,"63629-3871-01 ")
 ;;745
 ;;21,"63629-4060-01 ")
 ;;254
 ;;21,"63629-4060-02 ")
 ;;255
 ;;21,"63629-4070-01 ")
 ;;179
 ;;21,"63629-4070-02 ")
 ;;180
 ;;21,"63629-4072-01 ")
 ;;675
 ;;21,"63629-4075-01 ")
 ;;596
 ;;21,"63629-4096-01 ")
 ;;1447
 ;;21,"63629-4241-01 ")
 ;;1517
 ;;21,"63629-4241-02 ")
 ;;1518
 ;;21,"63629-4241-03 ")
 ;;1519
 ;;21,"63629-4241-04 ")
 ;;1520
 ;;21,"63629-4241-05 ")
 ;;1521
 ;;21,"63629-4605-01 ")
 ;;1752
 ;;21,"63739-0027-01 ")
 ;;985
 ;;21,"63739-0027-02 ")
 ;;986
 ;;21,"63739-0027-03 ")
 ;;987
 ;;21,"63739-0027-10 ")
 ;;988
 ;;21,"63739-0027-15 ")
 ;;989
 ;;21,"63739-0028-01 ")
 ;;1183
 ;;21,"63739-0028-02 ")
 ;;1184
 ;;21,"63739-0028-03 ")
 ;;1185
 ;;21,"63739-0028-10 ")
 ;;1186
 ;;21,"63739-0028-15 ")
 ;;1187
 ;;21,"63739-0173-01 ")
 ;;1915
 ;;21,"63739-0173-02 ")
 ;;1916
 ;;21,"63739-0173-03 ")
 ;;1917
 ;;21,"63739-0173-10 ")
 ;;1918
 ;;21,"63739-0173-15 ")
 ;;1919
 ;;21,"63739-0216-01 ")
 ;;2390
 ;;21,"63739-0216-02 ")
 ;;2391
 ;;21,"63739-0216-03 ")
 ;;2392
 ;;21,"63739-0217-01 ")
 ;;2470
 ;;21,"63739-0217-02 ")
 ;;2471
 ;;21,"63739-0217-03 ")
 ;;2472
 ;;21,"63739-0366-10 ")
 ;;433
 ;;21,"63739-0405-10 ")
 ;;1769
 ;;21,"63739-0428-10 ")
 ;;1960
 ;;21,"63739-0454-10 ")
 ;;1353
 ;;21,"63874-0332-01 ")
 ;;1188
 ;;21,"63874-0332-02 ")
 ;;1189
 ;;21,"63874-0332-07 ")
 ;;1190
 ;;21,"63874-0332-10 ")
 ;;1191
 ;;21,"63874-0332-14 ")
 ;;1192
 ;;21,"63874-0332-15 ")
 ;;1193
 ;;21,"63874-0332-20 ")
 ;;1194
 ;;21,"63874-0332-30 ")
 ;;1195
 ;;21,"63874-0332-60 ")
 ;;1196
 ;;21,"63874-0332-90 ")
 ;;1197
 ;;21,"63874-0368-01 ")
 ;;2473
 ;;21,"63874-0368-02 ")
 ;;2474
 ;;21,"63874-0368-15 ")
 ;;2475
 ;;21,"63874-0368-20 ")
 ;;2476
 ;;21,"63874-0368-28 ")
 ;;2477
 ;;21,"63874-0368-30 ")
 ;;2478
 ;;21,"63874-0368-60 ")
 ;;2479
 ;;21,"63874-0388-01 ")
 ;;868
 ;;21,"63874-0388-07 ")
 ;;869
 ;;21,"63874-0388-10 ")
 ;;870
 ;;21,"63874-0388-12 ")
 ;;871
 ;;21,"63874-0388-15 ")
 ;;872
 ;;21,"63874-0388-20 ")
 ;;873
 ;;21,"63874-0388-30 ")
 ;;874
 ;;21,"63874-0406-01 ")
 ;;1920
 ;;21,"63874-0406-10 ")
 ;;1921
 ;;21,"63874-0406-14 ")
 ;;1922
 ;;21,"63874-0406-15 ")
 ;;1923
 ;;21,"63874-0406-20 ")
 ;;1924
 ;;21,"63874-0406-28 ")
 ;;1925
 ;;21,"63874-0406-30 ")
 ;;1926
 ;;21,"63874-0406-60 ")
 ;;1927
 ;;21,"63874-0407-01 ")
 ;;1628
 ;;21,"63874-0407-10 ")
 ;;1629
 ;;21,"63874-0407-15 ")
 ;;1630
 ;;21,"63874-0407-20 ")
 ;;1631
 ;;21,"63874-0407-30 ")
 ;;1632
 ;;21,"63874-0407-60 ")
 ;;1633
 ;;21,"63874-0407-90 ")
 ;;1634
 ;;21,"63874-0454-01 ")
 ;;2383
 ;;21,"63874-0454-02 ")
 ;;2384
 ;;21,"63874-0454-04 ")
 ;;2385
 ;;21,"63874-0454-15 ")
 ;;2386
 ;;21,"63874-0454-20 ")
 ;;2387
 ;;21,"63874-0454-30 ")
 ;;2388
 ;;21,"63874-0454-60 ")
 ;;2389
 ;;21,"63874-0468-01 ")
 ;;990
 ;;21,"63874-0468-10 ")
 ;;991
 ;;21,"63874-0468-14 ")
 ;;992
 ;;21,"63874-0468-15 ")
 ;;993
 ;;21,"63874-0468-20 ")
 ;;994
 ;;21,"63874-0468-30 ")
 ;;995
 ;;21,"63874-0468-60 ")
 ;;996
 ;;21,"63874-0468-90 ")
 ;;997
 ;;21,"63874-0486-01 ")
 ;;2544
 ;;21,"63874-0486-02 ")
 ;;2545
 ;;21,"63874-0486-15 ")
 ;;2546
 ;;21,"63874-0486-30 ")
 ;;2547
 ;;21,"63874-0486-40 ")
 ;;2548
 ;;21,"63874-0486-60 ")
 ;;2549
 ;;21,"64376-0502-01 ")
 ;;1928
 ;;21,"64376-0502-10 ")
 ;;1929
 ;;21,"64376-0503-01 ")
 ;;1626
 ;;21,"64376-0503-10 ")
 ;;1627
 ;;21,"64679-0734-02 ")
 ;;1448
 ;;21,"64679-0734-03 ")
 ;;1449
 ;;21,"64679-0734-08 ")
 ;;1450
 ;;21,"64679-0735-02 ")
 ;;1527
 ;;21,"64679-0735-03 ")
 ;;1528
 ;;21,"64679-0735-08 ")
 ;;1529
 ;;21,"64679-0736-02 ")
 ;;1350
 ;;21,"64679-0736-03 ")
 ;;1351
 ;;21,"64679-0736-08 ")
 ;;1352
 ;;21,"64679-0737-02 ")
 ;;1406
 ;;21,"64679-0737-03 ")
 ;;1407
 ;;21,"64679-0737-08 ")
 ;;1408
 ;;21,"65162-0669-10 ")
 ;;751
 ;;21,"65162-0670-10 ")
 ;;760
 ;;21,"65243-0014-03 ")
 ;;1217
 ;;21,"65243-0014-09 ")
 ;;1218
 ;;21,"65243-0014-18 ")
 ;;1219
 ;;21,"65243-0014-45 ")
 ;;1220
 ;;21,"65243-0232-03 ")
 ;;1969
 ;;21,"65243-0232-06 ")
 ;;1970
 ;;21,"65243-0232-09 ")
 ;;1971
 ;;21,"65243-0232-12 ")
 ;;1972
 ;;21,"65243-0232-18 ")
 ;;1973
 ;;21,"65243-0265-03 ")
 ;;1649
 ;;21,"65243-0265-06 ")
 ;;1650
 ;;21,"65243-0265-09 ")
 ;;1651
 ;;21,"65243-0265-18 ")
 ;;1652
 ;;21,"65243-0265-45 ")
 ;;1653
 ;;21,"65243-0308-03 ")
 ;;1221
 ;;21,"65243-0308-09 ")
 ;;1222
 ;;21,"65243-0308-18 ")
 ;;1223
 ;;21,"65243-0329-03 ")
 ;;1966
 ;;21,"65243-0329-09 ")
 ;;1967
 ;;21,"65243-0329-18 ")
 ;;1968
 ;;21,"65243-0347-09 ")
 ;;970
 ;;21,"65243-0379-09 ")
 ;;1659
 ;;21,"65243-0379-18 ")
 ;;1611
 ;;21,"65243-0382-09 ")
 ;;1820
 ;;21,"65243-0382-18 ")
 ;;1821
 ;;21,"65483-0391-10 ")
 ;;417
 ;;21,"65483-0391-11 ")
 ;;418
 ;;21,"65483-0391-50 ")
 ;;419
 ;;21,"65483-0392-10 ")
 ;;468
 ;;21,"65483-0392-22 ")
 ;;469
 ;;21,"65483-0392-50 ")
 ;;470
 ;;21,"65483-0393-10 ")
 ;;500
 ;;21,"65483-0393-33 ")
 ;;501
 ;;21,"65483-0393-50 ")
 ;;502
 ;;21,"65726-0250-10 ")
 ;;2309
 ;;21,"65726-0250-25 ")
 ;;2310
 ;;21,"65726-0251-10 ")
 ;;2307
 ;;21,"65726-0251-25 ")
 ;;2308
 ;;21,"65862-0062-01 ")
 ;;1770
 ;;21,"65862-0062-99 ")
 ;;1749
 ;;21,"65862-0063-01 ")
 ;;1958
 ;;21,"65862-0063-99 ")
 ;;1959
 ;;21,"65862-0064-01 ")
 ;;1643
 ;;21,"65862-0064-99 ")
 ;;1644
 ;;21,"65862-0086-01 ")
 ;;1310
 ;;21,"65862-0086-30 ")
 ;;1311
 ;;21,"65862-0087-01 ")
 ;;1290
 ;;21,"65862-0087-30 ")
 ;;1291
 ;;21,"65862-0142-01 ")
 ;;250
 ;;21,"65862-0142-05 ")
 ;;251
 ;;21,"65862-0143-01 ")
 ;;334
 ;;21,"65862-0143-05 ")
 ;;335
 ;;21,"65862-0144-01 ")
 ;;84
 ;;21,"65862-0144-05 ")
 ;;85
 ;;21,"65862-0145-01 ")
 ;;177
 ;;21,"65862-0145-05 ")
 ;;178
 ;;21,"65862-0168-01 ")
 ;;971
 ;;21,"65862-0168-99 ")
 ;;972
 ;;21,"65862-0169-01 ")
 ;;1215
 ;;21,"65862-0169-99 ")
 ;;1216
 ;;21,"65862-0170-01 ")
 ;;848
 ;;21,"65862-0170-99 ")
 ;;849
 ;;21,"66105-0994-03 ")
 ;;1961
 ;;21,"66105-0994-06 ")
 ;;1962
 ;;21,"66105-0994-10 ")
 ;;1963
 ;;21,"66105-0994-11 ")
 ;;1964
 ;;21,"66105-0994-15 ")
 ;;1965
 ;;21,"66105-0996-03 ")
 ;;1654
 ;;21,"66105-0996-06 ")
 ;;1655
 ;;21,"66105-0996-10 ")
 ;;1656
 ;;21,"66105-0996-11 ")
 ;;1657
 ;;21,"66105-0996-15 ")
 ;;1658
 ;;21,"66116-0239-30 ")
 ;;1214
 ;;21,"66116-0421-30 ")
 ;;850
 ;;21,"66116-0455-30 ")
 ;;1642
 ;;21,"66116-0456-30 ")
 ;;1974
 ;;21,"66267-0029-30 ")
 ;;851
 ;;21,"66267-0029-60 ")
 ;;852
 ;;21,"66267-0029-90 ")
 ;;853
 ;;21,"66267-0029-91 ")
 ;;854
 ;;21,"66267-0029-92 ")
 ;;855
 ;;21,"66267-0030-60 ")
 ;;973
 ;;21,"66267-0031-30 ")
 ;;1213
 ;;21,"66267-0346-30 ")
 ;;1613
 ;;21,"66267-0346-60 ")
 ;;1614
 ;;21,"66267-0346-90 ")
 ;;1615
 ;;21,"66267-0346-91 ")
 ;;1616
 ;;21,"66267-0346-92 ")
 ;;1617
 ;;21,"66267-0346-93 ")
 ;;1618
 ;;21,"66336-0125-60 ")
 ;;263