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

ATXXA109.m

Go to the documentation of this file.
ATXXA109 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
 ;;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,"873,S81.839A ",.02)
 ;;S81.839A
 ;;9002226.02101,"873,S81.839A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.841A ",.01)
 ;;S81.841A
 ;;9002226.02101,"873,S81.841A ",.02)
 ;;S81.841A
 ;;9002226.02101,"873,S81.841A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.842A ",.01)
 ;;S81.842A
 ;;9002226.02101,"873,S81.842A ",.02)
 ;;S81.842A
 ;;9002226.02101,"873,S81.842A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.849A ",.01)
 ;;S81.849A
 ;;9002226.02101,"873,S81.849A ",.02)
 ;;S81.849A
 ;;9002226.02101,"873,S81.849A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.851A ",.01)
 ;;S81.851A
 ;;9002226.02101,"873,S81.851A ",.02)
 ;;S81.851A
 ;;9002226.02101,"873,S81.851A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.852A ",.01)
 ;;S81.852A
 ;;9002226.02101,"873,S81.852A ",.02)
 ;;S81.852A
 ;;9002226.02101,"873,S81.852A ",.03)
 ;;30
 ;;9002226.02101,"873,S81.859A ",.01)
 ;;S81.859A
 ;;9002226.02101,"873,S81.859A ",.02)
 ;;S81.859A
 ;;9002226.02101,"873,S81.859A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.001A ",.01)
 ;;S82.001A
 ;;9002226.02101,"873,S82.001A ",.02)
 ;;S82.001A
 ;;9002226.02101,"873,S82.001A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.001B ",.01)
 ;;S82.001B
 ;;9002226.02101,"873,S82.001B ",.02)
 ;;S82.001B
 ;;9002226.02101,"873,S82.001B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.001C ",.01)
 ;;S82.001C
 ;;9002226.02101,"873,S82.001C ",.02)
 ;;S82.001C
 ;;9002226.02101,"873,S82.001C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.002A ",.01)
 ;;S82.002A
 ;;9002226.02101,"873,S82.002A ",.02)
 ;;S82.002A
 ;;9002226.02101,"873,S82.002A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.002B ",.01)
 ;;S82.002B
 ;;9002226.02101,"873,S82.002B ",.02)
 ;;S82.002B
 ;;9002226.02101,"873,S82.002B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.002C ",.01)
 ;;S82.002C
 ;;9002226.02101,"873,S82.002C ",.02)
 ;;S82.002C
 ;;9002226.02101,"873,S82.002C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.009A ",.01)
 ;;S82.009A
 ;;9002226.02101,"873,S82.009A ",.02)
 ;;S82.009A
 ;;9002226.02101,"873,S82.009A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.009B ",.01)
 ;;S82.009B
 ;;9002226.02101,"873,S82.009B ",.02)
 ;;S82.009B
 ;;9002226.02101,"873,S82.009B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.009C ",.01)
 ;;S82.009C
 ;;9002226.02101,"873,S82.009C ",.02)
 ;;S82.009C
 ;;9002226.02101,"873,S82.009C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.011A ",.01)
 ;;S82.011A
 ;;9002226.02101,"873,S82.011A ",.02)
 ;;S82.011A
 ;;9002226.02101,"873,S82.011A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.011B ",.01)
 ;;S82.011B
 ;;9002226.02101,"873,S82.011B ",.02)
 ;;S82.011B
 ;;9002226.02101,"873,S82.011B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.011C ",.01)
 ;;S82.011C
 ;;9002226.02101,"873,S82.011C ",.02)
 ;;S82.011C
 ;;9002226.02101,"873,S82.011C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.012A ",.01)
 ;;S82.012A
 ;;9002226.02101,"873,S82.012A ",.02)
 ;;S82.012A
 ;;9002226.02101,"873,S82.012A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.012B ",.01)
 ;;S82.012B
 ;;9002226.02101,"873,S82.012B ",.02)
 ;;S82.012B
 ;;9002226.02101,"873,S82.012B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.012C ",.01)
 ;;S82.012C
 ;;9002226.02101,"873,S82.012C ",.02)
 ;;S82.012C
 ;;9002226.02101,"873,S82.012C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.013A ",.01)
 ;;S82.013A
 ;;9002226.02101,"873,S82.013A ",.02)
 ;;S82.013A
 ;;9002226.02101,"873,S82.013A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.013B ",.01)
 ;;S82.013B
 ;;9002226.02101,"873,S82.013B ",.02)
 ;;S82.013B
 ;;9002226.02101,"873,S82.013B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.013C ",.01)
 ;;S82.013C
 ;;9002226.02101,"873,S82.013C ",.02)
 ;;S82.013C
 ;;9002226.02101,"873,S82.013C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.014A ",.01)
 ;;S82.014A
 ;;9002226.02101,"873,S82.014A ",.02)
 ;;S82.014A
 ;;9002226.02101,"873,S82.014A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.014B ",.01)
 ;;S82.014B
 ;;9002226.02101,"873,S82.014B ",.02)
 ;;S82.014B
 ;;9002226.02101,"873,S82.014B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.014C ",.01)
 ;;S82.014C
 ;;9002226.02101,"873,S82.014C ",.02)
 ;;S82.014C
 ;;9002226.02101,"873,S82.014C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.015A ",.01)
 ;;S82.015A
 ;;9002226.02101,"873,S82.015A ",.02)
 ;;S82.015A
 ;;9002226.02101,"873,S82.015A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.015B ",.01)
 ;;S82.015B
 ;;9002226.02101,"873,S82.015B ",.02)
 ;;S82.015B
 ;;9002226.02101,"873,S82.015B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.015C ",.01)
 ;;S82.015C
 ;;9002226.02101,"873,S82.015C ",.02)
 ;;S82.015C
 ;;9002226.02101,"873,S82.015C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.016A ",.01)
 ;;S82.016A
 ;;9002226.02101,"873,S82.016A ",.02)
 ;;S82.016A
 ;;9002226.02101,"873,S82.016A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.016B ",.01)
 ;;S82.016B
 ;;9002226.02101,"873,S82.016B ",.02)
 ;;S82.016B
 ;;9002226.02101,"873,S82.016B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.016C ",.01)
 ;;S82.016C
 ;;9002226.02101,"873,S82.016C ",.02)
 ;;S82.016C
 ;;9002226.02101,"873,S82.016C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.021A ",.01)
 ;;S82.021A
 ;;9002226.02101,"873,S82.021A ",.02)
 ;;S82.021A
 ;;9002226.02101,"873,S82.021A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.021B ",.01)
 ;;S82.021B
 ;;9002226.02101,"873,S82.021B ",.02)
 ;;S82.021B
 ;;9002226.02101,"873,S82.021B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.021C ",.01)
 ;;S82.021C
 ;;9002226.02101,"873,S82.021C ",.02)
 ;;S82.021C
 ;;9002226.02101,"873,S82.021C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.022A ",.01)
 ;;S82.022A
 ;;9002226.02101,"873,S82.022A ",.02)
 ;;S82.022A
 ;;9002226.02101,"873,S82.022A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.022B ",.01)
 ;;S82.022B
 ;;9002226.02101,"873,S82.022B ",.02)
 ;;S82.022B
 ;;9002226.02101,"873,S82.022B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.022C ",.01)
 ;;S82.022C
 ;;9002226.02101,"873,S82.022C ",.02)
 ;;S82.022C
 ;;9002226.02101,"873,S82.022C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.023A ",.01)
 ;;S82.023A
 ;;9002226.02101,"873,S82.023A ",.02)
 ;;S82.023A
 ;;9002226.02101,"873,S82.023A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.023B ",.01)
 ;;S82.023B
 ;;9002226.02101,"873,S82.023B ",.02)
 ;;S82.023B
 ;;9002226.02101,"873,S82.023B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.023C ",.01)
 ;;S82.023C
 ;;9002226.02101,"873,S82.023C ",.02)
 ;;S82.023C
 ;;9002226.02101,"873,S82.023C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.024A ",.01)
 ;;S82.024A
 ;;9002226.02101,"873,S82.024A ",.02)
 ;;S82.024A
 ;;9002226.02101,"873,S82.024A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.024B ",.01)
 ;;S82.024B
 ;;9002226.02101,"873,S82.024B ",.02)
 ;;S82.024B
 ;;9002226.02101,"873,S82.024B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.024C ",.01)
 ;;S82.024C
 ;;9002226.02101,"873,S82.024C ",.02)
 ;;S82.024C
 ;;9002226.02101,"873,S82.024C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.025A ",.01)
 ;;S82.025A
 ;;9002226.02101,"873,S82.025A ",.02)
 ;;S82.025A
 ;;9002226.02101,"873,S82.025A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.025B ",.01)
 ;;S82.025B
 ;;9002226.02101,"873,S82.025B ",.02)
 ;;S82.025B
 ;;9002226.02101,"873,S82.025B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.025C ",.01)
 ;;S82.025C
 ;;9002226.02101,"873,S82.025C ",.02)
 ;;S82.025C
 ;;9002226.02101,"873,S82.025C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.026A ",.01)
 ;;S82.026A
 ;;9002226.02101,"873,S82.026A ",.02)
 ;;S82.026A
 ;;9002226.02101,"873,S82.026A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.026B ",.01)
 ;;S82.026B
 ;;9002226.02101,"873,S82.026B ",.02)
 ;;S82.026B
 ;;9002226.02101,"873,S82.026B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.026C ",.01)
 ;;S82.026C
 ;;9002226.02101,"873,S82.026C ",.02)
 ;;S82.026C
 ;;9002226.02101,"873,S82.026C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.031A ",.01)
 ;;S82.031A
 ;;9002226.02101,"873,S82.031A ",.02)
 ;;S82.031A
 ;;9002226.02101,"873,S82.031A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.031B ",.01)
 ;;S82.031B
 ;;9002226.02101,"873,S82.031B ",.02)
 ;;S82.031B
 ;;9002226.02101,"873,S82.031B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.031C ",.01)
 ;;S82.031C
 ;;9002226.02101,"873,S82.031C ",.02)
 ;;S82.031C
 ;;9002226.02101,"873,S82.031C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.032A ",.01)
 ;;S82.032A
 ;;9002226.02101,"873,S82.032A ",.02)
 ;;S82.032A
 ;;9002226.02101,"873,S82.032A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.032B ",.01)
 ;;S82.032B
 ;;9002226.02101,"873,S82.032B ",.02)
 ;;S82.032B
 ;;9002226.02101,"873,S82.032B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.032C ",.01)
 ;;S82.032C
 ;;9002226.02101,"873,S82.032C ",.02)
 ;;S82.032C
 ;;9002226.02101,"873,S82.032C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.033A ",.01)
 ;;S82.033A
 ;;9002226.02101,"873,S82.033A ",.02)
 ;;S82.033A
 ;;9002226.02101,"873,S82.033A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.033B ",.01)
 ;;S82.033B
 ;;9002226.02101,"873,S82.033B ",.02)
 ;;S82.033B
 ;;9002226.02101,"873,S82.033B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.033C ",.01)
 ;;S82.033C
 ;;9002226.02101,"873,S82.033C ",.02)
 ;;S82.033C
 ;;9002226.02101,"873,S82.033C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.034A ",.01)
 ;;S82.034A
 ;;9002226.02101,"873,S82.034A ",.02)
 ;;S82.034A
 ;;9002226.02101,"873,S82.034A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.034B ",.01)
 ;;S82.034B
 ;;9002226.02101,"873,S82.034B ",.02)
 ;;S82.034B
 ;;9002226.02101,"873,S82.034B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.034C ",.01)
 ;;S82.034C
 ;;9002226.02101,"873,S82.034C ",.02)
 ;;S82.034C
 ;;9002226.02101,"873,S82.034C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.035A ",.01)
 ;;S82.035A
 ;;9002226.02101,"873,S82.035A ",.02)
 ;;S82.035A
 ;;9002226.02101,"873,S82.035A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.035B ",.01)
 ;;S82.035B
 ;;9002226.02101,"873,S82.035B ",.02)
 ;;S82.035B
 ;;9002226.02101,"873,S82.035B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.035C ",.01)
 ;;S82.035C
 ;;9002226.02101,"873,S82.035C ",.02)
 ;;S82.035C
 ;;9002226.02101,"873,S82.035C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.036A ",.01)
 ;;S82.036A
 ;;9002226.02101,"873,S82.036A ",.02)
 ;;S82.036A
 ;;9002226.02101,"873,S82.036A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.036B ",.01)
 ;;S82.036B
 ;;9002226.02101,"873,S82.036B ",.02)
 ;;S82.036B
 ;;9002226.02101,"873,S82.036B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.036C ",.01)
 ;;S82.036C
 ;;9002226.02101,"873,S82.036C ",.02)
 ;;S82.036C
 ;;9002226.02101,"873,S82.036C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.041A ",.01)
 ;;S82.041A
 ;;9002226.02101,"873,S82.041A ",.02)
 ;;S82.041A
 ;;9002226.02101,"873,S82.041A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.041B ",.01)
 ;;S82.041B
 ;;9002226.02101,"873,S82.041B ",.02)
 ;;S82.041B
 ;;9002226.02101,"873,S82.041B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.041C ",.01)
 ;;S82.041C
 ;;9002226.02101,"873,S82.041C ",.02)
 ;;S82.041C
 ;;9002226.02101,"873,S82.041C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.042A ",.01)
 ;;S82.042A
 ;;9002226.02101,"873,S82.042A ",.02)
 ;;S82.042A
 ;;9002226.02101,"873,S82.042A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.042B ",.01)
 ;;S82.042B
 ;;9002226.02101,"873,S82.042B ",.02)
 ;;S82.042B
 ;;9002226.02101,"873,S82.042B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.042C ",.01)
 ;;S82.042C
 ;;9002226.02101,"873,S82.042C ",.02)
 ;;S82.042C
 ;;9002226.02101,"873,S82.042C ",.03)
 ;;30
 ;;9002226.02101,"873,S82.043A ",.01)
 ;;S82.043A
 ;;9002226.02101,"873,S82.043A ",.02)
 ;;S82.043A
 ;;9002226.02101,"873,S82.043A ",.03)
 ;;30
 ;;9002226.02101,"873,S82.043B ",.01)
 ;;S82.043B
 ;;9002226.02101,"873,S82.043B ",.02)
 ;;S82.043B
 ;;9002226.02101,"873,S82.043B ",.03)
 ;;30
 ;;9002226.02101,"873,S82.043C ",.01)
 ;;S82.043C
 ;;9002226.02101,"873,S82.043C ",.02)
 ;;S82.043C