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

BGP2TE2.m

Go to the documentation of this file.
BGP2TE2 ;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,"00378-5220-01 ")
 ;;826
 ;;21,"00378-5220-05 ")
 ;;827
 ;;21,"00378-5280-01 ")
 ;;853
 ;;21,"00378-5280-05 ")
 ;;854
 ;;21,"00378-5340-01 ")
 ;;874
 ;;21,"00378-5340-05 ")
 ;;875
 ;;21,"00378-6060-01 ")
 ;;792
 ;;21,"00378-6090-01 ")
 ;;802
 ;;21,"00378-6120-01 ")
 ;;783
 ;;21,"00378-6161-77 ")
 ;;287
 ;;21,"00378-6162-77 ")
 ;;290
 ;;21,"00378-6163-77 ")
 ;;294
 ;;21,"00378-6164-05 ")
 ;;298
 ;;21,"00378-6164-77 ")
 ;;299
 ;;21,"00378-6165-05 ")
 ;;307
 ;;21,"00378-6165-77 ")
 ;;308
 ;;21,"00378-6166-05 ")
 ;;313
 ;;21,"00378-6166-77 ")
 ;;314
 ;;21,"00378-6167-77 ")
 ;;318
 ;;21,"00378-6168-05 ")
 ;;260
 ;;21,"00378-6168-77 ")
 ;;261
 ;;21,"00378-6169-05 ")
 ;;267
 ;;21,"00378-6169-77 ")
 ;;268
 ;;21,"00378-6170-05 ")
 ;;275
 ;;21,"00378-6170-77 ")
 ;;276
 ;;21,"00378-6171-77 ")
 ;;282
 ;;21,"00378-6201-01 ")
 ;;1952
 ;;21,"00378-6201-05 ")
 ;;1953
 ;;21,"00378-6202-01 ")
 ;;1974
 ;;21,"00378-6202-05 ")
 ;;1975
 ;;21,"00378-6203-01 ")
 ;;1995
 ;;21,"00378-6203-05 ")
 ;;1996
 ;;21,"00378-6320-01 ")
 ;;1956
 ;;21,"00378-6320-93 ")
 ;;1957
 ;;21,"00378-6380-01 ")
 ;;1967
 ;;21,"00378-6380-93 ")
 ;;1968
 ;;21,"00378-6440-01 ")
 ;;1981
 ;;21,"00378-6440-93 ")
 ;;1982
 ;;21,"00440-7096-30 ")
 ;;504
 ;;21,"00440-7096-90 ")
 ;;505
 ;;21,"00440-7097-30 ")
 ;;614
 ;;21,"00440-7097-90 ")
 ;;615
 ;;21,"00440-7098-30 ")
 ;;329
 ;;21,"00440-7098-90 ")
 ;;330
 ;;21,"00440-7140-30 ")
 ;;60
 ;;21,"00440-7140-90 ")
 ;;61
 ;;21,"00440-7141-30 ")
 ;;98
 ;;21,"00440-7141-90 ")
 ;;99
 ;;21,"00440-7142-30 ")
 ;;146
 ;;21,"00440-7142-90 ")
 ;;147
 ;;21,"00440-7143-30 ")
 ;;29
 ;;21,"00440-7143-90 ")
 ;;30
 ;;21,"00440-7228-90 ")
 ;;946
 ;;21,"00440-7229-90 ")
 ;;1000
 ;;21,"00440-7400-90 ")
 ;;828
 ;;21,"00440-7401-90 ")
 ;;852
 ;;21,"00440-7402-90 ")
 ;;876
 ;;21,"00440-7410-90 ")
 ;;1328
 ;;21,"00440-7410-94 ")
 ;;1329
 ;;21,"00440-7411-90 ")
 ;;1382
 ;;21,"00440-7411-91 ")
 ;;1383
 ;;21,"00440-7411-94 ")
 ;;1384
 ;;21,"00440-7412-90 ")
 ;;1420
 ;;21,"00440-7412-94 ")
 ;;1421
 ;;21,"00440-7413-90 ")
 ;;1279
 ;;21,"00440-7419-90 ")
 ;;922
 ;;21,"00440-7420-90 ")
 ;;979
 ;;21,"00440-7421-90 ")
 ;;1035
 ;;21,"00440-7422-90 ")
 ;;1068
 ;;21,"00440-7522-90 ")
 ;;1483
 ;;21,"00440-7523-90 ")
 ;;1514
 ;;21,"00440-7524-90 ")
 ;;1440
 ;;21,"00440-7524-99 ")
 ;;1441
 ;;21,"00440-8604-30 ")
 ;;2079
 ;;21,"00440-8604-90 ")
 ;;2080
 ;;21,"00440-8604-94 ")
 ;;2081
 ;;21,"00440-8605-30 ")
 ;;2104
 ;;21,"00440-8605-90 ")
 ;;2105
 ;;21,"00440-8605-94 ")
 ;;2106
 ;;21,"00440-8606-30 ")
 ;;2012
 ;;21,"00440-8606-60 ")
 ;;2013
 ;;21,"00440-8606-90 ")
 ;;2014
 ;;21,"00440-8606-91 ")
 ;;2015
 ;;21,"00440-8606-92 ")
 ;;2016
 ;;21,"00440-8606-94 ")
 ;;2017
 ;;21,"00440-8608-30 ")
 ;;2194
 ;;21,"00440-8608-60 ")
 ;;2195
 ;;21,"00440-8608-90 ")
 ;;2196
 ;;21,"00440-8609-30 ")
 ;;2248
 ;;21,"00440-8609-60 ")
 ;;2249
 ;;21,"00440-8609-90 ")
 ;;2250
 ;;21,"00440-8609-94 ")
 ;;2251
 ;;21,"00440-8610-10 ")
 ;;2332
 ;;21,"00440-8610-30 ")
 ;;2333
 ;;21,"00440-8610-60 ")
 ;;2334
 ;;21,"00440-8610-90 ")
 ;;2335
 ;;21,"00440-8610-94 ")
 ;;2336
 ;;21,"00456-2612-00 ")
 ;;1166
 ;;21,"00456-2612-30 ")
 ;;1167
 ;;21,"00456-2612-63 ")
 ;;1168
 ;;21,"00456-2612-90 ")
 ;;1169
 ;;21,"00456-2613-00 ")
 ;;1191
 ;;21,"00456-2613-30 ")
 ;;1192
 ;;21,"00456-2613-63 ")
 ;;1193
 ;;21,"00456-2613-90 ")
 ;;1194
 ;;21,"00456-2614-00 ")
 ;;1215
 ;;21,"00456-2614-30 ")
 ;;1216
 ;;21,"00456-2614-63 ")
 ;;1217
 ;;21,"00456-2614-90 ")
 ;;1218
 ;;21,"00456-2615-00 ")
 ;;1236
 ;;21,"00456-2615-30 ")
 ;;1237
 ;;21,"00456-2615-63 ")
 ;;1238
 ;;21,"00456-2615-90 ")
 ;;1239
 ;;21,"00456-2616-00 ")
 ;;1262
 ;;21,"00456-2616-30 ")
 ;;1263
 ;;21,"00456-2616-63 ")
 ;;1264
 ;;21,"00456-2616-90 ")
 ;;1265
 ;;21,"00456-2617-00 ")
 ;;1272
 ;;21,"00456-2617-30 ")
 ;;1273
 ;;21,"00456-2617-90 ")
 ;;1274
 ;;21,"00490-0126-00 ")
 ;;610
 ;;21,"00490-0126-30 ")
 ;;611
 ;;21,"00490-0126-60 ")
 ;;612
 ;;21,"00490-0126-90 ")
 ;;613
 ;;21,"00555-1069-02 ")
 ;;1578
 ;;21,"00555-1070-02 ")
 ;;1595
 ;;21,"00591-0343-01 ")
 ;;2098
 ;;21,"00591-0343-05 ")
 ;;2099
 ;;21,"00591-0343-10 ")
 ;;2100
 ;;21,"00591-0344-01 ")
 ;;2101
 ;;21,"00591-0344-05 ")
 ;;2102
 ;;21,"00591-0344-10 ")
 ;;2103
 ;;21,"00591-0345-01 ")
 ;;2018
 ;;21,"00591-0345-05 ")
 ;;2019
 ;;21,"00591-0345-10 ")
 ;;2020
 ;;21,"00591-0346-01 ")
 ;;2021
 ;;21,"00591-0346-05 ")
 ;;2022
 ;;21,"00591-0346-10 ")
 ;;2023
 ;;21,"00591-0404-01 ")
 ;;2083
 ;;21,"00591-0660-01 ")
 ;;1648
 ;;21,"00591-0661-01 ")
 ;;1709
 ;;21,"00591-0775-01 ")
 ;;1327
 ;;21,"00591-0776-01 ")
 ;;1385
 ;;21,"00591-0776-05 ")
 ;;1386
 ;;21,"00591-0777-01 ")
 ;;1419
 ;;21,"00591-0778-01 ")
 ;;1280
 ;;21,"00591-2880-01 ")
 ;;1963
 ;;21,"00591-2882-01 ")
 ;;1972
 ;;21,"00591-2884-01 ")
 ;;1986
 ;;21,"00591-2886-01 ")
 ;;1999
 ;;21,"00591-3193-01 ")
 ;;1641
 ;;21,"00591-3193-05 ")
 ;;1642
 ;;21,"00591-3194-01 ")
 ;;1699
 ;;21,"00591-3194-05 ")
 ;;1700
 ;;21,"00591-3757-01 ")
 ;;59
 ;;21,"00591-3758-01 ")
 ;;100
 ;;21,"00591-3758-05 ")
 ;;101
 ;;21,"00591-3759-01 ")
 ;;144
 ;;21,"00591-3759-05 ")
 ;;145
 ;;21,"00591-3760-01 ")
 ;;24
 ;;21,"00591-3760-05 ")
 ;;25
 ;;21,"00591-3761-01 ")
 ;;171
 ;;21,"00591-3762-01 ")
 ;;48
 ;;21,"00597-0124-37 ")
 ;;241
 ;;21,"00597-0125-37 ")
 ;;240
 ;;21,"00597-0126-37 ")
 ;;243
 ;;21,"00597-0127-37 ")
 ;;242
 ;;21,"00603-2108-02 ")
 ;;506
 ;;21,"00603-2108-25 ")
 ;;507
 ;;21,"00603-2108-28 ")
 ;;508
 ;;21,"00603-2108-32 ")
 ;;509
 ;;21,"00603-2109-02 ")
 ;;605
 ;;21,"00603-2109-25 ")
 ;;606
 ;;21,"00603-2109-28 ")
 ;;607
 ;;21,"00603-2109-32 ")
 ;;608
 ;;21,"00603-2109-34 ")
 ;;609
 ;;21,"00603-2110-02 ")
 ;;331
 ;;21,"00603-2110-16 ")
 ;;332
 ;;21,"00603-2110-28 ")
 ;;333
 ;;21,"00603-2110-32 ")
 ;;334
 ;;21,"00603-2110-33 ")
 ;;335
 ;;21,"00603-2110-60 ")
 ;;336
 ;;21,"00615-1341-53 ")
 ;;982
 ;;21,"00615-1341-63 ")
 ;;983
 ;;21,"00615-1342-53 ")
 ;;1040
 ;;21,"00615-1342-63 ")
 ;;1041
 ;;21,"00615-3548-53 ")
 ;;1325
 ;;21,"00615-3548-63 ")
 ;;1326
 ;;21,"00615-3549-53 ")
 ;;1387
 ;;21,"00615-3549-63 ")
 ;;1388
 ;;21,"00677-1768-01 ")
 ;;1482
 ;;21,"00677-1769-01 ")
 ;;1515
 ;;21,"00677-1770-01 ")
 ;;1439
 ;;21,"00677-1978-01 ")
 ;;1948
 ;;21,"00677-1979-01 ")
 ;;1914
 ;;21,"00677-1980-01 ")
 ;;1927
 ;;21,"00677-1981-01 ")
 ;;1937
 ;;21,"00781-1014-01 ")
 ;;2082
 ;;21,"00781-2271-01 ")
 ;;57
 ;;21,"00781-2271-64 ")
 ;;58
 ;;21,"00781-2272-01 ")
 ;;102
 ;;21,"00781-2272-10 ")
 ;;103
 ;;21,"00781-2272-64 ")
 ;;104
 ;;21,"00781-2273-01 ")
 ;;141
 ;;21,"00781-2273-10 ")
 ;;142
 ;;21,"00781-2273-64 ")
 ;;143
 ;;21,"00781-2274-01 ")
 ;;26
 ;;21,"00781-2274-10 ")
 ;;27
 ;;21,"00781-2274-64 ")
 ;;28
 ;;21,"00781-2277-01 ")
 ;;170
 ;;21,"00781-2279-01 ")
 ;;49
 ;;21,"00832-0042-09 ")
 ;;510
 ;;21,"00832-0042-10 ")
 ;;511
 ;;21,"00832-0043-09 ")
 ;;603
 ;;21,"00832-0043-10 ")
 ;;604
 ;;21,"00832-0044-09 ")
 ;;337
 ;;21,"00832-0044-10 ")
 ;;338
 ;;21,"00904-2920-40 ")
 ;;2094
 ;;21,"00904-2920-60 ")
 ;;2095
 ;;21,"00904-2920-61 ")
 ;;2096
 ;;21,"00904-2920-80 ")
 ;;2097
 ;;21,"00904-2924-40 ")
 ;;2024
 ;;21,"00904-2924-60 ")
 ;;2025
 ;;21,"00904-2924-61 ")
 ;;2026
 ;;21,"00904-5382-60 ")
 ;;877
 ;;21,"00904-5382-61 ")
 ;;878
 ;;21,"00904-5991-61 ")
 ;;512
 ;;21,"00904-5992-61 ")
 ;;600
 ;;21,"00904-5993-61 ")
 ;;341
 ;;21,"00904-6149-61 ")
 ;;1034
 ;;21,"00904-6174-40 ")
 ;;601
 ;;21,"00904-6174-89 ")
 ;;602
 ;;21,"00904-6175-40 ")
 ;;339
 ;;21,"00904-6175-89 ")
 ;;340
 ;;21,"00904-6188-40 ")
 ;;517
 ;;21,"00904-6188-89 ")
 ;;518
 ;;21,"00904-7799-60 ")
 ;;2084
 ;;21,"00904-7931-60 ")
 ;;2252
 ;;21,"10135-0524-03 ")
 ;;513
 ;;21,"10135-0524-05 ")
 ;;514
 ;;21,"10135-0524-10 ")
 ;;515
 ;;21,"10135-0524-90 ")
 ;;516
 ;;21,"10135-0525-03 ")
 ;;596
 ;;21,"10135-0525-05 ")
 ;;597
 ;;21,"10135-0525-10 ")
 ;;598
 ;;21,"10135-0525-90 ")
 ;;599
 ;;21,"10135-0526-01 ")
 ;;342
 ;;21,"10135-0526-03 ")
 ;;343
 ;;21,"10135-0526-05 ")
 ;;344
 ;;21,"10135-0526-10 ")
 ;;345
 ;;21,"10135-0526-90 ")
 ;;346
 ;;21,"10631-0488-01 ")
 ;;2156
 ;;21,"10631-0489-01 ")
 ;;2205
 ;;21,"10631-0490-01 ")
 ;;2271
 ;;21,"10631-0490-05 ")
 ;;2272
 ;;21,"12280-0036-00 ")
 ;;1469
 ;;21,"12280-0037-00 ")
 ;;1543
 ;;21,"12280-0140-90 ")
 ;;1018
 ;;21,"12280-0215-30 ")
 ;;963
 ;;21,"12280-0300-15 ")
 ;;1286
 ;;21,"12280-0300-30 ")
 ;;1287
 ;;21,"12280-0304-15 ")
 ;;1124
 ;;21,"12280-0304-30 ")
 ;;1125
 ;;21,"12280-0305-15 ")
 ;;1240
 ;;21,"12280-0305-30 ")
 ;;1241
 ;;21,"12280-0311-30 ")
 ;;1757
 ;;21,"12280-0397-30 ")
 ;;265
 ;;21,"12280-0398-30 ")
 ;;272
 ;;21,"12280-0399-30 ")
 ;;305
 ;;21,"13411-0148-01 ")
 ;;772
 ;;21,"13411-0148-03 ")
 ;;773
 ;;21,"13411-0148-06 ")
 ;;774
 ;;21,"13411-0148-09 ")
 ;;775
 ;;21,"13411-0148-10 ")
 ;;776
 ;;21,"13411-0157-01 ")
 ;;584
 ;;21,"13411-0157-03 ")
 ;;585
 ;;21,"13411-0157-06 ")
 ;;586
 ;;21,"13411-0157-09 ")
 ;;587
 ;;21,"13411-0157-10 ")
 ;;588
 ;;21,"13411-0158-01 ")
 ;;492
 ;;21,"13411-0158-03 ")
 ;;493
 ;;21,"13411-0158-06 ")
 ;;494
 ;;21,"13411-0158-09 ")
 ;;495
 ;;21,"13411-0158-10 ")
 ;;496
 ;;21,"13551-0201-01 ")
 ;;2157
 ;;21,"13551-0301-01 ")
 ;;2206
 ;;21,"13551-0401-01 ")
 ;;2273
 ;;21,"13551-0401-05 ")
 ;;2274
 ;;21,"13668-0022-03 ")
 ;;519
 ;;21,"13668-0022-05 ")
 ;;520
 ;;21,"13668-0023-03 ")
 ;;620
 ;;21,"13668-0023-05 ")
 ;;621
 ;;21,"13668-0024-05 ")
 ;;349
 ;;21,"13668-0024-10 ")
 ;;350
 ;;21,"13668-0132-01 ")
 ;;1480
 ;;21,"13668-0132-10 ")
 ;;1481
 ;;21,"13668-0133-01 ")
 ;;1507
 ;;21,"13668-0133-10 ")
 ;;1508
 ;;21,"13668-0134-01 ")
 ;;1437
 ;;21,"13668-0134-10 ")
 ;;1438
 ;;21,"15330-0041-01 ")
 ;;1581
 ;;21,"15330-0041-05 ")
 ;;1582
 ;;21,"15330-0042-01 ")
 ;;1602
 ;;21,"15330-0042-05 ")
 ;;1603
 ;;21,"16252-0539-01 ")
 ;;1557
 ;;21,"16252-0540-01 ")
 ;;1565
 ;;21,"16252-0544-90 ")
 ;;521
 ;;21,"16252-0545-50 ")
 ;;618
 ;;21,"16252-0545-90 ")
 ;;619
 ;;21,"16252-0546-50 ")
 ;;347
 ;;21,"16252-0546-90 ")
 ;;348
 ;;21,"16590-0295-30 ")
 ;;624
 ;;21,"16590-0295-60 ")
 ;;625
 ;;21,"16590-0460-30 ")
 ;;351
 ;;21,"16590-0460-60 ")
 ;;352
 ;;21,"16590-0460-90 ")
 ;;353
 ;;21,"16590-0948-60 ")
 ;;1835
 ;;21,"21695-0151-15 ")
 ;;771
 ;;21,"21695-0403-30 ")
 ;;925
 ;;21,"21695-0404-30 ")
 ;;973
 ;;21,"21695-0408-30 ")
 ;;1400
 ;;21,"21695-0408-60 ")
 ;;1401
 ;;21,"21695-0410-30 ")
 ;;1282
 ;;21,"21695-0511-30 ")
 ;;2125
 ;;21,"21695-0512-30 ")
 ;;2034
 ;;21,"21695-0512-90 ")
 ;;2035
 ;;21,"21695-0541-60 ")
 ;;522
 ;;21,"21695-0542-30 ")
 ;;622
 ;;21,"21695-0542-90 ")
 ;;623
 ;;21,"21695-0543-30 ")
 ;;354
 ;;21,"21695-0543-90 ")
 ;;355
 ;;21,"21695-0776-30 ")
 ;;1771
 ;;21,"21695-0803-30 ")
 ;;1024
 ;;21,"21695-0807-30 ")
 ;;1874
 ;;21,"21695-0807-90 ")
 ;;1875
 ;;21,"21695-0866-90 ")
 ;;92
 ;;21,"21695-0868-90 ")
 ;;2302
 ;;21,"21695-0908-30 ")
 ;;1676
 ;;21,"21695-0908-90 ")
 ;;1677
 ;;21,"21695-0909-30 ")
 ;;1738
 ;;21,"21695-0909-90 ")
 ;;1739
 ;;21,"21695-0916-30 ")
 ;;21
 ;;21,"21695-0916-90 ")
 ;;22
 ;;21,"23155-0026-01 ")
 ;;2124
 ;;21,"23155-0027-01 ")
 ;;2038
 ;;21,"23490-5056-01 ")
 ;;374
 ;;21,"23490-5057-03 ")
 ;;626
 ;;21,"23490-5057-09 ")
 ;;627
 ;;21,"23490-5447-03 ")
 ;;1402
 ;;21,"23490-5450-03 ")
 ;;1028
 ;;21,"23490-5991-01 ")
 ;;1678
 ;;21,"23490-5992-01 ")
 ;;1737
 ;;21,"23490-6462-01 ")
 ;;2036
 ;;21,"23490-6462-05 ")
 ;;2037
 ;;21,"23490-6463-01 ")
 ;;2158
 ;;21,"23490-6464-01 ")
 ;;2207
 ;;21,"23490-6464-09 ")
 ;;2208
 ;;21,"23490-6466-01 ")
 ;;2285
 ;;21,"23490-6466-06 ")
 ;;2286
 ;;21,"23490-6466-09 ")
 ;;2287
 ;;21,"23490-7060-01 ")
 ;;109
 ;;21,"23490-7062-01 ")
 ;;33
 ;;21,"24477-0515-01 ")
 ;;1609
 ;;21,"24477-0516-01 ")
 ;;1618
 ;;21,"24658-0190-10 ")
 ;;523
 ;;21,"24658-0190-90 ")
 ;;524
 ;;21,"24658-0191-10 ")
 ;;637
 ;;21,"24658-0191-90 ")
 ;;638
 ;;21,"24658-0192-10 ")
 ;;360
 ;;21,"24658-0192-90 ")
 ;;361
 ;;21,"31722-0237-10 ")
 ;;525
 ;;21,"31722-0237-90 ")
 ;;526
 ;;21,"31722-0238-10 ")
 ;;631
 ;;21,"31722-0238-90 ")
 ;;632
 ;;21,"31722-0239-10 ")
 ;;363
 ;;21,"31722-0239-90 ")
 ;;364
 ;;21,"33261-0437-02 ")
 ;;639
 ;;21,"33261-0437-30 ")
 ;;640
 ;;21,"33261-0437-60 ")
 ;;641
 ;;21,"33261-0437-90 ")
 ;;642
 ;;21,"33261-0535-02 ")
 ;;356
 ;;21,"33261-0535-30 ")
 ;;357
 ;;21,"33261-0535-60 ")
 ;;358
 ;;21,"33261-0535-90 ")
 ;;359
 ;;21,"33261-0675-02 ")
 ;;2159
 ;;21,"33261-0675-07 ")
 ;;2160
 ;;21,"33261-0675-14 ")
 ;;2161
 ;;21,"33261-0675-20 ")
 ;;2162
 ;;21,"33261-0675-21 ")
 ;;2163
 ;;21,"33261-0675-28 ")
 ;;2164
 ;;21,"33261-0675-30 ")
 ;;2165