BGPM3AFL ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
;
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,"791,65841006410 ",.02)
;;65841006410
;;9002226.02101,"791,66267026820 ",.01)
;;66267026820
;;9002226.02101,"791,66267026820 ",.02)
;;66267026820
;;9002226.02101,"791,66267026830 ",.01)
;;66267026830
;;9002226.02101,"791,66267026830 ",.02)
;;66267026830
;;9002226.02101,"791,66267027730 ",.01)
;;66267027730
;;9002226.02101,"791,66267027730 ",.02)
;;66267027730
;;9002226.02101,"791,66267067230 ",.01)
;;66267067230
;;9002226.02101,"791,66267067230 ",.02)
;;66267067230
;;9002226.02101,"791,66336024930 ",.01)
;;66336024930
;;9002226.02101,"791,66336024930 ",.02)
;;66336024930
;;9002226.02101,"791,66336025030 ",.01)
;;66336025030
;;9002226.02101,"791,66336025030 ",.02)
;;66336025030
;;9002226.02101,"791,66336025130 ",.01)
;;66336025130
;;9002226.02101,"791,66336025130 ",.02)
;;66336025130
;;9002226.02101,"791,66336025230 ",.01)
;;66336025230
;;9002226.02101,"791,66336025230 ",.02)
;;66336025230
;;9002226.02101,"791,67544031815 ",.01)
;;67544031815
;;9002226.02101,"791,67544031815 ",.02)
;;67544031815
;;9002226.02101,"791,67544031830 ",.01)
;;67544031830
;;9002226.02101,"791,67544031830 ",.02)
;;67544031830
;;9002226.02101,"791,67544031831 ",.01)
;;67544031831
;;9002226.02101,"791,67544031831 ",.02)
;;67544031831
;;9002226.02101,"791,67544031845 ",.01)
;;67544031845
;;9002226.02101,"791,67544031845 ",.02)
;;67544031845
;;9002226.02101,"791,67544031853 ",.01)
;;67544031853
;;9002226.02101,"791,67544031853 ",.02)
;;67544031853
;;9002226.02101,"791,67544085932 ",.01)
;;67544085932
;;9002226.02101,"791,67544085932 ",.02)
;;67544085932
;;9002226.02101,"791,67544086032 ",.01)
;;67544086032
;;9002226.02101,"791,67544086032 ",.02)
;;67544086032
;;9002226.02101,"791,67544091719 ",.01)
;;67544091719
;;9002226.02101,"791,67544091719 ",.02)
;;67544091719
;;9002226.02101,"791,67544097132 ",.01)
;;67544097132
;;9002226.02101,"791,67544097132 ",.02)
;;67544097132
;;9002226.02101,"791,67544099030 ",.01)
;;67544099030
;;9002226.02101,"791,67544099030 ",.02)
;;67544099030
;;9002226.02101,"791,68071020230 ",.01)
;;68071020230
;;9002226.02101,"791,68071020230 ",.02)
;;68071020230
;;9002226.02101,"791,68080402777 ",.01)
;;68080402777
;;9002226.02101,"791,68080402777 ",.02)
;;68080402777
;;9002226.02101,"791,68080414677 ",.01)
;;68080414677
;;9002226.02101,"791,68080414677 ",.02)
;;68080414677
;;9002226.02101,"791,68080414877 ",.01)
;;68080414877
;;9002226.02101,"791,68080414877 ",.02)
;;68080414877
;;9002226.02101,"791,68084002701 ",.01)
;;68084002701
;;9002226.02101,"791,68084002701 ",.02)
;;68084002701
;;9002226.02101,"791,68084002711 ",.01)
;;68084002711
;;9002226.02101,"791,68084002711 ",.02)
;;68084002711
;;9002226.02101,"791,68084014677 ",.01)
;;68084014677
;;9002226.02101,"791,68084014677 ",.02)
;;68084014677
;;9002226.02101,"791,68084402777 ",.01)
;;68084402777
;;9002226.02101,"791,68084402777 ",.02)
;;68084402777
;;9002226.02101,"791,68084414777 ",.01)
;;68084414777
;;9002226.02101,"791,68084414777 ",.02)
;;68084414777
;;9002226.02101,"791,68115035930 ",.01)
;;68115035930
;;9002226.02101,"791,68115035930 ",.02)
;;68115035930
;;9002226.02101,"791,68115039930 ",.01)
;;68115039930
;;9002226.02101,"791,68115039930 ",.02)
;;68115039930
;;9002226.02101,"791,68115065900 ",.01)
;;68115065900
;;9002226.02101,"791,68115065900 ",.02)
;;68115065900
;;9002226.02101,"791,68382005201 ",.01)
;;68382005201
;;9002226.02101,"791,68382005201 ",.02)
;;68382005201
;;9002226.02101,"791,68382005210 ",.01)
;;68382005210
;;9002226.02101,"791,68382005210 ",.02)
;;68382005210
;;9002226.02101,"791,68382005301 ",.01)
;;68382005301
;;9002226.02101,"791,68382005301 ",.02)
;;68382005301
;;9002226.02101,"791,68382005310 ",.01)
;;68382005310
;;9002226.02101,"791,68382005310 ",.02)
;;68382005310
;;9002226.02101,"791,68382005401 ",.01)
;;68382005401
;;9002226.02101,"791,68382005401 ",.02)
;;68382005401
;;9002226.02101,"791,68382005410 ",.01)
;;68382005410
;;9002226.02101,"791,68382005410 ",.02)
;;68382005410
;;9002226.02101,"791,68382005501 ",.01)
;;68382005501
;;9002226.02101,"791,68382005501 ",.02)
;;68382005501
;;9002226.02101,"791,68382005510 ",.01)
;;68382005510
;;9002226.02101,"791,68382005510 ",.02)
;;68382005510
;;9002226.02101,"791,68382005601 ",.01)
;;68382005601
;;9002226.02101,"791,68382005601 ",.02)
;;68382005601
;;9002226.02101,"791,68382005610 ",.01)
;;68382005610
;;9002226.02101,"791,68382005610 ",.02)
;;68382005610
;;9002226.02101,"791,68382005701 ",.01)
;;68382005701
;;9002226.02101,"791,68382005701 ",.02)
;;68382005701
;;9002226.02101,"791,68382005710 ",.01)
;;68382005710
;;9002226.02101,"791,68382005710 ",.02)
;;68382005710
;;9002226.02101,"791,68382005901 ",.01)
;;68382005901
;;9002226.02101,"791,68382005901 ",.02)
;;68382005901
;;9002226.02101,"791,68382006401 ",.01)
;;68382006401
;;9002226.02101,"791,68382006401 ",.02)
;;68382006401
;;9002226.02101,"791,68382006410 ",.01)
;;68382006410
;;9002226.02101,"791,68382006410 ",.02)
;;68382006410
BGPM3AFL ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
+1 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
+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,"791,65841006410 ",.02)
+2 ;;65841006410
+3 ;;9002226.02101,"791,66267026820 ",.01)
+4 ;;66267026820
+5 ;;9002226.02101,"791,66267026820 ",.02)
+6 ;;66267026820
+7 ;;9002226.02101,"791,66267026830 ",.01)
+8 ;;66267026830
+9 ;;9002226.02101,"791,66267026830 ",.02)
+10 ;;66267026830
+11 ;;9002226.02101,"791,66267027730 ",.01)
+12 ;;66267027730
+13 ;;9002226.02101,"791,66267027730 ",.02)
+14 ;;66267027730
+15 ;;9002226.02101,"791,66267067230 ",.01)
+16 ;;66267067230
+17 ;;9002226.02101,"791,66267067230 ",.02)
+18 ;;66267067230
+19 ;;9002226.02101,"791,66336024930 ",.01)
+20 ;;66336024930
+21 ;;9002226.02101,"791,66336024930 ",.02)
+22 ;;66336024930
+23 ;;9002226.02101,"791,66336025030 ",.01)
+24 ;;66336025030
+25 ;;9002226.02101,"791,66336025030 ",.02)
+26 ;;66336025030
+27 ;;9002226.02101,"791,66336025130 ",.01)
+28 ;;66336025130
+29 ;;9002226.02101,"791,66336025130 ",.02)
+30 ;;66336025130
+31 ;;9002226.02101,"791,66336025230 ",.01)
+32 ;;66336025230
+33 ;;9002226.02101,"791,66336025230 ",.02)
+34 ;;66336025230
+35 ;;9002226.02101,"791,67544031815 ",.01)
+36 ;;67544031815
+37 ;;9002226.02101,"791,67544031815 ",.02)
+38 ;;67544031815
+39 ;;9002226.02101,"791,67544031830 ",.01)
+40 ;;67544031830
+41 ;;9002226.02101,"791,67544031830 ",.02)
+42 ;;67544031830
+43 ;;9002226.02101,"791,67544031831 ",.01)
+44 ;;67544031831
+45 ;;9002226.02101,"791,67544031831 ",.02)
+46 ;;67544031831
+47 ;;9002226.02101,"791,67544031845 ",.01)
+48 ;;67544031845
+49 ;;9002226.02101,"791,67544031845 ",.02)
+50 ;;67544031845
+51 ;;9002226.02101,"791,67544031853 ",.01)
+52 ;;67544031853
+53 ;;9002226.02101,"791,67544031853 ",.02)
+54 ;;67544031853
+55 ;;9002226.02101,"791,67544085932 ",.01)
+56 ;;67544085932
+57 ;;9002226.02101,"791,67544085932 ",.02)
+58 ;;67544085932
+59 ;;9002226.02101,"791,67544086032 ",.01)
+60 ;;67544086032
+61 ;;9002226.02101,"791,67544086032 ",.02)
+62 ;;67544086032
+63 ;;9002226.02101,"791,67544091719 ",.01)
+64 ;;67544091719
+65 ;;9002226.02101,"791,67544091719 ",.02)
+66 ;;67544091719
+67 ;;9002226.02101,"791,67544097132 ",.01)
+68 ;;67544097132
+69 ;;9002226.02101,"791,67544097132 ",.02)
+70 ;;67544097132
+71 ;;9002226.02101,"791,67544099030 ",.01)
+72 ;;67544099030
+73 ;;9002226.02101,"791,67544099030 ",.02)
+74 ;;67544099030
+75 ;;9002226.02101,"791,68071020230 ",.01)
+76 ;;68071020230
+77 ;;9002226.02101,"791,68071020230 ",.02)
+78 ;;68071020230
+79 ;;9002226.02101,"791,68080402777 ",.01)
+80 ;;68080402777
+81 ;;9002226.02101,"791,68080402777 ",.02)
+82 ;;68080402777
+83 ;;9002226.02101,"791,68080414677 ",.01)
+84 ;;68080414677
+85 ;;9002226.02101,"791,68080414677 ",.02)
+86 ;;68080414677
+87 ;;9002226.02101,"791,68080414877 ",.01)
+88 ;;68080414877
+89 ;;9002226.02101,"791,68080414877 ",.02)
+90 ;;68080414877
+91 ;;9002226.02101,"791,68084002701 ",.01)
+92 ;;68084002701
+93 ;;9002226.02101,"791,68084002701 ",.02)
+94 ;;68084002701
+95 ;;9002226.02101,"791,68084002711 ",.01)
+96 ;;68084002711
+97 ;;9002226.02101,"791,68084002711 ",.02)
+98 ;;68084002711
+99 ;;9002226.02101,"791,68084014677 ",.01)
+100 ;;68084014677
+101 ;;9002226.02101,"791,68084014677 ",.02)
+102 ;;68084014677
+103 ;;9002226.02101,"791,68084402777 ",.01)
+104 ;;68084402777
+105 ;;9002226.02101,"791,68084402777 ",.02)
+106 ;;68084402777
+107 ;;9002226.02101,"791,68084414777 ",.01)
+108 ;;68084414777
+109 ;;9002226.02101,"791,68084414777 ",.02)
+110 ;;68084414777
+111 ;;9002226.02101,"791,68115035930 ",.01)
+112 ;;68115035930
+113 ;;9002226.02101,"791,68115035930 ",.02)
+114 ;;68115035930
+115 ;;9002226.02101,"791,68115039930 ",.01)
+116 ;;68115039930
+117 ;;9002226.02101,"791,68115039930 ",.02)
+118 ;;68115039930
+119 ;;9002226.02101,"791,68115065900 ",.01)
+120 ;;68115065900
+121 ;;9002226.02101,"791,68115065900 ",.02)
+122 ;;68115065900
+123 ;;9002226.02101,"791,68382005201 ",.01)
+124 ;;68382005201
+125 ;;9002226.02101,"791,68382005201 ",.02)
+126 ;;68382005201
+127 ;;9002226.02101,"791,68382005210 ",.01)
+128 ;;68382005210
+129 ;;9002226.02101,"791,68382005210 ",.02)
+130 ;;68382005210
+131 ;;9002226.02101,"791,68382005301 ",.01)
+132 ;;68382005301
+133 ;;9002226.02101,"791,68382005301 ",.02)
+134 ;;68382005301
+135 ;;9002226.02101,"791,68382005310 ",.01)
+136 ;;68382005310
+137 ;;9002226.02101,"791,68382005310 ",.02)
+138 ;;68382005310
+139 ;;9002226.02101,"791,68382005401 ",.01)
+140 ;;68382005401
+141 ;;9002226.02101,"791,68382005401 ",.02)
+142 ;;68382005401
+143 ;;9002226.02101,"791,68382005410 ",.01)
+144 ;;68382005410
+145 ;;9002226.02101,"791,68382005410 ",.02)
+146 ;;68382005410
+147 ;;9002226.02101,"791,68382005501 ",.01)
+148 ;;68382005501
+149 ;;9002226.02101,"791,68382005501 ",.02)
+150 ;;68382005501
+151 ;;9002226.02101,"791,68382005510 ",.01)
+152 ;;68382005510
+153 ;;9002226.02101,"791,68382005510 ",.02)
+154 ;;68382005510
+155 ;;9002226.02101,"791,68382005601 ",.01)
+156 ;;68382005601
+157 ;;9002226.02101,"791,68382005601 ",.02)
+158 ;;68382005601
+159 ;;9002226.02101,"791,68382005610 ",.01)
+160 ;;68382005610
+161 ;;9002226.02101,"791,68382005610 ",.02)
+162 ;;68382005610
+163 ;;9002226.02101,"791,68382005701 ",.01)
+164 ;;68382005701
+165 ;;9002226.02101,"791,68382005701 ",.02)
+166 ;;68382005701
+167 ;;9002226.02101,"791,68382005710 ",.01)
+168 ;;68382005710
+169 ;;9002226.02101,"791,68382005710 ",.02)
+170 ;;68382005710
+171 ;;9002226.02101,"791,68382005901 ",.01)
+172 ;;68382005901
+173 ;;9002226.02101,"791,68382005901 ",.02)
+174 ;;68382005901
+175 ;;9002226.02101,"791,68382006401 ",.01)
+176 ;;68382006401
+177 ;;9002226.02101,"791,68382006401 ",.02)
+178 ;;68382006401
+179 ;;9002226.02101,"791,68382006410 ",.01)
+180 ;;68382006410
+181 ;;9002226.02101,"791,68382006410 ",.02)
+182 ;;68382006410
