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

BGP0ZD2.m

Go to the documentation of this file.
BGP0ZD2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"49884-0777-01 ")
 ;;1772
 ;;21,"49884-0777-05 ")
 ;;1773
 ;;21,"49884-0778-01 ")
 ;;1774
 ;;21,"49884-0778-05 ")
 ;;1775
 ;;21,"49884-0779-01 ")
 ;;1776
 ;;21,"49884-0779-05 ")
 ;;1777
 ;;21,"49999-0004-10 ")
 ;;3593
 ;;21,"49999-0004-20 ")
 ;;3594
 ;;21,"49999-0004-30 ")
 ;;3595
 ;;21,"49999-0006-06 ")
 ;;1894
 ;;21,"49999-0006-15 ")
 ;;1895
 ;;21,"49999-0006-20 ")
 ;;1896
 ;;21,"49999-0006-21 ")
 ;;1897
 ;;21,"49999-0006-28 ")
 ;;1898
 ;;21,"49999-0006-30 ")
 ;;1899
 ;;21,"49999-0006-40 ")
 ;;1900
 ;;21,"49999-0006-60 ")
 ;;1901
 ;;21,"49999-0009-10 ")
 ;;2840
 ;;21,"49999-0009-14 ")
 ;;2841
 ;;21,"49999-0009-15 ")
 ;;2842
 ;;21,"49999-0009-20 ")
 ;;2843
 ;;21,"49999-0009-30 ")
 ;;2845
 ;;21,"49999-0009-42 ")
 ;;2846
 ;;21,"49999-0013-14 ")
 ;;570
 ;;21,"49999-0038-14 ")
 ;;515
 ;;21,"49999-0038-28 ")
 ;;516
 ;;21,"49999-0038-30 ")
 ;;517
 ;;21,"49999-0038-40 ")
 ;;518
 ;;21,"49999-0042-00 ")
 ;;1912
 ;;21,"49999-0042-06 ")
 ;;1902
 ;;21,"49999-0042-15 ")
 ;;1903
 ;;21,"49999-0042-18 ")
 ;;1904
 ;;21,"49999-0042-20 ")
 ;;1905
 ;;21,"49999-0042-21 ")
 ;;1906
 ;;21,"49999-0042-25 ")
 ;;1907
 ;;21,"49999-0042-30 ")
 ;;1908
 ;;21,"49999-0042-40 ")
 ;;1909
 ;;21,"49999-0042-50 ")
 ;;1910
 ;;21,"49999-0042-60 ")
 ;;1911
 ;;21,"49999-0049-01 ")
 ;;2839
 ;;21,"49999-0049-10 ")
 ;;2834
 ;;21,"49999-0049-20 ")
 ;;2835
 ;;21,"49999-0049-28 ")
 ;;2836
 ;;21,"49999-0049-30 ")
 ;;2837
 ;;21,"49999-0049-60 ")
 ;;2838
 ;;21,"49999-0058-14 ")
 ;;3110
 ;;21,"49999-0058-15 ")
 ;;3111
 ;;21,"49999-0058-20 ")
 ;;3112
 ;;21,"49999-0058-28 ")
 ;;3113
 ;;21,"49999-0058-30 ")
 ;;3114
 ;;21,"49999-0058-60 ")
 ;;3115
 ;;21,"49999-0072-30 ")
 ;;3354
 ;;21,"49999-0074-07 ")
 ;;1487
 ;;21,"49999-0074-30 ")
 ;;1488
 ;;21,"49999-0089-14 ")
 ;;209
 ;;21,"49999-0089-20 ")
 ;;210
 ;;21,"49999-0089-28 ")
 ;;211
 ;;21,"49999-0089-30 ")
 ;;212
 ;;21,"49999-0097-16 ")
 ;;1888
 ;;21,"49999-0097-20 ")
 ;;1889
 ;;21,"49999-0097-28 ")
 ;;1890
 ;;21,"49999-0097-30 ")
 ;;1891
 ;;21,"49999-0097-50 ")
 ;;1892
 ;;21,"49999-0097-60 ")
 ;;1893
 ;;21,"49999-0100-15 ")
 ;;776
 ;;21,"49999-0100-21 ")
 ;;777
 ;;21,"49999-0100-30 ")
 ;;778
 ;;21,"49999-0100-50 ")
 ;;779
 ;;21,"49999-0102-14 ")
 ;;1189
 ;;21,"49999-0102-15 ")
 ;;1190
 ;;21,"49999-0102-20 ")
 ;;1191
 ;;21,"49999-0102-30 ")
 ;;1192
 ;;21,"49999-0102-60 ")
 ;;1193
 ;;21,"49999-0103-14 ")
 ;;1194
 ;;21,"49999-0103-20 ")
 ;;1195
 ;;21,"49999-0103-30 ")
 ;;1196
 ;;21,"49999-0103-60 ")
 ;;1197
 ;;21,"49999-0111-30 ")
 ;;3378
 ;;21,"49999-0124-14 ")
 ;;1281
 ;;21,"49999-0124-30 ")
 ;;1279
 ;;21,"49999-0125-14 ")
 ;;1282
 ;;21,"49999-0125-30 ")
 ;;1280
 ;;21,"49999-0130-10 ")
 ;;885
 ;;21,"49999-0130-15 ")
 ;;886
 ;;21,"49999-0130-20 ")
 ;;887
 ;;21,"49999-0130-21 ")
 ;;888
 ;;21,"49999-0130-30 ")
 ;;889
 ;;21,"49999-0132-30 ")
 ;;2415
 ;;21,"49999-0132-60 ")
 ;;2416
 ;;21,"49999-0194-30 ")
 ;;3116
 ;;21,"49999-0200-60 ")
 ;;3109
 ;;21,"49999-0233-28 ")
 ;;207
 ;;21,"49999-0233-42 ")
 ;;208
 ;;21,"49999-0234-15 ")
 ;;770
 ;;21,"49999-0234-20 ")
 ;;771
 ;;21,"49999-0234-30 ")
 ;;774
 ;;21,"49999-0311-60 ")
 ;;1613
 ;;21,"49999-0368-25 ")
 ;;293
 ;;21,"49999-0371-30 ")
 ;;781
 ;;21,"49999-0376-30 ")
 ;;3295
 ;;21,"49999-0383-10 ")
 ;;3588
 ;;21,"49999-0383-14 ")
 ;;3589
 ;;21,"49999-0383-20 ")
 ;;3590
 ;;21,"49999-0383-30 ")
 ;;3591
 ;;21,"49999-0383-60 ")
 ;;3592
 ;;21,"49999-0416-02 ")
 ;;884
 ;;21,"49999-0423-14 ")
 ;;1323
 ;;21,"49999-0429-20 ")
 ;;920
 ;;21,"49999-0492-42 ")
 ;;206
 ;;21,"50111-0528-01 ")
 ;;3366
 ;;21,"50111-0529-01 ")
 ;;3367
 ;;21,"50111-0529-02 ")
 ;;3368
 ;;21,"50111-0530-01 ")
 ;;3369
 ;;21,"50111-0546-01 ")
 ;;51
 ;;21,"50111-0546-02 ")
 ;;52
 ;;21,"50111-0546-03 ")
 ;;53
 ;;21,"50111-0546-04 ")
 ;;50
 ;;21,"50111-0547-01 ")
 ;;55
 ;;21,"50111-0547-02 ")
 ;;56
 ;;21,"50111-0547-03 ")
 ;;57
 ;;21,"50111-0547-04 ")
 ;;54
 ;;21,"50111-0608-01 ")
 ;;832
 ;;21,"50111-0614-01 ")
 ;;2907
 ;;21,"50111-0615-01 ")
 ;;2908
 ;;21,"50962-0475-60 ")
 ;;2151
 ;;21,"51079-0190-19 ")
 ;;644
 ;;21,"51079-0190-20 ")
 ;;645
 ;;21,"51079-0191-20 ")
 ;;646
 ;;21,"51079-0281-19 ")
 ;;1820
 ;;21,"51079-0281-20 ")
 ;;1821
 ;;21,"51079-0282-19 ")
 ;;1822
 ;;21,"51079-0282-20 ")
 ;;1824
 ;;21,"51079-0282-98 ")
 ;;1823
 ;;21,"51079-0597-19 ")
 ;;1825
 ;;21,"51079-0597-20 ")
 ;;1826
 ;;21,"51079-0666-20 ")
 ;;940
 ;;21,"51079-0667-20 ")
 ;;941
 ;;21,"51079-0742-20 ")
 ;;1377
 ;;21,"51079-0743-20 ")
 ;;1378
 ;;21,"51079-0793-19 ")
 ;;2561
 ;;21,"51079-0793-20 ")
 ;;2562
 ;;21,"51079-0794-20 ")
 ;;2563
 ;;21,"51079-0795-20 ")
 ;;2564
 ;;21,"51079-0815-20 ")
 ;;1583
 ;;21,"51079-0989-20 ")
 ;;1117
 ;;21,"51552-0198-03 ")
 ;;1076
 ;;21,"51552-0198-09 ")
 ;;1077
 ;;21,"51552-0262-02 ")
 ;;602
 ;;21,"51552-0262-04 ")
 ;;603
 ;;21,"51552-0262-05 ")
 ;;604
 ;;21,"51552-0307-04 ")
 ;;2325
 ;;21,"51552-0307-05 ")
 ;;2326
 ;;21,"51552-0307-06 ")
 ;;2327
 ;;21,"51552-0307-07 ")
 ;;2328
 ;;21,"51552-0378-04 ")
 ;;1709
 ;;21,"51552-0378-05 ")
 ;;1710
 ;;21,"51552-0378-07 ")
 ;;1711
 ;;21,"51552-0401-04 ")
 ;;2467
 ;;21,"51552-0401-05 ")
 ;;2468
 ;;21,"51552-0450-04 ")
 ;;2963
 ;;21,"51552-0457-02 ")
 ;;1338
 ;;21,"51552-0457-04 ")
 ;;1339
 ;;21,"51552-0482-04 ")
 ;;29
 ;;21,"51552-0818-02 ")
 ;;1568
 ;;21,"51641-0212-01 ")
 ;;1649
 ;;21,"51641-0212-05 ")
 ;;1651
 ;;21,"51641-0212-10 ")
 ;;1652
 ;;21,"51641-0212-11 ")
 ;;1650
 ;;21,"51641-0213-01 ")
 ;;1645
 ;;21,"51641-0213-05 ")
 ;;1647
 ;;21,"51641-0213-10 ")
 ;;1648
 ;;21,"51641-0213-11 ")
 ;;1646
 ;;21,"51641-0214-01 ")
 ;;1641
 ;;21,"51641-0214-05 ")
 ;;1643
 ;;21,"51641-0214-10 ")
 ;;1644
 ;;21,"51641-0214-11 ")
 ;;1642
 ;;21,"51655-0049-24 ")
 ;;1957
 ;;21,"51655-0049-25 ")
 ;;1959
 ;;21,"51655-0049-26 ")
 ;;1960
 ;;21,"51655-0049-51 ")
 ;;1958
 ;;21,"51655-0049-52 ")
 ;;1956
 ;;21,"51655-0049-82 ")
 ;;1961
 ;;21,"51655-0050-24 ")
 ;;1962
 ;;21,"51655-0050-25 ")
 ;;1963
 ;;21,"51655-0050-26 ")
 ;;1964
 ;;21,"51655-0050-82 ")
 ;;1965
 ;;21,"51655-0050-83 ")
 ;;1966
 ;;21,"51655-0050-92 ")
 ;;1967
 ;;21,"51655-0051-24 ")
 ;;1969
 ;;21,"51655-0051-25 ")
 ;;1970
 ;;21,"51655-0051-26 ")
 ;;1971
 ;;21,"51655-0051-54 ")
 ;;1968
 ;;21,"51655-0051-83 ")
 ;;1972
 ;;21,"51655-0051-92 ")
 ;;1973
 ;;21,"51655-0128-26 ")
 ;;749
 ;;21,"51655-0128-54 ")
 ;;748
 ;;21,"51655-0562-30 ")
 ;;1067
 ;;21,"51655-0567-84 ")
 ;;1479
 ;;21,"51655-0625-25 ")
 ;;2801
 ;;21,"51655-0625-52 ")
 ;;2800
 ;;21,"51655-0626-25 ")
 ;;2804
 ;;21,"51655-0626-52 ")
 ;;2803
 ;;21,"51655-0626-53 ")
 ;;2802
 ;;21,"51655-0627-52 ")
 ;;3101
 ;;21,"51655-0629-52 ")
 ;;3100
 ;;21,"51655-0685-24 ")
 ;;2799
 ;;21,"51672-4016-01 ")
 ;;381
 ;;21,"51672-4017-01 ")
 ;;382
 ;;21,"51672-4018-01 ")
 ;;383
 ;;21,"51672-4036-01 ")
 ;;384
 ;;21,"51672-4051-01 ")
 ;;386
 ;;21,"51672-4051-04 ")
 ;;385
 ;;21,"51672-4052-01 ")
 ;;388
 ;;21,"51672-4052-04 ")
 ;;387
 ;;21,"51672-4053-01 ")
 ;;390
 ;;21,"51672-4053-04 ")
 ;;389
 ;;21,"51927-1083-00 ")
 ;;628
 ;;21,"51927-1192-00 ")
 ;;1778
 ;;21,"51927-1574-00 ")
 ;;1080
 ;;21,"51927-1699-00 ")
 ;;1356
 ;;21,"51927-1853-00 ")
 ;;1540
 ;;21,"51927-1859-00 ")
 ;;41
 ;;21,"51927-1866-00 ")
 ;;1093
 ;;21,"51927-2082-00 ")
 ;;1098
 ;;21,"51927-2125-00 ")
 ;;930
 ;;21,"51927-2352-00 ")
 ;;2348
 ;;21,"51927-2399-00 ")
 ;;3365
 ;;21,"51927-2618-00 ")
 ;;3382
 ;;21,"51927-2701-00 ")
 ;;1577
 ;;21,"51927-2715-00 ")
 ;;2509
 ;;21,"51927-2771-00 ")
 ;;2967
 ;;21,"51927-2796-00 ")
 ;;3444
 ;;21,"51927-3010-00 ")
 ;;351
 ;;21,"51927-3443-00 ")
 ;;831
 ;;21,"51991-0720-01 ")
 ;;1692
 ;;21,"51991-0720-05 ")
 ;;1693
 ;;21,"51991-0730-01 ")
 ;;1694
 ;;21,"51991-0730-05 ")
 ;;1695
 ;;21,"51991-0740-01 ")
 ;;1696
 ;;21,"51991-0740-05 ")
 ;;1697
 ;;21,"52152-0084-02 ")
 ;;3356
 ;;21,"52152-0085-02 ")
 ;;3357
 ;;21,"52152-0086-02 ")
 ;;3358
 ;;21,"52555-0205-01 ")
 ;;33
 ;;21,"52555-0205-10 ")
 ;;34
 ;;21,"52555-0972-01 ")
 ;;1344
 ;;21,"52555-0973-01 ")
 ;;1345
 ;;21,"52555-0973-05 ")
 ;;1346
 ;;21,"52595-0196-10 ")
 ;;1016
 ;;21,"52959-0015-30 ")
 ;;3194
 ;;21,"52959-0016-20 ")
 ;;3203
 ;;21,"52959-0016-30 ")
 ;;3204
 ;;21,"52959-0066-00 ")
 ;;1536
 ;;21,"52959-0066-07 ")
 ;;1531
 ;;21,"52959-0066-10 ")
 ;;1532
 ;;21,"52959-0066-18 ")
 ;;1533
 ;;21,"52959-0066-20 ")
 ;;1534
 ;;21,"52959-0066-30 ")
 ;;1535
 ;;21,"52959-0067-20 ")
 ;;1541
 ;;21,"52959-0067-30 ")
 ;;1542
 ;;21,"52959-0075-00 ")
 ;;1939
 ;;21,"52959-0075-02 ")
 ;;1940
 ;;21,"52959-0075-10 ")
 ;;1786
 ;;21,"52959-0075-12 ")
 ;;1787
 ;;21,"52959-0075-15 ")
 ;;1788
 ;;21,"52959-0075-16 ")
 ;;1789
 ;;21,"52959-0075-20 ")
 ;;1781
 ;;21,"52959-0075-21 ")
 ;;1782
 ;;21,"52959-0075-30 ")
 ;;1783
 ;;21,"52959-0075-40 ")
 ;;1784
 ;;21,"52959-0075-60 ")
 ;;1785
 ;;21,"52959-0075-90 ")
 ;;1938
 ;;21,"52959-0076-00 ")
 ;;1944
 ;;21,"52959-0076-02 ")
 ;;1945
 ;;21,"52959-0076-04 ")
 ;;1941
 ;;21,"52959-0076-20 ")
 ;;1790
 ;;21,"52959-0076-21 ")
 ;;1791
 ;;21,"52959-0076-24 ")
 ;;1792
 ;;21,"52959-0076-25 ")
 ;;1793
 ;;21,"52959-0076-30 ")
 ;;1794
 ;;21,"52959-0076-40 ")
 ;;1795
 ;;21,"52959-0076-45 ")
 ;;1796
 ;;21,"52959-0076-50 ")
 ;;1942
 ;;21,"52959-0076-60 ")
 ;;1797
 ;;21,"52959-0076-90 ")
 ;;1943
 ;;21,"52959-0077-00 ")
 ;;1954
 ;;21,"52959-0077-02 ")
 ;;1955
 ;;21,"52959-0077-04 ")
 ;;1946
 ;;21,"52959-0077-10 ")
 ;;1798
 ;;21,"52959-0077-12 ")
 ;;1947
 ;;21,"52959-0077-14 ")
 ;;1799
 ;;21,"52959-0077-15 ")
 ;;1800
 ;;21,"52959-0077-16 ")
 ;;1948
 ;;21,"52959-0077-18 ")
 ;;1949
 ;;21,"52959-0077-20 ")
 ;;1801
 ;;21,"52959-0077-21 ")
 ;;1802
 ;;21,"52959-0077-24 ")
 ;;1950
 ;;21,"52959-0077-25 ")
 ;;1951
 ;;21,"52959-0077-28 ")
 ;;1803
 ;;21,"52959-0077-30 ")
 ;;1804
 ;;21,"52959-0077-40 ")
 ;;1805
 ;;21,"52959-0077-42 ")
 ;;1952
 ;;21,"52959-0077-45 ")
 ;;1806
 ;;21,"52959-0077-50 ")
 ;;1807
 ;;21,"52959-0077-60 ")
 ;;1808
 ;;21,"52959-0077-90 ")
 ;;1953
 ;;21,"52959-0080-20 ")
 ;;629
 ;;21,"52959-0080-21 ")
 ;;750
 ;;21,"52959-0080-30 ")
 ;;630
 ;;21,"52959-0080-40 ")
 ;;631
 ;;21,"52959-0081-00 ")
 ;;751
 ;;21,"52959-0081-20 ")
 ;;632
 ;;21,"52959-0081-21 ")
 ;;633
 ;;21,"52959-0081-30 ")
 ;;634
 ;;21,"52959-0081-40 ")
 ;;635
 ;;21,"52959-0082-07 ")
 ;;752
 ;;21,"52959-0082-14 ")
 ;;753
 ;;21,"52959-0082-15 ")
 ;;636
 ;;21,"52959-0082-20 ")
 ;;637
 ;;21,"52959-0082-21 ")
 ;;638
 ;;21,"52959-0082-30 ")
 ;;639
 ;;21,"52959-0082-60 ")
 ;;640
 ;;21,"52959-0095-28 ")
 ;;578
 ;;21,"52959-0095-30 ")
 ;;579
 ;;21,"52959-0110-20 ")
 ;;3170
 ;;21,"52959-0110-30 ")
 ;;3171
 ;;21,"52959-0111-14 ")
 ;;3181
 ;;21,"52959-0111-20 ")
 ;;3182
 ;;21,"52959-0111-28 ")
 ;;3183
 ;;21,"52959-0111-30 ")
 ;;3184
 ;;21,"52959-0111-40 ")
 ;;3185
 ;;21,"52959-0111-60 ")
 ;;3186
 ;;21,"52959-0161-30 ")
 ;;279
 ;;21,"52959-0161-42 ")
 ;;280
 ;;21,"52959-0190-20 ")
 ;;2510
 ;;21,"52959-0190-28 ")
 ;;2511
 ;;21,"52959-0190-30 ")
 ;;2512
 ;;21,"52959-0190-40 ")
 ;;2513
 ;;21,"52959-0190-60 ")
 ;;2514
 ;;21,"52959-0191-00 ")
 ;;2812
 ;;21,"52959-0191-02 ")
 ;;2813
 ;;21,"52959-0191-10 ")
 ;;2805
 ;;21,"52959-0191-14 ")
 ;;2806
 ;;21,"52959-0191-15 ")
 ;;2807
 ;;21,"52959-0191-20 ")
 ;;2808
 ;;21,"52959-0191-28 ")
 ;;2515
 ;;21,"52959-0191-30 ")
 ;;2809
 ;;21,"52959-0191-40 ")
 ;;2810
 ;;21,"52959-0191-42 ")
 ;;2516
 ;;21,"52959-0191-60 ")
 ;;2811
 ;;21,"52959-0192-00 ")
 ;;3180
 ;;21,"52959-0192-10 ")
 ;;3172
 ;;21,"52959-0192-14 ")
 ;;3173
 ;;21,"52959-0192-15 ")
 ;;3174
 ;;21,"52959-0192-20 ")
 ;;3175
 ;;21,"52959-0192-28 ")
 ;;3176
 ;;21,"52959-0192-30 ")
 ;;3177
 ;;21,"52959-0192-40 ")
 ;;3178
 ;;21,"52959-0192-60 ")
 ;;3179
 ;;21,"52959-0193-02 ")
 ;;2814
 ;;21,"52959-0193-10 ")
 ;;2815
 ;;21,"52959-0193-14 ")
 ;;2517
 ;;21,"52959-0193-15 ")
 ;;2518
 ;;21,"52959-0193-20 ")
 ;;2519
 ;;21,"52959-0193-21 ")
 ;;2520
 ;;21,"52959-0193-24 ")
 ;;2816
 ;;21,"52959-0193-28 ")
 ;;2521
 ;;21,"52959-0193-30 ")
 ;;2522
 ;;21,"52959-0193-35 ")
 ;;2523
 ;;21,"52959-0193-40 ")
 ;;2524
 ;;21,"52959-0193-60 ")
 ;;2525
 ;;21,"52959-0193-90 ")
 ;;2526
 ;;21,"52959-0194-30 ")
 ;;2940
 ;;21,"52959-0195-14 ")
 ;;931
 ;;21,"52959-0195-15 ")
 ;;932
 ;;21,"52959-0195-20 ")
 ;;933
 ;;21,"52959-0195-28 ")
 ;;934
 ;;21,"52959-0195-30 ")
 ;;935
 ;;21,"52959-0195-60 ")
 ;;936
 ;;21,"52959-0196-00 ")
 ;;1022
 ;;21,"52959-0196-14 ")
 ;;1017
 ;;21,"52959-0196-15 ")
 ;;1018
 ;;21,"52959-0196-20 ")
 ;;1019
 ;;21,"52959-0196-30 ")
 ;;1020
 ;;21,"52959-0196-60 ")
 ;;1021
 ;;21,"52959-0211-20 ")
 ;;553
 ;;21,"52959-0211-21 ")
 ;;554
 ;;21,"52959-0211-30 ")
 ;;555
 ;;21,"52959-0211-42 ")
 ;;556