ATXD5H ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
;;APCL INJ BATTERED CHILD
;
; This routine loads Taxonomy APCL INJ BATTERED CHILD
;
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,"E967.0 ")
;;1
;;21,"Y07.01 ")
;;2
;;21,"Y07.02 ")
;;3
;;21,"Y07.03 ")
;;4
;;21,"Y07.04 ")
;;5
;;21,"Y07.11 ")
;;6
;;21,"Y07.12 ")
;;7
;;21,"Y07.13 ")
;;8
;;21,"Y07.14 ")
;;9
;;21,"Y07.410 ")
;;10
;;21,"Y07.411 ")
;;11
;;21,"Y07.420 ")
;;12
;;21,"Y07.421 ")
;;13
;;21,"Y07.430 ")
;;14
;;21,"Y07.432 ")
;;15
;;21,"Y07.433 ")
;;16
;;21,"Y07.434 ")
;;17
;;21,"Y07.435 ")
;;18
;;21,"Y07.436 ")
;;19
;;21,"Y07.490 ")
;;20
;;21,"Y07.491 ")
;;21
;;21,"Y07.499 ")
;;22
;;21,"Y07.50 ")
;;23
;;21,"Y07.510 ")
;;24
;;21,"Y07.511 ")
;;25
;;21,"Y07.512 ")
;;26
;;21,"Y07.513 ")
;;27
;;21,"Y07.519 ")
;;28
;;21,"Y07.521 ")
;;29
;;21,"Y07.528 ")
;;30
;;21,"Y07.529 ")
;;31
;;21,"Y07.53 ")
;;32
;;21,"Y07.59 ")
;;33
;;21,"Y07.9 ")
;;34
;;9002226,161,.01)
;;APCL INJ BATTERED CHILD
;;9002226,161,.02)
;;APCL BATTERED CHILD ECODES
;;9002226,161,.04)
;;n
;;9002226,161,.06)
;;@
;;9002226,161,.08)
;;1
;;9002226,161,.09)
;;3131112
;;9002226,161,.11)
;;@
;;9002226,161,.12)
;;157
;;9002226,161,.13)
;;1
;;9002226,161,.14)
;;BA
;;9002226,161,.15)
;;80
;;9002226,161,.16)
;;1
;;9002226,161,.17)
;;@
;;9002226,161,3101)
;;@
;;9002226.02101,"161,E967.0 ",.01)
;;E967.0
;;9002226.02101,"161,E967.0 ",.02)
;;E967.9
;;9002226.02101,"161,E967.0 ",.03)
;;1
;;9002226.02101,"161,Y07.01 ",.01)
;;Y07.01
;;9002226.02101,"161,Y07.01 ",.02)
;;Y07.01
;;9002226.02101,"161,Y07.01 ",.03)
;;30
;;9002226.02101,"161,Y07.02 ",.01)
;;Y07.02
;;9002226.02101,"161,Y07.02 ",.02)
;;Y07.02
;;9002226.02101,"161,Y07.02 ",.03)
;;30
;;9002226.02101,"161,Y07.03 ",.01)
;;Y07.03
;;9002226.02101,"161,Y07.03 ",.02)
;;Y07.03
;;9002226.02101,"161,Y07.03 ",.03)
;;30
;;9002226.02101,"161,Y07.04 ",.01)
;;Y07.04
;;9002226.02101,"161,Y07.04 ",.02)
;;Y07.04
;;9002226.02101,"161,Y07.04 ",.03)
;;30
;;9002226.02101,"161,Y07.11 ",.01)
;;Y07.11
;;9002226.02101,"161,Y07.11 ",.02)
;;Y07.11
;;9002226.02101,"161,Y07.11 ",.03)
;;30
;;9002226.02101,"161,Y07.12 ",.01)
;;Y07.12
;;9002226.02101,"161,Y07.12 ",.02)
;;Y07.12
;;9002226.02101,"161,Y07.12 ",.03)
;;30
;;9002226.02101,"161,Y07.13 ",.01)
;;Y07.13
;;9002226.02101,"161,Y07.13 ",.02)
;;Y07.13
;;9002226.02101,"161,Y07.13 ",.03)
;;30
;;9002226.02101,"161,Y07.14 ",.01)
;;Y07.14
;;9002226.02101,"161,Y07.14 ",.02)
;;Y07.14
;;9002226.02101,"161,Y07.14 ",.03)
;;30
;;9002226.02101,"161,Y07.410 ",.01)
;;Y07.410
;;9002226.02101,"161,Y07.410 ",.02)
;;Y07.410
;;9002226.02101,"161,Y07.410 ",.03)
;;30
;;9002226.02101,"161,Y07.411 ",.01)
;;Y07.411
;;9002226.02101,"161,Y07.411 ",.02)
;;Y07.411
;;9002226.02101,"161,Y07.411 ",.03)
;;30
;;9002226.02101,"161,Y07.420 ",.01)
;;Y07.420
;;9002226.02101,"161,Y07.420 ",.02)
;;Y07.420
;;9002226.02101,"161,Y07.420 ",.03)
;;30
;;9002226.02101,"161,Y07.421 ",.01)
;;Y07.421
;;9002226.02101,"161,Y07.421 ",.02)
;;Y07.421
;;9002226.02101,"161,Y07.421 ",.03)
;;30
;;9002226.02101,"161,Y07.430 ",.01)
;;Y07.430
;;9002226.02101,"161,Y07.430 ",.02)
;;Y07.430
;;9002226.02101,"161,Y07.430 ",.03)
;;30
;;9002226.02101,"161,Y07.432 ",.01)
;;Y07.432
;;9002226.02101,"161,Y07.432 ",.02)
;;Y07.432
;;9002226.02101,"161,Y07.432 ",.03)
;;30
;;9002226.02101,"161,Y07.433 ",.01)
;;Y07.433
;;9002226.02101,"161,Y07.433 ",.02)
;;Y07.433
;;9002226.02101,"161,Y07.433 ",.03)
;;30
;;9002226.02101,"161,Y07.434 ",.01)
;;Y07.434
;;9002226.02101,"161,Y07.434 ",.02)
;;Y07.434
;;9002226.02101,"161,Y07.434 ",.03)
;;30
;;9002226.02101,"161,Y07.435 ",.01)
;;Y07.435
;;9002226.02101,"161,Y07.435 ",.02)
;;Y07.435
;;9002226.02101,"161,Y07.435 ",.03)
;;30
;;9002226.02101,"161,Y07.436 ",.01)
;;Y07.436
;;9002226.02101,"161,Y07.436 ",.02)
;;Y07.436
;;9002226.02101,"161,Y07.436 ",.03)
;;30
;;9002226.02101,"161,Y07.490 ",.01)
;;Y07.490
;;9002226.02101,"161,Y07.490 ",.02)
;;Y07.490
;;9002226.02101,"161,Y07.490 ",.03)
;;30
;;9002226.02101,"161,Y07.491 ",.01)
;;Y07.491
;;9002226.02101,"161,Y07.491 ",.02)
;;Y07.491
;;9002226.02101,"161,Y07.491 ",.03)
;;30
;;9002226.02101,"161,Y07.499 ",.01)
;;Y07.499
;;9002226.02101,"161,Y07.499 ",.02)
;;Y07.499
;;9002226.02101,"161,Y07.499 ",.03)
;;30
;;9002226.02101,"161,Y07.50 ",.01)
;;Y07.50
;;9002226.02101,"161,Y07.50 ",.02)
;;Y07.50
;;9002226.02101,"161,Y07.50 ",.03)
;;30
;;9002226.02101,"161,Y07.510 ",.01)
;;Y07.510
;;9002226.02101,"161,Y07.510 ",.02)
;;Y07.510
;;9002226.02101,"161,Y07.510 ",.03)
;;30
;;9002226.02101,"161,Y07.511 ",.01)
;;Y07.511
;;9002226.02101,"161,Y07.511 ",.02)
;;Y07.511
;;9002226.02101,"161,Y07.511 ",.03)
;;30
;;9002226.02101,"161,Y07.512 ",.01)
;;Y07.512
;;9002226.02101,"161,Y07.512 ",.02)
;;Y07.512
;;9002226.02101,"161,Y07.512 ",.03)
;;30
;;9002226.02101,"161,Y07.513 ",.01)
;;Y07.513
;;9002226.02101,"161,Y07.513 ",.02)
;;Y07.513
;;9002226.02101,"161,Y07.513 ",.03)
;;30
;;9002226.02101,"161,Y07.519 ",.01)
;;Y07.519
;;9002226.02101,"161,Y07.519 ",.02)
;;Y07.519
;;9002226.02101,"161,Y07.519 ",.03)
;;30
;;9002226.02101,"161,Y07.521 ",.01)
;;Y07.521
;;9002226.02101,"161,Y07.521 ",.02)
;;Y07.521
;;9002226.02101,"161,Y07.521 ",.03)
;;30
;;9002226.02101,"161,Y07.528 ",.01)
;;Y07.528
;;9002226.02101,"161,Y07.528 ",.02)
;;Y07.528
;;9002226.02101,"161,Y07.528 ",.03)
;;30
;;9002226.02101,"161,Y07.529 ",.01)
;;Y07.529
;;9002226.02101,"161,Y07.529 ",.02)
;;Y07.529
;;9002226.02101,"161,Y07.529 ",.03)
;;30
;;9002226.02101,"161,Y07.53 ",.01)
;;Y07.53
;;9002226.02101,"161,Y07.53 ",.02)
;;Y07.53
;;9002226.02101,"161,Y07.53 ",.03)
;;30
;;9002226.02101,"161,Y07.59 ",.01)
;;Y07.59
;;9002226.02101,"161,Y07.59 ",.02)
;;Y07.59
;;9002226.02101,"161,Y07.59 ",.03)
;;30
;;9002226.02101,"161,Y07.9 ",.01)
;;Y07.9
;;9002226.02101,"161,Y07.9 ",.02)
;;Y07.9
;;9002226.02101,"161,Y07.9 ",.03)
;;30
;;9002226.04101,"161,1",.01)
;;APCL
;
OTHER ; OTHER ROUTINES
Q
ATXD5H ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;;APCL INJ BATTERED CHILD
+3 ;
+4 ; This routine loads Taxonomy APCL INJ BATTERED CHILD
+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,"E967.0 ")
+2 ;;1
+3 ;;21,"Y07.01 ")
+4 ;;2
+5 ;;21,"Y07.02 ")
+6 ;;3
+7 ;;21,"Y07.03 ")
+8 ;;4
+9 ;;21,"Y07.04 ")
+10 ;;5
+11 ;;21,"Y07.11 ")
+12 ;;6
+13 ;;21,"Y07.12 ")
+14 ;;7
+15 ;;21,"Y07.13 ")
+16 ;;8
+17 ;;21,"Y07.14 ")
+18 ;;9
+19 ;;21,"Y07.410 ")
+20 ;;10
+21 ;;21,"Y07.411 ")
+22 ;;11
+23 ;;21,"Y07.420 ")
+24 ;;12
+25 ;;21,"Y07.421 ")
+26 ;;13
+27 ;;21,"Y07.430 ")
+28 ;;14
+29 ;;21,"Y07.432 ")
+30 ;;15
+31 ;;21,"Y07.433 ")
+32 ;;16
+33 ;;21,"Y07.434 ")
+34 ;;17
+35 ;;21,"Y07.435 ")
+36 ;;18
+37 ;;21,"Y07.436 ")
+38 ;;19
+39 ;;21,"Y07.490 ")
+40 ;;20
+41 ;;21,"Y07.491 ")
+42 ;;21
+43 ;;21,"Y07.499 ")
+44 ;;22
+45 ;;21,"Y07.50 ")
+46 ;;23
+47 ;;21,"Y07.510 ")
+48 ;;24
+49 ;;21,"Y07.511 ")
+50 ;;25
+51 ;;21,"Y07.512 ")
+52 ;;26
+53 ;;21,"Y07.513 ")
+54 ;;27
+55 ;;21,"Y07.519 ")
+56 ;;28
+57 ;;21,"Y07.521 ")
+58 ;;29
+59 ;;21,"Y07.528 ")
+60 ;;30
+61 ;;21,"Y07.529 ")
+62 ;;31
+63 ;;21,"Y07.53 ")
+64 ;;32
+65 ;;21,"Y07.59 ")
+66 ;;33
+67 ;;21,"Y07.9 ")
+68 ;;34
+69 ;;9002226,161,.01)
+70 ;;APCL INJ BATTERED CHILD
+71 ;;9002226,161,.02)
+72 ;;APCL BATTERED CHILD ECODES
+73 ;;9002226,161,.04)
+74 ;;n
+75 ;;9002226,161,.06)
+76 ;;@
+77 ;;9002226,161,.08)
+78 ;;1
+79 ;;9002226,161,.09)
+80 ;;3131112
+81 ;;9002226,161,.11)
+82 ;;@
+83 ;;9002226,161,.12)
+84 ;;157
+85 ;;9002226,161,.13)
+86 ;;1
+87 ;;9002226,161,.14)
+88 ;;BA
+89 ;;9002226,161,.15)
+90 ;;80
+91 ;;9002226,161,.16)
+92 ;;1
+93 ;;9002226,161,.17)
+94 ;;@
+95 ;;9002226,161,3101)
+96 ;;@
+97 ;;9002226.02101,"161,E967.0 ",.01)
+98 ;;E967.0
+99 ;;9002226.02101,"161,E967.0 ",.02)
+100 ;;E967.9
+101 ;;9002226.02101,"161,E967.0 ",.03)
+102 ;;1
+103 ;;9002226.02101,"161,Y07.01 ",.01)
+104 ;;Y07.01
+105 ;;9002226.02101,"161,Y07.01 ",.02)
+106 ;;Y07.01
+107 ;;9002226.02101,"161,Y07.01 ",.03)
+108 ;;30
+109 ;;9002226.02101,"161,Y07.02 ",.01)
+110 ;;Y07.02
+111 ;;9002226.02101,"161,Y07.02 ",.02)
+112 ;;Y07.02
+113 ;;9002226.02101,"161,Y07.02 ",.03)
+114 ;;30
+115 ;;9002226.02101,"161,Y07.03 ",.01)
+116 ;;Y07.03
+117 ;;9002226.02101,"161,Y07.03 ",.02)
+118 ;;Y07.03
+119 ;;9002226.02101,"161,Y07.03 ",.03)
+120 ;;30
+121 ;;9002226.02101,"161,Y07.04 ",.01)
+122 ;;Y07.04
+123 ;;9002226.02101,"161,Y07.04 ",.02)
+124 ;;Y07.04
+125 ;;9002226.02101,"161,Y07.04 ",.03)
+126 ;;30
+127 ;;9002226.02101,"161,Y07.11 ",.01)
+128 ;;Y07.11
+129 ;;9002226.02101,"161,Y07.11 ",.02)
+130 ;;Y07.11
+131 ;;9002226.02101,"161,Y07.11 ",.03)
+132 ;;30
+133 ;;9002226.02101,"161,Y07.12 ",.01)
+134 ;;Y07.12
+135 ;;9002226.02101,"161,Y07.12 ",.02)
+136 ;;Y07.12
+137 ;;9002226.02101,"161,Y07.12 ",.03)
+138 ;;30
+139 ;;9002226.02101,"161,Y07.13 ",.01)
+140 ;;Y07.13
+141 ;;9002226.02101,"161,Y07.13 ",.02)
+142 ;;Y07.13
+143 ;;9002226.02101,"161,Y07.13 ",.03)
+144 ;;30
+145 ;;9002226.02101,"161,Y07.14 ",.01)
+146 ;;Y07.14
+147 ;;9002226.02101,"161,Y07.14 ",.02)
+148 ;;Y07.14
+149 ;;9002226.02101,"161,Y07.14 ",.03)
+150 ;;30
+151 ;;9002226.02101,"161,Y07.410 ",.01)
+152 ;;Y07.410
+153 ;;9002226.02101,"161,Y07.410 ",.02)
+154 ;;Y07.410
+155 ;;9002226.02101,"161,Y07.410 ",.03)
+156 ;;30
+157 ;;9002226.02101,"161,Y07.411 ",.01)
+158 ;;Y07.411
+159 ;;9002226.02101,"161,Y07.411 ",.02)
+160 ;;Y07.411
+161 ;;9002226.02101,"161,Y07.411 ",.03)
+162 ;;30
+163 ;;9002226.02101,"161,Y07.420 ",.01)
+164 ;;Y07.420
+165 ;;9002226.02101,"161,Y07.420 ",.02)
+166 ;;Y07.420
+167 ;;9002226.02101,"161,Y07.420 ",.03)
+168 ;;30
+169 ;;9002226.02101,"161,Y07.421 ",.01)
+170 ;;Y07.421
+171 ;;9002226.02101,"161,Y07.421 ",.02)
+172 ;;Y07.421
+173 ;;9002226.02101,"161,Y07.421 ",.03)
+174 ;;30
+175 ;;9002226.02101,"161,Y07.430 ",.01)
+176 ;;Y07.430
+177 ;;9002226.02101,"161,Y07.430 ",.02)
+178 ;;Y07.430
+179 ;;9002226.02101,"161,Y07.430 ",.03)
+180 ;;30
+181 ;;9002226.02101,"161,Y07.432 ",.01)
+182 ;;Y07.432
+183 ;;9002226.02101,"161,Y07.432 ",.02)
+184 ;;Y07.432
+185 ;;9002226.02101,"161,Y07.432 ",.03)
+186 ;;30
+187 ;;9002226.02101,"161,Y07.433 ",.01)
+188 ;;Y07.433
+189 ;;9002226.02101,"161,Y07.433 ",.02)
+190 ;;Y07.433
+191 ;;9002226.02101,"161,Y07.433 ",.03)
+192 ;;30
+193 ;;9002226.02101,"161,Y07.434 ",.01)
+194 ;;Y07.434
+195 ;;9002226.02101,"161,Y07.434 ",.02)
+196 ;;Y07.434
+197 ;;9002226.02101,"161,Y07.434 ",.03)
+198 ;;30
+199 ;;9002226.02101,"161,Y07.435 ",.01)
+200 ;;Y07.435
+201 ;;9002226.02101,"161,Y07.435 ",.02)
+202 ;;Y07.435
+203 ;;9002226.02101,"161,Y07.435 ",.03)
+204 ;;30
+205 ;;9002226.02101,"161,Y07.436 ",.01)
+206 ;;Y07.436
+207 ;;9002226.02101,"161,Y07.436 ",.02)
+208 ;;Y07.436
+209 ;;9002226.02101,"161,Y07.436 ",.03)
+210 ;;30
+211 ;;9002226.02101,"161,Y07.490 ",.01)
+212 ;;Y07.490
+213 ;;9002226.02101,"161,Y07.490 ",.02)
+214 ;;Y07.490
+215 ;;9002226.02101,"161,Y07.490 ",.03)
+216 ;;30
+217 ;;9002226.02101,"161,Y07.491 ",.01)
+218 ;;Y07.491
+219 ;;9002226.02101,"161,Y07.491 ",.02)
+220 ;;Y07.491
+221 ;;9002226.02101,"161,Y07.491 ",.03)
+222 ;;30
+223 ;;9002226.02101,"161,Y07.499 ",.01)
+224 ;;Y07.499
+225 ;;9002226.02101,"161,Y07.499 ",.02)
+226 ;;Y07.499
+227 ;;9002226.02101,"161,Y07.499 ",.03)
+228 ;;30
+229 ;;9002226.02101,"161,Y07.50 ",.01)
+230 ;;Y07.50
+231 ;;9002226.02101,"161,Y07.50 ",.02)
+232 ;;Y07.50
+233 ;;9002226.02101,"161,Y07.50 ",.03)
+234 ;;30
+235 ;;9002226.02101,"161,Y07.510 ",.01)
+236 ;;Y07.510
+237 ;;9002226.02101,"161,Y07.510 ",.02)
+238 ;;Y07.510
+239 ;;9002226.02101,"161,Y07.510 ",.03)
+240 ;;30
+241 ;;9002226.02101,"161,Y07.511 ",.01)
+242 ;;Y07.511
+243 ;;9002226.02101,"161,Y07.511 ",.02)
+244 ;;Y07.511
+245 ;;9002226.02101,"161,Y07.511 ",.03)
+246 ;;30
+247 ;;9002226.02101,"161,Y07.512 ",.01)
+248 ;;Y07.512
+249 ;;9002226.02101,"161,Y07.512 ",.02)
+250 ;;Y07.512
+251 ;;9002226.02101,"161,Y07.512 ",.03)
+252 ;;30
+253 ;;9002226.02101,"161,Y07.513 ",.01)
+254 ;;Y07.513
+255 ;;9002226.02101,"161,Y07.513 ",.02)
+256 ;;Y07.513
+257 ;;9002226.02101,"161,Y07.513 ",.03)
+258 ;;30
+259 ;;9002226.02101,"161,Y07.519 ",.01)
+260 ;;Y07.519
+261 ;;9002226.02101,"161,Y07.519 ",.02)
+262 ;;Y07.519
+263 ;;9002226.02101,"161,Y07.519 ",.03)
+264 ;;30
+265 ;;9002226.02101,"161,Y07.521 ",.01)
+266 ;;Y07.521
+267 ;;9002226.02101,"161,Y07.521 ",.02)
+268 ;;Y07.521
+269 ;;9002226.02101,"161,Y07.521 ",.03)
+270 ;;30
+271 ;;9002226.02101,"161,Y07.528 ",.01)
+272 ;;Y07.528
+273 ;;9002226.02101,"161,Y07.528 ",.02)
+274 ;;Y07.528
+275 ;;9002226.02101,"161,Y07.528 ",.03)
+276 ;;30
+277 ;;9002226.02101,"161,Y07.529 ",.01)
+278 ;;Y07.529
+279 ;;9002226.02101,"161,Y07.529 ",.02)
+280 ;;Y07.529
+281 ;;9002226.02101,"161,Y07.529 ",.03)
+282 ;;30
+283 ;;9002226.02101,"161,Y07.53 ",.01)
+284 ;;Y07.53
+285 ;;9002226.02101,"161,Y07.53 ",.02)
+286 ;;Y07.53
+287 ;;9002226.02101,"161,Y07.53 ",.03)
+288 ;;30
+289 ;;9002226.02101,"161,Y07.59 ",.01)
+290 ;;Y07.59
+291 ;;9002226.02101,"161,Y07.59 ",.02)
+292 ;;Y07.59
+293 ;;9002226.02101,"161,Y07.59 ",.03)
+294 ;;30
+295 ;;9002226.02101,"161,Y07.9 ",.01)
+296 ;;Y07.9
+297 ;;9002226.02101,"161,Y07.9 ",.02)
+298 ;;Y07.9
+299 ;;9002226.02101,"161,Y07.9 ",.03)
+300 ;;30
+301 ;;9002226.04101,"161,1",.01)
+302 ;;APCL
+303 ;
OTHER ; OTHER ROUTINES
+1 QUIT
