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

BGPM5ATX.m

Go to the documentation of this file.
BGPM5ATX ;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,"58016095769 ")
 ;;3269
 ;;21,"58016095770 ")
 ;;3270
 ;;21,"58016095771 ")
 ;;3271
 ;;21,"58016095772 ")
 ;;3272
 ;;21,"58016095773 ")
 ;;3273
 ;;21,"58016095775 ")
 ;;3274
 ;;21,"58016095776 ")
 ;;3275
 ;;21,"58016095777 ")
 ;;3276
 ;;21,"58016095779 ")
 ;;3277
 ;;21,"58016095780 ")
 ;;3278
 ;;21,"58016095781 ")
 ;;3279
 ;;21,"58016095782 ")
 ;;3280
 ;;21,"58016095783 ")
 ;;3281
 ;;21,"58016095784 ")
 ;;3282
 ;;21,"58016095787 ")
 ;;3283
 ;;21,"58016095789 ")
 ;;3284
 ;;21,"58016095790 ")
 ;;3285
 ;;21,"58016095791 ")
 ;;3286
 ;;21,"58016095792 ")
 ;;3287
 ;;21,"58016095793 ")
 ;;3288
 ;;21,"58016095796 ")
 ;;3289
 ;;21,"58016095798 ")
 ;;3290
 ;;21,"58016095799 ")
 ;;3291
 ;;21,"58016096400 ")
 ;;3292
 ;;21,"58016096401 ")
 ;;3293
 ;;21,"58016096402 ")
 ;;3294
 ;;21,"58016096403 ")
 ;;3295
 ;;21,"58016096404 ")
 ;;3296
 ;;21,"58016096405 ")
 ;;3297
 ;;21,"58016096406 ")
 ;;3298
 ;;21,"58016096407 ")
 ;;3299
 ;;21,"58016096408 ")
 ;;3300
 ;;21,"58016096409 ")
 ;;3301
 ;;21,"58016096410 ")
 ;;3302
 ;;21,"58016096412 ")
 ;;3303
 ;;21,"58016096414 ")
 ;;3304
 ;;21,"58016096415 ")
 ;;3305
 ;;21,"58016096416 ")
 ;;3306
 ;;21,"58016096418 ")
 ;;3307
 ;;21,"58016096420 ")
 ;;3308
 ;;21,"58016096421 ")
 ;;3309
 ;;21,"58016096424 ")
 ;;3310
 ;;21,"58016096425 ")
 ;;3311
 ;;21,"58016096426 ")
 ;;3312
 ;;21,"58016096427 ")
 ;;3313
 ;;21,"58016096428 ")
 ;;3314
 ;;21,"58016096430 ")
 ;;3315
 ;;21,"58016096432 ")
 ;;3316
 ;;21,"58016096435 ")
 ;;3317
 ;;21,"58016096436 ")
 ;;3318
 ;;21,"58016096440 ")
 ;;3319
 ;;21,"58016096442 ")
 ;;3320
 ;;21,"58016096444 ")
 ;;3321
 ;;21,"58016096445 ")
 ;;3322
 ;;21,"58016096448 ")
 ;;3323
 ;;21,"58016096450 ")
 ;;3324
 ;;21,"58016096456 ")
 ;;3325
 ;;21,"58016096460 ")
 ;;3326
 ;;21,"58016096467 ")
 ;;3327
 ;;21,"58016096469 ")
 ;;3328
 ;;21,"58016096470 ")
 ;;3329
 ;;21,"58016096471 ")
 ;;3330
 ;;21,"58016096472 ")
 ;;3331
 ;;21,"58016096473 ")
 ;;3332
 ;;21,"58016096475 ")
 ;;3333
 ;;21,"58016096476 ")
 ;;3334
 ;;21,"58016096477 ")
 ;;3335
 ;;21,"58016096479 ")
 ;;3336
 ;;21,"58016096480 ")
 ;;3337
 ;;21,"58016096481 ")
 ;;3338
 ;;21,"58016096482 ")
 ;;3339
 ;;21,"58016096483 ")
 ;;3340
 ;;21,"58016096484 ")
 ;;3341
 ;;21,"58016096487 ")
 ;;3342
 ;;21,"58016096489 ")
 ;;3343
 ;;21,"58016096490 ")
 ;;3344
 ;;21,"58016096491 ")
 ;;3345
 ;;21,"58016096492 ")
 ;;3346
 ;;21,"58016096493 ")
 ;;3347
 ;;21,"58016096496 ")
 ;;3348
 ;;21,"58016096497 ")
 ;;3349
 ;;21,"58016096498 ")
 ;;3350
 ;;21,"58016096499 ")
 ;;3351
 ;;21,"58016100001 ")
 ;;3352
 ;;21,"58016100201 ")
 ;;3353
 ;;21,"58016100401 ")
 ;;3354
 ;;21,"58016100501 ")
 ;;3355
 ;;21,"58016100601 ")
 ;;3356
 ;;21,"58016100701 ")
 ;;3357
 ;;21,"58016101901 ")
 ;;3358
 ;;21,"58016102101 ")
 ;;3359
 ;;21,"58016102301 ")
 ;;3360
 ;;21,"58016102401 ")
 ;;3361
 ;;21,"58016102501 ")
 ;;3362
 ;;21,"58016102601 ")
 ;;3363
 ;;21,"58016102701 ")
 ;;3364
 ;;21,"58016102801 ")
 ;;3365
 ;;21,"58016102901 ")
 ;;3366
 ;;21,"58016103101 ")
 ;;3367
 ;;21,"58016103201 ")
 ;;3368
 ;;21,"58016103301 ")
 ;;3369
 ;;21,"58016103401 ")
 ;;3370
 ;;21,"58016103501 ")
 ;;3371
 ;;21,"58016104501 ")
 ;;3372
 ;;21,"58016104601 ")
 ;;3373
 ;;21,"58016419201 ")
 ;;3374
 ;;21,"58016419301 ")
 ;;3375
 ;;21,"58016478601 ")
 ;;3376
 ;;21,"58016479001 ")
 ;;3377
 ;;21,"58016483401 ")
 ;;3378
 ;;21,"58016484201 ")
 ;;3379
 ;;21,"58016486901 ")
 ;;3380
 ;;21,"58016487301 ")
 ;;3381
 ;;21,"58016499001 ")
 ;;3382
 ;;21,"58016556101 ")
 ;;3383
 ;;21,"58087008060 ")
 ;;3384
 ;;21,"58087008140 ")
 ;;3385
 ;;21,"58087008206 ")
 ;;3386
 ;;21,"58087008220 ")
 ;;3387
 ;;21,"58864002801 ")
 ;;3388
 ;;21,"58864002830 ")
 ;;3389
 ;;21,"58864002840 ")
 ;;3390
 ;;21,"58864002850 ")
 ;;3391
 ;;21,"58864002921 ")
 ;;3392
 ;;21,"58864002930 ")
 ;;3393
 ;;21,"58864002940 ")
 ;;3394
 ;;21,"58864003328 ")
 ;;3395
 ;;21,"58864003340 ")
 ;;3396
 ;;21,"58864007201 ")
 ;;3397
 ;;21,"58864007230 ")
 ;;3398
 ;;21,"58864007240 ")
 ;;3399
 ;;21,"58864007301 ")
 ;;3400
 ;;21,"58864007320 ")
 ;;3401
 ;;21,"58864007328 ")
 ;;3402
 ;;21,"58864007330 ")
 ;;3403
 ;;21,"58864007340 ")
 ;;3404
 ;;21,"58864007356 ")
 ;;3405
 ;;21,"58864007440 ")
 ;;3406
 ;;21,"58864014928 ")
 ;;3407
 ;;21,"58864014940 ")
 ;;3408
 ;;21,"58864015030 ")
 ;;3409
 ;;21,"58864018910 ")
 ;;3410
 ;;21,"58864018912 ")
 ;;3411
 ;;21,"58864018914 ")
 ;;3412
 ;;21,"58864018920 ")
 ;;3413
 ;;21,"58864018928 ")
 ;;3414
 ;;21,"58864018930 ")
 ;;3415
 ;;21,"58864019012 ")
 ;;3416
 ;;21,"58864019014 ")
 ;;3417
 ;;21,"58864019020 ")
 ;;3418
 ;;21,"58864019028 ")
 ;;3419
 ;;21,"58864019030 ")
 ;;3420
 ;;21,"58864019528 ")
 ;;3421
 ;;21,"58864019540 ")
 ;;3422
 ;;21,"58864037940 ")
 ;;3423
 ;;21,"58864047806 ")
 ;;3424
 ;;21,"58864047810 ")
 ;;3425
 ;;21,"58864047814 ")
 ;;3426
 ;;21,"58864047817 ")
 ;;3427
 ;;21,"58864047820 ")
 ;;3428
 ;;21,"58864047830 ")
 ;;3429
 ;;21,"58864049340 ")
 ;;3430
 ;;21,"58864049398 ")
 ;;3431
 ;;21,"58864060740 ")
 ;;3432
 ;;21,"58864060760 ")
 ;;3433
 ;;21,"58864061228 ")
 ;;3434
 ;;21,"58864061230 ")
 ;;3435
 ;;21,"58864061240 ")
 ;;3436
 ;;21,"58864061740 ")
 ;;3437
 ;;21,"58864067530 ")
 ;;3438
 ;;21,"58864067540 ")
 ;;3439
 ;;21,"58864068840 ")
 ;;3440
 ;;21,"58864076720 ")
 ;;3441
 ;;21,"58864076721 ")
 ;;3442
 ;;21,"58864076730 ")
 ;;3443
 ;;21,"58864077730 ")
 ;;3444
 ;;21,"58864079106 ")
 ;;3445
 ;;21,"58864080606 ")
 ;;3446
 ;;21,"58864080614 ")
 ;;3447
 ;;21,"58864080620 ")
 ;;3448
 ;;21,"58864083310 ")
 ;;3449
 ;;21,"58864083320 ")
 ;;3450
 ;;21,"58864083720 ")
 ;;3451
 ;;21,"58864084830 ")
 ;;3452
 ;;21,"59115002301 ")
 ;;3453
 ;;21,"59115002350 ")
 ;;3454
 ;;21,"59115002375 ")
 ;;3455
 ;;21,"59115002401 ")
 ;;3456
 ;;21,"59115002450 ")
 ;;3457
 ;;21,"59115002475 ")
 ;;3458
 ;;21,"59115002801 ")
 ;;3459
 ;;21,"59115002850 ")
 ;;3460
 ;;21,"59115002899 ")
 ;;3461
 ;;21,"59115002901 ")
 ;;3462
 ;;21,"59115002933 ")
 ;;3463
 ;;21,"59115002955 ")
 ;;3464
 ;;21,"59115002999 ")
 ;;3465
 ;;21,"59115003001 ")
 ;;3466
 ;;21,"59115003033 ")
 ;;3467
 ;;21,"59115003055 ")
 ;;3468
 ;;21,"59115003099 ")
 ;;3469
 ;;21,"59115003301 ")
 ;;3470
 ;;21,"59115003355 ")
 ;;3471
 ;;21,"59115004001 ")
 ;;3472
 ;;21,"59115004022 ")
 ;;3473
 ;;21,"59115004101 ")
 ;;3474
 ;;21,"59115004122 ")
 ;;3475
 ;;21,"59115004155 ")
 ;;3476
 ;;21,"59115004201 ")
 ;;3477
 ;;21,"59115004233 ")
 ;;3478
 ;;21,"59115004255 ")
 ;;3479
 ;;21,"59115004301 ")
 ;;3480
 ;;21,"59115004350 ")
 ;;3481
 ;;21,"59115004375 ")
 ;;3482
 ;;21,"59115004401 ")
 ;;3483
 ;;21,"59115004405 ")
 ;;3484
 ;;21,"59115004480 ")
 ;;3485
 ;;21,"59115004501 ")
 ;;3486
 ;;21,"59115004550 ")
 ;;3487
 ;;21,"59115004575 ")
 ;;3488
 ;;21,"59115004601 ")
 ;;3489
 ;;21,"59115004605 ")
 ;;3490
 ;;21,"59115004680 ")
 ;;3491
 ;;21,"59115005101 ")
 ;;3492
 ;;21,"59115005122 ")
 ;;3493
 ;;21,"59115005150 ")
 ;;3494
 ;;21,"59115005201 ")
 ;;3495
 ;;21,"59115005250 ")
 ;;3496
 ;;21,"59115006120 ")
 ;;3497
 ;;21,"59115006125 ")
 ;;3498
 ;;21,"59115006175 ")
 ;;3499
 ;;21,"59115012205 ")
 ;;3500
 ;;21,"59115012214 ")
 ;;3501
 ;;21,"59115012220 ")
 ;;3502
 ;;21,"59115012250 ")
 ;;3503
 ;;21,"59115012299 ")
 ;;3504
 ;;21,"59115012305 ")
 ;;3505
 ;;21,"59115012350 ")
 ;;3506
 ;;21,"59214010606 ")
 ;;3507
 ;;21,"59214083901 ")
 ;;3508
 ;;21,"59214252201 ")
 ;;3509
 ;;21,"59366271306 ")
 ;;3510
 ;;21,"59366285206 ")
 ;;3511
 ;;21,"59453009201 ")
 ;;3512
 ;;21,"59453013001 ")
 ;;3513
 ;;21,"59564019905 ")
 ;;3514
 ;;21,"59564019910 ")
 ;;3515
 ;;21,"59564019911 ")
 ;;3516
 ;;21,"59564019914 ")
 ;;3517
 ;;21,"59564019928 ")
 ;;3518
 ;;21,"59762001601 ")
 ;;3519
 ;;21,"59762028003 ")
 ;;3520
 ;;21,"59762040902 ")
 ;;3521
 ;;21,"59762040904 ")
 ;;3522
 ;;21,"59762040907 ")
 ;;3523
 ;;21,"59762102001 ")
 ;;3524
 ;;21,"59762102003 ")
 ;;3525
 ;;21,"59762102101 ")
 ;;3526
 ;;21,"59762102107 ")
 ;;3527
 ;;21,"59762102202 ")
 ;;3528
 ;;21,"59762102204 ")
 ;;3529
 ;;21,"59762102207 ")
 ;;3530
 ;;21,"59762102304 ")
 ;;3531
 ;;21,"59762102305 ")
 ;;3532
 ;;21,"59762102306 ")
 ;;3533
 ;;21,"59762105002 ")
 ;;3534
 ;;21,"59762105005 ")
 ;;3535
 ;;21,"59762108101 ")
 ;;3536
 ;;21,"59762108102 ")
 ;;3537
 ;;21,"59762108301 ")
 ;;3538
 ;;21,"59762108302 ")
 ;;3539
 ;;21,"59762153401 ")
 ;;3540
 ;;21,"59762153402 ")
 ;;3541
 ;;21,"59762153701 ")
 ;;3542
 ;;21,"59762153702 ")
 ;;3543
 ;;21,"59762153703 ")
 ;;3544
 ;;21,"59762200001 ")
 ;;3545
 ;;21,"59762200004 ")
 ;;3546
 ;;21,"59762218001 ")
 ;;3547
 ;;21,"59762222002 ")
 ;;3548
 ;;21,"59762222101 ")
 ;;3549
 ;;21,"59762222102 ")
 ;;3550
 ;;21,"59762302001 ")
 ;;3551
 ;;21,"59762302002 ")
 ;;3552
 ;;21,"59762302101 ")
 ;;3553
 ;;21,"59762302102 ")
 ;;3554
 ;;21,"59762305101 ")
 ;;3555
 ;;21,"59762305102 ")
 ;;3556
 ;;21,"59762306002 ")
 ;;3557
 ;;21,"59762306003 ")
 ;;3558
 ;;21,"59762311001 ")
 ;;3559
 ;;21,"59762312001 ")
 ;;3560
 ;;21,"59762313001 ")
 ;;3561
 ;;21,"59762314001 ")
 ;;3562
 ;;21,"59762332801 ")
 ;;3563
 ;;21,"59762372801 ")
 ;;3564
 ;;21,"59762372802 ")
 ;;3565
 ;;21,"59762372803 ")
 ;;3566
 ;;21,"59762374301 ")
 ;;3567
 ;;21,"59762374302 ")
 ;;3568
 ;;21,"59762374401 ")
 ;;3569
 ;;21,"59762408001 ")
 ;;3570
 ;;21,"59762408002 ")
 ;;3571
 ;;21,"59762408101 ")
 ;;3572
 ;;21,"59762408102 ")
 ;;3573
 ;;21,"59762500901 ")
 ;;3574
 ;;21,"59762501001 ")
 ;;3575
 ;;21,"59762501002 ")
 ;;3576
 ;;21,"59772013901 ")
 ;;3577
 ;;21,"59772013902 ")
 ;;3578
 ;;21,"59772017001 ")
 ;;3579
 ;;21,"59772017401 ")
 ;;3580
 ;;21,"59772017402 ")
 ;;3581
 ;;21,"59772017420 ")
 ;;3582
 ;;21,"59772080202 ")
 ;;3583
 ;;21,"59772080301 ")
 ;;3584
 ;;21,"59772080302 ")
 ;;3585
 ;;21,"59772080801 ")
 ;;3586
 ;;21,"59772094001 ")
 ;;3587
 ;;21,"59772094002 ")
 ;;3588
 ;;21,"59772604801 ")
 ;;3589
 ;;21,"59772605801 ")
 ;;3590
 ;;21,"59772727103 ")
 ;;3591
 ;;21,"59772727104 ")
 ;;3592
 ;;21,"59772727107 ")
 ;;3593
 ;;21,"59772749002 ")
 ;;3594
 ;;21,"59772749004 ")
 ;;3595
 ;;21,"59772749104 ")
 ;;3596
 ;;21,"59772749202 ")
 ;;3597
 ;;21,"59772749204 ")
 ;;3598
 ;;21,"59772749301 ")
 ;;3599
 ;;21,"59772749303 ")
 ;;3600
 ;;21,"59772749404 ")
 ;;3601
 ;;21,"59772749701 ")
 ;;3602
 ;;21,"59772749703 ")
 ;;3603
 ;;21,"59987010124 ")
 ;;3604
 ;;21,"60238001001 ")
 ;;3605
 ;;21,"60238001009 ")
 ;;3606
 ;;21,"60238003201 ")
 ;;3607
 ;;21,"60238003403 ")
 ;;3608
 ;;21,"60238003504 ")
 ;;3609
 ;;21,"60238003705 ")
 ;;3610
 ;;21,"60346065506 ")
 ;;3611
 ;;21,"60346065510 ")
 ;;3612
 ;;21,"60346065515 ")
 ;;3613
 ;;21,"60429002101 ")
 ;;3614
 ;;21,"60429002105 ")
 ;;3615
 ;;21,"60429002130 ")
 ;;3616
 ;;21,"60429002201 ")
 ;;3617
 ;;21,"60429002205 ")
 ;;3618
 ;;21,"60429002230 ")
 ;;3619
 ;;21,"60429002301 ")
 ;;3620