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

BGPM5BBD.m

Go to the documentation of this file.
BGPM5BBD ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"63629331704 ")
 ;;5115
 ;;21,"63629332401 ")
 ;;5116
 ;;21,"63629332402 ")
 ;;5117
 ;;21,"63629332403 ")
 ;;5118
 ;;21,"63629332501 ")
 ;;5119
 ;;21,"63629332502 ")
 ;;5120
 ;;21,"63629332601 ")
 ;;5121
 ;;21,"63629332602 ")
 ;;5122
 ;;21,"63629332603 ")
 ;;5123
 ;;21,"63629333801 ")
 ;;5124
 ;;21,"63629333802 ")
 ;;5125
 ;;21,"63629333803 ")
 ;;5126
 ;;21,"63629334501 ")
 ;;5127
 ;;21,"63629334502 ")
 ;;5128
 ;;21,"63629334503 ")
 ;;5129
 ;;21,"63629334504 ")
 ;;5130
 ;;21,"63629334601 ")
 ;;5131
 ;;21,"63629334801 ")
 ;;5132
 ;;21,"63629334802 ")
 ;;5133
 ;;21,"63629334803 ")
 ;;5134
 ;;21,"63629334804 ")
 ;;5135
 ;;21,"63629334901 ")
 ;;5136
 ;;21,"63629334902 ")
 ;;5137
 ;;21,"63629334903 ")
 ;;5138
 ;;21,"63629336201 ")
 ;;5139
 ;;21,"63629336202 ")
 ;;5140
 ;;21,"63629336203 ")
 ;;5141
 ;;21,"63629336204 ")
 ;;5142
 ;;21,"63629336205 ")
 ;;5143
 ;;21,"63629359701 ")
 ;;5144
 ;;21,"63629359702 ")
 ;;5145
 ;;21,"63629359703 ")
 ;;5146
 ;;21,"63629412301 ")
 ;;5147
 ;;21,"63629412302 ")
 ;;5148
 ;;21,"63629412501 ")
 ;;5149
 ;;21,"63629412502 ")
 ;;5150
 ;;21,"63629427601 ")
 ;;5151
 ;;21,"63629427602 ")
 ;;5152
 ;;21,"63629430401 ")
 ;;5153
 ;;21,"63629430402 ")
 ;;5154
 ;;21,"63629430403 ")
 ;;5155
 ;;21,"63629453401 ")
 ;;5156
 ;;21,"63672102501 ")
 ;;5157
 ;;21,"63672102502 ")
 ;;5158
 ;;21,"63672102504 ")
 ;;5159
 ;;21,"63672105001 ")
 ;;5160
 ;;21,"63672105002 ")
 ;;5161
 ;;21,"63672105004 ")
 ;;5162
 ;;21,"63672110001 ")
 ;;5163
 ;;21,"63672110002 ")
 ;;5164
 ;;21,"63672110003 ")
 ;;5165
 ;;21,"63711051010 ")
 ;;5166
 ;;21,"63711052010 ")
 ;;5167
 ;;21,"63711054010 ")
 ;;5168
 ;;21,"63739019010 ")
 ;;5169
 ;;21,"63739024510 ")
 ;;5170
 ;;21,"63739024610 ")
 ;;5171
 ;;21,"63739029610 ")
 ;;5172
 ;;21,"63739035510 ")
 ;;5173
 ;;21,"63739035610 ")
 ;;5174
 ;;21,"63739040710 ")
 ;;5175
 ;;21,"63739040810 ")
 ;;5176
 ;;21,"63739049041 ")
 ;;5177
 ;;21,"63739049340 ")
 ;;5178
 ;;21,"63739049440 ")
 ;;5179
 ;;21,"63808075301 ")
 ;;5180
 ;;21,"63874029601 ")
 ;;5181
 ;;21,"63874029604 ")
 ;;5182
 ;;21,"63874029615 ")
 ;;5183
 ;;21,"63874029620 ")
 ;;5184
 ;;21,"63874029630 ")
 ;;5185
 ;;21,"63874029640 ")
 ;;5186
 ;;21,"63874029660 ")
 ;;5187
 ;;21,"63874029690 ")
 ;;5188
 ;;21,"63874031101 ")
 ;;5189
 ;;21,"63874031102 ")
 ;;5190
 ;;21,"63874031104 ")
 ;;5191
 ;;21,"63874031110 ")
 ;;5192
 ;;21,"63874031112 ")
 ;;5193
 ;;21,"63874031115 ")
 ;;5194
 ;;21,"63874031120 ")
 ;;5195
 ;;21,"63874031124 ")
 ;;5196
 ;;21,"63874031130 ")
 ;;5197
 ;;21,"63874031140 ")
 ;;5198
 ;;21,"63874031150 ")
 ;;5199
 ;;21,"63874031160 ")
 ;;5200
 ;;21,"63874031172 ")
 ;;5201
 ;;21,"63874031174 ")
 ;;5202
 ;;21,"63874031177 ")
 ;;5203
 ;;21,"63874031182 ")
 ;;5204
 ;;21,"63874031190 ")
 ;;5205
 ;;21,"63874035901 ")
 ;;5206
 ;;21,"63874035902 ")
 ;;5207
 ;;21,"63874035904 ")
 ;;5208
 ;;21,"63874035914 ")
 ;;5209
 ;;21,"63874035915 ")
 ;;5210
 ;;21,"63874035920 ")
 ;;5211
 ;;21,"63874035928 ")
 ;;5212
 ;;21,"63874035930 ")
 ;;5213
 ;;21,"63874035940 ")
 ;;5214
 ;;21,"63874035950 ")
 ;;5215
 ;;21,"63874035960 ")
 ;;5216
 ;;21,"63874035990 ")
 ;;5217
 ;;21,"63874043001 ")
 ;;5218
 ;;21,"63874043002 ")
 ;;5219
 ;;21,"63874043004 ")
 ;;5220
 ;;21,"63874043014 ")
 ;;5221
 ;;21,"63874043015 ")
 ;;5222
 ;;21,"63874043020 ")
 ;;5223
 ;;21,"63874043025 ")
 ;;5224
 ;;21,"63874043028 ")
 ;;5225
 ;;21,"63874043030 ")
 ;;5226
 ;;21,"63874043040 ")
 ;;5227
 ;;21,"63874043050 ")
 ;;5228
 ;;21,"63874043060 ")
 ;;5229
 ;;21,"63874043090 ")
 ;;5230
 ;;21,"63874053701 ")
 ;;5231
 ;;21,"63874053704 ")
 ;;5232
 ;;21,"63874053710 ")
 ;;5233
 ;;21,"63874053712 ")
 ;;5234
 ;;21,"63874053714 ")
 ;;5235
 ;;21,"63874053715 ")
 ;;5236
 ;;21,"63874053720 ")
 ;;5237
 ;;21,"63874053730 ")
 ;;5238
 ;;21,"63874053740 ")
 ;;5239
 ;;21,"63874053760 ")
 ;;5240
 ;;21,"63874053790 ")
 ;;5241
 ;;21,"63874053801 ")
 ;;5242
 ;;21,"63874053810 ")
 ;;5243
 ;;21,"63874053814 ")
 ;;5244
 ;;21,"63874053815 ")
 ;;5245
 ;;21,"63874053820 ")
 ;;5246
 ;;21,"63874053830 ")
 ;;5247
 ;;21,"63874053860 ")
 ;;5248
 ;;21,"63874056001 ")
 ;;5249
 ;;21,"63874056004 ")
 ;;5250
 ;;21,"63874056010 ")
 ;;5251
 ;;21,"63874056012 ")
 ;;5252
 ;;21,"63874056014 ")
 ;;5253
 ;;21,"63874056015 ")
 ;;5254
 ;;21,"63874056020 ")
 ;;5255
 ;;21,"63874056028 ")
 ;;5256
 ;;21,"63874056030 ")
 ;;5257
 ;;21,"63874056040 ")
 ;;5258
 ;;21,"63874056060 ")
 ;;5259
 ;;21,"63874056090 ")
 ;;5260
 ;;21,"63874057301 ")
 ;;5261
 ;;21,"63874057304 ")
 ;;5262
 ;;21,"63874057310 ")
 ;;5263
 ;;21,"63874057314 ")
 ;;5264
 ;;21,"63874057315 ")
 ;;5265
 ;;21,"63874057320 ")
 ;;5266
 ;;21,"63874057321 ")
 ;;5267
 ;;21,"63874057328 ")
 ;;5268
 ;;21,"63874057330 ")
 ;;5269
 ;;21,"63874057360 ")
 ;;5270
 ;;21,"63874057372 ")
 ;;5271
 ;;21,"63874057374 ")
 ;;5272
 ;;21,"63874057377 ")
 ;;5273
 ;;21,"63874057390 ")
 ;;5274
 ;;21,"63874057401 ")
 ;;5275
 ;;21,"63874057404 ")
 ;;5276
 ;;21,"63874057410 ")
 ;;5277
 ;;21,"63874057414 ")
 ;;5278
 ;;21,"63874057420 ")
 ;;5279
 ;;21,"63874057421 ")
 ;;5280
 ;;21,"63874057428 ")
 ;;5281
 ;;21,"63874057430 ")
 ;;5282
 ;;21,"63874057460 ")
 ;;5283
 ;;21,"63874057472 ")
 ;;5284
 ;;21,"63874057474 ")
 ;;5285
 ;;21,"63874057477 ")
 ;;5286
 ;;21,"63874057490 ")
 ;;5287
 ;;21,"63874058001 ")
 ;;5288
 ;;21,"63874058014 ")
 ;;5289
 ;;21,"63874058015 ")
 ;;5290
 ;;21,"63874058020 ")
 ;;5291
 ;;21,"63874058030 ")
 ;;5292
 ;;21,"63874058060 ")
 ;;5293
 ;;21,"63874058090 ")
 ;;5294
 ;;21,"63874077501 ")
 ;;5295
 ;;21,"63874077512 ")
 ;;5296
 ;;21,"63874077515 ")
 ;;5297
 ;;21,"63874077520 ")
 ;;5298
 ;;21,"63874077530 ")
 ;;5299
 ;;21,"63874082801 ")
 ;;5300
 ;;21,"63874082804 ")
 ;;5301
 ;;21,"63874082814 ")
 ;;5302
 ;;21,"63874082820 ")
 ;;5303
 ;;21,"63874082821 ")
 ;;5304
 ;;21,"63874082828 ")
 ;;5305
 ;;21,"63874082830 ")
 ;;5306
 ;;21,"63874082860 ")
 ;;5307
 ;;21,"63874082890 ")
 ;;5308
 ;;21,"63874103301 ")
 ;;5309
 ;;21,"63874103303 ")
 ;;5310
 ;;21,"63874103304 ")
 ;;5311
 ;;21,"63874103306 ")
 ;;5312
 ;;21,"63874105301 ")
 ;;5313
 ;;21,"63874105302 ")
 ;;5314
 ;;21,"63874105303 ")
 ;;5315
 ;;21,"63874105304 ")
 ;;5316
 ;;21,"63874105305 ")
 ;;5317
 ;;21,"63874105306 ")
 ;;5318
 ;;21,"63874105308 ")
 ;;5319
 ;;21,"63874105309 ")
 ;;5320
 ;;21,"63874107906 ")
 ;;5321
 ;;21,"63874108003 ")
 ;;5322
 ;;21,"63874108006 ")
 ;;5323
 ;;21,"63874108101 ")
 ;;5324
 ;;21,"63874109703 ")
 ;;5325
 ;;21,"63874109803 ")
 ;;5326
 ;;21,"63874111301 ")
 ;;5327
 ;;21,"63874111303 ")
 ;;5328
 ;;21,"63874111306 ")
 ;;5329
 ;;21,"63874112506 ")
 ;;5330
 ;;21,"63874114603 ")
 ;;5331
 ;;21,"63874114606 ")
 ;;5332
 ;;21,"63874115103 ")
 ;;5333
 ;;21,"63874115503 ")
 ;;5334
 ;;21,"63874115700 ")
 ;;5335
 ;;21,"63874115703 ")
 ;;5336
 ;;21,"63874115803 ")
 ;;5337
 ;;21,"64038000901 ")
 ;;5338
 ;;21,"64038000930 ")
 ;;5339
 ;;21,"64038001001 ")
 ;;5340
 ;;21,"64038001030 ")
 ;;5341
 ;;21,"64579000600 ")
 ;;5342
 ;;21,"64579000601 ")
 ;;5343
 ;;21,"64579025000 ")
 ;;5344
 ;;21,"64579025001 ")
 ;;5345
 ;;21,"64679055901 ")
 ;;5346
 ;;21,"64679056001 ")
 ;;5347
 ;;21,"64679056101 ")
 ;;5348
 ;;21,"64679071601 ")
 ;;5349
 ;;21,"64679071602 ")
 ;;5350
 ;;21,"64679071603 ")
 ;;5351
 ;;21,"64679071604 ")
 ;;5352
 ;;21,"64679071605 ")
 ;;5353
 ;;21,"64679071701 ")
 ;;5354
 ;;21,"64679071702 ")
 ;;5355
 ;;21,"64679071703 ")
 ;;5356
 ;;21,"64679071704 ")
 ;;5357
 ;;21,"64679071705 ")
 ;;5358
 ;;21,"64679071801 ")
 ;;5359
 ;;21,"64679071802 ")
 ;;5360
 ;;21,"64679071803 ")
 ;;5361
 ;;21,"64679071804 ")
 ;;5362
 ;;21,"64679071805 ")
 ;;5363
 ;;21,"64679075101 ")
 ;;5364
 ;;21,"64679075201 ")
 ;;5365
 ;;21,"64679075202 ")
 ;;5366
 ;;21,"64679075203 ")
 ;;5367
 ;;21,"64679075204 ")
 ;;5368
 ;;21,"64679075207 ")
 ;;5369
 ;;21,"64679075301 ")
 ;;5370
 ;;21,"64679075302 ")
 ;;5371
 ;;21,"64679075303 ")
 ;;5372
 ;;21,"64679075304 ")
 ;;5373
 ;;21,"64679075307 ")
 ;;5374
 ;;21,"64679096914 ")
 ;;5375
 ;;21,"64679097014 ")
 ;;5376
 ;;21,"64679097114 ")
 ;;5377
 ;;21,"64720017003 ")
 ;;5378
 ;;21,"64720017010 ")
 ;;5379
 ;;21,"64720017103 ")
 ;;5380
 ;;21,"64720017110 ")
 ;;5381
 ;;21,"64720017111 ")
 ;;5382
 ;;21,"64720017203 ")
 ;;5383
 ;;21,"64720017210 ")
 ;;5384
 ;;21,"64720017211 ")
 ;;5385
 ;;21,"64725013903 ")
 ;;5386
 ;;21,"64725021503 ")
 ;;5387
 ;;21,"64725021703 ")
 ;;5388
 ;;21,"64980015801 ")
 ;;5389
 ;;21,"64980015901 ")
 ;;5390
 ;;21,"65015003714 ")
 ;;5391
 ;;21,"65015003719 ")
 ;;5392
 ;;21,"65015003725 ")
 ;;5393
 ;;21,"65015003782 ")
 ;;5394
 ;;21,"65015003785 ")
 ;;5395
 ;;21,"65015003799 ")
 ;;5396
 ;;21,"65015003814 ")
 ;;5397
 ;;21,"65015003819 ")
 ;;5398
 ;;21,"65015003825 ")
 ;;5399
 ;;21,"65015003899 ")
 ;;5400
 ;;21,"65015003914 ")
 ;;5401
 ;;21,"65015003919 ")
 ;;5402
 ;;21,"65015003925 ")
 ;;5403
 ;;21,"65015003999 ")
 ;;5404
 ;;21,"65084037314 ")
 ;;5405
 ;;21,"65084037318 ")
 ;;5406
 ;;21,"65084037320 ")
 ;;5407
 ;;21,"65084037336 ")
 ;;5408
 ;;21,"65162005203 ")
 ;;5409
 ;;21,"65162005210 ")
 ;;5410
 ;;21,"65162005250 ")
 ;;5411
 ;;21,"65162005303 ")
 ;;5412
 ;;21,"65162005310 ")
 ;;5413
 ;;21,"65162005350 ")
 ;;5414
 ;;21,"65162005403 ")
 ;;5415
 ;;21,"65162005410 ")
 ;;5416
 ;;21,"65162005450 ")
 ;;5417
 ;;21,"65162017610 ")
 ;;5418
 ;;21,"65162017611 ")
 ;;5419
 ;;21,"65162017810 ")
 ;;5420
 ;;21,"65162017811 ")
 ;;5421
 ;;21,"65162030009 ")
 ;;5422
 ;;21,"65162030209 ")
 ;;5423
 ;;21,"65162030509 ")
 ;;5424
 ;;21,"65162030609 ")
 ;;5425
 ;;21,"65162030709 ")
 ;;5426
 ;;21,"65243000603 ")
 ;;5427
 ;;21,"65243000606 ")
 ;;5428
 ;;21,"65243000609 ")
 ;;5429
 ;;21,"65243011203 ")
 ;;5430
 ;;21,"65243011206 ")
 ;;5431
 ;;21,"65243011209 ")
 ;;5432
 ;;21,"65243024203 ")
 ;;5433
 ;;21,"65243024209 ")
 ;;5434
 ;;21,"65243031003 ")
 ;;5435
 ;;21,"65243031009 ")
 ;;5436
 ;;21,"65243031012 ")
 ;;5437
 ;;21,"65243031015 ")
 ;;5438
 ;;21,"65243031045 ")
 ;;5439
 ;;21,"65243031903 ")
 ;;5440
 ;;21,"65243031906 ")
 ;;5441
 ;;21,"65243031909 ")
 ;;5442
 ;;21,"65243031912 ")
 ;;5443
 ;;21,"65243031945 ")
 ;;5444
 ;;21,"65243032703 ")
 ;;5445
 ;;21,"65243032706 ")
 ;;5446
 ;;21,"65243032709 ")
 ;;5447
 ;;21,"65243032712 ")
 ;;5448
 ;;21,"65243032718 ")
 ;;5449
 ;;21,"65243033606 ")
 ;;5450
 ;;21,"65243033609 ")
 ;;5451
 ;;21,"65243038103 ")
 ;;5452
 ;;21,"65243038106 ")
 ;;5453
 ;;21,"65243038109 ")
 ;;5454
 ;;21,"65243038118 ")
 ;;5455
 ;;21,"65243038145 ")
 ;;5456
 ;;21,"65243038403 ")
 ;;5457
 ;;21,"65243038406 ")
 ;;5458
 ;;21,"65243038409 ")
 ;;5459
 ;;21,"65243038418 ")
 ;;5460
 ;;21,"65243038445 ")
 ;;5461
 ;;21,"65243038603 ")
 ;;5462
 ;;21,"65243038606 ")
 ;;5463
 ;;21,"65243038609 ")
 ;;5464
 ;;21,"65387033504 ")
 ;;5465
 ;;21,"65387033506 ")
 ;;5466