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

BGPM5AUD.m

Go to the documentation of this file.
BGPM5AUD ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"67253014315 ")
 ;;5733
 ;;21,"67253014502 ")
 ;;5734
 ;;21,"67253014510 ")
 ;;5735
 ;;21,"67253014550 ")
 ;;5736
 ;;21,"67253018010 ")
 ;;5737
 ;;21,"67253018050 ")
 ;;5738
 ;;21,"67253018110 ")
 ;;5739
 ;;21,"67253018150 ")
 ;;5740
 ;;21,"67253018210 ")
 ;;5741
 ;;21,"67253018220 ")
 ;;5742
 ;;21,"67253018310 ")
 ;;5743
 ;;21,"67253018320 ")
 ;;5744
 ;;21,"67253020010 ")
 ;;5745
 ;;21,"67253020011 ")
 ;;5746
 ;;21,"67253020110 ")
 ;;5747
 ;;21,"67253020150 ")
 ;;5748
 ;;21,"67253020210 ")
 ;;5749
 ;;21,"67253020220 ")
 ;;5750
 ;;21,"67253020310 ")
 ;;5751
 ;;21,"67253020320 ")
 ;;5752
 ;;21,"67253022010 ")
 ;;5753
 ;;21,"67253022110 ")
 ;;5754
 ;;21,"67253022215 ")
 ;;5755
 ;;21,"67253022275 ")
 ;;5756
 ;;21,"67253022305 ")
 ;;5757
 ;;21,"67253022310 ")
 ;;5758
 ;;21,"67253022415 ")
 ;;5759
 ;;21,"67253022475 ")
 ;;5760
 ;;21,"67253022505 ")
 ;;5761
 ;;21,"67253022510 ")
 ;;5762
 ;;21,"67253030010 ")
 ;;5763
 ;;21,"67253030050 ")
 ;;5764
 ;;21,"67253030110 ")
 ;;5765
 ;;21,"67253030150 ")
 ;;5766
 ;;21,"67253030613 ")
 ;;5767
 ;;21,"67253030640 ")
 ;;5768
 ;;21,"67253030713 ")
 ;;5769
 ;;21,"67253030740 ")
 ;;5770
 ;;21,"67253078002 ")
 ;;5771
 ;;21,"67253078102 ")
 ;;5772
 ;;21,"67296000201 ")
 ;;5773
 ;;21,"67296000202 ")
 ;;5774
 ;;21,"67296000301 ")
 ;;5775
 ;;21,"67296000302 ")
 ;;5776
 ;;21,"67296000303 ")
 ;;5777
 ;;21,"67296000304 ")
 ;;5778
 ;;21,"67296000401 ")
 ;;5779
 ;;21,"67296000501 ")
 ;;5780
 ;;21,"67296001501 ")
 ;;5781
 ;;21,"67296002301 ")
 ;;5782
 ;;21,"67296002302 ")
 ;;5783
 ;;21,"67296003601 ")
 ;;5784
 ;;21,"67296003602 ")
 ;;5785
 ;;21,"67296003603 ")
 ;;5786
 ;;21,"67296003604 ")
 ;;5787
 ;;21,"67296004401 ")
 ;;5788
 ;;21,"67296004402 ")
 ;;5789
 ;;21,"67296004403 ")
 ;;5790
 ;;21,"67296004601 ")
 ;;5791
 ;;21,"67296004901 ")
 ;;5792
 ;;21,"67296006201 ")
 ;;5793
 ;;21,"67296006202 ")
 ;;5794
 ;;21,"67296006203 ")
 ;;5795
 ;;21,"67296006204 ")
 ;;5796
 ;;21,"67296006205 ")
 ;;5797
 ;;21,"67296007301 ")
 ;;5798
 ;;21,"67296007302 ")
 ;;5799
 ;;21,"67296007502 ")
 ;;5800
 ;;21,"67296007503 ")
 ;;5801
 ;;21,"67296007504 ")
 ;;5802
 ;;21,"67296007505 ")
 ;;5803
 ;;21,"67296007601 ")
 ;;5804
 ;;21,"67296007602 ")
 ;;5805
 ;;21,"67296007603 ")
 ;;5806
 ;;21,"67296008102 ")
 ;;5807
 ;;21,"67296008201 ")
 ;;5808
 ;;21,"67296008202 ")
 ;;5809
 ;;21,"67296008501 ")
 ;;5810
 ;;21,"67296008701 ")
 ;;5811
 ;;21,"67296008702 ")
 ;;5812
 ;;21,"67296008703 ")
 ;;5813
 ;;21,"67296008704 ")
 ;;5814
 ;;21,"67296009001 ")
 ;;5815
 ;;21,"67296009002 ")
 ;;5816
 ;;21,"67296011802 ")
 ;;5817
 ;;21,"67296011803 ")
 ;;5818
 ;;21,"67296011804 ")
 ;;5819
 ;;21,"67296011805 ")
 ;;5820
 ;;21,"67296012201 ")
 ;;5821
 ;;21,"67296012301 ")
 ;;5822
 ;;21,"67296014101 ")
 ;;5823
 ;;21,"67296014401 ")
 ;;5824
 ;;21,"67296017301 ")
 ;;5825
 ;;21,"67296017601 ")
 ;;5826
 ;;21,"67296017602 ")
 ;;5827
 ;;21,"67296017603 ")
 ;;5828
 ;;21,"67296018602 ")
 ;;5829
 ;;21,"67296019201 ")
 ;;5830
 ;;21,"67296020301 ")
 ;;5831
 ;;21,"67296020302 ")
 ;;5832
 ;;21,"67296021002 ")
 ;;5833
 ;;21,"67296021003 ")
 ;;5834
 ;;21,"67296021004 ")
 ;;5835
 ;;21,"67296021005 ")
 ;;5836
 ;;21,"67296021301 ")
 ;;5837
 ;;21,"67296022001 ")
 ;;5838
 ;;21,"67296022002 ")
 ;;5839
 ;;21,"67296022003 ")
 ;;5840
 ;;21,"67296022004 ")
 ;;5841
 ;;21,"67296022005 ")
 ;;5842
 ;;21,"67296022401 ")
 ;;5843
 ;;21,"67296022701 ")
 ;;5844
 ;;21,"67296022702 ")
 ;;5845
 ;;21,"67296022703 ")
 ;;5846
 ;;21,"67296022704 ")
 ;;5847
 ;;21,"67296022705 ")
 ;;5848
 ;;21,"67296023701 ")
 ;;5849
 ;;21,"67296023702 ")
 ;;5850
 ;;21,"67296023703 ")
 ;;5851
 ;;21,"67296024601 ")
 ;;5852
 ;;21,"67296024602 ")
 ;;5853
 ;;21,"67296024603 ")
 ;;5854
 ;;21,"67296024604 ")
 ;;5855
 ;;21,"67296024605 ")
 ;;5856
 ;;21,"67296024606 ")
 ;;5857
 ;;21,"67296025401 ")
 ;;5858
 ;;21,"67296025801 ")
 ;;5859
 ;;21,"67296025802 ")
 ;;5860
 ;;21,"67296026001 ")
 ;;5861
 ;;21,"67296026101 ")
 ;;5862
 ;;21,"67296026201 ")
 ;;5863
 ;;21,"67296026202 ")
 ;;5864
 ;;21,"67296026401 ")
 ;;5865
 ;;21,"67296026402 ")
 ;;5866
 ;;21,"67296026403 ")
 ;;5867
 ;;21,"67296026701 ")
 ;;5868
 ;;21,"67296029601 ")
 ;;5869
 ;;21,"67296031501 ")
 ;;5870
 ;;21,"67296031503 ")
 ;;5871
 ;;21,"67296032001 ")
 ;;5872
 ;;21,"67296032002 ")
 ;;5873
 ;;21,"67296032003 ")
 ;;5874
 ;;21,"67296032004 ")
 ;;5875
 ;;21,"67296032005 ")
 ;;5876
 ;;21,"67296032007 ")
 ;;5877
 ;;21,"67296032102 ")
 ;;5878
 ;;21,"67296032701 ")
 ;;5879
 ;;21,"67296032901 ")
 ;;5880
 ;;21,"67296032902 ")
 ;;5881
 ;;21,"67296033201 ")
 ;;5882
 ;;21,"67296033202 ")
 ;;5883
 ;;21,"67296033203 ")
 ;;5884
 ;;21,"67296033401 ")
 ;;5885
 ;;21,"67296034801 ")
 ;;5886
 ;;21,"67296035801 ")
 ;;5887
 ;;21,"67296036801 ")
 ;;5888
 ;;21,"67296037401 ")
 ;;5889
 ;;21,"67296037601 ")
 ;;5890
 ;;21,"67296040701 ")
 ;;5891
 ;;21,"67296040801 ")
 ;;5892
 ;;21,"67296040901 ")
 ;;5893
 ;;21,"67296043301 ")
 ;;5894
 ;;21,"67296045501 ")
 ;;5895
 ;;21,"67296046401 ")
 ;;5896
 ;;21,"67296046901 ")
 ;;5897
 ;;21,"67296054302 ")
 ;;5898
 ;;21,"67296054303 ")
 ;;5899
 ;;21,"67296054304 ")
 ;;5900
 ;;21,"67296054305 ")
 ;;5901
 ;;21,"67296057902 ")
 ;;5902
 ;;21,"67296058002 ")
 ;;5903
 ;;21,"67296058003 ")
 ;;5904
 ;;21,"67296058004 ")
 ;;5905
 ;;21,"67296058005 ")
 ;;5906
 ;;21,"67296059001 ")
 ;;5907
 ;;21,"67296059905 ")
 ;;5908
 ;;21,"67296060803 ")
 ;;5909
 ;;21,"67296061601 ")
 ;;5910
 ;;21,"67296061602 ")
 ;;5911
 ;;21,"67296061606 ")
 ;;5912
 ;;21,"67296062001 ")
 ;;5913
 ;;21,"67296062002 ")
 ;;5914
 ;;21,"67296062003 ")
 ;;5915
 ;;21,"67296062701 ")
 ;;5916
 ;;21,"67296062801 ")
 ;;5917
 ;;21,"67296071601 ")
 ;;5918
 ;;21,"67544060313 ")
 ;;5919
 ;;21,"67544060332 ")
 ;;5920
 ;;21,"67544062014 ")
 ;;5921
 ;;21,"67544062020 ")
 ;;5922
 ;;21,"67544062023 ")
 ;;5923
 ;;21,"67544062032 ")
 ;;5924
 ;;21,"67544077432 ")
 ;;5925
 ;;21,"67544077528 ")
 ;;5926
 ;;21,"67544077532 ")
 ;;5927
 ;;21,"67544079632 ")
 ;;5928
 ;;21,"67544079710 ")
 ;;5929
 ;;21,"67544079732 ")
 ;;5930
 ;;21,"67544082004 ")
 ;;5931
 ;;21,"67544082019 ")
 ;;5932
 ;;21,"67544082024 ")
 ;;5933
 ;;21,"67544082314 ")
 ;;5934
 ;;21,"67544082320 ")
 ;;5935
 ;;21,"67544086723 ")
 ;;5936
 ;;21,"67544097832 ")
 ;;5937
 ;;21,"67668012150 ")
 ;;5938
 ;;21,"67668012151 ")
 ;;5939
 ;;21,"67668012250 ")
 ;;5940
 ;;21,"67668012251 ")
 ;;5941
 ;;21,"67668012350 ")
 ;;5942
 ;;21,"67668012351 ")
 ;;5943
 ;;21,"67767013701 ")
 ;;5944
 ;;21,"67767013710 ")
 ;;5945
 ;;21,"67767013801 ")
 ;;5946
 ;;21,"67767013865 ")
 ;;5947
 ;;21,"67767013911 ")
 ;;5948
 ;;21,"67767013930 ")
 ;;5949
 ;;21,"67767013935 ")
 ;;5950
 ;;21,"67870011205 ")
 ;;5951
 ;;21,"67877021501 ")
 ;;5952
 ;;21,"67877021520 ")
 ;;5953
 ;;21,"67877021560 ")
 ;;5954
 ;;21,"67877021601 ")
 ;;5955
 ;;21,"67877021620 ")
 ;;5956
 ;;21,"67877021660 ")
 ;;5957
 ;;21,"67877021901 ")
 ;;5958
 ;;21,"67877021905 ")
 ;;5959
 ;;21,"67877021910 ")
 ;;5960
 ;;21,"67877021920 ")
 ;;5961
 ;;21,"67877022001 ")
 ;;5962
 ;;21,"67877022005 ")
 ;;5963
 ;;21,"67877022010 ")
 ;;5964
 ;;21,"67877022020 ")
 ;;5965
 ;;21,"68030000702 ")
 ;;5966
 ;;21,"68047071401 ")
 ;;5967
 ;;21,"68047071460 ")
 ;;5968
 ;;21,"68071001214 ")
 ;;5969
 ;;21,"68071001483 ")
 ;;5970
 ;;21,"68071001492 ")
 ;;5971
 ;;21,"68071002504 ")
 ;;5972
 ;;21,"68071003103 ")
 ;;5973
 ;;21,"68071005002 ")
 ;;5974
 ;;21,"68071005006 ")
 ;;5975
 ;;21,"68071005504 ")
 ;;5976
 ;;21,"68071005505 ")
 ;;5977
 ;;21,"68071005506 ")
 ;;5978
 ;;21,"68071005510 ")
 ;;5979
 ;;21,"68071005514 ")
 ;;5980
 ;;21,"68071005520 ")
 ;;5981
 ;;21,"68071005528 ")
 ;;5982
 ;;21,"68071005530 ")
 ;;5983
 ;;21,"68071006303 ")
 ;;5984
 ;;21,"68071006314 ")
 ;;5985
 ;;21,"68071006330 ")
 ;;5986
 ;;21,"68071007730 ")
 ;;5987
 ;;21,"68071008128 ")
 ;;5988
 ;;21,"68071008920 ")
 ;;5989
 ;;21,"68071012304 ")
 ;;5990
 ;;21,"68071013821 ")
 ;;5991
 ;;21,"68071014440 ")
 ;;5992
 ;;21,"68071015206 ")
 ;;5993
 ;;21,"68071017420 ")
 ;;5994
 ;;21,"68071021304 ")
 ;;5995
 ;;21,"68071022920 ")
 ;;5996
 ;;21,"68071023201 ")
 ;;5997
 ;;21,"68071023606 ")
 ;;5998
 ;;21,"68071023804 ")
 ;;5999
 ;;21,"68071031614 ")
 ;;6000
 ;;21,"68071033114 ")
 ;;6001
 ;;21,"68071033120 ")
 ;;6002
 ;;21,"68071033130 ")
 ;;6003
 ;;21,"68071033714 ")
 ;;6004
 ;;21,"68071033720 ")
 ;;6005
 ;;21,"68071033730 ")
 ;;6006
 ;;21,"68071039202 ")
 ;;6007
 ;;21,"68071039204 ")
 ;;6008
 ;;21,"68071039205 ")
 ;;6009
 ;;21,"68071039806 ")
 ;;6010
 ;;21,"68071039814 ")
 ;;6011
 ;;21,"68071039820 ")
 ;;6012
 ;;21,"68071039830 ")
 ;;6013
 ;;21,"68071039840 ")
 ;;6014
 ;;21,"68071039845 ")
 ;;6015
 ;;21,"68071039890 ")
 ;;6016
 ;;21,"68071045906 ")
 ;;6017
 ;;21,"68071051103 ")
 ;;6018
 ;;21,"68071055604 ")
 ;;6019
 ;;21,"68071060003 ")
 ;;6020
 ;;21,"68071061540 ")
 ;;6021
 ;;21,"68071061830 ")
 ;;6022
 ;;21,"68071062330 ")
 ;;6023
 ;;21,"68071062440 ")
 ;;6024
 ;;21,"68071062780 ")
 ;;6025
 ;;21,"68071062940 ")
 ;;6026
 ;;21,"68071063420 ")
 ;;6027
 ;;21,"68071065620 ")
 ;;6028
 ;;21,"68071067321 ")
 ;;6029
 ;;21,"68071067814 ")
 ;;6030
 ;;21,"68071068730 ")
 ;;6031
 ;;21,"68071074228 ")
 ;;6032
 ;;21,"68071074506 ")
 ;;6033
 ;;21,"68071077210 ")
 ;;6034
 ;;21,"68084006901 ")
 ;;6035
 ;;21,"68084006911 ")
 ;;6036
 ;;21,"68084007001 ")
 ;;6037
 ;;21,"68084007011 ")
 ;;6038
 ;;21,"68084007101 ")
 ;;6039
 ;;21,"68084007111 ")
 ;;6040
 ;;21,"68084021801 ")
 ;;6041
 ;;21,"68084021901 ")
 ;;6042
 ;;21,"68084023001 ")
 ;;6043
 ;;21,"68084023011 ")
 ;;6044
 ;;21,"68084023501 ")
 ;;6045
 ;;21,"68084023511 ")
 ;;6046
 ;;21,"68084023601 ")
 ;;6047
 ;;21,"68084023611 ")
 ;;6048
 ;;21,"68084024301 ")
 ;;6049
 ;;21,"68084024311 ")
 ;;6050
 ;;21,"68084024401 ")
 ;;6051
 ;;21,"68084024411 ")
 ;;6052
 ;;21,"68084027801 ")
 ;;6053
 ;;21,"68084027811 ")
 ;;6054
 ;;21,"68084027830 ")
 ;;6055
 ;;21,"68084027865 ")
 ;;6056
 ;;21,"68084027889 ")
 ;;6057
 ;;21,"68084028901 ")
 ;;6058
 ;;21,"68084028911 ")
 ;;6059
 ;;21,"68084044311 ")
 ;;6060
 ;;21,"68084044365 ")
 ;;6061
 ;;21,"68084048301 ")
 ;;6062
 ;;21,"68084048311 ")
 ;;6063
 ;;21,"68115002606 ")
 ;;6064
 ;;21,"68115002609 ")
 ;;6065
 ;;21,"68115002615 ")
 ;;6066
 ;;21,"68115002640 ")
 ;;6067
 ;;21,"68115002920 ")
 ;;6068
 ;;21,"68115003010 ")
 ;;6069
 ;;21,"68115003240 ")
 ;;6070
 ;;21,"68115003315 ")
 ;;6071
 ;;21,"68115003340 ")
 ;;6072
 ;;21,"68115006720 ")
 ;;6073
 ;;21,"68115009020 ")
 ;;6074
 ;;21,"68115010406 ")
 ;;6075
 ;;21,"68115010440 ")
 ;;6076
 ;;21,"68115010530 ")
 ;;6077
 ;;21,"68115010540 ")
 ;;6078
 ;;21,"68115012528 ")
 ;;6079
 ;;21,"68115042128 ")
 ;;6080
 ;;21,"68115044522 ")
 ;;6081
 ;;21,"68115060110 ")
 ;;6082
 ;;21,"68164010040 ")
 ;;6083
 ;;21,"68180012101 ")
 ;;6084