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

BGP2TD10.m

Go to the documentation of this file.
BGP2TD10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
 ;;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,"63629-1706-01 ")
 ;;1028
 ;;21,"63629-1706-02 ")
 ;;1029
 ;;21,"63629-1706-03 ")
 ;;1030
 ;;21,"63629-1728-01 ")
 ;;864
 ;;21,"63629-1728-02 ")
 ;;865
 ;;21,"63629-1728-03 ")
 ;;866
 ;;21,"63629-1761-01 ")
 ;;2973
 ;;21,"63629-1809-01 ")
 ;;226
 ;;21,"63629-1809-02 ")
 ;;227
 ;;21,"63629-2541-01 ")
 ;;1311
 ;;21,"63629-2541-02 ")
 ;;1312
 ;;21,"63629-2541-03 ")
 ;;1313
 ;;21,"63629-2541-04 ")
 ;;1314
 ;;21,"63629-2672-01 ")
 ;;764
 ;;21,"63629-2672-02 ")
 ;;765
 ;;21,"63629-2672-03 ")
 ;;766
 ;;21,"63629-2679-01 ")
 ;;994
 ;;21,"63629-2680-01 ")
 ;;249
 ;;21,"63629-2680-02 ")
 ;;250
 ;;21,"63629-2680-03 ")
 ;;251
 ;;21,"63629-2688-01 ")
 ;;2094
 ;;21,"63629-2688-02 ")
 ;;2095
 ;;21,"63629-2688-03 ")
 ;;2096
 ;;21,"63629-2735-01 ")
 ;;274
 ;;21,"63629-2896-01 ")
 ;;1115
 ;;21,"63629-2908-01 ")
 ;;2549
 ;;21,"63629-2908-02 ")
 ;;2550
 ;;21,"63629-2908-03 ")
 ;;2551
 ;;21,"63629-2908-04 ")
 ;;2552
 ;;21,"63629-2912-01 ")
 ;;4000
 ;;21,"63629-2912-02 ")
 ;;4001
 ;;21,"63629-2912-03 ")
 ;;4002
 ;;21,"63629-2912-04 ")
 ;;4003
 ;;21,"63629-2923-01 ")
 ;;948
 ;;21,"63629-2923-02 ")
 ;;949
 ;;21,"63629-2935-01 ")
 ;;2818
 ;;21,"63629-2935-02 ")
 ;;2819
 ;;21,"63629-2935-03 ")
 ;;2820
 ;;21,"63629-2935-04 ")
 ;;2821
 ;;21,"63629-3217-01 ")
 ;;322
 ;;21,"63629-3371-01 ")
 ;;4319
 ;;21,"63629-3371-02 ")
 ;;4320
 ;;21,"63629-3371-03 ")
 ;;4321
 ;;21,"63629-3371-04 ")
 ;;4322
 ;;21,"63629-3373-01 ")
 ;;3947
 ;;21,"63629-3373-02 ")
 ;;3948
 ;;21,"63629-3373-03 ")
 ;;3949
 ;;21,"63629-3373-04 ")
 ;;3950
 ;;21,"63629-3374-01 ")
 ;;3548
 ;;21,"63629-3374-02 ")
 ;;3549
 ;;21,"63629-3374-03 ")
 ;;3550
 ;;21,"63629-3374-04 ")
 ;;3551
 ;;21,"63629-3376-01 ")
 ;;3879
 ;;21,"63629-3376-02 ")
 ;;3880
 ;;21,"63629-3376-03 ")
 ;;3881
 ;;21,"63629-3376-04 ")
 ;;3882
 ;;21,"63629-3377-01 ")
 ;;3521
 ;;21,"63629-3377-02 ")
 ;;3522
 ;;21,"63629-3377-03 ")
 ;;3523
 ;;21,"63629-3377-04 ")
 ;;3524
 ;;21,"63629-3390-01 ")
 ;;4221
 ;;21,"63629-3390-02 ")
 ;;4222
 ;;21,"63629-3390-03 ")
 ;;4223
 ;;21,"63629-3390-04 ")
 ;;4224
 ;;21,"63629-3739-01 ")
 ;;642
 ;;21,"63629-3739-02 ")
 ;;643
 ;;21,"63739-0042-01 ")
 ;;1106
 ;;21,"63739-0042-02 ")
 ;;1107
 ;;21,"63739-0042-03 ")
 ;;1108
 ;;21,"63739-0042-10 ")
 ;;1109
 ;;21,"63739-0042-15 ")
 ;;1110
 ;;21,"63739-0043-01 ")
 ;;1214
 ;;21,"63739-0043-02 ")
 ;;1215
 ;;21,"63739-0043-03 ")
 ;;1216
 ;;21,"63739-0043-10 ")
 ;;1217
 ;;21,"63739-0043-15 ")
 ;;1218
 ;;21,"63739-0302-10 ")
 ;;1347
 ;;21,"63739-0302-15 ")
 ;;1348
 ;;21,"63739-0322-10 ")
 ;;1498
 ;;21,"63739-0322-15 ")
 ;;1499
 ;;21,"63739-0323-10 ")
 ;;1717
 ;;21,"63739-0323-15 ")
 ;;1718
 ;;21,"63739-0348-10 ")
 ;;2969
 ;;21,"63739-0348-15 ")
 ;;2970
 ;;21,"63739-0349-10 ")
 ;;2099
 ;;21,"63739-0349-15 ")
 ;;2100
 ;;21,"63739-0350-10 ")
 ;;2572
 ;;21,"63739-0350-15 ")
 ;;2573
 ;;21,"63739-0513-10 ")
 ;;4091
 ;;21,"63739-0514-10 ")
 ;;4176
 ;;21,"63739-0515-10 ")
 ;;4016
 ;;21,"63739-0527-10 ")
 ;;3720
 ;;21,"63739-0528-10 ")
 ;;3602
 ;;21,"63739-0529-10 ")
 ;;3652
 ;;21,"63874-0058-10 ")
 ;;3156
 ;;21,"63874-0058-15 ")
 ;;3157
 ;;21,"63874-0058-30 ")
 ;;3158
 ;;21,"63874-0058-90 ")
 ;;3159
 ;;21,"63874-0347-01 ")
 ;;1219
 ;;21,"63874-0347-02 ")
 ;;1220
 ;;21,"63874-0347-05 ")
 ;;1221
 ;;21,"63874-0347-20 ")
 ;;1222
 ;;21,"63874-0347-30 ")
 ;;1223
 ;;21,"63874-0347-40 ")
 ;;1224
 ;;21,"63874-0347-42 ")
 ;;1225
 ;;21,"63874-0347-45 ")
 ;;1226
 ;;21,"63874-0347-90 ")
 ;;1227
 ;;21,"63874-0348-01 ")
 ;;1300
 ;;21,"63874-0348-10 ")
 ;;1301
 ;;21,"63874-0348-14 ")
 ;;1302
 ;;21,"63874-0348-20 ")
 ;;1303
 ;;21,"63874-0348-30 ")
 ;;1304
 ;;21,"63874-0348-60 ")
 ;;1305
 ;;21,"63874-0348-90 ")
 ;;1306
 ;;21,"63874-0349-01 ")
 ;;1035
 ;;21,"63874-0349-10 ")
 ;;1036
 ;;21,"63874-0349-30 ")
 ;;1037
 ;;21,"63874-0379-10 ")
 ;;3189
 ;;21,"63874-0379-30 ")
 ;;3190
 ;;21,"63874-0423-01 ")
 ;;1710
 ;;21,"63874-0423-07 ")
 ;;1711
 ;;21,"63874-0423-10 ")
 ;;1712
 ;;21,"63874-0423-14 ")
 ;;1713
 ;;21,"63874-0423-20 ")
 ;;1714
 ;;21,"63874-0423-30 ")
 ;;1715
 ;;21,"63874-0423-60 ")
 ;;1716
 ;;21,"63874-0514-01 ")
 ;;2562
 ;;21,"63874-0514-10 ")
 ;;2563
 ;;21,"63874-0514-14 ")
 ;;2564
 ;;21,"63874-0514-15 ")
 ;;2565
 ;;21,"63874-0514-16 ")
 ;;2566
 ;;21,"63874-0514-20 ")
 ;;2567
 ;;21,"63874-0514-28 ")
 ;;2568
 ;;21,"63874-0514-30 ")
 ;;2569
 ;;21,"63874-0514-60 ")
 ;;2570
 ;;21,"63874-0514-90 ")
 ;;2571
 ;;21,"63874-0522-01 ")
 ;;2101
 ;;21,"63874-0522-08 ")
 ;;2102
 ;;21,"63874-0522-10 ")
 ;;2103
 ;;21,"63874-0522-14 ")
 ;;2104
 ;;21,"63874-0522-15 ")
 ;;2105
 ;;21,"63874-0522-20 ")
 ;;2106
 ;;21,"63874-0522-21 ")
 ;;2107
 ;;21,"63874-0522-28 ")
 ;;2108
 ;;21,"63874-0522-30 ")
 ;;2109
 ;;21,"63874-0522-60 ")
 ;;2110
 ;;21,"63874-0522-90 ")
 ;;2111
 ;;21,"63874-0558-01 ")
 ;;2961
 ;;21,"63874-0558-10 ")
 ;;2962
 ;;21,"63874-0558-14 ")
 ;;2963
 ;;21,"63874-0558-16 ")
 ;;2964
 ;;21,"63874-0558-28 ")
 ;;2965
 ;;21,"63874-0558-30 ")
 ;;2966
 ;;21,"63874-0558-60 ")
 ;;2967
 ;;21,"63874-0558-90 ")
 ;;2968
 ;;21,"63874-0581-10 ")
 ;;3088
 ;;21,"63874-0581-30 ")
 ;;3089
 ;;21,"63874-0581-90 ")
 ;;3090
 ;;21,"63874-0618-10 ")
 ;;2805
 ;;21,"63874-0618-15 ")
 ;;2806
 ;;21,"63874-0618-30 ")
 ;;2807
 ;;21,"63874-0618-40 ")
 ;;2808
 ;;21,"63874-0618-60 ")
 ;;2809
 ;;21,"63874-0655-01 ")
 ;;1341
 ;;21,"63874-0655-10 ")
 ;;1342
 ;;21,"63874-0655-14 ")
 ;;1343
 ;;21,"63874-0655-20 ")
 ;;1344
 ;;21,"63874-0655-30 ")
 ;;1345
 ;;21,"63874-0655-60 ")
 ;;1346
 ;;21,"63874-0987-01 ")
 ;;1577
 ;;21,"63874-0987-10 ")
 ;;1578
 ;;21,"63874-0987-14 ")
 ;;1579
 ;;21,"63874-0987-20 ")
 ;;1580
 ;;21,"63874-0987-30 ")
 ;;1581
 ;;21,"63874-0987-60 ")
 ;;1582
 ;;21,"63874-1114-09 ")
 ;;2620
 ;;21,"63874-1123-01 ")
 ;;868
 ;;21,"63874-1123-03 ")
 ;;869
 ;;21,"64455-0130-01 ")
 ;;3907
 ;;21,"64455-0131-01 ")
 ;;3921
 ;;21,"64455-0132-01 ")
 ;;3531
 ;;21,"64455-0133-01 ")
 ;;3534
 ;;21,"64455-0140-10 ")
 ;;1573
 ;;21,"64455-0140-11 ")
 ;;1574
 ;;21,"64455-0140-30 ")
 ;;1575
 ;;21,"64455-0140-90 ")
 ;;1576
 ;;21,"64455-0141-10 ")
 ;;1854
 ;;21,"64455-0141-11 ")
 ;;1855
 ;;21,"64455-0141-30 ")
 ;;1856
 ;;21,"64455-0141-90 ")
 ;;1857
 ;;21,"64455-0142-10 ")
 ;;1490
 ;;21,"64455-0142-11 ")
 ;;1491
 ;;21,"64455-0142-30 ")
 ;;1492
 ;;21,"64455-0142-90 ")
 ;;1493
 ;;21,"64455-0143-10 ")
 ;;1706
 ;;21,"64455-0143-11 ")
 ;;1707
 ;;21,"64455-0143-30 ")
 ;;1708
 ;;21,"64455-0143-90 ")
 ;;1709
 ;;21,"64455-0145-01 ")
 ;;372
 ;;21,"64455-0146-01 ")
 ;;350
 ;;21,"64679-0902-01 ")
 ;;1111
 ;;21,"64679-0902-02 ")
 ;;1112
 ;;21,"64679-0903-01 ")
 ;;1212
 ;;21,"64679-0903-02 ")
 ;;1213
 ;;21,"64679-0904-01 ")
 ;;1307
 ;;21,"64679-0904-02 ")
 ;;1308
 ;;21,"64679-0905-01 ")
 ;;1034
 ;;21,"64679-0923-02 ")
 ;;1500
 ;;21,"64679-0923-03 ")
 ;;1501
 ;;21,"64679-0923-09 ")
 ;;1502
 ;;21,"64679-0924-02 ")
 ;;1719
 ;;21,"64679-0924-03 ")
 ;;1720
 ;;21,"64679-0924-09 ")
 ;;1721
 ;;21,"64679-0925-02 ")
 ;;1349
 ;;21,"64679-0925-03 ")
 ;;1350
 ;;21,"64679-0925-09 ")
 ;;1351
 ;;21,"64679-0926-02 ")
 ;;1583
 ;;21,"64679-0926-03 ")
 ;;1584
 ;;21,"64679-0926-09 ")
 ;;1585
 ;;21,"64679-0927-01 ")
 ;;2306
 ;;21,"64679-0927-02 ")
 ;;2307
 ;;21,"64679-0927-05 ")
 ;;2308
 ;;21,"64679-0927-09 ")
 ;;2309
 ;;21,"64679-0928-01 ")
 ;;2953
 ;;21,"64679-0928-05 ")
 ;;2954
 ;;21,"64679-0928-06 ")
 ;;2955
 ;;21,"64679-0928-10 ")
 ;;2956
 ;;21,"64679-0929-01 ")
 ;;2112
 ;;21,"64679-0929-05 ")
 ;;2113
 ;;21,"64679-0929-06 ")
 ;;2114
 ;;21,"64679-0929-10 ")
 ;;2115
 ;;21,"64679-0941-01 ")
 ;;2555
 ;;21,"64679-0941-05 ")
 ;;2556
 ;;21,"64679-0941-06 ")
 ;;2557
 ;;21,"64679-0941-10 ")
 ;;2558
 ;;21,"64679-0942-01 ")
 ;;2814
 ;;21,"64679-0942-02 ")
 ;;2815
 ;;21,"64679-0942-05 ")
 ;;2816
 ;;21,"64679-0942-09 ")
 ;;2817
 ;;21,"64679-0953-01 ")
 ;;2621
 ;;21,"64679-0953-02 ")
 ;;2622
 ;;21,"64679-0953-05 ")
 ;;2623
 ;;21,"64679-0953-09 ")
 ;;2624
 ;;21,"64764-0844-30 ")
 ;;3877
 ;;21,"64764-0884-30 ")
 ;;3878
 ;;21,"65162-0751-10 ")
 ;;995
 ;;21,"65162-0751-50 ")
 ;;996
 ;;21,"65162-0752-10 ")
 ;;762
 ;;21,"65162-0752-50 ")
 ;;763
 ;;21,"65162-0753-10 ")
 ;;870
 ;;21,"65162-0753-50 ")
 ;;871
 ;;21,"65162-0754-10 ")
 ;;945
 ;;21,"65162-0754-50 ")
 ;;946
 ;;21,"65243-0303-03 ")
 ;;2957
 ;;21,"65243-0303-09 ")
 ;;2958
 ;;21,"65243-0303-15 ")
 ;;2959
 ;;21,"65243-0303-45 ")
 ;;2960
 ;;21,"65243-0314-03 ")
 ;;2810
 ;;21,"65243-0314-09 ")
 ;;2811
 ;;21,"65243-0314-18 ")
 ;;2812
 ;;21,"65243-0314-45 ")
 ;;2813
 ;;21,"65243-0341-09 ")
 ;;2559
 ;;21,"65243-0341-18 ")
 ;;2560
 ;;21,"65243-0341-45 ")
 ;;2561
 ;;21,"65243-0358-03 ")
 ;;2118
 ;;21,"65243-0358-09 ")
 ;;2119
 ;;21,"65243-0358-45 ")
 ;;2120
 ;;21,"65597-0101-30 ")
 ;;4262
 ;;21,"65597-0103-10 ")
 ;;4218
 ;;21,"65597-0103-30 ")
 ;;4219
 ;;21,"65597-0103-90 ")
 ;;4220
 ;;21,"65597-0104-10 ")
 ;;4256
 ;;21,"65597-0104-30 ")
 ;;4257
 ;;21,"65597-0104-90 ")
 ;;4258
 ;;21,"65597-0105-10 ")
 ;;3723
 ;;21,"65597-0105-30 ")
 ;;3724
 ;;21,"65597-0105-90 ")
 ;;3725
 ;;21,"65597-0106-10 ")
 ;;3738
 ;;21,"65597-0106-30 ")
 ;;3739
 ;;21,"65597-0106-90 ")
 ;;3740
 ;;21,"65597-0107-10 ")
 ;;3741
 ;;21,"65597-0107-30 ")
 ;;3742
 ;;21,"65597-0107-90 ")
 ;;3743
 ;;21,"65597-0110-10 ")
 ;;3489
 ;;21,"65597-0110-30 ")
 ;;3490
 ;;21,"65597-0110-90 ")
 ;;3491
 ;;21,"65597-0111-10 ")
 ;;3481
 ;;21,"65597-0111-30 ")
 ;;3482
 ;;21,"65597-0111-90 ")
 ;;3483
 ;;21,"65597-0112-10 ")
 ;;3492
 ;;21,"65597-0112-30 ")
 ;;3493
 ;;21,"65597-0112-90 ")
 ;;3494
 ;;21,"65597-0113-10 ")
 ;;3484
 ;;21,"65597-0113-30 ")
 ;;3485
 ;;21,"65597-0113-90 ")
 ;;3486
 ;;21,"65597-0114-30 ")
 ;;4389
 ;;21,"65597-0114-90 ")
 ;;4390
 ;;21,"65597-0115-30 ")
 ;;4395
 ;;21,"65597-0115-90 ")
 ;;4396
 ;;21,"65597-0116-30 ")
 ;;4397
 ;;21,"65597-0116-90 ")
 ;;4398
 ;;21,"65597-0117-30 ")
 ;;4391
 ;;21,"65597-0117-90 ")
 ;;4392
 ;;21,"65597-0118-30 ")
 ;;4393
 ;;21,"65597-0118-90 ")
 ;;4394
 ;;21,"65862-0037-01 ")
 ;;2310
 ;;21,"65862-0037-05 ")
 ;;2311
 ;;21,"65862-0038-01 ")
 ;;2951
 ;;21,"65862-0038-05 ")
 ;;2952
 ;;21,"65862-0039-01 ")
 ;;2116
 ;;21,"65862-0039-05 ")
 ;;2117
 ;;21,"65862-0040-01 ")
 ;;2553
 ;;21,"65862-0040-05 ")
 ;;2554
 ;;21,"65862-0041-01 ")
 ;;2625
 ;;21,"65862-0042-01 ")
 ;;2803
 ;;21,"65862-0042-05 ")
 ;;2804
 ;;21,"65862-0043-01 ")
 ;;445
 ;;21,"65862-0043-05 ")
 ;;446
 ;;21,"65862-0044-01 ")
 ;;542
 ;;21,"65862-0044-05 ")
 ;;543
 ;;21,"65862-0045-01 ")
 ;;640
 ;;21,"65862-0045-05 ")
 ;;641
 ;;21,"65862-0116-01 ")
 ;;767
 ;;21,"65862-0117-01 ")
 ;;867
 ;;21,"65862-0118-01 ")
 ;;947
 ;;21,"65862-0161-90 ")
 ;;694
 ;;21,"65862-0162-30 ")
 ;;704
 ;;21,"65862-0162-90 ")
 ;;705
 ;;21,"65862-0163-90 ")
 ;;718
 ;;21,"65862-0164-01 ")
 ;;3432
 ;;21,"65862-0165-01 ")
 ;;3455
 ;;21,"65862-0166-01 ")
 ;;3474
 ;;21,"65862-0201-90 ")
 ;;4092
 ;;21,"65862-0201-99 ")
 ;;4093
 ;;21,"65862-0202-30 ")
 ;;4173
 ;;21,"65862-0202-90 ")
 ;;4174
 ;;21,"65862-0202-99 ")
 ;;4175
 ;;21,"65862-0203-30 ")
 ;;4017
 ;;21,"65862-0203-90 ")
 ;;4018
 ;;21,"65862-0203-99 ")
 ;;4019
 ;;21,"65862-0286-01 ")
 ;;3074
 ;;21,"65862-0287-01 ")
 ;;3080
 ;;21,"65862-0288-01 ")
 ;;3087
 ;;21,"65862-0308-01 ")
 ;;379
 ;;21,"65862-0309-01 ")
 ;;385
 ;;21,"65862-0468-30 ")
 ;;3707
 ;;21,"65862-0468-90 ")
 ;;3708
 ;;21,"65862-0468-99 ")
 ;;3709
 ;;21,"65862-0469-30 ")
 ;;3607
 ;;21,"65862-0469-90 ")
 ;;3608
 ;;21,"65862-0469-99 ")
 ;;3609
 ;;21,"65862-0470-30 ")
 ;;3663
 ;;21,"65862-0470-90 ")
 ;;3664
 ;;21,"65862-0470-99 ")
 ;;3665
 ;;21,"65862-0471-90 ")
 ;;1869
 ;;21,"65862-0472-90 ")
 ;;1954
 ;;21,"65862-0473-90 ")
 ;;2022
 ;;21,"66105-0503-01 ")
 ;;3951
 ;;21,"66105-0503-03 ")
 ;;3952
 ;;21,"66105-0503-06 ")
 ;;3953
 ;;21,"66105-0503-09 ")
 ;;3954
 ;;21,"66105-0503-15 ")
 ;;3955
 ;;21,"66105-0504-01 ")
 ;;3956
 ;;21,"66105-0504-03 ")
 ;;3957
 ;;21,"66105-0504-06 ")
 ;;3958
 ;;21,"66105-0504-09 ")
 ;;3959
 ;;21,"66105-0504-15 ")
 ;;3960
 ;;21,"66105-0545-01 ")
 ;;3800
 ;;21,"66105-0545-03 ")
 ;;3801
 ;;21,"66105-0545-06 ")
 ;;3802
 ;;21,"66105-0545-09 ")
 ;;3803
 ;;21,"66105-0545-10 ")
 ;;3804
 ;;21,"66105-0553-03 ")
 ;;4148
 ;;21,"66105-0663-03 ")
 ;;3610
 ;;21,"66105-0669-03 ")
 ;;3667
 ;;21,"66105-0842-03 ")
 ;;4274
 ;;21,"66105-0842-06 ")
 ;;4275
 ;;21,"66105-0842-09 ")
 ;;4276
 ;;21,"66105-0842-10 ")
 ;;4277
 ;;21,"66105-0842-28 ")
 ;;4278
 ;;21,"66116-0237-30 ")
 ;;788
 ;;21,"66116-0279-30 ")
 ;;2273
 ;;21,"66116-0435-30 ")
 ;;1386
 ;;21,"66116-0436-30 ")
 ;;1765
 ;;21,"66267-0253-30 ")
 ;;1849
 ;;21,"66267-0323-30 ")
 ;;1382
 ;;21,"66267-0323-60 ")
 ;;1383