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

BGPM5AQD.m

Go to the documentation of this file.
BGPM5AQD ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"60505269101 ")
 ;;3467
 ;;21,"60598008001 ")
 ;;3468
 ;;21,"60598010001 ")
 ;;3469
 ;;21,"60598010101 ")
 ;;3470
 ;;21,"60763101100 ")
 ;;3471
 ;;21,"60763101102 ")
 ;;3472
 ;;21,"60763101200 ")
 ;;3473
 ;;21,"60763101202 ")
 ;;3474
 ;;21,"60763101300 ")
 ;;3475
 ;;21,"60763101302 ")
 ;;3476
 ;;21,"60763101400 ")
 ;;3477
 ;;21,"60793071001 ")
 ;;3478
 ;;21,"60793071005 ")
 ;;3479
 ;;21,"60793071101 ")
 ;;3480
 ;;21,"60793071105 ")
 ;;3481
 ;;21,"60793071180 ")
 ;;3482
 ;;21,"60793071201 ")
 ;;3483
 ;;21,"60793091001 ")
 ;;3484
 ;;21,"60793091005 ")
 ;;3485
 ;;21,"60793091101 ")
 ;;3486
 ;;21,"60793091105 ")
 ;;3487
 ;;21,"60793091501 ")
 ;;3488
 ;;21,"60793091505 ")
 ;;3489
 ;;21,"60793091507 ")
 ;;3490
 ;;21,"60951072170 ")
 ;;3491
 ;;21,"60951072270 ")
 ;;3492
 ;;21,"60951072470 ")
 ;;3493
 ;;21,"60951072770 ")
 ;;3494
 ;;21,"60951073170 ")
 ;;3495
 ;;21,"60951073370 ")
 ;;3496
 ;;21,"60951073970 ")
 ;;3497
 ;;21,"60951074170 ")
 ;;3498
 ;;21,"61392042625 ")
 ;;3499
 ;;21,"61392042630 ")
 ;;3500
 ;;21,"61392045425 ")
 ;;3501
 ;;21,"61392045430 ")
 ;;3502
 ;;21,"61392045431 ")
 ;;3503
 ;;21,"61392045439 ")
 ;;3504
 ;;21,"61392047425 ")
 ;;3505
 ;;21,"61392047430 ")
 ;;3506
 ;;21,"61392047431 ")
 ;;3507
 ;;21,"61392047439 ")
 ;;3508
 ;;21,"61392060425 ")
 ;;3509
 ;;21,"61392060430 ")
 ;;3510
 ;;21,"61392060460 ")
 ;;3511
 ;;21,"61392060490 ")
 ;;3512
 ;;21,"61392060525 ")
 ;;3513
 ;;21,"61392060530 ")
 ;;3514
 ;;21,"61392060531 ")
 ;;3515
 ;;21,"61392060539 ")
 ;;3516
 ;;21,"61392060560 ")
 ;;3517
 ;;21,"61392060565 ")
 ;;3518
 ;;21,"61392060590 ")
 ;;3519
 ;;21,"61392060595 ")
 ;;3520
 ;;21,"61392064925 ")
 ;;3521
 ;;21,"61392064930 ")
 ;;3522
 ;;21,"61392064931 ")
 ;;3523
 ;;21,"61392064939 ")
 ;;3524
 ;;21,"61392064960 ")
 ;;3525
 ;;21,"61392064965 ")
 ;;3526
 ;;21,"61392064990 ")
 ;;3527
 ;;21,"61392064995 ")
 ;;3528
 ;;21,"61392065025 ")
 ;;3529
 ;;21,"61392065030 ")
 ;;3530
 ;;21,"61392065031 ")
 ;;3531
 ;;21,"61392065039 ")
 ;;3532
 ;;21,"61392065060 ")
 ;;3533
 ;;21,"61392065065 ")
 ;;3534
 ;;21,"61392065090 ")
 ;;3535
 ;;21,"61392065095 ")
 ;;3536
 ;;21,"61392065125 ")
 ;;3537
 ;;21,"61392065130 ")
 ;;3538
 ;;21,"61392065131 ")
 ;;3539
 ;;21,"61392065139 ")
 ;;3540
 ;;21,"61392065160 ")
 ;;3541
 ;;21,"61392065165 ")
 ;;3542
 ;;21,"61392065190 ")
 ;;3543
 ;;21,"61392065195 ")
 ;;3544
 ;;21,"61392065225 ")
 ;;3545
 ;;21,"61392065230 ")
 ;;3546
 ;;21,"61392065231 ")
 ;;3547
 ;;21,"61392065239 ")
 ;;3548
 ;;21,"61392065260 ")
 ;;3549
 ;;21,"61392065265 ")
 ;;3550
 ;;21,"61392065290 ")
 ;;3551
 ;;21,"61392065295 ")
 ;;3552
 ;;21,"61392069323 ")
 ;;3553
 ;;21,"61392069325 ")
 ;;3554
 ;;21,"61392069330 ")
 ;;3555
 ;;21,"61392069331 ")
 ;;3556
 ;;21,"61392069339 ")
 ;;3557
 ;;21,"61392069360 ")
 ;;3558
 ;;21,"61392069365 ")
 ;;3559
 ;;21,"61392069390 ")
 ;;3560
 ;;21,"61392069395 ")
 ;;3561
 ;;21,"61392069423 ")
 ;;3562
 ;;21,"61392069425 ")
 ;;3563
 ;;21,"61392069430 ")
 ;;3564
 ;;21,"61392069431 ")
 ;;3565
 ;;21,"61392069439 ")
 ;;3566
 ;;21,"61392069460 ")
 ;;3567
 ;;21,"61392069465 ")
 ;;3568
 ;;21,"61392069490 ")
 ;;3569
 ;;21,"61392069495 ")
 ;;3570
 ;;21,"61392069525 ")
 ;;3571
 ;;21,"61392069530 ")
 ;;3572
 ;;21,"61392069531 ")
 ;;3573
 ;;21,"61392069539 ")
 ;;3574
 ;;21,"61392069560 ")
 ;;3575
 ;;21,"61392069625 ")
 ;;3576
 ;;21,"61392069630 ")
 ;;3577
 ;;21,"61392069660 ")
 ;;3578
 ;;21,"61392069690 ")
 ;;3579
 ;;21,"61392069725 ")
 ;;3580
 ;;21,"61392069730 ")
 ;;3581
 ;;21,"61392069731 ")
 ;;3582
 ;;21,"61392069739 ")
 ;;3583
 ;;21,"61392069760 ")
 ;;3584
 ;;21,"61392069765 ")
 ;;3585
 ;;21,"61392069790 ")
 ;;3586
 ;;21,"61392069795 ")
 ;;3587
 ;;21,"61392069825 ")
 ;;3588
 ;;21,"61392069830 ")
 ;;3589
 ;;21,"61392069831 ")
 ;;3590
 ;;21,"61392069839 ")
 ;;3591
 ;;21,"61392069860 ")
 ;;3592
 ;;21,"61392069865 ")
 ;;3593
 ;;21,"61392069890 ")
 ;;3594
 ;;21,"61392069895 ")
 ;;3595
 ;;21,"61392086831 ")
 ;;3596
 ;;21,"61392086839 ")
 ;;3597
 ;;21,"61392088631 ")
 ;;3598
 ;;21,"61392088639 ")
 ;;3599
 ;;21,"61392089831 ")
 ;;3600
 ;;21,"61392089839 ")
 ;;3601
 ;;21,"61392092925 ")
 ;;3602
 ;;21,"61392092930 ")
 ;;3603
 ;;21,"61392092931 ")
 ;;3604
 ;;21,"61392092939 ")
 ;;3605
 ;;21,"61392092960 ")
 ;;3606
 ;;21,"61392092965 ")
 ;;3607
 ;;21,"61392092990 ")
 ;;3608
 ;;21,"61392092995 ")
 ;;3609
 ;;21,"61392093025 ")
 ;;3610
 ;;21,"61392093030 ")
 ;;3611
 ;;21,"61392093031 ")
 ;;3612
 ;;21,"61392093039 ")
 ;;3613
 ;;21,"61392093060 ")
 ;;3614
 ;;21,"61392093065 ")
 ;;3615
 ;;21,"61392093090 ")
 ;;3616
 ;;21,"61392093095 ")
 ;;3617
 ;;21,"61392093125 ")
 ;;3618
 ;;21,"61392093130 ")
 ;;3619
 ;;21,"61392093131 ")
 ;;3620
 ;;21,"61392093139 ")
 ;;3621
 ;;21,"61392093160 ")
 ;;3622
 ;;21,"61392093165 ")
 ;;3623
 ;;21,"61392093190 ")
 ;;3624
 ;;21,"61392093195 ")
 ;;3625
 ;;21,"61392093225 ")
 ;;3626
 ;;21,"61392093230 ")
 ;;3627
 ;;21,"61392093231 ")
 ;;3628
 ;;21,"61392093239 ")
 ;;3629
 ;;21,"61392093260 ")
 ;;3630
 ;;21,"61392093265 ")
 ;;3631
 ;;21,"61392093290 ")
 ;;3632
 ;;21,"61392093295 ")
 ;;3633
 ;;21,"61570011001 ")
 ;;3634
 ;;21,"61570011056 ")
 ;;3635
 ;;21,"61570011101 ")
 ;;3636
 ;;21,"61570011105 ")
 ;;3637
 ;;21,"61570011107 ")
 ;;3638
 ;;21,"61570011150 ")
 ;;3639
 ;;21,"61570011156 ")
 ;;3640
 ;;21,"61570011201 ")
 ;;3641
 ;;21,"61570011205 ")
 ;;3642
 ;;21,"61570011207 ")
 ;;3643
 ;;21,"61570011250 ")
 ;;3644
 ;;21,"61570011256 ")
 ;;3645
 ;;21,"61570012001 ")
 ;;3646
 ;;21,"61570012005 ")
 ;;3647
 ;;21,"61570012007 ")
 ;;3648
 ;;21,"61570012080 ")
 ;;3649
 ;;21,"61703023716 ")
 ;;3650
 ;;21,"61703023744 ")
 ;;3651
 ;;21,"62022094501 ")
 ;;3652
 ;;21,"62022094505 ")
 ;;3653
 ;;21,"62022094510 ")
 ;;3654
 ;;21,"62022094601 ")
 ;;3655
 ;;21,"62022094605 ")
 ;;3656
 ;;21,"62022094610 ")
 ;;3657
 ;;21,"62033010120 ")
 ;;3658
 ;;21,"62037053110 ")
 ;;3659
 ;;21,"62037053190 ")
 ;;3660
 ;;21,"62037053210 ")
 ;;3661
 ;;21,"62037053290 ")
 ;;3662
 ;;21,"62037053310 ")
 ;;3663
 ;;21,"62037053390 ")
 ;;3664
 ;;21,"62037053410 ")
 ;;3665
 ;;21,"62037053490 ")
 ;;3666
 ;;21,"62037093505 ")
 ;;3667
 ;;21,"62037093510 ")
 ;;3668
 ;;21,"62037093530 ")
 ;;3669
 ;;21,"62037093590 ")
 ;;3670
 ;;21,"62037093605 ")
 ;;3671
 ;;21,"62037093610 ")
 ;;3672
 ;;21,"62037093630 ")
 ;;3673
 ;;21,"62037093690 ")
 ;;3674
 ;;21,"62037093705 ")
 ;;3675
 ;;21,"62037093710 ")
 ;;3676
 ;;21,"62037093730 ")
 ;;3677
 ;;21,"62037093790 ")
 ;;3678
 ;;21,"62175017137 ")
 ;;3679
 ;;21,"62175017737 ")
 ;;3680
 ;;21,"62301004444 ")
 ;;3681
 ;;21,"62301006767 ")
 ;;3682
 ;;21,"62301006969 ")
 ;;3683
 ;;21,"62318018400 ")
 ;;3684
 ;;21,"62318018401 ")
 ;;3685
 ;;21,"62318018500 ")
 ;;3686
 ;;21,"62318018501 ")
 ;;3687
 ;;21,"62318018600 ")
 ;;3688
 ;;21,"62318018601 ")
 ;;3689
 ;;21,"62318018700 ")
 ;;3690
 ;;21,"62318018701 ")
 ;;3691
 ;;21,"62318018800 ")
 ;;3692
 ;;21,"62318018801 ")
 ;;3693
 ;;21,"62318018900 ")
 ;;3694
 ;;21,"62318018901 ")
 ;;3695
 ;;21,"62540722203 ")
 ;;3696
 ;;21,"62540722205 ")
 ;;3697
 ;;21,"62540722303 ")
 ;;3698
 ;;21,"62540722305 ")
 ;;3699
 ;;21,"62540722403 ")
 ;;3700
 ;;21,"62540722405 ")
 ;;3701
 ;;21,"62584016041 ")
 ;;3702
 ;;21,"62584016045 ")
 ;;3703
 ;;21,"62584032250 ")
 ;;3704
 ;;21,"62584032450 ")
 ;;3705
 ;;21,"62584043550 ")
 ;;3706
 ;;21,"62584048250 ")
 ;;3707
 ;;21,"62584048350 ")
 ;;3708
 ;;21,"62584048450 ")
 ;;3709
 ;;21,"62584048541 ")
 ;;3710
 ;;21,"62584048641 ")
 ;;3711
 ;;21,"62584092550 ")
 ;;3712
 ;;21,"62584092590 ")
 ;;3713
 ;;21,"62584096200 ")
 ;;3714
 ;;21,"62584096250 ")
 ;;3715
 ;;21,"62584096585 ")
 ;;3716
 ;;21,"62645040110 ")
 ;;3717
 ;;21,"62756031008 ")
 ;;3718
 ;;21,"62756031018 ")
 ;;3719
 ;;21,"62756031081 ")
 ;;3720
 ;;21,"62756031083 ")
 ;;3721
 ;;21,"62756031088 ")
 ;;3722
 ;;21,"62756031108 ")
 ;;3723
 ;;21,"62756031118 ")
 ;;3724
 ;;21,"62756031181 ")
 ;;3725
 ;;21,"62756031183 ")
 ;;3726
 ;;21,"62756031188 ")
 ;;3727
 ;;21,"62756031208 ")
 ;;3728
 ;;21,"62756031218 ")
 ;;3729
 ;;21,"62756031281 ")
 ;;3730
 ;;21,"62756031283 ")
 ;;3731
 ;;21,"62756031288 ")
 ;;3732
 ;;21,"62756031308 ")
 ;;3733
 ;;21,"62756031318 ")
 ;;3734
 ;;21,"62756031381 ")
 ;;3735
 ;;21,"62756031383 ")
 ;;3736
 ;;21,"62756031388 ")
 ;;3737
 ;;21,"62778008101 ")
 ;;3738
 ;;21,"62778008102 ")
 ;;3739
 ;;21,"62778008201 ")
 ;;3740
 ;;21,"62778008202 ")
 ;;3741
 ;;21,"63304040301 ")
 ;;3742
 ;;21,"63304040310 ")
 ;;3743
 ;;21,"63304040330 ")
 ;;3744
 ;;21,"63304040401 ")
 ;;3745
 ;;21,"63304040410 ")
 ;;3746
 ;;21,"63304040430 ")
 ;;3747
 ;;21,"63304052201 ")
 ;;3748
 ;;21,"63304052210 ")
 ;;3749
 ;;21,"63304052301 ")
 ;;3750
 ;;21,"63304052310 ")
 ;;3751
 ;;21,"63304052401 ")
 ;;3752
 ;;21,"63304052410 ")
 ;;3753
 ;;21,"63304052501 ")
 ;;3754
 ;;21,"63304052510 ")
 ;;3755
 ;;21,"63304053101 ")
 ;;3756
 ;;21,"63304053111 ")
 ;;3757
 ;;21,"63304053177 ")
 ;;3758
 ;;21,"63304053201 ")
 ;;3759
 ;;21,"63304053210 ")
 ;;3760
 ;;21,"63304053211 ")
 ;;3761
 ;;21,"63304053277 ")
 ;;3762
 ;;21,"63304053301 ")
 ;;3763
 ;;21,"63304053310 ")
 ;;3764
 ;;21,"63304053311 ")
 ;;3765
 ;;21,"63304053377 ")
 ;;3766
 ;;21,"63304053401 ")
 ;;3767
 ;;21,"63304053410 ")
 ;;3768
 ;;21,"63304053411 ")
 ;;3769
 ;;21,"63304053477 ")
 ;;3770
 ;;21,"63304053501 ")
 ;;3771
 ;;21,"63304053510 ")
 ;;3772
 ;;21,"63304053511 ")
 ;;3773
 ;;21,"63304053577 ")
 ;;3774
 ;;21,"63304053601 ")
 ;;3775
 ;;21,"63304053605 ")
 ;;3776
 ;;21,"63304053701 ")
 ;;3777
 ;;21,"63304053705 ")
 ;;3778
 ;;21,"63304053801 ")
 ;;3779
 ;;21,"63304053805 ")
 ;;3780
 ;;21,"63304054890 ")
 ;;3781
 ;;21,"63304054990 ")
 ;;3782
 ;;21,"63304055090 ")
 ;;3783
 ;;21,"63304055190 ")
 ;;3784
 ;;21,"63304059901 ")
 ;;3785
 ;;21,"63304059910 ")
 ;;3786
 ;;21,"63304077501 ")
 ;;3787
 ;;21,"63304077505 ")
 ;;3788
 ;;21,"63304077510 ")
 ;;3789
 ;;21,"63304077530 ")
 ;;3790
 ;;21,"63304077590 ")
 ;;3791
 ;;21,"63304077601 ")
 ;;3792
 ;;21,"63304077605 ")
 ;;3793
 ;;21,"63304077610 ")
 ;;3794
 ;;21,"63304077630 ")
 ;;3795
 ;;21,"63304077690 ")
 ;;3796
 ;;21,"63304077701 ")
 ;;3797
 ;;21,"63304077705 ")
 ;;3798
 ;;21,"63304077710 ")
 ;;3799
 ;;21,"63304077730 ")
 ;;3800
 ;;21,"63304077790 ")
 ;;3801
 ;;21,"63304083401 ")
 ;;3802
 ;;21,"63304083410 ")
 ;;3803
 ;;21,"63304083501 ")
 ;;3804
 ;;21,"63304083510 ")
 ;;3805
 ;;21,"63304083601 ")
 ;;3806
 ;;21,"63304083610 ")
 ;;3807
 ;;21,"63304083701 ")
 ;;3808
 ;;21,"63304083710 ")
 ;;3809
 ;;21,"63629124001 ")
 ;;3810
 ;;21,"63629124101 ")
 ;;3811
 ;;21,"63629124201 ")
 ;;3812
 ;;21,"63629133801 ")
 ;;3813
 ;;21,"63629133802 ")
 ;;3814
 ;;21,"63629133803 ")
 ;;3815
 ;;21,"63629152201 ")
 ;;3816
 ;;21,"63629152202 ")
 ;;3817
 ;;21,"63629152203 ")
 ;;3818