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

BGP53I16.m

Go to the documentation of this file.
BGP53I16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"63874-0114-24 ")
 ;;5813
 ;;21,"63874-0114-25 ")
 ;;5814
 ;;21,"63874-0114-28 ")
 ;;5815
 ;;21,"63874-0114-30 ")
 ;;5816
 ;;21,"63874-0114-40 ")
 ;;5817
 ;;21,"63874-0114-50 ")
 ;;5818
 ;;21,"63874-0115-01 ")
 ;;5819
 ;;21,"63874-0115-08 ")
 ;;5820
 ;;21,"63874-0115-10 ")
 ;;5821
 ;;21,"63874-0115-12 ")
 ;;5822
 ;;21,"63874-0115-14 ")
 ;;5823
 ;;21,"63874-0115-15 ")
 ;;5824
 ;;21,"63874-0115-20 ")
 ;;5825
 ;;21,"63874-0115-21 ")
 ;;5826
 ;;21,"63874-0115-30 ")
 ;;5827
 ;;21,"63874-0118-01 ")
 ;;5828
 ;;21,"63874-0118-03 ")
 ;;5829
 ;;21,"63874-0118-06 ")
 ;;5830
 ;;21,"63874-0118-07 ")
 ;;5831
 ;;21,"63874-0118-10 ")
 ;;5832
 ;;21,"63874-0118-12 ")
 ;;5833
 ;;21,"63874-0118-14 ")
 ;;5834
 ;;21,"63874-0118-15 ")
 ;;5835
 ;;21,"63874-0118-18 ")
 ;;5836
 ;;21,"63874-0118-20 ")
 ;;5837
 ;;21,"63874-0118-21 ")
 ;;5838
 ;;21,"63874-0118-24 ")
 ;;5839
 ;;21,"63874-0118-28 ")
 ;;5840
 ;;21,"63874-0118-30 ")
 ;;5841
 ;;21,"63874-0118-40 ")
 ;;5842
 ;;21,"63874-0118-50 ")
 ;;5843
 ;;21,"63874-0118-60 ")
 ;;5844
 ;;21,"63874-0119-01 ")
 ;;5845
 ;;21,"63874-0119-21 ")
 ;;5846
 ;;21,"63874-0119-30 ")
 ;;5847
 ;;21,"63874-0120-01 ")
 ;;5848
 ;;21,"63874-0120-12 ")
 ;;5849
 ;;21,"63874-0120-20 ")
 ;;5850
 ;;21,"63874-0120-30 ")
 ;;5851
 ;;21,"63874-0123-01 ")
 ;;5852
 ;;21,"63874-0123-12 ")
 ;;5853
 ;;21,"63874-0123-14 ")
 ;;5854
 ;;21,"63874-0123-15 ")
 ;;5855
 ;;21,"63874-0123-20 ")
 ;;5856
 ;;21,"63874-0123-21 ")
 ;;5857
 ;;21,"63874-0123-24 ")
 ;;5858
 ;;21,"63874-0123-28 ")
 ;;5859
 ;;21,"63874-0123-30 ")
 ;;5860
 ;;21,"63874-0123-40 ")
 ;;5861
 ;;21,"63874-0123-50 ")
 ;;5862
 ;;21,"63874-0123-60 ")
 ;;5863
 ;;21,"63874-0124-01 ")
 ;;5864
 ;;21,"63874-0124-02 ")
 ;;5865
 ;;21,"63874-0124-10 ")
 ;;5866
 ;;21,"63874-0124-12 ")
 ;;5867
 ;;21,"63874-0124-14 ")
 ;;5868
 ;;21,"63874-0124-15 ")
 ;;5869
 ;;21,"63874-0124-20 ")
 ;;5870
 ;;21,"63874-0124-21 ")
 ;;5871
 ;;21,"63874-0124-24 ")
 ;;5872
 ;;21,"63874-0124-28 ")
 ;;5873
 ;;21,"63874-0124-30 ")
 ;;5874
 ;;21,"63874-0124-40 ")
 ;;5875
 ;;21,"63874-0124-50 ")
 ;;5876
 ;;21,"63874-0124-60 ")
 ;;5877
 ;;21,"63874-0125-01 ")
 ;;5878
 ;;21,"63874-0125-02 ")
 ;;5879
 ;;21,"63874-0125-10 ")
 ;;5880
 ;;21,"63874-0125-14 ")
 ;;5881
 ;;21,"63874-0125-15 ")
 ;;5882
 ;;21,"63874-0125-20 ")
 ;;5883
 ;;21,"63874-0125-21 ")
 ;;5884
 ;;21,"63874-0125-24 ")
 ;;5885
 ;;21,"63874-0125-28 ")
 ;;5886
 ;;21,"63874-0125-30 ")
 ;;5887
 ;;21,"63874-0125-40 ")
 ;;5888
 ;;21,"63874-0125-60 ")
 ;;5889
 ;;21,"63874-0125-80 ")
 ;;5890
 ;;21,"63874-0126-28 ")
 ;;5891
 ;;21,"63874-0126-30 ")
 ;;5892
 ;;21,"63874-0126-40 ")
 ;;5893
 ;;21,"63874-0127-01 ")
 ;;5894
 ;;21,"63874-0127-05 ")
 ;;5895
 ;;21,"63874-0127-18 ")
 ;;5896
 ;;21,"63874-0127-20 ")
 ;;5897
 ;;21,"63874-0127-21 ")
 ;;5898
 ;;21,"63874-0127-28 ")
 ;;5899
 ;;21,"63874-0127-30 ")
 ;;5900
 ;;21,"63874-0127-40 ")
 ;;5901
 ;;21,"63874-0127-42 ")
 ;;5902
 ;;21,"63874-0143-10 ")
 ;;5903
 ;;21,"63874-0143-15 ")
 ;;5904
 ;;21,"63874-0143-80 ")
 ;;5905
 ;;21,"63874-0144-10 ")
 ;;5906
 ;;21,"63874-0144-15 ")
 ;;5907
 ;;21,"63874-0146-10 ")
 ;;5908
 ;;21,"63874-0146-15 ")
 ;;5909
 ;;21,"63874-0146-20 ")
 ;;5910
 ;;21,"63874-0147-10 ")
 ;;5911
 ;;21,"63874-0147-15 ")
 ;;5912
 ;;21,"63874-0147-75 ")
 ;;5913
 ;;21,"63874-0148-10 ")
 ;;5914
 ;;21,"63874-0148-15 ")
 ;;5915
 ;;21,"63874-0148-75 ")
 ;;5916
 ;;21,"63874-0150-10 ")
 ;;5917
 ;;21,"63874-0150-20 ")
 ;;5918
 ;;21,"63874-0151-15 ")
 ;;5919
 ;;21,"63874-0151-75 ")
 ;;5920
 ;;21,"63874-0153-15 ")
 ;;5921
 ;;21,"63874-0153-75 ")
 ;;5922
 ;;21,"63874-0155-10 ")
 ;;5923
 ;;21,"63874-0155-20 ")
 ;;5924
 ;;21,"63874-0156-10 ")
 ;;5925
 ;;21,"63874-0156-15 ")
 ;;5926
 ;;21,"63874-0156-20 ")
 ;;5927
 ;;21,"63874-0159-10 ")
 ;;5928
 ;;21,"63874-0159-20 ")
 ;;5929
 ;;21,"63874-0160-10 ")
 ;;5930
 ;;21,"63874-0160-20 ")
 ;;5931
 ;;21,"63874-0160-48 ")
 ;;5932
 ;;21,"63874-0166-10 ")
 ;;5933
 ;;21,"63874-0166-20 ")
 ;;5934
 ;;21,"63874-0170-10 ")
 ;;5935
 ;;21,"63874-0170-20 ")
 ;;5936
 ;;21,"63874-0231-01 ")
 ;;5937
 ;;21,"63874-0231-10 ")
 ;;5938
 ;;21,"63874-0231-12 ")
 ;;5939
 ;;21,"63874-0231-14 ")
 ;;5940
 ;;21,"63874-0231-15 ")
 ;;5941
 ;;21,"63874-0231-20 ")
 ;;5942
 ;;21,"63874-0231-21 ")
 ;;5943
 ;;21,"63874-0231-28 ")
 ;;5944
 ;;21,"63874-0231-30 ")
 ;;5945
 ;;21,"63874-0231-40 ")
 ;;5946
 ;;21,"63874-0232-01 ")
 ;;5947
 ;;21,"63874-0232-02 ")
 ;;5948
 ;;21,"63874-0232-03 ")
 ;;5949
 ;;21,"63874-0232-10 ")
 ;;5950
 ;;21,"63874-0232-12 ")
 ;;5951
 ;;21,"63874-0232-16 ")
 ;;5952
 ;;21,"63874-0232-20 ")
 ;;5953
 ;;21,"63874-0232-21 ")
 ;;5954
 ;;21,"63874-0232-24 ")
 ;;5955
 ;;21,"63874-0232-28 ")
 ;;5956
 ;;21,"63874-0232-30 ")
 ;;5957
 ;;21,"63874-0232-40 ")
 ;;5958
 ;;21,"63874-0232-50 ")
 ;;5959
 ;;21,"63874-0233-01 ")
 ;;5960
 ;;21,"63874-0233-02 ")
 ;;5961
 ;;21,"63874-0233-06 ")
 ;;5962
 ;;21,"63874-0233-10 ")
 ;;5963
 ;;21,"63874-0233-12 ")
 ;;5964
 ;;21,"63874-0233-15 ")
 ;;5965
 ;;21,"63874-0233-16 ")
 ;;5966
 ;;21,"63874-0233-20 ")
 ;;5967
 ;;21,"63874-0233-24 ")
 ;;5968
 ;;21,"63874-0233-28 ")
 ;;5969
 ;;21,"63874-0233-30 ")
 ;;5970
 ;;21,"63874-0233-36 ")
 ;;5971
 ;;21,"63874-0233-40 ")
 ;;5972
 ;;21,"63874-0233-50 ")
 ;;5973
 ;;21,"63874-0233-60 ")
 ;;5974
 ;;21,"63874-0235-01 ")
 ;;5975
 ;;21,"63874-0235-04 ")
 ;;5976
 ;;21,"63874-0235-10 ")
 ;;5977
 ;;21,"63874-0235-12 ")
 ;;5978
 ;;21,"63874-0235-15 ")
 ;;5979
 ;;21,"63874-0235-16 ")
 ;;5980
 ;;21,"63874-0235-20 ")
 ;;5981
 ;;21,"63874-0235-21 ")
 ;;5982
 ;;21,"63874-0235-28 ")
 ;;5983
 ;;21,"63874-0235-30 ")
 ;;5984
 ;;21,"63874-0235-40 ")
 ;;5985
 ;;21,"63874-0235-56 ")
 ;;5986
 ;;21,"63874-0235-80 ")
 ;;5987
 ;;21,"63874-0237-01 ")
 ;;5988
 ;;21,"63874-0237-04 ")
 ;;5989
 ;;21,"63874-0237-05 ")
 ;;5990
 ;;21,"63874-0237-06 ")
 ;;5991
 ;;21,"63874-0237-07 ")
 ;;5992
 ;;21,"63874-0237-10 ")
 ;;5993
 ;;21,"63874-0237-12 ")
 ;;5994
 ;;21,"63874-0237-14 ")
 ;;5995
 ;;21,"63874-0237-15 ")
 ;;5996
 ;;21,"63874-0237-16 ")
 ;;5997
 ;;21,"63874-0237-20 ")
 ;;5998
 ;;21,"63874-0237-21 ")
 ;;5999
 ;;21,"63874-0237-24 ")
 ;;6000
 ;;21,"63874-0237-28 ")
 ;;6001
 ;;21,"63874-0237-30 ")
 ;;6002
 ;;21,"63874-0237-40 ")
 ;;6003
 ;;21,"63874-0237-50 ")
 ;;6004
 ;;21,"63874-0237-60 ")
 ;;6005
 ;;21,"63874-0237-72 ")
 ;;6006
 ;;21,"63874-0237-74 ")
 ;;6007
 ;;21,"63874-0237-77 ")
 ;;6008
 ;;21,"63874-0239-01 ")
 ;;6009
 ;;21,"63874-0239-20 ")
 ;;6010
 ;;21,"63874-0239-30 ")
 ;;6011
 ;;21,"63874-0240-01 ")
 ;;6012
 ;;21,"63874-0240-20 ")
 ;;6013
 ;;21,"63874-0240-30 ")
 ;;6014
 ;;21,"63874-0240-50 ")
 ;;6015
 ;;21,"63874-0241-15 ")
 ;;6016
 ;;21,"63874-0241-20 ")
 ;;6017
 ;;21,"63874-0241-30 ")
 ;;6018
 ;;21,"63874-0241-50 ")
 ;;6019
 ;;21,"63874-0241-60 ")
 ;;6020
 ;;21,"63874-0246-00 ")
 ;;6021
 ;;21,"63874-0246-04 ")
 ;;6022
 ;;21,"63874-0246-06 ")
 ;;6023
 ;;21,"63874-0246-10 ")
 ;;6024
 ;;21,"63874-0246-15 ")
 ;;6025
 ;;21,"63874-0523-01 ")
 ;;6026
 ;;21,"63874-0523-03 ")
 ;;6027
 ;;21,"63874-0523-05 ")
 ;;6028
 ;;21,"63874-0523-06 ")
 ;;6029
 ;;21,"63874-0523-07 ")
 ;;6030
 ;;21,"63874-0523-10 ")
 ;;6031
 ;;21,"63874-0523-14 ")
 ;;6032
 ;;21,"63874-0523-20 ")
 ;;6033
 ;;21,"63874-0523-30 ")
 ;;6034
 ;;21,"63874-0533-01 ")
 ;;6035
 ;;21,"63874-0533-04 ")
 ;;6036
 ;;21,"63874-0533-10 ")
 ;;6037
 ;;21,"63874-0533-12 ")
 ;;6038
 ;;21,"63874-0533-14 ")
 ;;6039
 ;;21,"63874-0533-15 ")
 ;;6040
 ;;21,"63874-0533-20 ")
 ;;6041
 ;;21,"63874-0533-25 ")
 ;;6042
 ;;21,"63874-0533-28 ")
 ;;6043
 ;;21,"63874-0533-30 ")
 ;;6044
 ;;21,"63874-0533-40 ")
 ;;6045
 ;;21,"63874-0533-44 ")
 ;;6046
 ;;21,"63874-0533-60 ")
 ;;6047
 ;;21,"63874-0533-72 ")
 ;;6048
 ;;21,"63874-0533-74 ")
 ;;6049
 ;;21,"63874-0533-77 ")
 ;;6050
 ;;21,"63874-0533-90 ")
 ;;6051
 ;;21,"63874-1086-01 ")
 ;;6052
 ;;21,"63874-1086-02 ")
 ;;6053
 ;;21,"63874-1086-03 ")
 ;;6054
 ;;21,"63874-1086-04 ")
 ;;6055
 ;;21,"63874-1086-05 ")
 ;;6056
 ;;21,"63874-1086-06 ")
 ;;6057
 ;;21,"63874-1112-02 ")
 ;;6058
 ;;21,"63874-1226-02 ")
 ;;6059
 ;;21,"64038-0033-01 ")
 ;;6060
 ;;21,"64038-0033-40 ")
 ;;6061
 ;;21,"64376-0130-01 ")
 ;;6062
 ;;21,"64376-0130-55 ")
 ;;6063
 ;;21,"64376-0131-01 ")
 ;;6064
 ;;21,"64376-0131-55 ")
 ;;6065
 ;;21,"64376-0132-01 ")
 ;;6066
 ;;21,"64376-0132-55 ")
 ;;6067
 ;;21,"64455-0691-01 ")
 ;;6068
 ;;21,"64455-0691-02 ")
 ;;6069
 ;;21,"64455-0777-01 ")
 ;;6070
 ;;21,"64455-0777-02 ")
 ;;6071
 ;;21,"64455-0777-03 ")
 ;;6072
 ;;21,"64455-0777-04 ")
 ;;6073
 ;;21,"64679-0544-02 ")
 ;;6074
 ;;21,"64679-0544-03 ")
 ;;6075
 ;;21,"64679-0545-02 ")
 ;;6076
 ;;21,"64679-0545-03 ")
 ;;6077
 ;;21,"64679-0547-01 ")
 ;;6078
 ;;21,"64679-0547-02 ")
 ;;6079
 ;;21,"64679-0547-03 ")
 ;;6080
 ;;21,"64679-0701-01 ")
 ;;6081
 ;;21,"64679-0701-02 ")
 ;;6082
 ;;21,"64679-0701-03 ")
 ;;6083
 ;;21,"64679-0702-01 ")
 ;;6084
 ;;21,"64679-0702-02 ")
 ;;6085
 ;;21,"64679-0703-01 ")
 ;;6086
 ;;21,"64679-0703-02 ")
 ;;6087
 ;;21,"64679-0712-03 ")
 ;;6088
 ;;21,"64679-0713-01 ")
 ;;6089
 ;;21,"64679-0713-03 ")
 ;;6090
 ;;21,"64679-0921-01 ")
 ;;6091
 ;;21,"64679-0921-02 ")
 ;;6092
 ;;21,"64679-0922-01 ")
 ;;6093
 ;;21,"64679-0922-02 ")
 ;;6094
 ;;21,"64679-0949-01 ")
 ;;6095
 ;;21,"64679-0954-01 ")
 ;;6096
 ;;21,"64679-0961-01 ")
 ;;6097
 ;;21,"64679-0961-04 ")
 ;;6098
 ;;21,"64679-0961-05 ")
 ;;6099
 ;;21,"64679-0962-01 ")
 ;;6100
 ;;21,"64679-0964-01 ")
 ;;6101
 ;;21,"64679-0964-03 ")
 ;;6102
 ;;21,"64679-0964-05 ")
 ;;6103
 ;;21,"64679-0983-01 ")
 ;;6104
 ;;21,"64679-0983-02 ")
 ;;6105
 ;;21,"64720-0152-10 ")
 ;;6106
 ;;21,"64860-0306-13 ")
 ;;6107
 ;;21,"64860-0306-40 ")
 ;;6108
 ;;21,"64860-0307-13 ")
 ;;6109
 ;;21,"64860-0307-40 ")
 ;;6110
 ;;21,"64980-0511-10 ")
 ;;6111
 ;;21,"65162-0202-01 ")
 ;;6112
 ;;21,"65162-0202-02 ")
 ;;6113
 ;;21,"65162-0202-08 ")
 ;;6114
 ;;21,"65162-0202-14 ")
 ;;6115
 ;;21,"65162-0313-01 ")
 ;;6116
 ;;21,"65162-0313-02 ")
 ;;6117
 ;;21,"65162-0313-08 ")
 ;;6118
 ;;21,"65162-0313-14 ")
 ;;6119
 ;;21,"65162-0468-19 ")
 ;;6120
 ;;21,"65224-0800-22 ")
 ;;6121
 ;;21,"65224-0802-02 ")
 ;;6122
 ;;21,"65224-0802-03 ")
 ;;6123
 ;;21,"65224-0802-04 ")
 ;;6124
 ;;21,"65224-0804-02 ")
 ;;6125
 ;;21,"65862-0014-01 ")
 ;;6126
 ;;21,"65862-0014-05 ")
 ;;6127
 ;;21,"65862-0015-01 ")
 ;;6128
 ;;21,"65862-0015-05 ")
 ;;6129
 ;;21,"65862-0016-01 ")
 ;;6130
 ;;21,"65862-0016-05 ")
 ;;6131
 ;;21,"65862-0017-01 ")
 ;;6132
 ;;21,"65862-0017-05 ")
 ;;6133
 ;;21,"65862-0018-01 ")
 ;;6134
 ;;21,"65862-0018-05 ")
 ;;6135
 ;;21,"65862-0018-40 ")
 ;;6136
 ;;21,"65862-0019-01 ")
 ;;6137
 ;;21,"65862-0019-05 ")
 ;;6138
 ;;21,"65862-0019-40 ")
 ;;6139
 ;;21,"65862-0034-20 ")
 ;;6140
 ;;21,"65862-0034-60 ")
 ;;6141
 ;;21,"65862-0035-20 ")
 ;;6142
 ;;21,"65862-0035-60 ")
 ;;6143
 ;;21,"65862-0068-01 ")
 ;;6144
 ;;21,"65862-0068-50 ")
 ;;6145
 ;;21,"65862-0069-01 ")
 ;;6146
 ;;21,"65862-0069-50 ")
 ;;6147
 ;;21,"65862-0070-01 ")
 ;;6148
 ;;21,"65862-0070-50 ")
 ;;6149
 ;;21,"65862-0070-75 ")
 ;;6150
 ;;21,"65862-0071-01 ")
 ;;6151
 ;;21,"65862-0071-50 ")
 ;;6152
 ;;21,"65862-0071-75 ")
 ;;6153
 ;;21,"65862-0076-01 ")
 ;;6154
 ;;21,"65862-0077-01 ")
 ;;6155
 ;;21,"65862-0078-50 ")
 ;;6156
 ;;21,"65862-0083-01 ")
 ;;6157
 ;;21,"65862-0084-01 ")
 ;;6158
 ;;21,"65862-0084-75 ")
 ;;6159
 ;;21,"65862-0085-01 ")
 ;;6160
 ;;21,"65862-0085-50 ")
 ;;6161
 ;;21,"65862-0095-01 ")
 ;;6162
 ;;21,"65862-0095-20 ")
 ;;6163
 ;;21,"65862-0096-01 ")
 ;;6164
 ;;21,"65862-0096-20 ")
 ;;6165
 ;;21,"65862-0099-01 ")
 ;;6166
 ;;21,"65862-0099-75 ")
 ;;6167
 ;;21,"65862-0100-01 ")
 ;;6168
 ;;21,"65862-0100-75 ")
 ;;6169
 ;;21,"65862-0140-01 ")
 ;;6170
 ;;21,"65862-0140-50 ")
 ;;6171
 ;;21,"65862-0141-01 ")
 ;;6172
 ;;21,"65862-0141-50 ")
 ;;6173
 ;;21,"65862-0175-01 ")
 ;;6174
 ;;21,"65862-0175-99 ")
 ;;6175
 ;;21,"65862-0176-01 ")
 ;;6176
 ;;21,"65862-0176-05 ")
 ;;6177
 ;;21,"65862-0176-99 ")
 ;;6178
 ;;21,"65862-0177-60 ")
 ;;6179
 ;;21,"65862-0185-01 ")
 ;;6180
 ;;21,"65862-0185-05 ")
 ;;6181
 ;;21,"65862-0186-01 ")
 ;;6182
 ;;21,"65862-0209-01 ")
 ;;6183
 ;;21,"65862-0210-01 ")
 ;;6184
 ;;21,"65862-0211-50 ")
 ;;6185
 ;;21,"65862-0218-01 ")
 ;;6186
 ;;21,"65862-0218-60 ")
 ;;6187
 ;;21,"65862-0219-01 ")
 ;;6188
 ;;21,"65862-0219-60 ")
 ;;6189
 ;;21,"65862-0225-60 ")
 ;;6190
 ;;21,"65862-0226-60 ")
 ;;6191
 ;;21,"65862-0419-01 ")
 ;;6192
 ;;21,"65862-0419-05 ")
 ;;6193
 ;;21,"65862-0420-01 ")
 ;;6194
 ;;21,"65862-0420-05 ")
 ;;6195
 ;;21,"65862-0496-47 ")
 ;;6196
 ;;21,"65862-0501-30 ")
 ;;6197
 ;;21,"65862-0502-20 ")
 ;;6198