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