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

BGPM5BBB.m

Go to the documentation of this file.
  1. BGPM5BBB ;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,"58864087730 ")
  1. ;;4411
  1. ;;21,"59115005301 ")
  1. ;;4412
  1. ;;21,"59115005333 ")
  1. ;;4413
  1. ;;21,"59115005350 ")
  1. ;;4414
  1. ;;21,"59115005355 ")
  1. ;;4415
  1. ;;21,"59115005401 ")
  1. ;;4416
  1. ;;21,"59115005433 ")
  1. ;;4417
  1. ;;21,"59115005455 ")
  1. ;;4418
  1. ;;21,"59115005501 ")
  1. ;;4419
  1. ;;21,"59115005533 ")
  1. ;;4420
  1. ;;21,"59115005555 ")
  1. ;;4421
  1. ;;21,"59762011901 ")
  1. ;;4422
  1. ;;21,"59762018001 ")
  1. ;;4423
  1. ;;21,"59762018002 ")
  1. ;;4424
  1. ;;21,"59762018003 ")
  1. ;;4425
  1. ;;21,"59762018004 ")
  1. ;;4426
  1. ;;21,"59762018101 ")
  1. ;;4427
  1. ;;21,"59762018102 ")
  1. ;;4428
  1. ;;21,"59762018103 ")
  1. ;;4429
  1. ;;21,"59762018104 ")
  1. ;;4430
  1. ;;21,"59762018201 ")
  1. ;;4431
  1. ;;21,"59762018202 ")
  1. ;;4432
  1. ;;21,"59762018203 ")
  1. ;;4433
  1. ;;21,"59762018204 ")
  1. ;;4434
  1. ;;21,"59762141007 ")
  1. ;;4435
  1. ;;21,"59762141207 ")
  1. ;;4436
  1. ;;21,"59762141407 ")
  1. ;;4437
  1. ;;21,"59762141503 ")
  1. ;;4438
  1. ;;21,"59762141505 ")
  1. ;;4439
  1. ;;21,"59762141506 ")
  1. ;;4440
  1. ;;21,"59762141509 ")
  1. ;;4441
  1. ;;21,"59762141603 ")
  1. ;;4442
  1. ;;21,"59762141605 ")
  1. ;;4443
  1. ;;21,"59762141606 ")
  1. ;;4444
  1. ;;21,"59762141609 ")
  1. ;;4445
  1. ;;21,"59762141703 ")
  1. ;;4446
  1. ;;21,"59762141705 ")
  1. ;;4447
  1. ;;21,"59762141706 ")
  1. ;;4448
  1. ;;21,"59762141709 ")
  1. ;;4449
  1. ;;21,"59762141803 ")
  1. ;;4450
  1. ;;21,"59762141805 ")
  1. ;;4451
  1. ;;21,"59762141806 ")
  1. ;;4452
  1. ;;21,"59762141809 ")
  1. ;;4453
  1. ;;21,"59762180801 ")
  1. ;;4454
  1. ;;21,"59762180802 ")
  1. ;;4455
  1. ;;21,"59762180803 ")
  1. ;;4456
  1. ;;21,"59762181001 ")
  1. ;;4457
  1. ;;21,"59762181002 ")
  1. ;;4458
  1. ;;21,"59762181003 ")
  1. ;;4459
  1. ;;21,"59762181004 ")
  1. ;;4460
  1. ;;21,"59762181201 ")
  1. ;;4461
  1. ;;21,"59762181202 ")
  1. ;;4462
  1. ;;21,"59762181203 ")
  1. ;;4463
  1. ;;21,"59762181501 ")
  1. ;;4464
  1. ;;21,"59762181502 ")
  1. ;;4465
  1. ;;21,"59762181503 ")
  1. ;;4466
  1. ;;21,"59762348003 ")
  1. ;;4467
  1. ;;21,"59762348102 ")
  1. ;;4468
  1. ;;21,"59762348202 ")
  1. ;;4469
  1. ;;21,"59762348302 ")
  1. ;;4470
  1. ;;21,"59762348402 ")
  1. ;;4471
  1. ;;21,"59762480001 ")
  1. ;;4472
  1. ;;21,"59762480003 ")
  1. ;;4473
  1. ;;21,"59762480005 ")
  1. ;;4474
  1. ;;21,"59762480006 ")
  1. ;;4475
  1. ;;21,"59762480101 ")
  1. ;;4476
  1. ;;21,"59762480103 ")
  1. ;;4477
  1. ;;21,"59762480105 ")
  1. ;;4478
  1. ;;21,"59762480106 ")
  1. ;;4479
  1. ;;21,"59762480201 ")
  1. ;;4480
  1. ;;21,"59762480203 ")
  1. ;;4481
  1. ;;21,"59762480205 ")
  1. ;;4482
  1. ;;21,"59762480206 ")
  1. ;;4483
  1. ;;21,"59762490001 ")
  1. ;;4484
  1. ;;21,"59762490002 ")
  1. ;;4485
  1. ;;21,"59762490003 ")
  1. ;;4486
  1. ;;21,"59762490004 ")
  1. ;;4487
  1. ;;21,"59762490005 ")
  1. ;;4488
  1. ;;21,"59762491001 ")
  1. ;;4489
  1. ;;21,"59762491002 ")
  1. ;;4490
  1. ;;21,"59762491003 ")
  1. ;;4491
  1. ;;21,"59762491004 ")
  1. ;;4492
  1. ;;21,"59762491005 ")
  1. ;;4493
  1. ;;21,"59762494001 ")
  1. ;;4494
  1. ;;21,"59762496001 ")
  1. ;;4495
  1. ;;21,"59772090810 ")
  1. ;;4496
  1. ;;21,"59772090820 ")
  1. ;;4497
  1. ;;21,"59772317101 ")
  1. ;;4498
  1. ;;21,"59772317102 ")
  1. ;;4499
  1. ;;21,"60258083008 ")
  1. ;;4500
  1. ;;21,"60429001612 ")
  1. ;;4501
  1. ;;21,"60429001618 ")
  1. ;;4502
  1. ;;21,"60429001630 ")
  1. ;;4503
  1. ;;21,"60429001660 ")
  1. ;;4504
  1. ;;21,"60429001690 ")
  1. ;;4505
  1. ;;21,"60429001730 ")
  1. ;;4506
  1. ;;21,"60429001960 ")
  1. ;;4507
  1. ;;21,"60429017301 ")
  1. ;;4508
  1. ;;21,"60429017310 ")
  1. ;;4509
  1. ;;21,"60429017330 ")
  1. ;;4510
  1. ;;21,"60429017401 ")
  1. ;;4511
  1. ;;21,"60429017410 ")
  1. ;;4512
  1. ;;21,"60429017430 ")
  1. ;;4513
  1. ;;21,"60429017501 ")
  1. ;;4514
  1. ;;21,"60429017510 ")
  1. ;;4515
  1. ;;21,"60429017530 ")
  1. ;;4516
  1. ;;21,"60429018701 ")
  1. ;;4517
  1. ;;21,"60429018705 ")
  1. ;;4518
  1. ;;21,"60429018730 ")
  1. ;;4519
  1. ;;21,"60429018760 ")
  1. ;;4520
  1. ;;21,"60429018790 ")
  1. ;;4521
  1. ;;21,"60429018801 ")
  1. ;;4522
  1. ;;21,"60429018805 ")
  1. ;;4523
  1. ;;21,"60429018830 ")
  1. ;;4524
  1. ;;21,"60429018860 ")
  1. ;;4525
  1. ;;21,"60429018890 ")
  1. ;;4526
  1. ;;21,"60429023001 ")
  1. ;;4527
  1. ;;21,"60429023005 ")
  1. ;;4528
  1. ;;21,"60429023030 ")
  1. ;;4529
  1. ;;21,"60429023090 ")
  1. ;;4530
  1. ;;21,"60429028730 ")
  1. ;;4531
  1. ;;21,"60429028790 ")
  1. ;;4532
  1. ;;21,"60429028830 ")
  1. ;;4533
  1. ;;21,"60429028890 ")
  1. ;;4534
  1. ;;21,"60429071818 ")
  1. ;;4535
  1. ;;21,"60429071830 ")
  1. ;;4536
  1. ;;21,"60429071860 ")
  1. ;;4537
  1. ;;21,"60429071890 ")
  1. ;;4538
  1. ;;21,"60429071918 ")
  1. ;;4539
  1. ;;21,"60429071930 ")
  1. ;;4540
  1. ;;21,"60429071960 ")
  1. ;;4541
  1. ;;21,"60429071990 ")
  1. ;;4542
  1. ;;21,"60429073405 ")
  1. ;;4543
  1. ;;21,"60429073430 ")
  1. ;;4544
  1. ;;21,"60429073490 ")
  1. ;;4545
  1. ;;21,"60429073501 ")
  1. ;;4546
  1. ;;21,"60429073505 ")
  1. ;;4547
  1. ;;21,"60429073530 ")
  1. ;;4548
  1. ;;21,"60429073590 ")
  1. ;;4549
  1. ;;21,"60429073605 ")
  1. ;;4550
  1. ;;21,"60429073630 ")
  1. ;;4551
  1. ;;21,"60429073690 ")
  1. ;;4552
  1. ;;21,"60429073705 ")
  1. ;;4553
  1. ;;21,"60429073715 ")
  1. ;;4554
  1. ;;21,"60429073730 ")
  1. ;;4555
  1. ;;21,"60429073745 ")
  1. ;;4556
  1. ;;21,"60429073790 ")
  1. ;;4557
  1. ;;21,"60429075801 ")
  1. ;;4558
  1. ;;21,"60429075901 ")
  1. ;;4559
  1. ;;21,"60429075930 ")
  1. ;;4560
  1. ;;21,"60429075990 ")
  1. ;;4561
  1. ;;21,"60429076001 ")
  1. ;;4562
  1. ;;21,"60429076030 ")
  1. ;;4563
  1. ;;21,"60429076090 ")
  1. ;;4564
  1. ;;21,"60429093001 ")
  1. ;;4565
  1. ;;21,"60429093005 ")
  1. ;;4566
  1. ;;21,"60429093030 ")
  1. ;;4567
  1. ;;21,"60429093090 ")
  1. ;;4568
  1. ;;21,"60429098701 ")
  1. ;;4569
  1. ;;21,"60429098705 ")
  1. ;;4570
  1. ;;21,"60429098730 ")
  1. ;;4571
  1. ;;21,"60429098760 ")
  1. ;;4572
  1. ;;21,"60429098790 ")
  1. ;;4573
  1. ;;21,"60429098801 ")
  1. ;;4574
  1. ;;21,"60429098805 ")
  1. ;;4575
  1. ;;21,"60429098830 ")
  1. ;;4576
  1. ;;21,"60505005501 ")
  1. ;;4577
  1. ;;21,"60505005502 ")
  1. ;;4578
  1. ;;21,"60505005503 ")
  1. ;;4579
  1. ;;21,"60505008300 ")
  1. ;;4580
  1. ;;21,"60505008301 ")
  1. ;;4581
  1. ;;21,"60505008302 ")
  1. ;;4582
  1. ;;21,"60505008304 ")
  1. ;;4583
  1. ;;21,"60505008305 ")
  1. ;;4584
  1. ;;21,"60505008309 ")
  1. ;;4585
  1. ;;21,"60505008401 ")
  1. ;;4586
  1. ;;21,"60505008402 ")
  1. ;;4587
  1. ;;21,"60505008404 ")
  1. ;;4588
  1. ;;21,"60505009701 ")
  1. ;;4589
  1. ;;21,"60505009702 ")
  1. ;;4590
  1. ;;21,"60505009704 ")
  1. ;;4591
  1. ;;21,"60505009705 ")
  1. ;;4592
  1. ;;21,"60505009707 ")
  1. ;;4593
  1. ;;21,"60505009709 ")
  1. ;;4594
  1. ;;21,"60505010101 ")
  1. ;;4595
  1. ;;21,"60505010102 ")
  1. ;;4596
  1. ;;21,"60505010104 ")
  1. ;;4597
  1. ;;21,"60505010105 ")
  1. ;;4598
  1. ;;21,"60505010107 ")
  1. ;;4599
  1. ;;21,"60505010109 ")
  1. ;;4600
  1. ;;21,"60505016401 ")
  1. ;;4601
  1. ;;21,"60505016402 ")
  1. ;;4602
  1. ;;21,"60505016501 ")
  1. ;;4603
  1. ;;21,"60505016502 ")
  1. ;;4604
  1. ;;21,"60505016601 ")
  1. ;;4605
  1. ;;21,"60505016602 ")
  1. ;;4606
  1. ;;21,"60505018002 ")
  1. ;;4607
  1. ;;21,"60505018003 ")
  1. ;;4608
  1. ;;21,"60505018006 ")
  1. ;;4609
  1. ;;21,"60505018007 ")
  1. ;;4610
  1. ;;21,"60505018008 ")
  1. ;;4611
  1. ;;21,"60505018009 ")
  1. ;;4612
  1. ;;21,"60505018102 ")
  1. ;;4613
  1. ;;21,"60505018103 ")
  1. ;;4614
  1. ;;21,"60505018106 ")
  1. ;;4615
  1. ;;21,"60505018107 ")
  1. ;;4616
  1. ;;21,"60505018108 ")
  1. ;;4617
  1. ;;21,"60505018109 ")
  1. ;;4618
  1. ;;21,"60505018202 ")
  1. ;;4619
  1. ;;21,"60505018203 ")
  1. ;;4620
  1. ;;21,"60505018206 ")
  1. ;;4621
  1. ;;21,"60505018207 ")
  1. ;;4622
  1. ;;21,"60505018208 ")
  1. ;;4623
  1. ;;21,"60505018209 ")
  1. ;;4624
  1. ;;21,"60505024701 ")
  1. ;;4625
  1. ;;21,"60505024703 ")
  1. ;;4626
  1. ;;21,"60505024705 ")
  1. ;;4627
  1. ;;21,"60505024708 ")
  1. ;;4628
  1. ;;21,"60505024801 ")
  1. ;;4629
  1. ;;21,"60505024803 ")
  1. ;;4630
  1. ;;21,"60505024805 ")
  1. ;;4631
  1. ;;21,"60505024808 ")
  1. ;;4632
  1. ;;21,"60505024901 ")
  1. ;;4633
  1. ;;21,"60505024903 ")
  1. ;;4634
  1. ;;21,"60505024905 ")
  1. ;;4635
  1. ;;21,"60505024908 ")
  1. ;;4636
  1. ;;21,"60505037401 ")
  1. ;;4637
  1. ;;21,"60505251801 ")
  1. ;;4638
  1. ;;21,"60505251803 ")
  1. ;;4639
  1. ;;21,"60505251804 ")
  1. ;;4640
  1. ;;21,"60505251808 ")
  1. ;;4641
  1. ;;21,"60505251901 ")
  1. ;;4642
  1. ;;21,"60505251903 ")
  1. ;;4643
  1. ;;21,"60505251904 ")
  1. ;;4644
  1. ;;21,"60505251908 ")
  1. ;;4645
  1. ;;21,"60505252001 ")
  1. ;;4646
  1. ;;21,"60505252003 ")
  1. ;;4647
  1. ;;21,"60505252004 ")
  1. ;;4648
  1. ;;21,"60505252008 ")
  1. ;;4649
  1. ;;21,"60505265300 ")
  1. ;;4650
  1. ;;21,"60505265301 ")
  1. ;;4651
  1. ;;21,"60505265305 ")
  1. ;;4652
  1. ;;21,"60505265307 ")
  1. ;;4653
  1. ;;21,"60505265400 ")
  1. ;;4654
  1. ;;21,"60505265401 ")
  1. ;;4655
  1. ;;21,"60505265405 ")
  1. ;;4656
  1. ;;21,"60505265407 ")
  1. ;;4657
  1. ;;21,"60505265501 ")
  1. ;;4658
  1. ;;21,"60505265505 ")
  1. ;;4659
  1. ;;21,"60505265507 ")
  1. ;;4660
  1. ;;21,"60505265901 ")
  1. ;;4661
  1. ;;21,"60505265905 ")
  1. ;;4662
  1. ;;21,"60505265907 ")
  1. ;;4663
  1. ;;21,"60505343803 ")
  1. ;;4664
  1. ;;21,"60505343808 ")
  1. ;;4665
  1. ;;21,"60505367303 ")
  1. ;;4666
  1. ;;21,"60505367403 ")
  1. ;;4667
  1. ;;21,"60505367503 ")
  1. ;;4668
  1. ;;21,"60505377803 ")
  1. ;;4669
  1. ;;21,"60505377809 ")
  1. ;;4670
  1. ;;21,"60505377903 ")
  1. ;;4671
  1. ;;21,"60505377909 ")
  1. ;;4672
  1. ;;21,"60505378003 ")
  1. ;;4673
  1. ;;21,"60505378009 ")
  1. ;;4674
  1. ;;21,"60760004430 ")
  1. ;;4675
  1. ;;21,"60760011730 ")
  1. ;;4676
  1. ;;21,"60760012110 ")
  1. ;;4677
  1. ;;21,"60760012120 ")
  1. ;;4678
  1. ;;21,"60760012130 ")
  1. ;;4679
  1. ;;21,"60760012160 ")
  1. ;;4680
  1. ;;21,"60760021215 ")
  1. ;;4681
  1. ;;21,"60760021230 ")
  1. ;;4682
  1. ;;21,"60760021330 ")
  1. ;;4683
  1. ;;21,"60760021360 ")
  1. ;;4684
  1. ;;21,"60760021410 ")
  1. ;;4685
  1. ;;21,"60760021420 ")
  1. ;;4686
  1. ;;21,"60760021430 ")
  1. ;;4687
  1. ;;21,"60760021460 ")
  1. ;;4688
  1. ;;21,"60760021490 ")
  1. ;;4689
  1. ;;21,"60760022115 ")
  1. ;;4690
  1. ;;21,"60760022130 ")
  1. ;;4691
  1. ;;21,"60760022160 ")
  1. ;;4692
  1. ;;21,"60760022190 ")
  1. ;;4693
  1. ;;21,"60760036730 ")
  1. ;;4694
  1. ;;21,"60760036760 ")
  1. ;;4695
  1. ;;21,"60760043420 ")
  1. ;;4696
  1. ;;21,"60760043430 ")
  1. ;;4697
  1. ;;21,"60760043460 ")
  1. ;;4698
  1. ;;21,"60760043490 ")
  1. ;;4699
  1. ;;21,"60760043920 ")
  1. ;;4700
  1. ;;21,"60760044020 ")
  1. ;;4701
  1. ;;21,"60760044030 ")
  1. ;;4702
  1. ;;21,"60760044060 ")
  1. ;;4703
  1. ;;21,"60760050830 ")
  1. ;;4704
  1. ;;21,"60760050860 ")
  1. ;;4705
  1. ;;21,"60760064720 ")
  1. ;;4706
  1. ;;21,"60760064730 ")
  1. ;;4707
  1. ;;21,"60760064760 ")
  1. ;;4708
  1. ;;21,"60760064790 ")
  1. ;;4709
  1. ;;21,"60760064792 ")
  1. ;;4710
  1. ;;21,"60760081115 ")
  1. ;;4711
  1. ;;21,"60760081130 ")
  1. ;;4712
  1. ;;21,"60760081160 ")
  1. ;;4713
  1. ;;21,"60760081190 ")
  1. ;;4714
  1. ;;21,"60763010202 ")
  1. ;;4715
  1. ;;21,"60763010203 ")
  1. ;;4716
  1. ;;21,"61073003301 ")
  1. ;;4717
  1. ;;21,"61073003401 ")
  1. ;;4718
  1. ;;21,"61073003501 ")
  1. ;;4719
  1. ;;21,"61073003630 ")
  1. ;;4720
  1. ;;21,"61073003730 ")
  1. ;;4721
  1. ;;21,"61073003830 ")
  1. ;;4722
  1. ;;21,"61392002525 ")
  1. ;;4723
  1. ;;21,"61392002530 ")
  1. ;;4724
  1. ;;21,"61392002531 ")
  1. ;;4725
  1. ;;21,"61392002539 ")
  1. ;;4726
  1. ;;21,"61392002545 ")
  1. ;;4727
  1. ;;21,"61392002554 ")
  1. ;;4728
  1. ;;21,"61392002556 ")
  1. ;;4729
  1. ;;21,"61392002560 ")
  1. ;;4730
  1. ;;21,"61392002565 ")
  1. ;;4731
  1. ;;21,"61392002590 ")
  1. ;;4732
  1. ;;21,"61392002591 ")
  1. ;;4733
  1. ;;21,"61392002625 ")
  1. ;;4734
  1. ;;21,"61392002630 ")
  1. ;;4735
  1. ;;21,"61392002631 ")
  1. ;;4736
  1. ;;21,"61392002639 ")
  1. ;;4737
  1. ;;21,"61392002645 ")
  1. ;;4738
  1. ;;21,"61392002654 ")
  1. ;;4739
  1. ;;21,"61392002656 ")
  1. ;;4740
  1. ;;21,"61392002660 ")
  1. ;;4741
  1. ;;21,"61392002665 ")
  1. ;;4742
  1. ;;21,"61392002690 ")
  1. ;;4743
  1. ;;21,"61392002691 ")
  1. ;;4744
  1. ;;21,"61392002695 ")
  1. ;;4745
  1. ;;21,"61392002725 ")
  1. ;;4746
  1. ;;21,"61392002730 ")
  1. ;;4747
  1. ;;21,"61392002731 ")
  1. ;;4748
  1. ;;21,"61392002739 ")
  1. ;;4749
  1. ;;21,"61392002745 ")
  1. ;;4750
  1. ;;21,"61392002754 ")
  1. ;;4751
  1. ;;21,"61392002756 ")
  1. ;;4752
  1. ;;21,"61392002760 ")
  1. ;;4753
  1. ;;21,"61392002765 ")
  1. ;;4754
  1. ;;21,"61392002790 ")
  1. ;;4755
  1. ;;21,"61392002791 ")
  1. ;;4756
  1. ;;21,"61392002795 ")
  1. ;;4757
  1. ;;21,"61392014025 ")
  1. ;;4758
  1. ;;21,"61392014030 ")
  1. ;;4759
  1. ;;21,"61392014031 ")
  1. ;;4760
  1. ;;21,"61392014034 ")
  1. ;;4761
  1. ;;21,"61392014039 ")
  1. ;;4762