BGPUXAF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUL 05, 2004 ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
;
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,"801,13483-3 ",.01)
;;13483-3
;;9002226.02101,"801,13483-3 ",.02)
;;13483-3
;;9002226.02101,"801,13484-1 ",.01)
;;13484-1
;;9002226.02101,"801,13484-1 ",.02)
;;13484-1
;;9002226.02101,"801,13485-8 ",.01)
;;13485-8
;;9002226.02101,"801,13485-8 ",.02)
;;13485-8
;;9002226.02101,"801,13486-6 ",.01)
;;13486-6
;;9002226.02101,"801,13486-6 ",.02)
;;13486-6
;;9002226.02101,"801,13487-4 ",.01)
;;13487-4
;;9002226.02101,"801,13487-4 ",.02)
;;13487-4
;;9002226.02101,"801,13489-0 ",.01)
;;13489-0
;;9002226.02101,"801,13489-0 ",.02)
;;13489-0
;;9002226.02101,"801,13490-8 ",.01)
;;13490-8
;;9002226.02101,"801,13490-8 ",.02)
;;13490-8
;;9002226.02101,"801,13665-5 ",.01)
;;13665-5
;;9002226.02101,"801,13665-5 ",.02)
;;13665-5
;;9002226.02101,"801,13666-3 ",.01)
;;13666-3
;;9002226.02101,"801,13666-3 ",.02)
;;13666-3
;;9002226.02101,"801,13667-1 ",.01)
;;13667-1
;;9002226.02101,"801,13667-1 ",.02)
;;13667-1
;;9002226.02101,"801,13668-9 ",.01)
;;13668-9
;;9002226.02101,"801,13668-9 ",.02)
;;13668-9
;;9002226.02101,"801,13669-7 ",.01)
;;13669-7
;;9002226.02101,"801,13669-7 ",.02)
;;13669-7
;;9002226.02101,"801,13670-5 ",.01)
;;13670-5
;;9002226.02101,"801,13670-5 ",.02)
;;13670-5
;;9002226.02101,"801,13671-3 ",.01)
;;13671-3
;;9002226.02101,"801,13671-3 ",.02)
;;13671-3
;;9002226.02101,"801,13672-1 ",.01)
;;13672-1
;;9002226.02101,"801,13672-1 ",.02)
;;13672-1
;;9002226.02101,"801,13673-9 ",.01)
;;13673-9
;;9002226.02101,"801,13673-9 ",.02)
;;13673-9
;;9002226.02101,"801,13674-7 ",.01)
;;13674-7
;;9002226.02101,"801,13674-7 ",.02)
;;13674-7
;;9002226.02101,"801,13675-4 ",.01)
;;13675-4
;;9002226.02101,"801,13675-4 ",.02)
;;13675-4
;;9002226.02101,"801,13676-2 ",.01)
;;13676-2
;;9002226.02101,"801,13676-2 ",.02)
;;13676-2
;;9002226.02101,"801,13677-0 ",.01)
;;13677-0
;;9002226.02101,"801,13677-0 ",.02)
;;13677-0
;;9002226.02101,"801,13678-8 ",.01)
;;13678-8
;;9002226.02101,"801,13678-8 ",.02)
;;13678-8
;;9002226.02101,"801,13679-6 ",.01)
;;13679-6
;;9002226.02101,"801,13679-6 ",.02)
;;13679-6
;;9002226.02101,"801,13680-4 ",.01)
;;13680-4
;;9002226.02101,"801,13680-4 ",.02)
;;13680-4
;;9002226.02101,"801,13681-2 ",.01)
;;13681-2
;;9002226.02101,"801,13681-2 ",.02)
;;13681-2
;;9002226.02101,"801,13682-0 ",.01)
;;13682-0
;;9002226.02101,"801,13682-0 ",.02)
;;13682-0
;;9002226.02101,"801,13683-8 ",.01)
;;13683-8
;;9002226.02101,"801,13683-8 ",.02)
;;13683-8
;;9002226.02101,"801,13684-6 ",.01)
;;13684-6
;;9002226.02101,"801,13684-6 ",.02)
;;13684-6
;;9002226.02101,"801,13685-3 ",.01)
;;13685-3
;;9002226.02101,"801,13685-3 ",.02)
;;13685-3
;;9002226.02101,"801,13686-1 ",.01)
;;13686-1
;;9002226.02101,"801,13686-1 ",.02)
;;13686-1
;;9002226.02101,"801,13687-9 ",.01)
;;13687-9
;;9002226.02101,"801,13687-9 ",.02)
;;13687-9
;;9002226.02101,"801,13688-7 ",.01)
;;13688-7
;;9002226.02101,"801,13688-7 ",.02)
;;13688-7
;;9002226.02101,"801,13689-5 ",.01)
;;13689-5
;;9002226.02101,"801,13689-5 ",.02)
;;13689-5
;;9002226.02101,"801,13690-3 ",.01)
;;13690-3
;;9002226.02101,"801,13690-3 ",.02)
;;13690-3
;;9002226.02101,"801,13691-1 ",.01)
;;13691-1
;;9002226.02101,"801,13691-1 ",.02)
;;13691-1
;;9002226.02101,"801,13692-9 ",.01)
;;13692-9
;;9002226.02101,"801,13692-9 ",.02)
;;13692-9
;;9002226.02101,"801,13693-7 ",.01)
;;13693-7
;;9002226.02101,"801,13693-7 ",.02)
;;13693-7
;;9002226.02101,"801,13694-5 ",.01)
;;13694-5
;;9002226.02101,"801,13694-5 ",.02)
;;13694-5
;;9002226.02101,"801,13695-2 ",.01)
;;13695-2
;;9002226.02101,"801,13695-2 ",.02)
;;13695-2
;;9002226.02101,"801,13696-0 ",.01)
;;13696-0
;;9002226.02101,"801,13696-0 ",.02)
;;13696-0
;;9002226.02101,"801,13697-8 ",.01)
;;13697-8
;;9002226.02101,"801,13697-8 ",.02)
;;13697-8
;;9002226.02101,"801,13698-6 ",.01)
;;13698-6
;;9002226.02101,"801,13698-6 ",.02)
;;13698-6
;;9002226.02101,"801,13699-4 ",.01)
;;13699-4
;;9002226.02101,"801,13699-4 ",.02)
;;13699-4
;;9002226.02101,"801,13700-0 ",.01)
;;13700-0
;;9002226.02101,"801,13700-0 ",.02)
;;13700-0
;;9002226.02101,"801,13701-8 ",.01)
;;13701-8
;;9002226.02101,"801,13701-8 ",.02)
;;13701-8
;;9002226.02101,"801,13702-6 ",.01)
;;13702-6
;;9002226.02101,"801,13702-6 ",.02)
;;13702-6
;;9002226.02101,"801,13703-4 ",.01)
;;13703-4
;;9002226.02101,"801,13703-4 ",.02)
;;13703-4
;;9002226.02101,"801,13704-2 ",.01)
;;13704-2
;;9002226.02101,"801,13704-2 ",.02)
;;13704-2
;;9002226.02101,"801,13705-9 ",.01)
;;13705-9
;;9002226.02101,"801,13705-9 ",.02)
;;13705-9
;;9002226.02101,"801,13706-7 ",.01)
;;13706-7
;;9002226.02101,"801,13706-7 ",.02)
;;13706-7
;;9002226.02101,"801,13707-5 ",.01)
;;13707-5
;;9002226.02101,"801,13707-5 ",.02)
;;13707-5
;;9002226.02101,"801,13708-3 ",.01)
;;13708-3
;;9002226.02101,"801,13708-3 ",.02)
;;13708-3
;;9002226.02101,"801,13709-1 ",.01)
;;13709-1
;;9002226.02101,"801,13709-1 ",.02)
;;13709-1
;;9002226.02101,"801,13710-9 ",.01)
;;13710-9
BGPUXAF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUL 05, 2004 ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+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,"801,13483-3 ",.01)
+2 ;;13483-3
+3 ;;9002226.02101,"801,13483-3 ",.02)
+4 ;;13483-3
+5 ;;9002226.02101,"801,13484-1 ",.01)
+6 ;;13484-1
+7 ;;9002226.02101,"801,13484-1 ",.02)
+8 ;;13484-1
+9 ;;9002226.02101,"801,13485-8 ",.01)
+10 ;;13485-8
+11 ;;9002226.02101,"801,13485-8 ",.02)
+12 ;;13485-8
+13 ;;9002226.02101,"801,13486-6 ",.01)
+14 ;;13486-6
+15 ;;9002226.02101,"801,13486-6 ",.02)
+16 ;;13486-6
+17 ;;9002226.02101,"801,13487-4 ",.01)
+18 ;;13487-4
+19 ;;9002226.02101,"801,13487-4 ",.02)
+20 ;;13487-4
+21 ;;9002226.02101,"801,13489-0 ",.01)
+22 ;;13489-0
+23 ;;9002226.02101,"801,13489-0 ",.02)
+24 ;;13489-0
+25 ;;9002226.02101,"801,13490-8 ",.01)
+26 ;;13490-8
+27 ;;9002226.02101,"801,13490-8 ",.02)
+28 ;;13490-8
+29 ;;9002226.02101,"801,13665-5 ",.01)
+30 ;;13665-5
+31 ;;9002226.02101,"801,13665-5 ",.02)
+32 ;;13665-5
+33 ;;9002226.02101,"801,13666-3 ",.01)
+34 ;;13666-3
+35 ;;9002226.02101,"801,13666-3 ",.02)
+36 ;;13666-3
+37 ;;9002226.02101,"801,13667-1 ",.01)
+38 ;;13667-1
+39 ;;9002226.02101,"801,13667-1 ",.02)
+40 ;;13667-1
+41 ;;9002226.02101,"801,13668-9 ",.01)
+42 ;;13668-9
+43 ;;9002226.02101,"801,13668-9 ",.02)
+44 ;;13668-9
+45 ;;9002226.02101,"801,13669-7 ",.01)
+46 ;;13669-7
+47 ;;9002226.02101,"801,13669-7 ",.02)
+48 ;;13669-7
+49 ;;9002226.02101,"801,13670-5 ",.01)
+50 ;;13670-5
+51 ;;9002226.02101,"801,13670-5 ",.02)
+52 ;;13670-5
+53 ;;9002226.02101,"801,13671-3 ",.01)
+54 ;;13671-3
+55 ;;9002226.02101,"801,13671-3 ",.02)
+56 ;;13671-3
+57 ;;9002226.02101,"801,13672-1 ",.01)
+58 ;;13672-1
+59 ;;9002226.02101,"801,13672-1 ",.02)
+60 ;;13672-1
+61 ;;9002226.02101,"801,13673-9 ",.01)
+62 ;;13673-9
+63 ;;9002226.02101,"801,13673-9 ",.02)
+64 ;;13673-9
+65 ;;9002226.02101,"801,13674-7 ",.01)
+66 ;;13674-7
+67 ;;9002226.02101,"801,13674-7 ",.02)
+68 ;;13674-7
+69 ;;9002226.02101,"801,13675-4 ",.01)
+70 ;;13675-4
+71 ;;9002226.02101,"801,13675-4 ",.02)
+72 ;;13675-4
+73 ;;9002226.02101,"801,13676-2 ",.01)
+74 ;;13676-2
+75 ;;9002226.02101,"801,13676-2 ",.02)
+76 ;;13676-2
+77 ;;9002226.02101,"801,13677-0 ",.01)
+78 ;;13677-0
+79 ;;9002226.02101,"801,13677-0 ",.02)
+80 ;;13677-0
+81 ;;9002226.02101,"801,13678-8 ",.01)
+82 ;;13678-8
+83 ;;9002226.02101,"801,13678-8 ",.02)
+84 ;;13678-8
+85 ;;9002226.02101,"801,13679-6 ",.01)
+86 ;;13679-6
+87 ;;9002226.02101,"801,13679-6 ",.02)
+88 ;;13679-6
+89 ;;9002226.02101,"801,13680-4 ",.01)
+90 ;;13680-4
+91 ;;9002226.02101,"801,13680-4 ",.02)
+92 ;;13680-4
+93 ;;9002226.02101,"801,13681-2 ",.01)
+94 ;;13681-2
+95 ;;9002226.02101,"801,13681-2 ",.02)
+96 ;;13681-2
+97 ;;9002226.02101,"801,13682-0 ",.01)
+98 ;;13682-0
+99 ;;9002226.02101,"801,13682-0 ",.02)
+100 ;;13682-0
+101 ;;9002226.02101,"801,13683-8 ",.01)
+102 ;;13683-8
+103 ;;9002226.02101,"801,13683-8 ",.02)
+104 ;;13683-8
+105 ;;9002226.02101,"801,13684-6 ",.01)
+106 ;;13684-6
+107 ;;9002226.02101,"801,13684-6 ",.02)
+108 ;;13684-6
+109 ;;9002226.02101,"801,13685-3 ",.01)
+110 ;;13685-3
+111 ;;9002226.02101,"801,13685-3 ",.02)
+112 ;;13685-3
+113 ;;9002226.02101,"801,13686-1 ",.01)
+114 ;;13686-1
+115 ;;9002226.02101,"801,13686-1 ",.02)
+116 ;;13686-1
+117 ;;9002226.02101,"801,13687-9 ",.01)
+118 ;;13687-9
+119 ;;9002226.02101,"801,13687-9 ",.02)
+120 ;;13687-9
+121 ;;9002226.02101,"801,13688-7 ",.01)
+122 ;;13688-7
+123 ;;9002226.02101,"801,13688-7 ",.02)
+124 ;;13688-7
+125 ;;9002226.02101,"801,13689-5 ",.01)
+126 ;;13689-5
+127 ;;9002226.02101,"801,13689-5 ",.02)
+128 ;;13689-5
+129 ;;9002226.02101,"801,13690-3 ",.01)
+130 ;;13690-3
+131 ;;9002226.02101,"801,13690-3 ",.02)
+132 ;;13690-3
+133 ;;9002226.02101,"801,13691-1 ",.01)
+134 ;;13691-1
+135 ;;9002226.02101,"801,13691-1 ",.02)
+136 ;;13691-1
+137 ;;9002226.02101,"801,13692-9 ",.01)
+138 ;;13692-9
+139 ;;9002226.02101,"801,13692-9 ",.02)
+140 ;;13692-9
+141 ;;9002226.02101,"801,13693-7 ",.01)
+142 ;;13693-7
+143 ;;9002226.02101,"801,13693-7 ",.02)
+144 ;;13693-7
+145 ;;9002226.02101,"801,13694-5 ",.01)
+146 ;;13694-5
+147 ;;9002226.02101,"801,13694-5 ",.02)
+148 ;;13694-5
+149 ;;9002226.02101,"801,13695-2 ",.01)
+150 ;;13695-2
+151 ;;9002226.02101,"801,13695-2 ",.02)
+152 ;;13695-2
+153 ;;9002226.02101,"801,13696-0 ",.01)
+154 ;;13696-0
+155 ;;9002226.02101,"801,13696-0 ",.02)
+156 ;;13696-0
+157 ;;9002226.02101,"801,13697-8 ",.01)
+158 ;;13697-8
+159 ;;9002226.02101,"801,13697-8 ",.02)
+160 ;;13697-8
+161 ;;9002226.02101,"801,13698-6 ",.01)
+162 ;;13698-6
+163 ;;9002226.02101,"801,13698-6 ",.02)
+164 ;;13698-6
+165 ;;9002226.02101,"801,13699-4 ",.01)
+166 ;;13699-4
+167 ;;9002226.02101,"801,13699-4 ",.02)
+168 ;;13699-4
+169 ;;9002226.02101,"801,13700-0 ",.01)
+170 ;;13700-0
+171 ;;9002226.02101,"801,13700-0 ",.02)
+172 ;;13700-0
+173 ;;9002226.02101,"801,13701-8 ",.01)
+174 ;;13701-8
+175 ;;9002226.02101,"801,13701-8 ",.02)
+176 ;;13701-8
+177 ;;9002226.02101,"801,13702-6 ",.01)
+178 ;;13702-6
+179 ;;9002226.02101,"801,13702-6 ",.02)
+180 ;;13702-6
+181 ;;9002226.02101,"801,13703-4 ",.01)
+182 ;;13703-4
+183 ;;9002226.02101,"801,13703-4 ",.02)
+184 ;;13703-4
+185 ;;9002226.02101,"801,13704-2 ",.01)
+186 ;;13704-2
+187 ;;9002226.02101,"801,13704-2 ",.02)
+188 ;;13704-2
+189 ;;9002226.02101,"801,13705-9 ",.01)
+190 ;;13705-9
+191 ;;9002226.02101,"801,13705-9 ",.02)
+192 ;;13705-9
+193 ;;9002226.02101,"801,13706-7 ",.01)
+194 ;;13706-7
+195 ;;9002226.02101,"801,13706-7 ",.02)
+196 ;;13706-7
+197 ;;9002226.02101,"801,13707-5 ",.01)
+198 ;;13707-5
+199 ;;9002226.02101,"801,13707-5 ",.02)
+200 ;;13707-5
+201 ;;9002226.02101,"801,13708-3 ",.01)
+202 ;;13708-3
+203 ;;9002226.02101,"801,13708-3 ",.02)
+204 ;;13708-3
+205 ;;9002226.02101,"801,13709-1 ",.01)
+206 ;;13709-1
+207 ;;9002226.02101,"801,13709-1 ",.02)
+208 ;;13709-1
+209 ;;9002226.02101,"801,13710-9 ",.01)
+210 ;;13710-9
