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

BGP13S3.m

Go to the documentation of this file.
BGP13S3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"16714-0031-06 ")
 ;;90
 ;;21,"16714-0032-04 ")
 ;;91
 ;;21,"16714-0032-06 ")
 ;;92
 ;;21,"16714-0033-04 ")
 ;;93
 ;;21,"16714-0033-06 ")
 ;;94
 ;;21,"21695-0291-30 ")
 ;;2167
 ;;21,"21695-0298-30 ")
 ;;1229
 ;;21,"21695-0299-00 ")
 ;;1230
 ;;21,"21695-0299-30 ")
 ;;1231
 ;;21,"21695-0322-30 ")
 ;;95
 ;;21,"21695-0322-90 ")
 ;;96
 ;;21,"21695-0323-30 ")
 ;;97
 ;;21,"21695-0323-60 ")
 ;;98
 ;;21,"21695-0324-30 ")
 ;;99
 ;;21,"21695-0397-30 ")
 ;;2056
 ;;21,"21695-0592-60 ")
 ;;1024
 ;;21,"21695-0645-60 ")
 ;;670
 ;;21,"21695-0646-60 ")
 ;;671
 ;;21,"21695-0647-60 ")
 ;;672
 ;;21,"21695-0648-60 ")
 ;;673
 ;;21,"21695-0668-60 ")
 ;;1689
 ;;21,"21695-0669-30 ")
 ;;1690
 ;;21,"21695-0669-60 ")
 ;;1691
 ;;21,"21695-0743-30 ")
 ;;416
 ;;21,"21695-0808-30 ")
 ;;563
 ;;21,"21695-0809-30 ")
 ;;564
 ;;21,"23155-0110-01 ")
 ;;1692
 ;;21,"23155-0110-10 ")
 ;;1693
 ;;21,"23155-0111-01 ")
 ;;1694
 ;;21,"23155-0111-10 ")
 ;;1695
 ;;21,"23155-0112-01 ")
 ;;1696
 ;;21,"23155-0112-10 ")
 ;;1697
 ;;21,"23155-0113-01 ")
 ;;1698
 ;;21,"23155-0114-01 ")
 ;;1699
 ;;21,"23155-0114-05 ")
 ;;1700
 ;;21,"23490-5096-01 ")
 ;;100
 ;;21,"23490-5096-02 ")
 ;;101
 ;;21,"23490-5096-03 ")
 ;;102
 ;;21,"23490-5097-01 ")
 ;;103
 ;;21,"23490-5097-02 ")
 ;;104
 ;;21,"23490-5097-03 ")
 ;;105
 ;;21,"23490-5098-01 ")
 ;;106
 ;;21,"23490-5098-02 ")
 ;;107
 ;;21,"23490-5920-00 ")
 ;;1232
 ;;21,"23490-5920-01 ")
 ;;1233
 ;;21,"23490-5921-01 ")
 ;;1234
 ;;21,"23490-5921-02 ")
 ;;1235
 ;;21,"23490-6203-03 ")
 ;;1701
 ;;21,"23490-6203-06 ")
 ;;1702
 ;;21,"23490-6203-09 ")
 ;;1703
 ;;21,"23490-6503-03 ")
 ;;565
 ;;21,"23490-6504-03 ")
 ;;566
 ;;21,"23490-6504-06 ")
 ;;567
 ;;21,"23490-6504-09 ")
 ;;568
 ;;21,"23490-7861-03 ")
 ;;569
 ;;21,"23490-9369-03 ")
 ;;674
 ;;21,"23490-9369-06 ")
 ;;675
 ;;21,"23490-9370-03 ")
 ;;676
 ;;21,"23490-9370-06 ")
 ;;677
 ;;21,"23490-9371-03 ")
 ;;678
 ;;21,"23490-9371-06 ")
 ;;679
 ;;21,"23490-9372-03 ")
 ;;680
 ;;21,"23490-9372-06 ")
 ;;681
 ;;21,"23629-0001-01 ")
 ;;3
 ;;21,"23629-0390-01 ")
 ;;1025
 ;;21,"23629-0410-01 ")
 ;;1026
 ;;21,"24090-0470-88 ")
 ;;937
 ;;21,"24090-0471-88 ")
 ;;938
 ;;21,"24090-0473-88 ")
 ;;939
 ;;21,"24090-0479-88 ")
 ;;940
 ;;21,"29300-0126-01 ")
 ;;496
 ;;21,"29300-0126-13 ")
 ;;497
 ;;21,"29300-0127-01 ")
 ;;498
 ;;21,"29300-0127-13 ")
 ;;499
 ;;21,"33358-0037-00 ")
 ;;108
 ;;21,"33358-0037-30 ")
 ;;109
 ;;21,"33358-0037-60 ")
 ;;110
 ;;21,"33358-0038-00 ")
 ;;111
 ;;21,"33358-0038-30 ")
 ;;112
 ;;21,"33358-0038-60 ")
 ;;113
 ;;21,"33358-0039-00 ")
 ;;114
 ;;21,"33358-0039-30 ")
 ;;115
 ;;21,"33358-0192-30 ")
 ;;1704
 ;;21,"33358-0193-30 ")
 ;;1705
 ;;21,"33358-0194-30 ")
 ;;1706
 ;;21,"33358-0242-00 ")
 ;;1236
 ;;21,"33358-0242-30 ")
 ;;1237
 ;;21,"33358-0242-60 ")
 ;;1238
 ;;21,"33358-0242-90 ")
 ;;1239
 ;;21,"33358-0243-00 ")
 ;;1240
 ;;21,"33358-0243-30 ")
 ;;1241
 ;;21,"35356-0362-60 ")
 ;;1027
 ;;21,"35356-0415-30 ")
 ;;1242
 ;;21,"35356-0490-30 ")
 ;;866
 ;;21,"35356-0512-30 ")
 ;;682
 ;;21,"35356-0518-30 ")
 ;;867
 ;;21,"35356-0526-00 ")
 ;;683
 ;;21,"43063-0006-01 ")
 ;;1243
 ;;21,"43063-0125-93 ")
 ;;684
 ;;21,"43063-0126-93 ")
 ;;685
 ;;21,"43063-0127-93 ")
 ;;686
 ;;21,"43063-0129-93 ")
 ;;687
 ;;21,"43063-0133-30 ")
 ;;2057
 ;;21,"43063-0134-90 ")
 ;;570
 ;;21,"43063-0135-90 ")
 ;;571
 ;;21,"43063-0630-90 ")
 ;;572
 ;;21,"43353-0119-30 ")
 ;;688
 ;;21,"43353-0122-60 ")
 ;;689
 ;;21,"43353-0348-30 ")
 ;;1103
 ;;21,"43353-0399-60 ")
 ;;116
 ;;21,"43353-0440-30 ")
 ;;690
 ;;21,"43353-0478-30 ")
 ;;691
 ;;21,"43353-0485-53 ")
 ;;692
 ;;21,"43353-0486-30 ")
 ;;693
 ;;21,"43478-0900-88 ")
 ;;1966
 ;;21,"43478-0901-88 ")
 ;;1967
 ;;21,"43478-0902-88 ")
 ;;1968
 ;;21,"43478-0903-88 ")
 ;;1969
 ;;21,"49884-0282-01 ")
 ;;1970
 ;;21,"49884-0282-10 ")
 ;;1971
 ;;21,"49884-0328-01 ")
 ;;1972
 ;;21,"49884-0328-10 ")
 ;;1973
 ;;21,"49884-0329-01 ")
 ;;1974
 ;;21,"49884-0329-10 ")
 ;;1975
 ;;21,"49884-0330-01 ")
 ;;1976
 ;;21,"49884-0330-10 ")
 ;;1977
 ;;21,"49884-0404-01 ")
 ;;1104
 ;;21,"49884-0404-10 ")
 ;;1105
 ;;21,"49884-0405-01 ")
 ;;1106
 ;;21,"49884-0405-10 ")
 ;;1107
 ;;21,"49884-0406-01 ")
 ;;1108
 ;;21,"49884-0406-10 ")
 ;;1109
 ;;21,"49884-0407-01 ")
 ;;1110
 ;;21,"49884-0407-10 ")
 ;;1111
 ;;21,"49884-0412-01 ")
 ;;1244
 ;;21,"49884-0412-10 ")
 ;;1245
 ;;21,"49884-0413-01 ")
 ;;1246
 ;;21,"49884-0413-10 ")
 ;;1247
 ;;21,"49884-0442-01 ")
 ;;1572
 ;;21,"49884-0443-01 ")
 ;;1573
 ;;21,"49884-0456-01 ")
 ;;117
 ;;21,"49884-0456-10 ")
 ;;118
 ;;21,"49884-0457-01 ")
 ;;119
 ;;21,"49884-0457-10 ")
 ;;120
 ;;21,"49884-0582-01 ")
 ;;2058
 ;;21,"49884-0582-10 ")
 ;;2059
 ;;21,"49884-0583-01 ")
 ;;2060
 ;;21,"49884-0583-10 ")
 ;;2061
 ;;21,"49884-0584-01 ")
 ;;2062
 ;;21,"49884-0584-10 ")
 ;;2063
 ;;21,"49884-0585-01 ")
 ;;2064
 ;;21,"49884-0585-10 ")
 ;;2065
 ;;21,"49884-0587-01 ")
 ;;4
 ;;21,"49884-0588-01 ")
 ;;5
 ;;21,"49884-0944-01 ")
 ;;121
 ;;21,"49884-0944-10 ")
 ;;122
 ;;21,"49999-0010-00 ")
 ;;1248
 ;;21,"49999-0010-30 ")
 ;;1249
 ;;21,"49999-0010-60 ")
 ;;1250
 ;;21,"49999-0104-00 ")
 ;;123
 ;;21,"49999-0104-30 ")
 ;;124
 ;;21,"49999-0104-60 ")
 ;;125
 ;;21,"49999-0104-90 ")
 ;;126
 ;;21,"49999-0178-00 ")
 ;;127
 ;;21,"49999-0178-30 ")
 ;;128
 ;;21,"49999-0201-30 ")
 ;;1501
 ;;21,"49999-0202-30 ")
 ;;1502
 ;;21,"49999-0203-30 ")
 ;;1503
 ;;21,"49999-0226-00 ")
 ;;1251
 ;;21,"49999-0226-30 ")
 ;;1252
 ;;21,"49999-0226-60 ")
 ;;1253
 ;;21,"49999-0286-60 ")
 ;;1707
 ;;21,"49999-0454-00 ")
 ;;129
 ;;21,"49999-0454-10 ")
 ;;130
 ;;21,"49999-0454-30 ")
 ;;131
 ;;21,"49999-0454-60 ")
 ;;132
 ;;21,"49999-0454-90 ")
 ;;133
 ;;21,"49999-0482-30 ")
 ;;2168
 ;;21,"49999-0483-00 ")
 ;;2169
 ;;21,"49999-0483-30 ")
 ;;2170
 ;;21,"49999-0484-00 ")
 ;;2171
 ;;21,"49999-0484-30 ")
 ;;2172
 ;;21,"49999-0512-30 ")
 ;;417
 ;;21,"49999-0555-90 ")
 ;;1708
 ;;21,"49999-0575-10 ")
 ;;1254
 ;;21,"49999-0575-20 ")
 ;;1255
 ;;21,"49999-0575-30 ")
 ;;1256
 ;;21,"49999-0577-20 ")
 ;;821
 ;;21,"49999-0866-00 ")
 ;;500
 ;;21,"49999-0872-30 ")
 ;;822
 ;;21,"49999-0938-30 ")
 ;;823
 ;;21,"49999-0939-30 ")
 ;;824
 ;;21,"49999-0996-00 ")
 ;;2173
 ;;21,"50111-0467-01 ")
 ;;1709
 ;;21,"50111-0467-03 ")
 ;;1710
 ;;21,"50111-0468-01 ")
 ;;1711
 ;;21,"50111-0468-03 ")
 ;;1712
 ;;21,"50111-0469-01 ")
 ;;1713
 ;;21,"50111-0469-03 ")
 ;;1714
 ;;21,"50111-0470-01 ")
 ;;1715
 ;;21,"50111-0471-01 ")
 ;;1716
 ;;21,"50111-0471-02 ")
 ;;1717
 ;;21,"50111-0473-01 ")
 ;;920
 ;;21,"50111-0473-02 ")
 ;;921
 ;;21,"50111-0474-01 ")
 ;;922
 ;;21,"50111-0474-02 ")
 ;;923
 ;;21,"50419-0105-10 ")
 ;;462
 ;;21,"50419-0105-11 ")
 ;;463
 ;;21,"50419-0106-10 ")
 ;;464
 ;;21,"50419-0106-11 ")
 ;;465
 ;;21,"50419-0107-10 ")
 ;;466
 ;;21,"50419-0107-11 ")
 ;;467
 ;;21,"50419-0109-10 ")
 ;;468
 ;;21,"50419-0109-11 ")
 ;;469
 ;;21,"50419-0115-06 ")
 ;;471
 ;;21,"50419-0115-11 ")
 ;;472
 ;;21,"50419-0116-06 ")
 ;;473
 ;;21,"50419-0116-11 ")
 ;;474
 ;;21,"50419-0119-06 ")
 ;;475
 ;;21,"50419-0119-11 ")
 ;;476
 ;;21,"51079-0255-19 ")
 ;;1257
 ;;21,"51079-0255-20 ")
 ;;1258
 ;;21,"51079-0277-01 ")
 ;;1718
 ;;21,"51079-0277-19 ")
 ;;1719
 ;;21,"51079-0277-20 ")
 ;;1720
 ;;21,"51079-0278-01 ")
 ;;1721
 ;;21,"51079-0278-20 ")
 ;;1722
 ;;21,"51079-0279-01 ")
 ;;1723
 ;;21,"51079-0279-20 ")
 ;;1724
 ;;21,"51079-0280-01 ")
 ;;1725
 ;;21,"51079-0280-20 ")
 ;;1726
 ;;21,"51079-0684-01 ")
 ;;134
 ;;21,"51079-0684-19 ")
 ;;135
 ;;21,"51079-0684-20 ")
 ;;136
 ;;21,"51079-0684-63 ")
 ;;137
 ;;21,"51079-0685-01 ")
 ;;138
 ;;21,"51079-0685-20 ")
 ;;139
 ;;21,"51079-0759-01 ")
 ;;140
 ;;21,"51079-0759-19 ")
 ;;141
 ;;21,"51079-0759-20 ")
 ;;142
 ;;21,"51079-0759-63 ")
 ;;143
 ;;21,"51079-0771-01 ")
 ;;694
 ;;21,"51079-0771-17 ")
 ;;695
 ;;21,"51079-0771-19 ")
 ;;696
 ;;21,"51079-0771-20 ")
 ;;697
 ;;21,"51079-0801-01 ")
 ;;1259
 ;;21,"51079-0801-19 ")
 ;;1260
 ;;21,"51079-0801-20 ")
 ;;1261
 ;;21,"51079-0801-30 ")
 ;;1262
 ;;21,"51079-0801-56 ")
 ;;1263
 ;;21,"51079-0801-57 ")
 ;;1264
 ;;21,"51079-0802-01 ")
 ;;1265
 ;;21,"51079-0802-19 ")
 ;;1266
 ;;21,"51079-0802-20 ")
 ;;1267
 ;;21,"51079-0812-01 ")
 ;;1504
 ;;21,"51079-0812-20 ")
 ;;1505
 ;;21,"51079-0813-01 ")
 ;;1506
 ;;21,"51079-0813-20 ")
 ;;1507
 ;;21,"51079-0814-01 ")
 ;;1508
 ;;21,"51079-0814-20 ")
 ;;1509
 ;;21,"51079-0928-01 ")
 ;;1028
 ;;21,"51079-0928-20 ")
 ;;1029
 ;;21,"51079-0929-01 ")
 ;;1030
 ;;21,"51079-0929-20 ")
 ;;1031
 ;;21,"51079-0930-01 ")
 ;;698
 ;;21,"51079-0930-17 ")
 ;;699
 ;;21,"51079-0930-19 ")
 ;;700
 ;;21,"51079-0930-20 ")
 ;;701
 ;;21,"51079-0931-01 ")
 ;;702
 ;;21,"51079-0931-17 ")
 ;;703
 ;;21,"51079-0931-19 ")
 ;;704
 ;;21,"51079-0931-20 ")
 ;;705
 ;;21,"51079-0932-01 ")
 ;;706
 ;;21,"51079-0932-20 ")
 ;;707
 ;;21,"51079-0954-01 ")
 ;;573
 ;;21,"51079-0954-20 ")
 ;;574
 ;;21,"51079-0955-01 ")
 ;;575
 ;;21,"51079-0955-20 ")
 ;;576
 ;;21,"51079-0956-01 ")
 ;;577
 ;;21,"51079-0956-20 ")
 ;;578
 ;;21,"51285-0040-01 ")
 ;;2250
 ;;21,"51285-0047-02 ")
 ;;2251
 ;;21,"51285-0049-01 ")
 ;;2252
 ;;21,"51285-0050-02 ")
 ;;2253
 ;;21,"51285-0060-01 ")
 ;;2241
 ;;21,"51285-0061-01 ")
 ;;2242
 ;;21,"51285-0838-05 ")
 ;;144
 ;;21,"51655-0349-24 ")
 ;;1727
 ;;21,"51655-0350-24 ")
 ;;1728
 ;;21,"51655-0384-24 ")
 ;;1268
 ;;21,"51655-0530-24 ")
 ;;145
 ;;21,"51655-0530-25 ")
 ;;146
 ;;21,"51655-0532-24 ")
 ;;147
 ;;21,"51655-0926-24 ")
 ;;148
 ;;21,"51655-0928-25 ")
 ;;1269
 ;;21,"52152-0179-02 ")
 ;;480
 ;;21,"52152-0180-02 ")
 ;;481
 ;;21,"52544-0843-30 ")
 ;;579
 ;;21,"52555-0450-01 ")
 ;;418
 ;;21,"52555-0451-01 ")
 ;;419
 ;;21,"52555-0454-01 ")
 ;;1574
 ;;21,"52555-0455-01 ")
 ;;1575
 ;;21,"52959-0212-01 ")
 ;;1729
 ;;21,"52959-0212-10 ")
 ;;1730
 ;;21,"52959-0212-20 ")
 ;;1731
 ;;21,"52959-0212-45 ")
 ;;1732
 ;;21,"52959-0212-50 ")
 ;;1733
 ;;21,"52959-0212-60 ")
 ;;1734
 ;;21,"52959-0241-30 ")
 ;;580
 ;;21,"52959-0247-30 ")
 ;;1978
 ;;21,"52959-0253-00 ")
 ;;149
 ;;21,"52959-0253-20 ")
 ;;150
 ;;21,"52959-0253-30 ")
 ;;151
 ;;21,"52959-0253-40 ")
 ;;152
 ;;21,"52959-0258-30 ")
 ;;153
 ;;21,"52959-0280-30 ")
 ;;2134
 ;;21,"52959-0337-10 ")
 ;;581
 ;;21,"52959-0337-30 ")
 ;;582
 ;;21,"52959-0463-01 ")
 ;;154
 ;;21,"52959-0463-30 ")
 ;;155
 ;;21,"52959-0463-60 ")
 ;;156
 ;;21,"52959-0827-30 ")
 ;;1735
 ;;21,"52959-0839-30 ")
 ;;1270
 ;;21,"52959-0839-60 ")
 ;;1271
 ;;21,"52959-0895-60 ")
 ;;1736
 ;;21,"53489-0354-01 ")
 ;;1032
 ;;21,"53489-0354-05 ")
 ;;1033
 ;;21,"53489-0355-01 ")
 ;;1034
 ;;21,"53489-0355-05 ")
 ;;1035
 ;;21,"53489-0356-01 ")
 ;;1036
 ;;21,"53489-0356-05 ")
 ;;1037
 ;;21,"53489-0366-01 ")
 ;;1272
 ;;21,"53489-0366-10 ")
 ;;1273
 ;;21,"53489-0367-01 ")
 ;;1274
 ;;21,"53489-0367-10 ")
 ;;1275
 ;;21,"53489-0529-01 ")
 ;;157
 ;;21,"53489-0529-10 ")
 ;;158
 ;;21,"53489-0530-01 ")
 ;;159
 ;;21,"53489-0530-10 ")
 ;;160
 ;;21,"53489-0531-01 ")
 ;;420
 ;;21,"53489-0532-01 ")
 ;;421
 ;;21,"53489-0536-01 ")
 ;;161
 ;;21,"53489-0536-10 ")
 ;;162
 ;;21,"53489-0555-01 ")
 ;;501
 ;;21,"53489-0555-07 ")
 ;;502
 ;;21,"53489-0556-01 ")
 ;;503
 ;;21,"53489-0556-07 ")
 ;;504
 ;;21,"53746-0220-05 ")
 ;;1737
 ;;21,"53746-0220-79 ")
 ;;1738
 ;;21,"54348-0142-30 ")
 ;;163
 ;;21,"54348-0168-30 ")
 ;;164
 ;;21,"54569-0442-00 ")
 ;;1739
 ;;21,"54569-0557-00 ")
 ;;1740
 ;;21,"54569-0557-01 ")
 ;;1741
 ;;21,"54569-0557-03 ")
 ;;1742
 ;;21,"54569-0559-00 ")
 ;;1743
 ;;21,"54569-0559-01 ")
 ;;1744
 ;;21,"54569-0559-03 ")
 ;;1745
 ;;21,"54569-0561-01 ")
 ;;1746
 ;;21,"54569-0561-02 ")
 ;;1747
 ;;21,"54569-0561-03 ")
 ;;1748
 ;;21,"54569-0563-00 ")
 ;;941
 ;;21,"54569-0564-00 ")
 ;;942
 ;;21,"54569-0590-00 ")
 ;;1560
 ;;21,"54569-0596-00 ")
 ;;2129