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

BGP2TD9.m

Go to the documentation of this file.
BGP2TD9 ;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,"59772-7046-01 ")
 ;;1200
 ;;21,"59772-7046-03 ")
 ;;1201
 ;;21,"59772-7047-01 ")
 ;;1319
 ;;21,"59772-7047-03 ")
 ;;1320
 ;;21,"59772-7048-01 ")
 ;;1027
 ;;21,"59930-1655-01 ")
 ;;1097
 ;;21,"59930-1655-02 ")
 ;;1098
 ;;21,"59930-1655-03 ")
 ;;1099
 ;;21,"59930-1656-01 ")
 ;;1195
 ;;21,"59930-1656-02 ")
 ;;1196
 ;;21,"59930-1656-03 ")
 ;;1197
 ;;21,"59930-1657-01 ")
 ;;1322
 ;;21,"59930-1657-02 ")
 ;;1323
 ;;21,"59930-1657-03 ")
 ;;1324
 ;;21,"59930-1658-01 ")
 ;;1026
 ;;21,"60346-0534-30 ")
 ;;1701
 ;;21,"60346-0595-30 ")
 ;;2848
 ;;21,"60346-0612-30 ")
 ;;1850
 ;;21,"60346-0612-90 ")
 ;;1851
 ;;21,"60346-0618-30 ")
 ;;3362
 ;;21,"60346-0778-30 ")
 ;;1198
 ;;21,"60346-0778-90 ")
 ;;1199
 ;;21,"60346-0868-30 ")
 ;;1321
 ;;21,"60346-0871-03 ")
 ;;2270
 ;;21,"60346-0871-30 ")
 ;;2271
 ;;21,"60346-0901-30 ")
 ;;1489
 ;;21,"60346-0972-08 ")
 ;;2263
 ;;21,"60346-0972-30 ")
 ;;2264
 ;;21,"60346-0984-30 ")
 ;;3306
 ;;21,"60346-0984-60 ")
 ;;3307
 ;;21,"60429-0029-01 ")
 ;;1100
 ;;21,"60429-0029-10 ")
 ;;1101
 ;;21,"60429-0029-90 ")
 ;;1102
 ;;21,"60429-0030-01 ")
 ;;1189
 ;;21,"60429-0030-10 ")
 ;;1190
 ;;21,"60429-0030-12 ")
 ;;1191
 ;;21,"60429-0030-27 ")
 ;;1192
 ;;21,"60429-0030-60 ")
 ;;1193
 ;;21,"60429-0030-90 ")
 ;;1194
 ;;21,"60429-0031-01 ")
 ;;1325
 ;;21,"60429-0031-10 ")
 ;;1326
 ;;21,"60429-0031-12 ")
 ;;1327
 ;;21,"60429-0031-27 ")
 ;;1328
 ;;21,"60429-0031-30 ")
 ;;1329
 ;;21,"60429-0031-60 ")
 ;;1330
 ;;21,"60429-0031-90 ")
 ;;1331
 ;;21,"60429-0038-01 ")
 ;;3219
 ;;21,"60429-0039-01 ")
 ;;3314
 ;;21,"60429-0039-10 ")
 ;;3315
 ;;21,"60429-0040-01 ")
 ;;3372
 ;;21,"60429-0040-10 ")
 ;;3373
 ;;21,"60429-0041-01 ")
 ;;3263
 ;;21,"60429-0041-10 ")
 ;;3264
 ;;21,"60429-0044-01 ")
 ;;452
 ;;21,"60429-0044-10 ")
 ;;453
 ;;21,"60429-0045-01 ")
 ;;540
 ;;21,"60429-0045-10 ")
 ;;541
 ;;21,"60429-0046-01 ")
 ;;629
 ;;21,"60429-0046-10 ")
 ;;630
 ;;21,"60429-0071-01 ")
 ;;1510
 ;;21,"60429-0071-05 ")
 ;;1511
 ;;21,"60429-0071-10 ")
 ;;1512
 ;;21,"60429-0071-27 ")
 ;;1513
 ;;21,"60429-0071-30 ")
 ;;1514
 ;;21,"60429-0071-60 ")
 ;;1515
 ;;21,"60429-0071-90 ")
 ;;1516
 ;;21,"60429-0072-01 ")
 ;;1741
 ;;21,"60429-0072-05 ")
 ;;1742
 ;;21,"60429-0072-10 ")
 ;;1743
 ;;21,"60429-0072-27 ")
 ;;1744
 ;;21,"60429-0072-30 ")
 ;;1745
 ;;21,"60429-0072-60 ")
 ;;1746
 ;;21,"60429-0072-90 ")
 ;;1747
 ;;21,"60429-0073-01 ")
 ;;1370
 ;;21,"60429-0073-05 ")
 ;;1371
 ;;21,"60429-0073-10 ")
 ;;1372
 ;;21,"60429-0073-27 ")
 ;;1373
 ;;21,"60429-0073-30 ")
 ;;1374
 ;;21,"60429-0073-60 ")
 ;;1375
 ;;21,"60429-0073-90 ")
 ;;1376
 ;;21,"60429-0074-01 ")
 ;;1610
 ;;21,"60429-0074-05 ")
 ;;1611
 ;;21,"60429-0074-10 ")
 ;;1612
 ;;21,"60429-0074-27 ")
 ;;1613
 ;;21,"60429-0074-30 ")
 ;;1614
 ;;21,"60429-0074-60 ")
 ;;1615
 ;;21,"60429-0074-90 ")
 ;;1616
 ;;21,"60429-0257-01 ")
 ;;1033
 ;;21,"60429-0316-10 ")
 ;;4096
 ;;21,"60429-0316-30 ")
 ;;4097
 ;;21,"60429-0316-90 ")
 ;;4098
 ;;21,"60429-0317-10 ")
 ;;4166
 ;;21,"60429-0317-30 ")
 ;;4167
 ;;21,"60429-0317-90 ")
 ;;4168
 ;;21,"60429-0318-10 ")
 ;;4013
 ;;21,"60429-0318-30 ")
 ;;4014
 ;;21,"60429-0318-90 ")
 ;;4015
 ;;21,"60429-0728-01 ")
 ;;2299
 ;;21,"60429-0728-10 ")
 ;;2300
 ;;21,"60429-0728-30 ")
 ;;2301
 ;;21,"60429-0728-90 ")
 ;;2302
 ;;21,"60429-0729-01 ")
 ;;2978
 ;;21,"60429-0729-10 ")
 ;;2979
 ;;21,"60429-0729-30 ")
 ;;2980
 ;;21,"60429-0729-45 ")
 ;;2981
 ;;21,"60429-0729-90 ")
 ;;2982
 ;;21,"60429-0730-01 ")
 ;;2085
 ;;21,"60429-0730-10 ")
 ;;2086
 ;;21,"60429-0730-30 ")
 ;;2087
 ;;21,"60429-0730-45 ")
 ;;2088
 ;;21,"60429-0730-90 ")
 ;;2089
 ;;21,"60429-0731-01 ")
 ;;2542
 ;;21,"60429-0731-10 ")
 ;;2543
 ;;21,"60429-0731-30 ")
 ;;2544
 ;;21,"60429-0731-45 ")
 ;;2545
 ;;21,"60429-0731-90 ")
 ;;2546
 ;;21,"60429-0732-10 ")
 ;;2627
 ;;21,"60429-0732-30 ")
 ;;2628
 ;;21,"60429-0732-90 ")
 ;;2629
 ;;21,"60429-0733-01 ")
 ;;2792
 ;;21,"60429-0733-10 ")
 ;;2793
 ;;21,"60429-0733-30 ")
 ;;2794
 ;;21,"60429-0733-45 ")
 ;;2795
 ;;21,"60429-0733-90 ")
 ;;2796
 ;;21,"60429-0755-10 ")
 ;;1861
 ;;21,"60429-0755-45 ")
 ;;1862
 ;;21,"60429-0755-90 ")
 ;;1863
 ;;21,"60429-0756-10 ")
 ;;1917
 ;;21,"60429-0756-18 ")
 ;;1918
 ;;21,"60429-0756-45 ")
 ;;1919
 ;;21,"60429-0756-90 ")
 ;;1920
 ;;21,"60429-0757-10 ")
 ;;1998
 ;;21,"60429-0757-18 ")
 ;;1999
 ;;21,"60429-0757-45 ")
 ;;2000
 ;;21,"60429-0757-90 ")
 ;;2001
 ;;21,"60505-0003-06 ")
 ;;1113
 ;;21,"60505-0003-09 ")
 ;;1114
 ;;21,"60505-0004-06 ")
 ;;1210
 ;;21,"60505-0004-09 ")
 ;;1211
 ;;21,"60505-0005-06 ")
 ;;1309
 ;;21,"60505-0005-09 ")
 ;;1310
 ;;21,"60505-0006-06 ")
 ;;1031
 ;;21,"60505-0006-09 ")
 ;;1032
 ;;21,"60505-0049-07 ")
 ;;1503
 ;;21,"60505-0049-09 ")
 ;;1504
 ;;21,"60505-0050-07 ")
 ;;1731
 ;;21,"60505-0050-09 ")
 ;;1732
 ;;21,"60505-0051-07 ")
 ;;1352
 ;;21,"60505-0051-09 ")
 ;;1353
 ;;21,"60505-0052-07 ")
 ;;1586
 ;;21,"60505-0052-09 ")
 ;;1587
 ;;21,"60505-0172-00 ")
 ;;3210
 ;;21,"60505-0172-01 ")
 ;;3211
 ;;21,"60505-0173-00 ")
 ;;3116
 ;;21,"60505-0173-01 ")
 ;;3117
 ;;21,"60505-0174-00 ")
 ;;3150
 ;;21,"60505-0174-01 ")
 ;;3151
 ;;21,"60505-0175-00 ")
 ;;3184
 ;;21,"60505-0175-01 ")
 ;;3185
 ;;21,"60505-0184-00 ")
 ;;2303
 ;;21,"60505-0184-01 ")
 ;;2304
 ;;21,"60505-0185-00 ")
 ;;2974
 ;;21,"60505-0185-01 ")
 ;;2975
 ;;21,"60505-0185-07 ")
 ;;2976
 ;;21,"60505-0185-09 ")
 ;;2977
 ;;21,"60505-0186-00 ")
 ;;2090
 ;;21,"60505-0186-01 ")
 ;;2091
 ;;21,"60505-0186-07 ")
 ;;2092
 ;;21,"60505-0186-09 ")
 ;;2093
 ;;21,"60505-0187-00 ")
 ;;2538
 ;;21,"60505-0187-01 ")
 ;;2539
 ;;21,"60505-0187-07 ")
 ;;2540
 ;;21,"60505-0187-09 ")
 ;;2541
 ;;21,"60505-0188-00 ")
 ;;2630
 ;;21,"60505-0188-01 ")
 ;;2631
 ;;21,"60505-0189-00 ")
 ;;2788
 ;;21,"60505-0189-01 ")
 ;;2789
 ;;21,"60505-0189-08 ")
 ;;2790
 ;;21,"60505-0189-09 ")
 ;;2791
 ;;21,"60505-0205-03 ")
 ;;443
 ;;21,"60505-0205-07 ")
 ;;444
 ;;21,"60505-0206-03 ")
 ;;544
 ;;21,"60505-0206-07 ")
 ;;545
 ;;21,"60505-0207-03 ")
 ;;638
 ;;21,"60505-0207-07 ")
 ;;639
 ;;21,"60505-0208-01 ")
 ;;359
 ;;21,"60505-0209-01 ")
 ;;323
 ;;21,"60505-0265-01 ")
 ;;988
 ;;21,"60505-0266-01 ")
 ;;774
 ;;21,"60505-0266-05 ")
 ;;775
 ;;21,"60505-0267-01 ")
 ;;856
 ;;21,"60505-0267-05 ")
 ;;857
 ;;21,"60505-0268-01 ")
 ;;943
 ;;21,"60505-0268-05 ")
 ;;944
 ;;21,"60505-0271-01 ")
 ;;3061
 ;;21,"60505-0272-01 ")
 ;;3043
 ;;21,"60505-2510-02 ")
 ;;1864
 ;;21,"60505-2510-04 ")
 ;;1865
 ;;21,"60505-2511-02 ")
 ;;1915
 ;;21,"60505-2511-04 ")
 ;;1916
 ;;21,"60505-2512-02 ")
 ;;2002
 ;;21,"60505-2512-08 ")
 ;;2003
 ;;21,"60505-2683-01 ")
 ;;2298
 ;;21,"60505-2684-01 ")
 ;;2983
 ;;21,"60505-2684-08 ")
 ;;2984
 ;;21,"60505-2684-09 ")
 ;;2985
 ;;21,"60505-2685-01 ")
 ;;2081
 ;;21,"60505-2685-08 ")
 ;;2082
 ;;21,"60505-2685-09 ")
 ;;2083
 ;;21,"60505-2686-01 ")
 ;;2535
 ;;21,"60505-2686-08 ")
 ;;2536
 ;;21,"60505-2686-09 ")
 ;;2537
 ;;21,"60505-2688-01 ")
 ;;2797
 ;;21,"60505-2688-08 ")
 ;;2798
 ;;21,"60505-2688-09 ")
 ;;2799
 ;;21,"60505-2689-01 ")
 ;;442
 ;;21,"60505-2690-01 ")
 ;;546
 ;;21,"60505-2691-01 ")
 ;;637
 ;;21,"60505-2875-01 ")
 ;;3220
 ;;21,"60505-2876-00 ")
 ;;3311
 ;;21,"60505-2876-01 ")
 ;;3312
 ;;21,"60505-2876-05 ")
 ;;3313
 ;;21,"60505-2877-00 ")
 ;;3369
 ;;21,"60505-2877-01 ")
 ;;3370
 ;;21,"60505-2877-05 ")
 ;;3371
 ;;21,"60505-2878-00 ")
 ;;3255
 ;;21,"60505-2878-01 ")
 ;;3256
 ;;21,"60505-2878-05 ")
 ;;3257
 ;;21,"60505-2915-03 ")
 ;;3721
 ;;21,"60505-2915-09 ")
 ;;3722
 ;;21,"60505-2916-03 ")
 ;;3600
 ;;21,"60505-2916-09 ")
 ;;3601
 ;;21,"60505-2917-03 ")
 ;;3653
 ;;21,"60505-2917-09 ")
 ;;3654
 ;;21,"60505-3160-09 ")
 ;;4095
 ;;21,"60505-3161-03 ")
 ;;4169
 ;;21,"60505-3161-09 ")
 ;;4170
 ;;21,"60505-3162-03 ")
 ;;4011
 ;;21,"60505-3162-09 ")
 ;;4012
 ;;21,"60598-0080-01 ")
 ;;3532
 ;;21,"60598-0081-01 ")
 ;;3533
 ;;21,"60598-0100-01 ")
 ;;3908
 ;;21,"60598-0101-01 ")
 ;;3920
 ;;21,"60760-0128-30 ")
 ;;2534
 ;;21,"60760-0267-30 ")
 ;;2084
 ;;21,"60760-0270-30 ")
 ;;2800
 ;;21,"60793-0500-01 ")
 ;;3414
 ;;21,"60793-0501-01 ")
 ;;3416
 ;;21,"60793-0502-01 ")
 ;;3417
 ;;21,"60793-0503-01 ")
 ;;3415
 ;;21,"60951-0185-92 ")
 ;;4094
 ;;21,"60951-0186-30 ")
 ;;4171
 ;;21,"60951-0186-92 ")
 ;;4172
 ;;21,"60951-0187-30 ")
 ;;4009
 ;;21,"60951-0187-92 ")
 ;;4010
 ;;21,"60951-0731-70 ")
 ;;320
 ;;21,"60951-0733-70 ")
 ;;298
 ;;21,"60951-0739-70 ")
 ;;311
 ;;21,"60951-0741-70 ")
 ;;303
 ;;21,"61570-0110-01 ")
 ;;3213
 ;;21,"61570-0110-56 ")
 ;;3214
 ;;21,"61570-0111-01 ")
 ;;3308
 ;;21,"61570-0111-05 ")
 ;;3309
 ;;21,"61570-0111-56 ")
 ;;3310
 ;;21,"61570-0112-01 ")
 ;;3364
 ;;21,"61570-0112-05 ")
 ;;3365
 ;;21,"61570-0112-56 ")
 ;;3366
 ;;21,"61570-0120-01 ")
 ;;3250
 ;;21,"61570-0120-05 ")
 ;;3251
 ;;21,"61570-0120-80 ")
 ;;3252
 ;;21,"62037-0516-01 ")
 ;;989
 ;;21,"62037-0517-01 ")
 ;;773
 ;;21,"62037-0518-01 ")
 ;;858
 ;;21,"62037-0519-01 ")
 ;;937
 ;;21,"62037-0531-90 ")
 ;;3208
 ;;21,"62037-0532-90 ")
 ;;3119
 ;;21,"62037-0533-90 ")
 ;;3147
 ;;21,"62037-0534-90 ")
 ;;3183
 ;;21,"62037-0756-01 ")
 ;;281
 ;;21,"62037-0757-01 ")
 ;;224
 ;;21,"62037-0758-01 ")
 ;;253
 ;;21,"62037-0759-01 ")
 ;;272
 ;;21,"62037-0935-90 ")
 ;;1860
 ;;21,"62037-0936-90 ")
 ;;1921
 ;;21,"62037-0937-90 ")
 ;;1997
 ;;21,"62175-0171-37 ")
 ;;3060
 ;;21,"62175-0177-37 ")
 ;;3044
 ;;21,"62175-0712-37 ")
 ;;683
 ;;21,"62175-0720-37 ")
 ;;665
 ;;21,"62175-0725-37 ")
 ;;673
 ;;21,"62584-0164-06 ")
 ;;1509
 ;;21,"62584-0165-06 ")
 ;;1722
 ;;21,"62584-0166-06 ")
 ;;1361
 ;;21,"62584-0167-06 ")
 ;;1588
 ;;21,"62682-6014-06 ")
 ;;872
 ;;21,"63304-0155-01 ")
 ;;225
 ;;21,"63304-0156-01 ")
 ;;252
 ;;21,"63304-0157-01 ")
 ;;273
 ;;21,"63304-0337-01 ")
 ;;993
 ;;21,"63304-0338-01 ")
 ;;768
 ;;21,"63304-0338-05 ")
 ;;769
 ;;21,"63304-0339-01 ")
 ;;862
 ;;21,"63304-0339-05 ")
 ;;863
 ;;21,"63304-0340-01 ")
 ;;941
 ;;21,"63304-0340-05 ")
 ;;942
 ;;21,"63304-0403-01 ")
 ;;373
 ;;21,"63304-0404-01 ")
 ;;391
 ;;21,"63304-0522-01 ")
 ;;1507
 ;;21,"63304-0522-10 ")
 ;;1508
 ;;21,"63304-0523-01 ")
 ;;1723
 ;;21,"63304-0523-10 ")
 ;;1724
 ;;21,"63304-0524-01 ")
 ;;1359
 ;;21,"63304-0524-10 ")
 ;;1360
 ;;21,"63304-0525-01 ")
 ;;1589
 ;;21,"63304-0525-10 ")
 ;;1590
 ;;21,"63304-0531-01 ")
 ;;2305
 ;;21,"63304-0532-01 ")
 ;;2971
 ;;21,"63304-0532-10 ")
 ;;2972
 ;;21,"63304-0533-01 ")
 ;;2097
 ;;21,"63304-0533-10 ")
 ;;2098
 ;;21,"63304-0534-01 ")
 ;;2547
 ;;21,"63304-0534-10 ")
 ;;2548
 ;;21,"63304-0535-01 ")
 ;;2801
 ;;21,"63304-0535-10 ")
 ;;2802
 ;;21,"63304-0536-01 ")
 ;;440
 ;;21,"63304-0536-05 ")
 ;;441
 ;;21,"63304-0537-01 ")
 ;;547
 ;;21,"63304-0537-05 ")
 ;;548
 ;;21,"63304-0538-01 ")
 ;;635
 ;;21,"63304-0538-05 ")
 ;;636
 ;;21,"63304-0548-90 ")
 ;;3209
 ;;21,"63304-0549-90 ")
 ;;3118
 ;;21,"63304-0550-90 ")
 ;;3148
 ;;21,"63304-0551-90 ")
 ;;3182
 ;;21,"63304-0599-01 ")
 ;;2626
 ;;21,"63304-0736-01 ")
 ;;990
 ;;21,"63304-0736-05 ")
 ;;991
 ;;21,"63304-0736-90 ")
 ;;992
 ;;21,"63304-0737-01 ")
 ;;770
 ;;21,"63304-0737-05 ")
 ;;771
 ;;21,"63304-0737-90 ")
 ;;772
 ;;21,"63304-0738-01 ")
 ;;859
 ;;21,"63304-0738-05 ")
 ;;860
 ;;21,"63304-0738-90 ")
 ;;861
 ;;21,"63304-0739-01 ")
 ;;938
 ;;21,"63304-0739-05 ")
 ;;939
 ;;21,"63304-0739-90 ")
 ;;940
 ;;21,"63304-0775-10 ")
 ;;1858
 ;;21,"63304-0775-90 ")
 ;;1859
 ;;21,"63304-0776-10 ")
 ;;1922
 ;;21,"63304-0776-90 ")
 ;;1923
 ;;21,"63304-0777-10 ")
 ;;1995
 ;;21,"63304-0777-90 ")
 ;;1996
 ;;21,"63304-0834-01 ")
 ;;1505
 ;;21,"63304-0834-10 ")
 ;;1506
 ;;21,"63304-0835-01 ")
 ;;1725
 ;;21,"63304-0835-10 ")
 ;;1726
 ;;21,"63304-0836-01 ")
 ;;1354
 ;;21,"63304-0836-10 ")
 ;;1355
 ;;21,"63304-0837-01 ")
 ;;1591
 ;;21,"63304-0837-10 ")
 ;;1592
 ;;21,"63629-1241-01 ")
 ;;3149
 ;;21,"63629-1242-01 ")
 ;;3155
 ;;21,"63629-1253-01 ")
 ;;3253
 ;;21,"63629-1253-02 ")
 ;;3254
 ;;21,"63629-1254-01 ")
 ;;3367
 ;;21,"63629-1254-02 ")
 ;;3368
 ;;21,"63629-1337-01 ")
 ;;4140
 ;;21,"63629-1337-02 ")
 ;;4141
 ;;21,"63629-1337-03 ")
 ;;4142
 ;;21,"63629-1338-01 ")
 ;;1207
 ;;21,"63629-1338-02 ")
 ;;1208
 ;;21,"63629-1338-03 ")
 ;;1209
 ;;21,"63629-1454-01 ")
 ;;132
 ;;21,"63629-1522-01 ")
 ;;1727
 ;;21,"63629-1522-02 ")
 ;;1728
 ;;21,"63629-1522-03 ")
 ;;1729
 ;;21,"63629-1522-04 ")
 ;;1730
 ;;21,"63629-1525-01 ")
 ;;1593
 ;;21,"63629-1525-02 ")
 ;;1594
 ;;21,"63629-1525-03 ")
 ;;1595
 ;;21,"63629-1526-01 ")
 ;;1356
 ;;21,"63629-1526-02 ")
 ;;1357
 ;;21,"63629-1526-03 ")
 ;;1358
 ;;21,"63629-1679-01 ")
 ;;436
 ;;21,"63629-1679-02 ")
 ;;437
 ;;21,"63629-1679-03 ")
 ;;438
 ;;21,"63629-1679-04 ")
 ;;439