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

BGP8ZH12.m

Go to the documentation of this file.
BGP8ZH12 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"55289-0107-02 ")
 ;;3688
 ;;21,"55289-0107-06 ")
 ;;3689
 ;;21,"55289-0107-10 ")
 ;;3690
 ;;21,"55289-0107-12 ")
 ;;3691
 ;;21,"55289-0107-14 ")
 ;;3692
 ;;21,"55289-0107-20 ")
 ;;3693
 ;;21,"55289-0107-28 ")
 ;;3694
 ;;21,"55289-0107-30 ")
 ;;3695
 ;;21,"55289-0107-40 ")
 ;;3696
 ;;21,"55289-0107-50 ")
 ;;3697
 ;;21,"55289-0107-56 ")
 ;;3698
 ;;21,"55289-0107-60 ")
 ;;3699
 ;;21,"55289-0107-79 ")
 ;;3700
 ;;21,"55289-0107-90 ")
 ;;3701
 ;;21,"55289-0107-93 ")
 ;;3702
 ;;21,"55289-0110-03 ")
 ;;3703
 ;;21,"55289-0110-09 ")
 ;;3704
 ;;21,"55289-0110-20 ")
 ;;3705
 ;;21,"55289-0110-28 ")
 ;;3706
 ;;21,"55289-0110-30 ")
 ;;3707
 ;;21,"55289-0110-40 ")
 ;;3708
 ;;21,"55289-0110-56 ")
 ;;3709
 ;;21,"55289-0112-01 ")
 ;;3710
 ;;21,"55289-0112-04 ")
 ;;3711
 ;;21,"55289-0112-10 ")
 ;;3712
 ;;21,"55289-0112-15 ")
 ;;3713
 ;;21,"55289-0112-20 ")
 ;;3714
 ;;21,"55289-0112-28 ")
 ;;3715
 ;;21,"55289-0112-40 ")
 ;;3716
 ;;21,"55289-0112-56 ")
 ;;3717
 ;;21,"55289-0112-98 ")
 ;;3718
 ;;21,"55289-0182-06 ")
 ;;3719
 ;;21,"55289-0182-09 ")
 ;;3720
 ;;21,"55289-0182-14 ")
 ;;3721
 ;;21,"55289-0182-30 ")
 ;;3722
 ;;21,"55289-0182-40 ")
 ;;3723
 ;;21,"55289-0182-90 ")
 ;;3724
 ;;21,"55289-0201-14 ")
 ;;3725
 ;;21,"55289-0201-20 ")
 ;;3726
 ;;21,"55289-0201-30 ")
 ;;3727
 ;;21,"55289-0202-30 ")
 ;;3728
 ;;21,"55289-0206-10 ")
 ;;3729
 ;;21,"55289-0206-20 ")
 ;;3730
 ;;21,"55289-0206-28 ")
 ;;3731
 ;;21,"55289-0206-30 ")
 ;;3732
 ;;21,"55289-0206-40 ")
 ;;3733
 ;;21,"55289-0206-56 ")
 ;;3734
 ;;21,"55289-0207-04 ")
 ;;3735
 ;;21,"55289-0207-15 ")
 ;;3736
 ;;21,"55289-0207-20 ")
 ;;3737
 ;;21,"55289-0207-28 ")
 ;;3738
 ;;21,"55289-0207-30 ")
 ;;3739
 ;;21,"55289-0207-40 ")
 ;;3740
 ;;21,"55289-0217-28 ")
 ;;3741
 ;;21,"55289-0217-40 ")
 ;;3742
 ;;21,"55289-0235-60 ")
 ;;3743
 ;;21,"55289-0241-02 ")
 ;;3744
 ;;21,"55289-0241-04 ")
 ;;3745
 ;;21,"55289-0241-06 ")
 ;;3746
 ;;21,"55289-0241-10 ")
 ;;3747
 ;;21,"55289-0241-14 ")
 ;;3748
 ;;21,"55289-0241-15 ")
 ;;3749
 ;;21,"55289-0241-17 ")
 ;;3750
 ;;21,"55289-0241-20 ")
 ;;3751
 ;;21,"55289-0241-28 ")
 ;;3752
 ;;21,"55289-0241-40 ")
 ;;3753
 ;;21,"55289-0241-60 ")
 ;;3754
 ;;21,"55289-0241-93 ")
 ;;3755
 ;;21,"55289-0274-02 ")
 ;;3756
 ;;21,"55289-0274-03 ")
 ;;3757
 ;;21,"55289-0274-07 ")
 ;;3758
 ;;21,"55289-0310-04 ")
 ;;3759
 ;;21,"55289-0310-06 ")
 ;;3760
 ;;21,"55289-0310-14 ")
 ;;3761
 ;;21,"55289-0371-03 ")
 ;;3762
 ;;21,"55289-0371-06 ")
 ;;3763
 ;;21,"55289-0371-10 ")
 ;;3764
 ;;21,"55289-0371-14 ")
 ;;3765
 ;;21,"55289-0371-15 ")
 ;;3766
 ;;21,"55289-0371-20 ")
 ;;3767
 ;;21,"55289-0371-30 ")
 ;;3768
 ;;21,"55289-0371-40 ")
 ;;3769
 ;;21,"55289-0371-50 ")
 ;;3770
 ;;21,"55289-0371-79 ")
 ;;3771
 ;;21,"55289-0372-10 ")
 ;;3772
 ;;21,"55289-0372-14 ")
 ;;3773
 ;;21,"55289-0385-04 ")
 ;;3774
 ;;21,"55289-0385-30 ")
 ;;3775
 ;;21,"55289-0393-02 ")
 ;;3776
 ;;21,"55289-0394-05 ")
 ;;3777
 ;;21,"55289-0394-07 ")
 ;;3778
 ;;21,"55289-0405-14 ")
 ;;3779
 ;;21,"55289-0405-20 ")
 ;;3780
 ;;21,"55289-0426-21 ")
 ;;3781
 ;;21,"55289-0441-04 ")
 ;;3782
 ;;21,"55289-0441-15 ")
 ;;3783
 ;;21,"55289-0441-17 ")
 ;;3784
 ;;21,"55289-0441-20 ")
 ;;3785
 ;;21,"55289-0441-28 ")
 ;;3786
 ;;21,"55289-0441-30 ")
 ;;3787
 ;;21,"55289-0441-40 ")
 ;;3788
 ;;21,"55289-0441-42 ")
 ;;3789
 ;;21,"55289-0441-56 ")
 ;;3790
 ;;21,"55289-0441-80 ")
 ;;3791
 ;;21,"55289-0457-10 ")
 ;;3792
 ;;21,"55289-0457-20 ")
 ;;3793
 ;;21,"55289-0459-06 ")
 ;;3794
 ;;21,"55289-0459-10 ")
 ;;3795
 ;;21,"55289-0459-12 ")
 ;;3796
 ;;21,"55289-0459-14 ")
 ;;3797
 ;;21,"55289-0502-16 ")
 ;;3798
 ;;21,"55289-0502-30 ")
 ;;3799
 ;;21,"55289-0502-60 ")
 ;;3800
 ;;21,"55289-0525-21 ")
 ;;3801
 ;;21,"55289-0525-30 ")
 ;;3802
 ;;21,"55289-0525-40 ")
 ;;3803
 ;;21,"55289-0525-42 ")
 ;;3804
 ;;21,"55289-0525-63 ")
 ;;3805
 ;;21,"55289-0542-10 ")
 ;;3806
 ;;21,"55289-0589-14 ")
 ;;3807
 ;;21,"55289-0589-20 ")
 ;;3808
 ;;21,"55289-0589-28 ")
 ;;3809
 ;;21,"55289-0592-10 ")
 ;;3810
 ;;21,"55289-0592-20 ")
 ;;3811
 ;;21,"55289-0592-28 ")
 ;;3812
 ;;21,"55289-0592-40 ")
 ;;3813
 ;;21,"55289-0612-28 ")
 ;;3814
 ;;21,"55289-0612-30 ")
 ;;3815
 ;;21,"55289-0645-20 ")
 ;;3816
 ;;21,"55289-0645-28 ")
 ;;3817
 ;;21,"55289-0645-30 ")
 ;;3818
 ;;21,"55289-0645-40 ")
 ;;3819
 ;;21,"55289-0645-56 ")
 ;;3820
 ;;21,"55289-0645-80 ")
 ;;3821
 ;;21,"55289-0705-02 ")
 ;;3822
 ;;21,"55289-0705-06 ")
 ;;3823
 ;;21,"55289-0705-15 ")
 ;;3824
 ;;21,"55289-0705-16 ")
 ;;3825
 ;;21,"55289-0705-20 ")
 ;;3826
 ;;21,"55289-0705-28 ")
 ;;3827
 ;;21,"55289-0705-30 ")
 ;;3828
 ;;21,"55289-0705-40 ")
 ;;3829
 ;;21,"55289-0705-56 ")
 ;;3830
 ;;21,"55289-0707-20 ")
 ;;3831
 ;;21,"55289-0707-28 ")
 ;;3832
 ;;21,"55289-0711-07 ")
 ;;3833
 ;;21,"55289-0711-10 ")
 ;;3834
 ;;21,"55289-0711-14 ")
 ;;3835
 ;;21,"55289-0717-10 ")
 ;;3836
 ;;21,"55289-0746-06 ")
 ;;3837
 ;;21,"55289-0746-10 ")
 ;;3838
 ;;21,"55289-0749-30 ")
 ;;3839
 ;;21,"55289-0767-10 ")
 ;;3840
 ;;21,"55289-0767-14 ")
 ;;3841
 ;;21,"55289-0767-20 ")
 ;;3842
 ;;21,"55289-0767-21 ")
 ;;3843
 ;;21,"55289-0767-28 ")
 ;;3844
 ;;21,"55289-0767-30 ")
 ;;3845
 ;;21,"55289-0821-03 ")
 ;;3846
 ;;21,"55289-0821-06 ")
 ;;3847
 ;;21,"55289-0821-10 ")
 ;;3848
 ;;21,"55289-0821-14 ")
 ;;3849
 ;;21,"55289-0821-20 ")
 ;;3850
 ;;21,"55289-0821-30 ")
 ;;3851
 ;;21,"55289-0821-40 ")
 ;;3852
 ;;21,"55289-0821-50 ")
 ;;3853
 ;;21,"55289-0821-79 ")
 ;;3854
 ;;21,"55289-0823-06 ")
 ;;3855
 ;;21,"55289-0823-12 ")
 ;;3856
 ;;21,"55289-0823-14 ")
 ;;3857
 ;;21,"55289-0823-20 ")
 ;;3858
 ;;21,"55289-0826-10 ")
 ;;3859
 ;;21,"55289-0826-20 ")
 ;;3860
 ;;21,"55289-0841-03 ")
 ;;3861
 ;;21,"55289-0841-10 ")
 ;;3862
 ;;21,"55289-0845-06 ")
 ;;3863
 ;;21,"55289-0845-20 ")
 ;;3864
 ;;21,"55289-0845-21 ")
 ;;3865
 ;;21,"55289-0845-28 ")
 ;;3866
 ;;21,"55289-0845-30 ")
 ;;3867
 ;;21,"55289-0866-01 ")
 ;;3868
 ;;21,"55289-0866-02 ")
 ;;3869
 ;;21,"55289-0866-04 ")
 ;;3870
 ;;21,"55289-0866-06 ")
 ;;3871
 ;;21,"55289-0866-07 ")
 ;;3872
 ;;21,"55289-0866-08 ")
 ;;3873
 ;;21,"55289-0866-10 ")
 ;;3874
 ;;21,"55289-0866-14 ")
 ;;3875
 ;;21,"55289-0866-20 ")
 ;;3876
 ;;21,"55289-0866-28 ")
 ;;3877
 ;;21,"55289-0866-30 ")
 ;;3878
 ;;21,"55289-0866-60 ")
 ;;3879
 ;;21,"55289-0866-71 ")
 ;;3880
 ;;21,"55289-0866-74 ")
 ;;3881
 ;;21,"55289-0866-85 ")
 ;;3882
 ;;21,"55289-0866-86 ")
 ;;3883
 ;;21,"55289-0866-87 ")
 ;;3884
 ;;21,"55289-0866-90 ")
 ;;3885
 ;;21,"55289-0866-93 ")
 ;;3886
 ;;21,"55289-0866-98 ")
 ;;3887
 ;;21,"55289-0890-04 ")
 ;;3888
 ;;21,"55289-0890-15 ")
 ;;3889
 ;;21,"55289-0890-20 ")
 ;;3890
 ;;21,"55289-0890-21 ")
 ;;3891
 ;;21,"55289-0890-28 ")
 ;;3892
 ;;21,"55289-0890-30 ")
 ;;3893
 ;;21,"55289-0890-40 ")
 ;;3894
 ;;21,"55289-0890-56 ")
 ;;3895
 ;;21,"55289-0890-90 ")
 ;;3896
 ;;21,"55289-0904-79 ")
 ;;3897
 ;;21,"55289-0909-10 ")
 ;;3898
 ;;21,"55289-0909-14 ")
 ;;3899
 ;;21,"55289-0909-20 ")
 ;;3900
 ;;21,"55289-0909-28 ")
 ;;3901
 ;;21,"55289-0915-30 ")
 ;;3902
 ;;21,"55289-0954-79 ")
 ;;3903
 ;;21,"55289-0964-04 ")
 ;;3904
 ;;21,"55289-0964-14 ")
 ;;3905
 ;;21,"55390-0109-01 ")
 ;;3906
 ;;21,"55390-0310-10 ")
 ;;3907
 ;;21,"55390-0311-10 ")
 ;;3908
 ;;21,"55868-5487-01 ")
 ;;3909
 ;;21,"55887-0071-60 ")
 ;;3910
 ;;21,"55887-0181-15 ")
 ;;3911
 ;;21,"55887-0292-20 ")
 ;;3912
 ;;21,"55887-0306-01 ")
 ;;3913
 ;;21,"55887-0311-15 ")
 ;;3914
 ;;21,"55887-0320-30 ")
 ;;3915
 ;;21,"55887-0320-60 ")
 ;;3916
 ;;21,"55887-0378-06 ")
 ;;3917
 ;;21,"55887-0378-15 ")
 ;;3918
 ;;21,"55887-0378-40 ")
 ;;3919
 ;;21,"55887-0378-42 ")
 ;;3920
 ;;21,"55887-0388-03 ")
 ;;3921
 ;;21,"55887-0419-20 ")
 ;;3922
 ;;21,"55887-0419-30 ")
 ;;3923
 ;;21,"55887-0492-07 ")
 ;;3924
 ;;21,"55887-0584-01 ")
 ;;3925
 ;;21,"55887-0584-15 ")
 ;;3926
 ;;21,"55887-0584-71 ")
 ;;3927
 ;;21,"55887-0586-30 ")
 ;;3928
 ;;21,"55887-0586-60 ")
 ;;3929
 ;;21,"55887-0586-90 ")
 ;;3930
 ;;21,"55887-0611-01 ")
 ;;3931
 ;;21,"55887-0611-16 ")
 ;;3932
 ;;21,"55887-0611-40 ")
 ;;3933
 ;;21,"55887-0611-60 ")
 ;;3934
 ;;21,"55887-0629-14 ")
 ;;3935
 ;;21,"55887-0642-05 ")
 ;;3936
 ;;21,"55887-0652-14 ")
 ;;3937
 ;;21,"55887-0659-30 ")
 ;;3938
 ;;21,"55887-0761-02 ")
 ;;3939
 ;;21,"55887-0785-04 ")
 ;;3940
 ;;21,"55887-0785-30 ")
 ;;3941
 ;;21,"55887-0786-30 ")
 ;;3942
 ;;21,"55887-0810-10 ")
 ;;3943
 ;;21,"55887-0814-01 ")
 ;;3944
 ;;21,"55887-0837-30 ")
 ;;3945
 ;;21,"55887-0849-20 ")
 ;;3946
 ;;21,"55887-0849-21 ")
 ;;3947
 ;;21,"55887-0889-21 ")
 ;;3948
 ;;21,"55887-0904-06 ")
 ;;3949
 ;;21,"55887-0904-10 ")
 ;;3950
 ;;21,"55887-0904-14 ")
 ;;3951
 ;;21,"55887-0958-01 ")
 ;;3952
 ;;21,"55887-0958-60 ")
 ;;3953
 ;;21,"55887-0958-90 ")
 ;;3954
 ;;21,"55887-0980-21 ")
 ;;3955
 ;;21,"55887-0980-28 ")
 ;;3956
 ;;21,"55887-0982-01 ")
 ;;3957
 ;;21,"55887-0982-82 ")
 ;;3958
 ;;21,"55887-0983-01 ")
 ;;3959
 ;;21,"55887-0983-40 ")
 ;;3960
 ;;21,"55887-0983-42 ")
 ;;3961
 ;;21,"55953-0251-80 ")
 ;;3962
 ;;21,"55953-0253-80 ")
 ;;3963
 ;;21,"57237-0028-01 ")
 ;;3964
 ;;21,"57237-0029-01 ")
 ;;3965
 ;;21,"57237-0029-20 ")
 ;;3966
 ;;21,"57237-0030-01 ")
 ;;3967
 ;;21,"57237-0030-05 ")
 ;;3968
 ;;21,"57237-0031-01 ")
 ;;3969
 ;;21,"57237-0031-05 ")
 ;;3970
 ;;21,"57237-0032-01 ")
 ;;3971
 ;;21,"57237-0032-50 ")
 ;;3972
 ;;21,"57237-0032-75 ")
 ;;3973
 ;;21,"57237-0033-01 ")
 ;;3974
 ;;21,"57237-0033-50 ")
 ;;3975
 ;;21,"57237-0033-75 ")
 ;;3976
 ;;21,"57237-0034-01 ")
 ;;3977
 ;;21,"57237-0034-50 ")
 ;;3978
 ;;21,"57237-0034-75 ")
 ;;3979
 ;;21,"57237-0035-01 ")
 ;;3980
 ;;21,"57237-0035-50 ")
 ;;3981
 ;;21,"57237-0035-75 ")
 ;;3982
 ;;21,"57237-0036-01 ")
 ;;3983
 ;;21,"57237-0037-01 ")
 ;;3984
 ;;21,"57237-0037-50 ")
 ;;3985
 ;;21,"57237-0040-01 ")
 ;;3986
 ;;21,"57237-0040-99 ")
 ;;3987
 ;;21,"57237-0041-01 ")
 ;;3988
 ;;21,"57237-0041-05 ")
 ;;3989
 ;;21,"57237-0041-99 ")
 ;;3990
 ;;21,"57237-0044-60 ")
 ;;3991
 ;;21,"57237-0045-60 ")
 ;;3992
 ;;21,"57237-0058-20 ")
 ;;3993
 ;;21,"57237-0058-60 ")
 ;;3994
 ;;21,"57237-0059-20 ")
 ;;3995
 ;;21,"57237-0059-60 ")
 ;;3996
 ;;21,"57237-0096-01 ")
 ;;3997
 ;;21,"57237-0096-50 ")
 ;;3998
 ;;21,"57237-0097-01 ")
 ;;3999
 ;;21,"57237-0098-01 ")
 ;;4000
 ;;21,"57237-0098-75 ")
 ;;4001
 ;;21,"57237-0099-60 ")
 ;;4002
 ;;21,"57237-0103-25 ")
 ;;4003
 ;;21,"57237-0103-60 ")
 ;;4004
 ;;21,"57237-0104-01 ")
 ;;4005
 ;;21,"57237-0104-25 ")
 ;;4006
 ;;21,"57237-0105-01 ")
 ;;4007
 ;;21,"57237-0105-25 ")
 ;;4008
 ;;21,"57237-0156-30 ")
 ;;4009
 ;;21,"57237-0232-01 ")
 ;;4010
 ;;21,"57237-0232-05 ")
 ;;4011
 ;;21,"57237-0233-01 ")
 ;;4012
 ;;21,"57237-0233-05 ")
 ;;4013
 ;;21,"57664-0851-88 ")
 ;;4014
 ;;21,"57664-0852-88 ")
 ;;4015
 ;;21,"57664-0853-85 ")
 ;;4016
 ;;21,"58016-0101-00 ")
 ;;4017
 ;;21,"58016-0101-08 ")
 ;;4018
 ;;21,"58016-0101-10 ")
 ;;4019
 ;;21,"58016-0101-12 ")
 ;;4020