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

BGP22B10.m

Go to the documentation of this file.
BGP22B10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 21, 2011;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"65597-0103-10 ")
 ;;3975
 ;;21,"65597-0103-30 ")
 ;;3976
 ;;21,"65597-0103-90 ")
 ;;3977
 ;;21,"65597-0104-10 ")
 ;;3991
 ;;21,"65597-0104-30 ")
 ;;3992
 ;;21,"65597-0104-90 ")
 ;;3993
 ;;21,"65597-0105-10 ")
 ;;3527
 ;;21,"65597-0105-30 ")
 ;;3532
 ;;21,"65597-0105-90 ")
 ;;3533
 ;;21,"65597-0106-10 ")
 ;;3534
 ;;21,"65597-0106-30 ")
 ;;3541
 ;;21,"65597-0106-90 ")
 ;;3542
 ;;21,"65597-0107-10 ")
 ;;3543
 ;;21,"65597-0107-30 ")
 ;;3551
 ;;21,"65597-0107-90 ")
 ;;3552
 ;;21,"65597-0110-10 ")
 ;;3308
 ;;21,"65597-0110-30 ")
 ;;3310
 ;;21,"65597-0110-90 ")
 ;;3311
 ;;21,"65597-0111-10 ")
 ;;3301
 ;;21,"65597-0111-30 ")
 ;;3302
 ;;21,"65597-0111-90 ")
 ;;3303
 ;;21,"65597-0112-10 ")
 ;;3312
 ;;21,"65597-0112-30 ")
 ;;3313
 ;;21,"65597-0112-90 ")
 ;;3314
 ;;21,"65597-0113-10 ")
 ;;3304
 ;;21,"65597-0113-30 ")
 ;;3306
 ;;21,"65597-0113-90 ")
 ;;3307
 ;;21,"65597-0114-30 ")
 ;;3291
 ;;21,"65597-0114-90 ")
 ;;3292
 ;;21,"65597-0115-30 ")
 ;;3297
 ;;21,"65597-0115-90 ")
 ;;3298
 ;;21,"65597-0116-30 ")
 ;;3299
 ;;21,"65597-0116-90 ")
 ;;3300
 ;;21,"65597-0117-30 ")
 ;;3293
 ;;21,"65597-0117-90 ")
 ;;3294
 ;;21,"65597-0118-30 ")
 ;;3295
 ;;21,"65597-0118-90 ")
 ;;3296
 ;;21,"65862-0037-01 ")
 ;;2209
 ;;21,"65862-0037-05 ")
 ;;2210
 ;;21,"65862-0038-01 ")
 ;;2855
 ;;21,"65862-0038-05 ")
 ;;2856
 ;;21,"65862-0039-01 ")
 ;;2118
 ;;21,"65862-0039-05 ")
 ;;2119
 ;;21,"65862-0040-01 ")
 ;;2433
 ;;21,"65862-0040-05 ")
 ;;2434
 ;;21,"65862-0041-01 ")
 ;;2507
 ;;21,"65862-0042-01 ")
 ;;2668
 ;;21,"65862-0042-05 ")
 ;;2669
 ;;21,"65862-0043-01 ")
 ;;409
 ;;21,"65862-0043-05 ")
 ;;410
 ;;21,"65862-0044-01 ")
 ;;495
 ;;21,"65862-0044-05 ")
 ;;496
 ;;21,"65862-0045-01 ")
 ;;579
 ;;21,"65862-0045-05 ")
 ;;580
 ;;21,"65862-0116-01 ")
 ;;712
 ;;21,"65862-0117-01 ")
 ;;794
 ;;21,"65862-0118-01 ")
 ;;864
 ;;21,"65862-0161-90 ")
 ;;621
 ;;21,"65862-0162-30 ")
 ;;629
 ;;21,"65862-0162-90 ")
 ;;630
 ;;21,"65862-0163-90 ")
 ;;638
 ;;21,"65862-0164-01 ")
 ;;3241
 ;;21,"65862-0165-01 ")
 ;;3259
 ;;21,"65862-0166-01 ")
 ;;3282
 ;;21,"65862-0201-90 ")
 ;;3868
 ;;21,"65862-0201-99 ")
 ;;3869
 ;;21,"65862-0202-30 ")
 ;;3941
 ;;21,"65862-0202-90 ")
 ;;3942
 ;;21,"65862-0202-99 ")
 ;;3943
 ;;21,"65862-0203-30 ")
 ;;3816
 ;;21,"65862-0203-90 ")
 ;;3817
 ;;21,"65862-0203-99 ")
 ;;3818
 ;;21,"65862-0286-01 ")
 ;;2910
 ;;21,"65862-0287-01 ")
 ;;2917
 ;;21,"65862-0288-01 ")
 ;;2923
 ;;21,"65862-0308-01 ")
 ;;331
 ;;21,"65862-0309-01 ")
 ;;340
 ;;21,"65862-0468-30 ")
 ;;3516
 ;;21,"65862-0468-90 ")
 ;;3517
 ;;21,"65862-0468-99 ")
 ;;3518
 ;;21,"65862-0469-30 ")
 ;;3418
 ;;21,"65862-0469-90 ")
 ;;3419
 ;;21,"65862-0469-99 ")
 ;;3420
 ;;21,"65862-0470-30 ")
 ;;3463
 ;;21,"65862-0470-90 ")
 ;;3464
 ;;21,"65862-0470-99 ")
 ;;3465
 ;;21,"66105-0503-01 ")
 ;;3732
 ;;21,"66105-0503-03 ")
 ;;3733
 ;;21,"66105-0503-06 ")
 ;;3734
 ;;21,"66105-0503-09 ")
 ;;3735
 ;;21,"66105-0503-15 ")
 ;;3736
 ;;21,"66105-0504-01 ")
 ;;3753
 ;;21,"66105-0504-03 ")
 ;;3754
 ;;21,"66105-0504-06 ")
 ;;3755
 ;;21,"66105-0504-09 ")
 ;;3756
 ;;21,"66105-0504-15 ")
 ;;3757
 ;;21,"66105-0545-01 ")
 ;;3595
 ;;21,"66105-0545-03 ")
 ;;3596
 ;;21,"66105-0545-06 ")
 ;;3597
 ;;21,"66105-0545-09 ")
 ;;3598
 ;;21,"66105-0545-10 ")
 ;;3599
 ;;21,"66105-0553-03 ")
 ;;3944
 ;;21,"66105-0663-03 ")
 ;;3466
 ;;21,"66105-0669-03 ")
 ;;3519
 ;;21,"66105-0842-03 ")
 ;;4008
 ;;21,"66105-0842-06 ")
 ;;4009
 ;;21,"66105-0842-09 ")
 ;;4010
 ;;21,"66105-0842-10 ")
 ;;4011
 ;;21,"66105-0842-28 ")
 ;;4012
 ;;21,"66116-0237-30 ")
 ;;713
 ;;21,"66116-0279-30 ")
 ;;2120
 ;;21,"66116-0435-30 ")
 ;;1360
 ;;21,"66116-0436-30 ")
 ;;1719
 ;;21,"66267-0253-30 ")
 ;;1720
 ;;21,"66267-0323-30 ")
 ;;1361
 ;;21,"66267-0323-60 ")
 ;;1362
 ;;21,"66267-0323-90 ")
 ;;1363
 ;;21,"66267-0323-91 ")
 ;;1364
 ;;21,"66267-0380-30 ")
 ;;1579
 ;;21,"66267-0380-60 ")
 ;;1580
 ;;21,"66267-0380-90 ")
 ;;1581
 ;;21,"66267-0380-91 ")
 ;;1582
 ;;21,"66267-0413-30 ")
 ;;1721
 ;;21,"66267-0413-60 ")
 ;;1722
 ;;21,"66267-0413-90 ")
 ;;1723
 ;;21,"66267-0413-92 ")
 ;;1724
 ;;21,"66267-0523-30 ")
 ;;4108
 ;;21,"66267-0523-60 ")
 ;;4109
 ;;21,"66267-0751-30 ")
 ;;411
 ;;21,"66267-0751-90 ")
 ;;412
 ;;21,"66267-0752-30 ")
 ;;497
 ;;21,"66267-0752-90 ")
 ;;498
 ;;21,"66267-1009-00 ")
 ;;1365
 ;;21,"66336-0124-30 ")
 ;;865
 ;;21,"66336-0169-30 ")
 ;;4110
 ;;21,"66336-0232-30 ")
 ;;906
 ;;21,"66336-0387-30 ")
 ;;4053
 ;;21,"66336-0389-30 ")
 ;;1366
 ;;21,"66336-0389-60 ")
 ;;1367
 ;;21,"66336-0391-30 ")
 ;;1725
 ;;21,"66336-0391-60 ")
 ;;1726
 ;;21,"66336-0393-30 ")
 ;;1583
 ;;21,"66336-0393-60 ")
 ;;1584
 ;;21,"66336-0572-30 ")
 ;;413
 ;;21,"66336-0618-60 ")
 ;;1002
 ;;21,"66336-0665-15 ")
 ;;3945
 ;;21,"66336-0665-30 ")
 ;;3946
 ;;21,"66336-0666-30 ")
 ;;3870
 ;;21,"66336-0672-60 ")
 ;;2121
 ;;21,"66336-0691-30 ")
 ;;795
 ;;21,"66336-0691-90 ")
 ;;796
 ;;21,"66336-0741-30 ")
 ;;2435
 ;;21,"66336-0741-60 ")
 ;;2436
 ;;21,"66336-0741-90 ")
 ;;2437
 ;;21,"66336-0750-30 ")
 ;;1223
 ;;21,"66336-0750-60 ")
 ;;1224
 ;;21,"66336-0750-90 ")
 ;;1225
 ;;21,"66336-0773-30 ")
 ;;714
 ;;21,"66336-0773-90 ")
 ;;715
 ;;21,"66336-0794-60 ")
 ;;936
 ;;21,"66336-0805-30 ")
 ;;499
 ;;21,"66336-0805-90 ")
 ;;500
 ;;21,"66336-0810-30 ")
 ;;581
 ;;21,"66336-0810-90 ")
 ;;582
 ;;21,"66336-0867-30 ")
 ;;2670
 ;;21,"66336-0867-90 ")
 ;;2671
 ;;21,"66336-0946-30 ")
 ;;1121
 ;;21,"66336-0946-60 ")
 ;;1122
 ;;21,"66336-0946-90 ")
 ;;1123
 ;;21,"66336-0972-30 ")
 ;;2122
 ;;21,"66336-0972-90 ")
 ;;2123
 ;;21,"66685-0301-00 ")
 ;;1454
 ;;21,"66685-0301-02 ")
 ;;1455
 ;;21,"66685-0302-00 ")
 ;;1727
 ;;21,"66685-0302-02 ")
 ;;1728
 ;;21,"66685-0303-00 ")
 ;;1368
 ;;21,"66685-0303-02 ")
 ;;1369
 ;;21,"66685-0304-00 ")
 ;;1585
 ;;21,"66685-0304-02 ")
 ;;1586
 ;;21,"66685-0701-01 ")
 ;;2211
 ;;21,"66685-0701-02 ")
 ;;2212
 ;;21,"66685-0702-01 ")
 ;;2857
 ;;21,"66685-0702-02 ")
 ;;2858
 ;;21,"66685-0702-03 ")
 ;;2859
 ;;21,"66685-0703-01 ")
 ;;2124
 ;;21,"66685-0703-02 ")
 ;;2125
 ;;21,"66685-0703-03 ")
 ;;1938
 ;;21,"66685-0704-01 ")
 ;;2438
 ;;21,"66685-0704-02 ")
 ;;2439
 ;;21,"66685-0704-03 ")
 ;;2440
 ;;21,"66685-0705-01 ")
 ;;2508
 ;;21,"66685-0705-02 ")
 ;;2509
 ;;21,"66685-0706-01 ")
 ;;2672
 ;;21,"66685-0706-02 ")
 ;;2673
 ;;21,"66685-0706-03 ")
 ;;2674
 ;;21,"66685-0706-04 ")
 ;;2675
 ;;21,"67253-0106-10 ")
 ;;3242
 ;;21,"67253-0107-10 ")
 ;;3260
 ;;21,"67253-0108-10 ")
 ;;3283
 ;;21,"67253-0671-10 ")
 ;;3051
 ;;21,"67253-0672-10 ")
 ;;3154
 ;;21,"67253-0672-11 ")
 ;;3155
 ;;21,"67253-0673-10 ")
 ;;3212
 ;;21,"67253-0673-11 ")
 ;;3213
 ;;21,"67253-0674-10 ")
 ;;3106
 ;;21,"67253-0674-11 ")
 ;;3107
 ;;21,"67544-0042-15 ")
 ;;1798
 ;;21,"67544-0042-30 ")
 ;;1799
 ;;21,"67544-0042-45 ")
 ;;1800
 ;;21,"67544-0042-53 ")
 ;;1801
 ;;21,"67544-0042-60 ")
 ;;1802
 ;;21,"67544-0042-70 ")
 ;;1803
 ;;21,"67544-0042-73 ")
 ;;1804
 ;;21,"67544-0042-80 ")
 ;;1805
 ;;21,"67544-0042-92 ")
 ;;1806
 ;;21,"67544-0042-94 ")
 ;;1807
 ;;21,"67544-0062-30 ")
 ;;2213
 ;;21,"67544-0062-60 ")
 ;;2214
 ;;21,"67544-0062-82 ")
 ;;2215
 ;;21,"67544-0128-15 ")
 ;;2860
 ;;21,"67544-0128-30 ")
 ;;2861
 ;;21,"67544-0128-45 ")
 ;;2862
 ;;21,"67544-0128-53 ")
 ;;2863
 ;;21,"67544-0128-60 ")
 ;;2864
 ;;21,"67544-0134-30 ")
 ;;2441
 ;;21,"67544-0134-45 ")
 ;;2442
 ;;21,"67544-0134-60 ")
 ;;2443
 ;;21,"67544-0134-80 ")
 ;;2444
 ;;21,"67544-0148-15 ")
 ;;2676
 ;;21,"67544-0148-30 ")
 ;;2677
 ;;21,"67544-0148-45 ")
 ;;2678
 ;;21,"67544-0148-53 ")
 ;;2679
 ;;21,"67544-0148-60 ")
 ;;2680
 ;;21,"67544-0148-80 ")
 ;;2681
 ;;21,"67544-0150-45 ")
 ;;1003
 ;;21,"67544-0150-60 ")
 ;;1004
 ;;21,"67544-0150-73 ")
 ;;1005
 ;;21,"67544-0150-92 ")
 ;;1006
 ;;21,"67544-0159-15 ")
 ;;2126
 ;;21,"67544-0159-30 ")
 ;;2127
 ;;21,"67544-0159-45 ")
 ;;2128
 ;;21,"67544-0159-58 ")
 ;;2129
 ;;21,"67544-0159-60 ")
 ;;2130
 ;;21,"67544-0159-80 ")
 ;;2131
 ;;21,"67544-0160-60 ")
 ;;1370
 ;;21,"67544-0160-80 ")
 ;;1371
 ;;21,"67544-0165-60 ")
 ;;1729
 ;;21,"67544-0165-80 ")
 ;;1730
 ;;21,"67544-0166-80 ")
 ;;1456
 ;;21,"67544-0173-30 ")
 ;;2865
 ;;21,"67544-0173-45 ")
 ;;2866
 ;;21,"67544-0173-53 ")
 ;;2867
 ;;21,"67544-0173-60 ")
 ;;2868
 ;;21,"67544-0174-30 ")
 ;;2445
 ;;21,"67544-0174-45 ")
 ;;2446
 ;;21,"67544-0174-60 ")
 ;;2447
 ;;21,"67544-0174-80 ")
 ;;2448
 ;;21,"67544-0175-80 ")
 ;;1731
 ;;21,"67544-0177-45 ")
 ;;3684
 ;;21,"67544-0192-30 ")
 ;;2869
 ;;21,"67544-0192-45 ")
 ;;2870
 ;;21,"67544-0192-53 ")
 ;;2871
 ;;21,"67544-0192-60 ")
 ;;2872
 ;;21,"67544-0201-45 ")
 ;;1867
 ;;21,"67544-0202-15 ")
 ;;1746
 ;;21,"67544-0202-30 ")
 ;;1747
 ;;21,"67544-0202-45 ")
 ;;1748
 ;;21,"67544-0202-80 ")
 ;;1749
 ;;21,"67544-0212-45 ")
 ;;3676
 ;;21,"67544-0212-53 ")
 ;;3677
 ;;21,"67544-0216-80 ")
 ;;1372
 ;;21,"67544-0218-60 ")
 ;;2216
 ;;21,"67544-0218-82 ")
 ;;2217
 ;;21,"67544-0219-15 ")
 ;;2132
 ;;21,"67544-0219-30 ")
 ;;2133
 ;;21,"67544-0219-45 ")
 ;;2134
 ;;21,"67544-0219-60 ")
 ;;2135
 ;;21,"67544-0234-45 ")
 ;;3947
 ;;21,"67544-0234-53 ")
 ;;3948
 ;;21,"67544-0250-60 ")
 ;;501
 ;;21,"67544-0276-60 ")
 ;;502
 ;;21,"67544-0286-80 ")
 ;;1373
 ;;21,"67544-0300-15 ")
 ;;1893
 ;;21,"67544-0300-30 ")
 ;;1894
 ;;21,"67544-0300-45 ")
 ;;1895
 ;;21,"67544-0306-30 ")
 ;;1896
 ;;21,"67544-0306-40 ")
 ;;1897
 ;;21,"67544-0306-45 ")
 ;;1898
 ;;21,"67544-0306-60 ")
 ;;1899
 ;;21,"67544-0311-30 ")
 ;;1900
 ;;21,"67544-0311-45 ")
 ;;1901
 ;;21,"67544-0315-80 ")
 ;;1374
 ;;21,"67544-0321-15 ")
 ;;1772
 ;;21,"67544-0321-30 ")
 ;;1773
 ;;21,"67544-0321-60 ")
 ;;1774
 ;;21,"67544-0322-15 ")
 ;;1827
 ;;21,"67544-0322-30 ")
 ;;1828
 ;;21,"67544-0322-45 ")
 ;;1829
 ;;21,"67544-0322-53 ")
 ;;1830
 ;;21,"67544-0322-60 ")
 ;;1831
 ;;21,"67544-0322-70 ")
 ;;1832
 ;;21,"67544-0322-73 ")
 ;;1833
 ;;21,"67544-0322-80 ")
 ;;1834
 ;;21,"67544-0322-92 ")
 ;;1835
 ;;21,"67544-0322-94 ")
 ;;1836
 ;;21,"67544-0350-80 ")
 ;;1457
 ;;21,"67544-0377-60 ")
 ;;503
 ;;21,"67544-0380-30 ")
 ;;1775
 ;;21,"67544-0380-60 ")
 ;;1776
 ;;21,"67544-0381-15 ")
 ;;1837
 ;;21,"67544-0381-30 ")
 ;;1838
 ;;21,"67544-0381-45 ")
 ;;1839
 ;;21,"67544-0381-53 ")
 ;;1840
 ;;21,"67544-0381-60 ")
 ;;1841
 ;;21,"67544-0381-70 ")
 ;;1842
 ;;21,"67544-0381-73 ")
 ;;1843
 ;;21,"67544-0381-80 ")
 ;;1844
 ;;21,"67544-0381-92 ")
 ;;1845
 ;;21,"67544-0381-94 ")
 ;;1846
 ;;21,"67544-0382-30 ")
 ;;3871
 ;;21,"67544-0400-45 ")
 ;;3758
 ;;21,"67544-0403-30 ")
 ;;4111
 ;;21,"67544-0404-30 ")
 ;;4054
 ;;21,"67544-0418-60 ")
 ;;504
 ;;21,"67544-0431-15 ")
 ;;1847
 ;;21,"67544-0431-30 ")
 ;;1848
 ;;21,"67544-0431-45 ")
 ;;1849
 ;;21,"67544-0431-53 ")
 ;;1850
 ;;21,"67544-0431-60 ")
 ;;1851
 ;;21,"67544-0431-70 ")
 ;;1852
 ;;21,"67544-0431-73 ")
 ;;1853
 ;;21,"67544-0431-80 ")
 ;;1854
 ;;21,"67544-0431-92 ")
 ;;1855
 ;;21,"67544-0431-94 ")
 ;;1856
 ;;21,"67544-0454-15 ")
 ;;1902
 ;;21,"67544-0454-30 ")
 ;;1903
 ;;21,"67544-0454-40 ")
 ;;1904
 ;;21,"67544-0454-45 ")
 ;;1905
 ;;21,"67544-0454-60 ")
 ;;1906
 ;;21,"67544-0489-15 ")
 ;;1777
 ;;21,"67544-0489-30 ")
 ;;1778
 ;;21,"67544-0489-60 ")
 ;;1779
 ;;21,"67544-0678-60 ")
 ;;2136
 ;;21,"67544-0992-30 ")
 ;;2449
 ;;21,"67544-0997-30 ")
 ;;2682
 ;;21,"67544-0999-60 ")
 ;;2450
 ;;21,"67544-0999-80 ")
 ;;2451
 ;;21,"67544-1010-30 ")
 ;;414
 ;;21,"67544-1010-60 ")
 ;;415
 ;;21,"67544-1038-30 ")
 ;;1907
 ;;21,"67544-1038-45 ")
 ;;1908
 ;;21,"67544-1042-45 ")
 ;;1909
 ;;21,"67544-1042-60 ")
 ;;1910
 ;;21,"67544-1054-30 ")
 ;;505
 ;;21,"67544-1057-30 ")
 ;;583
 ;;21,"67544-1082-45 ")
 ;;1857
 ;;21,"67544-1105-30 ")
 ;;1780
 ;;21,"67544-1105-45 ")
 ;;1781
 ;;21,"67544-1348-45 ")
 ;;2137
 ;;21,"67544-1348-60 ")
 ;;2138
 ;;21,"67544-1350-45 ")
 ;;2683
 ;;21,"67544-1350-60 ")
 ;;2684
 ;;21,"67544-1372-45 ")
 ;;2873
 ;;21,"67544-1386-30 ")
 ;;506
 ;;21,"67544-1386-60 ")
 ;;507
 ;;21,"67544-1387-45 ")
 ;;2452
 ;;21,"68030-6700-02 ")
 ;;1937
 ;;21,"68030-6701-02 ")
 ;;2239
 ;;21,"68071-0026-30 ")
 ;;866
 ;;21,"68071-0026-60 ")
 ;;867
 ;;21,"68071-0026-90 ")
 ;;868
 ;;21,"68071-0146-30 ")
 ;;797
 ;;21,"68071-0146-60 ")
 ;;798
 ;;21,"68071-0146-90 ")
 ;;799
 ;;21,"68071-0146-91 ")
 ;;800
 ;;21,"68071-0153-30 ")
 ;;584
 ;;21,"68071-0153-60 ")
 ;;585
 ;;21,"68071-0153-90 ")
 ;;586
 ;;21,"68071-0785-30 ")
 ;;3600
 ;;21,"68071-0785-60 ")
 ;;3601
 ;;21,"68071-0786-30 ")
 ;;3662
 ;;21,"68071-0786-60 ")
 ;;3663
 ;;21,"68071-0787-60 ")
 ;;3520
 ;;21,"68084-0058-01 ")
 ;;2218
 ;;21,"68084-0058-11 ")
 ;;2219
 ;;21,"68084-0060-01 ")
 ;;2874
 ;;21,"68084-0060-11 ")
 ;;2875