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