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

BGP8ZI16.m

Go to the documentation of this file.
BGP8ZI16 ;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,"68382-0036-06 ")
 ;;5020
 ;;21,"68382-0036-10 ")
 ;;5021
 ;;21,"68382-0036-16 ")
 ;;5022
 ;;21,"68382-0097-01 ")
 ;;5023
 ;;21,"68382-0097-05 ")
 ;;5024
 ;;21,"68382-0097-06 ")
 ;;5025
 ;;21,"68382-0097-10 ")
 ;;5026
 ;;21,"68382-0097-16 ")
 ;;5027
 ;;21,"68382-0098-01 ")
 ;;5028
 ;;21,"68382-0098-05 ")
 ;;5029
 ;;21,"68382-0098-06 ")
 ;;5030
 ;;21,"68382-0098-10 ")
 ;;5031
 ;;21,"68382-0098-16 ")
 ;;5032
 ;;21,"68382-0099-01 ")
 ;;5033
 ;;21,"68382-0099-05 ")
 ;;5034
 ;;21,"68382-0099-06 ")
 ;;5035
 ;;21,"68382-0099-10 ")
 ;;5036
 ;;21,"68382-0099-16 ")
 ;;5037
 ;;21,"68382-0101-01 ")
 ;;5038
 ;;21,"68382-0101-10 ")
 ;;5039
 ;;21,"68382-0354-05 ")
 ;;5040
 ;;21,"68382-0354-06 ")
 ;;5041
 ;;21,"68382-0385-14 ")
 ;;5042
 ;;21,"68382-0386-06 ")
 ;;5043
 ;;21,"68382-0386-16 ")
 ;;5044
 ;;21,"68382-0387-06 ")
 ;;5045
 ;;21,"68387-0120-30 ")
 ;;5046
 ;;21,"68387-0120-60 ")
 ;;5047
 ;;21,"68387-0120-90 ")
 ;;5048
 ;;21,"68387-0125-30 ")
 ;;5049
 ;;21,"68387-0127-30 ")
 ;;5050
 ;;21,"68387-0128-30 ")
 ;;5051
 ;;21,"68387-0160-30 ")
 ;;5052
 ;;21,"68387-0165-30 ")
 ;;5053
 ;;21,"68387-0165-90 ")
 ;;5054
 ;;21,"68387-0166-30 ")
 ;;5055
 ;;21,"68387-0166-60 ")
 ;;5056
 ;;21,"68387-0330-15 ")
 ;;5057
 ;;21,"68387-0330-30 ")
 ;;5058
 ;;21,"68387-0330-60 ")
 ;;5059
 ;;21,"68387-0335-15 ")
 ;;5060
 ;;21,"68387-0335-24 ")
 ;;5061
 ;;21,"68387-0335-30 ")
 ;;5062
 ;;21,"68387-0335-60 ")
 ;;5063
 ;;21,"68387-0335-90 ")
 ;;5064
 ;;21,"68387-0336-30 ")
 ;;5065
 ;;21,"68387-0336-90 ")
 ;;5066
 ;;21,"68387-0337-24 ")
 ;;5067
 ;;21,"68387-0337-30 ")
 ;;5068
 ;;21,"68387-0338-30 ")
 ;;5069
 ;;21,"68387-0339-30 ")
 ;;5070
 ;;21,"68387-0349-15 ")
 ;;5071
 ;;21,"68387-0349-30 ")
 ;;5072
 ;;21,"68387-0350-30 ")
 ;;5073
 ;;21,"68387-0350-60 ")
 ;;5074
 ;;21,"68387-0353-60 ")
 ;;5075
 ;;21,"68387-0360-60 ")
 ;;5076
 ;;21,"68387-0363-07 ")
 ;;5077
 ;;21,"68387-0363-15 ")
 ;;5078
 ;;21,"68387-0363-30 ")
 ;;5079
 ;;21,"68387-0553-30 ")
 ;;5080
 ;;21,"68387-0553-60 ")
 ;;5081
 ;;21,"68387-0554-30 ")
 ;;5082
 ;;21,"68387-0554-60 ")
 ;;5083
 ;;21,"68645-0130-54 ")
 ;;5084
 ;;21,"68645-0131-54 ")
 ;;5085
 ;;21,"68645-0252-54 ")
 ;;5086
 ;;21,"68645-0282-54 ")
 ;;5087
 ;;21,"68645-0424-54 ")
 ;;5088
 ;;21,"68645-0425-54 ")
 ;;5089
 ;;21,"68645-0426-54 ")
 ;;5090
 ;;21,"68645-0447-70 ")
 ;;5091
 ;;21,"68645-0448-70 ")
 ;;5092
 ;;21,"68645-0451-70 ")
 ;;5093
 ;;21,"68645-0452-70 ")
 ;;5094
 ;;21,"68645-0467-54 ")
 ;;5095
 ;;21,"68645-0487-70 ")
 ;;5096
 ;;21,"68645-0488-70 ")
 ;;5097
 ;;21,"68645-0489-70 ")
 ;;5098
 ;;21,"68645-0498-01 ")
 ;;5099
 ;;21,"68645-0499-01 ")
 ;;5100
 ;;21,"68645-0500-01 ")
 ;;5101
 ;;21,"68645-0514-54 ")
 ;;5102
 ;;21,"68645-0519-54 ")
 ;;5103
 ;;21,"68645-0519-70 ")
 ;;5104
 ;;21,"68645-0520-54 ")
 ;;5105
 ;;21,"68645-0520-70 ")
 ;;5106
 ;;21,"68645-0521-01 ")
 ;;5107
 ;;21,"68645-0521-54 ")
 ;;5108
 ;;21,"68645-0521-70 ")
 ;;5109
 ;;21,"68645-0522-01 ")
 ;;5110
 ;;21,"68645-0522-54 ")
 ;;5111
 ;;21,"68645-0522-70 ")
 ;;5112
 ;;21,"68645-0523-01 ")
 ;;5113
 ;;21,"68645-0523-54 ")
 ;;5114
 ;;21,"68645-0523-70 ")
 ;;5115
 ;;21,"68727-0600-01 ")
 ;;5116
 ;;21,"68727-0601-01 ")
 ;;5117
 ;;21,"68968-2010-01 ")
 ;;5118
 ;;21,"68968-2020-01 ")
 ;;5119
 ;;21,"68968-2030-01 ")
 ;;5120
 ;;21,"68968-2040-01 ")
 ;;5121
 ;;21,"68968-9075-03 ")
 ;;5122
 ;;21,"69097-0297-03 ")
 ;;5123
 ;;21,"69097-0298-02 ")
 ;;5124
 ;;21,"69097-0299-02 ")
 ;;5125
 ;;21,"69097-0822-07 ")
 ;;5126
 ;;21,"69097-0822-12 ")
 ;;5127
 ;;21,"69097-0823-07 ")
 ;;5128
 ;;21,"69097-0823-12 ")
 ;;5129
 ;;21,"69097-0824-07 ")
 ;;5130
 ;;21,"69097-0824-12 ")
 ;;5131
 ;;21,"69097-0833-02 ")
 ;;5132
 ;;21,"69097-0833-05 ")
 ;;5133
 ;;21,"69097-0833-12 ")
 ;;5134
 ;;21,"69097-0834-02 ")
 ;;5135
 ;;21,"69097-0834-12 ")
 ;;5136
 ;;21,"69097-0835-02 ")
 ;;5137
 ;;21,"69097-0835-12 ")
 ;;5138
 ;;21,"69097-0847-05 ")
 ;;5139
 ;;21,"69097-0848-05 ")
 ;;5140
 ;;21,"69097-0849-05 ")
 ;;5141
 ;;21,"69097-0875-02 ")
 ;;5142
 ;;21,"69097-0875-05 ")
 ;;5143
 ;;21,"69097-0875-12 ")
 ;;5144
 ;;21,"69097-0876-02 ")
 ;;5145
 ;;21,"69097-0876-12 ")
 ;;5146
 ;;21,"69097-0877-03 ")
 ;;5147
 ;;21,"69097-0877-07 ")
 ;;5148
 ;;21,"69097-0877-12 ")
 ;;5149
 ;;21,"69097-0878-03 ")
 ;;5150
 ;;21,"69097-0878-07 ")
 ;;5151
 ;;21,"69097-0878-12 ")
 ;;5152
 ;;21,"69097-0879-03 ")
 ;;5153
 ;;21,"69097-0879-07 ")
 ;;5154
 ;;21,"69238-1053-01 ")
 ;;5155
 ;;21,"69238-1053-03 ")
 ;;5156
 ;;21,"69238-1055-01 ")
 ;;5157
 ;;21,"69238-1057-01 ")
 ;;5158
 ;;21,"69238-1059-01 ")
 ;;5159
 ;;21,"69238-1061-01 ")
 ;;5160
 ;;21,"69238-1063-02 ")
 ;;5161
 ;;21,"69315-0133-01 ")
 ;;5162
 ;;21,"69315-0133-10 ")
 ;;5163
 ;;21,"69315-0134-01 ")
 ;;5164
 ;;21,"69315-0134-10 ")
 ;;5165
 ;;21,"69315-0135-01 ")
 ;;5166
 ;;21,"69315-0135-10 ")
 ;;5167
 ;;21,"69874-0422-10 ")
 ;;5168
 ;;21,"69874-0500-10 ")
 ;;5169
 ;;21,"76282-0206-01 ")
 ;;5170
 ;;21,"76282-0206-05 ")
 ;;5171
 ;;21,"76282-0206-10 ")
 ;;5172
 ;;21,"76282-0207-01 ")
 ;;5173
 ;;21,"76282-0207-05 ")
 ;;5174
 ;;21,"76282-0207-10 ")
 ;;5175
 ;;21,"76282-0207-30 ")
 ;;5176
 ;;21,"76282-0208-01 ")
 ;;5177
 ;;21,"76282-0208-05 ")
 ;;5178
 ;;21,"76282-0208-10 ")
 ;;5179
 ;;21,"76282-0208-30 ")
 ;;5180
 ;;21,"76282-0212-01 ")
 ;;5181
 ;;21,"76282-0212-05 ")
 ;;5182
 ;;21,"76282-0212-30 ")
 ;;5183
 ;;21,"76282-0212-90 ")
 ;;5184
 ;;21,"76282-0213-01 ")
 ;;5185
 ;;21,"76282-0213-05 ")
 ;;5186
 ;;21,"76282-0213-18 ")
 ;;5187
 ;;21,"76282-0213-30 ")
 ;;5188
 ;;21,"76282-0213-90 ")
 ;;5189
 ;;21,"76282-0214-01 ")
 ;;5190
 ;;21,"76282-0214-05 ")
 ;;5191
 ;;21,"76282-0214-30 ")
 ;;5192
 ;;21,"76282-0214-90 ")
 ;;5193
 ;;21,"76282-0249-10 ")
 ;;5194
 ;;21,"76282-0249-30 ")
 ;;5195
 ;;21,"76282-0249-90 ")
 ;;5196
 ;;21,"76282-0250-10 ")
 ;;5197
 ;;21,"76282-0250-30 ")
 ;;5198
 ;;21,"76282-0250-90 ")
 ;;5199
 ;;21,"76282-0251-10 ")
 ;;5200
 ;;21,"76282-0251-90 ")
 ;;5201
 ;;9002226,869,.01)
 ;;BGP HEDIS ANTIDEPRESSANT NDC
 ;;9002226,869,.02)
 ;;@
 ;;9002226,869,.04)
 ;;n
 ;;9002226,869,.06)
 ;;@
 ;;9002226,869,.08)
 ;;@
 ;;9002226,869,.09)
 ;;3180122
 ;;9002226,869,.11)
 ;;@
 ;;9002226,869,.12)
 ;;@
 ;;9002226,869,.13)
 ;;1
 ;;9002226,869,.14)
 ;;@
 ;;9002226,869,.15)
 ;;50.67
 ;;9002226,869,.16)
 ;;@
 ;;9002226,869,.17)
 ;;@
 ;;9002226,869,.22)
 ;;1
 ;;9002226,869,3101)
 ;;@
 ;;9002226.02101,"869,00002-3004-75 ",.01)
 ;;00002-3004-75
 ;;9002226.02101,"869,00002-3004-75 ",.02)
 ;;00002-3004-75
 ;;9002226.02101,"869,00002-3230-30 ",.01)
 ;;00002-3230-30
 ;;9002226.02101,"869,00002-3230-30 ",.02)
 ;;00002-3230-30
 ;;9002226.02101,"869,00002-3231-01 ",.01)
 ;;00002-3231-01
 ;;9002226.02101,"869,00002-3231-01 ",.02)
 ;;00002-3231-01
 ;;9002226.02101,"869,00002-3231-30 ",.01)
 ;;00002-3231-30
 ;;9002226.02101,"869,00002-3231-30 ",.02)
 ;;00002-3231-30
 ;;9002226.02101,"869,00002-3231-33 ",.01)
 ;;00002-3231-33
 ;;9002226.02101,"869,00002-3231-33 ",.02)
 ;;00002-3231-33
 ;;9002226.02101,"869,00002-3232-30 ",.01)
 ;;00002-3232-30
 ;;9002226.02101,"869,00002-3232-30 ",.02)
 ;;00002-3232-30
 ;;9002226.02101,"869,00002-3233-30 ",.01)
 ;;00002-3233-30
 ;;9002226.02101,"869,00002-3233-30 ",.02)
 ;;00002-3233-30
 ;;9002226.02101,"869,00002-3234-30 ",.01)
 ;;00002-3234-30
 ;;9002226.02101,"869,00002-3234-30 ",.02)
 ;;00002-3234-30
 ;;9002226.02101,"869,00002-3235-01 ",.01)
 ;;00002-3235-01
 ;;9002226.02101,"869,00002-3235-01 ",.02)
 ;;00002-3235-01
 ;;9002226.02101,"869,00002-3235-33 ",.01)
 ;;00002-3235-33
 ;;9002226.02101,"869,00002-3235-33 ",.02)
 ;;00002-3235-33
 ;;9002226.02101,"869,00002-3235-60 ",.01)
 ;;00002-3235-60
 ;;9002226.02101,"869,00002-3235-60 ",.02)
 ;;00002-3235-60
 ;;9002226.02101,"869,00002-3240-01 ",.01)
 ;;00002-3240-01
 ;;9002226.02101,"869,00002-3240-01 ",.02)
 ;;00002-3240-01
 ;;9002226.02101,"869,00002-3240-30 ",.01)
 ;;00002-3240-30
 ;;9002226.02101,"869,00002-3240-30 ",.02)
 ;;00002-3240-30
 ;;9002226.02101,"869,00002-3240-33 ",.01)
 ;;00002-3240-33
 ;;9002226.02101,"869,00002-3240-33 ",.02)
 ;;00002-3240-33
 ;;9002226.02101,"869,00002-3240-90 ",.01)
 ;;00002-3240-90
 ;;9002226.02101,"869,00002-3240-90 ",.02)
 ;;00002-3240-90
 ;;9002226.02101,"869,00002-3270-01 ",.01)
 ;;00002-3270-01
 ;;9002226.02101,"869,00002-3270-01 ",.02)
 ;;00002-3270-01
 ;;9002226.02101,"869,00002-3270-04 ",.01)
 ;;00002-3270-04
 ;;9002226.02101,"869,00002-3270-04 ",.02)
 ;;00002-3270-04
 ;;9002226.02101,"869,00002-3270-30 ",.01)
 ;;00002-3270-30
 ;;9002226.02101,"869,00002-3270-30 ",.02)
 ;;00002-3270-30
 ;;9002226.02101,"869,00002-3270-33 ",.01)
 ;;00002-3270-33
 ;;9002226.02101,"869,00002-3270-33 ",.02)
 ;;00002-3270-33
 ;;9002226.02101,"869,00007-4471-20 ",.01)
 ;;00007-4471-20
 ;;9002226.02101,"869,00007-4471-20 ",.02)
 ;;00007-4471-20
 ;;9002226.02101,"869,00008-0833-02 ",.01)
 ;;00008-0833-02
 ;;9002226.02101,"869,00008-0833-02 ",.02)
 ;;00008-0833-02
 ;;9002226.02101,"869,00008-0833-03 ",.01)
 ;;00008-0833-03
 ;;9002226.02101,"869,00008-0833-03 ",.02)
 ;;00008-0833-03
 ;;9002226.02101,"869,00008-0833-20 ",.01)
 ;;00008-0833-20
 ;;9002226.02101,"869,00008-0833-20 ",.02)
 ;;00008-0833-20
 ;;9002226.02101,"869,00008-0833-21 ",.01)
 ;;00008-0833-21
 ;;9002226.02101,"869,00008-0833-21 ",.02)
 ;;00008-0833-21
 ;;9002226.02101,"869,00008-0833-22 ",.01)
 ;;00008-0833-22
 ;;9002226.02101,"869,00008-0833-22 ",.02)
 ;;00008-0833-22
 ;;9002226.02101,"869,00008-0836-02 ",.01)
 ;;00008-0836-02
 ;;9002226.02101,"869,00008-0836-02 ",.02)
 ;;00008-0836-02
 ;;9002226.02101,"869,00008-0836-03 ",.01)
 ;;00008-0836-03
 ;;9002226.02101,"869,00008-0836-03 ",.02)
 ;;00008-0836-03
 ;;9002226.02101,"869,00008-0836-20 ",.01)
 ;;00008-0836-20
 ;;9002226.02101,"869,00008-0836-20 ",.02)
 ;;00008-0836-20
 ;;9002226.02101,"869,00008-0836-21 ",.01)
 ;;00008-0836-21
 ;;9002226.02101,"869,00008-0836-21 ",.02)
 ;;00008-0836-21
 ;;9002226.02101,"869,00008-0836-22 ",.01)
 ;;00008-0836-22
 ;;9002226.02101,"869,00008-0836-22 ",.02)
 ;;00008-0836-22
 ;;9002226.02101,"869,00008-0837-02 ",.01)
 ;;00008-0837-02
 ;;9002226.02101,"869,00008-0837-02 ",.02)
 ;;00008-0837-02
 ;;9002226.02101,"869,00008-0837-03 ",.01)
 ;;00008-0837-03
 ;;9002226.02101,"869,00008-0837-03 ",.02)
 ;;00008-0837-03
 ;;9002226.02101,"869,00008-0837-20 ",.01)
 ;;00008-0837-20
 ;;9002226.02101,"869,00008-0837-20 ",.02)
 ;;00008-0837-20
 ;;9002226.02101,"869,00008-0837-21 ",.01)
 ;;00008-0837-21
 ;;9002226.02101,"869,00008-0837-21 ",.02)
 ;;00008-0837-21
 ;;9002226.02101,"869,00008-0837-22 ",.01)
 ;;00008-0837-22
 ;;9002226.02101,"869,00008-0837-22 ",.02)
 ;;00008-0837-22
 ;;9002226.02101,"869,00008-1210-30 ",.01)
 ;;00008-1210-30
 ;;9002226.02101,"869,00008-1210-30 ",.02)
 ;;00008-1210-30
 ;;9002226.02101,"869,00008-1211-01 ",.01)
 ;;00008-1211-01
 ;;9002226.02101,"869,00008-1211-01 ",.02)
 ;;00008-1211-01
 ;;9002226.02101,"869,00008-1211-14 ",.01)
 ;;00008-1211-14
 ;;9002226.02101,"869,00008-1211-14 ",.02)
 ;;00008-1211-14
 ;;9002226.02101,"869,00008-1211-30 ",.01)
 ;;00008-1211-30
 ;;9002226.02101,"869,00008-1211-30 ",.02)
 ;;00008-1211-30
 ;;9002226.02101,"869,00008-1211-50 ",.01)
 ;;00008-1211-50
 ;;9002226.02101,"869,00008-1211-50 ",.02)
 ;;00008-1211-50