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