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