BMCTXD ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
;;BMC EXPERIMENTAL CPT PROC
;
; This routine loads Taxonomy BMC EXPERIMENTAL CPT PROC
;
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
D OTHER
I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
D KILL^ATXSTX2
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"15775 ")
;;11
;;21,"20974 ")
;;13
;;21,"20975 ")
;;12
;;21,"36260 ")
;;14
;;21,"36520 ")
;;16
;;21,"38230 ")
;;17
;;21,"38240 ")
;;18
;;21,"43326 ")
;;2
;;21,"43842 ")
;;3
;;21,"44130 ")
;;19
;;21,"47135 ")
;;4
;;21,"48155 ")
;;21
;;21,"48160 ")
;;22
;;21,"54400 ")
;;29
;;21,"54660 ")
;;23
;;21,"55970 ")
;;25
;;21,"55980 ")
;;28
;;21,"56805 ")
;;26
;;21,"58970 ")
;;30
;;21,"58972 ")
;;27
;;21,"61855 ")
;;31
;;21,"63650 ")
;;33
;;21,"64550 ")
;;34
;;21,"65755 ")
;;59
;;21,"65760 ")
;;37
;;21,"65765 ")
;;38
;;21,"65771 ")
;;1
;;21,"69090 ")
;;39
;;21,"69399 ")
;;40
;;21,"69930 ")
;;41
;;21,"76070 ")
;;60
;;21,"76075 ")
;;61
;;21,"77600 ")
;;42
;;21,"77620 ")
;;43
;;21,"78350 ")
;;45
;;21,"90900 ")
;;46
;;21,"91032 ")
;;47
;;21,"92286 ")
;;48
;;21,"92287 ")
;;49
;;21,"93720 ")
;;50
;;21,"93721 ")
;;51
;;21,"93722 ")
;;52
;;21,"93784 ")
;;53
;;21,"94799 ")
;;56
;;21,"95805 ")
;;54
;;21,"99183 ")
;;58
;;21,"E0720 ")
;;35
;;21,"E0730 ")
;;36
;;21,"E0751 ")
;;32
;;21,"E0782 ")
;;15
;;21,"J3570 ")
;;5
;;21,"L8690 ")
;;24
;;21,"M0075 ")
;;6
;;21,"M0300 ")
;;7
;;21,"S9019 ")
;;8
;;21,"S9025 ")
;;9
;;21,"W0050 ")
;;10
;;9002226,120,.01)
;;BMC EXPERIMENTAL CPT PROC
;;9002226,120,.02)
;;EXPERIMENTAL CPT PROCEDURES
;;9002226,120,.04)
;;n
;;9002226,120,.08)
;;0
;;9002226,120,.09)
;;2951229
;;9002226,120,.12)
;;31
;;9002226,120,.13)
;;1
;;9002226,120,.14)
;;AA
;;9002226,120,.15)
;;81
;;9002226,120,.16)
;;1
;;9002226.02101,"120,15775 ",.01)
;;15775
;;9002226.02101,"120,15775 ",.02)
;;15776
;;9002226.02101,"120,20974 ",.01)
;;20974
;;9002226.02101,"120,20974 ",.02)
;;20974
;;9002226.02101,"120,20975 ",.01)
;;20975
;;9002226.02101,"120,20975 ",.02)
;;20975
;;9002226.02101,"120,36260 ",.01)
;;36260
;;9002226.02101,"120,36260 ",.02)
;;36262
;;9002226.02101,"120,36520 ",.01)
;;36520
;;9002226.02101,"120,36520 ",.02)
;;36520
;;9002226.02101,"120,38230 ",.01)
;;38230
;;9002226.02101,"120,38230 ",.02)
;;38230
;;9002226.02101,"120,38240 ",.01)
;;38240
;;9002226.02101,"120,38240 ",.02)
;;38240
;;9002226.02101,"120,43326 ",.01)
;;43326
;;9002226.02101,"120,43326 ",.02)
;;43326
;;9002226.02101,"120,43842 ",.01)
;;43842
;;9002226.02101,"120,43842 ",.02)
;;43848
;;9002226.02101,"120,44130 ",.01)
;;44130
;;9002226.02101,"120,44130 ",.02)
;;44130
;;9002226.02101,"120,47135 ",.01)
;;47135
;;9002226.02101,"120,47135 ",.02)
;;47136
;;9002226.02101,"120,48155 ",.01)
;;48155
;;9002226.02101,"120,48155 ",.02)
;;48155
;;9002226.02101,"120,48160 ",.01)
;;48160
;;9002226.02101,"120,48160 ",.02)
;;48160
;;9002226.02101,"120,54400 ",.01)
;;54400
;;9002226.02101,"120,54400 ",.02)
;;54409
;;9002226.02101,"120,54660 ",.01)
;;54660
;;9002226.02101,"120,54660 ",.02)
;;54660
;;9002226.02101,"120,55970 ",.01)
;;55970
;;9002226.02101,"120,55970 ",.02)
;;55970
;;9002226.02101,"120,55980 ",.01)
;;55980
;;9002226.02101,"120,55980 ",.02)
;;55980
;;9002226.02101,"120,56805 ",.01)
;;56805
;;9002226.02101,"120,56805 ",.02)
;;56805
;;9002226.02101,"120,58970 ",.01)
;;58970
;;9002226.02101,"120,58970 ",.02)
;;58970
;;9002226.02101,"120,58972 ",.01)
;;58972
;;9002226.02101,"120,58972 ",.02)
;;58976
;;9002226.02101,"120,61855 ",.01)
;;61855
;;9002226.02101,"120,61855 ",.02)
;;61888
;;9002226.02101,"120,63650 ",.01)
;;63650
;;9002226.02101,"120,63650 ",.02)
;;63691
;;9002226.02101,"120,64550 ",.01)
;;64550
;;9002226.02101,"120,64550 ",.02)
;;64550
;;9002226.02101,"120,65755 ",.01)
;;65755
;;9002226.02101,"120,65755 ",.02)
;;65755
;;9002226.02101,"120,65760 ",.01)
;;65760
;;9002226.02101,"120,65760 ",.02)
;;76760
;;9002226.02101,"120,65765 ",.01)
;;65765
;;9002226.02101,"120,65765 ",.02)
;;65765
;;9002226.02101,"120,65771 ",.01)
;;65771
;;9002226.02101,"120,65771 ",.02)
;;65771
;;9002226.02101,"120,69090 ",.01)
;;69090
;;9002226.02101,"120,69090 ",.02)
;;69090
;;9002226.02101,"120,69399 ",.01)
;;69399
;;9002226.02101,"120,69399 ",.02)
;;69399
;;9002226.02101,"120,69930 ",.01)
;;69930
;;9002226.02101,"120,69930 ",.02)
;;69930
;;9002226.02101,"120,76070 ",.01)
;;76070
;;9002226.02101,"120,76070 ",.02)
;;76070
;;9002226.02101,"120,76075 ",.01)
;;76075
;;9002226.02101,"120,76075 ",.02)
;;76075
;;9002226.02101,"120,77600 ",.01)
;;77600
;;9002226.02101,"120,77600 ",.02)
;;77615
;;9002226.02101,"120,77620 ",.01)
;;77620
;;9002226.02101,"120,77620 ",.02)
;;77620
;;9002226.02101,"120,78350 ",.01)
;;78350
;;9002226.02101,"120,78350 ",.02)
;;78351
;
OTHER ; OTHER ROUTINES
D ^BMCTXDB
Q
BMCTXD ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
+1 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
+2 ;;BMC EXPERIMENTAL CPT PROC
+3 ;
+4 ; This routine loads Taxonomy BMC EXPERIMENTAL CPT PROC
+5 ;
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 DO OTHER
+5 IF $ORDER(^TMP("ATX",$JOB,3.6,0))
DO BULL^ATXSTX2
+6 IF $ORDER(^TMP("ATX",$JOB,9002226,0))
DO TAX^ATXSTX2
+7 DO KILL^ATXSTX2
+8 QUIT
+9 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"15775 ")
+2 ;;11
+3 ;;21,"20974 ")
+4 ;;13
+5 ;;21,"20975 ")
+6 ;;12
+7 ;;21,"36260 ")
+8 ;;14
+9 ;;21,"36520 ")
+10 ;;16
+11 ;;21,"38230 ")
+12 ;;17
+13 ;;21,"38240 ")
+14 ;;18
+15 ;;21,"43326 ")
+16 ;;2
+17 ;;21,"43842 ")
+18 ;;3
+19 ;;21,"44130 ")
+20 ;;19
+21 ;;21,"47135 ")
+22 ;;4
+23 ;;21,"48155 ")
+24 ;;21
+25 ;;21,"48160 ")
+26 ;;22
+27 ;;21,"54400 ")
+28 ;;29
+29 ;;21,"54660 ")
+30 ;;23
+31 ;;21,"55970 ")
+32 ;;25
+33 ;;21,"55980 ")
+34 ;;28
+35 ;;21,"56805 ")
+36 ;;26
+37 ;;21,"58970 ")
+38 ;;30
+39 ;;21,"58972 ")
+40 ;;27
+41 ;;21,"61855 ")
+42 ;;31
+43 ;;21,"63650 ")
+44 ;;33
+45 ;;21,"64550 ")
+46 ;;34
+47 ;;21,"65755 ")
+48 ;;59
+49 ;;21,"65760 ")
+50 ;;37
+51 ;;21,"65765 ")
+52 ;;38
+53 ;;21,"65771 ")
+54 ;;1
+55 ;;21,"69090 ")
+56 ;;39
+57 ;;21,"69399 ")
+58 ;;40
+59 ;;21,"69930 ")
+60 ;;41
+61 ;;21,"76070 ")
+62 ;;60
+63 ;;21,"76075 ")
+64 ;;61
+65 ;;21,"77600 ")
+66 ;;42
+67 ;;21,"77620 ")
+68 ;;43
+69 ;;21,"78350 ")
+70 ;;45
+71 ;;21,"90900 ")
+72 ;;46
+73 ;;21,"91032 ")
+74 ;;47
+75 ;;21,"92286 ")
+76 ;;48
+77 ;;21,"92287 ")
+78 ;;49
+79 ;;21,"93720 ")
+80 ;;50
+81 ;;21,"93721 ")
+82 ;;51
+83 ;;21,"93722 ")
+84 ;;52
+85 ;;21,"93784 ")
+86 ;;53
+87 ;;21,"94799 ")
+88 ;;56
+89 ;;21,"95805 ")
+90 ;;54
+91 ;;21,"99183 ")
+92 ;;58
+93 ;;21,"E0720 ")
+94 ;;35
+95 ;;21,"E0730 ")
+96 ;;36
+97 ;;21,"E0751 ")
+98 ;;32
+99 ;;21,"E0782 ")
+100 ;;15
+101 ;;21,"J3570 ")
+102 ;;5
+103 ;;21,"L8690 ")
+104 ;;24
+105 ;;21,"M0075 ")
+106 ;;6
+107 ;;21,"M0300 ")
+108 ;;7
+109 ;;21,"S9019 ")
+110 ;;8
+111 ;;21,"S9025 ")
+112 ;;9
+113 ;;21,"W0050 ")
+114 ;;10
+115 ;;9002226,120,.01)
+116 ;;BMC EXPERIMENTAL CPT PROC
+117 ;;9002226,120,.02)
+118 ;;EXPERIMENTAL CPT PROCEDURES
+119 ;;9002226,120,.04)
+120 ;;n
+121 ;;9002226,120,.08)
+122 ;;0
+123 ;;9002226,120,.09)
+124 ;;2951229
+125 ;;9002226,120,.12)
+126 ;;31
+127 ;;9002226,120,.13)
+128 ;;1
+129 ;;9002226,120,.14)
+130 ;;AA
+131 ;;9002226,120,.15)
+132 ;;81
+133 ;;9002226,120,.16)
+134 ;;1
+135 ;;9002226.02101,"120,15775 ",.01)
+136 ;;15775
+137 ;;9002226.02101,"120,15775 ",.02)
+138 ;;15776
+139 ;;9002226.02101,"120,20974 ",.01)
+140 ;;20974
+141 ;;9002226.02101,"120,20974 ",.02)
+142 ;;20974
+143 ;;9002226.02101,"120,20975 ",.01)
+144 ;;20975
+145 ;;9002226.02101,"120,20975 ",.02)
+146 ;;20975
+147 ;;9002226.02101,"120,36260 ",.01)
+148 ;;36260
+149 ;;9002226.02101,"120,36260 ",.02)
+150 ;;36262
+151 ;;9002226.02101,"120,36520 ",.01)
+152 ;;36520
+153 ;;9002226.02101,"120,36520 ",.02)
+154 ;;36520
+155 ;;9002226.02101,"120,38230 ",.01)
+156 ;;38230
+157 ;;9002226.02101,"120,38230 ",.02)
+158 ;;38230
+159 ;;9002226.02101,"120,38240 ",.01)
+160 ;;38240
+161 ;;9002226.02101,"120,38240 ",.02)
+162 ;;38240
+163 ;;9002226.02101,"120,43326 ",.01)
+164 ;;43326
+165 ;;9002226.02101,"120,43326 ",.02)
+166 ;;43326
+167 ;;9002226.02101,"120,43842 ",.01)
+168 ;;43842
+169 ;;9002226.02101,"120,43842 ",.02)
+170 ;;43848
+171 ;;9002226.02101,"120,44130 ",.01)
+172 ;;44130
+173 ;;9002226.02101,"120,44130 ",.02)
+174 ;;44130
+175 ;;9002226.02101,"120,47135 ",.01)
+176 ;;47135
+177 ;;9002226.02101,"120,47135 ",.02)
+178 ;;47136
+179 ;;9002226.02101,"120,48155 ",.01)
+180 ;;48155
+181 ;;9002226.02101,"120,48155 ",.02)
+182 ;;48155
+183 ;;9002226.02101,"120,48160 ",.01)
+184 ;;48160
+185 ;;9002226.02101,"120,48160 ",.02)
+186 ;;48160
+187 ;;9002226.02101,"120,54400 ",.01)
+188 ;;54400
+189 ;;9002226.02101,"120,54400 ",.02)
+190 ;;54409
+191 ;;9002226.02101,"120,54660 ",.01)
+192 ;;54660
+193 ;;9002226.02101,"120,54660 ",.02)
+194 ;;54660
+195 ;;9002226.02101,"120,55970 ",.01)
+196 ;;55970
+197 ;;9002226.02101,"120,55970 ",.02)
+198 ;;55970
+199 ;;9002226.02101,"120,55980 ",.01)
+200 ;;55980
+201 ;;9002226.02101,"120,55980 ",.02)
+202 ;;55980
+203 ;;9002226.02101,"120,56805 ",.01)
+204 ;;56805
+205 ;;9002226.02101,"120,56805 ",.02)
+206 ;;56805
+207 ;;9002226.02101,"120,58970 ",.01)
+208 ;;58970
+209 ;;9002226.02101,"120,58970 ",.02)
+210 ;;58970
+211 ;;9002226.02101,"120,58972 ",.01)
+212 ;;58972
+213 ;;9002226.02101,"120,58972 ",.02)
+214 ;;58976
+215 ;;9002226.02101,"120,61855 ",.01)
+216 ;;61855
+217 ;;9002226.02101,"120,61855 ",.02)
+218 ;;61888
+219 ;;9002226.02101,"120,63650 ",.01)
+220 ;;63650
+221 ;;9002226.02101,"120,63650 ",.02)
+222 ;;63691
+223 ;;9002226.02101,"120,64550 ",.01)
+224 ;;64550
+225 ;;9002226.02101,"120,64550 ",.02)
+226 ;;64550
+227 ;;9002226.02101,"120,65755 ",.01)
+228 ;;65755
+229 ;;9002226.02101,"120,65755 ",.02)
+230 ;;65755
+231 ;;9002226.02101,"120,65760 ",.01)
+232 ;;65760
+233 ;;9002226.02101,"120,65760 ",.02)
+234 ;;76760
+235 ;;9002226.02101,"120,65765 ",.01)
+236 ;;65765
+237 ;;9002226.02101,"120,65765 ",.02)
+238 ;;65765
+239 ;;9002226.02101,"120,65771 ",.01)
+240 ;;65771
+241 ;;9002226.02101,"120,65771 ",.02)
+242 ;;65771
+243 ;;9002226.02101,"120,69090 ",.01)
+244 ;;69090
+245 ;;9002226.02101,"120,69090 ",.02)
+246 ;;69090
+247 ;;9002226.02101,"120,69399 ",.01)
+248 ;;69399
+249 ;;9002226.02101,"120,69399 ",.02)
+250 ;;69399
+251 ;;9002226.02101,"120,69930 ",.01)
+252 ;;69930
+253 ;;9002226.02101,"120,69930 ",.02)
+254 ;;69930
+255 ;;9002226.02101,"120,76070 ",.01)
+256 ;;76070
+257 ;;9002226.02101,"120,76070 ",.02)
+258 ;;76070
+259 ;;9002226.02101,"120,76075 ",.01)
+260 ;;76075
+261 ;;9002226.02101,"120,76075 ",.02)
+262 ;;76075
+263 ;;9002226.02101,"120,77600 ",.01)
+264 ;;77600
+265 ;;9002226.02101,"120,77600 ",.02)
+266 ;;77615
+267 ;;9002226.02101,"120,77620 ",.01)
+268 ;;77620
+269 ;;9002226.02101,"120,77620 ",.02)
+270 ;;77620
+271 ;;9002226.02101,"120,78350 ",.01)
+272 ;;78350
+273 ;;9002226.02101,"120,78350 ",.02)
+274 ;;78351
+275 ;
OTHER ; OTHER ROUTINES
+1 DO ^BMCTXDB
+2 QUIT
