BGPTXXP ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 19, 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,"781,30053-3 ",.01)
;;30053-3
;;9002226.02101,"781,30053-3 ",.02)
;;30053-3
;;9002226.02101,"781,30054-1 ",.01)
;;30054-1
;;9002226.02101,"781,30054-1 ",.02)
;;30054-1
;;9002226.02101,"781,30055-8 ",.01)
;;30055-8
;;9002226.02101,"781,30055-8 ",.02)
;;30055-8
;;9002226.02101,"781,30056-6 ",.01)
;;30056-6
;;9002226.02101,"781,30056-6 ",.02)
;;30056-6
;;9002226.02101,"781,30057-4 ",.01)
;;30057-4
;;9002226.02101,"781,30057-4 ",.02)
;;30057-4
;;9002226.02101,"781,30058-2 ",.01)
;;30058-2
;;9002226.02101,"781,30058-2 ",.02)
;;30058-2
;;9002226.02101,"781,30059-0 ",.01)
;;30059-0
;;9002226.02101,"781,30059-0 ",.02)
;;30059-0
;;9002226.02101,"781,30061-6 ",.01)
;;30061-6
;;9002226.02101,"781,30061-6 ",.02)
;;30061-6
;;9002226.02101,"781,30062-4 ",.01)
;;30062-4
;;9002226.02101,"781,30062-4 ",.02)
;;30062-4
;;9002226.02101,"781,30063-2 ",.01)
;;30063-2
;;9002226.02101,"781,30063-2 ",.02)
;;30063-2
;;9002226.02101,"781,30064-0 ",.01)
;;30064-0
;;9002226.02101,"781,30064-0 ",.02)
;;30064-0
;;9002226.02101,"781,30065-7 ",.01)
;;30065-7
;;9002226.02101,"781,30065-7 ",.02)
;;30065-7
;;9002226.02101,"781,30066-5 ",.01)
;;30066-5
;;9002226.02101,"781,30066-5 ",.02)
;;30066-5
;;9002226.02101,"781,30067-3 ",.01)
;;30067-3
;;9002226.02101,"781,30067-3 ",.02)
;;30067-3
;;9002226.02101,"781,30068-1 ",.01)
;;30068-1
;;9002226.02101,"781,30068-1 ",.02)
;;30068-1
;;9002226.02101,"781,30077-2 ",.01)
;;30077-2
;;9002226.02101,"781,30077-2 ",.02)
;;30077-2
;;9002226.02101,"781,30154-9 ",.01)
;;30154-9
;;9002226.02101,"781,30154-9 ",.02)
;;30154-9
;;9002226.02101,"781,30161-4 ",.01)
;;30161-4
;;9002226.02101,"781,30161-4 ",.02)
;;30161-4
;;9002226.02101,"781,30171-3 ",.01)
;;30171-3
;;9002226.02101,"781,30171-3 ",.02)
;;30171-3
;;9002226.02101,"781,30172-1 ",.01)
;;30172-1
;;9002226.02101,"781,30172-1 ",.02)
;;30172-1
;;9002226.02101,"781,30508-6 ",.01)
;;30508-6
;;9002226.02101,"781,30508-6 ",.02)
;;30508-6
;;9002226.02101,"781,30509-4 ",.01)
;;30509-4
;;9002226.02101,"781,30509-4 ",.02)
;;30509-4
;;9002226.02101,"781,30510-2 ",.01)
;;30510-2
;;9002226.02101,"781,30510-2 ",.02)
;;30510-2
;;9002226.02101,"781,30511-0 ",.01)
;;30511-0
;;9002226.02101,"781,30511-0 ",.02)
;;30511-0
;;9002226.02101,"781,30512-8 ",.01)
;;30512-8
;;9002226.02101,"781,30512-8 ",.02)
;;30512-8
;;9002226.02101,"781,30513-6 ",.01)
;;30513-6
;;9002226.02101,"781,30513-6 ",.02)
;;30513-6
;;9002226.02101,"781,30514-4 ",.01)
;;30514-4
;;9002226.02101,"781,30514-4 ",.02)
;;30514-4
;;9002226.02101,"781,30515-1 ",.01)
;;30515-1
;;9002226.02101,"781,30515-1 ",.02)
;;30515-1
;;9002226.02101,"781,30571-4 ",.01)
;;30571-4
;;9002226.02101,"781,30571-4 ",.02)
;;30571-4
;;9002226.02101,"781,3089-0 ",.01)
;;3089-0
;;9002226.02101,"781,3089-0 ",.02)
;;3089-0
;;9002226.02101,"781,3097-3 ",.01)
;;3097-3
;;9002226.02101,"781,3097-3 ",.02)
;;3097-3
;;9002226.02101,"781,31045-8 ",.01)
;;31045-8
;;9002226.02101,"781,31045-8 ",.02)
;;31045-8
;;9002226.02101,"781,31101-9 ",.01)
;;31101-9
;;9002226.02101,"781,31101-9 ",.02)
;;31101-9
;;9002226.02101,"781,31171-2 ",.01)
;;31171-2
;;9002226.02101,"781,31171-2 ",.02)
;;31171-2
;;9002226.02101,"781,3124-5 ",.01)
;;3124-5
;;9002226.02101,"781,3124-5 ",.02)
;;3124-5
;;9002226.02101,"781,32008-5 ",.01)
;;32008-5
;;9002226.02101,"781,32008-5 ",.02)
;;32008-5
;;9002226.02101,"781,32009-3 ",.01)
;;32009-3
;;9002226.02101,"781,32009-3 ",.02)
;;32009-3
;;9002226.02101,"781,32043-2 ",.01)
;;32043-2
;;9002226.02101,"781,32043-2 ",.02)
;;32043-2
;;9002226.02101,"781,32179-4 ",.01)
;;32179-4
;;9002226.02101,"781,32179-4 ",.02)
;;32179-4
;;9002226.02101,"781,32229-7 ",.01)
;;32229-7
;;9002226.02101,"781,32229-7 ",.02)
;;32229-7
;;9002226.02101,"781,32248-7 ",.01)
;;32248-7
;;9002226.02101,"781,32248-7 ",.02)
;;32248-7
;;9002226.02101,"781,32262-8 ",.01)
;;32262-8
;;9002226.02101,"781,32262-8 ",.02)
;;32262-8
;;9002226.02101,"781,32274-3 ",.01)
;;32274-3
;;9002226.02101,"781,32274-3 ",.02)
;;32274-3
;;9002226.02101,"781,32294-1 ",.01)
;;32294-1
;;9002226.02101,"781,32294-1 ",.02)
;;32294-1
;;9002226.02101,"781,32543-1 ",.01)
;;32543-1
;;9002226.02101,"781,32543-1 ",.02)
;;32543-1
;;9002226.02101,"781,32549-8 ",.01)
;;32549-8
;;9002226.02101,"781,32549-8 ",.02)
;;32549-8
;;9002226.02101,"781,32570-4 ",.01)
;;32570-4
;;9002226.02101,"781,32570-4 ",.02)
;;32570-4
;;9002226.02101,"781,32616-5 ",.01)
;;32616-5
;;9002226.02101,"781,32616-5 ",.02)
;;32616-5
;;9002226.02101,"781,32655-3 ",.01)
;;32655-3
;;9002226.02101,"781,32655-3 ",.02)
;;32655-3
;;9002226.02101,"781,32799-9 ",.01)
;;32799-9
;;9002226.02101,"781,32799-9 ",.02)
;;32799-9
;;9002226.02101,"781,33343-5 ",.01)
;;33343-5
;;9002226.02101,"781,33343-5 ",.02)
;;33343-5
;;9002226.02101,"781,33347-6 ",.01)
;;33347-6
;;9002226.02101,"781,33347-6 ",.02)
;;33347-6
;;9002226.02101,"781,33352-6 ",.01)
;;33352-6
BGPTXXP ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 19, 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,"781,30053-3 ",.01)
+2 ;;30053-3
+3 ;;9002226.02101,"781,30053-3 ",.02)
+4 ;;30053-3
+5 ;;9002226.02101,"781,30054-1 ",.01)
+6 ;;30054-1
+7 ;;9002226.02101,"781,30054-1 ",.02)
+8 ;;30054-1
+9 ;;9002226.02101,"781,30055-8 ",.01)
+10 ;;30055-8
+11 ;;9002226.02101,"781,30055-8 ",.02)
+12 ;;30055-8
+13 ;;9002226.02101,"781,30056-6 ",.01)
+14 ;;30056-6
+15 ;;9002226.02101,"781,30056-6 ",.02)
+16 ;;30056-6
+17 ;;9002226.02101,"781,30057-4 ",.01)
+18 ;;30057-4
+19 ;;9002226.02101,"781,30057-4 ",.02)
+20 ;;30057-4
+21 ;;9002226.02101,"781,30058-2 ",.01)
+22 ;;30058-2
+23 ;;9002226.02101,"781,30058-2 ",.02)
+24 ;;30058-2
+25 ;;9002226.02101,"781,30059-0 ",.01)
+26 ;;30059-0
+27 ;;9002226.02101,"781,30059-0 ",.02)
+28 ;;30059-0
+29 ;;9002226.02101,"781,30061-6 ",.01)
+30 ;;30061-6
+31 ;;9002226.02101,"781,30061-6 ",.02)
+32 ;;30061-6
+33 ;;9002226.02101,"781,30062-4 ",.01)
+34 ;;30062-4
+35 ;;9002226.02101,"781,30062-4 ",.02)
+36 ;;30062-4
+37 ;;9002226.02101,"781,30063-2 ",.01)
+38 ;;30063-2
+39 ;;9002226.02101,"781,30063-2 ",.02)
+40 ;;30063-2
+41 ;;9002226.02101,"781,30064-0 ",.01)
+42 ;;30064-0
+43 ;;9002226.02101,"781,30064-0 ",.02)
+44 ;;30064-0
+45 ;;9002226.02101,"781,30065-7 ",.01)
+46 ;;30065-7
+47 ;;9002226.02101,"781,30065-7 ",.02)
+48 ;;30065-7
+49 ;;9002226.02101,"781,30066-5 ",.01)
+50 ;;30066-5
+51 ;;9002226.02101,"781,30066-5 ",.02)
+52 ;;30066-5
+53 ;;9002226.02101,"781,30067-3 ",.01)
+54 ;;30067-3
+55 ;;9002226.02101,"781,30067-3 ",.02)
+56 ;;30067-3
+57 ;;9002226.02101,"781,30068-1 ",.01)
+58 ;;30068-1
+59 ;;9002226.02101,"781,30068-1 ",.02)
+60 ;;30068-1
+61 ;;9002226.02101,"781,30077-2 ",.01)
+62 ;;30077-2
+63 ;;9002226.02101,"781,30077-2 ",.02)
+64 ;;30077-2
+65 ;;9002226.02101,"781,30154-9 ",.01)
+66 ;;30154-9
+67 ;;9002226.02101,"781,30154-9 ",.02)
+68 ;;30154-9
+69 ;;9002226.02101,"781,30161-4 ",.01)
+70 ;;30161-4
+71 ;;9002226.02101,"781,30161-4 ",.02)
+72 ;;30161-4
+73 ;;9002226.02101,"781,30171-3 ",.01)
+74 ;;30171-3
+75 ;;9002226.02101,"781,30171-3 ",.02)
+76 ;;30171-3
+77 ;;9002226.02101,"781,30172-1 ",.01)
+78 ;;30172-1
+79 ;;9002226.02101,"781,30172-1 ",.02)
+80 ;;30172-1
+81 ;;9002226.02101,"781,30508-6 ",.01)
+82 ;;30508-6
+83 ;;9002226.02101,"781,30508-6 ",.02)
+84 ;;30508-6
+85 ;;9002226.02101,"781,30509-4 ",.01)
+86 ;;30509-4
+87 ;;9002226.02101,"781,30509-4 ",.02)
+88 ;;30509-4
+89 ;;9002226.02101,"781,30510-2 ",.01)
+90 ;;30510-2
+91 ;;9002226.02101,"781,30510-2 ",.02)
+92 ;;30510-2
+93 ;;9002226.02101,"781,30511-0 ",.01)
+94 ;;30511-0
+95 ;;9002226.02101,"781,30511-0 ",.02)
+96 ;;30511-0
+97 ;;9002226.02101,"781,30512-8 ",.01)
+98 ;;30512-8
+99 ;;9002226.02101,"781,30512-8 ",.02)
+100 ;;30512-8
+101 ;;9002226.02101,"781,30513-6 ",.01)
+102 ;;30513-6
+103 ;;9002226.02101,"781,30513-6 ",.02)
+104 ;;30513-6
+105 ;;9002226.02101,"781,30514-4 ",.01)
+106 ;;30514-4
+107 ;;9002226.02101,"781,30514-4 ",.02)
+108 ;;30514-4
+109 ;;9002226.02101,"781,30515-1 ",.01)
+110 ;;30515-1
+111 ;;9002226.02101,"781,30515-1 ",.02)
+112 ;;30515-1
+113 ;;9002226.02101,"781,30571-4 ",.01)
+114 ;;30571-4
+115 ;;9002226.02101,"781,30571-4 ",.02)
+116 ;;30571-4
+117 ;;9002226.02101,"781,3089-0 ",.01)
+118 ;;3089-0
+119 ;;9002226.02101,"781,3089-0 ",.02)
+120 ;;3089-0
+121 ;;9002226.02101,"781,3097-3 ",.01)
+122 ;;3097-3
+123 ;;9002226.02101,"781,3097-3 ",.02)
+124 ;;3097-3
+125 ;;9002226.02101,"781,31045-8 ",.01)
+126 ;;31045-8
+127 ;;9002226.02101,"781,31045-8 ",.02)
+128 ;;31045-8
+129 ;;9002226.02101,"781,31101-9 ",.01)
+130 ;;31101-9
+131 ;;9002226.02101,"781,31101-9 ",.02)
+132 ;;31101-9
+133 ;;9002226.02101,"781,31171-2 ",.01)
+134 ;;31171-2
+135 ;;9002226.02101,"781,31171-2 ",.02)
+136 ;;31171-2
+137 ;;9002226.02101,"781,3124-5 ",.01)
+138 ;;3124-5
+139 ;;9002226.02101,"781,3124-5 ",.02)
+140 ;;3124-5
+141 ;;9002226.02101,"781,32008-5 ",.01)
+142 ;;32008-5
+143 ;;9002226.02101,"781,32008-5 ",.02)
+144 ;;32008-5
+145 ;;9002226.02101,"781,32009-3 ",.01)
+146 ;;32009-3
+147 ;;9002226.02101,"781,32009-3 ",.02)
+148 ;;32009-3
+149 ;;9002226.02101,"781,32043-2 ",.01)
+150 ;;32043-2
+151 ;;9002226.02101,"781,32043-2 ",.02)
+152 ;;32043-2
+153 ;;9002226.02101,"781,32179-4 ",.01)
+154 ;;32179-4
+155 ;;9002226.02101,"781,32179-4 ",.02)
+156 ;;32179-4
+157 ;;9002226.02101,"781,32229-7 ",.01)
+158 ;;32229-7
+159 ;;9002226.02101,"781,32229-7 ",.02)
+160 ;;32229-7
+161 ;;9002226.02101,"781,32248-7 ",.01)
+162 ;;32248-7
+163 ;;9002226.02101,"781,32248-7 ",.02)
+164 ;;32248-7
+165 ;;9002226.02101,"781,32262-8 ",.01)
+166 ;;32262-8
+167 ;;9002226.02101,"781,32262-8 ",.02)
+168 ;;32262-8
+169 ;;9002226.02101,"781,32274-3 ",.01)
+170 ;;32274-3
+171 ;;9002226.02101,"781,32274-3 ",.02)
+172 ;;32274-3
+173 ;;9002226.02101,"781,32294-1 ",.01)
+174 ;;32294-1
+175 ;;9002226.02101,"781,32294-1 ",.02)
+176 ;;32294-1
+177 ;;9002226.02101,"781,32543-1 ",.01)
+178 ;;32543-1
+179 ;;9002226.02101,"781,32543-1 ",.02)
+180 ;;32543-1
+181 ;;9002226.02101,"781,32549-8 ",.01)
+182 ;;32549-8
+183 ;;9002226.02101,"781,32549-8 ",.02)
+184 ;;32549-8
+185 ;;9002226.02101,"781,32570-4 ",.01)
+186 ;;32570-4
+187 ;;9002226.02101,"781,32570-4 ",.02)
+188 ;;32570-4
+189 ;;9002226.02101,"781,32616-5 ",.01)
+190 ;;32616-5
+191 ;;9002226.02101,"781,32616-5 ",.02)
+192 ;;32616-5
+193 ;;9002226.02101,"781,32655-3 ",.01)
+194 ;;32655-3
+195 ;;9002226.02101,"781,32655-3 ",.02)
+196 ;;32655-3
+197 ;;9002226.02101,"781,32799-9 ",.01)
+198 ;;32799-9
+199 ;;9002226.02101,"781,32799-9 ",.02)
+200 ;;32799-9
+201 ;;9002226.02101,"781,33343-5 ",.01)
+202 ;;33343-5
+203 ;;9002226.02101,"781,33343-5 ",.02)
+204 ;;33343-5
+205 ;;9002226.02101,"781,33347-6 ",.01)
+206 ;;33347-6
+207 ;;9002226.02101,"781,33347-6 ",.02)
+208 ;;33347-6
+209 ;;9002226.02101,"781,33352-6 ",.01)
+210 ;;33352-6
