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

BGP06A16.m

Go to the documentation of this file.
BGP06A16 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"66267-0090-28 ")
 ;;5813
 ;;21,"66267-0090-40 ")
 ;;5814
 ;;21,"66267-0091-20 ")
 ;;5815
 ;;21,"66267-0091-28 ")
 ;;5816
 ;;21,"66267-0091-30 ")
 ;;5817
 ;;21,"66267-0091-40 ")
 ;;5818
 ;;21,"66267-0159-20 ")
 ;;5819
 ;;21,"66267-0159-30 ")
 ;;5820
 ;;21,"66267-0159-40 ")
 ;;5821
 ;;21,"66267-0160-20 ")
 ;;5822
 ;;21,"66267-0160-28 ")
 ;;5823
 ;;21,"66267-0160-40 ")
 ;;5824
 ;;21,"66267-0196-60 ")
 ;;5825
 ;;21,"66267-0200-12 ")
 ;;5826
 ;;21,"66267-0200-28 ")
 ;;5827
 ;;21,"66267-0200-40 ")
 ;;5828
 ;;21,"66267-0201-14 ")
 ;;5829
 ;;21,"66267-0201-20 ")
 ;;5830
 ;;21,"66267-0201-28 ")
 ;;5831
 ;;21,"66267-0201-40 ")
 ;;5832
 ;;21,"66267-0256-21 ")
 ;;5833
 ;;21,"66267-0256-30 ")
 ;;5834
 ;;21,"66267-0262-30 ")
 ;;5835
 ;;21,"66267-0363-07 ")
 ;;5836
 ;;21,"66267-0363-10 ")
 ;;5837
 ;;21,"66267-0444-15 ")
 ;;5838
 ;;21,"66267-0712-03 ")
 ;;5839
 ;;21,"66267-0712-10 ")
 ;;5840
 ;;21,"66267-0857-03 ")
 ;;5841
 ;;21,"66267-0857-04 ")
 ;;5842
 ;;21,"66267-0859-03 ")
 ;;5843
 ;;21,"66267-0859-04 ")
 ;;5844
 ;;21,"66267-0927-00 ")
 ;;5845
 ;;21,"66267-0928-06 ")
 ;;5846
 ;;21,"66267-0939-00 ")
 ;;5847
 ;;21,"66267-0981-20 ")
 ;;5848
 ;;21,"66267-0982-00 ")
 ;;5849
 ;;21,"66267-0991-20 ")
 ;;5850
 ;;21,"66267-0992-20 ")
 ;;5851
 ;;21,"66267-0993-15 ")
 ;;5852
 ;;21,"66267-0994-00 ")
 ;;5853
 ;;21,"66267-1001-01 ")
 ;;5854
 ;;21,"66267-1002-01 ")
 ;;5855
 ;;21,"66336-0055-06 ")
 ;;5856
 ;;21,"66336-0055-08 ")
 ;;5857
 ;;21,"66336-0055-10 ")
 ;;5858
 ;;21,"66336-0055-14 ")
 ;;5859
 ;;21,"66336-0055-20 ")
 ;;5860
 ;;21,"66336-0055-28 ")
 ;;5861
 ;;21,"66336-0055-30 ")
 ;;5862
 ;;21,"66336-0055-40 ")
 ;;5863
 ;;21,"66336-0055-60 ")
 ;;5864
 ;;21,"66336-0055-90 ")
 ;;5865
 ;;21,"66336-0074-21 ")
 ;;5866
 ;;21,"66336-0087-20 ")
 ;;5867
 ;;21,"66336-0095-06 ")
 ;;5868
 ;;21,"66336-0095-10 ")
 ;;5869
 ;;21,"66336-0095-20 ")
 ;;5870
 ;;21,"66336-0095-28 ")
 ;;5871
 ;;21,"66336-0095-30 ")
 ;;5872
 ;;21,"66336-0095-40 ")
 ;;5873
 ;;21,"66336-0098-15 ")
 ;;5874
 ;;21,"66336-0098-21 ")
 ;;5875
 ;;21,"66336-0108-28 ")
 ;;5876
 ;;21,"66336-0108-40 ")
 ;;5877
 ;;21,"66336-0109-14 ")
 ;;5878
 ;;21,"66336-0109-20 ")
 ;;5879
 ;;21,"66336-0109-28 ")
 ;;5880
 ;;21,"66336-0109-30 ")
 ;;5881
 ;;21,"66336-0109-50 ")
 ;;5882
 ;;21,"66336-0109-60 ")
 ;;5883
 ;;21,"66336-0113-30 ")
 ;;5884
 ;;21,"66336-0229-20 ")
 ;;5885
 ;;21,"66336-0229-28 ")
 ;;5886
 ;;21,"66336-0229-40 ")
 ;;5887
 ;;21,"66336-0229-56 ")
 ;;5888
 ;;21,"66336-0229-84 ")
 ;;5889
 ;;21,"66336-0414-20 ")
 ;;5890
 ;;21,"66336-0414-28 ")
 ;;5891
 ;;21,"66336-0414-40 ")
 ;;5892
 ;;21,"66336-0435-20 ")
 ;;5893
 ;;21,"66336-0435-28 ")
 ;;5894
 ;;21,"66336-0435-30 ")
 ;;5895
 ;;21,"66336-0435-40 ")
 ;;5896
 ;;21,"66336-0435-60 ")
 ;;5897
 ;;21,"66336-0441-03 ")
 ;;5898
 ;;21,"66336-0441-06 ")
 ;;5899
 ;;21,"66336-0441-08 ")
 ;;5900
 ;;21,"66336-0441-20 ")
 ;;5901
 ;;21,"66336-0441-28 ")
 ;;5902
 ;;21,"66336-0441-30 ")
 ;;5903
 ;;21,"66336-0441-40 ")
 ;;5904
 ;;21,"66336-0480-20 ")
 ;;5905
 ;;21,"66336-0480-28 ")
 ;;5906
 ;;21,"66336-0480-40 ")
 ;;5907
 ;;21,"66336-0580-28 ")
 ;;5908
 ;;21,"66336-0580-30 ")
 ;;5909
 ;;21,"66336-0593-30 ")
 ;;5910
 ;;21,"66336-0593-40 ")
 ;;5911
 ;;21,"66336-0609-06 ")
 ;;5912
 ;;21,"66336-0609-12 ")
 ;;5913
 ;;21,"66336-0609-20 ")
 ;;5914
 ;;21,"66336-0609-28 ")
 ;;5915
 ;;21,"66336-0609-30 ")
 ;;5916
 ;;21,"66336-0609-40 ")
 ;;5917
 ;;21,"66336-0634-08 ")
 ;;5918
 ;;21,"66336-0634-15 ")
 ;;5919
 ;;21,"66336-0634-21 ")
 ;;5920
 ;;21,"66336-0634-30 ")
 ;;5921
 ;;21,"66336-0634-40 ")
 ;;5922
 ;;21,"66336-0634-42 ")
 ;;5923
 ;;21,"66336-0655-21 ")
 ;;5924
 ;;21,"66336-0655-30 ")
 ;;5925
 ;;21,"66685-1001-00 ")
 ;;5926
 ;;21,"66685-1002-00 ")
 ;;5927
 ;;21,"66685-1002-02 ")
 ;;5928
 ;;21,"66685-1011-00 ")
 ;;5929
 ;;21,"66685-1011-01 ")
 ;;5930
 ;;21,"66685-1011-02 ")
 ;;5931
 ;;21,"66685-1012-00 ")
 ;;5932
 ;;21,"66685-1012-01 ")
 ;;5933
 ;;21,"66685-1012-02 ")
 ;;5934
 ;;21,"66814-0601-20 ")
 ;;5935
 ;;21,"66814-0601-60 ")
 ;;5936
 ;;21,"66814-0602-20 ")
 ;;5937
 ;;21,"66814-0602-60 ")
 ;;5938
 ;;21,"66814-0610-70 ")
 ;;5939
 ;;21,"66814-0611-70 ")
 ;;5940
 ;;21,"66814-0620-70 ")
 ;;5941
 ;;21,"66814-0620-80 ")
 ;;5942
 ;;21,"66814-0621-70 ")
 ;;5943
 ;;21,"66814-0621-80 ")
 ;;5944
 ;;21,"66860-0001-03 ")
 ;;5945
 ;;21,"66860-0002-03 ")
 ;;5946
 ;;21,"66860-0003-02 ")
 ;;5947
 ;;21,"66860-0030-03 ")
 ;;5948
 ;;21,"66860-0031-03 ")
 ;;5949
 ;;21,"66860-0032-02 ")
 ;;5950
 ;;21,"67046-0020-21 ")
 ;;5951
 ;;21,"67046-0020-30 ")
 ;;5952
 ;;21,"67046-0090-21 ")
 ;;5953
 ;;21,"67046-0090-28 ")
 ;;5954
 ;;21,"67046-0090-30 ")
 ;;5955
 ;;21,"67046-0135-14 ")
 ;;5956
 ;;21,"67046-0135-20 ")
 ;;5957
 ;;21,"67046-0135-30 ")
 ;;5958
 ;;21,"67046-0576-21 ")
 ;;5959
 ;;21,"67046-0576-28 ")
 ;;5960
 ;;21,"67046-0576-30 ")
 ;;5961
 ;;21,"67046-0728-30 ")
 ;;5962
 ;;21,"67253-0140-10 ")
 ;;5963
 ;;21,"67253-0140-50 ")
 ;;5964
 ;;21,"67253-0141-10 ")
 ;;5965
 ;;21,"67253-0141-50 ")
 ;;5966
 ;;21,"67253-0142-08 ")
 ;;5967
 ;;21,"67253-0142-10 ")
 ;;5968
 ;;21,"67253-0142-15 ")
 ;;5969
 ;;21,"67253-0143-08 ")
 ;;5970
 ;;21,"67253-0143-10 ")
 ;;5971
 ;;21,"67253-0143-15 ")
 ;;5972
 ;;21,"67253-0180-10 ")
 ;;5973
 ;;21,"67253-0180-50 ")
 ;;5974
 ;;21,"67253-0181-10 ")
 ;;5975
 ;;21,"67253-0181-50 ")
 ;;5976
 ;;21,"67253-0182-10 ")
 ;;5977
 ;;21,"67253-0182-20 ")
 ;;5978
 ;;21,"67253-0183-10 ")
 ;;5979
 ;;21,"67253-0183-20 ")
 ;;5980
 ;;21,"67253-0200-10 ")
 ;;5981
 ;;21,"67253-0200-11 ")
 ;;5982
 ;;21,"67253-0201-10 ")
 ;;5983
 ;;21,"67253-0201-50 ")
 ;;5984
 ;;21,"67253-0202-10 ")
 ;;5985
 ;;21,"67253-0202-20 ")
 ;;5986
 ;;21,"67253-0203-10 ")
 ;;5987
 ;;21,"67253-0203-20 ")
 ;;5988
 ;;21,"67253-0300-10 ")
 ;;5989
 ;;21,"67253-0300-50 ")
 ;;5990
 ;;21,"67253-0301-10 ")
 ;;5991
 ;;21,"67253-0301-50 ")
 ;;5992
 ;;21,"67253-0780-02 ")
 ;;5993
 ;;21,"67253-0781-02 ")
 ;;5994
 ;;21,"67767-0137-01 ")
 ;;5995
 ;;21,"67767-0138-01 ")
 ;;5996
 ;;21,"67767-0139-11 ")
 ;;5997
 ;;21,"67781-0181-60 ")
 ;;5998
 ;;21,"67870-0109-50 ")
 ;;5999
 ;;21,"67870-0110-05 ")
 ;;6000
 ;;21,"67870-0110-50 ")
 ;;6001
 ;;21,"67870-0112-05 ")
 ;;6002
 ;;21,"67870-0112-50 ")
 ;;6003
 ;;21,"68084-0069-01 ")
 ;;6004
 ;;21,"68084-0070-01 ")
 ;;6005
 ;;21,"68084-0071-01 ")
 ;;6006
 ;;21,"68115-0026-04 ")
 ;;6007
 ;;21,"68115-0026-21 ")
 ;;6008
 ;;21,"68115-0026-30 ")
 ;;6009
 ;;21,"68115-0027-21 ")
 ;;6010
 ;;21,"68115-0027-30 ")
 ;;6011
 ;;21,"68115-0029-00 ")
 ;;6012
 ;;21,"68115-0029-04 ")
 ;;6013
 ;;21,"68115-0029-08 ")
 ;;6014
 ;;21,"68115-0029-21 ")
 ;;6015
 ;;21,"68115-0029-30 ")
 ;;6016
 ;;21,"68115-0029-40 ")
 ;;6017
 ;;21,"68115-0029-42 ")
 ;;6018
 ;;21,"68115-0030-10 ")
 ;;6019
 ;;21,"68115-0030-14 ")
 ;;6020
 ;;21,"68115-0033-21 ")
 ;;6021
 ;;21,"68115-0065-30 ")
 ;;6022
 ;;21,"68115-0066-30 ")
 ;;6023
 ;;21,"68115-0067-10 ")
 ;;6024
 ;;21,"68115-0067-20 ")
 ;;6025
 ;;21,"68115-0067-24 ")
 ;;6026
 ;;21,"68115-0072-06 ")
 ;;6027
 ;;21,"68115-0072-09 ")
 ;;6028
 ;;21,"68115-0072-12 ")
 ;;6029
 ;;21,"68115-0072-15 ")
 ;;6030
 ;;21,"68115-0072-20 ")
 ;;6031
 ;;21,"68115-0072-28 ")
 ;;6032
 ;;21,"68115-0072-40 ")
 ;;6033
 ;;21,"68115-0073-06 ")
 ;;6034
 ;;21,"68115-0073-09 ")
 ;;6035
 ;;21,"68115-0073-10 ")
 ;;6036
 ;;21,"68115-0073-12 ")
 ;;6037
 ;;21,"68115-0073-14 ")
 ;;6038
 ;;21,"68115-0073-20 ")
 ;;6039
 ;;21,"68115-0073-28 ")
 ;;6040
 ;;21,"68115-0073-30 ")
 ;;6041
 ;;21,"68115-0073-40 ")
 ;;6042
 ;;21,"68115-0073-48 ")
 ;;6043
 ;;21,"68115-0073-60 ")
 ;;6044
 ;;21,"68115-0073-92 ")
 ;;6045
 ;;21,"68115-0082-00 ")
 ;;6046
 ;;21,"68115-0082-01 ")
 ;;6047
 ;;21,"68115-0082-06 ")
 ;;6048
 ;;21,"68115-0082-14 ")
 ;;6049
 ;;21,"68115-0082-20 ")
 ;;6050
 ;;21,"68115-0086-04 ")
 ;;6051
 ;;21,"68115-0086-06 ")
 ;;6052
 ;;21,"68115-0086-12 ")
 ;;6053
 ;;21,"68115-0086-20 ")
 ;;6054
 ;;21,"68115-0086-21 ")
 ;;6055
 ;;21,"68115-0086-28 ")
 ;;6056
 ;;21,"68115-0086-36 ")
 ;;6057
 ;;21,"68115-0086-56 ")
 ;;6058
 ;;21,"68115-0104-28 ")
 ;;6059
 ;;21,"68115-0105-10 ")
 ;;6060
 ;;21,"68115-0105-20 ")
 ;;6061
 ;;21,"68115-0105-28 ")
 ;;6062
 ;;21,"68115-0105-30 ")
 ;;6063
 ;;21,"68115-0105-40 ")
 ;;6064
 ;;21,"68115-0125-20 ")
 ;;6065
 ;;21,"68115-0125-97 ")
 ;;6066
 ;;21,"68115-0125-99 ")
 ;;6067
 ;;21,"68115-0126-30 ")
 ;;6068
 ;;21,"68115-0126-40 ")
 ;;6069
 ;;21,"68115-0131-30 ")
 ;;6070
 ;;21,"68115-0132-20 ")
 ;;6071
 ;;21,"68115-0132-28 ")
 ;;6072
 ;;21,"68115-0134-28 ")
 ;;6073
 ;;21,"68115-0135-06 ")
 ;;6074
 ;;21,"68115-0135-30 ")
 ;;6075
 ;;21,"68115-0136-28 ")
 ;;6076
 ;;21,"68115-0136-40 ")
 ;;6077
 ;;21,"68115-0196-10 ")
 ;;6078
 ;;21,"68115-0197-10 ")
 ;;6079
 ;;21,"68115-0268-30 ")
 ;;6080
 ;;21,"68115-0269-04 ")
 ;;6081
 ;;21,"68115-0269-12 ")
 ;;6082
 ;;21,"68115-0269-20 ")
 ;;6083
 ;;21,"68115-0269-21 ")
 ;;6084
 ;;21,"68115-0269-28 ")
 ;;6085
 ;;21,"68115-0322-00 ")
 ;;6086
 ;;21,"68115-0322-20 ")
 ;;6087
 ;;21,"68115-0322-28 ")
 ;;6088
 ;;21,"68115-0325-28 ")
 ;;6089
 ;;21,"68115-0325-40 ")
 ;;6090
 ;;21,"68115-0326-40 ")
 ;;6091
 ;;21,"68115-0326-60 ")
 ;;6092
 ;;21,"68115-0364-04 ")
 ;;6093
 ;;21,"68115-0364-50 ")
 ;;6094
 ;;21,"68115-0386-20 ")
 ;;6095
 ;;21,"68115-0421-09 ")
 ;;6096
 ;;21,"68115-0445-22 ")
 ;;6097
 ;;21,"68115-0446-01 ")
 ;;6098
 ;;21,"68115-0446-06 ")
 ;;6099
 ;;21,"68115-0446-08 ")
 ;;6100
 ;;21,"68115-0446-10 ")
 ;;6101
 ;;21,"68115-0446-14 ")
 ;;6102
 ;;21,"68115-0446-20 ")
 ;;6103
 ;;21,"68115-0446-30 ")
 ;;6104
 ;;21,"68115-0463-20 ")
 ;;6105
 ;;21,"68115-0488-40 ")
 ;;6106
 ;;21,"68115-0541-50 ")
 ;;6107
 ;;21,"68115-0582-20 ")
 ;;6108
 ;;21,"68115-0872-06 ")
 ;;6109
 ;;21,"68115-0904-00 ")
 ;;6110
 ;;21,"68115-0904-50 ")
 ;;6111
 ;;21,"68115-0904-80 ")
 ;;6112
 ;;21,"68115-0931-06 ")
 ;;6113
 ;;21,"68115-0990-20 ")
 ;;6114
 ;;21,"68115-0991-20 ")
 ;;6115
 ;;21,"68115-0993-50 ")
 ;;6116
 ;;21,"68115-0994-00 ")
 ;;6117
 ;;21,"68180-0202-01 ")
 ;;6118
 ;;21,"68180-0202-02 ")
 ;;6119
 ;;21,"68180-0202-03 ")
 ;;6120
 ;;21,"99207-0460-10 ")
 ;;6121
 ;;21,"99207-0460-30 ")
 ;;6122
 ;;21,"99207-0461-10 ")
 ;;6123
 ;;21,"99207-0461-30 ")
 ;;6124
 ;;21,"99207-0462-10 ")
 ;;6125
 ;;21,"99207-0462-30 ")
 ;;6126
 ;;21,"99207-0488-05 ")
 ;;6127
 ;;21,"99207-0488-11 ")
 ;;6128
 ;;21,"99207-0488-50 ")
 ;;6129
 ;;21,"99207-0489-10 ")
 ;;6130
 ;;21,"99207-0489-11 ")
 ;;6131
 ;;21,"99207-0490-10 ")
 ;;6132
 ;;21,"99207-0491-10 ")
 ;;6133
 ;;21,"99207-0491-11 ")
 ;;6134
 ;;21,"99207-0492-11 ")
 ;;6135
 ;;21,"99207-0492-50 ")
 ;;6136
 ;;21,"99207-0497-05 ")
 ;;6137
 ;;21,"99207-0497-10 ")
 ;;6138
 ;;21,"99207-0497-11 ")
 ;;6139
 ;;21,"99207-0498-05 ")
 ;;6140
 ;;21,"99207-0498-11 ")
 ;;6141
 ;;21,"99207-0498-50 ")
 ;;6142
 ;;21,"99207-0499-05 ")
 ;;6143
 ;;21,"99207-0499-10 ")
 ;;6144
 ;;21,"99207-0499-11 ")
 ;;6145
 ;;9002226,974,.01)
 ;;BGP HEDIS ANTIBIOTICS NDC
 ;;9002226,974,.02)
 ;;@
 ;;9002226,974,.04)
 ;;n
 ;;9002226,974,.06)
 ;;@
 ;;9002226,974,.08)
 ;;@
 ;;9002226,974,.09)
 ;;@
 ;;9002226,974,.11)
 ;;@
 ;;9002226,974,.12)
 ;;@
 ;;9002226,974,.13)
 ;;1
 ;;9002226,974,.14)
 ;;@
 ;;9002226,974,.15)
 ;;@
 ;;9002226,974,.16)
 ;;@
 ;;9002226,974,.17)
 ;;@
 ;;9002226,974,3101)
 ;;@
 ;;9002226.02101,"974,00002-1498-01 ",.01)
 ;;00002-1498-01
 ;;9002226.02101,"974,00002-1498-01 ",.02)
 ;;00002-1498-01
 ;;9002226.02101,"974,00002-1498-25 ",.01)
 ;;00002-1498-25
 ;;9002226.02101,"974,00002-1498-25 ",.02)
 ;;00002-1498-25
 ;;9002226.02101,"974,00002-3061-02 ",.01)
 ;;00002-3061-02
 ;;9002226.02101,"974,00002-3061-02 ",.02)
 ;;00002-3061-02
 ;;9002226.02101,"974,00002-3061-15 ",.01)
 ;;00002-3061-15
 ;;9002226.02101,"974,00002-3061-15 ",.02)
 ;;00002-3061-15
 ;;9002226.02101,"974,00002-3061-33 ",.01)
 ;;00002-3061-33
 ;;9002226.02101,"974,00002-3061-33 ",.02)
 ;;00002-3061-33
 ;;9002226.02101,"974,00002-3062-15 ",.01)
 ;;00002-3062-15
 ;;9002226.02101,"974,00002-3062-15 ",.02)
 ;;00002-3062-15
 ;;9002226.02101,"974,00002-3170-02 ",.01)
 ;;00002-3170-02
 ;;9002226.02101,"974,00002-3170-02 ",.02)
 ;;00002-3170-02
 ;;9002226.02101,"974,00002-3170-30 ",.01)
 ;;00002-3170-30
 ;;9002226.02101,"974,00002-3170-30 ",.02)
 ;;00002-3170-30
 ;;9002226.02101,"974,00002-3171-02 ",.01)
 ;;00002-3171-02
 ;;9002226.02101,"974,00002-3171-02 ",.02)
 ;;00002-3171-02
 ;;9002226.02101,"974,00002-3171-30 ",.01)
 ;;00002-3171-30
 ;;9002226.02101,"974,00002-3171-30 ",.02)
 ;;00002-3171-30
 ;;9002226.02101,"974,00002-5057-68 ",.01)
 ;;00002-5057-68
 ;;9002226.02101,"974,00002-5057-68 ",.02)
 ;;00002-5057-68
 ;;9002226.02101,"974,00002-5058-18 ",.01)
 ;;00002-5058-18
 ;;9002226.02101,"974,00002-5058-18 ",.02)
 ;;00002-5058-18