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

BGP7LXLD.m

Go to the documentation of this file.
BGP7LXLD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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-0316-60 ")
 ;;1047
 ;;21,"55289-0376-20 ")
 ;;607
 ;;21,"55289-0376-40 ")
 ;;608
 ;;21,"55289-0496-30 ")
 ;;1699
 ;;21,"55289-0567-10 ")
 ;;139
 ;;21,"55289-0567-12 ")
 ;;140
 ;;21,"55289-0567-14 ")
 ;;141
 ;;21,"55289-0567-15 ")
 ;;142
 ;;21,"55289-0567-17 ")
 ;;143
 ;;21,"55289-0567-18 ")
 ;;144
 ;;21,"55289-0567-20 ")
 ;;145
 ;;21,"55289-0567-21 ")
 ;;146
 ;;21,"55289-0567-30 ")
 ;;147
 ;;21,"55289-0567-42 ")
 ;;148
 ;;21,"55289-0567-60 ")
 ;;149
 ;;21,"55289-0567-90 ")
 ;;150
 ;;21,"55289-0578-20 ")
 ;;356
 ;;21,"55289-0578-40 ")
 ;;357
 ;;21,"55289-0633-08 ")
 ;;545
 ;;21,"55289-0633-10 ")
 ;;546
 ;;21,"55289-0633-17 ")
 ;;547
 ;;21,"55289-0633-20 ")
 ;;548
 ;;21,"55289-0633-24 ")
 ;;549
 ;;21,"55289-0633-28 ")
 ;;550
 ;;21,"55289-0633-30 ")
 ;;551
 ;;21,"55289-0633-40 ")
 ;;552
 ;;21,"55289-0633-97 ")
 ;;553
 ;;21,"55289-0646-14 ")
 ;;981
 ;;21,"55289-0646-15 ")
 ;;982
 ;;21,"55289-0646-20 ")
 ;;983
 ;;21,"55289-0670-01 ")
 ;;704
 ;;21,"55289-0670-10 ")
 ;;705
 ;;21,"55289-0670-14 ")
 ;;706
 ;;21,"55289-0670-20 ")
 ;;707
 ;;21,"55289-0670-28 ")
 ;;708
 ;;21,"55289-0670-40 ")
 ;;709
 ;;21,"55289-0695-28 ")
 ;;1211
 ;;21,"55289-0695-40 ")
 ;;1212
 ;;21,"55289-0736-10 ")
 ;;1405
 ;;21,"55289-0736-20 ")
 ;;1406
 ;;21,"55289-0736-30 ")
 ;;1407
 ;;21,"55289-0745-10 ")
 ;;1408
 ;;21,"55289-0846-20 ")
 ;;1213
 ;;21,"55289-0877-14 ")
 ;;1269
 ;;21,"55289-0888-24 ")
 ;;554
 ;;21,"55370-0801-08 ")
 ;;555
 ;;21,"55390-0059-10 ")
 ;;929
 ;;21,"55553-0129-10 ")
 ;;930
 ;;21,"55829-0372-10 ")
 ;;710
 ;;21,"55887-0435-15 ")
 ;;1409
 ;;21,"55887-0435-20 ")
 ;;1410
 ;;21,"55887-0435-30 ")
 ;;1411
 ;;21,"55887-0435-60 ")
 ;;1412
 ;;21,"55887-0435-82 ")
 ;;1809
 ;;21,"55887-0435-90 ")
 ;;1413
 ;;21,"55887-0631-20 ")
 ;;1414
 ;;21,"55887-0631-30 ")
 ;;1415
 ;;21,"55887-0631-60 ")
 ;;1416
 ;;21,"55887-0631-82 ")
 ;;1417
 ;;21,"55887-0631-90 ")
 ;;1418
 ;;21,"55887-0670-12 ")
 ;;1270
 ;;21,"55887-0670-14 ")
 ;;1271
 ;;21,"55887-0670-15 ")
 ;;1272
 ;;21,"55887-0670-20 ")
 ;;1273
 ;;21,"55887-0670-28 ")
 ;;1274
 ;;21,"55887-0670-30 ")
 ;;1275
 ;;21,"55887-0670-60 ")
 ;;1276
 ;;21,"55887-0670-82 ")
 ;;1277
 ;;21,"55887-0670-90 ")
 ;;1278
 ;;21,"55887-0860-20 ")
 ;;859
 ;;21,"55887-0860-28 ")
 ;;860
 ;;21,"55887-0860-30 ")
 ;;861
 ;;21,"55887-0890-10 ")
 ;;1279
 ;;21,"55887-0890-15 ")
 ;;1280
 ;;21,"55887-0890-20 ")
 ;;1281
 ;;21,"55887-0890-30 ")
 ;;1282
 ;;21,"55887-0890-40 ")
 ;;1283
 ;;21,"55887-0890-60 ")
 ;;1284
 ;;21,"55887-0907-14 ")
 ;;1810
 ;;21,"55887-0907-20 ")
 ;;1811
 ;;21,"55887-0907-30 ")
 ;;1812
 ;;21,"55887-0907-60 ")
 ;;1813
 ;;21,"55887-0989-10 ")
 ;;1623
 ;;21,"55887-0989-12 ")
 ;;1624
 ;;21,"55887-0989-14 ")
 ;;1625
 ;;21,"55887-0989-15 ")
 ;;1626
 ;;21,"55887-0989-20 ")
 ;;1627
 ;;21,"55887-0989-21 ")
 ;;1628
 ;;21,"55887-0989-28 ")
 ;;1629
 ;;21,"55887-0989-30 ")
 ;;1630
 ;;21,"55887-0989-40 ")
 ;;1814
 ;;21,"55887-0989-60 ")
 ;;1631
 ;;21,"55887-0989-82 ")
 ;;1632
 ;;21,"55887-0989-90 ")
 ;;1633
 ;;21,"55887-0990-12 ")
 ;;358
 ;;21,"55887-0990-14 ")
 ;;359
 ;;21,"55887-0990-20 ")
 ;;360
 ;;21,"55887-0990-30 ")
 ;;361
 ;;21,"55887-0990-40 ")
 ;;362
 ;;21,"55887-0990-45 ")
 ;;1815
 ;;21,"55887-0990-60 ")
 ;;1816
 ;;21,"55887-0990-82 ")
 ;;1817
 ;;21,"55887-0990-90 ")
 ;;1818
 ;;21,"55982-0013-01 ")
 ;;1562
 ;;21,"57480-0345-06 ")
 ;;1491
 ;;21,"57480-0431-06 ")
 ;;1723
 ;;21,"57480-0461-01 ")
 ;;151
 ;;21,"57480-0461-06 ")
 ;;1634
 ;;21,"57664-0122-08 ")
 ;;556
 ;;21,"57664-0122-13 ")
 ;;557
 ;;21,"57866-0213-01 ")
 ;;1819
 ;;21,"57866-0225-01 ")
 ;;1635
 ;;21,"57866-3137-01 ")
 ;;1820
 ;;21,"57866-3435-00 ")
 ;;1492
 ;;21,"57866-3435-01 ")
 ;;363
 ;;21,"57866-3435-02 ")
 ;;364
 ;;21,"57866-3435-03 ")
 ;;365
 ;;21,"57866-3435-04 ")
 ;;366
 ;;21,"57866-3435-05 ")
 ;;367
 ;;21,"57866-3444-01 ")
 ;;558
 ;;21,"57866-3444-04 ")
 ;;559
 ;;21,"57866-3444-06 ")
 ;;560
 ;;21,"57866-3444-08 ")
 ;;1724
 ;;21,"57866-3444-09 ")
 ;;1725
 ;;21,"57866-4022-02 ")
 ;;1578
 ;;21,"57866-4022-03 ")
 ;;1579
 ;;21,"57866-4026-02 ")
 ;;711
 ;;21,"57866-4027-01 ")
 ;;862
 ;;21,"57866-4027-02 ")
 ;;863
 ;;21,"57866-4027-04 ")
 ;;864
 ;;21,"57866-4637-02 ")
 ;;1048
 ;;21,"57866-4637-04 ")
 ;;1049
 ;;21,"57866-4637-05 ")
 ;;1050
 ;;21,"57866-4842-01 ")
 ;;152
 ;;21,"57866-4842-02 ")
 ;;153
 ;;21,"57866-4842-03 ")
 ;;1636
 ;;21,"57866-4842-04 ")
 ;;154
 ;;21,"57866-4842-05 ")
 ;;1637
 ;;21,"57866-4842-08 ")
 ;;155
 ;;21,"57866-4842-09 ")
 ;;1638
 ;;21,"57866-7601-02 ")
 ;;984
 ;;21,"57866-7601-03 ")
 ;;985
 ;;21,"57866-7601-04 ")
 ;;986
 ;;21,"57866-7601-05 ")
 ;;987
 ;;21,"58016-0234-00 ")
 ;;156
 ;;21,"58016-0234-02 ")
 ;;157
 ;;21,"58016-0234-07 ")
 ;;158
 ;;21,"58016-0234-10 ")
 ;;159
 ;;21,"58016-0234-12 ")
 ;;160
 ;;21,"58016-0234-14 ")
 ;;161
 ;;21,"58016-0234-15 ")
 ;;162
 ;;21,"58016-0234-18 ")
 ;;163
 ;;21,"58016-0234-20 ")
 ;;164
 ;;21,"58016-0234-21 ")
 ;;165
 ;;21,"58016-0234-24 ")
 ;;166
 ;;21,"58016-0234-28 ")
 ;;167
 ;;21,"58016-0234-30 ")
 ;;168
 ;;21,"58016-0234-40 ")
 ;;169
 ;;21,"58016-0234-45 ")
 ;;170
 ;;21,"58016-0234-50 ")
 ;;171
 ;;21,"58016-0234-56 ")
 ;;172
 ;;21,"58016-0234-60 ")
 ;;173
 ;;21,"58016-0234-90 ")
 ;;174
 ;;21,"58016-0234-99 ")
 ;;175
 ;;21,"58016-0248-00 ")
 ;;988
 ;;21,"58016-0248-07 ")
 ;;989
 ;;21,"58016-0248-10 ")
 ;;990
 ;;21,"58016-0248-12 ")
 ;;991
 ;;21,"58016-0248-14 ")
 ;;992
 ;;21,"58016-0248-15 ")
 ;;993
 ;;21,"58016-0248-20 ")
 ;;994
 ;;21,"58016-0248-21 ")
 ;;995
 ;;21,"58016-0248-28 ")
 ;;996
 ;;21,"58016-0248-30 ")
 ;;997
 ;;21,"58016-0248-40 ")
 ;;998
 ;;21,"58016-0248-50 ")
 ;;999
 ;;21,"58016-0248-60 ")
 ;;1000
 ;;21,"58016-0248-90 ")
 ;;1001
 ;;21,"58016-0257-00 ")
 ;;712
 ;;21,"58016-0257-02 ")
 ;;713
 ;;21,"58016-0257-03 ")
 ;;714
 ;;21,"58016-0257-12 ")
 ;;715
 ;;21,"58016-0257-14 ")
 ;;716
 ;;21,"58016-0257-15 ")
 ;;717
 ;;21,"58016-0257-20 ")
 ;;718
 ;;21,"58016-0257-24 ")
 ;;719
 ;;21,"58016-0257-30 ")
 ;;720
 ;;21,"58016-0257-40 ")
 ;;721
 ;;21,"58016-0257-50 ")
 ;;722
 ;;21,"58016-0257-73 ")
 ;;723
 ;;21,"58016-0257-84 ")
 ;;724
 ;;21,"58016-0257-89 ")
 ;;725
 ;;21,"58016-0258-00 ")
 ;;865
 ;;21,"58016-0258-02 ")
 ;;866
 ;;21,"58016-0258-03 ")
 ;;867
 ;;21,"58016-0258-08 ")
 ;;868
 ;;21,"58016-0258-10 ")
 ;;869
 ;;21,"58016-0258-12 ")
 ;;870
 ;;21,"58016-0258-14 ")
 ;;871
 ;;21,"58016-0258-15 ")
 ;;872
 ;;21,"58016-0258-20 ")
 ;;873
 ;;21,"58016-0258-21 ")
 ;;874
 ;;21,"58016-0258-24 ")
 ;;875
 ;;21,"58016-0258-28 ")
 ;;876
 ;;21,"58016-0258-30 ")
 ;;877
 ;;21,"58016-0258-40 ")
 ;;878
 ;;21,"58016-0258-42 ")
 ;;879
 ;;21,"58016-0258-46 ")
 ;;880
 ;;21,"58016-0258-50 ")
 ;;881
 ;;21,"58016-0258-56 ")
 ;;882
 ;;21,"58016-0258-60 ")
 ;;883
 ;;21,"58016-0258-73 ")
 ;;884
 ;;21,"58016-0258-80 ")
 ;;885
 ;;21,"58016-0258-89 ")
 ;;886
 ;;21,"58016-0258-90 ")
 ;;887
 ;;21,"58016-0258-92 ")
 ;;888
 ;;21,"58016-0261-00 ")
 ;;368
 ;;21,"58016-0261-02 ")
 ;;369
 ;;21,"58016-0261-03 ")
 ;;370
 ;;21,"58016-0261-04 ")
 ;;371
 ;;21,"58016-0261-07 ")
 ;;372
 ;;21,"58016-0261-10 ")
 ;;373
 ;;21,"58016-0261-12 ")
 ;;374
 ;;21,"58016-0261-14 ")
 ;;375
 ;;21,"58016-0261-15 ")
 ;;376
 ;;21,"58016-0261-16 ")
 ;;377
 ;;21,"58016-0261-18 ")
 ;;378
 ;;21,"58016-0261-20 ")
 ;;379
 ;;21,"58016-0261-21 ")
 ;;380
 ;;21,"58016-0261-24 ")
 ;;381
 ;;21,"58016-0261-25 ")
 ;;382
 ;;21,"58016-0261-28 ")
 ;;383
 ;;21,"58016-0261-30 ")
 ;;384
 ;;21,"58016-0261-40 ")
 ;;385
 ;;21,"58016-0261-42 ")
 ;;386
 ;;21,"58016-0261-45 ")
 ;;387
 ;;21,"58016-0261-50 ")
 ;;388
 ;;21,"58016-0261-56 ")
 ;;389
 ;;21,"58016-0261-60 ")
 ;;390
 ;;21,"58016-0261-62 ")
 ;;391
 ;;21,"58016-0261-73 ")
 ;;392
 ;;21,"58016-0261-80 ")
 ;;393
 ;;21,"58016-0261-89 ")
 ;;394
 ;;21,"58016-0261-90 ")
 ;;395
 ;;21,"58016-0261-92 ")
 ;;396
 ;;21,"58016-0261-99 ")
 ;;397
 ;;21,"58016-0291-00 ")
 ;;561
 ;;21,"58016-0291-02 ")
 ;;562
 ;;21,"58016-0291-03 ")
 ;;563
 ;;21,"58016-0291-08 ")
 ;;564
 ;;21,"58016-0291-10 ")
 ;;565
 ;;21,"58016-0291-12 ")
 ;;566
 ;;21,"58016-0291-14 ")
 ;;567
 ;;21,"58016-0291-15 ")
 ;;568
 ;;21,"58016-0291-16 ")
 ;;569
 ;;21,"58016-0291-20 ")
 ;;570
 ;;21,"58016-0291-21 ")
 ;;571
 ;;21,"58016-0291-24 ")
 ;;572
 ;;21,"58016-0291-28 ")
 ;;573
 ;;21,"58016-0291-30 ")
 ;;574
 ;;21,"58016-0291-40 ")
 ;;575
 ;;21,"58016-0291-42 ")
 ;;576
 ;;21,"58016-0291-56 ")
 ;;577
 ;;21,"58016-0291-60 ")
 ;;578
 ;;21,"58016-0291-73 ")
 ;;579
 ;;21,"58016-0291-89 ")
 ;;580
 ;;21,"58016-0291-90 ")
 ;;581
 ;;21,"58016-0298-08 ")
 ;;609
 ;;21,"58016-0391-21 ")
 ;;1493
 ;;21,"58016-0488-00 ")
 ;;398
 ;;21,"58016-0488-02 ")
 ;;399
 ;;21,"58016-0488-03 ")
 ;;400
 ;;21,"58016-0488-04 ")
 ;;401
 ;;21,"58016-0488-07 ")
 ;;402
 ;;21,"58016-0488-10 ")
 ;;403
 ;;21,"58016-0488-12 ")
 ;;404
 ;;21,"58016-0488-14 ")
 ;;405
 ;;21,"58016-0488-15 ")
 ;;406
 ;;21,"58016-0488-16 ")
 ;;407
 ;;21,"58016-0488-18 ")
 ;;408
 ;;21,"58016-0488-20 ")
 ;;409
 ;;21,"58016-0488-21 ")
 ;;410
 ;;21,"58016-0488-24 ")
 ;;411
 ;;21,"58016-0488-25 ")
 ;;412
 ;;21,"58016-0488-28 ")
 ;;413
 ;;21,"58016-0488-30 ")
 ;;414
 ;;21,"58016-0488-40 ")
 ;;415
 ;;21,"58016-0488-42 ")
 ;;416
 ;;21,"58016-0488-45 ")
 ;;417
 ;;21,"58016-0488-50 ")
 ;;418
 ;;21,"58016-0488-56 ")
 ;;419
 ;;21,"58016-0488-60 ")
 ;;420
 ;;21,"58016-0488-62 ")
 ;;421
 ;;21,"58016-0488-73 ")
 ;;422
 ;;21,"58016-0488-80 ")
 ;;423
 ;;21,"58016-0488-89 ")
 ;;424
 ;;21,"58016-0488-90 ")
 ;;425
 ;;21,"58016-0488-92 ")
 ;;426
 ;;21,"58016-0488-99 ")
 ;;427
 ;;21,"58016-0498-10 ")
 ;;1002
 ;;21,"58016-0682-00 ")
 ;;1051
 ;;21,"58016-0682-10 ")
 ;;1052
 ;;21,"58016-0682-12 ")
 ;;1053
 ;;21,"58016-0682-14 ")
 ;;1054
 ;;21,"58016-0682-15 ")
 ;;1055
 ;;21,"58016-0682-20 ")
 ;;1056
 ;;21,"58016-0682-28 ")
 ;;1057
 ;;21,"58016-0682-30 ")
 ;;1058
 ;;21,"58016-0682-40 ")
 ;;1059
 ;;21,"58016-0682-42 ")
 ;;1060
 ;;21,"58016-0682-50 ")
 ;;1061
 ;;21,"58016-0682-60 ")
 ;;1062
 ;;21,"58016-0682-90 ")
 ;;1063
 ;;21,"58016-0927-00 ")
 ;;1090
 ;;21,"58016-0927-02 ")
 ;;1091
 ;;21,"58016-0927-03 ")
 ;;1092
 ;;21,"58016-0927-30 ")
 ;;1093
 ;;21,"58016-0927-60 ")
 ;;1094
 ;;21,"58016-0927-73 ")
 ;;1095
 ;;21,"58016-0927-89 ")
 ;;1096
 ;;21,"58016-0927-90 ")
 ;;1097
 ;;21,"58016-0987-00 ")
 ;;1119
 ;;21,"58016-0987-02 ")
 ;;1120
 ;;21,"58016-0987-03 ")
 ;;1121
 ;;21,"58016-0987-30 ")
 ;;1122
 ;;21,"58016-0987-60 ")
 ;;1123
 ;;21,"58016-0987-90 ")
 ;;1124
 ;;21,"58016-2997-01 ")
 ;;1214
 ;;21,"58238-0101-01 ")
 ;;1329
 ;;21,"58238-0301-10 ")
 ;;1419
 ;;21,"58809-0424-01 ")
 ;;428
 ;;21,"58864-0068-20 ")
 ;;1494
 ;;21,"58864-0068-30 ")
 ;;1495
 ;;21,"58864-0068-40 ")
 ;;1496
 ;;21,"58864-0106-30 ")
 ;;1726
 ;;21,"58864-0128-01 ")
 ;;1639
 ;;21,"58864-0128-20 ")
 ;;1640
 ;;21,"58864-0128-30 ")
 ;;176
 ;;21,"58864-0128-45 ")
 ;;1641
 ;;21,"58864-0511-01 ")
 ;;1563
 ;;21,"58864-0512-01 ")
 ;;1761
 ;;21,"58864-0778-30 ")
 ;;1821
 ;;21,"58864-0846-20 ")
 ;;1420
 ;;21,"59075-0068-10 ")
 ;;1098
 ;;21,"59075-0068-50 ")
 ;;1099
 ;;21,"59591-0156-68 ")
 ;;177
 ;;21,"59591-0156-82 ")
 ;;178
 ;;21,"60104-6012-02 ")
 ;;1330
 ;;21,"60104-6012-06 ")
 ;;1331
 ;;21,"60104-6012-08 ")
 ;;1332
 ;;21,"60104-6018-02 ")
 ;;1497
 ;;21,"60104-6018-06 ")
 ;;1498
 ;;21,"60104-6018-08 ")
 ;;1499
 ;;21,"60104-6048-02 ")
 ;;1727
 ;;21,"60104-6048-06 ")
 ;;1728
 ;;21,"60346-0057-20 ")
 ;;1285
 ;;21,"60346-0057-30 ")
 ;;1286
 ;;21,"60346-0057-40 ")
 ;;1287
 ;;21,"60346-0185-20 ")
 ;;1333
 ;;21,"60346-0471-15 ")
 ;;1642
 ;;21,"60346-0554-14 ")
 ;;1288
 ;;21,"60346-0554-20 ")
 ;;1289
 ;;21,"60346-0581-03 ")
 ;;1643
 ;;21,"60346-0581-09 ")
 ;;1644
 ;;21,"60346-0581-12 ")
 ;;1645
 ;;21,"60346-0581-14 ")
 ;;1646
 ;;21,"60346-0581-15 ")
 ;;1647
 ;;21,"60346-0581-20 ")
 ;;1648
 ;;21,"60346-0581-21 ")
 ;;1649
 ;;21,"60346-0581-24 ")
 ;;1650
 ;;21,"60346-0581-30 ")
 ;;1651
 ;;21,"60346-0581-44 ")
 ;;1700
 ;;21,"60346-0581-90 ")
 ;;1701
 ;;21,"60346-0635-10 ")
 ;;1500
 ;;21,"60346-0635-12 ")
 ;;1501
 ;;21,"60346-0635-15 ")
 ;;1502
 ;;21,"60346-0635-20 ")
 ;;1503
 ;;21,"60346-0635-30 ")
 ;;1504
 ;;21,"60346-0635-40 ")
 ;;1505
 ;;21,"60346-0635-50 ")
 ;;1506
 ;;21,"60346-0663-07 ")
 ;;1729
 ;;21,"60346-0663-09 ")
 ;;1290
 ;;21,"60346-0663-25 ")
 ;;1291
 ;;21,"60346-0663-44 ")
 ;;1292
 ;;21,"60346-0897-20 ")
 ;;1507
 ;;21,"60346-0897-40 ")
 ;;1508
 ;;21,"60346-0905-90 ")
 ;;1564
 ;;21,"60346-0921-30 ")
 ;;1530
 ;;21,"60346-0923-30 ")
 ;;1531
 ;;21,"60429-0035-12 ")
 ;;429
 ;;21,"60429-0035-90 ")
 ;;430
 ;;21,"60429-0052-30 ")
 ;;179