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