BGP9TXSF ; 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,1538-8 ",.01)
;;1538-8
;;9002226.02101,"710,1538-8 ",.02)
;;1538-8
;;9002226.02101,"710,1539-6 ",.01)
;;1539-6
;;9002226.02101,"710,1539-6 ",.02)
;;1539-6
;;9002226.02101,"710,1540-4 ",.01)
;;1540-4
;;9002226.02101,"710,1540-4 ",.02)
;;1540-4
;;9002226.02101,"710,1541-2 ",.01)
;;1541-2
;;9002226.02101,"710,1541-2 ",.02)
;;1541-2
;;9002226.02101,"710,1542-0 ",.01)
;;1542-0
;;9002226.02101,"710,1542-0 ",.02)
;;1542-0
;;9002226.02101,"710,1543-8 ",.01)
;;1543-8
;;9002226.02101,"710,1543-8 ",.02)
;;1543-8
;;9002226.02101,"710,1544-6 ",.01)
;;1544-6
;;9002226.02101,"710,1544-6 ",.02)
;;1544-6
;;9002226.02101,"710,1545-3 ",.01)
;;1545-3
;;9002226.02101,"710,1545-3 ",.02)
;;1545-3
;;9002226.02101,"710,1547-9 ",.01)
;;1547-9
;;9002226.02101,"710,1547-9 ",.02)
;;1547-9
;;9002226.02101,"710,1548-7 ",.01)
;;1548-7
;;9002226.02101,"710,1548-7 ",.02)
;;1548-7
;;9002226.02101,"710,1549-5 ",.01)
;;1549-5
;;9002226.02101,"710,1549-5 ",.02)
;;1549-5
;;9002226.02101,"710,1550-3 ",.01)
;;1550-3
;;9002226.02101,"710,1550-3 ",.02)
;;1550-3
;;9002226.02101,"710,1551-1 ",.01)
;;1551-1
;;9002226.02101,"710,1551-1 ",.02)
;;1551-1
;;9002226.02101,"710,1552-9 ",.01)
;;1552-9
;;9002226.02101,"710,1552-9 ",.02)
;;1552-9
;;9002226.02101,"710,1553-7 ",.01)
;;1553-7
;;9002226.02101,"710,1553-7 ",.02)
;;1553-7
;;9002226.02101,"710,1554-5 ",.01)
;;1554-5
;;9002226.02101,"710,1554-5 ",.02)
;;1554-5
;;9002226.02101,"710,1555-2 ",.01)
;;1555-2
;;9002226.02101,"710,1555-2 ",.02)
;;1555-2
;;9002226.02101,"710,1556-0 ",.01)
;;1556-0
;;9002226.02101,"710,1556-0 ",.02)
;;1556-0
;;9002226.02101,"710,1557-8 ",.01)
;;1557-8
;;9002226.02101,"710,1557-8 ",.02)
;;1557-8
;;9002226.02101,"710,1558-6 ",.01)
;;1558-6
;;9002226.02101,"710,1558-6 ",.02)
;;1558-6
;;9002226.02101,"710,16165-3 ",.01)
;;16165-3
;;9002226.02101,"710,16165-3 ",.02)
;;16165-3
;;9002226.02101,"710,16166-1 ",.01)
;;16166-1
;;9002226.02101,"710,16166-1 ",.02)
;;16166-1
;;9002226.02101,"710,16167-9 ",.01)
;;16167-9
;;9002226.02101,"710,16167-9 ",.02)
;;16167-9
;;9002226.02101,"710,16168-7 ",.01)
;;16168-7
;;9002226.02101,"710,16168-7 ",.02)
;;16168-7
;;9002226.02101,"710,16169-5 ",.01)
;;16169-5
;;9002226.02101,"710,16169-5 ",.02)
;;16169-5
;;9002226.02101,"710,16170-3 ",.01)
;;16170-3
;;9002226.02101,"710,16170-3 ",.02)
;;16170-3
;;9002226.02101,"710,16906-0 ",.01)
;;16906-0
;;9002226.02101,"710,16906-0 ",.02)
;;16906-0
;;9002226.02101,"710,16907-8 ",.01)
;;16907-8
;;9002226.02101,"710,16907-8 ",.02)
;;16907-8
;;9002226.02101,"710,16908-6 ",.01)
;;16908-6
;;9002226.02101,"710,16908-6 ",.02)
;;16908-6
;;9002226.02101,"710,16909-4 ",.01)
;;16909-4
;;9002226.02101,"710,16909-4 ",.02)
;;16909-4
;;9002226.02101,"710,16910-2 ",.01)
;;16910-2
;;9002226.02101,"710,16910-2 ",.02)
;;16910-2
;;9002226.02101,"710,16911-0 ",.01)
;;16911-0
;;9002226.02101,"710,16911-0 ",.02)
;;16911-0
;;9002226.02101,"710,16912-8 ",.01)
;;16912-8
;;9002226.02101,"710,16912-8 ",.02)
;;16912-8
;;9002226.02101,"710,16913-6 ",.01)
;;16913-6
;;9002226.02101,"710,16913-6 ",.02)
;;16913-6
;;9002226.02101,"710,16914-4 ",.01)
;;16914-4
;;9002226.02101,"710,16914-4 ",.02)
;;16914-4
;;9002226.02101,"710,16915-1 ",.01)
;;16915-1
;;9002226.02101,"710,16915-1 ",.02)
;;16915-1
;;9002226.02101,"710,17865-7 ",.01)
;;17865-7
;;9002226.02101,"710,17865-7 ",.02)
;;17865-7
;;9002226.02101,"710,18296-4 ",.01)
;;18296-4
;;9002226.02101,"710,18296-4 ",.02)
;;18296-4
;;9002226.02101,"710,18342-6 ",.01)
;;18342-6
;;9002226.02101,"710,18342-6 ",.02)
;;18342-6
;;9002226.02101,"710,18353-3 ",.01)
;;18353-3
;;9002226.02101,"710,18353-3 ",.02)
;;18353-3
;;9002226.02101,"710,18354-1 ",.01)
;;18354-1
;;9002226.02101,"710,18354-1 ",.02)
;;18354-1
;;9002226.02101,"710,19104-9 ",.01)
;;19104-9
;;9002226.02101,"710,19104-9 ",.02)
;;19104-9
;;9002226.02101,"710,19105-6 ",.01)
;;19105-6
;;9002226.02101,"710,19105-6 ",.02)
;;19105-6
;;9002226.02101,"710,20436-2 ",.01)
;;20436-2
;;9002226.02101,"710,20436-2 ",.02)
;;20436-2
;;9002226.02101,"710,20437-0 ",.01)
;;20437-0
;;9002226.02101,"710,20437-0 ",.02)
;;20437-0
;;9002226.02101,"710,20438-8 ",.01)
;;20438-8
;;9002226.02101,"710,20438-8 ",.02)
;;20438-8
;;9002226.02101,"710,20439-6 ",.01)
;;20439-6
;;9002226.02101,"710,20439-6 ",.02)
;;20439-6
;;9002226.02101,"710,20440-4 ",.01)
;;20440-4
;;9002226.02101,"710,20440-4 ",.02)
;;20440-4
;;9002226.02101,"710,20441-2 ",.01)
;;20441-2
;;9002226.02101,"710,20441-2 ",.02)
;;20441-2
;;9002226.02101,"710,21308-2 ",.01)
;;21308-2
;;9002226.02101,"710,21308-2 ",.02)
;;21308-2
;;9002226.02101,"710,21309-0 ",.01)
;;21309-0
;;9002226.02101,"710,21309-0 ",.02)
;;21309-0
;;9002226.02101,"710,21310-8 ",.01)
;;21310-8
;;9002226.02101,"710,21310-8 ",.02)
;;21310-8
;;9002226.02101,"710,2339-0 ",.01)
;;2339-0
;;9002226.02101,"710,2339-0 ",.02)
;;2339-0
;;9002226.02101,"710,2340-8 ",.01)
;;2340-8
BGP9TXSF ; 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,1538-8 ",.01)
+2 ;;1538-8
+3 ;;9002226.02101,"710,1538-8 ",.02)
+4 ;;1538-8
+5 ;;9002226.02101,"710,1539-6 ",.01)
+6 ;;1539-6
+7 ;;9002226.02101,"710,1539-6 ",.02)
+8 ;;1539-6
+9 ;;9002226.02101,"710,1540-4 ",.01)
+10 ;;1540-4
+11 ;;9002226.02101,"710,1540-4 ",.02)
+12 ;;1540-4
+13 ;;9002226.02101,"710,1541-2 ",.01)
+14 ;;1541-2
+15 ;;9002226.02101,"710,1541-2 ",.02)
+16 ;;1541-2
+17 ;;9002226.02101,"710,1542-0 ",.01)
+18 ;;1542-0
+19 ;;9002226.02101,"710,1542-0 ",.02)
+20 ;;1542-0
+21 ;;9002226.02101,"710,1543-8 ",.01)
+22 ;;1543-8
+23 ;;9002226.02101,"710,1543-8 ",.02)
+24 ;;1543-8
+25 ;;9002226.02101,"710,1544-6 ",.01)
+26 ;;1544-6
+27 ;;9002226.02101,"710,1544-6 ",.02)
+28 ;;1544-6
+29 ;;9002226.02101,"710,1545-3 ",.01)
+30 ;;1545-3
+31 ;;9002226.02101,"710,1545-3 ",.02)
+32 ;;1545-3
+33 ;;9002226.02101,"710,1547-9 ",.01)
+34 ;;1547-9
+35 ;;9002226.02101,"710,1547-9 ",.02)
+36 ;;1547-9
+37 ;;9002226.02101,"710,1548-7 ",.01)
+38 ;;1548-7
+39 ;;9002226.02101,"710,1548-7 ",.02)
+40 ;;1548-7
+41 ;;9002226.02101,"710,1549-5 ",.01)
+42 ;;1549-5
+43 ;;9002226.02101,"710,1549-5 ",.02)
+44 ;;1549-5
+45 ;;9002226.02101,"710,1550-3 ",.01)
+46 ;;1550-3
+47 ;;9002226.02101,"710,1550-3 ",.02)
+48 ;;1550-3
+49 ;;9002226.02101,"710,1551-1 ",.01)
+50 ;;1551-1
+51 ;;9002226.02101,"710,1551-1 ",.02)
+52 ;;1551-1
+53 ;;9002226.02101,"710,1552-9 ",.01)
+54 ;;1552-9
+55 ;;9002226.02101,"710,1552-9 ",.02)
+56 ;;1552-9
+57 ;;9002226.02101,"710,1553-7 ",.01)
+58 ;;1553-7
+59 ;;9002226.02101,"710,1553-7 ",.02)
+60 ;;1553-7
+61 ;;9002226.02101,"710,1554-5 ",.01)
+62 ;;1554-5
+63 ;;9002226.02101,"710,1554-5 ",.02)
+64 ;;1554-5
+65 ;;9002226.02101,"710,1555-2 ",.01)
+66 ;;1555-2
+67 ;;9002226.02101,"710,1555-2 ",.02)
+68 ;;1555-2
+69 ;;9002226.02101,"710,1556-0 ",.01)
+70 ;;1556-0
+71 ;;9002226.02101,"710,1556-0 ",.02)
+72 ;;1556-0
+73 ;;9002226.02101,"710,1557-8 ",.01)
+74 ;;1557-8
+75 ;;9002226.02101,"710,1557-8 ",.02)
+76 ;;1557-8
+77 ;;9002226.02101,"710,1558-6 ",.01)
+78 ;;1558-6
+79 ;;9002226.02101,"710,1558-6 ",.02)
+80 ;;1558-6
+81 ;;9002226.02101,"710,16165-3 ",.01)
+82 ;;16165-3
+83 ;;9002226.02101,"710,16165-3 ",.02)
+84 ;;16165-3
+85 ;;9002226.02101,"710,16166-1 ",.01)
+86 ;;16166-1
+87 ;;9002226.02101,"710,16166-1 ",.02)
+88 ;;16166-1
+89 ;;9002226.02101,"710,16167-9 ",.01)
+90 ;;16167-9
+91 ;;9002226.02101,"710,16167-9 ",.02)
+92 ;;16167-9
+93 ;;9002226.02101,"710,16168-7 ",.01)
+94 ;;16168-7
+95 ;;9002226.02101,"710,16168-7 ",.02)
+96 ;;16168-7
+97 ;;9002226.02101,"710,16169-5 ",.01)
+98 ;;16169-5
+99 ;;9002226.02101,"710,16169-5 ",.02)
+100 ;;16169-5
+101 ;;9002226.02101,"710,16170-3 ",.01)
+102 ;;16170-3
+103 ;;9002226.02101,"710,16170-3 ",.02)
+104 ;;16170-3
+105 ;;9002226.02101,"710,16906-0 ",.01)
+106 ;;16906-0
+107 ;;9002226.02101,"710,16906-0 ",.02)
+108 ;;16906-0
+109 ;;9002226.02101,"710,16907-8 ",.01)
+110 ;;16907-8
+111 ;;9002226.02101,"710,16907-8 ",.02)
+112 ;;16907-8
+113 ;;9002226.02101,"710,16908-6 ",.01)
+114 ;;16908-6
+115 ;;9002226.02101,"710,16908-6 ",.02)
+116 ;;16908-6
+117 ;;9002226.02101,"710,16909-4 ",.01)
+118 ;;16909-4
+119 ;;9002226.02101,"710,16909-4 ",.02)
+120 ;;16909-4
+121 ;;9002226.02101,"710,16910-2 ",.01)
+122 ;;16910-2
+123 ;;9002226.02101,"710,16910-2 ",.02)
+124 ;;16910-2
+125 ;;9002226.02101,"710,16911-0 ",.01)
+126 ;;16911-0
+127 ;;9002226.02101,"710,16911-0 ",.02)
+128 ;;16911-0
+129 ;;9002226.02101,"710,16912-8 ",.01)
+130 ;;16912-8
+131 ;;9002226.02101,"710,16912-8 ",.02)
+132 ;;16912-8
+133 ;;9002226.02101,"710,16913-6 ",.01)
+134 ;;16913-6
+135 ;;9002226.02101,"710,16913-6 ",.02)
+136 ;;16913-6
+137 ;;9002226.02101,"710,16914-4 ",.01)
+138 ;;16914-4
+139 ;;9002226.02101,"710,16914-4 ",.02)
+140 ;;16914-4
+141 ;;9002226.02101,"710,16915-1 ",.01)
+142 ;;16915-1
+143 ;;9002226.02101,"710,16915-1 ",.02)
+144 ;;16915-1
+145 ;;9002226.02101,"710,17865-7 ",.01)
+146 ;;17865-7
+147 ;;9002226.02101,"710,17865-7 ",.02)
+148 ;;17865-7
+149 ;;9002226.02101,"710,18296-4 ",.01)
+150 ;;18296-4
+151 ;;9002226.02101,"710,18296-4 ",.02)
+152 ;;18296-4
+153 ;;9002226.02101,"710,18342-6 ",.01)
+154 ;;18342-6
+155 ;;9002226.02101,"710,18342-6 ",.02)
+156 ;;18342-6
+157 ;;9002226.02101,"710,18353-3 ",.01)
+158 ;;18353-3
+159 ;;9002226.02101,"710,18353-3 ",.02)
+160 ;;18353-3
+161 ;;9002226.02101,"710,18354-1 ",.01)
+162 ;;18354-1
+163 ;;9002226.02101,"710,18354-1 ",.02)
+164 ;;18354-1
+165 ;;9002226.02101,"710,19104-9 ",.01)
+166 ;;19104-9
+167 ;;9002226.02101,"710,19104-9 ",.02)
+168 ;;19104-9
+169 ;;9002226.02101,"710,19105-6 ",.01)
+170 ;;19105-6
+171 ;;9002226.02101,"710,19105-6 ",.02)
+172 ;;19105-6
+173 ;;9002226.02101,"710,20436-2 ",.01)
+174 ;;20436-2
+175 ;;9002226.02101,"710,20436-2 ",.02)
+176 ;;20436-2
+177 ;;9002226.02101,"710,20437-0 ",.01)
+178 ;;20437-0
+179 ;;9002226.02101,"710,20437-0 ",.02)
+180 ;;20437-0
+181 ;;9002226.02101,"710,20438-8 ",.01)
+182 ;;20438-8
+183 ;;9002226.02101,"710,20438-8 ",.02)
+184 ;;20438-8
+185 ;;9002226.02101,"710,20439-6 ",.01)
+186 ;;20439-6
+187 ;;9002226.02101,"710,20439-6 ",.02)
+188 ;;20439-6
+189 ;;9002226.02101,"710,20440-4 ",.01)
+190 ;;20440-4
+191 ;;9002226.02101,"710,20440-4 ",.02)
+192 ;;20440-4
+193 ;;9002226.02101,"710,20441-2 ",.01)
+194 ;;20441-2
+195 ;;9002226.02101,"710,20441-2 ",.02)
+196 ;;20441-2
+197 ;;9002226.02101,"710,21308-2 ",.01)
+198 ;;21308-2
+199 ;;9002226.02101,"710,21308-2 ",.02)
+200 ;;21308-2
+201 ;;9002226.02101,"710,21309-0 ",.01)
+202 ;;21309-0
+203 ;;9002226.02101,"710,21309-0 ",.02)
+204 ;;21309-0
+205 ;;9002226.02101,"710,21310-8 ",.01)
+206 ;;21310-8
+207 ;;9002226.02101,"710,21310-8 ",.02)
+208 ;;21310-8
+209 ;;9002226.02101,"710,2339-0 ",.01)
+210 ;;2339-0
+211 ;;9002226.02101,"710,2339-0 ",.02)
+212 ;;2339-0
+213 ;;9002226.02101,"710,2340-8 ",.01)
+214 ;;2340-8
