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

ATXD8P9.m

Go to the documentation of this file.
  1. ATXD8P9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 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,"913,655.10 ",.01)
  1. ;;655.10
  1. ;;9002226.02101,"913,655.10 ",.02)
  1. ;;655.10
  1. ;;9002226.02101,"913,655.10 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.13 ",.01)
  1. ;;655.13
  1. ;;9002226.02101,"913,655.13 ",.02)
  1. ;;655.13
  1. ;;9002226.02101,"913,655.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.20 ",.01)
  1. ;;655.20
  1. ;;9002226.02101,"913,655.20 ",.02)
  1. ;;655.20
  1. ;;9002226.02101,"913,655.20 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.23 ",.01)
  1. ;;655.23
  1. ;;9002226.02101,"913,655.23 ",.02)
  1. ;;655.23
  1. ;;9002226.02101,"913,655.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.30 ",.01)
  1. ;;655.30
  1. ;;9002226.02101,"913,655.30 ",.02)
  1. ;;655.30
  1. ;;9002226.02101,"913,655.30 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.33 ",.01)
  1. ;;655.33
  1. ;;9002226.02101,"913,655.33 ",.02)
  1. ;;655.33
  1. ;;9002226.02101,"913,655.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.40 ",.01)
  1. ;;655.40
  1. ;;9002226.02101,"913,655.40 ",.02)
  1. ;;655.40
  1. ;;9002226.02101,"913,655.40 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.43 ",.01)
  1. ;;655.43
  1. ;;9002226.02101,"913,655.43 ",.02)
  1. ;;655.43
  1. ;;9002226.02101,"913,655.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.50 ",.01)
  1. ;;655.50
  1. ;;9002226.02101,"913,655.50 ",.02)
  1. ;;655.50
  1. ;;9002226.02101,"913,655.50 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.53 ",.01)
  1. ;;655.53
  1. ;;9002226.02101,"913,655.53 ",.02)
  1. ;;655.53
  1. ;;9002226.02101,"913,655.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.60 ",.01)
  1. ;;655.60
  1. ;;9002226.02101,"913,655.60 ",.02)
  1. ;;655.60
  1. ;;9002226.02101,"913,655.60 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.63 ",.01)
  1. ;;655.63
  1. ;;9002226.02101,"913,655.63 ",.02)
  1. ;;655.63
  1. ;;9002226.02101,"913,655.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.70 ",.01)
  1. ;;655.70
  1. ;;9002226.02101,"913,655.70 ",.02)
  1. ;;655.70
  1. ;;9002226.02101,"913,655.70 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.73 ",.01)
  1. ;;655.73
  1. ;;9002226.02101,"913,655.73 ",.02)
  1. ;;655.73
  1. ;;9002226.02101,"913,655.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.80 ",.01)
  1. ;;655.80
  1. ;;9002226.02101,"913,655.80 ",.02)
  1. ;;655.80
  1. ;;9002226.02101,"913,655.80 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.83 ",.01)
  1. ;;655.83
  1. ;;9002226.02101,"913,655.83 ",.02)
  1. ;;655.83
  1. ;;9002226.02101,"913,655.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.90 ",.01)
  1. ;;655.90
  1. ;;9002226.02101,"913,655.90 ",.02)
  1. ;;655.90
  1. ;;9002226.02101,"913,655.90 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,655.93 ",.01)
  1. ;;655.93
  1. ;;9002226.02101,"913,655.93 ",.02)
  1. ;;655.93
  1. ;;9002226.02101,"913,655.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.00 ",.01)
  1. ;;656.00
  1. ;;9002226.02101,"913,656.00 ",.02)
  1. ;;656.00
  1. ;;9002226.02101,"913,656.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.03 ",.01)
  1. ;;656.03
  1. ;;9002226.02101,"913,656.03 ",.02)
  1. ;;656.03
  1. ;;9002226.02101,"913,656.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.10 ",.01)
  1. ;;656.10
  1. ;;9002226.02101,"913,656.10 ",.02)
  1. ;;656.10
  1. ;;9002226.02101,"913,656.10 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.13 ",.01)
  1. ;;656.13
  1. ;;9002226.02101,"913,656.13 ",.02)
  1. ;;656.13
  1. ;;9002226.02101,"913,656.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.20 ",.01)
  1. ;;656.20
  1. ;;9002226.02101,"913,656.20 ",.02)
  1. ;;656.20
  1. ;;9002226.02101,"913,656.20 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.23 ",.01)
  1. ;;656.23
  1. ;;9002226.02101,"913,656.23 ",.02)
  1. ;;656.23
  1. ;;9002226.02101,"913,656.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.30 ",.01)
  1. ;;656.30
  1. ;;9002226.02101,"913,656.30 ",.02)
  1. ;;656.30
  1. ;;9002226.02101,"913,656.30 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.33 ",.01)
  1. ;;656.33
  1. ;;9002226.02101,"913,656.33 ",.02)
  1. ;;656.33
  1. ;;9002226.02101,"913,656.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.40 ",.01)
  1. ;;656.40
  1. ;;9002226.02101,"913,656.40 ",.02)
  1. ;;656.40
  1. ;;9002226.02101,"913,656.40 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.43 ",.01)
  1. ;;656.43
  1. ;;9002226.02101,"913,656.43 ",.02)
  1. ;;656.43
  1. ;;9002226.02101,"913,656.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.50 ",.01)
  1. ;;656.50
  1. ;;9002226.02101,"913,656.50 ",.02)
  1. ;;656.50
  1. ;;9002226.02101,"913,656.50 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.53 ",.01)
  1. ;;656.53
  1. ;;9002226.02101,"913,656.53 ",.02)
  1. ;;656.53
  1. ;;9002226.02101,"913,656.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.60 ",.01)
  1. ;;656.60
  1. ;;9002226.02101,"913,656.60 ",.02)
  1. ;;656.60
  1. ;;9002226.02101,"913,656.60 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.63 ",.01)
  1. ;;656.63
  1. ;;9002226.02101,"913,656.63 ",.02)
  1. ;;656.63
  1. ;;9002226.02101,"913,656.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.70 ",.01)
  1. ;;656.70
  1. ;;9002226.02101,"913,656.70 ",.02)
  1. ;;656.70
  1. ;;9002226.02101,"913,656.70 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.73 ",.01)
  1. ;;656.73
  1. ;;9002226.02101,"913,656.73 ",.02)
  1. ;;656.73
  1. ;;9002226.02101,"913,656.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.80 ",.01)
  1. ;;656.80
  1. ;;9002226.02101,"913,656.80 ",.02)
  1. ;;656.80
  1. ;;9002226.02101,"913,656.80 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.83 ",.01)
  1. ;;656.83
  1. ;;9002226.02101,"913,656.83 ",.02)
  1. ;;656.83
  1. ;;9002226.02101,"913,656.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.90 ",.01)
  1. ;;656.90
  1. ;;9002226.02101,"913,656.90 ",.02)
  1. ;;656.90
  1. ;;9002226.02101,"913,656.90 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,656.93 ",.01)
  1. ;;656.93
  1. ;;9002226.02101,"913,656.93 ",.02)
  1. ;;656.93
  1. ;;9002226.02101,"913,656.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,657.00 ",.01)
  1. ;;657.00
  1. ;;9002226.02101,"913,657.00 ",.02)
  1. ;;657.00
  1. ;;9002226.02101,"913,657.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,657.03 ",.01)
  1. ;;657.03
  1. ;;9002226.02101,"913,657.03 ",.02)
  1. ;;657.03
  1. ;;9002226.02101,"913,657.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.00 ",.01)
  1. ;;658.00
  1. ;;9002226.02101,"913,658.00 ",.02)
  1. ;;658.00
  1. ;;9002226.02101,"913,658.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.03 ",.01)
  1. ;;658.03
  1. ;;9002226.02101,"913,658.03 ",.02)
  1. ;;658.03
  1. ;;9002226.02101,"913,658.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.10 ",.01)
  1. ;;658.10
  1. ;;9002226.02101,"913,658.10 ",.02)
  1. ;;658.10
  1. ;;9002226.02101,"913,658.10 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.13 ",.01)
  1. ;;658.13
  1. ;;9002226.02101,"913,658.13 ",.02)
  1. ;;658.13
  1. ;;9002226.02101,"913,658.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.20 ",.01)
  1. ;;658.20
  1. ;;9002226.02101,"913,658.20 ",.02)
  1. ;;658.20
  1. ;;9002226.02101,"913,658.20 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.23 ",.01)
  1. ;;658.23
  1. ;;9002226.02101,"913,658.23 ",.02)
  1. ;;658.23
  1. ;;9002226.02101,"913,658.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.30 ",.01)
  1. ;;658.30
  1. ;;9002226.02101,"913,658.30 ",.02)
  1. ;;658.30
  1. ;;9002226.02101,"913,658.30 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.33 ",.01)
  1. ;;658.33
  1. ;;9002226.02101,"913,658.33 ",.02)
  1. ;;658.33
  1. ;;9002226.02101,"913,658.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.40 ",.01)
  1. ;;658.40
  1. ;;9002226.02101,"913,658.40 ",.02)
  1. ;;658.40
  1. ;;9002226.02101,"913,658.40 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.43 ",.01)
  1. ;;658.43
  1. ;;9002226.02101,"913,658.43 ",.02)
  1. ;;658.43
  1. ;;9002226.02101,"913,658.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.80 ",.01)
  1. ;;658.80
  1. ;;9002226.02101,"913,658.80 ",.02)
  1. ;;658.80
  1. ;;9002226.02101,"913,658.80 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.83 ",.01)
  1. ;;658.83
  1. ;;9002226.02101,"913,658.83 ",.02)
  1. ;;658.83
  1. ;;9002226.02101,"913,658.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.90 ",.01)
  1. ;;658.90
  1. ;;9002226.02101,"913,658.90 ",.02)
  1. ;;658.90
  1. ;;9002226.02101,"913,658.90 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,658.93 ",.01)
  1. ;;658.93
  1. ;;9002226.02101,"913,658.93 ",.02)
  1. ;;658.93
  1. ;;9002226.02101,"913,658.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.00 ",.01)
  1. ;;659.00
  1. ;;9002226.02101,"913,659.00 ",.02)
  1. ;;659.00
  1. ;;9002226.02101,"913,659.00 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.03 ",.01)
  1. ;;659.03
  1. ;;9002226.02101,"913,659.03 ",.02)
  1. ;;659.03
  1. ;;9002226.02101,"913,659.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.10 ",.01)
  1. ;;659.10
  1. ;;9002226.02101,"913,659.10 ",.02)
  1. ;;659.10
  1. ;;9002226.02101,"913,659.10 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.13 ",.01)
  1. ;;659.13
  1. ;;9002226.02101,"913,659.13 ",.02)
  1. ;;659.13
  1. ;;9002226.02101,"913,659.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.20 ",.01)
  1. ;;659.20
  1. ;;9002226.02101,"913,659.20 ",.02)
  1. ;;659.20
  1. ;;9002226.02101,"913,659.20 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.23 ",.01)
  1. ;;659.23
  1. ;;9002226.02101,"913,659.23 ",.02)
  1. ;;659.23
  1. ;;9002226.02101,"913,659.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.30 ",.01)
  1. ;;659.30
  1. ;;9002226.02101,"913,659.30 ",.02)
  1. ;;659.30
  1. ;;9002226.02101,"913,659.30 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.33 ",.01)
  1. ;;659.33
  1. ;;9002226.02101,"913,659.33 ",.02)
  1. ;;659.33
  1. ;;9002226.02101,"913,659.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.40 ",.01)
  1. ;;659.40
  1. ;;9002226.02101,"913,659.40 ",.02)
  1. ;;659.40
  1. ;;9002226.02101,"913,659.40 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.43 ",.01)
  1. ;;659.43
  1. ;;9002226.02101,"913,659.43 ",.02)
  1. ;;659.43
  1. ;;9002226.02101,"913,659.43 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.50 ",.01)
  1. ;;659.50
  1. ;;9002226.02101,"913,659.50 ",.02)
  1. ;;659.50
  1. ;;9002226.02101,"913,659.50 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.53 ",.01)
  1. ;;659.53
  1. ;;9002226.02101,"913,659.53 ",.02)
  1. ;;659.53
  1. ;;9002226.02101,"913,659.53 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.60 ",.01)
  1. ;;659.60
  1. ;;9002226.02101,"913,659.60 ",.02)
  1. ;;659.60
  1. ;;9002226.02101,"913,659.60 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.63 ",.01)
  1. ;;659.63
  1. ;;9002226.02101,"913,659.63 ",.02)
  1. ;;659.63
  1. ;;9002226.02101,"913,659.63 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.70 ",.01)
  1. ;;659.70
  1. ;;9002226.02101,"913,659.70 ",.02)
  1. ;;659.70
  1. ;;9002226.02101,"913,659.70 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.73 ",.01)
  1. ;;659.73
  1. ;;9002226.02101,"913,659.73 ",.02)
  1. ;;659.73
  1. ;;9002226.02101,"913,659.73 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.80 ",.01)
  1. ;;659.80
  1. ;;9002226.02101,"913,659.80 ",.02)
  1. ;;659.80
  1. ;;9002226.02101,"913,659.80 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.83 ",.01)
  1. ;;659.83
  1. ;;9002226.02101,"913,659.83 ",.02)
  1. ;;659.83
  1. ;;9002226.02101,"913,659.83 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.90 ",.01)
  1. ;;659.90
  1. ;;9002226.02101,"913,659.90 ",.02)
  1. ;;659.90
  1. ;;9002226.02101,"913,659.90 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,659.93 ",.01)
  1. ;;659.93
  1. ;;9002226.02101,"913,659.93 ",.02)
  1. ;;660.00
  1. ;;9002226.02101,"913,659.93 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,660.03 ",.01)
  1. ;;660.03
  1. ;;9002226.02101,"913,660.03 ",.02)
  1. ;;660.03
  1. ;;9002226.02101,"913,660.03 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,660.10 ",.01)
  1. ;;660.10
  1. ;;9002226.02101,"913,660.10 ",.02)
  1. ;;660.10
  1. ;;9002226.02101,"913,660.10 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,660.13 ",.01)
  1. ;;660.13
  1. ;;9002226.02101,"913,660.13 ",.02)
  1. ;;660.13
  1. ;;9002226.02101,"913,660.13 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,660.20 ",.01)
  1. ;;660.20
  1. ;;9002226.02101,"913,660.20 ",.02)
  1. ;;660.20
  1. ;;9002226.02101,"913,660.20 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,660.23 ",.01)
  1. ;;660.23
  1. ;;9002226.02101,"913,660.23 ",.02)
  1. ;;660.23
  1. ;;9002226.02101,"913,660.23 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,660.30 ",.01)
  1. ;;660.30
  1. ;;9002226.02101,"913,660.30 ",.02)
  1. ;;660.30
  1. ;;9002226.02101,"913,660.30 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,660.33 ",.01)
  1. ;;660.33
  1. ;;9002226.02101,"913,660.33 ",.02)
  1. ;;660.33
  1. ;;9002226.02101,"913,660.33 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,660.40 ",.01)
  1. ;;660.40
  1. ;;9002226.02101,"913,660.40 ",.02)
  1. ;;660.40
  1. ;;9002226.02101,"913,660.40 ",.03)
  1. ;;1
  1. ;;9002226.02101,"913,660.43 ",.01)
  1. ;;660.43
  1. ;;9002226.02101,"913,660.43 ",.02)
  1. ;;660.43
  1. ;;9002226.02101,"913,660.43 ",.03)
  1. ;;1