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

ATXFCR4.m

Go to the documentation of this file.
ATXFCR4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2018;
 ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
 ;
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,"1075,671.23 ",.01)
 ;;671.23 
 ;;9002226.02101,"1075,671.23 ",.02)
 ;;671.23 
 ;;9002226.02101,"1075,671.23 ",.03)
 ;;1
 ;;9002226.02101,"1075,671.33 ",.01)
 ;;671.33 
 ;;9002226.02101,"1075,671.33 ",.02)
 ;;671.33 
 ;;9002226.02101,"1075,671.33 ",.03)
 ;;1
 ;;9002226.02101,"1075,671.53 ",.01)
 ;;671.53 
 ;;9002226.02101,"1075,671.53 ",.02)
 ;;671.53 
 ;;9002226.02101,"1075,671.53 ",.03)
 ;;1
 ;;9002226.02101,"1075,671.83 ",.01)
 ;;671.83 
 ;;9002226.02101,"1075,671.83 ",.02)
 ;;671.83 
 ;;9002226.02101,"1075,671.83 ",.03)
 ;;1
 ;;9002226.02101,"1075,671.93 ",.01)
 ;;671.93 
 ;;9002226.02101,"1075,671.93 ",.02)
 ;;671.93 
 ;;9002226.02101,"1075,671.93 ",.03)
 ;;1
 ;;9002226.02101,"1075,673.03 ",.01)
 ;;673.03 
 ;;9002226.02101,"1075,673.03 ",.02)
 ;;673.03 
 ;;9002226.02101,"1075,673.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,673.13 ",.01)
 ;;673.13 
 ;;9002226.02101,"1075,673.13 ",.02)
 ;;673.13 
 ;;9002226.02101,"1075,673.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,673.23 ",.01)
 ;;673.23 
 ;;9002226.02101,"1075,673.23 ",.02)
 ;;673.23 
 ;;9002226.02101,"1075,673.23 ",.03)
 ;;1
 ;;9002226.02101,"1075,673.33 ",.01)
 ;;673.33 
 ;;9002226.02101,"1075,673.33 ",.02)
 ;;673.33 
 ;;9002226.02101,"1075,673.33 ",.03)
 ;;1
 ;;9002226.02101,"1075,673.83 ",.01)
 ;;673.83 
 ;;9002226.02101,"1075,673.83 ",.02)
 ;;673.83 
 ;;9002226.02101,"1075,673.83 ",.03)
 ;;1
 ;;9002226.02101,"1075,678.03 ",.01)
 ;;678.03 
 ;;9002226.02101,"1075,678.03 ",.02)
 ;;678.03 
 ;;9002226.02101,"1075,678.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,678.13 ",.01)
 ;;678.13 
 ;;9002226.02101,"1075,678.13 ",.02)
 ;;678.13 
 ;;9002226.02101,"1075,678.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,679.03 ",.01)
 ;;679.03 
 ;;9002226.02101,"1075,679.03 ",.02)
 ;;679.03 
 ;;9002226.02101,"1075,679.03 ",.03)
 ;;1
 ;;9002226.02101,"1075,679.13 ",.01)
 ;;679.13 
 ;;9002226.02101,"1075,679.13 ",.02)
 ;;679.13 
 ;;9002226.02101,"1075,679.13 ",.03)
 ;;1
 ;;9002226.02101,"1075,O00.1 ",.01)
 ;;O00.1 
 ;;9002226.02101,"1075,O00.1 ",.02)
 ;;O00.91 
 ;;9002226.02101,"1075,O00.1 ",.03)
 ;;30
 ;;9002226.02101,"1075,O09.00 ",.01)
 ;;O09.00 
 ;;9002226.02101,"1075,O09.00 ",.02)
 ;;O10.019 
 ;;9002226.02101,"1075,O09.00 ",.03)
 ;;30
 ;;9002226.02101,"1075,O10.111 ",.01)
 ;;O10.111 
 ;;9002226.02101,"1075,O10.111 ",.02)
 ;;O10.119 
 ;;9002226.02101,"1075,O10.111 ",.03)
 ;;30
 ;;9002226.02101,"1075,O10.211 ",.01)
 ;;O10.211 
 ;;9002226.02101,"1075,O10.211 ",.02)
 ;;O10.219 
 ;;9002226.02101,"1075,O10.211 ",.03)
 ;;30
 ;;9002226.02101,"1075,O10.311 ",.01)
 ;;O10.311 
 ;;9002226.02101,"1075,O10.311 ",.02)
 ;;O10.319 
 ;;9002226.02101,"1075,O10.311 ",.03)
 ;;30
 ;;9002226.02101,"1075,O10.411 ",.01)
 ;;O10.411 
 ;;9002226.02101,"1075,O10.411 ",.02)
 ;;O10.419 
 ;;9002226.02101,"1075,O10.411 ",.03)
 ;;30
 ;;9002226.02101,"1075,O10.911 ",.01)
 ;;O10.911 
 ;;9002226.02101,"1075,O10.911 ",.02)
 ;;O10.919 
 ;;9002226.02101,"1075,O10.911 ",.03)
 ;;30
 ;;9002226.02101,"1075,O11.1 ",.01)
 ;;O11.1 
 ;;9002226.02101,"1075,O11.1 ",.02)
 ;;O15.03 
 ;;9002226.02101,"1075,O11.1 ",.03)
 ;;30
 ;;9002226.02101,"1075,O16.1 ",.01)
 ;;O16.1 
 ;;9002226.02101,"1075,O16.1 ",.02)
 ;;O24.019 
 ;;9002226.02101,"1075,O16.1 ",.03)
 ;;30
 ;;9002226.02101,"1075,O24.111 ",.01)
 ;;O24.111 
 ;;9002226.02101,"1075,O24.111 ",.02)
 ;;O24.119 
 ;;9002226.02101,"1075,O24.111 ",.03)
 ;;30
 ;;9002226.02101,"1075,O24.311 ",.01)
 ;;O24.311 
 ;;9002226.02101,"1075,O24.311 ",.02)
 ;;O24.319 
 ;;9002226.02101,"1075,O24.311 ",.03)
 ;;30
 ;;9002226.02101,"1075,O24.410 ",.01)
 ;;O24.410 
 ;;9002226.02101,"1075,O24.410 ",.02)
 ;;O24.419 
 ;;9002226.02101,"1075,O24.410 ",.03)
 ;;30
 ;;9002226.02101,"1075,O24.811 ",.01)
 ;;O24.811 
 ;;9002226.02101,"1075,O24.811 ",.02)
 ;;O24.819 
 ;;9002226.02101,"1075,O24.811 ",.03)
 ;;30
 ;;9002226.02101,"1075,O24.911 ",.01)
 ;;O24.911 
 ;;9002226.02101,"1075,O24.911 ",.02)
 ;;O24.919 
 ;;9002226.02101,"1075,O24.911 ",.03)
 ;;30
 ;;9002226.02101,"1075,O25.10 ",.01)
 ;;O25.10 
 ;;9002226.02101,"1075,O25.10 ",.02)
 ;;O25.13 
 ;;9002226.02101,"1075,O25.10 ",.03)
 ;;30
 ;;9002226.02101,"1075,O26.00 ",.01)
 ;;O26.00 
 ;;9002226.02101,"1075,O26.00 ",.02)
 ;;O26.619 
 ;;9002226.02101,"1075,O26.00 ",.03)
 ;;30
 ;;9002226.02101,"1075,O26.711 ",.01)
 ;;O26.711 
 ;;9002226.02101,"1075,O26.711 ",.02)
 ;;O26.719 
 ;;9002226.02101,"1075,O26.711 ",.03)
 ;;30
 ;;9002226.02101,"1075,O26.811 ",.01)
 ;;O26.811 
 ;;9002226.02101,"1075,O26.811 ",.02)
 ;;O36.73X9 
 ;;9002226.02101,"1075,O26.811 ",.03)
 ;;30
 ;;9002226.02101,"1075,O36.8120 ",.01)
 ;;O36.8120 
 ;;9002226.02101,"1075,O36.8120 ",.02)
 ;;O60.03 
 ;;9002226.02101,"1075,O36.8120 ",.03)
 ;;30
 ;;9002226.02101,"1075,O71.00 ",.01)
 ;;O71.00 
 ;;9002226.02101,"1075,O71.00 ",.02)
 ;;O71.03 
 ;;9002226.02101,"1075,O71.00 ",.03)
 ;;30
 ;;9002226.02101,"1075,O88.011 ",.01)
 ;;O88.011 
 ;;9002226.02101,"1075,O88.011 ",.02)
 ;;O88.019 
 ;;9002226.02101,"1075,O88.011 ",.03)
 ;;30
 ;;9002226.02101,"1075,O88.111 ",.01)
 ;;O88.111 
 ;;9002226.02101,"1075,O88.111 ",.02)
 ;;O88.119 
 ;;9002226.02101,"1075,O88.111 ",.03)
 ;;30
 ;;9002226.02101,"1075,O88.211 ",.01)
 ;;O88.211 
 ;;9002226.02101,"1075,O88.211 ",.02)
 ;;O88.219 
 ;;9002226.02101,"1075,O88.211 ",.03)
 ;;30
 ;;9002226.02101,"1075,O88.311 ",.01)
 ;;O88.311 
 ;;9002226.02101,"1075,O88.311 ",.02)
 ;;O88.319 
 ;;9002226.02101,"1075,O88.311 ",.03)
 ;;30
 ;;9002226.02101,"1075,O88.811 ",.01)
 ;;O88.811 
 ;;9002226.02101,"1075,O88.811 ",.02)
 ;;O88.819 
 ;;9002226.02101,"1075,O88.811 ",.03)
 ;;30
 ;;9002226.02101,"1075,O90.3 ",.01)
 ;;O90.3 
 ;;9002226.02101,"1075,O90.3 ",.02)
 ;;O90.3 
 ;;9002226.02101,"1075,O90.3 ",.03)
 ;;30
 ;;9002226.02101,"1075,O91.011 ",.01)
 ;;O91.011 
 ;;9002226.02101,"1075,O91.011 ",.02)
 ;;O91.019 
 ;;9002226.02101,"1075,O91.011 ",.03)
 ;;30
 ;;9002226.02101,"1075,O91.111 ",.01)
 ;;O91.111 
 ;;9002226.02101,"1075,O91.111 ",.02)
 ;;O91.119 
 ;;9002226.02101,"1075,O91.111 ",.03)
 ;;30
 ;;9002226.02101,"1075,O91.211 ",.01)
 ;;O91.211 
 ;;9002226.02101,"1075,O91.211 ",.02)
 ;;O91.219 
 ;;9002226.02101,"1075,O91.211 ",.03)
 ;;30
 ;;9002226.02101,"1075,O92.011 ",.01)
 ;;O92.011 
 ;;9002226.02101,"1075,O92.011 ",.02)
 ;;O92.019 
 ;;9002226.02101,"1075,O92.011 ",.03)
 ;;30
 ;;9002226.02101,"1075,O92.111 ",.01)
 ;;O92.111 
 ;;9002226.02101,"1075,O92.111 ",.02)
 ;;O92.119 
 ;;9002226.02101,"1075,O92.111 ",.03)
 ;;30
 ;;9002226.02101,"1075,O92.20 ",.01)
 ;;O92.20 
 ;;9002226.02101,"1075,O92.20 ",.02)
 ;;O92.29 
 ;;9002226.02101,"1075,O92.20 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.011 ",.01)
 ;;O98.011 
 ;;9002226.02101,"1075,O98.011 ",.02)
 ;;O98.019 
 ;;9002226.02101,"1075,O98.011 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.111 ",.01)
 ;;O98.111 
 ;;9002226.02101,"1075,O98.111 ",.02)
 ;;O98.119 
 ;;9002226.02101,"1075,O98.111 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.211 ",.01)
 ;;O98.211 
 ;;9002226.02101,"1075,O98.211 ",.02)
 ;;O98.219 
 ;;9002226.02101,"1075,O98.211 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.311 ",.01)
 ;;O98.311 
 ;;9002226.02101,"1075,O98.311 ",.02)
 ;;O98.319 
 ;;9002226.02101,"1075,O98.311 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.411 ",.01)
 ;;O98.411 
 ;;9002226.02101,"1075,O98.411 ",.02)
 ;;O98.419 
 ;;9002226.02101,"1075,O98.411 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.511 ",.01)
 ;;O98.511 
 ;;9002226.02101,"1075,O98.511 ",.02)
 ;;O98.519 
 ;;9002226.02101,"1075,O98.511 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.611 ",.01)
 ;;O98.611 
 ;;9002226.02101,"1075,O98.611 ",.02)
 ;;O98.619 
 ;;9002226.02101,"1075,O98.611 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.711 ",.01)
 ;;O98.711 
 ;;9002226.02101,"1075,O98.711 ",.02)
 ;;O98.719 
 ;;9002226.02101,"1075,O98.711 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.811 ",.01)
 ;;O98.811 
 ;;9002226.02101,"1075,O98.811 ",.02)
 ;;O98.819 
 ;;9002226.02101,"1075,O98.811 ",.03)
 ;;30
 ;;9002226.02101,"1075,O98.911 ",.01)
 ;;O98.911 
 ;;9002226.02101,"1075,O98.911 ",.02)
 ;;O98.919 
 ;;9002226.02101,"1075,O98.911 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.011 ",.01)
 ;;O99.011 
 ;;9002226.02101,"1075,O99.011 ",.02)
 ;;O99.019 
 ;;9002226.02101,"1075,O99.011 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.111 ",.01)
 ;;O99.111 
 ;;9002226.02101,"1075,O99.111 ",.02)
 ;;O99.119 
 ;;9002226.02101,"1075,O99.111 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.210 ",.01)
 ;;O99.210 
 ;;9002226.02101,"1075,O99.210 ",.02)
 ;;O99.213 
 ;;9002226.02101,"1075,O99.210 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.280 ",.01)
 ;;O99.280 
 ;;9002226.02101,"1075,O99.280 ",.02)
 ;;O99.283 
 ;;9002226.02101,"1075,O99.280 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.310 ",.01)
 ;;O99.310 
 ;;9002226.02101,"1075,O99.310 ",.02)
 ;;O99.313 
 ;;9002226.02101,"1075,O99.310 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.320 ",.01)
 ;;O99.320 
 ;;9002226.02101,"1075,O99.320 ",.02)
 ;;O99.323 
 ;;9002226.02101,"1075,O99.320 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.330 ",.01)
 ;;O99.330 
 ;;9002226.02101,"1075,O99.330 ",.02)
 ;;O99.333 
 ;;9002226.02101,"1075,O99.330 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.340 ",.01)
 ;;O99.340 
 ;;9002226.02101,"1075,O99.340 ",.02)
 ;;O99.343 
 ;;9002226.02101,"1075,O99.340 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.350 ",.01)
 ;;O99.350 
 ;;9002226.02101,"1075,O99.350 ",.02)
 ;;O99.353 
 ;;9002226.02101,"1075,O99.350 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.411 ",.01)
 ;;O99.411 
 ;;9002226.02101,"1075,O99.411 ",.02)
 ;;O99.419 
 ;;9002226.02101,"1075,O99.411 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.511 ",.01)
 ;;O99.511 
 ;;9002226.02101,"1075,O99.511 ",.02)
 ;;O99.519 
 ;;9002226.02101,"1075,O99.511 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.611 ",.01)
 ;;O99.611 
 ;;9002226.02101,"1075,O99.611 ",.02)
 ;;O99.619 
 ;;9002226.02101,"1075,O99.611 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.711 ",.01)
 ;;O99.711 
 ;;9002226.02101,"1075,O99.711 ",.02)
 ;;O99.719 
 ;;9002226.02101,"1075,O99.711 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.810 ",.01)
 ;;O99.810 
 ;;9002226.02101,"1075,O99.810 ",.02)
 ;;O99.810 
 ;;9002226.02101,"1075,O99.810 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.820 ",.01)
 ;;O99.820 
 ;;9002226.02101,"1075,O99.820 ",.02)
 ;;O99.820 
 ;;9002226.02101,"1075,O99.820 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.830 ",.01)
 ;;O99.830 
 ;;9002226.02101,"1075,O99.830 ",.02)
 ;;O99.830 
 ;;9002226.02101,"1075,O99.830 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.840 ",.01)
 ;;O99.840 
 ;;9002226.02101,"1075,O99.840 ",.02)
 ;;O99.843 
 ;;9002226.02101,"1075,O99.840 ",.03)
 ;;30
 ;;9002226.02101,"1075,O99.89 ",.01)
 ;;O99.89 
 ;;9002226.02101,"1075,O99.89 ",.02)
 ;;O9A.119 
 ;;9002226.02101,"1075,O99.89 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.211 ",.01)
 ;;O9A.211 
 ;;9002226.02101,"1075,O9A.211 ",.02)
 ;;O9A.219 
 ;;9002226.02101,"1075,O9A.211 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.311 ",.01)
 ;;O9A.311 
 ;;9002226.02101,"1075,O9A.311 ",.02)
 ;;O9A.319 
 ;;9002226.02101,"1075,O9A.311 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.411 ",.01)
 ;;O9A.411 
 ;;9002226.02101,"1075,O9A.411 ",.02)
 ;;O9A.419 
 ;;9002226.02101,"1075,O9A.411 ",.03)
 ;;30
 ;;9002226.02101,"1075,O9A.511 ",.01)
 ;;O9A.511 
 ;;9002226.02101,"1075,O9A.511 ",.02)
 ;;O9A.519 
 ;;9002226.02101,"1075,O9A.511 ",.03)
 ;;30
 ;;9002226.02101,"1075,V22.0 ",.01)
 ;;V22.0 
 ;;9002226.02101,"1075,V22.0 ",.02)
 ;;V23.9 
 ;;9002226.02101,"1075,V22.0 ",.03)
 ;;1
 ;;9002226.02101,"1075,V24.0 ",.01)
 ;;V24.0