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

BGPM5AUA.m

Go to the documentation of this file.
  1. BGPM5AUA ;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,"63874012421 ")
  1. ;;4677
  1. ;;21,"63874012424 ")
  1. ;;4678
  1. ;;21,"63874012428 ")
  1. ;;4679
  1. ;;21,"63874012430 ")
  1. ;;4680
  1. ;;21,"63874012440 ")
  1. ;;4681
  1. ;;21,"63874012450 ")
  1. ;;4682
  1. ;;21,"63874012460 ")
  1. ;;4683
  1. ;;21,"63874012501 ")
  1. ;;4684
  1. ;;21,"63874012502 ")
  1. ;;4685
  1. ;;21,"63874012510 ")
  1. ;;4686
  1. ;;21,"63874012514 ")
  1. ;;4687
  1. ;;21,"63874012515 ")
  1. ;;4688
  1. ;;21,"63874012520 ")
  1. ;;4689
  1. ;;21,"63874012521 ")
  1. ;;4690
  1. ;;21,"63874012524 ")
  1. ;;4691
  1. ;;21,"63874012528 ")
  1. ;;4692
  1. ;;21,"63874012530 ")
  1. ;;4693
  1. ;;21,"63874012540 ")
  1. ;;4694
  1. ;;21,"63874012560 ")
  1. ;;4695
  1. ;;21,"63874012580 ")
  1. ;;4696
  1. ;;21,"63874014310 ")
  1. ;;4697
  1. ;;21,"63874014315 ")
  1. ;;4698
  1. ;;21,"63874014380 ")
  1. ;;4699
  1. ;;21,"63874014410 ")
  1. ;;4700
  1. ;;21,"63874014415 ")
  1. ;;4701
  1. ;;21,"63874014610 ")
  1. ;;4702
  1. ;;21,"63874014615 ")
  1. ;;4703
  1. ;;21,"63874014620 ")
  1. ;;4704
  1. ;;21,"63874015115 ")
  1. ;;4705
  1. ;;21,"63874015175 ")
  1. ;;4706
  1. ;;21,"63874015315 ")
  1. ;;4707
  1. ;;21,"63874015375 ")
  1. ;;4708
  1. ;;21,"63874015510 ")
  1. ;;4709
  1. ;;21,"63874015520 ")
  1. ;;4710
  1. ;;21,"63874015610 ")
  1. ;;4711
  1. ;;21,"63874015615 ")
  1. ;;4712
  1. ;;21,"63874015620 ")
  1. ;;4713
  1. ;;21,"63874015910 ")
  1. ;;4714
  1. ;;21,"63874015920 ")
  1. ;;4715
  1. ;;21,"63874016010 ")
  1. ;;4716
  1. ;;21,"63874016020 ")
  1. ;;4717
  1. ;;21,"63874016048 ")
  1. ;;4718
  1. ;;21,"63874016610 ")
  1. ;;4719
  1. ;;21,"63874016620 ")
  1. ;;4720
  1. ;;21,"63874017010 ")
  1. ;;4721
  1. ;;21,"63874017020 ")
  1. ;;4722
  1. ;;21,"63874023101 ")
  1. ;;4723
  1. ;;21,"63874023110 ")
  1. ;;4724
  1. ;;21,"63874023112 ")
  1. ;;4725
  1. ;;21,"63874023114 ")
  1. ;;4726
  1. ;;21,"63874023115 ")
  1. ;;4727
  1. ;;21,"63874023120 ")
  1. ;;4728
  1. ;;21,"63874023121 ")
  1. ;;4729
  1. ;;21,"63874023128 ")
  1. ;;4730
  1. ;;21,"63874023130 ")
  1. ;;4731
  1. ;;21,"63874023140 ")
  1. ;;4732
  1. ;;21,"63874023201 ")
  1. ;;4733
  1. ;;21,"63874023202 ")
  1. ;;4734
  1. ;;21,"63874023203 ")
  1. ;;4735
  1. ;;21,"63874023210 ")
  1. ;;4736
  1. ;;21,"63874023212 ")
  1. ;;4737
  1. ;;21,"63874023216 ")
  1. ;;4738
  1. ;;21,"63874023220 ")
  1. ;;4739
  1. ;;21,"63874023221 ")
  1. ;;4740
  1. ;;21,"63874023224 ")
  1. ;;4741
  1. ;;21,"63874023228 ")
  1. ;;4742
  1. ;;21,"63874023230 ")
  1. ;;4743
  1. ;;21,"63874023240 ")
  1. ;;4744
  1. ;;21,"63874023250 ")
  1. ;;4745
  1. ;;21,"63874023301 ")
  1. ;;4746
  1. ;;21,"63874023302 ")
  1. ;;4747
  1. ;;21,"63874023306 ")
  1. ;;4748
  1. ;;21,"63874023310 ")
  1. ;;4749
  1. ;;21,"63874023312 ")
  1. ;;4750
  1. ;;21,"63874023315 ")
  1. ;;4751
  1. ;;21,"63874023316 ")
  1. ;;4752
  1. ;;21,"63874023320 ")
  1. ;;4753
  1. ;;21,"63874023324 ")
  1. ;;4754
  1. ;;21,"63874023328 ")
  1. ;;4755
  1. ;;21,"63874023330 ")
  1. ;;4756
  1. ;;21,"63874023336 ")
  1. ;;4757
  1. ;;21,"63874023340 ")
  1. ;;4758
  1. ;;21,"63874023350 ")
  1. ;;4759
  1. ;;21,"63874023360 ")
  1. ;;4760
  1. ;;21,"63874023501 ")
  1. ;;4761
  1. ;;21,"63874023504 ")
  1. ;;4762
  1. ;;21,"63874023510 ")
  1. ;;4763
  1. ;;21,"63874023512 ")
  1. ;;4764
  1. ;;21,"63874023515 ")
  1. ;;4765
  1. ;;21,"63874023516 ")
  1. ;;4766
  1. ;;21,"63874023520 ")
  1. ;;4767
  1. ;;21,"63874023521 ")
  1. ;;4768
  1. ;;21,"63874023528 ")
  1. ;;4769
  1. ;;21,"63874023530 ")
  1. ;;4770
  1. ;;21,"63874023540 ")
  1. ;;4771
  1. ;;21,"63874023556 ")
  1. ;;4772
  1. ;;21,"63874023580 ")
  1. ;;4773
  1. ;;21,"63874023701 ")
  1. ;;4774
  1. ;;21,"63874023704 ")
  1. ;;4775
  1. ;;21,"63874023705 ")
  1. ;;4776
  1. ;;21,"63874023706 ")
  1. ;;4777
  1. ;;21,"63874023707 ")
  1. ;;4778
  1. ;;21,"63874023710 ")
  1. ;;4779
  1. ;;21,"63874023712 ")
  1. ;;4780
  1. ;;21,"63874023714 ")
  1. ;;4781
  1. ;;21,"63874023715 ")
  1. ;;4782
  1. ;;21,"63874023716 ")
  1. ;;4783
  1. ;;21,"63874023720 ")
  1. ;;4784
  1. ;;21,"63874023721 ")
  1. ;;4785
  1. ;;21,"63874023724 ")
  1. ;;4786
  1. ;;21,"63874023728 ")
  1. ;;4787
  1. ;;21,"63874023730 ")
  1. ;;4788
  1. ;;21,"63874023740 ")
  1. ;;4789
  1. ;;21,"63874023750 ")
  1. ;;4790
  1. ;;21,"63874023760 ")
  1. ;;4791
  1. ;;21,"63874023772 ")
  1. ;;4792
  1. ;;21,"63874023774 ")
  1. ;;4793
  1. ;;21,"63874023777 ")
  1. ;;4794
  1. ;;21,"63874023901 ")
  1. ;;4795
  1. ;;21,"63874023920 ")
  1. ;;4796
  1. ;;21,"63874023930 ")
  1. ;;4797
  1. ;;21,"63874024001 ")
  1. ;;4798
  1. ;;21,"63874024020 ")
  1. ;;4799
  1. ;;21,"63874024030 ")
  1. ;;4800
  1. ;;21,"63874024050 ")
  1. ;;4801
  1. ;;21,"63874024115 ")
  1. ;;4802
  1. ;;21,"63874024120 ")
  1. ;;4803
  1. ;;21,"63874024130 ")
  1. ;;4804
  1. ;;21,"63874024150 ")
  1. ;;4805
  1. ;;21,"63874024160 ")
  1. ;;4806
  1. ;;21,"63874053301 ")
  1. ;;4807
  1. ;;21,"63874053304 ")
  1. ;;4808
  1. ;;21,"63874053310 ")
  1. ;;4809
  1. ;;21,"63874053312 ")
  1. ;;4810
  1. ;;21,"63874053314 ")
  1. ;;4811
  1. ;;21,"63874053315 ")
  1. ;;4812
  1. ;;21,"63874053320 ")
  1. ;;4813
  1. ;;21,"63874053325 ")
  1. ;;4814
  1. ;;21,"63874053328 ")
  1. ;;4815
  1. ;;21,"63874053330 ")
  1. ;;4816
  1. ;;21,"63874053340 ")
  1. ;;4817
  1. ;;21,"63874053344 ")
  1. ;;4818
  1. ;;21,"63874053360 ")
  1. ;;4819
  1. ;;21,"63874053372 ")
  1. ;;4820
  1. ;;21,"63874053374 ")
  1. ;;4821
  1. ;;21,"63874053377 ")
  1. ;;4822
  1. ;;21,"63874053390 ")
  1. ;;4823
  1. ;;21,"63874108601 ")
  1. ;;4824
  1. ;;21,"63874108602 ")
  1. ;;4825
  1. ;;21,"63874108603 ")
  1. ;;4826
  1. ;;21,"63874108604 ")
  1. ;;4827
  1. ;;21,"63874108605 ")
  1. ;;4828
  1. ;;21,"63874108606 ")
  1. ;;4829
  1. ;;21,"63874111202 ")
  1. ;;4830
  1. ;;21,"63874122602 ")
  1. ;;4831
  1. ;;21,"64038003301 ")
  1. ;;4832
  1. ;;21,"64038003340 ")
  1. ;;4833
  1. ;;21,"64380000510 ")
  1. ;;4834
  1. ;;21,"64579001600 ")
  1. ;;4835
  1. ;;21,"64579001601 ")
  1. ;;4836
  1. ;;21,"64679054701 ")
  1. ;;4837
  1. ;;21,"64679054702 ")
  1. ;;4838
  1. ;;21,"64679054703 ")
  1. ;;4839
  1. ;;21,"64679054704 ")
  1. ;;4840
  1. ;;21,"64679054705 ")
  1. ;;4841
  1. ;;21,"64679070101 ")
  1. ;;4842
  1. ;;21,"64679070102 ")
  1. ;;4843
  1. ;;21,"64679070103 ")
  1. ;;4844
  1. ;;21,"64679070201 ")
  1. ;;4845
  1. ;;21,"64679070202 ")
  1. ;;4846
  1. ;;21,"64679070301 ")
  1. ;;4847
  1. ;;21,"64679070302 ")
  1. ;;4848
  1. ;;21,"64679071201 ")
  1. ;;4849
  1. ;;21,"64679071202 ")
  1. ;;4850
  1. ;;21,"64679071203 ")
  1. ;;4851
  1. ;;21,"64679071204 ")
  1. ;;4852
  1. ;;21,"64679071301 ")
  1. ;;4853
  1. ;;21,"64679071302 ")
  1. ;;4854
  1. ;;21,"64679071303 ")
  1. ;;4855
  1. ;;21,"64679092001 ")
  1. ;;4856
  1. ;;21,"64679092002 ")
  1. ;;4857
  1. ;;21,"64679092101 ")
  1. ;;4858
  1. ;;21,"64679092102 ")
  1. ;;4859
  1. ;;21,"64679092201 ")
  1. ;;4860
  1. ;;21,"64679092202 ")
  1. ;;4861
  1. ;;21,"64679094901 ")
  1. ;;4862
  1. ;;21,"64679095401 ")
  1. ;;4863
  1. ;;21,"64679096101 ")
  1. ;;4864
  1. ;;21,"64679096102 ")
  1. ;;4865
  1. ;;21,"64679096104 ")
  1. ;;4866
  1. ;;21,"64679096105 ")
  1. ;;4867
  1. ;;21,"64679096106 ")
  1. ;;4868
  1. ;;21,"64679096107 ")
  1. ;;4869
  1. ;;21,"64679096108 ")
  1. ;;4870
  1. ;;21,"64679098301 ")
  1. ;;4871
  1. ;;21,"64679098302 ")
  1. ;;4872
  1. ;;21,"64720015201 ")
  1. ;;4873
  1. ;;21,"64720015210 ")
  1. ;;4874
  1. ;;21,"64720015310 ")
  1. ;;4875
  1. ;;21,"64720015316 ")
  1. ;;4876
  1. ;;21,"64720015410 ")
  1. ;;4877
  1. ;;21,"64720015416 ")
  1. ;;4878
  1. ;;21,"64725002402 ")
  1. ;;4879
  1. ;;21,"64725002403 ")
  1. ;;4880
  1. ;;21,"64725002404 ")
  1. ;;4881
  1. ;;21,"64725007202 ")
  1. ;;4882
  1. ;;21,"64725007203 ")
  1. ;;4883
  1. ;;21,"64725007204 ")
  1. ;;4884
  1. ;;21,"64725011302 ")
  1. ;;4885
  1. ;;21,"64725011303 ")
  1. ;;4886
  1. ;;21,"64725030402 ")
  1. ;;4887
  1. ;;21,"64725030403 ")
  1. ;;4888
  1. ;;21,"64725032503 ")
  1. ;;4889
  1. ;;21,"64725038702 ")
  1. ;;4890
  1. ;;21,"64725038802 ")
  1. ;;4891
  1. ;;21,"64860010407 ")
  1. ;;4892
  1. ;;21,"64860010408 ")
  1. ;;4893
  1. ;;21,"64860010500 ")
  1. ;;4894
  1. ;;21,"64860010501 ")
  1. ;;4895
  1. ;;21,"64860010504 ")
  1. ;;4896
  1. ;;21,"64860010506 ")
  1. ;;4897
  1. ;;21,"64860010507 ")
  1. ;;4898
  1. ;;21,"64860010509 ")
  1. ;;4899
  1. ;;21,"64860011107 ")
  1. ;;4900
  1. ;;21,"64860011207 ")
  1. ;;4901
  1. ;;21,"64860011208 ")
  1. ;;4902
  1. ;;21,"64860011808 ")
  1. ;;4903
  1. ;;21,"64860011908 ")
  1. ;;4904
  1. ;;21,"64860030613 ")
  1. ;;4905
  1. ;;21,"64860030640 ")
  1. ;;4906
  1. ;;21,"64860030713 ")
  1. ;;4907
  1. ;;21,"64860030740 ")
  1. ;;4908
  1. ;;21,"64860031113 ")
  1. ;;4909
  1. ;;21,"64860031140 ")
  1. ;;4910
  1. ;;21,"64860031213 ")
  1. ;;4911
  1. ;;21,"64860031240 ")
  1. ;;4912
  1. ;;21,"64896124500 ")
  1. ;;4913
  1. ;;21,"64896124501 ")
  1. ;;4914
  1. ;;21,"64896124502 ")
  1. ;;4915
  1. ;;21,"64896124503 ")
  1. ;;4916
  1. ;;21,"64896124508 ")
  1. ;;4917
  1. ;;21,"64896124600 ")
  1. ;;4918
  1. ;;21,"64896124601 ")
  1. ;;4919
  1. ;;21,"64896124602 ")
  1. ;;4920
  1. ;;21,"64896124603 ")
  1. ;;4921
  1. ;;21,"64896124608 ")
  1. ;;4922
  1. ;;21,"64896124700 ")
  1. ;;4923
  1. ;;21,"64896124701 ")
  1. ;;4924
  1. ;;21,"64896124702 ")
  1. ;;4925
  1. ;;21,"64896124703 ")
  1. ;;4926
  1. ;;21,"64896124708 ")
  1. ;;4927
  1. ;;21,"65015010811 ")
  1. ;;4928
  1. ;;21,"65015010911 ")
  1. ;;4929
  1. ;;21,"65015011011 ")
  1. ;;4930
  1. ;;21,"65162020201 ")
  1. ;;4931
  1. ;;21,"65162020202 ")
  1. ;;4932
  1. ;;21,"65162020208 ")
  1. ;;4933
  1. ;;21,"65162020214 ")
  1. ;;4934
  1. ;;21,"65162031301 ")
  1. ;;4935
  1. ;;21,"65162031302 ")
  1. ;;4936
  1. ;;21,"65162031308 ")
  1. ;;4937
  1. ;;21,"65162031314 ")
  1. ;;4938
  1. ;;21,"65162052705 ")
  1. ;;4939
  1. ;;21,"65243006702 ")
  1. ;;4940
  1. ;;21,"65415101101 ")
  1. ;;4941
  1. ;;21,"65415101201 ")
  1. ;;4942
  1. ;;21,"65415101301 ")
  1. ;;4943
  1. ;;21,"65415101401 ")
  1. ;;4944
  1. ;;21,"65427030901 ")
  1. ;;4945
  1. ;;21,"65427030902 ")
  1. ;;4946
  1. ;;21,"65427030903 ")
  1. ;;4947
  1. ;;21,"65427030930 ")
  1. ;;4948
  1. ;;21,"65862001401 ")
  1. ;;4949
  1. ;;21,"65862001405 ")
  1. ;;4950
  1. ;;21,"65862001420 ")
  1. ;;4951
  1. ;;21,"65862001422 ")
  1. ;;4952
  1. ;;21,"65862001431 ")
  1. ;;4953
  1. ;;21,"65862001501 ")
  1. ;;4954
  1. ;;21,"65862001505 ")
  1. ;;4955
  1. ;;21,"65862001520 ")
  1. ;;4956
  1. ;;21,"65862001589 ")
  1. ;;4957
  1. ;;21,"65862001599 ")
  1. ;;4958
  1. ;;21,"65862001601 ")
  1. ;;4959
  1. ;;21,"65862001605 ")
  1. ;;4960
  1. ;;21,"65862001618 ")
  1. ;;4961
  1. ;;21,"65862001620 ")
  1. ;;4962
  1. ;;21,"65862001622 ")
  1. ;;4963
  1. ;;21,"65862001701 ")
  1. ;;4964
  1. ;;21,"65862001705 ")
  1. ;;4965
  1. ;;21,"65862001715 ")
  1. ;;4966
  1. ;;21,"65862001720 ")
  1. ;;4967
  1. ;;21,"65862001799 ")
  1. ;;4968
  1. ;;21,"65862001801 ")
  1. ;;4969
  1. ;;21,"65862001805 ")
  1. ;;4970
  1. ;;21,"65862001820 ")
  1. ;;4971
  1. ;;21,"65862001822 ")
  1. ;;4972
  1. ;;21,"65862001840 ")
  1. ;;4973
  1. ;;21,"65862001901 ")
  1. ;;4974
  1. ;;21,"65862001905 ")
  1. ;;4975
  1. ;;21,"65862001920 ")
  1. ;;4976
  1. ;;21,"65862001940 ")
  1. ;;4977
  1. ;;21,"65862001952 ")
  1. ;;4978
  1. ;;21,"65862003320 ")
  1. ;;4979
  1. ;;21,"65862003360 ")
  1. ;;4980
  1. ;;21,"65862003375 ")
  1. ;;4981
  1. ;;21,"65862003420 ")
  1. ;;4982
  1. ;;21,"65862003436 ")
  1. ;;4983
  1. ;;21,"65862003460 ")
  1. ;;4984
  1. ;;21,"65862003515 ")
  1. ;;4985
  1. ;;21,"65862003520 ")
  1. ;;4986
  1. ;;21,"65862003560 ")
  1. ;;4987
  1. ;;21,"65862006501 ")
  1. ;;4988
  1. ;;21,"65862006505 ")
  1. ;;4989
  1. ;;21,"65862006520 ")
  1. ;;4990
  1. ;;21,"65862006522 ")
  1. ;;4991
  1. ;;21,"65862006601 ")
  1. ;;4992
  1. ;;21,"65862006605 ")
  1. ;;4993
  1. ;;21,"65862006612 ")
  1. ;;4994
  1. ;;21,"65862006620 ")
  1. ;;4995
  1. ;;21,"65862006801 ")
  1. ;;4996
  1. ;;21,"65862006805 ")
  1. ;;4997
  1. ;;21,"65862006830 ")
  1. ;;4998
  1. ;;21,"65862006839 ")
  1. ;;4999
  1. ;;21,"65862006850 ")
  1. ;;5000
  1. ;;21,"65862006901 ")
  1. ;;5001
  1. ;;21,"65862006905 ")
  1. ;;5002
  1. ;;21,"65862006915 ")
  1. ;;5003
  1. ;;21,"65862006930 ")
  1. ;;5004
  1. ;;21,"65862006950 ")
  1. ;;5005
  1. ;;21,"65862007001 ")
  1. ;;5006
  1. ;;21,"65862007050 ")
  1. ;;5007
  1. ;;21,"65862007075 ")
  1. ;;5008
  1. ;;21,"65862007101 ")
  1. ;;5009
  1. ;;21,"65862007150 ")
  1. ;;5010
  1. ;;21,"65862007175 ")
  1. ;;5011
  1. ;;21,"65862007601 ")
  1. ;;5012
  1. ;;21,"65862007630 ")
  1. ;;5013
  1. ;;21,"65862007639 ")
  1. ;;5014
  1. ;;21,"65862007699 ")
  1. ;;5015
  1. ;;21,"65862007701 ")
  1. ;;5016
  1. ;;21,"65862007705 ")
  1. ;;5017
  1. ;;21,"65862007715 ")
  1. ;;5018
  1. ;;21,"65862007730 ")
  1. ;;5019
  1. ;;21,"65862007799 ")
  1. ;;5020
  1. ;;21,"65862007850 ")
  1. ;;5021
  1. ;;21,"65862007899 ")
  1. ;;5022
  1. ;;21,"65862008501 ")
  1. ;;5023
  1. ;;21,"65862008512 ")
  1. ;;5024
  1. ;;21,"65862008550 ")
  1. ;;5025
  1. ;;21,"65862009501 ")
  1. ;;5026
  1. ;;21,"65862009520 ")
  1. ;;5027
  1. ;;21,"65862009545 ")
  1. ;;5028