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

BGP82Z16.m

Go to the documentation of this file.
BGP82Z16 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"63874-1106-09 ")
 ;;5020
 ;;21,"63874-1163-00 ")
 ;;5021
 ;;21,"63874-1163-01 ")
 ;;5022
 ;;21,"63874-1163-02 ")
 ;;5023
 ;;21,"63874-1163-03 ")
 ;;5024
 ;;21,"63874-1163-04 ")
 ;;5025
 ;;21,"63874-1163-06 ")
 ;;5026
 ;;21,"63874-1163-08 ")
 ;;5027
 ;;21,"63874-1163-09 ")
 ;;5028
 ;;21,"63874-1227-00 ")
 ;;5029
 ;;21,"63874-1227-01 ")
 ;;5030
 ;;21,"63874-1227-03 ")
 ;;5031
 ;;21,"63874-1227-06 ")
 ;;5032
 ;;21,"63874-1227-09 ")
 ;;5033
 ;;21,"63874-1233-00 ")
 ;;5034
 ;;21,"63874-1233-03 ")
 ;;5035
 ;;21,"63874-1233-06 ")
 ;;5036
 ;;21,"63874-1233-09 ")
 ;;5037
 ;;21,"63874-1234-03 ")
 ;;5038
 ;;21,"63874-1234-06 ")
 ;;5039
 ;;21,"63874-1235-03 ")
 ;;5040
 ;;21,"63874-1235-06 ")
 ;;5041
 ;;21,"63874-1238-03 ")
 ;;5042
 ;;21,"63874-1238-06 ")
 ;;5043
 ;;21,"63874-1265-03 ")
 ;;5044
 ;;21,"63874-1265-06 ")
 ;;5045
 ;;21,"63874-1266-02 ")
 ;;5046
 ;;21,"63874-1266-03 ")
 ;;5047
 ;;21,"63874-1266-06 ")
 ;;5048
 ;;21,"63874-1267-02 ")
 ;;5049
 ;;21,"63874-1267-03 ")
 ;;5050
 ;;21,"63874-1267-06 ")
 ;;5051
 ;;21,"63874-1277-05 ")
 ;;5052
 ;;21,"63874-1278-05 ")
 ;;5053
 ;;21,"63874-1279-05 ")
 ;;5054
 ;;21,"63874-1280-05 ")
 ;;5055
 ;;21,"64205-0627-30 ")
 ;;5056
 ;;21,"64376-0640-16 ")
 ;;5057
 ;;21,"64376-0640-40 ")
 ;;5058
 ;;21,"64376-0643-01 ")
 ;;5059
 ;;21,"64376-0643-05 ")
 ;;5060
 ;;21,"64376-0648-01 ")
 ;;5061
 ;;21,"64376-0648-05 ")
 ;;5062
 ;;21,"64376-0649-01 ")
 ;;5063
 ;;21,"64376-0649-05 ")
 ;;5064
 ;;21,"64720-0224-10 ")
 ;;5065
 ;;21,"64720-0225-10 ")
 ;;5066
 ;;21,"64720-0226-10 ")
 ;;5067
 ;;21,"64720-0258-10 ")
 ;;5068
 ;;21,"64720-0259-10 ")
 ;;5069
 ;;21,"64720-0304-50 ")
 ;;5070
 ;;21,"64720-0305-11 ")
 ;;5071
 ;;21,"64950-0340-47 ")
 ;;5072
 ;;21,"64950-0354-05 ")
 ;;5073
 ;;21,"64950-0354-45 ")
 ;;5074
 ;;21,"64950-0354-50 ")
 ;;5075
 ;;21,"64950-0354-55 ")
 ;;5076
 ;;21,"64980-0176-01 ")
 ;;5077
 ;;21,"65084-0444-32 ")
 ;;5078
 ;;21,"65162-0033-10 ")
 ;;5079
 ;;21,"65162-0033-11 ")
 ;;5080
 ;;21,"65162-0047-10 ")
 ;;5081
 ;;21,"65162-0047-50 ")
 ;;5082
 ;;21,"65162-0048-10 ")
 ;;5083
 ;;21,"65162-0049-10 ")
 ;;5084
 ;;21,"65162-0049-50 ")
 ;;5085
 ;;21,"65162-0050-10 ")
 ;;5086
 ;;21,"65162-0051-10 ")
 ;;5087
 ;;21,"65162-0051-50 ")
 ;;5088
 ;;21,"65162-0115-10 ")
 ;;5089
 ;;21,"65162-0115-11 ")
 ;;5090
 ;;21,"65162-0115-50 ")
 ;;5091
 ;;21,"65162-0207-10 ")
 ;;5092
 ;;21,"65162-0207-50 ")
 ;;5093
 ;;21,"65162-0617-10 ")
 ;;5094
 ;;21,"65162-0617-11 ")
 ;;5095
 ;;21,"65162-0617-50 ")
 ;;5096
 ;;21,"65162-0627-10 ")
 ;;5097
 ;;21,"65162-0627-11 ")
 ;;5098
 ;;21,"65162-0627-50 ")
 ;;5099
 ;;21,"65162-0694-86 ")
 ;;5100
 ;;21,"65162-0694-90 ")
 ;;5101
 ;;21,"65162-0696-10 ")
 ;;5102
 ;;21,"65162-0696-50 ")
 ;;5103
 ;;21,"65224-0310-60 ")
 ;;5104
 ;;21,"65224-0315-60 ")
 ;;5105
 ;;21,"65224-0320-60 ")
 ;;5106
 ;;21,"65224-0330-60 ")
 ;;5107
 ;;21,"65224-0340-60 ")
 ;;5108
 ;;21,"65224-0350-60 ")
 ;;5109
 ;;21,"65243-0300-06 ")
 ;;5110
 ;;21,"65243-0300-09 ")
 ;;5111
 ;;21,"65243-0300-12 ")
 ;;5112
 ;;21,"65243-0300-18 ")
 ;;5113
 ;;21,"65243-0300-24 ")
 ;;5114
 ;;21,"65243-0324-06 ")
 ;;5115
 ;;21,"65243-0324-09 ")
 ;;5116
 ;;21,"65243-0380-09 ")
 ;;5117
 ;;21,"65243-0383-06 ")
 ;;5118
 ;;21,"65243-0383-09 ")
 ;;5119
 ;;21,"65243-0383-12 ")
 ;;5120
 ;;21,"65243-0383-18 ")
 ;;5121
 ;;21,"65243-0383-24 ")
 ;;5122
 ;;21,"65597-0301-10 ")
 ;;5123
 ;;21,"65597-0302-10 ")
 ;;5124
 ;;21,"65597-0303-10 ")
 ;;5125
 ;;21,"65597-0304-10 ")
 ;;5126
 ;;21,"66116-0135-30 ")
 ;;5127
 ;;21,"66116-0135-40 ")
 ;;5128
 ;;21,"66116-0225-30 ")
 ;;5129
 ;;21,"66116-0620-20 ")
 ;;5130
 ;;21,"66116-0621-30 ")
 ;;5131
 ;;21,"66267-0001-06 ")
 ;;5132
 ;;21,"66267-0001-10 ")
 ;;5133
 ;;21,"66267-0001-12 ")
 ;;5134
 ;;21,"66267-0001-15 ")
 ;;5135
 ;;21,"66267-0001-20 ")
 ;;5136
 ;;21,"66267-0001-24 ")
 ;;5137
 ;;21,"66267-0001-30 ")
 ;;5138
 ;;21,"66267-0001-40 ")
 ;;5139
 ;;21,"66267-0001-60 ")
 ;;5140
 ;;21,"66267-0001-84 ")
 ;;5141
 ;;21,"66267-0001-90 ")
 ;;5142
 ;;21,"66267-0001-91 ")
 ;;5143
 ;;21,"66267-0002-20 ")
 ;;5144
 ;;21,"66267-0002-30 ")
 ;;5145
 ;;21,"66267-0002-40 ")
 ;;5146
 ;;21,"66267-0002-60 ")
 ;;5147
 ;;21,"66267-0210-12 ")
 ;;5148
 ;;21,"66267-0210-20 ")
 ;;5149
 ;;21,"66267-0210-25 ")
 ;;5150
 ;;21,"66267-0210-30 ")
 ;;5151
 ;;21,"66267-0210-40 ")
 ;;5152
 ;;21,"66267-0210-56 ")
 ;;5153
 ;;21,"66267-0221-30 ")
 ;;5154
 ;;21,"66267-0319-00 ")
 ;;5155
 ;;21,"66267-0319-20 ")
 ;;5156
 ;;21,"66267-0319-30 ")
 ;;5157
 ;;21,"66267-0319-40 ")
 ;;5158
 ;;21,"66267-0319-60 ")
 ;;5159
 ;;21,"66267-0319-84 ")
 ;;5160
 ;;21,"66267-0319-88 ")
 ;;5161
 ;;21,"66267-0319-90 ")
 ;;5162
 ;;21,"66267-0319-91 ")
 ;;5163
 ;;21,"66267-0319-92 ")
 ;;5164
 ;;21,"66267-0468-20 ")
 ;;5165
 ;;21,"66267-0468-40 ")
 ;;5166
 ;;21,"66267-0468-60 ")
 ;;5167
 ;;21,"66267-0487-30 ")
 ;;5168
 ;;21,"66267-0487-40 ")
 ;;5169
 ;;21,"66267-0563-00 ")
 ;;5170
 ;;21,"66267-0563-15 ")
 ;;5171
 ;;21,"66267-0563-20 ")
 ;;5172
 ;;21,"66267-0563-28 ")
 ;;5173
 ;;21,"66267-0563-30 ")
 ;;5174
 ;;21,"66267-0563-40 ")
 ;;5175
 ;;21,"66267-0563-45 ")
 ;;5176
 ;;21,"66267-0563-50 ")
 ;;5177
 ;;21,"66267-0563-60 ")
 ;;5178
 ;;21,"66267-0563-84 ")
 ;;5179
 ;;21,"66267-0563-90 ")
 ;;5180
 ;;21,"66267-0563-91 ")
 ;;5181
 ;;21,"66267-0563-92 ")
 ;;5182
 ;;21,"66267-0563-99 ")
 ;;5183
 ;;21,"66267-0843-06 ")
 ;;5184
 ;;21,"66267-0997-04 ")
 ;;5185
 ;;21,"66267-1005-00 ")
 ;;5186
 ;;21,"66267-1018-00 ")
 ;;5187
 ;;21,"66267-1268-00 ")
 ;;5188
 ;;21,"66267-1269-00 ")
 ;;5189
 ;;21,"66267-1270-00 ")
 ;;5190
 ;;21,"66267-1276-00 ")
 ;;5191
 ;;21,"66267-1277-00 ")
 ;;5192
 ;;21,"66267-1303-03 ")
 ;;5193
 ;;21,"66267-1304-03 ")
 ;;5194
 ;;21,"66336-0012-14 ")
 ;;5195
 ;;21,"66336-0012-15 ")
 ;;5196
 ;;21,"66336-0012-20 ")
 ;;5197
 ;;21,"66336-0012-30 ")
 ;;5198
 ;;21,"66336-0012-40 ")
 ;;5199
 ;;21,"66336-0012-60 ")
 ;;5200
 ;;21,"66336-0012-62 ")
 ;;5201
 ;;21,"66336-0012-90 ")
 ;;5202
 ;;21,"66336-0012-94 ")
 ;;5203
 ;;21,"66336-0019-30 ")
 ;;5204
 ;;21,"66336-0019-60 ")
 ;;5205
 ;;21,"66336-0059-06 ")
 ;;5206
 ;;21,"66336-0059-10 ")
 ;;5207
 ;;21,"66336-0059-12 ")
 ;;5208
 ;;21,"66336-0059-15 ")
 ;;5209
 ;;21,"66336-0059-16 ")
 ;;5210
 ;;21,"66336-0059-20 ")
 ;;5211
 ;;21,"66336-0059-30 ")
 ;;5212
 ;;21,"66336-0059-40 ")
 ;;5213
 ;;21,"66336-0059-60 ")
 ;;5214
 ;;21,"66336-0106-06 ")
 ;;5215
 ;;21,"66336-0106-12 ")
 ;;5216
 ;;21,"66336-0106-15 ")
 ;;5217
 ;;21,"66336-0106-16 ")
 ;;5218
 ;;21,"66336-0106-20 ")
 ;;5219
 ;;21,"66336-0106-30 ")
 ;;5220
 ;;21,"66336-0106-40 ")
 ;;5221
 ;;21,"66336-0106-60 ")
 ;;5222
 ;;21,"66336-0106-90 ")
 ;;5223
 ;;21,"66336-0106-94 ")
 ;;5224
 ;;21,"66336-0115-14 ")
 ;;5225
 ;;21,"66336-0115-15 ")
 ;;5226
 ;;21,"66336-0115-30 ")
 ;;5227
 ;;21,"66336-0115-60 ")
 ;;5228
 ;;21,"66336-0115-90 ")
 ;;5229
 ;;21,"66336-0115-94 ")
 ;;5230
 ;;21,"66336-0135-94 ")
 ;;5231
 ;;21,"66336-0147-24 ")
 ;;5232
 ;;21,"66336-0147-30 ")
 ;;5233
 ;;21,"66336-0147-55 ")
 ;;5234
 ;;21,"66336-0147-60 ")
 ;;5235
 ;;21,"66336-0147-90 ")
 ;;5236
 ;;21,"66336-0147-94 ")
 ;;5237
 ;;21,"66336-0406-15 ")
 ;;5238
 ;;21,"66336-0406-20 ")
 ;;5239
 ;;21,"66336-0406-21 ")
 ;;5240
 ;;21,"66336-0406-30 ")
 ;;5241
 ;;21,"66336-0406-48 ")
 ;;5242
 ;;21,"66336-0406-60 ")
 ;;5243
 ;;21,"66336-0406-90 ")
 ;;5244
 ;;21,"66336-0406-94 ")
 ;;5245
 ;;21,"66336-0408-15 ")
 ;;5246
 ;;21,"66336-0408-20 ")
 ;;5247
 ;;21,"66336-0408-28 ")
 ;;5248
 ;;21,"66336-0408-30 ")
 ;;5249
 ;;21,"66336-0408-32 ")
 ;;5250
 ;;21,"66336-0408-40 ")
 ;;5251
 ;;21,"66336-0408-55 ")
 ;;5252
 ;;21,"66336-0408-60 ")
 ;;5253
 ;;21,"66336-0408-62 ")
 ;;5254
 ;;21,"66336-0408-90 ")
 ;;5255
 ;;21,"66336-0408-94 ")
 ;;5256
 ;;21,"66336-0408-97 ")
 ;;5257
 ;;21,"66336-0442-06 ")
 ;;5258
 ;;21,"66336-0442-10 ")
 ;;5259
 ;;21,"66336-0442-12 ")
 ;;5260
 ;;21,"66336-0442-15 ")
 ;;5261
 ;;21,"66336-0442-16 ")
 ;;5262
 ;;21,"66336-0442-20 ")
 ;;5263
 ;;21,"66336-0442-24 ")
 ;;5264
 ;;21,"66336-0442-30 ")
 ;;5265
 ;;21,"66336-0442-40 ")
 ;;5266
 ;;21,"66336-0442-45 ")
 ;;5267
 ;;21,"66336-0442-60 ")
 ;;5268
 ;;21,"66336-0442-90 ")
 ;;5269
 ;;21,"66336-0442-94 ")
 ;;5270
 ;;21,"66336-0444-12 ")
 ;;5271
 ;;21,"66336-0444-20 ")
 ;;5272
 ;;21,"66336-0444-21 ")
 ;;5273
 ;;21,"66336-0444-30 ")
 ;;5274
 ;;21,"66336-0444-55 ")
 ;;5275
 ;;21,"66336-0444-58 ")
 ;;5276
 ;;21,"66336-0444-60 ")
 ;;5277
 ;;21,"66336-0444-62 ")
 ;;5278
 ;;21,"66336-0444-90 ")
 ;;5279
 ;;21,"66336-0444-94 ")
 ;;5280
 ;;21,"66336-0470-62 ")
 ;;5281
 ;;21,"66336-0470-94 ")
 ;;5282
 ;;21,"66336-0502-30 ")
 ;;5283
 ;;21,"66336-0502-60 ")
 ;;5284
 ;;21,"66336-0502-90 ")
 ;;5285
 ;;21,"66336-0670-06 ")
 ;;5286
 ;;21,"66336-0670-10 ")
 ;;5287
 ;;21,"66336-0670-12 ")
 ;;5288
 ;;21,"66336-0670-20 ")
 ;;5289
 ;;21,"66336-0670-24 ")
 ;;5290
 ;;21,"66336-0670-30 ")
 ;;5291
 ;;21,"66336-0670-40 ")
 ;;5292
 ;;21,"66336-0670-60 ")
 ;;5293
 ;;21,"66336-0670-90 ")
 ;;5294
 ;;21,"66336-0670-94 ")
 ;;5295
 ;;21,"66336-0748-20 ")
 ;;5296
 ;;21,"66336-0748-30 ")
 ;;5297
 ;;21,"66336-0748-90 ")
 ;;5298
 ;;21,"66336-0748-94 ")
 ;;5299
 ;;21,"66336-0871-15 ")
 ;;5300
 ;;21,"66336-0915-60 ")
 ;;5301
 ;;21,"66336-0915-62 ")
 ;;5302
 ;;21,"66479-0582-10 ")
 ;;5303
 ;;21,"66594-0122-01 ")
 ;;5304
 ;;21,"66689-0023-01 ")
 ;;5305
 ;;21,"66689-0023-04 ")
 ;;5306
 ;;21,"66689-0023-16 ")
 ;;5307
 ;;21,"66689-0023-50 ")
 ;;5308
 ;;21,"66689-0025-30 ")
 ;;5309
 ;;21,"66689-0032-01 ")
 ;;5310
 ;;21,"66689-0032-04 ")
 ;;5311
 ;;21,"66689-0032-16 ")
 ;;5312
 ;;21,"66689-0032-50 ")
 ;;5313
 ;;21,"66689-0033-01 ")
 ;;5314
 ;;21,"66689-0033-04 ")
 ;;5315
 ;;21,"66689-0033-16 ")
 ;;5316
 ;;21,"66689-0033-50 ")
 ;;5317
 ;;21,"66689-0401-01 ")
 ;;5318
 ;;21,"66689-0401-50 ")
 ;;5319
 ;;21,"66689-0403-16 ")
 ;;5320
 ;;21,"66689-0694-30 ")
 ;;5321
 ;;21,"66689-0694-39 ")
 ;;5322
 ;;21,"66689-0694-79 ")
 ;;5323
 ;;21,"66689-0695-79 ")
 ;;5324
 ;;21,"66689-0711-16 ")
 ;;5325
 ;;21,"66689-0712-16 ")
 ;;5326
 ;;21,"66689-0810-10 ")
 ;;5327
 ;;21,"66689-0898-40 ")
 ;;5328
 ;;21,"66992-0340-10 ")
 ;;5329
 ;;21,"66992-0840-10 ")
 ;;5330
 ;;21,"67544-0001-60 ")
 ;;5331
 ;;21,"67544-0002-15 ")
 ;;5332
 ;;21,"67544-0002-20 ")
 ;;5333
 ;;21,"67544-0002-30 ")
 ;;5334
 ;;21,"67544-0002-40 ")
 ;;5335
 ;;21,"67544-0002-45 ")
 ;;5336
 ;;21,"67544-0002-50 ")
 ;;5337
 ;;21,"67544-0002-53 ")
 ;;5338
 ;;21,"67544-0002-55 ")
 ;;5339
 ;;21,"67544-0002-60 ")
 ;;5340
 ;;21,"67544-0002-70 ")
 ;;5341
 ;;21,"67544-0002-75 ")
 ;;5342
 ;;21,"67544-0002-80 ")
 ;;5343
 ;;21,"67544-0002-85 ")
 ;;5344
 ;;21,"67544-0002-90 ")
 ;;5345
 ;;21,"67544-0002-93 ")
 ;;5346
 ;;21,"67544-0003-53 ")
 ;;5347
 ;;21,"67544-0003-60 ")
 ;;5348
 ;;21,"67544-0003-70 ")
 ;;5349
 ;;21,"67544-0003-80 ")
 ;;5350
 ;;21,"67544-0003-90 ")
 ;;5351
 ;;21,"67544-0023-10 ")
 ;;5352