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

BGP82Z11.m

Go to the documentation of this file.
  1. BGP82Z11 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"54868-3075-00 ")
  1. ;;3355
  1. ;;21,"54868-3076-00 ")
  1. ;;3356
  1. ;;21,"54868-3081-00 ")
  1. ;;3357
  1. ;;21,"54868-3081-01 ")
  1. ;;3358
  1. ;;21,"54868-3137-01 ")
  1. ;;3359
  1. ;;21,"54868-3165-00 ")
  1. ;;3360
  1. ;;21,"54868-3165-01 ")
  1. ;;3361
  1. ;;21,"54868-3165-02 ")
  1. ;;3362
  1. ;;21,"54868-3165-03 ")
  1. ;;3363
  1. ;;21,"54868-3165-04 ")
  1. ;;3364
  1. ;;21,"54868-3165-05 ")
  1. ;;3365
  1. ;;21,"54868-3165-06 ")
  1. ;;3366
  1. ;;21,"54868-3165-07 ")
  1. ;;3367
  1. ;;21,"54868-3191-02 ")
  1. ;;3368
  1. ;;21,"54868-3191-03 ")
  1. ;;3369
  1. ;;21,"54868-3191-04 ")
  1. ;;3370
  1. ;;21,"54868-3191-05 ")
  1. ;;3371
  1. ;;21,"54868-3191-06 ")
  1. ;;3372
  1. ;;21,"54868-3605-00 ")
  1. ;;3373
  1. ;;21,"54868-3605-02 ")
  1. ;;3374
  1. ;;21,"54868-3605-03 ")
  1. ;;3375
  1. ;;21,"54868-3605-04 ")
  1. ;;3376
  1. ;;21,"54868-3605-05 ")
  1. ;;3377
  1. ;;21,"54868-3813-00 ")
  1. ;;3378
  1. ;;21,"54868-3813-01 ")
  1. ;;3379
  1. ;;21,"54868-3813-02 ")
  1. ;;3380
  1. ;;21,"54868-3813-03 ")
  1. ;;3381
  1. ;;21,"54868-3813-04 ")
  1. ;;3382
  1. ;;21,"54868-3813-05 ")
  1. ;;3383
  1. ;;21,"54868-3814-00 ")
  1. ;;3384
  1. ;;21,"54868-3814-01 ")
  1. ;;3385
  1. ;;21,"54868-3814-02 ")
  1. ;;3386
  1. ;;21,"54868-3814-03 ")
  1. ;;3387
  1. ;;21,"54868-3814-04 ")
  1. ;;3388
  1. ;;21,"54868-3814-05 ")
  1. ;;3389
  1. ;;21,"54868-3814-06 ")
  1. ;;3390
  1. ;;21,"54868-3815-00 ")
  1. ;;3391
  1. ;;21,"54868-3815-01 ")
  1. ;;3392
  1. ;;21,"54868-3815-03 ")
  1. ;;3393
  1. ;;21,"54868-3815-04 ")
  1. ;;3394
  1. ;;21,"54868-3815-05 ")
  1. ;;3395
  1. ;;21,"54868-3932-00 ")
  1. ;;3396
  1. ;;21,"54868-3932-01 ")
  1. ;;3397
  1. ;;21,"54868-3932-02 ")
  1. ;;3398
  1. ;;21,"54868-3932-03 ")
  1. ;;3399
  1. ;;21,"54868-3932-04 ")
  1. ;;3400
  1. ;;21,"54868-3932-05 ")
  1. ;;3401
  1. ;;21,"54868-3986-00 ")
  1. ;;3402
  1. ;;21,"54868-3986-02 ")
  1. ;;3403
  1. ;;21,"54868-3986-03 ")
  1. ;;3404
  1. ;;21,"54868-3986-04 ")
  1. ;;3405
  1. ;;21,"54868-3986-05 ")
  1. ;;3406
  1. ;;21,"54868-4033-00 ")
  1. ;;3407
  1. ;;21,"54868-4033-01 ")
  1. ;;3408
  1. ;;21,"54868-4033-03 ")
  1. ;;3409
  1. ;;21,"54868-4033-04 ")
  1. ;;3410
  1. ;;21,"54868-4033-05 ")
  1. ;;3411
  1. ;;21,"54868-4034-00 ")
  1. ;;3412
  1. ;;21,"54868-4034-01 ")
  1. ;;3413
  1. ;;21,"54868-4034-02 ")
  1. ;;3414
  1. ;;21,"54868-4034-03 ")
  1. ;;3415
  1. ;;21,"54868-4035-00 ")
  1. ;;3416
  1. ;;21,"54868-4035-01 ")
  1. ;;3417
  1. ;;21,"54868-4035-02 ")
  1. ;;3418
  1. ;;21,"54868-4035-03 ")
  1. ;;3419
  1. ;;21,"54868-4035-04 ")
  1. ;;3420
  1. ;;21,"54868-4147-00 ")
  1. ;;3421
  1. ;;21,"54868-4147-01 ")
  1. ;;3422
  1. ;;21,"54868-4147-02 ")
  1. ;;3423
  1. ;;21,"54868-4263-00 ")
  1. ;;3424
  1. ;;21,"54868-4571-00 ")
  1. ;;3425
  1. ;;21,"54868-4571-01 ")
  1. ;;3426
  1. ;;21,"54868-4571-02 ")
  1. ;;3427
  1. ;;21,"54868-4572-00 ")
  1. ;;3428
  1. ;;21,"54868-4572-01 ")
  1. ;;3429
  1. ;;21,"54868-4572-02 ")
  1. ;;3430
  1. ;;21,"54868-4573-00 ")
  1. ;;3431
  1. ;;21,"54868-4573-01 ")
  1. ;;3432
  1. ;;21,"54868-4573-02 ")
  1. ;;3433
  1. ;;21,"54868-4583-00 ")
  1. ;;3434
  1. ;;21,"54868-4598-00 ")
  1. ;;3435
  1. ;;21,"54868-4598-01 ")
  1. ;;3436
  1. ;;21,"54868-4598-02 ")
  1. ;;3437
  1. ;;21,"54868-4598-03 ")
  1. ;;3438
  1. ;;21,"54868-4598-04 ")
  1. ;;3439
  1. ;;21,"54868-4598-05 ")
  1. ;;3440
  1. ;;21,"54868-4598-06 ")
  1. ;;3441
  1. ;;21,"54868-4598-07 ")
  1. ;;3442
  1. ;;21,"54868-4603-00 ")
  1. ;;3443
  1. ;;21,"54868-4638-00 ")
  1. ;;3444
  1. ;;21,"54868-4638-01 ")
  1. ;;3445
  1. ;;21,"54868-4638-02 ")
  1. ;;3446
  1. ;;21,"54868-4638-03 ")
  1. ;;3447
  1. ;;21,"54868-4638-04 ")
  1. ;;3448
  1. ;;21,"54868-4638-05 ")
  1. ;;3449
  1. ;;21,"54868-4638-06 ")
  1. ;;3450
  1. ;;21,"54868-4638-07 ")
  1. ;;3451
  1. ;;21,"54868-4638-08 ")
  1. ;;3452
  1. ;;21,"54868-4638-09 ")
  1. ;;3453
  1. ;;21,"54868-4703-00 ")
  1. ;;3454
  1. ;;21,"54868-4703-01 ")
  1. ;;3455
  1. ;;21,"54868-4703-02 ")
  1. ;;3456
  1. ;;21,"54868-4703-03 ")
  1. ;;3457
  1. ;;21,"54868-4703-04 ")
  1. ;;3458
  1. ;;21,"54868-4703-05 ")
  1. ;;3459
  1. ;;21,"54868-4703-06 ")
  1. ;;3460
  1. ;;21,"54868-4710-00 ")
  1. ;;3461
  1. ;;21,"54868-4710-01 ")
  1. ;;3462
  1. ;;21,"54868-4722-00 ")
  1. ;;3463
  1. ;;21,"54868-4722-01 ")
  1. ;;3464
  1. ;;21,"54868-4722-02 ")
  1. ;;3465
  1. ;;21,"54868-4722-03 ")
  1. ;;3466
  1. ;;21,"54868-4722-04 ")
  1. ;;3467
  1. ;;21,"54868-4747-00 ")
  1. ;;3468
  1. ;;21,"54868-4747-01 ")
  1. ;;3469
  1. ;;21,"54868-4783-00 ")
  1. ;;3470
  1. ;;21,"54868-4783-01 ")
  1. ;;3471
  1. ;;21,"54868-4783-02 ")
  1. ;;3472
  1. ;;21,"54868-4783-03 ")
  1. ;;3473
  1. ;;21,"54868-4783-04 ")
  1. ;;3474
  1. ;;21,"54868-4788-00 ")
  1. ;;3475
  1. ;;21,"54868-4788-01 ")
  1. ;;3476
  1. ;;21,"54868-4948-00 ")
  1. ;;3477
  1. ;;21,"54868-4948-01 ")
  1. ;;3478
  1. ;;21,"54868-4948-02 ")
  1. ;;3479
  1. ;;21,"54868-4948-03 ")
  1. ;;3480
  1. ;;21,"54868-4948-05 ")
  1. ;;3481
  1. ;;21,"54868-4948-06 ")
  1. ;;3482
  1. ;;21,"54868-4948-07 ")
  1. ;;3483
  1. ;;21,"54868-4969-00 ")
  1. ;;3484
  1. ;;21,"54868-4969-01 ")
  1. ;;3485
  1. ;;21,"54868-4969-02 ")
  1. ;;3486
  1. ;;21,"54868-4969-03 ")
  1. ;;3487
  1. ;;21,"54868-4969-04 ")
  1. ;;3488
  1. ;;21,"54868-4969-05 ")
  1. ;;3489
  1. ;;21,"54868-4969-06 ")
  1. ;;3490
  1. ;;21,"54868-4973-00 ")
  1. ;;3491
  1. ;;21,"54868-4973-01 ")
  1. ;;3492
  1. ;;21,"54868-4973-02 ")
  1. ;;3493
  1. ;;21,"54868-4973-03 ")
  1. ;;3494
  1. ;;21,"54868-4973-04 ")
  1. ;;3495
  1. ;;21,"54868-4973-05 ")
  1. ;;3496
  1. ;;21,"54868-4974-00 ")
  1. ;;3497
  1. ;;21,"54868-4974-01 ")
  1. ;;3498
  1. ;;21,"54868-4974-02 ")
  1. ;;3499
  1. ;;21,"54868-4974-03 ")
  1. ;;3500
  1. ;;21,"54868-4974-04 ")
  1. ;;3501
  1. ;;21,"54868-4974-05 ")
  1. ;;3502
  1. ;;21,"54868-4974-06 ")
  1. ;;3503
  1. ;;21,"54868-4974-07 ")
  1. ;;3504
  1. ;;21,"54868-4974-08 ")
  1. ;;3505
  1. ;;21,"54868-4974-09 ")
  1. ;;3506
  1. ;;21,"54868-4976-00 ")
  1. ;;3507
  1. ;;21,"54868-4976-01 ")
  1. ;;3508
  1. ;;21,"54868-4976-02 ")
  1. ;;3509
  1. ;;21,"54868-4976-03 ")
  1. ;;3510
  1. ;;21,"54868-4976-04 ")
  1. ;;3511
  1. ;;21,"54868-4976-05 ")
  1. ;;3512
  1. ;;21,"54868-4976-06 ")
  1. ;;3513
  1. ;;21,"54868-4976-07 ")
  1. ;;3514
  1. ;;21,"54868-4980-00 ")
  1. ;;3515
  1. ;;21,"54868-4980-01 ")
  1. ;;3516
  1. ;;21,"54868-4980-02 ")
  1. ;;3517
  1. ;;21,"54868-4980-03 ")
  1. ;;3518
  1. ;;21,"54868-4980-04 ")
  1. ;;3519
  1. ;;21,"54868-4980-05 ")
  1. ;;3520
  1. ;;21,"54868-4980-06 ")
  1. ;;3521
  1. ;;21,"54868-4981-00 ")
  1. ;;3522
  1. ;;21,"54868-4981-01 ")
  1. ;;3523
  1. ;;21,"54868-4981-02 ")
  1. ;;3524
  1. ;;21,"54868-4983-00 ")
  1. ;;3525
  1. ;;21,"54868-4983-01 ")
  1. ;;3526
  1. ;;21,"54868-4983-02 ")
  1. ;;3527
  1. ;;21,"54868-4983-03 ")
  1. ;;3528
  1. ;;21,"54868-4983-04 ")
  1. ;;3529
  1. ;;21,"54868-4983-05 ")
  1. ;;3530
  1. ;;21,"54868-4983-08 ")
  1. ;;3531
  1. ;;21,"54868-4983-09 ")
  1. ;;3532
  1. ;;21,"54868-5024-00 ")
  1. ;;3533
  1. ;;21,"54868-5024-01 ")
  1. ;;3534
  1. ;;21,"54868-5024-03 ")
  1. ;;3535
  1. ;;21,"54868-5024-04 ")
  1. ;;3536
  1. ;;21,"54868-5024-05 ")
  1. ;;3537
  1. ;;21,"54868-5024-06 ")
  1. ;;3538
  1. ;;21,"54868-5024-07 ")
  1. ;;3539
  1. ;;21,"54868-5024-08 ")
  1. ;;3540
  1. ;;21,"54868-5024-09 ")
  1. ;;3541
  1. ;;21,"54868-5054-00 ")
  1. ;;3542
  1. ;;21,"54868-5054-01 ")
  1. ;;3543
  1. ;;21,"54868-5054-02 ")
  1. ;;3544
  1. ;;21,"54868-5054-03 ")
  1. ;;3545
  1. ;;21,"54868-5054-04 ")
  1. ;;3546
  1. ;;21,"54868-5132-00 ")
  1. ;;3547
  1. ;;21,"54868-5132-01 ")
  1. ;;3548
  1. ;;21,"54868-5132-02 ")
  1. ;;3549
  1. ;;21,"54868-5132-03 ")
  1. ;;3550
  1. ;;21,"54868-5132-04 ")
  1. ;;3551
  1. ;;21,"54868-5146-00 ")
  1. ;;3552
  1. ;;21,"54868-5146-01 ")
  1. ;;3553
  1. ;;21,"54868-5146-02 ")
  1. ;;3554
  1. ;;21,"54868-5146-03 ")
  1. ;;3555
  1. ;;21,"54868-5146-04 ")
  1. ;;3556
  1. ;;21,"54868-5146-05 ")
  1. ;;3557
  1. ;;21,"54868-5146-06 ")
  1. ;;3558
  1. ;;21,"54868-5162-00 ")
  1. ;;3559
  1. ;;21,"54868-5162-01 ")
  1. ;;3560
  1. ;;21,"54868-5162-02 ")
  1. ;;3561
  1. ;;21,"54868-5162-03 ")
  1. ;;3562
  1. ;;21,"54868-5167-00 ")
  1. ;;3563
  1. ;;21,"54868-5167-01 ")
  1. ;;3564
  1. ;;21,"54868-5167-02 ")
  1. ;;3565
  1. ;;21,"54868-5167-03 ")
  1. ;;3566
  1. ;;21,"54868-5167-04 ")
  1. ;;3567
  1. ;;21,"54868-5167-05 ")
  1. ;;3568
  1. ;;21,"54868-5167-06 ")
  1. ;;3569
  1. ;;21,"54868-5167-07 ")
  1. ;;3570
  1. ;;21,"54868-5167-08 ")
  1. ;;3571
  1. ;;21,"54868-5168-00 ")
  1. ;;3572
  1. ;;21,"54868-5291-00 ")
  1. ;;3573
  1. ;;21,"54868-5291-01 ")
  1. ;;3574
  1. ;;21,"54868-5291-02 ")
  1. ;;3575
  1. ;;21,"54868-5291-03 ")
  1. ;;3576
  1. ;;21,"54868-5291-04 ")
  1. ;;3577
  1. ;;21,"54868-5291-05 ")
  1. ;;3578
  1. ;;21,"54868-5291-06 ")
  1. ;;3579
  1. ;;21,"54868-5338-00 ")
  1. ;;3580
  1. ;;21,"54868-5338-01 ")
  1. ;;3581
  1. ;;21,"54868-5338-02 ")
  1. ;;3582
  1. ;;21,"54868-5338-03 ")
  1. ;;3583
  1. ;;21,"54868-5338-04 ")
  1. ;;3584
  1. ;;21,"54868-5338-05 ")
  1. ;;3585
  1. ;;21,"54868-5338-06 ")
  1. ;;3586
  1. ;;21,"54868-5338-07 ")
  1. ;;3587
  1. ;;21,"54868-5338-08 ")
  1. ;;3588
  1. ;;21,"54868-5390-00 ")
  1. ;;3589
  1. ;;21,"54868-5390-01 ")
  1. ;;3590
  1. ;;21,"54868-5390-02 ")
  1. ;;3591
  1. ;;21,"54868-5390-03 ")
  1. ;;3592
  1. ;;21,"54868-5390-04 ")
  1. ;;3593
  1. ;;21,"54868-5390-05 ")
  1. ;;3594
  1. ;;21,"54868-5390-06 ")
  1. ;;3595
  1. ;;21,"54868-5390-07 ")
  1. ;;3596
  1. ;;21,"54868-5390-08 ")
  1. ;;3597
  1. ;;21,"54868-5413-00 ")
  1. ;;3598
  1. ;;21,"54868-5508-01 ")
  1. ;;3599
  1. ;;21,"54868-5584-00 ")
  1. ;;3600
  1. ;;21,"54868-5590-00 ")
  1. ;;3601
  1. ;;21,"54868-5590-01 ")
  1. ;;3602
  1. ;;21,"54868-5590-02 ")
  1. ;;3603
  1. ;;21,"54868-5590-03 ")
  1. ;;3604
  1. ;;21,"54868-5590-04 ")
  1. ;;3605
  1. ;;21,"54868-5701-00 ")
  1. ;;3606
  1. ;;21,"54868-5701-01 ")
  1. ;;3607
  1. ;;21,"54868-5701-02 ")
  1. ;;3608
  1. ;;21,"54868-5701-03 ")
  1. ;;3609
  1. ;;21,"54868-5706-00 ")
  1. ;;3610
  1. ;;21,"54868-5790-00 ")
  1. ;;3611
  1. ;;21,"54868-5791-00 ")
  1. ;;3612
  1. ;;21,"54868-5850-00 ")
  1. ;;3613
  1. ;;21,"54868-5850-01 ")
  1. ;;3614
  1. ;;21,"54868-5850-02 ")
  1. ;;3615
  1. ;;21,"54868-5900-00 ")
  1. ;;3616
  1. ;;21,"54868-5902-00 ")
  1. ;;3617
  1. ;;21,"54868-5902-01 ")
  1. ;;3618
  1. ;;21,"54868-5902-02 ")
  1. ;;3619
  1. ;;21,"54868-5902-03 ")
  1. ;;3620
  1. ;;21,"54868-5957-00 ")
  1. ;;3621
  1. ;;21,"54868-5963-00 ")
  1. ;;3622
  1. ;;21,"54868-5964-00 ")
  1. ;;3623
  1. ;;21,"54868-5964-01 ")
  1. ;;3624
  1. ;;21,"54868-5964-02 ")
  1. ;;3625
  1. ;;21,"54868-5966-01 ")
  1. ;;3626
  1. ;;21,"54868-5966-02 ")
  1. ;;3627
  1. ;;21,"54868-5970-00 ")
  1. ;;3628
  1. ;;21,"54868-5970-01 ")
  1. ;;3629
  1. ;;21,"54868-5975-00 ")
  1. ;;3630
  1. ;;21,"54868-5979-00 ")
  1. ;;3631
  1. ;;21,"54868-5979-01 ")
  1. ;;3632
  1. ;;21,"54868-6002-00 ")
  1. ;;3633
  1. ;;21,"54868-6025-00 ")
  1. ;;3634
  1. ;;21,"54868-6026-00 ")
  1. ;;3635
  1. ;;21,"54868-6027-00 ")
  1. ;;3636
  1. ;;21,"54868-6037-00 ")
  1. ;;3637
  1. ;;21,"54868-6039-00 ")
  1. ;;3638
  1. ;;21,"54868-6040-00 ")
  1. ;;3639
  1. ;;21,"54868-6040-01 ")
  1. ;;3640
  1. ;;21,"54868-6128-00 ")
  1. ;;3641
  1. ;;21,"54868-6196-00 ")
  1. ;;3642
  1. ;;21,"54868-6196-01 ")
  1. ;;3643
  1. ;;21,"54868-6379-00 ")
  1. ;;3644
  1. ;;21,"54868-6387-00 ")
  1. ;;3645
  1. ;;21,"54868-6388-00 ")
  1. ;;3646
  1. ;;21,"55045-1266-08 ")
  1. ;;3647
  1. ;;21,"55045-1495-09 ")
  1. ;;3648
  1. ;;21,"55045-1580-05 ")
  1. ;;3649
  1. ;;21,"55045-2386-06 ")
  1. ;;3650
  1. ;;21,"55045-2386-07 ")
  1. ;;3651
  1. ;;21,"55045-2386-08 ")
  1. ;;3652
  1. ;;21,"55154-2541-04 ")
  1. ;;3653
  1. ;;21,"55154-2541-07 ")
  1. ;;3654
  1. ;;21,"55253-0070-01 ")
  1. ;;3655
  1. ;;21,"55253-0070-30 ")
  1. ;;3656
  1. ;;21,"55253-0071-01 ")
  1. ;;3657
  1. ;;21,"55253-0071-30 ")
  1. ;;3658
  1. ;;21,"55253-0072-01 ")
  1. ;;3659
  1. ;;21,"55253-0072-30 ")
  1. ;;3660
  1. ;;21,"55253-0073-01 ")
  1. ;;3661
  1. ;;21,"55253-0073-30 ")
  1. ;;3662
  1. ;;21,"55253-0074-01 ")
  1. ;;3663
  1. ;;21,"55253-0074-30 ")
  1. ;;3664
  1. ;;21,"55253-0075-01 ")
  1. ;;3665
  1. ;;21,"55253-0075-30 ")
  1. ;;3666
  1. ;;21,"55289-0005-06 ")
  1. ;;3667
  1. ;;21,"55289-0005-10 ")
  1. ;;3668
  1. ;;21,"55289-0005-12 ")
  1. ;;3669
  1. ;;21,"55289-0005-15 ")
  1. ;;3670
  1. ;;21,"55289-0005-18 ")
  1. ;;3671
  1. ;;21,"55289-0005-20 ")
  1. ;;3672
  1. ;;21,"55289-0005-24 ")
  1. ;;3673
  1. ;;21,"55289-0005-25 ")
  1. ;;3674
  1. ;;21,"55289-0005-30 ")
  1. ;;3675
  1. ;;21,"55289-0005-40 ")
  1. ;;3676
  1. ;;21,"55289-0005-60 ")
  1. ;;3677
  1. ;;21,"55289-0005-90 ")
  1. ;;3678
  1. ;;21,"55289-0005-98 ")
  1. ;;3679
  1. ;;21,"55289-0026-20 ")
  1. ;;3680
  1. ;;21,"55289-0048-15 ")
  1. ;;3681
  1. ;;21,"55289-0339-15 ")
  1. ;;3682
  1. ;;21,"55289-0348-15 ")
  1. ;;3683
  1. ;;21,"55289-0449-15 ")
  1. ;;3684
  1. ;;21,"55289-0449-30 ")
  1. ;;3685
  1. ;;21,"55289-0511-60 ")
  1. ;;3686
  1. ;;21,"55289-0511-90 ")
  1. ;;3687