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

ATXD8Q5.m

Go to the documentation of this file.
  1. ATXD8Q5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 12, 2014;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  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,"911,659.81 ",.01)
  1. ;;659.81
  1. ;;9002226.02101,"911,659.81 ",.02)
  1. ;;659.81
  1. ;;9002226.02101,"911,659.81 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,659.91 ",.01)
  1. ;;659.91
  1. ;;9002226.02101,"911,659.91 ",.02)
  1. ;;659.91
  1. ;;9002226.02101,"911,659.91 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.01 ",.01)
  1. ;;660.01
  1. ;;9002226.02101,"911,660.01 ",.02)
  1. ;;660.01
  1. ;;9002226.02101,"911,660.01 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.11 ",.01)
  1. ;;660.11
  1. ;;9002226.02101,"911,660.11 ",.02)
  1. ;;660.11
  1. ;;9002226.02101,"911,660.11 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.21 ",.01)
  1. ;;660.21
  1. ;;9002226.02101,"911,660.21 ",.02)
  1. ;;660.21
  1. ;;9002226.02101,"911,660.21 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.31 ",.01)
  1. ;;660.31
  1. ;;9002226.02101,"911,660.31 ",.02)
  1. ;;660.31
  1. ;;9002226.02101,"911,660.31 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.41 ",.01)
  1. ;;660.41
  1. ;;9002226.02101,"911,660.41 ",.02)
  1. ;;660.41
  1. ;;9002226.02101,"911,660.41 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.51 ",.01)
  1. ;;660.51
  1. ;;9002226.02101,"911,660.51 ",.02)
  1. ;;660.51
  1. ;;9002226.02101,"911,660.51 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.61 ",.01)
  1. ;;660.61
  1. ;;9002226.02101,"911,660.61 ",.02)
  1. ;;660.61
  1. ;;9002226.02101,"911,660.61 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.71 ",.01)
  1. ;;660.71
  1. ;;9002226.02101,"911,660.71 ",.02)
  1. ;;660.71
  1. ;;9002226.02101,"911,660.71 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.81 ",.01)
  1. ;;660.81
  1. ;;9002226.02101,"911,660.81 ",.02)
  1. ;;660.81
  1. ;;9002226.02101,"911,660.81 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,660.91 ",.01)
  1. ;;660.91
  1. ;;9002226.02101,"911,660.91 ",.02)
  1. ;;660.91
  1. ;;9002226.02101,"911,660.91 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,661.01 ",.01)
  1. ;;661.01
  1. ;;9002226.02101,"911,661.01 ",.02)
  1. ;;661.01
  1. ;;9002226.02101,"911,661.01 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,661.11 ",.01)
  1. ;;661.11
  1. ;;9002226.02101,"911,661.11 ",.02)
  1. ;;661.11
  1. ;;9002226.02101,"911,661.11 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,661.21 ",.01)
  1. ;;661.21
  1. ;;9002226.02101,"911,661.21 ",.02)
  1. ;;661.21
  1. ;;9002226.02101,"911,661.21 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,661.31 ",.01)
  1. ;;661.31
  1. ;;9002226.02101,"911,661.31 ",.02)
  1. ;;661.31
  1. ;;9002226.02101,"911,661.31 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,661.41 ",.01)
  1. ;;661.41
  1. ;;9002226.02101,"911,661.41 ",.02)
  1. ;;661.41
  1. ;;9002226.02101,"911,661.41 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,661.91 ",.01)
  1. ;;661.91
  1. ;;9002226.02101,"911,661.91 ",.02)
  1. ;;661.91
  1. ;;9002226.02101,"911,661.91 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,662.01 ",.01)
  1. ;;662.01
  1. ;;9002226.02101,"911,662.01 ",.02)
  1. ;;662.01
  1. ;;9002226.02101,"911,662.01 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,662.11 ",.01)
  1. ;;662.11
  1. ;;9002226.02101,"911,662.11 ",.02)
  1. ;;662.11
  1. ;;9002226.02101,"911,662.11 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,662.21 ",.01)
  1. ;;662.21
  1. ;;9002226.02101,"911,662.21 ",.02)
  1. ;;662.21
  1. ;;9002226.02101,"911,662.21 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,662.31 ",.01)
  1. ;;662.31
  1. ;;9002226.02101,"911,662.31 ",.02)
  1. ;;662.31
  1. ;;9002226.02101,"911,662.31 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,663.01 ",.01)
  1. ;;663.01
  1. ;;9002226.02101,"911,663.01 ",.02)
  1. ;;663.01
  1. ;;9002226.02101,"911,663.01 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,663.11 ",.01)
  1. ;;663.11
  1. ;;9002226.02101,"911,663.11 ",.02)
  1. ;;663.11
  1. ;;9002226.02101,"911,663.11 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,663.21 ",.01)
  1. ;;663.21
  1. ;;9002226.02101,"911,663.21 ",.02)
  1. ;;663.21
  1. ;;9002226.02101,"911,663.21 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,663.31 ",.01)
  1. ;;663.31
  1. ;;9002226.02101,"911,663.31 ",.02)
  1. ;;663.31
  1. ;;9002226.02101,"911,663.31 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,663.41 ",.01)
  1. ;;663.41
  1. ;;9002226.02101,"911,663.41 ",.02)
  1. ;;663.41
  1. ;;9002226.02101,"911,663.41 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,663.51 ",.01)
  1. ;;663.51
  1. ;;9002226.02101,"911,663.51 ",.02)
  1. ;;663.51
  1. ;;9002226.02101,"911,663.51 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,663.61 ",.01)
  1. ;;663.61
  1. ;;9002226.02101,"911,663.61 ",.02)
  1. ;;663.61
  1. ;;9002226.02101,"911,663.61 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,663.81 ",.01)
  1. ;;663.81
  1. ;;9002226.02101,"911,663.81 ",.02)
  1. ;;663.81
  1. ;;9002226.02101,"911,663.81 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,663.91 ",.01)
  1. ;;663.91
  1. ;;9002226.02101,"911,663.91 ",.02)
  1. ;;663.91
  1. ;;9002226.02101,"911,663.91 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,664.00 ",.01)
  1. ;;664.00
  1. ;;9002226.02101,"911,664.00 ",.02)
  1. ;;664.94
  1. ;;9002226.02101,"911,664.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.01 ",.01)
  1. ;;665.01
  1. ;;9002226.02101,"911,665.01 ",.02)
  1. ;;665.01
  1. ;;9002226.02101,"911,665.01 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.11 ",.01)
  1. ;;665.11
  1. ;;9002226.02101,"911,665.11 ",.02)
  1. ;;665.11
  1. ;;9002226.02101,"911,665.11 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.22 ",.01)
  1. ;;665.22
  1. ;;9002226.02101,"911,665.22 ",.02)
  1. ;;665.22
  1. ;;9002226.02101,"911,665.22 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.24 ",.01)
  1. ;;665.24
  1. ;;9002226.02101,"911,665.24 ",.02)
  1. ;;665.24
  1. ;;9002226.02101,"911,665.24 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.31 ",.01)
  1. ;;665.31
  1. ;;9002226.02101,"911,665.31 ",.02)
  1. ;;665.31
  1. ;;9002226.02101,"911,665.31 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.34 ",.01)
  1. ;;665.34
  1. ;;9002226.02101,"911,665.34 ",.02)
  1. ;;665.34
  1. ;;9002226.02101,"911,665.34 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.41 ",.01)
  1. ;;665.41
  1. ;;9002226.02101,"911,665.41 ",.02)
  1. ;;665.41
  1. ;;9002226.02101,"911,665.41 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.44 ",.01)
  1. ;;665.44
  1. ;;9002226.02101,"911,665.44 ",.02)
  1. ;;665.44
  1. ;;9002226.02101,"911,665.44 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.51 ",.01)
  1. ;;665.51
  1. ;;9002226.02101,"911,665.51 ",.02)
  1. ;;665.51
  1. ;;9002226.02101,"911,665.51 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.54 ",.01)
  1. ;;665.54
  1. ;;9002226.02101,"911,665.54 ",.02)
  1. ;;665.54
  1. ;;9002226.02101,"911,665.54 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.61 ",.01)
  1. ;;665.61
  1. ;;9002226.02101,"911,665.61 ",.02)
  1. ;;665.61
  1. ;;9002226.02101,"911,665.61 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.64 ",.01)
  1. ;;665.64
  1. ;;9002226.02101,"911,665.64 ",.02)
  1. ;;665.64
  1. ;;9002226.02101,"911,665.64 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.71 ",.01)
  1. ;;665.71
  1. ;;9002226.02101,"911,665.71 ",.02)
  1. ;;665.71
  1. ;;9002226.02101,"911,665.71 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.72 ",.01)
  1. ;;665.72
  1. ;;9002226.02101,"911,665.72 ",.02)
  1. ;;665.72
  1. ;;9002226.02101,"911,665.72 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.74 ",.01)
  1. ;;665.74
  1. ;;9002226.02101,"911,665.74 ",.02)
  1. ;;665.74
  1. ;;9002226.02101,"911,665.74 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.81 ",.01)
  1. ;;665.81
  1. ;;9002226.02101,"911,665.81 ",.02)
  1. ;;665.81
  1. ;;9002226.02101,"911,665.81 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.82 ",.01)
  1. ;;665.82
  1. ;;9002226.02101,"911,665.82 ",.02)
  1. ;;665.82
  1. ;;9002226.02101,"911,665.82 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.84 ",.01)
  1. ;;665.84
  1. ;;9002226.02101,"911,665.84 ",.02)
  1. ;;665.84
  1. ;;9002226.02101,"911,665.84 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.91 ",.01)
  1. ;;665.91
  1. ;;9002226.02101,"911,665.91 ",.02)
  1. ;;665.91
  1. ;;9002226.02101,"911,665.91 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.92 ",.01)
  1. ;;665.92
  1. ;;9002226.02101,"911,665.92 ",.02)
  1. ;;665.92
  1. ;;9002226.02101,"911,665.92 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,665.94 ",.01)
  1. ;;665.94
  1. ;;9002226.02101,"911,665.94 ",.02)
  1. ;;665.94
  1. ;;9002226.02101,"911,665.94 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,666.00 ",.01)
  1. ;;666.00
  1. ;;9002226.02101,"911,666.00 ",.02)
  1. ;;666.34
  1. ;;9002226.02101,"911,666.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,667.00 ",.01)
  1. ;;667.00
  1. ;;9002226.02101,"911,667.00 ",.02)
  1. ;;667.14
  1. ;;9002226.02101,"911,667.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,668.00 ",.01)
  1. ;;668.00
  1. ;;9002226.02101,"911,668.00 ",.02)
  1. ;;668.02
  1. ;;9002226.02101,"911,668.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,668.04 ",.01)
  1. ;;668.04
  1. ;;9002226.02101,"911,668.04 ",.02)
  1. ;;668.12
  1. ;;9002226.02101,"911,668.04 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,668.14 ",.01)
  1. ;;668.14
  1. ;;9002226.02101,"911,668.14 ",.02)
  1. ;;668.22
  1. ;;9002226.02101,"911,668.14 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,668.24 ",.01)
  1. ;;668.24
  1. ;;9002226.02101,"911,668.24 ",.02)
  1. ;;668.82
  1. ;;9002226.02101,"911,668.24 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,668.84 ",.01)
  1. ;;668.84
  1. ;;9002226.02101,"911,668.84 ",.02)
  1. ;;668.92
  1. ;;9002226.02101,"911,668.84 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,668.94 ",.01)
  1. ;;668.94
  1. ;;9002226.02101,"911,668.94 ",.02)
  1. ;;668.94
  1. ;;9002226.02101,"911,668.94 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,669.00 ",.01)
  1. ;;669.00
  1. ;;9002226.02101,"911,669.00 ",.02)
  1. ;;669.02
  1. ;;9002226.02101,"911,669.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,669.04 ",.01)
  1. ;;669.04
  1. ;;9002226.02101,"911,669.04 ",.02)
  1. ;;669.12
  1. ;;9002226.02101,"911,669.04 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,669.14 ",.01)
  1. ;;669.14
  1. ;;9002226.02101,"911,669.14 ",.02)
  1. ;;669.22
  1. ;;9002226.02101,"911,669.14 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,669.24 ",.01)
  1. ;;669.24
  1. ;;9002226.02101,"911,669.24 ",.02)
  1. ;;669.42
  1. ;;9002226.02101,"911,669.24 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,669.44 ",.01)
  1. ;;669.44
  1. ;;9002226.02101,"911,669.44 ",.02)
  1. ;;669.82
  1. ;;9002226.02101,"911,669.44 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,669.84 ",.01)
  1. ;;669.84
  1. ;;9002226.02101,"911,669.84 ",.02)
  1. ;;669.92
  1. ;;9002226.02101,"911,669.84 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,669.94 ",.01)
  1. ;;669.94
  1. ;;9002226.02101,"911,669.94 ",.02)
  1. ;;669.94
  1. ;;9002226.02101,"911,669.94 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,670.00 ",.01)
  1. ;;670.00
  1. ;;9002226.02101,"911,670.00 ",.02)
  1. ;;670.04
  1. ;;9002226.02101,"911,670.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.01 ",.01)
  1. ;;671.01
  1. ;;9002226.02101,"911,671.01 ",.02)
  1. ;;671.01
  1. ;;9002226.02101,"911,671.01 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.02 ",.01)
  1. ;;671.02
  1. ;;9002226.02101,"911,671.02 ",.02)
  1. ;;671.02
  1. ;;9002226.02101,"911,671.02 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.04 ",.01)
  1. ;;671.04
  1. ;;9002226.02101,"911,671.04 ",.02)
  1. ;;671.04
  1. ;;9002226.02101,"911,671.04 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.11 ",.01)
  1. ;;671.11
  1. ;;9002226.02101,"911,671.11 ",.02)
  1. ;;671.11
  1. ;;9002226.02101,"911,671.11 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.12 ",.01)
  1. ;;671.12
  1. ;;9002226.02101,"911,671.12 ",.02)
  1. ;;671.12
  1. ;;9002226.02101,"911,671.12 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.14 ",.01)
  1. ;;671.14
  1. ;;9002226.02101,"911,671.14 ",.02)
  1. ;;671.14
  1. ;;9002226.02101,"911,671.14 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.21 ",.01)
  1. ;;671.21
  1. ;;9002226.02101,"911,671.21 ",.02)
  1. ;;671.21
  1. ;;9002226.02101,"911,671.21 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.22 ",.01)
  1. ;;671.22
  1. ;;9002226.02101,"911,671.22 ",.02)
  1. ;;671.22
  1. ;;9002226.02101,"911,671.22 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.24 ",.01)
  1. ;;671.24
  1. ;;9002226.02101,"911,671.24 ",.02)
  1. ;;671.24
  1. ;;9002226.02101,"911,671.24 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.31 ",.01)
  1. ;;671.31
  1. ;;9002226.02101,"911,671.31 ",.02)
  1. ;;671.31
  1. ;;9002226.02101,"911,671.31 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.42 ",.01)
  1. ;;671.42
  1. ;;9002226.02101,"911,671.42 ",.02)
  1. ;;671.42
  1. ;;9002226.02101,"911,671.42 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.44 ",.01)
  1. ;;671.44
  1. ;;9002226.02101,"911,671.44 ",.02)
  1. ;;671.44
  1. ;;9002226.02101,"911,671.44 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.51 ",.01)
  1. ;;671.51
  1. ;;9002226.02101,"911,671.51 ",.02)
  1. ;;671.51
  1. ;;9002226.02101,"911,671.51 ",.03)
  1. ;;1
  1. ;;9002226.02101,"911,671.52 ",.01)
  1. ;;671.52
  1. ;;9002226.02101,"911,671.52 ",.02)
  1. ;;671.52
  1. ;;9002226.02101,"911,671.52 ",.03)
  1. ;;1