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

BGP51O5.m

Go to the documentation of this file.
BGP51O5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"55700-0004-60 ")
 ;;768
 ;;21,"55700-0004-90 ")
 ;;769
 ;;21,"58016-0038-00 ")
 ;;485
 ;;21,"58016-0038-30 ")
 ;;486
 ;;21,"58016-0038-60 ")
 ;;487
 ;;21,"58016-0038-90 ")
 ;;488
 ;;21,"58016-0070-00 ")
 ;;1375
 ;;21,"58016-0070-30 ")
 ;;1376
 ;;21,"58016-0070-60 ")
 ;;1377
 ;;21,"58016-0070-90 ")
 ;;1378
 ;;21,"58016-0076-00 ")
 ;;758
 ;;21,"58016-0076-02 ")
 ;;759
 ;;21,"58016-0076-30 ")
 ;;760
 ;;21,"58016-0076-60 ")
 ;;761
 ;;21,"58016-0076-90 ")
 ;;762
 ;;21,"58016-0076-99 ")
 ;;763
 ;;21,"58016-0199-00 ")
 ;;511
 ;;21,"58016-0199-02 ")
 ;;512
 ;;21,"58016-0199-03 ")
 ;;513
 ;;21,"58016-0199-20 ")
 ;;514
 ;;21,"58016-0199-30 ")
 ;;515
 ;;21,"58016-0199-40 ")
 ;;516
 ;;21,"58016-0199-60 ")
 ;;517
 ;;21,"58016-0199-89 ")
 ;;518
 ;;21,"58016-0199-90 ")
 ;;519
 ;;21,"58016-0199-99 ")
 ;;520
 ;;21,"58016-0234-00 ")
 ;;1056
 ;;21,"58016-0234-02 ")
 ;;1057
 ;;21,"58016-0234-07 ")
 ;;1058
 ;;21,"58016-0234-10 ")
 ;;1059
 ;;21,"58016-0234-12 ")
 ;;1060
 ;;21,"58016-0234-14 ")
 ;;1061
 ;;21,"58016-0234-15 ")
 ;;1062
 ;;21,"58016-0234-18 ")
 ;;1063
 ;;21,"58016-0234-20 ")
 ;;1064
 ;;21,"58016-0234-21 ")
 ;;1065
 ;;21,"58016-0234-24 ")
 ;;1066
 ;;21,"58016-0234-28 ")
 ;;1067
 ;;21,"58016-0234-30 ")
 ;;1068
 ;;21,"58016-0234-40 ")
 ;;1069
 ;;21,"58016-0234-45 ")
 ;;1070
 ;;21,"58016-0234-50 ")
 ;;1071
 ;;21,"58016-0234-56 ")
 ;;1072
 ;;21,"58016-0234-60 ")
 ;;1073
 ;;21,"58016-0234-90 ")
 ;;1074
 ;;21,"58016-0234-99 ")
 ;;1075
 ;;21,"58016-0248-00 ")
 ;;2308
 ;;21,"58016-0248-07 ")
 ;;2309
 ;;21,"58016-0248-10 ")
 ;;2310
 ;;21,"58016-0248-12 ")
 ;;2311
 ;;21,"58016-0248-14 ")
 ;;2312
 ;;21,"58016-0248-15 ")
 ;;2313
 ;;21,"58016-0248-20 ")
 ;;2314
 ;;21,"58016-0248-21 ")
 ;;2315
 ;;21,"58016-0248-28 ")
 ;;2316
 ;;21,"58016-0248-30 ")
 ;;2317
 ;;21,"58016-0248-40 ")
 ;;2318
 ;;21,"58016-0248-42 ")
 ;;2319
 ;;21,"58016-0248-50 ")
 ;;2320
 ;;21,"58016-0248-60 ")
 ;;2321
 ;;21,"58016-0248-90 ")
 ;;2322
 ;;21,"58016-0257-00 ")
 ;;1660
 ;;21,"58016-0257-02 ")
 ;;1661
 ;;21,"58016-0257-03 ")
 ;;1662
 ;;21,"58016-0257-12 ")
 ;;1663
 ;;21,"58016-0257-14 ")
 ;;1664
 ;;21,"58016-0257-15 ")
 ;;1665
 ;;21,"58016-0257-20 ")
 ;;1666
 ;;21,"58016-0257-24 ")
 ;;1667
 ;;21,"58016-0257-30 ")
 ;;1668
 ;;21,"58016-0257-40 ")
 ;;1669
 ;;21,"58016-0257-50 ")
 ;;1670
 ;;21,"58016-0257-73 ")
 ;;1671
 ;;21,"58016-0257-84 ")
 ;;1672
 ;;21,"58016-0257-89 ")
 ;;1673
 ;;21,"58016-0257-99 ")
 ;;1674
 ;;21,"58016-0258-00 ")
 ;;2140
 ;;21,"58016-0258-02 ")
 ;;2141
 ;;21,"58016-0258-03 ")
 ;;2142
 ;;21,"58016-0258-08 ")
 ;;2143
 ;;21,"58016-0258-10 ")
 ;;2144
 ;;21,"58016-0258-12 ")
 ;;2145
 ;;21,"58016-0258-14 ")
 ;;2146
 ;;21,"58016-0258-15 ")
 ;;2147
 ;;21,"58016-0258-20 ")
 ;;2148
 ;;21,"58016-0258-21 ")
 ;;2149
 ;;21,"58016-0258-24 ")
 ;;2150
 ;;21,"58016-0258-28 ")
 ;;2151
 ;;21,"58016-0258-30 ")
 ;;2152
 ;;21,"58016-0258-40 ")
 ;;2153
 ;;21,"58016-0258-42 ")
 ;;2154
 ;;21,"58016-0258-46 ")
 ;;2155
 ;;21,"58016-0258-50 ")
 ;;2156
 ;;21,"58016-0258-56 ")
 ;;2157
 ;;21,"58016-0258-60 ")
 ;;2158
 ;;21,"58016-0258-73 ")
 ;;2159
 ;;21,"58016-0258-80 ")
 ;;2160
 ;;21,"58016-0258-89 ")
 ;;2161
 ;;21,"58016-0258-90 ")
 ;;2162
 ;;21,"58016-0258-92 ")
 ;;2163
 ;;21,"58016-0258-99 ")
 ;;2164
 ;;21,"58016-0261-00 ")
 ;;22
 ;;21,"58016-0261-02 ")
 ;;23
 ;;21,"58016-0261-03 ")
 ;;24
 ;;21,"58016-0261-04 ")
 ;;25
 ;;21,"58016-0261-07 ")
 ;;26
 ;;21,"58016-0261-10 ")
 ;;27
 ;;21,"58016-0261-12 ")
 ;;28
 ;;21,"58016-0261-14 ")
 ;;29
 ;;21,"58016-0261-15 ")
 ;;30
 ;;21,"58016-0261-16 ")
 ;;31
 ;;21,"58016-0261-18 ")
 ;;32
 ;;21,"58016-0261-20 ")
 ;;33
 ;;21,"58016-0261-21 ")
 ;;34
 ;;21,"58016-0261-24 ")
 ;;35
 ;;21,"58016-0261-25 ")
 ;;36
 ;;21,"58016-0261-28 ")
 ;;37
 ;;21,"58016-0261-30 ")
 ;;38
 ;;21,"58016-0261-40 ")
 ;;39
 ;;21,"58016-0261-42 ")
 ;;40
 ;;21,"58016-0261-45 ")
 ;;41
 ;;21,"58016-0261-50 ")
 ;;42
 ;;21,"58016-0261-56 ")
 ;;43
 ;;21,"58016-0261-60 ")
 ;;44
 ;;21,"58016-0261-62 ")
 ;;45
 ;;21,"58016-0261-71 ")
 ;;46
 ;;21,"58016-0261-73 ")
 ;;47
 ;;21,"58016-0261-80 ")
 ;;48
 ;;21,"58016-0261-89 ")
 ;;49
 ;;21,"58016-0261-90 ")
 ;;50
 ;;21,"58016-0261-92 ")
 ;;51
 ;;21,"58016-0261-99 ")
 ;;52
 ;;21,"58016-0291-00 ")
 ;;581
 ;;21,"58016-0291-02 ")
 ;;582
 ;;21,"58016-0291-03 ")
 ;;583
 ;;21,"58016-0291-08 ")
 ;;584
 ;;21,"58016-0291-10 ")
 ;;585
 ;;21,"58016-0291-12 ")
 ;;586
 ;;21,"58016-0291-14 ")
 ;;587
 ;;21,"58016-0291-15 ")
 ;;588
 ;;21,"58016-0291-16 ")
 ;;589
 ;;21,"58016-0291-20 ")
 ;;590
 ;;21,"58016-0291-21 ")
 ;;591
 ;;21,"58016-0291-24 ")
 ;;592
 ;;21,"58016-0291-28 ")
 ;;593
 ;;21,"58016-0291-30 ")
 ;;594
 ;;21,"58016-0291-40 ")
 ;;595
 ;;21,"58016-0291-42 ")
 ;;596
 ;;21,"58016-0291-56 ")
 ;;597
 ;;21,"58016-0291-60 ")
 ;;598
 ;;21,"58016-0291-73 ")
 ;;599
 ;;21,"58016-0291-89 ")
 ;;600
 ;;21,"58016-0291-90 ")
 ;;601
 ;;21,"58016-0488-00 ")
 ;;69
 ;;21,"58016-0488-02 ")
 ;;70
 ;;21,"58016-0488-03 ")
 ;;71
 ;;21,"58016-0488-04 ")
 ;;72
 ;;21,"58016-0488-07 ")
 ;;73
 ;;21,"58016-0488-10 ")
 ;;74
 ;;21,"58016-0488-12 ")
 ;;75
 ;;21,"58016-0488-14 ")
 ;;76
 ;;21,"58016-0488-15 ")
 ;;77
 ;;21,"58016-0488-16 ")
 ;;78
 ;;21,"58016-0488-18 ")
 ;;79
 ;;21,"58016-0488-20 ")
 ;;80
 ;;21,"58016-0488-21 ")
 ;;81
 ;;21,"58016-0488-24 ")
 ;;82
 ;;21,"58016-0488-25 ")
 ;;83
 ;;21,"58016-0488-28 ")
 ;;84
 ;;21,"58016-0488-30 ")
 ;;85
 ;;21,"58016-0488-40 ")
 ;;86
 ;;21,"58016-0488-42 ")
 ;;87
 ;;21,"58016-0488-45 ")
 ;;88
 ;;21,"58016-0488-50 ")
 ;;89
 ;;21,"58016-0488-56 ")
 ;;90
 ;;21,"58016-0488-60 ")
 ;;91
 ;;21,"58016-0488-62 ")
 ;;92
 ;;21,"58016-0488-73 ")
 ;;93
 ;;21,"58016-0488-80 ")
 ;;94
 ;;21,"58016-0488-89 ")
 ;;95
 ;;21,"58016-0488-90 ")
 ;;96
 ;;21,"58016-0488-92 ")
 ;;97
 ;;21,"58016-0488-99 ")
 ;;98
 ;;21,"58016-0927-00 ")
 ;;1622
 ;;21,"58016-0927-02 ")
 ;;1623
 ;;21,"58016-0927-03 ")
 ;;1624
 ;;21,"58016-0927-30 ")
 ;;1625
 ;;21,"58016-0927-60 ")
 ;;1626
 ;;21,"58016-0927-73 ")
 ;;1627
 ;;21,"58016-0927-89 ")
 ;;1628
 ;;21,"58016-0927-90 ")
 ;;1629
 ;;21,"58016-0987-00 ")
 ;;867
 ;;21,"58016-0987-02 ")
 ;;868
 ;;21,"58016-0987-03 ")
 ;;869
 ;;21,"58016-0987-30 ")
 ;;870
 ;;21,"58016-0987-60 ")
 ;;871
 ;;21,"58016-0987-90 ")
 ;;872
 ;;21,"58118-0174-03 ")
 ;;65
 ;;21,"58118-0174-06 ")
 ;;66
 ;;21,"58118-0174-07 ")
 ;;67
 ;;21,"58118-0174-09 ")
 ;;68
 ;;21,"58118-0480-02 ")
 ;;2303
 ;;21,"58118-0541-01 ")
 ;;1327
 ;;21,"58118-0541-02 ")
 ;;1328
 ;;21,"58118-0541-03 ")
 ;;1329
 ;;21,"58118-0541-04 ")
 ;;1330
 ;;21,"58118-0541-05 ")
 ;;1331
 ;;21,"58118-0541-06 ")
 ;;1332
 ;;21,"58118-0541-07 ")
 ;;1333
 ;;21,"58118-0541-09 ")
 ;;1334
 ;;21,"58118-0553-03 ")
 ;;1453
 ;;21,"58118-1290-03 ")
 ;;1656
 ;;21,"58118-1290-04 ")
 ;;1657
 ;;21,"58118-1290-06 ")
 ;;1658
 ;;21,"58118-1290-09 ")
 ;;1659
 ;;21,"58118-2520-03 ")
 ;;602
 ;;21,"58118-2520-09 ")
 ;;603
 ;;21,"58118-3078-03 ")
 ;;865
 ;;21,"58118-3078-09 ")
 ;;866
 ;;21,"58118-4486-03 ")
 ;;2165
 ;;21,"58118-4486-04 ")
 ;;2166
 ;;21,"58118-4486-06 ")
 ;;2167
 ;;21,"58118-4486-07 ")
 ;;2168
 ;;21,"58118-4486-09 ")
 ;;2169
 ;;21,"58517-0080-30 ")
 ;;1326
 ;;21,"58864-0043-56 ")
 ;;1652
 ;;21,"58864-0128-20 ")
 ;;1309
 ;;21,"58864-0128-30 ")
 ;;1310
 ;;21,"58864-0128-45 ")
 ;;1311
 ;;21,"58864-0652-20 ")
 ;;2177
 ;;21,"58864-0652-30 ")
 ;;2178
 ;;21,"58864-0778-30 ")
 ;;64
 ;;21,"58864-0846-20 ")
 ;;1620
 ;;21,"58864-0846-40 ")
 ;;1621
 ;;21,"59630-0950-10 ")
 ;;925
 ;;21,"59746-0177-06 ")
 ;;1312
 ;;21,"59746-0177-10 ")
 ;;1313
 ;;21,"59746-0211-06 ")
 ;;863
 ;;21,"59746-0211-10 ")
 ;;864
 ;;21,"60429-0052-01 ")
 ;;1314
 ;;21,"60429-0052-10 ")
 ;;1315
 ;;21,"60429-0052-30 ")
 ;;1316
 ;;21,"60429-0118-05 ")
 ;;1651
 ;;21,"60429-0118-40 ")
 ;;1650
 ;;21,"60429-0119-05 ")
 ;;2179
 ;;21,"60429-0508-01 ")
 ;;62
 ;;21,"60429-0508-10 ")
 ;;63
 ;;21,"60760-0054-06 ")
 ;;1454
 ;;21,"60760-0054-20 ")
 ;;1455
 ;;21,"60760-0054-30 ")
 ;;1456
 ;;21,"60760-0054-60 ")
 ;;1457
 ;;21,"60760-0110-20 ")
 ;;56
 ;;21,"60760-0110-30 ")
 ;;57
 ;;21,"60760-0110-40 ")
 ;;58
 ;;21,"60760-0110-60 ")
 ;;59
 ;;21,"60760-0110-90 ")
 ;;60
 ;;21,"60760-0110-92 ")
 ;;61
 ;;21,"60760-0136-06 ")
 ;;1613
 ;;21,"60760-0136-20 ")
 ;;1614
 ;;21,"60760-0136-30 ")
 ;;1615
 ;;21,"60760-0136-60 ")
 ;;1616
 ;;21,"60760-0136-90 ")
 ;;1617
 ;;21,"60760-0290-30 ")
 ;;1655
 ;;21,"60760-0347-40 ")
 ;;2170
 ;;21,"60760-0347-60 ")
 ;;2171
 ;;21,"60760-0347-90 ")
 ;;2172
 ;;21,"60760-0347-92 ")
 ;;2173
 ;;21,"60760-0418-09 ")
 ;;1320
 ;;21,"60760-0418-15 ")
 ;;1321
 ;;21,"60760-0418-20 ")
 ;;1322
 ;;21,"60760-0418-30 ")
 ;;1323
 ;;21,"60760-0418-60 ")
 ;;1324
 ;;21,"60760-0418-90 ")
 ;;1325
 ;;21,"60760-0810-30 ")
 ;;2218
 ;;21,"60793-0136-01 ")
 ;;1618
 ;;21,"60793-0136-05 ")
 ;;1619
 ;;21,"60977-0150-01 ")
 ;;2199
 ;;21,"60977-0150-71 ")
 ;;2200
 ;;21,"61919-0039-30 ")
 ;;53
 ;;21,"61919-0039-60 ")
 ;;54
 ;;21,"61919-0039-90 ")
 ;;55
 ;;21,"61919-0065-30 ")
 ;;1317
 ;;21,"61919-0065-60 ")
 ;;1318
 ;;21,"61919-0065-90 ")
 ;;1319
 ;;21,"61919-0147-60 ")
 ;;1653
 ;;21,"61919-0147-90 ")
 ;;1654
 ;;21,"61919-0148-30 ")
 ;;2174
 ;;21,"61919-0148-60 ")
 ;;2175
 ;;21,"61919-0148-90 ")
 ;;2176
 ;;21,"61919-0177-30 ")
 ;;2300
 ;;21,"61919-0177-60 ")
 ;;2301
 ;;21,"61919-0177-90 ")
 ;;2302
 ;;21,"61919-0478-30 ")
 ;;604
 ;;21,"61919-0478-40 ")
 ;;605
 ;;21,"61919-0544-30 ")
 ;;861
 ;;21,"61919-0544-90 ")
 ;;862
 ;;21,"62584-0780-01 ")
 ;;1823
 ;;21,"62584-0780-11 ")
 ;;1824
 ;;21,"62584-0781-01 ")
 ;;1899
 ;;21,"62584-0781-11 ")
 ;;1900
 ;;21,"62756-0446-02 ")
 ;;255
 ;;21,"62756-0446-04 ")
 ;;256
 ;;21,"62756-0446-05 ")
 ;;257
 ;;21,"63459-0700-60 ")
 ;;1405
 ;;21,"63459-0701-60 ")
 ;;1415
 ;;21,"63629-1308-00 ")
 ;;258
 ;;21,"63629-1308-01 ")
 ;;259
 ;;21,"63629-1308-02 ")
 ;;260
 ;;21,"63629-1308-03 ")
 ;;261
 ;;21,"63629-1308-04 ")
 ;;262
 ;;21,"63629-1308-05 ")
 ;;263
 ;;21,"63629-1308-06 ")
 ;;264
 ;;21,"63629-1308-07 ")
 ;;265
 ;;21,"63629-1308-08 ")
 ;;266
 ;;21,"63629-1308-09 ")
 ;;267
 ;;21,"63629-1308-10 ")
 ;;268
 ;;21,"63629-1339-00 ")
 ;;979
 ;;21,"63629-1339-01 ")
 ;;980
 ;;21,"63629-1339-02 ")
 ;;981
 ;;21,"63629-1339-03 ")
 ;;982
 ;;21,"63629-1339-04 ")
 ;;983
 ;;21,"63629-1339-05 ")
 ;;984
 ;;21,"63629-1339-06 ")
 ;;985
 ;;21,"63629-1339-07 ")
 ;;986
 ;;21,"63629-1339-08 ")
 ;;987
 ;;21,"63629-1339-09 ")
 ;;988
 ;;21,"63629-1339-10 ")
 ;;989
 ;;21,"63629-1564-01 ")
 ;;2271
 ;;21,"63629-1564-02 ")
 ;;2272
 ;;21,"63629-1564-03 ")
 ;;2273
 ;;21,"63629-1564-04 ")
 ;;2274
 ;;21,"63629-1564-05 ")
 ;;2275
 ;;21,"63629-1564-06 ")
 ;;2276
 ;;21,"63629-1564-07 ")
 ;;2277
 ;;21,"63629-1564-08 ")
 ;;2278
 ;;21,"63629-1564-09 ")
 ;;2279
 ;;21,"63629-1564-10 ")
 ;;2280
 ;;21,"63629-1586-01 ")
 ;;624
 ;;21,"63629-1586-02 ")
 ;;625
 ;;21,"63629-1586-03 ")
 ;;626
 ;;21,"63629-1586-04 ")
 ;;627
 ;;21,"63629-1586-05 ")
 ;;628
 ;;21,"63629-1586-06 ")
 ;;629
 ;;21,"63629-1586-07 ")
 ;;630
 ;;21,"63629-1586-08 ")
 ;;631
 ;;21,"63629-1586-09 ")
 ;;632
 ;;21,"63629-1622-01 ")
 ;;1815
 ;;21,"63629-1622-02 ")
 ;;1816
 ;;21,"63629-1622-03 ")
 ;;1817
 ;;21,"63629-1622-04 ")
 ;;1818
 ;;21,"63629-1622-05 ")
 ;;1819
 ;;21,"63629-1622-06 ")
 ;;1820
 ;;21,"63629-1622-07 ")
 ;;1821
 ;;21,"63629-1622-08 ")
 ;;1822
 ;;21,"63629-1623-01 ")
 ;;1901
 ;;21,"63629-1623-02 ")
 ;;1902
 ;;21,"63629-1623-03 ")
 ;;1903
 ;;21,"63629-1623-04 ")
 ;;1904
 ;;21,"63629-1623-05 ")
 ;;1905
 ;;21,"63629-1623-06 ")
 ;;1906
 ;;21,"63629-1623-07 ")
 ;;1907
 ;;21,"63629-1623-08 ")
 ;;1908
 ;;21,"63629-1640-01 ")
 ;;1564
 ;;21,"63629-2768-01 ")
 ;;1565
 ;;21,"63629-2768-02 ")
 ;;1566
 ;;21,"63629-2768-03 ")
 ;;1567
 ;;21,"63629-2768-04 ")
 ;;1568
 ;;21,"63629-2768-05 ")
 ;;1569
 ;;21,"63629-2768-06 ")
 ;;1570
 ;;21,"63629-2768-07 ")
 ;;1571
 ;;21,"63629-2768-08 ")
 ;;1572
 ;;21,"63629-3640-01 ")
 ;;736
 ;;21,"63629-3640-02 ")
 ;;737
 ;;21,"63629-3640-03 ")
 ;;738
 ;;21,"63629-3640-04 ")
 ;;739
 ;;21,"63629-3640-05 ")
 ;;740
 ;;21,"63629-3640-06 ")
 ;;741
 ;;21,"63629-3640-07 ")
 ;;742
 ;;21,"63629-3640-08 ")
 ;;743
 ;;21,"63629-3640-09 ")
 ;;744
 ;;21,"63629-4205-01 ")
 ;;1491
 ;;21,"63629-4205-02 ")
 ;;1492
 ;;21,"63629-4205-03 ")
 ;;1493
 ;;21,"63629-4205-04 ")
 ;;1494
 ;;21,"63629-4205-05 ")
 ;;1495
 ;;21,"63629-4205-06 ")
 ;;1496
 ;;21,"63629-4205-07 ")
 ;;1497
 ;;21,"63629-4205-08 ")
 ;;1498
 ;;21,"63629-4664-01 ")
 ;;882
 ;;21,"63629-4664-02 ")
 ;;883
 ;;21,"63629-4664-03 ")
 ;;884
 ;;21,"63629-4664-04 ")
 ;;885
 ;;21,"63629-4707-01 ")
 ;;270