BGP21H15 ;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,"68115-0350-90 ")
;;1915
;;21,"68115-0368-00 ")
;;2136
;;21,"68115-0368-30 ")
;;2137
;;21,"68115-0441-30 ")
;;1849
;;21,"68115-0606-00 ")
;;1161
;;21,"68115-0606-15 ")
;;1162
;;21,"68115-0606-30 ")
;;1163
;;21,"68115-0612-90 ")
;;752
;;21,"68115-0636-00 ")
;;1881
;;21,"68115-0650-00 ")
;;34
;;21,"68115-0673-00 ")
;;132
;;21,"68115-0673-30 ")
;;133
;;21,"68115-0778-00 ")
;;93
;;21,"68115-0790-00 ")
;;1331
;;21,"68115-0890-15 ")
;;642
;;21,"68115-0890-30 ")
;;643
;;21,"68115-0890-60 ")
;;644
;;21,"68115-0890-90 ")
;;645
;;21,"68180-0750-09 ")
;;474
;;21,"68180-0751-03 ")
;;630
;;21,"68180-0751-09 ")
;;631
;;21,"68180-0752-03 ")
;;378
;;21,"68180-0752-09 ")
;;379
;;21,"68180-0755-01 ")
;;58
;;21,"68180-0756-01 ")
;;91
;;21,"68180-0756-02 ")
;;92
;;21,"68180-0757-01 ")
;;130
;;21,"68180-0757-02 ")
;;131
;;21,"68180-0758-01 ")
;;32
;;21,"68180-0758-02 ")
;;33
;;21,"68258-1019-01 ")
;;1621
;;21,"68258-1020-01 ")
;;1666
;;21,"68258-1021-01 ")
;;1700
;;21,"68258-6014-03 ")
;;1224
;;21,"68258-9113-01 ")
;;483
;;21,"68382-0121-01 ")
;;475
;;21,"68382-0121-05 ")
;;476
;;21,"68382-0121-16 ")
;;477
;;21,"68382-0122-01 ")
;;632
;;21,"68382-0122-05 ")
;;633
;;21,"68382-0122-16 ")
;;634
;;21,"68382-0123-01 ")
;;380
;;21,"68382-0123-05 ")
;;381
;;21,"68382-0123-16 ")
;;382
;;21,"68462-0210-10 ")
;;478
;;21,"68462-0211-10 ")
;;635
;;21,"68462-0212-10 ")
;;383
;;21,"68462-0233-01 ")
;;1314
;;21,"68462-0234-01 ")
;;1337
;;21,"68462-0235-01 ")
;;1272
;;21,"68462-0260-01 ")
;;2125
;;21,"68462-0260-05 ")
;;2126
;;21,"68462-0294-01 ")
;;146
;;21,"68462-0295-01 ")
;;153
;;21,"68462-0296-01 ")
;;158
;;21,"68462-0329-01 ")
;;166
;;9002226,1197,.01)
;;BGP PQA CCB NDC
;;9002226,1197,.02)
;;@
;;9002226,1197,.04)
;;n
;;9002226,1197,.06)
;;@
;;9002226,1197,.08)
;;@
;;9002226,1197,.09)
;;@
;;9002226,1197,.11)
;;@
;;9002226,1197,.12)
;;@
;;9002226,1197,.13)
;;1
;;9002226,1197,.14)
;;@
;;9002226,1197,.15)
;;@
;;9002226,1197,.16)
;;@
;;9002226,1197,.17)
;;@
;;9002226,1197,3101)
;;@
;;9002226.02101,"1197,00004-0180-22 ",.01)
;;00004-0180-22
;;9002226.02101,"1197,00004-0180-22 ",.02)
;;00004-0180-22
;;9002226.02101,"1197,00004-0180-91 ",.01)
;;00004-0180-91
;;9002226.02101,"1197,00004-0180-91 ",.02)
;;00004-0180-91
;;9002226.02101,"1197,00004-0181-22 ",.01)
;;00004-0181-22
;;9002226.02101,"1197,00004-0181-22 ",.02)
;;00004-0181-22
;;9002226.02101,"1197,00004-0181-91 ",.01)
;;00004-0181-91
;;9002226.02101,"1197,00004-0181-91 ",.02)
;;00004-0181-91
;;9002226.02101,"1197,00004-0182-22 ",.01)
;;00004-0182-22
;;9002226.02101,"1197,00004-0182-22 ",.02)
;;00004-0182-22
;;9002226.02101,"1197,00004-0183-01 ",.01)
;;00004-0183-01
;;9002226.02101,"1197,00004-0183-01 ",.02)
;;00004-0183-01
;;9002226.02101,"1197,00004-0184-01 ",.01)
;;00004-0184-01
;;9002226.02101,"1197,00004-0184-01 ",.02)
;;00004-0184-01
;;9002226.02101,"1197,00025-1771-31 ",.01)
;;00025-1771-31
;;9002226.02101,"1197,00025-1771-31 ",.02)
;;00025-1771-31
;;9002226.02101,"1197,00025-1851-31 ",.01)
;;00025-1851-31
;;9002226.02101,"1197,00025-1851-31 ",.02)
;;00025-1851-31
;;9002226.02101,"1197,00025-1851-51 ",.01)
;;00025-1851-51
;;9002226.02101,"1197,00025-1851-51 ",.02)
;;00025-1851-51
;;9002226.02101,"1197,00025-1851-52 ",.01)
;;00025-1851-52
;;9002226.02101,"1197,00025-1851-52 ",.02)
;;00025-1851-52
;;9002226.02101,"1197,00025-1861-31 ",.01)
;;00025-1861-31
;;9002226.02101,"1197,00025-1861-31 ",.02)
;;00025-1861-31
;;9002226.02101,"1197,00025-1861-52 ",.01)
;;00025-1861-52
;;9002226.02101,"1197,00025-1861-52 ",.02)
;;00025-1861-52
;;9002226.02101,"1197,00025-1891-31 ",.01)
;;00025-1891-31
;;9002226.02101,"1197,00025-1891-31 ",.02)
;;00025-1891-31
;;9002226.02101,"1197,00025-1891-34 ",.01)
;;00025-1891-34
;;9002226.02101,"1197,00025-1891-34 ",.02)
;;00025-1891-34
;;9002226.02101,"1197,00025-1891-51 ",.01)
;;00025-1891-51
;;9002226.02101,"1197,00025-1891-51 ",.02)
;;00025-1891-51
;;9002226.02101,"1197,00025-1901-31 ",.01)
;;00025-1901-31
;;9002226.02101,"1197,00025-1901-31 ",.02)
;;00025-1901-31
;;9002226.02101,"1197,00025-1901-34 ",.01)
;;00025-1901-34
;;9002226.02101,"1197,00025-1901-34 ",.02)
;;00025-1901-34
;;9002226.02101,"1197,00025-1911-31 ",.01)
;;00025-1911-31
;;9002226.02101,"1197,00025-1911-31 ",.02)
;;00025-1911-31
;;9002226.02101,"1197,00025-1911-34 ",.01)
;;00025-1911-34
;;9002226.02101,"1197,00025-1911-34 ",.02)
;;00025-1911-34
;;9002226.02101,"1197,00025-2011-31 ",.01)
;;00025-2011-31
;;9002226.02101,"1197,00025-2011-31 ",.02)
;;00025-2011-31
;;9002226.02101,"1197,00025-2011-34 ",.01)
;;00025-2011-34
;;9002226.02101,"1197,00025-2011-34 ",.02)
;;00025-2011-34
;;9002226.02101,"1197,00025-2021-31 ",.01)
;;00025-2021-31
;;9002226.02101,"1197,00025-2021-31 ",.02)
;;00025-2021-31
;;9002226.02101,"1197,00025-2021-34 ",.01)
;;00025-2021-34
BGP21H15 ;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,"68115-0350-90 ")
+2 ;;1915
+3 ;;21,"68115-0368-00 ")
+4 ;;2136
+5 ;;21,"68115-0368-30 ")
+6 ;;2137
+7 ;;21,"68115-0441-30 ")
+8 ;;1849
+9 ;;21,"68115-0606-00 ")
+10 ;;1161
+11 ;;21,"68115-0606-15 ")
+12 ;;1162
+13 ;;21,"68115-0606-30 ")
+14 ;;1163
+15 ;;21,"68115-0612-90 ")
+16 ;;752
+17 ;;21,"68115-0636-00 ")
+18 ;;1881
+19 ;;21,"68115-0650-00 ")
+20 ;;34
+21 ;;21,"68115-0673-00 ")
+22 ;;132
+23 ;;21,"68115-0673-30 ")
+24 ;;133
+25 ;;21,"68115-0778-00 ")
+26 ;;93
+27 ;;21,"68115-0790-00 ")
+28 ;;1331
+29 ;;21,"68115-0890-15 ")
+30 ;;642
+31 ;;21,"68115-0890-30 ")
+32 ;;643
+33 ;;21,"68115-0890-60 ")
+34 ;;644
+35 ;;21,"68115-0890-90 ")
+36 ;;645
+37 ;;21,"68180-0750-09 ")
+38 ;;474
+39 ;;21,"68180-0751-03 ")
+40 ;;630
+41 ;;21,"68180-0751-09 ")
+42 ;;631
+43 ;;21,"68180-0752-03 ")
+44 ;;378
+45 ;;21,"68180-0752-09 ")
+46 ;;379
+47 ;;21,"68180-0755-01 ")
+48 ;;58
+49 ;;21,"68180-0756-01 ")
+50 ;;91
+51 ;;21,"68180-0756-02 ")
+52 ;;92
+53 ;;21,"68180-0757-01 ")
+54 ;;130
+55 ;;21,"68180-0757-02 ")
+56 ;;131
+57 ;;21,"68180-0758-01 ")
+58 ;;32
+59 ;;21,"68180-0758-02 ")
+60 ;;33
+61 ;;21,"68258-1019-01 ")
+62 ;;1621
+63 ;;21,"68258-1020-01 ")
+64 ;;1666
+65 ;;21,"68258-1021-01 ")
+66 ;;1700
+67 ;;21,"68258-6014-03 ")
+68 ;;1224
+69 ;;21,"68258-9113-01 ")
+70 ;;483
+71 ;;21,"68382-0121-01 ")
+72 ;;475
+73 ;;21,"68382-0121-05 ")
+74 ;;476
+75 ;;21,"68382-0121-16 ")
+76 ;;477
+77 ;;21,"68382-0122-01 ")
+78 ;;632
+79 ;;21,"68382-0122-05 ")
+80 ;;633
+81 ;;21,"68382-0122-16 ")
+82 ;;634
+83 ;;21,"68382-0123-01 ")
+84 ;;380
+85 ;;21,"68382-0123-05 ")
+86 ;;381
+87 ;;21,"68382-0123-16 ")
+88 ;;382
+89 ;;21,"68462-0210-10 ")
+90 ;;478
+91 ;;21,"68462-0211-10 ")
+92 ;;635
+93 ;;21,"68462-0212-10 ")
+94 ;;383
+95 ;;21,"68462-0233-01 ")
+96 ;;1314
+97 ;;21,"68462-0234-01 ")
+98 ;;1337
+99 ;;21,"68462-0235-01 ")
+100 ;;1272
+101 ;;21,"68462-0260-01 ")
+102 ;;2125
+103 ;;21,"68462-0260-05 ")
+104 ;;2126
+105 ;;21,"68462-0294-01 ")
+106 ;;146
+107 ;;21,"68462-0295-01 ")
+108 ;;153
+109 ;;21,"68462-0296-01 ")
+110 ;;158
+111 ;;21,"68462-0329-01 ")
+112 ;;166
+113 ;;9002226,1197,.01)
+114 ;;BGP PQA CCB NDC
+115 ;;9002226,1197,.02)
+116 ;;@
+117 ;;9002226,1197,.04)
+118 ;;n
+119 ;;9002226,1197,.06)
+120 ;;@
+121 ;;9002226,1197,.08)
+122 ;;@
+123 ;;9002226,1197,.09)
+124 ;;@
+125 ;;9002226,1197,.11)
+126 ;;@
+127 ;;9002226,1197,.12)
+128 ;;@
+129 ;;9002226,1197,.13)
+130 ;;1
+131 ;;9002226,1197,.14)
+132 ;;@
+133 ;;9002226,1197,.15)
+134 ;;@
+135 ;;9002226,1197,.16)
+136 ;;@
+137 ;;9002226,1197,.17)
+138 ;;@
+139 ;;9002226,1197,3101)
+140 ;;@
+141 ;;9002226.02101,"1197,00004-0180-22 ",.01)
+142 ;;00004-0180-22
+143 ;;9002226.02101,"1197,00004-0180-22 ",.02)
+144 ;;00004-0180-22
+145 ;;9002226.02101,"1197,00004-0180-91 ",.01)
+146 ;;00004-0180-91
+147 ;;9002226.02101,"1197,00004-0180-91 ",.02)
+148 ;;00004-0180-91
+149 ;;9002226.02101,"1197,00004-0181-22 ",.01)
+150 ;;00004-0181-22
+151 ;;9002226.02101,"1197,00004-0181-22 ",.02)
+152 ;;00004-0181-22
+153 ;;9002226.02101,"1197,00004-0181-91 ",.01)
+154 ;;00004-0181-91
+155 ;;9002226.02101,"1197,00004-0181-91 ",.02)
+156 ;;00004-0181-91
+157 ;;9002226.02101,"1197,00004-0182-22 ",.01)
+158 ;;00004-0182-22
+159 ;;9002226.02101,"1197,00004-0182-22 ",.02)
+160 ;;00004-0182-22
+161 ;;9002226.02101,"1197,00004-0183-01 ",.01)
+162 ;;00004-0183-01
+163 ;;9002226.02101,"1197,00004-0183-01 ",.02)
+164 ;;00004-0183-01
+165 ;;9002226.02101,"1197,00004-0184-01 ",.01)
+166 ;;00004-0184-01
+167 ;;9002226.02101,"1197,00004-0184-01 ",.02)
+168 ;;00004-0184-01
+169 ;;9002226.02101,"1197,00025-1771-31 ",.01)
+170 ;;00025-1771-31
+171 ;;9002226.02101,"1197,00025-1771-31 ",.02)
+172 ;;00025-1771-31
+173 ;;9002226.02101,"1197,00025-1851-31 ",.01)
+174 ;;00025-1851-31
+175 ;;9002226.02101,"1197,00025-1851-31 ",.02)
+176 ;;00025-1851-31
+177 ;;9002226.02101,"1197,00025-1851-51 ",.01)
+178 ;;00025-1851-51
+179 ;;9002226.02101,"1197,00025-1851-51 ",.02)
+180 ;;00025-1851-51
+181 ;;9002226.02101,"1197,00025-1851-52 ",.01)
+182 ;;00025-1851-52
+183 ;;9002226.02101,"1197,00025-1851-52 ",.02)
+184 ;;00025-1851-52
+185 ;;9002226.02101,"1197,00025-1861-31 ",.01)
+186 ;;00025-1861-31
+187 ;;9002226.02101,"1197,00025-1861-31 ",.02)
+188 ;;00025-1861-31
+189 ;;9002226.02101,"1197,00025-1861-52 ",.01)
+190 ;;00025-1861-52
+191 ;;9002226.02101,"1197,00025-1861-52 ",.02)
+192 ;;00025-1861-52
+193 ;;9002226.02101,"1197,00025-1891-31 ",.01)
+194 ;;00025-1891-31
+195 ;;9002226.02101,"1197,00025-1891-31 ",.02)
+196 ;;00025-1891-31
+197 ;;9002226.02101,"1197,00025-1891-34 ",.01)
+198 ;;00025-1891-34
+199 ;;9002226.02101,"1197,00025-1891-34 ",.02)
+200 ;;00025-1891-34
+201 ;;9002226.02101,"1197,00025-1891-51 ",.01)
+202 ;;00025-1891-51
+203 ;;9002226.02101,"1197,00025-1891-51 ",.02)
+204 ;;00025-1891-51
+205 ;;9002226.02101,"1197,00025-1901-31 ",.01)
+206 ;;00025-1901-31
+207 ;;9002226.02101,"1197,00025-1901-31 ",.02)
+208 ;;00025-1901-31
+209 ;;9002226.02101,"1197,00025-1901-34 ",.01)
+210 ;;00025-1901-34
+211 ;;9002226.02101,"1197,00025-1901-34 ",.02)
+212 ;;00025-1901-34
+213 ;;9002226.02101,"1197,00025-1911-31 ",.01)
+214 ;;00025-1911-31
+215 ;;9002226.02101,"1197,00025-1911-31 ",.02)
+216 ;;00025-1911-31
+217 ;;9002226.02101,"1197,00025-1911-34 ",.01)
+218 ;;00025-1911-34
+219 ;;9002226.02101,"1197,00025-1911-34 ",.02)
+220 ;;00025-1911-34
+221 ;;9002226.02101,"1197,00025-2011-31 ",.01)
+222 ;;00025-2011-31
+223 ;;9002226.02101,"1197,00025-2011-31 ",.02)
+224 ;;00025-2011-31
+225 ;;9002226.02101,"1197,00025-2011-34 ",.01)
+226 ;;00025-2011-34
+227 ;;9002226.02101,"1197,00025-2011-34 ",.02)
+228 ;;00025-2011-34
+229 ;;9002226.02101,"1197,00025-2021-31 ",.01)
+230 ;;00025-2021-31
+231 ;;9002226.02101,"1197,00025-2021-31 ",.02)
+232 ;;00025-2021-31
+233 ;;9002226.02101,"1197,00025-2021-34 ",.01)
+234 ;;00025-2021-34
