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

BGP2TPE.m

Go to the documentation of this file.
BGP2TPE ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 27, 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,"58177-0358-04 ")
 ;;1054
 ;;21,"58177-0358-09 ")
 ;;1055
 ;;21,"58177-0368-04 ")
 ;;1023
 ;;21,"58177-0368-09 ")
 ;;1024
 ;;21,"58177-0368-11 ")
 ;;1025
 ;;21,"58177-0369-04 ")
 ;;1140
 ;;21,"58177-0369-09 ")
 ;;1141
 ;;21,"58177-0369-11 ")
 ;;1142
 ;;21,"58864-0016-01 ")
 ;;1411
 ;;21,"58864-0016-28 ")
 ;;1412
 ;;21,"58864-0016-30 ")
 ;;1413
 ;;21,"58864-0016-60 ")
 ;;1414
 ;;21,"58864-0065-01 ")
 ;;344
 ;;21,"58864-0065-30 ")
 ;;345
 ;;21,"58864-0363-30 ")
 ;;1752
 ;;21,"58864-0645-56 ")
 ;;1621
 ;;21,"58864-0680-30 ")
 ;;1875
 ;;21,"58864-0695-30 ")
 ;;1226
 ;;21,"58864-0717-30 ")
 ;;93
 ;;21,"58864-0727-30 ")
 ;;731
 ;;21,"58864-0737-30 ")
 ;;847
 ;;21,"58864-0749-30 ")
 ;;207
 ;;21,"58864-0749-90 ")
 ;;208
 ;;21,"58864-0759-30 ")
 ;;1026
 ;;21,"58864-0765-30 ")
 ;;1143
 ;;21,"58864-0784-30 ")
 ;;620
 ;;21,"59762-1258-01 ")
 ;;499
 ;;21,"59762-1258-02 ")
 ;;500
 ;;21,"59762-1261-01 ")
 ;;479
 ;;21,"59762-1261-02 ")
 ;;480
 ;;21,"59762-1300-01 ")
 ;;1289
 ;;21,"59762-1300-03 ")
 ;;1290
 ;;21,"59762-1301-01 ")
 ;;1415
 ;;21,"59762-1301-03 ")
 ;;1416
 ;;21,"59762-1302-01 ")
 ;;1227
 ;;21,"59762-1302-03 ")
 ;;1228
 ;;21,"59772-2462-01 ")
 ;;1505
 ;;21,"59772-2463-03 ")
 ;;1532
 ;;21,"59772-8804-10 ")
 ;;1569
 ;;21,"59772-8805-10 ")
 ;;1553
 ;;21,"60346-0523-06 ")
 ;;1417
 ;;21,"60429-0748-01 ")
 ;;2043
 ;;21,"60429-0749-01 ")
 ;;1980
 ;;21,"60429-0750-01 ")
 ;;1998
 ;;21,"60429-0751-01 ")
 ;;2012
 ;;21,"60429-0753-01 ")
 ;;464
 ;;21,"60429-0754-01 ")
 ;;469
 ;;21,"60429-0948-01 ")
 ;;2044
 ;;21,"60429-0949-01 ")
 ;;1981
 ;;21,"60429-0950-01 ")
 ;;1999
 ;;21,"60429-0951-01 ")
 ;;2013
 ;;21,"60505-0080-00 ")
 ;;2045
 ;;21,"60505-0081-00 ")
 ;;2000
 ;;21,"60505-0082-00 ")
 ;;2014
 ;;21,"60505-0159-00 ")
 ;;1982
 ;;21,"60505-0222-01 ")
 ;;2072
 ;;21,"60505-0223-01 ")
 ;;2055
 ;;21,"60505-0224-01 ")
 ;;2063
 ;;21,"60505-2606-01 ")
 ;;785
 ;;21,"60505-2606-08 ")
 ;;786
 ;;21,"60505-2607-01 ")
 ;;848
 ;;21,"60505-2607-08 ")
 ;;849
 ;;21,"60505-2608-01 ")
 ;;670
 ;;21,"60505-2608-08 ")
 ;;671
 ;;21,"60505-2609-01 ")
 ;;732
 ;;21,"60505-2609-08 ")
 ;;733
 ;;21,"60793-0283-01 ")
 ;;449
 ;;21,"60793-0284-01 ")
 ;;456
 ;;21,"60793-0800-01 ")
 ;;1479
 ;;21,"60793-0801-01 ")
 ;;1506
 ;;21,"60793-0802-01 ")
 ;;1533
 ;;21,"60814-0710-01 ")
 ;;346
 ;;21,"60814-0710-10 ")
 ;;347
 ;;21,"60814-0711-01 ")
 ;;94
 ;;21,"60814-0711-10 ")
 ;;95
 ;;21,"60976-0346-43 ")
 ;;932
 ;;21,"60976-0346-44 ")
 ;;933
 ;;21,"60976-0346-47 ")
 ;;934
 ;;21,"61392-0018-30 ")
 ;;1554
 ;;21,"61392-0018-31 ")
 ;;1555
 ;;21,"61392-0018-32 ")
 ;;1556
 ;;21,"61392-0018-39 ")
 ;;1557
 ;;21,"61392-0018-45 ")
 ;;1558
 ;;21,"61392-0018-51 ")
 ;;1559
 ;;21,"61392-0018-54 ")
 ;;1560
 ;;21,"61392-0018-56 ")
 ;;1561
 ;;21,"61392-0018-60 ")
 ;;1562
 ;;21,"61392-0018-90 ")
 ;;1563
 ;;21,"61392-0018-91 ")
 ;;1564
 ;;21,"61392-0069-30 ")
 ;;1507
 ;;21,"61392-0069-31 ")
 ;;1508
 ;;21,"61392-0069-32 ")
 ;;1509
 ;;21,"61392-0069-39 ")
 ;;1510
 ;;21,"61392-0069-45 ")
 ;;1511
 ;;21,"61392-0069-51 ")
 ;;1512
 ;;21,"61392-0069-54 ")
 ;;1513
 ;;21,"61392-0069-60 ")
 ;;1514
 ;;21,"61392-0069-90 ")
 ;;1515
 ;;21,"61392-0069-91 ")
 ;;1516
 ;;21,"61392-0280-45 ")
 ;;1229
 ;;21,"61392-0280-56 ")
 ;;1230
 ;;21,"61392-0280-91 ")
 ;;1231
 ;;21,"61392-0286-45 ")
 ;;1418
 ;;21,"61392-0286-56 ")
 ;;1419
 ;;21,"61392-0286-91 ")
 ;;1420
 ;;21,"61392-0395-31 ")
 ;;1570
 ;;21,"61392-0395-32 ")
 ;;1571
 ;;21,"61392-0395-39 ")
 ;;1572
 ;;21,"61392-0395-45 ")
 ;;1573
 ;;21,"61392-0395-54 ")
 ;;1574
 ;;21,"61392-0395-56 ")
 ;;1575
 ;;21,"61392-0395-91 ")
 ;;1576
 ;;21,"61392-0420-34 ")
 ;;1622
 ;;21,"61392-0420-45 ")
 ;;1623
 ;;21,"61392-0420-56 ")
 ;;1624
 ;;21,"61392-0420-91 ")
 ;;1625
 ;;21,"61392-0423-34 ")
 ;;1753
 ;;21,"61392-0423-45 ")
 ;;1754
 ;;21,"61392-0423-56 ")
 ;;1755
 ;;21,"61392-0423-91 ")
 ;;1756
 ;;21,"61392-0427-30 ")
 ;;1952
 ;;21,"61392-0427-31 ")
 ;;1953
 ;;21,"61392-0427-32 ")
 ;;1954
 ;;21,"61392-0427-39 ")
 ;;1955
 ;;21,"61392-0427-45 ")
 ;;1956
 ;;21,"61392-0427-51 ")
 ;;1957
 ;;21,"61392-0427-54 ")
 ;;1958
 ;;21,"61392-0427-56 ")
 ;;1959
 ;;21,"61392-0427-60 ")
 ;;1960
 ;;21,"61392-0427-90 ")
 ;;1961
 ;;21,"61392-0427-91 ")
 ;;1962
 ;;21,"61392-0430-45 ")
 ;;1817
 ;;21,"61392-0430-56 ")
 ;;1818
 ;;21,"61392-0430-91 ")
 ;;1819
 ;;21,"61392-0542-45 ")
 ;;209
 ;;21,"61392-0542-51 ")
 ;;210
 ;;21,"61392-0542-54 ")
 ;;211
 ;;21,"61392-0542-91 ")
 ;;212
 ;;21,"61392-0543-45 ")
 ;;348
 ;;21,"61392-0543-54 ")
 ;;349
 ;;21,"61392-0543-56 ")
 ;;350
 ;;21,"61392-0543-91 ")
 ;;351
 ;;21,"61392-0546-30 ")
 ;;96
 ;;21,"61392-0546-31 ")
 ;;97
 ;;21,"61392-0546-32 ")
 ;;98
 ;;21,"61392-0546-39 ")
 ;;99
 ;;21,"61392-0546-45 ")
 ;;100
 ;;21,"61392-0546-51 ")
 ;;101
 ;;21,"61392-0546-54 ")
 ;;102
 ;;21,"61392-0546-56 ")
 ;;103
 ;;21,"61392-0546-60 ")
 ;;104
 ;;21,"61392-0546-90 ")
 ;;105
 ;;21,"61392-0546-91 ")
 ;;106
 ;;21,"61570-0175-01 ")
 ;;450
 ;;21,"61570-0176-01 ")
 ;;457
 ;;21,"61570-0200-01 ")
 ;;1480
 ;;21,"61570-0201-01 ")
 ;;1517
 ;;21,"61570-0202-01 ")
 ;;1534
 ;;21,"62037-0830-01 ")
 ;;1096
 ;;21,"62037-0830-10 ")
 ;;1097
 ;;21,"62037-0831-01 ")
 ;;1144
 ;;21,"62037-0831-10 ")
 ;;1145
 ;;21,"62037-0832-01 ")
 ;;1027
 ;;21,"62037-0832-10 ")
 ;;1028
 ;;21,"62037-0833-01 ")
 ;;1056
 ;;21,"62037-0833-10 ")
 ;;1057
 ;;21,"62269-0256-24 ")
 ;;352
 ;;21,"62269-0256-30 ")
 ;;353
 ;;21,"62269-0256-54 ")
 ;;354
 ;;21,"62269-0257-24 ")
 ;;107
 ;;21,"62269-0259-30 ")
 ;;213
 ;;21,"62584-0265-01 ")
 ;;1291
 ;;21,"62584-0265-11 ")
 ;;1292
 ;;21,"62584-0266-01 ")
 ;;1421
 ;;21,"62584-0266-11 ")
 ;;1422
 ;;21,"62584-0267-01 ")
 ;;1232
 ;;21,"62584-0267-11 ")
 ;;1233
 ;;21,"62584-0467-01 ")
 ;;355
 ;;21,"62584-0467-11 ")
 ;;356
 ;;21,"62584-0467-80 ")
 ;;357
 ;;21,"62584-0467-85 ")
 ;;358
 ;;21,"62584-0715-01 ")
 ;;108
 ;;21,"62584-0715-11 ")
 ;;109
 ;;21,"62584-0788-01 ")
 ;;1423
 ;;21,"62584-0788-11 ")
 ;;1424
 ;;21,"62584-0842-01 ")
 ;;1626
 ;;21,"62584-0842-85 ")
 ;;1627
 ;;21,"62584-0843-01 ")
 ;;1757
 ;;21,"62584-0843-85 ")
 ;;1758
 ;;21,"63304-0579-01 ")
 ;;1293
 ;;21,"63304-0579-10 ")
 ;;1294
 ;;21,"63304-0580-01 ")
 ;;1425
 ;;21,"63304-0580-10 ")
 ;;1426
 ;;21,"63304-0581-01 ")
 ;;1234
 ;;21,"63304-0581-10 ")
 ;;1235
 ;;21,"63304-0621-01 ")
 ;;214
 ;;21,"63304-0621-10 ")
 ;;215
 ;;21,"63304-0622-01 ")
 ;;359
 ;;21,"63304-0622-10 ")
 ;;360
 ;;21,"63304-0623-01 ")
 ;;110
 ;;21,"63304-0623-10 ")
 ;;111
 ;;21,"63629-1423-01 ")
 ;;1628
 ;;21,"63629-1423-02 ")
 ;;1629
 ;;21,"63629-1462-01 ")
 ;;1236
 ;;21,"63629-1462-02 ")
 ;;1237
 ;;21,"63629-1463-01 ")
 ;;1427
 ;;21,"63629-1463-02 ")
 ;;1428
 ;;21,"63629-1463-03 ")
 ;;1429
 ;;21,"63629-1463-04 ")
 ;;1430
 ;;21,"63629-2570-01 ")
 ;;1759
 ;;21,"63629-2570-02 ")
 ;;1760
 ;;21,"63629-2570-03 ")
 ;;1761
 ;;21,"63629-2909-01 ")
 ;;443
 ;;21,"63629-2909-02 ")
 ;;444
 ;;21,"63629-2909-03 ")
 ;;445
 ;;21,"63629-2909-04 ")
 ;;446
 ;;21,"63739-0027-01 ")
 ;;216
 ;;21,"63739-0027-03 ")
 ;;217
 ;;21,"63739-0027-10 ")
 ;;218
 ;;21,"63739-0027-15 ")
 ;;219
 ;;21,"63739-0028-01 ")
 ;;361
 ;;21,"63739-0028-03 ")
 ;;362
 ;;21,"63739-0028-10 ")
 ;;363
 ;;21,"63739-0028-15 ")
 ;;364
 ;;21,"63739-0173-01 ")
 ;;1431
 ;;21,"63739-0173-03 ")
 ;;1432
 ;;21,"63739-0173-10 ")
 ;;1433
 ;;21,"63739-0173-15 ")
 ;;1434
 ;;21,"63739-0366-10 ")
 ;;970
 ;;21,"63739-0405-10 ")
 ;;1295
 ;;21,"63739-0428-10 ")
 ;;1435
 ;;21,"63739-0453-10 ")
 ;;1098
 ;;21,"63739-0454-10 ")
 ;;1029
 ;;21,"63874-0332-01 ")
 ;;365
 ;;21,"63874-0332-02 ")
 ;;366
 ;;21,"63874-0332-07 ")
 ;;367
 ;;21,"63874-0332-10 ")
 ;;368
 ;;21,"63874-0332-14 ")
 ;;369
 ;;21,"63874-0332-15 ")
 ;;370
 ;;21,"63874-0332-20 ")
 ;;371
 ;;21,"63874-0332-30 ")
 ;;372
 ;;21,"63874-0332-60 ")
 ;;373
 ;;21,"63874-0332-90 ")
 ;;374
 ;;21,"63874-0368-01 ")
 ;;1762
 ;;21,"63874-0368-02 ")
 ;;1763
 ;;21,"63874-0368-15 ")
 ;;1764
 ;;21,"63874-0368-20 ")
 ;;1765
 ;;21,"63874-0368-28 ")
 ;;1766
 ;;21,"63874-0368-30 ")
 ;;1767
 ;;21,"63874-0368-60 ")
 ;;1768
 ;;21,"63874-0388-01 ")
 ;;112
 ;;21,"63874-0388-07 ")
 ;;113
 ;;21,"63874-0388-10 ")
 ;;114
 ;;21,"63874-0388-12 ")
 ;;115
 ;;21,"63874-0388-15 ")
 ;;116
 ;;21,"63874-0388-20 ")
 ;;117
 ;;21,"63874-0388-30 ")
 ;;118
 ;;21,"63874-0406-01 ")
 ;;1436
 ;;21,"63874-0406-10 ")
 ;;1437
 ;;21,"63874-0406-14 ")
 ;;1438
 ;;21,"63874-0406-15 ")
 ;;1439
 ;;21,"63874-0406-20 ")
 ;;1440
 ;;21,"63874-0406-28 ")
 ;;1441
 ;;21,"63874-0406-30 ")
 ;;1442
 ;;21,"63874-0406-60 ")
 ;;1443
 ;;21,"63874-0407-01 ")
 ;;1238
 ;;21,"63874-0407-10 ")
 ;;1239
 ;;21,"63874-0407-15 ")
 ;;1240
 ;;21,"63874-0407-20 ")
 ;;1241
 ;;21,"63874-0407-30 ")
 ;;1242
 ;;21,"63874-0407-60 ")
 ;;1243
 ;;21,"63874-0407-90 ")
 ;;1244
 ;;21,"63874-0454-01 ")
 ;;1630
 ;;21,"63874-0454-02 ")
 ;;1631
 ;;21,"63874-0454-04 ")
 ;;1632
 ;;21,"63874-0454-15 ")
 ;;1633
 ;;21,"63874-0454-20 ")
 ;;1634
 ;;21,"63874-0454-30 ")
 ;;1635
 ;;21,"63874-0454-60 ")
 ;;1636
 ;;21,"63874-0468-01 ")
 ;;220
 ;;21,"63874-0468-10 ")
 ;;221
 ;;21,"63874-0468-14 ")
 ;;222
 ;;21,"63874-0468-15 ")
 ;;223
 ;;21,"63874-0468-20 ")
 ;;224
 ;;21,"63874-0468-30 ")
 ;;225
 ;;21,"63874-0468-60 ")
 ;;226
 ;;21,"63874-0468-90 ")
 ;;227
 ;;21,"63874-0486-01 ")
 ;;1820
 ;;21,"63874-0486-02 ")
 ;;1821
 ;;21,"63874-0486-15 ")
 ;;1822
 ;;21,"63874-0486-30 ")
 ;;1823
 ;;21,"63874-0486-40 ")
 ;;1824
 ;;21,"63874-0486-60 ")
 ;;1825
 ;;21,"63874-0676-01 ")
 ;;409
 ;;21,"63874-0676-12 ")
 ;;410
 ;;21,"63874-0676-15 ")
 ;;411
 ;;21,"63874-0676-20 ")
 ;;412
 ;;21,"64376-0503-01 ")
 ;;1245
 ;;21,"64376-0503-10 ")
 ;;1246
 ;;21,"64679-0734-02 ")
 ;;1099
 ;;21,"64679-0734-03 ")
 ;;1100
 ;;21,"64679-0735-02 ")
 ;;1146
 ;;21,"64679-0735-03 ")
 ;;1147
 ;;21,"64679-0736-02 ")
 ;;1030
 ;;21,"64679-0736-03 ")
 ;;1031
 ;;21,"64679-0737-02 ")
 ;;1058
 ;;21,"64679-0737-03 ")
 ;;1059
 ;;21,"65162-0669-10 ")
 ;;12
 ;;21,"65162-0670-10 ")
 ;;18
 ;;21,"65162-0725-10 ")
 ;;2073
 ;;21,"65162-0727-10 ")
 ;;2056
 ;;21,"65162-0731-10 ")
 ;;2064
 ;;21,"65243-0014-03 ")
 ;;375
 ;;21,"65243-0232-03 ")
 ;;1444
 ;;21,"65243-0265-03 ")
 ;;1247
 ;;21,"65243-0329-03 ")
 ;;1445
 ;;21,"65483-0391-10 ")
 ;;935
 ;;21,"65483-0391-11 ")
 ;;936
 ;;21,"65483-0391-50 ")
 ;;937
 ;;21,"65483-0392-10 ")
 ;;971
 ;;21,"65483-0392-22 ")
 ;;972
 ;;21,"65483-0392-50 ")
 ;;973
 ;;21,"65483-0393-10 ")
 ;;992
 ;;21,"65483-0393-33 ")
 ;;993
 ;;21,"65483-0393-50 ")
 ;;994
 ;;21,"65726-0250-10 ")
 ;;1916
 ;;21,"65726-0250-25 ")
 ;;1917
 ;;21,"65726-0251-10 ")
 ;;1665
 ;;21,"65726-0251-25 ")
 ;;1666
 ;;21,"65862-0062-01 ")
 ;;1296
 ;;21,"65862-0062-99 ")
 ;;1297
 ;;21,"65862-0063-01 ")
 ;;1446
 ;;21,"65862-0063-99 ")
 ;;1447
 ;;21,"65862-0064-01 ")
 ;;1248
 ;;21,"65862-0064-99 ")
 ;;1249
 ;;21,"65862-0086-01 ")
 ;;501
 ;;21,"65862-0086-30 ")
 ;;502
 ;;21,"65862-0087-01 ")
 ;;481
 ;;21,"65862-0087-30 ")
 ;;482
 ;;21,"65862-0142-01 ")
 ;;787
 ;;21,"65862-0142-05 ")
 ;;788
 ;;21,"65862-0143-01 ")
 ;;850
 ;;21,"65862-0143-05 ")
 ;;851
 ;;21,"65862-0144-01 ")
 ;;672
 ;;21,"65862-0144-05 ")
 ;;673
 ;;21,"65862-0145-01 ")
 ;;734
 ;;21,"65862-0145-05 ")
 ;;735
 ;;21,"65862-0168-01 ")
 ;;228
 ;;21,"65862-0168-99 ")
 ;;229
 ;;21,"65862-0169-01 ")
 ;;376
 ;;21,"65862-0169-99 ")
 ;;377
 ;;21,"65862-0170-01 ")
 ;;119
 ;;21,"65862-0170-99 ")
 ;;120
 ;;21,"66105-0994-03 ")
 ;;1448
 ;;21,"66105-0994-06 ")
 ;;1449
 ;;21,"66105-0994-10 ")
 ;;1450
 ;;21,"66105-0994-11 ")
 ;;1451
 ;;21,"66105-0994-15 ")
 ;;1452
 ;;21,"66105-0996-03 ")
 ;;1250
 ;;21,"66105-0996-06 ")
 ;;1251
 ;;21,"66105-0996-10 ")
 ;;1252
 ;;21,"66105-0996-11 ")
 ;;1253
 ;;21,"66105-0996-15 ")
 ;;1254
 ;;21,"66267-0031-30 ")
 ;;378
 ;;21,"66336-0125-60 ")
 ;;789
 ;;21,"66336-0126-60 ")
 ;;852
 ;;21,"66336-0514-30 ")
 ;;1255
 ;;21,"66336-0514-60 ")
 ;;1256
 ;;21,"66336-0523-30 ")
 ;;1453
 ;;21,"66336-0523-60 ")
 ;;1454
 ;;21,"66336-0587-00 ")
 ;;230
 ;;21,"66336-0587-30 ")
 ;;231
 ;;21,"66336-0587-60 ")
 ;;232
 ;;21,"66336-0587-90 ")
 ;;233
 ;;21,"66336-0612-90 ")
 ;;543
 ;;21,"66336-0719-30 ")
 ;;379
 ;;21,"66336-0719-60 ")
 ;;380
 ;;21,"66336-0719-90 ")
 ;;381
 ;;21,"66336-0772-30 ")
 ;;674
 ;;21,"66336-0808-30 ")
 ;;853
 ;;21,"66336-0808-60 ")
 ;;854
 ;;21,"66336-0837-30 ")
 ;;736
 ;;21,"66336-0914-30 ")
 ;;121
 ;;21,"66336-0914-60 ")
 ;;122
 ;;21,"66336-0914-90 ")
 ;;123
 ;;21,"67046-0030-30 ")
 ;;382
 ;;21,"67046-0475-30 ")
 ;;1455
 ;;21,"67046-0476-30 ")
 ;;1257
 ;;21,"67046-0590-60 ")
 ;;1826
 ;;21,"67253-0420-10 ")
 ;;234