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

BGP2TA3.m

Go to the documentation of this file.
BGP2TA3 ;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,"00904-5811-46 ")
 ;;2124
 ;;21,"00904-5811-61 ")
 ;;2125
 ;;21,"00904-5811-80 ")
 ;;2126
 ;;21,"00904-5811-89 ")
 ;;2127
 ;;21,"00904-5812-40 ")
 ;;1678
 ;;21,"00904-5812-89 ")
 ;;1679
 ;;21,"00904-6189-40 ")
 ;;300
 ;;21,"00904-6190-40 ")
 ;;127
 ;;21,"00904-6191-40 ")
 ;;186
 ;;21,"00904-6192-40 ")
 ;;248
 ;;21,"12280-0033-00 ")
 ;;249
 ;;21,"12280-0059-90 ")
 ;;2280
 ;;21,"12280-0061-00 ")
 ;;2427
 ;;21,"12280-0120-30 ")
 ;;102
 ;;21,"12280-0121-30 ")
 ;;84
 ;;21,"12280-0123-30 ")
 ;;72
 ;;21,"12280-0124-30 ")
 ;;1311
 ;;21,"12280-0126-30 ")
 ;;1253
 ;;21,"12280-0126-60 ")
 ;;1254
 ;;21,"12280-0127-30 ")
 ;;1196
 ;;21,"12280-0129-60 ")
 ;;1917
 ;;21,"12280-0144-00 ")
 ;;1775
 ;;21,"12280-0183-30 ")
 ;;1197
 ;;21,"12280-0220-00 ")
 ;;103
 ;;21,"12280-0228-90 ")
 ;;2313
 ;;21,"15338-0200-30 ")
 ;;740
 ;;21,"15338-0211-30 ")
 ;;918
 ;;21,"15338-0220-30 ")
 ;;621
 ;;21,"15338-0233-30 ")
 ;;806
 ;;21,"16252-0541-30 ")
 ;;2556
 ;;21,"16252-0542-90 ")
 ;;2568
 ;;21,"16252-0543-90 ")
 ;;2580
 ;;21,"16252-0570-30 ")
 ;;2399
 ;;21,"16252-0571-01 ")
 ;;2470
 ;;21,"16252-0571-50 ")
 ;;2471
 ;;21,"16252-0572-01 ")
 ;;2516
 ;;21,"16252-0572-50 ")
 ;;2517
 ;;21,"16252-0573-01 ")
 ;;2428
 ;;21,"16252-0573-50 ")
 ;;2429
 ;;21,"16252-0610-01 ")
 ;;2248
 ;;21,"16252-0611-01 ")
 ;;2236
 ;;21,"16252-0612-01 ")
 ;;1355
 ;;21,"16252-0613-01 ")
 ;;1350
 ;;21,"16252-0614-01 ")
 ;;1360
 ;;21,"16590-0309-30 ")
 ;;1312
 ;;21,"16590-0309-60 ")
 ;;1313
 ;;21,"16590-0309-72 ")
 ;;1314
 ;;21,"16590-0309-90 ")
 ;;1315
 ;;21,"18837-0277-30 ")
 ;;2128
 ;;21,"21695-0326-30 ")
 ;;128
 ;;21,"21695-0327-30 ")
 ;;187
 ;;21,"21695-0328-30 ")
 ;;2129
 ;;21,"21695-0329-30 ")
 ;;1531
 ;;21,"21695-0329-90 ")
 ;;1532
 ;;21,"21695-0330-20 ")
 ;;1776
 ;;21,"21695-0330-30 ")
 ;;1777
 ;;21,"21695-0330-90 ")
 ;;1778
 ;;21,"21695-0331-30 ")
 ;;2001
 ;;21,"21695-0393-30 ")
 ;;2380
 ;;21,"21695-0394-30 ")
 ;;2281
 ;;21,"21695-0477-30 ")
 ;;451
 ;;21,"21695-0478-30 ")
 ;;548
 ;;21,"21695-0487-30 ")
 ;;919
 ;;21,"21695-0488-30 ")
 ;;622
 ;;21,"21695-0489-90 ")
 ;;807
 ;;21,"21695-0733-30 ")
 ;;1198
 ;;21,"21695-0780-30 ")
 ;;1022
 ;;21,"21695-0821-30 ")
 ;;2472
 ;;21,"21695-0877-30 ")
 ;;250
 ;;21,"23490-5118-01 ")
 ;;129
 ;;21,"23490-5119-01 ")
 ;;188
 ;;21,"23490-5120-03 ")
 ;;251
 ;;21,"23490-5120-09 ")
 ;;252
 ;;21,"23490-5121-01 ")
 ;;301
 ;;21,"23490-5191-01 ")
 ;;356
 ;;21,"23490-5192-01 ")
 ;;386
 ;;21,"23490-5193-01 ")
 ;;452
 ;;21,"23490-5193-02 ")
 ;;453
 ;;21,"23490-5193-03 ")
 ;;454
 ;;21,"23490-5194-00 ")
 ;;549
 ;;21,"23490-5194-01 ")
 ;;550
 ;;21,"23490-5194-02 ")
 ;;551
 ;;21,"23490-5491-01 ")
 ;;623
 ;;21,"23490-5491-02 ")
 ;;624
 ;;21,"23490-5491-08 ")
 ;;625
 ;;21,"23490-5491-09 ")
 ;;626
 ;;21,"23490-5492-01 ")
 ;;808
 ;;21,"23490-5492-02 ")
 ;;809
 ;;21,"23490-5494-01 ")
 ;;920
 ;;21,"23490-5494-02 ")
 ;;921
 ;;21,"23490-5815-00 ")
 ;;1533
 ;;21,"23490-5815-01 ")
 ;;1534
 ;;21,"23490-5816-01 ")
 ;;1779
 ;;21,"23490-5816-02 ")
 ;;1780
 ;;21,"23490-5816-06 ")
 ;;1781
 ;;21,"23490-5817-02 ")
 ;;1680
 ;;21,"23490-5818-02 ")
 ;;2002
 ;;21,"23490-5819-02 ")
 ;;2130
 ;;21,"23490-5820-01 ")
 ;;1199
 ;;21,"23490-5821-01 ")
 ;;1255
 ;;21,"23490-5822-01 ")
 ;;1316
 ;;21,"23490-9364-03 ")
 ;;2344
 ;;21,"23629-0007-01 ")
 ;;302
 ;;21,"23629-0021-01 ")
 ;;1042
 ;;21,"23629-0080-01 ")
 ;;303
 ;;21,"24658-0100-10 ")
 ;;1043
 ;;21,"24658-0100-90 ")
 ;;1044
 ;;21,"24658-0101-10 ")
 ;;1084
 ;;21,"24658-0101-90 ")
 ;;1085
 ;;21,"24658-0102-10 ")
 ;;1119
 ;;21,"24658-0102-90 ")
 ;;1120
 ;;21,"24658-0200-01 ")
 ;;2400
 ;;21,"24658-0200-05 ")
 ;;2401
 ;;21,"24658-0201-01 ")
 ;;2473
 ;;21,"24658-0201-05 ")
 ;;2474
 ;;21,"24658-0202-01 ")
 ;;2518
 ;;21,"24658-0202-05 ")
 ;;2519
 ;;21,"24658-0203-01 ")
 ;;2430
 ;;21,"24658-0203-05 ")
 ;;2431
 ;;21,"24658-0240-10 ")
 ;;1681
 ;;21,"24658-0240-90 ")
 ;;1682
 ;;21,"24658-0241-10 ")
 ;;2131
 ;;21,"24658-0241-30 ")
 ;;2132
 ;;21,"24658-0241-45 ")
 ;;2133
 ;;21,"24658-0241-90 ")
 ;;2134
 ;;21,"24658-0242-10 ")
 ;;1535
 ;;21,"24658-0242-15 ")
 ;;1536
 ;;21,"24658-0242-18 ")
 ;;1537
 ;;21,"24658-0242-30 ")
 ;;1538
 ;;21,"24658-0242-45 ")
 ;;1539
 ;;21,"24658-0242-90 ")
 ;;1540
 ;;21,"24658-0243-10 ")
 ;;1782
 ;;21,"24658-0243-15 ")
 ;;1783
 ;;21,"24658-0243-18 ")
 ;;1784
 ;;21,"24658-0243-30 ")
 ;;1785
 ;;21,"24658-0243-45 ")
 ;;1786
 ;;21,"24658-0243-90 ")
 ;;1787
 ;;21,"24658-0244-01 ")
 ;;1918
 ;;21,"24658-0244-10 ")
 ;;1919
 ;;21,"24658-0245-10 ")
 ;;2003
 ;;21,"24658-0245-15 ")
 ;;2004
 ;;21,"24658-0245-18 ")
 ;;2005
 ;;21,"24658-0245-30 ")
 ;;2006
 ;;21,"24658-0245-45 ")
 ;;2007
 ;;21,"24658-0245-60 ")
 ;;2008
 ;;21,"24658-0245-90 ")
 ;;2009
 ;;21,"31722-0200-90 ")
 ;;1045
 ;;21,"31722-0201-90 ")
 ;;1086
 ;;21,"31722-0202-90 ")
 ;;1121
 ;;21,"31722-0271-01 ")
 ;;2402
 ;;21,"31722-0272-01 ")
 ;;2475
 ;;21,"31722-0272-10 ")
 ;;2476
 ;;21,"31722-0273-01 ")
 ;;2520
 ;;21,"31722-0273-10 ")
 ;;2521
 ;;21,"31722-0274-01 ")
 ;;2432
 ;;21,"31722-0274-10 ")
 ;;2433
 ;;21,"33358-0047-30 ")
 ;;73
 ;;21,"33358-0048-30 ")
 ;;130
 ;;21,"33358-0049-30 ")
 ;;189
 ;;21,"33358-0050-30 ")
 ;;104
 ;;21,"33358-0127-30 ")
 ;;627
 ;;21,"33358-0211-30 ")
 ;;2135
 ;;21,"33358-0212-30 ")
 ;;1541
 ;;21,"33358-0213-30 ")
 ;;1788
 ;;21,"33358-0214-30 ")
 ;;1200
 ;;21,"33358-0214-60 ")
 ;;1201
 ;;21,"33358-0222-00 ")
 ;;1416
 ;;21,"33458-0211-30 ")
 ;;2136
 ;;21,"35356-0541-30 ")
 ;;741
 ;;21,"43063-0007-01 ")
 ;;1789
 ;;21,"43063-0032-01 ")
 ;;2010
 ;;21,"43063-0065-30 ")
 ;;1256
 ;;21,"43063-0065-90 ")
 ;;1257
 ;;21,"43063-0118-30 ")
 ;;1202
 ;;21,"43063-0118-90 ")
 ;;1203
 ;;21,"43063-0130-90 ")
 ;;1317
 ;;21,"43063-0131-30 ")
 ;;190
 ;;21,"43063-0132-30 ")
 ;;253
 ;;21,"43063-0138-90 ")
 ;;1683
 ;;21,"43063-0146-30 ")
 ;;387
 ;;21,"43063-0171-14 ")
 ;;27
 ;;21,"43063-0232-30 ")
 ;;10
 ;;21,"43063-0232-60 ")
 ;;11
 ;;21,"43063-0233-60 ")
 ;;37
 ;;21,"43063-0234-60 ")
 ;;52
 ;;21,"43063-0288-30 ")
 ;;131
 ;;21,"43063-0303-30 ")
 ;;2434
 ;;21,"43353-0350-30 ")
 ;;2011
 ;;21,"43353-0365-15 ")
 ;;2137
 ;;21,"43353-0411-60 ")
 ;;2012
 ;;21,"43353-0488-45 ")
 ;;2138
 ;;21,"49158-0501-01 ")
 ;;922
 ;;21,"49158-0502-01 ")
 ;;628
 ;;21,"49158-0502-10 ")
 ;;629
 ;;21,"49158-0503-01 ")
 ;;810
 ;;21,"49884-0556-01 ")
 ;;1684
 ;;21,"49884-0556-10 ")
 ;;1685
 ;;21,"49884-0557-01 ")
 ;;2139
 ;;21,"49884-0557-10 ")
 ;;2140
 ;;21,"49884-0558-01 ")
 ;;1542
 ;;21,"49884-0558-10 ")
 ;;1543
 ;;21,"49884-0559-01 ")
 ;;1790
 ;;21,"49884-0559-10 ")
 ;;1791
 ;;21,"49884-0560-01 ")
 ;;2013
 ;;21,"49884-0560-10 ")
 ;;2014
 ;;21,"49884-0591-01 ")
 ;;742
 ;;21,"49884-0591-10 ")
 ;;743
 ;;21,"49884-0592-01 ")
 ;;923
 ;;21,"49884-0592-10 ")
 ;;924
 ;;21,"49884-0593-01 ")
 ;;630
 ;;21,"49884-0593-10 ")
 ;;631
 ;;21,"49884-0594-01 ")
 ;;811
 ;;21,"49884-0594-10 ")
 ;;812
 ;;21,"49884-0619-01 ")
 ;;388
 ;;21,"49884-0620-01 ")
 ;;455
 ;;21,"49884-0620-10 ")
 ;;456
 ;;21,"49884-0622-01 ")
 ;;357
 ;;21,"49884-0635-01 ")
 ;;1920
 ;;21,"49884-0635-10 ")
 ;;1921
 ;;21,"49884-0686-01 ")
 ;;1156
 ;;21,"49884-0687-01 ")
 ;;1023
 ;;21,"49884-0793-01 ")
 ;;389
 ;;21,"49884-0793-74 ")
 ;;390
 ;;21,"49884-0794-01 ")
 ;;457
 ;;21,"49884-0794-10 ")
 ;;458
 ;;21,"49884-0794-74 ")
 ;;459
 ;;21,"49884-0795-01 ")
 ;;552
 ;;21,"49884-0795-10 ")
 ;;553
 ;;21,"49884-0795-74 ")
 ;;554
 ;;21,"49884-0796-01 ")
 ;;358
 ;;21,"49884-0815-01 ")
 ;;326
 ;;21,"49884-0816-01 ")
 ;;328
 ;;21,"49884-0817-01 ")
 ;;329
 ;;21,"49884-0818-01 ")
 ;;330
 ;;21,"49884-0929-01 ")
 ;;28
 ;;21,"49884-0930-01 ")
 ;;38
 ;;21,"49884-0931-01 ")
 ;;53
 ;;21,"49884-0932-01 ")
 ;;12
 ;;21,"49884-0952-01 ")
 ;;64
 ;;21,"49884-0953-01 ")
 ;;21
 ;;21,"49884-0990-09 ")
 ;;2314
 ;;21,"49884-0991-09 ")
 ;;2345
 ;;21,"49884-0992-09 ")
 ;;2381
 ;;21,"49884-0993-09 ")
 ;;2282
 ;;21,"49999-0105-00 ")
 ;;460
 ;;21,"49999-0105-10 ")
 ;;461
 ;;21,"49999-0105-30 ")
 ;;462
 ;;21,"49999-0105-60 ")
 ;;463
 ;;21,"49999-0182-10 ")
 ;;1544
 ;;21,"49999-0182-30 ")
 ;;1545
 ;;21,"49999-0182-60 ")
 ;;1546
 ;;21,"49999-0183-10 ")
 ;;1792
 ;;21,"49999-0183-30 ")
 ;;1793
 ;;21,"49999-0183-60 ")
 ;;1794
 ;;21,"49999-0239-00 ")
 ;;925
 ;;21,"49999-0239-30 ")
 ;;926
 ;;21,"49999-0239-60 ")
 ;;927
 ;;21,"49999-0240-00 ")
 ;;632
 ;;21,"49999-0240-30 ")
 ;;633
 ;;21,"49999-0287-30 ")
 ;;191
 ;;21,"49999-0294-30 ")
 ;;2581
 ;;21,"49999-0295-00 ")
 ;;2141
 ;;21,"49999-0295-10 ")
 ;;2142
 ;;21,"49999-0295-30 ")
 ;;2143
 ;;21,"49999-0321-00 ")
 ;;1318
 ;;21,"49999-0321-30 ")
 ;;1319
 ;;21,"49999-0321-60 ")
 ;;1320
 ;;21,"49999-0345-00 ")
 ;;813
 ;;21,"49999-0345-30 ")
 ;;814
 ;;21,"49999-0469-10 ")
 ;;2015
 ;;21,"49999-0469-30 ")
 ;;2016
 ;;21,"49999-0511-30 ")
 ;;555
 ;;21,"49999-0511-60 ")
 ;;556
 ;;21,"49999-0759-30 ")
 ;;192
 ;;21,"49999-0761-00 ")
 ;;1204
 ;;21,"49999-0761-30 ")
 ;;1205
 ;;21,"49999-0823-00 ")
 ;;1024
 ;;21,"49999-0870-00 ")
 ;;1922
 ;;21,"49999-0871-30 ")
 ;;2435
 ;;21,"49999-0871-90 ")
 ;;2436
 ;;21,"49999-0924-00 ")
 ;;1258
 ;;21,"49999-0924-10 ")
 ;;1259
 ;;21,"49999-0924-30 ")
 ;;1260
 ;;21,"49999-0924-60 ")
 ;;1261
 ;;21,"49999-0934-30 ")
 ;;2522
 ;;21,"49999-0946-30 ")
 ;;1388
 ;;21,"49999-0947-30 ")
 ;;1405
 ;;21,"49999-0948-30 ")
 ;;1417
 ;;21,"51079-0145-01 ")
 ;;132
 ;;21,"51079-0145-20 ")
 ;;133
 ;;21,"51079-0146-01 ")
 ;;193
 ;;21,"51079-0146-20 ")
 ;;194
 ;;21,"51079-0256-40 ")
 ;;1686
 ;;21,"51079-0261-40 ")
 ;;1923
 ;;21,"51079-0697-40 ")
 ;;1206
 ;;21,"51079-0698-40 ")
 ;;1262
 ;;21,"51079-0699-40 ")
 ;;1321
 ;;21,"51079-0863-01 ")
 ;;391
 ;;21,"51079-0863-20 ")
 ;;392
 ;;21,"51079-0864-01 ")
 ;;464
 ;;21,"51079-0864-20 ")
 ;;465
 ;;21,"51079-0950-01 ")
 ;;744
 ;;21,"51079-0950-20 ")
 ;;745
 ;;21,"51079-0951-01 ")
 ;;928
 ;;21,"51079-0951-20 ")
 ;;929
 ;;21,"51079-0952-01 ")
 ;;634
 ;;21,"51079-0952-20 ")
 ;;635
 ;;21,"51079-0953-01 ")
 ;;815
 ;;21,"51079-0953-20 ")
 ;;816
 ;;21,"51079-0981-01 ")
 ;;2144
 ;;21,"51079-0981-10 ")
 ;;2145
 ;;21,"51079-0981-20 ")
 ;;2146
 ;;21,"51079-0981-30 ")
 ;;2147
 ;;21,"51079-0981-40 ")
 ;;2148
 ;;21,"51079-0981-56 ")
 ;;2149
 ;;21,"51079-0981-57 ")
 ;;2150
 ;;21,"51079-0981-60 ")
 ;;2151
 ;;21,"51079-0982-01 ")
 ;;1547
 ;;21,"51079-0982-19 ")
 ;;1548
 ;;21,"51079-0982-20 ")
 ;;1549
 ;;21,"51079-0982-30 ")
 ;;1550
 ;;21,"51079-0982-40 ")
 ;;1551
 ;;21,"51079-0982-56 ")
 ;;1552
 ;;21,"51079-0982-57 ")
 ;;1553
 ;;21,"51079-0982-60 ")
 ;;1554
 ;;21,"51079-0983-01 ")
 ;;1795
 ;;21,"51079-0983-19 ")
 ;;1796
 ;;21,"51079-0983-20 ")
 ;;1797
 ;;21,"51079-0983-30 ")
 ;;1798
 ;;21,"51079-0983-40 ")
 ;;1799
 ;;21,"51079-0983-56 ")
 ;;1800
 ;;21,"51079-0983-57 ")
 ;;1801
 ;;21,"51079-0983-60 ")
 ;;1802
 ;;21,"51079-0984-01 ")
 ;;2017
 ;;21,"51079-0984-20 ")
 ;;2018
 ;;21,"51079-0984-40 ")
 ;;2019
 ;;21,"51079-0984-50 ")
 ;;2020
 ;;21,"51655-0244-24 ")
 ;;1555
 ;;21,"51655-0280-24 ")
 ;;1803
 ;;21,"51655-0292-24 ")
 ;;2021
 ;;21,"51655-0620-24 ")
 ;;636
 ;;21,"51655-0975-24 ")
 ;;393
 ;;21,"51672-4037-01 ")
 ;;746
 ;;21,"51672-4037-03 ")
 ;;747
 ;;21,"51672-4038-01 ")
 ;;930
 ;;21,"51672-4038-03 ")
 ;;931
 ;;21,"51672-4039-01 ")
 ;;637
 ;;21,"51672-4039-03 ")
 ;;638
 ;;21,"51672-4040-01 ")
 ;;817
 ;;21,"51672-4040-03 ")
 ;;818
 ;;21,"51672-4045-01 ")
 ;;1157
 ;;21,"51672-4046-01 ")
 ;;1025
 ;;21,"51875-0355-01 ")
 ;;394
 ;;21,"51875-0955-02 ")
 ;;395
 ;;21,"51875-0955-05 ")
 ;;396
 ;;21,"52152-0238-08 ")
 ;;1444
 ;;21,"52152-0238-30 ")
 ;;1445
 ;;21,"52152-0239-08 ")
 ;;1446
 ;;21,"52152-0239-30 ")
 ;;1447
 ;;21,"52152-0240-08 ")
 ;;1448
 ;;21,"52152-0240-30 ")
 ;;1449
 ;;21,"52544-0669-01 ")
 ;;932
 ;;21,"52544-0669-05 ")
 ;;933
 ;;21,"52544-0670-01 ")
 ;;639
 ;;21,"52544-0670-05 ")
 ;;640
 ;;21,"52544-0671-01 ")
 ;;819
 ;;21,"52544-0689-01 ")
 ;;466
 ;;21,"52544-0689-05 ")
 ;;467
 ;;21,"52544-0689-10 ")
 ;;468
 ;;21,"52959-0137-15 ")
 ;;1207
 ;;21,"52959-0498-00 ")
 ;;1476
 ;;21,"52959-0728-15 ")
 ;;1556
 ;;21,"52959-0728-20 ")
 ;;1557
 ;;21,"52959-0728-30 ")
 ;;1558
 ;;21,"52959-0729-30 ")
 ;;1804
 ;;21,"52959-0729-60 ")
 ;;1805
 ;;21,"52959-0729-90 ")
 ;;1806
 ;;21,"52959-0753-00 ")
 ;;2022
 ;;21,"52959-0753-30 ")
 ;;2023
 ;;21,"52959-0831-30 ")
 ;;195
 ;;21,"52959-0835-30 ")
 ;;254
 ;;21,"52959-0835-60 ")
 ;;255
 ;;21,"52959-0841-30 ")
 ;;134
 ;;21,"52959-0841-60 ")
 ;;135
 ;;21,"52959-0854-20 ")
 ;;2152
 ;;21,"52959-0854-30 ")
 ;;2153
 ;;21,"52959-0907-30 ")
 ;;105
 ;;21,"52959-0942-30 ")
 ;;820
 ;;21,"52959-0997-30 ")
 ;;1322
 ;;21,"54458-0956-10 ")
 ;;256