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