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

BGP48F2.m

Go to the documentation of this file.
BGP48F2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;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,"00904-6291-61 ")
 ;;119
 ;;21,"10135-0498-90 ")
 ;;909
 ;;21,"10135-0499-90 ")
 ;;997
 ;;21,"10135-0500-90 ")
 ;;1105
 ;;21,"10135-0508-05 ")
 ;;1268
 ;;21,"10135-0508-30 ")
 ;;1269
 ;;21,"10135-0508-90 ")
 ;;1270
 ;;21,"10135-0509-05 ")
 ;;1336
 ;;21,"10135-0509-30 ")
 ;;1337
 ;;21,"10135-0509-90 ")
 ;;1338
 ;;21,"10135-0510-05 ")
 ;;1511
 ;;21,"10135-0510-30 ")
 ;;1512
 ;;21,"10135-0510-90 ")
 ;;1513
 ;;21,"10135-0511-05 ")
 ;;1702
 ;;21,"10135-0511-30 ")
 ;;1703
 ;;21,"10135-0511-90 ")
 ;;1704
 ;;21,"10135-0512-05 ")
 ;;1889
 ;;21,"10135-0512-30 ")
 ;;1890
 ;;21,"10135-0512-90 ")
 ;;1891
 ;;21,"10544-0246-30 ")
 ;;560
 ;;21,"12280-0038-90 ")
 ;;887
 ;;21,"12280-0108-60 ")
 ;;561
 ;;21,"12280-0150-30 ")
 ;;375
 ;;21,"12280-0164-15 ")
 ;;824
 ;;21,"12280-0164-90 ")
 ;;825
 ;;21,"12280-0181-30 ")
 ;;2086
 ;;21,"12280-0181-90 ")
 ;;2087
 ;;21,"12280-0335-15 ")
 ;;1096
 ;;21,"12280-0335-30 ")
 ;;1097
 ;;21,"12280-0335-90 ")
 ;;1098
 ;;21,"12280-0351-30 ")
 ;;843
 ;;21,"12280-0351-90 ")
 ;;844
 ;;21,"12280-0385-30 ")
 ;;2056
 ;;21,"12280-0385-90 ")
 ;;2057
 ;;21,"12280-0386-30 ")
 ;;2051
 ;;21,"12280-0397-30 ")
 ;;2151
 ;;21,"12280-0398-30 ")
 ;;2159
 ;;21,"12280-0399-30 ")
 ;;2124
 ;;21,"13411-0111-01 ")
 ;;394
 ;;21,"13411-0111-02 ")
 ;;395
 ;;21,"13411-0111-03 ")
 ;;396
 ;;21,"13411-0111-06 ")
 ;;397
 ;;21,"13411-0111-10 ")
 ;;398
 ;;21,"13411-0113-01 ")
 ;;104
 ;;21,"13411-0113-03 ")
 ;;105
 ;;21,"13411-0113-06 ")
 ;;106
 ;;21,"13411-0113-09 ")
 ;;107
 ;;21,"13411-0113-15 ")
 ;;108
 ;;21,"13411-0114-01 ")
 ;;295
 ;;21,"13411-0114-03 ")
 ;;296
 ;;21,"13411-0114-06 ")
 ;;297
 ;;21,"13411-0114-09 ")
 ;;298
 ;;21,"13411-0114-15 ")
 ;;299
 ;;21,"13411-0115-01 ")
 ;;193
 ;;21,"13411-0115-03 ")
 ;;194
 ;;21,"13411-0115-06 ")
 ;;195
 ;;21,"13411-0115-09 ")
 ;;196
 ;;21,"13411-0115-15 ")
 ;;197
 ;;21,"13411-0118-01 ")
 ;;963
 ;;21,"13411-0118-02 ")
 ;;964
 ;;21,"13411-0118-03 ")
 ;;965
 ;;21,"13411-0118-06 ")
 ;;966
 ;;21,"13411-0118-09 ")
 ;;967
 ;;21,"13411-0119-01 ")
 ;;1071
 ;;21,"13411-0119-02 ")
 ;;1072
 ;;21,"13411-0119-03 ")
 ;;1073
 ;;21,"13411-0119-06 ")
 ;;1074
 ;;21,"13411-0119-09 ")
 ;;1075
 ;;21,"13411-0132-01 ")
 ;;1640
 ;;21,"13411-0132-03 ")
 ;;1641
 ;;21,"13411-0132-06 ")
 ;;1642
 ;;21,"13411-0132-09 ")
 ;;1643
 ;;21,"13411-0132-15 ")
 ;;1644
 ;;21,"13411-0133-01 ")
 ;;1841
 ;;21,"13411-0133-03 ")
 ;;1842
 ;;21,"13411-0133-06 ")
 ;;1843
 ;;21,"13411-0133-09 ")
 ;;1844
 ;;21,"13411-0133-15 ")
 ;;1845
 ;;21,"13411-0161-01 ")
 ;;1301
 ;;21,"13411-0161-03 ")
 ;;1302
 ;;21,"13411-0161-06 ")
 ;;1303
 ;;21,"13411-0161-09 ")
 ;;1304
 ;;21,"13411-0161-15 ")
 ;;1305
 ;;21,"13411-0162-01 ")
 ;;1449
 ;;21,"13411-0162-03 ")
 ;;1450
 ;;21,"13411-0162-06 ")
 ;;1451
 ;;21,"13411-0162-09 ")
 ;;1452
 ;;21,"13411-0162-15 ")
 ;;1453
 ;;21,"16252-0505-30 ")
 ;;1263
 ;;21,"16252-0505-50 ")
 ;;1264
 ;;21,"16252-0505-90 ")
 ;;1265
 ;;21,"16252-0506-30 ")
 ;;1333
 ;;21,"16252-0506-50 ")
 ;;1334
 ;;21,"16252-0506-90 ")
 ;;1335
 ;;21,"16252-0507-30 ")
 ;;1505
 ;;21,"16252-0507-50 ")
 ;;1506
 ;;21,"16252-0507-90 ")
 ;;1507
 ;;21,"16252-0508-30 ")
 ;;1697
 ;;21,"16252-0508-50 ")
 ;;1698
 ;;21,"16252-0508-90 ")
 ;;1699
 ;;21,"16252-0509-30 ")
 ;;1884
 ;;21,"16252-0509-50 ")
 ;;1885
 ;;21,"16252-0509-90 ")
 ;;1886
 ;;21,"16252-0526-90 ")
 ;;912
 ;;21,"16252-0527-50 ")
 ;;993
 ;;21,"16252-0527-90 ")
 ;;994
 ;;21,"16252-0528-50 ")
 ;;1099
 ;;21,"16252-0528-90 ")
 ;;1100
 ;;21,"16252-0529-90 ")
 ;;1193
 ;;21,"16590-0411-30 ")
 ;;826
 ;;21,"16590-0431-30 ")
 ;;1700
 ;;21,"16590-0431-90 ")
 ;;1701
 ;;21,"16590-0446-30 ")
 ;;1574
 ;;21,"16590-0546-30 ")
 ;;1112
 ;;21,"16590-0546-90 ")
 ;;1113
 ;;21,"16590-0547-30 ")
 ;;562
 ;;21,"16590-0547-60 ")
 ;;563
 ;;21,"16590-0547-72 ")
 ;;564
 ;;21,"16590-0547-90 ")
 ;;565
 ;;21,"16590-0726-90 ")
 ;;1883
 ;;21,"16590-0941-30 ")
 ;;737
 ;;21,"16714-0681-01 ")
 ;;1283
 ;;21,"16714-0681-02 ")
 ;;1284
 ;;21,"16714-0682-01 ")
 ;;1342
 ;;21,"16714-0682-02 ")
 ;;1343
 ;;21,"16714-0682-03 ")
 ;;1344
 ;;21,"16714-0683-01 ")
 ;;1535
 ;;21,"16714-0683-02 ")
 ;;1536
 ;;21,"16714-0683-03 ")
 ;;1537
 ;;21,"16714-0684-01 ")
 ;;1708
 ;;21,"16714-0684-02 ")
 ;;1709
 ;;21,"16714-0684-03 ")
 ;;1710
 ;;21,"16714-0685-01 ")
 ;;1909
 ;;21,"16714-0685-02 ")
 ;;1910
 ;;21,"16714-0685-03 ")
 ;;1911
 ;;21,"16729-0004-10 ")
 ;;1345
 ;;21,"16729-0004-15 ")
 ;;1346
 ;;21,"16729-0004-17 ")
 ;;1347
 ;;21,"16729-0005-10 ")
 ;;1532
 ;;21,"16729-0005-15 ")
 ;;1533
 ;;21,"16729-0005-17 ")
 ;;1534
 ;;21,"16729-0006-10 ")
 ;;1711
 ;;21,"16729-0006-15 ")
 ;;1712
 ;;21,"16729-0006-17 ")
 ;;1713
 ;;21,"16729-0007-10 ")
 ;;1906
 ;;21,"16729-0007-15 ")
 ;;1907
 ;;21,"16729-0007-17 ")
 ;;1908
 ;;21,"21695-0178-30 ")
 ;;913
 ;;21,"21695-0179-30 ")
 ;;1005
 ;;21,"21695-0179-90 ")
 ;;1006
 ;;21,"21695-0180-30 ")
 ;;1114
 ;;21,"21695-0180-90 ")
 ;;1115
 ;;21,"21695-0255-90 ")
 ;;294
 ;;21,"21695-0287-90 ")
 ;;823
 ;;21,"21695-0288-90 ")
 ;;845
 ;;21,"21695-0325-30 ")
 ;;2058
 ;;21,"21695-0339-30 ")
 ;;2085
 ;;21,"21695-0534-30 ")
 ;;470
 ;;21,"21695-0535-30 ")
 ;;553
 ;;21,"21695-0535-90 ")
 ;;554
 ;;21,"21695-0536-30 ")
 ;;735
 ;;21,"21695-0536-90 ")
 ;;736
 ;;21,"21695-0659-30 ")
 ;;875
 ;;21,"21695-0738-90 ")
 ;;1282
 ;;21,"21695-0739-30 ")
 ;;1348
 ;;21,"21695-0739-90 ")
 ;;1349
 ;;21,"21695-0740-30 ")
 ;;1530
 ;;21,"21695-0740-90 ")
 ;;1531
 ;;21,"21695-0741-30 ")
 ;;1714
 ;;21,"21695-0741-90 ")
 ;;1715
 ;;21,"21695-0742-30 ")
 ;;1904
 ;;21,"21695-0742-90 ")
 ;;1905
 ;;21,"21695-0759-90 ")
 ;;793
 ;;21,"21695-0827-30 ")
 ;;2092
 ;;21,"23490-0131-03 ")
 ;;192
 ;;21,"23490-0132-03 ")
 ;;293
 ;;21,"23490-0133-03 ")
 ;;376
 ;;21,"23490-0167-03 ")
 ;;2059
 ;;21,"23490-1981-03 ")
 ;;1201
 ;;21,"23490-5838-02 ")
 ;;471
 ;;21,"23490-5838-06 ")
 ;;472
 ;;21,"23490-5838-09 ")
 ;;473
 ;;21,"23490-5839-00 ")
 ;;551
 ;;21,"23490-5839-01 ")
 ;;552
 ;;21,"23490-5840-01 ")
 ;;738
 ;;21,"23490-5840-02 ")
 ;;739
 ;;21,"23490-9350-03 ")
 ;;914
 ;;21,"23490-9350-06 ")
 ;;915
 ;;21,"23490-9350-09 ")
 ;;916
 ;;21,"23490-9351-03 ")
 ;;1002
 ;;21,"23490-9351-06 ")
 ;;1003
 ;;21,"23490-9351-09 ")
 ;;1004
 ;;21,"23490-9352-03 ")
 ;;1116
 ;;21,"23490-9352-06 ")
 ;;1117
 ;;21,"23490-9352-09 ")
 ;;1118
 ;;21,"23490-9353-03 ")
 ;;1354
 ;;21,"23490-9353-06 ")
 ;;1355
 ;;21,"23490-9353-09 ")
 ;;1356
 ;;21,"23490-9354-03 ")
 ;;1523
 ;;21,"23490-9354-06 ")
 ;;1524
 ;;21,"23490-9354-09 ")
 ;;1525
 ;;21,"23490-9355-03 ")
 ;;1720
 ;;21,"23490-9355-06 ")
 ;;1721
 ;;21,"23490-9355-09 ")
 ;;1722
 ;;21,"23490-9356-03 ")
 ;;1271
 ;;21,"23490-9356-06 ")
 ;;1272
 ;;21,"23490-9356-09 ")
 ;;1273
 ;;21,"23490-9357-03 ")
 ;;1897
 ;;21,"23490-9357-06 ")
 ;;1898
 ;;21,"23490-9357-09 ")
 ;;1899
 ;;21,"23490-9925-01 ")
 ;;821
 ;;21,"23490-9925-09 ")
 ;;822
 ;;21,"23490-9926-01 ")
 ;;846
 ;;21,"24658-0210-10 ")
 ;;1278
 ;;21,"24658-0210-30 ")
 ;;1279
 ;;21,"24658-0210-45 ")
 ;;1280
 ;;21,"24658-0210-90 ")
 ;;1281
 ;;21,"24658-0211-10 ")
 ;;1350
 ;;21,"24658-0211-30 ")
 ;;1351
 ;;21,"24658-0211-45 ")
 ;;1352
 ;;21,"24658-0211-90 ")
 ;;1353
 ;;21,"24658-0212-10 ")
 ;;1526
 ;;21,"24658-0212-30 ")
 ;;1527
 ;;21,"24658-0212-45 ")
 ;;1528
 ;;21,"24658-0212-90 ")
 ;;1529
 ;;21,"24658-0213-10 ")
 ;;1716
 ;;21,"24658-0213-30 ")
 ;;1717
 ;;21,"24658-0213-45 ")
 ;;1718
 ;;21,"24658-0213-90 ")
 ;;1719
 ;;21,"24658-0214-10 ")
 ;;1900
 ;;21,"24658-0214-30 ")
 ;;1901
 ;;21,"24658-0214-45 ")
 ;;1902
 ;;21,"24658-0214-90 ")
 ;;1903
 ;;21,"24658-0300-10 ")
 ;;1274
 ;;21,"24658-0300-30 ")
 ;;1275
 ;;21,"24658-0300-45 ")
 ;;1276
 ;;21,"24658-0300-90 ")
 ;;1277
 ;;21,"24658-0301-10 ")
 ;;1357
 ;;21,"24658-0301-15 ")
 ;;1358
 ;;21,"24658-0301-30 ")
 ;;1359
 ;;21,"24658-0301-45 ")
 ;;1360
 ;;21,"24658-0301-90 ")
 ;;1361
 ;;21,"24658-0302-10 ")
 ;;1514
 ;;21,"24658-0302-15 ")
 ;;1515
 ;;21,"24658-0302-30 ")
 ;;1516
 ;;21,"24658-0302-45 ")
 ;;1517
 ;;21,"24658-0302-90 ")
 ;;1518
 ;;21,"24658-0303-10 ")
 ;;1727
 ;;21,"24658-0303-15 ")
 ;;1728
 ;;21,"24658-0303-30 ")
 ;;1729
 ;;21,"24658-0303-45 ")
 ;;1730
 ;;21,"24658-0303-90 ")
 ;;1731
 ;;21,"24658-0304-10 ")
 ;;1892
 ;;21,"24658-0304-15 ")
 ;;1893
 ;;21,"24658-0304-30 ")
 ;;1894
 ;;21,"24658-0304-45 ")
 ;;1895
 ;;21,"24658-0304-90 ")
 ;;1896
 ;;21,"33261-0541-02 ")
 ;;1519
 ;;21,"33261-0541-30 ")
 ;;1520
 ;;21,"33261-0541-60 ")
 ;;1521
 ;;21,"33261-0541-90 ")
 ;;1522
 ;;21,"33261-0542-02 ")
 ;;1723
 ;;21,"33261-0542-30 ")
 ;;1724
 ;;21,"33261-0542-60 ")
 ;;1725
 ;;21,"33261-0542-90 ")
 ;;1726
 ;;21,"33261-0546-00 ")
 ;;1362
 ;;21,"33261-0546-30 ")
 ;;1363
 ;;21,"33261-0546-60 ")
 ;;1364
 ;;21,"33261-0546-90 ")
 ;;1365
 ;;21,"33261-0548-30 ")
 ;;555
 ;;21,"33261-0548-60 ")
 ;;556
 ;;21,"33261-0549-00 ")
 ;;731
 ;;21,"33261-0549-30 ")
 ;;732
 ;;21,"33261-0549-60 ")
 ;;733
 ;;21,"33261-0549-90 ")
 ;;734
 ;;21,"33261-0867-00 ")
 ;;1007
 ;;21,"33261-0867-30 ")
 ;;1008
 ;;21,"33261-0867-60 ")
 ;;1009
 ;;21,"33261-0867-90 ")
 ;;1010
 ;;21,"33261-0868-00 ")
 ;;1108
 ;;21,"33261-0868-30 ")
 ;;1109
 ;;21,"33261-0868-60 ")
 ;;1110
 ;;21,"33261-0868-90 ")
 ;;1111
 ;;21,"33261-0953-00 ")
 ;;1187
 ;;21,"33261-0953-30 ")
 ;;1188
 ;;21,"33261-0953-60 ")
 ;;1189
 ;;21,"33261-0953-90 ")
 ;;1190
 ;;21,"33261-0959-00 ")
 ;;27
 ;;21,"33261-0959-30 ")
 ;;28
 ;;21,"33261-0959-60 ")
 ;;29
 ;;21,"33261-0959-90 ")
 ;;30
 ;;21,"33261-0972-00 ")
 ;;123
 ;;21,"33261-0972-30 ")
 ;;124
 ;;21,"33261-0972-60 ")
 ;;125
 ;;21,"33261-0972-90 ")
 ;;126
 ;;21,"33261-0973-00 ")
 ;;213
 ;;21,"33261-0973-30 ")
 ;;214
 ;;21,"33261-0973-60 ")
 ;;215
 ;;21,"33261-0973-90 ")
 ;;216
 ;;21,"33358-0210-01 ")
 ;;100
 ;;21,"33358-0210-30 ")
 ;;101
 ;;21,"33358-0210-60 ")
 ;;102
 ;;21,"33358-0210-90 ")
 ;;103
 ;;21,"33358-0223-30 ")
 ;;492
 ;;21,"33358-0224-30 ")
 ;;525
 ;;21,"33358-0225-00 ")
 ;;526
 ;;21,"33358-0225-60 ")
 ;;527
 ;;21,"33358-0226-30 ")
 ;;700
 ;;21,"35356-0125-30 ")
 ;;1132
 ;;21,"35356-0413-30 ")
 ;;874
 ;;21,"35356-0519-30 ")
 ;;795
 ;;21,"35356-0600-30 ")
 ;;1954
 ;;21,"35356-0604-30 ")
 ;;1402
 ;;21,"35356-0667-30 ")
 ;;1572
 ;;21,"35356-0775-30 ")
 ;;1771
 ;;21,"35356-0781-30 ")
 ;;1573
 ;;21,"35356-0860-30 ")
 ;;31
 ;;21,"35356-0885-30 ")
 ;;528
 ;;21,"35356-0885-60 ")
 ;;529
 ;;21,"35356-0885-90 ")
 ;;530
 ;;21,"35356-0894-30 ")
 ;;127
 ;;21,"35356-0919-30 ")
 ;;1036
 ;;21,"35356-0921-30 ")
 ;;930
 ;;21,"35356-0929-30 ")
 ;;223
 ;;21,"42254-0019-30 ")
 ;;224
 ;;21,"42254-0019-45 ")
 ;;225
 ;;21,"42254-0019-90 ")
 ;;226
 ;;21,"42254-0025-30 ")
 ;;698
 ;;21,"42254-0025-90 ")
 ;;699
 ;;21,"42254-0028-30 ")
 ;;531
 ;;21,"42254-0028-90 ")
 ;;532
 ;;21,"42254-0032-30 ")
 ;;1768
 ;;21,"42254-0032-45 ")
 ;;1769
 ;;21,"42254-0032-90 ")
 ;;1770
 ;;21,"42254-0060-30 ")
 ;;1575
 ;;21,"42254-0060-90 ")
 ;;1576
 ;;21,"42254-0106-30 ")
 ;;489
 ;;21,"42254-0106-90 ")
 ;;490
 ;;21,"42254-0129-30 ")
 ;;1400
 ;;21,"42254-0129-90 ")
 ;;1401
 ;;21,"42254-0131-30 ")
 ;;1130
 ;;21,"42254-0131-90 ")
 ;;1131
 ;;21,"42254-0168-90 ")
 ;;1955
 ;;21,"42254-0202-30 ")
 ;;1037
 ;;21,"42254-0202-90 ")
 ;;1038
 ;;21,"42254-0225-30 ")
 ;;1767
 ;;21,"42254-0261-30 ")
 ;;132
 ;;21,"42254-0261-45 ")
 ;;133
 ;;21,"42254-0261-90 ")
 ;;134
 ;;21,"42254-0267-30 ")
 ;;337
 ;;21,"42254-0267-45 ")
 ;;338
 ;;21,"42254-0267-90 ")
 ;;339
 ;;21,"42254-0307-30 ")
 ;;32
 ;;21,"42254-0379-30 ")
 ;;219
 ;;21,"42254-0379-90 ")
 ;;220
 ;;21,"42254-0382-30 ")
 ;;130
 ;;21,"42254-0382-90 ")
 ;;131
 ;;21,"42254-0391-30 ")
 ;;35
 ;;21,"42254-0392-90 ")
 ;;334
 ;;21,"42254-0424-30 ")
 ;;928
 ;;21,"42254-0425-30 ")
 ;;1032
 ;;21,"42254-0425-90 ")
 ;;1033
 ;;21,"42254-0434-30 ")
 ;;1137
 ;;21,"42291-0143-10 ")
 ;;33
 ;;21,"42291-0143-90 ")
 ;;34
 ;;21,"42291-0144-10 ")
 ;;128
 ;;21,"42291-0144-90 ")
 ;;129
 ;;21,"42291-0145-50 ")
 ;;221
 ;;21,"42291-0145-90 ")
 ;;222
 ;;21,"42291-0146-50 ")
 ;;335
 ;;21,"42291-0146-90 ")
 ;;336
 ;;21,"42291-0375-90 ")
 ;;491
 ;;21,"42291-0376-90 ")
 ;;533
 ;;21,"42291-0377-10 ")
 ;;696
 ;;21,"42291-0377-90 ")
 ;;697
 ;;21,"42549-0490-90 ")
 ;;1202
 ;;21,"42549-0708-30 ")
 ;;929
 ;;21,"42549-0715-90 ")
 ;;1403
 ;;21,"42571-0005-90 ")
 ;;1251
 ;;21,"42571-0010-05 ")
 ;;1398
 ;;21,"42571-0010-90 ")
 ;;1399
 ;;21,"42571-0020-10 ")
 ;;1577
 ;;21,"42571-0020-90 ")
 ;;1578
 ;;21,"42571-0040-10 ")
 ;;1765
 ;;21,"42571-0040-90 ")
 ;;1766
 ;;21,"42571-0080-05 ")
 ;;1956
 ;;21,"42571-0080-90 ")
 ;;1957
 ;;21,"43063-0008-01 ")
 ;;1561
 ;;21,"43063-0080-30 ")
 ;;1940
 ;;21,"43063-0080-90 ")
 ;;1941