BMCTXEF ; 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,"61536 ")
;;972
;;21,"61538 ")
;;973
;;21,"61539 ")
;;974
;;21,"61541 ")
;;975
;;21,"61542 ")
;;976
;;21,"61543 ")
;;977
;;21,"61544 ")
;;978
;;21,"61545 ")
;;979
;;21,"61546 ")
;;980
;;21,"61548 ")
;;981
;;21,"61550 ")
;;982
;;21,"61552 ")
;;983
;;21,"61556 ")
;;984
;;21,"61557 ")
;;985
;;21,"61558 ")
;;986
;;21,"61559 ")
;;987
;;21,"61563 ")
;;988
;;21,"61564 ")
;;989
;;21,"61570 ")
;;990
;;21,"61571 ")
;;991
;;21,"61575 ")
;;992
;;21,"61576 ")
;;993
;;21,"61580 ")
;;994
;;21,"61581 ")
;;995
;;21,"61582 ")
;;996
;;21,"61583 ")
;;997
;;21,"61584 ")
;;998
;;21,"61585 ")
;;999
;;21,"61590 ")
;;1000
;;21,"61591 ")
;;1001
;;21,"61592 ")
;;1002
;;21,"61595 ")
;;1003
;;21,"61596 ")
;;1004
;;21,"61597 ")
;;1005
;;21,"61598 ")
;;1006
;;21,"61600 ")
;;1007
;;21,"61601 ")
;;1008
;;21,"61605 ")
;;1009
;;21,"61606 ")
;;1010
;;21,"61607 ")
;;1011
;;21,"61608 ")
;;1012
;;21,"61610 ")
;;1013
;;21,"61612 ")
;;1014
;;21,"61613 ")
;;1015
;;21,"61615 ")
;;1016
;;21,"61616 ")
;;1017
;;21,"61618 ")
;;1018
;;21,"61619 ")
;;1019
;;21,"61624 ")
;;1020
;;21,"61626 ")
;;1021
;;21,"61680 ")
;;1022
;;21,"61682 ")
;;1023
;;21,"61684 ")
;;1024
;;21,"61686 ")
;;1025
;;21,"61690 ")
;;1026
;;21,"61692 ")
;;1027
;;21,"61700 ")
;;1028
;;21,"61702 ")
;;1029
;;21,"61703 ")
;;1030
;;21,"61705 ")
;;1031
;;21,"61708 ")
;;1032
;;21,"61710 ")
;;1033
;;21,"61711 ")
;;1034
;;21,"61720 ")
;;1035
;;21,"61735 ")
;;1036
;;21,"61750 ")
;;1037
;;21,"61751 ")
;;1038
;;21,"61760 ")
;;1039
;;21,"61770 ")
;;1040
;;21,"61793 ")
;;1041
;;21,"61850 ")
;;1042
;;21,"61865 ")
;;1043
;;21,"62005 ")
;;1044
;;21,"62010 ")
;;1045
;;21,"62100 ")
;;1046
;;21,"62115 ")
;;1047
;;21,"62116 ")
;;1048
;;21,"62117 ")
;;1049
;;21,"62120 ")
;;1050
;;21,"62121 ")
;;1051
;;21,"62140 ")
;;1052
;;21,"62141 ")
;;1053
;;21,"62142 ")
;;1054
;;21,"62145 ")
;;1055
;;21,"62146 ")
;;1056
;;21,"62147 ")
;;1057
;;21,"62180 ")
;;1058
;;21,"62192 ")
;;1059
;;21,"62200 ")
;;1060
;;21,"62220 ")
;;1061
;;21,"62223 ")
;;1062
;;21,"62258 ")
;;1063
;;21,"63001 ")
;;1064
;;21,"63003 ")
;;1065
;;21,"63005 ")
;;1066
;;21,"63012 ")
;;1067
;;21,"63015 ")
;;1068
;;21,"63016 ")
;;1069
;;21,"63017 ")
;;1070
;;21,"63020 ")
;;1071
;;21,"63030 ")
;;1072
;;21,"63040 ")
;;1073
;;21,"63042 ")
;;1074
;;21,"63045 ")
;;1075
;;21,"63046 ")
;;1076
;;21,"63047 ")
;;1077
;;21,"63055 ")
;;1078
;;21,"63056 ")
;;1079
;;21,"63064 ")
;;1080
;;21,"63075 ")
;;1081
;;21,"63077 ")
;;1082
;;21,"63081 ")
;;1083
;;21,"63085 ")
;;1084
;;21,"63087 ")
;;1085
;;21,"63090 ")
;;1086
;;21,"63170 ")
;;1087
;;21,"63172 ")
;;1088
;;21,"63173 ")
;;1089
;;21,"63180 ")
;;1090
;;21,"63182 ")
;;1091
;;21,"63185 ")
;;1092
;;21,"63190 ")
;;1093
;;21,"63191 ")
;;1094
;;21,"63194 ")
;;1095
;;21,"63195 ")
;;1096
;;21,"63196 ")
;;1097
;;21,"63197 ")
;;1098
;;21,"63198 ")
;;1099
;;21,"63199 ")
;;1100
;;21,"63200 ")
;;1101
;;21,"63250 ")
;;1102
;;21,"63251 ")
;;1103
;;21,"63252 ")
;;1104
;;21,"63265 ")
;;1105
;;21,"63266 ")
;;1106
;;21,"63267 ")
;;1107
;;21,"63268 ")
;;1108
;;21,"63270 ")
;;1109
;;21,"63271 ")
;;1110
;;21,"63272 ")
;;1111
;;21,"63273 ")
;;1112
;;21,"63275 ")
;;1113
;;21,"63276 ")
;;1114
;;21,"63277 ")
;;1115
;;21,"63278 ")
;;1116
;;21,"63280 ")
;;1117
;;21,"63281 ")
;;1118
;;21,"63282 ")
;;1119
;;21,"63283 ")
;;1120
;;21,"63285 ")
;;1121
;;21,"63286 ")
;;1122
;;21,"63287 ")
;;1123
;;21,"63290 ")
;;1124
;;21,"63300 ")
;;1125
;;21,"63301 ")
;;1126
;;21,"63302 ")
;;1127
;;21,"63303 ")
;;1128
;;21,"63304 ")
;;1129
;;21,"63305 ")
;;1130
;;21,"63306 ")
;;1131
;;21,"63307 ")
;;1132
;;21,"63615 ")
;;1133
;;21,"63700 ")
;;1134
;;21,"63702 ")
;;1135
;;21,"63704 ")
;;1136
;;21,"63706 ")
;;1137
;;21,"63707 ")
;;1138
;;21,"63709 ")
;;1139
;;21,"63740 ")
;;1140
;;21,"64786 ")
;;1141
;;21,"64804 ")
;;1142
;;21,"64858 ")
;;1143
;;21,"64861 ")
;;1144
;;21,"64862 ")
;;1145
;;21,"64865 ")
;;1146
;;21,"64866 ")
;;1147
;;21,"64870 ")
;;1148
;;21,"64885 ")
;;1149
;;21,"64886 ")
;;1150
;;21,"64890 ")
;;1151
;;21,"64891 ")
;;1152
;;21,"64893 ")
;;1153
;;21,"64895 ")
;;1154
;;21,"64896 ")
;;1155
;;21,"64897 ")
;;1156
;;21,"64898 ")
;;1157
;;21,"64907 ")
;;1158
;;21,"65110 ")
;;1159
;;21,"65112 ")
;;1160
BMCTXEF ; 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,"61536 ")
+2 ;;972
+3 ;;21,"61538 ")
+4 ;;973
+5 ;;21,"61539 ")
+6 ;;974
+7 ;;21,"61541 ")
+8 ;;975
+9 ;;21,"61542 ")
+10 ;;976
+11 ;;21,"61543 ")
+12 ;;977
+13 ;;21,"61544 ")
+14 ;;978
+15 ;;21,"61545 ")
+16 ;;979
+17 ;;21,"61546 ")
+18 ;;980
+19 ;;21,"61548 ")
+20 ;;981
+21 ;;21,"61550 ")
+22 ;;982
+23 ;;21,"61552 ")
+24 ;;983
+25 ;;21,"61556 ")
+26 ;;984
+27 ;;21,"61557 ")
+28 ;;985
+29 ;;21,"61558 ")
+30 ;;986
+31 ;;21,"61559 ")
+32 ;;987
+33 ;;21,"61563 ")
+34 ;;988
+35 ;;21,"61564 ")
+36 ;;989
+37 ;;21,"61570 ")
+38 ;;990
+39 ;;21,"61571 ")
+40 ;;991
+41 ;;21,"61575 ")
+42 ;;992
+43 ;;21,"61576 ")
+44 ;;993
+45 ;;21,"61580 ")
+46 ;;994
+47 ;;21,"61581 ")
+48 ;;995
+49 ;;21,"61582 ")
+50 ;;996
+51 ;;21,"61583 ")
+52 ;;997
+53 ;;21,"61584 ")
+54 ;;998
+55 ;;21,"61585 ")
+56 ;;999
+57 ;;21,"61590 ")
+58 ;;1000
+59 ;;21,"61591 ")
+60 ;;1001
+61 ;;21,"61592 ")
+62 ;;1002
+63 ;;21,"61595 ")
+64 ;;1003
+65 ;;21,"61596 ")
+66 ;;1004
+67 ;;21,"61597 ")
+68 ;;1005
+69 ;;21,"61598 ")
+70 ;;1006
+71 ;;21,"61600 ")
+72 ;;1007
+73 ;;21,"61601 ")
+74 ;;1008
+75 ;;21,"61605 ")
+76 ;;1009
+77 ;;21,"61606 ")
+78 ;;1010
+79 ;;21,"61607 ")
+80 ;;1011
+81 ;;21,"61608 ")
+82 ;;1012
+83 ;;21,"61610 ")
+84 ;;1013
+85 ;;21,"61612 ")
+86 ;;1014
+87 ;;21,"61613 ")
+88 ;;1015
+89 ;;21,"61615 ")
+90 ;;1016
+91 ;;21,"61616 ")
+92 ;;1017
+93 ;;21,"61618 ")
+94 ;;1018
+95 ;;21,"61619 ")
+96 ;;1019
+97 ;;21,"61624 ")
+98 ;;1020
+99 ;;21,"61626 ")
+100 ;;1021
+101 ;;21,"61680 ")
+102 ;;1022
+103 ;;21,"61682 ")
+104 ;;1023
+105 ;;21,"61684 ")
+106 ;;1024
+107 ;;21,"61686 ")
+108 ;;1025
+109 ;;21,"61690 ")
+110 ;;1026
+111 ;;21,"61692 ")
+112 ;;1027
+113 ;;21,"61700 ")
+114 ;;1028
+115 ;;21,"61702 ")
+116 ;;1029
+117 ;;21,"61703 ")
+118 ;;1030
+119 ;;21,"61705 ")
+120 ;;1031
+121 ;;21,"61708 ")
+122 ;;1032
+123 ;;21,"61710 ")
+124 ;;1033
+125 ;;21,"61711 ")
+126 ;;1034
+127 ;;21,"61720 ")
+128 ;;1035
+129 ;;21,"61735 ")
+130 ;;1036
+131 ;;21,"61750 ")
+132 ;;1037
+133 ;;21,"61751 ")
+134 ;;1038
+135 ;;21,"61760 ")
+136 ;;1039
+137 ;;21,"61770 ")
+138 ;;1040
+139 ;;21,"61793 ")
+140 ;;1041
+141 ;;21,"61850 ")
+142 ;;1042
+143 ;;21,"61865 ")
+144 ;;1043
+145 ;;21,"62005 ")
+146 ;;1044
+147 ;;21,"62010 ")
+148 ;;1045
+149 ;;21,"62100 ")
+150 ;;1046
+151 ;;21,"62115 ")
+152 ;;1047
+153 ;;21,"62116 ")
+154 ;;1048
+155 ;;21,"62117 ")
+156 ;;1049
+157 ;;21,"62120 ")
+158 ;;1050
+159 ;;21,"62121 ")
+160 ;;1051
+161 ;;21,"62140 ")
+162 ;;1052
+163 ;;21,"62141 ")
+164 ;;1053
+165 ;;21,"62142 ")
+166 ;;1054
+167 ;;21,"62145 ")
+168 ;;1055
+169 ;;21,"62146 ")
+170 ;;1056
+171 ;;21,"62147 ")
+172 ;;1057
+173 ;;21,"62180 ")
+174 ;;1058
+175 ;;21,"62192 ")
+176 ;;1059
+177 ;;21,"62200 ")
+178 ;;1060
+179 ;;21,"62220 ")
+180 ;;1061
+181 ;;21,"62223 ")
+182 ;;1062
+183 ;;21,"62258 ")
+184 ;;1063
+185 ;;21,"63001 ")
+186 ;;1064
+187 ;;21,"63003 ")
+188 ;;1065
+189 ;;21,"63005 ")
+190 ;;1066
+191 ;;21,"63012 ")
+192 ;;1067
+193 ;;21,"63015 ")
+194 ;;1068
+195 ;;21,"63016 ")
+196 ;;1069
+197 ;;21,"63017 ")
+198 ;;1070
+199 ;;21,"63020 ")
+200 ;;1071
+201 ;;21,"63030 ")
+202 ;;1072
+203 ;;21,"63040 ")
+204 ;;1073
+205 ;;21,"63042 ")
+206 ;;1074
+207 ;;21,"63045 ")
+208 ;;1075
+209 ;;21,"63046 ")
+210 ;;1076
+211 ;;21,"63047 ")
+212 ;;1077
+213 ;;21,"63055 ")
+214 ;;1078
+215 ;;21,"63056 ")
+216 ;;1079
+217 ;;21,"63064 ")
+218 ;;1080
+219 ;;21,"63075 ")
+220 ;;1081
+221 ;;21,"63077 ")
+222 ;;1082
+223 ;;21,"63081 ")
+224 ;;1083
+225 ;;21,"63085 ")
+226 ;;1084
+227 ;;21,"63087 ")
+228 ;;1085
+229 ;;21,"63090 ")
+230 ;;1086
+231 ;;21,"63170 ")
+232 ;;1087
+233 ;;21,"63172 ")
+234 ;;1088
+235 ;;21,"63173 ")
+236 ;;1089
+237 ;;21,"63180 ")
+238 ;;1090
+239 ;;21,"63182 ")
+240 ;;1091
+241 ;;21,"63185 ")
+242 ;;1092
+243 ;;21,"63190 ")
+244 ;;1093
+245 ;;21,"63191 ")
+246 ;;1094
+247 ;;21,"63194 ")
+248 ;;1095
+249 ;;21,"63195 ")
+250 ;;1096
+251 ;;21,"63196 ")
+252 ;;1097
+253 ;;21,"63197 ")
+254 ;;1098
+255 ;;21,"63198 ")
+256 ;;1099
+257 ;;21,"63199 ")
+258 ;;1100
+259 ;;21,"63200 ")
+260 ;;1101
+261 ;;21,"63250 ")
+262 ;;1102
+263 ;;21,"63251 ")
+264 ;;1103
+265 ;;21,"63252 ")
+266 ;;1104
+267 ;;21,"63265 ")
+268 ;;1105
+269 ;;21,"63266 ")
+270 ;;1106
+271 ;;21,"63267 ")
+272 ;;1107
+273 ;;21,"63268 ")
+274 ;;1108
+275 ;;21,"63270 ")
+276 ;;1109
+277 ;;21,"63271 ")
+278 ;;1110
+279 ;;21,"63272 ")
+280 ;;1111
+281 ;;21,"63273 ")
+282 ;;1112
+283 ;;21,"63275 ")
+284 ;;1113
+285 ;;21,"63276 ")
+286 ;;1114
+287 ;;21,"63277 ")
+288 ;;1115
+289 ;;21,"63278 ")
+290 ;;1116
+291 ;;21,"63280 ")
+292 ;;1117
+293 ;;21,"63281 ")
+294 ;;1118
+295 ;;21,"63282 ")
+296 ;;1119
+297 ;;21,"63283 ")
+298 ;;1120
+299 ;;21,"63285 ")
+300 ;;1121
+301 ;;21,"63286 ")
+302 ;;1122
+303 ;;21,"63287 ")
+304 ;;1123
+305 ;;21,"63290 ")
+306 ;;1124
+307 ;;21,"63300 ")
+308 ;;1125
+309 ;;21,"63301 ")
+310 ;;1126
+311 ;;21,"63302 ")
+312 ;;1127
+313 ;;21,"63303 ")
+314 ;;1128
+315 ;;21,"63304 ")
+316 ;;1129
+317 ;;21,"63305 ")
+318 ;;1130
+319 ;;21,"63306 ")
+320 ;;1131
+321 ;;21,"63307 ")
+322 ;;1132
+323 ;;21,"63615 ")
+324 ;;1133
+325 ;;21,"63700 ")
+326 ;;1134
+327 ;;21,"63702 ")
+328 ;;1135
+329 ;;21,"63704 ")
+330 ;;1136
+331 ;;21,"63706 ")
+332 ;;1137
+333 ;;21,"63707 ")
+334 ;;1138
+335 ;;21,"63709 ")
+336 ;;1139
+337 ;;21,"63740 ")
+338 ;;1140
+339 ;;21,"64786 ")
+340 ;;1141
+341 ;;21,"64804 ")
+342 ;;1142
+343 ;;21,"64858 ")
+344 ;;1143
+345 ;;21,"64861 ")
+346 ;;1144
+347 ;;21,"64862 ")
+348 ;;1145
+349 ;;21,"64865 ")
+350 ;;1146
+351 ;;21,"64866 ")
+352 ;;1147
+353 ;;21,"64870 ")
+354 ;;1148
+355 ;;21,"64885 ")
+356 ;;1149
+357 ;;21,"64886 ")
+358 ;;1150
+359 ;;21,"64890 ")
+360 ;;1151
+361 ;;21,"64891 ")
+362 ;;1152
+363 ;;21,"64893 ")
+364 ;;1153
+365 ;;21,"64895 ")
+366 ;;1154
+367 ;;21,"64896 ")
+368 ;;1155
+369 ;;21,"64897 ")
+370 ;;1156
+371 ;;21,"64898 ")
+372 ;;1157
+373 ;;21,"64907 ")
+374 ;;1158
+375 ;;21,"65110 ")
+376 ;;1159
+377 ;;21,"65112 ")
+378 ;;1160
