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

BGP2TA4.m

Go to the documentation of this file.
BGP2TA4 ;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,"54458-0957-10 ")
 ;;196
 ;;21,"54458-0991-10 ")
 ;;1323
 ;;21,"54458-0992-10 ")
 ;;1263
 ;;21,"54458-0993-09 ")
 ;;1208
 ;;21,"54458-0994-10 ")
 ;;2024
 ;;21,"54458-0995-10 ")
 ;;1924
 ;;21,"54458-0996-10 ")
 ;;1807
 ;;21,"54458-0997-10 ")
 ;;1559
 ;;21,"54458-0998-09 ")
 ;;2154
 ;;21,"54458-0999-09 ")
 ;;1687
 ;;21,"54569-0522-00 ")
 ;;397
 ;;21,"54569-0522-01 ")
 ;;398
 ;;21,"54569-0522-03 ")
 ;;399
 ;;21,"54569-0523-00 ")
 ;;469
 ;;21,"54569-0523-02 ")
 ;;470
 ;;21,"54569-0606-00 ")
 ;;934
 ;;21,"54569-0606-01 ")
 ;;935
 ;;21,"54569-0606-02 ")
 ;;936
 ;;21,"54569-0606-03 ")
 ;;937
 ;;21,"54569-0607-00 ")
 ;;641
 ;;21,"54569-0607-01 ")
 ;;642
 ;;21,"54569-0607-03 ")
 ;;643
 ;;21,"54569-0612-00 ")
 ;;821
 ;;21,"54569-1752-03 ")
 ;;1560
 ;;21,"54569-1944-00 ")
 ;;1561
 ;;21,"54569-1944-01 ")
 ;;1562
 ;;21,"54569-1944-02 ")
 ;;1563
 ;;21,"54569-1944-03 ")
 ;;1564
 ;;21,"54569-2051-01 ")
 ;;1808
 ;;21,"54569-2051-02 ")
 ;;1809
 ;;21,"54569-2665-01 ")
 ;;1810
 ;;21,"54569-2665-02 ")
 ;;1811
 ;;21,"54569-3258-01 ")
 ;;748
 ;;21,"54569-3300-01 ")
 ;;2155
 ;;21,"54569-3359-00 ")
 ;;197
 ;;21,"54569-3423-01 ")
 ;;136
 ;;21,"54569-3713-00 ")
 ;;2477
 ;;21,"54569-3714-00 ")
 ;;2523
 ;;21,"54569-3771-00 ")
 ;;2156
 ;;21,"54569-3808-00 ")
 ;;1046
 ;;21,"54569-3809-00 ")
 ;;1087
 ;;21,"54569-3984-00 ")
 ;;2283
 ;;21,"54569-3985-00 ")
 ;;2315
 ;;21,"54569-4246-00 ")
 ;;471
 ;;21,"54569-4246-01 ")
 ;;472
 ;;21,"54569-4246-03 ")
 ;;473
 ;;21,"54569-4246-04 ")
 ;;474
 ;;21,"54569-4246-05 ")
 ;;475
 ;;21,"54569-4247-00 ")
 ;;557
 ;;21,"54569-4247-02 ")
 ;;558
 ;;21,"54569-4247-03 ")
 ;;559
 ;;21,"54569-4276-00 ")
 ;;2237
 ;;21,"54569-4454-00 ")
 ;;2346
 ;;21,"54569-4593-00 ")
 ;;400
 ;;21,"54569-4593-01 ")
 ;;401
 ;;21,"54569-4696-00 ")
 ;;1406
 ;;21,"54569-4788-00 ")
 ;;257
 ;;21,"54569-4829-00 ")
 ;;1477
 ;;21,"54569-4948-00 ")
 ;;1122
 ;;21,"54569-4990-00 ")
 ;;2249
 ;;21,"54569-5133-00 ")
 ;;938
 ;;21,"54569-5133-01 ")
 ;;939
 ;;21,"54569-5134-00 ")
 ;;644
 ;;21,"54569-5134-01 ")
 ;;645
 ;;21,"54569-5134-02 ")
 ;;646
 ;;21,"54569-5135-00 ")
 ;;822
 ;;21,"54569-5135-01 ")
 ;;823
 ;;21,"54569-5232-00 ")
 ;;1418
 ;;21,"54569-5434-00 ")
 ;;1565
 ;;21,"54569-5434-03 ")
 ;;1566
 ;;21,"54569-5434-04 ")
 ;;1567
 ;;21,"54569-5435-00 ")
 ;;1812
 ;;21,"54569-5435-03 ")
 ;;1813
 ;;21,"54569-5435-04 ")
 ;;1814
 ;;21,"54569-5437-00 ")
 ;;1688
 ;;21,"54569-5438-00 ")
 ;;2157
 ;;21,"54569-5472-00 ")
 ;;2025
 ;;21,"54569-5621-00 ")
 ;;1047
 ;;21,"54569-5668-00 ")
 ;;137
 ;;21,"54569-5668-01 ")
 ;;138
 ;;21,"54569-5669-00 ")
 ;;198
 ;;21,"54569-5670-00 ")
 ;;258
 ;;21,"54569-5685-00 ")
 ;;106
 ;;21,"54569-5709-00 ")
 ;;2284
 ;;21,"54569-5710-00 ")
 ;;2316
 ;;21,"54569-5711-00 ")
 ;;2347
 ;;21,"54569-5728-00 ")
 ;;1925
 ;;21,"54569-5878-00 ")
 ;;1389
 ;;21,"54569-5936-00 ")
 ;;2437
 ;;21,"54569-5937-00 ")
 ;;39
 ;;21,"54569-5938-00 ")
 ;;54
 ;;21,"54569-8515-00 ")
 ;;1568
 ;;21,"54569-8527-00 ")
 ;;1815
 ;;21,"54569-8583-00 ")
 ;;1569
 ;;21,"54569-8584-00 ")
 ;;2158
 ;;21,"54569-8592-00 ")
 ;;1048
 ;;21,"54569-8595-00 ")
 ;;1468
 ;;21,"54868-0541-00 ")
 ;;824
 ;;21,"54868-0541-01 ")
 ;;825
 ;;21,"54868-0541-03 ")
 ;;826
 ;;21,"54868-0620-01 ")
 ;;647
 ;;21,"54868-0620-02 ")
 ;;648
 ;;21,"54868-0620-03 ")
 ;;649
 ;;21,"54868-0620-05 ")
 ;;650
 ;;21,"54868-0669-01 ")
 ;;476
 ;;21,"54868-0669-02 ")
 ;;477
 ;;21,"54868-0669-03 ")
 ;;478
 ;;21,"54868-0669-05 ")
 ;;479
 ;;21,"54868-0669-06 ")
 ;;480
 ;;21,"54868-1001-01 ")
 ;;1816
 ;;21,"54868-1090-01 ")
 ;;940
 ;;21,"54868-1090-05 ")
 ;;941
 ;;21,"54868-1090-06 ")
 ;;942
 ;;21,"54868-1296-01 ")
 ;;1570
 ;;21,"54868-1296-02 ")
 ;;1571
 ;;21,"54868-1415-01 ")
 ;;560
 ;;21,"54868-1501-00 ")
 ;;2026
 ;;21,"54868-1501-01 ")
 ;;2027
 ;;21,"54868-1502-00 ")
 ;;1817
 ;;21,"54868-1775-01 ")
 ;;402
 ;;21,"54868-1775-04 ")
 ;;403
 ;;21,"54868-1802-00 ")
 ;;1365
 ;;21,"54868-1960-00 ")
 ;;2159
 ;;21,"54868-1961-01 ")
 ;;2160
 ;;21,"54868-1961-02 ")
 ;;2161
 ;;21,"54868-1970-01 ")
 ;;1572
 ;;21,"54868-1970-02 ")
 ;;1573
 ;;21,"54868-2280-00 ")
 ;;749
 ;;21,"54868-2280-02 ")
 ;;750
 ;;21,"54868-2350-01 ")
 ;;139
 ;;21,"54868-2350-02 ")
 ;;140
 ;;21,"54868-2350-03 ")
 ;;141
 ;;21,"54868-2350-04 ")
 ;;142
 ;;21,"54868-2351-00 ")
 ;;199
 ;;21,"54868-2351-02 ")
 ;;200
 ;;21,"54868-2351-03 ")
 ;;201
 ;;21,"54868-2352-00 ")
 ;;259
 ;;21,"54868-2352-01 ")
 ;;260
 ;;21,"54868-2368-00 ")
 ;;1049
 ;;21,"54868-2368-01 ")
 ;;1050
 ;;21,"54868-2368-02 ")
 ;;1051
 ;;21,"54868-2644-00 ")
 ;;2478
 ;;21,"54868-2644-01 ")
 ;;2479
 ;;21,"54868-2644-02 ")
 ;;2480
 ;;21,"54868-2645-00 ")
 ;;2524
 ;;21,"54868-2645-01 ")
 ;;2525
 ;;21,"54868-2665-00 ")
 ;;2285
 ;;21,"54868-2665-01 ")
 ;;2286
 ;;21,"54868-2666-01 ")
 ;;2317
 ;;21,"54868-2666-02 ")
 ;;2318
 ;;21,"54868-2666-03 ")
 ;;2319
 ;;21,"54868-2666-04 ")
 ;;2320
 ;;21,"54868-3279-00 ")
 ;;1088
 ;;21,"54868-3279-02 ")
 ;;1089
 ;;21,"54868-3279-03 ")
 ;;1090
 ;;21,"54868-3307-00 ")
 ;;2382
 ;;21,"54868-3307-01 ")
 ;;2383
 ;;21,"54868-3443-00 ")
 ;;1361
 ;;21,"54868-3445-00 ")
 ;;2348
 ;;21,"54868-3445-01 ")
 ;;2349
 ;;21,"54868-3690-01 ")
 ;;304
 ;;21,"54868-3723-01 ")
 ;;404
 ;;21,"54868-3724-01 ")
 ;;481
 ;;21,"54868-3724-02 ")
 ;;482
 ;;21,"54868-3724-03 ")
 ;;483
 ;;21,"54868-3725-01 ")
 ;;561
 ;;21,"54868-3725-02 ")
 ;;562
 ;;21,"54868-3769-00 ")
 ;;327
 ;;21,"54868-3846-00 ")
 ;;2438
 ;;21,"54868-3906-00 ")
 ;;85
 ;;21,"54868-3906-01 ")
 ;;86
 ;;21,"54868-4003-00 ")
 ;;2591
 ;;21,"54868-4062-00 ")
 ;;346
 ;;21,"54868-4062-01 ")
 ;;347
 ;;21,"54868-4066-00 ")
 ;;1400
 ;;21,"54868-4066-01 ")
 ;;1401
 ;;21,"54868-4073-00 ")
 ;;1407
 ;;21,"54868-4073-01 ")
 ;;1408
 ;;21,"54868-4073-02 ")
 ;;1409
 ;;21,"54868-4073-03 ")
 ;;1410
 ;;21,"54868-4074-00 ")
 ;;1419
 ;;21,"54868-4074-01 ")
 ;;1420
 ;;21,"54868-4074-02 ")
 ;;1421
 ;;21,"54868-4074-03 ")
 ;;1422
 ;;21,"54868-4074-04 ")
 ;;1423
 ;;21,"54868-4088-00 ")
 ;;2238
 ;;21,"54868-4088-01 ")
 ;;2239
 ;;21,"54868-4088-02 ")
 ;;2240
 ;;21,"54868-4209-00 ")
 ;;1123
 ;;21,"54868-4331-00 ")
 ;;827
 ;;21,"54868-4331-01 ")
 ;;828
 ;;21,"54868-4331-02 ")
 ;;829
 ;;21,"54868-4332-00 ")
 ;;751
 ;;21,"54868-4332-01 ")
 ;;752
 ;;21,"54868-4332-02 ")
 ;;753
 ;;21,"54868-4357-00 ")
 ;;943
 ;;21,"54868-4357-01 ")
 ;;944
 ;;21,"54868-4357-02 ")
 ;;945
 ;;21,"54868-4357-03 ")
 ;;946
 ;;21,"54868-4358-00 ")
 ;;651
 ;;21,"54868-4358-01 ")
 ;;652
 ;;21,"54868-4358-02 ")
 ;;653
 ;;21,"54868-4479-00 ")
 ;;1463
 ;;21,"54868-4479-01 ")
 ;;1464
 ;;21,"54868-4479-02 ")
 ;;1465
 ;;21,"54868-4552-00 ")
 ;;2261
 ;;21,"54868-4552-01 ")
 ;;2262
 ;;21,"54868-4555-00 ")
 ;;2267
 ;;21,"54868-4555-01 ")
 ;;2268
 ;;21,"54868-4637-00 ")
 ;;1264
 ;;21,"54868-4637-01 ")
 ;;1265
 ;;21,"54868-4637-02 ")
 ;;1266
 ;;21,"54868-4637-03 ")
 ;;1267
 ;;21,"54868-4646-00 ")
 ;;2028
 ;;21,"54868-4646-01 ")
 ;;2029
 ;;21,"54868-4646-02 ")
 ;;2030
 ;;21,"54868-4646-03 ")
 ;;2031
 ;;21,"54868-4656-00 ")
 ;;1689
 ;;21,"54868-4656-01 ")
 ;;1690
 ;;21,"54868-4657-00 ")
 ;;1574
 ;;21,"54868-4657-01 ")
 ;;1575
 ;;21,"54868-4657-02 ")
 ;;1576
 ;;21,"54868-4657-03 ")
 ;;1577
 ;;21,"54868-4657-04 ")
 ;;1578
 ;;21,"54868-4658-00 ")
 ;;1818
 ;;21,"54868-4658-01 ")
 ;;1819
 ;;21,"54868-4658-02 ")
 ;;1820
 ;;21,"54868-4658-03 ")
 ;;1821
 ;;21,"54868-4678-00 ")
 ;;2162
 ;;21,"54868-4678-01 ")
 ;;2163
 ;;21,"54868-4780-00 ")
 ;;1926
 ;;21,"54868-4780-01 ")
 ;;1927
 ;;21,"54868-4785-00 ")
 ;;1324
 ;;21,"54868-4785-01 ")
 ;;1325
 ;;21,"54868-4785-02 ")
 ;;1326
 ;;21,"54868-4785-03 ")
 ;;1327
 ;;21,"54868-4870-00 ")
 ;;1390
 ;;21,"54868-4870-01 ")
 ;;1391
 ;;21,"54868-4870-02 ")
 ;;1392
 ;;21,"54868-4904-00 ")
 ;;1379
 ;;21,"54868-4904-01 ")
 ;;1380
 ;;21,"54868-4977-00 ")
 ;;1209
 ;;21,"54868-4977-01 ")
 ;;1210
 ;;21,"54868-4977-02 ")
 ;;1211
 ;;21,"54868-5001-00 ")
 ;;143
 ;;21,"54868-5001-01 ")
 ;;144
 ;;21,"54868-5055-00 ")
 ;;1091
 ;;21,"54868-5064-00 ")
 ;;1052
 ;;21,"54868-5064-01 ")
 ;;1053
 ;;21,"54868-5079-00 ")
 ;;202
 ;;21,"54868-5079-01 ")
 ;;203
 ;;21,"54868-5099-00 ")
 ;;2582
 ;;21,"54868-5099-01 ")
 ;;2583
 ;;21,"54868-5100-00 ")
 ;;1026
 ;;21,"54868-5100-01 ")
 ;;1027
 ;;21,"54868-5182-00 ")
 ;;1124
 ;;21,"54868-5182-01 ")
 ;;1125
 ;;21,"54868-5182-02 ")
 ;;1126
 ;;21,"54868-5196-00 ")
 ;;359
 ;;21,"54868-5196-02 ")
 ;;360
 ;;21,"54868-5204-00 ")
 ;;261
 ;;21,"54868-5241-00 ")
 ;;2321
 ;;21,"54868-5241-01 ")
 ;;2322
 ;;21,"54868-5241-02 ")
 ;;2323
 ;;21,"54868-5245-00 ")
 ;;2287
 ;;21,"54868-5245-01 ")
 ;;2288
 ;;21,"54868-5245-02 ")
 ;;2289
 ;;21,"54868-5246-00 ")
 ;;2350
 ;;21,"54868-5246-01 ")
 ;;2351
 ;;21,"54868-5256-00 ")
 ;;74
 ;;21,"54868-5279-00 ")
 ;;2384
 ;;21,"54868-5296-00 ")
 ;;87
 ;;21,"54868-5313-00 ")
 ;;1383
 ;;21,"54868-5313-01 ")
 ;;1384
 ;;21,"54868-5346-00 ")
 ;;1167
 ;;21,"54868-5423-00 ")
 ;;2250
 ;;21,"54868-5423-01 ")
 ;;2251
 ;;21,"54868-5469-00 ")
 ;;1174
 ;;21,"54868-5469-01 ")
 ;;1175
 ;;21,"54868-5475-00 ")
 ;;1372
 ;;21,"54868-5503-00 ")
 ;;1158
 ;;21,"54868-5503-01 ")
 ;;1159
 ;;21,"54868-5548-00 ")
 ;;1452
 ;;21,"54868-5690-02 ")
 ;;1397
 ;;21,"54868-5747-00 ")
 ;;2403
 ;;21,"54868-5747-01 ")
 ;;2404
 ;;21,"54868-5781-00 ")
 ;;13
 ;;21,"54868-5782-00 ")
 ;;55
 ;;21,"54868-5782-04 ")
 ;;56
 ;;21,"54868-5783-00 ")
 ;;1431
 ;;21,"54868-5783-01 ")
 ;;1432
 ;;21,"54868-5787-00 ")
 ;;337
 ;;21,"54868-5792-00 ")
 ;;40
 ;;21,"54868-5842-00 ")
 ;;2526
 ;;21,"54868-5843-00 ")
 ;;2439
 ;;21,"54868-5856-00 ")
 ;;2481
 ;;21,"54868-5896-00 ")
 ;;2405
 ;;21,"55045-2376-00 ")
 ;;484
 ;;21,"55045-2799-00 ")
 ;;947
 ;;21,"55045-2799-01 ")
 ;;948
 ;;21,"55045-2799-02 ")
 ;;949
 ;;21,"55045-2799-06 ")
 ;;950
 ;;21,"55045-2799-09 ")
 ;;951
 ;;21,"55045-2827-00 ")
 ;;654
 ;;21,"55045-2827-04 ")
 ;;655
 ;;21,"55045-2827-06 ")
 ;;656
 ;;21,"55045-2827-08 ")
 ;;657
 ;;21,"55045-2827-09 ")
 ;;658
 ;;21,"55045-2832-08 ")
 ;;830
 ;;21,"55045-2929-00 ")
 ;;1579
 ;;21,"55045-2929-06 ")
 ;;1580
 ;;21,"55045-2929-08 ")
 ;;1581
 ;;21,"55045-2936-00 ")
 ;;1822
 ;;21,"55045-2936-08 ")
 ;;1823
 ;;21,"55045-2937-00 ")
 ;;1582
 ;;21,"55045-2938-00 ")
 ;;2164
 ;;21,"55045-2938-08 ")
 ;;2165
 ;;21,"55045-2975-00 ")
 ;;2032
 ;;21,"55045-2975-06 ")
 ;;2033
 ;;21,"55045-2975-08 ")
 ;;2034
 ;;21,"55045-3059-00 ")
 ;;1691
 ;;21,"55045-3059-08 ")
 ;;1692
 ;;21,"55045-3164-00 ")
 ;;145
 ;;21,"55045-3170-00 ")
 ;;107
 ;;21,"55045-3225-06 ")
 ;;1328
 ;;21,"55045-3373-08 ")
 ;;1160
 ;;21,"55045-3772-08 ")
 ;;1824
 ;;21,"55111-0133-01 ")
 ;;1161
 ;;21,"55111-0134-01 ")
 ;;1028
 ;;21,"55111-0338-01 ")
 ;;29
 ;;21,"55111-0339-01 ")
 ;;41
 ;;21,"55111-0339-05 ")
 ;;42
 ;;21,"55111-0340-01 ")
 ;;57
 ;;21,"55111-0340-05 ")
 ;;58
 ;;21,"55111-0341-01 ")
 ;;14
 ;;21,"55111-0341-05 ")
 ;;15
 ;;21,"55111-0438-90 ")
 ;;2406
 ;;21,"55111-0439-05 ")
 ;;2482
 ;;21,"55111-0439-90 ")
 ;;2483
 ;;21,"55111-0440-05 ")
 ;;2527
 ;;21,"55111-0440-90 ")
 ;;2528
 ;;21,"55111-0441-05 ")
 ;;2440
 ;;21,"55111-0441-90 ")
 ;;2441
 ;;21,"55111-0586-01 ")
 ;;22
 ;;21,"55111-0587-01 ")
 ;;65
 ;;21,"55111-0621-90 ")
 ;;2385
 ;;21,"55111-0622-90 ")
 ;;2290
 ;;21,"55111-0623-90 ")
 ;;2324
 ;;21,"55111-0624-90 ")
 ;;2352
 ;;21,"55175-3964-03 ")
 ;;1583
 ;;21,"55289-0039-30 ")
 ;;1424
 ;;21,"55289-0086-30 ")
 ;;204
 ;;21,"55289-0086-97 ")
 ;;205
 ;;21,"55289-0096-30 ")
 ;;1411
 ;;21,"55289-0106-30 ")
 ;;1825
 ;;21,"55289-0212-30 ")
 ;;563
 ;;21,"55289-0212-90 ")
 ;;564
 ;;21,"55289-0344-30 ")
 ;;485
 ;;21,"55289-0344-90 ")
 ;;486
 ;;21,"55289-0344-97 ")
 ;;487
 ;;21,"55289-0483-30 ")
 ;;659
 ;;21,"55289-0484-30 ")
 ;;1469
 ;;21,"55289-0506-30 ")
 ;;488
 ;;21,"55289-0506-97 ")
 ;;489
 ;;21,"55289-0509-30 ")
 ;;1584
 ;;21,"55289-0552-30 ")
 ;;2386
 ;;21,"55289-0553-30 ")
 ;;2291
 ;;21,"55289-0554-30 ")
 ;;2325
 ;;21,"55289-0555-30 ")
 ;;2353
 ;;21,"55289-0573-30 ")
 ;;1443
 ;;21,"55289-0577-30 ")
 ;;1826
 ;;21,"55289-0591-30 ")
 ;;660
 ;;21,"55289-0591-90 ")
 ;;661
 ;;21,"55289-0622-03 ")
 ;;952
 ;;21,"55289-0622-30 ")
 ;;953
 ;;21,"55289-0638-01 ")
 ;;1585
 ;;21,"55289-0638-12 ")
 ;;1586
 ;;21,"55289-0638-14 ")
 ;;1587
 ;;21,"55289-0638-30 ")
 ;;1588
 ;;21,"55289-0638-60 ")
 ;;1589
 ;;21,"55289-0638-90 ")
 ;;1590
 ;;21,"55289-0638-98 ")
 ;;1591
 ;;21,"55289-0694-10 ")
 ;;954
 ;;21,"55289-0694-30 ")
 ;;955
 ;;21,"55289-0694-90 ")
 ;;956
 ;;21,"55289-0696-14 ")
 ;;1827
 ;;21,"55289-0696-30 ")
 ;;1828
 ;;21,"55289-0696-60 ")
 ;;1829
 ;;21,"55289-0696-90 ")
 ;;1830
 ;;21,"55289-0696-98 ")
 ;;1831