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

BGP2TD11.m

Go to the documentation of this file.
BGP2TD11 ;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,"66267-0323-90 ")
 ;;1384
 ;;21,"66267-0323-91 ")
 ;;1385
 ;;21,"66267-0380-30 ")
 ;;1627
 ;;21,"66267-0380-60 ")
 ;;1628
 ;;21,"66267-0380-90 ")
 ;;1629
 ;;21,"66267-0380-91 ")
 ;;1630
 ;;21,"66267-0413-30 ")
 ;;1766
 ;;21,"66267-0413-60 ")
 ;;1767
 ;;21,"66267-0413-90 ")
 ;;1768
 ;;21,"66267-0413-92 ")
 ;;1769
 ;;21,"66267-0523-30 ")
 ;;4353
 ;;21,"66267-0523-60 ")
 ;;4354
 ;;21,"66267-0751-30 ")
 ;;465
 ;;21,"66267-0751-90 ")
 ;;466
 ;;21,"66267-0752-30 ")
 ;;558
 ;;21,"66267-0752-90 ")
 ;;559
 ;;21,"66267-1009-00 ")
 ;;1392
 ;;21,"66336-0124-30 ")
 ;;929
 ;;21,"66336-0124-90 ")
 ;;930
 ;;21,"66336-0169-30 ")
 ;;4352
 ;;21,"66336-0232-30 ")
 ;;997
 ;;21,"66336-0387-30 ")
 ;;4312
 ;;21,"66336-0387-90 ")
 ;;4313
 ;;21,"66336-0389-30 ")
 ;;1387
 ;;21,"66336-0389-60 ")
 ;;1388
 ;;21,"66336-0389-90 ")
 ;;1389
 ;;21,"66336-0391-30 ")
 ;;1762
 ;;21,"66336-0391-60 ")
 ;;1763
 ;;21,"66336-0391-90 ")
 ;;1764
 ;;21,"66336-0393-30 ")
 ;;1625
 ;;21,"66336-0393-60 ")
 ;;1626
 ;;21,"66336-0572-30 ")
 ;;463
 ;;21,"66336-0572-90 ")
 ;;464
 ;;21,"66336-0618-60 ")
 ;;1090
 ;;21,"66336-0665-15 ")
 ;;4153
 ;;21,"66336-0665-30 ")
 ;;4154
 ;;21,"66336-0665-90 ")
 ;;4155
 ;;21,"66336-0666-30 ")
 ;;4082
 ;;21,"66336-0672-60 ")
 ;;2133
 ;;21,"66336-0691-30 ")
 ;;844
 ;;21,"66336-0691-90 ")
 ;;845
 ;;21,"66336-0741-30 ")
 ;;2492
 ;;21,"66336-0741-60 ")
 ;;2493
 ;;21,"66336-0741-90 ")
 ;;2494
 ;;21,"66336-0750-30 ")
 ;;1297
 ;;21,"66336-0750-60 ")
 ;;1298
 ;;21,"66336-0750-90 ")
 ;;1299
 ;;21,"66336-0773-30 ")
 ;;760
 ;;21,"66336-0773-90 ")
 ;;761
 ;;21,"66336-0794-60 ")
 ;;1038
 ;;21,"66336-0805-30 ")
 ;;560
 ;;21,"66336-0805-90 ")
 ;;561
 ;;21,"66336-0810-30 ")
 ;;648
 ;;21,"66336-0810-90 ")
 ;;649
 ;;21,"66336-0867-30 ")
 ;;2776
 ;;21,"66336-0867-90 ")
 ;;2777
 ;;21,"66336-0946-30 ")
 ;;1228
 ;;21,"66336-0946-60 ")
 ;;1229
 ;;21,"66336-0946-90 ")
 ;;1230
 ;;21,"66336-0972-30 ")
 ;;2148
 ;;21,"66336-0972-90 ")
 ;;2149
 ;;21,"66685-0301-00 ")
 ;;1494
 ;;21,"66685-0301-02 ")
 ;;1495
 ;;21,"66685-0302-00 ")
 ;;1760
 ;;21,"66685-0302-02 ")
 ;;1761
 ;;21,"66685-0303-00 ")
 ;;1390
 ;;21,"66685-0303-02 ")
 ;;1391
 ;;21,"66685-0304-00 ")
 ;;1623
 ;;21,"66685-0304-02 ")
 ;;1624
 ;;21,"66685-0701-01 ")
 ;;2319
 ;;21,"66685-0701-02 ")
 ;;2320
 ;;21,"66685-0702-01 ")
 ;;2936
 ;;21,"66685-0702-02 ")
 ;;2937
 ;;21,"66685-0702-03 ")
 ;;2938
 ;;21,"66685-0703-01 ")
 ;;2145
 ;;21,"66685-0703-02 ")
 ;;2146
 ;;21,"66685-0703-03 ")
 ;;2147
 ;;21,"66685-0704-01 ")
 ;;2495
 ;;21,"66685-0704-02 ")
 ;;2496
 ;;21,"66685-0704-03 ")
 ;;2497
 ;;21,"66685-0705-01 ")
 ;;2635
 ;;21,"66685-0705-02 ")
 ;;2636
 ;;21,"66685-0706-01 ")
 ;;2766
 ;;21,"66685-0706-02 ")
 ;;2767
 ;;21,"66685-0706-03 ")
 ;;2768
 ;;21,"66685-0706-04 ")
 ;;2769
 ;;21,"67253-0106-10 ")
 ;;3435
 ;;21,"67253-0107-10 ")
 ;;3452
 ;;21,"67253-0108-10 ")
 ;;3479
 ;;21,"67253-0671-10 ")
 ;;3226
 ;;21,"67253-0672-10 ")
 ;;3331
 ;;21,"67253-0672-11 ")
 ;;3332
 ;;21,"67253-0673-10 ")
 ;;3389
 ;;21,"67253-0673-11 ")
 ;;3390
 ;;21,"67253-0674-10 ")
 ;;3276
 ;;21,"67253-0674-11 ")
 ;;3277
 ;;21,"67544-0042-15 ")
 ;;1982
 ;;21,"67544-0042-30 ")
 ;;1983
 ;;21,"67544-0042-45 ")
 ;;1984
 ;;21,"67544-0042-53 ")
 ;;1985
 ;;21,"67544-0042-60 ")
 ;;1986
 ;;21,"67544-0042-70 ")
 ;;1987
 ;;21,"67544-0042-73 ")
 ;;1988
 ;;21,"67544-0042-80 ")
 ;;1989
 ;;21,"67544-0042-92 ")
 ;;1990
 ;;21,"67544-0042-94 ")
 ;;1991
 ;;21,"67544-0062-30 ")
 ;;2316
 ;;21,"67544-0062-60 ")
 ;;2317
 ;;21,"67544-0062-82 ")
 ;;2318
 ;;21,"67544-0128-15 ")
 ;;2939
 ;;21,"67544-0128-30 ")
 ;;2940
 ;;21,"67544-0128-45 ")
 ;;2941
 ;;21,"67544-0128-53 ")
 ;;2942
 ;;21,"67544-0128-60 ")
 ;;2943
 ;;21,"67544-0134-30 ")
 ;;2498
 ;;21,"67544-0134-45 ")
 ;;2499
 ;;21,"67544-0134-60 ")
 ;;2500
 ;;21,"67544-0134-80 ")
 ;;2501
 ;;21,"67544-0148-15 ")
 ;;2770
 ;;21,"67544-0148-30 ")
 ;;2771
 ;;21,"67544-0148-45 ")
 ;;2772
 ;;21,"67544-0148-53 ")
 ;;2773
 ;;21,"67544-0148-60 ")
 ;;2774
 ;;21,"67544-0148-80 ")
 ;;2775
 ;;21,"67544-0150-45 ")
 ;;1091
 ;;21,"67544-0150-60 ")
 ;;1092
 ;;21,"67544-0150-73 ")
 ;;1093
 ;;21,"67544-0150-92 ")
 ;;1094
 ;;21,"67544-0159-15 ")
 ;;2139
 ;;21,"67544-0159-30 ")
 ;;2140
 ;;21,"67544-0159-45 ")
 ;;2141
 ;;21,"67544-0159-58 ")
 ;;2142
 ;;21,"67544-0159-60 ")
 ;;2143
 ;;21,"67544-0159-80 ")
 ;;2144
 ;;21,"67544-0160-60 ")
 ;;1393
 ;;21,"67544-0160-80 ")
 ;;1394
 ;;21,"67544-0165-60 ")
 ;;1757
 ;;21,"67544-0165-80 ")
 ;;1758
 ;;21,"67544-0166-80 ")
 ;;1496
 ;;21,"67544-0173-30 ")
 ;;2947
 ;;21,"67544-0173-45 ")
 ;;2948
 ;;21,"67544-0173-53 ")
 ;;2949
 ;;21,"67544-0173-60 ")
 ;;2950
 ;;21,"67544-0174-30 ")
 ;;2508
 ;;21,"67544-0174-45 ")
 ;;2509
 ;;21,"67544-0174-60 ")
 ;;2510
 ;;21,"67544-0174-80 ")
 ;;2511
 ;;21,"67544-0175-80 ")
 ;;1759
 ;;21,"67544-0177-45 ")
 ;;3899
 ;;21,"67544-0192-30 ")
 ;;3011
 ;;21,"67544-0192-45 ")
 ;;3012
 ;;21,"67544-0192-53 ")
 ;;3013
 ;;21,"67544-0192-60 ")
 ;;3014
 ;;21,"67544-0201-45 ")
 ;;2049
 ;;21,"67544-0202-15 ")
 ;;1909
 ;;21,"67544-0202-30 ")
 ;;1910
 ;;21,"67544-0202-45 ")
 ;;1911
 ;;21,"67544-0202-80 ")
 ;;1912
 ;;21,"67544-0212-45 ")
 ;;3883
 ;;21,"67544-0212-53 ")
 ;;3884
 ;;21,"67544-0216-80 ")
 ;;1395
 ;;21,"67544-0218-60 ")
 ;;2312
 ;;21,"67544-0218-82 ")
 ;;2313
 ;;21,"67544-0219-15 ")
 ;;2129
 ;;21,"67544-0219-30 ")
 ;;2130
 ;;21,"67544-0219-45 ")
 ;;2131
 ;;21,"67544-0219-60 ")
 ;;2132
 ;;21,"67544-0234-45 ")
 ;;4149
 ;;21,"67544-0234-53 ")
 ;;4150
 ;;21,"67544-0250-60 ")
 ;;555
 ;;21,"67544-0276-60 ")
 ;;556
 ;;21,"67544-0286-80 ")
 ;;1396
 ;;21,"67544-0300-15 ")
 ;;2013
 ;;21,"67544-0300-30 ")
 ;;2014
 ;;21,"67544-0300-45 ")
 ;;2015
 ;;21,"67544-0306-30 ")
 ;;2016
 ;;21,"67544-0306-40 ")
 ;;2017
 ;;21,"67544-0306-45 ")
 ;;2018
 ;;21,"67544-0306-60 ")
 ;;2019
 ;;21,"67544-0311-30 ")
 ;;2020
 ;;21,"67544-0311-45 ")
 ;;2021
 ;;21,"67544-0315-80 ")
 ;;1397
 ;;21,"67544-0321-15 ")
 ;;1870
 ;;21,"67544-0321-30 ")
 ;;1871
 ;;21,"67544-0321-60 ")
 ;;1872
 ;;21,"67544-0322-15 ")
 ;;1924
 ;;21,"67544-0322-30 ")
 ;;1925
 ;;21,"67544-0322-45 ")
 ;;1926
 ;;21,"67544-0322-53 ")
 ;;1927
 ;;21,"67544-0322-60 ")
 ;;1928
 ;;21,"67544-0322-70 ")
 ;;1929
 ;;21,"67544-0322-73 ")
 ;;1930
 ;;21,"67544-0322-80 ")
 ;;1931
 ;;21,"67544-0322-92 ")
 ;;1932
 ;;21,"67544-0322-94 ")
 ;;1933
 ;;21,"67544-0350-80 ")
 ;;1497
 ;;21,"67544-0377-60 ")
 ;;557
 ;;21,"67544-0380-30 ")
 ;;1873
 ;;21,"67544-0380-60 ")
 ;;1874
 ;;21,"67544-0381-15 ")
 ;;1934
 ;;21,"67544-0381-30 ")
 ;;1935
 ;;21,"67544-0381-45 ")
 ;;1936
 ;;21,"67544-0381-53 ")
 ;;1937
 ;;21,"67544-0381-60 ")
 ;;1938
 ;;21,"67544-0381-70 ")
 ;;1939
 ;;21,"67544-0381-73 ")
 ;;1940
 ;;21,"67544-0381-80 ")
 ;;1941
 ;;21,"67544-0381-92 ")
 ;;1942
 ;;21,"67544-0381-94 ")
 ;;1943
 ;;21,"67544-0382-30 ")
 ;;4079
 ;;21,"67544-0400-45 ")
 ;;3961
 ;;21,"67544-0403-30 ")
 ;;4355
 ;;21,"67544-0404-30 ")
 ;;4311
 ;;21,"67544-0418-30 ")
 ;;550
 ;;21,"67544-0418-60 ")
 ;;551
 ;;21,"67544-0418-80 ")
 ;;552
 ;;21,"67544-0431-15 ")
 ;;1952
 ;;21,"67544-0431-30 ")
 ;;1992
 ;;21,"67544-0431-45 ")
 ;;1944
 ;;21,"67544-0431-53 ")
 ;;1945
 ;;21,"67544-0431-60 ")
 ;;1946
 ;;21,"67544-0431-70 ")
 ;;1947
 ;;21,"67544-0431-73 ")
 ;;1948
 ;;21,"67544-0431-80 ")
 ;;1949
 ;;21,"67544-0431-92 ")
 ;;1950
 ;;21,"67544-0431-94 ")
 ;;1951
 ;;21,"67544-0454-15 ")
 ;;2008
 ;;21,"67544-0454-30 ")
 ;;2009
 ;;21,"67544-0454-40 ")
 ;;2010
 ;;21,"67544-0454-45 ")
 ;;2011
 ;;21,"67544-0454-60 ")
 ;;2012
 ;;21,"67544-0489-15 ")
 ;;1877
 ;;21,"67544-0489-30 ")
 ;;1878
 ;;21,"67544-0489-60 ")
 ;;1879
 ;;21,"67544-0678-60 ")
 ;;2136
 ;;21,"67544-0992-30 ")
 ;;2505
 ;;21,"67544-0997-30 ")
 ;;2780
 ;;21,"67544-0999-60 ")
 ;;2506
 ;;21,"67544-0999-80 ")
 ;;2507
 ;;21,"67544-1010-30 ")
 ;;467
 ;;21,"67544-1010-60 ")
 ;;468
 ;;21,"67544-1038-30 ")
 ;;2004
 ;;21,"67544-1038-45 ")
 ;;2005
 ;;21,"67544-1042-45 ")
 ;;2006
 ;;21,"67544-1042-60 ")
 ;;2007
 ;;21,"67544-1054-30 ")
 ;;549
 ;;21,"67544-1057-30 ")
 ;;653
 ;;21,"67544-1082-45 ")
 ;;1953
 ;;21,"67544-1105-30 ")
 ;;1875
 ;;21,"67544-1105-45 ")
 ;;1876
 ;;21,"67544-1348-45 ")
 ;;2134
 ;;21,"67544-1348-60 ")
 ;;2135
 ;;21,"67544-1350-45 ")
 ;;2781
 ;;21,"67544-1350-60 ")
 ;;2782
 ;;21,"67544-1372-45 ")
 ;;2946
 ;;21,"67544-1386-30 ")
 ;;553
 ;;21,"67544-1386-60 ")
 ;;554
 ;;21,"67544-1387-45 ")
 ;;2502
 ;;21,"68030-6700-02 ")
 ;;2262
 ;;21,"68030-6701-02 ")
 ;;2581
 ;;21,"68071-0026-30 ")
 ;;926
 ;;21,"68071-0026-60 ")
 ;;927
 ;;21,"68071-0026-90 ")
 ;;928
 ;;21,"68071-0146-30 ")
 ;;846
 ;;21,"68071-0146-60 ")
 ;;847
 ;;21,"68071-0146-90 ")
 ;;848
 ;;21,"68071-0146-91 ")
 ;;849
 ;;21,"68071-0153-30 ")
 ;;650
 ;;21,"68071-0153-60 ")
 ;;651
 ;;21,"68071-0153-90 ")
 ;;652
 ;;21,"68071-0785-30 ")
 ;;3798
 ;;21,"68071-0785-60 ")
 ;;3799
 ;;21,"68071-0786-30 ")
 ;;3850
 ;;21,"68071-0786-60 ")
 ;;3851
 ;;21,"68071-0787-60 ")
 ;;3666
 ;;21,"68084-0058-01 ")
 ;;2314
 ;;21,"68084-0058-11 ")
 ;;2315
 ;;21,"68084-0060-01 ")
 ;;2944
 ;;21,"68084-0060-11 ")
 ;;2945
 ;;21,"68084-0061-01 ")
 ;;2137
 ;;21,"68084-0061-11 ")
 ;;2138
 ;;21,"68084-0062-01 ")
 ;;2503
 ;;21,"68084-0062-11 ")
 ;;2504
 ;;21,"68084-0064-01 ")
 ;;2778
 ;;21,"68084-0064-11 ")
 ;;2779
 ;;21,"68084-0266-01 ")
 ;;3329
 ;;21,"68084-0266-11 ")
 ;;3330
 ;;21,"68084-0267-01 ")
 ;;3391
 ;;21,"68084-0267-11 ")
 ;;3392
 ;;21,"68084-0268-01 ")
 ;;3274
 ;;21,"68084-0268-11 ")
 ;;3275
 ;;21,"68084-0294-11 ")
 ;;3227
 ;;21,"68084-0294-21 ")
 ;;3228
 ;;21,"68084-0346-01 ")
 ;;4080
 ;;21,"68084-0346-11 ")
 ;;4081
 ;;21,"68084-0347-01 ")
 ;;4151
 ;;21,"68084-0347-11 ")
 ;;4152
 ;;21,"68084-0348-01 ")
 ;;4028
 ;;21,"68084-0348-11 ")
 ;;4029
 ;;21,"68084-0349-11 ")
 ;;97
 ;;21,"68084-0349-21 ")
 ;;98
 ;;21,"68084-0350-01 ")
 ;;122
 ;;21,"68084-0350-11 ")
 ;;123
 ;;21,"68084-0351-11 ")
 ;;12
 ;;21,"68084-0351-21 ")
 ;;13
 ;;21,"68084-0390-01 ")
 ;;1770
 ;;21,"68084-0390-11 ")
 ;;1771
 ;;21,"68084-0391-01 ")
 ;;1398
 ;;21,"68084-0391-11 ")
 ;;1399
 ;;21,"68084-0392-01 ")
 ;;1621
 ;;21,"68084-0392-11 ")
 ;;1622
 ;;21,"68084-0518-11 ")
 ;;461
 ;;21,"68084-0518-21 ")
 ;;462
 ;;21,"68084-0519-11 ")
 ;;646
 ;;21,"68084-0519-21 ")
 ;;647
 ;;21,"68115-0059-00 ")
 ;;1232
 ;;21,"68115-0059-30 ")
 ;;1233
 ;;21,"68115-0059-60 ")
 ;;1234
 ;;21,"68115-0059-90 ")
 ;;1235
 ;;21,"68115-0060-30 ")
 ;;1293
 ;;21,"68115-0060-60 ")
 ;;1294
 ;;21,"68115-0060-90 ")
 ;;1295
 ;;21,"68115-0127-00 ")
 ;;1400
 ;;21,"68115-0127-15 ")
 ;;1401
 ;;21,"68115-0127-30 ")
 ;;1402
 ;;21,"68115-0127-60 ")
 ;;1403
 ;;21,"68115-0128-00 ")
 ;;1617
 ;;21,"68115-0128-20 ")
 ;;1618
 ;;21,"68115-0128-30 ")
 ;;1619
 ;;21,"68115-0128-60 ")
 ;;1620
 ;;21,"68115-0129-30 ")
 ;;1772
 ;;21,"68115-0129-60 ")
 ;;1773
 ;;21,"68115-0207-30 ")
 ;;2121
 ;;21,"68115-0207-60 ")
 ;;2122
 ;;21,"68115-0207-90 ")
 ;;2123
 ;;21,"68115-0208-30 ")
 ;;2484
 ;;21,"68115-0208-60 ")
 ;;2485
 ;;21,"68115-0208-90 ")
 ;;2486
 ;;21,"68115-0209-30 ")
 ;;2787
 ;;21,"68115-0215-30 ")
 ;;789
 ;;21,"68115-0216-30 ")
 ;;879
 ;;21,"68115-0217-30 ")
 ;;956
 ;;21,"68115-0361-30 ")
 ;;2274
 ;;21,"68115-0362-00 ")
 ;;2603
 ;;21,"68115-0362-60 ")
 ;;2604
 ;;21,"68115-0363-30 ")
 ;;3033
 ;;21,"68115-0378-30 ")
 ;;3246
 ;;21,"68115-0378-60 ")
 ;;3247
 ;;21,"68115-0396-30 ")
 ;;2935
 ;;21,"68115-0425-90 ")
 ;;1040
 ;;21,"68115-0490-30 ")
 ;;758
 ;;21,"68115-0490-60 ")
 ;;759
 ;;21,"68115-0491-30 ")
 ;;841
 ;;21,"68115-0530-00 ")
 ;;3303
 ;;21,"68115-0530-30 ")
 ;;3304
 ;;21,"68115-0530-60 ")
 ;;3305
 ;;21,"68115-0597-00 ")
 ;;924
 ;;21,"68115-0615-00 ")
 ;;757
 ;;21,"68115-0621-00 ")
 ;;998
 ;;21,"68115-0650-00 ")
 ;;41
 ;;21,"68115-0654-00 ")
 ;;843
 ;;21,"68115-0669-00 ")
 ;;3852
 ;;21,"68115-0669-90 ")
 ;;3853
 ;;21,"68115-0673-00 ")
 ;;163
 ;;21,"68115-0673-30 ")
 ;;164
 ;;21,"68115-0677-00 ")
 ;;562
 ;;21,"68115-0677-30 ")
 ;;563
 ;;21,"68115-0703-30 ")
 ;;3525
 ;;21,"68115-0703-90 ")
 ;;3526
 ;;21,"68115-0733-00 ")
 ;;4145
 ;;21,"68115-0733-30 ")
 ;;4146
 ;;21,"68115-0733-90 ")
 ;;4147
 ;;21,"68115-0778-00 ")
 ;;119
 ;;21,"68115-0812-00 ")
 ;;3359
 ;;21,"68115-0812-30 ")
 ;;3360
 ;;21,"68115-0812-60 ")
 ;;3361
 ;;21,"68115-0824-00 ")
 ;;1000
 ;;21,"68115-0854-00 ")
 ;;4356
 ;;21,"68115-0854-90 ")
 ;;4357
 ;;21,"68115-0865-30 ")
 ;;3611
 ;;21,"68115-0889-90 ")
 ;;3121
 ;;21,"68180-0210-03 ")
 ;;4083
 ;;21,"68180-0210-09 ")
 ;;4084
 ;;21,"68180-0211-03 ")
 ;;4156
 ;;21,"68180-0211-09 ")
 ;;4157
 ;;21,"68180-0212-03 ")
 ;;4024
 ;;21,"68180-0212-09 ")
 ;;4025
 ;;21,"68180-0215-03 ")
 ;;3710