BGP21I8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 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,"67544-0424-70 ")
;;463
;;21,"67544-0424-75 ")
;;464
;;21,"67544-0424-80 ")
;;465
;;21,"67544-0424-90 ")
;;466
;;21,"67544-0424-92 ")
;;467
;;21,"67544-0424-94 ")
;;468
;;21,"67544-0424-96 ")
;;469
;;21,"67544-0428-45 ")
;;160
;;21,"67544-0428-53 ")
;;161
;;21,"67544-0428-60 ")
;;162
;;21,"67544-0428-73 ")
;;163
;;21,"67544-0428-80 ")
;;164
;;21,"67544-0486-53 ")
;;470
;;21,"67544-0511-70 ")
;;1092
;;21,"67544-0596-53 ")
;;471
;;21,"67544-0596-60 ")
;;472
;;21,"67544-0596-80 ")
;;473
;;21,"67544-0596-96 ")
;;474
;;21,"67544-1081-80 ")
;;835
;;21,"67544-1081-94 ")
;;836
;;21,"67544-1129-70 ")
;;1093
;;21,"67544-1198-53 ")
;;165
;;21,"67544-1198-60 ")
;;166
;;21,"67544-1198-80 ")
;;167
;;21,"67544-1216-53 ")
;;683
;;21,"67544-1216-60 ")
;;684
;;21,"67544-1216-80 ")
;;685
;;21,"67544-1216-92 ")
;;686
;;21,"67544-1379-80 ")
;;475
;;21,"67544-1383-60 ")
;;687
;;21,"67544-1383-80 ")
;;688
;;21,"67767-0115-01 ")
;;852
;;21,"67877-0217-01 ")
;;229
;;21,"67877-0217-05 ")
;;230
;;21,"67877-0218-01 ")
;;553
;;21,"67877-0221-01 ")
;;12
;;21,"68071-0028-30 ")
;;1094
;;21,"68071-0028-60 ")
;;1095
;;21,"68084-0072-01 ")
;;837
;;21,"68084-0072-11 ")
;;838
;;21,"68084-0136-01 ")
;;978
;;21,"68084-0136-11 ")
;;979
;;21,"68084-0137-01 ")
;;1024
;;21,"68084-0137-11 ")
;;1025
;;21,"68084-0138-01 ")
;;1096
;;21,"68084-0138-11 ")
;;1097
;;21,"68115-0158-30 ")
;;1028
;;21,"68115-0158-60 ")
;;1029
;;21,"68115-0159-30 ")
;;1102
;;21,"68115-0159-60 ")
;;1103
;;21,"68115-0230-30 ")
;;197
;;21,"68115-0230-60 ")
;;198
;;21,"68115-0231-00 ")
;;507
;;21,"68115-0231-30 ")
;;508
;;21,"68115-0231-60 ")
;;509
;;21,"68115-0231-90 ")
;;510
;;21,"68115-0232-30 ")
;;716
;;21,"68115-0232-45 ")
;;717
;;21,"68115-0232-60 ")
;;718
;;21,"68115-0891-60 ")
;;1139
;;21,"68258-1016-01 ")
;;498
;;21,"68258-1077-01 ")
;;189
;;21,"68382-0028-01 ")
;;476
;;21,"68382-0028-05 ")
;;477
;;21,"68382-0028-10 ")
;;478
;;21,"68382-0029-01 ")
;;689
;;21,"68382-0029-05 ")
;;690
;;21,"68382-0029-10 ")
;;691
;;21,"68382-0030-01 ")
;;168
;;21,"68382-0030-05 ")
;;169
;;21,"68382-0030-10 ")
;;170
;;21,"68462-0159-01 ")
;;479
;;21,"68462-0159-05 ")
;;480
;;21,"68462-0159-10 ")
;;481
;;21,"68462-0159-18 ")
;;482
;;21,"68462-0159-90 ")
;;483
;;21,"68462-0160-01 ")
;;692
;;21,"68462-0160-05 ")
;;693
;;21,"68462-0160-10 ")
;;694
;;21,"68462-0160-18 ")
;;695
;;21,"68462-0160-90 ")
;;696
;;21,"68462-0161-01 ")
;;171
;;21,"68462-0161-05 ")
;;172
;;21,"68462-0161-10 ")
;;173
;;21,"68462-0161-18 ")
;;174
;;21,"68462-0161-90 ")
;;175
;;21,"68645-0120-59 ")
;;839
;;9002226,1198,.01)
;;BGP PQA BIGUANIDE NDC
;;9002226,1198,.02)
;;@
;;9002226,1198,.04)
;;n
;;9002226,1198,.06)
;;@
;;9002226,1198,.08)
;;@
;;9002226,1198,.09)
;;@
;;9002226,1198,.11)
;;@
;;9002226,1198,.12)
;;@
;;9002226,1198,.13)
;;1
;;9002226,1198,.14)
;;@
;;9002226,1198,.15)
;;@
;;9002226,1198,.16)
;;@
;;9002226,1198,.17)
;;@
;;9002226,1198,3101)
;;@
;;9002226.02101,"1198,00003-4221-11 ",.01)
;;00003-4221-11
;;9002226.02101,"1198,00003-4221-11 ",.02)
;;00003-4221-11
;;9002226.02101,"1198,00003-4222-16 ",.01)
;;00003-4222-16
;;9002226.02101,"1198,00003-4222-16 ",.02)
;;00003-4222-16
;;9002226.02101,"1198,00003-4223-11 ",.01)
;;00003-4223-11
;;9002226.02101,"1198,00003-4223-11 ",.02)
;;00003-4223-11
;;9002226.02101,"1198,00006-0575-52 ",.01)
;;00006-0575-52
;;9002226.02101,"1198,00006-0575-52 ",.02)
;;00006-0575-52
;;9002226.02101,"1198,00006-0575-61 ",.01)
;;00006-0575-61
;;9002226.02101,"1198,00006-0575-61 ",.02)
;;00006-0575-61
;;9002226.02101,"1198,00006-0575-62 ",.01)
;;00006-0575-62
;;9002226.02101,"1198,00006-0575-62 ",.02)
;;00006-0575-62
;;9002226.02101,"1198,00006-0575-82 ",.01)
;;00006-0575-82
;;9002226.02101,"1198,00006-0575-82 ",.02)
;;00006-0575-82
;;9002226.02101,"1198,00006-0577-52 ",.01)
;;00006-0577-52
;;9002226.02101,"1198,00006-0577-52 ",.02)
;;00006-0577-52
;;9002226.02101,"1198,00006-0577-61 ",.01)
;;00006-0577-61
;;9002226.02101,"1198,00006-0577-61 ",.02)
;;00006-0577-61
;;9002226.02101,"1198,00006-0577-62 ",.01)
;;00006-0577-62
;;9002226.02101,"1198,00006-0577-62 ",.02)
;;00006-0577-62
;;9002226.02101,"1198,00006-0577-82 ",.01)
;;00006-0577-82
;;9002226.02101,"1198,00006-0577-82 ",.02)
;;00006-0577-82
;;9002226.02101,"1198,00007-3163-18 ",.01)
;;00007-3163-18
;;9002226.02101,"1198,00007-3163-18 ",.02)
;;00007-3163-18
;;9002226.02101,"1198,00007-3164-18 ",.01)
;;00007-3164-18
;;9002226.02101,"1198,00007-3164-18 ",.02)
;;00007-3164-18
;;9002226.02101,"1198,00007-3166-18 ",.01)
;;00007-3166-18
;;9002226.02101,"1198,00007-3166-18 ",.02)
;;00007-3166-18
;;9002226.02101,"1198,00007-3166-20 ",.01)
;;00007-3166-20
BGP21I8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 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,"67544-0424-70 ")
+2 ;;463
+3 ;;21,"67544-0424-75 ")
+4 ;;464
+5 ;;21,"67544-0424-80 ")
+6 ;;465
+7 ;;21,"67544-0424-90 ")
+8 ;;466
+9 ;;21,"67544-0424-92 ")
+10 ;;467
+11 ;;21,"67544-0424-94 ")
+12 ;;468
+13 ;;21,"67544-0424-96 ")
+14 ;;469
+15 ;;21,"67544-0428-45 ")
+16 ;;160
+17 ;;21,"67544-0428-53 ")
+18 ;;161
+19 ;;21,"67544-0428-60 ")
+20 ;;162
+21 ;;21,"67544-0428-73 ")
+22 ;;163
+23 ;;21,"67544-0428-80 ")
+24 ;;164
+25 ;;21,"67544-0486-53 ")
+26 ;;470
+27 ;;21,"67544-0511-70 ")
+28 ;;1092
+29 ;;21,"67544-0596-53 ")
+30 ;;471
+31 ;;21,"67544-0596-60 ")
+32 ;;472
+33 ;;21,"67544-0596-80 ")
+34 ;;473
+35 ;;21,"67544-0596-96 ")
+36 ;;474
+37 ;;21,"67544-1081-80 ")
+38 ;;835
+39 ;;21,"67544-1081-94 ")
+40 ;;836
+41 ;;21,"67544-1129-70 ")
+42 ;;1093
+43 ;;21,"67544-1198-53 ")
+44 ;;165
+45 ;;21,"67544-1198-60 ")
+46 ;;166
+47 ;;21,"67544-1198-80 ")
+48 ;;167
+49 ;;21,"67544-1216-53 ")
+50 ;;683
+51 ;;21,"67544-1216-60 ")
+52 ;;684
+53 ;;21,"67544-1216-80 ")
+54 ;;685
+55 ;;21,"67544-1216-92 ")
+56 ;;686
+57 ;;21,"67544-1379-80 ")
+58 ;;475
+59 ;;21,"67544-1383-60 ")
+60 ;;687
+61 ;;21,"67544-1383-80 ")
+62 ;;688
+63 ;;21,"67767-0115-01 ")
+64 ;;852
+65 ;;21,"67877-0217-01 ")
+66 ;;229
+67 ;;21,"67877-0217-05 ")
+68 ;;230
+69 ;;21,"67877-0218-01 ")
+70 ;;553
+71 ;;21,"67877-0221-01 ")
+72 ;;12
+73 ;;21,"68071-0028-30 ")
+74 ;;1094
+75 ;;21,"68071-0028-60 ")
+76 ;;1095
+77 ;;21,"68084-0072-01 ")
+78 ;;837
+79 ;;21,"68084-0072-11 ")
+80 ;;838
+81 ;;21,"68084-0136-01 ")
+82 ;;978
+83 ;;21,"68084-0136-11 ")
+84 ;;979
+85 ;;21,"68084-0137-01 ")
+86 ;;1024
+87 ;;21,"68084-0137-11 ")
+88 ;;1025
+89 ;;21,"68084-0138-01 ")
+90 ;;1096
+91 ;;21,"68084-0138-11 ")
+92 ;;1097
+93 ;;21,"68115-0158-30 ")
+94 ;;1028
+95 ;;21,"68115-0158-60 ")
+96 ;;1029
+97 ;;21,"68115-0159-30 ")
+98 ;;1102
+99 ;;21,"68115-0159-60 ")
+100 ;;1103
+101 ;;21,"68115-0230-30 ")
+102 ;;197
+103 ;;21,"68115-0230-60 ")
+104 ;;198
+105 ;;21,"68115-0231-00 ")
+106 ;;507
+107 ;;21,"68115-0231-30 ")
+108 ;;508
+109 ;;21,"68115-0231-60 ")
+110 ;;509
+111 ;;21,"68115-0231-90 ")
+112 ;;510
+113 ;;21,"68115-0232-30 ")
+114 ;;716
+115 ;;21,"68115-0232-45 ")
+116 ;;717
+117 ;;21,"68115-0232-60 ")
+118 ;;718
+119 ;;21,"68115-0891-60 ")
+120 ;;1139
+121 ;;21,"68258-1016-01 ")
+122 ;;498
+123 ;;21,"68258-1077-01 ")
+124 ;;189
+125 ;;21,"68382-0028-01 ")
+126 ;;476
+127 ;;21,"68382-0028-05 ")
+128 ;;477
+129 ;;21,"68382-0028-10 ")
+130 ;;478
+131 ;;21,"68382-0029-01 ")
+132 ;;689
+133 ;;21,"68382-0029-05 ")
+134 ;;690
+135 ;;21,"68382-0029-10 ")
+136 ;;691
+137 ;;21,"68382-0030-01 ")
+138 ;;168
+139 ;;21,"68382-0030-05 ")
+140 ;;169
+141 ;;21,"68382-0030-10 ")
+142 ;;170
+143 ;;21,"68462-0159-01 ")
+144 ;;479
+145 ;;21,"68462-0159-05 ")
+146 ;;480
+147 ;;21,"68462-0159-10 ")
+148 ;;481
+149 ;;21,"68462-0159-18 ")
+150 ;;482
+151 ;;21,"68462-0159-90 ")
+152 ;;483
+153 ;;21,"68462-0160-01 ")
+154 ;;692
+155 ;;21,"68462-0160-05 ")
+156 ;;693
+157 ;;21,"68462-0160-10 ")
+158 ;;694
+159 ;;21,"68462-0160-18 ")
+160 ;;695
+161 ;;21,"68462-0160-90 ")
+162 ;;696
+163 ;;21,"68462-0161-01 ")
+164 ;;171
+165 ;;21,"68462-0161-05 ")
+166 ;;172
+167 ;;21,"68462-0161-10 ")
+168 ;;173
+169 ;;21,"68462-0161-18 ")
+170 ;;174
+171 ;;21,"68462-0161-90 ")
+172 ;;175
+173 ;;21,"68645-0120-59 ")
+174 ;;839
+175 ;;9002226,1198,.01)
+176 ;;BGP PQA BIGUANIDE NDC
+177 ;;9002226,1198,.02)
+178 ;;@
+179 ;;9002226,1198,.04)
+180 ;;n
+181 ;;9002226,1198,.06)
+182 ;;@
+183 ;;9002226,1198,.08)
+184 ;;@
+185 ;;9002226,1198,.09)
+186 ;;@
+187 ;;9002226,1198,.11)
+188 ;;@
+189 ;;9002226,1198,.12)
+190 ;;@
+191 ;;9002226,1198,.13)
+192 ;;1
+193 ;;9002226,1198,.14)
+194 ;;@
+195 ;;9002226,1198,.15)
+196 ;;@
+197 ;;9002226,1198,.16)
+198 ;;@
+199 ;;9002226,1198,.17)
+200 ;;@
+201 ;;9002226,1198,3101)
+202 ;;@
+203 ;;9002226.02101,"1198,00003-4221-11 ",.01)
+204 ;;00003-4221-11
+205 ;;9002226.02101,"1198,00003-4221-11 ",.02)
+206 ;;00003-4221-11
+207 ;;9002226.02101,"1198,00003-4222-16 ",.01)
+208 ;;00003-4222-16
+209 ;;9002226.02101,"1198,00003-4222-16 ",.02)
+210 ;;00003-4222-16
+211 ;;9002226.02101,"1198,00003-4223-11 ",.01)
+212 ;;00003-4223-11
+213 ;;9002226.02101,"1198,00003-4223-11 ",.02)
+214 ;;00003-4223-11
+215 ;;9002226.02101,"1198,00006-0575-52 ",.01)
+216 ;;00006-0575-52
+217 ;;9002226.02101,"1198,00006-0575-52 ",.02)
+218 ;;00006-0575-52
+219 ;;9002226.02101,"1198,00006-0575-61 ",.01)
+220 ;;00006-0575-61
+221 ;;9002226.02101,"1198,00006-0575-61 ",.02)
+222 ;;00006-0575-61
+223 ;;9002226.02101,"1198,00006-0575-62 ",.01)
+224 ;;00006-0575-62
+225 ;;9002226.02101,"1198,00006-0575-62 ",.02)
+226 ;;00006-0575-62
+227 ;;9002226.02101,"1198,00006-0575-82 ",.01)
+228 ;;00006-0575-82
+229 ;;9002226.02101,"1198,00006-0575-82 ",.02)
+230 ;;00006-0575-82
+231 ;;9002226.02101,"1198,00006-0577-52 ",.01)
+232 ;;00006-0577-52
+233 ;;9002226.02101,"1198,00006-0577-52 ",.02)
+234 ;;00006-0577-52
+235 ;;9002226.02101,"1198,00006-0577-61 ",.01)
+236 ;;00006-0577-61
+237 ;;9002226.02101,"1198,00006-0577-61 ",.02)
+238 ;;00006-0577-61
+239 ;;9002226.02101,"1198,00006-0577-62 ",.01)
+240 ;;00006-0577-62
+241 ;;9002226.02101,"1198,00006-0577-62 ",.02)
+242 ;;00006-0577-62
+243 ;;9002226.02101,"1198,00006-0577-82 ",.01)
+244 ;;00006-0577-82
+245 ;;9002226.02101,"1198,00006-0577-82 ",.02)
+246 ;;00006-0577-82
+247 ;;9002226.02101,"1198,00007-3163-18 ",.01)
+248 ;;00007-3163-18
+249 ;;9002226.02101,"1198,00007-3163-18 ",.02)
+250 ;;00007-3163-18
+251 ;;9002226.02101,"1198,00007-3164-18 ",.01)
+252 ;;00007-3164-18
+253 ;;9002226.02101,"1198,00007-3164-18 ",.02)
+254 ;;00007-3164-18
+255 ;;9002226.02101,"1198,00007-3166-18 ",.01)
+256 ;;00007-3166-18
+257 ;;9002226.02101,"1198,00007-3166-18 ",.02)
+258 ;;00007-3166-18
+259 ;;9002226.02101,"1198,00007-3166-20 ",.01)
+260 ;;00007-3166-20
