BGP9TXSD ; 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,12621-9 ",.02)
;;12621-9
;;9002226.02101,"710,12622-7 ",.01)
;;12622-7
;;9002226.02101,"710,12622-7 ",.02)
;;12622-7
;;9002226.02101,"710,12623-5 ",.01)
;;12623-5
;;9002226.02101,"710,12623-5 ",.02)
;;12623-5
;;9002226.02101,"710,12624-3 ",.01)
;;12624-3
;;9002226.02101,"710,12624-3 ",.02)
;;12624-3
;;9002226.02101,"710,12625-0 ",.01)
;;12625-0
;;9002226.02101,"710,12625-0 ",.02)
;;12625-0
;;9002226.02101,"710,12626-8 ",.01)
;;12626-8
;;9002226.02101,"710,12626-8 ",.02)
;;12626-8
;;9002226.02101,"710,12627-6 ",.01)
;;12627-6
;;9002226.02101,"710,12627-6 ",.02)
;;12627-6
;;9002226.02101,"710,12631-8 ",.01)
;;12631-8
;;9002226.02101,"710,12631-8 ",.02)
;;12631-8
;;9002226.02101,"710,12632-6 ",.01)
;;12632-6
;;9002226.02101,"710,12632-6 ",.02)
;;12632-6
;;9002226.02101,"710,12635-9 ",.01)
;;12635-9
;;9002226.02101,"710,12635-9 ",.02)
;;12635-9
;;9002226.02101,"710,12636-7 ",.01)
;;12636-7
;;9002226.02101,"710,12636-7 ",.02)
;;12636-7
;;9002226.02101,"710,12637-5 ",.01)
;;12637-5
;;9002226.02101,"710,12637-5 ",.02)
;;12637-5
;;9002226.02101,"710,12638-3 ",.01)
;;12638-3
;;9002226.02101,"710,12638-3 ",.02)
;;12638-3
;;9002226.02101,"710,12639-1 ",.01)
;;12639-1
;;9002226.02101,"710,12639-1 ",.02)
;;12639-1
;;9002226.02101,"710,12640-9 ",.01)
;;12640-9
;;9002226.02101,"710,12640-9 ",.02)
;;12640-9
;;9002226.02101,"710,12641-7 ",.01)
;;12641-7
;;9002226.02101,"710,12641-7 ",.02)
;;12641-7
;;9002226.02101,"710,12642-5 ",.01)
;;12642-5
;;9002226.02101,"710,12642-5 ",.02)
;;12642-5
;;9002226.02101,"710,12643-3 ",.01)
;;12643-3
;;9002226.02101,"710,12643-3 ",.02)
;;12643-3
;;9002226.02101,"710,12644-1 ",.01)
;;12644-1
;;9002226.02101,"710,12644-1 ",.02)
;;12644-1
;;9002226.02101,"710,12645-8 ",.01)
;;12645-8
;;9002226.02101,"710,12645-8 ",.02)
;;12645-8
;;9002226.02101,"710,12646-6 ",.01)
;;12646-6
;;9002226.02101,"710,12646-6 ",.02)
;;12646-6
;;9002226.02101,"710,12647-4 ",.01)
;;12647-4
;;9002226.02101,"710,12647-4 ",.02)
;;12647-4
;;9002226.02101,"710,12648-2 ",.01)
;;12648-2
;;9002226.02101,"710,12648-2 ",.02)
;;12648-2
;;9002226.02101,"710,12649-0 ",.01)
;;12649-0
;;9002226.02101,"710,12649-0 ",.02)
;;12649-0
;;9002226.02101,"710,12650-8 ",.01)
;;12650-8
;;9002226.02101,"710,12650-8 ",.02)
;;12650-8
;;9002226.02101,"710,12651-6 ",.01)
;;12651-6
;;9002226.02101,"710,12651-6 ",.02)
;;12651-6
;;9002226.02101,"710,12652-4 ",.01)
;;12652-4
;;9002226.02101,"710,12652-4 ",.02)
;;12652-4
;;9002226.02101,"710,12653-2 ",.01)
;;12653-2
;;9002226.02101,"710,12653-2 ",.02)
;;12653-2
;;9002226.02101,"710,12654-0 ",.01)
;;12654-0
;;9002226.02101,"710,12654-0 ",.02)
;;12654-0
;;9002226.02101,"710,12655-7 ",.01)
;;12655-7
;;9002226.02101,"710,12655-7 ",.02)
;;12655-7
;;9002226.02101,"710,12656-5 ",.01)
;;12656-5
;;9002226.02101,"710,12656-5 ",.02)
;;12656-5
;;9002226.02101,"710,12657-3 ",.01)
;;12657-3
;;9002226.02101,"710,12657-3 ",.02)
;;12657-3
;;9002226.02101,"710,12658-1 ",.01)
;;12658-1
;;9002226.02101,"710,12658-1 ",.02)
;;12658-1
;;9002226.02101,"710,12659-9 ",.01)
;;12659-9
;;9002226.02101,"710,12659-9 ",.02)
;;12659-9
;;9002226.02101,"710,13453-6 ",.01)
;;13453-6
;;9002226.02101,"710,13453-6 ",.02)
;;13453-6
;;9002226.02101,"710,13606-9 ",.01)
;;13606-9
;;9002226.02101,"710,13606-9 ",.02)
;;13606-9
;;9002226.02101,"710,13607-7 ",.01)
;;13607-7
;;9002226.02101,"710,13607-7 ",.02)
;;13607-7
;;9002226.02101,"710,13865-1 ",.01)
;;13865-1
;;9002226.02101,"710,13865-1 ",.02)
;;13865-1
;;9002226.02101,"710,13866-9 ",.01)
;;13866-9
;;9002226.02101,"710,13866-9 ",.02)
;;13866-9
;;9002226.02101,"710,14137-4 ",.01)
;;14137-4
;;9002226.02101,"710,14137-4 ",.02)
;;14137-4
;;9002226.02101,"710,14743-9 ",.01)
;;14743-9
;;9002226.02101,"710,14743-9 ",.02)
;;14743-9
;;9002226.02101,"710,14749-6 ",.01)
;;14749-6
;;9002226.02101,"710,14749-6 ",.02)
;;14749-6
;;9002226.02101,"710,14751-2 ",.01)
;;14751-2
;;9002226.02101,"710,14751-2 ",.02)
;;14751-2
;;9002226.02101,"710,14752-0 ",.01)
;;14752-0
;;9002226.02101,"710,14752-0 ",.02)
;;14752-0
;;9002226.02101,"710,14753-8 ",.01)
;;14753-8
;;9002226.02101,"710,14753-8 ",.02)
;;14753-8
;;9002226.02101,"710,14754-6 ",.01)
;;14754-6
;;9002226.02101,"710,14754-6 ",.02)
;;14754-6
;;9002226.02101,"710,14755-3 ",.01)
;;14755-3
;;9002226.02101,"710,14755-3 ",.02)
;;14755-3
;;9002226.02101,"710,14756-1 ",.01)
;;14756-1
;;9002226.02101,"710,14756-1 ",.02)
;;14756-1
;;9002226.02101,"710,14757-9 ",.01)
;;14757-9
;;9002226.02101,"710,14757-9 ",.02)
;;14757-9
;;9002226.02101,"710,14758-7 ",.01)
;;14758-7
;;9002226.02101,"710,14758-7 ",.02)
;;14758-7
;;9002226.02101,"710,14759-5 ",.01)
;;14759-5
;;9002226.02101,"710,14759-5 ",.02)
;;14759-5
;;9002226.02101,"710,14760-3 ",.01)
;;14760-3
;;9002226.02101,"710,14760-3 ",.02)
;;14760-3
;;9002226.02101,"710,14761-1 ",.01)
;;14761-1
;;9002226.02101,"710,14761-1 ",.02)
;;14761-1
BGP9TXSD ; 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,12621-9 ",.02)
+2 ;;12621-9
+3 ;;9002226.02101,"710,12622-7 ",.01)
+4 ;;12622-7
+5 ;;9002226.02101,"710,12622-7 ",.02)
+6 ;;12622-7
+7 ;;9002226.02101,"710,12623-5 ",.01)
+8 ;;12623-5
+9 ;;9002226.02101,"710,12623-5 ",.02)
+10 ;;12623-5
+11 ;;9002226.02101,"710,12624-3 ",.01)
+12 ;;12624-3
+13 ;;9002226.02101,"710,12624-3 ",.02)
+14 ;;12624-3
+15 ;;9002226.02101,"710,12625-0 ",.01)
+16 ;;12625-0
+17 ;;9002226.02101,"710,12625-0 ",.02)
+18 ;;12625-0
+19 ;;9002226.02101,"710,12626-8 ",.01)
+20 ;;12626-8
+21 ;;9002226.02101,"710,12626-8 ",.02)
+22 ;;12626-8
+23 ;;9002226.02101,"710,12627-6 ",.01)
+24 ;;12627-6
+25 ;;9002226.02101,"710,12627-6 ",.02)
+26 ;;12627-6
+27 ;;9002226.02101,"710,12631-8 ",.01)
+28 ;;12631-8
+29 ;;9002226.02101,"710,12631-8 ",.02)
+30 ;;12631-8
+31 ;;9002226.02101,"710,12632-6 ",.01)
+32 ;;12632-6
+33 ;;9002226.02101,"710,12632-6 ",.02)
+34 ;;12632-6
+35 ;;9002226.02101,"710,12635-9 ",.01)
+36 ;;12635-9
+37 ;;9002226.02101,"710,12635-9 ",.02)
+38 ;;12635-9
+39 ;;9002226.02101,"710,12636-7 ",.01)
+40 ;;12636-7
+41 ;;9002226.02101,"710,12636-7 ",.02)
+42 ;;12636-7
+43 ;;9002226.02101,"710,12637-5 ",.01)
+44 ;;12637-5
+45 ;;9002226.02101,"710,12637-5 ",.02)
+46 ;;12637-5
+47 ;;9002226.02101,"710,12638-3 ",.01)
+48 ;;12638-3
+49 ;;9002226.02101,"710,12638-3 ",.02)
+50 ;;12638-3
+51 ;;9002226.02101,"710,12639-1 ",.01)
+52 ;;12639-1
+53 ;;9002226.02101,"710,12639-1 ",.02)
+54 ;;12639-1
+55 ;;9002226.02101,"710,12640-9 ",.01)
+56 ;;12640-9
+57 ;;9002226.02101,"710,12640-9 ",.02)
+58 ;;12640-9
+59 ;;9002226.02101,"710,12641-7 ",.01)
+60 ;;12641-7
+61 ;;9002226.02101,"710,12641-7 ",.02)
+62 ;;12641-7
+63 ;;9002226.02101,"710,12642-5 ",.01)
+64 ;;12642-5
+65 ;;9002226.02101,"710,12642-5 ",.02)
+66 ;;12642-5
+67 ;;9002226.02101,"710,12643-3 ",.01)
+68 ;;12643-3
+69 ;;9002226.02101,"710,12643-3 ",.02)
+70 ;;12643-3
+71 ;;9002226.02101,"710,12644-1 ",.01)
+72 ;;12644-1
+73 ;;9002226.02101,"710,12644-1 ",.02)
+74 ;;12644-1
+75 ;;9002226.02101,"710,12645-8 ",.01)
+76 ;;12645-8
+77 ;;9002226.02101,"710,12645-8 ",.02)
+78 ;;12645-8
+79 ;;9002226.02101,"710,12646-6 ",.01)
+80 ;;12646-6
+81 ;;9002226.02101,"710,12646-6 ",.02)
+82 ;;12646-6
+83 ;;9002226.02101,"710,12647-4 ",.01)
+84 ;;12647-4
+85 ;;9002226.02101,"710,12647-4 ",.02)
+86 ;;12647-4
+87 ;;9002226.02101,"710,12648-2 ",.01)
+88 ;;12648-2
+89 ;;9002226.02101,"710,12648-2 ",.02)
+90 ;;12648-2
+91 ;;9002226.02101,"710,12649-0 ",.01)
+92 ;;12649-0
+93 ;;9002226.02101,"710,12649-0 ",.02)
+94 ;;12649-0
+95 ;;9002226.02101,"710,12650-8 ",.01)
+96 ;;12650-8
+97 ;;9002226.02101,"710,12650-8 ",.02)
+98 ;;12650-8
+99 ;;9002226.02101,"710,12651-6 ",.01)
+100 ;;12651-6
+101 ;;9002226.02101,"710,12651-6 ",.02)
+102 ;;12651-6
+103 ;;9002226.02101,"710,12652-4 ",.01)
+104 ;;12652-4
+105 ;;9002226.02101,"710,12652-4 ",.02)
+106 ;;12652-4
+107 ;;9002226.02101,"710,12653-2 ",.01)
+108 ;;12653-2
+109 ;;9002226.02101,"710,12653-2 ",.02)
+110 ;;12653-2
+111 ;;9002226.02101,"710,12654-0 ",.01)
+112 ;;12654-0
+113 ;;9002226.02101,"710,12654-0 ",.02)
+114 ;;12654-0
+115 ;;9002226.02101,"710,12655-7 ",.01)
+116 ;;12655-7
+117 ;;9002226.02101,"710,12655-7 ",.02)
+118 ;;12655-7
+119 ;;9002226.02101,"710,12656-5 ",.01)
+120 ;;12656-5
+121 ;;9002226.02101,"710,12656-5 ",.02)
+122 ;;12656-5
+123 ;;9002226.02101,"710,12657-3 ",.01)
+124 ;;12657-3
+125 ;;9002226.02101,"710,12657-3 ",.02)
+126 ;;12657-3
+127 ;;9002226.02101,"710,12658-1 ",.01)
+128 ;;12658-1
+129 ;;9002226.02101,"710,12658-1 ",.02)
+130 ;;12658-1
+131 ;;9002226.02101,"710,12659-9 ",.01)
+132 ;;12659-9
+133 ;;9002226.02101,"710,12659-9 ",.02)
+134 ;;12659-9
+135 ;;9002226.02101,"710,13453-6 ",.01)
+136 ;;13453-6
+137 ;;9002226.02101,"710,13453-6 ",.02)
+138 ;;13453-6
+139 ;;9002226.02101,"710,13606-9 ",.01)
+140 ;;13606-9
+141 ;;9002226.02101,"710,13606-9 ",.02)
+142 ;;13606-9
+143 ;;9002226.02101,"710,13607-7 ",.01)
+144 ;;13607-7
+145 ;;9002226.02101,"710,13607-7 ",.02)
+146 ;;13607-7
+147 ;;9002226.02101,"710,13865-1 ",.01)
+148 ;;13865-1
+149 ;;9002226.02101,"710,13865-1 ",.02)
+150 ;;13865-1
+151 ;;9002226.02101,"710,13866-9 ",.01)
+152 ;;13866-9
+153 ;;9002226.02101,"710,13866-9 ",.02)
+154 ;;13866-9
+155 ;;9002226.02101,"710,14137-4 ",.01)
+156 ;;14137-4
+157 ;;9002226.02101,"710,14137-4 ",.02)
+158 ;;14137-4
+159 ;;9002226.02101,"710,14743-9 ",.01)
+160 ;;14743-9
+161 ;;9002226.02101,"710,14743-9 ",.02)
+162 ;;14743-9
+163 ;;9002226.02101,"710,14749-6 ",.01)
+164 ;;14749-6
+165 ;;9002226.02101,"710,14749-6 ",.02)
+166 ;;14749-6
+167 ;;9002226.02101,"710,14751-2 ",.01)
+168 ;;14751-2
+169 ;;9002226.02101,"710,14751-2 ",.02)
+170 ;;14751-2
+171 ;;9002226.02101,"710,14752-0 ",.01)
+172 ;;14752-0
+173 ;;9002226.02101,"710,14752-0 ",.02)
+174 ;;14752-0
+175 ;;9002226.02101,"710,14753-8 ",.01)
+176 ;;14753-8
+177 ;;9002226.02101,"710,14753-8 ",.02)
+178 ;;14753-8
+179 ;;9002226.02101,"710,14754-6 ",.01)
+180 ;;14754-6
+181 ;;9002226.02101,"710,14754-6 ",.02)
+182 ;;14754-6
+183 ;;9002226.02101,"710,14755-3 ",.01)
+184 ;;14755-3
+185 ;;9002226.02101,"710,14755-3 ",.02)
+186 ;;14755-3
+187 ;;9002226.02101,"710,14756-1 ",.01)
+188 ;;14756-1
+189 ;;9002226.02101,"710,14756-1 ",.02)
+190 ;;14756-1
+191 ;;9002226.02101,"710,14757-9 ",.01)
+192 ;;14757-9
+193 ;;9002226.02101,"710,14757-9 ",.02)
+194 ;;14757-9
+195 ;;9002226.02101,"710,14758-7 ",.01)
+196 ;;14758-7
+197 ;;9002226.02101,"710,14758-7 ",.02)
+198 ;;14758-7
+199 ;;9002226.02101,"710,14759-5 ",.01)
+200 ;;14759-5
+201 ;;9002226.02101,"710,14759-5 ",.02)
+202 ;;14759-5
+203 ;;9002226.02101,"710,14760-3 ",.01)
+204 ;;14760-3
+205 ;;9002226.02101,"710,14760-3 ",.02)
+206 ;;14760-3
+207 ;;9002226.02101,"710,14761-1 ",.01)
+208 ;;14761-1
+209 ;;9002226.02101,"710,14761-1 ",.02)
+210 ;;14761-1
