BGP9TXSK ; 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)
;;9002226.02101,"710,40285-9 ",.02)
;;40285-9
;;9002226.02101,"710,40286-7 ",.01)
;;40286-7
;;9002226.02101,"710,40286-7 ",.02)
;;40286-7
;;9002226.02101,"710,40287-5 ",.01)
;;40287-5
;;9002226.02101,"710,40287-5 ",.02)
;;40287-5
;;9002226.02101,"710,40318-8 ",.01)
;;40318-8
;;9002226.02101,"710,40318-8 ",.02)
;;40318-8
;;9002226.02101,"710,40319-6 ",.01)
;;40319-6
;;9002226.02101,"710,40319-6 ",.02)
;;40319-6
;;9002226.02101,"710,40320-4 ",.01)
;;40320-4
;;9002226.02101,"710,40320-4 ",.02)
;;40320-4
;;9002226.02101,"710,40321-2 ",.01)
;;40321-2
;;9002226.02101,"710,40321-2 ",.02)
;;40321-2
;;9002226.02101,"710,40322-0 ",.01)
;;40322-0
;;9002226.02101,"710,40322-0 ",.02)
;;40322-0
;;9002226.02101,"710,40323-8 ",.01)
;;40323-8
;;9002226.02101,"710,40323-8 ",.02)
;;40323-8
;;9002226.02101,"710,40324-6 ",.01)
;;40324-6
;;9002226.02101,"710,40324-6 ",.02)
;;40324-6
;;9002226.02101,"710,40858-3 ",.01)
;;40858-3
;;9002226.02101,"710,40858-3 ",.02)
;;40858-3
;;9002226.02101,"710,40875-7 ",.01)
;;40875-7
;;9002226.02101,"710,40875-7 ",.02)
;;40875-7
;;9002226.02101,"710,41024-1 ",.01)
;;41024-1
;;9002226.02101,"710,41024-1 ",.02)
;;41024-1
;;9002226.02101,"710,41604-0 ",.01)
;;41604-0
;;9002226.02101,"710,41604-0 ",.02)
;;41604-0
;;9002226.02101,"710,41651-1 ",.01)
;;41651-1
;;9002226.02101,"710,41651-1 ",.02)
;;41651-1
;;9002226.02101,"710,41652-9 ",.01)
;;41652-9
;;9002226.02101,"710,41652-9 ",.02)
;;41652-9
;;9002226.02101,"710,41653-7 ",.01)
;;41653-7
;;9002226.02101,"710,41653-7 ",.02)
;;41653-7
;;9002226.02101,"710,42604-9 ",.01)
;;42604-9
;;9002226.02101,"710,42604-9 ",.02)
;;42604-9
;;9002226.02101,"710,42609-8 ",.01)
;;42609-8
;;9002226.02101,"710,42609-8 ",.02)
;;42609-8
;;9002226.02101,"710,42615-5 ",.01)
;;42615-5
;;9002226.02101,"710,42615-5 ",.02)
;;42615-5
;;9002226.02101,"710,42629-6 ",.01)
;;42629-6
;;9002226.02101,"710,42629-6 ",.02)
;;42629-6
;;9002226.02101,"710,42631-2 ",.01)
;;42631-2
;;9002226.02101,"710,42631-2 ",.02)
;;42631-2
;;9002226.02101,"710,43740-0 ",.01)
;;43740-0
;;9002226.02101,"710,43740-0 ",.02)
;;43740-0
;;9002226.02101,"710,44919-9 ",.01)
;;44919-9
;;9002226.02101,"710,44919-9 ",.02)
;;44919-9
;;9002226.02101,"710,45052-8 ",.01)
;;45052-8
;;9002226.02101,"710,45052-8 ",.02)
;;45052-8
;;9002226.02101,"710,45053-6 ",.01)
;;45053-6
;;9002226.02101,"710,45053-6 ",.02)
;;45053-6
;;9002226.02101,"710,45054-4 ",.01)
;;45054-4
;;9002226.02101,"710,45054-4 ",.02)
;;45054-4
;;9002226.02101,"710,45055-1 ",.01)
;;45055-1
;;9002226.02101,"710,45055-1 ",.02)
;;45055-1
;;9002226.02101,"710,45056-9 ",.01)
;;45056-9
;;9002226.02101,"710,45056-9 ",.02)
;;45056-9
;;9002226.02101,"710,45204-5 ",.01)
;;45204-5
;;9002226.02101,"710,45204-5 ",.02)
;;45204-5
;;9002226.02101,"710,45205-2 ",.01)
;;45205-2
;;9002226.02101,"710,45205-2 ",.02)
;;45205-2
;;9002226.02101,"710,45206-0 ",.01)
;;45206-0
;;9002226.02101,"710,45206-0 ",.02)
;;45206-0
;;9002226.02101,"710,45298-7 ",.01)
;;45298-7
;;9002226.02101,"710,45298-7 ",.02)
;;45298-7
;;9002226.02101,"710,45299-5 ",.01)
;;45299-5
;;9002226.02101,"710,45299-5 ",.02)
;;45299-5
;;9002226.02101,"710,46222-6 ",.01)
;;46222-6
;;9002226.02101,"710,46222-6 ",.02)
;;46222-6
;;9002226.02101,"710,46223-4 ",.01)
;;46223-4
;;9002226.02101,"710,46223-4 ",.02)
;;46223-4
;;9002226.02101,"710,47622-6 ",.01)
;;47622-6
;;9002226.02101,"710,47622-6 ",.02)
;;47622-6
;;9002226.02101,"710,47859-4 ",.01)
;;47859-4
;;9002226.02101,"710,47859-4 ",.02)
;;47859-4
;;9002226.02101,"710,48109-3 ",.01)
;;48109-3
;;9002226.02101,"710,48109-3 ",.02)
;;48109-3
;;9002226.02101,"710,48605-0 ",.01)
;;48605-0
;;9002226.02101,"710,48605-0 ",.02)
;;48605-0
;;9002226.02101,"710,48606-8 ",.01)
;;48606-8
;;9002226.02101,"710,48606-8 ",.02)
;;48606-8
;;9002226.02101,"710,48607-6 ",.01)
;;48607-6
;;9002226.02101,"710,48607-6 ",.02)
;;48607-6
;;9002226.02101,"710,48810-6 ",.01)
;;48810-6
;;9002226.02101,"710,48810-6 ",.02)
;;48810-6
;;9002226.02101,"710,48983-1 ",.01)
;;48983-1
;;9002226.02101,"710,48983-1 ",.02)
;;48983-1
;;9002226.02101,"710,48984-9 ",.01)
;;48984-9
;;9002226.02101,"710,48984-9 ",.02)
;;48984-9
;;9002226.02101,"710,48985-6 ",.01)
;;48985-6
;;9002226.02101,"710,48985-6 ",.02)
;;48985-6
;;9002226.02101,"710,48986-4 ",.01)
;;48986-4
;;9002226.02101,"710,48986-4 ",.02)
;;48986-4
;;9002226.02101,"710,48988-0 ",.01)
;;48988-0
;;9002226.02101,"710,48988-0 ",.02)
;;48988-0
;;9002226.02101,"710,48989-8 ",.01)
;;48989-8
;;9002226.02101,"710,48989-8 ",.02)
;;48989-8
;;9002226.02101,"710,48990-6 ",.01)
;;48990-6
;;9002226.02101,"710,48990-6 ",.02)
;;48990-6
;;9002226.02101,"710,48991-4 ",.01)
;;48991-4
;;9002226.02101,"710,48991-4 ",.02)
;;48991-4
;;9002226.02101,"710,48992-2 ",.01)
;;48992-2
;;9002226.02101,"710,48992-2 ",.02)
;;48992-2
;;9002226.02101,"710,48993-0 ",.01)
;;48993-0
;;9002226.02101,"710,48993-0 ",.02)
;;48993-0
BGP9TXSK ; 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 ;;9002226.02101,"710,40285-9 ",.02)
+2 ;;40285-9
+3 ;;9002226.02101,"710,40286-7 ",.01)
+4 ;;40286-7
+5 ;;9002226.02101,"710,40286-7 ",.02)
+6 ;;40286-7
+7 ;;9002226.02101,"710,40287-5 ",.01)
+8 ;;40287-5
+9 ;;9002226.02101,"710,40287-5 ",.02)
+10 ;;40287-5
+11 ;;9002226.02101,"710,40318-8 ",.01)
+12 ;;40318-8
+13 ;;9002226.02101,"710,40318-8 ",.02)
+14 ;;40318-8
+15 ;;9002226.02101,"710,40319-6 ",.01)
+16 ;;40319-6
+17 ;;9002226.02101,"710,40319-6 ",.02)
+18 ;;40319-6
+19 ;;9002226.02101,"710,40320-4 ",.01)
+20 ;;40320-4
+21 ;;9002226.02101,"710,40320-4 ",.02)
+22 ;;40320-4
+23 ;;9002226.02101,"710,40321-2 ",.01)
+24 ;;40321-2
+25 ;;9002226.02101,"710,40321-2 ",.02)
+26 ;;40321-2
+27 ;;9002226.02101,"710,40322-0 ",.01)
+28 ;;40322-0
+29 ;;9002226.02101,"710,40322-0 ",.02)
+30 ;;40322-0
+31 ;;9002226.02101,"710,40323-8 ",.01)
+32 ;;40323-8
+33 ;;9002226.02101,"710,40323-8 ",.02)
+34 ;;40323-8
+35 ;;9002226.02101,"710,40324-6 ",.01)
+36 ;;40324-6
+37 ;;9002226.02101,"710,40324-6 ",.02)
+38 ;;40324-6
+39 ;;9002226.02101,"710,40858-3 ",.01)
+40 ;;40858-3
+41 ;;9002226.02101,"710,40858-3 ",.02)
+42 ;;40858-3
+43 ;;9002226.02101,"710,40875-7 ",.01)
+44 ;;40875-7
+45 ;;9002226.02101,"710,40875-7 ",.02)
+46 ;;40875-7
+47 ;;9002226.02101,"710,41024-1 ",.01)
+48 ;;41024-1
+49 ;;9002226.02101,"710,41024-1 ",.02)
+50 ;;41024-1
+51 ;;9002226.02101,"710,41604-0 ",.01)
+52 ;;41604-0
+53 ;;9002226.02101,"710,41604-0 ",.02)
+54 ;;41604-0
+55 ;;9002226.02101,"710,41651-1 ",.01)
+56 ;;41651-1
+57 ;;9002226.02101,"710,41651-1 ",.02)
+58 ;;41651-1
+59 ;;9002226.02101,"710,41652-9 ",.01)
+60 ;;41652-9
+61 ;;9002226.02101,"710,41652-9 ",.02)
+62 ;;41652-9
+63 ;;9002226.02101,"710,41653-7 ",.01)
+64 ;;41653-7
+65 ;;9002226.02101,"710,41653-7 ",.02)
+66 ;;41653-7
+67 ;;9002226.02101,"710,42604-9 ",.01)
+68 ;;42604-9
+69 ;;9002226.02101,"710,42604-9 ",.02)
+70 ;;42604-9
+71 ;;9002226.02101,"710,42609-8 ",.01)
+72 ;;42609-8
+73 ;;9002226.02101,"710,42609-8 ",.02)
+74 ;;42609-8
+75 ;;9002226.02101,"710,42615-5 ",.01)
+76 ;;42615-5
+77 ;;9002226.02101,"710,42615-5 ",.02)
+78 ;;42615-5
+79 ;;9002226.02101,"710,42629-6 ",.01)
+80 ;;42629-6
+81 ;;9002226.02101,"710,42629-6 ",.02)
+82 ;;42629-6
+83 ;;9002226.02101,"710,42631-2 ",.01)
+84 ;;42631-2
+85 ;;9002226.02101,"710,42631-2 ",.02)
+86 ;;42631-2
+87 ;;9002226.02101,"710,43740-0 ",.01)
+88 ;;43740-0
+89 ;;9002226.02101,"710,43740-0 ",.02)
+90 ;;43740-0
+91 ;;9002226.02101,"710,44919-9 ",.01)
+92 ;;44919-9
+93 ;;9002226.02101,"710,44919-9 ",.02)
+94 ;;44919-9
+95 ;;9002226.02101,"710,45052-8 ",.01)
+96 ;;45052-8
+97 ;;9002226.02101,"710,45052-8 ",.02)
+98 ;;45052-8
+99 ;;9002226.02101,"710,45053-6 ",.01)
+100 ;;45053-6
+101 ;;9002226.02101,"710,45053-6 ",.02)
+102 ;;45053-6
+103 ;;9002226.02101,"710,45054-4 ",.01)
+104 ;;45054-4
+105 ;;9002226.02101,"710,45054-4 ",.02)
+106 ;;45054-4
+107 ;;9002226.02101,"710,45055-1 ",.01)
+108 ;;45055-1
+109 ;;9002226.02101,"710,45055-1 ",.02)
+110 ;;45055-1
+111 ;;9002226.02101,"710,45056-9 ",.01)
+112 ;;45056-9
+113 ;;9002226.02101,"710,45056-9 ",.02)
+114 ;;45056-9
+115 ;;9002226.02101,"710,45204-5 ",.01)
+116 ;;45204-5
+117 ;;9002226.02101,"710,45204-5 ",.02)
+118 ;;45204-5
+119 ;;9002226.02101,"710,45205-2 ",.01)
+120 ;;45205-2
+121 ;;9002226.02101,"710,45205-2 ",.02)
+122 ;;45205-2
+123 ;;9002226.02101,"710,45206-0 ",.01)
+124 ;;45206-0
+125 ;;9002226.02101,"710,45206-0 ",.02)
+126 ;;45206-0
+127 ;;9002226.02101,"710,45298-7 ",.01)
+128 ;;45298-7
+129 ;;9002226.02101,"710,45298-7 ",.02)
+130 ;;45298-7
+131 ;;9002226.02101,"710,45299-5 ",.01)
+132 ;;45299-5
+133 ;;9002226.02101,"710,45299-5 ",.02)
+134 ;;45299-5
+135 ;;9002226.02101,"710,46222-6 ",.01)
+136 ;;46222-6
+137 ;;9002226.02101,"710,46222-6 ",.02)
+138 ;;46222-6
+139 ;;9002226.02101,"710,46223-4 ",.01)
+140 ;;46223-4
+141 ;;9002226.02101,"710,46223-4 ",.02)
+142 ;;46223-4
+143 ;;9002226.02101,"710,47622-6 ",.01)
+144 ;;47622-6
+145 ;;9002226.02101,"710,47622-6 ",.02)
+146 ;;47622-6
+147 ;;9002226.02101,"710,47859-4 ",.01)
+148 ;;47859-4
+149 ;;9002226.02101,"710,47859-4 ",.02)
+150 ;;47859-4
+151 ;;9002226.02101,"710,48109-3 ",.01)
+152 ;;48109-3
+153 ;;9002226.02101,"710,48109-3 ",.02)
+154 ;;48109-3
+155 ;;9002226.02101,"710,48605-0 ",.01)
+156 ;;48605-0
+157 ;;9002226.02101,"710,48605-0 ",.02)
+158 ;;48605-0
+159 ;;9002226.02101,"710,48606-8 ",.01)
+160 ;;48606-8
+161 ;;9002226.02101,"710,48606-8 ",.02)
+162 ;;48606-8
+163 ;;9002226.02101,"710,48607-6 ",.01)
+164 ;;48607-6
+165 ;;9002226.02101,"710,48607-6 ",.02)
+166 ;;48607-6
+167 ;;9002226.02101,"710,48810-6 ",.01)
+168 ;;48810-6
+169 ;;9002226.02101,"710,48810-6 ",.02)
+170 ;;48810-6
+171 ;;9002226.02101,"710,48983-1 ",.01)
+172 ;;48983-1
+173 ;;9002226.02101,"710,48983-1 ",.02)
+174 ;;48983-1
+175 ;;9002226.02101,"710,48984-9 ",.01)
+176 ;;48984-9
+177 ;;9002226.02101,"710,48984-9 ",.02)
+178 ;;48984-9
+179 ;;9002226.02101,"710,48985-6 ",.01)
+180 ;;48985-6
+181 ;;9002226.02101,"710,48985-6 ",.02)
+182 ;;48985-6
+183 ;;9002226.02101,"710,48986-4 ",.01)
+184 ;;48986-4
+185 ;;9002226.02101,"710,48986-4 ",.02)
+186 ;;48986-4
+187 ;;9002226.02101,"710,48988-0 ",.01)
+188 ;;48988-0
+189 ;;9002226.02101,"710,48988-0 ",.02)
+190 ;;48988-0
+191 ;;9002226.02101,"710,48989-8 ",.01)
+192 ;;48989-8
+193 ;;9002226.02101,"710,48989-8 ",.02)
+194 ;;48989-8
+195 ;;9002226.02101,"710,48990-6 ",.01)
+196 ;;48990-6
+197 ;;9002226.02101,"710,48990-6 ",.02)
+198 ;;48990-6
+199 ;;9002226.02101,"710,48991-4 ",.01)
+200 ;;48991-4
+201 ;;9002226.02101,"710,48991-4 ",.02)
+202 ;;48991-4
+203 ;;9002226.02101,"710,48992-2 ",.01)
+204 ;;48992-2
+205 ;;9002226.02101,"710,48992-2 ",.02)
+206 ;;48992-2
+207 ;;9002226.02101,"710,48993-0 ",.01)
+208 ;;48993-0
+209 ;;9002226.02101,"710,48993-0 ",.02)
+210 ;;48993-0
