BGP9VXDF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
;
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,"482.32 ")
;;957
;;21,"482.39 ")
;;958
;;21,"482.40 ")
;;959
;;21,"482.41 ")
;;960
;;21,"482.49 ")
;;961
;;21,"482.81 ")
;;962
;;21,"482.82 ")
;;963
;;21,"482.83 ")
;;964
;;21,"482.84 ")
;;965
;;21,"482.89 ")
;;966
;;21,"482.9 ")
;;967
;;21,"483.0 ")
;;968
;;21,"483.1 ")
;;969
;;21,"483.8 ")
;;970
;;21,"484.1 ")
;;971
;;21,"484.3 ")
;;972
;;21,"484.5 ")
;;973
;;21,"484.6 ")
;;974
;;21,"484.7 ")
;;975
;;21,"484.8 ")
;;976
;;21,"485 ")
;;977
;;21,"486 ")
;;978
;;21,"487.0 ")
;;979
;;21,"487.1 ")
;;980
;;21,"487.8 ")
;;981
;;21,"490 ")
;;982
;;21,"491.0 ")
;;983
;;21,"491.1 ")
;;984
;;21,"491.20 ")
;;985
;;21,"491.21 ")
;;986
;;21,"491.22 ")
;;987
;;21,"491.8 ")
;;988
;;21,"491.9 ")
;;989
;;21,"510.0 ")
;;990
;;21,"510.9 ")
;;991
;;21,"511.0 ")
;;992
;;21,"511.1 ")
;;993
;;21,"511.8 ")
;;994
;;21,"511.9 ")
;;995
;;21,"513.0 ")
;;996
;;21,"513.1 ")
;;997
;;21,"540.0 ")
;;998
;;21,"540.1 ")
;;999
;;21,"540.9 ")
;;1000
;;21,"541 ")
;;1001
;;21,"542 ")
;;1002
;;21,"562.01 ")
;;1003
;;21,"562.11 ")
;;1004
;;21,"562.13 ")
;;1005
;;21,"566 ")
;;1006
;;21,"567.21 ")
;;1007
;;21,"567.22 ")
;;1008
;;21,"567.23 ")
;;1009
;;21,"567.29 ")
;;1010
;;21,"567.31 ")
;;1011
;;21,"567.38 ")
;;1012
;;21,"567.39 ")
;;1013
;;21,"567.81 ")
;;1014
;;21,"567.82 ")
;;1015
;;21,"567.89 ")
;;1016
;;21,"567.9 ")
;;1017
;;21,"569.5 ")
;;1018
;;21,"569.61 ")
;;1019
;;21,"575.0 ")
;;1020
;;21,"590.00 ")
;;1021
;;21,"590.01 ")
;;1022
;;21,"590.10 ")
;;1023
;;21,"590.11 ")
;;1024
;;21,"590.2 ")
;;1025
;;21,"590.3 ")
;;1026
;;21,"590.80 ")
;;1027
;;21,"590.81 ")
;;1028
;;21,"590.9 ")
;;1029
;;21,"595.0 ")
;;1030
;;21,"599.0 ")
;;1031
;;21,"601.0 ")
;;1032
;;21,"601.1 ")
;;1033
;;21,"601.2 ")
;;1034
;;21,"601.3 ")
;;1035
;;21,"601.4 ")
;;1036
;;21,"601.8 ")
;;1037
;;21,"601.9 ")
;;1038
;;21,"608.83 ")
;;1039
;;21,"614.0 ")
;;1040
;;21,"616.0 ")
;;1041
;;21,"616.10 ")
;;1042
;;21,"616.11 ")
;;1043
;;21,"616.2 ")
;;1044
;;21,"616.3 ")
;;1045
;;21,"616.4 ")
;;1046
;;21,"639.0 ")
;;1047
;;21,"646.60 ")
;;1048
;;21,"646.61 ")
;;1049
;;21,"646.62 ")
;;1050
;;21,"646.63 ")
;;1051
;;21,"646.64 ")
;;1052
;;21,"670.00 ")
;;1053
;;21,"670.02 ")
;;1054
;;21,"670.04 ")
;;1055
;;21,"674.30 ")
;;1056
;;21,"674.32 ")
;;1057
;;21,"674.34 ")
;;1058
;;21,"680.0 ")
;;1059
;;21,"681.00 ")
;;1060
;;21,"682.0 ")
;;1061
;;21,"683 ")
;;1062
;;21,"684 ")
;;1063
;;21,"685.0 ")
;;1064
;;21,"685.1 ")
;;1065
;;21,"686.0 ")
;;1066
;;21,"711.90 ")
;;1067
;;21,"730.00 ")
;;1068
;;21,"785.52 ")
;;1069
;;21,"785.59 ")
;;1070
;;21,"790.7 ")
;;1071
;;21,"996.6 ")
;;1072
;;21,"998.51 ")
;;1073
;;21,"998.59 ")
;;1074
;;9002226,858,.01)
;;BGP CMS INFECTIOUS DXS
;;9002226,858,.02)
;;@
;;9002226,858,.04)
;;@
;;9002226,858,.06)
;;@
;;9002226,858,.08)
;;0
;;9002226,858,.09)
;;3090325
;;9002226,858,.11)
;;@
;;9002226,858,.12)
;;31
;;9002226,858,.13)
;;1
;;9002226,858,.14)
;;@
;;9002226,858,.15)
;;80
;;9002226,858,.16)
;;@
;;9002226,858,.17)
;;@
;;9002226,858,3101)
;;@
;;9002226.02101,"858,001.0 ",.01)
;;001.0
;;9002226.02101,"858,001.0 ",.02)
;;002.9
;;9002226.02101,"858,003.0 ",.01)
;;003.0
;;9002226.02101,"858,003.0 ",.02)
;;006.9
;;9002226.02101,"858,007.0 ",.01)
;;007.0
;;9002226.02101,"858,007.0 ",.02)
;;007.0
;;9002226.02101,"858,007.1 ",.01)
;;007.1
;;9002226.02101,"858,007.1 ",.02)
;;007.1
;;9002226.02101,"858,007.2 ",.01)
;;007.2
;;9002226.02101,"858,007.2 ",.02)
;;007.2
;;9002226.02101,"858,007.3 ",.01)
;;007.3
;;9002226.02101,"858,007.3 ",.02)
;;007.3
;;9002226.02101,"858,007.4 ",.01)
;;007.4
;;9002226.02101,"858,007.4 ",.02)
;;007.4
;;9002226.02101,"858,007.5 ",.01)
;;007.5
;;9002226.02101,"858,007.5 ",.02)
;;007.5
;;9002226.02101,"858,007.8 ",.01)
;;007.8
;;9002226.02101,"858,007.8 ",.02)
;;007.8
;;9002226.02101,"858,007.9 ",.01)
;;007.9
;;9002226.02101,"858,007.9 ",.02)
;;007.9
;;9002226.02101,"858,008.00 ",.01)
;;008.00
;;9002226.02101,"858,008.00 ",.02)
;;008.00
;;9002226.02101,"858,008.01 ",.01)
;;008.01
;;9002226.02101,"858,008.01 ",.02)
;;008.01
;;9002226.02101,"858,008.02 ",.01)
;;008.02
;;9002226.02101,"858,008.02 ",.02)
;;008.02
;;9002226.02101,"858,008.03 ",.01)
;;008.03
;;9002226.02101,"858,008.03 ",.02)
;;008.03
;;9002226.02101,"858,008.04 ",.01)
;;008.04
;;9002226.02101,"858,008.04 ",.02)
;;008.04
;;9002226.02101,"858,008.09 ",.01)
;;008.09
;;9002226.02101,"858,008.09 ",.02)
;;008.09
BGP9VXDF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
+1 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
+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,"482.32 ")
+2 ;;957
+3 ;;21,"482.39 ")
+4 ;;958
+5 ;;21,"482.40 ")
+6 ;;959
+7 ;;21,"482.41 ")
+8 ;;960
+9 ;;21,"482.49 ")
+10 ;;961
+11 ;;21,"482.81 ")
+12 ;;962
+13 ;;21,"482.82 ")
+14 ;;963
+15 ;;21,"482.83 ")
+16 ;;964
+17 ;;21,"482.84 ")
+18 ;;965
+19 ;;21,"482.89 ")
+20 ;;966
+21 ;;21,"482.9 ")
+22 ;;967
+23 ;;21,"483.0 ")
+24 ;;968
+25 ;;21,"483.1 ")
+26 ;;969
+27 ;;21,"483.8 ")
+28 ;;970
+29 ;;21,"484.1 ")
+30 ;;971
+31 ;;21,"484.3 ")
+32 ;;972
+33 ;;21,"484.5 ")
+34 ;;973
+35 ;;21,"484.6 ")
+36 ;;974
+37 ;;21,"484.7 ")
+38 ;;975
+39 ;;21,"484.8 ")
+40 ;;976
+41 ;;21,"485 ")
+42 ;;977
+43 ;;21,"486 ")
+44 ;;978
+45 ;;21,"487.0 ")
+46 ;;979
+47 ;;21,"487.1 ")
+48 ;;980
+49 ;;21,"487.8 ")
+50 ;;981
+51 ;;21,"490 ")
+52 ;;982
+53 ;;21,"491.0 ")
+54 ;;983
+55 ;;21,"491.1 ")
+56 ;;984
+57 ;;21,"491.20 ")
+58 ;;985
+59 ;;21,"491.21 ")
+60 ;;986
+61 ;;21,"491.22 ")
+62 ;;987
+63 ;;21,"491.8 ")
+64 ;;988
+65 ;;21,"491.9 ")
+66 ;;989
+67 ;;21,"510.0 ")
+68 ;;990
+69 ;;21,"510.9 ")
+70 ;;991
+71 ;;21,"511.0 ")
+72 ;;992
+73 ;;21,"511.1 ")
+74 ;;993
+75 ;;21,"511.8 ")
+76 ;;994
+77 ;;21,"511.9 ")
+78 ;;995
+79 ;;21,"513.0 ")
+80 ;;996
+81 ;;21,"513.1 ")
+82 ;;997
+83 ;;21,"540.0 ")
+84 ;;998
+85 ;;21,"540.1 ")
+86 ;;999
+87 ;;21,"540.9 ")
+88 ;;1000
+89 ;;21,"541 ")
+90 ;;1001
+91 ;;21,"542 ")
+92 ;;1002
+93 ;;21,"562.01 ")
+94 ;;1003
+95 ;;21,"562.11 ")
+96 ;;1004
+97 ;;21,"562.13 ")
+98 ;;1005
+99 ;;21,"566 ")
+100 ;;1006
+101 ;;21,"567.21 ")
+102 ;;1007
+103 ;;21,"567.22 ")
+104 ;;1008
+105 ;;21,"567.23 ")
+106 ;;1009
+107 ;;21,"567.29 ")
+108 ;;1010
+109 ;;21,"567.31 ")
+110 ;;1011
+111 ;;21,"567.38 ")
+112 ;;1012
+113 ;;21,"567.39 ")
+114 ;;1013
+115 ;;21,"567.81 ")
+116 ;;1014
+117 ;;21,"567.82 ")
+118 ;;1015
+119 ;;21,"567.89 ")
+120 ;;1016
+121 ;;21,"567.9 ")
+122 ;;1017
+123 ;;21,"569.5 ")
+124 ;;1018
+125 ;;21,"569.61 ")
+126 ;;1019
+127 ;;21,"575.0 ")
+128 ;;1020
+129 ;;21,"590.00 ")
+130 ;;1021
+131 ;;21,"590.01 ")
+132 ;;1022
+133 ;;21,"590.10 ")
+134 ;;1023
+135 ;;21,"590.11 ")
+136 ;;1024
+137 ;;21,"590.2 ")
+138 ;;1025
+139 ;;21,"590.3 ")
+140 ;;1026
+141 ;;21,"590.80 ")
+142 ;;1027
+143 ;;21,"590.81 ")
+144 ;;1028
+145 ;;21,"590.9 ")
+146 ;;1029
+147 ;;21,"595.0 ")
+148 ;;1030
+149 ;;21,"599.0 ")
+150 ;;1031
+151 ;;21,"601.0 ")
+152 ;;1032
+153 ;;21,"601.1 ")
+154 ;;1033
+155 ;;21,"601.2 ")
+156 ;;1034
+157 ;;21,"601.3 ")
+158 ;;1035
+159 ;;21,"601.4 ")
+160 ;;1036
+161 ;;21,"601.8 ")
+162 ;;1037
+163 ;;21,"601.9 ")
+164 ;;1038
+165 ;;21,"608.83 ")
+166 ;;1039
+167 ;;21,"614.0 ")
+168 ;;1040
+169 ;;21,"616.0 ")
+170 ;;1041
+171 ;;21,"616.10 ")
+172 ;;1042
+173 ;;21,"616.11 ")
+174 ;;1043
+175 ;;21,"616.2 ")
+176 ;;1044
+177 ;;21,"616.3 ")
+178 ;;1045
+179 ;;21,"616.4 ")
+180 ;;1046
+181 ;;21,"639.0 ")
+182 ;;1047
+183 ;;21,"646.60 ")
+184 ;;1048
+185 ;;21,"646.61 ")
+186 ;;1049
+187 ;;21,"646.62 ")
+188 ;;1050
+189 ;;21,"646.63 ")
+190 ;;1051
+191 ;;21,"646.64 ")
+192 ;;1052
+193 ;;21,"670.00 ")
+194 ;;1053
+195 ;;21,"670.02 ")
+196 ;;1054
+197 ;;21,"670.04 ")
+198 ;;1055
+199 ;;21,"674.30 ")
+200 ;;1056
+201 ;;21,"674.32 ")
+202 ;;1057
+203 ;;21,"674.34 ")
+204 ;;1058
+205 ;;21,"680.0 ")
+206 ;;1059
+207 ;;21,"681.00 ")
+208 ;;1060
+209 ;;21,"682.0 ")
+210 ;;1061
+211 ;;21,"683 ")
+212 ;;1062
+213 ;;21,"684 ")
+214 ;;1063
+215 ;;21,"685.0 ")
+216 ;;1064
+217 ;;21,"685.1 ")
+218 ;;1065
+219 ;;21,"686.0 ")
+220 ;;1066
+221 ;;21,"711.90 ")
+222 ;;1067
+223 ;;21,"730.00 ")
+224 ;;1068
+225 ;;21,"785.52 ")
+226 ;;1069
+227 ;;21,"785.59 ")
+228 ;;1070
+229 ;;21,"790.7 ")
+230 ;;1071
+231 ;;21,"996.6 ")
+232 ;;1072
+233 ;;21,"998.51 ")
+234 ;;1073
+235 ;;21,"998.59 ")
+236 ;;1074
+237 ;;9002226,858,.01)
+238 ;;BGP CMS INFECTIOUS DXS
+239 ;;9002226,858,.02)
+240 ;;@
+241 ;;9002226,858,.04)
+242 ;;@
+243 ;;9002226,858,.06)
+244 ;;@
+245 ;;9002226,858,.08)
+246 ;;0
+247 ;;9002226,858,.09)
+248 ;;3090325
+249 ;;9002226,858,.11)
+250 ;;@
+251 ;;9002226,858,.12)
+252 ;;31
+253 ;;9002226,858,.13)
+254 ;;1
+255 ;;9002226,858,.14)
+256 ;;@
+257 ;;9002226,858,.15)
+258 ;;80
+259 ;;9002226,858,.16)
+260 ;;@
+261 ;;9002226,858,.17)
+262 ;;@
+263 ;;9002226,858,3101)
+264 ;;@
+265 ;;9002226.02101,"858,001.0 ",.01)
+266 ;;001.0
+267 ;;9002226.02101,"858,001.0 ",.02)
+268 ;;002.9
+269 ;;9002226.02101,"858,003.0 ",.01)
+270 ;;003.0
+271 ;;9002226.02101,"858,003.0 ",.02)
+272 ;;006.9
+273 ;;9002226.02101,"858,007.0 ",.01)
+274 ;;007.0
+275 ;;9002226.02101,"858,007.0 ",.02)
+276 ;;007.0
+277 ;;9002226.02101,"858,007.1 ",.01)
+278 ;;007.1
+279 ;;9002226.02101,"858,007.1 ",.02)
+280 ;;007.1
+281 ;;9002226.02101,"858,007.2 ",.01)
+282 ;;007.2
+283 ;;9002226.02101,"858,007.2 ",.02)
+284 ;;007.2
+285 ;;9002226.02101,"858,007.3 ",.01)
+286 ;;007.3
+287 ;;9002226.02101,"858,007.3 ",.02)
+288 ;;007.3
+289 ;;9002226.02101,"858,007.4 ",.01)
+290 ;;007.4
+291 ;;9002226.02101,"858,007.4 ",.02)
+292 ;;007.4
+293 ;;9002226.02101,"858,007.5 ",.01)
+294 ;;007.5
+295 ;;9002226.02101,"858,007.5 ",.02)
+296 ;;007.5
+297 ;;9002226.02101,"858,007.8 ",.01)
+298 ;;007.8
+299 ;;9002226.02101,"858,007.8 ",.02)
+300 ;;007.8
+301 ;;9002226.02101,"858,007.9 ",.01)
+302 ;;007.9
+303 ;;9002226.02101,"858,007.9 ",.02)
+304 ;;007.9
+305 ;;9002226.02101,"858,008.00 ",.01)
+306 ;;008.00
+307 ;;9002226.02101,"858,008.00 ",.02)
+308 ;;008.00
+309 ;;9002226.02101,"858,008.01 ",.01)
+310 ;;008.01
+311 ;;9002226.02101,"858,008.01 ",.02)
+312 ;;008.01
+313 ;;9002226.02101,"858,008.02 ",.01)
+314 ;;008.02
+315 ;;9002226.02101,"858,008.02 ",.02)
+316 ;;008.02
+317 ;;9002226.02101,"858,008.03 ",.01)
+318 ;;008.03
+319 ;;9002226.02101,"858,008.03 ",.02)
+320 ;;008.03
+321 ;;9002226.02101,"858,008.04 ",.01)
+322 ;;008.04
+323 ;;9002226.02101,"858,008.04 ",.02)
+324 ;;008.04
+325 ;;9002226.02101,"858,008.09 ",.01)
+326 ;;008.09
+327 ;;9002226.02101,"858,008.09 ",.02)
+328 ;;008.09
