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

BGP73F12.m

Go to the documentation of this file.
  1. BGP73F12 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  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,"55045-2610-07 ")
  1. ;;3688
  1. ;;21,"55045-2610-09 ")
  1. ;;3689
  1. ;;21,"55045-2672-01 ")
  1. ;;3690
  1. ;;21,"55045-2672-02 ")
  1. ;;3691
  1. ;;21,"55045-2672-06 ")
  1. ;;3692
  1. ;;21,"55045-2672-08 ")
  1. ;;3693
  1. ;;21,"55045-2672-09 ")
  1. ;;3694
  1. ;;21,"55045-2843-01 ")
  1. ;;3695
  1. ;;21,"55045-2843-05 ")
  1. ;;3696
  1. ;;21,"55045-2843-07 ")
  1. ;;3697
  1. ;;21,"55045-2953-02 ")
  1. ;;3698
  1. ;;21,"55045-2953-04 ")
  1. ;;3699
  1. ;;21,"55045-2953-05 ")
  1. ;;3700
  1. ;;21,"55045-2953-06 ")
  1. ;;3701
  1. ;;21,"55045-2953-07 ")
  1. ;;3702
  1. ;;21,"55045-2953-08 ")
  1. ;;3703
  1. ;;21,"55045-2966-03 ")
  1. ;;3704
  1. ;;21,"55045-2966-07 ")
  1. ;;3705
  1. ;;21,"55045-2966-08 ")
  1. ;;3706
  1. ;;21,"55045-2992-02 ")
  1. ;;3707
  1. ;;21,"55045-3016-07 ")
  1. ;;3708
  1. ;;21,"55045-3080-01 ")
  1. ;;3709
  1. ;;21,"55045-3080-02 ")
  1. ;;3710
  1. ;;21,"55045-3080-03 ")
  1. ;;3711
  1. ;;21,"55045-3080-05 ")
  1. ;;3712
  1. ;;21,"55045-3080-07 ")
  1. ;;3713
  1. ;;21,"55045-3080-08 ")
  1. ;;3714
  1. ;;21,"55045-3081-00 ")
  1. ;;3715
  1. ;;21,"55045-3081-01 ")
  1. ;;3716
  1. ;;21,"55045-3081-02 ")
  1. ;;3717
  1. ;;21,"55045-3081-03 ")
  1. ;;3718
  1. ;;21,"55045-3081-06 ")
  1. ;;3719
  1. ;;21,"55045-3081-07 ")
  1. ;;3720
  1. ;;21,"55045-3081-08 ")
  1. ;;3721
  1. ;;21,"55045-3081-09 ")
  1. ;;3722
  1. ;;21,"55045-3142-01 ")
  1. ;;3723
  1. ;;21,"55045-3142-05 ")
  1. ;;3724
  1. ;;21,"55045-3142-07 ")
  1. ;;3725
  1. ;;21,"55045-3194-01 ")
  1. ;;3726
  1. ;;21,"55045-3194-03 ")
  1. ;;3727
  1. ;;21,"55045-3194-04 ")
  1. ;;3728
  1. ;;21,"55045-3194-06 ")
  1. ;;3729
  1. ;;21,"55045-3194-09 ")
  1. ;;3730
  1. ;;21,"55045-3232-01 ")
  1. ;;3731
  1. ;;21,"55045-3233-08 ")
  1. ;;3732
  1. ;;21,"55045-3260-01 ")
  1. ;;3733
  1. ;;21,"55045-3260-06 ")
  1. ;;3734
  1. ;;21,"55045-3260-09 ")
  1. ;;3735
  1. ;;21,"55045-3268-04 ")
  1. ;;3736
  1. ;;21,"55045-3268-06 ")
  1. ;;3737
  1. ;;21,"55045-3268-08 ")
  1. ;;3738
  1. ;;21,"55045-3288-02 ")
  1. ;;3739
  1. ;;21,"55045-3288-05 ")
  1. ;;3740
  1. ;;21,"55045-3288-08 ")
  1. ;;3741
  1. ;;21,"55045-3306-04 ")
  1. ;;3742
  1. ;;21,"55045-3306-05 ")
  1. ;;3743
  1. ;;21,"55045-3306-06 ")
  1. ;;3744
  1. ;;21,"55045-3306-08 ")
  1. ;;3745
  1. ;;21,"55045-3310-08 ")
  1. ;;3746
  1. ;;21,"55045-3355-00 ")
  1. ;;3747
  1. ;;21,"55045-3355-01 ")
  1. ;;3748
  1. ;;21,"55045-3385-05 ")
  1. ;;3749
  1. ;;21,"55045-3414-05 ")
  1. ;;3750
  1. ;;21,"55045-3442-06 ")
  1. ;;3751
  1. ;;21,"55045-3452-01 ")
  1. ;;3752
  1. ;;21,"55045-3467-01 ")
  1. ;;3753
  1. ;;21,"55045-3479-06 ")
  1. ;;3754
  1. ;;21,"55045-3490-01 ")
  1. ;;3755
  1. ;;21,"55045-3503-01 ")
  1. ;;3756
  1. ;;21,"55045-3511-01 ")
  1. ;;3757
  1. ;;21,"55045-3511-02 ")
  1. ;;3758
  1. ;;21,"55045-3516-01 ")
  1. ;;3759
  1. ;;21,"55045-3519-01 ")
  1. ;;3760
  1. ;;21,"55045-3532-01 ")
  1. ;;3761
  1. ;;21,"55045-3570-01 ")
  1. ;;3762
  1. ;;21,"55045-3693-01 ")
  1. ;;3763
  1. ;;21,"55045-3698-03 ")
  1. ;;3764
  1. ;;21,"55045-3725-01 ")
  1. ;;3765
  1. ;;21,"55045-3726-02 ")
  1. ;;3766
  1. ;;21,"55045-3727-01 ")
  1. ;;3767
  1. ;;21,"55111-0112-30 ")
  1. ;;3768
  1. ;;21,"55111-0125-06 ")
  1. ;;3769
  1. ;;21,"55111-0126-01 ")
  1. ;;3770
  1. ;;21,"55111-0126-05 ")
  1. ;;3771
  1. ;;21,"55111-0127-01 ")
  1. ;;3772
  1. ;;21,"55111-0127-05 ")
  1. ;;3773
  1. ;;21,"55111-0128-50 ")
  1. ;;3774
  1. ;;21,"55111-0160-50 ")
  1. ;;3775
  1. ;;21,"55111-0161-50 ")
  1. ;;3776
  1. ;;21,"55111-0162-01 ")
  1. ;;3777
  1. ;;21,"55111-0279-50 ")
  1. ;;3778
  1. ;;21,"55111-0280-50 ")
  1. ;;3779
  1. ;;21,"55111-0281-30 ")
  1. ;;3780
  1. ;;21,"55111-0422-01 ")
  1. ;;3781
  1. ;;21,"55111-0422-30 ")
  1. ;;3782
  1. ;;21,"55111-0423-30 ")
  1. ;;3783
  1. ;;21,"55111-0637-01 ")
  1. ;;3784
  1. ;;21,"55111-0638-01 ")
  1. ;;3785
  1. ;;21,"55111-0639-60 ")
  1. ;;3786
  1. ;;21,"55150-0111-10 ")
  1. ;;3787
  1. ;;21,"55150-0112-10 ")
  1. ;;3788
  1. ;;21,"55150-0113-10 ")
  1. ;;3789
  1. ;;21,"55150-0114-20 ")
  1. ;;3790
  1. ;;21,"55150-0115-99 ")
  1. ;;3791
  1. ;;21,"55150-0156-20 ")
  1. ;;3792
  1. ;;21,"55150-0157-30 ")
  1. ;;3793
  1. ;;21,"55150-0174-10 ")
  1. ;;3794
  1. ;;21,"55289-0008-10 ")
  1. ;;3795
  1. ;;21,"55289-0008-20 ")
  1. ;;3796
  1. ;;21,"55289-0019-06 ")
  1. ;;3797
  1. ;;21,"55289-0019-15 ")
  1. ;;3798
  1. ;;21,"55289-0019-21 ")
  1. ;;3799
  1. ;;21,"55289-0019-24 ")
  1. ;;3800
  1. ;;21,"55289-0019-30 ")
  1. ;;3801
  1. ;;21,"55289-0019-40 ")
  1. ;;3802
  1. ;;21,"55289-0019-60 ")
  1. ;;3803
  1. ;;21,"55289-0019-97 ")
  1. ;;3804
  1. ;;21,"55289-0020-04 ")
  1. ;;3805
  1. ;;21,"55289-0020-06 ")
  1. ;;3806
  1. ;;21,"55289-0020-09 ")
  1. ;;3807
  1. ;;21,"55289-0020-14 ")
  1. ;;3808
  1. ;;21,"55289-0020-15 ")
  1. ;;3809
  1. ;;21,"55289-0020-21 ")
  1. ;;3810
  1. ;;21,"55289-0020-24 ")
  1. ;;3811
  1. ;;21,"55289-0020-28 ")
  1. ;;3812
  1. ;;21,"55289-0020-30 ")
  1. ;;3813
  1. ;;21,"55289-0020-40 ")
  1. ;;3814
  1. ;;21,"55289-0020-42 ")
  1. ;;3815
  1. ;;21,"55289-0020-50 ")
  1. ;;3816
  1. ;;21,"55289-0020-56 ")
  1. ;;3817
  1. ;;21,"55289-0020-60 ")
  1. ;;3818
  1. ;;21,"55289-0020-63 ")
  1. ;;3819
  1. ;;21,"55289-0021-10 ")
  1. ;;3820
  1. ;;21,"55289-0021-14 ")
  1. ;;3821
  1. ;;21,"55289-0021-20 ")
  1. ;;3822
  1. ;;21,"55289-0021-28 ")
  1. ;;3823
  1. ;;21,"55289-0025-04 ")
  1. ;;3824
  1. ;;21,"55289-0025-20 ")
  1. ;;3825
  1. ;;21,"55289-0025-28 ")
  1. ;;3826
  1. ;;21,"55289-0025-30 ")
  1. ;;3827
  1. ;;21,"55289-0025-40 ")
  1. ;;3828
  1. ;;21,"55289-0027-20 ")
  1. ;;3829
  1. ;;21,"55289-0033-28 ")
  1. ;;3830
  1. ;;21,"55289-0033-40 ")
  1. ;;3831
  1. ;;21,"55289-0043-14 ")
  1. ;;3832
  1. ;;21,"55289-0050-40 ")
  1. ;;3833
  1. ;;21,"55289-0057-06 ")
  1. ;;3834
  1. ;;21,"55289-0057-10 ")
  1. ;;3835
  1. ;;21,"55289-0057-15 ")
  1. ;;3836
  1. ;;21,"55289-0057-20 ")
  1. ;;3837
  1. ;;21,"55289-0057-24 ")
  1. ;;3838
  1. ;;21,"55289-0057-28 ")
  1. ;;3839
  1. ;;21,"55289-0057-30 ")
  1. ;;3840
  1. ;;21,"55289-0057-40 ")
  1. ;;3841
  1. ;;21,"55289-0057-97 ")
  1. ;;3842
  1. ;;21,"55289-0058-01 ")
  1. ;;3843
  1. ;;21,"55289-0058-04 ")
  1. ;;3844
  1. ;;21,"55289-0058-08 ")
  1. ;;3845
  1. ;;21,"55289-0058-10 ")
  1. ;;3846
  1. ;;21,"55289-0058-14 ")
  1. ;;3847
  1. ;;21,"55289-0058-17 ")
  1. ;;3848
  1. ;;21,"55289-0058-20 ")
  1. ;;3849
  1. ;;21,"55289-0058-21 ")
  1. ;;3850
  1. ;;21,"55289-0058-24 ")
  1. ;;3851
  1. ;;21,"55289-0058-28 ")
  1. ;;3852
  1. ;;21,"55289-0058-30 ")
  1. ;;3853
  1. ;;21,"55289-0058-40 ")
  1. ;;3854
  1. ;;21,"55289-0058-56 ")
  1. ;;3855
  1. ;;21,"55289-0072-01 ")
  1. ;;3856
  1. ;;21,"55289-0072-40 ")
  1. ;;3857
  1. ;;21,"55289-0075-03 ")
  1. ;;3858
  1. ;;21,"55289-0075-40 ")
  1. ;;3859
  1. ;;21,"55289-0075-56 ")
  1. ;;3860
  1. ;;21,"55289-0077-10 ")
  1. ;;3861
  1. ;;21,"55289-0081-20 ")
  1. ;;3862
  1. ;;21,"55289-0094-10 ")
  1. ;;3863
  1. ;;21,"55289-0094-20 ")
  1. ;;3864
  1. ;;21,"55289-0094-30 ")
  1. ;;3865
  1. ;;21,"55289-0094-40 ")
  1. ;;3866
  1. ;;21,"55289-0107-02 ")
  1. ;;3867
  1. ;;21,"55289-0107-06 ")
  1. ;;3868
  1. ;;21,"55289-0107-10 ")
  1. ;;3869
  1. ;;21,"55289-0107-12 ")
  1. ;;3870
  1. ;;21,"55289-0107-14 ")
  1. ;;3871
  1. ;;21,"55289-0107-20 ")
  1. ;;3872
  1. ;;21,"55289-0107-28 ")
  1. ;;3873
  1. ;;21,"55289-0107-30 ")
  1. ;;3874
  1. ;;21,"55289-0107-40 ")
  1. ;;3875
  1. ;;21,"55289-0107-50 ")
  1. ;;3876
  1. ;;21,"55289-0107-56 ")
  1. ;;3877
  1. ;;21,"55289-0107-60 ")
  1. ;;3878
  1. ;;21,"55289-0107-79 ")
  1. ;;3879
  1. ;;21,"55289-0107-90 ")
  1. ;;3880
  1. ;;21,"55289-0107-93 ")
  1. ;;3881
  1. ;;21,"55289-0110-03 ")
  1. ;;3882
  1. ;;21,"55289-0110-09 ")
  1. ;;3883
  1. ;;21,"55289-0110-20 ")
  1. ;;3884
  1. ;;21,"55289-0110-28 ")
  1. ;;3885
  1. ;;21,"55289-0110-30 ")
  1. ;;3886
  1. ;;21,"55289-0110-40 ")
  1. ;;3887
  1. ;;21,"55289-0110-56 ")
  1. ;;3888
  1. ;;21,"55289-0112-01 ")
  1. ;;3889
  1. ;;21,"55289-0112-04 ")
  1. ;;3890
  1. ;;21,"55289-0112-10 ")
  1. ;;3891
  1. ;;21,"55289-0112-15 ")
  1. ;;3892
  1. ;;21,"55289-0112-20 ")
  1. ;;3893
  1. ;;21,"55289-0112-28 ")
  1. ;;3894
  1. ;;21,"55289-0112-40 ")
  1. ;;3895
  1. ;;21,"55289-0112-56 ")
  1. ;;3896
  1. ;;21,"55289-0112-98 ")
  1. ;;3897
  1. ;;21,"55289-0182-06 ")
  1. ;;3898
  1. ;;21,"55289-0182-09 ")
  1. ;;3899
  1. ;;21,"55289-0182-14 ")
  1. ;;3900
  1. ;;21,"55289-0182-30 ")
  1. ;;3901
  1. ;;21,"55289-0182-40 ")
  1. ;;3902
  1. ;;21,"55289-0201-14 ")
  1. ;;3903
  1. ;;21,"55289-0201-20 ")
  1. ;;3904
  1. ;;21,"55289-0201-30 ")
  1. ;;3905
  1. ;;21,"55289-0202-30 ")
  1. ;;3906
  1. ;;21,"55289-0206-10 ")
  1. ;;3907
  1. ;;21,"55289-0206-20 ")
  1. ;;3908
  1. ;;21,"55289-0206-28 ")
  1. ;;3909
  1. ;;21,"55289-0206-30 ")
  1. ;;3910
  1. ;;21,"55289-0206-40 ")
  1. ;;3911
  1. ;;21,"55289-0206-56 ")
  1. ;;3912
  1. ;;21,"55289-0206-97 ")
  1. ;;3913
  1. ;;21,"55289-0207-04 ")
  1. ;;3914
  1. ;;21,"55289-0207-15 ")
  1. ;;3915
  1. ;;21,"55289-0207-20 ")
  1. ;;3916
  1. ;;21,"55289-0207-28 ")
  1. ;;3917
  1. ;;21,"55289-0207-30 ")
  1. ;;3918
  1. ;;21,"55289-0207-40 ")
  1. ;;3919
  1. ;;21,"55289-0217-28 ")
  1. ;;3920
  1. ;;21,"55289-0217-40 ")
  1. ;;3921
  1. ;;21,"55289-0235-60 ")
  1. ;;3922
  1. ;;21,"55289-0241-02 ")
  1. ;;3923
  1. ;;21,"55289-0241-04 ")
  1. ;;3924
  1. ;;21,"55289-0241-06 ")
  1. ;;3925
  1. ;;21,"55289-0241-10 ")
  1. ;;3926
  1. ;;21,"55289-0241-14 ")
  1. ;;3927
  1. ;;21,"55289-0241-15 ")
  1. ;;3928
  1. ;;21,"55289-0241-17 ")
  1. ;;3929
  1. ;;21,"55289-0241-20 ")
  1. ;;3930
  1. ;;21,"55289-0241-28 ")
  1. ;;3931
  1. ;;21,"55289-0241-40 ")
  1. ;;3932
  1. ;;21,"55289-0241-60 ")
  1. ;;3933
  1. ;;21,"55289-0241-93 ")
  1. ;;3934
  1. ;;21,"55289-0241-97 ")
  1. ;;3935
  1. ;;21,"55289-0274-02 ")
  1. ;;3936
  1. ;;21,"55289-0274-03 ")
  1. ;;3937
  1. ;;21,"55289-0274-07 ")
  1. ;;3938
  1. ;;21,"55289-0310-04 ")
  1. ;;3939
  1. ;;21,"55289-0310-06 ")
  1. ;;3940
  1. ;;21,"55289-0310-14 ")
  1. ;;3941
  1. ;;21,"55289-0371-03 ")
  1. ;;3942
  1. ;;21,"55289-0371-06 ")
  1. ;;3943
  1. ;;21,"55289-0371-10 ")
  1. ;;3944
  1. ;;21,"55289-0371-14 ")
  1. ;;3945
  1. ;;21,"55289-0371-15 ")
  1. ;;3946
  1. ;;21,"55289-0371-20 ")
  1. ;;3947
  1. ;;21,"55289-0371-30 ")
  1. ;;3948
  1. ;;21,"55289-0371-40 ")
  1. ;;3949
  1. ;;21,"55289-0371-50 ")
  1. ;;3950
  1. ;;21,"55289-0371-79 ")
  1. ;;3951
  1. ;;21,"55289-0371-97 ")
  1. ;;3952
  1. ;;21,"55289-0372-10 ")
  1. ;;3953
  1. ;;21,"55289-0372-14 ")
  1. ;;3954
  1. ;;21,"55289-0393-02 ")
  1. ;;3955
  1. ;;21,"55289-0394-05 ")
  1. ;;3956
  1. ;;21,"55289-0394-07 ")
  1. ;;3957
  1. ;;21,"55289-0405-14 ")
  1. ;;3958
  1. ;;21,"55289-0405-20 ")
  1. ;;3959
  1. ;;21,"55289-0426-21 ")
  1. ;;3960
  1. ;;21,"55289-0441-04 ")
  1. ;;3961
  1. ;;21,"55289-0441-15 ")
  1. ;;3962
  1. ;;21,"55289-0441-17 ")
  1. ;;3963
  1. ;;21,"55289-0441-20 ")
  1. ;;3964
  1. ;;21,"55289-0441-28 ")
  1. ;;3965
  1. ;;21,"55289-0441-30 ")
  1. ;;3966
  1. ;;21,"55289-0441-40 ")
  1. ;;3967
  1. ;;21,"55289-0441-42 ")
  1. ;;3968
  1. ;;21,"55289-0441-56 ")
  1. ;;3969
  1. ;;21,"55289-0441-80 ")
  1. ;;3970
  1. ;;21,"55289-0441-97 ")
  1. ;;3971
  1. ;;21,"55289-0446-01 ")
  1. ;;3972
  1. ;;21,"55289-0446-10 ")
  1. ;;3973
  1. ;;21,"55289-0446-12 ")
  1. ;;3974
  1. ;;21,"55289-0446-14 ")
  1. ;;3975
  1. ;;21,"55289-0446-16 ")
  1. ;;3976
  1. ;;21,"55289-0446-20 ")
  1. ;;3977
  1. ;;21,"55289-0446-28 ")
  1. ;;3978
  1. ;;21,"55289-0446-30 ")
  1. ;;3979
  1. ;;21,"55289-0446-40 ")
  1. ;;3980
  1. ;;21,"55289-0446-56 ")
  1. ;;3981
  1. ;;21,"55289-0446-60 ")
  1. ;;3982
  1. ;;21,"55289-0457-10 ")
  1. ;;3983
  1. ;;21,"55289-0457-20 ")
  1. ;;3984
  1. ;;21,"55289-0459-06 ")
  1. ;;3985
  1. ;;21,"55289-0459-10 ")
  1. ;;3986
  1. ;;21,"55289-0459-12 ")
  1. ;;3987
  1. ;;21,"55289-0459-14 ")
  1. ;;3988
  1. ;;21,"55289-0502-16 ")
  1. ;;3989
  1. ;;21,"55289-0502-30 ")
  1. ;;3990
  1. ;;21,"55289-0502-60 ")
  1. ;;3991
  1. ;;21,"55289-0525-21 ")
  1. ;;3992
  1. ;;21,"55289-0525-30 ")
  1. ;;3993
  1. ;;21,"55289-0525-40 ")
  1. ;;3994
  1. ;;21,"55289-0525-42 ")
  1. ;;3995
  1. ;;21,"55289-0525-63 ")
  1. ;;3996
  1. ;;21,"55289-0589-14 ")
  1. ;;3997
  1. ;;21,"55289-0589-20 ")
  1. ;;3998
  1. ;;21,"55289-0589-28 ")
  1. ;;3999
  1. ;;21,"55289-0592-10 ")
  1. ;;4000
  1. ;;21,"55289-0592-20 ")
  1. ;;4001
  1. ;;21,"55289-0592-28 ")
  1. ;;4002
  1. ;;21,"55289-0592-40 ")
  1. ;;4003
  1. ;;21,"55289-0592-97 ")
  1. ;;4004
  1. ;;21,"55289-0612-28 ")
  1. ;;4005
  1. ;;21,"55289-0612-30 ")
  1. ;;4006
  1. ;;21,"55289-0645-20 ")
  1. ;;4007
  1. ;;21,"55289-0645-28 ")
  1. ;;4008
  1. ;;21,"55289-0645-30 ")
  1. ;;4009
  1. ;;21,"55289-0645-40 ")
  1. ;;4010
  1. ;;21,"55289-0645-56 ")
  1. ;;4011
  1. ;;21,"55289-0645-80 ")
  1. ;;4012
  1. ;;21,"55289-0705-02 ")
  1. ;;4013
  1. ;;21,"55289-0705-06 ")
  1. ;;4014
  1. ;;21,"55289-0705-15 ")
  1. ;;4015
  1. ;;21,"55289-0705-16 ")
  1. ;;4016
  1. ;;21,"55289-0705-20 ")
  1. ;;4017
  1. ;;21,"55289-0705-28 ")
  1. ;;4018
  1. ;;21,"55289-0705-30 ")
  1. ;;4019
  1. ;;21,"55289-0705-40 ")
  1. ;;4020