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

BGP44N2.m

Go to the documentation of this file.
BGP44N2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"13411-0169-10 ")
 ;;576
 ;;21,"13411-0176-01 ")
 ;;724
 ;;21,"13411-0176-03 ")
 ;;725
 ;;21,"13411-0176-06 ")
 ;;726
 ;;21,"13411-0176-09 ")
 ;;727
 ;;21,"13411-0176-10 ")
 ;;728
 ;;21,"16571-0430-11 ")
 ;;479
 ;;21,"16571-0431-11 ")
 ;;643
 ;;21,"16571-0441-11 ")
 ;;756
 ;;21,"16590-0132-30 ")
 ;;361
 ;;21,"16590-0132-60 ")
 ;;362
 ;;21,"16590-0133-30 ")
 ;;363
 ;;21,"16590-0133-60 ")
 ;;364
 ;;21,"16590-0256-30 ")
 ;;495
 ;;21,"16590-0256-60 ")
 ;;496
 ;;21,"16590-0256-90 ")
 ;;497
 ;;21,"16590-0257-30 ")
 ;;608
 ;;21,"16590-0257-60 ")
 ;;609
 ;;21,"16590-0257-71 ")
 ;;610
 ;;21,"16590-0257-90 ")
 ;;611
 ;;21,"16590-0317-15 ")
 ;;1190
 ;;21,"16590-0317-30 ")
 ;;1356
 ;;21,"16590-0317-60 ")
 ;;1357
 ;;21,"16590-0317-72 ")
 ;;1358
 ;;21,"16590-0317-90 ")
 ;;1359
 ;;21,"16590-0328-30 ")
 ;;327
 ;;21,"16590-0428-30 ")
 ;;1457
 ;;21,"16590-0428-60 ")
 ;;1458
 ;;21,"16590-0428-72 ")
 ;;1459
 ;;21,"16590-0428-90 ")
 ;;1460
 ;;21,"16590-0462-30 ")
 ;;255
 ;;21,"16590-0533-30 ")
 ;;1851
 ;;21,"16590-0533-60 ")
 ;;1852
 ;;21,"16590-0533-72 ")
 ;;1853
 ;;21,"16590-0533-90 ")
 ;;1854
 ;;21,"16590-0808-45 ")
 ;;63
 ;;21,"16590-0808-60 ")
 ;;64
 ;;21,"16590-0808-90 ")
 ;;65
 ;;21,"16590-0851-28 ")
 ;;757
 ;;21,"16590-0900-30 ")
 ;;939
 ;;21,"16590-0900-60 ")
 ;;940
 ;;21,"16590-0917-30 ")
 ;;284
 ;;21,"16590-0917-60 ")
 ;;285
 ;;21,"16714-0021-04 ")
 ;;73
 ;;21,"16714-0021-06 ")
 ;;74
 ;;21,"16714-0022-04 ")
 ;;126
 ;;21,"16714-0022-06 ")
 ;;127
 ;;21,"16714-0023-04 ")
 ;;191
 ;;21,"16714-0023-06 ")
 ;;192
 ;;21,"16714-0024-04 ")
 ;;226
 ;;21,"16714-0025-04 ")
 ;;249
 ;;21,"16714-0025-05 ")
 ;;250
 ;;21,"16714-0031-04 ")
 ;;449
 ;;21,"16714-0031-06 ")
 ;;450
 ;;21,"16714-0032-04 ")
 ;;506
 ;;21,"16714-0032-06 ")
 ;;507
 ;;21,"16714-0033-04 ")
 ;;683
 ;;21,"16714-0033-06 ")
 ;;684
 ;;21,"21695-0291-30 ")
 ;;985
 ;;21,"21695-0298-30 ")
 ;;1355
 ;;21,"21695-0298-60 ")
 ;;1202
 ;;21,"21695-0298-78 ")
 ;;1203
 ;;21,"21695-0298-90 ")
 ;;1204
 ;;21,"21695-0299-00 ")
 ;;1445
 ;;21,"21695-0299-30 ")
 ;;1446
 ;;21,"21695-0299-60 ")
 ;;1430
 ;;21,"21695-0299-78 ")
 ;;1431
 ;;21,"21695-0299-90 ")
 ;;1432
 ;;21,"21695-0322-30 ")
 ;;402
 ;;21,"21695-0322-90 ")
 ;;403
 ;;21,"21695-0323-30 ")
 ;;563
 ;;21,"21695-0323-60 ")
 ;;564
 ;;21,"21695-0323-90 ")
 ;;565
 ;;21,"21695-0324-00 ")
 ;;730
 ;;21,"21695-0324-30 ")
 ;;731
 ;;21,"21695-0494-30 ")
 ;;1132
 ;;21,"21695-0494-60 ")
 ;;1133
 ;;21,"21695-0494-78 ")
 ;;1134
 ;;21,"21695-0494-90 ")
 ;;1135
 ;;21,"21695-0592-00 ")
 ;;1972
 ;;21,"21695-0592-30 ")
 ;;1973
 ;;21,"21695-0592-60 ")
 ;;1974
 ;;21,"21695-0645-00 ")
 ;;1596
 ;;21,"21695-0645-60 ")
 ;;1597
 ;;21,"21695-0645-78 ")
 ;;1598
 ;;21,"21695-0646-30 ")
 ;;1694
 ;;21,"21695-0646-60 ")
 ;;1695
 ;;21,"21695-0646-78 ")
 ;;1696
 ;;21,"21695-0646-90 ")
 ;;1697
 ;;21,"21695-0647-30 ")
 ;;1814
 ;;21,"21695-0647-60 ")
 ;;1906
 ;;21,"21695-0647-78 ")
 ;;1815
 ;;21,"21695-0647-90 ")
 ;;1816
 ;;21,"21695-0648-30 ")
 ;;1905
 ;;21,"21695-0648-60 ")
 ;;1817
 ;;21,"21695-0648-78 ")
 ;;1904
 ;;21,"21695-0667-30 ")
 ;;802
 ;;21,"21695-0667-90 ")
 ;;803
 ;;21,"21695-0668-30 ")
 ;;128
 ;;21,"21695-0668-60 ")
 ;;129
 ;;21,"21695-0668-78 ")
 ;;130
 ;;21,"21695-0669-30 ")
 ;;189
 ;;21,"21695-0669-60 ")
 ;;190
 ;;21,"21695-0670-30 ")
 ;;822
 ;;21,"21695-0670-90 ")
 ;;823
 ;;21,"21695-0743-30 ")
 ;;2071
 ;;21,"21695-0744-30 ")
 ;;2075
 ;;21,"21695-0799-30 ")
 ;;24
 ;;21,"21695-0800-30 ")
 ;;36
 ;;21,"21695-0802-30 ")
 ;;3
 ;;21,"21695-0808-30 ")
 ;;2133
 ;;21,"21695-0809-30 ")
 ;;2153
 ;;21,"21695-0950-30 ")
 ;;909
 ;;21,"21695-0950-60 ")
 ;;910
 ;;21,"21695-0950-90 ")
 ;;911
 ;;21,"21695-0972-30 ")
 ;;1007
 ;;21,"21695-0988-30 ")
 ;;2033
 ;;21,"21695-0994-00 ")
 ;;2006
 ;;21,"23155-0110-01 ")
 ;;53
 ;;21,"23155-0110-10 ")
 ;;54
 ;;21,"23155-0111-01 ")
 ;;158
 ;;21,"23155-0111-10 ")
 ;;159
 ;;21,"23155-0112-01 ")
 ;;170
 ;;21,"23155-0112-10 ")
 ;;171
 ;;21,"23155-0113-01 ")
 ;;233
 ;;21,"23155-0114-01 ")
 ;;235
 ;;21,"23155-0114-05 ")
 ;;241
 ;;21,"23490-1977-01 ")
 ;;1136
 ;;21,"23490-1977-03 ")
 ;;1137
 ;;21,"23490-5096-01 ")
 ;;694
 ;;21,"23490-5096-02 ")
 ;;695
 ;;21,"23490-5096-03 ")
 ;;696
 ;;21,"23490-5097-01 ")
 ;;434
 ;;21,"23490-5097-02 ")
 ;;435
 ;;21,"23490-5097-03 ")
 ;;436
 ;;21,"23490-5097-09 ")
 ;;437
 ;;21,"23490-5098-01 ")
 ;;536
 ;;21,"23490-5098-02 ")
 ;;537
 ;;21,"23490-5098-09 ")
 ;;538
 ;;21,"23490-5300-03 ")
 ;;2079
 ;;21,"23490-5300-09 ")
 ;;2080
 ;;21,"23490-5915-00 ")
 ;;1006
 ;;21,"23490-5917-01 ")
 ;;840
 ;;21,"23490-5920-00 ")
 ;;1503
 ;;21,"23490-5920-01 ")
 ;;1504
 ;;21,"23490-5920-06 ")
 ;;1400
 ;;21,"23490-5921-01 ")
 ;;1290
 ;;21,"23490-5921-02 ")
 ;;1291
 ;;21,"23490-5921-03 ")
 ;;1231
 ;;21,"23490-5927-03 ")
 ;;907
 ;;21,"23490-5927-09 ")
 ;;908
 ;;21,"23490-6203-03 ")
 ;;207
 ;;21,"23490-6203-06 ")
 ;;208
 ;;21,"23490-6203-09 ")
 ;;209
 ;;21,"23490-6503-03 ")
 ;;2165
 ;;21,"23490-6504-03 ")
 ;;2143
 ;;21,"23490-6504-06 ")
 ;;2144
 ;;21,"23490-6504-09 ")
 ;;2145
 ;;21,"23490-7861-03 ")
 ;;2110
 ;;21,"23490-9369-03 ")
 ;;1610
 ;;21,"23490-9369-06 ")
 ;;1611
 ;;21,"23490-9370-03 ")
 ;;1711
 ;;21,"23490-9370-06 ")
 ;;1712
 ;;21,"23490-9371-03 ")
 ;;1800
 ;;21,"23490-9371-06 ")
 ;;1801
 ;;21,"23490-9372-03 ")
 ;;1892
 ;;21,"23490-9372-06 ")
 ;;1893
 ;;21,"24090-0470-88 ")
 ;;261
 ;;21,"24090-0471-88 ")
 ;;294
 ;;21,"24090-0473-88 ")
 ;;318
 ;;21,"24090-0479-88 ")
 ;;342
 ;;21,"29300-0126-01 ")
 ;;799
 ;;21,"29300-0126-13 ")
 ;;800
 ;;21,"29300-0127-01 ")
 ;;825
 ;;21,"29300-0127-13 ")
 ;;826
 ;;21,"29300-0187-01 ")
 ;;2102
 ;;21,"29300-0187-05 ")
 ;;2103
 ;;21,"29300-0187-13 ")
 ;;2104
 ;;21,"29300-0188-01 ")
 ;;2119
 ;;21,"29300-0188-05 ")
 ;;2120
 ;;21,"29300-0188-13 ")
 ;;2121
 ;;21,"29300-0189-01 ")
 ;;2160
 ;;21,"29300-0189-05 ")
 ;;2161
 ;;21,"29300-0189-13 ")
 ;;2162
 ;;21,"30698-0460-01 ")
 ;;2181
 ;;21,"33261-0221-30 ")
 ;;1966
 ;;21,"33261-0221-60 ")
 ;;1967
 ;;21,"33261-0221-90 ")
 ;;1968
 ;;21,"33261-0349-30 ")
 ;;647
 ;;21,"33261-0349-60 ")
 ;;648
 ;;21,"33261-0349-90 ")
 ;;649
 ;;21,"33261-0642-30 ")
 ;;139
 ;;21,"33261-0642-60 ")
 ;;140
 ;;21,"33261-0642-90 ")
 ;;141
 ;;21,"33261-0643-30 ")
 ;;178
 ;;21,"33261-0643-60 ")
 ;;179
 ;;21,"33261-0643-90 ")
 ;;180
 ;;21,"33358-0037-00 ")
 ;;440
 ;;21,"33358-0037-30 ")
 ;;441
 ;;21,"33358-0037-60 ")
 ;;442
 ;;21,"33358-0038-00 ")
 ;;524
 ;;21,"33358-0038-30 ")
 ;;525
 ;;21,"33358-0038-60 ")
 ;;526
 ;;21,"33358-0039-00 ")
 ;;708
 ;;21,"33358-0039-30 ")
 ;;709
 ;;21,"33358-0192-30 ")
 ;;56
 ;;21,"33358-0193-30 ")
 ;;148
 ;;21,"33358-0194-30 ")
 ;;266
 ;;21,"33358-0242-00 ")
 ;;1292
 ;;21,"33358-0242-01 ")
 ;;1293
 ;;21,"33358-0242-30 ")
 ;;1294
 ;;21,"33358-0242-60 ")
 ;;1295
 ;;21,"33358-0242-90 ")
 ;;1296
 ;;21,"33358-0243-00 ")
 ;;1505
 ;;21,"33358-0243-30 ")
 ;;1506
 ;;21,"35356-0362-30 ")
 ;;1963
 ;;21,"35356-0362-60 ")
 ;;1964
 ;;21,"35356-0415-30 ")
 ;;1300
 ;;21,"35356-0490-30 ")
 ;;1958
 ;;21,"35356-0512-30 ")
 ;;1698
 ;;21,"35356-0513-30 ")
 ;;1594
 ;;21,"35356-0513-60 ")
 ;;1595
 ;;21,"35356-0518-30 ")
 ;;1949
 ;;21,"35356-0526-00 ")
 ;;1909
 ;;21,"35356-0526-30 ")
 ;;1883
 ;;21,"35356-0526-60 ")
 ;;1884
 ;;21,"35356-0737-30 ")
 ;;612
 ;;21,"35356-0738-00 ")
 ;;613
 ;;21,"35356-0782-30 ")
 ;;1415
 ;;21,"35356-0782-60 ")
 ;;1416
 ;;21,"35356-0782-90 ")
 ;;1417
 ;;21,"35356-0859-30 ")
 ;;2092
 ;;21,"35356-0888-30 ")
 ;;1032
 ;;21,"35356-0888-60 ")
 ;;1033
 ;;21,"35356-0889-30 ")
 ;;1213
 ;;21,"35356-0889-60 ")
 ;;1214
 ;;21,"35356-0889-90 ")
 ;;1215
 ;;21,"35356-0898-30 ")
 ;;948
 ;;21,"35356-0898-60 ")
 ;;949
 ;;21,"35356-0898-90 ")
 ;;950
 ;;21,"35356-0908-60 ")
 ;;1756
 ;;21,"35356-0930-30 ")
 ;;443
 ;;21,"35356-0930-60 ")
 ;;444
 ;;21,"35356-0930-90 ")
 ;;445
 ;;21,"35356-0934-30 ")
 ;;880
 ;;21,"35356-0934-60 ")
 ;;881
 ;;21,"35356-0934-90 ")
 ;;882
 ;;21,"35356-0946-30 ")
 ;;1558
 ;;21,"35356-0946-60 ")
 ;;1559
 ;;21,"42254-0005-30 ")
 ;;221
 ;;21,"42254-0046-30 ")
 ;;742
 ;;21,"42254-0046-90 ")
 ;;743
 ;;21,"42254-0094-30 ")
 ;;4
 ;;21,"42254-0107-30 ")
 ;;568
 ;;21,"42254-0107-60 ")
 ;;569
 ;;21,"42254-0107-90 ")
 ;;570
 ;;21,"42254-0162-00 ")
 ;;1568
 ;;21,"42254-0218-30 ")
 ;;25
 ;;21,"42254-0273-30 ")
 ;;873
 ;;21,"42254-0273-90 ")
 ;;874
 ;;21,"42254-0279-30 ")
 ;;87
 ;;21,"42291-0101-90 ")
 ;;376
 ;;21,"42291-0102-90 ")
 ;;384
 ;;21,"42291-0201-50 ")
 ;;1580
 ;;21,"42291-0201-60 ")
 ;;1581
 ;;21,"42291-0201-90 ")
 ;;1582
 ;;21,"42291-0202-18 ")
 ;;1684
 ;;21,"42291-0202-50 ")
 ;;1685
 ;;21,"42291-0202-60 ")
 ;;1686
 ;;21,"42291-0202-90 ")
 ;;1687
 ;;21,"42291-0203-30 ")
 ;;1785
 ;;21,"42291-0203-50 ")
 ;;1786
 ;;21,"42291-0203-60 ")
 ;;1787
 ;;21,"42291-0203-90 ")
 ;;1788
 ;;21,"42291-0204-18 ")
 ;;1916
 ;;21,"42291-0204-30 ")
 ;;1917
 ;;21,"42291-0204-50 ")
 ;;1918
 ;;21,"42291-0204-60 ")
 ;;1919
 ;;21,"42291-0204-90 ")
 ;;1920
 ;;21,"42291-0221-50 ")
 ;;1583
 ;;21,"42291-0221-60 ")
 ;;1584
 ;;21,"42291-0221-90 ")
 ;;1585
 ;;21,"42291-0222-18 ")
 ;;1680
 ;;21,"42291-0222-50 ")
 ;;1681
 ;;21,"42291-0222-60 ")
 ;;1682
 ;;21,"42291-0222-90 ")
 ;;1683
 ;;21,"42291-0223-30 ")
 ;;1789
 ;;21,"42291-0223-50 ")
 ;;1790
 ;;21,"42291-0223-60 ")
 ;;1791
 ;;21,"42291-0223-90 ")
 ;;1792
 ;;21,"42291-0224-18 ")
 ;;1911
 ;;21,"42291-0224-30 ")
 ;;1912
 ;;21,"42291-0224-50 ")
 ;;1913
 ;;21,"42291-0224-60 ")
 ;;1914
 ;;21,"42291-0224-90 ")
 ;;1915
 ;;21,"42806-0038-01 ")
 ;;791
 ;;21,"42806-0039-01 ")
 ;;797
 ;;21,"43063-0006-01 ")
 ;;1489
 ;;21,"43063-0006-90 ")
 ;;1404
 ;;21,"43063-0006-93 ")
 ;;1405
 ;;21,"43063-0062-06 ")
 ;;614
 ;;21,"43063-0062-30 ")
 ;;615
 ;;21,"43063-0062-90 ")
 ;;616
 ;;21,"43063-0125-93 ")
 ;;1799
 ;;21,"43063-0126-93 ")
 ;;1609
 ;;21,"43063-0127-93 ")
 ;;1713
 ;;21,"43063-0129-93 ")
 ;;1894
 ;;21,"43063-0134-30 ")
 ;;2173
 ;;21,"43063-0134-90 ")
 ;;2174
 ;;21,"43063-0135-90 ")
 ;;2106
 ;;21,"43063-0210-30 ")
 ;;862
 ;;21,"43063-0210-90 ")
 ;;863
 ;;21,"43063-0211-30 ")
 ;;925
 ;;21,"43063-0211-90 ")
 ;;926
 ;;21,"43063-0297-30 ")
 ;;493
 ;;21,"43063-0297-90 ")
 ;;494
 ;;21,"43063-0316-30 ")
 ;;744
 ;;21,"43063-0316-90 ")
 ;;745
 ;;21,"43063-0398-30 ")
 ;;1206
 ;;21,"43063-0398-90 ")
 ;;1207
 ;;21,"43063-0398-93 ")
 ;;1208
 ;;21,"43063-0398-94 ")
 ;;1209
 ;;21,"43063-0440-90 ")
 ;;1191
 ;;21,"43353-0111-30 ")
 ;;1843
 ;;21,"43353-0111-53 ")
 ;;1844
 ;;21,"43353-0111-60 ")
 ;;1845
 ;;21,"43353-0111-80 ")
 ;;1846
 ;;21,"43353-0119-30 ")
 ;;1639
 ;;21,"43353-0119-53 ")
 ;;1640
 ;;21,"43353-0119-60 ")
 ;;1641
 ;;21,"43353-0119-80 ")
 ;;1642
 ;;21,"43353-0122-30 ")
 ;;1738
 ;;21,"43353-0122-53 ")
 ;;1739
 ;;21,"43353-0122-60 ")
 ;;1740
 ;;21,"43353-0132-53 ")
 ;;1560
 ;;21,"43353-0133-30 ")
 ;;1839
 ;;21,"43353-0133-53 ")
 ;;1840
 ;;21,"43353-0133-60 ")
 ;;1841
 ;;21,"43353-0133-80 ")
 ;;1842
 ;;21,"43353-0134-45 ")
 ;;1048
 ;;21,"43353-0134-60 ")
 ;;1049
 ;;21,"43353-0156-53 ")
 ;;1636
 ;;21,"43353-0156-60 ")
 ;;1637
 ;;21,"43353-0156-80 ")
 ;;1638
 ;;21,"43353-0160-30 ")
 ;;1741
 ;;21,"43353-0160-53 ")
 ;;1742
 ;;21,"43353-0160-60 ")
 ;;1743
 ;;21,"43353-0160-70 ")
 ;;1744
 ;;21,"43353-0160-80 ")
 ;;1745
 ;;21,"43353-0173-30 ")
 ;;971
 ;;21,"43353-0173-42 ")
 ;;972
 ;;21,"43353-0173-45 ")
 ;;973
 ;;21,"43353-0173-60 ")
 ;;974
 ;;21,"43353-0173-80 ")
 ;;975
 ;;21,"43353-0348-30 ")
 ;;951
 ;;21,"43353-0348-45 ")
 ;;952
 ;;21,"43353-0399-60 ")
 ;;571
 ;;21,"43353-0440-30 ")
 ;;1847
 ;;21,"43353-0440-53 ")
 ;;1848
 ;;21,"43353-0440-60 ")
 ;;1849
 ;;21,"43353-0440-80 ")
 ;;1850
 ;;21,"43353-0478-30 ")
 ;;1750
 ;;21,"43353-0478-53 ")
 ;;1775
 ;;21,"43353-0478-60 ")
 ;;1776
 ;;21,"43353-0485-53 ")
 ;;1586
 ;;21,"43353-0485-60 ")
 ;;1587
 ;;21,"43353-0486-30 ")
 ;;1672
 ;;21,"43353-0486-53 ")
 ;;1673
 ;;21,"43353-0486-60 ")
 ;;1674
 ;;21,"43353-0486-80 ")
 ;;1675
 ;;21,"43353-0508-60 ")
 ;;149
 ;;21,"43353-0576-45 ")
 ;;1232
 ;;21,"43353-0576-53 ")
 ;;1233
 ;;21,"43353-0576-60 ")
 ;;1234
 ;;21,"43353-0576-70 ")
 ;;1235
 ;;21,"43353-0576-80 ")
 ;;1236
 ;;21,"43353-0576-92 ")
 ;;1237
 ;;21,"43353-0583-30 ")
 ;;934
 ;;21,"43353-0583-45 ")
 ;;935
 ;;21,"43353-0583-60 ")
 ;;936
 ;;21,"43353-0701-60 ")
 ;;151
 ;;21,"43353-0706-60 ")
 ;;172
 ;;21,"43353-0795-60 ")
 ;;1028
 ;;21,"43478-0900-88 ")
 ;;269
 ;;21,"43478-0901-88 ")
 ;;295
 ;;21,"43478-0902-88 ")
 ;;319
 ;;21,"43478-0903-88 ")
 ;;343
 ;;21,"43547-0254-10 ")
 ;;1547
 ;;21,"43547-0254-50 ")
 ;;1548
 ;;21,"43547-0255-10 ")
 ;;1669
 ;;21,"43547-0255-50 ")
 ;;1670