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

BGPM5BEN.m

Go to the documentation of this file.
  1. BGPM5BEN ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"61392006425 ")
  1. ;;3341
  1. ;;21,"61392006430 ")
  1. ;;3342
  1. ;;21,"61392006439 ")
  1. ;;3343
  1. ;;21,"61392006445 ")
  1. ;;3344
  1. ;;21,"61392006451 ")
  1. ;;3345
  1. ;;21,"61392006454 ")
  1. ;;3346
  1. ;;21,"61392006491 ")
  1. ;;3347
  1. ;;21,"61392011730 ")
  1. ;;3348
  1. ;;21,"61392011731 ")
  1. ;;3349
  1. ;;21,"61392011732 ")
  1. ;;3350
  1. ;;21,"61392011739 ")
  1. ;;3351
  1. ;;21,"61392011745 ")
  1. ;;3352
  1. ;;21,"61392011751 ")
  1. ;;3353
  1. ;;21,"61392011754 ")
  1. ;;3354
  1. ;;21,"61392011760 ")
  1. ;;3355
  1. ;;21,"61392011790 ")
  1. ;;3356
  1. ;;21,"61392011791 ")
  1. ;;3357
  1. ;;21,"61392011930 ")
  1. ;;3358
  1. ;;21,"61392011931 ")
  1. ;;3359
  1. ;;21,"61392011932 ")
  1. ;;3360
  1. ;;21,"61392011939 ")
  1. ;;3361
  1. ;;21,"61392011945 ")
  1. ;;3362
  1. ;;21,"61392011951 ")
  1. ;;3363
  1. ;;21,"61392011954 ")
  1. ;;3364
  1. ;;21,"61392011960 ")
  1. ;;3365
  1. ;;21,"61392011990 ")
  1. ;;3366
  1. ;;21,"61392011991 ")
  1. ;;3367
  1. ;;21,"61392012045 ")
  1. ;;3368
  1. ;;21,"61392012051 ")
  1. ;;3369
  1. ;;21,"61392012054 ")
  1. ;;3370
  1. ;;21,"61392012091 ")
  1. ;;3371
  1. ;;21,"61392041925 ")
  1. ;;1192
  1. ;;21,"61392041930 ")
  1. ;;1193
  1. ;;21,"61392041931 ")
  1. ;;1194
  1. ;;21,"61392041939 ")
  1. ;;1195
  1. ;;21,"61392059225 ")
  1. ;;120
  1. ;;21,"61392059230 ")
  1. ;;121
  1. ;;21,"61392059231 ")
  1. ;;122
  1. ;;21,"61392059239 ")
  1. ;;123
  1. ;;21,"61392059325 ")
  1. ;;124
  1. ;;21,"61392059330 ")
  1. ;;125
  1. ;;21,"61392059331 ")
  1. ;;126
  1. ;;21,"61392059339 ")
  1. ;;127
  1. ;;21,"61392059425 ")
  1. ;;3380
  1. ;;21,"61392059430 ")
  1. ;;3381
  1. ;;21,"61392059431 ")
  1. ;;3382
  1. ;;21,"61392059439 ")
  1. ;;3383
  1. ;;21,"61392059460 ")
  1. ;;3384
  1. ;;21,"61392059525 ")
  1. ;;3385
  1. ;;21,"61392059530 ")
  1. ;;3386
  1. ;;21,"61392059531 ")
  1. ;;3387
  1. ;;21,"61392059539 ")
  1. ;;3388
  1. ;;21,"61392059560 ")
  1. ;;3389
  1. ;;21,"61392059625 ")
  1. ;;3390
  1. ;;21,"61392059630 ")
  1. ;;3391
  1. ;;21,"61392059631 ")
  1. ;;3392
  1. ;;21,"61392059660 ")
  1. ;;3393
  1. ;;21,"61392059690 ")
  1. ;;3394
  1. ;;21,"61392068512 ")
  1. ;;1204
  1. ;;21,"61392068523 ")
  1. ;;1205
  1. ;;21,"61392068525 ")
  1. ;;1206
  1. ;;21,"61392068530 ")
  1. ;;1207
  1. ;;21,"61392068531 ")
  1. ;;1208
  1. ;;21,"61392068539 ")
  1. ;;1209
  1. ;;21,"61392068560 ")
  1. ;;1210
  1. ;;21,"61392068590 ")
  1. ;;1211
  1. ;;21,"61392068625 ")
  1. ;;1212
  1. ;;21,"61392068630 ")
  1. ;;1213
  1. ;;21,"61392068660 ")
  1. ;;1214
  1. ;;21,"61392068690 ")
  1. ;;1215
  1. ;;21,"61392068725 ")
  1. ;;1216
  1. ;;21,"61392068730 ")
  1. ;;1217
  1. ;;21,"61392068731 ")
  1. ;;1218
  1. ;;21,"61392068739 ")
  1. ;;1219
  1. ;;21,"61392068760 ")
  1. ;;1220
  1. ;;21,"61392068790 ")
  1. ;;1221
  1. ;;21,"61392070925 ")
  1. ;;3395
  1. ;;21,"61392070930 ")
  1. ;;3396
  1. ;;21,"61392070931 ")
  1. ;;3397
  1. ;;21,"61392070939 ")
  1. ;;3398
  1. ;;21,"61392070960 ")
  1. ;;3399
  1. ;;21,"61392070965 ")
  1. ;;3400
  1. ;;21,"61392070990 ")
  1. ;;3401
  1. ;;21,"61392070995 ")
  1. ;;3402
  1. ;;21,"61392072425 ")
  1. ;;3403
  1. ;;21,"61392072430 ")
  1. ;;3404
  1. ;;21,"61392072431 ")
  1. ;;3405
  1. ;;21,"61392072439 ")
  1. ;;3406
  1. ;;21,"61392072460 ")
  1. ;;3407
  1. ;;21,"61392072465 ")
  1. ;;3408
  1. ;;21,"61392072490 ")
  1. ;;3409
  1. ;;21,"61392072495 ")
  1. ;;3410
  1. ;;21,"61392083425 ")
  1. ;;3411
  1. ;;21,"61392083430 ")
  1. ;;3412
  1. ;;21,"61392083431 ")
  1. ;;3413
  1. ;;21,"61392083439 ")
  1. ;;3414
  1. ;;21,"61392083460 ")
  1. ;;3415
  1. ;;21,"61392083465 ")
  1. ;;3416
  1. ;;21,"61392083490 ")
  1. ;;3417
  1. ;;21,"61392083495 ")
  1. ;;3418
  1. ;;21,"61442011501 ")
  1. ;;3419
  1. ;;21,"61442011505 ")
  1. ;;3420
  1. ;;21,"61442011510 ")
  1. ;;3421
  1. ;;21,"61442011525 ")
  1. ;;3422
  1. ;;21,"61442011601 ")
  1. ;;3423
  1. ;;21,"61442011605 ")
  1. ;;3424
  1. ;;21,"61442011610 ")
  1. ;;3425
  1. ;;21,"61442011625 ")
  1. ;;3426
  1. ;;21,"61442011701 ")
  1. ;;3427
  1. ;;21,"61442011705 ")
  1. ;;3428
  1. ;;21,"61442011710 ")
  1. ;;3429
  1. ;;21,"61442011725 ")
  1. ;;3430
  1. ;;21,"62037057101 ")
  1. ;;1222
  1. ;;21,"62037057105 ")
  1. ;;1223
  1. ;;21,"62037057110 ")
  1. ;;1224
  1. ;;21,"62037057701 ")
  1. ;;1225
  1. ;;21,"62037057705 ")
  1. ;;1226
  1. ;;21,"62037057710 ")
  1. ;;1227
  1. ;;21,"62037067401 ")
  1. ;;1228
  1. ;;21,"62037067405 ")
  1. ;;1229
  1. ;;21,"62037067410 ")
  1. ;;1230
  1. ;;21,"62037067501 ")
  1. ;;1231
  1. ;;21,"62037067505 ")
  1. ;;1232
  1. ;;21,"62037067510 ")
  1. ;;1233
  1. ;;21,"62037067601 ")
  1. ;;1234
  1. ;;21,"62037067605 ")
  1. ;;1235
  1. ;;21,"62037067610 ")
  1. ;;1236
  1. ;;21,"62037087130 ")
  1. ;;3431
  1. ;;21,"62037087201 ")
  1. ;;3432
  1. ;;21,"62037087205 ")
  1. ;;3433
  1. ;;21,"62037087301 ")
  1. ;;3434
  1. ;;21,"62037087305 ")
  1. ;;3435
  1. ;;21,"62147500000 ")
  1. ;;1237
  1. ;;21,"62147500100 ")
  1. ;;1238
  1. ;;21,"62147500200 ")
  1. ;;1239
  1. ;;21,"62147500301 ")
  1. ;;1240
  1. ;;21,"62147500302 ")
  1. ;;1241
  1. ;;21,"62147500401 ")
  1. ;;1242
  1. ;;21,"62147500402 ")
  1. ;;1243
  1. ;;21,"62147500501 ")
  1. ;;1244
  1. ;;21,"62147500502 ")
  1. ;;1245
  1. ;;21,"62318014100 ")
  1. ;;3436
  1. ;;21,"62318014101 ")
  1. ;;3437
  1. ;;21,"62318014102 ")
  1. ;;3438
  1. ;;21,"62318014200 ")
  1. ;;3439
  1. ;;21,"62318014201 ")
  1. ;;3440
  1. ;;21,"62318014202 ")
  1. ;;3441
  1. ;;21,"62318019000 ")
  1. ;;1246
  1. ;;21,"62318019001 ")
  1. ;;1247
  1. ;;21,"62318019100 ")
  1. ;;1248
  1. ;;21,"62318019101 ")
  1. ;;1249
  1. ;;21,"62318019200 ")
  1. ;;1250
  1. ;;21,"62318019201 ")
  1. ;;1251
  1. ;;21,"62528034427 ")
  1. ;;3442
  1. ;;21,"62528034435 ")
  1. ;;3443
  1. ;;21,"62528034440 ")
  1. ;;3444
  1. ;;21,"62528034470 ")
  1. ;;3445
  1. ;;21,"62528034480 ")
  1. ;;3446
  1. ;;21,"62540725401 ")
  1. ;;3447
  1. ;;21,"62540725404 ")
  1. ;;3448
  1. ;;21,"62540725501 ")
  1. ;;3449
  1. ;;21,"62540725504 ")
  1. ;;3450
  1. ;;21,"62540725601 ")
  1. ;;3451
  1. ;;21,"62540725603 ")
  1. ;;3452
  1. ;;21,"62540725604 ")
  1. ;;3453
  1. ;;21,"62584025901 ")
  1. ;;1252
  1. ;;21,"62584025911 ")
  1. ;;1253
  1. ;;21,"62584025985 ")
  1. ;;1254
  1. ;;21,"62584033201 ")
  1. ;;1255
  1. ;;21,"62584033211 ")
  1. ;;1256
  1. ;;21,"62584045201 ")
  1. ;;1257
  1. ;;21,"62584045211 ")
  1. ;;1258
  1. ;;21,"62584045285 ")
  1. ;;1259
  1. ;;21,"62682500403 ")
  1. ;;3454
  1. ;;21,"62682500408 ")
  1. ;;3455
  1. ;;21,"62682500603 ")
  1. ;;3456
  1. ;;21,"62756014201 ")
  1. ;;1260
  1. ;;21,"62756014202 ")
  1. ;;1261
  1. ;;21,"62756014301 ")
  1. ;;1262
  1. ;;21,"62756039751 ")
  1. ;;1263
  1. ;;21,"62756039753 ")
  1. ;;1264
  1. ;;21,"62756039758 ")
  1. ;;1265
  1. ;;21,"62756043551 ")
  1. ;;1266
  1. ;;21,"62756043553 ")
  1. ;;1267
  1. ;;21,"62756043558 ")
  1. ;;1268
  1. ;;21,"62756047451 ")
  1. ;;1269
  1. ;;21,"62756047453 ")
  1. ;;1270
  1. ;;21,"62756047458 ")
  1. ;;1271
  1. ;;21,"63304042501 ")
  1. ;;3457
  1. ;;21,"63304042510 ")
  1. ;;3458
  1. ;;21,"63304042530 ")
  1. ;;3459
  1. ;;21,"63304042601 ")
  1. ;;3460
  1. ;;21,"63304042610 ")
  1. ;;3461
  1. ;;21,"63304042630 ")
  1. ;;3462
  1. ;;21,"63304042701 ")
  1. ;;3463
  1. ;;21,"63304042710 ")
  1. ;;3464
  1. ;;21,"63304042730 ")
  1. ;;3465
  1. ;;21,"63304076701 ")
  1. ;;1272
  1. ;;21,"63304076705 ")
  1. ;;1273
  1. ;;21,"63304076720 ")
  1. ;;1274
  1. ;;21,"63304086001 ")
  1. ;;1275
  1. ;;21,"63304086005 ")
  1. ;;1276
  1. ;;21,"63304086030 ")
  1. ;;1277
  1. ;;21,"63552033060 ")
  1. ;;1278
  1. ;;21,"63629125501 ")
  1. ;;3466
  1. ;;21,"63629125502 ")
  1. ;;3467
  1. ;;21,"63629139201 ")
  1. ;;128
  1. ;;21,"63629139202 ")
  1. ;;129
  1. ;;21,"63629139203 ")
  1. ;;130
  1. ;;21,"63629139301 ")
  1. ;;3471
  1. ;;21,"63629139302 ")
  1. ;;3472
  1. ;;21,"63629139303 ")
  1. ;;3473
  1. ;;21,"63629139304 ")
  1. ;;3474
  1. ;;21,"63629139401 ")
  1. ;;3475
  1. ;;21,"63629139402 ")
  1. ;;3476
  1. ;;21,"63629139403 ")
  1. ;;3477
  1. ;;21,"63629139501 ")
  1. ;;1282
  1. ;;21,"63629139502 ")
  1. ;;1283
  1. ;;21,"63629139503 ")
  1. ;;1284
  1. ;;21,"63629139504 ")
  1. ;;1285
  1. ;;21,"63629139505 ")
  1. ;;1286
  1. ;;21,"63629139601 ")
  1. ;;1287
  1. ;;21,"63629139602 ")
  1. ;;1288
  1. ;;21,"63629139701 ")
  1. ;;1289
  1. ;;21,"63629139702 ")
  1. ;;1290
  1. ;;21,"63629139703 ")
  1. ;;1291
  1. ;;21,"63629139704 ")
  1. ;;1292
  1. ;;21,"63629139705 ")
  1. ;;1293
  1. ;;21,"63629139706 ")
  1. ;;1294
  1. ;;21,"63629139707 ")
  1. ;;1295
  1. ;;21,"63629139801 ")
  1. ;;3478
  1. ;;21,"63629139802 ")
  1. ;;3479
  1. ;;21,"63629139803 ")
  1. ;;3480
  1. ;;21,"63629279301 ")
  1. ;;131
  1. ;;21,"63629279302 ")
  1. ;;132
  1. ;;21,"63629279303 ")
  1. ;;133
  1. ;;21,"63629279304 ")
  1. ;;134
  1. ;;21,"63629279305 ")
  1. ;;135
  1. ;;21,"63629288301 ")
  1. ;;1301
  1. ;;21,"63629288302 ")
  1. ;;1302
  1. ;;21,"63629288303 ")
  1. ;;1303
  1. ;;21,"63629288304 ")
  1. ;;1304
  1. ;;21,"63629288305 ")
  1. ;;1305
  1. ;;21,"63629290701 ")
  1. ;;3486
  1. ;;21,"63629290702 ")
  1. ;;3487
  1. ;;21,"63629304301 ")
  1. ;;3488
  1. ;;21,"63629304302 ")
  1. ;;3489
  1. ;;21,"63629315801 ")
  1. ;;3490
  1. ;;21,"63629315802 ")
  1. ;;3491
  1. ;;21,"63629315803 ")
  1. ;;3492
  1. ;;21,"63629399801 ")
  1. ;;136
  1. ;;21,"63739011601 ")
  1. ;;3494
  1. ;;21,"63739011603 ")
  1. ;;3495
  1. ;;21,"63739011610 ")
  1. ;;3496
  1. ;;21,"63739011710 ")
  1. ;;3497
  1. ;;21,"63739011810 ")
  1. ;;3498
  1. ;;21,"63739011910 ")
  1. ;;3499
  1. ;;21,"63739029910 ")
  1. ;;1307
  1. ;;21,"63739030010 ")
  1. ;;1308
  1. ;;21,"63739030110 ")
  1. ;;1309
  1. ;;21,"63874031601 ")
  1. ;;3500
  1. ;;21,"63874031602 ")
  1. ;;3501
  1. ;;21,"63874031604 ")
  1. ;;3502
  1. ;;21,"63874031605 ")
  1. ;;3503
  1. ;;21,"63874031610 ")
  1. ;;3504
  1. ;;21,"63874031612 ")
  1. ;;3505
  1. ;;21,"63874031614 ")
  1. ;;3506
  1. ;;21,"63874031615 ")
  1. ;;3507
  1. ;;21,"63874031620 ")
  1. ;;3508
  1. ;;21,"63874031621 ")
  1. ;;3509
  1. ;;21,"63874031624 ")
  1. ;;3510
  1. ;;21,"63874031628 ")
  1. ;;3511
  1. ;;21,"63874031630 ")
  1. ;;3512
  1. ;;21,"63874031650 ")
  1. ;;3513
  1. ;;21,"63874031660 ")
  1. ;;3514
  1. ;;21,"63874031681 ")
  1. ;;3515
  1. ;;21,"63874031690 ")
  1. ;;3516
  1. ;;21,"63874031701 ")
  1. ;;3517
  1. ;;21,"63874031702 ")
  1. ;;3518
  1. ;;21,"63874031704 ")
  1. ;;3519
  1. ;;21,"63874031710 ")
  1. ;;3520
  1. ;;21,"63874031712 ")
  1. ;;3521
  1. ;;21,"63874031714 ")
  1. ;;3522
  1. ;;21,"63874031715 ")
  1. ;;3523
  1. ;;21,"63874031720 ")
  1. ;;3524
  1. ;;21,"63874031724 ")
  1. ;;3525
  1. ;;21,"63874031728 ")
  1. ;;3526
  1. ;;21,"63874031730 ")
  1. ;;3527
  1. ;;21,"63874031740 ")
  1. ;;3528
  1. ;;21,"63874031750 ")
  1. ;;3529
  1. ;;21,"63874031760 ")
  1. ;;3530
  1. ;;21,"63874031790 ")
  1. ;;3531
  1. ;;21,"63874043201 ")
  1. ;;3532
  1. ;;21,"63874043202 ")
  1. ;;3533
  1. ;;21,"63874043204 ")
  1. ;;3534
  1. ;;21,"63874043210 ")
  1. ;;3535
  1. ;;21,"63874043214 ")
  1. ;;3536
  1. ;;21,"63874043220 ")
  1. ;;3537
  1. ;;21,"63874043221 ")
  1. ;;3538
  1. ;;21,"63874043224 ")
  1. ;;3539
  1. ;;21,"63874043228 ")
  1. ;;3540
  1. ;;21,"63874043230 ")
  1. ;;3541
  1. ;;21,"63874043250 ")
  1. ;;3542
  1. ;;21,"63874043260 ")
  1. ;;3543
  1. ;;21,"63874043281 ")
  1. ;;3544
  1. ;;21,"63874043290 ")
  1. ;;3545
  1. ;;21,"63874050101 ")
  1. ;;1310
  1. ;;21,"63874050130 ")
  1. ;;1311
  1. ;;21,"63874050160 ")
  1. ;;1312
  1. ;;21,"63874058801 ")
  1. ;;3546
  1. ;;21,"63874058804 ")
  1. ;;3547
  1. ;;21,"63874058810 ")
  1. ;;3548
  1. ;;21,"63874058814 ")
  1. ;;3549
  1. ;;21,"63874058820 ")
  1. ;;3550
  1. ;;21,"63874058830 ")
  1. ;;3551
  1. ;;21,"63874058860 ")
  1. ;;3552
  1. ;;21,"63874058880 ")
  1. ;;3553
  1. ;;21,"63874058890 ")
  1. ;;3554
  1. ;;21,"63874063501 ")
  1. ;;1313
  1. ;;21,"63874063510 ")
  1. ;;1314
  1. ;;21,"63874063520 ")
  1. ;;1315
  1. ;;21,"63874063528 ")
  1. ;;1316
  1. ;;21,"63874063530 ")
  1. ;;1317
  1. ;;21,"63874063560 ")
  1. ;;1318
  1. ;;21,"63874063590 ")
  1. ;;1319
  1. ;;21,"63874066501 ")
  1. ;;3555
  1. ;;21,"63874066504 ")
  1. ;;3556
  1. ;;21,"63874066510 ")
  1. ;;3557
  1. ;;21,"63874066514 ")
  1. ;;3558
  1. ;;21,"63874066530 ")
  1. ;;3559
  1. ;;21,"63874066560 ")
  1. ;;3560
  1. ;;21,"63874066590 ")
  1. ;;3561
  1. ;;21,"63874093901 ")
  1. ;;137
  1. ;;21,"63874093910 ")
  1. ;;138
  1. ;;21,"63874093930 ")
  1. ;;139
  1. ;;21,"63874093960 ")
  1. ;;140
  1. ;;21,"63874097460 ")
  1. ;;1324
  1. ;;21,"64679052804 ")
  1. ;;1325
  1. ;;21,"64679052805 ")
  1. ;;1326
  1. ;;21,"64679052904 ")
  1. ;;1327
  1. ;;21,"64679052905 ")
  1. ;;1328
  1. ;;21,"64679053004 ")
  1. ;;1329
  1. ;;21,"64679053005 ")
  1. ;;1330
  1. ;;21,"64720012310 ")
  1. ;;3566
  1. ;;21,"64720012410 ")
  1. ;;3567
  1. ;;21,"64720012411 ")
  1. ;;3568
  1. ;;21,"64720012510 ")
  1. ;;3569
  1. ;;21,"64720012511 ")
  1. ;;3570
  1. ;;21,"64720014010 ")
  1. ;;141
  1. ;;21,"64720014011 ")
  1. ;;142
  1. ;;21,"64720014050 ")
  1. ;;143
  1. ;;21,"64720014110 ")
  1. ;;144