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

BGPM5AQG.m

Go to the documentation of this file.
BGPM5AQG ;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,"67544015092 ")
 ;;4523
 ;;21,"67544015915 ")
 ;;4524
 ;;21,"67544015930 ")
 ;;4525
 ;;21,"67544015945 ")
 ;;4526
 ;;21,"67544015960 ")
 ;;4527
 ;;21,"67544015980 ")
 ;;4528
 ;;21,"67544016060 ")
 ;;4529
 ;;21,"67544016080 ")
 ;;4530
 ;;21,"67544016580 ")
 ;;4531
 ;;21,"67544016680 ")
 ;;4532
 ;;21,"67544017330 ")
 ;;4533
 ;;21,"67544017331 ")
 ;;4534
 ;;21,"67544017332 ")
 ;;4535
 ;;21,"67544017345 ")
 ;;4536
 ;;21,"67544017353 ")
 ;;4537
 ;;21,"67544017360 ")
 ;;4538
 ;;21,"67544017430 ")
 ;;4539
 ;;21,"67544017431 ")
 ;;4540
 ;;21,"67544017432 ")
 ;;4541
 ;;21,"67544017445 ")
 ;;4542
 ;;21,"67544017460 ")
 ;;4543
 ;;21,"67544017480 ")
 ;;4544
 ;;21,"67544017580 ")
 ;;4545
 ;;21,"67544019230 ")
 ;;4546
 ;;21,"67544019245 ")
 ;;4547
 ;;21,"67544019253 ")
 ;;4548
 ;;21,"67544021245 ")
 ;;4549
 ;;21,"67544021253 ")
 ;;4550
 ;;21,"67544021831 ")
 ;;4551
 ;;21,"67544021860 ")
 ;;4552
 ;;21,"67544021882 ")
 ;;4553
 ;;21,"67544021915 ")
 ;;4554
 ;;21,"67544021930 ")
 ;;4555
 ;;21,"67544021931 ")
 ;;4556
 ;;21,"67544021932 ")
 ;;4557
 ;;21,"67544021945 ")
 ;;4558
 ;;21,"67544021960 ")
 ;;4559
 ;;21,"67544025060 ")
 ;;4560
 ;;21,"67544027660 ")
 ;;4561
 ;;21,"67544030630 ")
 ;;4562
 ;;21,"67544030640 ")
 ;;4563
 ;;21,"67544030645 ")
 ;;4564
 ;;21,"67544030660 ")
 ;;4565
 ;;21,"67544031130 ")
 ;;4566
 ;;21,"67544031140 ")
 ;;4567
 ;;21,"67544031145 ")
 ;;4568
 ;;21,"67544031580 ")
 ;;4569
 ;;21,"67544032110 ")
 ;;4570
 ;;21,"67544032115 ")
 ;;4571
 ;;21,"67544032130 ")
 ;;4572
 ;;21,"67544032145 ")
 ;;4573
 ;;21,"67544032160 ")
 ;;4574
 ;;21,"67544032215 ")
 ;;4575
 ;;21,"67544032230 ")
 ;;4576
 ;;21,"67544032245 ")
 ;;4577
 ;;21,"67544032253 ")
 ;;4578
 ;;21,"67544032260 ")
 ;;4579
 ;;21,"67544032270 ")
 ;;4580
 ;;21,"67544032273 ")
 ;;4581
 ;;21,"67544032280 ")
 ;;4582
 ;;21,"67544032292 ")
 ;;4583
 ;;21,"67544032294 ")
 ;;4584
 ;;21,"67544035080 ")
 ;;4585
 ;;21,"67544037760 ")
 ;;4586
 ;;21,"67544038030 ")
 ;;4587
 ;;21,"67544038060 ")
 ;;4588
 ;;21,"67544038115 ")
 ;;4589
 ;;21,"67544038130 ")
 ;;4590
 ;;21,"67544038145 ")
 ;;4591
 ;;21,"67544038153 ")
 ;;4592
 ;;21,"67544038160 ")
 ;;4593
 ;;21,"67544038170 ")
 ;;4594
 ;;21,"67544038173 ")
 ;;4595
 ;;21,"67544038180 ")
 ;;4596
 ;;21,"67544038192 ")
 ;;4597
 ;;21,"67544038194 ")
 ;;4598
 ;;21,"67544040045 ")
 ;;4599
 ;;21,"67544040330 ")
 ;;4600
 ;;21,"67544040331 ")
 ;;4601
 ;;21,"67544040430 ")
 ;;4602
 ;;21,"67544040431 ")
 ;;4603
 ;;21,"67544041860 ")
 ;;4604
 ;;21,"67544043115 ")
 ;;4605
 ;;21,"67544043130 ")
 ;;4606
 ;;21,"67544043145 ")
 ;;4607
 ;;21,"67544043153 ")
 ;;4608
 ;;21,"67544043160 ")
 ;;4609
 ;;21,"67544043170 ")
 ;;4610
 ;;21,"67544043173 ")
 ;;4611
 ;;21,"67544043180 ")
 ;;4612
 ;;21,"67544043192 ")
 ;;4613
 ;;21,"67544043194 ")
 ;;4614
 ;;21,"67544045415 ")
 ;;4615
 ;;21,"67544045430 ")
 ;;4616
 ;;21,"67544045440 ")
 ;;4617
 ;;21,"67544045445 ")
 ;;4618
 ;;21,"67544045460 ")
 ;;4619
 ;;21,"67544048915 ")
 ;;4620
 ;;21,"67544048930 ")
 ;;4621
 ;;21,"67544048960 ")
 ;;4622
 ;;21,"67544051531 ")
 ;;4623
 ;;21,"67544055930 ")
 ;;4624
 ;;21,"67544055932 ")
 ;;4625
 ;;21,"67544062131 ")
 ;;4626
 ;;21,"67544062145 ")
 ;;4627
 ;;21,"67544062160 ")
 ;;4628
 ;;21,"67544066731 ")
 ;;4629
 ;;21,"67544066760 ")
 ;;4630
 ;;21,"67544067832 ")
 ;;4631
 ;;21,"67544067845 ")
 ;;4632
 ;;21,"67544067860 ")
 ;;4633
 ;;21,"67544068731 ")
 ;;4634
 ;;21,"67544068732 ")
 ;;4635
 ;;21,"67544070531 ")
 ;;4636
 ;;21,"67544070631 ")
 ;;4637
 ;;21,"67544071132 ")
 ;;4638
 ;;21,"67544071731 ")
 ;;4639
 ;;21,"67544072431 ")
 ;;4640
 ;;21,"67544077932 ")
 ;;4641
 ;;21,"67544081832 ")
 ;;4642
 ;;21,"67544086131 ")
 ;;4643
 ;;21,"67544086132 ")
 ;;4644
 ;;21,"67544086832 ")
 ;;4645
 ;;21,"67544093330 ")
 ;;4646
 ;;21,"67544096032 ")
 ;;4647
 ;;21,"67544099730 ")
 ;;4648
 ;;21,"67544099760 ")
 ;;4649
 ;;21,"67544099960 ")
 ;;4650
 ;;21,"67544099980 ")
 ;;4651
 ;;21,"67651001801 ")
 ;;4652
 ;;21,"67651001805 ")
 ;;4653
 ;;21,"67651001901 ")
 ;;4654
 ;;21,"67651001905 ")
 ;;4655
 ;;21,"67651002001 ")
 ;;4656
 ;;21,"67651002005 ")
 ;;4657
 ;;21,"67651002101 ")
 ;;4658
 ;;21,"67651002105 ")
 ;;4659
 ;;21,"67787020005 ")
 ;;4660
 ;;21,"67787020010 ")
 ;;4661
 ;;21,"67787020090 ")
 ;;4662
 ;;21,"67787020105 ")
 ;;4663
 ;;21,"67787020110 ")
 ;;4664
 ;;21,"67787020190 ")
 ;;4665
 ;;21,"67787020210 ")
 ;;4666
 ;;21,"67787020290 ")
 ;;4667
 ;;21,"67787026790 ")
 ;;4668
 ;;21,"67787026890 ")
 ;;4669
 ;;21,"67787026990 ")
 ;;4670
 ;;21,"67787027090 ")
 ;;4671
 ;;21,"68071004845 ")
 ;;4672
 ;;21,"68071009530 ")
 ;;4673
 ;;21,"68071010430 ")
 ;;4674
 ;;21,"68071015330 ")
 ;;4675
 ;;21,"68071015360 ")
 ;;4676
 ;;21,"68071015390 ")
 ;;4677
 ;;21,"68071015745 ")
 ;;4678
 ;;21,"68071015790 ")
 ;;4679
 ;;21,"68071015792 ")
 ;;4680
 ;;21,"68071021692 ")
 ;;4681
 ;;21,"68071039030 ")
 ;;4682
 ;;21,"68071043612 ")
 ;;4683
 ;;21,"68071049330 ")
 ;;4684
 ;;21,"68071076928 ")
 ;;4685
 ;;21,"68071077130 ")
 ;;4686
 ;;21,"68071078530 ")
 ;;4687
 ;;21,"68071078560 ")
 ;;4688
 ;;21,"68071078630 ")
 ;;4689
 ;;21,"68071078660 ")
 ;;4690
 ;;21,"68071099730 ")
 ;;4691
 ;;21,"68084005801 ")
 ;;4692
 ;;21,"68084006001 ")
 ;;4693
 ;;21,"68084006011 ")
 ;;4694
 ;;21,"68084006101 ")
 ;;4695
 ;;21,"68084006111 ")
 ;;4696
 ;;21,"68084006201 ")
 ;;4697
 ;;21,"68084006211 ")
 ;;4698
 ;;21,"68084006401 ")
 ;;4699
 ;;21,"68084006411 ")
 ;;4700
 ;;21,"68084009800 ")
 ;;4701
 ;;21,"68084009806 ")
 ;;4702
 ;;21,"68084009900 ")
 ;;4703
 ;;21,"68084009906 ")
 ;;4704
 ;;21,"68084039001 ")
 ;;4705
 ;;21,"68084039011 ")
 ;;4706
 ;;21,"68084039101 ")
 ;;4707
 ;;21,"68084039111 ")
 ;;4708
 ;;21,"68084039201 ")
 ;;4709
 ;;21,"68084039211 ")
 ;;4710
 ;;21,"68115012715 ")
 ;;4711
 ;;21,"68115012860 ")
 ;;4712
 ;;21,"68115012890 ")
 ;;4713
 ;;21,"68115036260 ")
 ;;4714
 ;;21,"68115036330 ")
 ;;4715
 ;;21,"68115066900 ")
 ;;4716
 ;;21,"68115070330 ")
 ;;4717
 ;;21,"68115085400 ")
 ;;4718
 ;;21,"68180051201 ")
 ;;4719
 ;;21,"68180051202 ")
 ;;4720
 ;;21,"68180051203 ")
 ;;4721
 ;;21,"68180051209 ")
 ;;4722
 ;;21,"68180051230 ")
 ;;4723
 ;;21,"68180051301 ")
 ;;4724
 ;;21,"68180051302 ")
 ;;4725
 ;;21,"68180051303 ")
 ;;4726
 ;;21,"68180051304 ")
 ;;4727
 ;;21,"68180051305 ")
 ;;4728
 ;;21,"68180051309 ")
 ;;4729
 ;;21,"68180051330 ")
 ;;4730
 ;;21,"68180051401 ")
 ;;4731
 ;;21,"68180051402 ")
 ;;4732
 ;;21,"68180051403 ")
 ;;4733
 ;;21,"68180051404 ")
 ;;4734
 ;;21,"68180051405 ")
 ;;4735
 ;;21,"68180051409 ")
 ;;4736
 ;;21,"68180051430 ")
 ;;4737
 ;;21,"68180051501 ")
 ;;4738
 ;;21,"68180051502 ")
 ;;4739
 ;;21,"68180051503 ")
 ;;4740
 ;;21,"68180051504 ")
 ;;4741
 ;;21,"68180051505 ")
 ;;4742
 ;;21,"68180051509 ")
 ;;4743
 ;;21,"68180051530 ")
 ;;4744
 ;;21,"68180051601 ")
 ;;4745
 ;;21,"68180051602 ")
 ;;4746
 ;;21,"68180051603 ")
 ;;4747
 ;;21,"68180051609 ")
 ;;4748
 ;;21,"68180051630 ")
 ;;4749
 ;;21,"68180051701 ")
 ;;4750
 ;;21,"68180051702 ")
 ;;4751
 ;;21,"68180051703 ")
 ;;4752
 ;;21,"68180051704 ")
 ;;4753
 ;;21,"68180051709 ")
 ;;4754
 ;;21,"68180051730 ")
 ;;4755
 ;;21,"68180051790 ")
 ;;4756
 ;;21,"68180051801 ")
 ;;4757
 ;;21,"68180051802 ")
 ;;4758
 ;;21,"68180051830 ")
 ;;4759
 ;;21,"68180051901 ")
 ;;4760
 ;;21,"68180051902 ")
 ;;4761
 ;;21,"68180051930 ")
 ;;4762
 ;;21,"68180052001 ")
 ;;4763
 ;;21,"68180052002 ")
 ;;4764
 ;;21,"68180052030 ")
 ;;4765
 ;;21,"68180055609 ")
 ;;4766
 ;;21,"68180055703 ")
 ;;4767
 ;;21,"68180055709 ")
 ;;4768
 ;;21,"68180055803 ")
 ;;4769
 ;;21,"68180055809 ")
 ;;4770
 ;;21,"68180055903 ")
 ;;4771
 ;;21,"68180055909 ")
 ;;4772
 ;;21,"68387052110 ")
 ;;4773
 ;;21,"68387054330 ")
 ;;4774
 ;;21,"68462020801 ")
 ;;4775
 ;;21,"68462020810 ")
 ;;4776
 ;;21,"68462020890 ")
 ;;4777
 ;;21,"68462020901 ")
 ;;4778
 ;;21,"68462020910 ")
 ;;4779
 ;;21,"68462020990 ")
 ;;4780
 ;;21,"68462036705 ")
 ;;4781
 ;;21,"68462036710 ")
 ;;4782
 ;;21,"68462036790 ")
 ;;4783
 ;;21,"68462036805 ")
 ;;4784
 ;;21,"68462036810 ")
 ;;4785
 ;;21,"68462036890 ")
 ;;4786
 ;;21,"68462036910 ")
 ;;4787
 ;;21,"68462036990 ")
 ;;4788
 ;;21,"68462055401 ")
 ;;4789
 ;;21,"68462055410 ")
 ;;4790
 ;;21,"68462055430 ")
 ;;4791
 ;;21,"68462055501 ")
 ;;4792
 ;;21,"68462055510 ")
 ;;4793
 ;;21,"68462055530 ")
 ;;4794
 ;;21,"68505251002 ")
 ;;4795
 ;;21,"68505251004 ")
 ;;4796
 ;;21,"68533004200 ")
 ;;4797
 ;;21,"68533004212 ")
 ;;4798
 ;;21,"68533004225 ")
 ;;4799
 ;;21,"68533004240 ")
 ;;4800
 ;;21,"68533004300 ")
 ;;4801
 ;;21,"68533004312 ")
 ;;4802
 ;;21,"68533004325 ")
 ;;4803
 ;;21,"68533004340 ")
 ;;4804
 ;;21,"68533004400 ")
 ;;4805
 ;;21,"68533004412 ")
 ;;4806
 ;;21,"68533004425 ")
 ;;4807
 ;;21,"68533004440 ")
 ;;4808
 ;;21,"68552022110 ")
 ;;4809
 ;;21,"68552022190 ")
 ;;4810
 ;;21,"68552022210 ")
 ;;4811
 ;;21,"68552022290 ")
 ;;4812
 ;;21,"68552022310 ")
 ;;4813
 ;;21,"68552022390 ")
 ;;4814
 ;;21,"68645016059 ")
 ;;4815
 ;;21,"68645016159 ")
 ;;4816
 ;;21,"68645016259 ")
 ;;4817
 ;;21,"68645016359 ")
 ;;4818
 ;;21,"68645027254 ")
 ;;4819
 ;;21,"68788006703 ")
 ;;4820
 ;;21,"68788006706 ")
 ;;4821
 ;;21,"68788006709 ")
 ;;4822
 ;;21,"68788010203 ")
 ;;4823
 ;;21,"68788010206 ")
 ;;4824
 ;;21,"68788010209 ")
 ;;4825
 ;;21,"68788036003 ")
 ;;4826
 ;;21,"68788036006 ")
 ;;4827
 ;;21,"68788036009 ")
 ;;4828
 ;;21,"68788056101 ")
 ;;4829
 ;;21,"68788056103 ")
 ;;4830
 ;;21,"68788056106 ")
 ;;4831
 ;;21,"68788056109 ")
 ;;4832
 ;;21,"68788083503 ")
 ;;4833
 ;;21,"68788083506 ")
 ;;4834
 ;;21,"68788083509 ")
 ;;4835
 ;;21,"68788083603 ")
 ;;4836
 ;;21,"68788083606 ")
 ;;4837
 ;;21,"68788083609 ")
 ;;4838
 ;;21,"68788083703 ")
 ;;4839
 ;;21,"68788083706 ")
 ;;4840
 ;;21,"68788083709 ")
 ;;4841
 ;;21,"68788084301 ")
 ;;4842
 ;;21,"68788084303 ")
 ;;4843
 ;;21,"68788084306 ")
 ;;4844
 ;;21,"68788084309 ")
 ;;4845
 ;;21,"68788092403 ")
 ;;4846
 ;;21,"68788092406 ")
 ;;4847
 ;;21,"68788092409 ")
 ;;4848
 ;;21,"68788092503 ")
 ;;4849
 ;;21,"68788092506 ")
 ;;4850
 ;;21,"68788092509 ")
 ;;4851
 ;;21,"68788092903 ")
 ;;4852
 ;;21,"68788092906 ")
 ;;4853
 ;;21,"68788092909 ")
 ;;4854
 ;;21,"68788117203 ")
 ;;4855
 ;;21,"68788117209 ")
 ;;4856
 ;;21,"68788234200 ")
 ;;4857
 ;;21,"68788234203 ")
 ;;4858
 ;;21,"68788234206 ")
 ;;4859
 ;;21,"68788234209 ")
 ;;4860
 ;;21,"68788376003 ")
 ;;4861
 ;;21,"68788376006 ")
 ;;4862
 ;;21,"68788376009 ")
 ;;4863
 ;;21,"68788376203 ")
 ;;4864
 ;;21,"68788376206 ")
 ;;4865
 ;;21,"68788376209 ")
 ;;4866
 ;;21,"68788540003 ")
 ;;4867
 ;;21,"68788540006 ")
 ;;4868
 ;;21,"68788540009 ")
 ;;4869
 ;;21,"68788906101 ")
 ;;4870
 ;;21,"68788906103 ")
 ;;4871
 ;;21,"68788906106 ")
 ;;4872
 ;;21,"68788906108 ")
 ;;4873
 ;;21,"68788906109 ")
 ;;4874