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

BGP2TD2.m

Go to the documentation of this file.
BGP2TD2 ;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,"00093-7326-01 ")
 ;;3443
 ;;21,"00093-7327-01 ")
 ;;3467
 ;;21,"00093-7364-10 ")
 ;;4114
 ;;21,"00093-7364-98 ")
 ;;4115
 ;;21,"00093-7365-10 ")
 ;;4196
 ;;21,"00093-7365-56 ")
 ;;4197
 ;;21,"00093-7365-98 ")
 ;;4198
 ;;21,"00093-7366-10 ")
 ;;4050
 ;;21,"00093-7366-56 ")
 ;;4051
 ;;21,"00093-7366-98 ")
 ;;4052
 ;;21,"00093-7367-10 ")
 ;;3697
 ;;21,"00093-7367-56 ")
 ;;3698
 ;;21,"00093-7367-98 ")
 ;;3699
 ;;21,"00093-7368-10 ")
 ;;3626
 ;;21,"00093-7368-56 ")
 ;;3627
 ;;21,"00093-7368-98 ")
 ;;3628
 ;;21,"00093-7369-10 ")
 ;;3576
 ;;21,"00093-7369-56 ")
 ;;3577
 ;;21,"00093-7369-98 ")
 ;;3578
 ;;21,"00093-7370-01 ")
 ;;71
 ;;21,"00093-7371-01 ")
 ;;105
 ;;21,"00093-7371-10 ")
 ;;87
 ;;21,"00093-7372-01 ")
 ;;148
 ;;21,"00093-7372-10 ")
 ;;140
 ;;21,"00093-7373-01 ")
 ;;31
 ;;21,"00093-7373-10 ")
 ;;30
 ;;21,"00093-7436-01 ")
 ;;3344
 ;;21,"00093-7437-01 ")
 ;;3410
 ;;21,"00093-7438-01 ")
 ;;3296
 ;;21,"00093-7670-01 ")
 ;;169
 ;;21,"00093-7671-01 ")
 ;;47
 ;;21,"00093-8132-01 ")
 ;;1074
 ;;21,"00093-8132-10 ")
 ;;1075
 ;;21,"00093-8133-01 ")
 ;;1160
 ;;21,"00093-8133-10 ")
 ;;1161
 ;;21,"00093-8134-01 ")
 ;;1271
 ;;21,"00093-8134-10 ")
 ;;1272
 ;;21,"00093-8135-01 ")
 ;;1019
 ;;21,"00143-1171-01 ")
 ;;1071
 ;;21,"00143-1171-10 ")
 ;;1072
 ;;21,"00143-1171-25 ")
 ;;1073
 ;;21,"00143-1172-01 ")
 ;;1162
 ;;21,"00143-1172-10 ")
 ;;1163
 ;;21,"00143-1172-25 ")
 ;;1164
 ;;21,"00143-1173-01 ")
 ;;1268
 ;;21,"00143-1173-10 ")
 ;;1269
 ;;21,"00143-1173-25 ")
 ;;1270
 ;;21,"00143-1174-01 ")
 ;;1020
 ;;21,"00143-1174-25 ")
 ;;1021
 ;;21,"00143-1262-01 ")
 ;;403
 ;;21,"00143-1262-10 ")
 ;;404
 ;;21,"00143-1263-01 ")
 ;;512
 ;;21,"00143-1263-10 ")
 ;;513
 ;;21,"00143-1264-01 ")
 ;;623
 ;;21,"00143-1264-10 ")
 ;;624
 ;;21,"00143-1265-01 ")
 ;;2328
 ;;21,"00143-1265-09 ")
 ;;2329
 ;;21,"00143-1265-10 ")
 ;;2330
 ;;21,"00143-1266-01 ")
 ;;2920
 ;;21,"00143-1266-09 ")
 ;;2921
 ;;21,"00143-1266-10 ")
 ;;2922
 ;;21,"00143-1266-30 ")
 ;;2923
 ;;21,"00143-1266-45 ")
 ;;2924
 ;;21,"00143-1267-01 ")
 ;;2186
 ;;21,"00143-1267-09 ")
 ;;2187
 ;;21,"00143-1267-10 ")
 ;;2188
 ;;21,"00143-1267-18 ")
 ;;2189
 ;;21,"00143-1267-30 ")
 ;;2190
 ;;21,"00143-1267-45 ")
 ;;2191
 ;;21,"00143-1268-01 ")
 ;;2473
 ;;21,"00143-1268-09 ")
 ;;2474
 ;;21,"00143-1268-10 ")
 ;;2475
 ;;21,"00143-1268-18 ")
 ;;2476
 ;;21,"00143-1268-30 ")
 ;;2477
 ;;21,"00143-1268-45 ")
 ;;2478
 ;;21,"00143-1270-01 ")
 ;;2707
 ;;21,"00143-1270-09 ")
 ;;2708
 ;;21,"00143-1270-10 ")
 ;;2709
 ;;21,"00143-1270-18 ")
 ;;2710
 ;;21,"00143-1270-30 ")
 ;;2711
 ;;21,"00143-1270-45 ")
 ;;2712
 ;;21,"00143-1280-01 ")
 ;;2651
 ;;21,"00143-1280-10 ")
 ;;2652
 ;;21,"00143-9125-01 ")
 ;;3424
 ;;21,"00143-9126-01 ")
 ;;3444
 ;;21,"00143-9127-01 ")
 ;;3466
 ;;21,"00172-2515-60 ")
 ;;295
 ;;21,"00172-3757-00 ")
 ;;2331
 ;;21,"00172-3757-10 ")
 ;;2332
 ;;21,"00172-3757-60 ")
 ;;2333
 ;;21,"00172-3757-70 ")
 ;;2334
 ;;21,"00172-3758-00 ")
 ;;2915
 ;;21,"00172-3758-10 ")
 ;;2916
 ;;21,"00172-3758-60 ")
 ;;2917
 ;;21,"00172-3758-70 ")
 ;;2918
 ;;21,"00172-3758-80 ")
 ;;2919
 ;;21,"00172-3759-00 ")
 ;;2192
 ;;21,"00172-3759-10 ")
 ;;2193
 ;;21,"00172-3759-60 ")
 ;;2194
 ;;21,"00172-3759-70 ")
 ;;2195
 ;;21,"00172-3759-80 ")
 ;;2196
 ;;21,"00172-3759-85 ")
 ;;2197
 ;;21,"00172-3760-00 ")
 ;;2467
 ;;21,"00172-3760-10 ")
 ;;2468
 ;;21,"00172-3760-60 ")
 ;;2469
 ;;21,"00172-3760-70 ")
 ;;2470
 ;;21,"00172-3760-80 ")
 ;;2471
 ;;21,"00172-3760-85 ")
 ;;2472
 ;;21,"00172-3761-00 ")
 ;;2702
 ;;21,"00172-3761-10 ")
 ;;2703
 ;;21,"00172-3761-60 ")
 ;;2704
 ;;21,"00172-3761-70 ")
 ;;2705
 ;;21,"00172-3761-80 ")
 ;;2706
 ;;21,"00172-3762-00 ")
 ;;2646
 ;;21,"00172-3762-10 ")
 ;;2647
 ;;21,"00172-3762-60 ")
 ;;2648
 ;;21,"00172-3762-70 ")
 ;;2649
 ;;21,"00172-4195-10 ")
 ;;1538
 ;;21,"00172-4195-60 ")
 ;;1539
 ;;21,"00172-4195-64 ")
 ;;1540
 ;;21,"00172-4195-80 ")
 ;;1541
 ;;21,"00172-4195-93 ")
 ;;1542
 ;;21,"00172-4196-10 ")
 ;;1779
 ;;21,"00172-4196-60 ")
 ;;1780
 ;;21,"00172-4196-64 ")
 ;;1781
 ;;21,"00172-4196-80 ")
 ;;1782
 ;;21,"00172-4196-93 ")
 ;;1783
 ;;21,"00172-4197-10 ")
 ;;1407
 ;;21,"00172-4197-60 ")
 ;;1408
 ;;21,"00172-4197-80 ")
 ;;1409
 ;;21,"00172-4197-93 ")
 ;;1410
 ;;21,"00172-4198-10 ")
 ;;1636
 ;;21,"00172-4198-60 ")
 ;;1637
 ;;21,"00172-4198-64 ")
 ;;1638
 ;;21,"00172-4198-80 ")
 ;;1639
 ;;21,"00172-4198-93 ")
 ;;1640
 ;;21,"00172-5025-60 ")
 ;;318
 ;;21,"00172-5032-00 ")
 ;;618
 ;;21,"00172-5032-10 ")
 ;;619
 ;;21,"00172-5032-60 ")
 ;;620
 ;;21,"00172-5032-70 ")
 ;;621
 ;;21,"00172-5032-80 ")
 ;;622
 ;;21,"00172-5033-00 ")
 ;;398
 ;;21,"00172-5033-10 ")
 ;;399
 ;;21,"00172-5033-60 ")
 ;;400
 ;;21,"00172-5033-70 ")
 ;;401
 ;;21,"00172-5033-80 ")
 ;;402
 ;;21,"00172-5034-00 ")
 ;;514
 ;;21,"00172-5034-10 ")
 ;;515
 ;;21,"00172-5034-60 ")
 ;;516
 ;;21,"00172-5034-70 ")
 ;;517
 ;;21,"00172-5034-80 ")
 ;;518
 ;;21,"00172-5350-60 ")
 ;;967
 ;;21,"00172-5350-70 ")
 ;;968
 ;;21,"00172-5351-10 ")
 ;;721
 ;;21,"00172-5351-60 ")
 ;;722
 ;;21,"00172-5351-70 ")
 ;;723
 ;;21,"00172-5351-80 ")
 ;;724
 ;;21,"00172-5352-10 ")
 ;;804
 ;;21,"00172-5352-60 ")
 ;;805
 ;;21,"00172-5352-70 ")
 ;;806
 ;;21,"00172-5352-80 ")
 ;;807
 ;;21,"00172-5353-10 ")
 ;;892
 ;;21,"00172-5353-60 ")
 ;;893
 ;;21,"00172-5353-70 ")
 ;;894
 ;;21,"00172-5353-80 ")
 ;;895
 ;;21,"00172-5360-60 ")
 ;;285
 ;;21,"00172-5361-60 ")
 ;;218
 ;;21,"00172-5361-70 ")
 ;;219
 ;;21,"00172-5362-60 ")
 ;;240
 ;;21,"00172-5362-70 ")
 ;;241
 ;;21,"00172-5363-60 ")
 ;;265
 ;;21,"00172-5363-70 ")
 ;;266
 ;;21,"00182-2623-89 ")
 ;;1165
 ;;21,"00185-0025-01 ")
 ;;2325
 ;;21,"00185-0025-10 ")
 ;;2326
 ;;21,"00185-0041-09 ")
 ;;1888
 ;;21,"00185-0041-10 ")
 ;;1889
 ;;21,"00185-0042-09 ")
 ;;1961
 ;;21,"00185-0042-10 ")
 ;;1962
 ;;21,"00185-0047-09 ")
 ;;2031
 ;;21,"00185-0047-10 ")
 ;;2032
 ;;21,"00185-0048-01 ")
 ;;896
 ;;21,"00185-0048-05 ")
 ;;897
 ;;21,"00185-0053-01 ")
 ;;725
 ;;21,"00185-0053-05 ")
 ;;726
 ;;21,"00185-0101-01 ")
 ;;2181
 ;;21,"00185-0101-10 ")
 ;;2182
 ;;21,"00185-0101-33 ")
 ;;2183
 ;;21,"00185-0102-01 ")
 ;;2481
 ;;21,"00185-0102-10 ")
 ;;2482
 ;;21,"00185-0102-33 ")
 ;;2483
 ;;21,"00185-0103-01 ")
 ;;2644
 ;;21,"00185-0103-10 ")
 ;;2645
 ;;21,"00185-0104-01 ")
 ;;2715
 ;;21,"00185-0104-10 ")
 ;;2716
 ;;21,"00185-0114-01 ")
 ;;1535
 ;;21,"00185-0114-10 ")
 ;;1536
 ;;21,"00185-0114-50 ")
 ;;1537
 ;;21,"00185-0124-01 ")
 ;;284
 ;;21,"00185-0127-01 ")
 ;;1776
 ;;21,"00185-0127-10 ")
 ;;1777
 ;;21,"00185-0127-50 ")
 ;;1778
 ;;21,"00185-0147-01 ")
 ;;1411
 ;;21,"00185-0147-10 ")
 ;;1412
 ;;21,"00185-0147-50 ")
 ;;1413
 ;;21,"00185-0151-01 ")
 ;;365
 ;;21,"00185-0152-01 ")
 ;;521
 ;;21,"00185-0152-10 ")
 ;;522
 ;;21,"00185-0172-01 ")
 ;;331
 ;;21,"00185-0172-10 ")
 ;;332
 ;;21,"00185-0173-01 ")
 ;;614
 ;;21,"00185-0173-10 ")
 ;;615
 ;;21,"00185-0204-01 ")
 ;;220
 ;;21,"00185-0211-01 ")
 ;;239
 ;;21,"00185-0214-01 ")
 ;;1633
 ;;21,"00185-0214-10 ")
 ;;1634
 ;;21,"00185-0214-50 ")
 ;;1635
 ;;21,"00185-0277-01 ")
 ;;267
 ;;21,"00185-0341-01 ")
 ;;380
 ;;21,"00185-0342-01 ")
 ;;383
 ;;21,"00185-0505-01 ")
 ;;969
 ;;21,"00185-0505-05 ")
 ;;970
 ;;21,"00185-0820-01 ")
 ;;808
 ;;21,"00185-0820-05 ")
 ;;809
 ;;21,"00185-5400-01 ")
 ;;2927
 ;;21,"00185-5400-10 ")
 ;;2928
 ;;21,"00185-5400-33 ")
 ;;2929
 ;;21,"00185-7100-01 ")
 ;;394
 ;;21,"00185-7100-10 ")
 ;;395
 ;;21,"00186-0001-31 ")
 ;;178
 ;;21,"00186-0001-68 ")
 ;;179
 ;;21,"00186-0002-31 ")
 ;;177
 ;;21,"00186-0004-31 ")
 ;;3901
 ;;21,"00186-0008-31 ")
 ;;3902
 ;;21,"00186-0016-28 ")
 ;;3889
 ;;21,"00186-0016-31 ")
 ;;3890
 ;;21,"00186-0016-54 ")
 ;;3891
 ;;21,"00186-0032-28 ")
 ;;3892
 ;;21,"00186-0032-31 ")
 ;;3893
 ;;21,"00186-0032-54 ")
 ;;3894
 ;;21,"00186-0162-28 ")
 ;;3514
 ;;21,"00186-0162-54 ")
 ;;3515
 ;;21,"00186-0322-28 ")
 ;;3519
 ;;21,"00186-0322-54 ")
 ;;3520
 ;;21,"00186-0324-54 ")
 ;;3527
 ;;21,"00228-2658-11 ")
 ;;1543
 ;;21,"00228-2658-96 ")
 ;;1544
 ;;21,"00228-2659-11 ")
 ;;1774
 ;;21,"00228-2659-96 ")
 ;;1775
 ;;21,"00228-2660-11 ")
 ;;1414
 ;;21,"00228-2660-96 ")
 ;;1415
 ;;21,"00228-2661-11 ")
 ;;1631
 ;;21,"00228-2661-96 ")
 ;;1632
 ;;21,"00228-2695-11 ")
 ;;3345
 ;;21,"00228-2695-50 ")
 ;;3346
 ;;21,"00228-2696-11 ")
 ;;3408
 ;;21,"00228-2696-50 ")
 ;;3409
 ;;21,"00228-2697-11 ")
 ;;3294
 ;;21,"00228-2697-50 ")
 ;;3295
 ;;21,"00228-2706-03 ")
 ;;396
 ;;21,"00228-2706-11 ")
 ;;397
 ;;21,"00228-2707-03 ")
 ;;519
 ;;21,"00228-2707-11 ")
 ;;520
 ;;21,"00228-2708-03 ")
 ;;616
 ;;21,"00228-2708-11 ")
 ;;617
 ;;21,"00245-0193-01 ")
 ;;4110
 ;;21,"00245-0193-10 ")
 ;;4111
 ;;21,"00245-0193-30 ")
 ;;4112
 ;;21,"00245-0193-90 ")
 ;;4113
 ;;21,"00245-0194-01 ")
 ;;4199
 ;;21,"00245-0194-10 ")
 ;;4200
 ;;21,"00245-0194-30 ")
 ;;4201
 ;;21,"00245-0194-90 ")
 ;;4202
 ;;21,"00245-0195-01 ")
 ;;4046
 ;;21,"00245-0195-10 ")
 ;;4047
 ;;21,"00245-0195-30 ")
 ;;4048
 ;;21,"00245-0195-90 ")
 ;;4049
 ;;21,"00247-1023-00 ")
 ;;2595
 ;;21,"00247-1023-30 ")
 ;;2596
 ;;21,"00247-1023-60 ")
 ;;2597
 ;;21,"00247-1090-30 ")
 ;;3236
 ;;21,"00247-1090-60 ")
 ;;3237
 ;;21,"00247-1091-30 ")
 ;;3351
 ;;21,"00247-1091-60 ")
 ;;3352
 ;;21,"00247-1147-10 ")
 ;;2280
 ;;21,"00247-1147-30 ")
 ;;2281
 ;;21,"00247-1147-60 ")
 ;;2282
 ;;21,"00247-1149-30 ")
 ;;572
 ;;21,"00247-1149-60 ")
 ;;573
 ;;21,"00247-1150-30 ")
 ;;657
 ;;21,"00247-1150-60 ")
 ;;658
 ;;21,"00247-1222-00 ")
 ;;1236
 ;;21,"00247-1396-30 ")
 ;;2370
 ;;21,"00310-0130-10 ")
 ;;3029
 ;;21,"00310-0130-11 ")
 ;;3030
 ;;21,"00310-0130-34 ")
 ;;3031
 ;;21,"00310-0130-39 ")
 ;;3032
 ;;21,"00310-0131-10 ")
 ;;2275
 ;;21,"00310-0131-11 ")
 ;;2276
 ;;21,"00310-0131-34 ")
 ;;2277
 ;;21,"00310-0131-39 ")
 ;;2278
 ;;21,"00310-0131-73 ")
 ;;2279
 ;;21,"00310-0132-10 ")
 ;;2598
 ;;21,"00310-0132-11 ")
 ;;2599
 ;;21,"00310-0132-34 ")
 ;;2600
 ;;21,"00310-0132-39 ")
 ;;2601
 ;;21,"00310-0132-73 ")
 ;;2602
 ;;21,"00310-0133-10 ")
 ;;2665
 ;;21,"00310-0133-11 ")
 ;;2666
 ;;21,"00310-0134-10 ")
 ;;2845
 ;;21,"00310-0134-11 ")
 ;;2846
 ;;21,"00310-0135-10 ")
 ;;2368
 ;;21,"00310-0135-11 ")
 ;;2369
 ;;21,"00310-0141-10 ")
 ;;473
 ;;21,"00310-0141-11 ")
 ;;472
 ;;21,"00310-0142-10 ")
 ;;570
 ;;21,"00310-0142-11 ")
 ;;571
 ;;21,"00310-0145-10 ")
 ;;659
 ;;21,"00310-0145-11 ")
 ;;660
 ;;21,"00378-0081-01 ")
 ;;296
 ;;21,"00378-0083-01 ")
 ;;302
 ;;21,"00378-0084-01 ")
 ;;309
 ;;21,"00378-0086-01 ")
 ;;319
 ;;21,"00378-0226-77 ")
 ;;3112
 ;;21,"00378-0254-77 ")
 ;;3142
 ;;21,"00378-0272-77 ")
 ;;3178
 ;;21,"00378-0441-01 ")
 ;;971
 ;;21,"00378-0443-01 ")
 ;;732
 ;;21,"00378-0444-01 ")
 ;;812
 ;;21,"00378-0447-01 ")
 ;;901
 ;;21,"00378-0542-77 ")
 ;;688
 ;;21,"00378-0543-77 ")
 ;;699
 ;;21,"00378-0544-77 ")
 ;;712
 ;;21,"00378-0712-01 ")
 ;;360
 ;;21,"00378-0723-01 ")
 ;;333
 ;;21,"00378-1012-01 ")
 ;;406
 ;;21,"00378-1051-01 ")
 ;;1520
 ;;21,"00378-1051-05 ")
 ;;1521
 ;;21,"00378-1052-01 ")
 ;;1801
 ;;21,"00378-1052-10 ")
 ;;1802
 ;;21,"00378-1053-01 ")
 ;;1418
 ;;21,"00378-1053-10 ")
 ;;1419
 ;;21,"00378-1054-01 ")
 ;;1659
 ;;21,"00378-1054-05 ")
 ;;1660
 ;;21,"00378-1117-77 ")
 ;;3205
 ;;21,"00378-1418-77 ")
 ;;3694
 ;;21,"00378-1418-93 ")
 ;;3695
 ;;21,"00378-1419-10 ")
 ;;3579
 ;;21,"00378-1419-77 ")
 ;;3580
 ;;21,"00378-1419-93 ")
 ;;3581
 ;;21,"00378-1420-77 ")
 ;;3639
 ;;21,"00378-1420-93 ")
 ;;3640
 ;;21,"00378-2012-01 ")
 ;;506
 ;;21,"00378-2025-01 ")
 ;;603
 ;;21,"00378-2072-01 ")
 ;;2340
 ;;21,"00378-2073-01 ")
 ;;2893
 ;;21,"00378-2073-10 ")
 ;;2894
 ;;21,"00378-2074-01 ")
 ;;2150
 ;;21,"00378-2074-10 ")
 ;;2151
 ;;21,"00378-2075-01 ")
 ;;2434
 ;;21,"00378-2075-10 ")
 ;;2435
 ;;21,"00378-2076-01 ")
 ;;2667
 ;;21,"00378-2076-05 ")
 ;;2668
 ;;21,"00378-2077-01 ")
 ;;2640
 ;;21,"00378-3007-01 ")
 ;;1083
 ;;21,"00378-3007-10 ")
 ;;1084
 ;;21,"00378-3012-01 ")
 ;;1170
 ;;21,"00378-3012-10 ")
 ;;1171
 ;;21,"00378-3017-01 ")
 ;;1279
 ;;21,"00378-3017-10 ")
 ;;1280
 ;;21,"00378-3022-01 ")
 ;;1024
 ;;21,"00378-3241-01 ")
 ;;3429
 ;;21,"00378-3242-01 ")
 ;;3447
 ;;21,"00378-3243-01 ")
 ;;3471
 ;;21,"00378-4041-77 ")
 ;;4106
 ;;21,"00378-4042-77 ")
 ;;4177
 ;;21,"00378-4042-93 ")
 ;;4178
 ;;21,"00378-4043-77 ")
 ;;4043
 ;;21,"00378-4043-93 ")
 ;;4044
 ;;21,"00378-4725-01 ")
 ;;286
 ;;21,"00378-4735-01 ")
 ;;223
 ;;21,"00378-4745-01 ")
 ;;242
 ;;21,"00378-4775-01 ")
 ;;271
 ;;21,"00378-6629-93 ")
 ;;3916
 ;;21,"00440-7140-30 ")
 ;;65
 ;;21,"00440-7140-90 ")
 ;;66
 ;;21,"00440-7141-30 ")
 ;;88
 ;;21,"00440-7141-90 ")
 ;;89