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