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

BGP13X10.m

Go to the documentation of this file.
BGP13X10 ; 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,"64679-0923-09 ")
 ;;1374
 ;;21,"64679-0924-02 ")
 ;;1630
 ;;21,"64679-0924-03 ")
 ;;1631
 ;;21,"64679-0924-09 ")
 ;;1632
 ;;21,"64679-0925-02 ")
 ;;1274
 ;;21,"64679-0925-03 ")
 ;;1275
 ;;21,"64679-0925-09 ")
 ;;1276
 ;;21,"64679-0926-02 ")
 ;;1491
 ;;21,"64679-0926-03 ")
 ;;1492
 ;;21,"64679-0926-09 ")
 ;;1493
 ;;21,"64679-0927-01 ")
 ;;2118
 ;;21,"64679-0927-02 ")
 ;;2119
 ;;21,"64679-0927-05 ")
 ;;2120
 ;;21,"64679-0927-09 ")
 ;;2121
 ;;21,"64679-0928-01 ")
 ;;2719
 ;;21,"64679-0928-05 ")
 ;;2720
 ;;21,"64679-0928-06 ")
 ;;2721
 ;;21,"64679-0928-10 ")
 ;;2722
 ;;21,"64679-0929-01 ")
 ;;2008
 ;;21,"64679-0929-05 ")
 ;;2009
 ;;21,"64679-0929-06 ")
 ;;2010
 ;;21,"64679-0929-10 ")
 ;;2011
 ;;21,"64679-0941-01 ")
 ;;2303
 ;;21,"64679-0941-05 ")
 ;;2304
 ;;21,"64679-0941-06 ")
 ;;2305
 ;;21,"64679-0941-10 ")
 ;;2306
 ;;21,"64679-0942-01 ")
 ;;2529
 ;;21,"64679-0942-02 ")
 ;;2530
 ;;21,"64679-0942-05 ")
 ;;2531
 ;;21,"64679-0942-09 ")
 ;;2532
 ;;21,"64679-0953-01 ")
 ;;2403
 ;;21,"64679-0953-02 ")
 ;;2404
 ;;21,"64679-0953-05 ")
 ;;2405
 ;;21,"64679-0953-09 ")
 ;;2406
 ;;21,"65162-0751-10 ")
 ;;834
 ;;21,"65162-0751-50 ")
 ;;835
 ;;21,"65162-0752-10 ")
 ;;649
 ;;21,"65162-0752-50 ")
 ;;650
 ;;21,"65162-0753-10 ")
 ;;726
 ;;21,"65162-0753-50 ")
 ;;727
 ;;21,"65162-0754-10 ")
 ;;793
 ;;21,"65162-0754-50 ")
 ;;794
 ;;21,"65243-0303-03 ")
 ;;2723
 ;;21,"65243-0303-09 ")
 ;;2724
 ;;21,"65243-0303-15 ")
 ;;2725
 ;;21,"65243-0303-45 ")
 ;;2726
 ;;21,"65243-0314-03 ")
 ;;2533
 ;;21,"65243-0314-09 ")
 ;;2534
 ;;21,"65243-0314-18 ")
 ;;2535
 ;;21,"65243-0314-45 ")
 ;;2536
 ;;21,"65243-0341-09 ")
 ;;2307
 ;;21,"65243-0341-18 ")
 ;;2308
 ;;21,"65243-0341-45 ")
 ;;2309
 ;;21,"65243-0358-03 ")
 ;;2012
 ;;21,"65243-0358-09 ")
 ;;2013
 ;;21,"65243-0358-45 ")
 ;;2014
 ;;21,"65597-0101-30 ")
 ;;3802
 ;;21,"65597-0103-10 ")
 ;;3777
 ;;21,"65597-0103-30 ")
 ;;3778
 ;;21,"65597-0103-90 ")
 ;;3779
 ;;21,"65597-0104-10 ")
 ;;3797
 ;;21,"65597-0104-30 ")
 ;;3798
 ;;21,"65597-0104-90 ")
 ;;3799
 ;;21,"65597-0105-10 ")
 ;;3367
 ;;21,"65597-0105-30 ")
 ;;3368
 ;;21,"65597-0105-90 ")
 ;;3369
 ;;21,"65597-0106-10 ")
 ;;3376
 ;;21,"65597-0106-30 ")
 ;;3377
 ;;21,"65597-0106-90 ")
 ;;3378
 ;;21,"65597-0107-10 ")
 ;;3386
 ;;21,"65597-0107-30 ")
 ;;3387
 ;;21,"65597-0107-90 ")
 ;;3388
 ;;21,"65597-0110-10 ")
 ;;3173
 ;;21,"65597-0110-30 ")
 ;;3174
 ;;21,"65597-0110-90 ")
 ;;3175
 ;;21,"65597-0111-10 ")
 ;;3166
 ;;21,"65597-0111-30 ")
 ;;3167
 ;;21,"65597-0111-90 ")
 ;;3168
 ;;21,"65597-0112-10 ")
 ;;3176
 ;;21,"65597-0112-30 ")
 ;;3177
 ;;21,"65597-0112-90 ")
 ;;3178
 ;;21,"65597-0113-10 ")
 ;;3169
 ;;21,"65597-0113-30 ")
 ;;3170
 ;;21,"65597-0113-90 ")
 ;;3171
 ;;21,"65597-0114-30 ")
 ;;3156
 ;;21,"65597-0114-90 ")
 ;;3157
 ;;21,"65597-0115-30 ")
 ;;3162
 ;;21,"65597-0115-90 ")
 ;;3163
 ;;21,"65597-0116-30 ")
 ;;3164
 ;;21,"65597-0116-90 ")
 ;;3165
 ;;21,"65597-0117-30 ")
 ;;3158
 ;;21,"65597-0117-90 ")
 ;;3159
 ;;21,"65597-0118-30 ")
 ;;3160
 ;;21,"65597-0118-90 ")
 ;;3161
 ;;21,"65862-0037-01 ")
 ;;2122
 ;;21,"65862-0037-05 ")
 ;;2123
 ;;21,"65862-0038-01 ")
 ;;2727
 ;;21,"65862-0038-05 ")
 ;;2728
 ;;21,"65862-0039-01 ")
 ;;2015
 ;;21,"65862-0039-05 ")
 ;;2016
 ;;21,"65862-0040-01 ")
 ;;2310
 ;;21,"65862-0040-05 ")
 ;;2311
 ;;21,"65862-0041-01 ")
 ;;2407
 ;;21,"65862-0042-01 ")
 ;;2537
 ;;21,"65862-0042-05 ")
 ;;2538
 ;;21,"65862-0043-01 ")
 ;;366
 ;;21,"65862-0043-05 ")
 ;;367
 ;;21,"65862-0044-01 ")
 ;;447
 ;;21,"65862-0044-05 ")
 ;;448
 ;;21,"65862-0045-01 ")
 ;;520
 ;;21,"65862-0045-05 ")
 ;;521
 ;;21,"65862-0116-01 ")
 ;;651
 ;;21,"65862-0117-01 ")
 ;;728
 ;;21,"65862-0118-01 ")
 ;;795
 ;;21,"65862-0161-90 ")
 ;;576
 ;;21,"65862-0162-30 ")
 ;;584
 ;;21,"65862-0162-90 ")
 ;;585
 ;;21,"65862-0163-90 ")
 ;;593
 ;;21,"65862-0164-01 ")
 ;;3106
 ;;21,"65862-0165-01 ")
 ;;3124
 ;;21,"65862-0166-01 ")
 ;;3146
 ;;21,"65862-0201-90 ")
 ;;3684
 ;;21,"65862-0201-99 ")
 ;;3685
 ;;21,"65862-0202-30 ")
 ;;3751
 ;;21,"65862-0202-90 ")
 ;;3752
 ;;21,"65862-0202-99 ")
 ;;3753
 ;;21,"65862-0203-30 ")
 ;;3637
 ;;21,"65862-0203-90 ")
 ;;3638
 ;;21,"65862-0203-99 ")
 ;;3639
 ;;21,"65862-0286-01 ")
 ;;2795
 ;;21,"65862-0287-01 ")
 ;;2801
 ;;21,"65862-0288-01 ")
 ;;2807
 ;;21,"65862-0308-01 ")
 ;;301
 ;;21,"65862-0309-01 ")
 ;;310
 ;;21,"65862-0468-30 ")
 ;;3355
 ;;21,"65862-0468-90 ")
 ;;3356
 ;;21,"65862-0468-99 ")
 ;;3357
 ;;21,"65862-0469-30 ")
 ;;3268
 ;;21,"65862-0469-90 ")
 ;;3269
 ;;21,"65862-0469-99 ")
 ;;3270
 ;;21,"65862-0470-30 ")
 ;;3308
 ;;21,"65862-0470-90 ")
 ;;3309
 ;;21,"65862-0470-99 ")
 ;;3310
 ;;21,"66105-0503-01 ")
 ;;3559
 ;;21,"66105-0503-03 ")
 ;;3560
 ;;21,"66105-0503-06 ")
 ;;3561
 ;;21,"66105-0503-09 ")
 ;;3562
 ;;21,"66105-0503-15 ")
 ;;3563
 ;;21,"66105-0504-01 ")
 ;;3582
 ;;21,"66105-0504-03 ")
 ;;3583
 ;;21,"66105-0504-06 ")
 ;;3584
 ;;21,"66105-0504-09 ")
 ;;3585
 ;;21,"66105-0504-15 ")
 ;;3586
 ;;21,"66105-0545-01 ")
 ;;3429
 ;;21,"66105-0545-03 ")
 ;;3430
 ;;21,"66105-0545-06 ")
 ;;3431
 ;;21,"66105-0545-09 ")
 ;;3432
 ;;21,"66105-0545-10 ")
 ;;3433
 ;;21,"66105-0553-03 ")
 ;;3712
 ;;21,"66105-0663-03 ")
 ;;3285
 ;;21,"66105-0669-03 ")
 ;;3330
 ;;21,"66105-0842-03 ")
 ;;3811
 ;;21,"66105-0842-06 ")
 ;;3812
 ;;21,"66105-0842-09 ")
 ;;3813
 ;;21,"66105-0842-10 ")
 ;;3814
 ;;21,"66105-0842-28 ")
 ;;3815
 ;;21,"66116-0237-30 ")
 ;;652
 ;;21,"66116-0279-30 ")
 ;;2017
 ;;21,"66116-0435-30 ")
 ;;1277
 ;;21,"66116-0436-30 ")
 ;;1633
 ;;21,"66267-0253-30 ")
 ;;1634
 ;;21,"66267-0323-30 ")
 ;;1303
 ;;21,"66267-0323-60 ")
 ;;1304
 ;;21,"66267-0323-90 ")
 ;;1305
 ;;21,"66267-0323-91 ")
 ;;1306
 ;;21,"66267-0380-30 ")
 ;;1513
 ;;21,"66267-0380-60 ")
 ;;1514
 ;;21,"66267-0380-90 ")
 ;;1515
 ;;21,"66267-0380-91 ")
 ;;1516
 ;;21,"66267-0413-30 ")
 ;;1656
 ;;21,"66267-0413-60 ")
 ;;1657
 ;;21,"66267-0413-90 ")
 ;;1658
 ;;21,"66267-0413-92 ")
 ;;1659
 ;;21,"66267-0523-30 ")
 ;;3901
 ;;21,"66267-0523-60 ")
 ;;3902
 ;;21,"66267-0751-30 ")
 ;;383
 ;;21,"66267-0751-90 ")
 ;;384
 ;;21,"66267-0752-30 ")
 ;;469
 ;;21,"66267-0752-90 ")
 ;;470
 ;;21,"66267-1009-00 ")
 ;;1278
 ;;21,"66336-0124-30 ")
 ;;796
 ;;21,"66336-0169-30 ")
 ;;3903
 ;;21,"66336-0232-30 ")
 ;;836
 ;;21,"66336-0387-30 ")
 ;;3848
 ;;21,"66336-0389-30 ")
 ;;1279
 ;;21,"66336-0389-60 ")
 ;;1280
 ;;21,"66336-0391-30 ")
 ;;1635
 ;;21,"66336-0391-60 ")
 ;;1636
 ;;21,"66336-0393-30 ")
 ;;1494
 ;;21,"66336-0393-60 ")
 ;;1495
 ;;21,"66336-0572-30 ")
 ;;368
 ;;21,"66336-0618-60 ")
 ;;938
 ;;21,"66336-0665-15 ")
 ;;3754
 ;;21,"66336-0666-30 ")
 ;;3686
 ;;21,"66336-0672-60 ")
 ;;2061
 ;;21,"66336-0691-30 ")
 ;;729
 ;;21,"66336-0741-30 ")
 ;;2312
 ;;21,"66336-0741-60 ")
 ;;2358
 ;;21,"66336-0741-90 ")
 ;;2313
 ;;21,"66336-0750-30 ")
 ;;1158
 ;;21,"66336-0750-60 ")
 ;;1147
 ;;21,"66336-0750-90 ")
 ;;1148
 ;;21,"66336-0773-30 ")
 ;;653
 ;;21,"66336-0773-90 ")
 ;;666
 ;;21,"66336-0794-60 ")
 ;;873
 ;;21,"66336-0805-30 ")
 ;;449
 ;;21,"66336-0805-90 ")
 ;;450
 ;;21,"66336-0810-30 ")
 ;;522
 ;;21,"66336-0810-90 ")
 ;;523
 ;;21,"66336-0867-30 ")
 ;;2539
 ;;21,"66336-0867-90 ")
 ;;2540
 ;;21,"66336-0946-30 ")
 ;;1047
 ;;21,"66336-0946-60 ")
 ;;1048
 ;;21,"66336-0946-90 ")
 ;;1049
 ;;21,"66336-0972-30 ")
 ;;2018
 ;;21,"66336-0972-90 ")
 ;;2019
 ;;21,"66685-0301-00 ")
 ;;1375
 ;;21,"66685-0301-02 ")
 ;;1376
 ;;21,"66685-0302-00 ")
 ;;1637
 ;;21,"66685-0302-02 ")
 ;;1638
 ;;21,"66685-0303-00 ")
 ;;1281
 ;;21,"66685-0303-02 ")
 ;;1282
 ;;21,"66685-0304-00 ")
 ;;1496
 ;;21,"66685-0304-02 ")
 ;;1497
 ;;21,"66685-0701-01 ")
 ;;2124
 ;;21,"66685-0701-02 ")
 ;;2125
 ;;21,"66685-0702-01 ")
 ;;2729
 ;;21,"66685-0702-02 ")
 ;;2730
 ;;21,"66685-0702-03 ")
 ;;2731
 ;;21,"66685-0703-01 ")
 ;;2020
 ;;21,"66685-0703-02 ")
 ;;2021
 ;;21,"66685-0703-03 ")
 ;;2022
 ;;21,"66685-0704-01 ")
 ;;2314
 ;;21,"66685-0704-02 ")
 ;;2315
 ;;21,"66685-0704-03 ")
 ;;2316
 ;;21,"66685-0705-01 ")
 ;;2408
 ;;21,"66685-0705-02 ")
 ;;2409
 ;;21,"66685-0706-01 ")
 ;;2541
 ;;21,"66685-0706-02 ")
 ;;2542
 ;;21,"66685-0706-03 ")
 ;;2543
 ;;21,"66685-0706-04 ")
 ;;2544
 ;;21,"67253-0106-10 ")
 ;;3107
 ;;21,"67253-0107-10 ")
 ;;3125
 ;;21,"67253-0108-10 ")
 ;;3147
 ;;21,"67253-0671-10 ")
 ;;2935
 ;;21,"67253-0672-10 ")
 ;;3023
 ;;21,"67253-0672-11 ")
 ;;3024
 ;;21,"67253-0673-10 ")
 ;;3074
 ;;21,"67253-0673-11 ")
 ;;3075
 ;;21,"67253-0674-10 ")
 ;;2978
 ;;21,"67253-0674-11 ")
 ;;2979
 ;;21,"67544-0042-15 ")
 ;;1741
 ;;21,"67544-0042-30 ")
 ;;1742
 ;;21,"67544-0042-45 ")
 ;;1743
 ;;21,"67544-0042-53 ")
 ;;1744
 ;;21,"67544-0042-60 ")
 ;;1745
 ;;21,"67544-0042-70 ")
 ;;1746
 ;;21,"67544-0042-73 ")
 ;;1747
 ;;21,"67544-0042-80 ")
 ;;1748
 ;;21,"67544-0042-92 ")
 ;;1749
 ;;21,"67544-0042-94 ")
 ;;1750
 ;;21,"67544-0062-30 ")
 ;;2126
 ;;21,"67544-0062-60 ")
 ;;2127
 ;;21,"67544-0062-82 ")
 ;;2128
 ;;21,"67544-0128-15 ")
 ;;2732
 ;;21,"67544-0128-30 ")
 ;;2733
 ;;21,"67544-0128-45 ")
 ;;2734
 ;;21,"67544-0128-53 ")
 ;;2735
 ;;21,"67544-0128-60 ")
 ;;2736
 ;;21,"67544-0134-30 ")
 ;;2317
 ;;21,"67544-0134-45 ")
 ;;2318
 ;;21,"67544-0134-60 ")
 ;;2319
 ;;21,"67544-0134-80 ")
 ;;2320
 ;;21,"67544-0148-15 ")
 ;;2545
 ;;21,"67544-0148-30 ")
 ;;2546
 ;;21,"67544-0148-45 ")
 ;;2547
 ;;21,"67544-0148-53 ")
 ;;2548
 ;;21,"67544-0148-60 ")
 ;;2549
 ;;21,"67544-0148-80 ")
 ;;2550
 ;;21,"67544-0150-45 ")
 ;;939
 ;;21,"67544-0150-60 ")
 ;;940
 ;;21,"67544-0150-73 ")
 ;;941
 ;;21,"67544-0150-92 ")
 ;;942
 ;;21,"67544-0159-15 ")
 ;;2023
 ;;21,"67544-0159-30 ")
 ;;2024
 ;;21,"67544-0159-45 ")
 ;;2025
 ;;21,"67544-0159-58 ")
 ;;2026
 ;;21,"67544-0159-60 ")
 ;;2027
 ;;21,"67544-0159-80 ")
 ;;2028
 ;;21,"67544-0160-60 ")
 ;;1283
 ;;21,"67544-0160-80 ")
 ;;1284
 ;;21,"67544-0165-60 ")
 ;;1639
 ;;21,"67544-0165-80 ")
 ;;1640
 ;;21,"67544-0166-80 ")
 ;;1377
 ;;21,"67544-0173-30 ")
 ;;2737
 ;;21,"67544-0173-45 ")
 ;;2738
 ;;21,"67544-0173-53 ")
 ;;2739
 ;;21,"67544-0173-60 ")
 ;;2740
 ;;21,"67544-0174-30 ")
 ;;2321
 ;;21,"67544-0174-45 ")
 ;;2322
 ;;21,"67544-0174-60 ")
 ;;2323
 ;;21,"67544-0174-80 ")
 ;;2324
 ;;21,"67544-0175-80 ")
 ;;1641
 ;;21,"67544-0177-45 ")
 ;;3516
 ;;21,"67544-0192-30 ")
 ;;2741
 ;;21,"67544-0192-45 ")
 ;;2742
 ;;21,"67544-0192-53 ")
 ;;2743
 ;;21,"67544-0192-60 ")
 ;;2744
 ;;21,"67544-0201-45 ")
 ;;1816
 ;;21,"67544-0202-15 ")
 ;;1692
 ;;21,"67544-0202-30 ")
 ;;1693
 ;;21,"67544-0202-45 ")
 ;;1694
 ;;21,"67544-0202-80 ")
 ;;1695
 ;;21,"67544-0212-45 ")
 ;;3504
 ;;21,"67544-0212-53 ")
 ;;3505
 ;;21,"67544-0216-80 ")
 ;;1285
 ;;21,"67544-0218-60 ")
 ;;2129
 ;;21,"67544-0218-82 ")
 ;;2130
 ;;21,"67544-0219-15 ")
 ;;2029
 ;;21,"67544-0219-30 ")
 ;;2030
 ;;21,"67544-0219-45 ")
 ;;2031
 ;;21,"67544-0219-60 ")
 ;;2032
 ;;21,"67544-0234-45 ")
 ;;3713
 ;;21,"67544-0234-53 ")
 ;;3714
 ;;21,"67544-0250-60 ")
 ;;451
 ;;21,"67544-0276-60 ")
 ;;452
 ;;21,"67544-0286-80 ")
 ;;1286
 ;;21,"67544-0300-15 ")
 ;;1817
 ;;21,"67544-0300-30 ")
 ;;1818
 ;;21,"67544-0300-45 ")
 ;;1819
 ;;21,"67544-0306-30 ")
 ;;1820
 ;;21,"67544-0306-40 ")
 ;;1821
 ;;21,"67544-0306-45 ")
 ;;1822
 ;;21,"67544-0306-60 ")
 ;;1823
 ;;21,"67544-0311-30 ")
 ;;1824
 ;;21,"67544-0311-45 ")
 ;;1825
 ;;21,"67544-0315-80 ")
 ;;1287
 ;;21,"67544-0321-15 ")
 ;;1696
 ;;21,"67544-0321-30 ")
 ;;1697
 ;;21,"67544-0321-60 ")
 ;;1698
 ;;21,"67544-0322-15 ")
 ;;1751
 ;;21,"67544-0322-30 ")
 ;;1752
 ;;21,"67544-0322-45 ")
 ;;1753
 ;;21,"67544-0322-53 ")
 ;;1754
 ;;21,"67544-0322-60 ")
 ;;1755
 ;;21,"67544-0322-70 ")
 ;;1756
 ;;21,"67544-0322-73 ")
 ;;1757
 ;;21,"67544-0322-80 ")
 ;;1758
 ;;21,"67544-0322-92 ")
 ;;1759
 ;;21,"67544-0322-94 ")
 ;;1760
 ;;21,"67544-0350-80 ")
 ;;1378