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

BGP48F5.m

Go to the documentation of this file.
BGP48F5 ;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,"58864-0834-30 ")
 ;;366
 ;;21,"59630-0628-30 ")
 ;;775
 ;;21,"59630-0629-30 ")
 ;;778
 ;;21,"59630-0630-30 ")
 ;;781
 ;;21,"59762-0155-01 ")
 ;;62
 ;;21,"59762-0155-02 ")
 ;;50
 ;;21,"59762-0156-01 ")
 ;;149
 ;;21,"59762-0156-02 ")
 ;;150
 ;;21,"59762-0157-01 ")
 ;;241
 ;;21,"59762-0157-02 ")
 ;;242
 ;;21,"59762-0158-01 ")
 ;;350
 ;;21,"59762-0158-02 ")
 ;;351
 ;;21,"60429-0248-10 ")
 ;;429
 ;;21,"60429-0248-60 ")
 ;;430
 ;;21,"60429-0249-10 ")
 ;;620
 ;;21,"60429-0249-60 ")
 ;;621
 ;;21,"60429-0250-10 ")
 ;;649
 ;;21,"60429-0250-60 ")
 ;;650
 ;;21,"60429-0250-90 ")
 ;;651
 ;;21,"60429-0323-01 ")
 ;;51
 ;;21,"60429-0323-10 ")
 ;;52
 ;;21,"60429-0323-90 ")
 ;;53
 ;;21,"60429-0324-01 ")
 ;;146
 ;;21,"60429-0324-10 ")
 ;;147
 ;;21,"60429-0324-90 ")
 ;;148
 ;;21,"60429-0325-01 ")
 ;;243
 ;;21,"60429-0325-05 ")
 ;;244
 ;;21,"60429-0325-90 ")
 ;;245
 ;;21,"60429-0326-01 ")
 ;;347
 ;;21,"60429-0326-05 ")
 ;;348
 ;;21,"60429-0326-90 ")
 ;;349
 ;;21,"60429-0367-05 ")
 ;;947
 ;;21,"60429-0367-45 ")
 ;;883
 ;;21,"60429-0367-90 ")
 ;;946
 ;;21,"60429-0368-05 ")
 ;;1054
 ;;21,"60429-0368-45 ")
 ;;1055
 ;;21,"60429-0368-90 ")
 ;;1056
 ;;21,"60429-0369-05 ")
 ;;1173
 ;;21,"60429-0369-45 ")
 ;;1174
 ;;21,"60429-0369-90 ")
 ;;1175
 ;;21,"60429-0370-05 ")
 ;;1214
 ;;21,"60429-0370-45 ")
 ;;1215
 ;;21,"60429-0370-90 ")
 ;;1216
 ;;21,"60505-0168-05 ")
 ;;903
 ;;21,"60505-0168-09 ")
 ;;904
 ;;21,"60505-0169-07 ")
 ;;985
 ;;21,"60505-0169-09 ")
 ;;986
 ;;21,"60505-0170-07 ")
 ;;1089
 ;;21,"60505-0170-08 ")
 ;;1090
 ;;21,"60505-0170-09 ")
 ;;1091
 ;;21,"60505-0177-00 ")
 ;;493
 ;;21,"60505-0178-00 ")
 ;;573
 ;;21,"60505-0179-00 ")
 ;;742
 ;;21,"60505-1323-05 ")
 ;;1212
 ;;21,"60505-1323-09 ")
 ;;1213
 ;;21,"60505-2578-08 ")
 ;;46
 ;;21,"60505-2578-09 ")
 ;;47
 ;;21,"60505-2579-08 ")
 ;;154
 ;;21,"60505-2579-09 ")
 ;;155
 ;;21,"60505-2580-08 ")
 ;;251
 ;;21,"60505-2580-09 ")
 ;;252
 ;;21,"60505-2671-08 ")
 ;;309
 ;;21,"60505-2671-09 ")
 ;;310
 ;;21,"60598-0006-90 ")
 ;;2013
 ;;21,"60598-0007-90 ")
 ;;2014
 ;;21,"60598-0008-90 ")
 ;;2018
 ;;21,"60598-0009-90 ")
 ;;2019
 ;;21,"60760-0005-30 ")
 ;;1481
 ;;21,"60760-0005-90 ")
 ;;1482
 ;;21,"60760-0006-30 ")
 ;;1673
 ;;21,"60760-0006-90 ")
 ;;1674
 ;;21,"60760-0019-30 ")
 ;;1871
 ;;21,"60760-0077-30 ")
 ;;1050
 ;;21,"60760-0077-90 ")
 ;;1051
 ;;21,"60760-0078-30 ")
 ;;1162
 ;;21,"60760-0078-90 ")
 ;;1163
 ;;21,"60760-0355-30 ")
 ;;250
 ;;21,"60760-0370-30 ")
 ;;594
 ;;21,"61442-0141-01 ")
 ;;506
 ;;21,"61442-0141-10 ")
 ;;507
 ;;21,"61442-0141-60 ")
 ;;508
 ;;21,"61442-0142-01 ")
 ;;577
 ;;21,"61442-0142-05 ")
 ;;578
 ;;21,"61442-0142-10 ")
 ;;579
 ;;21,"61442-0142-60 ")
 ;;580
 ;;21,"61442-0143-01 ")
 ;;753
 ;;21,"61442-0143-05 ")
 ;;754
 ;;21,"61442-0143-10 ")
 ;;755
 ;;21,"61442-0143-60 ")
 ;;756
 ;;21,"62022-0627-30 ")
 ;;772
 ;;21,"62022-0628-30 ")
 ;;774
 ;;21,"62022-0629-30 ")
 ;;777
 ;;21,"62022-0630-30 ")
 ;;780
 ;;21,"62022-0760-30 ")
 ;;771
 ;;21,"62022-0770-30 ")
 ;;773
 ;;21,"62022-0780-30 ")
 ;;776
 ;;21,"62022-0781-30 ")
 ;;779
 ;;21,"62037-0791-01 ")
 ;;497
 ;;21,"62037-0791-60 ")
 ;;498
 ;;21,"62037-0792-01 ")
 ;;571
 ;;21,"62037-0792-60 ")
 ;;572
 ;;21,"62037-0793-01 ")
 ;;743
 ;;21,"62037-0793-60 ")
 ;;744
 ;;21,"62175-0890-43 ")
 ;;58
 ;;21,"62175-0890-46 ")
 ;;59
 ;;21,"62175-0891-43 ")
 ;;159
 ;;21,"62175-0891-46 ")
 ;;160
 ;;21,"62175-0892-41 ")
 ;;255
 ;;21,"62175-0892-46 ")
 ;;256
 ;;21,"62175-0897-41 ")
 ;;354
 ;;21,"62175-0897-46 ")
 ;;355
 ;;21,"63304-0499-30 ")
 ;;2143
 ;;21,"63304-0500-30 ")
 ;;2166
 ;;21,"63304-0501-30 ")
 ;;2106
 ;;21,"63304-0502-30 ")
 ;;2110
 ;;21,"63304-0503-30 ")
 ;;2115
 ;;21,"63304-0587-30 ")
 ;;2121
 ;;21,"63304-0588-30 ")
 ;;2131
 ;;21,"63304-0589-30 ")
 ;;2138
 ;;21,"63304-0590-30 ")
 ;;2149
 ;;21,"63304-0591-30 ")
 ;;2157
 ;;21,"63304-0595-90 ")
 ;;936
 ;;21,"63304-0596-90 ")
 ;;1022
 ;;21,"63304-0597-90 ")
 ;;1148
 ;;21,"63304-0598-05 ")
 ;;1194
 ;;21,"63304-0598-90 ")
 ;;1195
 ;;21,"63304-0603-30 ")
 ;;2173
 ;;21,"63304-0789-10 ")
 ;;1259
 ;;21,"63304-0789-30 ")
 ;;1260
 ;;21,"63304-0789-90 ")
 ;;1261
 ;;21,"63304-0790-10 ")
 ;;1378
 ;;21,"63304-0790-30 ")
 ;;1379
 ;;21,"63304-0790-90 ")
 ;;1380
 ;;21,"63304-0791-10 ")
 ;;1553
 ;;21,"63304-0791-30 ")
 ;;1554
 ;;21,"63304-0791-90 ")
 ;;1555
 ;;21,"63304-0792-10 ")
 ;;1784
 ;;21,"63304-0792-30 ")
 ;;1785
 ;;21,"63304-0792-90 ")
 ;;1786
 ;;21,"63304-0793-10 ")
 ;;1963
 ;;21,"63304-0793-30 ")
 ;;1964
 ;;21,"63304-0793-50 ")
 ;;1970
 ;;21,"63304-0793-90 ")
 ;;1971
 ;;21,"63304-0827-05 ")
 ;;41
 ;;21,"63304-0827-90 ")
 ;;42
 ;;21,"63304-0828-05 ")
 ;;140
 ;;21,"63304-0828-90 ")
 ;;141
 ;;21,"63304-0829-05 ")
 ;;236
 ;;21,"63304-0829-90 ")
 ;;237
 ;;21,"63304-0830-05 ")
 ;;307
 ;;21,"63304-0830-90 ")
 ;;308
 ;;21,"63629-1447-01 ")
 ;;166
 ;;21,"63629-1464-01 ")
 ;;622
 ;;21,"63629-1464-02 ")
 ;;623
 ;;21,"63629-1464-03 ")
 ;;624
 ;;21,"63629-1606-01 ")
 ;;1164
 ;;21,"63629-1606-02 ")
 ;;1165
 ;;21,"63629-1784-01 ")
 ;;746
 ;;21,"63629-1784-02 ")
 ;;747
 ;;21,"63629-3366-01 ")
 ;;368
 ;;21,"63629-3366-02 ")
 ;;369
 ;;21,"63629-3366-03 ")
 ;;370
 ;;21,"63629-3366-04 ")
 ;;371
 ;;21,"63629-3381-01 ")
 ;;817
 ;;21,"63629-3381-02 ")
 ;;818
 ;;21,"63629-3381-03 ")
 ;;819
 ;;21,"63629-3381-04 ")
 ;;820
 ;;21,"63629-3385-01 ")
 ;;1787
 ;;21,"63629-3385-02 ")
 ;;1788
 ;;21,"63629-3385-03 ")
 ;;1789
 ;;21,"63629-3385-04 ")
 ;;1691
 ;;21,"63629-3385-05 ")
 ;;1692
 ;;21,"63629-3392-01 ")
 ;;1327
 ;;21,"63629-3393-01 ")
 ;;1497
 ;;21,"63629-3393-02 ")
 ;;1498
 ;;21,"63629-3393-03 ")
 ;;1499
 ;;21,"63629-3393-04 ")
 ;;1500
 ;;21,"63629-3408-01 ")
 ;;1872
 ;;21,"63629-3408-02 ")
 ;;1873
 ;;21,"63629-3408-03 ")
 ;;1874
 ;;21,"63629-3408-04 ")
 ;;1875
 ;;21,"63629-3563-01 ")
 ;;1047
 ;;21,"63629-3583-01 ")
 ;;426
 ;;21,"63629-3583-02 ")
 ;;427
 ;;21,"63629-3583-03 ")
 ;;428
 ;;21,"63739-0280-10 ")
 ;;502
 ;;21,"63739-0280-15 ")
 ;;503
 ;;21,"63739-0281-03 ")
 ;;587
 ;;21,"63739-0281-10 ")
 ;;588
 ;;21,"63739-0281-15 ")
 ;;589
 ;;21,"63739-0282-03 ")
 ;;748
 ;;21,"63739-0282-10 ")
 ;;749
 ;;21,"63739-0419-10 ")
 ;;1243
 ;;21,"63739-0420-10 ")
 ;;1417
 ;;21,"63739-0421-10 ")
 ;;1619
 ;;21,"63739-0422-10 ")
 ;;1817
 ;;21,"63739-0435-10 ")
 ;;1242
 ;;21,"63739-0436-10 ")
 ;;1418
 ;;21,"63739-0437-04 ")
 ;;1617
 ;;21,"63739-0437-10 ")
 ;;1618
 ;;21,"63739-0438-10 ")
 ;;1818
 ;;21,"63739-0570-10 ")
 ;;1248
 ;;21,"63739-0571-10 ")
 ;;1404
 ;;21,"63739-0572-10 ")
 ;;1606
 ;;21,"63739-0573-10 ")
 ;;1790
 ;;21,"63874-0319-10 ")
 ;;272
 ;;21,"63874-0319-15 ")
 ;;273
 ;;21,"63874-0319-30 ")
 ;;274
 ;;21,"63874-0319-90 ")
 ;;275
 ;;21,"63874-0589-01 ")
 ;;89
 ;;21,"63874-0589-10 ")
 ;;90
 ;;21,"63874-0589-30 ")
 ;;91
 ;;21,"63874-0589-90 ")
 ;;92
 ;;21,"63874-0590-01 ")
 ;;180
 ;;21,"63874-0590-10 ")
 ;;181
 ;;21,"63874-0590-15 ")
 ;;182
 ;;21,"63874-0590-30 ")
 ;;183
 ;;21,"63874-0590-90 ")
 ;;184
 ;;21,"65243-0065-15 ")
 ;;1503
 ;;21,"65243-0065-45 ")
 ;;1504
 ;;21,"65243-0082-15 ")
 ;;1687
 ;;21,"65243-0082-45 ")
 ;;1688
 ;;21,"65243-0127-45 ")
 ;;1878
 ;;21,"65243-0348-15 ")
 ;;1615
 ;;21,"65243-0348-45 ")
 ;;1616
 ;;21,"65243-0349-15 ")
 ;;1804
 ;;21,"65243-0349-45 ")
 ;;1805
 ;;21,"65243-0350-45 ")
 ;;1972
 ;;21,"65243-0352-03 ")
 ;;750
 ;;21,"65243-0352-09 ")
 ;;751
 ;;21,"65243-0352-45 ")
 ;;752
 ;;21,"65243-0360-09 ")
 ;;1613
 ;;21,"65243-0360-45 ")
 ;;1614
 ;;21,"65243-0361-45 ")
 ;;1981
 ;;21,"65243-0365-45 ")
 ;;1806
 ;;21,"65243-0367-03 ")
 ;;1978
 ;;21,"65243-0367-09 ")
 ;;1979
 ;;21,"65243-0367-45 ")
 ;;1980
 ;;21,"65862-0050-30 ")
 ;;1245
 ;;21,"65862-0050-90 ")
 ;;1246
 ;;21,"65862-0050-99 ")
 ;;1247
 ;;21,"65862-0051-26 ")
 ;;1412
 ;;21,"65862-0051-30 ")
 ;;1413
 ;;21,"65862-0051-90 ")
 ;;1414
 ;;21,"65862-0051-99 ")
 ;;1415
 ;;21,"65862-0052-26 ")
 ;;1622
 ;;21,"65862-0052-30 ")
 ;;1623
 ;;21,"65862-0052-90 ")
 ;;1624
 ;;21,"65862-0052-99 ")
 ;;1625
 ;;21,"65862-0053-22 ")
 ;;1813
 ;;21,"65862-0053-30 ")
 ;;1814
 ;;21,"65862-0053-90 ")
 ;;1815
 ;;21,"65862-0053-99 ")
 ;;1816
 ;;21,"65862-0054-30 ")
 ;;1982
 ;;21,"65862-0054-39 ")
 ;;1983
 ;;21,"65862-0054-90 ")
 ;;1984
 ;;21,"65862-0054-99 ")
 ;;1985
 ;;21,"66105-0120-01 ")
 ;;889
 ;;21,"66105-0120-03 ")
 ;;890
 ;;21,"66105-0120-06 ")
 ;;891
 ;;21,"66105-0120-09 ")
 ;;892
 ;;21,"66105-0120-15 ")
 ;;893
 ;;21,"66105-0121-01 ")
 ;;968
 ;;21,"66105-0121-03 ")
 ;;969
 ;;21,"66105-0121-06 ")
 ;;970
 ;;21,"66105-0121-09 ")
 ;;971
 ;;21,"66105-0121-15 ")
 ;;972
 ;;21,"66105-0122-01 ")
 ;;1076
 ;;21,"66105-0122-03 ")
 ;;1077
 ;;21,"66105-0122-06 ")
 ;;1078
 ;;21,"66105-0122-09 ")
 ;;1079
 ;;21,"66105-0122-15 ")
 ;;1080
 ;;21,"66105-0147-01 ")
 ;;399
 ;;21,"66105-0147-03 ")
 ;;400
 ;;21,"66105-0147-06 ")
 ;;401
 ;;21,"66105-0147-09 ")
 ;;402
 ;;21,"66105-0147-10 ")
 ;;403
 ;;21,"66105-0506-01 ")
 ;;1829
 ;;21,"66105-0506-03 ")
 ;;1830
 ;;21,"66105-0506-06 ")
 ;;1831
 ;;21,"66105-0506-09 ")
 ;;1832
 ;;21,"66105-0506-10 ")
 ;;1833
 ;;21,"66105-0988-03 ")
 ;;830
 ;;21,"66116-0238-30 ")
 ;;957
 ;;21,"66116-0276-30 ")
 ;;76
 ;;21,"66116-0277-30 ")
 ;;582
 ;;21,"66267-0561-30 ")
 ;;671
 ;;21,"66267-0561-60 ")
 ;;672
 ;;21,"66267-0561-90 ")
 ;;673
 ;;21,"66267-1260-01 ")
 ;;1307
 ;;21,"66267-1261-01 ")
 ;;1470
 ;;21,"66336-0310-05 ")
 ;;583
 ;;21,"66336-0310-30 ")
 ;;584
 ;;21,"66336-0310-60 ")
 ;;585
 ;;21,"66336-0310-90 ")
 ;;586
 ;;21,"66336-0412-05 ")
 ;;708
 ;;21,"66336-0412-30 ")
 ;;709
 ;;21,"66336-0412-90 ")
 ;;710
 ;;21,"66336-0602-05 ")
 ;;494
 ;;21,"66336-0602-30 ")
 ;;495
 ;;21,"66336-0602-90 ")
 ;;496
 ;;21,"66336-0674-30 ")
 ;;860
 ;;21,"66336-0685-30 ")
 ;;981
 ;;21,"66336-0685-90 ")
 ;;982
 ;;21,"66336-0813-30 ")
 ;;1166
 ;;21,"66336-0813-90 ")
 ;;1167
 ;;21,"66336-0953-30 ")
 ;;1668
 ;;21,"66336-0953-90 ")
 ;;1669
 ;;21,"66336-0954-30 ")
 ;;1473
 ;;21,"66336-0954-90 ")
 ;;1474
 ;;21,"66336-0986-30 ")
 ;;1986
 ;;21,"66336-0986-90 ")
 ;;1987
 ;;21,"66582-0311-01 ")
 ;;2044
 ;;21,"66582-0311-28 ")
 ;;2045
 ;;21,"66582-0311-31 ")
 ;;2046
 ;;21,"66582-0311-54 ")
 ;;2047
 ;;21,"66582-0311-82 ")
 ;;2048
 ;;21,"66582-0312-01 ")
 ;;2066
 ;;21,"66582-0312-28 ")
 ;;2067
 ;;21,"66582-0312-31 ")
 ;;2068
 ;;21,"66582-0312-54 ")
 ;;2069
 ;;21,"66582-0312-82 ")
 ;;2070
 ;;21,"66582-0312-87 ")
 ;;2071
 ;;21,"66582-0313-01 ")
 ;;2073
 ;;21,"66582-0313-31 ")
 ;;2074
 ;;21,"66582-0313-52 ")
 ;;2075
 ;;21,"66582-0313-54 ")
 ;;2076
 ;;21,"66582-0313-74 ")
 ;;2077
 ;;21,"66582-0313-86 ")
 ;;2078
 ;;21,"66582-0315-01 ")
 ;;2097
 ;;21,"66582-0315-31 ")
 ;;2098
 ;;21,"66582-0315-52 ")
 ;;2099
 ;;21,"66582-0315-54 ")
 ;;2100
 ;;21,"66582-0315-66 ")
 ;;2101
 ;;21,"66582-0315-74 ")
 ;;2102
 ;;21,"66582-0320-30 ")
 ;;2036
 ;;21,"66582-0320-54 ")
 ;;2037
 ;;21,"66582-0321-30 ")
 ;;2038
 ;;21,"66582-0321-54 ")
 ;;2039
 ;;21,"66582-0322-30 ")
 ;;2040
 ;;21,"66582-0322-54 ")
 ;;2041
 ;;21,"66582-0323-30 ")
 ;;2042
 ;;21,"66582-0323-54 ")
 ;;2043
 ;;21,"66869-0104-90 ")
 ;;784
 ;;21,"66869-0204-90 ")
 ;;785
 ;;21,"66869-0404-90 ")
 ;;788
 ;;21,"67263-0541-01 ")
 ;;387
 ;;21,"67544-0050-15 ")
 ;;1436
 ;;21,"67544-0050-30 ")
 ;;1437
 ;;21,"67544-0050-45 ")
 ;;1438
 ;;21,"67544-0050-53 ")
 ;;1439
 ;;21,"67544-0050-60 ")
 ;;1440
 ;;21,"67544-0051-15 ")
 ;;1992
 ;;21,"67544-0051-16 ")
 ;;1993
 ;;21,"67544-0051-45 ")
 ;;1994
 ;;21,"67544-0051-53 ")
 ;;1995
 ;;21,"67544-0060-15 ")
 ;;382
 ;;21,"67544-0060-30 ")
 ;;383
 ;;21,"67544-0060-45 ")
 ;;384
 ;;21,"67544-0060-60 ")
 ;;385
 ;;21,"67544-0081-15 ")
 ;;1627
 ;;21,"67544-0081-30 ")
 ;;1628
 ;;21,"67544-0081-45 ")
 ;;1629
 ;;21,"67544-0081-60 ")
 ;;1630
 ;;21,"67544-0082-15 ")
 ;;1827
 ;;21,"67544-0082-45 ")
 ;;1828
 ;;21,"67544-0106-15 ")
 ;;603
 ;;21,"67544-0106-30 ")
 ;;604
 ;;21,"67544-0106-45 ")
 ;;605
 ;;21,"67544-0106-53 ")
 ;;606
 ;;21,"67544-0106-60 ")
 ;;607
 ;;21,"67544-0106-80 ")
 ;;608
 ;;21,"67544-0225-15 ")
 ;;674
 ;;21,"67544-0225-30 ")
 ;;675
 ;;21,"67544-0225-45 ")
 ;;676
 ;;21,"67544-0225-53 ")
 ;;677
 ;;21,"67544-0225-60 ")
 ;;678
 ;;21,"67544-0225-80 ")
 ;;679
 ;;21,"67544-0245-30 ")
 ;;450
 ;;21,"67544-0245-60 ")
 ;;451
 ;;21,"67544-0247-15 ")
 ;;269
 ;;21,"67544-0247-30 ")
 ;;270
 ;;21,"67544-0247-45 ")
 ;;271
 ;;21,"67544-0854-45 ")
 ;;1323
 ;;21,"67544-0854-60 ")
 ;;1324
 ;;21,"67544-0855-15 ")
 ;;1477
 ;;21,"67544-0855-30 ")
 ;;1478
 ;;21,"67544-0855-45 ")
 ;;1479
 ;;21,"67544-0855-60 ")
 ;;1480
 ;;21,"67544-0856-15 ")
 ;;1675
 ;;21,"67544-0856-45 ")
 ;;1676