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

ATXD8A2.m

Go to the documentation of this file.
ATXD8A2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 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,"1,E11.621 ",.01)
 ;;E11.621
 ;;9002226.02101,"1,E11.621 ",.02)
 ;;E11.621
 ;;9002226.02101,"1,E11.621 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.622 ",.01)
 ;;E11.622
 ;;9002226.02101,"1,E11.622 ",.02)
 ;;E11.622
 ;;9002226.02101,"1,E11.622 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.628 ",.01)
 ;;E11.628
 ;;9002226.02101,"1,E11.628 ",.02)
 ;;E11.628
 ;;9002226.02101,"1,E11.628 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.630 ",.01)
 ;;E11.630
 ;;9002226.02101,"1,E11.630 ",.02)
 ;;E11.630
 ;;9002226.02101,"1,E11.630 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.638 ",.01)
 ;;E11.638
 ;;9002226.02101,"1,E11.638 ",.02)
 ;;E11.638
 ;;9002226.02101,"1,E11.638 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.641 ",.01)
 ;;E11.641
 ;;9002226.02101,"1,E11.641 ",.02)
 ;;E11.641
 ;;9002226.02101,"1,E11.641 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.649 ",.01)
 ;;E11.649
 ;;9002226.02101,"1,E11.649 ",.02)
 ;;E11.649
 ;;9002226.02101,"1,E11.649 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.65 ",.01)
 ;;E11.65
 ;;9002226.02101,"1,E11.65 ",.02)
 ;;E11.65
 ;;9002226.02101,"1,E11.65 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.69 ",.01)
 ;;E11.69
 ;;9002226.02101,"1,E11.69 ",.02)
 ;;E11.69
 ;;9002226.02101,"1,E11.69 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.8 ",.01)
 ;;E11.8
 ;;9002226.02101,"1,E11.8 ",.02)
 ;;E11.8
 ;;9002226.02101,"1,E11.8 ",.03)
 ;;30
 ;;9002226.02101,"1,E11.9 ",.01)
 ;;E11.9
 ;;9002226.02101,"1,E11.9 ",.02)
 ;;E11.9
 ;;9002226.02101,"1,E11.9 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.00 ",.01)
 ;;E13.00
 ;;9002226.02101,"1,E13.00 ",.02)
 ;;E13.00
 ;;9002226.02101,"1,E13.00 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.01 ",.01)
 ;;E13.01
 ;;9002226.02101,"1,E13.01 ",.02)
 ;;E13.01
 ;;9002226.02101,"1,E13.01 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.10 ",.01)
 ;;E13.10
 ;;9002226.02101,"1,E13.10 ",.02)
 ;;E13.10
 ;;9002226.02101,"1,E13.10 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.11 ",.01)
 ;;E13.11
 ;;9002226.02101,"1,E13.11 ",.02)
 ;;E13.11
 ;;9002226.02101,"1,E13.11 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.21 ",.01)
 ;;E13.21
 ;;9002226.02101,"1,E13.21 ",.02)
 ;;E13.21
 ;;9002226.02101,"1,E13.21 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.22 ",.01)
 ;;E13.22
 ;;9002226.02101,"1,E13.22 ",.02)
 ;;E13.22
 ;;9002226.02101,"1,E13.22 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.29 ",.01)
 ;;E13.29
 ;;9002226.02101,"1,E13.29 ",.02)
 ;;E13.29
 ;;9002226.02101,"1,E13.29 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.311 ",.01)
 ;;E13.311
 ;;9002226.02101,"1,E13.311 ",.02)
 ;;E13.311
 ;;9002226.02101,"1,E13.311 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.319 ",.01)
 ;;E13.319
 ;;9002226.02101,"1,E13.319 ",.02)
 ;;E13.319
 ;;9002226.02101,"1,E13.319 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.321 ",.01)
 ;;E13.321
 ;;9002226.02101,"1,E13.321 ",.02)
 ;;E13.321
 ;;9002226.02101,"1,E13.321 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.329 ",.01)
 ;;E13.329
 ;;9002226.02101,"1,E13.329 ",.02)
 ;;E13.329
 ;;9002226.02101,"1,E13.329 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.331 ",.01)
 ;;E13.331
 ;;9002226.02101,"1,E13.331 ",.02)
 ;;E13.331
 ;;9002226.02101,"1,E13.331 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.339 ",.01)
 ;;E13.339
 ;;9002226.02101,"1,E13.339 ",.02)
 ;;E13.339
 ;;9002226.02101,"1,E13.339 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.341 ",.01)
 ;;E13.341
 ;;9002226.02101,"1,E13.341 ",.02)
 ;;E13.341
 ;;9002226.02101,"1,E13.341 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.349 ",.01)
 ;;E13.349
 ;;9002226.02101,"1,E13.349 ",.02)
 ;;E13.349
 ;;9002226.02101,"1,E13.349 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.351 ",.01)
 ;;E13.351
 ;;9002226.02101,"1,E13.351 ",.02)
 ;;E13.351
 ;;9002226.02101,"1,E13.351 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.359 ",.01)
 ;;E13.359
 ;;9002226.02101,"1,E13.359 ",.02)
 ;;E13.359
 ;;9002226.02101,"1,E13.359 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.36 ",.01)
 ;;E13.36
 ;;9002226.02101,"1,E13.36 ",.02)
 ;;E13.36
 ;;9002226.02101,"1,E13.36 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.39 ",.01)
 ;;E13.39
 ;;9002226.02101,"1,E13.39 ",.02)
 ;;E13.39
 ;;9002226.02101,"1,E13.39 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.40 ",.01)
 ;;E13.40
 ;;9002226.02101,"1,E13.40 ",.02)
 ;;E13.40
 ;;9002226.02101,"1,E13.40 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.41 ",.01)
 ;;E13.41
 ;;9002226.02101,"1,E13.41 ",.02)
 ;;E13.41
 ;;9002226.02101,"1,E13.41 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.42 ",.01)
 ;;E13.42
 ;;9002226.02101,"1,E13.42 ",.02)
 ;;E13.42
 ;;9002226.02101,"1,E13.42 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.43 ",.01)
 ;;E13.43
 ;;9002226.02101,"1,E13.43 ",.02)
 ;;E13.43
 ;;9002226.02101,"1,E13.43 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.44 ",.01)
 ;;E13.44
 ;;9002226.02101,"1,E13.44 ",.02)
 ;;E13.44
 ;;9002226.02101,"1,E13.44 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.49 ",.01)
 ;;E13.49
 ;;9002226.02101,"1,E13.49 ",.02)
 ;;E13.49
 ;;9002226.02101,"1,E13.49 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.51 ",.01)
 ;;E13.51
 ;;9002226.02101,"1,E13.51 ",.02)
 ;;E13.51
 ;;9002226.02101,"1,E13.51 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.52 ",.01)
 ;;E13.52
 ;;9002226.02101,"1,E13.52 ",.02)
 ;;E13.52
 ;;9002226.02101,"1,E13.52 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.59 ",.01)
 ;;E13.59
 ;;9002226.02101,"1,E13.59 ",.02)
 ;;E13.59
 ;;9002226.02101,"1,E13.59 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.610 ",.01)
 ;;E13.610
 ;;9002226.02101,"1,E13.610 ",.02)
 ;;E13.610
 ;;9002226.02101,"1,E13.610 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.618 ",.01)
 ;;E13.618
 ;;9002226.02101,"1,E13.618 ",.02)
 ;;E13.618
 ;;9002226.02101,"1,E13.618 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.620 ",.01)
 ;;E13.620
 ;;9002226.02101,"1,E13.620 ",.02)
 ;;E13.620
 ;;9002226.02101,"1,E13.620 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.621 ",.01)
 ;;E13.621
 ;;9002226.02101,"1,E13.621 ",.02)
 ;;E13.621
 ;;9002226.02101,"1,E13.621 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.622 ",.01)
 ;;E13.622
 ;;9002226.02101,"1,E13.622 ",.02)
 ;;E13.622
 ;;9002226.02101,"1,E13.622 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.628 ",.01)
 ;;E13.628
 ;;9002226.02101,"1,E13.628 ",.02)
 ;;E13.628
 ;;9002226.02101,"1,E13.628 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.630 ",.01)
 ;;E13.630
 ;;9002226.02101,"1,E13.630 ",.02)
 ;;E13.630
 ;;9002226.02101,"1,E13.630 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.638 ",.01)
 ;;E13.638
 ;;9002226.02101,"1,E13.638 ",.02)
 ;;E13.638
 ;;9002226.02101,"1,E13.638 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.641 ",.01)
 ;;E13.641
 ;;9002226.02101,"1,E13.641 ",.02)
 ;;E13.641
 ;;9002226.02101,"1,E13.641 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.649 ",.01)
 ;;E13.649
 ;;9002226.02101,"1,E13.649 ",.02)
 ;;E13.649
 ;;9002226.02101,"1,E13.649 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.65 ",.01)
 ;;E13.65
 ;;9002226.02101,"1,E13.65 ",.02)
 ;;E13.65
 ;;9002226.02101,"1,E13.65 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.69 ",.01)
 ;;E13.69
 ;;9002226.02101,"1,E13.69 ",.02)
 ;;E13.69
 ;;9002226.02101,"1,E13.69 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.8 ",.01)
 ;;E13.8
 ;;9002226.02101,"1,E13.8 ",.02)
 ;;E13.8
 ;;9002226.02101,"1,E13.8 ",.03)
 ;;30
 ;;9002226.02101,"1,E13.9 ",.01)
 ;;E13.9
 ;;9002226.02101,"1,E13.9 ",.02)
 ;;E13.9
 ;;9002226.02101,"1,E13.9 ",.03)
 ;;30
 ;;9002226.04101,"1,1",.01)
 ;;APCL
 ;;9002226.04101,"1,2",.01)
 ;;BDM
 ;;9002226.04101,"1,3",.01)
 ;;APCH
 ;;9002226.04101,"1,4",.01)
 ;;BGP