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

BGP2TC5.m

Go to the documentation of this file.
BGP2TC5 ;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,"54868-5395-00 ")
 ;;2306
 ;;21,"54868-5400-00 ")
 ;;707
 ;;21,"54868-5400-01 ")
 ;;708
 ;;21,"54868-5520-00 ")
 ;;744
 ;;21,"54868-5524-00 ")
 ;;694
 ;;21,"54868-5524-01 ")
 ;;695
 ;;21,"54868-5564-00 ")
 ;;2588
 ;;21,"54868-5564-01 ")
 ;;2589
 ;;21,"54868-5588-00 ")
 ;;2072
 ;;21,"54868-5729-00 ")
 ;;1458
 ;;21,"54868-5729-01 ")
 ;;1459
 ;;21,"54868-5729-02 ")
 ;;1460
 ;;21,"54868-5729-03 ")
 ;;1461
 ;;21,"54868-5729-04 ")
 ;;1462
 ;;21,"54868-5729-05 ")
 ;;1463
 ;;21,"54868-5729-06 ")
 ;;1464
 ;;21,"54868-5730-00 ")
 ;;1530
 ;;21,"54868-5730-01 ")
 ;;1531
 ;;21,"54868-5730-02 ")
 ;;1532
 ;;21,"54868-5730-03 ")
 ;;1533
 ;;21,"54868-5730-04 ")
 ;;1534
 ;;21,"54868-5730-05 ")
 ;;1535
 ;;21,"54868-5731-00 ")
 ;;1354
 ;;21,"54868-5731-01 ")
 ;;1355
 ;;21,"54868-5731-02 ")
 ;;1356
 ;;21,"54868-5731-03 ")
 ;;1357
 ;;21,"54868-5731-04 ")
 ;;1358
 ;;21,"54868-5732-00 ")
 ;;1409
 ;;21,"54868-5732-01 ")
 ;;1410
 ;;21,"54868-5755-00 ")
 ;;2275
 ;;21,"54868-5755-01 ")
 ;;2276
 ;;21,"54868-5771-00 ")
 ;;20
 ;;21,"54868-5771-01 ")
 ;;21
 ;;21,"54868-5773-00 ")
 ;;69
 ;;21,"54868-5773-01 ")
 ;;70
 ;;21,"54868-5773-02 ")
 ;;71
 ;;21,"54868-5773-03 ")
 ;;72
 ;;21,"54868-5817-00 ")
 ;;157
 ;;21,"54868-5817-01 ")
 ;;158
 ;;21,"54868-5817-02 ")
 ;;159
 ;;21,"54868-5869-00 ")
 ;;18
 ;;21,"54868-5869-01 ")
 ;;19
 ;;21,"54868-5944-00 ")
 ;;2059
 ;;21,"54868-5944-01 ")
 ;;2060
 ;;21,"54868-6018-00 ")
 ;;2042
 ;;21,"54868-6018-01 ")
 ;;2043
 ;;21,"54868-6019-00 ")
 ;;5
 ;;21,"54868-6019-01 ")
 ;;6
 ;;21,"55045-1236-08 ")
 ;;2449
 ;;21,"55045-1859-01 ")
 ;;2171
 ;;21,"55045-1860-01 ")
 ;;1168
 ;;21,"55045-1860-02 ")
 ;;1169
 ;;21,"55045-1860-08 ")
 ;;1170
 ;;21,"55045-1860-09 ")
 ;;1171
 ;;21,"55045-1939-09 ")
 ;;1576
 ;;21,"55045-2078-01 ")
 ;;2367
 ;;21,"55045-2217-08 ")
 ;;1599
 ;;21,"55045-2269-01 ")
 ;;831
 ;;21,"55045-2269-06 ")
 ;;832
 ;;21,"55045-2269-08 ")
 ;;833
 ;;21,"55045-2269-09 ")
 ;;834
 ;;21,"55045-2282-00 ")
 ;;2021
 ;;21,"55045-2282-06 ")
 ;;2022
 ;;21,"55045-2498-08 ")
 ;;1004
 ;;21,"55045-2754-00 ")
 ;;510
 ;;21,"55045-2755-00 ")
 ;;538
 ;;21,"55045-3361-01 ")
 ;;1472
 ;;21,"55045-3762-08 ")
 ;;2020
 ;;21,"55045-3798-01 ")
 ;;1453
 ;;21,"55045-3867-01 ")
 ;;238
 ;;21,"55048-0028-30 ")
 ;;1005
 ;;21,"55048-0029-30 ")
 ;;1166
 ;;21,"55048-0029-90 ")
 ;;1167
 ;;21,"55048-0030-30 ")
 ;;830
 ;;21,"55048-0056-30 ")
 ;;67
 ;;21,"55048-0056-60 ")
 ;;68
 ;;21,"55048-0057-30 ")
 ;;325
 ;;21,"55048-0057-60 ")
 ;;326
 ;;21,"55048-0058-30 ")
 ;;162
 ;;21,"55048-0058-60 ")
 ;;163
 ;;21,"55048-0059-30 ")
 ;;234
 ;;21,"55048-0059-60 ")
 ;;235
 ;;21,"55111-0252-01 ")
 ;;236
 ;;21,"55111-0252-05 ")
 ;;237
 ;;21,"55111-0253-01 ")
 ;;323
 ;;21,"55111-0253-05 ")
 ;;324
 ;;21,"55111-0254-01 ")
 ;;65
 ;;21,"55111-0254-05 ")
 ;;66
 ;;21,"55111-0255-01 ")
 ;;160
 ;;21,"55111-0255-05 ")
 ;;161
 ;;21,"55289-0093-30 ")
 ;;1682
 ;;21,"55289-0093-60 ")
 ;;1600
 ;;21,"55289-0093-90 ")
 ;;1677
 ;;21,"55289-0093-93 ")
 ;;1678
 ;;21,"55289-0093-97 ")
 ;;1679
 ;;21,"55289-0096-50 ")
 ;;2081
 ;;21,"55289-0097-30 ")
 ;;2118
 ;;21,"55289-0131-97 ")
 ;;2395
 ;;21,"55289-0171-30 ")
 ;;1577
 ;;21,"55289-0227-01 ")
 ;;1006
 ;;21,"55289-0227-30 ")
 ;;1007
 ;;21,"55289-0227-90 ")
 ;;1008
 ;;21,"55289-0227-97 ")
 ;;1009
 ;;21,"55289-0228-01 ")
 ;;1158
 ;;21,"55289-0228-03 ")
 ;;1159
 ;;21,"55289-0228-06 ")
 ;;1160
 ;;21,"55289-0228-14 ")
 ;;1161
 ;;21,"55289-0228-30 ")
 ;;1162
 ;;21,"55289-0228-60 ")
 ;;1163
 ;;21,"55289-0228-90 ")
 ;;1164
 ;;21,"55289-0228-97 ")
 ;;1165
 ;;21,"55289-0233-01 ")
 ;;2443
 ;;21,"55289-0233-10 ")
 ;;2444
 ;;21,"55289-0233-12 ")
 ;;2445
 ;;21,"55289-0233-60 ")
 ;;2446
 ;;21,"55289-0233-90 ")
 ;;2447
 ;;21,"55289-0233-97 ")
 ;;2448
 ;;21,"55289-0234-01 ")
 ;;2563
 ;;21,"55289-0234-30 ")
 ;;2564
 ;;21,"55289-0234-60 ")
 ;;2565
 ;;21,"55289-0234-90 ")
 ;;2566
 ;;21,"55289-0254-30 ")
 ;;1253
 ;;21,"55289-0382-30 ")
 ;;1763
 ;;21,"55289-0382-93 ")
 ;;1757
 ;;21,"55289-0413-01 ")
 ;;2010
 ;;21,"55289-0413-28 ")
 ;;2011
 ;;21,"55289-0413-30 ")
 ;;2012
 ;;21,"55289-0413-60 ")
 ;;2013
 ;;21,"55289-0413-90 ")
 ;;2014
 ;;21,"55289-0413-93 ")
 ;;2015
 ;;21,"55289-0413-94 ")
 ;;1804
 ;;21,"55289-0413-97 ")
 ;;2009
 ;;21,"55289-0587-30 ")
 ;;892
 ;;21,"55289-0627-30 ")
 ;;1799
 ;;21,"55289-0630-30 ")
 ;;673
 ;;21,"55289-0630-90 ")
 ;;674
 ;;21,"55289-0653-30 ")
 ;;828
 ;;21,"55289-0653-90 ")
 ;;829
 ;;21,"55289-0855-30 ")
 ;;1548
 ;;21,"55289-0902-30 ")
 ;;1473
 ;;21,"55289-0986-30 ")
 ;;357
 ;;21,"55289-0988-30 ")
 ;;511
 ;;21,"55289-0993-30 ")
 ;;535
 ;;21,"55289-0993-60 ")
 ;;536
 ;;21,"55289-0993-90 ")
 ;;537
 ;;21,"55887-0180-01 ")
 ;;394
 ;;21,"55887-0191-30 ")
 ;;2303
 ;;21,"55887-0191-60 ")
 ;;2304
 ;;21,"55887-0191-90 ")
 ;;2305
 ;;21,"55887-0192-30 ")
 ;;2311
 ;;21,"55887-0192-60 ")
 ;;2312
 ;;21,"55887-0192-90 ")
 ;;2313
 ;;21,"55887-0259-30 ")
 ;;429
 ;;21,"55887-0259-60 ")
 ;;430
 ;;21,"55887-0259-82 ")
 ;;431
 ;;21,"55887-0259-90 ")
 ;;432
 ;;21,"55887-0267-30 ")
 ;;629
 ;;21,"55887-0267-60 ")
 ;;630
 ;;21,"55887-0267-82 ")
 ;;631
 ;;21,"55887-0267-90 ")
 ;;632
 ;;21,"55887-0274-30 ")
 ;;1680
 ;;21,"55887-0274-90 ")
 ;;1681
 ;;21,"55887-0348-30 ")
 ;;2115
 ;;21,"55887-0348-60 ")
 ;;2116
 ;;21,"55887-0348-90 ")
 ;;2117
 ;;21,"55887-0349-30 ")
 ;;2082
 ;;21,"55887-0349-60 ")
 ;;2083
 ;;21,"55887-0349-90 ")
 ;;2084
 ;;21,"55887-0401-30 ")
 ;;2644
 ;;21,"55887-0453-30 ")
 ;;2584
 ;;21,"55887-0453-60 ")
 ;;2585
 ;;21,"55887-0453-82 ")
 ;;2586
 ;;21,"55887-0453-90 ")
 ;;2587
 ;;21,"55887-0474-30 ")
 ;;2016
 ;;21,"55887-0474-60 ")
 ;;2017
 ;;21,"55887-0474-90 ")
 ;;2018
 ;;21,"55887-0474-92 ")
 ;;2019
 ;;21,"55887-0559-30 ")
 ;;2452
 ;;21,"55887-0559-60 ")
 ;;2453
 ;;21,"55887-0559-82 ")
 ;;2454
 ;;21,"55887-0559-90 ")
 ;;2455
 ;;21,"55887-0585-30 ")
 ;;544
 ;;21,"55887-0585-60 ")
 ;;545
 ;;21,"55887-0585-82 ")
 ;;546
 ;;21,"55887-0585-90 ")
 ;;547
 ;;21,"55887-0599-30 ")
 ;;1019
 ;;21,"55887-0599-60 ")
 ;;1020
 ;;21,"55887-0599-82 ")
 ;;1021
 ;;21,"55887-0599-90 ")
 ;;1022
 ;;21,"55887-0613-30 ")
 ;;506
 ;;21,"55887-0613-60 ")
 ;;507
 ;;21,"55887-0613-82 ")
 ;;508
 ;;21,"55887-0613-90 ")
 ;;509
 ;;21,"55887-0625-30 ")
 ;;592
 ;;21,"55887-0625-60 ")
 ;;593
 ;;21,"55887-0625-90 ")
 ;;594
 ;;21,"55887-0838-01 ")
 ;;1142
 ;;21,"55887-0838-30 ")
 ;;1143
 ;;21,"55887-0838-60 ")
 ;;1144
 ;;21,"55887-0838-82 ")
 ;;1145
 ;;21,"55887-0838-90 ")
 ;;1146
 ;;21,"55887-0998-30 ")
 ;;840
 ;;21,"55887-0998-60 ")
 ;;841
 ;;21,"55887-0998-82 ")
 ;;842
 ;;21,"55887-0998-90 ")
 ;;843
 ;;21,"57664-0166-08 ")
 ;;2007
 ;;21,"57664-0166-18 ")
 ;;2008
 ;;21,"57664-0166-52 ")
 ;;1807
 ;;21,"57664-0166-58 ")
 ;;1808
 ;;21,"57664-0167-08 ")
 ;;1675
 ;;21,"57664-0167-18 ")
 ;;1676
 ;;21,"57664-0167-52 ")
 ;;1601
 ;;21,"57664-0167-58 ")
 ;;1602
 ;;21,"57664-0242-13 ")
 ;;239
 ;;21,"57664-0242-18 ")
 ;;240
 ;;21,"57664-0242-88 ")
 ;;241
 ;;21,"57664-0244-13 ")
 ;;319
 ;;21,"57664-0244-18 ")
 ;;320
 ;;21,"57664-0244-88 ")
 ;;321
 ;;21,"57664-0245-13 ")
 ;;74
 ;;21,"57664-0245-18 ")
 ;;75
 ;;21,"57664-0245-88 ")
 ;;76
 ;;21,"57664-0247-13 ")
 ;;152
 ;;21,"57664-0247-18 ")
 ;;153
 ;;21,"57664-0247-88 ")
 ;;154
 ;;21,"57664-0264-18 ")
 ;;1017
 ;;21,"57664-0264-88 ")
 ;;1018
 ;;21,"57664-0265-18 ")
 ;;1147
 ;;21,"57664-0265-88 ")
 ;;1148
 ;;21,"57664-0266-18 ")
 ;;838
 ;;21,"57664-0266-88 ")
 ;;839
 ;;21,"57664-0477-08 ")
 ;;2004
 ;;21,"57664-0477-18 ")
 ;;2005
 ;;21,"57664-0477-52 ")
 ;;1805
 ;;21,"57664-0477-58 ")
 ;;1806
 ;;21,"57664-0506-08 ")
 ;;1765
 ;;21,"57664-0506-18 ")
 ;;1766
 ;;21,"57664-0506-52 ")
 ;;1755
 ;;21,"57664-0506-58 ")
 ;;1756
 ;;21,"57866-0219-01 ")
 ;;1149
 ;;21,"57866-0251-01 ")
 ;;2006
 ;;21,"57866-2607-02 ")
 ;;322
 ;;21,"57866-2608-02 ")
 ;;73
 ;;21,"57866-3155-01 ")
 ;;1764
 ;;21,"57866-3330-01 ")
 ;;1150
 ;;21,"57866-3330-03 ")
 ;;1151
 ;;21,"57866-3330-05 ")
 ;;1152
 ;;21,"57866-3331-01 ")
 ;;835
 ;;21,"57866-3331-02 ")
 ;;836
 ;;21,"57866-3331-03 ")
 ;;837
 ;;21,"57866-3332-01 ")
 ;;1010
 ;;21,"57866-3332-03 ")
 ;;1011
 ;;21,"57866-4309-01 ")
 ;;2371
 ;;21,"57866-4313-01 ")
 ;;2450
 ;;21,"57866-4313-04 ")
 ;;2451
 ;;21,"57866-4314-01 ")
 ;;2562
 ;;21,"57866-4315-01 ")
 ;;2590
 ;;21,"57866-4316-01 ")
 ;;2639
 ;;21,"57866-4655-01 ")
 ;;1288
 ;;21,"57866-4655-02 ")
 ;;1289
 ;;21,"57866-4911-01 ")
 ;;2228
 ;;21,"57866-4912-01 ")
 ;;2265
 ;;21,"57866-4913-01 ")
 ;;2172
 ;;21,"57866-4914-01 ")
 ;;2204
 ;;21,"57866-6337-01 ")
 ;;2114
 ;;21,"57866-6338-01 ")
 ;;2141
 ;;21,"57866-6339-01 ")
 ;;2085
 ;;21,"57866-6578-01 ")
 ;;1996
 ;;21,"57866-6578-02 ")
 ;;1809
 ;;21,"57866-6578-03 ")
 ;;1994
 ;;21,"57866-6578-05 ")
 ;;1995
 ;;21,"57866-6579-01 ")
 ;;1674
 ;;21,"57866-6579-03 ")
 ;;1603
 ;;21,"57866-6622-01 ")
 ;;395
 ;;21,"57866-6623-01 ")
 ;;428
 ;;21,"57866-7067-01 ")
 ;;155
 ;;21,"57866-7067-02 ")
 ;;156
 ;;21,"57866-7068-01 ")
 ;;1318
 ;;21,"57866-7068-02 ")
 ;;1319
 ;;21,"57866-9803-02 ")
 ;;1157
 ;;21,"58016-0001-00 ")
 ;;2591
 ;;21,"58016-0001-30 ")
 ;;2592
 ;;21,"58016-0001-60 ")
 ;;2593
 ;;21,"58016-0001-90 ")
 ;;2594
 ;;21,"58016-0045-00 ")
 ;;1416
 ;;21,"58016-0045-30 ")
 ;;1417
 ;;21,"58016-0045-60 ")
 ;;1418
 ;;21,"58016-0045-90 ")
 ;;1419
 ;;21,"58016-0136-30 ")
 ;;2294
 ;;21,"58016-0286-00 ")
 ;;676
 ;;21,"58016-0286-02 ")
 ;;677
 ;;21,"58016-0286-30 ")
 ;;678
 ;;21,"58016-0286-60 ")
 ;;679
 ;;21,"58016-0286-90 ")
 ;;680
 ;;21,"58016-0300-00 ")
 ;;746
 ;;21,"58016-0300-30 ")
 ;;747
 ;;21,"58016-0300-60 ")
 ;;748
 ;;21,"58016-0300-90 ")
 ;;749
 ;;21,"58016-0331-00 ")
 ;;513
 ;;21,"58016-0331-30 ")
 ;;514
 ;;21,"58016-0331-60 ")
 ;;515
 ;;21,"58016-0331-90 ")
 ;;516
 ;;21,"58016-0333-00 ")
 ;;1153
 ;;21,"58016-0333-15 ")
 ;;1154
 ;;21,"58016-0333-30 ")
 ;;1155
 ;;21,"58016-0333-60 ")
 ;;1156
 ;;21,"58016-0373-00 ")
 ;;1549
 ;;21,"58016-0373-02 ")
 ;;1550
 ;;21,"58016-0373-30 ")
 ;;1551
 ;;21,"58016-0373-60 ")
 ;;1552
 ;;21,"58016-0373-90 ")
 ;;1553
 ;;21,"58016-0442-00 ")
 ;;1997
 ;;21,"58016-0442-02 ")
 ;;1998
 ;;21,"58016-0442-30 ")
 ;;1999
 ;;21,"58016-0442-60 ")
 ;;2000
 ;;21,"58016-0442-90 ")
 ;;2001
 ;;21,"58016-0442-99 ")
 ;;2002
 ;;21,"58016-0467-30 ")
 ;;2003
 ;;21,"58016-0526-00 ")
 ;;539
 ;;21,"58016-0526-02 ")
 ;;540
 ;;21,"58016-0526-30 ")
 ;;541
 ;;21,"58016-0526-60 ")
 ;;542
 ;;21,"58016-0526-90 ")
 ;;543
 ;;21,"58016-0528-00 ")
 ;;2368
 ;;21,"58016-0528-30 ")
 ;;2369
 ;;21,"58016-0528-60 ")
 ;;2370
 ;;21,"58016-0529-00 ")
 ;;2456
 ;;21,"58016-0529-10 ")
 ;;2457
 ;;21,"58016-0529-30 ")
 ;;2458
 ;;21,"58016-0529-50 ")
 ;;2459
 ;;21,"58016-0531-00 ")
 ;;2560
 ;;21,"58016-0531-30 ")
 ;;2561
 ;;21,"58016-0532-00 ")
 ;;2636
 ;;21,"58016-0532-02 ")
 ;;2637
 ;;21,"58016-0532-60 ")
 ;;2638
 ;;21,"58016-0582-00 ")
 ;;1012
 ;;21,"58016-0582-15 ")
 ;;1013
 ;;21,"58016-0582-20 ")
 ;;1014
 ;;21,"58016-0582-30 ")
 ;;1015
 ;;21,"58016-0582-60 ")
 ;;1016
 ;;21,"58016-0604-00 ")
 ;;2271
 ;;21,"58016-0640-00 ")
 ;;1937
 ;;21,"58016-0640-15 ")
 ;;1938
 ;;21,"58016-0640-20 ")
 ;;1939
 ;;21,"58016-0640-30 ")
 ;;1940
 ;;21,"58016-0771-00 ")
 ;;860
 ;;21,"58016-0771-12 ")
 ;;861
 ;;21,"58016-0771-15 ")
 ;;862
 ;;21,"58016-0771-20 ")
 ;;863
 ;;21,"58016-0771-30 ")
 ;;864
 ;;21,"58016-0771-60 ")
 ;;865
 ;;21,"58016-0859-00 ")
 ;;2258
 ;;21,"58016-0859-30 ")
 ;;2259
 ;;21,"58016-0859-60 ")
 ;;2260
 ;;21,"58016-0859-90 ")
 ;;2261
 ;;21,"58016-0974-00 ")
 ;;1474
 ;;21,"58016-0974-30 ")
 ;;1475
 ;;21,"58016-0974-60 ")
 ;;1476
 ;;21,"58016-0974-90 ")
 ;;1477
 ;;21,"58177-0293-04 ")
 ;;1444
 ;;21,"58177-0293-09 ")
 ;;1445
 ;;21,"58177-0293-11 ")
 ;;1446
 ;;21,"58177-0358-04 ")
 ;;1401
 ;;21,"58177-0358-09 ")
 ;;1402
 ;;21,"58177-0368-04 ")
 ;;1343
 ;;21,"58177-0368-09 ")
 ;;1344
 ;;21,"58177-0368-11 ")
 ;;1345
 ;;21,"58177-0369-04 ")
 ;;1512
 ;;21,"58177-0369-09 ")
 ;;1513
 ;;21,"58177-0369-11 ")
 ;;1514
 ;;21,"58864-0016-01 ")
 ;;1941
 ;;21,"58864-0016-28 ")
 ;;1942
 ;;21,"58864-0016-30 ")
 ;;1943
 ;;21,"58864-0016-60 ")
 ;;1944
 ;;21,"58864-0065-01 ")
 ;;1205
 ;;21,"58864-0065-30 ")
 ;;1206
 ;;21,"58864-0363-30 ")
 ;;2493
 ;;21,"58864-0367-01 ")
 ;;407
 ;;21,"58864-0368-01 ")
 ;;465
 ;;21,"58864-0431-60 ")
 ;;2539
 ;;21,"58864-0645-56 ")
 ;;2372
 ;;21,"58864-0680-30 ")
 ;;2598
 ;;21,"58864-0695-30 ")
 ;;1638
 ;;21,"58864-0717-30 ")
 ;;859
 ;;21,"58864-0727-30 ")
 ;;191
 ;;21,"58864-0737-30 ")
 ;;350
 ;;21,"58864-0749-30 ")
 ;;982
 ;;21,"58864-0749-90 ")
 ;;983
 ;;21,"58864-0759-30 ")
 ;;1376
 ;;21,"58864-0765-30 ")
 ;;1560