BGP9SXCB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
;
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,"58016-0371-15 ")
;;151
;;21,"58016-0371-20 ")
;;152
;;21,"58016-0371-21 ")
;;153
;;21,"58016-0371-40 ")
;;154
;;21,"58016-9413-01 ")
;;155
;;21,"58177-0301-04 ")
;;156
;;21,"60505-0725-01 ")
;;157
;;21,"60505-0726-01 ")
;;158
;;21,"60505-0726-02 ")
;;159
;;21,"60760-0314-20 ")
;;160
;;21,"63323-0161-01 ")
;;161
;;21,"63323-0162-01 ")
;;162
;;21,"63323-0162-02 ")
;;163
;;21,"63874-0472-01 ")
;;164
;;21,"63874-0472-15 ")
;;165
;;21,"63874-0472-20 ")
;;166
;;21,"63874-0472-30 ")
;;167
;;21,"63874-0472-50 ")
;;168
;;21,"66267-0204-08 ")
;;169
;;21,"66267-0204-21 ")
;;170
;;21,"66267-0418-20 ")
;;171
;;21,"68115-0192-20 ")
;;172
;;21,"68115-0192-30 ")
;;173
;;9002226,724,.01)
;;BGP HEDIS ANALGESIC NDC
;;9002226,724,.02)
;;@
;;9002226,724,.04)
;;n
;;9002226,724,.06)
;;@
;;9002226,724,.08)
;;@
;;9002226,724,.09)
;;@
;;9002226,724,.11)
;;@
;;9002226,724,.12)
;;@
;;9002226,724,.13)
;;1
;;9002226,724,.14)
;;@
;;9002226,724,.15)
;;@
;;9002226,724,.16)
;;@
;;9002226,724,.17)
;;@
;;9002226,724,3101)
;;@
;;9002226.02101,"724,00004-0273-01 ",.01)
;;00004-0273-01
;;9002226.02101,"724,00004-0273-01 ",.02)
;;00004-0273-01
;;9002226.02101,"724,00004-6920-06 ",.01)
;;00004-6920-06
;;9002226.02101,"724,00004-6920-06 ",.02)
;;00004-6920-06
;;9002226.02101,"724,00004-6921-06 ",.01)
;;00004-6921-06
;;9002226.02101,"724,00004-6921-06 ",.02)
;;00004-6921-06
;;9002226.02101,"724,00004-6922-06 ",.01)
;;00004-6922-06
;;9002226.02101,"724,00004-6922-06 ",.02)
;;00004-6922-06
;;9002226.02101,"724,00004-6925-06 ",.01)
;;00004-6925-06
;;9002226.02101,"724,00004-6925-06 ",.02)
;;00004-6925-06
;;9002226.02101,"724,00004-6926-06 ",.01)
;;00004-6926-06
;;9002226.02101,"724,00004-6926-06 ",.02)
;;00004-6926-06
;;9002226.02101,"724,00004-6927-09 ",.01)
;;00004-6927-09
;;9002226.02101,"724,00004-6927-09 ",.02)
;;00004-6927-09
;;9002226.02101,"724,00033-2444-50 ",.01)
;;00033-2444-50
;;9002226.02101,"724,00033-2444-50 ",.02)
;;00033-2444-50
;;9002226.02101,"724,00074-2023-02 ",.01)
;;00074-2023-02
;;9002226.02101,"724,00074-2023-02 ",.02)
;;00074-2023-02
;;9002226.02101,"724,00074-2036-02 ",.01)
;;00074-2036-02
;;9002226.02101,"724,00074-2036-02 ",.02)
;;00074-2036-02
;;9002226.02101,"724,00074-2039-02 ",.01)
;;00074-2039-02
;;9002226.02101,"724,00074-2039-02 ",.02)
;;00074-2039-02
;;9002226.02101,"724,00074-2287-01 ",.01)
;;00074-2287-01
;;9002226.02101,"724,00074-2287-01 ",.02)
;;00074-2287-01
;;9002226.02101,"724,00074-2287-02 ",.01)
;;00074-2287-02
;;9002226.02101,"724,00074-2287-02 ",.02)
;;00074-2287-02
;;9002226.02101,"724,00074-2287-11 ",.01)
;;00074-2287-11
;;9002226.02101,"724,00074-2287-11 ",.02)
;;00074-2287-11
;;9002226.02101,"724,00074-2287-31 ",.01)
;;00074-2287-31
;;9002226.02101,"724,00074-2287-31 ",.02)
;;00074-2287-31
;;9002226.02101,"724,00074-2287-61 ",.01)
;;00074-2287-61
;;9002226.02101,"724,00074-2287-61 ",.02)
;;00074-2287-61
;;9002226.02101,"724,00074-2288-01 ",.01)
;;00074-2288-01
;;9002226.02101,"724,00074-2288-01 ",.02)
;;00074-2288-01
;;9002226.02101,"724,00074-2288-11 ",.01)
;;00074-2288-11
;;9002226.02101,"724,00074-2288-11 ",.02)
;;00074-2288-11
;;9002226.02101,"724,00074-2288-31 ",.01)
;;00074-2288-31
;;9002226.02101,"724,00074-2288-31 ",.02)
;;00074-2288-31
;;9002226.02101,"724,00074-3793-01 ",.01)
;;00074-3793-01
;;9002226.02101,"724,00074-3793-01 ",.02)
;;00074-3793-01
;;9002226.02101,"724,00074-3793-49 ",.01)
;;00074-3793-49
;;9002226.02101,"724,00074-3793-49 ",.02)
;;00074-3793-49
;;9002226.02101,"724,00074-3795-01 ",.01)
;;00074-3795-01
;;9002226.02101,"724,00074-3795-01 ",.02)
;;00074-3795-01
;;9002226.02101,"724,00074-3795-49 ",.01)
;;00074-3795-49
;;9002226.02101,"724,00074-3795-49 ",.02)
;;00074-3795-49
;;9002226.02101,"724,00074-3795-61 ",.01)
;;00074-3795-61
;;9002226.02101,"724,00074-3795-61 ",.02)
;;00074-3795-61
;;9002226.02101,"724,00074-3796-01 ",.01)
;;00074-3796-01
;;9002226.02101,"724,00074-3796-01 ",.02)
;;00074-3796-01
;;9002226.02101,"724,00074-3796-49 ",.01)
;;00074-3796-49
;;9002226.02101,"724,00074-3796-49 ",.02)
;;00074-3796-49
;;9002226.02101,"724,00074-3796-61 ",.01)
;;00074-3796-61
;;9002226.02101,"724,00074-3796-61 ",.02)
;;00074-3796-61
;;9002226.02101,"724,00093-0314-01 ",.01)
;;00093-0314-01
;;9002226.02101,"724,00093-0314-01 ",.02)
;;00093-0314-01
;;9002226.02101,"724,00247-0121-00 ",.01)
;;00247-0121-00
;;9002226.02101,"724,00247-0121-00 ",.02)
;;00247-0121-00
;;9002226.02101,"724,00247-0121-01 ",.01)
;;00247-0121-01
;;9002226.02101,"724,00247-0121-01 ",.02)
;;00247-0121-01
;;9002226.02101,"724,00247-0121-02 ",.01)
;;00247-0121-02
;;9002226.02101,"724,00247-0121-02 ",.02)
;;00247-0121-02
;;9002226.02101,"724,00247-0121-03 ",.01)
;;00247-0121-03
;;9002226.02101,"724,00247-0121-03 ",.02)
;;00247-0121-03
;;9002226.02101,"724,00247-0121-04 ",.01)
;;00247-0121-04
;;9002226.02101,"724,00247-0121-04 ",.02)
;;00247-0121-04
BGP9SXCB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
+1 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"58016-0371-15 ")
+2 ;;151
+3 ;;21,"58016-0371-20 ")
+4 ;;152
+5 ;;21,"58016-0371-21 ")
+6 ;;153
+7 ;;21,"58016-0371-40 ")
+8 ;;154
+9 ;;21,"58016-9413-01 ")
+10 ;;155
+11 ;;21,"58177-0301-04 ")
+12 ;;156
+13 ;;21,"60505-0725-01 ")
+14 ;;157
+15 ;;21,"60505-0726-01 ")
+16 ;;158
+17 ;;21,"60505-0726-02 ")
+18 ;;159
+19 ;;21,"60760-0314-20 ")
+20 ;;160
+21 ;;21,"63323-0161-01 ")
+22 ;;161
+23 ;;21,"63323-0162-01 ")
+24 ;;162
+25 ;;21,"63323-0162-02 ")
+26 ;;163
+27 ;;21,"63874-0472-01 ")
+28 ;;164
+29 ;;21,"63874-0472-15 ")
+30 ;;165
+31 ;;21,"63874-0472-20 ")
+32 ;;166
+33 ;;21,"63874-0472-30 ")
+34 ;;167
+35 ;;21,"63874-0472-50 ")
+36 ;;168
+37 ;;21,"66267-0204-08 ")
+38 ;;169
+39 ;;21,"66267-0204-21 ")
+40 ;;170
+41 ;;21,"66267-0418-20 ")
+42 ;;171
+43 ;;21,"68115-0192-20 ")
+44 ;;172
+45 ;;21,"68115-0192-30 ")
+46 ;;173
+47 ;;9002226,724,.01)
+48 ;;BGP HEDIS ANALGESIC NDC
+49 ;;9002226,724,.02)
+50 ;;@
+51 ;;9002226,724,.04)
+52 ;;n
+53 ;;9002226,724,.06)
+54 ;;@
+55 ;;9002226,724,.08)
+56 ;;@
+57 ;;9002226,724,.09)
+58 ;;@
+59 ;;9002226,724,.11)
+60 ;;@
+61 ;;9002226,724,.12)
+62 ;;@
+63 ;;9002226,724,.13)
+64 ;;1
+65 ;;9002226,724,.14)
+66 ;;@
+67 ;;9002226,724,.15)
+68 ;;@
+69 ;;9002226,724,.16)
+70 ;;@
+71 ;;9002226,724,.17)
+72 ;;@
+73 ;;9002226,724,3101)
+74 ;;@
+75 ;;9002226.02101,"724,00004-0273-01 ",.01)
+76 ;;00004-0273-01
+77 ;;9002226.02101,"724,00004-0273-01 ",.02)
+78 ;;00004-0273-01
+79 ;;9002226.02101,"724,00004-6920-06 ",.01)
+80 ;;00004-6920-06
+81 ;;9002226.02101,"724,00004-6920-06 ",.02)
+82 ;;00004-6920-06
+83 ;;9002226.02101,"724,00004-6921-06 ",.01)
+84 ;;00004-6921-06
+85 ;;9002226.02101,"724,00004-6921-06 ",.02)
+86 ;;00004-6921-06
+87 ;;9002226.02101,"724,00004-6922-06 ",.01)
+88 ;;00004-6922-06
+89 ;;9002226.02101,"724,00004-6922-06 ",.02)
+90 ;;00004-6922-06
+91 ;;9002226.02101,"724,00004-6925-06 ",.01)
+92 ;;00004-6925-06
+93 ;;9002226.02101,"724,00004-6925-06 ",.02)
+94 ;;00004-6925-06
+95 ;;9002226.02101,"724,00004-6926-06 ",.01)
+96 ;;00004-6926-06
+97 ;;9002226.02101,"724,00004-6926-06 ",.02)
+98 ;;00004-6926-06
+99 ;;9002226.02101,"724,00004-6927-09 ",.01)
+100 ;;00004-6927-09
+101 ;;9002226.02101,"724,00004-6927-09 ",.02)
+102 ;;00004-6927-09
+103 ;;9002226.02101,"724,00033-2444-50 ",.01)
+104 ;;00033-2444-50
+105 ;;9002226.02101,"724,00033-2444-50 ",.02)
+106 ;;00033-2444-50
+107 ;;9002226.02101,"724,00074-2023-02 ",.01)
+108 ;;00074-2023-02
+109 ;;9002226.02101,"724,00074-2023-02 ",.02)
+110 ;;00074-2023-02
+111 ;;9002226.02101,"724,00074-2036-02 ",.01)
+112 ;;00074-2036-02
+113 ;;9002226.02101,"724,00074-2036-02 ",.02)
+114 ;;00074-2036-02
+115 ;;9002226.02101,"724,00074-2039-02 ",.01)
+116 ;;00074-2039-02
+117 ;;9002226.02101,"724,00074-2039-02 ",.02)
+118 ;;00074-2039-02
+119 ;;9002226.02101,"724,00074-2287-01 ",.01)
+120 ;;00074-2287-01
+121 ;;9002226.02101,"724,00074-2287-01 ",.02)
+122 ;;00074-2287-01
+123 ;;9002226.02101,"724,00074-2287-02 ",.01)
+124 ;;00074-2287-02
+125 ;;9002226.02101,"724,00074-2287-02 ",.02)
+126 ;;00074-2287-02
+127 ;;9002226.02101,"724,00074-2287-11 ",.01)
+128 ;;00074-2287-11
+129 ;;9002226.02101,"724,00074-2287-11 ",.02)
+130 ;;00074-2287-11
+131 ;;9002226.02101,"724,00074-2287-31 ",.01)
+132 ;;00074-2287-31
+133 ;;9002226.02101,"724,00074-2287-31 ",.02)
+134 ;;00074-2287-31
+135 ;;9002226.02101,"724,00074-2287-61 ",.01)
+136 ;;00074-2287-61
+137 ;;9002226.02101,"724,00074-2287-61 ",.02)
+138 ;;00074-2287-61
+139 ;;9002226.02101,"724,00074-2288-01 ",.01)
+140 ;;00074-2288-01
+141 ;;9002226.02101,"724,00074-2288-01 ",.02)
+142 ;;00074-2288-01
+143 ;;9002226.02101,"724,00074-2288-11 ",.01)
+144 ;;00074-2288-11
+145 ;;9002226.02101,"724,00074-2288-11 ",.02)
+146 ;;00074-2288-11
+147 ;;9002226.02101,"724,00074-2288-31 ",.01)
+148 ;;00074-2288-31
+149 ;;9002226.02101,"724,00074-2288-31 ",.02)
+150 ;;00074-2288-31
+151 ;;9002226.02101,"724,00074-3793-01 ",.01)
+152 ;;00074-3793-01
+153 ;;9002226.02101,"724,00074-3793-01 ",.02)
+154 ;;00074-3793-01
+155 ;;9002226.02101,"724,00074-3793-49 ",.01)
+156 ;;00074-3793-49
+157 ;;9002226.02101,"724,00074-3793-49 ",.02)
+158 ;;00074-3793-49
+159 ;;9002226.02101,"724,00074-3795-01 ",.01)
+160 ;;00074-3795-01
+161 ;;9002226.02101,"724,00074-3795-01 ",.02)
+162 ;;00074-3795-01
+163 ;;9002226.02101,"724,00074-3795-49 ",.01)
+164 ;;00074-3795-49
+165 ;;9002226.02101,"724,00074-3795-49 ",.02)
+166 ;;00074-3795-49
+167 ;;9002226.02101,"724,00074-3795-61 ",.01)
+168 ;;00074-3795-61
+169 ;;9002226.02101,"724,00074-3795-61 ",.02)
+170 ;;00074-3795-61
+171 ;;9002226.02101,"724,00074-3796-01 ",.01)
+172 ;;00074-3796-01
+173 ;;9002226.02101,"724,00074-3796-01 ",.02)
+174 ;;00074-3796-01
+175 ;;9002226.02101,"724,00074-3796-49 ",.01)
+176 ;;00074-3796-49
+177 ;;9002226.02101,"724,00074-3796-49 ",.02)
+178 ;;00074-3796-49
+179 ;;9002226.02101,"724,00074-3796-61 ",.01)
+180 ;;00074-3796-61
+181 ;;9002226.02101,"724,00074-3796-61 ",.02)
+182 ;;00074-3796-61
+183 ;;9002226.02101,"724,00093-0314-01 ",.01)
+184 ;;00093-0314-01
+185 ;;9002226.02101,"724,00093-0314-01 ",.02)
+186 ;;00093-0314-01
+187 ;;9002226.02101,"724,00247-0121-00 ",.01)
+188 ;;00247-0121-00
+189 ;;9002226.02101,"724,00247-0121-00 ",.02)
+190 ;;00247-0121-00
+191 ;;9002226.02101,"724,00247-0121-01 ",.01)
+192 ;;00247-0121-01
+193 ;;9002226.02101,"724,00247-0121-01 ",.02)
+194 ;;00247-0121-01
+195 ;;9002226.02101,"724,00247-0121-02 ",.01)
+196 ;;00247-0121-02
+197 ;;9002226.02101,"724,00247-0121-02 ",.02)
+198 ;;00247-0121-02
+199 ;;9002226.02101,"724,00247-0121-03 ",.01)
+200 ;;00247-0121-03
+201 ;;9002226.02101,"724,00247-0121-03 ",.02)
+202 ;;00247-0121-03
+203 ;;9002226.02101,"724,00247-0121-04 ",.01)
+204 ;;00247-0121-04
+205 ;;9002226.02101,"724,00247-0121-04 ",.02)
+206 ;;00247-0121-04
