BGP9TXSE ; 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,14762-9 ",.01)
;;14762-9
;;9002226.02101,"710,14762-9 ",.02)
;;14762-9
;;9002226.02101,"710,14763-7 ",.01)
;;14763-7
;;9002226.02101,"710,14763-7 ",.02)
;;14763-7
;;9002226.02101,"710,14764-5 ",.01)
;;14764-5
;;9002226.02101,"710,14764-5 ",.02)
;;14764-5
;;9002226.02101,"710,14765-2 ",.01)
;;14765-2
;;9002226.02101,"710,14765-2 ",.02)
;;14765-2
;;9002226.02101,"710,14766-0 ",.01)
;;14766-0
;;9002226.02101,"710,14766-0 ",.02)
;;14766-0
;;9002226.02101,"710,14767-8 ",.01)
;;14767-8
;;9002226.02101,"710,14767-8 ",.02)
;;14767-8
;;9002226.02101,"710,14768-6 ",.01)
;;14768-6
;;9002226.02101,"710,14768-6 ",.02)
;;14768-6
;;9002226.02101,"710,14769-4 ",.01)
;;14769-4
;;9002226.02101,"710,14769-4 ",.02)
;;14769-4
;;9002226.02101,"710,14770-2 ",.01)
;;14770-2
;;9002226.02101,"710,14770-2 ",.02)
;;14770-2
;;9002226.02101,"710,14771-0 ",.01)
;;14771-0
;;9002226.02101,"710,14771-0 ",.02)
;;14771-0
;;9002226.02101,"710,1491-0 ",.01)
;;1491-0
;;9002226.02101,"710,1491-0 ",.02)
;;1491-0
;;9002226.02101,"710,1492-8 ",.01)
;;1492-8
;;9002226.02101,"710,1492-8 ",.02)
;;1492-8
;;9002226.02101,"710,1493-6 ",.01)
;;1493-6
;;9002226.02101,"710,1493-6 ",.02)
;;1493-6
;;9002226.02101,"710,1494-4 ",.01)
;;1494-4
;;9002226.02101,"710,1494-4 ",.02)
;;1494-4
;;9002226.02101,"710,1496-9 ",.01)
;;1496-9
;;9002226.02101,"710,1496-9 ",.02)
;;1496-9
;;9002226.02101,"710,1497-7 ",.01)
;;1497-7
;;9002226.02101,"710,1497-7 ",.02)
;;1497-7
;;9002226.02101,"710,1498-5 ",.01)
;;1498-5
;;9002226.02101,"710,1498-5 ",.02)
;;1498-5
;;9002226.02101,"710,1499-3 ",.01)
;;1499-3
;;9002226.02101,"710,1499-3 ",.02)
;;1499-3
;;9002226.02101,"710,14995-5 ",.01)
;;14995-5
;;9002226.02101,"710,14995-5 ",.02)
;;14995-5
;;9002226.02101,"710,14996-3 ",.01)
;;14996-3
;;9002226.02101,"710,14996-3 ",.02)
;;14996-3
;;9002226.02101,"710,1500-8 ",.01)
;;1500-8
;;9002226.02101,"710,1500-8 ",.02)
;;1500-8
;;9002226.02101,"710,1501-6 ",.01)
;;1501-6
;;9002226.02101,"710,1501-6 ",.02)
;;1501-6
;;9002226.02101,"710,1502-4 ",.01)
;;1502-4
;;9002226.02101,"710,1502-4 ",.02)
;;1502-4
;;9002226.02101,"710,1504-0 ",.01)
;;1504-0
;;9002226.02101,"710,1504-0 ",.02)
;;1504-0
;;9002226.02101,"710,1506-5 ",.01)
;;1506-5
;;9002226.02101,"710,1506-5 ",.02)
;;1506-5
;;9002226.02101,"710,1507-3 ",.01)
;;1507-3
;;9002226.02101,"710,1507-3 ",.02)
;;1507-3
;;9002226.02101,"710,15074-8 ",.01)
;;15074-8
;;9002226.02101,"710,15074-8 ",.02)
;;15074-8
;;9002226.02101,"710,1508-1 ",.01)
;;1508-1
;;9002226.02101,"710,1508-1 ",.02)
;;1508-1
;;9002226.02101,"710,1510-7 ",.01)
;;1510-7
;;9002226.02101,"710,1510-7 ",.02)
;;1510-7
;;9002226.02101,"710,1511-5 ",.01)
;;1511-5
;;9002226.02101,"710,1511-5 ",.02)
;;1511-5
;;9002226.02101,"710,1512-3 ",.01)
;;1512-3
;;9002226.02101,"710,1512-3 ",.02)
;;1512-3
;;9002226.02101,"710,1513-1 ",.01)
;;1513-1
;;9002226.02101,"710,1513-1 ",.02)
;;1513-1
;;9002226.02101,"710,1514-9 ",.01)
;;1514-9
;;9002226.02101,"710,1514-9 ",.02)
;;1514-9
;;9002226.02101,"710,1515-6 ",.01)
;;1515-6
;;9002226.02101,"710,1515-6 ",.02)
;;1515-6
;;9002226.02101,"710,1517-2 ",.01)
;;1517-2
;;9002226.02101,"710,1517-2 ",.02)
;;1517-2
;;9002226.02101,"710,1518-0 ",.01)
;;1518-0
;;9002226.02101,"710,1518-0 ",.02)
;;1518-0
;;9002226.02101,"710,1519-8 ",.01)
;;1519-8
;;9002226.02101,"710,1519-8 ",.02)
;;1519-8
;;9002226.02101,"710,1521-4 ",.01)
;;1521-4
;;9002226.02101,"710,1521-4 ",.02)
;;1521-4
;;9002226.02101,"710,1522-2 ",.01)
;;1522-2
;;9002226.02101,"710,1522-2 ",.02)
;;1522-2
;;9002226.02101,"710,1523-0 ",.01)
;;1523-0
;;9002226.02101,"710,1523-0 ",.02)
;;1523-0
;;9002226.02101,"710,1524-8 ",.01)
;;1524-8
;;9002226.02101,"710,1524-8 ",.02)
;;1524-8
;;9002226.02101,"710,1525-5 ",.01)
;;1525-5
;;9002226.02101,"710,1525-5 ",.02)
;;1525-5
;;9002226.02101,"710,1526-3 ",.01)
;;1526-3
;;9002226.02101,"710,1526-3 ",.02)
;;1526-3
;;9002226.02101,"710,1527-1 ",.01)
;;1527-1
;;9002226.02101,"710,1527-1 ",.02)
;;1527-1
;;9002226.02101,"710,1528-9 ",.01)
;;1528-9
;;9002226.02101,"710,1528-9 ",.02)
;;1528-9
;;9002226.02101,"710,1529-7 ",.01)
;;1529-7
;;9002226.02101,"710,1529-7 ",.02)
;;1529-7
;;9002226.02101,"710,1530-5 ",.01)
;;1530-5
;;9002226.02101,"710,1530-5 ",.02)
;;1530-5
;;9002226.02101,"710,1531-3 ",.01)
;;1531-3
;;9002226.02101,"710,1531-3 ",.02)
;;1531-3
;;9002226.02101,"710,1532-1 ",.01)
;;1532-1
;;9002226.02101,"710,1532-1 ",.02)
;;1532-1
;;9002226.02101,"710,1533-9 ",.01)
;;1533-9
;;9002226.02101,"710,1533-9 ",.02)
;;1533-9
;;9002226.02101,"710,1534-7 ",.01)
;;1534-7
;;9002226.02101,"710,1534-7 ",.02)
;;1534-7
;;9002226.02101,"710,1535-4 ",.01)
;;1535-4
;;9002226.02101,"710,1535-4 ",.02)
;;1535-4
;;9002226.02101,"710,1536-2 ",.01)
;;1536-2
;;9002226.02101,"710,1536-2 ",.02)
;;1536-2
;;9002226.02101,"710,1537-0 ",.01)
;;1537-0
;;9002226.02101,"710,1537-0 ",.02)
;;1537-0
BGP9TXSE ; 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,14762-9 ",.01)
+2 ;;14762-9
+3 ;;9002226.02101,"710,14762-9 ",.02)
+4 ;;14762-9
+5 ;;9002226.02101,"710,14763-7 ",.01)
+6 ;;14763-7
+7 ;;9002226.02101,"710,14763-7 ",.02)
+8 ;;14763-7
+9 ;;9002226.02101,"710,14764-5 ",.01)
+10 ;;14764-5
+11 ;;9002226.02101,"710,14764-5 ",.02)
+12 ;;14764-5
+13 ;;9002226.02101,"710,14765-2 ",.01)
+14 ;;14765-2
+15 ;;9002226.02101,"710,14765-2 ",.02)
+16 ;;14765-2
+17 ;;9002226.02101,"710,14766-0 ",.01)
+18 ;;14766-0
+19 ;;9002226.02101,"710,14766-0 ",.02)
+20 ;;14766-0
+21 ;;9002226.02101,"710,14767-8 ",.01)
+22 ;;14767-8
+23 ;;9002226.02101,"710,14767-8 ",.02)
+24 ;;14767-8
+25 ;;9002226.02101,"710,14768-6 ",.01)
+26 ;;14768-6
+27 ;;9002226.02101,"710,14768-6 ",.02)
+28 ;;14768-6
+29 ;;9002226.02101,"710,14769-4 ",.01)
+30 ;;14769-4
+31 ;;9002226.02101,"710,14769-4 ",.02)
+32 ;;14769-4
+33 ;;9002226.02101,"710,14770-2 ",.01)
+34 ;;14770-2
+35 ;;9002226.02101,"710,14770-2 ",.02)
+36 ;;14770-2
+37 ;;9002226.02101,"710,14771-0 ",.01)
+38 ;;14771-0
+39 ;;9002226.02101,"710,14771-0 ",.02)
+40 ;;14771-0
+41 ;;9002226.02101,"710,1491-0 ",.01)
+42 ;;1491-0
+43 ;;9002226.02101,"710,1491-0 ",.02)
+44 ;;1491-0
+45 ;;9002226.02101,"710,1492-8 ",.01)
+46 ;;1492-8
+47 ;;9002226.02101,"710,1492-8 ",.02)
+48 ;;1492-8
+49 ;;9002226.02101,"710,1493-6 ",.01)
+50 ;;1493-6
+51 ;;9002226.02101,"710,1493-6 ",.02)
+52 ;;1493-6
+53 ;;9002226.02101,"710,1494-4 ",.01)
+54 ;;1494-4
+55 ;;9002226.02101,"710,1494-4 ",.02)
+56 ;;1494-4
+57 ;;9002226.02101,"710,1496-9 ",.01)
+58 ;;1496-9
+59 ;;9002226.02101,"710,1496-9 ",.02)
+60 ;;1496-9
+61 ;;9002226.02101,"710,1497-7 ",.01)
+62 ;;1497-7
+63 ;;9002226.02101,"710,1497-7 ",.02)
+64 ;;1497-7
+65 ;;9002226.02101,"710,1498-5 ",.01)
+66 ;;1498-5
+67 ;;9002226.02101,"710,1498-5 ",.02)
+68 ;;1498-5
+69 ;;9002226.02101,"710,1499-3 ",.01)
+70 ;;1499-3
+71 ;;9002226.02101,"710,1499-3 ",.02)
+72 ;;1499-3
+73 ;;9002226.02101,"710,14995-5 ",.01)
+74 ;;14995-5
+75 ;;9002226.02101,"710,14995-5 ",.02)
+76 ;;14995-5
+77 ;;9002226.02101,"710,14996-3 ",.01)
+78 ;;14996-3
+79 ;;9002226.02101,"710,14996-3 ",.02)
+80 ;;14996-3
+81 ;;9002226.02101,"710,1500-8 ",.01)
+82 ;;1500-8
+83 ;;9002226.02101,"710,1500-8 ",.02)
+84 ;;1500-8
+85 ;;9002226.02101,"710,1501-6 ",.01)
+86 ;;1501-6
+87 ;;9002226.02101,"710,1501-6 ",.02)
+88 ;;1501-6
+89 ;;9002226.02101,"710,1502-4 ",.01)
+90 ;;1502-4
+91 ;;9002226.02101,"710,1502-4 ",.02)
+92 ;;1502-4
+93 ;;9002226.02101,"710,1504-0 ",.01)
+94 ;;1504-0
+95 ;;9002226.02101,"710,1504-0 ",.02)
+96 ;;1504-0
+97 ;;9002226.02101,"710,1506-5 ",.01)
+98 ;;1506-5
+99 ;;9002226.02101,"710,1506-5 ",.02)
+100 ;;1506-5
+101 ;;9002226.02101,"710,1507-3 ",.01)
+102 ;;1507-3
+103 ;;9002226.02101,"710,1507-3 ",.02)
+104 ;;1507-3
+105 ;;9002226.02101,"710,15074-8 ",.01)
+106 ;;15074-8
+107 ;;9002226.02101,"710,15074-8 ",.02)
+108 ;;15074-8
+109 ;;9002226.02101,"710,1508-1 ",.01)
+110 ;;1508-1
+111 ;;9002226.02101,"710,1508-1 ",.02)
+112 ;;1508-1
+113 ;;9002226.02101,"710,1510-7 ",.01)
+114 ;;1510-7
+115 ;;9002226.02101,"710,1510-7 ",.02)
+116 ;;1510-7
+117 ;;9002226.02101,"710,1511-5 ",.01)
+118 ;;1511-5
+119 ;;9002226.02101,"710,1511-5 ",.02)
+120 ;;1511-5
+121 ;;9002226.02101,"710,1512-3 ",.01)
+122 ;;1512-3
+123 ;;9002226.02101,"710,1512-3 ",.02)
+124 ;;1512-3
+125 ;;9002226.02101,"710,1513-1 ",.01)
+126 ;;1513-1
+127 ;;9002226.02101,"710,1513-1 ",.02)
+128 ;;1513-1
+129 ;;9002226.02101,"710,1514-9 ",.01)
+130 ;;1514-9
+131 ;;9002226.02101,"710,1514-9 ",.02)
+132 ;;1514-9
+133 ;;9002226.02101,"710,1515-6 ",.01)
+134 ;;1515-6
+135 ;;9002226.02101,"710,1515-6 ",.02)
+136 ;;1515-6
+137 ;;9002226.02101,"710,1517-2 ",.01)
+138 ;;1517-2
+139 ;;9002226.02101,"710,1517-2 ",.02)
+140 ;;1517-2
+141 ;;9002226.02101,"710,1518-0 ",.01)
+142 ;;1518-0
+143 ;;9002226.02101,"710,1518-0 ",.02)
+144 ;;1518-0
+145 ;;9002226.02101,"710,1519-8 ",.01)
+146 ;;1519-8
+147 ;;9002226.02101,"710,1519-8 ",.02)
+148 ;;1519-8
+149 ;;9002226.02101,"710,1521-4 ",.01)
+150 ;;1521-4
+151 ;;9002226.02101,"710,1521-4 ",.02)
+152 ;;1521-4
+153 ;;9002226.02101,"710,1522-2 ",.01)
+154 ;;1522-2
+155 ;;9002226.02101,"710,1522-2 ",.02)
+156 ;;1522-2
+157 ;;9002226.02101,"710,1523-0 ",.01)
+158 ;;1523-0
+159 ;;9002226.02101,"710,1523-0 ",.02)
+160 ;;1523-0
+161 ;;9002226.02101,"710,1524-8 ",.01)
+162 ;;1524-8
+163 ;;9002226.02101,"710,1524-8 ",.02)
+164 ;;1524-8
+165 ;;9002226.02101,"710,1525-5 ",.01)
+166 ;;1525-5
+167 ;;9002226.02101,"710,1525-5 ",.02)
+168 ;;1525-5
+169 ;;9002226.02101,"710,1526-3 ",.01)
+170 ;;1526-3
+171 ;;9002226.02101,"710,1526-3 ",.02)
+172 ;;1526-3
+173 ;;9002226.02101,"710,1527-1 ",.01)
+174 ;;1527-1
+175 ;;9002226.02101,"710,1527-1 ",.02)
+176 ;;1527-1
+177 ;;9002226.02101,"710,1528-9 ",.01)
+178 ;;1528-9
+179 ;;9002226.02101,"710,1528-9 ",.02)
+180 ;;1528-9
+181 ;;9002226.02101,"710,1529-7 ",.01)
+182 ;;1529-7
+183 ;;9002226.02101,"710,1529-7 ",.02)
+184 ;;1529-7
+185 ;;9002226.02101,"710,1530-5 ",.01)
+186 ;;1530-5
+187 ;;9002226.02101,"710,1530-5 ",.02)
+188 ;;1530-5
+189 ;;9002226.02101,"710,1531-3 ",.01)
+190 ;;1531-3
+191 ;;9002226.02101,"710,1531-3 ",.02)
+192 ;;1531-3
+193 ;;9002226.02101,"710,1532-1 ",.01)
+194 ;;1532-1
+195 ;;9002226.02101,"710,1532-1 ",.02)
+196 ;;1532-1
+197 ;;9002226.02101,"710,1533-9 ",.01)
+198 ;;1533-9
+199 ;;9002226.02101,"710,1533-9 ",.02)
+200 ;;1533-9
+201 ;;9002226.02101,"710,1534-7 ",.01)
+202 ;;1534-7
+203 ;;9002226.02101,"710,1534-7 ",.02)
+204 ;;1534-7
+205 ;;9002226.02101,"710,1535-4 ",.01)
+206 ;;1535-4
+207 ;;9002226.02101,"710,1535-4 ",.02)
+208 ;;1535-4
+209 ;;9002226.02101,"710,1536-2 ",.01)
+210 ;;1536-2
+211 ;;9002226.02101,"710,1536-2 ",.02)
+212 ;;1536-2
+213 ;;9002226.02101,"710,1537-0 ",.01)
+214 ;;1537-0
+215 ;;9002226.02101,"710,1537-0 ",.02)
+216 ;;1537-0
