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