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

BGP2TC4.m

Go to the documentation of this file.
BGP2TC4 ;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,"51138-0463-50 ")
 ;;1493
 ;;21,"51138-0464-10 ")
 ;;1333
 ;;21,"51138-0464-30 ")
 ;;1334
 ;;21,"51138-0465-10 ")
 ;;1394
 ;;21,"51138-0465-30 ")
 ;;1395
 ;;21,"51138-0466-30 ")
 ;;215
 ;;21,"51138-0467-30 ")
 ;;292
 ;;21,"51138-0468-30 ")
 ;;38
 ;;21,"51138-0469-30 ")
 ;;125
 ;;21,"51138-0502-30 ")
 ;;626
 ;;21,"51138-0503-30 ")
 ;;656
 ;;21,"51138-0504-30 ")
 ;;574
 ;;21,"51138-0511-30 ")
 ;;4
 ;;21,"51138-0512-30 ")
 ;;9
 ;;21,"51138-0513-30 ")
 ;;17
 ;;21,"51138-0514-30 ")
 ;;22
 ;;21,"51138-0528-30 ")
 ;;387
 ;;21,"51138-0529-30 ")
 ;;456
 ;;21,"51138-0530-30 ")
 ;;482
 ;;21,"51138-0565-10 ")
 ;;1479
 ;;21,"51138-0565-15 ")
 ;;1480
 ;;21,"51138-0565-30 ")
 ;;1481
 ;;21,"51138-0566-10 ")
 ;;1564
 ;;21,"51138-0566-30 ")
 ;;1565
 ;;21,"51138-0566-50 ")
 ;;1566
 ;;21,"51138-0567-10 ")
 ;;1379
 ;;21,"51138-0567-30 ")
 ;;1380
 ;;21,"51138-0568-10 ")
 ;;1423
 ;;21,"51138-0568-30 ")
 ;;1424
 ;;21,"51285-0040-01 ")
 ;;600
 ;;21,"51285-0047-02 ")
 ;;639
 ;;21,"51285-0048-02 ")
 ;;686
 ;;21,"51285-0049-01 ")
 ;;599
 ;;21,"51285-0050-02 ")
 ;;685
 ;;21,"51285-0060-01 ")
 ;;1323
 ;;21,"51285-0061-01 ")
 ;;1295
 ;;21,"51655-0019-24 ")
 ;;1256
 ;;21,"51655-0019-25 ")
 ;;1257
 ;;21,"51655-0149-24 ")
 ;;1797
 ;;21,"51655-0149-25 ")
 ;;1798
 ;;21,"51655-0284-24 ")
 ;;1578
 ;;21,"51655-0319-25 ")
 ;;893
 ;;21,"51655-0331-24 ")
 ;;2097
 ;;21,"51655-0349-24 ")
 ;;2518
 ;;21,"51655-0350-24 ")
 ;;2442
 ;;21,"51655-0530-24 ")
 ;;1079
 ;;21,"51655-0532-24 ")
 ;;787
 ;;21,"52152-0179-02 ")
 ;;1261
 ;;21,"52152-0180-02 ")
 ;;1271
 ;;21,"52544-0463-10 ")
 ;;1701
 ;;21,"52544-0605-01 ")
 ;;388
 ;;21,"52544-0605-05 ")
 ;;389
 ;;21,"52555-0454-01 ")
 ;;2168
 ;;21,"52555-0455-01 ")
 ;;2160
 ;;21,"52959-0212-01 ")
 ;;2436
 ;;21,"52959-0212-10 ")
 ;;2437
 ;;21,"52959-0212-20 ")
 ;;2438
 ;;21,"52959-0212-45 ")
 ;;2439
 ;;21,"52959-0212-50 ")
 ;;2440
 ;;21,"52959-0212-60 ")
 ;;2441
 ;;21,"52959-0241-30 ")
 ;;573
 ;;21,"52959-0247-30 ")
 ;;2280
 ;;21,"52959-0253-00 ")
 ;;1075
 ;;21,"52959-0253-20 ")
 ;;1076
 ;;21,"52959-0253-30 ")
 ;;1077
 ;;21,"52959-0253-40 ")
 ;;1078
 ;;21,"52959-0258-30 ")
 ;;785
 ;;21,"52959-0258-60 ")
 ;;786
 ;;21,"52959-0280-30 ")
 ;;1255
 ;;21,"52959-0337-10 ")
 ;;653
 ;;21,"52959-0337-30 ")
 ;;654
 ;;21,"52959-0463-01 ")
 ;;957
 ;;21,"52959-0463-30 ")
 ;;958
 ;;21,"52959-0463-60 ")
 ;;959
 ;;21,"52959-0543-30 ")
 ;;2198
 ;;21,"52959-0827-30 ")
 ;;2360
 ;;21,"52959-0839-30 ")
 ;;2029
 ;;21,"52959-0839-60 ")
 ;;2030
 ;;21,"52959-0895-60 ")
 ;;2519
 ;;21,"53002-1004-00 ")
 ;;1072
 ;;21,"53002-1004-03 ")
 ;;1073
 ;;21,"53002-1004-06 ")
 ;;1074
 ;;21,"53002-1108-00 ")
 ;;1034
 ;;21,"53002-1108-03 ")
 ;;1035
 ;;21,"53002-1108-06 ")
 ;;1036
 ;;21,"53002-1138-00 ")
 ;;820
 ;;21,"53002-1138-03 ")
 ;;821
 ;;21,"53002-1138-06 ")
 ;;822
 ;;21,"53265-0412-10 ")
 ;;1032
 ;;21,"53265-0412-11 ")
 ;;1033
 ;;21,"53265-0413-10 ")
 ;;1122
 ;;21,"53265-0413-11 ")
 ;;1123
 ;;21,"53265-0414-10 ")
 ;;818
 ;;21,"53265-0414-11 ")
 ;;819
 ;;21,"53489-0354-01 ")
 ;;397
 ;;21,"53489-0354-05 ")
 ;;398
 ;;21,"53489-0355-01 ")
 ;;426
 ;;21,"53489-0355-05 ")
 ;;427
 ;;21,"53489-0356-01 ")
 ;;492
 ;;21,"53489-0356-05 ")
 ;;493
 ;;21,"53489-0366-01 ")
 ;;2034
 ;;21,"53489-0366-10 ")
 ;;2035
 ;;21,"53489-0367-01 ")
 ;;1666
 ;;21,"53489-0367-10 ")
 ;;1667
 ;;21,"53489-0430-01 ")
 ;;2170
 ;;21,"53489-0431-01 ")
 ;;2159
 ;;21,"53489-0529-01 ")
 ;;1125
 ;;21,"53489-0529-10 ")
 ;;1126
 ;;21,"53489-0530-01 ")
 ;;816
 ;;21,"53489-0530-10 ")
 ;;817
 ;;21,"53489-0531-01 ")
 ;;531
 ;;21,"53489-0532-01 ")
 ;;503
 ;;21,"53489-0536-01 ")
 ;;1030
 ;;21,"53489-0536-10 ")
 ;;1031
 ;;21,"53489-0555-01 ")
 ;;1316
 ;;21,"53489-0555-07 ")
 ;;1317
 ;;21,"53489-0556-01 ")
 ;;1286
 ;;21,"53489-0556-07 ")
 ;;1287
 ;;21,"54348-0142-30 ")
 ;;1124
 ;;21,"54458-0300-30 ")
 ;;1454
 ;;21,"54458-0300-31 ")
 ;;1455
 ;;21,"54458-0301-30 ")
 ;;1538
 ;;21,"54458-0301-31 ")
 ;;1539
 ;;21,"54458-0302-30 ")
 ;;1361
 ;;21,"54458-0302-31 ")
 ;;1362
 ;;21,"54458-0931-05 ")
 ;;1127
 ;;21,"54569-0442-00 ")
 ;;2596
 ;;21,"54569-0557-00 ")
 ;;2357
 ;;21,"54569-0557-01 ")
 ;;2358
 ;;21,"54569-0557-03 ")
 ;;2359
 ;;21,"54569-0559-00 ")
 ;;2467
 ;;21,"54569-0559-01 ")
 ;;2468
 ;;21,"54569-0559-03 ")
 ;;2469
 ;;21,"54569-0561-01 ")
 ;;2551
 ;;21,"54569-0561-02 ")
 ;;2552
 ;;21,"54569-0561-03 ")
 ;;2553
 ;;21,"54569-0563-00 ")
 ;;2264
 ;;21,"54569-0564-00 ")
 ;;2173
 ;;21,"54569-0590-00 ")
 ;;466
 ;;21,"54569-0596-00 ")
 ;;559
 ;;21,"54569-1634-00 ")
 ;;2229
 ;;21,"54569-2499-00 ")
 ;;2634
 ;;21,"54569-2499-01 ")
 ;;2635
 ;;21,"54569-3097-00 ")
 ;;2274
 ;;21,"54569-3432-00 ")
 ;;1128
 ;;21,"54569-3432-01 ")
 ;;1129
 ;;21,"54569-3432-02 ")
 ;;1130
 ;;21,"54569-3432-03 ")
 ;;1131
 ;;21,"54569-3432-04 ")
 ;;1132
 ;;21,"54569-3432-05 ")
 ;;1133
 ;;21,"54569-3432-07 ")
 ;;1134
 ;;21,"54569-3432-08 ")
 ;;1135
 ;;21,"54569-3654-00 ")
 ;;812
 ;;21,"54569-3654-03 ")
 ;;813
 ;;21,"54569-3654-04 ")
 ;;814
 ;;21,"54569-3654-05 ")
 ;;815
 ;;21,"54569-3787-00 ")
 ;;2031
 ;;21,"54569-3787-01 ")
 ;;2032
 ;;21,"54569-3787-02 ")
 ;;2033
 ;;21,"54569-3787-04 ")
 ;;1801
 ;;21,"54569-3787-05 ")
 ;;1802
 ;;21,"54569-3788-00 ")
 ;;1668
 ;;21,"54569-3788-01 ")
 ;;1669
 ;;21,"54569-3788-03 ")
 ;;1606
 ;;21,"54569-3788-04 ")
 ;;1607
 ;;21,"54569-3790-00 ")
 ;;2107
 ;;21,"54569-3885-00 ")
 ;;1037
 ;;21,"54569-3885-02 ")
 ;;1038
 ;;21,"54569-3885-04 ")
 ;;1039
 ;;21,"54569-3885-05 ")
 ;;1040
 ;;21,"54569-4441-00 ")
 ;;1541
 ;;21,"54569-4442-00 ")
 ;;1365
 ;;21,"54569-4707-00 ")
 ;;638
 ;;21,"54569-4708-00 ")
 ;;684
 ;;21,"54569-4718-00 ")
 ;;1415
 ;;21,"54569-5368-00 ")
 ;;598
 ;;21,"54569-5384-00 ")
 ;;103
 ;;21,"54569-5385-00 ")
 ;;271
 ;;21,"54569-5404-00 ")
 ;;667
 ;;21,"54569-5404-01 ")
 ;;668
 ;;21,"54569-5417-00 ")
 ;;636
 ;;21,"54569-5417-01 ")
 ;;637
 ;;21,"54569-5419-00 ")
 ;;586
 ;;21,"54569-5419-01 ")
 ;;587
 ;;21,"54569-5701-01 ")
 ;;197
 ;;21,"54569-5870-00 ")
 ;;1456
 ;;21,"54569-5870-01 ")
 ;;1457
 ;;21,"54569-5954-00 ")
 ;;1536
 ;;21,"54569-5954-01 ")
 ;;1537
 ;;21,"54569-5960-01 ")
 ;;362
 ;;21,"54569-5961-00 ")
 ;;1359
 ;;21,"54569-5961-01 ")
 ;;1360
 ;;21,"54569-5974-00 ")
 ;;242
 ;;21,"54569-5974-01 ")
 ;;243
 ;;21,"54569-5975-00 ")
 ;;314
 ;;21,"54569-5975-01 ")
 ;;315
 ;;21,"54569-5976-00 ")
 ;;63
 ;;21,"54569-5976-01 ")
 ;;64
 ;;21,"54569-5977-00 ")
 ;;150
 ;;21,"54569-5977-01 ")
 ;;151
 ;;21,"54569-6119-00 ")
 ;;2061
 ;;21,"54569-6169-00 ")
 ;;396
 ;;21,"54738-0133-03 ")
 ;;1023
 ;;21,"54738-0134-03 ")
 ;;1136
 ;;21,"54738-0467-01 ")
 ;;2361
 ;;21,"54738-0467-03 ")
 ;;2362
 ;;21,"54738-0468-01 ")
 ;;2460
 ;;21,"54738-0468-03 ")
 ;;2461
 ;;21,"54738-0469-01 ")
 ;;2554
 ;;21,"54738-0469-03 ")
 ;;2555
 ;;21,"54738-0470-01 ")
 ;;2595
 ;;21,"54738-0471-01 ")
 ;;2628
 ;;21,"54738-0471-02 ")
 ;;2629
 ;;21,"54868-0052-00 ")
 ;;2363
 ;;21,"54868-0052-01 ")
 ;;2364
 ;;21,"54868-0052-02 ")
 ;;2365
 ;;21,"54868-0052-03 ")
 ;;2366
 ;;21,"54868-0053-02 ")
 ;;2556
 ;;21,"54868-0053-03 ")
 ;;2557
 ;;21,"54868-0053-04 ")
 ;;2558
 ;;21,"54868-0053-07 ")
 ;;2559
 ;;21,"54868-0106-00 ")
 ;;7
 ;;21,"54868-0106-01 ")
 ;;8
 ;;21,"54868-0293-00 ")
 ;;2462
 ;;21,"54868-0293-01 ")
 ;;2463
 ;;21,"54868-0293-02 ")
 ;;2464
 ;;21,"54868-0293-05 ")
 ;;2465
 ;;21,"54868-0293-06 ")
 ;;2466
 ;;21,"54868-0321-00 ")
 ;;560
 ;;21,"54868-0674-00 ")
 ;;2100
 ;;21,"54868-0674-01 ")
 ;;2101
 ;;21,"54868-0680-00 ")
 ;;2262
 ;;21,"54868-0680-01 ")
 ;;2263
 ;;21,"54868-0685-01 ")
 ;;1800
 ;;21,"54868-0696-00 ")
 ;;2630
 ;;21,"54868-0696-01 ")
 ;;2631
 ;;21,"54868-0696-02 ")
 ;;2632
 ;;21,"54868-0696-03 ")
 ;;2633
 ;;21,"54868-0701-00 ")
 ;;1254
 ;;21,"54868-0854-00 ")
 ;;2221
 ;;21,"54868-0854-01 ")
 ;;2222
 ;;21,"54868-1004-01 ")
 ;;467
 ;;21,"54868-1063-00 ")
 ;;1573
 ;;21,"54868-1063-01 ")
 ;;1574
 ;;21,"54868-1063-02 ")
 ;;1575
 ;;21,"54868-1078-01 ")
 ;;2268
 ;;21,"54868-1078-03 ")
 ;;2269
 ;;21,"54868-1078-05 ")
 ;;2270
 ;;21,"54868-1441-00 ")
 ;;2230
 ;;21,"54868-1441-01 ")
 ;;2231
 ;;21,"54868-1442-00 ")
 ;;2174
 ;;21,"54868-1442-01 ")
 ;;2175
 ;;21,"54868-1442-02 ")
 ;;2176
 ;;21,"54868-1517-00 ")
 ;;2232
 ;;21,"54868-1517-01 ")
 ;;2233
 ;;21,"54868-1517-02 ")
 ;;2234
 ;;21,"54868-1517-03 ")
 ;;2235
 ;;21,"54868-1518-00 ")
 ;;2194
 ;;21,"54868-1518-01 ")
 ;;2195
 ;;21,"54868-1518-02 ")
 ;;2196
 ;;21,"54868-1518-03 ")
 ;;2197
 ;;21,"54868-1871-00 ")
 ;;1137
 ;;21,"54868-1871-01 ")
 ;;1138
 ;;21,"54868-1871-02 ")
 ;;1139
 ;;21,"54868-1871-03 ")
 ;;1140
 ;;21,"54868-1871-04 ")
 ;;1141
 ;;21,"54868-1971-00 ")
 ;;823
 ;;21,"54868-1971-01 ")
 ;;824
 ;;21,"54868-1971-02 ")
 ;;825
 ;;21,"54868-1971-03 ")
 ;;826
 ;;21,"54868-1971-04 ")
 ;;827
 ;;21,"54868-1980-00 ")
 ;;244
 ;;21,"54868-1980-01 ")
 ;;245
 ;;21,"54868-2349-00 ")
 ;;1024
 ;;21,"54868-2349-01 ")
 ;;1025
 ;;21,"54868-2349-02 ")
 ;;1026
 ;;21,"54868-2349-03 ")
 ;;1027
 ;;21,"54868-2349-04 ")
 ;;1028
 ;;21,"54868-2349-05 ")
 ;;1029
 ;;21,"54868-2572-00 ")
 ;;2201
 ;;21,"54868-2572-01 ")
 ;;2202
 ;;21,"54868-2572-02 ")
 ;;2203
 ;;21,"54868-2677-00 ")
 ;;2220
 ;;21,"54868-2683-00 ")
 ;;532
 ;;21,"54868-2683-01 ")
 ;;533
 ;;21,"54868-2683-02 ")
 ;;534
 ;;21,"54868-2864-00 ")
 ;;420
 ;;21,"54868-2864-01 ")
 ;;421
 ;;21,"54868-2989-00 ")
 ;;2028
 ;;21,"54868-2989-01 ")
 ;;1803
 ;;21,"54868-2989-02 ")
 ;;2023
 ;;21,"54868-2989-03 ")
 ;;2024
 ;;21,"54868-2989-04 ")
 ;;2025
 ;;21,"54868-2989-05 ")
 ;;2026
 ;;21,"54868-2989-06 ")
 ;;2027
 ;;21,"54868-2990-00 ")
 ;;1673
 ;;21,"54868-2990-01 ")
 ;;1604
 ;;21,"54868-2990-02 ")
 ;;1670
 ;;21,"54868-2990-03 ")
 ;;1671
 ;;21,"54868-2990-04 ")
 ;;1672
 ;;21,"54868-2990-05 ")
 ;;1605
 ;;21,"54868-3062-00 ")
 ;;316
 ;;21,"54868-3062-01 ")
 ;;317
 ;;21,"54868-3062-02 ")
 ;;318
 ;;21,"54868-3064-00 ")
 ;;504
 ;;21,"54868-3064-01 ")
 ;;505
 ;;21,"54868-3257-01 ")
 ;;2108
 ;;21,"54868-3257-02 ")
 ;;2109
 ;;21,"54868-3257-03 ")
 ;;2110
 ;;21,"54868-3257-04 ")
 ;;2111
 ;;21,"54868-3257-05 ")
 ;;2112
 ;;21,"54868-3257-06 ")
 ;;2113
 ;;21,"54868-3587-00 ")
 ;;1542
 ;;21,"54868-3587-01 ")
 ;;1543
 ;;21,"54868-3587-02 ")
 ;;1544
 ;;21,"54868-3587-03 ")
 ;;1545
 ;;21,"54868-3587-04 ")
 ;;1546
 ;;21,"54868-3587-05 ")
 ;;1547
 ;;21,"54868-3602-00 ")
 ;;2169
 ;;21,"54868-3721-01 ")
 ;;2142
 ;;21,"54868-3721-02 ")
 ;;2143
 ;;21,"54868-4173-00 ")
 ;;683
 ;;21,"54868-4179-00 ")
 ;;597
 ;;21,"54868-4223-00 ")
 ;;1366
 ;;21,"54868-4223-01 ")
 ;;1367
 ;;21,"54868-4223-02 ")
 ;;1368
 ;;21,"54868-4223-03 ")
 ;;1369
 ;;21,"54868-4223-04 ")
 ;;1370
 ;;21,"54868-4395-00 ")
 ;;198
 ;;21,"54868-4395-01 ")
 ;;199
 ;;21,"54868-4395-02 ")
 ;;200
 ;;21,"54868-4395-03 ")
 ;;201
 ;;21,"54868-4396-00 ")
 ;;104
 ;;21,"54868-4396-01 ")
 ;;105
 ;;21,"54868-4396-02 ")
 ;;106
 ;;21,"54868-4396-03 ")
 ;;107
 ;;21,"54868-4421-00 ")
 ;;268
 ;;21,"54868-4421-01 ")
 ;;269
 ;;21,"54868-4421-02 ")
 ;;270
 ;;21,"54868-4424-00 ")
 ;;358
 ;;21,"54868-4424-01 ")
 ;;359
 ;;21,"54868-4424-02 ")
 ;;360
 ;;21,"54868-4424-03 ")
 ;;361
 ;;21,"54868-4576-00 ")
 ;;669
 ;;21,"54868-4576-01 ")
 ;;670
 ;;21,"54868-4576-02 ")
 ;;671
 ;;21,"54868-4576-03 ")
 ;;672
 ;;21,"54868-4577-00 ")
 ;;633
 ;;21,"54868-4577-01 ")
 ;;634
 ;;21,"54868-4577-03 ")
 ;;635
 ;;21,"54868-4578-00 ")
 ;;588
 ;;21,"54868-4578-01 ")
 ;;589
 ;;21,"54868-4578-02 ")
 ;;590
 ;;21,"54868-4578-03 ")
 ;;591
 ;;21,"54868-4621-00 ")
 ;;1322
 ;;21,"54868-4661-00 ")
 ;;1468
 ;;21,"54868-4661-01 ")
 ;;1469
 ;;21,"54868-4661-02 ")
 ;;1470
 ;;21,"54868-4661-03 ")
 ;;1471
 ;;21,"54868-4844-00 ")
 ;;422
 ;;21,"54868-4844-01 ")
 ;;423
 ;;21,"54868-4844-02 ")
 ;;424
 ;;21,"54868-4844-03 ")
 ;;425
 ;;21,"54868-4903-00 ")
 ;;489
 ;;21,"54868-4903-01 ")
 ;;490
 ;;21,"54868-4903-02 ")
 ;;491
 ;;21,"54868-4921-00 ")
 ;;399
 ;;21,"54868-4921-01 ")
 ;;400
 ;;21,"54868-4921-02 ")
 ;;401
 ;;21,"54868-4932-00 ")
 ;;1263
 ;;21,"54868-4932-01 ")
 ;;1264
 ;;21,"54868-5013-00 ")
 ;;1285
 ;;21,"54868-5021-00 ")
 ;;1760
 ;;21,"54868-5021-01 ")
 ;;1761
 ;;21,"54868-5021-02 ")
 ;;1762
 ;;21,"54868-5021-03 ")
 ;;1758
 ;;21,"54868-5021-04 ")
 ;;1759
 ;;21,"54868-5068-00 ")
 ;;1411
 ;;21,"54868-5068-01 ")
 ;;1412
 ;;21,"54868-5068-02 ")
 ;;1413
 ;;21,"54868-5068-03 ")
 ;;1414
 ;;21,"54868-5095-00 ")
 ;;1312
 ;;21,"54868-5095-01 ")
 ;;1313
 ;;21,"54868-5095-02 ")
 ;;1314
 ;;21,"54868-5095-03 ")
 ;;1315
 ;;21,"54868-5295-00 ")
 ;;2079
 ;;21,"54868-5295-01 ")
 ;;2080
 ;;21,"54868-5344-00 ")
 ;;716
 ;;21,"54868-5344-01 ")
 ;;717
 ;;21,"54868-5344-02 ")
 ;;718