Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ATXD4J3

ATXD4J3.m

Go to the documentation of this file.
ATXD4J3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 21, 2013;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
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)
 ;;9002226.02101,"754,I65.09 ",.03)
 ;;30
 ;;9002226.02101,"754,I65.1 ",.01)
 ;;I65.1 
 ;;9002226.02101,"754,I65.1 ",.02)
 ;;I65.1 
 ;;9002226.02101,"754,I65.1 ",.03)
 ;;30
 ;;9002226.02101,"754,I65.21 ",.01)
 ;;I65.21 
 ;;9002226.02101,"754,I65.21 ",.02)
 ;;I65.21 
 ;;9002226.02101,"754,I65.21 ",.03)
 ;;30
 ;;9002226.02101,"754,I65.22 ",.01)
 ;;I65.22 
 ;;9002226.02101,"754,I65.22 ",.02)
 ;;I65.22 
 ;;9002226.02101,"754,I65.22 ",.03)
 ;;30
 ;;9002226.02101,"754,I65.23 ",.01)
 ;;I65.23 
 ;;9002226.02101,"754,I65.23 ",.02)
 ;;I65.23 
 ;;9002226.02101,"754,I65.23 ",.03)
 ;;30
 ;;9002226.02101,"754,I65.29 ",.01)
 ;;I65.29 
 ;;9002226.02101,"754,I65.29 ",.02)
 ;;I65.29 
 ;;9002226.02101,"754,I65.29 ",.03)
 ;;30
 ;;9002226.02101,"754,I65.8 ",.01)
 ;;I65.8 
 ;;9002226.02101,"754,I65.8 ",.02)
 ;;I65.8 
 ;;9002226.02101,"754,I65.8 ",.03)
 ;;30
 ;;9002226.02101,"754,I65.9 ",.01)
 ;;I65.9 
 ;;9002226.02101,"754,I65.9 ",.02)
 ;;I65.9 
 ;;9002226.02101,"754,I65.9 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.01 ",.01)
 ;;I66.01 
 ;;9002226.02101,"754,I66.01 ",.02)
 ;;I66.01 
 ;;9002226.02101,"754,I66.01 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.02 ",.01)
 ;;I66.02 
 ;;9002226.02101,"754,I66.02 ",.02)
 ;;I66.02 
 ;;9002226.02101,"754,I66.02 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.03 ",.01)
 ;;I66.03 
 ;;9002226.02101,"754,I66.03 ",.02)
 ;;I66.03 
 ;;9002226.02101,"754,I66.03 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.09 ",.01)
 ;;I66.09 
 ;;9002226.02101,"754,I66.09 ",.02)
 ;;I66.09 
 ;;9002226.02101,"754,I66.09 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.11 ",.01)
 ;;I66.11 
 ;;9002226.02101,"754,I66.11 ",.02)
 ;;I66.11 
 ;;9002226.02101,"754,I66.11 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.12 ",.01)
 ;;I66.12 
 ;;9002226.02101,"754,I66.12 ",.02)
 ;;I66.12 
 ;;9002226.02101,"754,I66.12 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.13 ",.01)
 ;;I66.13 
 ;;9002226.02101,"754,I66.13 ",.02)
 ;;I66.13 
 ;;9002226.02101,"754,I66.13 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.19 ",.01)
 ;;I66.19 
 ;;9002226.02101,"754,I66.19 ",.02)
 ;;I66.19 
 ;;9002226.02101,"754,I66.19 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.21 ",.01)
 ;;I66.21 
 ;;9002226.02101,"754,I66.21 ",.02)
 ;;I66.21 
 ;;9002226.02101,"754,I66.21 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.22 ",.01)
 ;;I66.22 
 ;;9002226.02101,"754,I66.22 ",.02)
 ;;I66.22 
 ;;9002226.02101,"754,I66.22 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.23 ",.01)
 ;;I66.23 
 ;;9002226.02101,"754,I66.23 ",.02)
 ;;I66.23 
 ;;9002226.02101,"754,I66.23 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.29 ",.01)
 ;;I66.29 
 ;;9002226.02101,"754,I66.29 ",.02)
 ;;I66.29 
 ;;9002226.02101,"754,I66.29 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.3 ",.01)
 ;;I66.3 
 ;;9002226.02101,"754,I66.3 ",.02)
 ;;I66.3 
 ;;9002226.02101,"754,I66.3 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.8 ",.01)
 ;;I66.8 
 ;;9002226.02101,"754,I66.8 ",.02)
 ;;I66.8 
 ;;9002226.02101,"754,I66.8 ",.03)
 ;;30
 ;;9002226.02101,"754,I66.9 ",.01)
 ;;I66.9 
 ;;9002226.02101,"754,I66.9 ",.02)
 ;;I66.9 
 ;;9002226.02101,"754,I66.9 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.1 ",.01)
 ;;I67.1 
 ;;9002226.02101,"754,I67.1 ",.02)
 ;;I67.1 
 ;;9002226.02101,"754,I67.1 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.2 ",.01)
 ;;I67.2 
 ;;9002226.02101,"754,I67.2 ",.02)
 ;;I67.2 
 ;;9002226.02101,"754,I67.2 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.4 ",.01)
 ;;I67.4 
 ;;9002226.02101,"754,I67.4 ",.02)
 ;;I67.4 
 ;;9002226.02101,"754,I67.4 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.5 ",.01)
 ;;I67.5 
 ;;9002226.02101,"754,I67.5 ",.02)
 ;;I67.5 
 ;;9002226.02101,"754,I67.5 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.6 ",.01)
 ;;I67.6 
 ;;9002226.02101,"754,I67.6 ",.02)
 ;;I67.6 
 ;;9002226.02101,"754,I67.6 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.7 ",.01)
 ;;I67.7 
 ;;9002226.02101,"754,I67.7 ",.02)
 ;;I67.7 
 ;;9002226.02101,"754,I67.7 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.81 ",.01)
 ;;I67.81 
 ;;9002226.02101,"754,I67.81 ",.02)
 ;;I67.81 
 ;;9002226.02101,"754,I67.81 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.82 ",.01)
 ;;I67.82 
 ;;9002226.02101,"754,I67.82 ",.02)
 ;;I67.82 
 ;;9002226.02101,"754,I67.82 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.841 ",.01)
 ;;I67.841 
 ;;9002226.02101,"754,I67.841 ",.02)
 ;;I67.841 
 ;;9002226.02101,"754,I67.841 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.848 ",.01)
 ;;I67.848 
 ;;9002226.02101,"754,I67.848 ",.02)
 ;;I67.848 
 ;;9002226.02101,"754,I67.848 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.89 ",.01)
 ;;I67.89 
 ;;9002226.02101,"754,I67.89 ",.02)
 ;;I67.89 
 ;;9002226.02101,"754,I67.89 ",.03)
 ;;30
 ;;9002226.02101,"754,I67.9 ",.01)
 ;;I67.9 
 ;;9002226.02101,"754,I67.9 ",.02)
 ;;I67.9 
 ;;9002226.02101,"754,I67.9 ",.03)
 ;;30
 ;;9002226.02101,"754,I68.0 ",.01)
 ;;I68.0 
 ;;9002226.02101,"754,I68.0 ",.02)
 ;;I68.0 
 ;;9002226.02101,"754,I68.0 ",.03)
 ;;30
 ;;9002226.02101,"754,I68.2 ",.01)
 ;;I68.2 
 ;;9002226.02101,"754,I68.2 ",.02)
 ;;I68.2 
 ;;9002226.02101,"754,I68.2 ",.03)
 ;;30
 ;;9002226.02101,"754,I68.8 ",.01)
 ;;I68.8 
 ;;9002226.02101,"754,I68.8 ",.02)
 ;;I68.8 
 ;;9002226.02101,"754,I68.8 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.0 ",.01)
 ;;I70.0 
 ;;9002226.02101,"754,I70.0 ",.02)
 ;;I70.0 
 ;;9002226.02101,"754,I70.0 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.1 ",.01)
 ;;I70.1 
 ;;9002226.02101,"754,I70.1 ",.02)
 ;;I70.1 
 ;;9002226.02101,"754,I70.1 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.201 ",.01)
 ;;I70.201 
 ;;9002226.02101,"754,I70.201 ",.02)
 ;;I70.201 
 ;;9002226.02101,"754,I70.201 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.202 ",.01)
 ;;I70.202 
 ;;9002226.02101,"754,I70.202 ",.02)
 ;;I70.202 
 ;;9002226.02101,"754,I70.202 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.203 ",.01)
 ;;I70.203 
 ;;9002226.02101,"754,I70.203 ",.02)
 ;;I70.203 
 ;;9002226.02101,"754,I70.203 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.208 ",.01)
 ;;I70.208 
 ;;9002226.02101,"754,I70.208 ",.02)
 ;;I70.208 
 ;;9002226.02101,"754,I70.208 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.209 ",.01)
 ;;I70.209 
 ;;9002226.02101,"754,I70.209 ",.02)
 ;;I70.209 
 ;;9002226.02101,"754,I70.209 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.211 ",.01)
 ;;I70.211 
 ;;9002226.02101,"754,I70.211 ",.02)
 ;;I70.211 
 ;;9002226.02101,"754,I70.211 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.212 ",.01)
 ;;I70.212 
 ;;9002226.02101,"754,I70.212 ",.02)
 ;;I70.212 
 ;;9002226.02101,"754,I70.212 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.213 ",.01)
 ;;I70.213 
 ;;9002226.02101,"754,I70.213 ",.02)
 ;;I70.213 
 ;;9002226.02101,"754,I70.213 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.218 ",.01)
 ;;I70.218 
 ;;9002226.02101,"754,I70.218 ",.02)
 ;;I70.218 
 ;;9002226.02101,"754,I70.218 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.219 ",.01)
 ;;I70.219 
 ;;9002226.02101,"754,I70.219 ",.02)
 ;;I70.219 
 ;;9002226.02101,"754,I70.219 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.221 ",.01)
 ;;I70.221 
 ;;9002226.02101,"754,I70.221 ",.02)
 ;;I70.221 
 ;;9002226.02101,"754,I70.221 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.222 ",.01)
 ;;I70.222 
 ;;9002226.02101,"754,I70.222 ",.02)
 ;;I70.222 
 ;;9002226.02101,"754,I70.222 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.223 ",.01)
 ;;I70.223 
 ;;9002226.02101,"754,I70.223 ",.02)
 ;;I70.223 
 ;;9002226.02101,"754,I70.223 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.228 ",.01)
 ;;I70.228 
 ;;9002226.02101,"754,I70.228 ",.02)
 ;;I70.228 
 ;;9002226.02101,"754,I70.228 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.229 ",.01)
 ;;I70.229 
 ;;9002226.02101,"754,I70.229 ",.02)
 ;;I70.229 
 ;;9002226.02101,"754,I70.229 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.261 ",.01)
 ;;I70.261 
 ;;9002226.02101,"754,I70.261 ",.02)
 ;;I70.261 
 ;;9002226.02101,"754,I70.261 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.262 ",.01)
 ;;I70.262 
 ;;9002226.02101,"754,I70.262 ",.02)
 ;;I70.262 
 ;;9002226.02101,"754,I70.262 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.263 ",.01)
 ;;I70.263 
 ;;9002226.02101,"754,I70.263 ",.02)
 ;;I70.263 
 ;;9002226.02101,"754,I70.263 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.268 ",.01)
 ;;I70.268 
 ;;9002226.02101,"754,I70.268 ",.02)
 ;;I70.268 
 ;;9002226.02101,"754,I70.268 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.269 ",.01)
 ;;I70.269 
 ;;9002226.02101,"754,I70.269 ",.02)
 ;;I70.269 
 ;;9002226.02101,"754,I70.269 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.291 ",.01)
 ;;I70.291 
 ;;9002226.02101,"754,I70.291 ",.02)
 ;;I70.291 
 ;;9002226.02101,"754,I70.291 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.292 ",.01)
 ;;I70.292 
 ;;9002226.02101,"754,I70.292 ",.02)
 ;;I70.292 
 ;;9002226.02101,"754,I70.292 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.293 ",.01)
 ;;I70.293 
 ;;9002226.02101,"754,I70.293 ",.02)
 ;;I70.293 
 ;;9002226.02101,"754,I70.293 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.298 ",.01)
 ;;I70.298 
 ;;9002226.02101,"754,I70.298 ",.02)
 ;;I70.298 
 ;;9002226.02101,"754,I70.298 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.299 ",.01)
 ;;I70.299 
 ;;9002226.02101,"754,I70.299 ",.02)
 ;;I70.299 
 ;;9002226.02101,"754,I70.299 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.301 ",.01)
 ;;I70.301 
 ;;9002226.02101,"754,I70.301 ",.02)
 ;;I70.301 
 ;;9002226.02101,"754,I70.301 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.302 ",.01)
 ;;I70.302 
 ;;9002226.02101,"754,I70.302 ",.02)
 ;;I70.302 
 ;;9002226.02101,"754,I70.302 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.303 ",.01)
 ;;I70.303 
 ;;9002226.02101,"754,I70.303 ",.02)
 ;;I70.303 
 ;;9002226.02101,"754,I70.303 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.308 ",.01)
 ;;I70.308 
 ;;9002226.02101,"754,I70.308 ",.02)
 ;;I70.308 
 ;;9002226.02101,"754,I70.308 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.309 ",.01)
 ;;I70.309 
 ;;9002226.02101,"754,I70.309 ",.02)
 ;;I70.309 
 ;;9002226.02101,"754,I70.309 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.311 ",.01)
 ;;I70.311 
 ;;9002226.02101,"754,I70.311 ",.02)
 ;;I70.311 
 ;;9002226.02101,"754,I70.311 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.312 ",.01)
 ;;I70.312 
 ;;9002226.02101,"754,I70.312 ",.02)
 ;;I70.312 
 ;;9002226.02101,"754,I70.312 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.313 ",.01)
 ;;I70.313 
 ;;9002226.02101,"754,I70.313 ",.02)
 ;;I70.313 
 ;;9002226.02101,"754,I70.313 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.318 ",.01)
 ;;I70.318 
 ;;9002226.02101,"754,I70.318 ",.02)
 ;;I70.318 
 ;;9002226.02101,"754,I70.318 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.319 ",.01)
 ;;I70.319 
 ;;9002226.02101,"754,I70.319 ",.02)
 ;;I70.319 
 ;;9002226.02101,"754,I70.319 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.321 ",.01)
 ;;I70.321 
 ;;9002226.02101,"754,I70.321 ",.02)
 ;;I70.321 
 ;;9002226.02101,"754,I70.321 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.322 ",.01)
 ;;I70.322 
 ;;9002226.02101,"754,I70.322 ",.02)
 ;;I70.322 
 ;;9002226.02101,"754,I70.322 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.323 ",.01)
 ;;I70.323 
 ;;9002226.02101,"754,I70.323 ",.02)
 ;;I70.323 
 ;;9002226.02101,"754,I70.323 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.328 ",.01)
 ;;I70.328 
 ;;9002226.02101,"754,I70.328 ",.02)
 ;;I70.328 
 ;;9002226.02101,"754,I70.328 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.329 ",.01)
 ;;I70.329 
 ;;9002226.02101,"754,I70.329 ",.02)
 ;;I70.329 
 ;;9002226.02101,"754,I70.329 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.391 ",.01)
 ;;I70.391 
 ;;9002226.02101,"754,I70.391 ",.02)
 ;;I70.391 
 ;;9002226.02101,"754,I70.391 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.392 ",.01)
 ;;I70.392 
 ;;9002226.02101,"754,I70.392 ",.02)
 ;;I70.392 
 ;;9002226.02101,"754,I70.392 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.393 ",.01)
 ;;I70.393 
 ;;9002226.02101,"754,I70.393 ",.02)
 ;;I70.393 
 ;;9002226.02101,"754,I70.393 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.398 ",.01)
 ;;I70.398 
 ;;9002226.02101,"754,I70.398 ",.02)
 ;;I70.398 
 ;;9002226.02101,"754,I70.398 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.399 ",.01)
 ;;I70.399 
 ;;9002226.02101,"754,I70.399 ",.02)
 ;;I70.399 
 ;;9002226.02101,"754,I70.399 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.401 ",.01)
 ;;I70.401 
 ;;9002226.02101,"754,I70.401 ",.02)
 ;;I70.401 
 ;;9002226.02101,"754,I70.401 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.402 ",.01)
 ;;I70.402 
 ;;9002226.02101,"754,I70.402 ",.02)
 ;;I70.402 
 ;;9002226.02101,"754,I70.402 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.403 ",.01)
 ;;I70.403 
 ;;9002226.02101,"754,I70.403 ",.02)
 ;;I70.403 
 ;;9002226.02101,"754,I70.403 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.408 ",.01)
 ;;I70.408 
 ;;9002226.02101,"754,I70.408 ",.02)
 ;;I70.408 
 ;;9002226.02101,"754,I70.408 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.409 ",.01)
 ;;I70.409 
 ;;9002226.02101,"754,I70.409 ",.02)
 ;;I70.409 
 ;;9002226.02101,"754,I70.409 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.411 ",.01)
 ;;I70.411 
 ;;9002226.02101,"754,I70.411 ",.02)
 ;;I70.411 
 ;;9002226.02101,"754,I70.411 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.412 ",.01)
 ;;I70.412 
 ;;9002226.02101,"754,I70.412 ",.02)
 ;;I70.412 
 ;;9002226.02101,"754,I70.412 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.413 ",.01)
 ;;I70.413 
 ;;9002226.02101,"754,I70.413 ",.02)
 ;;I70.413 
 ;;9002226.02101,"754,I70.413 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.418 ",.01)
 ;;I70.418 
 ;;9002226.02101,"754,I70.418 ",.02)
 ;;I70.418 
 ;;9002226.02101,"754,I70.418 ",.03)
 ;;30
 ;;9002226.02101,"754,I70.419 ",.01)
 ;;I70.419 
 ;;9002226.02101,"754,I70.419 ",.02)
 ;;I70.419