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

BGPM5AU.m

Go to the documentation of this file.
  1. BGPM5AU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"63629131703 ")
  1. ;;4325
  1. ;;21,"63629131704 ")
  1. ;;4326
  1. ;;21,"63629131705 ")
  1. ;;4327
  1. ;;21,"63629131900 ")
  1. ;;4328
  1. ;;21,"63629131901 ")
  1. ;;4329
  1. ;;21,"63629131902 ")
  1. ;;4330
  1. ;;21,"63629131903 ")
  1. ;;4331
  1. ;;21,"63629131904 ")
  1. ;;4332
  1. ;;21,"63629131905 ")
  1. ;;4333
  1. ;;21,"63629131906 ")
  1. ;;4334
  1. ;;21,"63629131907 ")
  1. ;;4335
  1. ;;21,"63629131908 ")
  1. ;;4336
  1. ;;21,"63629131909 ")
  1. ;;4337
  1. ;;21,"63629132001 ")
  1. ;;4338
  1. ;;21,"63629132002 ")
  1. ;;4339
  1. ;;21,"63629132003 ")
  1. ;;4340
  1. ;;21,"63629132004 ")
  1. ;;4341
  1. ;;21,"63629132005 ")
  1. ;;4342
  1. ;;21,"63629132006 ")
  1. ;;4343
  1. ;;21,"63629132007 ")
  1. ;;4344
  1. ;;21,"63629132008 ")
  1. ;;4345
  1. ;;21,"63629132101 ")
  1. ;;4346
  1. ;;21,"63629132102 ")
  1. ;;4347
  1. ;;21,"63629132103 ")
  1. ;;4348
  1. ;;21,"63629132601 ")
  1. ;;4349
  1. ;;21,"63629132602 ")
  1. ;;4350
  1. ;;21,"63629132603 ")
  1. ;;4351
  1. ;;21,"63629132604 ")
  1. ;;4352
  1. ;;21,"63629132605 ")
  1. ;;4353
  1. ;;21,"63629132606 ")
  1. ;;4354
  1. ;;21,"63629132607 ")
  1. ;;4355
  1. ;;21,"63629132608 ")
  1. ;;4356
  1. ;;21,"63629132609 ")
  1. ;;4357
  1. ;;21,"63629134801 ")
  1. ;;4358
  1. ;;21,"63629134802 ")
  1. ;;4359
  1. ;;21,"63629134803 ")
  1. ;;4360
  1. ;;21,"63629135001 ")
  1. ;;4361
  1. ;;21,"63629135002 ")
  1. ;;4362
  1. ;;21,"63629135003 ")
  1. ;;4363
  1. ;;21,"63629135101 ")
  1. ;;4364
  1. ;;21,"63629135102 ")
  1. ;;4365
  1. ;;21,"63629135103 ")
  1. ;;4366
  1. ;;21,"63629135104 ")
  1. ;;4367
  1. ;;21,"63629135701 ")
  1. ;;4368
  1. ;;21,"63629135702 ")
  1. ;;4369
  1. ;;21,"63629135703 ")
  1. ;;4370
  1. ;;21,"63629135801 ")
  1. ;;4371
  1. ;;21,"63629135802 ")
  1. ;;4372
  1. ;;21,"63629135803 ")
  1. ;;4373
  1. ;;21,"63629135804 ")
  1. ;;4374
  1. ;;21,"63629135805 ")
  1. ;;4375
  1. ;;21,"63629135806 ")
  1. ;;4376
  1. ;;21,"63629135807 ")
  1. ;;4377
  1. ;;21,"63629135808 ")
  1. ;;4378
  1. ;;21,"63629150101 ")
  1. ;;4379
  1. ;;21,"63629150102 ")
  1. ;;4380
  1. ;;21,"63629150103 ")
  1. ;;4381
  1. ;;21,"63629150104 ")
  1. ;;4382
  1. ;;21,"63629150105 ")
  1. ;;4383
  1. ;;21,"63629150201 ")
  1. ;;4384
  1. ;;21,"63629150202 ")
  1. ;;4385
  1. ;;21,"63629150203 ")
  1. ;;4386
  1. ;;21,"63629150204 ")
  1. ;;4387
  1. ;;21,"63629150205 ")
  1. ;;4388
  1. ;;21,"63629150206 ")
  1. ;;4389
  1. ;;21,"63629150207 ")
  1. ;;4390
  1. ;;21,"63629153101 ")
  1. ;;4391
  1. ;;21,"63629153102 ")
  1. ;;4392
  1. ;;21,"63629153103 ")
  1. ;;4393
  1. ;;21,"63629153104 ")
  1. ;;4394
  1. ;;21,"63629153105 ")
  1. ;;4395
  1. ;;21,"63629153106 ")
  1. ;;4396
  1. ;;21,"63629153107 ")
  1. ;;4397
  1. ;;21,"63629153108 ")
  1. ;;4398
  1. ;;21,"63629153109 ")
  1. ;;4399
  1. ;;21,"63629161401 ")
  1. ;;4400
  1. ;;21,"63629161402 ")
  1. ;;4401
  1. ;;21,"63629161403 ")
  1. ;;4402
  1. ;;21,"63629172400 ")
  1. ;;4403
  1. ;;21,"63629172401 ")
  1. ;;4404
  1. ;;21,"63629172402 ")
  1. ;;4405
  1. ;;21,"63629172403 ")
  1. ;;4406
  1. ;;21,"63629172404 ")
  1. ;;4407
  1. ;;21,"63629172405 ")
  1. ;;4408
  1. ;;21,"63629172406 ")
  1. ;;4409
  1. ;;21,"63629172407 ")
  1. ;;4410
  1. ;;21,"63629172408 ")
  1. ;;4411
  1. ;;21,"63629172409 ")
  1. ;;4412
  1. ;;21,"63629175901 ")
  1. ;;4413
  1. ;;21,"63629175902 ")
  1. ;;4414
  1. ;;21,"63629175903 ")
  1. ;;4415
  1. ;;21,"63629175904 ")
  1. ;;4416
  1. ;;21,"63629175905 ")
  1. ;;4417
  1. ;;21,"63629176500 ")
  1. ;;4418
  1. ;;21,"63629176501 ")
  1. ;;4419
  1. ;;21,"63629176502 ")
  1. ;;4420
  1. ;;21,"63629176503 ")
  1. ;;4421
  1. ;;21,"63629176504 ")
  1. ;;4422
  1. ;;21,"63629176505 ")
  1. ;;4423
  1. ;;21,"63629176506 ")
  1. ;;4424
  1. ;;21,"63629176507 ")
  1. ;;4425
  1. ;;21,"63629176508 ")
  1. ;;4426
  1. ;;21,"63629176509 ")
  1. ;;4427
  1. ;;21,"63629183401 ")
  1. ;;4428
  1. ;;21,"63629183402 ")
  1. ;;4429
  1. ;;21,"63629183403 ")
  1. ;;4430
  1. ;;21,"63629183404 ")
  1. ;;4431
  1. ;;21,"63629183501 ")
  1. ;;4432
  1. ;;21,"63629183502 ")
  1. ;;4433
  1. ;;21,"63629183503 ")
  1. ;;4434
  1. ;;21,"63629260901 ")
  1. ;;4435
  1. ;;21,"63629260902 ")
  1. ;;4436
  1. ;;21,"63629260903 ")
  1. ;;4437
  1. ;;21,"63629261001 ")
  1. ;;4438
  1. ;;21,"63629261002 ")
  1. ;;4439
  1. ;;21,"63629261003 ")
  1. ;;4440
  1. ;;21,"63629268501 ")
  1. ;;4441
  1. ;;21,"63629268502 ")
  1. ;;4442
  1. ;;21,"63629273801 ")
  1. ;;4443
  1. ;;21,"63629273802 ")
  1. ;;4444
  1. ;;21,"63629275501 ")
  1. ;;4445
  1. ;;21,"63629275502 ")
  1. ;;4446
  1. ;;21,"63629275901 ")
  1. ;;4447
  1. ;;21,"63629275902 ")
  1. ;;4448
  1. ;;21,"63629275903 ")
  1. ;;4449
  1. ;;21,"63629275904 ")
  1. ;;4450
  1. ;;21,"63629275905 ")
  1. ;;4451
  1. ;;21,"63629279601 ")
  1. ;;4452
  1. ;;21,"63629279602 ")
  1. ;;4453
  1. ;;21,"63629281700 ")
  1. ;;4454
  1. ;;21,"63629281701 ")
  1. ;;4455
  1. ;;21,"63629281702 ")
  1. ;;4456
  1. ;;21,"63629281703 ")
  1. ;;4457
  1. ;;21,"63629281704 ")
  1. ;;4458
  1. ;;21,"63629281705 ")
  1. ;;4459
  1. ;;21,"63629281706 ")
  1. ;;4460
  1. ;;21,"63629281707 ")
  1. ;;4461
  1. ;;21,"63629281708 ")
  1. ;;4462
  1. ;;21,"63629281709 ")
  1. ;;4463
  1. ;;21,"63629287101 ")
  1. ;;4464
  1. ;;21,"63629288701 ")
  1. ;;4465
  1. ;;21,"63629288702 ")
  1. ;;4466
  1. ;;21,"63629288703 ")
  1. ;;4467
  1. ;;21,"63629288704 ")
  1. ;;4468
  1. ;;21,"63629289501 ")
  1. ;;4469
  1. ;;21,"63629289502 ")
  1. ;;4470
  1. ;;21,"63629292401 ")
  1. ;;4471
  1. ;;21,"63629292402 ")
  1. ;;4472
  1. ;;21,"63629292403 ")
  1. ;;4473
  1. ;;21,"63629292404 ")
  1. ;;4474
  1. ;;21,"63629292405 ")
  1. ;;4475
  1. ;;21,"63629292406 ")
  1. ;;4476
  1. ;;21,"63629292407 ")
  1. ;;4477
  1. ;;21,"63629293801 ")
  1. ;;4478
  1. ;;21,"63629305701 ")
  1. ;;4479
  1. ;;21,"63629356201 ")
  1. ;;4480
  1. ;;21,"63629356202 ")
  1. ;;4481
  1. ;;21,"63629367101 ")
  1. ;;4482
  1. ;;21,"63629367102 ")
  1. ;;4483
  1. ;;21,"63629367103 ")
  1. ;;4484
  1. ;;21,"63629367104 ")
  1. ;;4485
  1. ;;21,"63629367105 ")
  1. ;;4486
  1. ;;21,"63629386801 ")
  1. ;;4487
  1. ;;21,"63629386802 ")
  1. ;;4488
  1. ;;21,"63629386803 ")
  1. ;;4489
  1. ;;21,"63629386804 ")
  1. ;;4490
  1. ;;21,"63629386805 ")
  1. ;;4491
  1. ;;21,"63739005910 ")
  1. ;;4492
  1. ;;21,"63739022810 ")
  1. ;;4493
  1. ;;21,"63739040010 ")
  1. ;;4494
  1. ;;21,"63739042710 ")
  1. ;;4495
  1. ;;21,"63739049142 ")
  1. ;;4496
  1. ;;21,"63874010101 ")
  1. ;;4497
  1. ;;21,"63874010103 ")
  1. ;;4498
  1. ;;21,"63874010105 ")
  1. ;;4499
  1. ;;21,"63874010109 ")
  1. ;;4500
  1. ;;21,"63874010115 ")
  1. ;;4501
  1. ;;21,"63874010118 ")
  1. ;;4502
  1. ;;21,"63874010120 ")
  1. ;;4503
  1. ;;21,"63874010121 ")
  1. ;;4504
  1. ;;21,"63874010124 ")
  1. ;;4505
  1. ;;21,"63874010128 ")
  1. ;;4506
  1. ;;21,"63874010130 ")
  1. ;;4507
  1. ;;21,"63874010140 ")
  1. ;;4508
  1. ;;21,"63874010145 ")
  1. ;;4509
  1. ;;21,"63874010150 ")
  1. ;;4510
  1. ;;21,"63874010201 ")
  1. ;;4511
  1. ;;21,"63874010203 ")
  1. ;;4512
  1. ;;21,"63874010204 ")
  1. ;;4513
  1. ;;21,"63874010205 ")
  1. ;;4514
  1. ;;21,"63874010209 ")
  1. ;;4515
  1. ;;21,"63874010210 ")
  1. ;;4516
  1. ;;21,"63874010212 ")
  1. ;;4517
  1. ;;21,"63874010214 ")
  1. ;;4518
  1. ;;21,"63874010215 ")
  1. ;;4519
  1. ;;21,"63874010218 ")
  1. ;;4520
  1. ;;21,"63874010220 ")
  1. ;;4521
  1. ;;21,"63874010221 ")
  1. ;;4522
  1. ;;21,"63874010224 ")
  1. ;;4523
  1. ;;21,"63874010228 ")
  1. ;;4524
  1. ;;21,"63874010230 ")
  1. ;;4525
  1. ;;21,"63874010240 ")
  1. ;;4526
  1. ;;21,"63874010245 ")
  1. ;;4527
  1. ;;21,"63874010250 ")
  1. ;;4528
  1. ;;21,"63874010801 ")
  1. ;;4529
  1. ;;21,"63874010810 ")
  1. ;;4530
  1. ;;21,"63874010812 ")
  1. ;;4531
  1. ;;21,"63874010814 ")
  1. ;;4532
  1. ;;21,"63874010815 ")
  1. ;;4533
  1. ;;21,"63874010818 ")
  1. ;;4534
  1. ;;21,"63874010820 ")
  1. ;;4535
  1. ;;21,"63874010824 ")
  1. ;;4536
  1. ;;21,"63874010828 ")
  1. ;;4537
  1. ;;21,"63874010830 ")
  1. ;;4538
  1. ;;21,"63874010840 ")
  1. ;;4539
  1. ;;21,"63874010860 ")
  1. ;;4540
  1. ;;21,"63874010903 ")
  1. ;;4541
  1. ;;21,"63874010910 ")
  1. ;;4542
  1. ;;21,"63874010912 ")
  1. ;;4543
  1. ;;21,"63874010914 ")
  1. ;;4544
  1. ;;21,"63874010915 ")
  1. ;;4545
  1. ;;21,"63874010916 ")
  1. ;;4546
  1. ;;21,"63874010918 ")
  1. ;;4547
  1. ;;21,"63874010920 ")
  1. ;;4548
  1. ;;21,"63874010921 ")
  1. ;;4549
  1. ;;21,"63874010924 ")
  1. ;;4550
  1. ;;21,"63874010928 ")
  1. ;;4551
  1. ;;21,"63874010930 ")
  1. ;;4552
  1. ;;21,"63874010940 ")
  1. ;;4553
  1. ;;21,"63874010950 ")
  1. ;;4554
  1. ;;21,"63874010960 ")
  1. ;;4555
  1. ;;21,"63874011001 ")
  1. ;;4556
  1. ;;21,"63874011020 ")
  1. ;;4557
  1. ;;21,"63874011028 ")
  1. ;;4558
  1. ;;21,"63874011030 ")
  1. ;;4559
  1. ;;21,"63874011040 ")
  1. ;;4560
  1. ;;21,"63874011050 ")
  1. ;;4561
  1. ;;21,"63874011101 ")
  1. ;;4562
  1. ;;21,"63874011103 ")
  1. ;;4563
  1. ;;21,"63874011104 ")
  1. ;;4564
  1. ;;21,"63874011112 ")
  1. ;;4565
  1. ;;21,"63874011114 ")
  1. ;;4566
  1. ;;21,"63874011115 ")
  1. ;;4567
  1. ;;21,"63874011116 ")
  1. ;;4568
  1. ;;21,"63874011120 ")
  1. ;;4569
  1. ;;21,"63874011121 ")
  1. ;;4570
  1. ;;21,"63874011124 ")
  1. ;;4571
  1. ;;21,"63874011128 ")
  1. ;;4572
  1. ;;21,"63874011130 ")
  1. ;;4573
  1. ;;21,"63874011140 ")
  1. ;;4574
  1. ;;21,"63874011150 ")
  1. ;;4575
  1. ;;21,"63874011156 ")
  1. ;;4576
  1. ;;21,"63874011160 ")
  1. ;;4577
  1. ;;21,"63874011172 ")
  1. ;;4578
  1. ;;21,"63874011174 ")
  1. ;;4579
  1. ;;21,"63874011177 ")
  1. ;;4580
  1. ;;21,"63874011180 ")
  1. ;;4581
  1. ;;21,"63874011201 ")
  1. ;;4582
  1. ;;21,"63874011203 ")
  1. ;;4583
  1. ;;21,"63874011204 ")
  1. ;;4584
  1. ;;21,"63874011205 ")
  1. ;;4585
  1. ;;21,"63874011206 ")
  1. ;;4586
  1. ;;21,"63874011208 ")
  1. ;;4587
  1. ;;21,"63874011210 ")
  1. ;;4588
  1. ;;21,"63874011212 ")
  1. ;;4589
  1. ;;21,"63874011214 ")
  1. ;;4590
  1. ;;21,"63874011215 ")
  1. ;;4591
  1. ;;21,"63874011216 ")
  1. ;;4592
  1. ;;21,"63874011218 ")
  1. ;;4593
  1. ;;21,"63874011220 ")
  1. ;;4594
  1. ;;21,"63874011221 ")
  1. ;;4595
  1. ;;21,"63874011224 ")
  1. ;;4596
  1. ;;21,"63874011225 ")
  1. ;;4597
  1. ;;21,"63874011228 ")
  1. ;;4598
  1. ;;21,"63874011230 ")
  1. ;;4599
  1. ;;21,"63874011240 ")
  1. ;;4600
  1. ;;21,"63874011250 ")
  1. ;;4601
  1. ;;21,"63874011256 ")
  1. ;;4602
  1. ;;21,"63874011260 ")
  1. ;;4603
  1. ;;21,"63874011272 ")
  1. ;;4604
  1. ;;21,"63874011274 ")
  1. ;;4605
  1. ;;21,"63874011277 ")
  1. ;;4606
  1. ;;21,"63874011301 ")
  1. ;;4607
  1. ;;21,"63874011303 ")
  1. ;;4608
  1. ;;21,"63874011308 ")
  1. ;;4609
  1. ;;21,"63874011309 ")
  1. ;;4610
  1. ;;21,"63874011310 ")
  1. ;;4611
  1. ;;21,"63874011312 ")
  1. ;;4612
  1. ;;21,"63874011314 ")
  1. ;;4613
  1. ;;21,"63874011315 ")
  1. ;;4614
  1. ;;21,"63874011320 ")
  1. ;;4615
  1. ;;21,"63874011321 ")
  1. ;;4616
  1. ;;21,"63874011324 ")
  1. ;;4617
  1. ;;21,"63874011328 ")
  1. ;;4618
  1. ;;21,"63874011330 ")
  1. ;;4619
  1. ;;21,"63874011340 ")
  1. ;;4620
  1. ;;21,"63874011350 ")
  1. ;;4621
  1. ;;21,"63874011401 ")
  1. ;;4622
  1. ;;21,"63874011403 ")
  1. ;;4623
  1. ;;21,"63874011407 ")
  1. ;;4624
  1. ;;21,"63874011410 ")
  1. ;;4625
  1. ;;21,"63874011420 ")
  1. ;;4626
  1. ;;21,"63874011421 ")
  1. ;;4627
  1. ;;21,"63874011424 ")
  1. ;;4628
  1. ;;21,"63874011425 ")
  1. ;;4629
  1. ;;21,"63874011428 ")
  1. ;;4630
  1. ;;21,"63874011430 ")
  1. ;;4631
  1. ;;21,"63874011440 ")
  1. ;;4632
  1. ;;21,"63874011450 ")
  1. ;;4633
  1. ;;21,"63874011801 ")
  1. ;;4634
  1. ;;21,"63874011803 ")
  1. ;;4635
  1. ;;21,"63874011806 ")
  1. ;;4636
  1. ;;21,"63874011807 ")
  1. ;;4637
  1. ;;21,"63874011810 ")
  1. ;;4638
  1. ;;21,"63874011812 ")
  1. ;;4639
  1. ;;21,"63874011814 ")
  1. ;;4640
  1. ;;21,"63874011815 ")
  1. ;;4641
  1. ;;21,"63874011818 ")
  1. ;;4642
  1. ;;21,"63874011820 ")
  1. ;;4643
  1. ;;21,"63874011821 ")
  1. ;;4644
  1. ;;21,"63874011824 ")
  1. ;;4645
  1. ;;21,"63874011828 ")
  1. ;;4646
  1. ;;21,"63874011830 ")
  1. ;;4647
  1. ;;21,"63874011840 ")
  1. ;;4648
  1. ;;21,"63874011850 ")
  1. ;;4649
  1. ;;21,"63874011860 ")
  1. ;;4650
  1. ;;21,"63874011901 ")
  1. ;;4651
  1. ;;21,"63874011921 ")
  1. ;;4652
  1. ;;21,"63874011930 ")
  1. ;;4653
  1. ;;21,"63874012001 ")
  1. ;;4654
  1. ;;21,"63874012012 ")
  1. ;;4655
  1. ;;21,"63874012020 ")
  1. ;;4656
  1. ;;21,"63874012030 ")
  1. ;;4657
  1. ;;21,"63874012301 ")
  1. ;;4658
  1. ;;21,"63874012312 ")
  1. ;;4659
  1. ;;21,"63874012314 ")
  1. ;;4660
  1. ;;21,"63874012315 ")
  1. ;;4661
  1. ;;21,"63874012320 ")
  1. ;;4662
  1. ;;21,"63874012321 ")
  1. ;;4663
  1. ;;21,"63874012324 ")
  1. ;;4664
  1. ;;21,"63874012328 ")
  1. ;;4665
  1. ;;21,"63874012330 ")
  1. ;;4666
  1. ;;21,"63874012340 ")
  1. ;;4667
  1. ;;21,"63874012350 ")
  1. ;;4668
  1. ;;21,"63874012360 ")
  1. ;;4669
  1. ;;21,"63874012401 ")
  1. ;;4670
  1. ;;21,"63874012402 ")
  1. ;;4671
  1. ;;21,"63874012410 ")
  1. ;;4672
  1. ;;21,"63874012412 ")
  1. ;;4673
  1. ;;21,"63874012414 ")
  1. ;;4674
  1. ;;21,"63874012415 ")
  1. ;;4675
  1. ;;21,"63874012420 ")
  1. ;;4676