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

BGPM5AQF.m

Go to the documentation of this file.
BGPM5AQF ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"65862004105 ")
 ;;4171
 ;;21,"65862004130 ")
 ;;4172
 ;;21,"65862004159 ")
 ;;4173
 ;;21,"65862004200 ")
 ;;4174
 ;;21,"65862004201 ")
 ;;4175
 ;;21,"65862004205 ")
 ;;4176
 ;;21,"65862004230 ")
 ;;4177
 ;;21,"65862004249 ")
 ;;4178
 ;;21,"65862004300 ")
 ;;4179
 ;;21,"65862004301 ")
 ;;4180
 ;;21,"65862004305 ")
 ;;4181
 ;;21,"65862004319 ")
 ;;4182
 ;;21,"65862004330 ")
 ;;4183
 ;;21,"65862004399 ")
 ;;4184
 ;;21,"65862004400 ")
 ;;4185
 ;;21,"65862004401 ")
 ;;4186
 ;;21,"65862004405 ")
 ;;4187
 ;;21,"65862004430 ")
 ;;4188
 ;;21,"65862004459 ")
 ;;4189
 ;;21,"65862004499 ")
 ;;4190
 ;;21,"65862004500 ")
 ;;4191
 ;;21,"65862004501 ")
 ;;4192
 ;;21,"65862004505 ")
 ;;4193
 ;;21,"65862004530 ")
 ;;4194
 ;;21,"65862004559 ")
 ;;4195
 ;;21,"65862004599 ")
 ;;4196
 ;;21,"65862030801 ")
 ;;4197
 ;;21,"65862030830 ")
 ;;4198
 ;;21,"65862030849 ")
 ;;4199
 ;;21,"65862030899 ")
 ;;4200
 ;;21,"65862030901 ")
 ;;4201
 ;;21,"65862030926 ")
 ;;4202
 ;;21,"65862030930 ")
 ;;4203
 ;;21,"65862030999 ")
 ;;4204
 ;;21,"65862047130 ")
 ;;4205
 ;;21,"65862047149 ")
 ;;4206
 ;;21,"65862047190 ")
 ;;4207
 ;;21,"65862047199 ")
 ;;4208
 ;;21,"65862047230 ")
 ;;4209
 ;;21,"65862047239 ")
 ;;4210
 ;;21,"65862047290 ")
 ;;4211
 ;;21,"65862047299 ")
 ;;4212
 ;;21,"65862047322 ")
 ;;4213
 ;;21,"65862047330 ")
 ;;4214
 ;;21,"65862047390 ")
 ;;4215
 ;;21,"65862047399 ")
 ;;4216
 ;;21,"66003010501 ")
 ;;4217
 ;;21,"66105010109 ")
 ;;4218
 ;;21,"66105010209 ")
 ;;4219
 ;;21,"66105010309 ")
 ;;4220
 ;;21,"66105050301 ")
 ;;4221
 ;;21,"66105050303 ")
 ;;4222
 ;;21,"66105050306 ")
 ;;4223
 ;;21,"66105050309 ")
 ;;4224
 ;;21,"66105050310 ")
 ;;4225
 ;;21,"66105050315 ")
 ;;4226
 ;;21,"66105050401 ")
 ;;4227
 ;;21,"66105050403 ")
 ;;4228
 ;;21,"66105050406 ")
 ;;4229
 ;;21,"66105050409 ")
 ;;4230
 ;;21,"66105050415 ")
 ;;4231
 ;;21,"66105052409 ")
 ;;4232
 ;;21,"66105054409 ")
 ;;4233
 ;;21,"66105054501 ")
 ;;4234
 ;;21,"66105054503 ")
 ;;4235
 ;;21,"66105054506 ")
 ;;4236
 ;;21,"66105054509 ")
 ;;4237
 ;;21,"66105054510 ")
 ;;4238
 ;;21,"66105054609 ")
 ;;4239
 ;;21,"66105054803 ")
 ;;4240
 ;;21,"66105055510 ")
 ;;4241
 ;;21,"66105066602 ")
 ;;4242
 ;;21,"66105066603 ")
 ;;4243
 ;;21,"66105066606 ")
 ;;4244
 ;;21,"66105066609 ")
 ;;4245
 ;;21,"66105066610 ")
 ;;4246
 ;;21,"66105069402 ")
 ;;4247
 ;;21,"66105069403 ")
 ;;4248
 ;;21,"66105069406 ")
 ;;4249
 ;;21,"66105069409 ")
 ;;4250
 ;;21,"66105069410 ")
 ;;4251
 ;;21,"66105069502 ")
 ;;4252
 ;;21,"66105069503 ")
 ;;4253
 ;;21,"66105069506 ")
 ;;4254
 ;;21,"66105069509 ")
 ;;4255
 ;;21,"66105069510 ")
 ;;4256
 ;;21,"66105078223 ")
 ;;4257
 ;;21,"66105078823 ")
 ;;4258
 ;;21,"66105084203 ")
 ;;4259
 ;;21,"66105084206 ")
 ;;4260
 ;;21,"66105084209 ")
 ;;4261
 ;;21,"66105084210 ")
 ;;4262
 ;;21,"66105084228 ")
 ;;4263
 ;;21,"66116027930 ")
 ;;4264
 ;;21,"66116030030 ")
 ;;4265
 ;;21,"66116030430 ")
 ;;4266
 ;;21,"66116031030 ")
 ;;4267
 ;;21,"66116032530 ")
 ;;4268
 ;;21,"66116032630 ")
 ;;4269
 ;;21,"66116050030 ")
 ;;4270
 ;;21,"66116050230 ")
 ;;4271
 ;;21,"66116071830 ")
 ;;4272
 ;;21,"66116081330 ")
 ;;4273
 ;;21,"66116081930 ")
 ;;4274
 ;;21,"66116082930 ")
 ;;4275
 ;;21,"66116083030 ")
 ;;4276
 ;;21,"66116083130 ")
 ;;4277
 ;;21,"66116086130 ")
 ;;4278
 ;;21,"66116087230 ")
 ;;4279
 ;;21,"66116087430 ")
 ;;4280
 ;;21,"66267004020 ")
 ;;4281
 ;;21,"66267004030 ")
 ;;4282
 ;;21,"66267004040 ")
 ;;4283
 ;;21,"66267004060 ")
 ;;4284
 ;;21,"66267004090 ")
 ;;4285
 ;;21,"66267004230 ")
 ;;4286
 ;;21,"66267004260 ")
 ;;4287
 ;;21,"66267004290 ")
 ;;4288
 ;;21,"66267025330 ")
 ;;4289
 ;;21,"66267029310 ")
 ;;4290
 ;;21,"66267029320 ")
 ;;4291
 ;;21,"66267029330 ")
 ;;4292
 ;;21,"66267029340 ")
 ;;4293
 ;;21,"66267029360 ")
 ;;4294
 ;;21,"66267029390 ")
 ;;4295
 ;;21,"66267032310 ")
 ;;4296
 ;;21,"66267032320 ")
 ;;4297
 ;;21,"66267032330 ")
 ;;4298
 ;;21,"66267032340 ")
 ;;4299
 ;;21,"66267032360 ")
 ;;4300
 ;;21,"66267032390 ")
 ;;4301
 ;;21,"66267032391 ")
 ;;4302
 ;;21,"66267032820 ")
 ;;4303
 ;;21,"66267032830 ")
 ;;4304
 ;;21,"66267032860 ")
 ;;4305
 ;;21,"66267032930 ")
 ;;4306
 ;;21,"66267033030 ")
 ;;4307
 ;;21,"66267033060 ")
 ;;4308
 ;;21,"66267036530 ")
 ;;4309
 ;;21,"66267036630 ")
 ;;4310
 ;;21,"66267036730 ")
 ;;4311
 ;;21,"66267037030 ")
 ;;4312
 ;;21,"66267038010 ")
 ;;4313
 ;;21,"66267038020 ")
 ;;4314
 ;;21,"66267038030 ")
 ;;4315
 ;;21,"66267038040 ")
 ;;4316
 ;;21,"66267038060 ")
 ;;4317
 ;;21,"66267038090 ")
 ;;4318
 ;;21,"66267038091 ")
 ;;4319
 ;;21,"66267041310 ")
 ;;4320
 ;;21,"66267041315 ")
 ;;4321
 ;;21,"66267041320 ")
 ;;4322
 ;;21,"66267041330 ")
 ;;4323
 ;;21,"66267041335 ")
 ;;4324
 ;;21,"66267041340 ")
 ;;4325
 ;;21,"66267041360 ")
 ;;4326
 ;;21,"66267041390 ")
 ;;4327
 ;;21,"66267041392 ")
 ;;4328
 ;;21,"66267045120 ")
 ;;4329
 ;;21,"66267045130 ")
 ;;4330
 ;;21,"66267045140 ")
 ;;4331
 ;;21,"66267045160 ")
 ;;4332
 ;;21,"66267045190 ")
 ;;4333
 ;;21,"66267046910 ")
 ;;4334
 ;;21,"66267046920 ")
 ;;4335
 ;;21,"66267046930 ")
 ;;4336
 ;;21,"66267046940 ")
 ;;4337
 ;;21,"66267046960 ")
 ;;4338
 ;;21,"66267050730 ")
 ;;4339
 ;;21,"66267052310 ")
 ;;4340
 ;;21,"66267052320 ")
 ;;4341
 ;;21,"66267052330 ")
 ;;4342
 ;;21,"66267052340 ")
 ;;4343
 ;;21,"66267052360 ")
 ;;4344
 ;;21,"66267052390 ")
 ;;4345
 ;;21,"66267054010 ")
 ;;4346
 ;;21,"66267054020 ")
 ;;4347
 ;;21,"66267054030 ")
 ;;4348
 ;;21,"66267054040 ")
 ;;4349
 ;;21,"66267054060 ")
 ;;4350
 ;;21,"66267054090 ")
 ;;4351
 ;;21,"66267056510 ")
 ;;4352
 ;;21,"66267056515 ")
 ;;4353
 ;;21,"66267056520 ")
 ;;4354
 ;;21,"66267056530 ")
 ;;4355
 ;;21,"66267056560 ")
 ;;4356
 ;;21,"66267057010 ")
 ;;4357
 ;;21,"66267057020 ")
 ;;4358
 ;;21,"66267057030 ")
 ;;4359
 ;;21,"66267057040 ")
 ;;4360
 ;;21,"66267057060 ")
 ;;4361
 ;;21,"66267057090 ")
 ;;4362
 ;;21,"66267057705 ")
 ;;4363
 ;;21,"66267057710 ")
 ;;4364
 ;;21,"66267057715 ")
 ;;4365
 ;;21,"66267057720 ")
 ;;4366
 ;;21,"66267057730 ")
 ;;4367
 ;;21,"66267057740 ")
 ;;4368
 ;;21,"66267057760 ")
 ;;4369
 ;;21,"66267057790 ")
 ;;4370
 ;;21,"66267057810 ")
 ;;4371
 ;;21,"66267057820 ")
 ;;4372
 ;;21,"66267057830 ")
 ;;4373
 ;;21,"66267057840 ")
 ;;4374
 ;;21,"66267057860 ")
 ;;4375
 ;;21,"66267058305 ")
 ;;4376
 ;;21,"66267058310 ")
 ;;4377
 ;;21,"66267058320 ")
 ;;4378
 ;;21,"66267058330 ")
 ;;4379
 ;;21,"66267058340 ")
 ;;4380
 ;;21,"66267058360 ")
 ;;4381
 ;;21,"66267075130 ")
 ;;4382
 ;;21,"66267075190 ")
 ;;4383
 ;;21,"66267075230 ")
 ;;4384
 ;;21,"66267075290 ")
 ;;4385
 ;;21,"66267100900 ")
 ;;4386
 ;;21,"66336016930 ")
 ;;4387
 ;;21,"66336038730 ")
 ;;4388
 ;;21,"66336038930 ")
 ;;4389
 ;;21,"66336038960 ")
 ;;4390
 ;;21,"66336039130 ")
 ;;4391
 ;;21,"66336039160 ")
 ;;4392
 ;;21,"66336039330 ")
 ;;4393
 ;;21,"66336039360 ")
 ;;4394
 ;;21,"66336057230 ")
 ;;4395
 ;;21,"66336061860 ")
 ;;4396
 ;;21,"66336074130 ")
 ;;4397
 ;;21,"66336075060 ")
 ;;4398
 ;;21,"66336075090 ")
 ;;4399
 ;;21,"66336079460 ")
 ;;4400
 ;;21,"66336080530 ")
 ;;4401
 ;;21,"66336080590 ")
 ;;4402
 ;;21,"66336086730 ")
 ;;4403
 ;;21,"66336094630 ")
 ;;4404
 ;;21,"66336094660 ")
 ;;4405
 ;;21,"66336094690 ")
 ;;4406
 ;;21,"66336097207 ")
 ;;4407
 ;;21,"66336097230 ")
 ;;4408
 ;;21,"66685030100 ")
 ;;4409
 ;;21,"66685030102 ")
 ;;4410
 ;;21,"66685030200 ")
 ;;4411
 ;;21,"66685030201 ")
 ;;4412
 ;;21,"66685030202 ")
 ;;4413
 ;;21,"66685030300 ")
 ;;4414
 ;;21,"66685030301 ")
 ;;4415
 ;;21,"66685030302 ")
 ;;4416
 ;;21,"66685030400 ")
 ;;4417
 ;;21,"66685030401 ")
 ;;4418
 ;;21,"66685030402 ")
 ;;4419
 ;;21,"66685070100 ")
 ;;4420
 ;;21,"66685070101 ")
 ;;4421
 ;;21,"66685070102 ")
 ;;4422
 ;;21,"66685070103 ")
 ;;4423
 ;;21,"66685070200 ")
 ;;4424
 ;;21,"66685070201 ")
 ;;4425
 ;;21,"66685070202 ")
 ;;4426
 ;;21,"66685070203 ")
 ;;4427
 ;;21,"66685070204 ")
 ;;4428
 ;;21,"66685070300 ")
 ;;4429
 ;;21,"66685070301 ")
 ;;4430
 ;;21,"66685070302 ")
 ;;4431
 ;;21,"66685070303 ")
 ;;4432
 ;;21,"66685070304 ")
 ;;4433
 ;;21,"66685070400 ")
 ;;4434
 ;;21,"66685070401 ")
 ;;4435
 ;;21,"66685070402 ")
 ;;4436
 ;;21,"66685070403 ")
 ;;4437
 ;;21,"66685070404 ")
 ;;4438
 ;;21,"66685070500 ")
 ;;4439
 ;;21,"66685070501 ")
 ;;4440
 ;;21,"66685070502 ")
 ;;4441
 ;;21,"66685070503 ")
 ;;4442
 ;;21,"66685070600 ")
 ;;4443
 ;;21,"66685070601 ")
 ;;4444
 ;;21,"66685070602 ")
 ;;4445
 ;;21,"66685070603 ")
 ;;4446
 ;;21,"66685070604 ")
 ;;4447
 ;;21,"67046015630 ")
 ;;4448
 ;;21,"67046015730 ")
 ;;4449
 ;;21,"67046015830 ")
 ;;4450
 ;;21,"67046015930 ")
 ;;4451
 ;;21,"67046015960 ")
 ;;4452
 ;;21,"67046016030 ")
 ;;4453
 ;;21,"67046016130 ")
 ;;4454
 ;;21,"67046016160 ")
 ;;4455
 ;;21,"67046042530 ")
 ;;4456
 ;;21,"67046042630 ")
 ;;4457
 ;;21,"67046042730 ")
 ;;4458
 ;;21,"67046042830 ")
 ;;4459
 ;;21,"67228002503 ")
 ;;4460
 ;;21,"67228002506 ")
 ;;4461
 ;;21,"67228002603 ")
 ;;4462
 ;;21,"67228002606 ")
 ;;4463
 ;;21,"67228008503 ")
 ;;4464
 ;;21,"67228008506 ")
 ;;4465
 ;;21,"67228016403 ")
 ;;4466
 ;;21,"67228016406 ")
 ;;4467
 ;;21,"67228016903 ")
 ;;4468
 ;;21,"67228016906 ")
 ;;4469
 ;;21,"67228026403 ")
 ;;4470
 ;;21,"67228026406 ")
 ;;4471
 ;;21,"67228026703 ")
 ;;4472
 ;;21,"67228026706 ")
 ;;4473
 ;;21,"67228029303 ")
 ;;4474
 ;;21,"67228029306 ")
 ;;4475
 ;;21,"67228031703 ")
 ;;4476
 ;;21,"67228031706 ")
 ;;4477
 ;;21,"67228031803 ")
 ;;4478
 ;;21,"67228031806 ")
 ;;4479
 ;;21,"67228034503 ")
 ;;4480
 ;;21,"67228034506 ")
 ;;4481
 ;;21,"67228044103 ")
 ;;4482
 ;;21,"67228044106 ")
 ;;4483
 ;;21,"67228046003 ")
 ;;4484
 ;;21,"67228046006 ")
 ;;4485
 ;;21,"67263040630 ")
 ;;4486
 ;;21,"67296054201 ")
 ;;4487
 ;;21,"67296062201 ")
 ;;4488
 ;;21,"67296062202 ")
 ;;4489
 ;;21,"67296063001 ")
 ;;4490
 ;;21,"67544004215 ")
 ;;4491
 ;;21,"67544004230 ")
 ;;4492
 ;;21,"67544004245 ")
 ;;4493
 ;;21,"67544004253 ")
 ;;4494
 ;;21,"67544004260 ")
 ;;4495
 ;;21,"67544004270 ")
 ;;4496
 ;;21,"67544004273 ")
 ;;4497
 ;;21,"67544004280 ")
 ;;4498
 ;;21,"67544004292 ")
 ;;4499
 ;;21,"67544004294 ")
 ;;4500
 ;;21,"67544006230 ")
 ;;4501
 ;;21,"67544006260 ")
 ;;4502
 ;;21,"67544006282 ")
 ;;4503
 ;;21,"67544012815 ")
 ;;4504
 ;;21,"67544012830 ")
 ;;4505
 ;;21,"67544012845 ")
 ;;4506
 ;;21,"67544012853 ")
 ;;4507
 ;;21,"67544012860 ")
 ;;4508
 ;;21,"67544013415 ")
 ;;4509
 ;;21,"67544013430 ")
 ;;4510
 ;;21,"67544013445 ")
 ;;4511
 ;;21,"67544013460 ")
 ;;4512
 ;;21,"67544013480 ")
 ;;4513
 ;;21,"67544014815 ")
 ;;4514
 ;;21,"67544014830 ")
 ;;4515
 ;;21,"67544014831 ")
 ;;4516
 ;;21,"67544014845 ")
 ;;4517
 ;;21,"67544014853 ")
 ;;4518
 ;;21,"67544014860 ")
 ;;4519
 ;;21,"67544014880 ")
 ;;4520
 ;;21,"67544015060 ")
 ;;4521
 ;;21,"67544015073 ")
 ;;4522