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

BGP13O3.m

Go to the documentation of this file.
BGP13O3 ; 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,"52959-0167-12 ")
 ;;1200
 ;;21,"52959-0167-15 ")
 ;;1201
 ;;21,"52959-0167-20 ")
 ;;1202
 ;;21,"52959-0167-21 ")
 ;;1203
 ;;21,"52959-0167-24 ")
 ;;1204
 ;;21,"52959-0167-30 ")
 ;;1205
 ;;21,"52959-0167-40 ")
 ;;1206
 ;;21,"52959-0167-60 ")
 ;;1207
 ;;21,"52959-0167-90 ")
 ;;1208
 ;;21,"52959-0454-02 ")
 ;;69
 ;;21,"52959-0454-14 ")
 ;;70
 ;;21,"52959-0454-60 ")
 ;;71
 ;;21,"52959-0527-10 ")
 ;;1504
 ;;21,"52959-0527-14 ")
 ;;1505
 ;;21,"52959-0527-15 ")
 ;;1506
 ;;21,"52959-0527-20 ")
 ;;1507
 ;;21,"52959-0527-30 ")
 ;;1508
 ;;21,"52959-0527-42 ")
 ;;1509
 ;;21,"52959-0527-60 ")
 ;;1510
 ;;21,"52959-0528-90 ")
 ;;1511
 ;;21,"52959-0673-60 ")
 ;;32
 ;;21,"52959-0709-00 ")
 ;;1658
 ;;21,"52959-0709-02 ")
 ;;1659
 ;;21,"52959-0709-14 ")
 ;;1660
 ;;21,"52959-0709-15 ")
 ;;1661
 ;;21,"52959-0709-18 ")
 ;;1662
 ;;21,"52959-0709-20 ")
 ;;1663
 ;;21,"52959-0709-21 ")
 ;;1664
 ;;21,"52959-0709-28 ")
 ;;1665
 ;;21,"52959-0709-30 ")
 ;;1666
 ;;21,"52959-0709-40 ")
 ;;1667
 ;;21,"52959-0709-42 ")
 ;;1668
 ;;21,"52959-0709-45 ")
 ;;1669
 ;;21,"52959-0709-50 ")
 ;;1670
 ;;21,"52959-0709-56 ")
 ;;1671
 ;;21,"52959-0709-60 ")
 ;;1672
 ;;21,"52959-0709-90 ")
 ;;1673
 ;;21,"52959-0846-00 ")
 ;;742
 ;;21,"52959-0846-10 ")
 ;;743
 ;;21,"52959-0846-15 ")
 ;;744
 ;;21,"52959-0846-20 ")
 ;;745
 ;;21,"52959-0846-30 ")
 ;;746
 ;;21,"52959-0846-42 ")
 ;;747
 ;;21,"52959-0846-60 ")
 ;;748
 ;;21,"52959-0846-90 ")
 ;;749
 ;;21,"52959-0868-00 ")
 ;;39
 ;;21,"52959-0868-60 ")
 ;;40
 ;;21,"52959-0868-90 ")
 ;;41
 ;;21,"53489-0110-01 ")
 ;;196
 ;;21,"53489-0110-05 ")
 ;;197
 ;;21,"53489-0110-10 ")
 ;;198
 ;;21,"53489-0590-01 ")
 ;;750
 ;;21,"53489-0591-01 ")
 ;;751
 ;;21,"53489-0591-05 ")
 ;;752
 ;;21,"53489-0591-10 ")
 ;;753
 ;;21,"54348-0109-20 ")
 ;;1209
 ;;21,"54569-0834-05 ")
 ;;1767
 ;;21,"54569-0835-00 ")
 ;;1003
 ;;21,"54569-0835-02 ")
 ;;1004
 ;;21,"54569-0835-08 ")
 ;;1005
 ;;21,"54569-0838-00 ")
 ;;1512
 ;;21,"54569-0838-01 ")
 ;;1513
 ;;21,"54569-0838-02 ")
 ;;1514
 ;;21,"54569-0838-03 ")
 ;;1515
 ;;21,"54569-0838-06 ")
 ;;1516
 ;;21,"54569-0843-00 ")
 ;;1210
 ;;21,"54569-0843-01 ")
 ;;1211
 ;;21,"54569-0843-02 ")
 ;;1212
 ;;21,"54569-0843-03 ")
 ;;1213
 ;;21,"54569-0843-04 ")
 ;;1214
 ;;21,"54569-0843-06 ")
 ;;1215
 ;;21,"54569-0843-07 ")
 ;;1216
 ;;21,"54569-0852-00 ")
 ;;1217
 ;;21,"54569-0852-01 ")
 ;;1218
 ;;21,"54569-0852-03 ")
 ;;1219
 ;;21,"54569-0852-04 ")
 ;;1220
 ;;21,"54569-0852-05 ")
 ;;1221
 ;;21,"54569-0852-06 ")
 ;;1222
 ;;21,"54569-0852-07 ")
 ;;1223
 ;;21,"54569-0852-09 ")
 ;;1224
 ;;21,"54569-1506-03 ")
 ;;1589
 ;;21,"54569-1709-00 ")
 ;;199
 ;;21,"54569-1709-01 ")
 ;;200
 ;;21,"54569-1709-02 ")
 ;;201
 ;;21,"54569-1709-03 ")
 ;;202
 ;;21,"54569-1709-04 ")
 ;;203
 ;;21,"54569-1709-05 ")
 ;;204
 ;;21,"54569-1709-07 ")
 ;;205
 ;;21,"54569-1709-08 ")
 ;;206
 ;;21,"54569-1970-00 ")
 ;;468
 ;;21,"54569-1970-01 ")
 ;;469
 ;;21,"54569-1970-02 ")
 ;;470
 ;;21,"54569-1970-04 ")
 ;;471
 ;;21,"54569-1970-05 ")
 ;;472
 ;;21,"54569-1970-06 ")
 ;;473
 ;;21,"54569-1970-09 ")
 ;;474
 ;;21,"54569-2562-02 ")
 ;;72
 ;;21,"54569-2562-03 ")
 ;;73
 ;;21,"54569-2573-00 ")
 ;;754
 ;;21,"54569-2573-01 ")
 ;;755
 ;;21,"54569-2573-02 ")
 ;;756
 ;;21,"54569-2573-03 ")
 ;;757
 ;;21,"54569-2573-04 ")
 ;;758
 ;;21,"54569-2573-06 ")
 ;;759
 ;;21,"54569-2573-07 ")
 ;;760
 ;;21,"54569-2573-08 ")
 ;;761
 ;;21,"54569-2573-09 ")
 ;;762
 ;;21,"54569-3193-00 ")
 ;;763
 ;;21,"54569-3193-01 ")
 ;;764
 ;;21,"54569-3193-05 ")
 ;;765
 ;;21,"54569-3193-07 ")
 ;;766
 ;;21,"54569-3193-08 ")
 ;;767
 ;;21,"54569-3193-09 ")
 ;;768
 ;;21,"54569-3403-00 ")
 ;;207
 ;;21,"54569-3403-01 ")
 ;;208
 ;;21,"54569-3403-04 ")
 ;;209
 ;;21,"54569-3403-05 ")
 ;;210
 ;;21,"54569-3403-06 ")
 ;;211
 ;;21,"54569-3403-07 ")
 ;;212
 ;;21,"54569-4008-00 ")
 ;;1006
 ;;21,"54569-4008-01 ")
 ;;1007
 ;;21,"54569-4048-04 ")
 ;;1225
 ;;21,"54569-4614-00 ")
 ;;1226
 ;;21,"54569-4614-02 ")
 ;;1227
 ;;21,"54569-5184-00 ")
 ;;769
 ;;21,"54569-5477-00 ")
 ;;1674
 ;;21,"54569-5477-01 ")
 ;;1675
 ;;21,"54569-5477-02 ")
 ;;1676
 ;;21,"54569-5477-05 ")
 ;;1677
 ;;21,"54569-5477-06 ")
 ;;1678
 ;;21,"54569-5538-00 ")
 ;;1008
 ;;21,"54569-5782-00 ")
 ;;770
 ;;21,"54569-5966-00 ")
 ;;1228
 ;;21,"54868-0020-00 ")
 ;;1768
 ;;21,"54868-0020-01 ")
 ;;1769
 ;;21,"54868-0020-02 ")
 ;;1770
 ;;21,"54868-0318-00 ")
 ;;1009
 ;;21,"54868-0318-01 ")
 ;;1010
 ;;21,"54868-0318-02 ")
 ;;1011
 ;;21,"54868-0318-03 ")
 ;;1012
 ;;21,"54868-0318-04 ")
 ;;1013
 ;;21,"54868-0586-01 ")
 ;;1229
 ;;21,"54868-0586-02 ")
 ;;1230
 ;;21,"54868-0586-03 ")
 ;;1231
 ;;21,"54868-0586-05 ")
 ;;1232
 ;;21,"54868-0586-06 ")
 ;;1233
 ;;21,"54868-0586-07 ")
 ;;1234
 ;;21,"54868-0604-00 ")
 ;;1594
 ;;21,"54868-0735-00 ")
 ;;475
 ;;21,"54868-0735-01 ")
 ;;476
 ;;21,"54868-0735-02 ")
 ;;477
 ;;21,"54868-0735-03 ")
 ;;478
 ;;21,"54868-0735-04 ")
 ;;479
 ;;21,"54868-0735-05 ")
 ;;480
 ;;21,"54868-0735-07 ")
 ;;481
 ;;21,"54868-0735-08 ")
 ;;482
 ;;21,"54868-0735-09 ")
 ;;483
 ;;21,"54868-0816-01 ")
 ;;213
 ;;21,"54868-0816-02 ")
 ;;214
 ;;21,"54868-0816-03 ")
 ;;215
 ;;21,"54868-0816-04 ")
 ;;216
 ;;21,"54868-0816-05 ")
 ;;217
 ;;21,"54868-0816-06 ")
 ;;218
 ;;21,"54868-0816-07 ")
 ;;219
 ;;21,"54868-1017-00 ")
 ;;1590
 ;;21,"54868-1101-00 ")
 ;;1458
 ;;21,"54868-1103-00 ")
 ;;1235
 ;;21,"54868-1103-03 ")
 ;;1236
 ;;21,"54868-1103-06 ")
 ;;1237
 ;;21,"54868-1103-07 ")
 ;;1238
 ;;21,"54868-1103-08 ")
 ;;1239
 ;;21,"54868-1103-09 ")
 ;;1240
 ;;21,"54868-1110-00 ")
 ;;771
 ;;21,"54868-1110-02 ")
 ;;772
 ;;21,"54868-1110-03 ")
 ;;773
 ;;21,"54868-1110-05 ")
 ;;774
 ;;21,"54868-1110-08 ")
 ;;775
 ;;21,"54868-1110-09 ")
 ;;776
 ;;21,"54868-1826-01 ")
 ;;406
 ;;21,"54868-2956-00 ")
 ;;1679
 ;;21,"54868-2956-01 ")
 ;;1680
 ;;21,"54868-4102-00 ")
 ;;1517
 ;;21,"54868-4102-01 ")
 ;;1518
 ;;21,"54868-4102-02 ")
 ;;1519
 ;;21,"54868-4102-03 ")
 ;;1520
 ;;21,"54868-4102-04 ")
 ;;1521
 ;;21,"54868-4102-05 ")
 ;;1522
 ;;21,"54868-4733-00 ")
 ;;1681
 ;;21,"54868-4733-01 ")
 ;;1682
 ;;21,"54868-4733-02 ")
 ;;1683
 ;;21,"54868-4733-03 ")
 ;;1684
 ;;21,"54868-4733-04 ")
 ;;1685
 ;;21,"54868-4733-05 ")
 ;;1686
 ;;21,"54868-4733-06 ")
 ;;1687
 ;;21,"54868-4733-07 ")
 ;;1688
 ;;21,"54868-5375-00 ")
 ;;1014
 ;;21,"54868-5375-01 ")
 ;;1015
 ;;21,"54868-5597-00 ")
 ;;777
 ;;21,"54868-6022-00 ")
 ;;13
 ;;21,"55045-1325-00 ")
 ;;1523
 ;;21,"55045-1325-01 ")
 ;;1524
 ;;21,"55045-1325-02 ")
 ;;1525
 ;;21,"55045-1325-03 ")
 ;;1526
 ;;21,"55045-1325-05 ")
 ;;1527
 ;;21,"55045-1325-07 ")
 ;;1528
 ;;21,"55045-1325-08 ")
 ;;1529
 ;;21,"55045-1325-09 ")
 ;;1530
 ;;21,"55045-1386-00 ")
 ;;1241
 ;;21,"55045-1386-01 ")
 ;;1242
 ;;21,"55045-1386-02 ")
 ;;1243
 ;;21,"55045-1386-03 ")
 ;;1244
 ;;21,"55045-1386-04 ")
 ;;1245
 ;;21,"55045-1386-05 ")
 ;;1246
 ;;21,"55045-1386-06 ")
 ;;1247
 ;;21,"55045-1386-07 ")
 ;;1248
 ;;21,"55045-1386-08 ")
 ;;1249
 ;;21,"55045-1386-09 ")
 ;;1250
 ;;21,"55045-1433-00 ")
 ;;220
 ;;21,"55045-1433-01 ")
 ;;221
 ;;21,"55045-1433-02 ")
 ;;222
 ;;21,"55045-1433-03 ")
 ;;223
 ;;21,"55045-1433-04 ")
 ;;224
 ;;21,"55045-1433-05 ")
 ;;225
 ;;21,"55045-1433-06 ")
 ;;226
 ;;21,"55045-1433-07 ")
 ;;227
 ;;21,"55045-1433-08 ")
 ;;228
 ;;21,"55045-1433-09 ")
 ;;229
 ;;21,"55045-1531-00 ")
 ;;1251
 ;;21,"55045-1531-01 ")
 ;;1252
 ;;21,"55045-1531-02 ")
 ;;1253
 ;;21,"55045-1531-03 ")
 ;;1254
 ;;21,"55045-1531-04 ")
 ;;1255
 ;;21,"55045-1531-06 ")
 ;;1256
 ;;21,"55045-1531-08 ")
 ;;1257
 ;;21,"55045-1531-09 ")
 ;;1258
 ;;21,"55045-1566-00 ")
 ;;778
 ;;21,"55045-1566-01 ")
 ;;779
 ;;21,"55045-1566-02 ")
 ;;780
 ;;21,"55045-1566-03 ")
 ;;781
 ;;21,"55045-1566-04 ")
 ;;782
 ;;21,"55045-1566-05 ")
 ;;783
 ;;21,"55045-1566-06 ")
 ;;784
 ;;21,"55045-1566-07 ")
 ;;785
 ;;21,"55045-1566-08 ")
 ;;786
 ;;21,"55045-1566-09 ")
 ;;787
 ;;21,"55045-1594-00 ")
 ;;484
 ;;21,"55045-2777-06 ")
 ;;33
 ;;21,"55045-2972-00 ")
 ;;1689
 ;;21,"55045-2972-04 ")
 ;;1690
 ;;21,"55045-2972-05 ")
 ;;1691
 ;;21,"55045-2972-06 ")
 ;;1692
 ;;21,"55045-2972-07 ")
 ;;1693
 ;;21,"55045-2972-08 ")
 ;;1694
 ;;21,"55045-3058-01 ")
 ;;788
 ;;21,"55045-3058-04 ")
 ;;789
 ;;21,"55045-3058-05 ")
 ;;790
 ;;21,"55045-3058-06 ")
 ;;791
 ;;21,"55045-3058-09 ")
 ;;792
 ;;21,"55045-3123-06 ")
 ;;230
 ;;21,"55045-3123-09 ")
 ;;231
 ;;21,"55045-3229-01 ")
 ;;1259
 ;;21,"55045-3229-08 ")
 ;;1260
 ;;21,"55045-3487-01 ")
 ;;793
 ;;21,"55045-3717-01 ")
 ;;794
 ;;21,"55045-3718-04 ")
 ;;1261
 ;;21,"55289-0017-20 ")
 ;;1603
 ;;21,"55289-0017-40 ")
 ;;1604
 ;;21,"55289-0049-01 ")
 ;;232
 ;;21,"55289-0049-10 ")
 ;;233
 ;;21,"55289-0049-14 ")
 ;;234
 ;;21,"55289-0049-15 ")
 ;;235
 ;;21,"55289-0049-20 ")
 ;;236
 ;;21,"55289-0049-21 ")
 ;;237
 ;;21,"55289-0049-24 ")
 ;;238
 ;;21,"55289-0049-30 ")
 ;;239
 ;;21,"55289-0049-40 ")
 ;;240
 ;;21,"55289-0049-60 ")
 ;;241
 ;;21,"55289-0049-90 ")
 ;;242
 ;;21,"55289-0049-98 ")
 ;;243
 ;;21,"55289-0115-15 ")
 ;;1016
 ;;21,"55289-0115-20 ")
 ;;1017
 ;;21,"55289-0115-21 ")
 ;;1018
 ;;21,"55289-0115-30 ")
 ;;1019
 ;;21,"55289-0164-01 ")
 ;;1262
 ;;21,"55289-0164-10 ")
 ;;1263
 ;;21,"55289-0164-15 ")
 ;;1264
 ;;21,"55289-0164-20 ")
 ;;1265
 ;;21,"55289-0164-28 ")
 ;;1266
 ;;21,"55289-0164-30 ")
 ;;1267
 ;;21,"55289-0164-40 ")
 ;;1268
 ;;21,"55289-0164-60 ")
 ;;1269
 ;;21,"55289-0164-90 ")
 ;;1270
 ;;21,"55289-0164-93 ")
 ;;1271
 ;;21,"55289-0236-10 ")
 ;;795
 ;;21,"55289-0236-14 ")
 ;;796
 ;;21,"55289-0236-30 ")
 ;;797
 ;;21,"55289-0376-20 ")
 ;;485
 ;;21,"55289-0376-40 ")
 ;;486
 ;;21,"55289-0472-20 ")
 ;;1781
 ;;21,"55289-0567-10 ")
 ;;798
 ;;21,"55289-0567-12 ")
 ;;799
 ;;21,"55289-0567-14 ")
 ;;800
 ;;21,"55289-0567-15 ")
 ;;801
 ;;21,"55289-0567-17 ")
 ;;802
 ;;21,"55289-0567-18 ")
 ;;803
 ;;21,"55289-0567-20 ")
 ;;804
 ;;21,"55289-0567-21 ")
 ;;805
 ;;21,"55289-0567-30 ")
 ;;806
 ;;21,"55289-0567-42 ")
 ;;807
 ;;21,"55289-0567-60 ")
 ;;808
 ;;21,"55289-0567-90 ")
 ;;809
 ;;21,"55289-0578-20 ")
 ;;1771
 ;;21,"55289-0578-40 ")
 ;;1772
 ;;21,"55289-0633-08 ")
 ;;487
 ;;21,"55289-0633-10 ")
 ;;488
 ;;21,"55289-0633-17 ")
 ;;489
 ;;21,"55289-0633-20 ")
 ;;490
 ;;21,"55289-0633-24 ")
 ;;491
 ;;21,"55289-0633-28 ")
 ;;492
 ;;21,"55289-0633-30 ")
 ;;493
 ;;21,"55289-0633-40 ")
 ;;494
 ;;21,"55289-0633-97 ")
 ;;495
 ;;21,"55289-0670-01 ")
 ;;1272
 ;;21,"55289-0670-10 ")
 ;;1273
 ;;21,"55289-0670-12 ")
 ;;1274
 ;;21,"55289-0670-14 ")
 ;;1275
 ;;21,"55289-0670-20 ")
 ;;1276
 ;;21,"55289-0670-24 ")
 ;;1277
 ;;21,"55289-0670-28 ")
 ;;1278
 ;;21,"55289-0670-30 ")
 ;;1279
 ;;21,"55289-0670-40 ")
 ;;1280
 ;;21,"55289-0670-60 ")
 ;;1281
 ;;21,"55289-0670-90 ")
 ;;1282
 ;;21,"55289-0670-93 ")
 ;;1283
 ;;21,"55289-0695-28 ")
 ;;74
 ;;21,"55289-0695-40 ")
 ;;75
 ;;21,"55289-0736-10 ")
 ;;1695
 ;;21,"55289-0736-15 ")
 ;;1696
 ;;21,"55289-0736-20 ")
 ;;1697
 ;;21,"55289-0736-21 ")
 ;;1698
 ;;21,"55289-0736-30 ")
 ;;1699
 ;;21,"55289-0745-10 ")
 ;;1020
 ;;21,"55289-0745-20 ")
 ;;1021
 ;;21,"55289-0877-14 ")
 ;;1531
 ;;21,"55289-0877-20 ")
 ;;1532
 ;;21,"55289-0877-30 ")
 ;;1533
 ;;21,"55289-0888-24 ")
 ;;1591
 ;;21,"55887-0435-30 ")
 ;;1022
 ;;21,"55887-0631-07 ")
 ;;1700
 ;;21,"55887-0631-12 ")
 ;;1701
 ;;21,"55887-0631-15 ")
 ;;1702
 ;;21,"55887-0631-20 ")
 ;;1703
 ;;21,"55887-0631-30 ")
 ;;1704
 ;;21,"55887-0631-40 ")
 ;;1705
 ;;21,"55887-0631-60 ")
 ;;1706
 ;;21,"55887-0631-90 ")
 ;;1707
 ;;21,"55887-0670-15 ")
 ;;1534
 ;;21,"55887-0670-20 ")
 ;;1535
 ;;21,"55887-0670-30 ")
 ;;1536
 ;;21,"55887-0670-60 ")
 ;;1537
 ;;21,"55887-0670-90 ")
 ;;1538
 ;;21,"55887-0799-28 ")
 ;;496
 ;;21,"55887-0799-30 ")
 ;;497
 ;;21,"55887-0799-60 ")
 ;;498