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

BGP73F18.m

Go to the documentation of this file.
  1. BGP73F18 ;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,"64679-0954-01 ")
  1. ;;5686
  1. ;;21,"64679-0961-01 ")
  1. ;;5687
  1. ;;21,"64679-0961-04 ")
  1. ;;5688
  1. ;;21,"64679-0961-05 ")
  1. ;;5689
  1. ;;21,"64679-0962-01 ")
  1. ;;5690
  1. ;;21,"64679-0964-01 ")
  1. ;;5691
  1. ;;21,"64679-0964-03 ")
  1. ;;5692
  1. ;;21,"64679-0964-05 ")
  1. ;;5693
  1. ;;21,"64679-0983-01 ")
  1. ;;5694
  1. ;;21,"64679-0983-02 ")
  1. ;;5695
  1. ;;21,"64720-0152-10 ")
  1. ;;5696
  1. ;;21,"64860-0306-13 ")
  1. ;;5697
  1. ;;21,"64860-0306-40 ")
  1. ;;5698
  1. ;;21,"64860-0307-13 ")
  1. ;;5699
  1. ;;21,"64860-0307-40 ")
  1. ;;5700
  1. ;;21,"64980-0511-10 ")
  1. ;;5701
  1. ;;21,"65162-0202-01 ")
  1. ;;5702
  1. ;;21,"65162-0202-02 ")
  1. ;;5703
  1. ;;21,"65162-0202-08 ")
  1. ;;5704
  1. ;;21,"65162-0202-14 ")
  1. ;;5705
  1. ;;21,"65162-0313-01 ")
  1. ;;5706
  1. ;;21,"65162-0313-02 ")
  1. ;;5707
  1. ;;21,"65162-0313-08 ")
  1. ;;5708
  1. ;;21,"65162-0313-14 ")
  1. ;;5709
  1. ;;21,"65162-0468-19 ")
  1. ;;5710
  1. ;;21,"65224-0800-22 ")
  1. ;;5711
  1. ;;21,"65224-0802-02 ")
  1. ;;5712
  1. ;;21,"65224-0802-03 ")
  1. ;;5713
  1. ;;21,"65224-0802-04 ")
  1. ;;5714
  1. ;;21,"65224-0804-02 ")
  1. ;;5715
  1. ;;21,"65293-0014-01 ")
  1. ;;5716
  1. ;;21,"65293-0014-10 ")
  1. ;;5717
  1. ;;21,"65862-0014-01 ")
  1. ;;5718
  1. ;;21,"65862-0014-05 ")
  1. ;;5719
  1. ;;21,"65862-0015-01 ")
  1. ;;5720
  1. ;;21,"65862-0015-05 ")
  1. ;;5721
  1. ;;21,"65862-0016-01 ")
  1. ;;5722
  1. ;;21,"65862-0016-05 ")
  1. ;;5723
  1. ;;21,"65862-0017-01 ")
  1. ;;5724
  1. ;;21,"65862-0017-05 ")
  1. ;;5725
  1. ;;21,"65862-0018-01 ")
  1. ;;5726
  1. ;;21,"65862-0018-05 ")
  1. ;;5727
  1. ;;21,"65862-0018-40 ")
  1. ;;5728
  1. ;;21,"65862-0019-01 ")
  1. ;;5729
  1. ;;21,"65862-0019-05 ")
  1. ;;5730
  1. ;;21,"65862-0019-40 ")
  1. ;;5731
  1. ;;21,"65862-0070-01 ")
  1. ;;5732
  1. ;;21,"65862-0070-50 ")
  1. ;;5733
  1. ;;21,"65862-0070-75 ")
  1. ;;5734
  1. ;;21,"65862-0071-01 ")
  1. ;;5735
  1. ;;21,"65862-0071-50 ")
  1. ;;5736
  1. ;;21,"65862-0071-75 ")
  1. ;;5737
  1. ;;21,"65862-0076-01 ")
  1. ;;5738
  1. ;;21,"65862-0077-01 ")
  1. ;;5739
  1. ;;21,"65862-0078-50 ")
  1. ;;5740
  1. ;;21,"65862-0083-01 ")
  1. ;;5741
  1. ;;21,"65862-0084-01 ")
  1. ;;5742
  1. ;;21,"65862-0084-75 ")
  1. ;;5743
  1. ;;21,"65862-0085-01 ")
  1. ;;5744
  1. ;;21,"65862-0085-50 ")
  1. ;;5745
  1. ;;21,"65862-0095-01 ")
  1. ;;5746
  1. ;;21,"65862-0095-20 ")
  1. ;;5747
  1. ;;21,"65862-0096-01 ")
  1. ;;5748
  1. ;;21,"65862-0096-20 ")
  1. ;;5749
  1. ;;21,"65862-0140-01 ")
  1. ;;5750
  1. ;;21,"65862-0140-50 ")
  1. ;;5751
  1. ;;21,"65862-0141-01 ")
  1. ;;5752
  1. ;;21,"65862-0141-50 ")
  1. ;;5753
  1. ;;21,"65862-0175-01 ")
  1. ;;5754
  1. ;;21,"65862-0175-99 ")
  1. ;;5755
  1. ;;21,"65862-0176-01 ")
  1. ;;5756
  1. ;;21,"65862-0176-05 ")
  1. ;;5757
  1. ;;21,"65862-0176-99 ")
  1. ;;5758
  1. ;;21,"65862-0177-60 ")
  1. ;;5759
  1. ;;21,"65862-0185-01 ")
  1. ;;5760
  1. ;;21,"65862-0185-05 ")
  1. ;;5761
  1. ;;21,"65862-0186-01 ")
  1. ;;5762
  1. ;;21,"65862-0209-01 ")
  1. ;;5763
  1. ;;21,"65862-0210-01 ")
  1. ;;5764
  1. ;;21,"65862-0211-05 ")
  1. ;;5765
  1. ;;21,"65862-0211-50 ")
  1. ;;5766
  1. ;;21,"65862-0218-01 ")
  1. ;;5767
  1. ;;21,"65862-0218-60 ")
  1. ;;5768
  1. ;;21,"65862-0219-01 ")
  1. ;;5769
  1. ;;21,"65862-0219-60 ")
  1. ;;5770
  1. ;;21,"65862-0225-60 ")
  1. ;;5771
  1. ;;21,"65862-0226-60 ")
  1. ;;5772
  1. ;;21,"65862-0419-01 ")
  1. ;;5773
  1. ;;21,"65862-0419-05 ")
  1. ;;5774
  1. ;;21,"65862-0420-01 ")
  1. ;;5775
  1. ;;21,"65862-0420-05 ")
  1. ;;5776
  1. ;;21,"65862-0496-47 ")
  1. ;;5777
  1. ;;21,"65862-0501-30 ")
  1. ;;5778
  1. ;;21,"65862-0502-20 ")
  1. ;;5779
  1. ;;21,"65862-0503-01 ")
  1. ;;5780
  1. ;;21,"65862-0503-20 ")
  1. ;;5781
  1. ;;21,"65862-0533-01 ")
  1. ;;5782
  1. ;;21,"65862-0533-50 ")
  1. ;;5783
  1. ;;21,"65862-0533-75 ")
  1. ;;5784
  1. ;;21,"65862-0534-01 ")
  1. ;;5785
  1. ;;21,"65862-0534-50 ")
  1. ;;5786
  1. ;;21,"65862-0534-75 ")
  1. ;;5787
  1. ;;21,"65862-0535-02 ")
  1. ;;5788
  1. ;;21,"65862-0535-13 ")
  1. ;;5789
  1. ;;21,"65862-0535-75 ")
  1. ;;5790
  1. ;;21,"65862-0536-50 ")
  1. ;;5791
  1. ;;21,"65862-0537-50 ")
  1. ;;5792
  1. ;;21,"65862-0538-20 ")
  1. ;;5793
  1. ;;21,"65862-0596-01 ")
  1. ;;5794
  1. ;;21,"65862-0603-30 ")
  1. ;;5795
  1. ;;21,"65862-0706-01 ")
  1. ;;5796
  1. ;;21,"65862-0706-55 ")
  1. ;;5797
  1. ;;21,"65862-0706-80 ")
  1. ;;5798
  1. ;;21,"65862-0707-01 ")
  1. ;;5799
  1. ;;21,"65862-0707-55 ")
  1. ;;5800
  1. ;;21,"65862-0707-80 ")
  1. ;;5801
  1. ;;21,"65862-0751-50 ")
  1. ;;5802
  1. ;;21,"65862-0752-50 ")
  1. ;;5803
  1. ;;21,"65862-0752-75 ")
  1. ;;5804
  1. ;;21,"66105-0108-10 ")
  1. ;;5805
  1. ;;21,"66105-0109-01 ")
  1. ;;5806
  1. ;;21,"66105-0109-02 ")
  1. ;;5807
  1. ;;21,"66105-0109-03 ")
  1. ;;5808
  1. ;;21,"66105-0109-06 ")
  1. ;;5809
  1. ;;21,"66105-0109-10 ")
  1. ;;5810
  1. ;;21,"66105-0477-05 ")
  1. ;;5811
  1. ;;21,"66105-0478-05 ")
  1. ;;5812
  1. ;;21,"66105-0507-01 ")
  1. ;;5813
  1. ;;21,"66105-0507-03 ")
  1. ;;5814
  1. ;;21,"66105-0507-06 ")
  1. ;;5815
  1. ;;21,"66105-0507-09 ")
  1. ;;5816
  1. ;;21,"66105-0507-10 ")
  1. ;;5817
  1. ;;21,"66105-0537-01 ")
  1. ;;5818
  1. ;;21,"66105-0537-03 ")
  1. ;;5819
  1. ;;21,"66105-0537-06 ")
  1. ;;5820
  1. ;;21,"66105-0537-09 ")
  1. ;;5821
  1. ;;21,"66105-0537-15 ")
  1. ;;5822
  1. ;;21,"66105-0653-01 ")
  1. ;;5823
  1. ;;21,"66105-0653-03 ")
  1. ;;5824
  1. ;;21,"66105-0653-05 ")
  1. ;;5825
  1. ;;21,"66105-0653-06 ")
  1. ;;5826
  1. ;;21,"66105-0653-19 ")
  1. ;;5827
  1. ;;21,"66105-0670-01 ")
  1. ;;5828
  1. ;;21,"66105-0670-03 ")
  1. ;;5829
  1. ;;21,"66105-0670-05 ")
  1. ;;5830
  1. ;;21,"66105-0670-06 ")
  1. ;;5831
  1. ;;21,"66105-0670-18 ")
  1. ;;5832
  1. ;;21,"66105-0743-01 ")
  1. ;;5833
  1. ;;21,"66105-0743-03 ")
  1. ;;5834
  1. ;;21,"66105-0743-06 ")
  1. ;;5835
  1. ;;21,"66105-0743-09 ")
  1. ;;5836
  1. ;;21,"66105-0743-15 ")
  1. ;;5837
  1. ;;21,"66105-0744-01 ")
  1. ;;5838
  1. ;;21,"66105-0744-03 ")
  1. ;;5839
  1. ;;21,"66105-0744-06 ")
  1. ;;5840
  1. ;;21,"66105-0744-09 ")
  1. ;;5841
  1. ;;21,"66105-0744-15 ")
  1. ;;5842
  1. ;;21,"66105-0745-01 ")
  1. ;;5843
  1. ;;21,"66105-0745-03 ")
  1. ;;5844
  1. ;;21,"66105-0745-06 ")
  1. ;;5845
  1. ;;21,"66105-0745-09 ")
  1. ;;5846
  1. ;;21,"66105-0745-15 ")
  1. ;;5847
  1. ;;21,"66267-0021-15 ")
  1. ;;5848
  1. ;;21,"66267-0023-08 ")
  1. ;;5849
  1. ;;21,"66267-0023-09 ")
  1. ;;5850
  1. ;;21,"66267-0023-15 ")
  1. ;;5851
  1. ;;21,"66267-0023-20 ")
  1. ;;5852
  1. ;;21,"66267-0023-60 ")
  1. ;;5853
  1. ;;21,"66267-0024-30 ")
  1. ;;5854
  1. ;;21,"66267-0025-30 ")
  1. ;;5855
  1. ;;21,"66267-0034-14 ")
  1. ;;5856
  1. ;;21,"66267-0034-20 ")
  1. ;;5857
  1. ;;21,"66267-0045-30 ")
  1. ;;5858
  1. ;;21,"66267-0050-05 ")
  1. ;;5859
  1. ;;21,"66267-0050-06 ")
  1. ;;5860
  1. ;;21,"66267-0050-10 ")
  1. ;;5861
  1. ;;21,"66267-0060-04 ")
  1. ;;5862
  1. ;;21,"66267-0060-06 ")
  1. ;;5863
  1. ;;21,"66267-0060-08 ")
  1. ;;5864
  1. ;;21,"66267-0060-10 ")
  1. ;;5865
  1. ;;21,"66267-0060-14 ")
  1. ;;5866
  1. ;;21,"66267-0060-21 ")
  1. ;;5867
  1. ;;21,"66267-0060-30 ")
  1. ;;5868
  1. ;;21,"66267-0060-40 ")
  1. ;;5869
  1. ;;21,"66267-0060-60 ")
  1. ;;5870
  1. ;;21,"66267-0196-30 ")
  1. ;;5871
  1. ;;21,"66267-0919-06 ")
  1. ;;5872
  1. ;;21,"66267-0919-10 ")
  1. ;;5873
  1. ;;21,"66267-0919-15 ")
  1. ;;5874
  1. ;;21,"66267-0919-28 ")
  1. ;;5875
  1. ;;21,"66267-0919-30 ")
  1. ;;5876
  1. ;;21,"66267-0919-60 ")
  1. ;;5877
  1. ;;21,"66336-0018-08 ")
  1. ;;5878
  1. ;;21,"66336-0018-14 ")
  1. ;;5879
  1. ;;21,"66336-0018-20 ")
  1. ;;5880
  1. ;;21,"66336-0018-28 ")
  1. ;;5881
  1. ;;21,"66336-0018-42 ")
  1. ;;5882
  1. ;;21,"66336-0037-03 ")
  1. ;;5883
  1. ;;21,"66336-0037-20 ")
  1. ;;5884
  1. ;;21,"66336-0037-28 ")
  1. ;;5885
  1. ;;21,"66336-0037-40 ")
  1. ;;5886
  1. ;;21,"66336-0055-06 ")
  1. ;;5887
  1. ;;21,"66336-0055-08 ")
  1. ;;5888
  1. ;;21,"66336-0055-10 ")
  1. ;;5889
  1. ;;21,"66336-0055-14 ")
  1. ;;5890
  1. ;;21,"66336-0055-20 ")
  1. ;;5891
  1. ;;21,"66336-0055-28 ")
  1. ;;5892
  1. ;;21,"66336-0055-30 ")
  1. ;;5893
  1. ;;21,"66336-0055-40 ")
  1. ;;5894
  1. ;;21,"66336-0074-20 ")
  1. ;;5895
  1. ;;21,"66336-0077-20 ")
  1. ;;5896
  1. ;;21,"66336-0077-28 ")
  1. ;;5897
  1. ;;21,"66336-0077-40 ")
  1. ;;5898
  1. ;;21,"66336-0087-06 ")
  1. ;;5899
  1. ;;21,"66336-0087-10 ")
  1. ;;5900
  1. ;;21,"66336-0087-14 ")
  1. ;;5901
  1. ;;21,"66336-0087-20 ")
  1. ;;5902
  1. ;;21,"66336-0087-40 ")
  1. ;;5903
  1. ;;21,"66336-0095-06 ")
  1. ;;5904
  1. ;;21,"66336-0095-20 ")
  1. ;;5905
  1. ;;21,"66336-0095-28 ")
  1. ;;5906
  1. ;;21,"66336-0095-30 ")
  1. ;;5907
  1. ;;21,"66336-0095-40 ")
  1. ;;5908
  1. ;;21,"66336-0098-21 ")
  1. ;;5909
  1. ;;21,"66336-0098-30 ")
  1. ;;5910
  1. ;;21,"66336-0104-20 ")
  1. ;;5911
  1. ;;21,"66336-0109-14 ")
  1. ;;5912
  1. ;;21,"66336-0109-28 ")
  1. ;;5913
  1. ;;21,"66336-0109-30 ")
  1. ;;5914
  1. ;;21,"66336-0109-50 ")
  1. ;;5915
  1. ;;21,"66336-0113-30 ")
  1. ;;5916
  1. ;;21,"66336-0229-20 ")
  1. ;;5917
  1. ;;21,"66336-0229-56 ")
  1. ;;5918
  1. ;;21,"66336-0229-84 ")
  1. ;;5919
  1. ;;21,"66336-0293-30 ")
  1. ;;5920
  1. ;;21,"66336-0347-20 ")
  1. ;;5921
  1. ;;21,"66336-0400-05 ")
  1. ;;5922
  1. ;;21,"66336-0414-20 ")
  1. ;;5923
  1. ;;21,"66336-0414-28 ")
  1. ;;5924
  1. ;;21,"66336-0414-40 ")
  1. ;;5925
  1. ;;21,"66336-0433-14 ")
  1. ;;5926
  1. ;;21,"66336-0435-20 ")
  1. ;;5927
  1. ;;21,"66336-0435-28 ")
  1. ;;5928
  1. ;;21,"66336-0435-30 ")
  1. ;;5929
  1. ;;21,"66336-0435-40 ")
  1. ;;5930
  1. ;;21,"66336-0435-60 ")
  1. ;;5931
  1. ;;21,"66336-0441-03 ")
  1. ;;5932
  1. ;;21,"66336-0441-06 ")
  1. ;;5933
  1. ;;21,"66336-0441-08 ")
  1. ;;5934
  1. ;;21,"66336-0441-20 ")
  1. ;;5935
  1. ;;21,"66336-0441-28 ")
  1. ;;5936
  1. ;;21,"66336-0441-40 ")
  1. ;;5937
  1. ;;21,"66336-0449-14 ")
  1. ;;5938
  1. ;;21,"66336-0480-20 ")
  1. ;;5939
  1. ;;21,"66336-0480-40 ")
  1. ;;5940
  1. ;;21,"66336-0580-28 ")
  1. ;;5941
  1. ;;21,"66336-0580-30 ")
  1. ;;5942
  1. ;;21,"66336-0593-40 ")
  1. ;;5943
  1. ;;21,"66336-0609-06 ")
  1. ;;5944
  1. ;;21,"66336-0609-12 ")
  1. ;;5945
  1. ;;21,"66336-0609-20 ")
  1. ;;5946
  1. ;;21,"66336-0609-28 ")
  1. ;;5947
  1. ;;21,"66336-0609-40 ")
  1. ;;5948
  1. ;;21,"66336-0617-30 ")
  1. ;;5949
  1. ;;21,"66336-0617-40 ")
  1. ;;5950
  1. ;;21,"66336-0634-08 ")
  1. ;;5951
  1. ;;21,"66336-0634-15 ")
  1. ;;5952
  1. ;;21,"66336-0634-21 ")
  1. ;;5953
  1. ;;21,"66336-0634-30 ")
  1. ;;5954
  1. ;;21,"66336-0634-40 ")
  1. ;;5955
  1. ;;21,"66336-0634-42 ")
  1. ;;5956
  1. ;;21,"66336-0644-40 ")
  1. ;;5957
  1. ;;21,"66336-0655-21 ")
  1. ;;5958
  1. ;;21,"66336-0655-30 ")
  1. ;;5959
  1. ;;21,"66336-0830-05 ")
  1. ;;5960
  1. ;;21,"66336-0903-10 ")
  1. ;;5961
  1. ;;21,"66336-0903-14 ")
  1. ;;5962
  1. ;;21,"66336-0903-20 ")
  1. ;;5963
  1. ;;21,"66336-0903-28 ")
  1. ;;5964
  1. ;;21,"66336-0903-99 ")
  1. ;;5965
  1. ;;21,"66336-0906-28 ")
  1. ;;5966
  1. ;;21,"66647-6152-11 ")
  1. ;;5967
  1. ;;21,"66647-6153-11 ")
  1. ;;5968
  1. ;;21,"66647-8025-42 ")
  1. ;;5969
  1. ;;21,"66647-8526-65 ")
  1. ;;5970
  1. ;;21,"66685-1001-00 ")
  1. ;;5971
  1. ;;21,"66685-1001-01 ")
  1. ;;5972
  1. ;;21,"66685-1002-00 ")
  1. ;;5973
  1. ;;21,"66685-1002-02 ")
  1. ;;5974
  1. ;;21,"66685-1011-00 ")
  1. ;;5975
  1. ;;21,"66685-1011-01 ")
  1. ;;5976
  1. ;;21,"66685-1011-02 ")
  1. ;;5977
  1. ;;21,"66685-1012-00 ")
  1. ;;5978
  1. ;;21,"66685-1012-01 ")
  1. ;;5979
  1. ;;21,"66685-1012-02 ")
  1. ;;5980
  1. ;;21,"66860-0001-03 ")
  1. ;;5981
  1. ;;21,"66860-0002-03 ")
  1. ;;5982
  1. ;;21,"66860-0003-02 ")
  1. ;;5983
  1. ;;21,"66860-0011-02 ")
  1. ;;5984
  1. ;;21,"66860-0071-02 ")
  1. ;;5985
  1. ;;21,"66860-0072-02 ")
  1. ;;5986
  1. ;;21,"66860-0073-02 ")
  1. ;;5987
  1. ;;21,"66860-0074-02 ")
  1. ;;5988
  1. ;;21,"66860-0902-03 ")
  1. ;;5989
  1. ;;21,"66993-0815-30 ")
  1. ;;5990
  1. ;;21,"67046-0020-21 ")
  1. ;;5991
  1. ;;21,"67046-0090-21 ")
  1. ;;5992
  1. ;;21,"67046-0090-28 ")
  1. ;;5993
  1. ;;21,"67046-0090-30 ")
  1. ;;5994
  1. ;;21,"67046-0135-14 ")
  1. ;;5995
  1. ;;21,"67046-0135-20 ")
  1. ;;5996
  1. ;;21,"67046-0135-30 ")
  1. ;;5997
  1. ;;21,"67046-0576-21 ")
  1. ;;5998
  1. ;;21,"67046-0576-28 ")
  1. ;;5999
  1. ;;21,"67046-0576-30 ")
  1. ;;6000
  1. ;;21,"67046-0728-30 ")
  1. ;;6001
  1. ;;21,"67253-0008-46 ")
  1. ;;6002
  1. ;;21,"67253-0009-41 ")
  1. ;;6003
  1. ;;21,"67253-0009-46 ")
  1. ;;6004
  1. ;;21,"67253-0011-06 ")
  1. ;;6005
  1. ;;21,"67253-0012-41 ")
  1. ;;6006
  1. ;;21,"67253-0012-42 ")
  1. ;;6007
  1. ;;21,"67253-0013-41 ")
  1. ;;6008
  1. ;;21,"67253-0013-42 ")
  1. ;;6009
  1. ;;21,"67253-0140-10 ")
  1. ;;6010
  1. ;;21,"67253-0140-50 ")
  1. ;;6011
  1. ;;21,"67253-0141-10 ")
  1. ;;6012
  1. ;;21,"67253-0141-50 ")
  1. ;;6013
  1. ;;21,"67253-0142-08 ")
  1. ;;6014
  1. ;;21,"67253-0142-10 ")
  1. ;;6015
  1. ;;21,"67253-0142-15 ")
  1. ;;6016
  1. ;;21,"67253-0143-08 ")
  1. ;;6017
  1. ;;21,"67253-0143-10 ")
  1. ;;6018