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

BGP47D16.m

Go to the documentation of this file.
BGP47D16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"63323-0282-04 ")
 ;;5813
 ;;21,"63323-0282-06 ")
 ;;5814
 ;;21,"63323-0282-60 ")
 ;;5815
 ;;21,"63323-0323-20 ")
 ;;5816
 ;;21,"63323-0344-10 ")
 ;;5817
 ;;21,"63323-0345-10 ")
 ;;5818
 ;;21,"63323-0346-10 ")
 ;;5819
 ;;21,"63323-0347-20 ")
 ;;5820
 ;;21,"63323-0348-61 ")
 ;;5821
 ;;21,"63323-0352-10 ")
 ;;5822
 ;;21,"63323-0352-45 ")
 ;;5823
 ;;21,"63323-0353-20 ")
 ;;5824
 ;;21,"63323-0353-45 ")
 ;;5825
 ;;21,"63323-0354-45 ")
 ;;5826
 ;;21,"63323-0354-61 ")
 ;;5827
 ;;21,"63323-0387-10 ")
 ;;5828
 ;;21,"63323-0388-10 ")
 ;;5829
 ;;21,"63323-0389-10 ")
 ;;5830
 ;;21,"63323-0398-10 ")
 ;;5831
 ;;21,"63323-0398-12 ")
 ;;5832
 ;;21,"63323-0399-23 ")
 ;;5833
 ;;21,"63323-0446-61 ")
 ;;5834
 ;;21,"63323-0446-66 ")
 ;;5835
 ;;21,"63629-1236-00 ")
 ;;5836
 ;;21,"63629-1236-01 ")
 ;;5837
 ;;21,"63629-1236-02 ")
 ;;5838
 ;;21,"63629-1236-03 ")
 ;;5839
 ;;21,"63629-1236-04 ")
 ;;5840
 ;;21,"63629-1236-05 ")
 ;;5841
 ;;21,"63629-1236-06 ")
 ;;5842
 ;;21,"63629-1236-07 ")
 ;;5843
 ;;21,"63629-1236-08 ")
 ;;5844
 ;;21,"63629-1248-01 ")
 ;;5845
 ;;21,"63629-1248-02 ")
 ;;5846
 ;;21,"63629-1248-03 ")
 ;;5847
 ;;21,"63629-1257-01 ")
 ;;5848
 ;;21,"63629-1257-02 ")
 ;;5849
 ;;21,"63629-1257-03 ")
 ;;5850
 ;;21,"63629-1284-01 ")
 ;;5851
 ;;21,"63629-1305-01 ")
 ;;5852
 ;;21,"63629-1305-02 ")
 ;;5853
 ;;21,"63629-1305-03 ")
 ;;5854
 ;;21,"63629-1317-01 ")
 ;;5855
 ;;21,"63629-1317-02 ")
 ;;5856
 ;;21,"63629-1317-03 ")
 ;;5857
 ;;21,"63629-1317-04 ")
 ;;5858
 ;;21,"63629-1317-05 ")
 ;;5859
 ;;21,"63629-1319-01 ")
 ;;5860
 ;;21,"63629-1319-02 ")
 ;;5861
 ;;21,"63629-1319-03 ")
 ;;5862
 ;;21,"63629-1319-04 ")
 ;;5863
 ;;21,"63629-1319-05 ")
 ;;5864
 ;;21,"63629-1319-06 ")
 ;;5865
 ;;21,"63629-1319-07 ")
 ;;5866
 ;;21,"63629-1319-08 ")
 ;;5867
 ;;21,"63629-1320-01 ")
 ;;5868
 ;;21,"63629-1320-02 ")
 ;;5869
 ;;21,"63629-1320-03 ")
 ;;5870
 ;;21,"63629-1320-04 ")
 ;;5871
 ;;21,"63629-1321-01 ")
 ;;5872
 ;;21,"63629-1326-02 ")
 ;;5873
 ;;21,"63629-1350-01 ")
 ;;5874
 ;;21,"63629-1350-02 ")
 ;;5875
 ;;21,"63629-1350-03 ")
 ;;5876
 ;;21,"63629-1351-01 ")
 ;;5877
 ;;21,"63629-1351-02 ")
 ;;5878
 ;;21,"63629-1351-03 ")
 ;;5879
 ;;21,"63629-1357-01 ")
 ;;5880
 ;;21,"63629-1357-02 ")
 ;;5881
 ;;21,"63629-1357-03 ")
 ;;5882
 ;;21,"63629-1358-01 ")
 ;;5883
 ;;21,"63629-1358-02 ")
 ;;5884
 ;;21,"63629-1490-01 ")
 ;;5885
 ;;21,"63629-1490-02 ")
 ;;5886
 ;;21,"63629-1490-03 ")
 ;;5887
 ;;21,"63629-1490-04 ")
 ;;5888
 ;;21,"63629-1501-01 ")
 ;;5889
 ;;21,"63629-1501-02 ")
 ;;5890
 ;;21,"63629-1501-03 ")
 ;;5891
 ;;21,"63629-1501-04 ")
 ;;5892
 ;;21,"63629-1502-01 ")
 ;;5893
 ;;21,"63629-1502-02 ")
 ;;5894
 ;;21,"63629-1502-03 ")
 ;;5895
 ;;21,"63629-1502-04 ")
 ;;5896
 ;;21,"63629-1531-01 ")
 ;;5897
 ;;21,"63629-1531-02 ")
 ;;5898
 ;;21,"63629-1531-03 ")
 ;;5899
 ;;21,"63629-1531-04 ")
 ;;5900
 ;;21,"63629-1531-05 ")
 ;;5901
 ;;21,"63629-1614-01 ")
 ;;5902
 ;;21,"63629-1614-02 ")
 ;;5903
 ;;21,"63629-1614-03 ")
 ;;5904
 ;;21,"63629-1615-01 ")
 ;;5905
 ;;21,"63629-1615-02 ")
 ;;5906
 ;;21,"63629-1615-03 ")
 ;;5907
 ;;21,"63629-1615-04 ")
 ;;5908
 ;;21,"63629-1615-05 ")
 ;;5909
 ;;21,"63629-1724-01 ")
 ;;5910
 ;;21,"63629-1724-02 ")
 ;;5911
 ;;21,"63629-1724-03 ")
 ;;5912
 ;;21,"63629-1724-04 ")
 ;;5913
 ;;21,"63629-1724-05 ")
 ;;5914
 ;;21,"63629-1724-06 ")
 ;;5915
 ;;21,"63629-1759-01 ")
 ;;5916
 ;;21,"63629-1759-02 ")
 ;;5917
 ;;21,"63629-1759-03 ")
 ;;5918
 ;;21,"63629-1759-04 ")
 ;;5919
 ;;21,"63629-1759-05 ")
 ;;5920
 ;;21,"63629-1765-01 ")
 ;;5921
 ;;21,"63629-1835-01 ")
 ;;5922
 ;;21,"63629-1835-02 ")
 ;;5923
 ;;21,"63629-2609-01 ")
 ;;5924
 ;;21,"63629-2609-02 ")
 ;;5925
 ;;21,"63629-2609-03 ")
 ;;5926
 ;;21,"63629-2610-01 ")
 ;;5927
 ;;21,"63629-2610-02 ")
 ;;5928
 ;;21,"63629-2610-03 ")
 ;;5929
 ;;21,"63629-2685-01 ")
 ;;5930
 ;;21,"63629-2685-02 ")
 ;;5931
 ;;21,"63629-2738-01 ")
 ;;5932
 ;;21,"63629-2738-02 ")
 ;;5933
 ;;21,"63629-2755-01 ")
 ;;5934
 ;;21,"63629-2755-02 ")
 ;;5935
 ;;21,"63629-2817-01 ")
 ;;5936
 ;;21,"63629-2817-02 ")
 ;;5937
 ;;21,"63629-2817-03 ")
 ;;5938
 ;;21,"63629-2817-04 ")
 ;;5939
 ;;21,"63629-2871-01 ")
 ;;5940
 ;;21,"63629-2887-01 ")
 ;;5941
 ;;21,"63629-2887-02 ")
 ;;5942
 ;;21,"63629-2895-01 ")
 ;;5943
 ;;21,"63629-2924-01 ")
 ;;5944
 ;;21,"63629-2924-02 ")
 ;;5945
 ;;21,"63629-3057-01 ")
 ;;5946
 ;;21,"63629-3189-01 ")
 ;;5947
 ;;21,"63739-0059-10 ")
 ;;5948
 ;;21,"63739-0228-10 ")
 ;;5949
 ;;21,"63739-0400-10 ")
 ;;5950
 ;;21,"63739-0427-10 ")
 ;;5951
 ;;21,"63739-0559-10 ")
 ;;5952
 ;;21,"63739-0575-09 ")
 ;;5953
 ;;21,"63739-0575-10 ")
 ;;5954
 ;;21,"63874-0101-01 ")
 ;;5955
 ;;21,"63874-0101-03 ")
 ;;5956
 ;;21,"63874-0101-05 ")
 ;;5957
 ;;21,"63874-0101-09 ")
 ;;5958
 ;;21,"63874-0101-15 ")
 ;;5959
 ;;21,"63874-0101-18 ")
 ;;5960
 ;;21,"63874-0101-20 ")
 ;;5961
 ;;21,"63874-0101-21 ")
 ;;5962
 ;;21,"63874-0101-24 ")
 ;;5963
 ;;21,"63874-0101-28 ")
 ;;5964
 ;;21,"63874-0101-30 ")
 ;;5965
 ;;21,"63874-0101-40 ")
 ;;5966
 ;;21,"63874-0101-45 ")
 ;;5967
 ;;21,"63874-0101-50 ")
 ;;5968
 ;;21,"63874-0102-01 ")
 ;;5969
 ;;21,"63874-0102-03 ")
 ;;5970
 ;;21,"63874-0102-04 ")
 ;;5971
 ;;21,"63874-0102-05 ")
 ;;5972
 ;;21,"63874-0102-09 ")
 ;;5973
 ;;21,"63874-0102-10 ")
 ;;5974
 ;;21,"63874-0102-12 ")
 ;;5975
 ;;21,"63874-0102-14 ")
 ;;5976
 ;;21,"63874-0102-15 ")
 ;;5977
 ;;21,"63874-0102-18 ")
 ;;5978
 ;;21,"63874-0102-20 ")
 ;;5979
 ;;21,"63874-0102-21 ")
 ;;5980
 ;;21,"63874-0102-24 ")
 ;;5981
 ;;21,"63874-0102-28 ")
 ;;5982
 ;;21,"63874-0102-30 ")
 ;;5983
 ;;21,"63874-0102-40 ")
 ;;5984
 ;;21,"63874-0102-45 ")
 ;;5985
 ;;21,"63874-0102-50 ")
 ;;5986
 ;;21,"63874-0103-01 ")
 ;;5987
 ;;21,"63874-0103-21 ")
 ;;5988
 ;;21,"63874-0103-30 ")
 ;;5989
 ;;21,"63874-0107-01 ")
 ;;5990
 ;;21,"63874-0107-02 ")
 ;;5991
 ;;21,"63874-0107-04 ")
 ;;5992
 ;;21,"63874-0107-06 ")
 ;;5993
 ;;21,"63874-0107-08 ")
 ;;5994
 ;;21,"63874-0107-09 ")
 ;;5995
 ;;21,"63874-0107-10 ")
 ;;5996
 ;;21,"63874-0107-12 ")
 ;;5997
 ;;21,"63874-0107-14 ")
 ;;5998
 ;;21,"63874-0107-15 ")
 ;;5999
 ;;21,"63874-0107-16 ")
 ;;6000
 ;;21,"63874-0107-20 ")
 ;;6001
 ;;21,"63874-0107-28 ")
 ;;6002
 ;;21,"63874-0107-30 ")
 ;;6003
 ;;21,"63874-0107-40 ")
 ;;6004
 ;;21,"63874-0107-50 ")
 ;;6005
 ;;21,"63874-0107-60 ")
 ;;6006
 ;;21,"63874-0107-90 ")
 ;;6007
 ;;21,"63874-0108-01 ")
 ;;6008
 ;;21,"63874-0108-10 ")
 ;;6009
 ;;21,"63874-0108-12 ")
 ;;6010
 ;;21,"63874-0108-14 ")
 ;;6011
 ;;21,"63874-0108-15 ")
 ;;6012
 ;;21,"63874-0108-18 ")
 ;;6013
 ;;21,"63874-0108-20 ")
 ;;6014
 ;;21,"63874-0108-24 ")
 ;;6015
 ;;21,"63874-0108-28 ")
 ;;6016
 ;;21,"63874-0108-30 ")
 ;;6017
 ;;21,"63874-0108-40 ")
 ;;6018
 ;;21,"63874-0108-60 ")
 ;;6019
 ;;21,"63874-0109-03 ")
 ;;6020
 ;;21,"63874-0109-10 ")
 ;;6021
 ;;21,"63874-0109-12 ")
 ;;6022
 ;;21,"63874-0109-14 ")
 ;;6023
 ;;21,"63874-0109-15 ")
 ;;6024
 ;;21,"63874-0109-16 ")
 ;;6025
 ;;21,"63874-0109-18 ")
 ;;6026
 ;;21,"63874-0109-20 ")
 ;;6027
 ;;21,"63874-0109-21 ")
 ;;6028
 ;;21,"63874-0109-24 ")
 ;;6029
 ;;21,"63874-0109-28 ")
 ;;6030
 ;;21,"63874-0109-30 ")
 ;;6031
 ;;21,"63874-0109-40 ")
 ;;6032
 ;;21,"63874-0109-50 ")
 ;;6033
 ;;21,"63874-0109-60 ")
 ;;6034
 ;;21,"63874-0110-01 ")
 ;;6035
 ;;21,"63874-0110-20 ")
 ;;6036
 ;;21,"63874-0110-28 ")
 ;;6037
 ;;21,"63874-0110-30 ")
 ;;6038
 ;;21,"63874-0110-40 ")
 ;;6039
 ;;21,"63874-0110-50 ")
 ;;6040
 ;;21,"63874-0111-01 ")
 ;;6041
 ;;21,"63874-0111-03 ")
 ;;6042
 ;;21,"63874-0111-04 ")
 ;;6043
 ;;21,"63874-0111-12 ")
 ;;6044
 ;;21,"63874-0111-14 ")
 ;;6045
 ;;21,"63874-0111-15 ")
 ;;6046
 ;;21,"63874-0111-16 ")
 ;;6047
 ;;21,"63874-0111-20 ")
 ;;6048
 ;;21,"63874-0111-21 ")
 ;;6049
 ;;21,"63874-0111-24 ")
 ;;6050
 ;;21,"63874-0111-28 ")
 ;;6051
 ;;21,"63874-0111-30 ")
 ;;6052
 ;;21,"63874-0111-40 ")
 ;;6053
 ;;21,"63874-0111-50 ")
 ;;6054
 ;;21,"63874-0111-56 ")
 ;;6055
 ;;21,"63874-0111-60 ")
 ;;6056
 ;;21,"63874-0111-72 ")
 ;;6057
 ;;21,"63874-0111-74 ")
 ;;6058
 ;;21,"63874-0111-77 ")
 ;;6059
 ;;21,"63874-0111-80 ")
 ;;6060
 ;;21,"63874-0112-01 ")
 ;;6061
 ;;21,"63874-0112-03 ")
 ;;6062
 ;;21,"63874-0112-04 ")
 ;;6063
 ;;21,"63874-0112-05 ")
 ;;6064
 ;;21,"63874-0112-06 ")
 ;;6065
 ;;21,"63874-0112-08 ")
 ;;6066
 ;;21,"63874-0112-10 ")
 ;;6067
 ;;21,"63874-0112-12 ")
 ;;6068
 ;;21,"63874-0112-14 ")
 ;;6069
 ;;21,"63874-0112-15 ")
 ;;6070
 ;;21,"63874-0112-16 ")
 ;;6071
 ;;21,"63874-0112-18 ")
 ;;6072
 ;;21,"63874-0112-20 ")
 ;;6073
 ;;21,"63874-0112-21 ")
 ;;6074
 ;;21,"63874-0112-24 ")
 ;;6075
 ;;21,"63874-0112-25 ")
 ;;6076
 ;;21,"63874-0112-28 ")
 ;;6077
 ;;21,"63874-0112-30 ")
 ;;6078
 ;;21,"63874-0112-40 ")
 ;;6079
 ;;21,"63874-0112-50 ")
 ;;6080
 ;;21,"63874-0112-56 ")
 ;;6081
 ;;21,"63874-0112-60 ")
 ;;6082
 ;;21,"63874-0112-72 ")
 ;;6083
 ;;21,"63874-0112-74 ")
 ;;6084
 ;;21,"63874-0112-77 ")
 ;;6085
 ;;21,"63874-0113-01 ")
 ;;6086
 ;;21,"63874-0113-03 ")
 ;;6087
 ;;21,"63874-0113-08 ")
 ;;6088
 ;;21,"63874-0113-09 ")
 ;;6089
 ;;21,"63874-0113-10 ")
 ;;6090
 ;;21,"63874-0113-12 ")
 ;;6091
 ;;21,"63874-0113-14 ")
 ;;6092
 ;;21,"63874-0113-15 ")
 ;;6093
 ;;21,"63874-0113-20 ")
 ;;6094
 ;;21,"63874-0113-21 ")
 ;;6095
 ;;21,"63874-0113-24 ")
 ;;6096
 ;;21,"63874-0113-28 ")
 ;;6097
 ;;21,"63874-0113-30 ")
 ;;6098
 ;;21,"63874-0113-40 ")
 ;;6099
 ;;21,"63874-0113-50 ")
 ;;6100
 ;;21,"63874-0114-01 ")
 ;;6101
 ;;21,"63874-0114-03 ")
 ;;6102
 ;;21,"63874-0114-07 ")
 ;;6103
 ;;21,"63874-0114-10 ")
 ;;6104
 ;;21,"63874-0114-20 ")
 ;;6105
 ;;21,"63874-0114-21 ")
 ;;6106
 ;;21,"63874-0114-24 ")
 ;;6107
 ;;21,"63874-0114-25 ")
 ;;6108
 ;;21,"63874-0114-28 ")
 ;;6109
 ;;21,"63874-0114-30 ")
 ;;6110
 ;;21,"63874-0114-40 ")
 ;;6111
 ;;21,"63874-0114-50 ")
 ;;6112
 ;;21,"63874-0115-01 ")
 ;;6113
 ;;21,"63874-0115-08 ")
 ;;6114
 ;;21,"63874-0115-10 ")
 ;;6115
 ;;21,"63874-0115-12 ")
 ;;6116
 ;;21,"63874-0115-14 ")
 ;;6117
 ;;21,"63874-0115-15 ")
 ;;6118
 ;;21,"63874-0115-20 ")
 ;;6119
 ;;21,"63874-0115-21 ")
 ;;6120
 ;;21,"63874-0115-30 ")
 ;;6121
 ;;21,"63874-0118-01 ")
 ;;6122
 ;;21,"63874-0118-03 ")
 ;;6123
 ;;21,"63874-0118-06 ")
 ;;6124
 ;;21,"63874-0118-07 ")
 ;;6125
 ;;21,"63874-0118-10 ")
 ;;6126
 ;;21,"63874-0118-12 ")
 ;;6127
 ;;21,"63874-0118-14 ")
 ;;6128
 ;;21,"63874-0118-15 ")
 ;;6129
 ;;21,"63874-0118-18 ")
 ;;6130
 ;;21,"63874-0118-20 ")
 ;;6131
 ;;21,"63874-0118-21 ")
 ;;6132
 ;;21,"63874-0118-24 ")
 ;;6133
 ;;21,"63874-0118-28 ")
 ;;6134
 ;;21,"63874-0118-30 ")
 ;;6135
 ;;21,"63874-0118-40 ")
 ;;6136
 ;;21,"63874-0118-50 ")
 ;;6137
 ;;21,"63874-0118-60 ")
 ;;6138
 ;;21,"63874-0119-01 ")
 ;;6139
 ;;21,"63874-0119-21 ")
 ;;6140
 ;;21,"63874-0119-30 ")
 ;;6141
 ;;21,"63874-0120-01 ")
 ;;6142
 ;;21,"63874-0120-12 ")
 ;;6143
 ;;21,"63874-0120-20 ")
 ;;6144
 ;;21,"63874-0120-30 ")
 ;;6145
 ;;21,"63874-0123-01 ")
 ;;6146
 ;;21,"63874-0123-12 ")
 ;;6147
 ;;21,"63874-0123-14 ")
 ;;6148
 ;;21,"63874-0123-15 ")
 ;;6149
 ;;21,"63874-0123-20 ")
 ;;6150
 ;;21,"63874-0123-21 ")
 ;;6151
 ;;21,"63874-0123-24 ")
 ;;6152
 ;;21,"63874-0123-28 ")
 ;;6153
 ;;21,"63874-0123-30 ")
 ;;6154
 ;;21,"63874-0123-40 ")
 ;;6155
 ;;21,"63874-0123-50 ")
 ;;6156
 ;;21,"63874-0123-60 ")
 ;;6157
 ;;21,"63874-0124-01 ")
 ;;6158
 ;;21,"63874-0124-02 ")
 ;;6159
 ;;21,"63874-0124-10 ")
 ;;6160
 ;;21,"63874-0124-12 ")
 ;;6161
 ;;21,"63874-0124-14 ")
 ;;6162
 ;;21,"63874-0124-15 ")
 ;;6163
 ;;21,"63874-0124-20 ")
 ;;6164
 ;;21,"63874-0124-21 ")
 ;;6165
 ;;21,"63874-0124-24 ")
 ;;6166
 ;;21,"63874-0124-28 ")
 ;;6167
 ;;21,"63874-0124-30 ")
 ;;6168
 ;;21,"63874-0124-40 ")
 ;;6169
 ;;21,"63874-0124-50 ")
 ;;6170
 ;;21,"63874-0124-60 ")
 ;;6171
 ;;21,"63874-0125-01 ")
 ;;6172
 ;;21,"63874-0125-02 ")
 ;;6173
 ;;21,"63874-0125-10 ")
 ;;6174
 ;;21,"63874-0125-14 ")
 ;;6175
 ;;21,"63874-0125-15 ")
 ;;6176
 ;;21,"63874-0125-20 ")
 ;;6177
 ;;21,"63874-0125-21 ")
 ;;6178
 ;;21,"63874-0125-24 ")
 ;;6179
 ;;21,"63874-0125-28 ")
 ;;6180
 ;;21,"63874-0125-30 ")
 ;;6181
 ;;21,"63874-0125-40 ")
 ;;6182
 ;;21,"63874-0125-60 ")
 ;;6183
 ;;21,"63874-0125-80 ")
 ;;6184
 ;;21,"63874-0126-28 ")
 ;;6185
 ;;21,"63874-0126-30 ")
 ;;6186
 ;;21,"63874-0126-40 ")
 ;;6187
 ;;21,"63874-0127-01 ")
 ;;6188
 ;;21,"63874-0127-05 ")
 ;;6189
 ;;21,"63874-0127-18 ")
 ;;6190
 ;;21,"63874-0127-20 ")
 ;;6191
 ;;21,"63874-0127-21 ")
 ;;6192
 ;;21,"63874-0127-28 ")
 ;;6193
 ;;21,"63874-0127-30 ")
 ;;6194
 ;;21,"63874-0127-40 ")
 ;;6195
 ;;21,"63874-0127-42 ")
 ;;6196
 ;;21,"63874-0143-10 ")
 ;;6197
 ;;21,"63874-0143-15 ")
 ;;6198