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

ATXXB48.m

Go to the documentation of this file.
ATXXB48 ;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,"1804,039R00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039R0ZZ ",.01)
 ;;039R0ZZ 
 ;;9002226.02101,"1804,039R0ZZ ",.02)
 ;;039R0ZZ 
 ;;9002226.02101,"1804,039R0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039R30Z ",.01)
 ;;039R30Z 
 ;;9002226.02101,"1804,039R30Z ",.02)
 ;;039R30Z 
 ;;9002226.02101,"1804,039R30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039R3ZZ ",.01)
 ;;039R3ZZ 
 ;;9002226.02101,"1804,039R3ZZ ",.02)
 ;;039R3ZZ 
 ;;9002226.02101,"1804,039R3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039R40Z ",.01)
 ;;039R40Z 
 ;;9002226.02101,"1804,039R40Z ",.02)
 ;;039R40Z 
 ;;9002226.02101,"1804,039R40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039R4ZZ ",.01)
 ;;039R4ZZ 
 ;;9002226.02101,"1804,039R4ZZ ",.02)
 ;;039R4ZZ 
 ;;9002226.02101,"1804,039R4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039S00Z ",.01)
 ;;039S00Z 
 ;;9002226.02101,"1804,039S00Z ",.02)
 ;;039S00Z 
 ;;9002226.02101,"1804,039S00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039S0ZZ ",.01)
 ;;039S0ZZ 
 ;;9002226.02101,"1804,039S0ZZ ",.02)
 ;;039S0ZZ 
 ;;9002226.02101,"1804,039S0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039S30Z ",.01)
 ;;039S30Z 
 ;;9002226.02101,"1804,039S30Z ",.02)
 ;;039S30Z 
 ;;9002226.02101,"1804,039S30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039S3ZZ ",.01)
 ;;039S3ZZ 
 ;;9002226.02101,"1804,039S3ZZ ",.02)
 ;;039S3ZZ 
 ;;9002226.02101,"1804,039S3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039S40Z ",.01)
 ;;039S40Z 
 ;;9002226.02101,"1804,039S40Z ",.02)
 ;;039S40Z 
 ;;9002226.02101,"1804,039S40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039S4ZZ ",.01)
 ;;039S4ZZ 
 ;;9002226.02101,"1804,039S4ZZ ",.02)
 ;;039S4ZZ 
 ;;9002226.02101,"1804,039S4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039T00Z ",.01)
 ;;039T00Z 
 ;;9002226.02101,"1804,039T00Z ",.02)
 ;;039T00Z 
 ;;9002226.02101,"1804,039T00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039T0ZZ ",.01)
 ;;039T0ZZ 
 ;;9002226.02101,"1804,039T0ZZ ",.02)
 ;;039T0ZZ 
 ;;9002226.02101,"1804,039T0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039T30Z ",.01)
 ;;039T30Z 
 ;;9002226.02101,"1804,039T30Z ",.02)
 ;;039T30Z 
 ;;9002226.02101,"1804,039T30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039T3ZZ ",.01)
 ;;039T3ZZ 
 ;;9002226.02101,"1804,039T3ZZ ",.02)
 ;;039T3ZZ 
 ;;9002226.02101,"1804,039T3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039T40Z ",.01)
 ;;039T40Z 
 ;;9002226.02101,"1804,039T40Z ",.02)
 ;;039T40Z 
 ;;9002226.02101,"1804,039T40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039T4ZZ ",.01)
 ;;039T4ZZ 
 ;;9002226.02101,"1804,039T4ZZ ",.02)
 ;;039T4ZZ 
 ;;9002226.02101,"1804,039T4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039U00Z ",.01)
 ;;039U00Z 
 ;;9002226.02101,"1804,039U00Z ",.02)
 ;;039U00Z 
 ;;9002226.02101,"1804,039U00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039U0ZZ ",.01)
 ;;039U0ZZ 
 ;;9002226.02101,"1804,039U0ZZ ",.02)
 ;;039U0ZZ 
 ;;9002226.02101,"1804,039U0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039U30Z ",.01)
 ;;039U30Z 
 ;;9002226.02101,"1804,039U30Z ",.02)
 ;;039U30Z 
 ;;9002226.02101,"1804,039U30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039U3ZZ ",.01)
 ;;039U3ZZ 
 ;;9002226.02101,"1804,039U3ZZ ",.02)
 ;;039U3ZZ 
 ;;9002226.02101,"1804,039U3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039U40Z ",.01)
 ;;039U40Z 
 ;;9002226.02101,"1804,039U40Z ",.02)
 ;;039U40Z 
 ;;9002226.02101,"1804,039U40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039U4ZZ ",.01)
 ;;039U4ZZ 
 ;;9002226.02101,"1804,039U4ZZ ",.02)
 ;;039U4ZZ 
 ;;9002226.02101,"1804,039U4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039V00Z ",.01)
 ;;039V00Z 
 ;;9002226.02101,"1804,039V00Z ",.02)
 ;;039V00Z 
 ;;9002226.02101,"1804,039V00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039V0ZZ ",.01)
 ;;039V0ZZ 
 ;;9002226.02101,"1804,039V0ZZ ",.02)
 ;;039V0ZZ 
 ;;9002226.02101,"1804,039V0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039V30Z ",.01)
 ;;039V30Z 
 ;;9002226.02101,"1804,039V30Z ",.02)
 ;;039V30Z 
 ;;9002226.02101,"1804,039V30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039V3ZZ ",.01)
 ;;039V3ZZ 
 ;;9002226.02101,"1804,039V3ZZ ",.02)
 ;;039V3ZZ 
 ;;9002226.02101,"1804,039V3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039V40Z ",.01)
 ;;039V40Z 
 ;;9002226.02101,"1804,039V40Z ",.02)
 ;;039V40Z 
 ;;9002226.02101,"1804,039V40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039V4ZZ ",.01)
 ;;039V4ZZ 
 ;;9002226.02101,"1804,039V4ZZ ",.02)
 ;;039V4ZZ 
 ;;9002226.02101,"1804,039V4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039Y00Z ",.01)
 ;;039Y00Z 
 ;;9002226.02101,"1804,039Y00Z ",.02)
 ;;039Y00Z 
 ;;9002226.02101,"1804,039Y00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039Y0ZZ ",.01)
 ;;039Y0ZZ 
 ;;9002226.02101,"1804,039Y0ZZ ",.02)
 ;;039Y0ZZ 
 ;;9002226.02101,"1804,039Y0ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039Y30Z ",.01)
 ;;039Y30Z 
 ;;9002226.02101,"1804,039Y30Z ",.02)
 ;;039Y30Z 
 ;;9002226.02101,"1804,039Y30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039Y3ZZ ",.01)
 ;;039Y3ZZ 
 ;;9002226.02101,"1804,039Y3ZZ ",.02)
 ;;039Y3ZZ 
 ;;9002226.02101,"1804,039Y3ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,039Y40Z ",.01)
 ;;039Y40Z 
 ;;9002226.02101,"1804,039Y40Z ",.02)
 ;;039Y40Z 
 ;;9002226.02101,"1804,039Y40Z ",.03)
 ;;31
 ;;9002226.02101,"1804,039Y4ZZ ",.01)
 ;;039Y4ZZ 
 ;;9002226.02101,"1804,039Y4ZZ ",.02)
 ;;039Y4ZZ 
 ;;9002226.02101,"1804,039Y4ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,03H003Z ",.01)
 ;;03H003Z 
 ;;9002226.02101,"1804,03H003Z ",.02)
 ;;03H003Z 
 ;;9002226.02101,"1804,03H003Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H033Z ",.01)
 ;;03H033Z 
 ;;9002226.02101,"1804,03H033Z ",.02)
 ;;03H033Z 
 ;;9002226.02101,"1804,03H033Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H043Z ",.01)
 ;;03H043Z 
 ;;9002226.02101,"1804,03H043Z ",.02)
 ;;03H043Z 
 ;;9002226.02101,"1804,03H043Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H103Z ",.01)
 ;;03H103Z 
 ;;9002226.02101,"1804,03H103Z ",.02)
 ;;03H103Z 
 ;;9002226.02101,"1804,03H103Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H133Z ",.01)
 ;;03H133Z 
 ;;9002226.02101,"1804,03H133Z ",.02)
 ;;03H133Z 
 ;;9002226.02101,"1804,03H133Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H143Z ",.01)
 ;;03H143Z 
 ;;9002226.02101,"1804,03H143Z ",.02)
 ;;03H143Z 
 ;;9002226.02101,"1804,03H143Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H203Z ",.01)
 ;;03H203Z 
 ;;9002226.02101,"1804,03H203Z ",.02)
 ;;03H203Z 
 ;;9002226.02101,"1804,03H203Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H233Z ",.01)
 ;;03H233Z 
 ;;9002226.02101,"1804,03H233Z ",.02)
 ;;03H233Z 
 ;;9002226.02101,"1804,03H233Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H243Z ",.01)
 ;;03H243Z 
 ;;9002226.02101,"1804,03H243Z ",.02)
 ;;03H243Z 
 ;;9002226.02101,"1804,03H243Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H303Z ",.01)
 ;;03H303Z 
 ;;9002226.02101,"1804,03H303Z ",.02)
 ;;03H303Z 
 ;;9002226.02101,"1804,03H303Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H333Z ",.01)
 ;;03H333Z 
 ;;9002226.02101,"1804,03H333Z ",.02)
 ;;03H333Z 
 ;;9002226.02101,"1804,03H333Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H343Z ",.01)
 ;;03H343Z 
 ;;9002226.02101,"1804,03H343Z ",.02)
 ;;03H343Z 
 ;;9002226.02101,"1804,03H343Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H403Z ",.01)
 ;;03H403Z 
 ;;9002226.02101,"1804,03H403Z ",.02)
 ;;03H403Z 
 ;;9002226.02101,"1804,03H403Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H433Z ",.01)
 ;;03H433Z 
 ;;9002226.02101,"1804,03H433Z ",.02)
 ;;03H433Z 
 ;;9002226.02101,"1804,03H433Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H443Z ",.01)
 ;;03H443Z 
 ;;9002226.02101,"1804,03H443Z ",.02)
 ;;03H443Z 
 ;;9002226.02101,"1804,03H443Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H503Z ",.01)
 ;;03H503Z 
 ;;9002226.02101,"1804,03H503Z ",.02)
 ;;03H503Z 
 ;;9002226.02101,"1804,03H503Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H533Z ",.01)
 ;;03H533Z 
 ;;9002226.02101,"1804,03H533Z ",.02)
 ;;03H533Z 
 ;;9002226.02101,"1804,03H533Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H543Z ",.01)
 ;;03H543Z 
 ;;9002226.02101,"1804,03H543Z ",.02)
 ;;03H543Z 
 ;;9002226.02101,"1804,03H543Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H603Z ",.01)
 ;;03H603Z 
 ;;9002226.02101,"1804,03H603Z ",.02)
 ;;03H603Z 
 ;;9002226.02101,"1804,03H603Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H633Z ",.01)
 ;;03H633Z 
 ;;9002226.02101,"1804,03H633Z ",.02)
 ;;03H633Z 
 ;;9002226.02101,"1804,03H633Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H643Z ",.01)
 ;;03H643Z 
 ;;9002226.02101,"1804,03H643Z ",.02)
 ;;03H643Z 
 ;;9002226.02101,"1804,03H643Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H703Z ",.01)
 ;;03H703Z 
 ;;9002226.02101,"1804,03H703Z ",.02)
 ;;03H703Z 
 ;;9002226.02101,"1804,03H703Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H733Z ",.01)
 ;;03H733Z 
 ;;9002226.02101,"1804,03H733Z ",.02)
 ;;03H733Z 
 ;;9002226.02101,"1804,03H733Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H743Z ",.01)
 ;;03H743Z 
 ;;9002226.02101,"1804,03H743Z ",.02)
 ;;03H743Z 
 ;;9002226.02101,"1804,03H743Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H803Z ",.01)
 ;;03H803Z 
 ;;9002226.02101,"1804,03H803Z ",.02)
 ;;03H803Z 
 ;;9002226.02101,"1804,03H803Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H833Z ",.01)
 ;;03H833Z 
 ;;9002226.02101,"1804,03H833Z ",.02)
 ;;03H833Z 
 ;;9002226.02101,"1804,03H833Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H843Z ",.01)
 ;;03H843Z 
 ;;9002226.02101,"1804,03H843Z ",.02)
 ;;03H843Z 
 ;;9002226.02101,"1804,03H843Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H903Z ",.01)
 ;;03H903Z 
 ;;9002226.02101,"1804,03H903Z ",.02)
 ;;03H903Z 
 ;;9002226.02101,"1804,03H903Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H933Z ",.01)
 ;;03H933Z 
 ;;9002226.02101,"1804,03H933Z ",.02)
 ;;03H933Z 
 ;;9002226.02101,"1804,03H933Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03H943Z ",.01)
 ;;03H943Z 
 ;;9002226.02101,"1804,03H943Z ",.02)
 ;;03H943Z 
 ;;9002226.02101,"1804,03H943Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HA03Z ",.01)
 ;;03HA03Z 
 ;;9002226.02101,"1804,03HA03Z ",.02)
 ;;03HA03Z 
 ;;9002226.02101,"1804,03HA03Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HA33Z ",.01)
 ;;03HA33Z 
 ;;9002226.02101,"1804,03HA33Z ",.02)
 ;;03HA33Z 
 ;;9002226.02101,"1804,03HA33Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HA43Z ",.01)
 ;;03HA43Z 
 ;;9002226.02101,"1804,03HA43Z ",.02)
 ;;03HA43Z 
 ;;9002226.02101,"1804,03HA43Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HB03Z ",.01)
 ;;03HB03Z 
 ;;9002226.02101,"1804,03HB03Z ",.02)
 ;;03HB03Z 
 ;;9002226.02101,"1804,03HB03Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HB33Z ",.01)
 ;;03HB33Z 
 ;;9002226.02101,"1804,03HB33Z ",.02)
 ;;03HB33Z 
 ;;9002226.02101,"1804,03HB33Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HB43Z ",.01)
 ;;03HB43Z 
 ;;9002226.02101,"1804,03HB43Z ",.02)
 ;;03HB43Z 
 ;;9002226.02101,"1804,03HB43Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HC03Z ",.01)
 ;;03HC03Z 
 ;;9002226.02101,"1804,03HC03Z ",.02)
 ;;03HC03Z 
 ;;9002226.02101,"1804,03HC03Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HC33Z ",.01)
 ;;03HC33Z 
 ;;9002226.02101,"1804,03HC33Z ",.02)
 ;;03HC33Z 
 ;;9002226.02101,"1804,03HC33Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HC43Z ",.01)
 ;;03HC43Z 
 ;;9002226.02101,"1804,03HC43Z ",.02)
 ;;03HC43Z 
 ;;9002226.02101,"1804,03HC43Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HD03Z ",.01)
 ;;03HD03Z 
 ;;9002226.02101,"1804,03HD03Z ",.02)
 ;;03HD03Z 
 ;;9002226.02101,"1804,03HD03Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HD33Z ",.01)
 ;;03HD33Z 
 ;;9002226.02101,"1804,03HD33Z ",.02)
 ;;03HD33Z 
 ;;9002226.02101,"1804,03HD33Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HD43Z ",.01)
 ;;03HD43Z 
 ;;9002226.02101,"1804,03HD43Z ",.02)
 ;;03HD43Z 
 ;;9002226.02101,"1804,03HD43Z ",.03)
 ;;31
 ;;9002226.02101,"1804,03HF03Z ",.01)
 ;;03HF03Z 
 ;;9002226.02101,"1804,03HF03Z ",.02)
 ;;03HF03Z 
 ;;9002226.02101,"1804,03HF03Z ",.03)
 ;;31