BGPUTXZB ; 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,370,.17)
;;@
;;9002226,370,3101)
;;@
;;9002226.02101,"370,21800 ",.01)
;;21800
;;9002226.02101,"370,21800 ",.02)
;;21800
;;9002226.02101,"370,21805 ",.01)
;;21805
;;9002226.02101,"370,21805 ",.02)
;;21805
;;9002226.02101,"370,21810 ",.01)
;;21810
;;9002226.02101,"370,21810 ",.02)
;;21810
;;9002226.02101,"370,21820 ",.01)
;;21820
;;9002226.02101,"370,21820 ",.02)
;;21820
;;9002226.02101,"370,21825 ",.01)
;;21825
;;9002226.02101,"370,21825 ",.02)
;;21825
;;9002226.02101,"370,22305 ",.01)
;;22305
;;9002226.02101,"370,22305 ",.02)
;;22305
;;9002226.02101,"370,22310 ",.01)
;;22310
;;9002226.02101,"370,22310 ",.02)
;;22310
;;9002226.02101,"370,22315 ",.01)
;;22315
;;9002226.02101,"370,22315 ",.02)
;;22315
;;9002226.02101,"370,22318 ",.01)
;;22318
;;9002226.02101,"370,22318 ",.02)
;;22318
;;9002226.02101,"370,22319 ",.01)
;;22319
;;9002226.02101,"370,22319 ",.02)
;;22319
;;9002226.02101,"370,22325 ",.01)
;;22325
;;9002226.02101,"370,22325 ",.02)
;;22325
;;9002226.02101,"370,22326 ",.01)
;;22326
;;9002226.02101,"370,22326 ",.02)
;;22326
;;9002226.02101,"370,22327 ",.01)
;;22327
;;9002226.02101,"370,22327 ",.02)
;;22327
;;9002226.02101,"370,22328 ",.01)
;;22328
;;9002226.02101,"370,22328 ",.02)
;;22328
;;9002226.02101,"370,23500 ",.01)
;;23500
;;9002226.02101,"370,23500 ",.02)
;;23500
;;9002226.02101,"370,23505 ",.01)
;;23505
;;9002226.02101,"370,23505 ",.02)
;;23505
;;9002226.02101,"370,23515 ",.01)
;;23515
;;9002226.02101,"370,23515 ",.02)
;;23515
;;9002226.02101,"370,23570 ",.01)
;;23570
;;9002226.02101,"370,23570 ",.02)
;;23570
;;9002226.02101,"370,23575 ",.01)
;;23575
;;9002226.02101,"370,23575 ",.02)
;;23575
;;9002226.02101,"370,23585 ",.01)
;;23585
;;9002226.02101,"370,23585 ",.02)
;;23585
;;9002226.02101,"370,23600 ",.01)
;;23600
;;9002226.02101,"370,23600 ",.02)
;;23600
;;9002226.02101,"370,23605 ",.01)
;;23605
;;9002226.02101,"370,23605 ",.02)
;;23605
;;9002226.02101,"370,23615 ",.01)
;;23615
;;9002226.02101,"370,23615 ",.02)
;;23615
;;9002226.02101,"370,23616 ",.01)
;;23616
;;9002226.02101,"370,23616 ",.02)
;;23616
;;9002226.02101,"370,23620 ",.01)
;;23620
;;9002226.02101,"370,23620 ",.02)
;;23620
;;9002226.02101,"370,23625 ",.01)
;;23625
;;9002226.02101,"370,23625 ",.02)
;;23625
;;9002226.02101,"370,23630 ",.01)
;;23630
;;9002226.02101,"370,23630 ",.02)
;;23630
;;9002226.02101,"370,23665 ",.01)
;;23665
;;9002226.02101,"370,23665 ",.02)
;;23665
;;9002226.02101,"370,23670 ",.01)
;;23670
;;9002226.02101,"370,23670 ",.02)
;;23670
;;9002226.02101,"370,23675 ",.01)
;;23675
;;9002226.02101,"370,23675 ",.02)
;;23675
;;9002226.02101,"370,23680 ",.01)
;;23680
;;9002226.02101,"370,23680 ",.02)
;;23680
;;9002226.02101,"370,24500 ",.01)
;;24500
;;9002226.02101,"370,24500 ",.02)
;;24500
;;9002226.02101,"370,24505 ",.01)
;;24505
;;9002226.02101,"370,24505 ",.02)
;;24505
;;9002226.02101,"370,24515 ",.01)
;;24515
;;9002226.02101,"370,24515 ",.02)
;;24515
;;9002226.02101,"370,24516 ",.01)
;;24516
;;9002226.02101,"370,24516 ",.02)
;;24516
;;9002226.02101,"370,24530 ",.01)
;;24530
;;9002226.02101,"370,24530 ",.02)
;;24530
;;9002226.02101,"370,24535 ",.01)
;;24535
;;9002226.02101,"370,24535 ",.02)
;;24535
;;9002226.02101,"370,24538 ",.01)
;;24538
;;9002226.02101,"370,24538 ",.02)
;;24538
;;9002226.02101,"370,24545 ",.01)
;;24545
;;9002226.02101,"370,24545 ",.02)
;;24545
;;9002226.02101,"370,24546 ",.01)
;;24546
;;9002226.02101,"370,24546 ",.02)
;;24546
;;9002226.02101,"370,24560 ",.01)
;;24560
;;9002226.02101,"370,24560 ",.02)
;;24560
;;9002226.02101,"370,24565 ",.01)
;;24565
;;9002226.02101,"370,24565 ",.02)
;;24565
;;9002226.02101,"370,24566 ",.01)
;;24566
;;9002226.02101,"370,24566 ",.02)
;;24566
;;9002226.02101,"370,24575 ",.01)
;;24575
;;9002226.02101,"370,24575 ",.02)
;;24575
;;9002226.02101,"370,24576 ",.01)
;;24576
;;9002226.02101,"370,24576 ",.02)
;;24576
;;9002226.02101,"370,24577 ",.01)
;;24577
;;9002226.02101,"370,24577 ",.02)
;;24577
;;9002226.02101,"370,24579 ",.01)
;;24579
;;9002226.02101,"370,24579 ",.02)
;;24579
;;9002226.02101,"370,24582 ",.01)
;;24582
;;9002226.02101,"370,24582 ",.02)
;;24582
;;9002226.02101,"370,24586 ",.01)
;;24586
;;9002226.02101,"370,24586 ",.02)
;;24586
;;9002226.02101,"370,24587 ",.01)
;;24587
;;9002226.02101,"370,24587 ",.02)
;;24587
;;9002226.02101,"370,24620 ",.01)
;;24620
;;9002226.02101,"370,24620 ",.02)
;;24620
;;9002226.02101,"370,24635 ",.01)
;;24635
;;9002226.02101,"370,24635 ",.02)
;;24635
;;9002226.02101,"370,24650 ",.01)
;;24650
;;9002226.02101,"370,24650 ",.02)
;;24650
;;9002226.02101,"370,24655 ",.01)
;;24655
;;9002226.02101,"370,24655 ",.02)
;;24655
;;9002226.02101,"370,24665 ",.01)
;;24665
;;9002226.02101,"370,24665 ",.02)
;;24665
BGPUTXZB ; 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,370,.17)
+2 ;;@
+3 ;;9002226,370,3101)
+4 ;;@
+5 ;;9002226.02101,"370,21800 ",.01)
+6 ;;21800
+7 ;;9002226.02101,"370,21800 ",.02)
+8 ;;21800
+9 ;;9002226.02101,"370,21805 ",.01)
+10 ;;21805
+11 ;;9002226.02101,"370,21805 ",.02)
+12 ;;21805
+13 ;;9002226.02101,"370,21810 ",.01)
+14 ;;21810
+15 ;;9002226.02101,"370,21810 ",.02)
+16 ;;21810
+17 ;;9002226.02101,"370,21820 ",.01)
+18 ;;21820
+19 ;;9002226.02101,"370,21820 ",.02)
+20 ;;21820
+21 ;;9002226.02101,"370,21825 ",.01)
+22 ;;21825
+23 ;;9002226.02101,"370,21825 ",.02)
+24 ;;21825
+25 ;;9002226.02101,"370,22305 ",.01)
+26 ;;22305
+27 ;;9002226.02101,"370,22305 ",.02)
+28 ;;22305
+29 ;;9002226.02101,"370,22310 ",.01)
+30 ;;22310
+31 ;;9002226.02101,"370,22310 ",.02)
+32 ;;22310
+33 ;;9002226.02101,"370,22315 ",.01)
+34 ;;22315
+35 ;;9002226.02101,"370,22315 ",.02)
+36 ;;22315
+37 ;;9002226.02101,"370,22318 ",.01)
+38 ;;22318
+39 ;;9002226.02101,"370,22318 ",.02)
+40 ;;22318
+41 ;;9002226.02101,"370,22319 ",.01)
+42 ;;22319
+43 ;;9002226.02101,"370,22319 ",.02)
+44 ;;22319
+45 ;;9002226.02101,"370,22325 ",.01)
+46 ;;22325
+47 ;;9002226.02101,"370,22325 ",.02)
+48 ;;22325
+49 ;;9002226.02101,"370,22326 ",.01)
+50 ;;22326
+51 ;;9002226.02101,"370,22326 ",.02)
+52 ;;22326
+53 ;;9002226.02101,"370,22327 ",.01)
+54 ;;22327
+55 ;;9002226.02101,"370,22327 ",.02)
+56 ;;22327
+57 ;;9002226.02101,"370,22328 ",.01)
+58 ;;22328
+59 ;;9002226.02101,"370,22328 ",.02)
+60 ;;22328
+61 ;;9002226.02101,"370,23500 ",.01)
+62 ;;23500
+63 ;;9002226.02101,"370,23500 ",.02)
+64 ;;23500
+65 ;;9002226.02101,"370,23505 ",.01)
+66 ;;23505
+67 ;;9002226.02101,"370,23505 ",.02)
+68 ;;23505
+69 ;;9002226.02101,"370,23515 ",.01)
+70 ;;23515
+71 ;;9002226.02101,"370,23515 ",.02)
+72 ;;23515
+73 ;;9002226.02101,"370,23570 ",.01)
+74 ;;23570
+75 ;;9002226.02101,"370,23570 ",.02)
+76 ;;23570
+77 ;;9002226.02101,"370,23575 ",.01)
+78 ;;23575
+79 ;;9002226.02101,"370,23575 ",.02)
+80 ;;23575
+81 ;;9002226.02101,"370,23585 ",.01)
+82 ;;23585
+83 ;;9002226.02101,"370,23585 ",.02)
+84 ;;23585
+85 ;;9002226.02101,"370,23600 ",.01)
+86 ;;23600
+87 ;;9002226.02101,"370,23600 ",.02)
+88 ;;23600
+89 ;;9002226.02101,"370,23605 ",.01)
+90 ;;23605
+91 ;;9002226.02101,"370,23605 ",.02)
+92 ;;23605
+93 ;;9002226.02101,"370,23615 ",.01)
+94 ;;23615
+95 ;;9002226.02101,"370,23615 ",.02)
+96 ;;23615
+97 ;;9002226.02101,"370,23616 ",.01)
+98 ;;23616
+99 ;;9002226.02101,"370,23616 ",.02)
+100 ;;23616
+101 ;;9002226.02101,"370,23620 ",.01)
+102 ;;23620
+103 ;;9002226.02101,"370,23620 ",.02)
+104 ;;23620
+105 ;;9002226.02101,"370,23625 ",.01)
+106 ;;23625
+107 ;;9002226.02101,"370,23625 ",.02)
+108 ;;23625
+109 ;;9002226.02101,"370,23630 ",.01)
+110 ;;23630
+111 ;;9002226.02101,"370,23630 ",.02)
+112 ;;23630
+113 ;;9002226.02101,"370,23665 ",.01)
+114 ;;23665
+115 ;;9002226.02101,"370,23665 ",.02)
+116 ;;23665
+117 ;;9002226.02101,"370,23670 ",.01)
+118 ;;23670
+119 ;;9002226.02101,"370,23670 ",.02)
+120 ;;23670
+121 ;;9002226.02101,"370,23675 ",.01)
+122 ;;23675
+123 ;;9002226.02101,"370,23675 ",.02)
+124 ;;23675
+125 ;;9002226.02101,"370,23680 ",.01)
+126 ;;23680
+127 ;;9002226.02101,"370,23680 ",.02)
+128 ;;23680
+129 ;;9002226.02101,"370,24500 ",.01)
+130 ;;24500
+131 ;;9002226.02101,"370,24500 ",.02)
+132 ;;24500
+133 ;;9002226.02101,"370,24505 ",.01)
+134 ;;24505
+135 ;;9002226.02101,"370,24505 ",.02)
+136 ;;24505
+137 ;;9002226.02101,"370,24515 ",.01)
+138 ;;24515
+139 ;;9002226.02101,"370,24515 ",.02)
+140 ;;24515
+141 ;;9002226.02101,"370,24516 ",.01)
+142 ;;24516
+143 ;;9002226.02101,"370,24516 ",.02)
+144 ;;24516
+145 ;;9002226.02101,"370,24530 ",.01)
+146 ;;24530
+147 ;;9002226.02101,"370,24530 ",.02)
+148 ;;24530
+149 ;;9002226.02101,"370,24535 ",.01)
+150 ;;24535
+151 ;;9002226.02101,"370,24535 ",.02)
+152 ;;24535
+153 ;;9002226.02101,"370,24538 ",.01)
+154 ;;24538
+155 ;;9002226.02101,"370,24538 ",.02)
+156 ;;24538
+157 ;;9002226.02101,"370,24545 ",.01)
+158 ;;24545
+159 ;;9002226.02101,"370,24545 ",.02)
+160 ;;24545
+161 ;;9002226.02101,"370,24546 ",.01)
+162 ;;24546
+163 ;;9002226.02101,"370,24546 ",.02)
+164 ;;24546
+165 ;;9002226.02101,"370,24560 ",.01)
+166 ;;24560
+167 ;;9002226.02101,"370,24560 ",.02)
+168 ;;24560
+169 ;;9002226.02101,"370,24565 ",.01)
+170 ;;24565
+171 ;;9002226.02101,"370,24565 ",.02)
+172 ;;24565
+173 ;;9002226.02101,"370,24566 ",.01)
+174 ;;24566
+175 ;;9002226.02101,"370,24566 ",.02)
+176 ;;24566
+177 ;;9002226.02101,"370,24575 ",.01)
+178 ;;24575
+179 ;;9002226.02101,"370,24575 ",.02)
+180 ;;24575
+181 ;;9002226.02101,"370,24576 ",.01)
+182 ;;24576
+183 ;;9002226.02101,"370,24576 ",.02)
+184 ;;24576
+185 ;;9002226.02101,"370,24577 ",.01)
+186 ;;24577
+187 ;;9002226.02101,"370,24577 ",.02)
+188 ;;24577
+189 ;;9002226.02101,"370,24579 ",.01)
+190 ;;24579
+191 ;;9002226.02101,"370,24579 ",.02)
+192 ;;24579
+193 ;;9002226.02101,"370,24582 ",.01)
+194 ;;24582
+195 ;;9002226.02101,"370,24582 ",.02)
+196 ;;24582
+197 ;;9002226.02101,"370,24586 ",.01)
+198 ;;24586
+199 ;;9002226.02101,"370,24586 ",.02)
+200 ;;24586
+201 ;;9002226.02101,"370,24587 ",.01)
+202 ;;24587
+203 ;;9002226.02101,"370,24587 ",.02)
+204 ;;24587
+205 ;;9002226.02101,"370,24620 ",.01)
+206 ;;24620
+207 ;;9002226.02101,"370,24620 ",.02)
+208 ;;24620
+209 ;;9002226.02101,"370,24635 ",.01)
+210 ;;24635
+211 ;;9002226.02101,"370,24635 ",.02)
+212 ;;24635
+213 ;;9002226.02101,"370,24650 ",.01)
+214 ;;24650
+215 ;;9002226.02101,"370,24650 ",.02)
+216 ;;24650
+217 ;;9002226.02101,"370,24655 ",.01)
+218 ;;24655
+219 ;;9002226.02101,"370,24655 ",.02)
+220 ;;24655
+221 ;;9002226.02101,"370,24665 ",.01)
+222 ;;24665
+223 ;;9002226.02101,"370,24665 ",.02)
+224 ;;24665
