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

BGP73F19.m

Go to the documentation of this file.
  1. BGP73F19 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"67253-0143-15 ")
  1. ;;6019
  1. ;;21,"67253-0144-10 ")
  1. ;;6020
  1. ;;21,"67253-0144-50 ")
  1. ;;6021
  1. ;;21,"67253-0145-10 ")
  1. ;;6022
  1. ;;21,"67253-0146-45 ")
  1. ;;6023
  1. ;;21,"67253-0146-46 ")
  1. ;;6024
  1. ;;21,"67253-0146-47 ")
  1. ;;6025
  1. ;;21,"67253-0147-40 ")
  1. ;;6026
  1. ;;21,"67253-0147-43 ")
  1. ;;6027
  1. ;;21,"67253-0147-44 ")
  1. ;;6028
  1. ;;21,"67253-0148-45 ")
  1. ;;6029
  1. ;;21,"67253-0148-46 ")
  1. ;;6030
  1. ;;21,"67253-0148-47 ")
  1. ;;6031
  1. ;;21,"67253-0149-40 ")
  1. ;;6032
  1. ;;21,"67253-0149-43 ")
  1. ;;6033
  1. ;;21,"67253-0149-44 ")
  1. ;;6034
  1. ;;21,"67253-0150-10 ")
  1. ;;6035
  1. ;;21,"67253-0150-50 ")
  1. ;;6036
  1. ;;21,"67253-0180-10 ")
  1. ;;6037
  1. ;;21,"67253-0180-50 ")
  1. ;;6038
  1. ;;21,"67253-0181-10 ")
  1. ;;6039
  1. ;;21,"67253-0181-50 ")
  1. ;;6040
  1. ;;21,"67253-0182-10 ")
  1. ;;6041
  1. ;;21,"67253-0182-20 ")
  1. ;;6042
  1. ;;21,"67253-0183-10 ")
  1. ;;6043
  1. ;;21,"67253-0183-20 ")
  1. ;;6044
  1. ;;21,"67253-0200-10 ")
  1. ;;6045
  1. ;;21,"67253-0200-11 ")
  1. ;;6046
  1. ;;21,"67253-0201-10 ")
  1. ;;6047
  1. ;;21,"67253-0201-50 ")
  1. ;;6048
  1. ;;21,"67253-0202-10 ")
  1. ;;6049
  1. ;;21,"67253-0202-20 ")
  1. ;;6050
  1. ;;21,"67253-0203-10 ")
  1. ;;6051
  1. ;;21,"67253-0203-20 ")
  1. ;;6052
  1. ;;21,"67253-0300-10 ")
  1. ;;6053
  1. ;;21,"67253-0300-50 ")
  1. ;;6054
  1. ;;21,"67253-0301-10 ")
  1. ;;6055
  1. ;;21,"67253-0301-50 ")
  1. ;;6056
  1. ;;21,"67253-0388-15 ")
  1. ;;6057
  1. ;;21,"67253-0389-15 ")
  1. ;;6058
  1. ;;21,"67253-0389-50 ")
  1. ;;6059
  1. ;;21,"67253-0391-15 ")
  1. ;;6060
  1. ;;21,"67253-0391-50 ")
  1. ;;6061
  1. ;;21,"67405-0475-62 ")
  1. ;;6062
  1. ;;21,"67405-0550-05 ")
  1. ;;6063
  1. ;;21,"67405-0550-55 ")
  1. ;;6064
  1. ;;21,"67405-0650-55 ")
  1. ;;6065
  1. ;;21,"67405-0651-05 ")
  1. ;;6066
  1. ;;21,"67405-0651-55 ")
  1. ;;6067
  1. ;;21,"67405-0660-10 ")
  1. ;;6068
  1. ;;21,"67405-0661-10 ")
  1. ;;6069
  1. ;;21,"67457-0437-10 ")
  1. ;;6070
  1. ;;21,"67544-0775-28 ")
  1. ;;6071
  1. ;;21,"67877-0219-01 ")
  1. ;;6072
  1. ;;21,"67877-0219-05 ")
  1. ;;6073
  1. ;;21,"67877-0220-01 ")
  1. ;;6074
  1. ;;21,"67877-0220-05 ")
  1. ;;6075
  1. ;;21,"67877-0255-20 ")
  1. ;;6076
  1. ;;21,"67877-0255-23 ")
  1. ;;6077
  1. ;;21,"68001-0150-06 ")
  1. ;;6078
  1. ;;21,"68047-0713-01 ")
  1. ;;6079
  1. ;;21,"68047-0714-01 ")
  1. ;;6080
  1. ;;21,"68047-0714-60 ")
  1. ;;6081
  1. ;;21,"68071-0055-06 ")
  1. ;;6082
  1. ;;21,"68071-0055-10 ")
  1. ;;6083
  1. ;;21,"68071-0055-14 ")
  1. ;;6084
  1. ;;21,"68071-0055-20 ")
  1. ;;6085
  1. ;;21,"68071-0055-28 ")
  1. ;;6086
  1. ;;21,"68071-0055-30 ")
  1. ;;6087
  1. ;;21,"68071-0331-14 ")
  1. ;;6088
  1. ;;21,"68071-0331-20 ")
  1. ;;6089
  1. ;;21,"68071-0331-30 ")
  1. ;;6090
  1. ;;21,"68071-0337-14 ")
  1. ;;6091
  1. ;;21,"68071-0337-20 ")
  1. ;;6092
  1. ;;21,"68071-0337-30 ")
  1. ;;6093
  1. ;;21,"68071-0398-06 ")
  1. ;;6094
  1. ;;21,"68071-0398-14 ")
  1. ;;6095
  1. ;;21,"68071-0398-20 ")
  1. ;;6096
  1. ;;21,"68071-0398-30 ")
  1. ;;6097
  1. ;;21,"68071-0398-40 ")
  1. ;;6098
  1. ;;21,"68071-0398-90 ")
  1. ;;6099
  1. ;;21,"68084-0069-01 ")
  1. ;;6100
  1. ;;21,"68084-0069-11 ")
  1. ;;6101
  1. ;;21,"68084-0070-01 ")
  1. ;;6102
  1. ;;21,"68084-0070-11 ")
  1. ;;6103
  1. ;;21,"68084-0071-01 ")
  1. ;;6104
  1. ;;21,"68084-0071-11 ")
  1. ;;6105
  1. ;;21,"68084-0218-11 ")
  1. ;;6106
  1. ;;21,"68084-0219-11 ")
  1. ;;6107
  1. ;;21,"68084-0230-01 ")
  1. ;;6108
  1. ;;21,"68084-0230-11 ")
  1. ;;6109
  1. ;;21,"68084-0235-01 ")
  1. ;;6110
  1. ;;21,"68084-0235-11 ")
  1. ;;6111
  1. ;;21,"68084-0236-01 ")
  1. ;;6112
  1. ;;21,"68084-0236-11 ")
  1. ;;6113
  1. ;;21,"68084-0243-01 ")
  1. ;;6114
  1. ;;21,"68084-0243-11 ")
  1. ;;6115
  1. ;;21,"68084-0244-01 ")
  1. ;;6116
  1. ;;21,"68084-0244-11 ")
  1. ;;6117
  1. ;;21,"68084-0278-01 ")
  1. ;;6118
  1. ;;21,"68084-0278-11 ")
  1. ;;6119
  1. ;;21,"68084-0278-30 ")
  1. ;;6120
  1. ;;21,"68084-0278-65 ")
  1. ;;6121
  1. ;;21,"68084-0278-89 ")
  1. ;;6122
  1. ;;21,"68084-0279-21 ")
  1. ;;6123
  1. ;;21,"68084-0289-01 ")
  1. ;;6124
  1. ;;21,"68084-0289-11 ")
  1. ;;6125
  1. ;;21,"68084-0437-11 ")
  1. ;;6126
  1. ;;21,"68084-0437-65 ")
  1. ;;6127
  1. ;;21,"68084-0443-11 ")
  1. ;;6128
  1. ;;21,"68084-0443-65 ")
  1. ;;6129
  1. ;;21,"68084-0464-11 ")
  1. ;;6130
  1. ;;21,"68084-0464-21 ")
  1. ;;6131
  1. ;;21,"68084-0481-01 ")
  1. ;;6132
  1. ;;21,"68084-0481-11 ")
  1. ;;6133
  1. ;;21,"68084-0482-01 ")
  1. ;;6134
  1. ;;21,"68084-0482-11 ")
  1. ;;6135
  1. ;;21,"68084-0483-01 ")
  1. ;;6136
  1. ;;21,"68084-0483-11 ")
  1. ;;6137
  1. ;;21,"68084-0623-11 ")
  1. ;;6138
  1. ;;21,"68084-0623-65 ")
  1. ;;6139
  1. ;;21,"68084-0651-25 ")
  1. ;;6140
  1. ;;21,"68084-0656-01 ")
  1. ;;6141
  1. ;;21,"68084-0722-11 ")
  1. ;;6142
  1. ;;21,"68084-0722-65 ")
  1. ;;6143
  1. ;;21,"68084-0743-32 ")
  1. ;;6144
  1. ;;21,"68084-0747-25 ")
  1. ;;6145
  1. ;;21,"68084-0785-25 ")
  1. ;;6146
  1. ;;21,"68084-0785-95 ")
  1. ;;6147
  1. ;;21,"68084-0906-01 ")
  1. ;;6148
  1. ;;21,"68084-0913-32 ")
  1. ;;6149
  1. ;;21,"68084-0920-32 ")
  1. ;;6150
  1. ;;21,"68115-0026-06 ")
  1. ;;6151
  1. ;;21,"68115-0026-09 ")
  1. ;;6152
  1. ;;21,"68115-0026-15 ")
  1. ;;6153
  1. ;;21,"68115-0026-40 ")
  1. ;;6154
  1. ;;21,"68115-0029-20 ")
  1. ;;6155
  1. ;;21,"68115-0030-10 ")
  1. ;;6156
  1. ;;21,"68115-0032-40 ")
  1. ;;6157
  1. ;;21,"68115-0033-15 ")
  1. ;;6158
  1. ;;21,"68115-0033-40 ")
  1. ;;6159
  1. ;;21,"68115-0067-20 ")
  1. ;;6160
  1. ;;21,"68115-0081-06 ")
  1. ;;6161
  1. ;;21,"68115-0081-10 ")
  1. ;;6162
  1. ;;21,"68115-0082-01 ")
  1. ;;6163
  1. ;;21,"68115-0082-06 ")
  1. ;;6164
  1. ;;21,"68115-0090-20 ")
  1. ;;6165
  1. ;;21,"68115-0104-06 ")
  1. ;;6166
  1. ;;21,"68115-0104-40 ")
  1. ;;6167
  1. ;;21,"68115-0105-30 ")
  1. ;;6168
  1. ;;21,"68115-0105-40 ")
  1. ;;6169
  1. ;;21,"68115-0125-28 ")
  1. ;;6170
  1. ;;21,"68115-0131-06 ")
  1. ;;6171
  1. ;;21,"68115-0131-15 ")
  1. ;;6172
  1. ;;21,"68115-0131-21 ")
  1. ;;6173
  1. ;;21,"68115-0131-40 ")
  1. ;;6174
  1. ;;21,"68115-0133-20 ")
  1. ;;6175
  1. ;;21,"68115-0133-40 ")
  1. ;;6176
  1. ;;21,"68115-0134-06 ")
  1. ;;6177
  1. ;;21,"68115-0134-40 ")
  1. ;;6178
  1. ;;21,"68115-0421-28 ")
  1. ;;6179
  1. ;;21,"68115-0445-22 ")
  1. ;;6180
  1. ;;21,"68160-0161-13 ")
  1. ;;6181
  1. ;;21,"68180-0121-01 ")
  1. ;;6182
  1. ;;21,"68180-0121-02 ")
  1. ;;6183
  1. ;;21,"68180-0122-01 ")
  1. ;;6184
  1. ;;21,"68180-0122-02 ")
  1. ;;6185
  1. ;;21,"68180-0123-01 ")
  1. ;;6186
  1. ;;21,"68180-0123-02 ")
  1. ;;6187
  1. ;;21,"68180-0124-01 ")
  1. ;;6188
  1. ;;21,"68180-0124-02 ")
  1. ;;6189
  1. ;;21,"68180-0160-06 ")
  1. ;;6190
  1. ;;21,"68180-0160-13 ")
  1. ;;6191
  1. ;;21,"68180-0161-06 ")
  1. ;;6192
  1. ;;21,"68180-0162-06 ")
  1. ;;6193
  1. ;;21,"68180-0180-01 ")
  1. ;;6194
  1. ;;21,"68180-0180-08 ")
  1. ;;6195
  1. ;;21,"68180-0181-01 ")
  1. ;;6196
  1. ;;21,"68180-0181-02 ")
  1. ;;6197
  1. ;;21,"68180-0182-02 ")
  1. ;;6198
  1. ;;21,"68180-0182-03 ")
  1. ;;6199
  1. ;;21,"68180-0202-01 ")
  1. ;;6200
  1. ;;21,"68180-0202-02 ")
  1. ;;6201
  1. ;;21,"68180-0202-03 ")
  1. ;;6202
  1. ;;21,"68180-0240-01 ")
  1. ;;6203
  1. ;;21,"68180-0240-08 ")
  1. ;;6204
  1. ;;21,"68180-0241-01 ")
  1. ;;6205
  1. ;;21,"68180-0241-02 ")
  1. ;;6206
  1. ;;21,"68180-0241-08 ")
  1. ;;6207
  1. ;;21,"68180-0242-01 ")
  1. ;;6208
  1. ;;21,"68180-0242-20 ")
  1. ;;6209
  1. ;;21,"68180-0379-06 ")
  1. ;;6210
  1. ;;21,"68180-0380-06 ")
  1. ;;6211
  1. ;;21,"68180-0381-06 ")
  1. ;;6212
  1. ;;21,"68180-0392-01 ")
  1. ;;6213
  1. ;;21,"68180-0393-01 ")
  1. ;;6214
  1. ;;21,"68180-0405-01 ")
  1. ;;6215
  1. ;;21,"68180-0407-03 ")
  1. ;;6216
  1. ;;21,"68180-0407-04 ")
  1. ;;6217
  1. ;;21,"68180-0611-01 ")
  1. ;;6218
  1. ;;21,"68180-0611-10 ")
  1. ;;6219
  1. ;;21,"68180-0622-01 ")
  1. ;;6220
  1. ;;21,"68180-0622-10 ")
  1. ;;6221
  1. ;;21,"68180-0633-01 ")
  1. ;;6222
  1. ;;21,"68180-0633-10 ")
  1. ;;6223
  1. ;;21,"68180-0644-01 ")
  1. ;;6224
  1. ;;21,"68180-0644-10 ")
  1. ;;6225
  1. ;;21,"68180-0650-01 ")
  1. ;;6226
  1. ;;21,"68180-0651-01 ")
  1. ;;6227
  1. ;;21,"68180-0652-08 ")
  1. ;;6228
  1. ;;21,"68180-0657-01 ")
  1. ;;6229
  1. ;;21,"68180-0711-60 ")
  1. ;;6230
  1. ;;21,"68180-0722-10 ")
  1. ;;6231
  1. ;;21,"68180-0722-20 ")
  1. ;;6232
  1. ;;21,"68180-0723-10 ")
  1. ;;6233
  1. ;;21,"68180-0723-20 ")
  1. ;;6234
  1. ;;21,"68258-3012-01 ")
  1. ;;6235
  1. ;;21,"68258-9300-02 ")
  1. ;;6236
  1. ;;21,"68308-0250-10 ")
  1. ;;6237
  1. ;;21,"68308-0710-10 ")
  1. ;;6238
  1. ;;21,"68308-0715-10 ")
  1. ;;6239
  1. ;;21,"68308-0775-60 ")
  1. ;;6240
  1. ;;21,"68330-0001-01 ")
  1. ;;6241
  1. ;;21,"68330-0001-10 ")
  1. ;;6242
  1. ;;21,"68330-0002-01 ")
  1. ;;6243
  1. ;;21,"68330-0002-10 ")
  1. ;;6244
  1. ;;21,"68330-0003-01 ")
  1. ;;6245
  1. ;;21,"68330-0003-10 ")
  1. ;;6246
  1. ;;21,"68330-0004-01 ")
  1. ;;6247
  1. ;;21,"68330-0004-10 ")
  1. ;;6248
  1. ;;21,"68330-0015-25 ")
  1. ;;6249
  1. ;;21,"68382-0015-01 ")
  1. ;;6250
  1. ;;21,"68382-0015-18 ")
  1. ;;6251
  1. ;;21,"68382-0016-01 ")
  1. ;;6252
  1. ;;21,"68382-0016-18 ")
  1. ;;6253
  1. ;;21,"68382-0017-01 ")
  1. ;;6254
  1. ;;21,"68382-0017-18 ")
  1. ;;6255
  1. ;;21,"68382-0707-18 ")
  1. ;;6256
  1. ;;21,"68382-0761-14 ")
  1. ;;6257
  1. ;;21,"68382-0762-14 ")
  1. ;;6258
  1. ;;21,"68382-0763-14 ")
  1. ;;6259
  1. ;;21,"68382-0764-05 ")
  1. ;;6260
  1. ;;21,"68382-0764-06 ")
  1. ;;6261
  1. ;;21,"68382-0765-05 ")
  1. ;;6262
  1. ;;21,"68382-0765-06 ")
  1. ;;6263
  1. ;;21,"68382-0782-01 ")
  1. ;;6264
  1. ;;21,"68387-0117-30 ")
  1. ;;6265
  1. ;;21,"68387-0190-20 ")
  1. ;;6266
  1. ;;21,"68387-0190-21 ")
  1. ;;6267
  1. ;;21,"68387-0190-30 ")
  1. ;;6268
  1. ;;21,"68387-0190-40 ")
  1. ;;6269
  1. ;;21,"68387-0380-20 ")
  1. ;;6270
  1. ;;21,"68387-0385-20 ")
  1. ;;6271
  1. ;;21,"68387-0385-30 ")
  1. ;;6272
  1. ;;21,"68387-0385-60 ")
  1. ;;6273
  1. ;;21,"68387-0390-20 ")
  1. ;;6274
  1. ;;21,"68387-0390-28 ")
  1. ;;6275
  1. ;;21,"68387-0430-30 ")
  1. ;;6276
  1. ;;21,"68387-0430-40 ")
  1. ;;6277
  1. ;;21,"68387-0470-14 ")
  1. ;;6278
  1. ;;21,"68387-0470-20 ")
  1. ;;6279
  1. ;;21,"68387-0534-01 ")
  1. ;;6280
  1. ;;21,"68387-0535-15 ")
  1. ;;6281
  1. ;;21,"68387-0535-20 ")
  1. ;;6282
  1. ;;21,"68387-0565-06 ")
  1. ;;6283
  1. ;;21,"68387-0580-15 ")
  1. ;;6284
  1. ;;21,"68453-0112-10 ")
  1. ;;6285
  1. ;;21,"68453-0113-10 ")
  1. ;;6286
  1. ;;21,"68453-0115-05 ")
  1. ;;6287
  1. ;;21,"68453-0142-03 ")
  1. ;;6288
  1. ;;21,"68462-0339-01 ")
  1. ;;6289
  1. ;;21,"68462-0339-05 ")
  1. ;;6290
  1. ;;21,"68462-0340-01 ")
  1. ;;6291
  1. ;;21,"68462-0340-05 ")
  1. ;;6292
  1. ;;21,"68645-0030-20 ")
  1. ;;6293
  1. ;;21,"68774-0120-60 ")
  1. ;;6294
  1. ;;21,"68774-0122-60 ")
  1. ;;6295
  1. ;;21,"68774-0302-29 ")
  1. ;;6296
  1. ;;21,"68774-0302-35 ")
  1. ;;6297
  1. ;;21,"68774-0303-29 ")
  1. ;;6298
  1. ;;21,"68774-0303-35 ")
  1. ;;6299
  1. ;;21,"68820-0063-06 ")
  1. ;;6300
  1. ;;21,"68820-0063-19 ")
  1. ;;6301
  1. ;;21,"68820-0064-17 ")
  1. ;;6302
  1. ;;21,"68820-0064-37 ")
  1. ;;6303
  1. ;;21,"68820-0065-17 ")
  1. ;;6304
  1. ;;21,"68820-0065-37 ")
  1. ;;6305
  1. ;;21,"69007-0822-30 ")
  1. ;;6306
  1. ;;21,"69097-0226-70 ")
  1. ;;6307
  1. ;;21,"69097-0227-70 ")
  1. ;;6308
  1. ;;21,"69235-0310-50 ")
  1. ;;6309
  1. ;;21,"69489-0111-60 ")
  1. ;;6310
  1. ;;21,"69543-0101-10 ")
  1. ;;6311
  1. ;;21,"69543-0101-50 ")
  1. ;;6312
  1. ;;21,"69543-0102-10 ")
  1. ;;6313
  1. ;;21,"69543-0102-50 ")
  1. ;;6314
  1. ;;21,"69654-0501-05 ")
  1. ;;6315
  1. ;;21,"69668-0431-01 ")
  1. ;;6316
  1. ;;21,"69668-0432-01 ")
  1. ;;6317
  1. ;;21,"69668-0433-01 ")
  1. ;;6318
  1. ;;21,"76439-0101-10 ")
  1. ;;6319
  1. ;;21,"76439-0101-50 ")
  1. ;;6320
  1. ;;21,"76439-0102-10 ")
  1. ;;6321
  1. ;;21,"76439-0102-50 ")
  1. ;;6322
  1. ;;21,"76439-0103-10 ")
  1. ;;6323
  1. ;;21,"76439-0103-50 ")
  1. ;;6324
  1. ;;21,"76439-0104-10 ")
  1. ;;6325
  1. ;;21,"76439-0104-50 ")
  1. ;;6326
  1. ;;21,"99207-0460-10 ")
  1. ;;6327
  1. ;;21,"99207-0460-30 ")
  1. ;;6328
  1. ;;21,"99207-0461-10 ")
  1. ;;6329
  1. ;;21,"99207-0461-30 ")
  1. ;;6330
  1. ;;21,"99207-0462-10 ")
  1. ;;6331
  1. ;;21,"99207-0462-30 ")
  1. ;;6332
  1. ;;21,"99207-0463-30 ")
  1. ;;6333
  1. ;;21,"99207-0464-30 ")
  1. ;;6334
  1. ;;21,"99207-0465-30 ")
  1. ;;6335
  1. ;;21,"99207-0466-30 ")
  1. ;;6336
  1. ;;21,"99207-0467-30 ")
  1. ;;6337
  1. ;;21,"99207-0490-10 ")
  1. ;;6338
  1. ;;21,"99207-0491-10 ")
  1. ;;6339
  1. ;;21,"99207-0492-11 ")
  1. ;;6340
  1. ;;21,"99207-0492-50 ")
  1. ;;6341
  1. ;;21,"99207-0497-05 ")
  1. ;;6342
  1. ;;21,"99207-0498-05 ")
  1. ;;6343
  1. ;;21,"99207-0499-05 ")
  1. ;;6344
  1. ;;21,"99207-0499-10 ")
  1. ;;6345
  1. ;;21,"99207-0499-11 ")
  1. ;;6346
  1. ;;9002226,868,.01)
  1. ;;BGP HEDIS ANTIBIOTICS NDC
  1. ;;9002226,868,.02)
  1. ;;@
  1. ;;9002226,868,.04)
  1. ;;n
  1. ;;9002226,868,.06)
  1. ;;@
  1. ;;9002226,868,.08)
  1. ;;@