BGPUTXZD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 21, 2005 ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
;;;BGPU;;APR 21, 2005
;
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,"370,27244 ",.01)
;;27244
;;9002226.02101,"370,27244 ",.02)
;;27244
;;9002226.02101,"370,27245 ",.01)
;;27245
;;9002226.02101,"370,27245 ",.02)
;;27245
;;9002226.02101,"370,27246 ",.01)
;;27246
;;9002226.02101,"370,27246 ",.02)
;;27246
;;9002226.02101,"370,27248 ",.01)
;;27248
;;9002226.02101,"370,27248 ",.02)
;;27248
;;9002226.02101,"370,27254 ",.01)
;;27254
;;9002226.02101,"370,27254 ",.02)
;;27254
;;9002226.02101,"370,27500 ",.01)
;;27500
;;9002226.02101,"370,27500 ",.02)
;;27500
;;9002226.02101,"370,27501 ",.01)
;;27501
;;9002226.02101,"370,27501 ",.02)
;;27501
;;9002226.02101,"370,27502 ",.01)
;;27502
;;9002226.02101,"370,27502 ",.02)
;;27502
;;9002226.02101,"370,27503 ",.01)
;;27503
;;9002226.02101,"370,27503 ",.02)
;;27503
;;9002226.02101,"370,27506 ",.01)
;;27506
;;9002226.02101,"370,27506 ",.02)
;;27506
;;9002226.02101,"370,27507 ",.01)
;;27507
;;9002226.02101,"370,27507 ",.02)
;;27507
;;9002226.02101,"370,27508 ",.01)
;;27508
;;9002226.02101,"370,27508 ",.02)
;;27508
;;9002226.02101,"370,27509 ",.01)
;;27509
;;9002226.02101,"370,27509 ",.02)
;;27509
;;9002226.02101,"370,27510 ",.01)
;;27510
;;9002226.02101,"370,27510 ",.02)
;;27510
;;9002226.02101,"370,27511 ",.01)
;;27511
;;9002226.02101,"370,27511 ",.02)
;;27511
;;9002226.02101,"370,27513 ",.01)
;;27513
;;9002226.02101,"370,27513 ",.02)
;;27513
;;9002226.02101,"370,27514 ",.01)
;;27514
;;9002226.02101,"370,27514 ",.02)
;;27514
;;9002226.02101,"370,27520 ",.01)
;;27520
;;9002226.02101,"370,27520 ",.02)
;;27520
;;9002226.02101,"370,27524 ",.01)
;;27524
;;9002226.02101,"370,27524 ",.02)
;;27524
;;9002226.02101,"370,27530 ",.01)
;;27530
;;9002226.02101,"370,27530 ",.02)
;;27530
;;9002226.02101,"370,27532 ",.01)
;;27532
;;9002226.02101,"370,27532 ",.02)
;;27532
;;9002226.02101,"370,27535 ",.01)
;;27535
;;9002226.02101,"370,27535 ",.02)
;;27535
;;9002226.02101,"370,27536 ",.01)
;;27536
;;9002226.02101,"370,27536 ",.02)
;;27536
;;9002226.02101,"370,27538 ",.01)
;;27538
;;9002226.02101,"370,27538 ",.02)
;;27538
;;9002226.02101,"370,27540 ",.01)
;;27540
;;9002226.02101,"370,27540 ",.02)
;;27540
;;9002226.02101,"370,27750 ",.01)
;;27750
;;9002226.02101,"370,27750 ",.02)
;;27750
;;9002226.02101,"370,27752 ",.01)
;;27752
;;9002226.02101,"370,27752 ",.02)
;;27752
;;9002226.02101,"370,27756 ",.01)
;;27756
;;9002226.02101,"370,27756 ",.02)
;;27756
;;9002226.02101,"370,27758 ",.01)
;;27758
;;9002226.02101,"370,27758 ",.02)
;;27758
;;9002226.02101,"370,27759 ",.01)
;;27759
;;9002226.02101,"370,27759 ",.02)
;;27759
;;9002226.02101,"370,27760 ",.01)
;;27760
;;9002226.02101,"370,27760 ",.02)
;;27760
;;9002226.02101,"370,27762 ",.01)
;;27762
;;9002226.02101,"370,27762 ",.02)
;;27762
;;9002226.02101,"370,27766 ",.01)
;;27766
;;9002226.02101,"370,27766 ",.02)
;;27766
;;9002226.02101,"370,27780 ",.01)
;;27780
;;9002226.02101,"370,27780 ",.02)
;;27780
;;9002226.02101,"370,27781 ",.01)
;;27781
;;9002226.02101,"370,27781 ",.02)
;;27781
;;9002226.02101,"370,27784 ",.01)
;;27784
;;9002226.02101,"370,27784 ",.02)
;;27784
;;9002226.02101,"370,27786 ",.01)
;;27786
;;9002226.02101,"370,27786 ",.02)
;;27786
;;9002226.02101,"370,27788 ",.01)
;;27788
;;9002226.02101,"370,27788 ",.02)
;;27788
;;9002226.02101,"370,27792 ",.01)
;;27792
;;9002226.02101,"370,27792 ",.02)
;;27792
;;9002226.02101,"370,27808 ",.01)
;;27808
;;9002226.02101,"370,27808 ",.02)
;;27808
;;9002226.02101,"370,27810 ",.01)
;;27810
;;9002226.02101,"370,27810 ",.02)
;;27810
;;9002226.02101,"370,27814 ",.01)
;;27814
;;9002226.02101,"370,27814 ",.02)
;;27814
;;9002226.02101,"370,27816 ",.01)
;;27816
;;9002226.02101,"370,27816 ",.02)
;;27816
;;9002226.02101,"370,27818 ",.01)
;;27818
;;9002226.02101,"370,27818 ",.02)
;;27818
;;9002226.02101,"370,27822 ",.01)
;;27822
;;9002226.02101,"370,27822 ",.02)
;;27822
;;9002226.02101,"370,27823 ",.01)
;;27823
;;9002226.02101,"370,27823 ",.02)
;;27823
;;9002226.02101,"370,27824 ",.01)
;;27824
;;9002226.02101,"370,27824 ",.02)
;;27824
;;9002226.02101,"370,27825 ",.01)
;;27825
;;9002226.02101,"370,27825 ",.02)
;;27825
;;9002226.02101,"370,27826 ",.01)
;;27826
;;9002226.02101,"370,27826 ",.02)
;;27826
;;9002226.02101,"370,27827 ",.01)
;;27827
;;9002226.02101,"370,27827 ",.02)
;;27827
;;9002226.02101,"370,27828 ",.01)
;;27828
;;9002226.02101,"370,27828 ",.02)
;;27828
;;9002226.02101,"370,28400 ",.01)
;;28400
;;9002226.02101,"370,28400 ",.02)
;;28400
;;9002226.02101,"370,28405 ",.01)
;;28405
;;9002226.02101,"370,28405 ",.02)
;;28405
;;9002226.02101,"370,28406 ",.01)
;;28406
;;9002226.02101,"370,28406 ",.02)
;;28406
;;9002226.02101,"370,28415 ",.01)
;;28415
;;9002226.02101,"370,28415 ",.02)
;;28415
;;9002226.02101,"370,28420 ",.01)
;;28420
;;9002226.02101,"370,28420 ",.02)
;;28420
BGPUTXZD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 21, 2005 ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+2 ;;;BGPU;;APR 21, 2005
+3 ;
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,"370,27244 ",.01)
+2 ;;27244
+3 ;;9002226.02101,"370,27244 ",.02)
+4 ;;27244
+5 ;;9002226.02101,"370,27245 ",.01)
+6 ;;27245
+7 ;;9002226.02101,"370,27245 ",.02)
+8 ;;27245
+9 ;;9002226.02101,"370,27246 ",.01)
+10 ;;27246
+11 ;;9002226.02101,"370,27246 ",.02)
+12 ;;27246
+13 ;;9002226.02101,"370,27248 ",.01)
+14 ;;27248
+15 ;;9002226.02101,"370,27248 ",.02)
+16 ;;27248
+17 ;;9002226.02101,"370,27254 ",.01)
+18 ;;27254
+19 ;;9002226.02101,"370,27254 ",.02)
+20 ;;27254
+21 ;;9002226.02101,"370,27500 ",.01)
+22 ;;27500
+23 ;;9002226.02101,"370,27500 ",.02)
+24 ;;27500
+25 ;;9002226.02101,"370,27501 ",.01)
+26 ;;27501
+27 ;;9002226.02101,"370,27501 ",.02)
+28 ;;27501
+29 ;;9002226.02101,"370,27502 ",.01)
+30 ;;27502
+31 ;;9002226.02101,"370,27502 ",.02)
+32 ;;27502
+33 ;;9002226.02101,"370,27503 ",.01)
+34 ;;27503
+35 ;;9002226.02101,"370,27503 ",.02)
+36 ;;27503
+37 ;;9002226.02101,"370,27506 ",.01)
+38 ;;27506
+39 ;;9002226.02101,"370,27506 ",.02)
+40 ;;27506
+41 ;;9002226.02101,"370,27507 ",.01)
+42 ;;27507
+43 ;;9002226.02101,"370,27507 ",.02)
+44 ;;27507
+45 ;;9002226.02101,"370,27508 ",.01)
+46 ;;27508
+47 ;;9002226.02101,"370,27508 ",.02)
+48 ;;27508
+49 ;;9002226.02101,"370,27509 ",.01)
+50 ;;27509
+51 ;;9002226.02101,"370,27509 ",.02)
+52 ;;27509
+53 ;;9002226.02101,"370,27510 ",.01)
+54 ;;27510
+55 ;;9002226.02101,"370,27510 ",.02)
+56 ;;27510
+57 ;;9002226.02101,"370,27511 ",.01)
+58 ;;27511
+59 ;;9002226.02101,"370,27511 ",.02)
+60 ;;27511
+61 ;;9002226.02101,"370,27513 ",.01)
+62 ;;27513
+63 ;;9002226.02101,"370,27513 ",.02)
+64 ;;27513
+65 ;;9002226.02101,"370,27514 ",.01)
+66 ;;27514
+67 ;;9002226.02101,"370,27514 ",.02)
+68 ;;27514
+69 ;;9002226.02101,"370,27520 ",.01)
+70 ;;27520
+71 ;;9002226.02101,"370,27520 ",.02)
+72 ;;27520
+73 ;;9002226.02101,"370,27524 ",.01)
+74 ;;27524
+75 ;;9002226.02101,"370,27524 ",.02)
+76 ;;27524
+77 ;;9002226.02101,"370,27530 ",.01)
+78 ;;27530
+79 ;;9002226.02101,"370,27530 ",.02)
+80 ;;27530
+81 ;;9002226.02101,"370,27532 ",.01)
+82 ;;27532
+83 ;;9002226.02101,"370,27532 ",.02)
+84 ;;27532
+85 ;;9002226.02101,"370,27535 ",.01)
+86 ;;27535
+87 ;;9002226.02101,"370,27535 ",.02)
+88 ;;27535
+89 ;;9002226.02101,"370,27536 ",.01)
+90 ;;27536
+91 ;;9002226.02101,"370,27536 ",.02)
+92 ;;27536
+93 ;;9002226.02101,"370,27538 ",.01)
+94 ;;27538
+95 ;;9002226.02101,"370,27538 ",.02)
+96 ;;27538
+97 ;;9002226.02101,"370,27540 ",.01)
+98 ;;27540
+99 ;;9002226.02101,"370,27540 ",.02)
+100 ;;27540
+101 ;;9002226.02101,"370,27750 ",.01)
+102 ;;27750
+103 ;;9002226.02101,"370,27750 ",.02)
+104 ;;27750
+105 ;;9002226.02101,"370,27752 ",.01)
+106 ;;27752
+107 ;;9002226.02101,"370,27752 ",.02)
+108 ;;27752
+109 ;;9002226.02101,"370,27756 ",.01)
+110 ;;27756
+111 ;;9002226.02101,"370,27756 ",.02)
+112 ;;27756
+113 ;;9002226.02101,"370,27758 ",.01)
+114 ;;27758
+115 ;;9002226.02101,"370,27758 ",.02)
+116 ;;27758
+117 ;;9002226.02101,"370,27759 ",.01)
+118 ;;27759
+119 ;;9002226.02101,"370,27759 ",.02)
+120 ;;27759
+121 ;;9002226.02101,"370,27760 ",.01)
+122 ;;27760
+123 ;;9002226.02101,"370,27760 ",.02)
+124 ;;27760
+125 ;;9002226.02101,"370,27762 ",.01)
+126 ;;27762
+127 ;;9002226.02101,"370,27762 ",.02)
+128 ;;27762
+129 ;;9002226.02101,"370,27766 ",.01)
+130 ;;27766
+131 ;;9002226.02101,"370,27766 ",.02)
+132 ;;27766
+133 ;;9002226.02101,"370,27780 ",.01)
+134 ;;27780
+135 ;;9002226.02101,"370,27780 ",.02)
+136 ;;27780
+137 ;;9002226.02101,"370,27781 ",.01)
+138 ;;27781
+139 ;;9002226.02101,"370,27781 ",.02)
+140 ;;27781
+141 ;;9002226.02101,"370,27784 ",.01)
+142 ;;27784
+143 ;;9002226.02101,"370,27784 ",.02)
+144 ;;27784
+145 ;;9002226.02101,"370,27786 ",.01)
+146 ;;27786
+147 ;;9002226.02101,"370,27786 ",.02)
+148 ;;27786
+149 ;;9002226.02101,"370,27788 ",.01)
+150 ;;27788
+151 ;;9002226.02101,"370,27788 ",.02)
+152 ;;27788
+153 ;;9002226.02101,"370,27792 ",.01)
+154 ;;27792
+155 ;;9002226.02101,"370,27792 ",.02)
+156 ;;27792
+157 ;;9002226.02101,"370,27808 ",.01)
+158 ;;27808
+159 ;;9002226.02101,"370,27808 ",.02)
+160 ;;27808
+161 ;;9002226.02101,"370,27810 ",.01)
+162 ;;27810
+163 ;;9002226.02101,"370,27810 ",.02)
+164 ;;27810
+165 ;;9002226.02101,"370,27814 ",.01)
+166 ;;27814
+167 ;;9002226.02101,"370,27814 ",.02)
+168 ;;27814
+169 ;;9002226.02101,"370,27816 ",.01)
+170 ;;27816
+171 ;;9002226.02101,"370,27816 ",.02)
+172 ;;27816
+173 ;;9002226.02101,"370,27818 ",.01)
+174 ;;27818
+175 ;;9002226.02101,"370,27818 ",.02)
+176 ;;27818
+177 ;;9002226.02101,"370,27822 ",.01)
+178 ;;27822
+179 ;;9002226.02101,"370,27822 ",.02)
+180 ;;27822
+181 ;;9002226.02101,"370,27823 ",.01)
+182 ;;27823
+183 ;;9002226.02101,"370,27823 ",.02)
+184 ;;27823
+185 ;;9002226.02101,"370,27824 ",.01)
+186 ;;27824
+187 ;;9002226.02101,"370,27824 ",.02)
+188 ;;27824
+189 ;;9002226.02101,"370,27825 ",.01)
+190 ;;27825
+191 ;;9002226.02101,"370,27825 ",.02)
+192 ;;27825
+193 ;;9002226.02101,"370,27826 ",.01)
+194 ;;27826
+195 ;;9002226.02101,"370,27826 ",.02)
+196 ;;27826
+197 ;;9002226.02101,"370,27827 ",.01)
+198 ;;27827
+199 ;;9002226.02101,"370,27827 ",.02)
+200 ;;27827
+201 ;;9002226.02101,"370,27828 ",.01)
+202 ;;27828
+203 ;;9002226.02101,"370,27828 ",.02)
+204 ;;27828
+205 ;;9002226.02101,"370,28400 ",.01)
+206 ;;28400
+207 ;;9002226.02101,"370,28400 ",.02)
+208 ;;28400
+209 ;;9002226.02101,"370,28405 ",.01)
+210 ;;28405
+211 ;;9002226.02101,"370,28405 ",.02)
+212 ;;28405
+213 ;;9002226.02101,"370,28406 ",.01)
+214 ;;28406
+215 ;;9002226.02101,"370,28406 ",.02)
+216 ;;28406
+217 ;;9002226.02101,"370,28415 ",.01)
+218 ;;28415
+219 ;;9002226.02101,"370,28415 ",.02)
+220 ;;28415
+221 ;;9002226.02101,"370,28420 ",.01)
+222 ;;28420
+223 ;;9002226.02101,"370,28420 ",.02)
+224 ;;28420
