BGP22A2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 03, 2011;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;
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,"54868-5936-00 ")
;;185
;;21,"54868-5937-00 ")
;;186
;;21,"54868-5989-00 ")
;;113
;;21,"54868-5990-00 ")
;;114
;;21,"54868-5995-00 ")
;;161
;;21,"54969-4741-00 ")
;;39
;;21,"55045-1868-03 ")
;;102
;;21,"55045-2520-07 ")
;;109
;;21,"55045-2819-00 ")
;;139
;;21,"55045-2919-01 ")
;;140
;;21,"55045-3054-01 ")
;;141
;;21,"55045-3063-00 ")
;;175
;;21,"55045-3351-00 ")
;;162
;;21,"55045-3354-00 ")
;;163
;;21,"55045-3388-01 ")
;;87
;;21,"55045-3416-00 ")
;;164
;;21,"55045-3686-01 ")
;;88
;;21,"55045-3695-08 ")
;;176
;;21,"55887-0678-60 ")
;;89
;;21,"58016-4604-01 ")
;;64
;;21,"58016-4812-01 ")
;;65
;;21,"58016-4813-01 ")
;;66
;;21,"58016-6075-01 ")
;;53
;;21,"58016-6207-01 ")
;;7
;;21,"59310-0175-40 ")
;;177
;;21,"59310-0177-80 ")
;;178
;;21,"59569-4822-00 ")
;;60
;;21,"60346-0282-74 ")
;;110
;;21,"60598-0061-60 ")
;;125
;;21,"63402-0711-01 ")
;;115
;;21,"63402-0712-01 ")
;;112
;;21,"63874-0714-20 ")
;;126
;;21,"66267-1300-00 ")
;;182
;;21,"68115-0547-20 ")
;;127
;;21,"68115-0637-13 ")
;;142
;;21,"68115-0652-01 ")
;;103
;;21,"68115-0653-01 ")
;;111
;;21,"68115-0657-01 ")
;;67
;;21,"68115-0760-01 ")
;;68
;;21,"68115-0775-07 ")
;;179
;;21,"68115-0924-60 ")
;;69
;;21,"68258-3031-01 ")
;;90
;;9002226,462,.01)
;;BGP ASTHMA INHALED STEROID NDC
;;9002226,462,.02)
;;@
;;9002226,462,.04)
;;n
;;9002226,462,.06)
;;@
;;9002226,462,.08)
;;@
;;9002226,462,.09)
;;3080528
;;9002226,462,.11)
;;@
;;9002226,462,.12)
;;@
;;9002226,462,.13)
;;1
;;9002226,462,.14)
;;@
;;9002226,462,.15)
;;@
;;9002226,462,.16)
;;@
;;9002226,462,.17)
;;@
;;9002226,462,3101)
;;@
;;9002226.02101,"462,00074-3014-60 ",.01)
;;00074-3014-60
;;9002226.02101,"462,00074-3014-60 ",.02)
;;00074-3014-60
;;9002226.02101,"462,00075-0060-37 ",.01)
;;00075-0060-37
;;9002226.02101,"462,00075-0060-37 ",.02)
;;00075-0060-37
;;9002226.02101,"462,00085-0649-02 ",.01)
;;00085-0649-02
;;9002226.02101,"462,00085-0649-02 ",.02)
;;00085-0649-02
;;9002226.02101,"462,00085-0736-04 ",.01)
;;00085-0736-04
;;9002226.02101,"462,00085-0736-04 ",.02)
;;00085-0736-04
;;9002226.02101,"462,00085-1112-01 ",.01)
;;00085-1112-01
;;9002226.02101,"462,00085-1112-01 ",.02)
;;00085-1112-01
;;9002226.02101,"462,00085-1112-03 ",.01)
;;00085-1112-03
;;9002226.02101,"462,00085-1112-03 ",.02)
;;00085-1112-03
;;9002226.02101,"462,00085-1341-01 ",.01)
;;00085-1341-01
;;9002226.02101,"462,00085-1341-01 ",.02)
;;00085-1341-01
;;9002226.02101,"462,00085-1341-02 ",.01)
;;00085-1341-02
;;9002226.02101,"462,00085-1341-02 ",.02)
;;00085-1341-02
;;9002226.02101,"462,00085-1341-03 ",.01)
;;00085-1341-03
;;9002226.02101,"462,00085-1341-03 ",.02)
;;00085-1341-03
;;9002226.02101,"462,00085-1341-04 ",.01)
;;00085-1341-04
;;9002226.02101,"462,00085-1341-04 ",.02)
;;00085-1341-04
;;9002226.02101,"462,00085-1461-02 ",.01)
;;00085-1461-02
;;9002226.02101,"462,00085-1461-02 ",.02)
;;00085-1461-02
;;9002226.02101,"462,00085-1461-07 ",.01)
;;00085-1461-07
;;9002226.02101,"462,00085-1461-07 ",.02)
;;00085-1461-07
;;9002226.02101,"462,00085-4610-01 ",.01)
;;00085-4610-01
;;9002226.02101,"462,00085-4610-01 ",.02)
;;00085-4610-01
;;9002226.02101,"462,00085-7206-01 ",.01)
;;00085-7206-01
;;9002226.02101,"462,00085-7206-01 ",.02)
;;00085-7206-01
;;9002226.02101,"462,00089-0175-40 ",.01)
;;00089-0175-40
;;9002226.02101,"462,00089-0175-40 ",.02)
;;00089-0175-40
;;9002226.02101,"462,00089-0177-80 ",.01)
;;00089-0177-80
;;9002226.02101,"462,00089-0177-80 ",.02)
;;00089-0177-80
;;9002226.02101,"462,00093-6815-73 ",.01)
;;00093-6815-73
;;9002226.02101,"462,00093-6815-73 ",.02)
;;00093-6815-73
;;9002226.02101,"462,00173-0491-00 ",.01)
;;00173-0491-00
;;9002226.02101,"462,00173-0491-00 ",.02)
;;00173-0491-00
;;9002226.02101,"462,00173-0494-00 ",.01)
;;00173-0494-00
;;9002226.02101,"462,00173-0494-00 ",.02)
;;00173-0494-00
;;9002226.02101,"462,00173-0495-00 ",.01)
;;00173-0495-00
;;9002226.02101,"462,00173-0495-00 ",.02)
;;00173-0495-00
;;9002226.02101,"462,00173-0497-00 ",.01)
;;00173-0497-00
;;9002226.02101,"462,00173-0497-00 ",.02)
;;00173-0497-00
;;9002226.02101,"462,00173-0498-00 ",.01)
;;00173-0498-00
;;9002226.02101,"462,00173-0498-00 ",.02)
;;00173-0498-00
;;9002226.02101,"462,00173-0499-00 ",.01)
;;00173-0499-00
;;9002226.02101,"462,00173-0499-00 ",.02)
;;00173-0499-00
;;9002226.02101,"462,00173-0504-00 ",.01)
;;00173-0504-00
;;9002226.02101,"462,00173-0504-00 ",.02)
;;00173-0504-00
;;9002226.02101,"462,00173-0509-00 ",.01)
;;00173-0509-00
;;9002226.02101,"462,00173-0509-00 ",.02)
;;00173-0509-00
;;9002226.02101,"462,00173-0511-00 ",.01)
;;00173-0511-00
;;9002226.02101,"462,00173-0511-00 ",.02)
;;00173-0511-00
;;9002226.02101,"462,00173-0600-02 ",.01)
;;00173-0600-02
;;9002226.02101,"462,00173-0600-02 ",.02)
;;00173-0600-02
;;9002226.02101,"462,00173-0601-02 ",.01)
;;00173-0601-02
;;9002226.02101,"462,00173-0601-02 ",.02)
;;00173-0601-02
BGP22A2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 03, 2011;
+1 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
+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,"54868-5936-00 ")
+2 ;;185
+3 ;;21,"54868-5937-00 ")
+4 ;;186
+5 ;;21,"54868-5989-00 ")
+6 ;;113
+7 ;;21,"54868-5990-00 ")
+8 ;;114
+9 ;;21,"54868-5995-00 ")
+10 ;;161
+11 ;;21,"54969-4741-00 ")
+12 ;;39
+13 ;;21,"55045-1868-03 ")
+14 ;;102
+15 ;;21,"55045-2520-07 ")
+16 ;;109
+17 ;;21,"55045-2819-00 ")
+18 ;;139
+19 ;;21,"55045-2919-01 ")
+20 ;;140
+21 ;;21,"55045-3054-01 ")
+22 ;;141
+23 ;;21,"55045-3063-00 ")
+24 ;;175
+25 ;;21,"55045-3351-00 ")
+26 ;;162
+27 ;;21,"55045-3354-00 ")
+28 ;;163
+29 ;;21,"55045-3388-01 ")
+30 ;;87
+31 ;;21,"55045-3416-00 ")
+32 ;;164
+33 ;;21,"55045-3686-01 ")
+34 ;;88
+35 ;;21,"55045-3695-08 ")
+36 ;;176
+37 ;;21,"55887-0678-60 ")
+38 ;;89
+39 ;;21,"58016-4604-01 ")
+40 ;;64
+41 ;;21,"58016-4812-01 ")
+42 ;;65
+43 ;;21,"58016-4813-01 ")
+44 ;;66
+45 ;;21,"58016-6075-01 ")
+46 ;;53
+47 ;;21,"58016-6207-01 ")
+48 ;;7
+49 ;;21,"59310-0175-40 ")
+50 ;;177
+51 ;;21,"59310-0177-80 ")
+52 ;;178
+53 ;;21,"59569-4822-00 ")
+54 ;;60
+55 ;;21,"60346-0282-74 ")
+56 ;;110
+57 ;;21,"60598-0061-60 ")
+58 ;;125
+59 ;;21,"63402-0711-01 ")
+60 ;;115
+61 ;;21,"63402-0712-01 ")
+62 ;;112
+63 ;;21,"63874-0714-20 ")
+64 ;;126
+65 ;;21,"66267-1300-00 ")
+66 ;;182
+67 ;;21,"68115-0547-20 ")
+68 ;;127
+69 ;;21,"68115-0637-13 ")
+70 ;;142
+71 ;;21,"68115-0652-01 ")
+72 ;;103
+73 ;;21,"68115-0653-01 ")
+74 ;;111
+75 ;;21,"68115-0657-01 ")
+76 ;;67
+77 ;;21,"68115-0760-01 ")
+78 ;;68
+79 ;;21,"68115-0775-07 ")
+80 ;;179
+81 ;;21,"68115-0924-60 ")
+82 ;;69
+83 ;;21,"68258-3031-01 ")
+84 ;;90
+85 ;;9002226,462,.01)
+86 ;;BGP ASTHMA INHALED STEROID NDC
+87 ;;9002226,462,.02)
+88 ;;@
+89 ;;9002226,462,.04)
+90 ;;n
+91 ;;9002226,462,.06)
+92 ;;@
+93 ;;9002226,462,.08)
+94 ;;@
+95 ;;9002226,462,.09)
+96 ;;3080528
+97 ;;9002226,462,.11)
+98 ;;@
+99 ;;9002226,462,.12)
+100 ;;@
+101 ;;9002226,462,.13)
+102 ;;1
+103 ;;9002226,462,.14)
+104 ;;@
+105 ;;9002226,462,.15)
+106 ;;@
+107 ;;9002226,462,.16)
+108 ;;@
+109 ;;9002226,462,.17)
+110 ;;@
+111 ;;9002226,462,3101)
+112 ;;@
+113 ;;9002226.02101,"462,00074-3014-60 ",.01)
+114 ;;00074-3014-60
+115 ;;9002226.02101,"462,00074-3014-60 ",.02)
+116 ;;00074-3014-60
+117 ;;9002226.02101,"462,00075-0060-37 ",.01)
+118 ;;00075-0060-37
+119 ;;9002226.02101,"462,00075-0060-37 ",.02)
+120 ;;00075-0060-37
+121 ;;9002226.02101,"462,00085-0649-02 ",.01)
+122 ;;00085-0649-02
+123 ;;9002226.02101,"462,00085-0649-02 ",.02)
+124 ;;00085-0649-02
+125 ;;9002226.02101,"462,00085-0736-04 ",.01)
+126 ;;00085-0736-04
+127 ;;9002226.02101,"462,00085-0736-04 ",.02)
+128 ;;00085-0736-04
+129 ;;9002226.02101,"462,00085-1112-01 ",.01)
+130 ;;00085-1112-01
+131 ;;9002226.02101,"462,00085-1112-01 ",.02)
+132 ;;00085-1112-01
+133 ;;9002226.02101,"462,00085-1112-03 ",.01)
+134 ;;00085-1112-03
+135 ;;9002226.02101,"462,00085-1112-03 ",.02)
+136 ;;00085-1112-03
+137 ;;9002226.02101,"462,00085-1341-01 ",.01)
+138 ;;00085-1341-01
+139 ;;9002226.02101,"462,00085-1341-01 ",.02)
+140 ;;00085-1341-01
+141 ;;9002226.02101,"462,00085-1341-02 ",.01)
+142 ;;00085-1341-02
+143 ;;9002226.02101,"462,00085-1341-02 ",.02)
+144 ;;00085-1341-02
+145 ;;9002226.02101,"462,00085-1341-03 ",.01)
+146 ;;00085-1341-03
+147 ;;9002226.02101,"462,00085-1341-03 ",.02)
+148 ;;00085-1341-03
+149 ;;9002226.02101,"462,00085-1341-04 ",.01)
+150 ;;00085-1341-04
+151 ;;9002226.02101,"462,00085-1341-04 ",.02)
+152 ;;00085-1341-04
+153 ;;9002226.02101,"462,00085-1461-02 ",.01)
+154 ;;00085-1461-02
+155 ;;9002226.02101,"462,00085-1461-02 ",.02)
+156 ;;00085-1461-02
+157 ;;9002226.02101,"462,00085-1461-07 ",.01)
+158 ;;00085-1461-07
+159 ;;9002226.02101,"462,00085-1461-07 ",.02)
+160 ;;00085-1461-07
+161 ;;9002226.02101,"462,00085-4610-01 ",.01)
+162 ;;00085-4610-01
+163 ;;9002226.02101,"462,00085-4610-01 ",.02)
+164 ;;00085-4610-01
+165 ;;9002226.02101,"462,00085-7206-01 ",.01)
+166 ;;00085-7206-01
+167 ;;9002226.02101,"462,00085-7206-01 ",.02)
+168 ;;00085-7206-01
+169 ;;9002226.02101,"462,00089-0175-40 ",.01)
+170 ;;00089-0175-40
+171 ;;9002226.02101,"462,00089-0175-40 ",.02)
+172 ;;00089-0175-40
+173 ;;9002226.02101,"462,00089-0177-80 ",.01)
+174 ;;00089-0177-80
+175 ;;9002226.02101,"462,00089-0177-80 ",.02)
+176 ;;00089-0177-80
+177 ;;9002226.02101,"462,00093-6815-73 ",.01)
+178 ;;00093-6815-73
+179 ;;9002226.02101,"462,00093-6815-73 ",.02)
+180 ;;00093-6815-73
+181 ;;9002226.02101,"462,00173-0491-00 ",.01)
+182 ;;00173-0491-00
+183 ;;9002226.02101,"462,00173-0491-00 ",.02)
+184 ;;00173-0491-00
+185 ;;9002226.02101,"462,00173-0494-00 ",.01)
+186 ;;00173-0494-00
+187 ;;9002226.02101,"462,00173-0494-00 ",.02)
+188 ;;00173-0494-00
+189 ;;9002226.02101,"462,00173-0495-00 ",.01)
+190 ;;00173-0495-00
+191 ;;9002226.02101,"462,00173-0495-00 ",.02)
+192 ;;00173-0495-00
+193 ;;9002226.02101,"462,00173-0497-00 ",.01)
+194 ;;00173-0497-00
+195 ;;9002226.02101,"462,00173-0497-00 ",.02)
+196 ;;00173-0497-00
+197 ;;9002226.02101,"462,00173-0498-00 ",.01)
+198 ;;00173-0498-00
+199 ;;9002226.02101,"462,00173-0498-00 ",.02)
+200 ;;00173-0498-00
+201 ;;9002226.02101,"462,00173-0499-00 ",.01)
+202 ;;00173-0499-00
+203 ;;9002226.02101,"462,00173-0499-00 ",.02)
+204 ;;00173-0499-00
+205 ;;9002226.02101,"462,00173-0504-00 ",.01)
+206 ;;00173-0504-00
+207 ;;9002226.02101,"462,00173-0504-00 ",.02)
+208 ;;00173-0504-00
+209 ;;9002226.02101,"462,00173-0509-00 ",.01)
+210 ;;00173-0509-00
+211 ;;9002226.02101,"462,00173-0509-00 ",.02)
+212 ;;00173-0509-00
+213 ;;9002226.02101,"462,00173-0511-00 ",.01)
+214 ;;00173-0511-00
+215 ;;9002226.02101,"462,00173-0511-00 ",.02)
+216 ;;00173-0511-00
+217 ;;9002226.02101,"462,00173-0600-02 ",.01)
+218 ;;00173-0600-02
+219 ;;9002226.02101,"462,00173-0600-02 ",.02)
+220 ;;00173-0600-02
+221 ;;9002226.02101,"462,00173-0601-02 ",.01)
+222 ;;00173-0601-02
+223 ;;9002226.02101,"462,00173-0601-02 ",.02)
+224 ;;00173-0601-02
