BGP9VXYB ; 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-0722-89 ")
;;151
;;21,"58016-0722-90 ")
;;152
;;21,"60429-0746-01 ")
;;153
;;21,"60429-0747-01 ")
;;154
;;21,"60505-0157-05 ")
;;155
;;21,"60505-0157-09 ")
;;156
;;21,"60505-0158-05 ")
;;157
;;21,"60505-0158-09 ")
;;158
;;21,"63739-0317-15 ")
;;159
;;21,"63739-0318-15 ")
;;160
;;21,"63874-0567-30 ")
;;161
;;21,"63874-0567-60 ")
;;162
;;21,"63874-0616-30 ")
;;163
;;21,"63874-0616-60 ")
;;164
;;21,"63874-0780-20 ")
;;165
;;21,"66105-0480-06 ")
;;166
;;21,"66105-0481-06 ")
;;167
;;21,"66267-0614-30 ")
;;168
;;21,"68115-0884-00 ")
;;169
;;21,"68115-0901-60 ")
;;170
;;9002226,889,.01)
;;BGP CMS SMOKING CESSATION NDC
;;9002226,889,.02)
;;@
;;9002226,889,.04)
;;n
;;9002226,889,.06)
;;@
;;9002226,889,.08)
;;@
;;9002226,889,.09)
;;3051208
;;9002226,889,.11)
;;@
;;9002226,889,.12)
;;@
;;9002226,889,.13)
;;1
;;9002226,889,.14)
;;@
;;9002226,889,.15)
;;@
;;9002226,889,.16)
;;@
;;9002226,889,.17)
;;@
;;9002226,889,3101)
;;@
;;9002226.02101,"889,00009-5194-01 ",.01)
;;00009-5194-01
;;9002226.02101,"889,00009-5194-01 ",.02)
;;00009-5194-01
;;9002226.02101,"889,00009-5194-02 ",.01)
;;00009-5194-02
;;9002226.02101,"889,00009-5194-02 ",.02)
;;00009-5194-02
;;9002226.02101,"889,00009-5195-01 ",.01)
;;00009-5195-01
;;9002226.02101,"889,00009-5195-01 ",.02)
;;00009-5195-01
;;9002226.02101,"889,00009-5195-08 ",.01)
;;00009-5195-08
;;9002226.02101,"889,00009-5195-08 ",.02)
;;00009-5195-08
;;9002226.02101,"889,00067-0213-14 ",.01)
;;00067-0213-14
;;9002226.02101,"889,00067-0213-14 ",.02)
;;00067-0213-14
;;9002226.02101,"889,00067-5124-07 ",.01)
;;00067-5124-07
;;9002226.02101,"889,00067-5124-07 ",.02)
;;00067-5124-07
;;9002226.02101,"889,00067-5125-07 ",.01)
;;00067-5125-07
;;9002226.02101,"889,00067-5125-07 ",.02)
;;00067-5125-07
;;9002226.02101,"889,00067-5125-14 ",.01)
;;00067-5125-14
;;9002226.02101,"889,00067-5125-14 ",.02)
;;00067-5125-14
;;9002226.02101,"889,00067-5126-07 ",.01)
;;00067-5126-07
;;9002226.02101,"889,00067-5126-07 ",.02)
;;00067-5126-07
;;9002226.02101,"889,00067-5126-14 ",.01)
;;00067-5126-14
;;9002226.02101,"889,00067-5126-14 ",.02)
;;00067-5126-14
;;9002226.02101,"889,00069-0468-56 ",.01)
;;00069-0468-56
;;9002226.02101,"889,00069-0468-56 ",.02)
;;00069-0468-56
;;9002226.02101,"889,00069-0469-56 ",.01)
;;00069-0469-56
;;9002226.02101,"889,00069-0469-56 ",.02)
;;00069-0469-56
;;9002226.02101,"889,00069-0469-97 ",.01)
;;00069-0469-97
;;9002226.02101,"889,00069-0469-97 ",.02)
;;00069-0469-97
;;9002226.02101,"889,00069-0471-97 ",.01)
;;00069-0471-97
;;9002226.02101,"889,00069-0471-97 ",.02)
;;00069-0471-97
;;9002226.02101,"889,00093-0280-01 ",.01)
;;00093-0280-01
;;9002226.02101,"889,00093-0280-01 ",.02)
;;00093-0280-01
;;9002226.02101,"889,00093-0290-01 ",.01)
;;00093-0290-01
;;9002226.02101,"889,00093-0290-01 ",.02)
;;00093-0290-01
;;9002226.02101,"889,00093-5501-01 ",.01)
;;00093-5501-01
;;9002226.02101,"889,00093-5501-01 ",.02)
;;00093-5501-01
;;9002226.02101,"889,00093-5502-01 ",.01)
;;00093-5502-01
;;9002226.02101,"889,00093-5502-01 ",.02)
;;00093-5502-01
;;9002226.02101,"889,00093-5703-01 ",.01)
;;00093-5703-01
;;9002226.02101,"889,00093-5703-01 ",.02)
;;00093-5703-01
;;9002226.02101,"889,00135-0145-02 ",.01)
;;00135-0145-02
;;9002226.02101,"889,00135-0145-02 ",.02)
;;00135-0145-02
;;9002226.02101,"889,00135-0147-02 ",.01)
;;00135-0147-02
;;9002226.02101,"889,00135-0147-02 ",.02)
;;00135-0147-02
;;9002226.02101,"889,00135-0157-07 ",.01)
;;00135-0157-07
;;9002226.02101,"889,00135-0157-07 ",.02)
;;00135-0157-07
;;9002226.02101,"889,00135-0157-09 ",.01)
;;00135-0157-09
;;9002226.02101,"889,00135-0157-09 ",.02)
;;00135-0157-09
;;9002226.02101,"889,00135-0158-01 ",.01)
;;00135-0158-01
;;9002226.02101,"889,00135-0158-01 ",.02)
;;00135-0158-01
;;9002226.02101,"889,00135-0158-06 ",.01)
;;00135-0158-06
;;9002226.02101,"889,00135-0158-06 ",.02)
;;00135-0158-06
;;9002226.02101,"889,00135-0158-07 ",.01)
;;00135-0158-07
;;9002226.02101,"889,00135-0158-07 ",.02)
;;00135-0158-07
;;9002226.02101,"889,00135-0170-01 ",.01)
;;00135-0170-01
;;9002226.02101,"889,00135-0170-01 ",.02)
;;00135-0170-01
;;9002226.02101,"889,00135-0170-06 ",.01)
;;00135-0170-06
;;9002226.02101,"889,00135-0170-06 ",.02)
;;00135-0170-06
;;9002226.02101,"889,00135-0170-07 ",.01)
;;00135-0170-07
;;9002226.02101,"889,00135-0170-07 ",.02)
;;00135-0170-07
;;9002226.02101,"889,00135-0171-07 ",.01)
;;00135-0171-07
;;9002226.02101,"889,00135-0171-07 ",.02)
;;00135-0171-07
;;9002226.02101,"889,00135-0194-02 ",.01)
;;00135-0194-02
;;9002226.02101,"889,00135-0194-02 ",.02)
;;00135-0194-02
;;9002226.02101,"889,00135-0196-02 ",.01)
;;00135-0196-02
;;9002226.02101,"889,00135-0196-02 ",.02)
;;00135-0196-02
;;9002226.02101,"889,00135-0197-01 ",.01)
;;00135-0197-01
;;9002226.02101,"889,00135-0197-01 ",.02)
;;00135-0197-01
;;9002226.02101,"889,00135-0197-07 ",.01)
;;00135-0197-07
;;9002226.02101,"889,00135-0197-07 ",.02)
;;00135-0197-07
BGP9VXYB ; 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-0722-89 ")
+2 ;;151
+3 ;;21,"58016-0722-90 ")
+4 ;;152
+5 ;;21,"60429-0746-01 ")
+6 ;;153
+7 ;;21,"60429-0747-01 ")
+8 ;;154
+9 ;;21,"60505-0157-05 ")
+10 ;;155
+11 ;;21,"60505-0157-09 ")
+12 ;;156
+13 ;;21,"60505-0158-05 ")
+14 ;;157
+15 ;;21,"60505-0158-09 ")
+16 ;;158
+17 ;;21,"63739-0317-15 ")
+18 ;;159
+19 ;;21,"63739-0318-15 ")
+20 ;;160
+21 ;;21,"63874-0567-30 ")
+22 ;;161
+23 ;;21,"63874-0567-60 ")
+24 ;;162
+25 ;;21,"63874-0616-30 ")
+26 ;;163
+27 ;;21,"63874-0616-60 ")
+28 ;;164
+29 ;;21,"63874-0780-20 ")
+30 ;;165
+31 ;;21,"66105-0480-06 ")
+32 ;;166
+33 ;;21,"66105-0481-06 ")
+34 ;;167
+35 ;;21,"66267-0614-30 ")
+36 ;;168
+37 ;;21,"68115-0884-00 ")
+38 ;;169
+39 ;;21,"68115-0901-60 ")
+40 ;;170
+41 ;;9002226,889,.01)
+42 ;;BGP CMS SMOKING CESSATION NDC
+43 ;;9002226,889,.02)
+44 ;;@
+45 ;;9002226,889,.04)
+46 ;;n
+47 ;;9002226,889,.06)
+48 ;;@
+49 ;;9002226,889,.08)
+50 ;;@
+51 ;;9002226,889,.09)
+52 ;;3051208
+53 ;;9002226,889,.11)
+54 ;;@
+55 ;;9002226,889,.12)
+56 ;;@
+57 ;;9002226,889,.13)
+58 ;;1
+59 ;;9002226,889,.14)
+60 ;;@
+61 ;;9002226,889,.15)
+62 ;;@
+63 ;;9002226,889,.16)
+64 ;;@
+65 ;;9002226,889,.17)
+66 ;;@
+67 ;;9002226,889,3101)
+68 ;;@
+69 ;;9002226.02101,"889,00009-5194-01 ",.01)
+70 ;;00009-5194-01
+71 ;;9002226.02101,"889,00009-5194-01 ",.02)
+72 ;;00009-5194-01
+73 ;;9002226.02101,"889,00009-5194-02 ",.01)
+74 ;;00009-5194-02
+75 ;;9002226.02101,"889,00009-5194-02 ",.02)
+76 ;;00009-5194-02
+77 ;;9002226.02101,"889,00009-5195-01 ",.01)
+78 ;;00009-5195-01
+79 ;;9002226.02101,"889,00009-5195-01 ",.02)
+80 ;;00009-5195-01
+81 ;;9002226.02101,"889,00009-5195-08 ",.01)
+82 ;;00009-5195-08
+83 ;;9002226.02101,"889,00009-5195-08 ",.02)
+84 ;;00009-5195-08
+85 ;;9002226.02101,"889,00067-0213-14 ",.01)
+86 ;;00067-0213-14
+87 ;;9002226.02101,"889,00067-0213-14 ",.02)
+88 ;;00067-0213-14
+89 ;;9002226.02101,"889,00067-5124-07 ",.01)
+90 ;;00067-5124-07
+91 ;;9002226.02101,"889,00067-5124-07 ",.02)
+92 ;;00067-5124-07
+93 ;;9002226.02101,"889,00067-5125-07 ",.01)
+94 ;;00067-5125-07
+95 ;;9002226.02101,"889,00067-5125-07 ",.02)
+96 ;;00067-5125-07
+97 ;;9002226.02101,"889,00067-5125-14 ",.01)
+98 ;;00067-5125-14
+99 ;;9002226.02101,"889,00067-5125-14 ",.02)
+100 ;;00067-5125-14
+101 ;;9002226.02101,"889,00067-5126-07 ",.01)
+102 ;;00067-5126-07
+103 ;;9002226.02101,"889,00067-5126-07 ",.02)
+104 ;;00067-5126-07
+105 ;;9002226.02101,"889,00067-5126-14 ",.01)
+106 ;;00067-5126-14
+107 ;;9002226.02101,"889,00067-5126-14 ",.02)
+108 ;;00067-5126-14
+109 ;;9002226.02101,"889,00069-0468-56 ",.01)
+110 ;;00069-0468-56
+111 ;;9002226.02101,"889,00069-0468-56 ",.02)
+112 ;;00069-0468-56
+113 ;;9002226.02101,"889,00069-0469-56 ",.01)
+114 ;;00069-0469-56
+115 ;;9002226.02101,"889,00069-0469-56 ",.02)
+116 ;;00069-0469-56
+117 ;;9002226.02101,"889,00069-0469-97 ",.01)
+118 ;;00069-0469-97
+119 ;;9002226.02101,"889,00069-0469-97 ",.02)
+120 ;;00069-0469-97
+121 ;;9002226.02101,"889,00069-0471-97 ",.01)
+122 ;;00069-0471-97
+123 ;;9002226.02101,"889,00069-0471-97 ",.02)
+124 ;;00069-0471-97
+125 ;;9002226.02101,"889,00093-0280-01 ",.01)
+126 ;;00093-0280-01
+127 ;;9002226.02101,"889,00093-0280-01 ",.02)
+128 ;;00093-0280-01
+129 ;;9002226.02101,"889,00093-0290-01 ",.01)
+130 ;;00093-0290-01
+131 ;;9002226.02101,"889,00093-0290-01 ",.02)
+132 ;;00093-0290-01
+133 ;;9002226.02101,"889,00093-5501-01 ",.01)
+134 ;;00093-5501-01
+135 ;;9002226.02101,"889,00093-5501-01 ",.02)
+136 ;;00093-5501-01
+137 ;;9002226.02101,"889,00093-5502-01 ",.01)
+138 ;;00093-5502-01
+139 ;;9002226.02101,"889,00093-5502-01 ",.02)
+140 ;;00093-5502-01
+141 ;;9002226.02101,"889,00093-5703-01 ",.01)
+142 ;;00093-5703-01
+143 ;;9002226.02101,"889,00093-5703-01 ",.02)
+144 ;;00093-5703-01
+145 ;;9002226.02101,"889,00135-0145-02 ",.01)
+146 ;;00135-0145-02
+147 ;;9002226.02101,"889,00135-0145-02 ",.02)
+148 ;;00135-0145-02
+149 ;;9002226.02101,"889,00135-0147-02 ",.01)
+150 ;;00135-0147-02
+151 ;;9002226.02101,"889,00135-0147-02 ",.02)
+152 ;;00135-0147-02
+153 ;;9002226.02101,"889,00135-0157-07 ",.01)
+154 ;;00135-0157-07
+155 ;;9002226.02101,"889,00135-0157-07 ",.02)
+156 ;;00135-0157-07
+157 ;;9002226.02101,"889,00135-0157-09 ",.01)
+158 ;;00135-0157-09
+159 ;;9002226.02101,"889,00135-0157-09 ",.02)
+160 ;;00135-0157-09
+161 ;;9002226.02101,"889,00135-0158-01 ",.01)
+162 ;;00135-0158-01
+163 ;;9002226.02101,"889,00135-0158-01 ",.02)
+164 ;;00135-0158-01
+165 ;;9002226.02101,"889,00135-0158-06 ",.01)
+166 ;;00135-0158-06
+167 ;;9002226.02101,"889,00135-0158-06 ",.02)
+168 ;;00135-0158-06
+169 ;;9002226.02101,"889,00135-0158-07 ",.01)
+170 ;;00135-0158-07
+171 ;;9002226.02101,"889,00135-0158-07 ",.02)
+172 ;;00135-0158-07
+173 ;;9002226.02101,"889,00135-0170-01 ",.01)
+174 ;;00135-0170-01
+175 ;;9002226.02101,"889,00135-0170-01 ",.02)
+176 ;;00135-0170-01
+177 ;;9002226.02101,"889,00135-0170-06 ",.01)
+178 ;;00135-0170-06
+179 ;;9002226.02101,"889,00135-0170-06 ",.02)
+180 ;;00135-0170-06
+181 ;;9002226.02101,"889,00135-0170-07 ",.01)
+182 ;;00135-0170-07
+183 ;;9002226.02101,"889,00135-0170-07 ",.02)
+184 ;;00135-0170-07
+185 ;;9002226.02101,"889,00135-0171-07 ",.01)
+186 ;;00135-0171-07
+187 ;;9002226.02101,"889,00135-0171-07 ",.02)
+188 ;;00135-0171-07
+189 ;;9002226.02101,"889,00135-0194-02 ",.01)
+190 ;;00135-0194-02
+191 ;;9002226.02101,"889,00135-0194-02 ",.02)
+192 ;;00135-0194-02
+193 ;;9002226.02101,"889,00135-0196-02 ",.01)
+194 ;;00135-0196-02
+195 ;;9002226.02101,"889,00135-0196-02 ",.02)
+196 ;;00135-0196-02
+197 ;;9002226.02101,"889,00135-0197-01 ",.01)
+198 ;;00135-0197-01
+199 ;;9002226.02101,"889,00135-0197-01 ",.02)
+200 ;;00135-0197-01
+201 ;;9002226.02101,"889,00135-0197-07 ",.01)
+202 ;;00135-0197-07
+203 ;;9002226.02101,"889,00135-0197-07 ",.02)
+204 ;;00135-0197-07
