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

BGPM5ATY.m

Go to the documentation of this file.
BGPM5ATY ;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,"60429002305 ")
 ;;3621
 ;;21,"60429002401 ")
 ;;3622
 ;;21,"60429002405 ")
 ;;3623
 ;;21,"60429003640 ")
 ;;3624
 ;;21,"60429003740 ")
 ;;3625
 ;;21,"60429005940 ")
 ;;3626
 ;;21,"60429006920 ")
 ;;3627
 ;;21,"60429006992 ")
 ;;3628
 ;;21,"60429014701 ")
 ;;3629
 ;;21,"60429014710 ")
 ;;3630
 ;;21,"60429014730 ")
 ;;3631
 ;;21,"60429014740 ")
 ;;3632
 ;;21,"60429014801 ")
 ;;3633
 ;;21,"60429014805 ")
 ;;3634
 ;;21,"60429014830 ")
 ;;3635
 ;;21,"60429014840 ")
 ;;3636
 ;;21,"60429017014 ")
 ;;3637
 ;;21,"60429017020 ")
 ;;3638
 ;;21,"60429020840 ")
 ;;3639
 ;;21,"60429020940 ")
 ;;3640
 ;;21,"60429074201 ")
 ;;3641
 ;;21,"60429074301 ")
 ;;3642
 ;;21,"60429074305 ")
 ;;3643
 ;;21,"60429074320 ")
 ;;3644
 ;;21,"60429074401 ")
 ;;3645
 ;;21,"60432006500 ")
 ;;3646
 ;;21,"60432006547 ")
 ;;3647
 ;;21,"60432006575 ")
 ;;3648
 ;;21,"60432069330 ")
 ;;3649
 ;;21,"60432069360 ")
 ;;3650
 ;;21,"60505067905 ")
 ;;3651
 ;;21,"60505067908 ")
 ;;3652
 ;;21,"60505067909 ")
 ;;3653
 ;;21,"60505068002 ")
 ;;3654
 ;;21,"60505068005 ")
 ;;3655
 ;;21,"60505074804 ")
 ;;3656
 ;;21,"60505074805 ")
 ;;3657
 ;;21,"60505074904 ")
 ;;3658
 ;;21,"60505074905 ")
 ;;3659
 ;;21,"60505075000 ")
 ;;3660
 ;;21,"60505075004 ")
 ;;3661
 ;;21,"60505075100 ")
 ;;3662
 ;;21,"60505075104 ")
 ;;3663
 ;;21,"60505075200 ")
 ;;3664
 ;;21,"60505075204 ")
 ;;3665
 ;;21,"60505075300 ")
 ;;3666
 ;;21,"60505075304 ")
 ;;3667
 ;;21,"60505076900 ")
 ;;3668
 ;;21,"60505120100 ")
 ;;3669
 ;;21,"60505120103 ")
 ;;3670
 ;;21,"60505120200 ")
 ;;3671
 ;;21,"60505120203 ")
 ;;3672
 ;;21,"60505130801 ")
 ;;3673
 ;;21,"60505130802 ")
 ;;3674
 ;;21,"60505130808 ")
 ;;3675
 ;;21,"60505130901 ")
 ;;3676
 ;;21,"60505130902 ")
 ;;3677
 ;;21,"60505130907 ")
 ;;3678
 ;;21,"60505130908 ")
 ;;3679
 ;;21,"60505131001 ")
 ;;3680
 ;;21,"60505131002 ")
 ;;3681
 ;;21,"60505131004 ")
 ;;3682
 ;;21,"60505131005 ")
 ;;3683
 ;;21,"60505253201 ")
 ;;3684
 ;;21,"60505253203 ")
 ;;3685
 ;;21,"60505253205 ")
 ;;3686
 ;;21,"60505253208 ")
 ;;3687
 ;;21,"60505253301 ")
 ;;3688
 ;;21,"60505253303 ")
 ;;3689
 ;;21,"60505253305 ")
 ;;3690
 ;;21,"60505253308 ")
 ;;3691
 ;;21,"60505253902 ")
 ;;3692
 ;;21,"60505253903 ")
 ;;3693
 ;;21,"60505253905 ")
 ;;3694
 ;;21,"60505254002 ")
 ;;3695
 ;;21,"60505254003 ")
 ;;3696
 ;;21,"60505254005 ")
 ;;3697
 ;;21,"60505254102 ")
 ;;3698
 ;;21,"60505254103 ")
 ;;3699
 ;;21,"60505254105 ")
 ;;3700
 ;;21,"60505257302 ")
 ;;3701
 ;;21,"60505257305 ")
 ;;3702
 ;;21,"60505257307 ")
 ;;3703
 ;;21,"60505257402 ")
 ;;3704
 ;;21,"60505257405 ")
 ;;3705
 ;;21,"60505257407 ")
 ;;3706
 ;;21,"60505258100 ")
 ;;3707
 ;;21,"60505258102 ")
 ;;3708
 ;;21,"60505258103 ")
 ;;3709
 ;;21,"60505258105 ")
 ;;3710
 ;;21,"60505261500 ")
 ;;3711
 ;;21,"60505261501 ")
 ;;3712
 ;;21,"60505261503 ")
 ;;3713
 ;;21,"60505261505 ")
 ;;3714
 ;;21,"60505261506 ")
 ;;3715
 ;;21,"60505261600 ")
 ;;3716
 ;;21,"60505261601 ")
 ;;3717
 ;;21,"60505261603 ")
 ;;3718
 ;;21,"60505261606 ")
 ;;3719
 ;;21,"60505261608 ")
 ;;3720
 ;;21,"60505261802 ")
 ;;3721
 ;;21,"60505261806 ")
 ;;3722
 ;;21,"60505268102 ")
 ;;3723
 ;;21,"60505268106 ")
 ;;3724
 ;;21,"60505268201 ")
 ;;3725
 ;;21,"60505268202 ")
 ;;3726
 ;;21,"60505268206 ")
 ;;3727
 ;;21,"60505607604 ")
 ;;3728
 ;;21,"60505608701 ")
 ;;3729
 ;;21,"60505608801 ")
 ;;3730
 ;;21,"60758090810 ")
 ;;3731
 ;;21,"60760000820 ")
 ;;3732
 ;;21,"60760000821 ")
 ;;3733
 ;;21,"60760000828 ")
 ;;3734
 ;;21,"60760000830 ")
 ;;3735
 ;;21,"60760000840 ")
 ;;3736
 ;;21,"60760006920 ")
 ;;3737
 ;;21,"60760010709 ")
 ;;3738
 ;;21,"60760010728 ")
 ;;3739
 ;;21,"60760010740 ")
 ;;3740
 ;;21,"60760011408 ")
 ;;3741
 ;;21,"60760011415 ")
 ;;3742
 ;;21,"60760011420 ")
 ;;3743
 ;;21,"60760011421 ")
 ;;3744
 ;;21,"60760011428 ")
 ;;3745
 ;;21,"60760011430 ")
 ;;3746
 ;;21,"60760011440 ")
 ;;3747
 ;;21,"60760017420 ")
 ;;3748
 ;;21,"60760017421 ")
 ;;3749
 ;;21,"60760017424 ")
 ;;3750
 ;;21,"60760017428 ")
 ;;3751
 ;;21,"60760017430 ")
 ;;3752
 ;;21,"60760017440 ")
 ;;3753
 ;;21,"60760026120 ")
 ;;3754
 ;;21,"60760026821 ")
 ;;3755
 ;;21,"60760026828 ")
 ;;3756
 ;;21,"60760026830 ")
 ;;3757
 ;;21,"60760033704 ")
 ;;3758
 ;;21,"60760033708 ")
 ;;3759
 ;;21,"60760033716 ")
 ;;3760
 ;;21,"60760033721 ")
 ;;3761
 ;;21,"60760033728 ")
 ;;3762
 ;;21,"60760033760 ")
 ;;3763
 ;;21,"60760033790 ")
 ;;3764
 ;;21,"60760056214 ")
 ;;3765
 ;;21,"60760056220 ")
 ;;3766
 ;;21,"60760069305 ")
 ;;3767
 ;;21,"60760069315 ")
 ;;3768
 ;;21,"60760069328 ")
 ;;3769
 ;;21,"60760069330 ")
 ;;3770
 ;;21,"60760069340 ")
 ;;3771
 ;;21,"60760071608 ")
 ;;3772
 ;;21,"60760071616 ")
 ;;3773
 ;;21,"60760071618 ")
 ;;3774
 ;;21,"60760071621 ")
 ;;3775
 ;;21,"60760071624 ")
 ;;3776
 ;;21,"60760071628 ")
 ;;3777
 ;;21,"60760071630 ")
 ;;3778
 ;;21,"60760071640 ")
 ;;3779
 ;;21,"60760072421 ")
 ;;3780
 ;;21,"60760072428 ")
 ;;3781
 ;;21,"60760072430 ")
 ;;3782
 ;;21,"60760081510 ")
 ;;3783
 ;;21,"60760081514 ")
 ;;3784
 ;;21,"60760081520 ")
 ;;3785
 ;;21,"60793013010 ")
 ;;3786
 ;;21,"60793013110 ")
 ;;3787
 ;;21,"61073004105 ")
 ;;3788
 ;;21,"61073004205 ")
 ;;3789
 ;;21,"61106473003 ")
 ;;3790
 ;;21,"61106473203 ")
 ;;3791
 ;;21,"61258833801 ")
 ;;3792
 ;;21,"61314062810 ")
 ;;3793
 ;;21,"61392051225 ")
 ;;3794
 ;;21,"61392051230 ")
 ;;3795
 ;;21,"61392051231 ")
 ;;3796
 ;;21,"61392051239 ")
 ;;3797
 ;;21,"61392071432 ")
 ;;3798
 ;;21,"61392071445 ")
 ;;3799
 ;;21,"61392071454 ")
 ;;3800
 ;;21,"61392071491 ")
 ;;3801
 ;;21,"61392073130 ")
 ;;3802
 ;;21,"61392073131 ")
 ;;3803
 ;;21,"61392073132 ")
 ;;3804
 ;;21,"61392073139 ")
 ;;3805
 ;;21,"61392073145 ")
 ;;3806
 ;;21,"61392073151 ")
 ;;3807
 ;;21,"61392073154 ")
 ;;3808
 ;;21,"61392073160 ")
 ;;3809
 ;;21,"61392073190 ")
 ;;3810
 ;;21,"61392073191 ")
 ;;3811
 ;;21,"61392073230 ")
 ;;3812
 ;;21,"61392073231 ")
 ;;3813
 ;;21,"61392073232 ")
 ;;3814
 ;;21,"61392073239 ")
 ;;3815
 ;;21,"61392073245 ")
 ;;3816
 ;;21,"61392073251 ")
 ;;3817
 ;;21,"61392073254 ")
 ;;3818
 ;;21,"61392073260 ")
 ;;3819
 ;;21,"61392073290 ")
 ;;3820
 ;;21,"61392073291 ")
 ;;3821
 ;;21,"61392077425 ")
 ;;3822
 ;;21,"61392077430 ")
 ;;3823
 ;;21,"61392077431 ")
 ;;3824
 ;;21,"61392077439 ")
 ;;3825
 ;;21,"61392078230 ")
 ;;3826
 ;;21,"61392078231 ")
 ;;3827
 ;;21,"61392078232 ")
 ;;3828
 ;;21,"61392078239 ")
 ;;3829
 ;;21,"61392078245 ")
 ;;3830
 ;;21,"61392078251 ")
 ;;3831
 ;;21,"61392078254 ")
 ;;3832
 ;;21,"61392078260 ")
 ;;3833
 ;;21,"61392078290 ")
 ;;3834
 ;;21,"61392078291 ")
 ;;3835
 ;;21,"61392078330 ")
 ;;3836
 ;;21,"61392078331 ")
 ;;3837
 ;;21,"61392078332 ")
 ;;3838
 ;;21,"61392078339 ")
 ;;3839
 ;;21,"61392078345 ")
 ;;3840
 ;;21,"61392078351 ")
 ;;3841
 ;;21,"61392078354 ")
 ;;3842
 ;;21,"61392078360 ")
 ;;3843
 ;;21,"61392078390 ")
 ;;3844
 ;;21,"61392078391 ")
 ;;3845
 ;;21,"61392079325 ")
 ;;3846
 ;;21,"61392079330 ")
 ;;3847
 ;;21,"61392079331 ")
 ;;3848
 ;;21,"61392079339 ")
 ;;3849
 ;;21,"61392094725 ")
 ;;3850
 ;;21,"61392094730 ")
 ;;3851
 ;;21,"61392094731 ")
 ;;3852
 ;;21,"61392094739 ")
 ;;3853
 ;;21,"61392099131 ")
 ;;3854
 ;;21,"61392099139 ")
 ;;3855
 ;;21,"61442016101 ")
 ;;3856
 ;;21,"61442016105 ")
 ;;3857
 ;;21,"61442016201 ")
 ;;3858
 ;;21,"61442016205 ")
 ;;3859
 ;;21,"61442017101 ")
 ;;3860
 ;;21,"61442017105 ")
 ;;3861
 ;;21,"61442017130 ")
 ;;3862
 ;;21,"61442017201 ")
 ;;3863
 ;;21,"61442017205 ")
 ;;3864
 ;;21,"61442017230 ")
 ;;3865
 ;;21,"61442020101 ")
 ;;3866
 ;;21,"61442020102 ")
 ;;3867
 ;;21,"61442020201 ")
 ;;3868
 ;;21,"61442020202 ")
 ;;3869
 ;;21,"61442022201 ")
 ;;3870
 ;;21,"61442022210 ")
 ;;3871
 ;;21,"61442022301 ")
 ;;3872
 ;;21,"61442022305 ")
 ;;3873
 ;;21,"61442022401 ")
 ;;3874
 ;;21,"61442022404 ")
 ;;3875
 ;;21,"61442022450 ")
 ;;3876
 ;;21,"61553001272 ")
 ;;3877
 ;;21,"61553001473 ")
 ;;3878
 ;;21,"61553021148 ")
 ;;3879
 ;;21,"61570008510 ")
 ;;3880
 ;;21,"61570008610 ")
 ;;3881
 ;;21,"61607049401 ")
 ;;3882
 ;;21,"61714021601 ")
 ;;3883
 ;;21,"61714021602 ")
 ;;3884
 ;;21,"61714021603 ")
 ;;3885
 ;;21,"61748011114 ")
 ;;3886
 ;;21,"61748020160 ")
 ;;3887
 ;;21,"61807000228 ")
 ;;3888
 ;;21,"61807000230 ")
 ;;3889
 ;;21,"61807000328 ")
 ;;3890
 ;;21,"61807000428 ")
 ;;3891
 ;;21,"61807000430 ")
 ;;3892
 ;;21,"61807000440 ")
 ;;3893
 ;;21,"61807000520 ")
 ;;3894
 ;;21,"61807000528 ")
 ;;3895
 ;;21,"61807000620 ")
 ;;3896
 ;;21,"61807000621 ")
 ;;3897
 ;;21,"61807000628 ")
 ;;3898
 ;;21,"61807000630 ")
 ;;3899
 ;;21,"61807000640 ")
 ;;3900
 ;;21,"61807001328 ")
 ;;3901
 ;;21,"61807001528 ")
 ;;3902
 ;;21,"61807003828 ")
 ;;3903
 ;;21,"61807004828 ")
 ;;3904
 ;;21,"61808010005 ")
 ;;3905
 ;;21,"61808010050 ")
 ;;3906
 ;;21,"61808015050 ")
 ;;3907
 ;;21,"61808021005 ")
 ;;3908
 ;;21,"61808021050 ")
 ;;3909
 ;;21,"61808320005 ")
 ;;3910
 ;;21,"61947648003 ")
 ;;3911
 ;;21,"61970011500 ")
 ;;3912
 ;;21,"61970011501 ")
 ;;3913
 ;;21,"61970011505 ")
 ;;3914
 ;;21,"61970012000 ")
 ;;3915
 ;;21,"61970012001 ")
 ;;3916
 ;;21,"61970012005 ")
 ;;3917
 ;;21,"61971011501 ")
 ;;3918
 ;;21,"61971011505 ")
 ;;3919
 ;;21,"61971012001 ")
 ;;3920
 ;;21,"61971012005 ")
 ;;3921
 ;;21,"62037077705 ")
 ;;3922
 ;;21,"62037077710 ")
 ;;3923
 ;;21,"62037077714 ")
 ;;3924
 ;;21,"62037077760 ")
 ;;3925
 ;;21,"62125021515 ")
 ;;3926
 ;;21,"62125031709 ")
 ;;3927
 ;;21,"62125031809 ")
 ;;3928
 ;;21,"62125031813 ")
 ;;3929
 ;;21,"62125031909 ")
 ;;3930
 ;;21,"62125032009 ")
 ;;3931
 ;;21,"62125032013 ")
 ;;3932
 ;;21,"62125041515 ")
 ;;3933
 ;;21,"62138008401 ")
 ;;3934
 ;;21,"62138011401 ")
 ;;3935
 ;;21,"62138060101 ")
 ;;3936
 ;;21,"62138103301 ")
 ;;3937
 ;;21,"62138600501 ")
 ;;3938
 ;;21,"62138738301 ")
 ;;3939
 ;;21,"62147500601 ")
 ;;3940
 ;;21,"62147500602 ")
 ;;3941
 ;;21,"62147500701 ")
 ;;3942
 ;;21,"62147500702 ")
 ;;3943
 ;;21,"62147500801 ")
 ;;3944
 ;;21,"62147500802 ")
 ;;3945
 ;;21,"62147500901 ")
 ;;3946
 ;;21,"62147500902 ")
 ;;3947
 ;;21,"62147501001 ")
 ;;3948
 ;;21,"62147501002 ")
 ;;3949
 ;;21,"62147501101 ")
 ;;3950
 ;;21,"62147501102 ")
 ;;3951
 ;;21,"62147501103 ")
 ;;3952
 ;;21,"62250080102 ")
 ;;3953
 ;;21,"62250080108 ")
 ;;3954
 ;;21,"62250080202 ")
 ;;3955
 ;;21,"62250080208 ")
 ;;3956
 ;;21,"62540544500 ")
 ;;3957
 ;;21,"62540544501 ")
 ;;3958
 ;;21,"62540544502 ")
 ;;3959
 ;;21,"62540544503 ")
 ;;3960
 ;;21,"62540544508 ")
 ;;3961
 ;;21,"62540544600 ")
 ;;3962
 ;;21,"62540544601 ")
 ;;3963
 ;;21,"62540544602 ")
 ;;3964
 ;;21,"62540544603 ")
 ;;3965
 ;;21,"62540544608 ")
 ;;3966
 ;;21,"62584023501 ")
 ;;3967
 ;;21,"62584023601 ")
 ;;3968
 ;;21,"62584023701 ")
 ;;3969
 ;;21,"62584023801 ")
 ;;3970
 ;;21,"62584033801 ")
 ;;3971
 ;;21,"62584039950 ")
 ;;3972