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