BGP21J9 ;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-0566-94 ")
;;1182
;;21,"67544-0613-53 ")
;;1183
;;21,"67544-0613-60 ")
;;1184
;;21,"67544-0613-70 ")
;;1185
;;21,"67544-0613-80 ")
;;1186
;;21,"67544-0613-90 ")
;;1187
;;21,"67544-0613-92 ")
;;1188
;;21,"67544-0613-94 ")
;;1189
;;21,"67544-0643-80 ")
;;1190
;;21,"67544-0643-94 ")
;;1191
;;21,"67544-0653-53 ")
;;1192
;;21,"67544-0653-60 ")
;;1193
;;21,"67544-0653-70 ")
;;1194
;;21,"67544-0653-80 ")
;;1195
;;21,"67544-0653-90 ")
;;1196
;;21,"67544-0653-92 ")
;;1197
;;21,"67544-0653-94 ")
;;1198
;;21,"67544-0661-41 ")
;;926
;;21,"67544-0661-81 ")
;;927
;;21,"67544-0751-60 ")
;;507
;;21,"67544-0751-80 ")
;;508
;;21,"67544-0756-60 ")
;;661
;;21,"67544-0756-80 ")
;;662
;;21,"67544-0808-60 ")
;;742
;;21,"67544-0875-60 ")
;;996
;;21,"67544-0875-80 ")
;;997
;;21,"67544-0927-60 ")
;;937
;;21,"67544-1129-70 ")
;;180
;;21,"68071-0028-30 ")
;;181
;;21,"68071-0028-60 ")
;;182
;;21,"68084-0111-01 ")
;;801
;;21,"68084-0111-11 ")
;;802
;;21,"68084-0112-01 ")
;;743
;;21,"68084-0112-11 ")
;;744
;;21,"68084-0136-01 ")
;;65
;;21,"68084-0136-11 ")
;;66
;;21,"68084-0137-01 ")
;;111
;;21,"68084-0137-11 ")
;;112
;;21,"68084-0138-01 ")
;;183
;;21,"68084-0138-11 ")
;;184
;;21,"68084-0295-11 ")
;;764
;;21,"68084-0295-21 ")
;;765
;;21,"68084-0326-01 ")
;;319
;;21,"68084-0326-11 ")
;;320
;;21,"68084-0327-01 ")
;;378
;;21,"68084-0327-11 ")
;;379
;;21,"68115-0154-30 ")
;;519
;;21,"68115-0154-60 ")
;;520
;;21,"68115-0155-30 ")
;;674
;;21,"68115-0155-60 ")
;;675
;;21,"68115-0155-90 ")
;;676
;;21,"68115-0156-30 ")
;;748
;;21,"68115-0157-30 ")
;;806
;;21,"68115-0158-30 ")
;;115
;;21,"68115-0158-60 ")
;;116
;;21,"68115-0159-30 ")
;;189
;;21,"68115-0159-60 ")
;;190
;;21,"68115-0160-30 ")
;;1003
;;21,"68115-0161-30 ")
;;1211
;;21,"68115-0161-60 ")
;;1212
;;21,"68115-0616-00 ")
;;807
;;21,"68115-0622-00 ")
;;888
;;21,"68115-0840-00 ")
;;382
;;21,"68258-1012-01 ")
;;671
;;21,"68258-1013-01 ")
;;516
;;21,"68258-1014-01 ")
;;1208
;;21,"68258-1051-01 ")
;;746
;;21,"68645-0150-54 ")
;;663
;;21,"68645-0151-59 ")
;;509
;;21,"68645-0210-54 ")
;;998
;;21,"68645-0211-54 ")
;;1199
;;9002226,1199,.01)
;;BGP PQA SULFONYLUREA NDC
;;9002226,1199,.02)
;;@
;;9002226,1199,.04)
;;n
;;9002226,1199,.06)
;;@
;;9002226,1199,.08)
;;@
;;9002226,1199,.09)
;;@
;;9002226,1199,.11)
;;@
;;9002226,1199,.12)
;;@
;;9002226,1199,.13)
;;1
;;9002226,1199,.14)
;;@
;;9002226,1199,.15)
;;@
;;9002226,1199,.16)
;;@
;;9002226,1199,.17)
;;@
;;9002226,1199,3101)
;;@
;;9002226.02101,"1199,00007-3148-13 ",.01)
;;00007-3148-13
;;9002226.02101,"1199,00007-3148-13 ",.02)
;;00007-3148-13
;;9002226.02101,"1199,00007-3149-13 ",.01)
;;00007-3149-13
;;9002226.02101,"1199,00007-3149-13 ",.02)
;;00007-3149-13
;;9002226.02101,"1199,00007-3151-13 ",.01)
;;00007-3151-13
;;9002226.02101,"1199,00007-3151-13 ",.02)
;;00007-3151-13
;;9002226.02101,"1199,00007-3152-13 ",.01)
;;00007-3152-13
;;9002226.02101,"1199,00007-3152-13 ",.02)
;;00007-3152-13
;;9002226.02101,"1199,00007-3153-13 ",.01)
;;00007-3153-13
;;9002226.02101,"1199,00007-3153-13 ",.02)
;;00007-3153-13
;;9002226.02101,"1199,00009-0070-02 ",.01)
;;00009-0070-02
;;9002226.02101,"1199,00009-0070-02 ",.02)
;;00009-0070-02
;;9002226.02101,"1199,00009-0114-04 ",.01)
;;00009-0114-04
;;9002226.02101,"1199,00009-0114-04 ",.02)
;;00009-0114-04
;;9002226.02101,"1199,00009-0114-05 ",.01)
;;00009-0114-05
;;9002226.02101,"1199,00009-0114-05 ",.02)
;;00009-0114-05
;;9002226.02101,"1199,00009-0131-01 ",.01)
;;00009-0131-01
;;9002226.02101,"1199,00009-0131-01 ",.02)
;;00009-0131-01
;;9002226.02101,"1199,00009-0141-01 ",.01)
;;00009-0141-01
;;9002226.02101,"1199,00009-0141-01 ",.02)
;;00009-0141-01
;;9002226.02101,"1199,00009-0141-02 ",.01)
;;00009-0141-02
;;9002226.02101,"1199,00009-0141-02 ",.02)
;;00009-0141-02
;;9002226.02101,"1199,00009-0171-03 ",.01)
;;00009-0171-03
;;9002226.02101,"1199,00009-0171-03 ",.02)
;;00009-0171-03
;;9002226.02101,"1199,00009-0171-05 ",.01)
;;00009-0171-05
;;9002226.02101,"1199,00009-0171-05 ",.02)
;;00009-0171-05
;;9002226.02101,"1199,00009-0171-06 ",.01)
;;00009-0171-06
;;9002226.02101,"1199,00009-0171-06 ",.02)
;;00009-0171-06
;;9002226.02101,"1199,00009-0171-07 ",.01)
;;00009-0171-07
;;9002226.02101,"1199,00009-0171-07 ",.02)
;;00009-0171-07
;;9002226.02101,"1199,00009-0341-01 ",.01)
;;00009-0341-01
;;9002226.02101,"1199,00009-0341-01 ",.02)
;;00009-0341-01
;;9002226.02101,"1199,00009-0341-02 ",.01)
;;00009-0341-02
;;9002226.02101,"1199,00009-0341-02 ",.02)
;;00009-0341-02
;;9002226.02101,"1199,00009-0352-01 ",.01)
;;00009-0352-01
;;9002226.02101,"1199,00009-0352-01 ",.02)
;;00009-0352-01
;;9002226.02101,"1199,00009-0352-02 ",.01)
;;00009-0352-02
;;9002226.02101,"1199,00009-0352-02 ",.02)
;;00009-0352-02
BGP21J9 ;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-0566-94 ")
+2 ;;1182
+3 ;;21,"67544-0613-53 ")
+4 ;;1183
+5 ;;21,"67544-0613-60 ")
+6 ;;1184
+7 ;;21,"67544-0613-70 ")
+8 ;;1185
+9 ;;21,"67544-0613-80 ")
+10 ;;1186
+11 ;;21,"67544-0613-90 ")
+12 ;;1187
+13 ;;21,"67544-0613-92 ")
+14 ;;1188
+15 ;;21,"67544-0613-94 ")
+16 ;;1189
+17 ;;21,"67544-0643-80 ")
+18 ;;1190
+19 ;;21,"67544-0643-94 ")
+20 ;;1191
+21 ;;21,"67544-0653-53 ")
+22 ;;1192
+23 ;;21,"67544-0653-60 ")
+24 ;;1193
+25 ;;21,"67544-0653-70 ")
+26 ;;1194
+27 ;;21,"67544-0653-80 ")
+28 ;;1195
+29 ;;21,"67544-0653-90 ")
+30 ;;1196
+31 ;;21,"67544-0653-92 ")
+32 ;;1197
+33 ;;21,"67544-0653-94 ")
+34 ;;1198
+35 ;;21,"67544-0661-41 ")
+36 ;;926
+37 ;;21,"67544-0661-81 ")
+38 ;;927
+39 ;;21,"67544-0751-60 ")
+40 ;;507
+41 ;;21,"67544-0751-80 ")
+42 ;;508
+43 ;;21,"67544-0756-60 ")
+44 ;;661
+45 ;;21,"67544-0756-80 ")
+46 ;;662
+47 ;;21,"67544-0808-60 ")
+48 ;;742
+49 ;;21,"67544-0875-60 ")
+50 ;;996
+51 ;;21,"67544-0875-80 ")
+52 ;;997
+53 ;;21,"67544-0927-60 ")
+54 ;;937
+55 ;;21,"67544-1129-70 ")
+56 ;;180
+57 ;;21,"68071-0028-30 ")
+58 ;;181
+59 ;;21,"68071-0028-60 ")
+60 ;;182
+61 ;;21,"68084-0111-01 ")
+62 ;;801
+63 ;;21,"68084-0111-11 ")
+64 ;;802
+65 ;;21,"68084-0112-01 ")
+66 ;;743
+67 ;;21,"68084-0112-11 ")
+68 ;;744
+69 ;;21,"68084-0136-01 ")
+70 ;;65
+71 ;;21,"68084-0136-11 ")
+72 ;;66
+73 ;;21,"68084-0137-01 ")
+74 ;;111
+75 ;;21,"68084-0137-11 ")
+76 ;;112
+77 ;;21,"68084-0138-01 ")
+78 ;;183
+79 ;;21,"68084-0138-11 ")
+80 ;;184
+81 ;;21,"68084-0295-11 ")
+82 ;;764
+83 ;;21,"68084-0295-21 ")
+84 ;;765
+85 ;;21,"68084-0326-01 ")
+86 ;;319
+87 ;;21,"68084-0326-11 ")
+88 ;;320
+89 ;;21,"68084-0327-01 ")
+90 ;;378
+91 ;;21,"68084-0327-11 ")
+92 ;;379
+93 ;;21,"68115-0154-30 ")
+94 ;;519
+95 ;;21,"68115-0154-60 ")
+96 ;;520
+97 ;;21,"68115-0155-30 ")
+98 ;;674
+99 ;;21,"68115-0155-60 ")
+100 ;;675
+101 ;;21,"68115-0155-90 ")
+102 ;;676
+103 ;;21,"68115-0156-30 ")
+104 ;;748
+105 ;;21,"68115-0157-30 ")
+106 ;;806
+107 ;;21,"68115-0158-30 ")
+108 ;;115
+109 ;;21,"68115-0158-60 ")
+110 ;;116
+111 ;;21,"68115-0159-30 ")
+112 ;;189
+113 ;;21,"68115-0159-60 ")
+114 ;;190
+115 ;;21,"68115-0160-30 ")
+116 ;;1003
+117 ;;21,"68115-0161-30 ")
+118 ;;1211
+119 ;;21,"68115-0161-60 ")
+120 ;;1212
+121 ;;21,"68115-0616-00 ")
+122 ;;807
+123 ;;21,"68115-0622-00 ")
+124 ;;888
+125 ;;21,"68115-0840-00 ")
+126 ;;382
+127 ;;21,"68258-1012-01 ")
+128 ;;671
+129 ;;21,"68258-1013-01 ")
+130 ;;516
+131 ;;21,"68258-1014-01 ")
+132 ;;1208
+133 ;;21,"68258-1051-01 ")
+134 ;;746
+135 ;;21,"68645-0150-54 ")
+136 ;;663
+137 ;;21,"68645-0151-59 ")
+138 ;;509
+139 ;;21,"68645-0210-54 ")
+140 ;;998
+141 ;;21,"68645-0211-54 ")
+142 ;;1199
+143 ;;9002226,1199,.01)
+144 ;;BGP PQA SULFONYLUREA NDC
+145 ;;9002226,1199,.02)
+146 ;;@
+147 ;;9002226,1199,.04)
+148 ;;n
+149 ;;9002226,1199,.06)
+150 ;;@
+151 ;;9002226,1199,.08)
+152 ;;@
+153 ;;9002226,1199,.09)
+154 ;;@
+155 ;;9002226,1199,.11)
+156 ;;@
+157 ;;9002226,1199,.12)
+158 ;;@
+159 ;;9002226,1199,.13)
+160 ;;1
+161 ;;9002226,1199,.14)
+162 ;;@
+163 ;;9002226,1199,.15)
+164 ;;@
+165 ;;9002226,1199,.16)
+166 ;;@
+167 ;;9002226,1199,.17)
+168 ;;@
+169 ;;9002226,1199,3101)
+170 ;;@
+171 ;;9002226.02101,"1199,00007-3148-13 ",.01)
+172 ;;00007-3148-13
+173 ;;9002226.02101,"1199,00007-3148-13 ",.02)
+174 ;;00007-3148-13
+175 ;;9002226.02101,"1199,00007-3149-13 ",.01)
+176 ;;00007-3149-13
+177 ;;9002226.02101,"1199,00007-3149-13 ",.02)
+178 ;;00007-3149-13
+179 ;;9002226.02101,"1199,00007-3151-13 ",.01)
+180 ;;00007-3151-13
+181 ;;9002226.02101,"1199,00007-3151-13 ",.02)
+182 ;;00007-3151-13
+183 ;;9002226.02101,"1199,00007-3152-13 ",.01)
+184 ;;00007-3152-13
+185 ;;9002226.02101,"1199,00007-3152-13 ",.02)
+186 ;;00007-3152-13
+187 ;;9002226.02101,"1199,00007-3153-13 ",.01)
+188 ;;00007-3153-13
+189 ;;9002226.02101,"1199,00007-3153-13 ",.02)
+190 ;;00007-3153-13
+191 ;;9002226.02101,"1199,00009-0070-02 ",.01)
+192 ;;00009-0070-02
+193 ;;9002226.02101,"1199,00009-0070-02 ",.02)
+194 ;;00009-0070-02
+195 ;;9002226.02101,"1199,00009-0114-04 ",.01)
+196 ;;00009-0114-04
+197 ;;9002226.02101,"1199,00009-0114-04 ",.02)
+198 ;;00009-0114-04
+199 ;;9002226.02101,"1199,00009-0114-05 ",.01)
+200 ;;00009-0114-05
+201 ;;9002226.02101,"1199,00009-0114-05 ",.02)
+202 ;;00009-0114-05
+203 ;;9002226.02101,"1199,00009-0131-01 ",.01)
+204 ;;00009-0131-01
+205 ;;9002226.02101,"1199,00009-0131-01 ",.02)
+206 ;;00009-0131-01
+207 ;;9002226.02101,"1199,00009-0141-01 ",.01)
+208 ;;00009-0141-01
+209 ;;9002226.02101,"1199,00009-0141-01 ",.02)
+210 ;;00009-0141-01
+211 ;;9002226.02101,"1199,00009-0141-02 ",.01)
+212 ;;00009-0141-02
+213 ;;9002226.02101,"1199,00009-0141-02 ",.02)
+214 ;;00009-0141-02
+215 ;;9002226.02101,"1199,00009-0171-03 ",.01)
+216 ;;00009-0171-03
+217 ;;9002226.02101,"1199,00009-0171-03 ",.02)
+218 ;;00009-0171-03
+219 ;;9002226.02101,"1199,00009-0171-05 ",.01)
+220 ;;00009-0171-05
+221 ;;9002226.02101,"1199,00009-0171-05 ",.02)
+222 ;;00009-0171-05
+223 ;;9002226.02101,"1199,00009-0171-06 ",.01)
+224 ;;00009-0171-06
+225 ;;9002226.02101,"1199,00009-0171-06 ",.02)
+226 ;;00009-0171-06
+227 ;;9002226.02101,"1199,00009-0171-07 ",.01)
+228 ;;00009-0171-07
+229 ;;9002226.02101,"1199,00009-0171-07 ",.02)
+230 ;;00009-0171-07
+231 ;;9002226.02101,"1199,00009-0341-01 ",.01)
+232 ;;00009-0341-01
+233 ;;9002226.02101,"1199,00009-0341-01 ",.02)
+234 ;;00009-0341-01
+235 ;;9002226.02101,"1199,00009-0341-02 ",.01)
+236 ;;00009-0341-02
+237 ;;9002226.02101,"1199,00009-0341-02 ",.02)
+238 ;;00009-0341-02
+239 ;;9002226.02101,"1199,00009-0352-01 ",.01)
+240 ;;00009-0352-01
+241 ;;9002226.02101,"1199,00009-0352-01 ",.02)
+242 ;;00009-0352-01
+243 ;;9002226.02101,"1199,00009-0352-02 ",.01)
+244 ;;00009-0352-02
+245 ;;9002226.02101,"1199,00009-0352-02 ",.02)
+246 ;;00009-0352-02
