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

BGP2TI2.m

Go to the documentation of this file.
BGP2TI2 ;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,"13411-0118-02 ")
 ;;733
 ;;21,"13411-0118-03 ")
 ;;734
 ;;21,"13411-0118-06 ")
 ;;735
 ;;21,"13411-0118-09 ")
 ;;736
 ;;21,"13411-0119-01 ")
 ;;819
 ;;21,"13411-0119-02 ")
 ;;820
 ;;21,"13411-0119-03 ")
 ;;821
 ;;21,"13411-0119-06 ")
 ;;822
 ;;21,"13411-0119-09 ")
 ;;823
 ;;21,"13411-0132-01 ")
 ;;1310
 ;;21,"13411-0132-03 ")
 ;;1311
 ;;21,"13411-0132-06 ")
 ;;1312
 ;;21,"13411-0132-09 ")
 ;;1313
 ;;21,"13411-0132-15 ")
 ;;1314
 ;;21,"13411-0133-01 ")
 ;;1479
 ;;21,"13411-0133-03 ")
 ;;1480
 ;;21,"13411-0133-06 ")
 ;;1481
 ;;21,"13411-0133-09 ")
 ;;1482
 ;;21,"13411-0133-15 ")
 ;;1483
 ;;21,"13411-0161-01 ")
 ;;1551
 ;;21,"13411-0161-03 ")
 ;;1552
 ;;21,"13411-0161-06 ")
 ;;1553
 ;;21,"13411-0161-09 ")
 ;;1554
 ;;21,"13411-0161-15 ")
 ;;1555
 ;;21,"13411-0162-01 ")
 ;;1149
 ;;21,"13411-0162-03 ")
 ;;1150
 ;;21,"13411-0162-06 ")
 ;;1151
 ;;21,"13411-0162-09 ")
 ;;1152
 ;;21,"13411-0162-15 ")
 ;;1153
 ;;21,"16252-0505-30 ")
 ;;1508
 ;;21,"16252-0505-50 ")
 ;;1509
 ;;21,"16252-0505-90 ")
 ;;1510
 ;;21,"16252-0506-30 ")
 ;;1031
 ;;21,"16252-0506-50 ")
 ;;1032
 ;;21,"16252-0506-90 ")
 ;;1033
 ;;21,"16252-0507-30 ")
 ;;1154
 ;;21,"16252-0507-50 ")
 ;;1155
 ;;21,"16252-0507-90 ")
 ;;1156
 ;;21,"16252-0508-30 ")
 ;;1329
 ;;21,"16252-0508-50 ")
 ;;1330
 ;;21,"16252-0508-90 ")
 ;;1331
 ;;21,"16252-0509-30 ")
 ;;1559
 ;;21,"16252-0509-50 ")
 ;;1560
 ;;21,"16252-0509-90 ")
 ;;1561
 ;;21,"16252-0526-90 ")
 ;;711
 ;;21,"16252-0527-50 ")
 ;;794
 ;;21,"16252-0527-90 ")
 ;;795
 ;;21,"16252-0528-50 ")
 ;;889
 ;;21,"16252-0528-90 ")
 ;;890
 ;;21,"16252-0529-90 ")
 ;;934
 ;;21,"16590-0431-30 ")
 ;;1324
 ;;21,"16590-0431-90 ")
 ;;1325
 ;;21,"16590-0446-30 ")
 ;;1165
 ;;21,"16590-0546-30 ")
 ;;896
 ;;21,"16590-0546-90 ")
 ;;897
 ;;21,"16590-0547-30 ")
 ;;493
 ;;21,"16590-0547-60 ")
 ;;494
 ;;21,"16590-0547-72 ")
 ;;495
 ;;21,"16590-0547-90 ")
 ;;496
 ;;21,"16590-0941-30 ")
 ;;604
 ;;21,"16714-0681-01 ")
 ;;1506
 ;;21,"16714-0681-02 ")
 ;;1507
 ;;21,"16714-0682-01 ")
 ;;1034
 ;;21,"16714-0682-02 ")
 ;;1035
 ;;21,"16714-0682-03 ")
 ;;1036
 ;;21,"16714-0683-01 ")
 ;;1157
 ;;21,"16714-0683-02 ")
 ;;1158
 ;;21,"16714-0683-03 ")
 ;;1159
 ;;21,"16714-0684-01 ")
 ;;1326
 ;;21,"16714-0684-02 ")
 ;;1327
 ;;21,"16714-0684-03 ")
 ;;1328
 ;;21,"16714-0685-01 ")
 ;;1562
 ;;21,"16714-0685-02 ")
 ;;1563
 ;;21,"16714-0685-03 ")
 ;;1564
 ;;21,"16729-0004-10 ")
 ;;1039
 ;;21,"16729-0004-15 ")
 ;;1040
 ;;21,"16729-0004-17 ")
 ;;1041
 ;;21,"16729-0005-10 ")
 ;;1160
 ;;21,"16729-0005-15 ")
 ;;1161
 ;;21,"16729-0005-17 ")
 ;;1162
 ;;21,"16729-0006-10 ")
 ;;1321
 ;;21,"16729-0006-15 ")
 ;;1322
 ;;21,"16729-0006-17 ")
 ;;1323
 ;;21,"16729-0007-10 ")
 ;;1565
 ;;21,"16729-0007-15 ")
 ;;1566
 ;;21,"16729-0007-17 ")
 ;;1567
 ;;21,"21695-0178-30 ")
 ;;710
 ;;21,"21695-0179-30 ")
 ;;796
 ;;21,"21695-0179-90 ")
 ;;797
 ;;21,"21695-0180-30 ")
 ;;887
 ;;21,"21695-0180-90 ")
 ;;888
 ;;21,"21695-0255-90 ")
 ;;263
 ;;21,"21695-0287-90 ")
 ;;967
 ;;21,"21695-0288-90 ")
 ;;984
 ;;21,"21695-0325-30 ")
 ;;1704
 ;;21,"21695-0339-30 ")
 ;;1720
 ;;21,"21695-0534-30 ")
 ;;393
 ;;21,"21695-0535-30 ")
 ;;491
 ;;21,"21695-0535-90 ")
 ;;492
 ;;21,"21695-0536-30 ")
 ;;605
 ;;21,"21695-0536-90 ")
 ;;606
 ;;21,"21695-0659-30 ")
 ;;1019
 ;;21,"21695-0738-90 ")
 ;;1505
 ;;21,"21695-0739-30 ")
 ;;1037
 ;;21,"21695-0739-90 ")
 ;;1038
 ;;21,"21695-0740-30 ")
 ;;1163
 ;;21,"21695-0740-90 ")
 ;;1164
 ;;21,"21695-0741-30 ")
 ;;1319
 ;;21,"21695-0741-90 ")
 ;;1320
 ;;21,"21695-0742-30 ")
 ;;1568
 ;;21,"21695-0742-90 ")
 ;;1569
 ;;21,"21695-0759-90 ")
 ;;1023
 ;;21,"21695-0827-30 ")
 ;;1735
 ;;21,"23490-0131-03 ")
 ;;209
 ;;21,"23490-0132-03 ")
 ;;262
 ;;21,"23490-0133-03 ")
 ;;307
 ;;21,"23490-0167-03 ")
 ;;1703
 ;;21,"23490-1981-03 ")
 ;;933
 ;;21,"23490-5838-02 ")
 ;;394
 ;;21,"23490-5838-06 ")
 ;;395
 ;;21,"23490-5838-09 ")
 ;;396
 ;;21,"23490-5839-00 ")
 ;;489
 ;;21,"23490-5839-01 ")
 ;;490
 ;;21,"23490-5840-01 ")
 ;;607
 ;;21,"23490-5840-02 ")
 ;;608
 ;;21,"23490-9350-03 ")
 ;;712
 ;;21,"23490-9350-06 ")
 ;;713
 ;;21,"23490-9350-09 ")
 ;;714
 ;;21,"23490-9351-03 ")
 ;;798
 ;;21,"23490-9351-06 ")
 ;;799
 ;;21,"23490-9351-09 ")
 ;;800
 ;;21,"23490-9352-03 ")
 ;;893
 ;;21,"23490-9352-06 ")
 ;;894
 ;;21,"23490-9352-09 ")
 ;;895
 ;;21,"23490-9353-03 ")
 ;;1046
 ;;21,"23490-9353-06 ")
 ;;1047
 ;;21,"23490-9353-09 ")
 ;;1048
 ;;21,"23490-9354-03 ")
 ;;1189
 ;;21,"23490-9354-06 ")
 ;;1190
 ;;21,"23490-9354-09 ")
 ;;1191
 ;;21,"23490-9355-03 ")
 ;;1332
 ;;21,"23490-9355-06 ")
 ;;1333
 ;;21,"23490-9355-09 ")
 ;;1334
 ;;21,"23490-9356-03 ")
 ;;1518
 ;;21,"23490-9356-06 ")
 ;;1519
 ;;21,"23490-9356-09 ")
 ;;1520
 ;;21,"23490-9357-03 ")
 ;;1598
 ;;21,"23490-9357-06 ")
 ;;1599
 ;;21,"23490-9357-09 ")
 ;;1600
 ;;21,"23490-9925-01 ")
 ;;968
 ;;21,"23490-9925-09 ")
 ;;969
 ;;21,"23490-9926-01 ")
 ;;983
 ;;21,"24658-0210-10 ")
 ;;1514
 ;;21,"24658-0210-30 ")
 ;;1515
 ;;21,"24658-0210-45 ")
 ;;1516
 ;;21,"24658-0210-90 ")
 ;;1517
 ;;21,"24658-0211-10 ")
 ;;1049
 ;;21,"24658-0211-30 ")
 ;;1050
 ;;21,"24658-0211-45 ")
 ;;1051
 ;;21,"24658-0211-90 ")
 ;;1052
 ;;21,"24658-0212-10 ")
 ;;1181
 ;;21,"24658-0212-30 ")
 ;;1182
 ;;21,"24658-0212-45 ")
 ;;1183
 ;;21,"24658-0212-90 ")
 ;;1184
 ;;21,"24658-0213-10 ")
 ;;1339
 ;;21,"24658-0213-30 ")
 ;;1340
 ;;21,"24658-0213-45 ")
 ;;1341
 ;;21,"24658-0213-90 ")
 ;;1342
 ;;21,"24658-0214-10 ")
 ;;1590
 ;;21,"24658-0214-30 ")
 ;;1591
 ;;21,"24658-0214-45 ")
 ;;1592
 ;;21,"24658-0214-90 ")
 ;;1593
 ;;21,"24658-0304-10 ")
 ;;1594
 ;;21,"24658-0304-30 ")
 ;;1595
 ;;21,"24658-0304-45 ")
 ;;1596
 ;;21,"24658-0304-90 ")
 ;;1597
 ;;21,"33261-0541-02 ")
 ;;1185
 ;;21,"33261-0541-30 ")
 ;;1186
 ;;21,"33261-0541-60 ")
 ;;1187
 ;;21,"33261-0541-90 ")
 ;;1188
 ;;21,"33261-0542-02 ")
 ;;1335
 ;;21,"33261-0542-30 ")
 ;;1336
 ;;21,"33261-0542-60 ")
 ;;1337
 ;;21,"33261-0542-90 ")
 ;;1338
 ;;21,"33261-0548-30 ")
 ;;484
 ;;21,"33261-0548-60 ")
 ;;485
 ;;21,"33358-0210-01 ")
 ;;161
 ;;21,"33358-0210-30 ")
 ;;162
 ;;21,"33358-0210-60 ")
 ;;163
 ;;21,"33358-0210-90 ")
 ;;164
 ;;21,"33358-0223-30 ")
 ;;397
 ;;21,"33358-0224-30 ")
 ;;486
 ;;21,"33358-0225-00 ")
 ;;487
 ;;21,"33358-0225-60 ")
 ;;488
 ;;21,"33358-0226-30 ")
 ;;609
 ;;21,"35356-0125-30 ")
 ;;898
 ;;21,"35356-0413-30 ")
 ;;1018
 ;;21,"35356-0519-30 ")
 ;;1022
 ;;21,"35356-0600-30 ")
 ;;1589
 ;;21,"35356-0604-30 ")
 ;;1094
 ;;21,"42254-0019-90 ")
 ;;215
 ;;21,"42291-0375-90 ")
 ;;398
 ;;21,"42291-0376-90 ")
 ;;483
 ;;21,"42291-0377-10 ")
 ;;610
 ;;21,"42291-0377-90 ")
 ;;611
 ;;21,"43063-0008-01 ")
 ;;1178
 ;;21,"43063-0080-30 ")
 ;;1587
 ;;21,"43063-0080-90 ")
 ;;1588
 ;;21,"43063-0143-30 ")
 ;;801
 ;;21,"43063-0195-30 ")
 ;;891
 ;;21,"43353-0031-15 ")
 ;;1013
 ;;21,"43353-0031-45 ")
 ;;1014
 ;;21,"43353-0031-60 ")
 ;;1015
 ;;21,"43353-0031-82 ")
 ;;1016
 ;;21,"43353-0031-91 ")
 ;;1017
 ;;21,"43353-0227-15 ")
 ;;1343
 ;;21,"43353-0227-45 ")
 ;;1344
 ;;21,"43353-0228-15 ")
 ;;1579
 ;;21,"43353-0228-30 ")
 ;;1580
 ;;21,"43353-0228-45 ")
 ;;1581
 ;;21,"43353-0228-60 ")
 ;;1582
 ;;21,"43353-0229-45 ")
 ;;1179
 ;;21,"43353-0229-60 ")
 ;;1180
 ;;21,"43353-0289-15 ")
 ;;980
 ;;21,"43353-0289-45 ")
 ;;981
 ;;21,"43353-0289-91 ")
 ;;982
 ;;21,"43353-0290-15 ")
 ;;970
 ;;21,"43353-0290-45 ")
 ;;971
 ;;21,"43353-0394-15 ")
 ;;1583
 ;;21,"43353-0394-30 ")
 ;;1584
 ;;21,"43353-0394-45 ")
 ;;1585
 ;;21,"43353-0394-60 ")
 ;;1586
 ;;21,"43353-0496-45 ")
 ;;892
 ;;21,"43353-0625-15 ")
 ;;1174
 ;;21,"43353-0625-30 ")
 ;;1175
 ;;21,"43353-0625-45 ")
 ;;1176
 ;;21,"43353-0625-60 ")
 ;;1177
 ;;21,"43353-0664-15 ")
 ;;1575
 ;;21,"43353-0664-30 ")
 ;;1576
 ;;21,"43353-0664-45 ")
 ;;1577
 ;;21,"43353-0664-60 ")
 ;;1578
 ;;21,"43353-0665-15 ")
 ;;1346
 ;;21,"43353-0665-30 ")
 ;;1347
 ;;21,"43353-0665-45 ")
 ;;1348
 ;;21,"43353-0665-60 ")
 ;;1349
 ;;21,"43353-0666-30 ")
 ;;1572
 ;;21,"43353-0666-45 ")
 ;;1573
 ;;21,"43353-0666-60 ")
 ;;1574
 ;;21,"43353-0685-45 ")
 ;;860
 ;;21,"43353-0718-45 ")
 ;;613
 ;;21,"43353-0718-60 ")
 ;;614
 ;;21,"43353-0763-45 ")
 ;;615
 ;;21,"43683-0152-30 ")
 ;;1345
 ;;21,"45802-0093-01 ")
 ;;1053
 ;;21,"45802-0093-65 ")
 ;;1054
 ;;21,"45802-0093-75 ")
 ;;1055
 ;;21,"45802-0292-65 ")
 ;;1570
 ;;21,"45802-0292-75 ")
 ;;1571
 ;;21,"45802-0384-01 ")
 ;;1170
 ;;21,"45802-0384-65 ")
 ;;1171
 ;;21,"45802-0384-75 ")
 ;;1172
 ;;21,"45802-0384-93 ")
 ;;1173
 ;;21,"45802-0879-01 ")
 ;;1350
 ;;21,"45802-0879-65 ")
 ;;1351
 ;;21,"45802-0879-75 ")
 ;;1352
 ;;21,"45802-0879-93 ")
 ;;1353
 ;;21,"45802-0924-65 ")
 ;;1536
 ;;21,"45963-0633-01 ")
 ;;399
 ;;21,"45963-0633-04 ")
 ;;400
 ;;21,"45963-0634-01 ")
 ;;481
 ;;21,"45963-0634-04 ")
 ;;482
 ;;21,"45963-0635-01 ")
 ;;612
 ;;21,"47463-0031-30 ")
 ;;146
 ;;21,"47463-0032-30 ")
 ;;205
 ;;21,"47463-0033-30 ")
 ;;250
 ;;21,"47463-0033-90 ")
 ;;251
 ;;21,"47463-0034-30 ")
 ;;301
 ;;21,"47463-0095-30 ")
 ;;1028
 ;;21,"47463-0096-30 ")
 ;;951
 ;;21,"47463-0097-30 ")
 ;;997
 ;;21,"47463-0394-30 ")
 ;;550
 ;;21,"47463-0394-90 ")
 ;;551
 ;;21,"47463-0395-30 ")
 ;;439
 ;;21,"47463-0596-30 ")
 ;;859
 ;;21,"47463-0597-30 ")
 ;;776
 ;;21,"47463-0598-30 ")
 ;;922
 ;;21,"47463-0774-30 ")
 ;;1406
 ;;21,"47463-0774-90 ")
 ;;1407
 ;;21,"47463-0775-30 ")
 ;;1232
 ;;21,"47463-0775-90 ")
 ;;1233
 ;;21,"47463-0776-30 ")
 ;;1627
 ;;21,"47463-0776-90 ")
 ;;1628
 ;;21,"47463-0821-30 ")
 ;;1706
 ;;21,"47463-0822-30 ")
 ;;1718
 ;;21,"47463-0823-30 ")
 ;;1737
 ;;21,"49884-0176-09 ")
 ;;697
 ;;21,"49884-0176-10 ")
 ;;698
 ;;21,"49884-0179-09 ")
 ;;774
 ;;21,"49884-0179-10 ")
 ;;775
 ;;21,"49884-0180-09 ")
 ;;861
 ;;21,"49884-0180-10 ")
 ;;862
 ;;21,"49884-0754-01 ")
 ;;348
 ;;21,"49884-0754-02 ")
 ;;349
 ;;21,"49884-0754-10 ")
 ;;350
 ;;21,"49884-0755-01 ")
 ;;443
 ;;21,"49884-0755-02 ")
 ;;444
 ;;21,"49884-0755-10 ")
 ;;445
 ;;21,"49884-0756-01 ")
 ;;547
 ;;21,"49884-0756-02 ")
 ;;548
 ;;21,"49884-0756-10 ")
 ;;549
 ;;21,"49999-0293-30 ")
 ;;351
 ;;21,"49999-0306-30 ")
 ;;1292
 ;;21,"49999-0392-30 ")
 ;;147
 ;;21,"49999-0392-90 ")
 ;;148
 ;;21,"49999-0467-30 ")
 ;;203
 ;;21,"49999-0467-90 ")
 ;;204
 ;;21,"49999-0468-30 ")
 ;;252
 ;;21,"49999-0468-90 ")
 ;;253
 ;;21,"49999-0470-30 ")
 ;;440
 ;;21,"49999-0470-60 ")
 ;;441
 ;;21,"49999-0470-90 ")
 ;;442
 ;;21,"49999-0471-00 ")
 ;;552
 ;;21,"49999-0471-30 ")
 ;;553
 ;;21,"49999-0471-60 ")
 ;;554
 ;;21,"49999-0488-30 ")
 ;;1462
 ;;21,"49999-0873-30 ")
 ;;954
 ;;21,"49999-0873-90 ")
 ;;955
 ;;21,"49999-0882-30 ")
 ;;299
 ;;21,"49999-0882-90 ")
 ;;300
 ;;21,"49999-0889-30 ")
 ;;1237
 ;;21,"49999-0889-60 ")
 ;;1238
 ;;21,"49999-0889-90 ")
 ;;1239
 ;;21,"49999-0900-90 ")
 ;;1534
 ;;21,"49999-0903-15 ")
 ;;1402
 ;;21,"49999-0903-30 ")
 ;;1403
 ;;21,"49999-0903-90 ")
 ;;1404
 ;;21,"49999-0957-30 ")
 ;;1707
 ;;21,"49999-0958-30 ")
 ;;1717
 ;;21,"49999-0989-30 ")
 ;;44
 ;;21,"49999-0992-30 ")
 ;;998
 ;;21,"49999-0992-90 ")
 ;;999
 ;;21,"50111-0761-17 ")
 ;;696
 ;;21,"50111-0762-03 ")
 ;;777
 ;;21,"50111-0762-17 ")
 ;;778
 ;;21,"50111-0764-03 ")
 ;;857
 ;;21,"50111-0764-17 ")
 ;;858
 ;;21,"50742-0137-10 ")
 ;;1093
 ;;21,"50742-0138-10 ")
 ;;1234
 ;;21,"50742-0139-10 ")
 ;;1405
 ;;21,"50742-0140-10 ")
 ;;1626
 ;;21,"51079-0393-01 ")
 ;;1235
 ;;21,"51079-0393-20 ")
 ;;1236
 ;;21,"51079-0398-01 ")
 ;;1400
 ;;21,"51079-0398-20 ")
 ;;1401
 ;;21,"51079-0454-01 ")
 ;;1089
 ;;21,"51079-0454-20 ")
 ;;1090
 ;;21,"51079-0455-01 ")
 ;;1242
 ;;21,"51079-0455-20 ")
 ;;1243
 ;;21,"51079-0456-01 ")
 ;;1409
 ;;21,"51079-0456-20 ")
 ;;1410
 ;;21,"51079-0458-01 ")
 ;;771
 ;;21,"51079-0458-20 ")
 ;;772
 ;;21,"51079-0686-01 ")
 ;;1087
 ;;21,"51079-0686-20 ")
 ;;1088
 ;;21,"51079-0782-01 ")
 ;;864
 ;;21,"51079-0782-20 ")
 ;;865
 ;;21,"51079-0974-01 ")
 ;;352
 ;;21,"51079-0974-20 ")
 ;;353
 ;;21,"51079-0975-01 ")
 ;;436
 ;;21,"51079-0975-20 ")
 ;;437
 ;;21,"51079-0975-56 ")
 ;;438
 ;;21,"51079-0976-01 ")
 ;;555
 ;;21,"51079-0976-20 ")
 ;;556
 ;;21,"51079-0976-56 ")
 ;;557
 ;;21,"51138-0110-30 ")
 ;;1537
 ;;21,"51138-0111-30 ")
 ;;1086
 ;;21,"51138-0112-30 ")
 ;;1244
 ;;21,"51138-0113-30 ")
 ;;1408
 ;;21,"51138-0114-30 ")
 ;;1630
 ;;21,"51138-0220-10 ")
 ;;149
 ;;21,"51138-0220-30 ")
 ;;150
 ;;21,"51138-0220-45 ")
 ;;151
 ;;21,"51138-0220-60 ")
 ;;152
 ;;21,"51138-0221-15 ")
 ;;199
 ;;21,"51138-0221-30 ")
 ;;200
 ;;21,"51138-0221-45 ")
 ;;201
 ;;21,"51138-0221-60 ")
 ;;202
 ;;21,"51138-0222-15 ")
 ;;254
 ;;21,"51138-0222-30 ")
 ;;255
 ;;21,"51138-0222-45 ")
 ;;256