BGP03G3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
;
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,"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,847,.01)
;;BGP CMS MAJOR SURGERY PROCS
;;9002226,847,.02)
;;@
;;9002226,847,.04)
;;n
;;9002226,847,.06)
;;@
;;9002226,847,.08)
;;0
;;9002226,847,.09)
;;3070604
;;9002226,847,.11)
;;@
;;9002226,847,.12)
;;255
;;9002226,847,.13)
;;1
;;9002226,847,.14)
;;@
;;9002226,847,.15)
;;80.1
;;9002226,847,.16)
;;@
;;9002226,847,.17)
;;@
;;9002226,847,3101)
;;@
;;9002226.02101,"847,00.70 ",.01)
;;00.70
;;9002226.02101,"847,00.70 ",.02)
;;00.70
;;9002226.02101,"847,00.71 ",.01)
;;00.71
;;9002226.02101,"847,00.71 ",.02)
;;00.71
;;9002226.02101,"847,00.72 ",.01)
;;00.72
;;9002226.02101,"847,00.72 ",.02)
;;00.72
;;9002226.02101,"847,00.73 ",.01)
;;00.73
;;9002226.02101,"847,00.73 ",.02)
;;00.73
;;9002226.02101,"847,00.77 ",.01)
;;00.77
;;9002226.02101,"847,00.77 ",.02)
;;00.77
;;9002226.02101,"847,00.80 ",.01)
;;00.80
;;9002226.02101,"847,00.80 ",.02)
;;00.80
;;9002226.02101,"847,00.81 ",.01)
;;00.81
;;9002226.02101,"847,00.81 ",.02)
;;00.81
;;9002226.02101,"847,00.82 ",.01)
;;00.82
;;9002226.02101,"847,00.82 ",.02)
;;00.82
;;9002226.02101,"847,00.83 ",.01)
;;00.83
;;9002226.02101,"847,00.83 ",.02)
;;00.83
;;9002226.02101,"847,00.84 ",.01)
;;00.84
;;9002226.02101,"847,00.84 ",.02)
;;00.84
;;9002226.02101,"847,00.85 ",.01)
;;00.85
;;9002226.02101,"847,00.85 ",.02)
;;00.85
;;9002226.02101,"847,00.86 ",.01)
;;00.86
;;9002226.02101,"847,00.86 ",.02)
;;00.86
;;9002226.02101,"847,00.87 ",.01)
;;00.87
;;9002226.02101,"847,00.87 ",.02)
;;00.87
;;9002226.02101,"847,01.14 ",.01)
;;01.14
;;9002226.02101,"847,01.14 ",.02)
;;01.14
;;9002226.02101,"847,01.21 ",.01)
;;01.21
;;9002226.02101,"847,01.21 ",.02)
;;01.21
;;9002226.02101,"847,01.23 ",.01)
;;01.23
;;9002226.02101,"847,01.23 ",.02)
;;01.23
;;9002226.02101,"847,01.24 ",.01)
;;01.24
;;9002226.02101,"847,01.24 ",.02)
;;01.24
;;9002226.02101,"847,01.25 ",.01)
;;01.25
;;9002226.02101,"847,01.25 ",.02)
;;01.25
;;9002226.02101,"847,01.31 ",.01)
;;01.31
;;9002226.02101,"847,01.31 ",.02)
;;01.31
;;9002226.02101,"847,01.32 ",.01)
;;01.32
;;9002226.02101,"847,01.32 ",.02)
;;01.32
;;9002226.02101,"847,01.39 ",.01)
;;01.39
;;9002226.02101,"847,01.39 ",.02)
;;01.39
;;9002226.02101,"847,01.41 ",.01)
;;01.41
;;9002226.02101,"847,01.41 ",.02)
;;01.41
;;9002226.02101,"847,01.42 ",.01)
;;01.42
;;9002226.02101,"847,01.42 ",.02)
;;01.42
;;9002226.02101,"847,01.51 ",.01)
;;01.51
;;9002226.02101,"847,01.51 ",.02)
;;01.51
;;9002226.02101,"847,01.52 ",.01)
;;01.52
;;9002226.02101,"847,01.52 ",.02)
;;01.52
;;9002226.02101,"847,01.53 ",.01)
;;01.53
;;9002226.02101,"847,01.53 ",.02)
;;01.53
;;9002226.02101,"847,01.59 ",.01)
;;01.59
;;9002226.02101,"847,01.59 ",.02)
;;01.59
;;9002226.02101,"847,01.6 ",.01)
;;01.6
;;9002226.02101,"847,01.6 ",.02)
;;01.6
;;9002226.02101,"847,02.01 ",.01)
;;02.01
;;9002226.02101,"847,02.01 ",.02)
;;02.01
;;9002226.02101,"847,02.02 ",.01)
;;02.02
;;9002226.02101,"847,02.02 ",.02)
;;02.02
;;9002226.02101,"847,02.03 ",.01)
;;02.03
;;9002226.02101,"847,02.03 ",.02)
;;02.03
;;9002226.02101,"847,02.04 ",.01)
;;02.04
;;9002226.02101,"847,02.04 ",.02)
;;02.04
;;9002226.02101,"847,02.05 ",.01)
;;02.05
;;9002226.02101,"847,02.05 ",.02)
;;02.05
;;9002226.02101,"847,02.06 ",.01)
;;02.06
;;9002226.02101,"847,02.06 ",.02)
;;02.06
;;9002226.02101,"847,02.07 ",.01)
;;02.07
;;9002226.02101,"847,02.07 ",.02)
;;02.07
;;9002226.02101,"847,02.11 ",.01)
;;02.11
;;9002226.02101,"847,02.11 ",.02)
;;02.11
;;9002226.02101,"847,02.12 ",.01)
;;02.12
;;9002226.02101,"847,02.12 ",.02)
;;02.12
;;9002226.02101,"847,02.13 ",.01)
;;02.13
;;9002226.02101,"847,02.13 ",.02)
;;02.13
;;9002226.02101,"847,02.14 ",.01)
;;02.14
;;9002226.02101,"847,02.14 ",.02)
;;02.14
;;9002226.02101,"847,02.31 ",.01)
;;02.31
;;9002226.02101,"847,02.31 ",.02)
;;02.31
;;9002226.02101,"847,02.32 ",.01)
;;02.32
;;9002226.02101,"847,02.32 ",.02)
;;02.32
;;9002226.02101,"847,02.33 ",.01)
;;02.33
;;9002226.02101,"847,02.33 ",.02)
;;02.33
;;9002226.02101,"847,02.34 ",.01)
;;02.34
;;9002226.02101,"847,02.34 ",.02)
;;02.34
;;9002226.02101,"847,02.35 ",.01)
;;02.35
;;9002226.02101,"847,02.35 ",.02)
;;02.35
;;9002226.02101,"847,02.39 ",.01)
;;02.39
;;9002226.02101,"847,02.39 ",.02)
;;02.39
;;9002226.02101,"847,02.91 ",.01)
;;02.91
;;9002226.02101,"847,02.91 ",.02)
;;02.91
;;9002226.02101,"847,02.92 ",.01)
;;02.92
;;9002226.02101,"847,02.92 ",.02)
;;02.92
;;9002226.02101,"847,02.93 ",.01)
;;02.93
;;9002226.02101,"847,02.93 ",.02)
;;02.93
;;9002226.02101,"847,03.01 ",.01)
;;03.01
;;9002226.02101,"847,03.01 ",.02)
;;03.01
;;9002226.02101,"847,03.02 ",.01)
;;03.02
;;9002226.02101,"847,03.02 ",.02)
;;03.02
;;9002226.02101,"847,03.09 ",.01)
;;03.09
;;9002226.02101,"847,03.09 ",.02)
;;03.09
;;9002226.02101,"847,03.1 ",.01)
;;03.1
;;9002226.02101,"847,03.1 ",.02)
;;03.1
;;9002226.02101,"847,03.29 ",.01)
;;03.29
;;9002226.02101,"847,03.29 ",.02)
;;03.29
;;9002226.02101,"847,03.4 ",.01)
;;03.4
;;9002226.02101,"847,03.4 ",.02)
;;03.4
;;9002226.02101,"847,03.51 ",.01)
;;03.51
;;9002226.02101,"847,03.51 ",.02)
;;03.51
;;9002226.02101,"847,03.52 ",.01)
;;03.52
;;9002226.02101,"847,03.52 ",.02)
;;03.52
;;9002226.02101,"847,03.53 ",.01)
;;03.53
;;9002226.02101,"847,03.53 ",.02)
;;03.53
;;9002226.02101,"847,03.59 ",.01)
;;03.59
;;9002226.02101,"847,03.59 ",.02)
;;03.59
;;9002226.02101,"847,03.6 ",.01)
;;03.6
;;9002226.02101,"847,03.6 ",.02)
;;03.6
;;9002226.02101,"847,03.71 ",.01)
;;03.71
;;9002226.02101,"847,03.71 ",.02)
;;03.71
;;9002226.02101,"847,03.72 ",.01)
;;03.72
;;9002226.02101,"847,03.72 ",.02)
;;03.72
;;9002226.02101,"847,03.79 ",.01)
;;03.79
;;9002226.02101,"847,03.79 ",.02)
;;03.79
;;9002226.02101,"847,03.97 ",.01)
;;03.97
;;9002226.02101,"847,03.97 ",.02)
;;03.97
;;9002226.02101,"847,03.98 ",.01)
;;03.98
;;9002226.02101,"847,03.98 ",.02)
;;03.98
;;9002226.02101,"847,04.01 ",.01)
;;04.01
;;9002226.02101,"847,04.01 ",.02)
;;04.01
;;9002226.02101,"847,04.02 ",.01)
;;04.02
;;9002226.02101,"847,04.02 ",.02)
;;04.02
;;9002226.02101,"847,04.03 ",.01)
;;04.03
;;9002226.02101,"847,04.03 ",.02)
;;04.03
;;9002226.02101,"847,04.04 ",.01)
;;04.04
;;9002226.02101,"847,04.04 ",.02)
;;04.04
;;9002226.02101,"847,04.05 ",.01)
;;04.05
;;9002226.02101,"847,04.05 ",.02)
;;04.05
;;9002226.02101,"847,04.06 ",.01)
;;04.06
;;9002226.02101,"847,04.06 ",.02)
;;04.06
;;9002226.02101,"847,04.07 ",.01)
;;04.07
;;9002226.02101,"847,04.07 ",.02)
;;04.07
;;9002226.02101,"847,04.3 ",.01)
;;04.3
;;9002226.02101,"847,04.3 ",.02)
;;04.3
;;9002226.02101,"847,04.41 ",.01)
;;04.41
;;9002226.02101,"847,04.41 ",.02)
;;04.41
;;9002226.02101,"847,04.42 ",.01)
;;04.42
;;9002226.02101,"847,04.42 ",.02)
;;04.42
;;9002226.02101,"847,05.0 ",.01)
;;05.0
;;9002226.02101,"847,05.0 ",.02)
;;05.0
;;9002226.02101,"847,05.21 ",.01)
;;05.21
;;9002226.02101,"847,05.21 ",.02)
;;05.21
;;9002226.02101,"847,05.22 ",.01)
;;05.22
;;9002226.02101,"847,05.22 ",.02)
;;05.22
;;9002226.02101,"847,05.23 ",.01)
;;05.23
;;9002226.02101,"847,05.23 ",.02)
;;05.23
;;9002226.02101,"847,05.24 ",.01)
;;05.24
;;9002226.02101,"847,05.24 ",.02)
;;05.24
;;9002226.02101,"847,05.25 ",.01)
;;05.25
;;9002226.02101,"847,05.25 ",.02)
;;05.25
;;9002226.02101,"847,05.29 ",.01)
;;05.29
;;9002226.02101,"847,05.29 ",.02)
;;05.29
;;9002226.02101,"847,06.02 ",.01)
;;06.02
;;9002226.02101,"847,06.02 ",.02)
;;06.02
;;9002226.02101,"847,06.09 ",.01)
;;06.09
;;9002226.02101,"847,06.09 ",.02)
;;06.09
;;9002226.02101,"847,06.2 ",.01)
;;06.2
;;9002226.02101,"847,06.2 ",.02)
;;06.2
;;9002226.02101,"847,06.31 ",.01)
;;06.31
;;9002226.02101,"847,06.31 ",.02)
;;06.31
;;9002226.02101,"847,06.39 ",.01)
;;06.39
;;9002226.02101,"847,06.39 ",.02)
;;06.39
;;9002226.02101,"847,06.4 ",.01)
;;06.4
;;9002226.02101,"847,06.4 ",.02)
;;06.4
;;9002226.02101,"847,06.50 ",.01)
;;06.50
;;9002226.02101,"847,06.50 ",.02)
;;06.50
;;9002226.02101,"847,06.51 ",.01)
;;06.51
;;9002226.02101,"847,06.51 ",.02)
;;06.51
;;9002226.02101,"847,06.52 ",.01)
;;06.52
;;9002226.02101,"847,06.52 ",.02)
;;06.52
;;9002226.02101,"847,06.6 ",.01)
;;06.6
;;9002226.02101,"847,06.6 ",.02)
;;06.6
;;9002226.02101,"847,06.7 ",.01)
;;06.7
;;9002226.02101,"847,06.7 ",.02)
;;06.7
;;9002226.02101,"847,06.81 ",.01)
;;06.81
;;9002226.02101,"847,06.81 ",.02)
;;06.81
;;9002226.02101,"847,06.89 ",.01)
;;06.89
;;9002226.02101,"847,06.89 ",.02)
;;06.89
;;9002226.02101,"847,06.91 ",.01)
;;06.91
;;9002226.02101,"847,06.91 ",.02)
;;06.91
;;9002226.02101,"847,06.92 ",.01)
;;06.92
;;9002226.02101,"847,06.92 ",.02)
;;06.92
;;9002226.02101,"847,06.93 ",.01)
;;06.93
;;9002226.02101,"847,06.93 ",.02)
;;06.93
;;9002226.02101,"847,06.94 ",.01)
;;06.94
;;9002226.02101,"847,06.94 ",.02)
;;06.94
;;9002226.02101,"847,06.95 ",.01)
;;06.95
;;9002226.02101,"847,06.95 ",.02)
;;06.95
;;9002226.02101,"847,06.98 ",.01)
;;06.98
;;9002226.02101,"847,06.98 ",.02)
;;06.98
;;9002226.02101,"847,06.99 ",.01)
;;06.99
;;9002226.02101,"847,06.99 ",.02)
;;06.99
;;9002226.02101,"847,07.00 ",.01)
;;07.00
;;9002226.02101,"847,07.00 ",.02)
;;07.00
;;9002226.02101,"847,07.01 ",.01)
;;07.01
;;9002226.02101,"847,07.01 ",.02)
;;07.01
;;9002226.02101,"847,07.02 ",.01)
;;07.02
;;9002226.02101,"847,07.02 ",.02)
;;07.02
;;9002226.02101,"847,07.21 ",.01)
;;07.21
;;9002226.02101,"847,07.21 ",.02)
;;07.21
;;9002226.02101,"847,07.22 ",.01)
;;07.22
;;9002226.02101,"847,07.22 ",.02)
;;07.22
;;9002226.02101,"847,07.29 ",.01)
;;07.29
;;9002226.02101,"847,07.29 ",.02)
;;07.29
;;9002226.02101,"847,07.3 ",.01)
;;07.3
;;9002226.02101,"847,07.3 ",.02)
;;07.3
;;9002226.02101,"847,07.41 ",.01)
;;07.41
;;9002226.02101,"847,07.41 ",.02)
;;07.41
;;9002226.02101,"847,07.42 ",.01)
;;07.42
;;9002226.02101,"847,07.42 ",.02)
;;07.42
;;9002226.02101,"847,07.43 ",.01)
;;07.43
;;9002226.02101,"847,07.43 ",.02)
;;07.43
;;9002226.02101,"847,07.44 ",.01)
;;07.44
;;9002226.02101,"847,07.44 ",.02)
;;07.44
;;9002226.02101,"847,07.45 ",.01)
;;07.45
;;9002226.02101,"847,07.45 ",.02)
;;07.45
;;9002226.02101,"847,07.49 ",.01)
;;07.49
;;9002226.02101,"847,07.49 ",.02)
;;07.49
;;9002226.02101,"847,07.51 ",.01)
;;07.51
BGP03G3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
+1 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
+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,"83.32 ")
+2 ;;1010
+3 ;;21,"83.39 ")
+4 ;;1011
+5 ;;21,"83.5 ")
+6 ;;1012
+7 ;;21,"83.61 ")
+8 ;;1013
+9 ;;21,"83.62 ")
+10 ;;1014
+11 ;;21,"83.63 ")
+12 ;;1015
+13 ;;21,"83.64 ")
+14 ;;1016
+15 ;;21,"83.65 ")
+16 ;;1017
+17 ;;21,"83.71 ")
+18 ;;1018
+19 ;;21,"83.72 ")
+20 ;;1019
+21 ;;21,"83.73 ")
+22 ;;1020
+23 ;;21,"83.74 ")
+24 ;;1021
+25 ;;21,"83.75 ")
+26 ;;1022
+27 ;;21,"83.76 ")
+28 ;;1023
+29 ;;21,"83.77 ")
+30 ;;1024
+31 ;;21,"83.79 ")
+32 ;;1025
+33 ;;21,"83.81 ")
+34 ;;1026
+35 ;;21,"83.82 ")
+36 ;;1027
+37 ;;21,"83.83 ")
+38 ;;1028
+39 ;;21,"83.84 ")
+40 ;;1029
+41 ;;21,"83.85 ")
+42 ;;1030
+43 ;;21,"83.86 ")
+44 ;;1031
+45 ;;21,"83.87 ")
+46 ;;1032
+47 ;;21,"83.88 ")
+48 ;;1033
+49 ;;21,"83.89 ")
+50 ;;1034
+51 ;;21,"83.91 ")
+52 ;;1035
+53 ;;21,"83.99 ")
+54 ;;1036
+55 ;;21,"84.00 ")
+56 ;;1037
+57 ;;21,"84.03 ")
+58 ;;1038
+59 ;;21,"84.04 ")
+60 ;;1039
+61 ;;21,"84.05 ")
+62 ;;1040
+63 ;;21,"84.06 ")
+64 ;;1041
+65 ;;21,"84.07 ")
+66 ;;1042
+67 ;;21,"84.08 ")
+68 ;;1043
+69 ;;21,"84.09 ")
+70 ;;1044
+71 ;;21,"84.10 ")
+72 ;;1045
+73 ;;21,"84.12 ")
+74 ;;1046
+75 ;;21,"84.13 ")
+76 ;;1047
+77 ;;21,"84.14 ")
+78 ;;1048
+79 ;;21,"84.15 ")
+80 ;;1049
+81 ;;21,"84.16 ")
+82 ;;1050
+83 ;;21,"84.17 ")
+84 ;;1051
+85 ;;21,"84.18 ")
+86 ;;1052
+87 ;;21,"84.19 ")
+88 ;;1053
+89 ;;21,"84.22 ")
+90 ;;1054
+91 ;;21,"84.23 ")
+92 ;;1055
+93 ;;21,"84.24 ")
+94 ;;1056
+95 ;;21,"84.25 ")
+96 ;;1057
+97 ;;21,"84.26 ")
+98 ;;1058
+99 ;;21,"84.27 ")
+100 ;;1059
+101 ;;21,"84.28 ")
+102 ;;1060
+103 ;;21,"84.29 ")
+104 ;;1061
+105 ;;21,"84.3 ")
+106 ;;1062
+107 ;;21,"84.58 ")
+108 ;;1063
+109 ;;21,"85.22 ")
+110 ;;1064
+111 ;;21,"85.23 ")
+112 ;;1065
+113 ;;21,"85.31 ")
+114 ;;1066
+115 ;;21,"85.32 ")
+116 ;;1067
+117 ;;21,"85.33 ")
+118 ;;1068
+119 ;;21,"85.34 ")
+120 ;;1069
+121 ;;21,"85.35 ")
+122 ;;1070
+123 ;;21,"85.36 ")
+124 ;;1071
+125 ;;21,"85.41 ")
+126 ;;1072
+127 ;;21,"85.42 ")
+128 ;;1073
+129 ;;21,"85.43 ")
+130 ;;1074
+131 ;;21,"85.44 ")
+132 ;;1075
+133 ;;21,"85.45 ")
+134 ;;1076
+135 ;;21,"85.46 ")
+136 ;;1077
+137 ;;21,"85.47 ")
+138 ;;1078
+139 ;;21,"85.48 ")
+140 ;;1079
+141 ;;21,"85.50 ")
+142 ;;1080
+143 ;;21,"85.53 ")
+144 ;;1081
+145 ;;21,"85.54 ")
+146 ;;1082
+147 ;;21,"85.6 ")
+148 ;;1083
+149 ;;21,"85.7 ")
+150 ;;1084
+151 ;;21,"85.93 ")
+152 ;;1085
+153 ;;21,"85.94 ")
+154 ;;1086
+155 ;;21,"85.95 ")
+156 ;;1087
+157 ;;21,"85.96 ")
+158 ;;1088
+159 ;;21,"86.4 ")
+160 ;;1089
+161 ;;21,"86.70 ")
+162 ;;1090
+163 ;;21,"86.71 ")
+164 ;;1091
+165 ;;21,"86.72 ")
+166 ;;1092
+167 ;;21,"86.73 ")
+168 ;;1093
+169 ;;21,"86.74 ")
+170 ;;1094
+171 ;;21,"86.75 ")
+172 ;;1095
+173 ;;9002226,847,.01)
+174 ;;BGP CMS MAJOR SURGERY PROCS
+175 ;;9002226,847,.02)
+176 ;;@
+177 ;;9002226,847,.04)
+178 ;;n
+179 ;;9002226,847,.06)
+180 ;;@
+181 ;;9002226,847,.08)
+182 ;;0
+183 ;;9002226,847,.09)
+184 ;;3070604
+185 ;;9002226,847,.11)
+186 ;;@
+187 ;;9002226,847,.12)
+188 ;;255
+189 ;;9002226,847,.13)
+190 ;;1
+191 ;;9002226,847,.14)
+192 ;;@
+193 ;;9002226,847,.15)
+194 ;;80.1
+195 ;;9002226,847,.16)
+196 ;;@
+197 ;;9002226,847,.17)
+198 ;;@
+199 ;;9002226,847,3101)
+200 ;;@
+201 ;;9002226.02101,"847,00.70 ",.01)
+202 ;;00.70
+203 ;;9002226.02101,"847,00.70 ",.02)
+204 ;;00.70
+205 ;;9002226.02101,"847,00.71 ",.01)
+206 ;;00.71
+207 ;;9002226.02101,"847,00.71 ",.02)
+208 ;;00.71
+209 ;;9002226.02101,"847,00.72 ",.01)
+210 ;;00.72
+211 ;;9002226.02101,"847,00.72 ",.02)
+212 ;;00.72
+213 ;;9002226.02101,"847,00.73 ",.01)
+214 ;;00.73
+215 ;;9002226.02101,"847,00.73 ",.02)
+216 ;;00.73
+217 ;;9002226.02101,"847,00.77 ",.01)
+218 ;;00.77
+219 ;;9002226.02101,"847,00.77 ",.02)
+220 ;;00.77
+221 ;;9002226.02101,"847,00.80 ",.01)
+222 ;;00.80
+223 ;;9002226.02101,"847,00.80 ",.02)
+224 ;;00.80
+225 ;;9002226.02101,"847,00.81 ",.01)
+226 ;;00.81
+227 ;;9002226.02101,"847,00.81 ",.02)
+228 ;;00.81
+229 ;;9002226.02101,"847,00.82 ",.01)
+230 ;;00.82
+231 ;;9002226.02101,"847,00.82 ",.02)
+232 ;;00.82
+233 ;;9002226.02101,"847,00.83 ",.01)
+234 ;;00.83
+235 ;;9002226.02101,"847,00.83 ",.02)
+236 ;;00.83
+237 ;;9002226.02101,"847,00.84 ",.01)
+238 ;;00.84
+239 ;;9002226.02101,"847,00.84 ",.02)
+240 ;;00.84
+241 ;;9002226.02101,"847,00.85 ",.01)
+242 ;;00.85
+243 ;;9002226.02101,"847,00.85 ",.02)
+244 ;;00.85
+245 ;;9002226.02101,"847,00.86 ",.01)
+246 ;;00.86
+247 ;;9002226.02101,"847,00.86 ",.02)
+248 ;;00.86
+249 ;;9002226.02101,"847,00.87 ",.01)
+250 ;;00.87
+251 ;;9002226.02101,"847,00.87 ",.02)
+252 ;;00.87
+253 ;;9002226.02101,"847,01.14 ",.01)
+254 ;;01.14
+255 ;;9002226.02101,"847,01.14 ",.02)
+256 ;;01.14
+257 ;;9002226.02101,"847,01.21 ",.01)
+258 ;;01.21
+259 ;;9002226.02101,"847,01.21 ",.02)
+260 ;;01.21
+261 ;;9002226.02101,"847,01.23 ",.01)
+262 ;;01.23
+263 ;;9002226.02101,"847,01.23 ",.02)
+264 ;;01.23
+265 ;;9002226.02101,"847,01.24 ",.01)
+266 ;;01.24
+267 ;;9002226.02101,"847,01.24 ",.02)
+268 ;;01.24
+269 ;;9002226.02101,"847,01.25 ",.01)
+270 ;;01.25
+271 ;;9002226.02101,"847,01.25 ",.02)
+272 ;;01.25
+273 ;;9002226.02101,"847,01.31 ",.01)
+274 ;;01.31
+275 ;;9002226.02101,"847,01.31 ",.02)
+276 ;;01.31
+277 ;;9002226.02101,"847,01.32 ",.01)
+278 ;;01.32
+279 ;;9002226.02101,"847,01.32 ",.02)
+280 ;;01.32
+281 ;;9002226.02101,"847,01.39 ",.01)
+282 ;;01.39
+283 ;;9002226.02101,"847,01.39 ",.02)
+284 ;;01.39
+285 ;;9002226.02101,"847,01.41 ",.01)
+286 ;;01.41
+287 ;;9002226.02101,"847,01.41 ",.02)
+288 ;;01.41
+289 ;;9002226.02101,"847,01.42 ",.01)
+290 ;;01.42
+291 ;;9002226.02101,"847,01.42 ",.02)
+292 ;;01.42
+293 ;;9002226.02101,"847,01.51 ",.01)
+294 ;;01.51
+295 ;;9002226.02101,"847,01.51 ",.02)
+296 ;;01.51
+297 ;;9002226.02101,"847,01.52 ",.01)
+298 ;;01.52
+299 ;;9002226.02101,"847,01.52 ",.02)
+300 ;;01.52
+301 ;;9002226.02101,"847,01.53 ",.01)
+302 ;;01.53
+303 ;;9002226.02101,"847,01.53 ",.02)
+304 ;;01.53
+305 ;;9002226.02101,"847,01.59 ",.01)
+306 ;;01.59
+307 ;;9002226.02101,"847,01.59 ",.02)
+308 ;;01.59
+309 ;;9002226.02101,"847,01.6 ",.01)
+310 ;;01.6
+311 ;;9002226.02101,"847,01.6 ",.02)
+312 ;;01.6
+313 ;;9002226.02101,"847,02.01 ",.01)
+314 ;;02.01
+315 ;;9002226.02101,"847,02.01 ",.02)
+316 ;;02.01
+317 ;;9002226.02101,"847,02.02 ",.01)
+318 ;;02.02
+319 ;;9002226.02101,"847,02.02 ",.02)
+320 ;;02.02
+321 ;;9002226.02101,"847,02.03 ",.01)
+322 ;;02.03
+323 ;;9002226.02101,"847,02.03 ",.02)
+324 ;;02.03
+325 ;;9002226.02101,"847,02.04 ",.01)
+326 ;;02.04
+327 ;;9002226.02101,"847,02.04 ",.02)
+328 ;;02.04
+329 ;;9002226.02101,"847,02.05 ",.01)
+330 ;;02.05
+331 ;;9002226.02101,"847,02.05 ",.02)
+332 ;;02.05
+333 ;;9002226.02101,"847,02.06 ",.01)
+334 ;;02.06
+335 ;;9002226.02101,"847,02.06 ",.02)
+336 ;;02.06
+337 ;;9002226.02101,"847,02.07 ",.01)
+338 ;;02.07
+339 ;;9002226.02101,"847,02.07 ",.02)
+340 ;;02.07
+341 ;;9002226.02101,"847,02.11 ",.01)
+342 ;;02.11
+343 ;;9002226.02101,"847,02.11 ",.02)
+344 ;;02.11
+345 ;;9002226.02101,"847,02.12 ",.01)
+346 ;;02.12
+347 ;;9002226.02101,"847,02.12 ",.02)
+348 ;;02.12
+349 ;;9002226.02101,"847,02.13 ",.01)
+350 ;;02.13
+351 ;;9002226.02101,"847,02.13 ",.02)
+352 ;;02.13
+353 ;;9002226.02101,"847,02.14 ",.01)
+354 ;;02.14
+355 ;;9002226.02101,"847,02.14 ",.02)
+356 ;;02.14
+357 ;;9002226.02101,"847,02.31 ",.01)
+358 ;;02.31
+359 ;;9002226.02101,"847,02.31 ",.02)
+360 ;;02.31
+361 ;;9002226.02101,"847,02.32 ",.01)
+362 ;;02.32
+363 ;;9002226.02101,"847,02.32 ",.02)
+364 ;;02.32
+365 ;;9002226.02101,"847,02.33 ",.01)
+366 ;;02.33
+367 ;;9002226.02101,"847,02.33 ",.02)
+368 ;;02.33
+369 ;;9002226.02101,"847,02.34 ",.01)
+370 ;;02.34
+371 ;;9002226.02101,"847,02.34 ",.02)
+372 ;;02.34
+373 ;;9002226.02101,"847,02.35 ",.01)
+374 ;;02.35
+375 ;;9002226.02101,"847,02.35 ",.02)
+376 ;;02.35
+377 ;;9002226.02101,"847,02.39 ",.01)
+378 ;;02.39
+379 ;;9002226.02101,"847,02.39 ",.02)
+380 ;;02.39
+381 ;;9002226.02101,"847,02.91 ",.01)
+382 ;;02.91
+383 ;;9002226.02101,"847,02.91 ",.02)
+384 ;;02.91
+385 ;;9002226.02101,"847,02.92 ",.01)
+386 ;;02.92
+387 ;;9002226.02101,"847,02.92 ",.02)
+388 ;;02.92
+389 ;;9002226.02101,"847,02.93 ",.01)
+390 ;;02.93
+391 ;;9002226.02101,"847,02.93 ",.02)
+392 ;;02.93
+393 ;;9002226.02101,"847,03.01 ",.01)
+394 ;;03.01
+395 ;;9002226.02101,"847,03.01 ",.02)
+396 ;;03.01
+397 ;;9002226.02101,"847,03.02 ",.01)
+398 ;;03.02
+399 ;;9002226.02101,"847,03.02 ",.02)
+400 ;;03.02
+401 ;;9002226.02101,"847,03.09 ",.01)
+402 ;;03.09
+403 ;;9002226.02101,"847,03.09 ",.02)
+404 ;;03.09
+405 ;;9002226.02101,"847,03.1 ",.01)
+406 ;;03.1
+407 ;;9002226.02101,"847,03.1 ",.02)
+408 ;;03.1
+409 ;;9002226.02101,"847,03.29 ",.01)
+410 ;;03.29
+411 ;;9002226.02101,"847,03.29 ",.02)
+412 ;;03.29
+413 ;;9002226.02101,"847,03.4 ",.01)
+414 ;;03.4
+415 ;;9002226.02101,"847,03.4 ",.02)
+416 ;;03.4
+417 ;;9002226.02101,"847,03.51 ",.01)
+418 ;;03.51
+419 ;;9002226.02101,"847,03.51 ",.02)
+420 ;;03.51
+421 ;;9002226.02101,"847,03.52 ",.01)
+422 ;;03.52
+423 ;;9002226.02101,"847,03.52 ",.02)
+424 ;;03.52
+425 ;;9002226.02101,"847,03.53 ",.01)
+426 ;;03.53
+427 ;;9002226.02101,"847,03.53 ",.02)
+428 ;;03.53
+429 ;;9002226.02101,"847,03.59 ",.01)
+430 ;;03.59
+431 ;;9002226.02101,"847,03.59 ",.02)
+432 ;;03.59
+433 ;;9002226.02101,"847,03.6 ",.01)
+434 ;;03.6
+435 ;;9002226.02101,"847,03.6 ",.02)
+436 ;;03.6
+437 ;;9002226.02101,"847,03.71 ",.01)
+438 ;;03.71
+439 ;;9002226.02101,"847,03.71 ",.02)
+440 ;;03.71
+441 ;;9002226.02101,"847,03.72 ",.01)
+442 ;;03.72
+443 ;;9002226.02101,"847,03.72 ",.02)
+444 ;;03.72
+445 ;;9002226.02101,"847,03.79 ",.01)
+446 ;;03.79
+447 ;;9002226.02101,"847,03.79 ",.02)
+448 ;;03.79
+449 ;;9002226.02101,"847,03.97 ",.01)
+450 ;;03.97
+451 ;;9002226.02101,"847,03.97 ",.02)
+452 ;;03.97
+453 ;;9002226.02101,"847,03.98 ",.01)
+454 ;;03.98
+455 ;;9002226.02101,"847,03.98 ",.02)
+456 ;;03.98
+457 ;;9002226.02101,"847,04.01 ",.01)
+458 ;;04.01
+459 ;;9002226.02101,"847,04.01 ",.02)
+460 ;;04.01
+461 ;;9002226.02101,"847,04.02 ",.01)
+462 ;;04.02
+463 ;;9002226.02101,"847,04.02 ",.02)
+464 ;;04.02
+465 ;;9002226.02101,"847,04.03 ",.01)
+466 ;;04.03
+467 ;;9002226.02101,"847,04.03 ",.02)
+468 ;;04.03
+469 ;;9002226.02101,"847,04.04 ",.01)
+470 ;;04.04
+471 ;;9002226.02101,"847,04.04 ",.02)
+472 ;;04.04
+473 ;;9002226.02101,"847,04.05 ",.01)
+474 ;;04.05
+475 ;;9002226.02101,"847,04.05 ",.02)
+476 ;;04.05
+477 ;;9002226.02101,"847,04.06 ",.01)
+478 ;;04.06
+479 ;;9002226.02101,"847,04.06 ",.02)
+480 ;;04.06
+481 ;;9002226.02101,"847,04.07 ",.01)
+482 ;;04.07
+483 ;;9002226.02101,"847,04.07 ",.02)
+484 ;;04.07
+485 ;;9002226.02101,"847,04.3 ",.01)
+486 ;;04.3
+487 ;;9002226.02101,"847,04.3 ",.02)
+488 ;;04.3
+489 ;;9002226.02101,"847,04.41 ",.01)
+490 ;;04.41
+491 ;;9002226.02101,"847,04.41 ",.02)
+492 ;;04.41
+493 ;;9002226.02101,"847,04.42 ",.01)
+494 ;;04.42
+495 ;;9002226.02101,"847,04.42 ",.02)
+496 ;;04.42
+497 ;;9002226.02101,"847,05.0 ",.01)
+498 ;;05.0
+499 ;;9002226.02101,"847,05.0 ",.02)
+500 ;;05.0
+501 ;;9002226.02101,"847,05.21 ",.01)
+502 ;;05.21
+503 ;;9002226.02101,"847,05.21 ",.02)
+504 ;;05.21
+505 ;;9002226.02101,"847,05.22 ",.01)
+506 ;;05.22
+507 ;;9002226.02101,"847,05.22 ",.02)
+508 ;;05.22
+509 ;;9002226.02101,"847,05.23 ",.01)
+510 ;;05.23
+511 ;;9002226.02101,"847,05.23 ",.02)
+512 ;;05.23
+513 ;;9002226.02101,"847,05.24 ",.01)
+514 ;;05.24
+515 ;;9002226.02101,"847,05.24 ",.02)
+516 ;;05.24
+517 ;;9002226.02101,"847,05.25 ",.01)
+518 ;;05.25
+519 ;;9002226.02101,"847,05.25 ",.02)
+520 ;;05.25
+521 ;;9002226.02101,"847,05.29 ",.01)
+522 ;;05.29
+523 ;;9002226.02101,"847,05.29 ",.02)
+524 ;;05.29
+525 ;;9002226.02101,"847,06.02 ",.01)
+526 ;;06.02
+527 ;;9002226.02101,"847,06.02 ",.02)
+528 ;;06.02
+529 ;;9002226.02101,"847,06.09 ",.01)
+530 ;;06.09
+531 ;;9002226.02101,"847,06.09 ",.02)
+532 ;;06.09
+533 ;;9002226.02101,"847,06.2 ",.01)
+534 ;;06.2
+535 ;;9002226.02101,"847,06.2 ",.02)
+536 ;;06.2
+537 ;;9002226.02101,"847,06.31 ",.01)
+538 ;;06.31
+539 ;;9002226.02101,"847,06.31 ",.02)
+540 ;;06.31
+541 ;;9002226.02101,"847,06.39 ",.01)
+542 ;;06.39
+543 ;;9002226.02101,"847,06.39 ",.02)
+544 ;;06.39
+545 ;;9002226.02101,"847,06.4 ",.01)
+546 ;;06.4
+547 ;;9002226.02101,"847,06.4 ",.02)
+548 ;;06.4
+549 ;;9002226.02101,"847,06.50 ",.01)
+550 ;;06.50
+551 ;;9002226.02101,"847,06.50 ",.02)
+552 ;;06.50
+553 ;;9002226.02101,"847,06.51 ",.01)
+554 ;;06.51
+555 ;;9002226.02101,"847,06.51 ",.02)
+556 ;;06.51
+557 ;;9002226.02101,"847,06.52 ",.01)
+558 ;;06.52
+559 ;;9002226.02101,"847,06.52 ",.02)
+560 ;;06.52
+561 ;;9002226.02101,"847,06.6 ",.01)
+562 ;;06.6
+563 ;;9002226.02101,"847,06.6 ",.02)
+564 ;;06.6
+565 ;;9002226.02101,"847,06.7 ",.01)
+566 ;;06.7
+567 ;;9002226.02101,"847,06.7 ",.02)
+568 ;;06.7
+569 ;;9002226.02101,"847,06.81 ",.01)
+570 ;;06.81
+571 ;;9002226.02101,"847,06.81 ",.02)
+572 ;;06.81
+573 ;;9002226.02101,"847,06.89 ",.01)
+574 ;;06.89
+575 ;;9002226.02101,"847,06.89 ",.02)
+576 ;;06.89
+577 ;;9002226.02101,"847,06.91 ",.01)
+578 ;;06.91
+579 ;;9002226.02101,"847,06.91 ",.02)
+580 ;;06.91
+581 ;;9002226.02101,"847,06.92 ",.01)
+582 ;;06.92
+583 ;;9002226.02101,"847,06.92 ",.02)
+584 ;;06.92
+585 ;;9002226.02101,"847,06.93 ",.01)
+586 ;;06.93
+587 ;;9002226.02101,"847,06.93 ",.02)
+588 ;;06.93
+589 ;;9002226.02101,"847,06.94 ",.01)
+590 ;;06.94
+591 ;;9002226.02101,"847,06.94 ",.02)
+592 ;;06.94
+593 ;;9002226.02101,"847,06.95 ",.01)
+594 ;;06.95
+595 ;;9002226.02101,"847,06.95 ",.02)
+596 ;;06.95
+597 ;;9002226.02101,"847,06.98 ",.01)
+598 ;;06.98
+599 ;;9002226.02101,"847,06.98 ",.02)
+600 ;;06.98
+601 ;;9002226.02101,"847,06.99 ",.01)
+602 ;;06.99
+603 ;;9002226.02101,"847,06.99 ",.02)
+604 ;;06.99
+605 ;;9002226.02101,"847,07.00 ",.01)
+606 ;;07.00
+607 ;;9002226.02101,"847,07.00 ",.02)
+608 ;;07.00
+609 ;;9002226.02101,"847,07.01 ",.01)
+610 ;;07.01
+611 ;;9002226.02101,"847,07.01 ",.02)
+612 ;;07.01
+613 ;;9002226.02101,"847,07.02 ",.01)
+614 ;;07.02
+615 ;;9002226.02101,"847,07.02 ",.02)
+616 ;;07.02
+617 ;;9002226.02101,"847,07.21 ",.01)
+618 ;;07.21
+619 ;;9002226.02101,"847,07.21 ",.02)
+620 ;;07.21
+621 ;;9002226.02101,"847,07.22 ",.01)
+622 ;;07.22
+623 ;;9002226.02101,"847,07.22 ",.02)
+624 ;;07.22
+625 ;;9002226.02101,"847,07.29 ",.01)
+626 ;;07.29
+627 ;;9002226.02101,"847,07.29 ",.02)
+628 ;;07.29
+629 ;;9002226.02101,"847,07.3 ",.01)
+630 ;;07.3
+631 ;;9002226.02101,"847,07.3 ",.02)
+632 ;;07.3
+633 ;;9002226.02101,"847,07.41 ",.01)
+634 ;;07.41
+635 ;;9002226.02101,"847,07.41 ",.02)
+636 ;;07.41
+637 ;;9002226.02101,"847,07.42 ",.01)
+638 ;;07.42
+639 ;;9002226.02101,"847,07.42 ",.02)
+640 ;;07.42
+641 ;;9002226.02101,"847,07.43 ",.01)
+642 ;;07.43
+643 ;;9002226.02101,"847,07.43 ",.02)
+644 ;;07.43
+645 ;;9002226.02101,"847,07.44 ",.01)
+646 ;;07.44
+647 ;;9002226.02101,"847,07.44 ",.02)
+648 ;;07.44
+649 ;;9002226.02101,"847,07.45 ",.01)
+650 ;;07.45
+651 ;;9002226.02101,"847,07.45 ",.02)
+652 ;;07.45
+653 ;;9002226.02101,"847,07.49 ",.01)
+654 ;;07.49
+655 ;;9002226.02101,"847,07.49 ",.02)
+656 ;;07.49
+657 ;;9002226.02101,"847,07.51 ",.01)
+658 ;;07.51
