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

BGP73F16.m

Go to the documentation of this file.
BGP73F16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"61570-0052-01 ")
 ;;5020
 ;;21,"61570-0053-01 ")
 ;;5021
 ;;21,"61570-0053-05 ")
 ;;5022
 ;;21,"61570-0053-20 ")
 ;;5023
 ;;21,"61570-0054-10 ")
 ;;5024
 ;;21,"61570-0055-10 ")
 ;;5025
 ;;21,"61570-0056-10 ")
 ;;5026
 ;;21,"61748-0111-14 ")
 ;;5027
 ;;21,"61971-0115-01 ")
 ;;5028
 ;;21,"61971-0115-05 ")
 ;;5029
 ;;21,"61971-0120-01 ")
 ;;5030
 ;;21,"61971-0120-05 ")
 ;;5031
 ;;21,"62037-0777-60 ")
 ;;5032
 ;;21,"62436-0728-01 ")
 ;;5033
 ;;21,"62436-0729-03 ")
 ;;5034
 ;;21,"62436-0729-04 ")
 ;;5035
 ;;21,"62436-0730-01 ")
 ;;5036
 ;;21,"62436-0730-05 ")
 ;;5037
 ;;21,"62584-0235-01 ")
 ;;5038
 ;;21,"62584-0235-11 ")
 ;;5039
 ;;21,"62584-0236-01 ")
 ;;5040
 ;;21,"62584-0236-11 ")
 ;;5041
 ;;21,"62584-0237-01 ")
 ;;5042
 ;;21,"62584-0237-11 ")
 ;;5043
 ;;21,"62584-0238-01 ")
 ;;5044
 ;;21,"62584-0238-11 ")
 ;;5045
 ;;21,"62584-0338-01 ")
 ;;5046
 ;;21,"62584-0338-11 ")
 ;;5047
 ;;21,"62584-0693-01 ")
 ;;5048
 ;;21,"62584-0693-11 ")
 ;;5049
 ;;21,"62584-0693-21 ")
 ;;5050
 ;;21,"62584-0857-01 ")
 ;;5051
 ;;21,"62584-0857-11 ")
 ;;5052
 ;;21,"62756-0293-13 ")
 ;;5053
 ;;21,"62756-0293-88 ")
 ;;5054
 ;;21,"62756-0294-13 ")
 ;;5055
 ;;21,"62756-0294-88 ")
 ;;5056
 ;;21,"62756-0512-44 ")
 ;;5057
 ;;21,"63304-0131-01 ")
 ;;5058
 ;;21,"63304-0132-04 ")
 ;;5059
 ;;21,"63304-0132-50 ")
 ;;5060
 ;;21,"63304-0173-30 ")
 ;;5061
 ;;21,"63304-0509-01 ")
 ;;5062
 ;;21,"63304-0509-20 ")
 ;;5063
 ;;21,"63304-0520-20 ")
 ;;5064
 ;;21,"63304-0521-01 ")
 ;;5065
 ;;21,"63304-0521-20 ")
 ;;5066
 ;;21,"63304-0615-01 ")
 ;;5067
 ;;21,"63304-0616-50 ")
 ;;5068
 ;;21,"63304-0692-01 ")
 ;;5069
 ;;21,"63304-0692-05 ")
 ;;5070
 ;;21,"63304-0693-01 ")
 ;;5071
 ;;21,"63304-0693-16 ")
 ;;5072
 ;;21,"63304-0694-01 ")
 ;;5073
 ;;21,"63304-0695-01 ")
 ;;5074
 ;;21,"63304-0696-05 ")
 ;;5075
 ;;21,"63304-0696-50 ")
 ;;5076
 ;;21,"63304-0697-01 ")
 ;;5077
 ;;21,"63304-0698-01 ")
 ;;5078
 ;;21,"63304-0699-50 ")
 ;;5079
 ;;21,"63304-0709-01 ")
 ;;5080
 ;;21,"63304-0710-01 ")
 ;;5081
 ;;21,"63304-0711-01 ")
 ;;5082
 ;;21,"63304-0711-50 ")
 ;;5083
 ;;21,"63304-0713-20 ")
 ;;5084
 ;;21,"63304-0725-01 ")
 ;;5085
 ;;21,"63304-0725-60 ")
 ;;5086
 ;;21,"63304-0726-01 ")
 ;;5087
 ;;21,"63304-0726-60 ")
 ;;5088
 ;;21,"63304-0753-20 ")
 ;;5089
 ;;21,"63304-0754-20 ")
 ;;5090
 ;;21,"63304-0760-20 ")
 ;;5091
 ;;21,"63304-0763-01 ")
 ;;5092
 ;;21,"63304-0768-01 ")
 ;;5093
 ;;21,"63304-0768-02 ")
 ;;5094
 ;;21,"63304-0768-07 ")
 ;;5095
 ;;21,"63304-0821-03 ")
 ;;5096
 ;;21,"63304-0821-04 ")
 ;;5097
 ;;21,"63304-0822-03 ")
 ;;5098
 ;;21,"63304-0822-04 ")
 ;;5099
 ;;21,"63304-0940-25 ")
 ;;5100
 ;;21,"63304-0941-10 ")
 ;;5101
 ;;21,"63304-0958-01 ")
 ;;5102
 ;;21,"63304-0958-02 ")
 ;;5103
 ;;21,"63304-0959-01 ")
 ;;5104
 ;;21,"63304-0959-02 ")
 ;;5105
 ;;21,"63304-0965-03 ")
 ;;5106
 ;;21,"63304-0965-04 ")
 ;;5107
 ;;21,"63304-0966-03 ")
 ;;5108
 ;;21,"63304-0966-04 ")
 ;;5109
 ;;21,"63304-0969-03 ")
 ;;5110
 ;;21,"63304-0970-01 ")
 ;;5111
 ;;21,"63304-0970-04 ")
 ;;5112
 ;;21,"63304-0973-04 ")
 ;;5113
 ;;21,"63304-0974-01 ")
 ;;5114
 ;;21,"63304-0974-04 ")
 ;;5115
 ;;21,"63304-0977-01 ")
 ;;5116
 ;;21,"63304-0977-03 ")
 ;;5117
 ;;21,"63304-0977-04 ")
 ;;5118
 ;;21,"63304-0979-01 ")
 ;;5119
 ;;21,"63304-0979-03 ")
 ;;5120
 ;;21,"63304-0979-04 ")
 ;;5121
 ;;21,"63323-0130-11 ")
 ;;5122
 ;;21,"63323-0130-13 ")
 ;;5123
 ;;21,"63323-0130-17 ")
 ;;5124
 ;;21,"63323-0236-10 ")
 ;;5125
 ;;21,"63323-0237-10 ")
 ;;5126
 ;;21,"63323-0238-61 ")
 ;;5127
 ;;21,"63323-0282-02 ")
 ;;5128
 ;;21,"63323-0282-04 ")
 ;;5129
 ;;21,"63323-0282-06 ")
 ;;5130
 ;;21,"63323-0282-60 ")
 ;;5131
 ;;21,"63323-0323-20 ")
 ;;5132
 ;;21,"63323-0324-62 ")
 ;;5133
 ;;21,"63323-0344-10 ")
 ;;5134
 ;;21,"63323-0345-10 ")
 ;;5135
 ;;21,"63323-0346-10 ")
 ;;5136
 ;;21,"63323-0347-20 ")
 ;;5137
 ;;21,"63323-0348-61 ")
 ;;5138
 ;;21,"63323-0355-50 ")
 ;;5139
 ;;21,"63323-0355-60 ")
 ;;5140
 ;;21,"63323-0355-65 ")
 ;;5141
 ;;21,"63323-0387-10 ")
 ;;5142
 ;;21,"63323-0388-10 ")
 ;;5143
 ;;21,"63323-0389-10 ")
 ;;5144
 ;;21,"63323-0398-10 ")
 ;;5145
 ;;21,"63323-0398-12 ")
 ;;5146
 ;;21,"63323-0398-14 ")
 ;;5147
 ;;21,"63323-0399-23 ")
 ;;5148
 ;;21,"63323-0404-00 ")
 ;;5149
 ;;21,"63323-0446-61 ")
 ;;5150
 ;;21,"63323-0446-66 ")
 ;;5151
 ;;21,"63323-0449-61 ")
 ;;5152
 ;;21,"63323-0850-74 ")
 ;;5153
 ;;21,"63629-1236-00 ")
 ;;5154
 ;;21,"63629-1236-01 ")
 ;;5155
 ;;21,"63629-1236-02 ")
 ;;5156
 ;;21,"63629-1236-03 ")
 ;;5157
 ;;21,"63629-1236-04 ")
 ;;5158
 ;;21,"63629-1236-05 ")
 ;;5159
 ;;21,"63629-1236-06 ")
 ;;5160
 ;;21,"63629-1236-07 ")
 ;;5161
 ;;21,"63629-1236-08 ")
 ;;5162
 ;;21,"63629-1248-01 ")
 ;;5163
 ;;21,"63629-1248-02 ")
 ;;5164
 ;;21,"63629-1248-03 ")
 ;;5165
 ;;21,"63629-1257-01 ")
 ;;5166
 ;;21,"63629-1257-02 ")
 ;;5167
 ;;21,"63629-1257-03 ")
 ;;5168
 ;;21,"63629-1284-01 ")
 ;;5169
 ;;21,"63629-1317-01 ")
 ;;5170
 ;;21,"63629-1317-02 ")
 ;;5171
 ;;21,"63629-1317-03 ")
 ;;5172
 ;;21,"63629-1317-04 ")
 ;;5173
 ;;21,"63629-1317-05 ")
 ;;5174
 ;;21,"63629-1319-01 ")
 ;;5175
 ;;21,"63629-1319-02 ")
 ;;5176
 ;;21,"63629-1319-03 ")
 ;;5177
 ;;21,"63629-1319-04 ")
 ;;5178
 ;;21,"63629-1319-05 ")
 ;;5179
 ;;21,"63629-1319-06 ")
 ;;5180
 ;;21,"63629-1319-07 ")
 ;;5181
 ;;21,"63629-1319-08 ")
 ;;5182
 ;;21,"63629-1326-02 ")
 ;;5183
 ;;21,"63629-1350-01 ")
 ;;5184
 ;;21,"63629-1350-02 ")
 ;;5185
 ;;21,"63629-1350-03 ")
 ;;5186
 ;;21,"63629-1351-01 ")
 ;;5187
 ;;21,"63629-1351-02 ")
 ;;5188
 ;;21,"63629-1351-03 ")
 ;;5189
 ;;21,"63629-1357-01 ")
 ;;5190
 ;;21,"63629-1357-02 ")
 ;;5191
 ;;21,"63629-1357-03 ")
 ;;5192
 ;;21,"63629-1358-01 ")
 ;;5193
 ;;21,"63629-1358-02 ")
 ;;5194
 ;;21,"63629-1490-01 ")
 ;;5195
 ;;21,"63629-1490-02 ")
 ;;5196
 ;;21,"63629-1490-03 ")
 ;;5197
 ;;21,"63629-1490-04 ")
 ;;5198
 ;;21,"63629-1501-01 ")
 ;;5199
 ;;21,"63629-1501-02 ")
 ;;5200
 ;;21,"63629-1501-03 ")
 ;;5201
 ;;21,"63629-1501-04 ")
 ;;5202
 ;;21,"63629-1502-01 ")
 ;;5203
 ;;21,"63629-1502-02 ")
 ;;5204
 ;;21,"63629-1502-03 ")
 ;;5205
 ;;21,"63629-1502-04 ")
 ;;5206
 ;;21,"63629-1531-01 ")
 ;;5207
 ;;21,"63629-1531-02 ")
 ;;5208
 ;;21,"63629-1531-03 ")
 ;;5209
 ;;21,"63629-1531-04 ")
 ;;5210
 ;;21,"63629-1531-05 ")
 ;;5211
 ;;21,"63629-1614-01 ")
 ;;5212
 ;;21,"63629-1614-02 ")
 ;;5213
 ;;21,"63629-1614-03 ")
 ;;5214
 ;;21,"63629-1615-01 ")
 ;;5215
 ;;21,"63629-1615-02 ")
 ;;5216
 ;;21,"63629-1615-03 ")
 ;;5217
 ;;21,"63629-1615-04 ")
 ;;5218
 ;;21,"63629-1615-05 ")
 ;;5219
 ;;21,"63629-1724-01 ")
 ;;5220
 ;;21,"63629-1724-02 ")
 ;;5221
 ;;21,"63629-1724-03 ")
 ;;5222
 ;;21,"63629-1724-04 ")
 ;;5223
 ;;21,"63629-1724-05 ")
 ;;5224
 ;;21,"63629-1724-06 ")
 ;;5225
 ;;21,"63629-1759-01 ")
 ;;5226
 ;;21,"63629-1759-02 ")
 ;;5227
 ;;21,"63629-1759-03 ")
 ;;5228
 ;;21,"63629-1759-04 ")
 ;;5229
 ;;21,"63629-1759-05 ")
 ;;5230
 ;;21,"63629-1765-01 ")
 ;;5231
 ;;21,"63629-1835-01 ")
 ;;5232
 ;;21,"63629-1835-02 ")
 ;;5233
 ;;21,"63629-2609-01 ")
 ;;5234
 ;;21,"63629-2609-02 ")
 ;;5235
 ;;21,"63629-2609-03 ")
 ;;5236
 ;;21,"63629-2610-01 ")
 ;;5237
 ;;21,"63629-2610-02 ")
 ;;5238
 ;;21,"63629-2610-03 ")
 ;;5239
 ;;21,"63629-2685-01 ")
 ;;5240
 ;;21,"63629-2685-02 ")
 ;;5241
 ;;21,"63629-2738-01 ")
 ;;5242
 ;;21,"63629-2738-02 ")
 ;;5243
 ;;21,"63629-2755-01 ")
 ;;5244
 ;;21,"63629-2755-02 ")
 ;;5245
 ;;21,"63629-2817-01 ")
 ;;5246
 ;;21,"63629-2817-02 ")
 ;;5247
 ;;21,"63629-2817-03 ")
 ;;5248
 ;;21,"63629-2817-04 ")
 ;;5249
 ;;21,"63629-2871-01 ")
 ;;5250
 ;;21,"63629-2887-01 ")
 ;;5251
 ;;21,"63629-2887-02 ")
 ;;5252
 ;;21,"63629-2895-01 ")
 ;;5253
 ;;21,"63629-2924-01 ")
 ;;5254
 ;;21,"63629-2924-02 ")
 ;;5255
 ;;21,"63739-0059-10 ")
 ;;5256
 ;;21,"63739-0168-33 ")
 ;;5257
 ;;21,"63739-0228-10 ")
 ;;5258
 ;;21,"63739-0400-10 ")
 ;;5259
 ;;21,"63739-0427-10 ")
 ;;5260
 ;;21,"63739-0559-10 ")
 ;;5261
 ;;21,"63739-0575-09 ")
 ;;5262
 ;;21,"63739-0575-10 ")
 ;;5263
 ;;21,"63739-0700-10 ")
 ;;5264
 ;;21,"63874-0101-01 ")
 ;;5265
 ;;21,"63874-0101-03 ")
 ;;5266
 ;;21,"63874-0101-05 ")
 ;;5267
 ;;21,"63874-0101-09 ")
 ;;5268
 ;;21,"63874-0101-15 ")
 ;;5269
 ;;21,"63874-0101-18 ")
 ;;5270
 ;;21,"63874-0101-20 ")
 ;;5271
 ;;21,"63874-0101-21 ")
 ;;5272
 ;;21,"63874-0101-24 ")
 ;;5273
 ;;21,"63874-0101-28 ")
 ;;5274
 ;;21,"63874-0101-30 ")
 ;;5275
 ;;21,"63874-0101-40 ")
 ;;5276
 ;;21,"63874-0101-45 ")
 ;;5277
 ;;21,"63874-0101-50 ")
 ;;5278
 ;;21,"63874-0102-01 ")
 ;;5279
 ;;21,"63874-0102-03 ")
 ;;5280
 ;;21,"63874-0102-04 ")
 ;;5281
 ;;21,"63874-0102-05 ")
 ;;5282
 ;;21,"63874-0102-09 ")
 ;;5283
 ;;21,"63874-0102-10 ")
 ;;5284
 ;;21,"63874-0102-12 ")
 ;;5285
 ;;21,"63874-0102-14 ")
 ;;5286
 ;;21,"63874-0102-15 ")
 ;;5287
 ;;21,"63874-0102-18 ")
 ;;5288
 ;;21,"63874-0102-20 ")
 ;;5289
 ;;21,"63874-0102-21 ")
 ;;5290
 ;;21,"63874-0102-24 ")
 ;;5291
 ;;21,"63874-0102-28 ")
 ;;5292
 ;;21,"63874-0102-30 ")
 ;;5293
 ;;21,"63874-0102-40 ")
 ;;5294
 ;;21,"63874-0102-45 ")
 ;;5295
 ;;21,"63874-0102-50 ")
 ;;5296
 ;;21,"63874-0107-01 ")
 ;;5297
 ;;21,"63874-0107-02 ")
 ;;5298
 ;;21,"63874-0107-04 ")
 ;;5299
 ;;21,"63874-0107-06 ")
 ;;5300
 ;;21,"63874-0107-08 ")
 ;;5301
 ;;21,"63874-0107-09 ")
 ;;5302
 ;;21,"63874-0107-10 ")
 ;;5303
 ;;21,"63874-0107-12 ")
 ;;5304
 ;;21,"63874-0107-14 ")
 ;;5305
 ;;21,"63874-0107-15 ")
 ;;5306
 ;;21,"63874-0107-16 ")
 ;;5307
 ;;21,"63874-0107-20 ")
 ;;5308
 ;;21,"63874-0107-28 ")
 ;;5309
 ;;21,"63874-0107-30 ")
 ;;5310
 ;;21,"63874-0107-40 ")
 ;;5311
 ;;21,"63874-0107-50 ")
 ;;5312
 ;;21,"63874-0107-60 ")
 ;;5313
 ;;21,"63874-0107-90 ")
 ;;5314
 ;;21,"63874-0108-01 ")
 ;;5315
 ;;21,"63874-0108-10 ")
 ;;5316
 ;;21,"63874-0108-12 ")
 ;;5317
 ;;21,"63874-0108-14 ")
 ;;5318
 ;;21,"63874-0108-15 ")
 ;;5319
 ;;21,"63874-0108-18 ")
 ;;5320
 ;;21,"63874-0108-20 ")
 ;;5321
 ;;21,"63874-0108-24 ")
 ;;5322
 ;;21,"63874-0108-28 ")
 ;;5323
 ;;21,"63874-0108-30 ")
 ;;5324
 ;;21,"63874-0108-40 ")
 ;;5325
 ;;21,"63874-0108-60 ")
 ;;5326
 ;;21,"63874-0109-03 ")
 ;;5327
 ;;21,"63874-0109-10 ")
 ;;5328
 ;;21,"63874-0109-12 ")
 ;;5329
 ;;21,"63874-0109-14 ")
 ;;5330
 ;;21,"63874-0109-15 ")
 ;;5331
 ;;21,"63874-0109-16 ")
 ;;5332
 ;;21,"63874-0109-18 ")
 ;;5333
 ;;21,"63874-0109-20 ")
 ;;5334
 ;;21,"63874-0109-21 ")
 ;;5335
 ;;21,"63874-0109-24 ")
 ;;5336
 ;;21,"63874-0109-28 ")
 ;;5337
 ;;21,"63874-0109-30 ")
 ;;5338
 ;;21,"63874-0109-40 ")
 ;;5339
 ;;21,"63874-0109-50 ")
 ;;5340
 ;;21,"63874-0109-60 ")
 ;;5341
 ;;21,"63874-0110-01 ")
 ;;5342
 ;;21,"63874-0110-20 ")
 ;;5343
 ;;21,"63874-0110-28 ")
 ;;5344
 ;;21,"63874-0110-30 ")
 ;;5345
 ;;21,"63874-0110-40 ")
 ;;5346
 ;;21,"63874-0110-50 ")
 ;;5347
 ;;21,"63874-0111-01 ")
 ;;5348
 ;;21,"63874-0111-03 ")
 ;;5349
 ;;21,"63874-0111-04 ")
 ;;5350
 ;;21,"63874-0111-12 ")
 ;;5351
 ;;21,"63874-0111-14 ")
 ;;5352