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

ATXD7H2.m

Go to the documentation of this file.
ATXD7H2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 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,"809,044.9 ",.01)
 ;;044.9
 ;;9002226.02101,"809,044.9 ",.02)
 ;;044.9
 ;;9002226.02101,"809,044.9 ",.03)
 ;;1
 ;;9002226.02101,"809,250.00 ",.01)
 ;;250.00
 ;;9002226.02101,"809,250.00 ",.02)
 ;;250.93
 ;;9002226.02101,"809,250.00 ",.03)
 ;;1
 ;;9002226.02101,"809,393. ",.01)
 ;;393.
 ;;9002226.02101,"809,393. ",.02)
 ;;398.99
 ;;9002226.02101,"809,393. ",.03)
 ;;1
 ;;9002226.02101,"809,402.00 ",.01)
 ;;402.00
 ;;9002226.02101,"809,402.00 ",.02)
 ;;402.91
 ;;9002226.02101,"809,402.00 ",.03)
 ;;1
 ;;9002226.02101,"809,404.0 ",.01)
 ;;404.0
 ;;9002226.02101,"809,404.0 ",.02)
 ;;404.93
 ;;9002226.02101,"809,404.0 ",.03)
 ;;1
 ;;9002226.02101,"809,410.00 ",.01)
 ;;410.00
 ;;9002226.02101,"809,410.00 ",.02)
 ;;416.9
 ;;9002226.02101,"809,410.00 ",.03)
 ;;1
 ;;9002226.02101,"809,424.0 ",.01)
 ;;424.0
 ;;9002226.02101,"809,424.0 ",.02)
 ;;425.9
 ;;9002226.02101,"809,424.0 ",.03)
 ;;1
 ;;9002226.02101,"809,428.0 ",.01)
 ;;428.0
 ;;9002226.02101,"809,428.0 ",.02)
 ;;428.9
 ;;9002226.02101,"809,428.0 ",.03)
 ;;1
 ;;9002226.02101,"809,429.2 ",.01)
 ;;429.2
 ;;9002226.02101,"809,429.2 ",.02)
 ;;429.2
 ;;9002226.02101,"809,429.2 ",.03)
 ;;1
 ;;9002226.02101,"809,491.0 ",.01)
 ;;491.0
 ;;9002226.02101,"809,491.0 ",.02)
 ;;493.91
 ;;9002226.02101,"809,491.0 ",.03)
 ;;1
 ;;9002226.02101,"809,494. ",.01)
 ;;494.
 ;;9002226.02101,"809,494. ",.02)
 ;;496.
 ;;9002226.02101,"809,494. ",.03)
 ;;1
 ;;9002226.02101,"809,501. ",.01)
 ;;501.
 ;;9002226.02101,"809,501. ",.02)
 ;;505.
 ;;9002226.02101,"809,501. ",.03)
 ;;1
 ;;9002226.02101,"809,571.0 ",.01)
 ;;571.0
 ;;9002226.02101,"809,571.0 ",.02)
 ;;571.9
 ;;9002226.02101,"809,571.0 ",.03)
 ;;1
 ;;9002226.02101,"809,581.0 ",.01)
 ;;581.0
 ;;9002226.02101,"809,581.0 ",.02)
 ;;581.9
 ;;9002226.02101,"809,581.0 ",.03)
 ;;1
 ;;9002226.02101,"809,585.6 ",.01)
 ;;585.6
 ;;9002226.02101,"809,585.6 ",.02)
 ;;585.9
 ;;9002226.02101,"809,585.6 ",.03)
 ;;1
 ;;9002226.02101,"809,996.80 ",.01)
 ;;996.80
 ;;9002226.02101,"809,996.80 ",.02)
 ;;996.89
 ;;9002226.02101,"809,996.80 ",.03)
 ;;1
 ;;9002226.02101,"809,B20. ",.01)
 ;;B20. 
 ;;9002226.02101,"809,B20. ",.02)
 ;;B20. 
 ;;9002226.02101,"809,B20. ",.03)
 ;;30
 ;;9002226.02101,"809,B97.35 ",.01)
 ;;B97.35 
 ;;9002226.02101,"809,B97.35 ",.02)
 ;;B97.35 
 ;;9002226.02101,"809,B97.35 ",.03)
 ;;30
 ;;9002226.02101,"809,E08.21 ",.01)
 ;;E08.21 
 ;;9002226.02101,"809,E08.21 ",.02)
 ;;E08.21 
 ;;9002226.02101,"809,E08.21 ",.03)
 ;;30
 ;;9002226.02101,"809,E08.22 ",.01)
 ;;E08.22 
 ;;9002226.02101,"809,E08.22 ",.02)
 ;;E08.22 
 ;;9002226.02101,"809,E08.22 ",.03)
 ;;30
 ;;9002226.02101,"809,E08.29 ",.01)
 ;;E08.29 
 ;;9002226.02101,"809,E08.29 ",.02)
 ;;E08.29 
 ;;9002226.02101,"809,E08.29 ",.03)
 ;;30
 ;;9002226.02101,"809,E09.21 ",.01)
 ;;E09.21 
 ;;9002226.02101,"809,E09.21 ",.02)
 ;;E09.21 
 ;;9002226.02101,"809,E09.21 ",.03)
 ;;30
 ;;9002226.02101,"809,E09.22 ",.01)
 ;;E09.22 
 ;;9002226.02101,"809,E09.22 ",.02)
 ;;E09.22 
 ;;9002226.02101,"809,E09.22 ",.03)
 ;;30
 ;;9002226.02101,"809,E09.29 ",.01)
 ;;E09.29 
 ;;9002226.02101,"809,E09.29 ",.02)
 ;;E09.29 
 ;;9002226.02101,"809,E09.29 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.10 ",.01)
 ;;E10.10 
 ;;9002226.02101,"809,E10.10 ",.02)
 ;;E10.10 
 ;;9002226.02101,"809,E10.10 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.11 ",.01)
 ;;E10.11 
 ;;9002226.02101,"809,E10.11 ",.02)
 ;;E10.11 
 ;;9002226.02101,"809,E10.11 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.21 ",.01)
 ;;E10.21 
 ;;9002226.02101,"809,E10.21 ",.02)
 ;;E10.21 
 ;;9002226.02101,"809,E10.21 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.22 ",.01)
 ;;E10.22 
 ;;9002226.02101,"809,E10.22 ",.02)
 ;;E10.22 
 ;;9002226.02101,"809,E10.22 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.29 ",.01)
 ;;E10.29 
 ;;9002226.02101,"809,E10.29 ",.02)
 ;;E10.29 
 ;;9002226.02101,"809,E10.29 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.311 ",.01)
 ;;E10.311 
 ;;9002226.02101,"809,E10.311 ",.02)
 ;;E10.311 
 ;;9002226.02101,"809,E10.311 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.319 ",.01)
 ;;E10.319 
 ;;9002226.02101,"809,E10.319 ",.02)
 ;;E10.319 
 ;;9002226.02101,"809,E10.319 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.321 ",.01)
 ;;E10.321 
 ;;9002226.02101,"809,E10.321 ",.02)
 ;;E10.321 
 ;;9002226.02101,"809,E10.321 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.329 ",.01)
 ;;E10.329 
 ;;9002226.02101,"809,E10.329 ",.02)
 ;;E10.329 
 ;;9002226.02101,"809,E10.329 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.331 ",.01)
 ;;E10.331 
 ;;9002226.02101,"809,E10.331 ",.02)
 ;;E10.331 
 ;;9002226.02101,"809,E10.331 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.339 ",.01)
 ;;E10.339 
 ;;9002226.02101,"809,E10.339 ",.02)
 ;;E10.339 
 ;;9002226.02101,"809,E10.339 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.341 ",.01)
 ;;E10.341 
 ;;9002226.02101,"809,E10.341 ",.02)
 ;;E10.341 
 ;;9002226.02101,"809,E10.341 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.349 ",.01)
 ;;E10.349 
 ;;9002226.02101,"809,E10.349 ",.02)
 ;;E10.349 
 ;;9002226.02101,"809,E10.349 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.351 ",.01)
 ;;E10.351 
 ;;9002226.02101,"809,E10.351 ",.02)
 ;;E10.351 
 ;;9002226.02101,"809,E10.351 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.359 ",.01)
 ;;E10.359 
 ;;9002226.02101,"809,E10.359 ",.02)
 ;;E10.359 
 ;;9002226.02101,"809,E10.359 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.36 ",.01)
 ;;E10.36 
 ;;9002226.02101,"809,E10.36 ",.02)
 ;;E10.36 
 ;;9002226.02101,"809,E10.36 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.39 ",.01)
 ;;E10.39 
 ;;9002226.02101,"809,E10.39 ",.02)
 ;;E10.39 
 ;;9002226.02101,"809,E10.39 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.40 ",.01)
 ;;E10.40 
 ;;9002226.02101,"809,E10.40 ",.02)
 ;;E10.40 
 ;;9002226.02101,"809,E10.40 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.41 ",.01)
 ;;E10.41 
 ;;9002226.02101,"809,E10.41 ",.02)
 ;;E10.41 
 ;;9002226.02101,"809,E10.41 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.42 ",.01)
 ;;E10.42 
 ;;9002226.02101,"809,E10.42 ",.02)
 ;;E10.42 
 ;;9002226.02101,"809,E10.42 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.43 ",.01)
 ;;E10.43 
 ;;9002226.02101,"809,E10.43 ",.02)
 ;;E10.43 
 ;;9002226.02101,"809,E10.43 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.44 ",.01)
 ;;E10.44 
 ;;9002226.02101,"809,E10.44 ",.02)
 ;;E10.44 
 ;;9002226.02101,"809,E10.44 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.49 ",.01)
 ;;E10.49 
 ;;9002226.02101,"809,E10.49 ",.02)
 ;;E10.49 
 ;;9002226.02101,"809,E10.49 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.51 ",.01)
 ;;E10.51 
 ;;9002226.02101,"809,E10.51 ",.02)
 ;;E10.51 
 ;;9002226.02101,"809,E10.51 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.52 ",.01)
 ;;E10.52 
 ;;9002226.02101,"809,E10.52 ",.02)
 ;;E10.52 
 ;;9002226.02101,"809,E10.52 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.59 ",.01)
 ;;E10.59 
 ;;9002226.02101,"809,E10.59 ",.02)
 ;;E10.59 
 ;;9002226.02101,"809,E10.59 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.610 ",.01)
 ;;E10.610 
 ;;9002226.02101,"809,E10.610 ",.02)
 ;;E10.610 
 ;;9002226.02101,"809,E10.610 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.618 ",.01)
 ;;E10.618 
 ;;9002226.02101,"809,E10.618 ",.02)
 ;;E10.618 
 ;;9002226.02101,"809,E10.618 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.620 ",.01)
 ;;E10.620 
 ;;9002226.02101,"809,E10.620 ",.02)
 ;;E10.620 
 ;;9002226.02101,"809,E10.620 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.621 ",.01)
 ;;E10.621 
 ;;9002226.02101,"809,E10.621 ",.02)
 ;;E10.621 
 ;;9002226.02101,"809,E10.621 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.622 ",.01)
 ;;E10.622 
 ;;9002226.02101,"809,E10.622 ",.02)
 ;;E10.622 
 ;;9002226.02101,"809,E10.622 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.628 ",.01)
 ;;E10.628 
 ;;9002226.02101,"809,E10.628 ",.02)
 ;;E10.628 
 ;;9002226.02101,"809,E10.628 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.630 ",.01)
 ;;E10.630 
 ;;9002226.02101,"809,E10.630 ",.02)
 ;;E10.630 
 ;;9002226.02101,"809,E10.630 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.638 ",.01)
 ;;E10.638 
 ;;9002226.02101,"809,E10.638 ",.02)
 ;;E10.638 
 ;;9002226.02101,"809,E10.638 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.641 ",.01)
 ;;E10.641 
 ;;9002226.02101,"809,E10.641 ",.02)
 ;;E10.641 
 ;;9002226.02101,"809,E10.641 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.649 ",.01)
 ;;E10.649 
 ;;9002226.02101,"809,E10.649 ",.02)
 ;;E10.649 
 ;;9002226.02101,"809,E10.649 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.65 ",.01)
 ;;E10.65 
 ;;9002226.02101,"809,E10.65 ",.02)
 ;;E10.65 
 ;;9002226.02101,"809,E10.65 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.69 ",.01)
 ;;E10.69 
 ;;9002226.02101,"809,E10.69 ",.02)
 ;;E10.69 
 ;;9002226.02101,"809,E10.69 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.8 ",.01)
 ;;E10.8 
 ;;9002226.02101,"809,E10.8 ",.02)
 ;;E10.8 
 ;;9002226.02101,"809,E10.8 ",.03)
 ;;30
 ;;9002226.02101,"809,E10.9 ",.01)
 ;;E10.9 
 ;;9002226.02101,"809,E10.9 ",.02)
 ;;E10.9 
 ;;9002226.02101,"809,E10.9 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.00 ",.01)
 ;;E11.00 
 ;;9002226.02101,"809,E11.00 ",.02)
 ;;E11.00 
 ;;9002226.02101,"809,E11.00 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.01 ",.01)
 ;;E11.01 
 ;;9002226.02101,"809,E11.01 ",.02)
 ;;E11.01 
 ;;9002226.02101,"809,E11.01 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.21 ",.01)
 ;;E11.21 
 ;;9002226.02101,"809,E11.21 ",.02)
 ;;E11.21 
 ;;9002226.02101,"809,E11.21 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.29 ",.01)
 ;;E11.29 
 ;;9002226.02101,"809,E11.29 ",.02)
 ;;E11.29 
 ;;9002226.02101,"809,E11.29 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.311 ",.01)
 ;;E11.311 
 ;;9002226.02101,"809,E11.311 ",.02)
 ;;E11.311 
 ;;9002226.02101,"809,E11.311 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.319 ",.01)
 ;;E11.319 
 ;;9002226.02101,"809,E11.319 ",.02)
 ;;E11.319 
 ;;9002226.02101,"809,E11.319 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.321 ",.01)
 ;;E11.321 
 ;;9002226.02101,"809,E11.321 ",.02)
 ;;E11.321 
 ;;9002226.02101,"809,E11.321 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.329 ",.01)
 ;;E11.329 
 ;;9002226.02101,"809,E11.329 ",.02)
 ;;E11.329 
 ;;9002226.02101,"809,E11.329 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.331 ",.01)
 ;;E11.331 
 ;;9002226.02101,"809,E11.331 ",.02)
 ;;E11.331 
 ;;9002226.02101,"809,E11.331 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.339 ",.01)
 ;;E11.339 
 ;;9002226.02101,"809,E11.339 ",.02)
 ;;E11.339 
 ;;9002226.02101,"809,E11.339 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.341 ",.01)
 ;;E11.341 
 ;;9002226.02101,"809,E11.341 ",.02)
 ;;E11.341 
 ;;9002226.02101,"809,E11.341 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.349 ",.01)
 ;;E11.349 
 ;;9002226.02101,"809,E11.349 ",.02)
 ;;E11.349 
 ;;9002226.02101,"809,E11.349 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.351 ",.01)
 ;;E11.351 
 ;;9002226.02101,"809,E11.351 ",.02)
 ;;E11.351 
 ;;9002226.02101,"809,E11.351 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.359 ",.01)
 ;;E11.359 
 ;;9002226.02101,"809,E11.359 ",.02)
 ;;E11.359 
 ;;9002226.02101,"809,E11.359 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.36 ",.01)
 ;;E11.36 
 ;;9002226.02101,"809,E11.36 ",.02)
 ;;E11.36 
 ;;9002226.02101,"809,E11.36 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.39 ",.01)
 ;;E11.39 
 ;;9002226.02101,"809,E11.39 ",.02)
 ;;E11.39 
 ;;9002226.02101,"809,E11.39 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.40 ",.01)
 ;;E11.40 
 ;;9002226.02101,"809,E11.40 ",.02)
 ;;E11.40 
 ;;9002226.02101,"809,E11.40 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.41 ",.01)
 ;;E11.41 
 ;;9002226.02101,"809,E11.41 ",.02)
 ;;E11.41 
 ;;9002226.02101,"809,E11.41 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.42 ",.01)
 ;;E11.42 
 ;;9002226.02101,"809,E11.42 ",.02)
 ;;E11.42 
 ;;9002226.02101,"809,E11.42 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.43 ",.01)
 ;;E11.43 
 ;;9002226.02101,"809,E11.43 ",.02)
 ;;E11.43 
 ;;9002226.02101,"809,E11.43 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.44 ",.01)
 ;;E11.44 
 ;;9002226.02101,"809,E11.44 ",.02)
 ;;E11.44 
 ;;9002226.02101,"809,E11.44 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.49 ",.01)
 ;;E11.49 
 ;;9002226.02101,"809,E11.49 ",.02)
 ;;E11.49 
 ;;9002226.02101,"809,E11.49 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.51 ",.01)
 ;;E11.51 
 ;;9002226.02101,"809,E11.51 ",.02)
 ;;E11.51 
 ;;9002226.02101,"809,E11.51 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.52 ",.01)
 ;;E11.52 
 ;;9002226.02101,"809,E11.52 ",.02)
 ;;E11.52 
 ;;9002226.02101,"809,E11.52 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.59 ",.01)
 ;;E11.59 
 ;;9002226.02101,"809,E11.59 ",.02)
 ;;E11.59 
 ;;9002226.02101,"809,E11.59 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.610 ",.01)
 ;;E11.610 
 ;;9002226.02101,"809,E11.610 ",.02)
 ;;E11.610 
 ;;9002226.02101,"809,E11.610 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.618 ",.01)
 ;;E11.618 
 ;;9002226.02101,"809,E11.618 ",.02)
 ;;E11.618 
 ;;9002226.02101,"809,E11.618 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.620 ",.01)
 ;;E11.620 
 ;;9002226.02101,"809,E11.620 ",.02)
 ;;E11.620 
 ;;9002226.02101,"809,E11.620 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.621 ",.01)
 ;;E11.621 
 ;;9002226.02101,"809,E11.621 ",.02)
 ;;E11.621 
 ;;9002226.02101,"809,E11.621 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.622 ",.01)
 ;;E11.622 
 ;;9002226.02101,"809,E11.622 ",.02)
 ;;E11.622 
 ;;9002226.02101,"809,E11.622 ",.03)
 ;;30
 ;;9002226.02101,"809,E11.628 ",.01)
 ;;E11.628 
 ;;9002226.02101,"809,E11.628 ",.02)
 ;;E11.628 
 ;;9002226.02101,"809,E11.628 ",.03)
 ;;30