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

BGP71U12.m

Go to the documentation of this file.
  1. BGP71U12 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"65597-0104-10 ")
  1. ;;3688
  1. ;;21,"65597-0104-30 ")
  1. ;;3689
  1. ;;21,"65597-0104-90 ")
  1. ;;3690
  1. ;;21,"65597-0105-30 ")
  1. ;;3691
  1. ;;21,"65597-0105-90 ")
  1. ;;3692
  1. ;;21,"65597-0106-30 ")
  1. ;;3693
  1. ;;21,"65597-0106-90 ")
  1. ;;3694
  1. ;;21,"65597-0107-30 ")
  1. ;;3695
  1. ;;21,"65597-0107-90 ")
  1. ;;3696
  1. ;;21,"65597-0110-30 ")
  1. ;;3697
  1. ;;21,"65597-0110-90 ")
  1. ;;3698
  1. ;;21,"65597-0111-30 ")
  1. ;;3699
  1. ;;21,"65597-0111-90 ")
  1. ;;3700
  1. ;;21,"65597-0112-30 ")
  1. ;;3701
  1. ;;21,"65597-0112-90 ")
  1. ;;3702
  1. ;;21,"65597-0113-30 ")
  1. ;;3703
  1. ;;21,"65597-0113-90 ")
  1. ;;3704
  1. ;;21,"65597-0114-30 ")
  1. ;;3705
  1. ;;21,"65597-0114-90 ")
  1. ;;3706
  1. ;;21,"65597-0115-30 ")
  1. ;;3707
  1. ;;21,"65597-0115-90 ")
  1. ;;3708
  1. ;;21,"65597-0116-30 ")
  1. ;;3709
  1. ;;21,"65597-0116-90 ")
  1. ;;3710
  1. ;;21,"65597-0117-30 ")
  1. ;;3711
  1. ;;21,"65597-0117-90 ")
  1. ;;3712
  1. ;;21,"65597-0118-30 ")
  1. ;;3713
  1. ;;21,"65597-0118-90 ")
  1. ;;3714
  1. ;;21,"65862-0037-01 ")
  1. ;;3715
  1. ;;21,"65862-0037-05 ")
  1. ;;3716
  1. ;;21,"65862-0037-99 ")
  1. ;;3717
  1. ;;21,"65862-0038-01 ")
  1. ;;3718
  1. ;;21,"65862-0038-05 ")
  1. ;;3719
  1. ;;21,"65862-0038-99 ")
  1. ;;3720
  1. ;;21,"65862-0039-01 ")
  1. ;;3721
  1. ;;21,"65862-0039-05 ")
  1. ;;3722
  1. ;;21,"65862-0039-99 ")
  1. ;;3723
  1. ;;21,"65862-0040-01 ")
  1. ;;3724
  1. ;;21,"65862-0040-05 ")
  1. ;;3725
  1. ;;21,"65862-0040-99 ")
  1. ;;3726
  1. ;;21,"65862-0041-01 ")
  1. ;;3727
  1. ;;21,"65862-0041-05 ")
  1. ;;3728
  1. ;;21,"65862-0041-99 ")
  1. ;;3729
  1. ;;21,"65862-0042-01 ")
  1. ;;3730
  1. ;;21,"65862-0042-05 ")
  1. ;;3731
  1. ;;21,"65862-0042-99 ")
  1. ;;3732
  1. ;;21,"65862-0043-01 ")
  1. ;;3733
  1. ;;21,"65862-0043-05 ")
  1. ;;3734
  1. ;;21,"65862-0044-01 ")
  1. ;;3735
  1. ;;21,"65862-0044-05 ")
  1. ;;3736
  1. ;;21,"65862-0045-01 ")
  1. ;;3737
  1. ;;21,"65862-0045-05 ")
  1. ;;3738
  1. ;;21,"65862-0116-01 ")
  1. ;;3739
  1. ;;21,"65862-0117-01 ")
  1. ;;3740
  1. ;;21,"65862-0118-01 ")
  1. ;;3741
  1. ;;21,"65862-0161-90 ")
  1. ;;3742
  1. ;;21,"65862-0162-30 ")
  1. ;;3743
  1. ;;21,"65862-0162-90 ")
  1. ;;3744
  1. ;;21,"65862-0163-90 ")
  1. ;;3745
  1. ;;21,"65862-0164-01 ")
  1. ;;3746
  1. ;;21,"65862-0165-01 ")
  1. ;;3747
  1. ;;21,"65862-0166-01 ")
  1. ;;3748
  1. ;;21,"65862-0201-90 ")
  1. ;;3749
  1. ;;21,"65862-0201-99 ")
  1. ;;3750
  1. ;;21,"65862-0202-30 ")
  1. ;;3751
  1. ;;21,"65862-0202-90 ")
  1. ;;3752
  1. ;;21,"65862-0202-99 ")
  1. ;;3753
  1. ;;21,"65862-0203-30 ")
  1. ;;3754
  1. ;;21,"65862-0203-90 ")
  1. ;;3755
  1. ;;21,"65862-0203-99 ")
  1. ;;3756
  1. ;;21,"65862-0286-01 ")
  1. ;;3757
  1. ;;21,"65862-0287-01 ")
  1. ;;3758
  1. ;;21,"65862-0288-01 ")
  1. ;;3759
  1. ;;21,"65862-0308-01 ")
  1. ;;3760
  1. ;;21,"65862-0309-01 ")
  1. ;;3761
  1. ;;21,"65862-0468-30 ")
  1. ;;3762
  1. ;;21,"65862-0468-90 ")
  1. ;;3763
  1. ;;21,"65862-0468-99 ")
  1. ;;3764
  1. ;;21,"65862-0469-30 ")
  1. ;;3765
  1. ;;21,"65862-0469-90 ")
  1. ;;3766
  1. ;;21,"65862-0469-99 ")
  1. ;;3767
  1. ;;21,"65862-0470-30 ")
  1. ;;3768
  1. ;;21,"65862-0470-90 ")
  1. ;;3769
  1. ;;21,"65862-0470-99 ")
  1. ;;3770
  1. ;;21,"65862-0471-90 ")
  1. ;;3771
  1. ;;21,"65862-0472-90 ")
  1. ;;3772
  1. ;;21,"65862-0473-90 ")
  1. ;;3773
  1. ;;21,"65862-0474-01 ")
  1. ;;3774
  1. ;;21,"65862-0474-30 ")
  1. ;;3775
  1. ;;21,"65862-0475-01 ")
  1. ;;3776
  1. ;;21,"65862-0475-05 ")
  1. ;;3777
  1. ;;21,"65862-0476-01 ")
  1. ;;3778
  1. ;;21,"65862-0476-05 ")
  1. ;;3779
  1. ;;21,"65862-0477-01 ")
  1. ;;3780
  1. ;;21,"65862-0477-05 ")
  1. ;;3781
  1. ;;21,"65862-0547-90 ")
  1. ;;3782
  1. ;;21,"65862-0547-99 ")
  1. ;;3783
  1. ;;21,"65862-0548-90 ")
  1. ;;3784
  1. ;;21,"65862-0548-99 ")
  1. ;;3785
  1. ;;21,"65862-0549-90 ")
  1. ;;3786
  1. ;;21,"65862-0549-99 ")
  1. ;;3787
  1. ;;21,"65862-0550-05 ")
  1. ;;3788
  1. ;;21,"65862-0550-90 ")
  1. ;;3789
  1. ;;21,"65862-0551-05 ")
  1. ;;3790
  1. ;;21,"65862-0551-90 ")
  1. ;;3791
  1. ;;21,"65862-0570-30 ")
  1. ;;3792
  1. ;;21,"65862-0571-90 ")
  1. ;;3793
  1. ;;21,"65862-0572-90 ")
  1. ;;3794
  1. ;;21,"65862-0573-90 ")
  1. ;;3795
  1. ;;21,"65862-0582-01 ")
  1. ;;3796
  1. ;;21,"65862-0582-05 ")
  1. ;;3797
  1. ;;21,"65862-0583-01 ")
  1. ;;3798
  1. ;;21,"65862-0583-05 ")
  1. ;;3799
  1. ;;21,"65862-0584-01 ")
  1. ;;3800
  1. ;;21,"65862-0584-05 ")
  1. ;;3801
  1. ;;21,"65862-0585-01 ")
  1. ;;3802
  1. ;;21,"65862-0585-05 ")
  1. ;;3803
  1. ;;21,"65862-0586-01 ")
  1. ;;3804
  1. ;;21,"65862-0586-05 ")
  1. ;;3805
  1. ;;21,"65862-0587-01 ")
  1. ;;3806
  1. ;;21,"65862-0587-05 ")
  1. ;;3807
  1. ;;21,"65862-0617-90 ")
  1. ;;3808
  1. ;;21,"65862-0618-90 ")
  1. ;;3809
  1. ;;21,"65862-0619-90 ")
  1. ;;3810
  1. ;;21,"65862-0620-90 ")
  1. ;;3811
  1. ;;21,"65862-0637-30 ")
  1. ;;3812
  1. ;;21,"65862-0637-90 ")
  1. ;;3813
  1. ;;21,"65862-0638-05 ")
  1. ;;3814
  1. ;;21,"65862-0638-30 ")
  1. ;;3815
  1. ;;21,"65862-0638-90 ")
  1. ;;3816
  1. ;;21,"65862-0639-05 ")
  1. ;;3817
  1. ;;21,"65862-0639-30 ")
  1. ;;3818
  1. ;;21,"65862-0639-90 ")
  1. ;;3819
  1. ;;21,"65862-0867-03 ")
  1. ;;3820
  1. ;;21,"65862-0867-10 ")
  1. ;;3821
  1. ;;21,"65862-0868-03 ")
  1. ;;3822
  1. ;;21,"65862-0868-10 ")
  1. ;;3823
  1. ;;21,"65862-0869-03 ")
  1. ;;3824
  1. ;;21,"65862-0869-10 ")
  1. ;;3825
  1. ;;21,"66105-0503-01 ")
  1. ;;3826
  1. ;;21,"66105-0503-03 ")
  1. ;;3827
  1. ;;21,"66105-0503-06 ")
  1. ;;3828
  1. ;;21,"66105-0503-09 ")
  1. ;;3829
  1. ;;21,"66105-0503-15 ")
  1. ;;3830
  1. ;;21,"66105-0504-01 ")
  1. ;;3831
  1. ;;21,"66105-0504-03 ")
  1. ;;3832
  1. ;;21,"66105-0504-06 ")
  1. ;;3833
  1. ;;21,"66105-0504-09 ")
  1. ;;3834
  1. ;;21,"66105-0504-15 ")
  1. ;;3835
  1. ;;21,"66105-0545-01 ")
  1. ;;3836
  1. ;;21,"66105-0545-03 ")
  1. ;;3837
  1. ;;21,"66105-0545-06 ")
  1. ;;3838
  1. ;;21,"66105-0545-09 ")
  1. ;;3839
  1. ;;21,"66105-0545-10 ")
  1. ;;3840
  1. ;;21,"66105-0553-03 ")
  1. ;;3841
  1. ;;21,"66105-0663-03 ")
  1. ;;3842
  1. ;;21,"66105-0669-03 ")
  1. ;;3843
  1. ;;21,"66105-0842-03 ")
  1. ;;3844
  1. ;;21,"66105-0842-06 ")
  1. ;;3845
  1. ;;21,"66105-0842-09 ")
  1. ;;3846
  1. ;;21,"66105-0842-10 ")
  1. ;;3847
  1. ;;21,"66105-0842-28 ")
  1. ;;3848
  1. ;;21,"66116-0237-30 ")
  1. ;;3849
  1. ;;21,"66116-0279-30 ")
  1. ;;3850
  1. ;;21,"66116-0435-30 ")
  1. ;;3851
  1. ;;21,"66116-0436-30 ")
  1. ;;3852
  1. ;;21,"66267-0253-30 ")
  1. ;;3853
  1. ;;21,"66267-0323-30 ")
  1. ;;3854
  1. ;;21,"66267-0323-60 ")
  1. ;;3855
  1. ;;21,"66267-0323-90 ")
  1. ;;3856
  1. ;;21,"66267-0323-91 ")
  1. ;;3857
  1. ;;21,"66267-0380-30 ")
  1. ;;3858
  1. ;;21,"66267-0380-60 ")
  1. ;;3859
  1. ;;21,"66267-0380-90 ")
  1. ;;3860
  1. ;;21,"66267-0380-91 ")
  1. ;;3861
  1. ;;21,"66267-0413-30 ")
  1. ;;3862
  1. ;;21,"66267-0413-60 ")
  1. ;;3863
  1. ;;21,"66267-0413-90 ")
  1. ;;3864
  1. ;;21,"66267-0413-92 ")
  1. ;;3865
  1. ;;21,"66267-0523-30 ")
  1. ;;3866
  1. ;;21,"66267-0523-60 ")
  1. ;;3867
  1. ;;21,"66267-0570-30 ")
  1. ;;3868
  1. ;;21,"66267-0577-30 ")
  1. ;;3869
  1. ;;21,"66267-0583-30 ")
  1. ;;3870
  1. ;;21,"66267-0751-30 ")
  1. ;;3871
  1. ;;21,"66267-0751-90 ")
  1. ;;3872
  1. ;;21,"66267-0752-30 ")
  1. ;;3873
  1. ;;21,"66267-0752-90 ")
  1. ;;3874
  1. ;;21,"66267-1009-00 ")
  1. ;;3875
  1. ;;21,"66336-0393-90 ")
  1. ;;3876
  1. ;;21,"66336-0572-90 ")
  1. ;;3877
  1. ;;21,"66336-0665-15 ")
  1. ;;3878
  1. ;;21,"66336-0665-30 ")
  1. ;;3879
  1. ;;21,"66336-0666-30 ")
  1. ;;3880
  1. ;;21,"66685-0302-00 ")
  1. ;;3881
  1. ;;21,"66685-0302-02 ")
  1. ;;3882
  1. ;;21,"66685-0303-00 ")
  1. ;;3883
  1. ;;21,"66685-0304-00 ")
  1. ;;3884
  1. ;;21,"66685-0304-02 ")
  1. ;;3885
  1. ;;21,"66685-0706-04 ")
  1. ;;3886
  1. ;;21,"67544-0062-30 ")
  1. ;;3887
  1. ;;21,"67544-0062-60 ")
  1. ;;3888
  1. ;;21,"67544-0062-82 ")
  1. ;;3889
  1. ;;21,"67544-0128-15 ")
  1. ;;3890
  1. ;;21,"67544-0128-30 ")
  1. ;;3891
  1. ;;21,"67544-0128-45 ")
  1. ;;3892
  1. ;;21,"67544-0128-53 ")
  1. ;;3893
  1. ;;21,"67544-0128-60 ")
  1. ;;3894
  1. ;;21,"67544-0134-15 ")
  1. ;;3895
  1. ;;21,"67544-0134-30 ")
  1. ;;3896
  1. ;;21,"67544-0134-45 ")
  1. ;;3897
  1. ;;21,"67544-0134-60 ")
  1. ;;3898
  1. ;;21,"67544-0134-80 ")
  1. ;;3899
  1. ;;21,"67544-0148-15 ")
  1. ;;3900
  1. ;;21,"67544-0148-30 ")
  1. ;;3901
  1. ;;21,"67544-0148-45 ")
  1. ;;3902
  1. ;;21,"67544-0148-53 ")
  1. ;;3903
  1. ;;21,"67544-0148-60 ")
  1. ;;3904
  1. ;;21,"67544-0148-80 ")
  1. ;;3905
  1. ;;21,"67544-0150-45 ")
  1. ;;3906
  1. ;;21,"67544-0150-60 ")
  1. ;;3907
  1. ;;21,"67544-0150-73 ")
  1. ;;3908
  1. ;;21,"67544-0150-92 ")
  1. ;;3909
  1. ;;21,"67544-0159-15 ")
  1. ;;3910
  1. ;;21,"67544-0159-30 ")
  1. ;;3911
  1. ;;21,"67544-0159-45 ")
  1. ;;3912
  1. ;;21,"67544-0159-58 ")
  1. ;;3913
  1. ;;21,"67544-0159-60 ")
  1. ;;3914
  1. ;;21,"67544-0159-80 ")
  1. ;;3915
  1. ;;21,"67544-0160-60 ")
  1. ;;3916
  1. ;;21,"67544-0160-80 ")
  1. ;;3917
  1. ;;21,"67544-0165-80 ")
  1. ;;3918
  1. ;;21,"67544-0173-30 ")
  1. ;;3919
  1. ;;21,"67544-0173-45 ")
  1. ;;3920
  1. ;;21,"67544-0173-53 ")
  1. ;;3921
  1. ;;21,"67544-0173-60 ")
  1. ;;3922
  1. ;;21,"67544-0174-30 ")
  1. ;;3923
  1. ;;21,"67544-0174-45 ")
  1. ;;3924
  1. ;;21,"67544-0174-60 ")
  1. ;;3925
  1. ;;21,"67544-0174-80 ")
  1. ;;3926
  1. ;;21,"67544-0177-45 ")
  1. ;;3927
  1. ;;21,"67544-0192-30 ")
  1. ;;3928
  1. ;;21,"67544-0192-45 ")
  1. ;;3929
  1. ;;21,"67544-0192-53 ")
  1. ;;3930
  1. ;;21,"67544-0192-60 ")
  1. ;;3931
  1. ;;21,"67544-0212-45 ")
  1. ;;3932
  1. ;;21,"67544-0212-53 ")
  1. ;;3933
  1. ;;21,"67544-0218-60 ")
  1. ;;3934
  1. ;;21,"67544-0218-82 ")
  1. ;;3935
  1. ;;21,"67544-0219-15 ")
  1. ;;3936
  1. ;;21,"67544-0219-30 ")
  1. ;;3937
  1. ;;21,"67544-0219-45 ")
  1. ;;3938
  1. ;;21,"67544-0219-60 ")
  1. ;;3939
  1. ;;21,"67544-0234-32 ")
  1. ;;3940
  1. ;;21,"67544-0234-45 ")
  1. ;;3941
  1. ;;21,"67544-0234-53 ")
  1. ;;3942
  1. ;;21,"67544-0250-60 ")
  1. ;;3943
  1. ;;21,"67544-0250-80 ")
  1. ;;3944
  1. ;;21,"67544-0276-60 ")
  1. ;;3945
  1. ;;21,"67544-0276-80 ")
  1. ;;3946
  1. ;;21,"67544-0306-30 ")
  1. ;;3947
  1. ;;21,"67544-0306-45 ")
  1. ;;3948
  1. ;;21,"67544-0306-60 ")
  1. ;;3949
  1. ;;21,"67544-0311-30 ")
  1. ;;3950
  1. ;;21,"67544-0311-45 ")
  1. ;;3951
  1. ;;21,"67544-0321-15 ")
  1. ;;3952
  1. ;;21,"67544-0321-30 ")
  1. ;;3953
  1. ;;21,"67544-0321-60 ")
  1. ;;3954
  1. ;;21,"67544-0322-30 ")
  1. ;;3955
  1. ;;21,"67544-0322-45 ")
  1. ;;3956
  1. ;;21,"67544-0322-53 ")
  1. ;;3957
  1. ;;21,"67544-0322-60 ")
  1. ;;3958
  1. ;;21,"67544-0322-73 ")
  1. ;;3959
  1. ;;21,"67544-0322-80 ")
  1. ;;3960
  1. ;;21,"67544-0322-92 ")
  1. ;;3961
  1. ;;21,"67544-0322-94 ")
  1. ;;3962
  1. ;;21,"67544-0382-30 ")
  1. ;;3963
  1. ;;21,"67544-0382-60 ")
  1. ;;3964
  1. ;;21,"67544-0400-45 ")
  1. ;;3965
  1. ;;21,"67544-0403-30 ")
  1. ;;3966
  1. ;;21,"67544-0403-79 ")
  1. ;;3967
  1. ;;21,"67544-0404-30 ")
  1. ;;3968
  1. ;;21,"67544-0404-79 ")
  1. ;;3969
  1. ;;21,"67544-0418-60 ")
  1. ;;3970
  1. ;;21,"67544-0418-80 ")
  1. ;;3971
  1. ;;21,"67544-0431-15 ")
  1. ;;3972
  1. ;;21,"67544-0431-30 ")
  1. ;;3973
  1. ;;21,"67544-0431-45 ")
  1. ;;3974
  1. ;;21,"67544-0431-53 ")
  1. ;;3975
  1. ;;21,"67544-0431-60 ")
  1. ;;3976
  1. ;;21,"67544-0431-70 ")
  1. ;;3977
  1. ;;21,"67544-0431-73 ")
  1. ;;3978
  1. ;;21,"67544-0431-80 ")
  1. ;;3979
  1. ;;21,"67544-0431-92 ")
  1. ;;3980
  1. ;;21,"67544-0431-94 ")
  1. ;;3981
  1. ;;21,"67544-0997-30 ")
  1. ;;3982
  1. ;;21,"68001-0130-00 ")
  1. ;;3983
  1. ;;21,"68001-0131-00 ")
  1. ;;3984
  1. ;;21,"68001-0132-00 ")
  1. ;;3985
  1. ;;21,"68001-0133-00 ")
  1. ;;3986
  1. ;;21,"68001-0134-00 ")
  1. ;;3987
  1. ;;21,"68001-0135-00 ")
  1. ;;3988
  1. ;;21,"68001-0140-04 ")
  1. ;;3989
  1. ;;21,"68001-0141-00 ")
  1. ;;3990
  1. ;;21,"68001-0141-03 ")
  1. ;;3991
  1. ;;21,"68001-0142-00 ")
  1. ;;3992
  1. ;;21,"68001-0142-03 ")
  1. ;;3993
  1. ;;21,"68001-0143-00 ")
  1. ;;3994
  1. ;;21,"68001-0143-03 ")
  1. ;;3995
  1. ;;21,"68001-0186-05 ")
  1. ;;3996
  1. ;;21,"68001-0187-05 ")
  1. ;;3997
  1. ;;21,"68001-0188-05 ")
  1. ;;3998
  1. ;;21,"68001-0189-05 ")
  1. ;;3999
  1. ;;21,"68001-0207-00 ")
  1. ;;4000
  1. ;;21,"68001-0207-08 ")
  1. ;;4001
  1. ;;21,"68001-0208-00 ")
  1. ;;4002
  1. ;;21,"68001-0208-08 ")
  1. ;;4003
  1. ;;21,"68001-0209-00 ")
  1. ;;4004
  1. ;;21,"68001-0209-08 ")
  1. ;;4005
  1. ;;21,"68001-0210-00 ")
  1. ;;4006
  1. ;;21,"68001-0210-08 ")
  1. ;;4007
  1. ;;21,"68001-0211-00 ")
  1. ;;4008
  1. ;;21,"68001-0211-08 ")
  1. ;;4009
  1. ;;21,"68001-0212-00 ")
  1. ;;4010
  1. ;;21,"68001-0260-05 ")
  1. ;;4011
  1. ;;21,"68001-0268-00 ")
  1. ;;4012
  1. ;;21,"68001-0268-08 ")
  1. ;;4013
  1. ;;21,"68001-0269-00 ")
  1. ;;4014
  1. ;;21,"68001-0269-08 ")
  1. ;;4015
  1. ;;21,"68001-0270-00 ")
  1. ;;4016
  1. ;;21,"68001-0271-00 ")
  1. ;;4017
  1. ;;21,"68001-0271-08 ")
  1. ;;4018
  1. ;;21,"68071-0026-30 ")
  1. ;;4019
  1. ;;21,"68071-0026-60 ")
  1. ;;4020