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

BGP2TPC.m

Go to the documentation of this file.
BGP2TPC ;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,"43478-0901-88 ")
 ;;1896
 ;;21,"43478-0902-88 ")
 ;;1654
 ;;21,"43478-0903-88 ")
 ;;1681
 ;;21,"49884-0282-01 ")
 ;;1845
 ;;21,"49884-0282-10 ")
 ;;1846
 ;;21,"49884-0328-01 ")
 ;;1897
 ;;21,"49884-0328-10 ")
 ;;1898
 ;;21,"49884-0329-01 ")
 ;;1655
 ;;21,"49884-0329-10 ")
 ;;1656
 ;;21,"49884-0330-01 ")
 ;;1682
 ;;21,"49884-0330-10 ")
 ;;1683
 ;;21,"49884-0404-01 ")
 ;;1072
 ;;21,"49884-0404-10 ")
 ;;1073
 ;;21,"49884-0405-01 ")
 ;;1117
 ;;21,"49884-0405-10 ")
 ;;1118
 ;;21,"49884-0406-01 ")
 ;;1008
 ;;21,"49884-0406-10 ")
 ;;1009
 ;;21,"49884-0407-01 ")
 ;;1040
 ;;21,"49884-0407-10 ")
 ;;1041
 ;;21,"49884-0582-01 ")
 ;;2028
 ;;21,"49884-0582-10 ")
 ;;2029
 ;;21,"49884-0583-01 ")
 ;;1974
 ;;21,"49884-0583-10 ")
 ;;1975
 ;;21,"49884-0584-01 ")
 ;;1992
 ;;21,"49884-0584-10 ")
 ;;1993
 ;;21,"49884-0585-01 ")
 ;;2008
 ;;21,"49884-0585-10 ")
 ;;2009
 ;;21,"49884-0587-01 ")
 ;;5
 ;;21,"49884-0588-01 ")
 ;;16
 ;;21,"49999-0010-00 ")
 ;;1349
 ;;21,"49999-0010-30 ")
 ;;1350
 ;;21,"49999-0010-60 ")
 ;;1351
 ;;21,"49999-0104-00 ")
 ;;284
 ;;21,"49999-0104-30 ")
 ;;285
 ;;21,"49999-0104-60 ")
 ;;286
 ;;21,"49999-0104-90 ")
 ;;287
 ;;21,"49999-0178-00 ")
 ;;52
 ;;21,"49999-0178-30 ")
 ;;53
 ;;21,"49999-0201-30 ")
 ;;1491
 ;;21,"49999-0202-30 ")
 ;;1526
 ;;21,"49999-0203-30 ")
 ;;1465
 ;;21,"49999-0226-00 ")
 ;;1189
 ;;21,"49999-0226-30 ")
 ;;1190
 ;;21,"49999-0226-60 ")
 ;;1191
 ;;21,"49999-0286-60 ")
 ;;1796
 ;;21,"49999-0454-00 ")
 ;;162
 ;;21,"49999-0454-10 ")
 ;;163
 ;;21,"49999-0454-30 ")
 ;;164
 ;;21,"49999-0454-60 ")
 ;;165
 ;;21,"49999-0454-90 ")
 ;;166
 ;;21,"49999-0482-30 ")
 ;;1074
 ;;21,"49999-0483-00 ")
 ;;1119
 ;;21,"49999-0483-30 ")
 ;;1120
 ;;21,"49999-0484-00 ")
 ;;1010
 ;;21,"49999-0484-30 ")
 ;;1011
 ;;21,"49999-0512-30 ")
 ;;420
 ;;21,"49999-0555-90 ")
 ;;1712
 ;;21,"49999-0575-10 ")
 ;;1270
 ;;21,"49999-0575-20 ")
 ;;1271
 ;;21,"49999-0575-30 ")
 ;;1272
 ;;21,"49999-0577-20 ")
 ;;768
 ;;21,"49999-0866-00 ")
 ;;490
 ;;21,"49999-0872-30 ")
 ;;714
 ;;21,"49999-0938-30 ")
 ;;650
 ;;21,"49999-0939-30 ")
 ;;826
 ;;21,"49999-0996-00 ")
 ;;1042
 ;;21,"50111-0467-01 ")
 ;;1599
 ;;21,"50111-0467-03 ")
 ;;1600
 ;;21,"50111-0468-01 ")
 ;;1713
 ;;21,"50111-0468-03 ")
 ;;1714
 ;;21,"50111-0469-01 ")
 ;;1797
 ;;21,"50111-0469-03 ")
 ;;1798
 ;;21,"50111-0470-01 ")
 ;;1864
 ;;21,"50111-0471-01 ")
 ;;1938
 ;;21,"50111-0471-02 ")
 ;;1939
 ;;21,"50111-0473-01 ")
 ;;896
 ;;21,"50111-0474-01 ")
 ;;900
 ;;21,"50268-0050-15 ")
 ;;6
 ;;21,"50268-0051-15 ")
 ;;17
 ;;21,"50419-0105-10 ")
 ;;2030
 ;;21,"50419-0105-11 ")
 ;;2031
 ;;21,"50419-0106-10 ")
 ;;1994
 ;;21,"50419-0106-11 ")
 ;;1995
 ;;21,"50419-0107-10 ")
 ;;2010
 ;;21,"50419-0107-11 ")
 ;;2011
 ;;21,"50419-0109-10 ")
 ;;1976
 ;;21,"50419-0109-11 ")
 ;;1977
 ;;21,"50419-0115-06 ")
 ;;2069
 ;;21,"50419-0115-11 ")
 ;;2070
 ;;21,"50419-0116-06 ")
 ;;2061
 ;;21,"50419-0116-11 ")
 ;;2062
 ;;21,"50419-0119-06 ")
 ;;2053
 ;;21,"50419-0119-11 ")
 ;;2054
 ;;21,"50742-0101-01 ")
 ;;167
 ;;21,"50742-0101-10 ")
 ;;168
 ;;21,"50742-0102-01 ")
 ;;288
 ;;21,"50742-0102-10 ")
 ;;289
 ;;21,"50742-0103-01 ")
 ;;54
 ;;21,"50742-0103-10 ")
 ;;55
 ;;21,"50742-0107-01 ")
 ;;1273
 ;;21,"50742-0108-10 ")
 ;;1352
 ;;21,"51079-0255-19 ")
 ;;1274
 ;;21,"51079-0255-20 ")
 ;;1275
 ;;21,"51079-0277-01 ")
 ;;1601
 ;;21,"51079-0277-19 ")
 ;;1602
 ;;21,"51079-0277-20 ")
 ;;1603
 ;;21,"51079-0278-01 ")
 ;;1715
 ;;21,"51079-0278-20 ")
 ;;1716
 ;;21,"51079-0279-01 ")
 ;;1799
 ;;21,"51079-0279-20 ")
 ;;1800
 ;;21,"51079-0280-01 ")
 ;;1940
 ;;21,"51079-0280-20 ")
 ;;1941
 ;;21,"51079-0684-01 ")
 ;;290
 ;;21,"51079-0684-19 ")
 ;;291
 ;;21,"51079-0684-20 ")
 ;;292
 ;;21,"51079-0684-63 ")
 ;;293
 ;;21,"51079-0685-01 ")
 ;;56
 ;;21,"51079-0685-20 ")
 ;;57
 ;;21,"51079-0759-01 ")
 ;;169
 ;;21,"51079-0759-19 ")
 ;;170
 ;;21,"51079-0759-20 ")
 ;;171
 ;;21,"51079-0759-63 ")
 ;;172
 ;;21,"51079-0771-01 ")
 ;;769
 ;;21,"51079-0771-17 ")
 ;;770
 ;;21,"51079-0771-19 ")
 ;;771
 ;;21,"51079-0771-20 ")
 ;;772
 ;;21,"51079-0801-01 ")
 ;;1353
 ;;21,"51079-0801-19 ")
 ;;1354
 ;;21,"51079-0801-20 ")
 ;;1355
 ;;21,"51079-0801-30 ")
 ;;1356
 ;;21,"51079-0801-56 ")
 ;;1357
 ;;21,"51079-0801-57 ")
 ;;1358
 ;;21,"51079-0802-01 ")
 ;;1192
 ;;21,"51079-0802-19 ")
 ;;1193
 ;;21,"51079-0802-20 ")
 ;;1194
 ;;21,"51079-0812-01 ")
 ;;1472
 ;;21,"51079-0812-20 ")
 ;;1473
 ;;21,"51079-0813-01 ")
 ;;1492
 ;;21,"51079-0813-20 ")
 ;;1493
 ;;21,"51079-0814-01 ")
 ;;1527
 ;;21,"51079-0814-20 ")
 ;;1528
 ;;21,"51079-0928-01 ")
 ;;924
 ;;21,"51079-0928-20 ")
 ;;925
 ;;21,"51079-0929-01 ")
 ;;962
 ;;21,"51079-0929-20 ")
 ;;963
 ;;21,"51079-0930-01 ")
 ;;827
 ;;21,"51079-0930-17 ")
 ;;828
 ;;21,"51079-0930-19 ")
 ;;829
 ;;21,"51079-0930-20 ")
 ;;830
 ;;21,"51079-0931-01 ")
 ;;651
 ;;21,"51079-0931-17 ")
 ;;652
 ;;21,"51079-0931-19 ")
 ;;653
 ;;21,"51079-0931-20 ")
 ;;654
 ;;21,"51079-0932-01 ")
 ;;715
 ;;21,"51079-0932-20 ")
 ;;716
 ;;21,"51079-0954-01 ")
 ;;567
 ;;21,"51079-0954-20 ")
 ;;568
 ;;21,"51079-0955-01 ")
 ;;599
 ;;21,"51079-0955-20 ")
 ;;600
 ;;21,"51079-0956-01 ")
 ;;525
 ;;21,"51079-0956-20 ")
 ;;526
 ;;21,"51285-0040-01 ")
 ;;527
 ;;21,"51285-0047-02 ")
 ;;569
 ;;21,"51285-0050-02 ")
 ;;601
 ;;21,"51285-0060-01 ")
 ;;491
 ;;21,"51285-0061-01 ")
 ;;477
 ;;21,"51655-0349-24 ")
 ;;1801
 ;;21,"51655-0350-24 ")
 ;;1717
 ;;21,"51655-0384-24 ")
 ;;1359
 ;;21,"51655-0530-24 ")
 ;;294
 ;;21,"51655-0530-25 ")
 ;;295
 ;;21,"51655-0532-24 ")
 ;;58
 ;;21,"51655-0926-24 ")
 ;;173
 ;;21,"51655-0928-25 ")
 ;;1360
 ;;21,"52152-0179-02 ")
 ;;461
 ;;21,"52152-0180-02 ")
 ;;468
 ;;21,"52544-0843-30 ")
 ;;528
 ;;21,"52555-0450-01 ")
 ;;421
 ;;21,"52959-0212-01 ")
 ;;1718
 ;;21,"52959-0212-10 ")
 ;;1719
 ;;21,"52959-0212-20 ")
 ;;1720
 ;;21,"52959-0212-45 ")
 ;;1721
 ;;21,"52959-0212-50 ")
 ;;1722
 ;;21,"52959-0212-60 ")
 ;;1723
 ;;21,"52959-0241-30 ")
 ;;529
 ;;21,"52959-0247-30 ")
 ;;1899
 ;;21,"52959-0253-00 ")
 ;;296
 ;;21,"52959-0253-20 ")
 ;;297
 ;;21,"52959-0253-30 ")
 ;;298
 ;;21,"52959-0253-40 ")
 ;;299
 ;;21,"52959-0258-30 ")
 ;;59
 ;;21,"52959-0280-30 ")
 ;;300
 ;;21,"52959-0337-10 ")
 ;;602
 ;;21,"52959-0337-30 ")
 ;;603
 ;;21,"52959-0463-01 ")
 ;;174
 ;;21,"52959-0463-30 ")
 ;;175
 ;;21,"52959-0463-60 ")
 ;;176
 ;;21,"52959-0827-30 ")
 ;;1604
 ;;21,"52959-0839-30 ")
 ;;1361
 ;;21,"52959-0839-60 ")
 ;;1362
 ;;21,"52959-0895-60 ")
 ;;1802
 ;;21,"53489-0366-01 ")
 ;;1363
 ;;21,"53489-0366-10 ")
 ;;1364
 ;;21,"53489-0367-01 ")
 ;;1195
 ;;21,"53489-0367-10 ")
 ;;1196
 ;;21,"53489-0529-01 ")
 ;;301
 ;;21,"53489-0529-10 ")
 ;;302
 ;;21,"53489-0530-01 ")
 ;;60
 ;;21,"53489-0530-10 ")
 ;;61
 ;;21,"53489-0531-01 ")
 ;;422
 ;;21,"53489-0532-01 ")
 ;;399
 ;;21,"53489-0536-01 ")
 ;;177
 ;;21,"53489-0536-10 ")
 ;;178
 ;;21,"53746-0220-05 ")
 ;;1942
 ;;21,"53746-0220-79 ")
 ;;1943
 ;;21,"54348-0142-30 ")
 ;;303
 ;;21,"54348-0168-30 ")
 ;;179
 ;;21,"54569-0442-00 ")
 ;;1865
 ;;21,"54569-0557-00 ")
 ;;1605
 ;;21,"54569-0557-01 ")
 ;;1606
 ;;21,"54569-0557-03 ")
 ;;1607
 ;;21,"54569-0559-00 ")
 ;;1724
 ;;21,"54569-0559-01 ")
 ;;1725
 ;;21,"54569-0559-03 ")
 ;;1726
 ;;21,"54569-0561-01 ")
 ;;1803
 ;;21,"54569-0561-02 ")
 ;;1804
 ;;21,"54569-0561-03 ")
 ;;1805
 ;;21,"54569-0564-00 ")
 ;;1657
 ;;21,"54569-0590-00 ")
 ;;964
 ;;21,"54569-0596-00 ")
 ;;423
 ;;21,"54569-1634-00 ")
 ;;1847
 ;;21,"54569-2499-00 ")
 ;;1944
 ;;21,"54569-3097-00 ")
 ;;1900
 ;;21,"54569-3432-00 ")
 ;;304
 ;;21,"54569-3432-01 ")
 ;;305
 ;;21,"54569-3432-03 ")
 ;;306
 ;;21,"54569-3432-04 ")
 ;;307
 ;;21,"54569-3432-05 ")
 ;;308
 ;;21,"54569-3432-07 ")
 ;;309
 ;;21,"54569-3654-00 ")
 ;;62
 ;;21,"54569-3654-03 ")
 ;;63
 ;;21,"54569-3654-04 ")
 ;;64
 ;;21,"54569-3787-00 ")
 ;;1365
 ;;21,"54569-3787-01 ")
 ;;1366
 ;;21,"54569-3787-02 ")
 ;;1367
 ;;21,"54569-3788-00 ")
 ;;1197
 ;;21,"54569-3788-01 ")
 ;;1198
 ;;21,"54569-3790-00 ")
 ;;1494
 ;;21,"54569-3791-00 ")
 ;;1529
 ;;21,"54569-3885-00 ")
 ;;180
 ;;21,"54569-3885-02 ")
 ;;181
 ;;21,"54569-3885-04 ")
 ;;182
 ;;21,"54569-4441-00 ")
 ;;1121
 ;;21,"54569-4442-00 ")
 ;;1012
 ;;21,"54569-4707-00 ")
 ;;570
 ;;21,"54569-4708-00 ")
 ;;604
 ;;21,"54569-4718-00 ")
 ;;1043
 ;;21,"54569-4718-01 ")
 ;;1044
 ;;21,"54569-5368-00 ")
 ;;530
 ;;21,"54569-5385-00 ")
 ;;773
 ;;21,"54569-5404-00 ")
 ;;605
 ;;21,"54569-5404-01 ")
 ;;606
 ;;21,"54569-5417-00 ")
 ;;571
 ;;21,"54569-5417-01 ")
 ;;572
 ;;21,"54569-5419-00 ")
 ;;531
 ;;21,"54569-5419-01 ")
 ;;532
 ;;21,"54569-5870-00 ")
 ;;1075
 ;;21,"54569-5954-00 ")
 ;;1122
 ;;21,"54569-5961-00 ")
 ;;1013
 ;;21,"54569-5974-00 ")
 ;;774
 ;;21,"54569-5975-00 ")
 ;;831
 ;;21,"54569-5976-00 ")
 ;;655
 ;;21,"54569-5977-00 ")
 ;;717
 ;;21,"54569-8532-00 ")
 ;;1495
 ;;21,"54569-8543-00 ")
 ;;1368
 ;;21,"54569-8545-00 ")
 ;;1199
 ;;21,"54569-8545-01 ")
 ;;1200
 ;;21,"54569-8574-00 ")
 ;;1369
 ;;21,"54569-8591-00 ")
 ;;1496
 ;;21,"54738-0468-01 ")
 ;;1727
 ;;21,"54738-0468-03 ")
 ;;1728
 ;;21,"54738-0469-01 ")
 ;;1806
 ;;21,"54738-0469-03 ")
 ;;1807
 ;;21,"54868-0052-00 ")
 ;;1608
 ;;21,"54868-0052-01 ")
 ;;1609
 ;;21,"54868-0052-02 ")
 ;;1610
 ;;21,"54868-0053-02 ")
 ;;1808
 ;;21,"54868-0053-03 ")
 ;;1809
 ;;21,"54868-0053-06 ")
 ;;1810
 ;;21,"54868-0053-07 ")
 ;;1811
 ;;21,"54868-0106-00 ")
 ;;687
 ;;21,"54868-0106-01 ")
 ;;688
 ;;21,"54868-0293-00 ")
 ;;1729
 ;;21,"54868-0293-01 ")
 ;;1730
 ;;21,"54868-0293-03 ")
 ;;1731
 ;;21,"54868-0293-04 ")
 ;;1732
 ;;21,"54868-0293-05 ")
 ;;1733
 ;;21,"54868-0293-06 ")
 ;;1734
 ;;21,"54868-0321-00 ")
 ;;424
 ;;21,"54868-0674-00 ")
 ;;1497
 ;;21,"54868-0674-01 ")
 ;;1498
 ;;21,"54868-0680-00 ")
 ;;1901
 ;;21,"54868-0680-01 ")
 ;;1902
 ;;21,"54868-0685-01 ")
 ;;1370
 ;;21,"54868-0696-01 ")
 ;;1945
 ;;21,"54868-0696-02 ")
 ;;1946
 ;;21,"54868-0696-03 ")
 ;;1947
 ;;21,"54868-0701-00 ")
 ;;310
 ;;21,"54868-0854-00 ")
 ;;1684
 ;;21,"54868-0854-01 ")
 ;;1685
 ;;21,"54868-1004-01 ")
 ;;965
 ;;21,"54868-1063-00 ")
 ;;1201
 ;;21,"54868-1063-01 ")
 ;;1202
 ;;21,"54868-1063-02 ")
 ;;1203
 ;;21,"54868-1078-01 ")
 ;;1903
 ;;21,"54868-1078-03 ")
 ;;1904
 ;;21,"54868-1078-05 ")
 ;;1905
 ;;21,"54868-1441-00 ")
 ;;1848
 ;;21,"54868-1441-01 ")
 ;;1849
 ;;21,"54868-1442-00 ")
 ;;1658
 ;;21,"54868-1442-01 ")
 ;;1659
 ;;21,"54868-1442-02 ")
 ;;1660
 ;;21,"54868-1517-00 ")
 ;;1850
 ;;21,"54868-1517-01 ")
 ;;1851
 ;;21,"54868-1517-02 ")
 ;;1852
 ;;21,"54868-1517-03 ")
 ;;1853
 ;;21,"54868-1518-00 ")
 ;;1661
 ;;21,"54868-1518-01 ")
 ;;1662
 ;;21,"54868-1518-02 ")
 ;;1663
 ;;21,"54868-1871-00 ")
 ;;311
 ;;21,"54868-1871-01 ")
 ;;312
 ;;21,"54868-1871-02 ")
 ;;313
 ;;21,"54868-1871-04 ")
 ;;314
 ;;21,"54868-1971-00 ")
 ;;65
 ;;21,"54868-1971-01 ")
 ;;66
 ;;21,"54868-1971-03 ")
 ;;67
 ;;21,"54868-1971-04 ")
 ;;68
 ;;21,"54868-1980-00 ")
 ;;775
 ;;21,"54868-1980-01 ")
 ;;776
 ;;21,"54868-2349-01 ")
 ;;183
 ;;21,"54868-2349-02 ")
 ;;184
 ;;21,"54868-2349-03 ")
 ;;185
 ;;21,"54868-2349-04 ")
 ;;186
 ;;21,"54868-2349-05 ")
 ;;187
 ;;21,"54868-2572-00 ")
 ;;1686
 ;;21,"54868-2572-01 ")
 ;;1687
 ;;21,"54868-2572-02 ")
 ;;1688
 ;;21,"54868-2683-00 ")
 ;;425
 ;;21,"54868-2683-01 ")
 ;;426
 ;;21,"54868-2683-02 ")
 ;;427
 ;;21,"54868-2864-00 ")
 ;;926
 ;;21,"54868-2864-01 ")
 ;;927
 ;;21,"54868-2989-00 ")
 ;;1371
 ;;21,"54868-2989-02 ")
 ;;1372
 ;;21,"54868-2989-03 ")
 ;;1373
 ;;21,"54868-2989-04 ")
 ;;1374
 ;;21,"54868-2989-05 ")
 ;;1375
 ;;21,"54868-2989-06 ")
 ;;1376
 ;;21,"54868-2990-00 ")
 ;;1204
 ;;21,"54868-2990-02 ")
 ;;1205
 ;;21,"54868-2990-03 ")
 ;;1206
 ;;21,"54868-2990-04 ")
 ;;1207
 ;;21,"54868-3062-00 ")
 ;;832
 ;;21,"54868-3062-01 ")
 ;;833
 ;;21,"54868-3062-02 ")
 ;;834
 ;;21,"54868-3064-00 ")
 ;;400
 ;;21,"54868-3257-01 ")
 ;;1499
 ;;21,"54868-3257-02 ")
 ;;1500
 ;;21,"54868-3257-03 ")
 ;;1501
 ;;21,"54868-3257-04 ")
 ;;1502
 ;;21,"54868-3257-05 ")
 ;;1503
 ;;21,"54868-3587-00 ")
 ;;1123
 ;;21,"54868-3587-01 ")
 ;;1124
 ;;21,"54868-3587-02 ")
 ;;1125
 ;;21,"54868-3587-03 ")
 ;;1126
 ;;21,"54868-3587-04 ")
 ;;1127
 ;;21,"54868-3587-05 ")
 ;;1128
 ;;21,"54868-3602-00 ")
 ;;1568
 ;;21,"54868-3721-01 ")
 ;;1530
 ;;21,"54868-3721-02 ")
 ;;1531
 ;;21,"54868-4173-00 ")
 ;;607
 ;;21,"54868-4179-00 ")
 ;;533
 ;;21,"54868-4223-00 ")
 ;;1014
 ;;21,"54868-4223-01 ")
 ;;1015
 ;;21,"54868-4223-02 ")
 ;;1016
 ;;21,"54868-4223-03 ")
 ;;1017
 ;;21,"54868-4223-04 ")
 ;;1018
 ;;21,"54868-4395-00 ")
 ;;718
 ;;21,"54868-4395-01 ")
 ;;719
 ;;21,"54868-4395-02 ")
 ;;720
 ;;21,"54868-4395-03 ")
 ;;721