BMCTXEE ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
;
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)
;;21,"48150 ")
;;777
;;21,"48152 ")
;;778
;;21,"48153 ")
;;779
;;21,"48154 ")
;;780
;;21,"48155 ")
;;781
;;21,"48180 ")
;;782
;;21,"48540 ")
;;783
;;21,"48547 ")
;;784
;;21,"49201 ")
;;785
;;21,"49215 ")
;;786
;;21,"49220 ")
;;787
;;21,"49425 ")
;;788
;;21,"49605 ")
;;789
;;21,"49606 ")
;;790
;;21,"50060 ")
;;791
;;21,"50065 ")
;;792
;;21,"50070 ")
;;793
;;21,"50075 ")
;;794
;;21,"50080 ")
;;795
;;21,"50081 ")
;;796
;;21,"50120 ")
;;797
;;21,"50125 ")
;;798
;;21,"50130 ")
;;799
;;21,"50135 ")
;;800
;;21,"50220 ")
;;801
;;21,"50225 ")
;;802
;;21,"50230 ")
;;803
;;21,"50234 ")
;;804
;;21,"50236 ")
;;805
;;21,"50240 ")
;;806
;;21,"50280 ")
;;807
;;21,"50320 ")
;;808
;;21,"50360 ")
;;809
;;21,"50365 ")
;;810
;;21,"50380 ")
;;811
;;21,"50400 ")
;;812
;;21,"50405 ")
;;813
;;21,"50500 ")
;;814
;;21,"50520 ")
;;815
;;21,"50525 ")
;;816
;;21,"50526 ")
;;817
;;21,"50540 ")
;;818
;;21,"50610 ")
;;819
;;21,"50630 ")
;;820
;;21,"50650 ")
;;821
;;21,"50660 ")
;;822
;;21,"50700 ")
;;823
;;21,"50715 ")
;;824
;;21,"50722 ")
;;825
;;21,"50725 ")
;;826
;;21,"50740 ")
;;827
;;21,"50750 ")
;;828
;;21,"50760 ")
;;829
;;21,"50770 ")
;;830
;;21,"50780 ")
;;831
;;21,"50782 ")
;;832
;;21,"50783 ")
;;833
;;21,"50785 ")
;;834
;;21,"50800 ")
;;835
;;21,"50810 ")
;;836
;;21,"50815 ")
;;837
;;21,"50820 ")
;;838
;;21,"50825 ")
;;839
;;21,"50830 ")
;;840
;;21,"50840 ")
;;841
;;21,"50845 ")
;;842
;;21,"50930 ")
;;843
;;21,"51525 ")
;;844
;;21,"51555 ")
;;845
;;21,"51565 ")
;;846
;;21,"51570 ")
;;847
;;21,"51575 ")
;;848
;;21,"51580 ")
;;849
;;21,"51585 ")
;;850
;;21,"51590 ")
;;851
;;21,"51595 ")
;;852
;;21,"51596 ")
;;853
;;21,"51597 ")
;;854
;;21,"51800 ")
;;855
;;21,"51841 ")
;;856
;;21,"51865 ")
;;857
;;21,"51940 ")
;;858
;;21,"51960 ")
;;859
;;21,"53415 ")
;;860
;;21,"53443 ")
;;861
;;21,"53445 ")
;;862
;;21,"54112 ")
;;863
;;21,"54125 ")
;;864
;;21,"54130 ")
;;865
;;21,"54135 ")
;;866
;;21,"54316 ")
;;867
;;21,"54324 ")
;;868
;;21,"54332 ")
;;869
;;21,"54336 ")
;;870
;;21,"54344 ")
;;871
;;21,"54348 ")
;;872
;;21,"54352 ")
;;873
;;21,"54390 ")
;;874
;;21,"54405 ")
;;875
;;21,"54901 ")
;;876
;;21,"55801 ")
;;877
;;21,"55810 ")
;;878
;;21,"55812 ")
;;879
;;21,"55815 ")
;;880
;;21,"55821 ")
;;881
;;21,"55831 ")
;;882
;;21,"55840 ")
;;883
;;21,"55842 ")
;;884
;;21,"55845 ")
;;885
;;21,"55862 ")
;;886
;;21,"55865 ")
;;887
;;21,"56631 ")
;;888
;;21,"56632 ")
;;889
;;21,"56633 ")
;;890
;;21,"56634 ")
;;891
;;21,"56637 ")
;;892
;;21,"56640 ")
;;893
;;21,"56805 ")
;;894
;;21,"58152 ")
;;895
;;21,"58200 ")
;;896
;;21,"58210 ")
;;897
;;21,"58240 ")
;;898
;;21,"58263 ")
;;899
;;21,"58267 ")
;;900
;;21,"58270 ")
;;901
;;21,"58275 ")
;;902
;;21,"58280 ")
;;903
;;21,"58285 ")
;;904
;;21,"58943 ")
;;905
;;21,"58950 ")
;;906
;;21,"58951 ")
;;907
;;21,"58952 ")
;;908
;;21,"59400 ")
;;909
;;21,"59510 ")
;;910
;;21,"59514 ")
;;911
;;21,"59515 ")
;;912
;;21,"60240 ")
;;913
;;21,"60246 ")
;;914
;;21,"60252 ")
;;915
;;21,"60254 ")
;;916
;;21,"60270 ")
;;917
;;21,"60271 ")
;;918
;;21,"60500 ")
;;919
;;21,"60502 ")
;;920
;;21,"60505 ")
;;921
;;21,"60520 ")
;;922
;;21,"60521 ")
;;923
;;21,"60522 ")
;;924
;;21,"60540 ")
;;925
;;21,"60545 ")
;;926
;;21,"60600 ")
;;927
;;21,"60605 ")
;;928
;;21,"61140 ")
;;929
;;21,"61150 ")
;;930
;;21,"61154 ")
;;931
;;21,"61156 ")
;;932
;;21,"61304 ")
;;933
;;21,"61305 ")
;;934
;;21,"61312 ")
;;935
;;21,"61313 ")
;;936
;;21,"61314 ")
;;937
;;21,"61315 ")
;;938
;;21,"61320 ")
;;939
;;21,"61321 ")
;;940
;;21,"61330 ")
;;941
;;21,"61332 ")
;;942
;;21,"61333 ")
;;943
;;21,"61334 ")
;;944
;;21,"61340 ")
;;945
;;21,"61343 ")
;;946
;;21,"61345 ")
;;947
;;21,"61440 ")
;;948
;;21,"61450 ")
;;949
;;21,"61458 ")
;;950
;;21,"61460 ")
;;951
;;21,"61470 ")
;;952
;;21,"61480 ")
;;953
;;21,"61490 ")
;;954
;;21,"61500 ")
;;955
;;21,"61501 ")
;;956
;;21,"61510 ")
;;957
;;21,"61512 ")
;;958
;;21,"61514 ")
;;959
;;21,"61516 ")
;;960
;;21,"61518 ")
;;961
;;21,"61519 ")
;;962
;;21,"61520 ")
;;963
;;21,"61521 ")
;;964
;;21,"61522 ")
;;965
;;21,"61524 ")
;;966
;;21,"61526 ")
;;967
;;21,"61530 ")
;;968
;;21,"61531 ")
;;969
;;21,"61533 ")
;;970
;;21,"61534 ")
;;971
BMCTXEE ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
+1 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
+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 ;;21,"48150 ")
+2 ;;777
+3 ;;21,"48152 ")
+4 ;;778
+5 ;;21,"48153 ")
+6 ;;779
+7 ;;21,"48154 ")
+8 ;;780
+9 ;;21,"48155 ")
+10 ;;781
+11 ;;21,"48180 ")
+12 ;;782
+13 ;;21,"48540 ")
+14 ;;783
+15 ;;21,"48547 ")
+16 ;;784
+17 ;;21,"49201 ")
+18 ;;785
+19 ;;21,"49215 ")
+20 ;;786
+21 ;;21,"49220 ")
+22 ;;787
+23 ;;21,"49425 ")
+24 ;;788
+25 ;;21,"49605 ")
+26 ;;789
+27 ;;21,"49606 ")
+28 ;;790
+29 ;;21,"50060 ")
+30 ;;791
+31 ;;21,"50065 ")
+32 ;;792
+33 ;;21,"50070 ")
+34 ;;793
+35 ;;21,"50075 ")
+36 ;;794
+37 ;;21,"50080 ")
+38 ;;795
+39 ;;21,"50081 ")
+40 ;;796
+41 ;;21,"50120 ")
+42 ;;797
+43 ;;21,"50125 ")
+44 ;;798
+45 ;;21,"50130 ")
+46 ;;799
+47 ;;21,"50135 ")
+48 ;;800
+49 ;;21,"50220 ")
+50 ;;801
+51 ;;21,"50225 ")
+52 ;;802
+53 ;;21,"50230 ")
+54 ;;803
+55 ;;21,"50234 ")
+56 ;;804
+57 ;;21,"50236 ")
+58 ;;805
+59 ;;21,"50240 ")
+60 ;;806
+61 ;;21,"50280 ")
+62 ;;807
+63 ;;21,"50320 ")
+64 ;;808
+65 ;;21,"50360 ")
+66 ;;809
+67 ;;21,"50365 ")
+68 ;;810
+69 ;;21,"50380 ")
+70 ;;811
+71 ;;21,"50400 ")
+72 ;;812
+73 ;;21,"50405 ")
+74 ;;813
+75 ;;21,"50500 ")
+76 ;;814
+77 ;;21,"50520 ")
+78 ;;815
+79 ;;21,"50525 ")
+80 ;;816
+81 ;;21,"50526 ")
+82 ;;817
+83 ;;21,"50540 ")
+84 ;;818
+85 ;;21,"50610 ")
+86 ;;819
+87 ;;21,"50630 ")
+88 ;;820
+89 ;;21,"50650 ")
+90 ;;821
+91 ;;21,"50660 ")
+92 ;;822
+93 ;;21,"50700 ")
+94 ;;823
+95 ;;21,"50715 ")
+96 ;;824
+97 ;;21,"50722 ")
+98 ;;825
+99 ;;21,"50725 ")
+100 ;;826
+101 ;;21,"50740 ")
+102 ;;827
+103 ;;21,"50750 ")
+104 ;;828
+105 ;;21,"50760 ")
+106 ;;829
+107 ;;21,"50770 ")
+108 ;;830
+109 ;;21,"50780 ")
+110 ;;831
+111 ;;21,"50782 ")
+112 ;;832
+113 ;;21,"50783 ")
+114 ;;833
+115 ;;21,"50785 ")
+116 ;;834
+117 ;;21,"50800 ")
+118 ;;835
+119 ;;21,"50810 ")
+120 ;;836
+121 ;;21,"50815 ")
+122 ;;837
+123 ;;21,"50820 ")
+124 ;;838
+125 ;;21,"50825 ")
+126 ;;839
+127 ;;21,"50830 ")
+128 ;;840
+129 ;;21,"50840 ")
+130 ;;841
+131 ;;21,"50845 ")
+132 ;;842
+133 ;;21,"50930 ")
+134 ;;843
+135 ;;21,"51525 ")
+136 ;;844
+137 ;;21,"51555 ")
+138 ;;845
+139 ;;21,"51565 ")
+140 ;;846
+141 ;;21,"51570 ")
+142 ;;847
+143 ;;21,"51575 ")
+144 ;;848
+145 ;;21,"51580 ")
+146 ;;849
+147 ;;21,"51585 ")
+148 ;;850
+149 ;;21,"51590 ")
+150 ;;851
+151 ;;21,"51595 ")
+152 ;;852
+153 ;;21,"51596 ")
+154 ;;853
+155 ;;21,"51597 ")
+156 ;;854
+157 ;;21,"51800 ")
+158 ;;855
+159 ;;21,"51841 ")
+160 ;;856
+161 ;;21,"51865 ")
+162 ;;857
+163 ;;21,"51940 ")
+164 ;;858
+165 ;;21,"51960 ")
+166 ;;859
+167 ;;21,"53415 ")
+168 ;;860
+169 ;;21,"53443 ")
+170 ;;861
+171 ;;21,"53445 ")
+172 ;;862
+173 ;;21,"54112 ")
+174 ;;863
+175 ;;21,"54125 ")
+176 ;;864
+177 ;;21,"54130 ")
+178 ;;865
+179 ;;21,"54135 ")
+180 ;;866
+181 ;;21,"54316 ")
+182 ;;867
+183 ;;21,"54324 ")
+184 ;;868
+185 ;;21,"54332 ")
+186 ;;869
+187 ;;21,"54336 ")
+188 ;;870
+189 ;;21,"54344 ")
+190 ;;871
+191 ;;21,"54348 ")
+192 ;;872
+193 ;;21,"54352 ")
+194 ;;873
+195 ;;21,"54390 ")
+196 ;;874
+197 ;;21,"54405 ")
+198 ;;875
+199 ;;21,"54901 ")
+200 ;;876
+201 ;;21,"55801 ")
+202 ;;877
+203 ;;21,"55810 ")
+204 ;;878
+205 ;;21,"55812 ")
+206 ;;879
+207 ;;21,"55815 ")
+208 ;;880
+209 ;;21,"55821 ")
+210 ;;881
+211 ;;21,"55831 ")
+212 ;;882
+213 ;;21,"55840 ")
+214 ;;883
+215 ;;21,"55842 ")
+216 ;;884
+217 ;;21,"55845 ")
+218 ;;885
+219 ;;21,"55862 ")
+220 ;;886
+221 ;;21,"55865 ")
+222 ;;887
+223 ;;21,"56631 ")
+224 ;;888
+225 ;;21,"56632 ")
+226 ;;889
+227 ;;21,"56633 ")
+228 ;;890
+229 ;;21,"56634 ")
+230 ;;891
+231 ;;21,"56637 ")
+232 ;;892
+233 ;;21,"56640 ")
+234 ;;893
+235 ;;21,"56805 ")
+236 ;;894
+237 ;;21,"58152 ")
+238 ;;895
+239 ;;21,"58200 ")
+240 ;;896
+241 ;;21,"58210 ")
+242 ;;897
+243 ;;21,"58240 ")
+244 ;;898
+245 ;;21,"58263 ")
+246 ;;899
+247 ;;21,"58267 ")
+248 ;;900
+249 ;;21,"58270 ")
+250 ;;901
+251 ;;21,"58275 ")
+252 ;;902
+253 ;;21,"58280 ")
+254 ;;903
+255 ;;21,"58285 ")
+256 ;;904
+257 ;;21,"58943 ")
+258 ;;905
+259 ;;21,"58950 ")
+260 ;;906
+261 ;;21,"58951 ")
+262 ;;907
+263 ;;21,"58952 ")
+264 ;;908
+265 ;;21,"59400 ")
+266 ;;909
+267 ;;21,"59510 ")
+268 ;;910
+269 ;;21,"59514 ")
+270 ;;911
+271 ;;21,"59515 ")
+272 ;;912
+273 ;;21,"60240 ")
+274 ;;913
+275 ;;21,"60246 ")
+276 ;;914
+277 ;;21,"60252 ")
+278 ;;915
+279 ;;21,"60254 ")
+280 ;;916
+281 ;;21,"60270 ")
+282 ;;917
+283 ;;21,"60271 ")
+284 ;;918
+285 ;;21,"60500 ")
+286 ;;919
+287 ;;21,"60502 ")
+288 ;;920
+289 ;;21,"60505 ")
+290 ;;921
+291 ;;21,"60520 ")
+292 ;;922
+293 ;;21,"60521 ")
+294 ;;923
+295 ;;21,"60522 ")
+296 ;;924
+297 ;;21,"60540 ")
+298 ;;925
+299 ;;21,"60545 ")
+300 ;;926
+301 ;;21,"60600 ")
+302 ;;927
+303 ;;21,"60605 ")
+304 ;;928
+305 ;;21,"61140 ")
+306 ;;929
+307 ;;21,"61150 ")
+308 ;;930
+309 ;;21,"61154 ")
+310 ;;931
+311 ;;21,"61156 ")
+312 ;;932
+313 ;;21,"61304 ")
+314 ;;933
+315 ;;21,"61305 ")
+316 ;;934
+317 ;;21,"61312 ")
+318 ;;935
+319 ;;21,"61313 ")
+320 ;;936
+321 ;;21,"61314 ")
+322 ;;937
+323 ;;21,"61315 ")
+324 ;;938
+325 ;;21,"61320 ")
+326 ;;939
+327 ;;21,"61321 ")
+328 ;;940
+329 ;;21,"61330 ")
+330 ;;941
+331 ;;21,"61332 ")
+332 ;;942
+333 ;;21,"61333 ")
+334 ;;943
+335 ;;21,"61334 ")
+336 ;;944
+337 ;;21,"61340 ")
+338 ;;945
+339 ;;21,"61343 ")
+340 ;;946
+341 ;;21,"61345 ")
+342 ;;947
+343 ;;21,"61440 ")
+344 ;;948
+345 ;;21,"61450 ")
+346 ;;949
+347 ;;21,"61458 ")
+348 ;;950
+349 ;;21,"61460 ")
+350 ;;951
+351 ;;21,"61470 ")
+352 ;;952
+353 ;;21,"61480 ")
+354 ;;953
+355 ;;21,"61490 ")
+356 ;;954
+357 ;;21,"61500 ")
+358 ;;955
+359 ;;21,"61501 ")
+360 ;;956
+361 ;;21,"61510 ")
+362 ;;957
+363 ;;21,"61512 ")
+364 ;;958
+365 ;;21,"61514 ")
+366 ;;959
+367 ;;21,"61516 ")
+368 ;;960
+369 ;;21,"61518 ")
+370 ;;961
+371 ;;21,"61519 ")
+372 ;;962
+373 ;;21,"61520 ")
+374 ;;963
+375 ;;21,"61521 ")
+376 ;;964
+377 ;;21,"61522 ")
+378 ;;965
+379 ;;21,"61524 ")
+380 ;;966
+381 ;;21,"61526 ")
+382 ;;967
+383 ;;21,"61530 ")
+384 ;;968
+385 ;;21,"61531 ")
+386 ;;969
+387 ;;21,"61533 ")
+388 ;;970
+389 ;;21,"61534 ")
+390 ;;971
