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

ATXF6O8.m

Go to the documentation of this file.
  1. ATXF6O8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 02, 2017;
  1. ;;5.1;TAXONOMY;**19**;FEB 04, 1997;Build 32
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1075,659.73 ",.02)
  1. ;;659.73
  1. ;;9002226.02101,"1075,659.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,659.83 ",.01)
  1. ;;659.83
  1. ;;9002226.02101,"1075,659.83 ",.02)
  1. ;;659.83
  1. ;;9002226.02101,"1075,659.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,659.93 ",.01)
  1. ;;659.93
  1. ;;9002226.02101,"1075,659.93 ",.02)
  1. ;;659.93
  1. ;;9002226.02101,"1075,659.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.03 ",.01)
  1. ;;660.03
  1. ;;9002226.02101,"1075,660.03 ",.02)
  1. ;;660.03
  1. ;;9002226.02101,"1075,660.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.13 ",.01)
  1. ;;660.13
  1. ;;9002226.02101,"1075,660.13 ",.02)
  1. ;;660.13
  1. ;;9002226.02101,"1075,660.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.23 ",.01)
  1. ;;660.23
  1. ;;9002226.02101,"1075,660.23 ",.02)
  1. ;;660.23
  1. ;;9002226.02101,"1075,660.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.33 ",.01)
  1. ;;660.33
  1. ;;9002226.02101,"1075,660.33 ",.02)
  1. ;;660.33
  1. ;;9002226.02101,"1075,660.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.43 ",.01)
  1. ;;660.43
  1. ;;9002226.02101,"1075,660.43 ",.02)
  1. ;;660.43
  1. ;;9002226.02101,"1075,660.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.53 ",.01)
  1. ;;660.53
  1. ;;9002226.02101,"1075,660.53 ",.02)
  1. ;;660.53
  1. ;;9002226.02101,"1075,660.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.63 ",.01)
  1. ;;660.63
  1. ;;9002226.02101,"1075,660.63 ",.02)
  1. ;;660.63
  1. ;;9002226.02101,"1075,660.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.73 ",.01)
  1. ;;660.73
  1. ;;9002226.02101,"1075,660.73 ",.02)
  1. ;;660.73
  1. ;;9002226.02101,"1075,660.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.83 ",.01)
  1. ;;660.83
  1. ;;9002226.02101,"1075,660.83 ",.02)
  1. ;;660.83
  1. ;;9002226.02101,"1075,660.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,660.93 ",.01)
  1. ;;660.93
  1. ;;9002226.02101,"1075,660.93 ",.02)
  1. ;;660.93
  1. ;;9002226.02101,"1075,660.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,661.03 ",.01)
  1. ;;661.03
  1. ;;9002226.02101,"1075,661.03 ",.02)
  1. ;;661.03
  1. ;;9002226.02101,"1075,661.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,661.13 ",.01)
  1. ;;661.13
  1. ;;9002226.02101,"1075,661.13 ",.02)
  1. ;;661.13
  1. ;;9002226.02101,"1075,661.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,661.23 ",.01)
  1. ;;661.23
  1. ;;9002226.02101,"1075,661.23 ",.02)
  1. ;;661.23
  1. ;;9002226.02101,"1075,661.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,661.33 ",.01)
  1. ;;661.33
  1. ;;9002226.02101,"1075,661.33 ",.02)
  1. ;;661.33
  1. ;;9002226.02101,"1075,661.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,661.43 ",.01)
  1. ;;661.43
  1. ;;9002226.02101,"1075,661.43 ",.02)
  1. ;;661.43
  1. ;;9002226.02101,"1075,661.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,661.93 ",.01)
  1. ;;661.93
  1. ;;9002226.02101,"1075,661.93 ",.02)
  1. ;;661.93
  1. ;;9002226.02101,"1075,661.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,662.03 ",.01)
  1. ;;662.03
  1. ;;9002226.02101,"1075,662.03 ",.02)
  1. ;;662.03
  1. ;;9002226.02101,"1075,662.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,662.13 ",.01)
  1. ;;662.13
  1. ;;9002226.02101,"1075,662.13 ",.02)
  1. ;;662.13
  1. ;;9002226.02101,"1075,662.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,662.23 ",.01)
  1. ;;662.23
  1. ;;9002226.02101,"1075,662.23 ",.02)
  1. ;;662.23
  1. ;;9002226.02101,"1075,662.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,662.33 ",.01)
  1. ;;662.33
  1. ;;9002226.02101,"1075,662.33 ",.02)
  1. ;;662.33
  1. ;;9002226.02101,"1075,662.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,663.03 ",.01)
  1. ;;663.03
  1. ;;9002226.02101,"1075,663.03 ",.02)
  1. ;;663.03
  1. ;;9002226.02101,"1075,663.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,663.13 ",.01)
  1. ;;663.13
  1. ;;9002226.02101,"1075,663.13 ",.02)
  1. ;;663.13
  1. ;;9002226.02101,"1075,663.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,663.23 ",.01)
  1. ;;663.23
  1. ;;9002226.02101,"1075,663.23 ",.02)
  1. ;;663.23
  1. ;;9002226.02101,"1075,663.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,663.33 ",.01)
  1. ;;663.33
  1. ;;9002226.02101,"1075,663.33 ",.02)
  1. ;;663.33
  1. ;;9002226.02101,"1075,663.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,663.43 ",.01)
  1. ;;663.43
  1. ;;9002226.02101,"1075,663.43 ",.02)
  1. ;;663.43
  1. ;;9002226.02101,"1075,663.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,663.53 ",.01)
  1. ;;663.53
  1. ;;9002226.02101,"1075,663.53 ",.02)
  1. ;;663.53
  1. ;;9002226.02101,"1075,663.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,663.63 ",.01)
  1. ;;663.63
  1. ;;9002226.02101,"1075,663.63 ",.02)
  1. ;;663.63
  1. ;;9002226.02101,"1075,663.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,663.83 ",.01)
  1. ;;663.83
  1. ;;9002226.02101,"1075,663.83 ",.02)
  1. ;;663.83
  1. ;;9002226.02101,"1075,663.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,663.93 ",.01)
  1. ;;663.93
  1. ;;9002226.02101,"1075,663.93 ",.02)
  1. ;;663.93
  1. ;;9002226.02101,"1075,663.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,665.03 ",.01)
  1. ;;665.03
  1. ;;9002226.02101,"1075,665.03 ",.02)
  1. ;;665.03
  1. ;;9002226.02101,"1075,665.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,665.83 ",.01)
  1. ;;665.83
  1. ;;9002226.02101,"1075,665.83 ",.02)
  1. ;;665.83
  1. ;;9002226.02101,"1075,665.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,665.93 ",.01)
  1. ;;665.93
  1. ;;9002226.02101,"1075,665.93 ",.02)
  1. ;;665.93
  1. ;;9002226.02101,"1075,665.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,668.03 ",.01)
  1. ;;668.03
  1. ;;9002226.02101,"1075,668.03 ",.02)
  1. ;;668.03
  1. ;;9002226.02101,"1075,668.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,668.13 ",.01)
  1. ;;668.13
  1. ;;9002226.02101,"1075,668.13 ",.02)
  1. ;;668.13
  1. ;;9002226.02101,"1075,668.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,668.23 ",.01)
  1. ;;668.23
  1. ;;9002226.02101,"1075,668.23 ",.02)
  1. ;;668.23
  1. ;;9002226.02101,"1075,668.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,668.83 ",.01)
  1. ;;668.83
  1. ;;9002226.02101,"1075,668.83 ",.02)
  1. ;;668.83
  1. ;;9002226.02101,"1075,668.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,668.93 ",.01)
  1. ;;668.93
  1. ;;9002226.02101,"1075,668.93 ",.02)
  1. ;;668.93
  1. ;;9002226.02101,"1075,668.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,669.03 ",.01)
  1. ;;669.03
  1. ;;9002226.02101,"1075,669.03 ",.02)
  1. ;;669.03
  1. ;;9002226.02101,"1075,669.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,669.13 ",.01)
  1. ;;669.13
  1. ;;9002226.02101,"1075,669.13 ",.02)
  1. ;;669.13
  1. ;;9002226.02101,"1075,669.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,669.23 ",.01)
  1. ;;669.23
  1. ;;9002226.02101,"1075,669.23 ",.02)
  1. ;;669.23
  1. ;;9002226.02101,"1075,669.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,669.43 ",.01)
  1. ;;669.43
  1. ;;9002226.02101,"1075,669.43 ",.02)
  1. ;;669.43
  1. ;;9002226.02101,"1075,669.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,669.83 ",.01)
  1. ;;669.83
  1. ;;9002226.02101,"1075,669.83 ",.02)
  1. ;;669.83
  1. ;;9002226.02101,"1075,669.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,669.93 ",.01)
  1. ;;669.93
  1. ;;9002226.02101,"1075,669.93 ",.02)
  1. ;;669.93
  1. ;;9002226.02101,"1075,669.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.03 ",.01)
  1. ;;671.03
  1. ;;9002226.02101,"1075,671.03 ",.02)
  1. ;;671.03
  1. ;;9002226.02101,"1075,671.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.13 ",.01)
  1. ;;671.13
  1. ;;9002226.02101,"1075,671.13 ",.02)
  1. ;;671.13
  1. ;;9002226.02101,"1075,671.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.23 ",.01)
  1. ;;671.23
  1. ;;9002226.02101,"1075,671.23 ",.02)
  1. ;;671.23
  1. ;;9002226.02101,"1075,671.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.33 ",.01)
  1. ;;671.33
  1. ;;9002226.02101,"1075,671.33 ",.02)
  1. ;;671.33
  1. ;;9002226.02101,"1075,671.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.53 ",.01)
  1. ;;671.53
  1. ;;9002226.02101,"1075,671.53 ",.02)
  1. ;;671.53
  1. ;;9002226.02101,"1075,671.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.83 ",.01)
  1. ;;671.83
  1. ;;9002226.02101,"1075,671.83 ",.02)
  1. ;;671.83
  1. ;;9002226.02101,"1075,671.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,671.93 ",.01)
  1. ;;671.93
  1. ;;9002226.02101,"1075,671.93 ",.02)
  1. ;;671.93
  1. ;;9002226.02101,"1075,671.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.03 ",.01)
  1. ;;673.03
  1. ;;9002226.02101,"1075,673.03 ",.02)
  1. ;;673.03
  1. ;;9002226.02101,"1075,673.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.13 ",.01)
  1. ;;673.13
  1. ;;9002226.02101,"1075,673.13 ",.02)
  1. ;;673.13
  1. ;;9002226.02101,"1075,673.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.23 ",.01)
  1. ;;673.23
  1. ;;9002226.02101,"1075,673.23 ",.02)
  1. ;;673.23
  1. ;;9002226.02101,"1075,673.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.33 ",.01)
  1. ;;673.33
  1. ;;9002226.02101,"1075,673.33 ",.02)
  1. ;;673.33
  1. ;;9002226.02101,"1075,673.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,673.83 ",.01)
  1. ;;673.83
  1. ;;9002226.02101,"1075,673.83 ",.02)
  1. ;;673.83
  1. ;;9002226.02101,"1075,673.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,678.03 ",.01)
  1. ;;678.03
  1. ;;9002226.02101,"1075,678.03 ",.02)
  1. ;;678.03
  1. ;;9002226.02101,"1075,678.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,678.13 ",.01)
  1. ;;678.13
  1. ;;9002226.02101,"1075,678.13 ",.02)
  1. ;;678.13
  1. ;;9002226.02101,"1075,678.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,679.03 ",.01)
  1. ;;679.03
  1. ;;9002226.02101,"1075,679.03 ",.02)
  1. ;;679.03
  1. ;;9002226.02101,"1075,679.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,679.13 ",.01)
  1. ;;679.13
  1. ;;9002226.02101,"1075,679.13 ",.02)
  1. ;;679.13
  1. ;;9002226.02101,"1075,679.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"1075,O09.00 ",.01)
  1. ;;O09.00
  1. ;;9002226.02101,"1075,O09.00 ",.02)
  1. ;;O09.00
  1. ;;9002226.02101,"1075,O09.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.01 ",.01)
  1. ;;O09.01
  1. ;;9002226.02101,"1075,O09.01 ",.02)
  1. ;;O09.01
  1. ;;9002226.02101,"1075,O09.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.02 ",.01)
  1. ;;O09.02
  1. ;;9002226.02101,"1075,O09.02 ",.02)
  1. ;;O09.02
  1. ;;9002226.02101,"1075,O09.02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.03 ",.01)
  1. ;;O09.03
  1. ;;9002226.02101,"1075,O09.03 ",.02)
  1. ;;O09.03
  1. ;;9002226.02101,"1075,O09.03 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.10 ",.01)
  1. ;;O09.10
  1. ;;9002226.02101,"1075,O09.10 ",.02)
  1. ;;O09.10
  1. ;;9002226.02101,"1075,O09.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.11 ",.01)
  1. ;;O09.11
  1. ;;9002226.02101,"1075,O09.11 ",.02)
  1. ;;O09.11
  1. ;;9002226.02101,"1075,O09.11 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.12 ",.01)
  1. ;;O09.12
  1. ;;9002226.02101,"1075,O09.12 ",.02)
  1. ;;O09.12
  1. ;;9002226.02101,"1075,O09.12 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.13 ",.01)
  1. ;;O09.13
  1. ;;9002226.02101,"1075,O09.13 ",.02)
  1. ;;O09.13
  1. ;;9002226.02101,"1075,O09.13 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.211 ",.01)
  1. ;;O09.211
  1. ;;9002226.02101,"1075,O09.211 ",.02)
  1. ;;O09.211
  1. ;;9002226.02101,"1075,O09.211 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.212 ",.01)
  1. ;;O09.212
  1. ;;9002226.02101,"1075,O09.212 ",.02)
  1. ;;O09.212
  1. ;;9002226.02101,"1075,O09.212 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.213 ",.01)
  1. ;;O09.213
  1. ;;9002226.02101,"1075,O09.213 ",.02)
  1. ;;O09.213
  1. ;;9002226.02101,"1075,O09.213 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.219 ",.01)
  1. ;;O09.219
  1. ;;9002226.02101,"1075,O09.219 ",.02)
  1. ;;O09.219
  1. ;;9002226.02101,"1075,O09.219 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.291 ",.01)
  1. ;;O09.291
  1. ;;9002226.02101,"1075,O09.291 ",.02)
  1. ;;O09.291
  1. ;;9002226.02101,"1075,O09.291 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.292 ",.01)
  1. ;;O09.292
  1. ;;9002226.02101,"1075,O09.292 ",.02)
  1. ;;O09.292
  1. ;;9002226.02101,"1075,O09.292 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.293 ",.01)
  1. ;;O09.293
  1. ;;9002226.02101,"1075,O09.293 ",.02)
  1. ;;O09.293
  1. ;;9002226.02101,"1075,O09.293 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.299 ",.01)
  1. ;;O09.299
  1. ;;9002226.02101,"1075,O09.299 ",.02)
  1. ;;O09.299
  1. ;;9002226.02101,"1075,O09.299 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.30 ",.01)
  1. ;;O09.30
  1. ;;9002226.02101,"1075,O09.30 ",.02)
  1. ;;O09.30
  1. ;;9002226.02101,"1075,O09.30 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.31 ",.01)
  1. ;;O09.31
  1. ;;9002226.02101,"1075,O09.31 ",.02)
  1. ;;O09.31
  1. ;;9002226.02101,"1075,O09.31 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.32 ",.01)
  1. ;;O09.32
  1. ;;9002226.02101,"1075,O09.32 ",.02)
  1. ;;O09.32
  1. ;;9002226.02101,"1075,O09.32 ",.03)
  1. ;;30
  1. ;;9002226.02101,"1075,O09.33 ",.01)
  1. ;;O09.33