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