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

BGPM5AUE.m

Go to the documentation of this file.
BGPM5AUE ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"68180012102 ")
 ;;6085
 ;;21,"68180012201 ")
 ;;6086
 ;;21,"68180012202 ")
 ;;6087
 ;;21,"68180012301 ")
 ;;6088
 ;;21,"68180012302 ")
 ;;6089
 ;;21,"68180012401 ")
 ;;6090
 ;;21,"68180012402 ")
 ;;6091
 ;;21,"68180018001 ")
 ;;6092
 ;;21,"68180018008 ")
 ;;6093
 ;;21,"68180018101 ")
 ;;6094
 ;;21,"68180018102 ")
 ;;6095
 ;;21,"68180018201 ")
 ;;6096
 ;;21,"68180018202 ")
 ;;6097
 ;;21,"68180018203 ")
 ;;6098
 ;;21,"68180024201 ")
 ;;6099
 ;;21,"68180024202 ")
 ;;6100
 ;;21,"68180024211 ")
 ;;6101
 ;;21,"68180024220 ")
 ;;6102
 ;;21,"68180030220 ")
 ;;6103
 ;;21,"68180030260 ")
 ;;6104
 ;;21,"68180030320 ")
 ;;6105
 ;;21,"68180030360 ")
 ;;6106
 ;;21,"68180040101 ")
 ;;6107
 ;;21,"68180040102 ")
 ;;6108
 ;;21,"68180040103 ")
 ;;6109
 ;;21,"68180040201 ")
 ;;6110
 ;;21,"68180040202 ")
 ;;6111
 ;;21,"68180040203 ")
 ;;6112
 ;;21,"68180040301 ")
 ;;6113
 ;;21,"68180040401 ")
 ;;6114
 ;;21,"68180040402 ")
 ;;6115
 ;;21,"68180061101 ")
 ;;6116
 ;;21,"68180061110 ")
 ;;6117
 ;;21,"68180062201 ")
 ;;6118
 ;;21,"68180062210 ")
 ;;6119
 ;;21,"68180063301 ")
 ;;6120
 ;;21,"68180063310 ")
 ;;6121
 ;;21,"68180064401 ")
 ;;6122
 ;;21,"68180064410 ")
 ;;6123
 ;;21,"68180065501 ")
 ;;6124
 ;;21,"68180071160 ")
 ;;6125
 ;;21,"68180072210 ")
 ;;6126
 ;;21,"68180072220 ")
 ;;6127
 ;;21,"68180072310 ")
 ;;6128
 ;;21,"68180072320 ")
 ;;6129
 ;;21,"68258930002 ")
 ;;6130
 ;;21,"68289000101 ")
 ;;6131
 ;;21,"68289000155 ")
 ;;6132
 ;;21,"68289000201 ")
 ;;6133
 ;;21,"68289000255 ")
 ;;6134
 ;;21,"68289000301 ")
 ;;6135
 ;;21,"68289000350 ")
 ;;6136
 ;;21,"68289000401 ")
 ;;6137
 ;;21,"68289000415 ")
 ;;6138
 ;;21,"68289000501 ")
 ;;6139
 ;;21,"68289000515 ")
 ;;6140
 ;;21,"68289000801 ")
 ;;6141
 ;;21,"68289000820 ")
 ;;6142
 ;;21,"68289000901 ")
 ;;6143
 ;;21,"68289000920 ")
 ;;6144
 ;;21,"68289005101 ")
 ;;6145
 ;;21,"68289005122 ")
 ;;6146
 ;;21,"68289005150 ")
 ;;6147
 ;;21,"68330000101 ")
 ;;6148
 ;;21,"68330000110 ")
 ;;6149
 ;;21,"68330000201 ")
 ;;6150
 ;;21,"68330000210 ")
 ;;6151
 ;;21,"68330000301 ")
 ;;6152
 ;;21,"68330000310 ")
 ;;6153
 ;;21,"68330000401 ")
 ;;6154
 ;;21,"68330000410 ")
 ;;6155
 ;;21,"68330000510 ")
 ;;6156
 ;;21,"68330000610 ")
 ;;6157
 ;;21,"68330001410 ")
 ;;6158
 ;;21,"68330001425 ")
 ;;6159
 ;;21,"68330001525 ")
 ;;6160
 ;;21,"68330001610 ")
 ;;6161
 ;;21,"68330001710 ")
 ;;6162
 ;;21,"68330002610 ")
 ;;6163
 ;;21,"68387011730 ")
 ;;6164
 ;;21,"68387019020 ")
 ;;6165
 ;;21,"68387019021 ")
 ;;6166
 ;;21,"68387019030 ")
 ;;6167
 ;;21,"68387019040 ")
 ;;6168
 ;;21,"68387038020 ")
 ;;6169
 ;;21,"68387038120 ")
 ;;6170
 ;;21,"68387038510 ")
 ;;6171
 ;;21,"68387038514 ")
 ;;6172
 ;;21,"68387038520 ")
 ;;6173
 ;;21,"68387038530 ")
 ;;6174
 ;;21,"68387038560 ")
 ;;6175
 ;;21,"68387039020 ")
 ;;6176
 ;;21,"68387039028 ")
 ;;6177
 ;;21,"68387039042 ")
 ;;6178
 ;;21,"68387042828 ")
 ;;6179
 ;;21,"68387043030 ")
 ;;6180
 ;;21,"68387043040 ")
 ;;6181
 ;;21,"68387047014 ")
 ;;6182
 ;;21,"68387047020 ")
 ;;6183
 ;;21,"68387053401 ")
 ;;6184
 ;;21,"68387053510 ")
 ;;6185
 ;;21,"68387053515 ")
 ;;6186
 ;;21,"68387053520 ")
 ;;6187
 ;;21,"68387058015 ")
 ;;6188
 ;;21,"68387058530 ")
 ;;6189
 ;;21,"68462033901 ")
 ;;6190
 ;;21,"68462033905 ")
 ;;6191
 ;;21,"68462034001 ")
 ;;6192
 ;;21,"68462034005 ")
 ;;6193
 ;;21,"68533001347 ")
 ;;6194
 ;;21,"68533001400 ")
 ;;6195
 ;;21,"68533001412 ")
 ;;6196
 ;;21,"68533001425 ")
 ;;6197
 ;;21,"68533001440 ")
 ;;6198
 ;;21,"68533001500 ")
 ;;6199
 ;;21,"68533001512 ")
 ;;6200
 ;;21,"68533001540 ")
 ;;6201
 ;;21,"68533001544 ")
 ;;6202
 ;;21,"68533001600 ")
 ;;6203
 ;;21,"68533001612 ")
 ;;6204
 ;;21,"68533001640 ")
 ;;6205
 ;;21,"68533001643 ")
 ;;6206
 ;;21,"68533051605 ")
 ;;6207
 ;;21,"68562042001 ")
 ;;6208
 ;;21,"68562042005 ")
 ;;6209
 ;;21,"68645002010 ")
 ;;6210
 ;;21,"68645002020 ")
 ;;6211
 ;;21,"68645002110 ")
 ;;6212
 ;;21,"68645003020 ")
 ;;6213
 ;;21,"68774012060 ")
 ;;6214
 ;;21,"68774012260 ")
 ;;6215
 ;;21,"68774012420 ")
 ;;6216
 ;;21,"68774012460 ")
 ;;6217
 ;;21,"68774012520 ")
 ;;6218
 ;;21,"68774030229 ")
 ;;6219
 ;;21,"68774030235 ")
 ;;6220
 ;;21,"68774030329 ")
 ;;6221
 ;;21,"68774030335 ")
 ;;6222
 ;;21,"68785000101 ")
 ;;6223
 ;;21,"68785000201 ")
 ;;6224
 ;;21,"68788001002 ")
 ;;6225
 ;;21,"68788001003 ")
 ;;6226
 ;;21,"68788001004 ")
 ;;6227
 ;;21,"68788001102 ")
 ;;6228
 ;;21,"68788001103 ")
 ;;6229
 ;;21,"68788001104 ")
 ;;6230
 ;;21,"68788001106 ")
 ;;6231
 ;;21,"68788004701 ")
 ;;6232
 ;;21,"68788008303 ")
 ;;6233
 ;;21,"68788008901 ")
 ;;6234
 ;;21,"68788008902 ")
 ;;6235
 ;;21,"68788008903 ")
 ;;6236
 ;;21,"68788010103 ")
 ;;6237
 ;;21,"68788010402 ")
 ;;6238
 ;;21,"68788010403 ")
 ;;6239
 ;;21,"68788010404 ")
 ;;6240
 ;;21,"68788012702 ")
 ;;6241
 ;;21,"68788020102 ")
 ;;6242
 ;;21,"68788020300 ")
 ;;6243
 ;;21,"68788030600 ")
 ;;6244
 ;;21,"68788030700 ")
 ;;6245
 ;;21,"68788031706 ")
 ;;6246
 ;;21,"68788031806 ")
 ;;6247
 ;;21,"68788050202 ")
 ;;6248
 ;;21,"68788050902 ")
 ;;6249
 ;;21,"68788051500 ")
 ;;6250
 ;;21,"68788051503 ")
 ;;6251
 ;;21,"68788051504 ")
 ;;6252
 ;;21,"68788051506 ")
 ;;6253
 ;;21,"68788051508 ")
 ;;6254
 ;;21,"68788053801 ")
 ;;6255
 ;;21,"68788059801 ")
 ;;6256
 ;;21,"68788061501 ")
 ;;6257
 ;;21,"68788061603 ")
 ;;6258
 ;;21,"68788064502 ")
 ;;6259
 ;;21,"68788065001 ")
 ;;6260
 ;;21,"68788065602 ")
 ;;6261
 ;;21,"68788065603 ")
 ;;6262
 ;;21,"68788065604 ")
 ;;6263
 ;;21,"68788065702 ")
 ;;6264
 ;;21,"68788065703 ")
 ;;6265
 ;;21,"68788065704 ")
 ;;6266
 ;;21,"68788065802 ")
 ;;6267
 ;;21,"68788065803 ")
 ;;6268
 ;;21,"68788065804 ")
 ;;6269
 ;;21,"68788065902 ")
 ;;6270
 ;;21,"68788065903 ")
 ;;6271
 ;;21,"68788068201 ")
 ;;6272
 ;;21,"68788068202 ")
 ;;6273
 ;;21,"68788068301 ")
 ;;6274
 ;;21,"68788068302 ")
 ;;6275
 ;;21,"68788069203 ")
 ;;6276
 ;;21,"68788069601 ")
 ;;6277
 ;;21,"68788069602 ")
 ;;6278
 ;;21,"68788069603 ")
 ;;6279
 ;;21,"68788070803 ")
 ;;6280
 ;;21,"68788070902 ")
 ;;6281
 ;;21,"68788071001 ")
 ;;6282
 ;;21,"68788071002 ")
 ;;6283
 ;;21,"68788071006 ")
 ;;6284
 ;;21,"68788071301 ")
 ;;6285
 ;;21,"68788076302 ")
 ;;6286
 ;;21,"68788080400 ")
 ;;6287
 ;;21,"68788080703 ")
 ;;6288
 ;;21,"68788082603 ")
 ;;6289
 ;;21,"68788088700 ")
 ;;6290
 ;;21,"68788088702 ")
 ;;6291
 ;;21,"68788095501 ")
 ;;6292
 ;;21,"68788095701 ")
 ;;6293
 ;;21,"68788095900 ")
 ;;6294
 ;;21,"68788097000 ")
 ;;6295
 ;;21,"68788138501 ")
 ;;6296
 ;;21,"68788138502 ")
 ;;6297
 ;;21,"68788138506 ")
 ;;6298
 ;;21,"68788165801 ")
 ;;6299
 ;;21,"68788169201 ")
 ;;6300
 ;;21,"68788211201 ")
 ;;6301
 ;;21,"68788211202 ")
 ;;6302
 ;;21,"68788211203 ")
 ;;6303
 ;;21,"68788211204 ")
 ;;6304
 ;;21,"68788211206 ")
 ;;6305
 ;;21,"68788224802 ")
 ;;6306
 ;;21,"68788224803 ")
 ;;6307
 ;;21,"68788224804 ")
 ;;6308
 ;;21,"68788225802 ")
 ;;6309
 ;;21,"68788225803 ")
 ;;6310
 ;;21,"68788225804 ")
 ;;6311
 ;;21,"68788227502 ")
 ;;6312
 ;;21,"68788314202 ")
 ;;6313
 ;;21,"68788314203 ")
 ;;6314
 ;;21,"68788314204 ")
 ;;6315
 ;;21,"68788407402 ")
 ;;6316
 ;;21,"68788407403 ")
 ;;6317
 ;;21,"68788407404 ")
 ;;6318
 ;;21,"68788604802 ")
 ;;6319
 ;;21,"68788604803 ")
 ;;6320
 ;;21,"68788604804 ")
 ;;6321
 ;;21,"68788622702 ")
 ;;6322
 ;;21,"68788622703 ")
 ;;6323
 ;;21,"68788622704 ")
 ;;6324
 ;;21,"68788740402 ")
 ;;6325
 ;;21,"68788741700 ")
 ;;6326
 ;;21,"68788741701 ")
 ;;6327
 ;;21,"68788742000 ")
 ;;6328
 ;;21,"68788900600 ")
 ;;6329
 ;;21,"68788900601 ")
 ;;6330
 ;;21,"68788900602 ")
 ;;6331
 ;;21,"68788901200 ")
 ;;6332
 ;;21,"68788901201 ")
 ;;6333
 ;;21,"68788901202 ")
 ;;6334
 ;;21,"68788901203 ")
 ;;6335
 ;;21,"68788901701 ")
 ;;6336
 ;;21,"68788901801 ")
 ;;6337
 ;;21,"68788901901 ")
 ;;6338
 ;;21,"68788902401 ")
 ;;6339
 ;;21,"68788902402 ")
 ;;6340
 ;;21,"68788902403 ")
 ;;6341
 ;;21,"68788902404 ")
 ;;6342
 ;;21,"68788903203 ")
 ;;6343
 ;;21,"68788903303 ")
 ;;6344
 ;;21,"68788903501 ")
 ;;6345
 ;;21,"68788903601 ")
 ;;6346
 ;;21,"68788903701 ")
 ;;6347
 ;;21,"68788903702 ")
 ;;6348
 ;;21,"68788903703 ")
 ;;6349
 ;;21,"68788903706 ")
 ;;6350
 ;;21,"68788903801 ")
 ;;6351
 ;;21,"68788904302 ")
 ;;6352
 ;;21,"68788904501 ")
 ;;6353
 ;;21,"68788904601 ")
 ;;6354
 ;;21,"68788904602 ")
 ;;6355
 ;;21,"68788904603 ")
 ;;6356
 ;;21,"68788905502 ")
 ;;6357
 ;;21,"68788906302 ")
 ;;6358
 ;;21,"68788906303 ")
 ;;6359
 ;;21,"68788906304 ")
 ;;6360
 ;;21,"68788906801 ")
 ;;6361
 ;;21,"68788906802 ")
 ;;6362
 ;;21,"68788907303 ")
 ;;6363
 ;;21,"68788907701 ")
 ;;6364
 ;;21,"68788907702 ")
 ;;6365
 ;;21,"68788908502 ")
 ;;6366
 ;;21,"68788908503 ")
 ;;6367
 ;;21,"68788908601 ")
 ;;6368
 ;;21,"68788908602 ")
 ;;6369
 ;;21,"68788908603 ")
 ;;6370
 ;;21,"68820000310 ")
 ;;6371
 ;;21,"68820000311 ")
 ;;6372
 ;;21,"68820000312 ")
 ;;6373
 ;;21,"68820000410 ")
 ;;6374
 ;;21,"68820000411 ")
 ;;6375
 ;;21,"68820000412 ")
 ;;6376
 ;;21,"68820000503 ")
 ;;6377
 ;;21,"68820000507 ")
 ;;6378
 ;;21,"68820000603 ")
 ;;6379
 ;;21,"68820000703 ")
 ;;6380
 ;;21,"68820000803 ")
 ;;6381
 ;;21,"68820000807 ")
 ;;6382
 ;;21,"68820000901 ")
 ;;6383
 ;;21,"68820000903 ")
 ;;6384
 ;;21,"68820001001 ")
 ;;6385
 ;;21,"68820001003 ")
 ;;6386
 ;;21,"68820001101 ")
 ;;6387
 ;;21,"68820001103 ")
 ;;6388
 ;;21,"68820001201 ")
 ;;6389
 ;;21,"68820001203 ")
 ;;6390
 ;;21,"68820001301 ")
 ;;6391
 ;;21,"68820001401 ")
 ;;6392
 ;;21,"68820001501 ")
 ;;6393
 ;;21,"68820001610 ")
 ;;6394
 ;;21,"68820001612 ")
 ;;6395
 ;;21,"68820001708 ")
 ;;6396
 ;;21,"68820001710 ")
 ;;6397
 ;;21,"68820001712 ")
 ;;6398
 ;;21,"68820001815 ")
 ;;6399
 ;;21,"68820001816 ")
 ;;6400
 ;;21,"68820001817 ")
 ;;6401
 ;;21,"68820001915 ")
 ;;6402
 ;;21,"68820001916 ")
 ;;6403
 ;;21,"68820001917 ")
 ;;6404
 ;;21,"68820002317 ")
 ;;6405
 ;;21,"68820002318 ")
 ;;6406
 ;;21,"68820002417 ")
 ;;6407
 ;;21,"68820002418 ")
 ;;6408
 ;;21,"68820004305 ")
 ;;6409
 ;;21,"68820004308 ")
 ;;6410
 ;;21,"68820004310 ")
 ;;6411
 ;;21,"68820004312 ")
 ;;6412
 ;;21,"68820004415 ")
 ;;6413
 ;;21,"68820004417 ")
 ;;6414
 ;;21,"68820004515 ")
 ;;6415
 ;;21,"68820004516 ")
 ;;6416
 ;;21,"68820004517 ")
 ;;6417
 ;;21,"68820004707 ")
 ;;6418
 ;;21,"68820004803 ")
 ;;6419
 ;;21,"68820006303 ")
 ;;6420
 ;;21,"68820006306 ")
 ;;6421
 ;;21,"68820006309 ")
 ;;6422
 ;;21,"68820006312 ")
 ;;6423
 ;;21,"68820006319 ")
 ;;6424
 ;;21,"68820006417 ")
 ;;6425
 ;;21,"68820006437 ")
 ;;6426
 ;;21,"68820006517 ")
 ;;6427
 ;;21,"68820006537 ")
 ;;6428
 ;;21,"68820006605 ")
 ;;6429
 ;;21,"68820006705 ")
 ;;6430
 ;;21,"68820006710 ")
 ;;6431
 ;;21,"68820008305 ")
 ;;6432
 ;;21,"68820008309 ")
 ;;6433
 ;;21,"68820008405 ")
 ;;6434
 ;;21,"68820008409 ")
 ;;6435
 ;;21,"68950000601 ")
 ;;6436