BGP9VXIF ; 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,"81.37 ")
;;976
;;21,"81.38 ")
;;977
;;21,"81.39 ")
;;978
;;21,"81.40 ")
;;979
;;21,"81.42 ")
;;980
;;21,"81.43 ")
;;981
;;21,"81.44 ")
;;982
;;21,"81.45 ")
;;983
;;21,"81.46 ")
;;984
;;21,"81.47 ")
;;985
;;21,"81.49 ")
;;986
;;21,"81.51 ")
;;987
;;21,"81.52 ")
;;988
;;21,"81.53 ")
;;989
;;21,"81.54 ")
;;990
;;21,"81.55 ")
;;991
;;21,"81.56 ")
;;992
;;21,"81.57 ")
;;993
;;21,"81.59 ")
;;994
;;21,"81.80 ")
;;995
;;21,"81.81 ")
;;996
;;21,"81.82 ")
;;997
;;21,"81.83 ")
;;998
;;21,"81.84 ")
;;999
;;21,"81.85 ")
;;1000
;;21,"81.93 ")
;;1001
;;21,"81.94 ")
;;1002
;;21,"81.95 ")
;;1003
;;21,"81.96 ")
;;1004
;;21,"81.97 ")
;;1005
;;21,"81.98 ")
;;1006
;;21,"81.99 ")
;;1007
;;21,"82.61 ")
;;1008
;;21,"82.81 ")
;;1009
;;21,"83.32 ")
;;1010
;;21,"83.39 ")
;;1011
;;21,"83.5 ")
;;1012
;;21,"83.61 ")
;;1013
;;21,"83.62 ")
;;1014
;;21,"83.63 ")
;;1015
;;21,"83.64 ")
;;1016
;;21,"83.65 ")
;;1017
;;21,"83.71 ")
;;1018
;;21,"83.72 ")
;;1019
;;21,"83.73 ")
;;1020
;;21,"83.74 ")
;;1021
;;21,"83.75 ")
;;1022
;;21,"83.76 ")
;;1023
;;21,"83.77 ")
;;1024
;;21,"83.79 ")
;;1025
;;21,"83.81 ")
;;1026
;;21,"83.82 ")
;;1027
;;21,"83.83 ")
;;1028
;;21,"83.84 ")
;;1029
;;21,"83.85 ")
;;1030
;;21,"83.86 ")
;;1031
;;21,"83.87 ")
;;1032
;;21,"83.88 ")
;;1033
;;21,"83.89 ")
;;1034
;;21,"83.91 ")
;;1035
;;21,"83.99 ")
;;1036
;;21,"84.00 ")
;;1037
;;21,"84.03 ")
;;1038
;;21,"84.04 ")
;;1039
;;21,"84.05 ")
;;1040
;;21,"84.06 ")
;;1041
;;21,"84.07 ")
;;1042
;;21,"84.08 ")
;;1043
;;21,"84.09 ")
;;1044
;;21,"84.10 ")
;;1045
;;21,"84.12 ")
;;1046
;;21,"84.13 ")
;;1047
;;21,"84.14 ")
;;1048
;;21,"84.15 ")
;;1049
;;21,"84.16 ")
;;1050
;;21,"84.17 ")
;;1051
;;21,"84.18 ")
;;1052
;;21,"84.19 ")
;;1053
;;21,"84.22 ")
;;1054
;;21,"84.23 ")
;;1055
;;21,"84.24 ")
;;1056
;;21,"84.25 ")
;;1057
;;21,"84.26 ")
;;1058
;;21,"84.27 ")
;;1059
;;21,"84.28 ")
;;1060
;;21,"84.29 ")
;;1061
;;21,"84.3 ")
;;1062
;;21,"84.58 ")
;;1063
;;21,"85.22 ")
;;1064
;;21,"85.23 ")
;;1065
;;21,"85.31 ")
;;1066
;;21,"85.32 ")
;;1067
;;21,"85.33 ")
;;1068
;;21,"85.34 ")
;;1069
;;21,"85.35 ")
;;1070
;;21,"85.36 ")
;;1071
;;21,"85.41 ")
;;1072
;;21,"85.42 ")
;;1073
;;21,"85.43 ")
;;1074
;;21,"85.44 ")
;;1075
;;21,"85.45 ")
;;1076
;;21,"85.46 ")
;;1077
;;21,"85.47 ")
;;1078
;;21,"85.48 ")
;;1079
;;21,"85.50 ")
;;1080
;;21,"85.53 ")
;;1081
;;21,"85.54 ")
;;1082
;;21,"85.6 ")
;;1083
;;21,"85.7 ")
;;1084
;;21,"85.93 ")
;;1085
;;21,"85.94 ")
;;1086
;;21,"85.95 ")
;;1087
;;21,"85.96 ")
;;1088
;;21,"86.4 ")
;;1089
;;21,"86.70 ")
;;1090
;;21,"86.71 ")
;;1091
;;21,"86.72 ")
;;1092
;;21,"86.73 ")
;;1093
;;21,"86.74 ")
;;1094
;;21,"86.75 ")
;;1095
;;9002226,862,.01)
;;BGP CMS MAJOR SURGERY PROCS
;;9002226,862,.02)
;;@
;;9002226,862,.04)
;;n
;;9002226,862,.06)
;;@
;;9002226,862,.08)
;;0
;;9002226,862,.09)
;;3070604
;;9002226,862,.11)
;;@
;;9002226,862,.12)
;;255
;;9002226,862,.13)
;;1
;;9002226,862,.14)
;;@
;;9002226,862,.15)
;;80.1
;;9002226,862,.16)
;;@
;;9002226,862,.17)
;;@
;;9002226,862,3101)
;;@
;;9002226.02101,"862,00.70 ",.01)
;;00.70
;;9002226.02101,"862,00.70 ",.02)
;;00.70
;;9002226.02101,"862,00.71 ",.01)
;;00.71
;;9002226.02101,"862,00.71 ",.02)
;;00.71
;;9002226.02101,"862,00.72 ",.01)
;;00.72
;;9002226.02101,"862,00.72 ",.02)
;;00.72
;;9002226.02101,"862,00.73 ",.01)
;;00.73
;;9002226.02101,"862,00.73 ",.02)
;;00.73
;;9002226.02101,"862,00.77 ",.01)
;;00.77
;;9002226.02101,"862,00.77 ",.02)
;;00.77
;;9002226.02101,"862,00.80 ",.01)
;;00.80
;;9002226.02101,"862,00.80 ",.02)
;;00.80
;;9002226.02101,"862,00.81 ",.01)
;;00.81
;;9002226.02101,"862,00.81 ",.02)
;;00.81
;;9002226.02101,"862,00.82 ",.01)
;;00.82
;;9002226.02101,"862,00.82 ",.02)
;;00.82
;;9002226.02101,"862,00.83 ",.01)
;;00.83
;;9002226.02101,"862,00.83 ",.02)
;;00.83
;;9002226.02101,"862,00.84 ",.01)
;;00.84
;;9002226.02101,"862,00.84 ",.02)
;;00.84
;;9002226.02101,"862,00.85 ",.01)
;;00.85
;;9002226.02101,"862,00.85 ",.02)
;;00.85
;;9002226.02101,"862,00.86 ",.01)
;;00.86
;;9002226.02101,"862,00.86 ",.02)
;;00.86
;;9002226.02101,"862,00.87 ",.01)
;;00.87
;;9002226.02101,"862,00.87 ",.02)
;;00.87
;;9002226.02101,"862,01.14 ",.01)
;;01.14
;;9002226.02101,"862,01.14 ",.02)
;;01.14
;;9002226.02101,"862,01.21 ",.01)
;;01.21
;;9002226.02101,"862,01.21 ",.02)
;;01.21
;;9002226.02101,"862,01.23 ",.01)
;;01.23
;;9002226.02101,"862,01.23 ",.02)
;;01.23
BGP9VXIF ; 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,"81.37 ")
+2 ;;976
+3 ;;21,"81.38 ")
+4 ;;977
+5 ;;21,"81.39 ")
+6 ;;978
+7 ;;21,"81.40 ")
+8 ;;979
+9 ;;21,"81.42 ")
+10 ;;980
+11 ;;21,"81.43 ")
+12 ;;981
+13 ;;21,"81.44 ")
+14 ;;982
+15 ;;21,"81.45 ")
+16 ;;983
+17 ;;21,"81.46 ")
+18 ;;984
+19 ;;21,"81.47 ")
+20 ;;985
+21 ;;21,"81.49 ")
+22 ;;986
+23 ;;21,"81.51 ")
+24 ;;987
+25 ;;21,"81.52 ")
+26 ;;988
+27 ;;21,"81.53 ")
+28 ;;989
+29 ;;21,"81.54 ")
+30 ;;990
+31 ;;21,"81.55 ")
+32 ;;991
+33 ;;21,"81.56 ")
+34 ;;992
+35 ;;21,"81.57 ")
+36 ;;993
+37 ;;21,"81.59 ")
+38 ;;994
+39 ;;21,"81.80 ")
+40 ;;995
+41 ;;21,"81.81 ")
+42 ;;996
+43 ;;21,"81.82 ")
+44 ;;997
+45 ;;21,"81.83 ")
+46 ;;998
+47 ;;21,"81.84 ")
+48 ;;999
+49 ;;21,"81.85 ")
+50 ;;1000
+51 ;;21,"81.93 ")
+52 ;;1001
+53 ;;21,"81.94 ")
+54 ;;1002
+55 ;;21,"81.95 ")
+56 ;;1003
+57 ;;21,"81.96 ")
+58 ;;1004
+59 ;;21,"81.97 ")
+60 ;;1005
+61 ;;21,"81.98 ")
+62 ;;1006
+63 ;;21,"81.99 ")
+64 ;;1007
+65 ;;21,"82.61 ")
+66 ;;1008
+67 ;;21,"82.81 ")
+68 ;;1009
+69 ;;21,"83.32 ")
+70 ;;1010
+71 ;;21,"83.39 ")
+72 ;;1011
+73 ;;21,"83.5 ")
+74 ;;1012
+75 ;;21,"83.61 ")
+76 ;;1013
+77 ;;21,"83.62 ")
+78 ;;1014
+79 ;;21,"83.63 ")
+80 ;;1015
+81 ;;21,"83.64 ")
+82 ;;1016
+83 ;;21,"83.65 ")
+84 ;;1017
+85 ;;21,"83.71 ")
+86 ;;1018
+87 ;;21,"83.72 ")
+88 ;;1019
+89 ;;21,"83.73 ")
+90 ;;1020
+91 ;;21,"83.74 ")
+92 ;;1021
+93 ;;21,"83.75 ")
+94 ;;1022
+95 ;;21,"83.76 ")
+96 ;;1023
+97 ;;21,"83.77 ")
+98 ;;1024
+99 ;;21,"83.79 ")
+100 ;;1025
+101 ;;21,"83.81 ")
+102 ;;1026
+103 ;;21,"83.82 ")
+104 ;;1027
+105 ;;21,"83.83 ")
+106 ;;1028
+107 ;;21,"83.84 ")
+108 ;;1029
+109 ;;21,"83.85 ")
+110 ;;1030
+111 ;;21,"83.86 ")
+112 ;;1031
+113 ;;21,"83.87 ")
+114 ;;1032
+115 ;;21,"83.88 ")
+116 ;;1033
+117 ;;21,"83.89 ")
+118 ;;1034
+119 ;;21,"83.91 ")
+120 ;;1035
+121 ;;21,"83.99 ")
+122 ;;1036
+123 ;;21,"84.00 ")
+124 ;;1037
+125 ;;21,"84.03 ")
+126 ;;1038
+127 ;;21,"84.04 ")
+128 ;;1039
+129 ;;21,"84.05 ")
+130 ;;1040
+131 ;;21,"84.06 ")
+132 ;;1041
+133 ;;21,"84.07 ")
+134 ;;1042
+135 ;;21,"84.08 ")
+136 ;;1043
+137 ;;21,"84.09 ")
+138 ;;1044
+139 ;;21,"84.10 ")
+140 ;;1045
+141 ;;21,"84.12 ")
+142 ;;1046
+143 ;;21,"84.13 ")
+144 ;;1047
+145 ;;21,"84.14 ")
+146 ;;1048
+147 ;;21,"84.15 ")
+148 ;;1049
+149 ;;21,"84.16 ")
+150 ;;1050
+151 ;;21,"84.17 ")
+152 ;;1051
+153 ;;21,"84.18 ")
+154 ;;1052
+155 ;;21,"84.19 ")
+156 ;;1053
+157 ;;21,"84.22 ")
+158 ;;1054
+159 ;;21,"84.23 ")
+160 ;;1055
+161 ;;21,"84.24 ")
+162 ;;1056
+163 ;;21,"84.25 ")
+164 ;;1057
+165 ;;21,"84.26 ")
+166 ;;1058
+167 ;;21,"84.27 ")
+168 ;;1059
+169 ;;21,"84.28 ")
+170 ;;1060
+171 ;;21,"84.29 ")
+172 ;;1061
+173 ;;21,"84.3 ")
+174 ;;1062
+175 ;;21,"84.58 ")
+176 ;;1063
+177 ;;21,"85.22 ")
+178 ;;1064
+179 ;;21,"85.23 ")
+180 ;;1065
+181 ;;21,"85.31 ")
+182 ;;1066
+183 ;;21,"85.32 ")
+184 ;;1067
+185 ;;21,"85.33 ")
+186 ;;1068
+187 ;;21,"85.34 ")
+188 ;;1069
+189 ;;21,"85.35 ")
+190 ;;1070
+191 ;;21,"85.36 ")
+192 ;;1071
+193 ;;21,"85.41 ")
+194 ;;1072
+195 ;;21,"85.42 ")
+196 ;;1073
+197 ;;21,"85.43 ")
+198 ;;1074
+199 ;;21,"85.44 ")
+200 ;;1075
+201 ;;21,"85.45 ")
+202 ;;1076
+203 ;;21,"85.46 ")
+204 ;;1077
+205 ;;21,"85.47 ")
+206 ;;1078
+207 ;;21,"85.48 ")
+208 ;;1079
+209 ;;21,"85.50 ")
+210 ;;1080
+211 ;;21,"85.53 ")
+212 ;;1081
+213 ;;21,"85.54 ")
+214 ;;1082
+215 ;;21,"85.6 ")
+216 ;;1083
+217 ;;21,"85.7 ")
+218 ;;1084
+219 ;;21,"85.93 ")
+220 ;;1085
+221 ;;21,"85.94 ")
+222 ;;1086
+223 ;;21,"85.95 ")
+224 ;;1087
+225 ;;21,"85.96 ")
+226 ;;1088
+227 ;;21,"86.4 ")
+228 ;;1089
+229 ;;21,"86.70 ")
+230 ;;1090
+231 ;;21,"86.71 ")
+232 ;;1091
+233 ;;21,"86.72 ")
+234 ;;1092
+235 ;;21,"86.73 ")
+236 ;;1093
+237 ;;21,"86.74 ")
+238 ;;1094
+239 ;;21,"86.75 ")
+240 ;;1095
+241 ;;9002226,862,.01)
+242 ;;BGP CMS MAJOR SURGERY PROCS
+243 ;;9002226,862,.02)
+244 ;;@
+245 ;;9002226,862,.04)
+246 ;;n
+247 ;;9002226,862,.06)
+248 ;;@
+249 ;;9002226,862,.08)
+250 ;;0
+251 ;;9002226,862,.09)
+252 ;;3070604
+253 ;;9002226,862,.11)
+254 ;;@
+255 ;;9002226,862,.12)
+256 ;;255
+257 ;;9002226,862,.13)
+258 ;;1
+259 ;;9002226,862,.14)
+260 ;;@
+261 ;;9002226,862,.15)
+262 ;;80.1
+263 ;;9002226,862,.16)
+264 ;;@
+265 ;;9002226,862,.17)
+266 ;;@
+267 ;;9002226,862,3101)
+268 ;;@
+269 ;;9002226.02101,"862,00.70 ",.01)
+270 ;;00.70
+271 ;;9002226.02101,"862,00.70 ",.02)
+272 ;;00.70
+273 ;;9002226.02101,"862,00.71 ",.01)
+274 ;;00.71
+275 ;;9002226.02101,"862,00.71 ",.02)
+276 ;;00.71
+277 ;;9002226.02101,"862,00.72 ",.01)
+278 ;;00.72
+279 ;;9002226.02101,"862,00.72 ",.02)
+280 ;;00.72
+281 ;;9002226.02101,"862,00.73 ",.01)
+282 ;;00.73
+283 ;;9002226.02101,"862,00.73 ",.02)
+284 ;;00.73
+285 ;;9002226.02101,"862,00.77 ",.01)
+286 ;;00.77
+287 ;;9002226.02101,"862,00.77 ",.02)
+288 ;;00.77
+289 ;;9002226.02101,"862,00.80 ",.01)
+290 ;;00.80
+291 ;;9002226.02101,"862,00.80 ",.02)
+292 ;;00.80
+293 ;;9002226.02101,"862,00.81 ",.01)
+294 ;;00.81
+295 ;;9002226.02101,"862,00.81 ",.02)
+296 ;;00.81
+297 ;;9002226.02101,"862,00.82 ",.01)
+298 ;;00.82
+299 ;;9002226.02101,"862,00.82 ",.02)
+300 ;;00.82
+301 ;;9002226.02101,"862,00.83 ",.01)
+302 ;;00.83
+303 ;;9002226.02101,"862,00.83 ",.02)
+304 ;;00.83
+305 ;;9002226.02101,"862,00.84 ",.01)
+306 ;;00.84
+307 ;;9002226.02101,"862,00.84 ",.02)
+308 ;;00.84
+309 ;;9002226.02101,"862,00.85 ",.01)
+310 ;;00.85
+311 ;;9002226.02101,"862,00.85 ",.02)
+312 ;;00.85
+313 ;;9002226.02101,"862,00.86 ",.01)
+314 ;;00.86
+315 ;;9002226.02101,"862,00.86 ",.02)
+316 ;;00.86
+317 ;;9002226.02101,"862,00.87 ",.01)
+318 ;;00.87
+319 ;;9002226.02101,"862,00.87 ",.02)
+320 ;;00.87
+321 ;;9002226.02101,"862,01.14 ",.01)
+322 ;;01.14
+323 ;;9002226.02101,"862,01.14 ",.02)
+324 ;;01.14
+325 ;;9002226.02101,"862,01.21 ",.01)
+326 ;;01.21
+327 ;;9002226.02101,"862,01.21 ",.02)
+328 ;;01.21
+329 ;;9002226.02101,"862,01.23 ",.01)
+330 ;;01.23
+331 ;;9002226.02101,"862,01.23 ",.02)
+332 ;;01.23
