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

BGP33J19.m

Go to the documentation of this file.
BGP33J19 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"66860-0011-02 ")
 ;;6971
 ;;21,"66860-0012-02 ")
 ;;6972
 ;;21,"66860-0013-02 ")
 ;;6973
 ;;21,"66860-0015-02 ")
 ;;6974
 ;;21,"66860-0030-03 ")
 ;;6975
 ;;21,"66860-0031-03 ")
 ;;6976
 ;;21,"66860-0032-02 ")
 ;;6977
 ;;21,"66860-0071-02 ")
 ;;6978
 ;;21,"66860-0072-02 ")
 ;;6979
 ;;21,"66860-0073-02 ")
 ;;6980
 ;;21,"66860-0074-02 ")
 ;;6981
 ;;21,"66860-0730-03 ")
 ;;6982
 ;;21,"66860-0731-03 ")
 ;;6983
 ;;21,"66860-0732-02 ")
 ;;6984
 ;;21,"66860-0902-03 ")
 ;;6985
 ;;21,"67046-0020-21 ")
 ;;6986
 ;;21,"67046-0090-21 ")
 ;;6987
 ;;21,"67046-0090-28 ")
 ;;6988
 ;;21,"67046-0090-30 ")
 ;;6989
 ;;21,"67046-0135-14 ")
 ;;6990
 ;;21,"67046-0135-20 ")
 ;;6991
 ;;21,"67046-0135-30 ")
 ;;6992
 ;;21,"67046-0576-21 ")
 ;;6993
 ;;21,"67046-0576-28 ")
 ;;6994
 ;;21,"67046-0576-30 ")
 ;;6995
 ;;21,"67046-0728-30 ")
 ;;6996
 ;;21,"67253-0007-60 ")
 ;;6997
 ;;21,"67253-0008-41 ")
 ;;6998
 ;;21,"67253-0008-46 ")
 ;;6999
 ;;21,"67253-0009-41 ")
 ;;7000
 ;;21,"67253-0009-46 ")
 ;;7001
 ;;21,"67253-0140-10 ")
 ;;7002
 ;;21,"67253-0140-50 ")
 ;;7003
 ;;21,"67253-0141-10 ")
 ;;7004
 ;;21,"67253-0141-50 ")
 ;;7005
 ;;21,"67253-0142-08 ")
 ;;7006
 ;;21,"67253-0142-10 ")
 ;;7007
 ;;21,"67253-0142-15 ")
 ;;7008
 ;;21,"67253-0143-08 ")
 ;;7009
 ;;21,"67253-0143-10 ")
 ;;7010
 ;;21,"67253-0143-15 ")
 ;;7011
 ;;21,"67253-0145-10 ")
 ;;7012
 ;;21,"67253-0180-10 ")
 ;;7013
 ;;21,"67253-0180-50 ")
 ;;7014
 ;;21,"67253-0181-10 ")
 ;;7015
 ;;21,"67253-0181-50 ")
 ;;7016
 ;;21,"67253-0182-10 ")
 ;;7017
 ;;21,"67253-0182-20 ")
 ;;7018
 ;;21,"67253-0183-10 ")
 ;;7019
 ;;21,"67253-0183-20 ")
 ;;7020
 ;;21,"67253-0200-10 ")
 ;;7021
 ;;21,"67253-0200-11 ")
 ;;7022
 ;;21,"67253-0201-10 ")
 ;;7023
 ;;21,"67253-0201-50 ")
 ;;7024
 ;;21,"67253-0202-10 ")
 ;;7025
 ;;21,"67253-0202-20 ")
 ;;7026
 ;;21,"67253-0203-10 ")
 ;;7027
 ;;21,"67253-0203-20 ")
 ;;7028
 ;;21,"67253-0300-10 ")
 ;;7029
 ;;21,"67253-0300-50 ")
 ;;7030
 ;;21,"67253-0301-10 ")
 ;;7031
 ;;21,"67253-0301-50 ")
 ;;7032
 ;;21,"67253-0780-02 ")
 ;;7033
 ;;21,"67253-0781-02 ")
 ;;7034
 ;;21,"67544-0775-28 ")
 ;;7035
 ;;21,"67781-0181-60 ")
 ;;7036
 ;;21,"67877-0215-20 ")
 ;;7037
 ;;21,"67877-0215-60 ")
 ;;7038
 ;;21,"67877-0216-20 ")
 ;;7039
 ;;21,"67877-0216-60 ")
 ;;7040
 ;;21,"67877-0219-05 ")
 ;;7041
 ;;21,"67877-0220-05 ")
 ;;7042
 ;;21,"68047-0714-01 ")
 ;;7043
 ;;21,"68047-0714-60 ")
 ;;7044
 ;;21,"68071-0055-06 ")
 ;;7045
 ;;21,"68071-0055-10 ")
 ;;7046
 ;;21,"68071-0055-14 ")
 ;;7047
 ;;21,"68071-0055-20 ")
 ;;7048
 ;;21,"68071-0055-28 ")
 ;;7049
 ;;21,"68071-0055-30 ")
 ;;7050
 ;;21,"68071-0063-30 ")
 ;;7051
 ;;21,"68071-0331-14 ")
 ;;7052
 ;;21,"68071-0331-20 ")
 ;;7053
 ;;21,"68071-0331-30 ")
 ;;7054
 ;;21,"68071-0337-14 ")
 ;;7055
 ;;21,"68071-0337-20 ")
 ;;7056
 ;;21,"68071-0337-30 ")
 ;;7057
 ;;21,"68071-0398-06 ")
 ;;7058
 ;;21,"68071-0398-14 ")
 ;;7059
 ;;21,"68071-0398-20 ")
 ;;7060
 ;;21,"68071-0398-30 ")
 ;;7061
 ;;21,"68071-0398-40 ")
 ;;7062
 ;;21,"68071-0398-90 ")
 ;;7063
 ;;21,"68084-0069-01 ")
 ;;7064
 ;;21,"68084-0069-11 ")
 ;;7065
 ;;21,"68084-0070-01 ")
 ;;7066
 ;;21,"68084-0070-11 ")
 ;;7067
 ;;21,"68084-0071-01 ")
 ;;7068
 ;;21,"68084-0071-11 ")
 ;;7069
 ;;21,"68084-0218-01 ")
 ;;7070
 ;;21,"68084-0218-11 ")
 ;;7071
 ;;21,"68084-0219-01 ")
 ;;7072
 ;;21,"68084-0219-11 ")
 ;;7073
 ;;21,"68084-0230-01 ")
 ;;7074
 ;;21,"68084-0230-11 ")
 ;;7075
 ;;21,"68084-0235-01 ")
 ;;7076
 ;;21,"68084-0235-11 ")
 ;;7077
 ;;21,"68084-0236-01 ")
 ;;7078
 ;;21,"68084-0236-11 ")
 ;;7079
 ;;21,"68084-0243-01 ")
 ;;7080
 ;;21,"68084-0243-11 ")
 ;;7081
 ;;21,"68084-0244-01 ")
 ;;7082
 ;;21,"68084-0244-11 ")
 ;;7083
 ;;21,"68084-0278-01 ")
 ;;7084
 ;;21,"68084-0278-11 ")
 ;;7085
 ;;21,"68084-0278-30 ")
 ;;7086
 ;;21,"68084-0278-65 ")
 ;;7087
 ;;21,"68084-0278-89 ")
 ;;7088
 ;;21,"68084-0279-11 ")
 ;;7089
 ;;21,"68084-0279-21 ")
 ;;7090
 ;;21,"68084-0289-01 ")
 ;;7091
 ;;21,"68084-0289-11 ")
 ;;7092
 ;;21,"68084-0437-11 ")
 ;;7093
 ;;21,"68084-0437-65 ")
 ;;7094
 ;;21,"68084-0443-11 ")
 ;;7095
 ;;21,"68084-0443-65 ")
 ;;7096
 ;;21,"68084-0464-11 ")
 ;;7097
 ;;21,"68084-0464-21 ")
 ;;7098
 ;;21,"68084-0481-01 ")
 ;;7099
 ;;21,"68084-0481-11 ")
 ;;7100
 ;;21,"68084-0482-01 ")
 ;;7101
 ;;21,"68084-0482-11 ")
 ;;7102
 ;;21,"68084-0483-01 ")
 ;;7103
 ;;21,"68084-0483-11 ")
 ;;7104
 ;;21,"68115-0025-30 ")
 ;;7105
 ;;21,"68115-0026-04 ")
 ;;7106
 ;;21,"68115-0026-06 ")
 ;;7107
 ;;21,"68115-0026-09 ")
 ;;7108
 ;;21,"68115-0026-15 ")
 ;;7109
 ;;21,"68115-0026-21 ")
 ;;7110
 ;;21,"68115-0026-30 ")
 ;;7111
 ;;21,"68115-0026-40 ")
 ;;7112
 ;;21,"68115-0027-21 ")
 ;;7113
 ;;21,"68115-0027-30 ")
 ;;7114
 ;;21,"68115-0028-30 ")
 ;;7115
 ;;21,"68115-0029-00 ")
 ;;7116
 ;;21,"68115-0029-04 ")
 ;;7117
 ;;21,"68115-0029-06 ")
 ;;7118
 ;;21,"68115-0029-09 ")
 ;;7119
 ;;21,"68115-0029-18 ")
 ;;7120
 ;;21,"68115-0029-20 ")
 ;;7121
 ;;21,"68115-0029-30 ")
 ;;7122
 ;;21,"68115-0029-40 ")
 ;;7123
 ;;21,"68115-0030-10 ")
 ;;7124
 ;;21,"68115-0030-14 ")
 ;;7125
 ;;21,"68115-0032-28 ")
 ;;7126
 ;;21,"68115-0032-40 ")
 ;;7127
 ;;21,"68115-0033-15 ")
 ;;7128
 ;;21,"68115-0033-21 ")
 ;;7129
 ;;21,"68115-0033-40 ")
 ;;7130
 ;;21,"68115-0047-14 ")
 ;;7131
 ;;21,"68115-0047-20 ")
 ;;7132
 ;;21,"68115-0048-14 ")
 ;;7133
 ;;21,"68115-0065-30 ")
 ;;7134
 ;;21,"68115-0066-30 ")
 ;;7135
 ;;21,"68115-0067-10 ")
 ;;7136
 ;;21,"68115-0067-20 ")
 ;;7137
 ;;21,"68115-0067-24 ")
 ;;7138
 ;;21,"68115-0072-06 ")
 ;;7139
 ;;21,"68115-0072-09 ")
 ;;7140
 ;;21,"68115-0072-12 ")
 ;;7141
 ;;21,"68115-0072-15 ")
 ;;7142
 ;;21,"68115-0072-20 ")
 ;;7143
 ;;21,"68115-0072-28 ")
 ;;7144
 ;;21,"68115-0072-40 ")
 ;;7145
 ;;21,"68115-0073-06 ")
 ;;7146
 ;;21,"68115-0073-09 ")
 ;;7147
 ;;21,"68115-0073-10 ")
 ;;7148
 ;;21,"68115-0073-12 ")
 ;;7149
 ;;21,"68115-0073-14 ")
 ;;7150
 ;;21,"68115-0073-20 ")
 ;;7151
 ;;21,"68115-0073-28 ")
 ;;7152
 ;;21,"68115-0073-30 ")
 ;;7153
 ;;21,"68115-0073-40 ")
 ;;7154
 ;;21,"68115-0073-48 ")
 ;;7155
 ;;21,"68115-0073-60 ")
 ;;7156
 ;;21,"68115-0073-92 ")
 ;;7157
 ;;21,"68115-0081-06 ")
 ;;7158
 ;;21,"68115-0081-10 ")
 ;;7159
 ;;21,"68115-0082-00 ")
 ;;7160
 ;;21,"68115-0082-01 ")
 ;;7161
 ;;21,"68115-0082-06 ")
 ;;7162
 ;;21,"68115-0082-10 ")
 ;;7163
 ;;21,"68115-0082-14 ")
 ;;7164
 ;;21,"68115-0082-20 ")
 ;;7165
 ;;21,"68115-0086-04 ")
 ;;7166
 ;;21,"68115-0086-06 ")
 ;;7167
 ;;21,"68115-0086-12 ")
 ;;7168
 ;;21,"68115-0086-20 ")
 ;;7169
 ;;21,"68115-0086-21 ")
 ;;7170
 ;;21,"68115-0086-28 ")
 ;;7171
 ;;21,"68115-0086-36 ")
 ;;7172
 ;;21,"68115-0086-56 ")
 ;;7173
 ;;21,"68115-0090-20 ")
 ;;7174
 ;;21,"68115-0104-06 ")
 ;;7175
 ;;21,"68115-0104-20 ")
 ;;7176
 ;;21,"68115-0104-28 ")
 ;;7177
 ;;21,"68115-0104-40 ")
 ;;7178
 ;;21,"68115-0105-10 ")
 ;;7179
 ;;21,"68115-0105-20 ")
 ;;7180
 ;;21,"68115-0105-28 ")
 ;;7181
 ;;21,"68115-0105-30 ")
 ;;7182
 ;;21,"68115-0105-40 ")
 ;;7183
 ;;21,"68115-0125-06 ")
 ;;7184
 ;;21,"68115-0125-10 ")
 ;;7185
 ;;21,"68115-0125-14 ")
 ;;7186
 ;;21,"68115-0125-20 ")
 ;;7187
 ;;21,"68115-0125-28 ")
 ;;7188
 ;;21,"68115-0125-30 ")
 ;;7189
 ;;21,"68115-0125-60 ")
 ;;7190
 ;;21,"68115-0125-97 ")
 ;;7191
 ;;21,"68115-0125-99 ")
 ;;7192
 ;;21,"68115-0126-06 ")
 ;;7193
 ;;21,"68115-0126-21 ")
 ;;7194
 ;;21,"68115-0126-28 ")
 ;;7195
 ;;21,"68115-0126-30 ")
 ;;7196
 ;;21,"68115-0126-40 ")
 ;;7197
 ;;21,"68115-0126-56 ")
 ;;7198
 ;;21,"68115-0131-06 ")
 ;;7199
 ;;21,"68115-0131-15 ")
 ;;7200
 ;;21,"68115-0131-21 ")
 ;;7201
 ;;21,"68115-0131-30 ")
 ;;7202
 ;;21,"68115-0131-40 ")
 ;;7203
 ;;21,"68115-0132-20 ")
 ;;7204
 ;;21,"68115-0132-28 ")
 ;;7205
 ;;21,"68115-0133-20 ")
 ;;7206
 ;;21,"68115-0133-40 ")
 ;;7207
 ;;21,"68115-0134-06 ")
 ;;7208
 ;;21,"68115-0134-20 ")
 ;;7209
 ;;21,"68115-0134-28 ")
 ;;7210
 ;;21,"68115-0134-40 ")
 ;;7211
 ;;21,"68115-0135-06 ")
 ;;7212
 ;;21,"68115-0135-20 ")
 ;;7213
 ;;21,"68115-0135-30 ")
 ;;7214
 ;;21,"68115-0135-40 ")
 ;;7215
 ;;21,"68115-0136-28 ")
 ;;7216
 ;;21,"68115-0136-40 ")
 ;;7217
 ;;21,"68115-0196-10 ")
 ;;7218
 ;;21,"68115-0197-10 ")
 ;;7219
 ;;21,"68115-0322-00 ")
 ;;7220
 ;;21,"68115-0322-06 ")
 ;;7221
 ;;21,"68115-0322-14 ")
 ;;7222
 ;;21,"68115-0322-20 ")
 ;;7223
 ;;21,"68115-0322-28 ")
 ;;7224
 ;;21,"68115-0322-40 ")
 ;;7225
 ;;21,"68115-0325-28 ")
 ;;7226
 ;;21,"68115-0325-40 ")
 ;;7227
 ;;21,"68115-0326-20 ")
 ;;7228
 ;;21,"68115-0326-28 ")
 ;;7229
 ;;21,"68115-0326-40 ")
 ;;7230
 ;;21,"68115-0326-60 ")
 ;;7231
 ;;21,"68115-0364-04 ")
 ;;7232
 ;;21,"68115-0364-50 ")
 ;;7233
 ;;21,"68115-0386-20 ")
 ;;7234
 ;;21,"68115-0421-09 ")
 ;;7235
 ;;21,"68115-0421-28 ")
 ;;7236
 ;;21,"68115-0445-22 ")
 ;;7237
 ;;21,"68115-0446-01 ")
 ;;7238
 ;;21,"68115-0446-06 ")
 ;;7239
 ;;21,"68115-0446-08 ")
 ;;7240
 ;;21,"68115-0446-10 ")
 ;;7241
 ;;21,"68115-0446-14 ")
 ;;7242
 ;;21,"68115-0446-20 ")
 ;;7243
 ;;21,"68115-0446-30 ")
 ;;7244
 ;;21,"68115-0463-20 ")
 ;;7245
 ;;21,"68115-0488-40 ")
 ;;7246
 ;;21,"68115-0541-50 ")
 ;;7247
 ;;21,"68115-0904-00 ")
 ;;7248
 ;;21,"68115-0904-50 ")
 ;;7249
 ;;21,"68115-0904-80 ")
 ;;7250
 ;;21,"68115-0925-05 ")
 ;;7251
 ;;21,"68115-0931-06 ")
 ;;7252
 ;;21,"68115-0990-20 ")
 ;;7253
 ;;21,"68115-0991-20 ")
 ;;7254
 ;;21,"68115-0993-50 ")
 ;;7255
 ;;21,"68115-0994-00 ")
 ;;7256
 ;;21,"68180-0121-01 ")
 ;;7257
 ;;21,"68180-0121-02 ")
 ;;7258
 ;;21,"68180-0122-01 ")
 ;;7259
 ;;21,"68180-0122-02 ")
 ;;7260
 ;;21,"68180-0123-01 ")
 ;;7261
 ;;21,"68180-0123-02 ")
 ;;7262
 ;;21,"68180-0124-01 ")
 ;;7263
 ;;21,"68180-0124-02 ")
 ;;7264
 ;;21,"68180-0180-01 ")
 ;;7265
 ;;21,"68180-0180-08 ")
 ;;7266
 ;;21,"68180-0181-01 ")
 ;;7267
 ;;21,"68180-0181-02 ")
 ;;7268
 ;;21,"68180-0182-02 ")
 ;;7269
 ;;21,"68180-0182-03 ")
 ;;7270
 ;;21,"68180-0202-01 ")
 ;;7271
 ;;21,"68180-0202-02 ")
 ;;7272
 ;;21,"68180-0202-03 ")
 ;;7273
 ;;21,"68180-0240-01 ")
 ;;7274
 ;;21,"68180-0240-08 ")
 ;;7275
 ;;21,"68180-0241-01 ")
 ;;7276
 ;;21,"68180-0241-08 ")
 ;;7277
 ;;21,"68180-0242-01 ")
 ;;7278
 ;;21,"68180-0242-20 ")
 ;;7279
 ;;21,"68180-0302-20 ")
 ;;7280
 ;;21,"68180-0302-60 ")
 ;;7281
 ;;21,"68180-0303-20 ")
 ;;7282
 ;;21,"68180-0303-60 ")
 ;;7283
 ;;21,"68180-0401-01 ")
 ;;7284
 ;;21,"68180-0401-02 ")
 ;;7285
 ;;21,"68180-0401-03 ")
 ;;7286
 ;;21,"68180-0402-01 ")
 ;;7287
 ;;21,"68180-0402-02 ")
 ;;7288
 ;;21,"68180-0402-03 ")
 ;;7289
 ;;21,"68180-0403-01 ")
 ;;7290
 ;;21,"68180-0404-01 ")
 ;;7291
 ;;21,"68180-0404-02 ")
 ;;7292
 ;;21,"68180-0611-01 ")
 ;;7293
 ;;21,"68180-0611-10 ")
 ;;7294
 ;;21,"68180-0622-01 ")
 ;;7295
 ;;21,"68180-0622-10 ")
 ;;7296
 ;;21,"68180-0633-01 ")
 ;;7297
 ;;21,"68180-0633-10 ")
 ;;7298
 ;;21,"68180-0644-01 ")
 ;;7299
 ;;21,"68180-0644-10 ")
 ;;7300
 ;;21,"68180-0711-60 ")
 ;;7301
 ;;21,"68180-0722-10 ")
 ;;7302
 ;;21,"68180-0722-20 ")
 ;;7303
 ;;21,"68180-0723-10 ")
 ;;7304
 ;;21,"68180-0723-20 ")
 ;;7305
 ;;21,"68258-3012-01 ")
 ;;7306
 ;;21,"68258-9300-02 ")
 ;;7307
 ;;21,"68330-0001-01 ")
 ;;7308
 ;;21,"68330-0001-10 ")
 ;;7309
 ;;21,"68330-0002-01 ")
 ;;7310
 ;;21,"68330-0002-10 ")
 ;;7311
 ;;21,"68330-0003-01 ")
 ;;7312
 ;;21,"68330-0003-10 ")
 ;;7313
 ;;21,"68330-0004-01 ")
 ;;7314
 ;;21,"68330-0004-10 ")
 ;;7315
 ;;21,"68330-0005-01 ")
 ;;7316
 ;;21,"68330-0006-01 ")
 ;;7317
 ;;21,"68330-0015-25 ")
 ;;7318
 ;;21,"68382-0761-14 ")
 ;;7319
 ;;21,"68382-0762-14 ")
 ;;7320
 ;;21,"68382-0763-14 ")
 ;;7321
 ;;21,"68382-0764-05 ")
 ;;7322
 ;;21,"68382-0764-06 ")
 ;;7323
 ;;21,"68382-0765-05 ")
 ;;7324
 ;;21,"68382-0765-06 ")
 ;;7325
 ;;21,"68387-0117-30 ")
 ;;7326
 ;;21,"68387-0190-20 ")
 ;;7327
 ;;21,"68387-0190-21 ")
 ;;7328
 ;;21,"68387-0190-30 ")
 ;;7329
 ;;21,"68387-0190-40 ")
 ;;7330
 ;;21,"68387-0380-20 ")
 ;;7331
 ;;21,"68387-0385-20 ")
 ;;7332
 ;;21,"68387-0385-30 ")
 ;;7333
 ;;21,"68387-0385-60 ")
 ;;7334
 ;;21,"68387-0390-20 ")
 ;;7335
 ;;21,"68387-0390-28 ")
 ;;7336
 ;;21,"68387-0430-30 ")
 ;;7337
 ;;21,"68387-0430-40 ")
 ;;7338
 ;;21,"68387-0470-14 ")
 ;;7339
 ;;21,"68387-0470-20 ")
 ;;7340
 ;;21,"68387-0534-01 ")
 ;;7341
 ;;21,"68387-0535-15 ")
 ;;7342
 ;;21,"68387-0535-20 ")
 ;;7343
 ;;21,"68387-0548-28 ")
 ;;7344
 ;;21,"68387-0565-06 ")
 ;;7345
 ;;21,"68387-0580-15 ")
 ;;7346
 ;;21,"68453-0112-10 ")
 ;;7347
 ;;21,"68453-0113-10 ")
 ;;7348
 ;;21,"68453-0115-05 ")
 ;;7349
 ;;21,"68453-0142-03 ")
 ;;7350
 ;;21,"68462-0339-01 ")
 ;;7351
 ;;21,"68462-0339-05 ")
 ;;7352
 ;;21,"68462-0340-01 ")
 ;;7353
 ;;21,"68462-0340-05 ")
 ;;7354
 ;;21,"68645-0030-20 ")
 ;;7355
 ;;21,"68774-0120-60 ")
 ;;7356