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

BGP13S5.m

Go to the documentation of this file.
BGP13S5 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"55289-0986-30 ")
 ;;841
 ;;21,"55289-0988-30 ")
 ;;429
 ;;21,"55289-0993-30 ")
 ;;430
 ;;21,"55289-0993-60 ")
 ;;431
 ;;21,"55289-0993-90 ")
 ;;432
 ;;21,"55887-0048-60 ")
 ;;731
 ;;21,"55887-0049-30 ")
 ;;732
 ;;21,"55887-0049-60 ")
 ;;733
 ;;21,"55887-0074-01 ")
 ;;1789
 ;;21,"55887-0074-30 ")
 ;;1790
 ;;21,"55887-0074-60 ")
 ;;1791
 ;;21,"55887-0074-90 ")
 ;;1792
 ;;21,"55887-0180-01 ")
 ;;1046
 ;;21,"55887-0180-30 ")
 ;;1047
 ;;21,"55887-0242-30 ")
 ;;2074
 ;;21,"55887-0259-30 ")
 ;;1048
 ;;21,"55887-0267-30 ")
 ;;603
 ;;21,"55887-0274-01 ")
 ;;1320
 ;;21,"55887-0274-30 ")
 ;;1321
 ;;21,"55887-0274-60 ")
 ;;1322
 ;;21,"55887-0274-90 ")
 ;;1323
 ;;21,"55887-0348-30 ")
 ;;1523
 ;;21,"55887-0349-20 ")
 ;;1524
 ;;21,"55887-0349-30 ")
 ;;1525
 ;;21,"55887-0349-90 ")
 ;;1526
 ;;21,"55887-0453-30 ")
 ;;1793
 ;;21,"55887-0453-60 ")
 ;;1794
 ;;21,"55887-0474-01 ")
 ;;1324
 ;;21,"55887-0474-30 ")
 ;;1325
 ;;21,"55887-0474-60 ")
 ;;1326
 ;;21,"55887-0474-90 ")
 ;;1327
 ;;21,"55887-0474-92 ")
 ;;1328
 ;;21,"55887-0559-01 ")
 ;;1795
 ;;21,"55887-0559-30 ")
 ;;1796
 ;;21,"55887-0559-60 ")
 ;;1797
 ;;21,"55887-0559-90 ")
 ;;1798
 ;;21,"55887-0575-60 ")
 ;;842
 ;;21,"55887-0585-01 ")
 ;;433
 ;;21,"55887-0585-30 ")
 ;;434
 ;;21,"55887-0585-60 ")
 ;;435
 ;;21,"55887-0585-82 ")
 ;;436
 ;;21,"55887-0585-90 ")
 ;;437
 ;;21,"55887-0599-30 ")
 ;;222
 ;;21,"55887-0599-60 ")
 ;;223
 ;;21,"55887-0599-90 ")
 ;;224
 ;;21,"55887-0613-30 ")
 ;;438
 ;;21,"55887-0613-60 ")
 ;;439
 ;;21,"55887-0613-82 ")
 ;;440
 ;;21,"55887-0625-01 ")
 ;;604
 ;;21,"55887-0625-30 ")
 ;;605
 ;;21,"55887-0625-60 ")
 ;;606
 ;;21,"55887-0625-90 ")
 ;;607
 ;;21,"55887-0729-30 ")
 ;;2203
 ;;21,"55887-0731-60 ")
 ;;843
 ;;21,"55887-0792-90 ")
 ;;608
 ;;21,"55887-0832-20 ")
 ;;1329
 ;;21,"55887-0832-30 ")
 ;;1330
 ;;21,"55887-0832-60 ")
 ;;1331
 ;;21,"55887-0838-01 ")
 ;;225
 ;;21,"55887-0838-30 ")
 ;;226
 ;;21,"55887-0838-60 ")
 ;;227
 ;;21,"55887-0838-90 ")
 ;;228
 ;;21,"55887-0998-30 ")
 ;;229
 ;;21,"55887-0998-60 ")
 ;;230
 ;;21,"55887-0998-90 ")
 ;;231
 ;;21,"55953-0961-40 ")
 ;;2146
 ;;21,"55953-0972-40 ")
 ;;2147
 ;;21,"55953-0984-40 ")
 ;;2148
 ;;21,"57664-0166-08 ")
 ;;1332
 ;;21,"57664-0166-18 ")
 ;;1333
 ;;21,"57664-0166-52 ")
 ;;1334
 ;;21,"57664-0166-58 ")
 ;;1335
 ;;21,"57664-0167-08 ")
 ;;1336
 ;;21,"57664-0167-18 ")
 ;;1337
 ;;21,"57664-0167-52 ")
 ;;1338
 ;;21,"57664-0167-58 ")
 ;;1339
 ;;21,"57664-0242-13 ")
 ;;734
 ;;21,"57664-0242-18 ")
 ;;735
 ;;21,"57664-0242-88 ")
 ;;736
 ;;21,"57664-0244-13 ")
 ;;737
 ;;21,"57664-0244-18 ")
 ;;738
 ;;21,"57664-0244-88 ")
 ;;739
 ;;21,"57664-0245-13 ")
 ;;740
 ;;21,"57664-0245-18 ")
 ;;741
 ;;21,"57664-0245-88 ")
 ;;742
 ;;21,"57664-0247-13 ")
 ;;743
 ;;21,"57664-0247-18 ")
 ;;744
 ;;21,"57664-0247-88 ")
 ;;745
 ;;21,"57664-0264-18 ")
 ;;232
 ;;21,"57664-0264-88 ")
 ;;233
 ;;21,"57664-0265-18 ")
 ;;234
 ;;21,"57664-0265-88 ")
 ;;235
 ;;21,"57664-0266-18 ")
 ;;236
 ;;21,"57664-0266-88 ")
 ;;237
 ;;21,"57664-0477-08 ")
 ;;1340
 ;;21,"57664-0477-18 ")
 ;;1341
 ;;21,"57664-0477-52 ")
 ;;1342
 ;;21,"57664-0477-58 ")
 ;;1343
 ;;21,"57664-0506-08 ")
 ;;1344
 ;;21,"57664-0506-18 ")
 ;;1345
 ;;21,"57664-0506-52 ")
 ;;1346
 ;;21,"57664-0506-58 ")
 ;;1347
 ;;21,"57866-3155-01 ")
 ;;1348
 ;;21,"57866-3330-01 ")
 ;;238
 ;;21,"57866-3330-03 ")
 ;;239
 ;;21,"57866-3331-01 ")
 ;;240
 ;;21,"57866-3331-02 ")
 ;;241
 ;;21,"57866-3331-03 ")
 ;;242
 ;;21,"57866-3332-01 ")
 ;;243
 ;;21,"57866-3332-03 ")
 ;;244
 ;;21,"57866-4309-01 ")
 ;;1799
 ;;21,"57866-4313-01 ")
 ;;1800
 ;;21,"57866-4314-01 ")
 ;;1801
 ;;21,"57866-4315-01 ")
 ;;1802
 ;;21,"57866-4316-01 ")
 ;;1803
 ;;21,"57866-4911-01 ")
 ;;1994
 ;;21,"57866-4912-01 ")
 ;;1995
 ;;21,"57866-4913-01 ")
 ;;1996
 ;;21,"57866-4914-01 ")
 ;;1997
 ;;21,"57866-6337-01 ")
 ;;1527
 ;;21,"57866-6338-01 ")
 ;;1528
 ;;21,"57866-6339-01 ")
 ;;1529
 ;;21,"57866-6578-01 ")
 ;;1349
 ;;21,"57866-6579-01 ")
 ;;1350
 ;;21,"57866-6622-01 ")
 ;;1049
 ;;21,"57866-6623-01 ")
 ;;1050
 ;;21,"57866-7068-01 ")
 ;;510
 ;;21,"57866-7068-02 ")
 ;;511
 ;;21,"57866-9032-01 ")
 ;;2075
 ;;21,"57866-9032-02 ")
 ;;2076
 ;;21,"57866-9032-03 ")
 ;;2077
 ;;21,"57866-9032-04 ")
 ;;2078
 ;;21,"57866-9033-01 ")
 ;;2079
 ;;21,"57866-9033-02 ")
 ;;2080
 ;;21,"57866-9033-03 ")
 ;;2081
 ;;21,"57866-9033-04 ")
 ;;2082
 ;;21,"57866-9034-01 ")
 ;;2083
 ;;21,"57866-9034-02 ")
 ;;2084
 ;;21,"57866-9034-03 ")
 ;;2085
 ;;21,"57866-9034-04 ")
 ;;2086
 ;;21,"58016-0001-00 ")
 ;;1804
 ;;21,"58016-0001-30 ")
 ;;1805
 ;;21,"58016-0001-60 ")
 ;;1806
 ;;21,"58016-0001-90 ")
 ;;1807
 ;;21,"58016-0045-00 ")
 ;;2204
 ;;21,"58016-0045-30 ")
 ;;2205
 ;;21,"58016-0045-60 ")
 ;;2206
 ;;21,"58016-0045-90 ")
 ;;2207
 ;;21,"58016-0188-00 ")
 ;;2087
 ;;21,"58016-0188-02 ")
 ;;2088
 ;;21,"58016-0188-30 ")
 ;;2089
 ;;21,"58016-0188-60 ")
 ;;2090
 ;;21,"58016-0188-90 ")
 ;;2091
 ;;21,"58016-0286-00 ")
 ;;609
 ;;21,"58016-0286-02 ")
 ;;610
 ;;21,"58016-0286-30 ")
 ;;611
 ;;21,"58016-0286-60 ")
 ;;612
 ;;21,"58016-0286-90 ")
 ;;613
 ;;21,"58016-0300-00 ")
 ;;7
 ;;21,"58016-0300-30 ")
 ;;8
 ;;21,"58016-0300-60 ")
 ;;9
 ;;21,"58016-0300-90 ")
 ;;10
 ;;21,"58016-0331-00 ")
 ;;441
 ;;21,"58016-0331-30 ")
 ;;442
 ;;21,"58016-0331-60 ")
 ;;443
 ;;21,"58016-0331-90 ")
 ;;444
 ;;21,"58016-0333-00 ")
 ;;245
 ;;21,"58016-0333-15 ")
 ;;246
 ;;21,"58016-0333-30 ")
 ;;247
 ;;21,"58016-0333-60 ")
 ;;248
 ;;21,"58016-0373-00 ")
 ;;2208
 ;;21,"58016-0373-02 ")
 ;;2209
 ;;21,"58016-0373-90 ")
 ;;2210
 ;;21,"58016-0442-00 ")
 ;;1351
 ;;21,"58016-0442-02 ")
 ;;1352
 ;;21,"58016-0442-30 ")
 ;;1353
 ;;21,"58016-0442-60 ")
 ;;1354
 ;;21,"58016-0442-90 ")
 ;;1355
 ;;21,"58016-0442-99 ")
 ;;1356
 ;;21,"58016-0526-00 ")
 ;;445
 ;;21,"58016-0526-02 ")
 ;;446
 ;;21,"58016-0526-30 ")
 ;;447
 ;;21,"58016-0526-60 ")
 ;;448
 ;;21,"58016-0526-90 ")
 ;;449
 ;;21,"58016-0528-00 ")
 ;;1808
 ;;21,"58016-0528-15 ")
 ;;1809
 ;;21,"58016-0528-30 ")
 ;;1810
 ;;21,"58016-0528-60 ")
 ;;1811
 ;;21,"58016-0529-00 ")
 ;;1812
 ;;21,"58016-0529-10 ")
 ;;1813
 ;;21,"58016-0529-15 ")
 ;;1814
 ;;21,"58016-0529-20 ")
 ;;1815
 ;;21,"58016-0529-30 ")
 ;;1816
 ;;21,"58016-0529-50 ")
 ;;1817
 ;;21,"58016-0531-00 ")
 ;;1818
 ;;21,"58016-0531-15 ")
 ;;1819
 ;;21,"58016-0531-30 ")
 ;;1820
 ;;21,"58016-0532-00 ")
 ;;1821
 ;;21,"58016-0532-02 ")
 ;;1822
 ;;21,"58016-0532-15 ")
 ;;1823
 ;;21,"58016-0532-30 ")
 ;;1824
 ;;21,"58016-0532-60 ")
 ;;1825
 ;;21,"58016-0582-00 ")
 ;;249
 ;;21,"58016-0582-15 ")
 ;;250
 ;;21,"58016-0582-20 ")
 ;;251
 ;;21,"58016-0582-30 ")
 ;;252
 ;;21,"58016-0582-60 ")
 ;;253
 ;;21,"58016-0604-00 ")
 ;;1998
 ;;21,"58016-0604-30 ")
 ;;1999
 ;;21,"58016-0604-60 ")
 ;;2000
 ;;21,"58016-0604-90 ")
 ;;2001
 ;;21,"58016-0771-00 ")
 ;;254
 ;;21,"58016-0771-12 ")
 ;;255
 ;;21,"58016-0771-15 ")
 ;;256
 ;;21,"58016-0771-20 ")
 ;;257
 ;;21,"58016-0771-30 ")
 ;;258
 ;;21,"58016-0771-60 ")
 ;;259
 ;;21,"58016-0859-00 ")
 ;;954
 ;;21,"58016-0859-30 ")
 ;;955
 ;;21,"58016-0859-60 ")
 ;;956
 ;;21,"58016-0859-90 ")
 ;;957
 ;;21,"58016-0974-00 ")
 ;;2211
 ;;21,"58016-0974-30 ")
 ;;2212
 ;;21,"58016-0974-60 ")
 ;;2213
 ;;21,"58016-0974-90 ")
 ;;2214
 ;;21,"58177-0293-04 ")
 ;;1130
 ;;21,"58177-0293-09 ")
 ;;1131
 ;;21,"58177-0293-11 ")
 ;;1132
 ;;21,"58177-0358-04 ")
 ;;1133
 ;;21,"58177-0358-09 ")
 ;;1134
 ;;21,"58177-0368-04 ")
 ;;1135
 ;;21,"58177-0368-09 ")
 ;;1136
 ;;21,"58177-0368-11 ")
 ;;1137
 ;;21,"58177-0369-04 ")
 ;;1138
 ;;21,"58177-0369-09 ")
 ;;1139
 ;;21,"58177-0369-11 ")
 ;;1140
 ;;21,"58864-0016-01 ")
 ;;1357
 ;;21,"58864-0016-28 ")
 ;;1358
 ;;21,"58864-0016-30 ")
 ;;1359
 ;;21,"58864-0016-60 ")
 ;;1360
 ;;21,"58864-0065-01 ")
 ;;260
 ;;21,"58864-0065-30 ")
 ;;261
 ;;21,"58864-0363-30 ")
 ;;1826
 ;;21,"58864-0431-60 ")
 ;;1827
 ;;21,"58864-0645-56 ")
 ;;1828
 ;;21,"58864-0680-30 ")
 ;;1829
 ;;21,"58864-0695-30 ")
 ;;1361
 ;;21,"58864-0717-30 ")
 ;;262
 ;;21,"58864-0727-30 ")
 ;;844
 ;;21,"58864-0737-30 ")
 ;;845
 ;;21,"58864-0749-30 ")
 ;;263
 ;;21,"58864-0749-90 ")
 ;;264
 ;;21,"58864-0759-30 ")
 ;;2215
 ;;21,"58864-0765-30 ")
 ;;2216
 ;;21,"58864-0784-30 ")
 ;;614
 ;;21,"59591-0007-68 ")
 ;;265
 ;;21,"59591-0194-68 ")
 ;;2149
 ;;21,"59591-0263-68 ")
 ;;266
 ;;21,"59591-0265-68 ")
 ;;267
 ;;21,"59762-1258-01 ")
 ;;512
 ;;21,"59762-1258-02 ")
 ;;513
 ;;21,"59762-1261-01 ")
 ;;514
 ;;21,"59762-1261-02 ")
 ;;515
 ;;21,"59762-1300-01 ")
 ;;1362
 ;;21,"59762-1300-03 ")
 ;;1363
 ;;21,"59762-1301-01 ")
 ;;1364
 ;;21,"59762-1301-03 ")
 ;;1365
 ;;21,"59762-1302-01 ")
 ;;1366
 ;;21,"59762-1302-03 ")
 ;;1367
 ;;21,"59772-2461-01 ")
 ;;1530
 ;;21,"59772-2462-01 ")
 ;;1531
 ;;21,"59772-2462-03 ")
 ;;1532
 ;;21,"59772-2463-03 ")
 ;;1533
 ;;21,"59772-2464-01 ")
 ;;1534
 ;;21,"59772-3692-20 ")
 ;;1368
 ;;21,"59772-3693-05 ")
 ;;1369
 ;;21,"59772-8804-10 ")
 ;;1577
 ;;21,"59772-8805-10 ")
 ;;1578
 ;;21,"59911-5470-02 ")
 ;;2002
 ;;21,"59911-5471-02 ")
 ;;2003
 ;;21,"59911-5473-01 ")
 ;;2004
 ;;21,"59911-5473-02 ")
 ;;2005
 ;;21,"60346-0523-06 ")
 ;;1370
 ;;21,"60429-0748-01 ")
 ;;2092
 ;;21,"60429-0749-01 ")
 ;;2093
 ;;21,"60429-0750-01 ")
 ;;2094
 ;;21,"60429-0751-01 ")
 ;;2095
 ;;21,"60429-0753-01 ")
 ;;484
 ;;21,"60429-0754-01 ")
 ;;485
 ;;21,"60429-0948-01 ")
 ;;2096
 ;;21,"60429-0949-01 ")
 ;;2097
 ;;21,"60429-0950-01 ")
 ;;2098
 ;;21,"60429-0951-01 ")
 ;;2099
 ;;21,"60505-0080-00 ")
 ;;2100
 ;;21,"60505-0081-00 ")
 ;;2101
 ;;21,"60505-0082-00 ")
 ;;2102
 ;;21,"60505-0159-00 ")
 ;;2103
 ;;21,"60505-0222-01 ")
 ;;2121
 ;;21,"60505-0223-01 ")
 ;;2122
 ;;21,"60505-0224-01 ")
 ;;2123
 ;;21,"60505-2606-01 ")
 ;;746
 ;;21,"60505-2606-08 ")
 ;;747
 ;;21,"60505-2607-01 ")
 ;;748
 ;;21,"60505-2607-08 ")
 ;;749
 ;;21,"60505-2608-01 ")
 ;;750
 ;;21,"60505-2608-08 ")
 ;;751
 ;;21,"60505-2609-01 ")
 ;;752
 ;;21,"60505-2609-08 ")
 ;;753
 ;;21,"60793-0283-01 ")
 ;;889
 ;;21,"60793-0284-01 ")
 ;;894
 ;;21,"60793-0800-01 ")
 ;;881
 ;;21,"60793-0801-01 ")
 ;;882
 ;;21,"60793-0802-01 ")
 ;;883
 ;;21,"60814-0710-01 ")
 ;;268
 ;;21,"60814-0710-10 ")
 ;;269
 ;;21,"60814-0711-01 ")
 ;;270
 ;;21,"60814-0711-10 ")
 ;;271
 ;;21,"60951-0782-70 ")
 ;;2150
 ;;21,"60951-0783-70 ")
 ;;2151
 ;;21,"60976-0346-43 ")
 ;;2226
 ;;21,"60976-0346-44 ")
 ;;2227
 ;;21,"60976-0346-47 ")
 ;;2228
 ;;21,"60976-0347-43 ")
 ;;2229
 ;;21,"60976-0347-44 ")
 ;;2230
 ;;21,"60976-0347-47 ")
 ;;2231
 ;;21,"61392-0018-30 ")
 ;;1579
 ;;21,"61392-0018-31 ")
 ;;1580
 ;;21,"61392-0018-32 ")
 ;;1581
 ;;21,"61392-0018-39 ")
 ;;1582
 ;;21,"61392-0018-45 ")
 ;;1583
 ;;21,"61392-0018-51 ")
 ;;1584
 ;;21,"61392-0018-54 ")
 ;;1585
 ;;21,"61392-0018-56 ")
 ;;1586
 ;;21,"61392-0018-60 ")
 ;;1587
 ;;21,"61392-0018-90 ")
 ;;1588
 ;;21,"61392-0018-91 ")
 ;;1589
 ;;21,"61392-0069-30 ")
 ;;1535
 ;;21,"61392-0069-31 ")
 ;;1536
 ;;21,"61392-0069-32 ")
 ;;1537
 ;;21,"61392-0069-39 ")
 ;;1538
 ;;21,"61392-0069-45 ")
 ;;1539
 ;;21,"61392-0069-51 ")
 ;;1540
 ;;21,"61392-0069-54 ")
 ;;1541
 ;;21,"61392-0069-60 ")
 ;;1542
 ;;21,"61392-0069-90 ")
 ;;1543
 ;;21,"61392-0069-91 ")
 ;;1544
 ;;21,"61392-0280-30 ")
 ;;1371
 ;;21,"61392-0280-31 ")
 ;;1372
 ;;21,"61392-0280-32 ")
 ;;1373
 ;;21,"61392-0280-39 ")
 ;;1374
 ;;21,"61392-0280-45 ")
 ;;1375
 ;;21,"61392-0280-51 ")
 ;;1376
 ;;21,"61392-0280-54 ")
 ;;1377
 ;;21,"61392-0280-56 ")
 ;;1378
 ;;21,"61392-0280-60 ")
 ;;1379
 ;;21,"61392-0280-90 ")
 ;;1380
 ;;21,"61392-0280-91 ")
 ;;1381
 ;;21,"61392-0286-30 ")
 ;;1382
 ;;21,"61392-0286-31 ")
 ;;1383
 ;;21,"61392-0286-32 ")
 ;;1384
 ;;21,"61392-0286-39 ")
 ;;1385
 ;;21,"61392-0286-45 ")
 ;;1386
 ;;21,"61392-0286-51 ")
 ;;1387