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

ATXXB55.m

Go to the documentation of this file.
  1. ATXXB55 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 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,"1804,059N3ZZ ",.01)
  1. ;;059N3ZZ
  1. ;;9002226.02101,"1804,059N3ZZ ",.02)
  1. ;;059N3ZZ
  1. ;;9002226.02101,"1804,059N3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059N40Z ",.01)
  1. ;;059N40Z
  1. ;;9002226.02101,"1804,059N40Z ",.02)
  1. ;;059N40Z
  1. ;;9002226.02101,"1804,059N40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059N4ZZ ",.01)
  1. ;;059N4ZZ
  1. ;;9002226.02101,"1804,059N4ZZ ",.02)
  1. ;;059N4ZZ
  1. ;;9002226.02101,"1804,059N4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059P00Z ",.01)
  1. ;;059P00Z
  1. ;;9002226.02101,"1804,059P00Z ",.02)
  1. ;;059P00Z
  1. ;;9002226.02101,"1804,059P00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059P0ZZ ",.01)
  1. ;;059P0ZZ
  1. ;;9002226.02101,"1804,059P0ZZ ",.02)
  1. ;;059P0ZZ
  1. ;;9002226.02101,"1804,059P0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059P30Z ",.01)
  1. ;;059P30Z
  1. ;;9002226.02101,"1804,059P30Z ",.02)
  1. ;;059P30Z
  1. ;;9002226.02101,"1804,059P30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059P3ZZ ",.01)
  1. ;;059P3ZZ
  1. ;;9002226.02101,"1804,059P3ZZ ",.02)
  1. ;;059P3ZZ
  1. ;;9002226.02101,"1804,059P3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059P40Z ",.01)
  1. ;;059P40Z
  1. ;;9002226.02101,"1804,059P40Z ",.02)
  1. ;;059P40Z
  1. ;;9002226.02101,"1804,059P40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059P4ZZ ",.01)
  1. ;;059P4ZZ
  1. ;;9002226.02101,"1804,059P4ZZ ",.02)
  1. ;;059P4ZZ
  1. ;;9002226.02101,"1804,059P4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Q00Z ",.01)
  1. ;;059Q00Z
  1. ;;9002226.02101,"1804,059Q00Z ",.02)
  1. ;;059Q00Z
  1. ;;9002226.02101,"1804,059Q00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Q0ZZ ",.01)
  1. ;;059Q0ZZ
  1. ;;9002226.02101,"1804,059Q0ZZ ",.02)
  1. ;;059Q0ZZ
  1. ;;9002226.02101,"1804,059Q0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Q30Z ",.01)
  1. ;;059Q30Z
  1. ;;9002226.02101,"1804,059Q30Z ",.02)
  1. ;;059Q30Z
  1. ;;9002226.02101,"1804,059Q30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Q3ZZ ",.01)
  1. ;;059Q3ZZ
  1. ;;9002226.02101,"1804,059Q3ZZ ",.02)
  1. ;;059Q3ZZ
  1. ;;9002226.02101,"1804,059Q3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Q40Z ",.01)
  1. ;;059Q40Z
  1. ;;9002226.02101,"1804,059Q40Z ",.02)
  1. ;;059Q40Z
  1. ;;9002226.02101,"1804,059Q40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Q4ZZ ",.01)
  1. ;;059Q4ZZ
  1. ;;9002226.02101,"1804,059Q4ZZ ",.02)
  1. ;;059Q4ZZ
  1. ;;9002226.02101,"1804,059Q4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059R00Z ",.01)
  1. ;;059R00Z
  1. ;;9002226.02101,"1804,059R00Z ",.02)
  1. ;;059R00Z
  1. ;;9002226.02101,"1804,059R00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059R0ZZ ",.01)
  1. ;;059R0ZZ
  1. ;;9002226.02101,"1804,059R0ZZ ",.02)
  1. ;;059R0ZZ
  1. ;;9002226.02101,"1804,059R0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059R30Z ",.01)
  1. ;;059R30Z
  1. ;;9002226.02101,"1804,059R30Z ",.02)
  1. ;;059R30Z
  1. ;;9002226.02101,"1804,059R30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059R3ZZ ",.01)
  1. ;;059R3ZZ
  1. ;;9002226.02101,"1804,059R3ZZ ",.02)
  1. ;;059R3ZZ
  1. ;;9002226.02101,"1804,059R3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059R40Z ",.01)
  1. ;;059R40Z
  1. ;;9002226.02101,"1804,059R40Z ",.02)
  1. ;;059R40Z
  1. ;;9002226.02101,"1804,059R40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059R4ZZ ",.01)
  1. ;;059R4ZZ
  1. ;;9002226.02101,"1804,059R4ZZ ",.02)
  1. ;;059R4ZZ
  1. ;;9002226.02101,"1804,059R4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059S00Z ",.01)
  1. ;;059S00Z
  1. ;;9002226.02101,"1804,059S00Z ",.02)
  1. ;;059S00Z
  1. ;;9002226.02101,"1804,059S00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059S0ZZ ",.01)
  1. ;;059S0ZZ
  1. ;;9002226.02101,"1804,059S0ZZ ",.02)
  1. ;;059S0ZZ
  1. ;;9002226.02101,"1804,059S0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059S30Z ",.01)
  1. ;;059S30Z
  1. ;;9002226.02101,"1804,059S30Z ",.02)
  1. ;;059S30Z
  1. ;;9002226.02101,"1804,059S30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059S3ZZ ",.01)
  1. ;;059S3ZZ
  1. ;;9002226.02101,"1804,059S3ZZ ",.02)
  1. ;;059S3ZZ
  1. ;;9002226.02101,"1804,059S3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059S40Z ",.01)
  1. ;;059S40Z
  1. ;;9002226.02101,"1804,059S40Z ",.02)
  1. ;;059S40Z
  1. ;;9002226.02101,"1804,059S40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059S4ZZ ",.01)
  1. ;;059S4ZZ
  1. ;;9002226.02101,"1804,059S4ZZ ",.02)
  1. ;;059S4ZZ
  1. ;;9002226.02101,"1804,059S4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059T00Z ",.01)
  1. ;;059T00Z
  1. ;;9002226.02101,"1804,059T00Z ",.02)
  1. ;;059T00Z
  1. ;;9002226.02101,"1804,059T00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059T0ZZ ",.01)
  1. ;;059T0ZZ
  1. ;;9002226.02101,"1804,059T0ZZ ",.02)
  1. ;;059T0ZZ
  1. ;;9002226.02101,"1804,059T0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059T30Z ",.01)
  1. ;;059T30Z
  1. ;;9002226.02101,"1804,059T30Z ",.02)
  1. ;;059T30Z
  1. ;;9002226.02101,"1804,059T30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059T3ZZ ",.01)
  1. ;;059T3ZZ
  1. ;;9002226.02101,"1804,059T3ZZ ",.02)
  1. ;;059T3ZZ
  1. ;;9002226.02101,"1804,059T3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059T40Z ",.01)
  1. ;;059T40Z
  1. ;;9002226.02101,"1804,059T40Z ",.02)
  1. ;;059T40Z
  1. ;;9002226.02101,"1804,059T40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059T4ZZ ",.01)
  1. ;;059T4ZZ
  1. ;;9002226.02101,"1804,059T4ZZ ",.02)
  1. ;;059T4ZZ
  1. ;;9002226.02101,"1804,059T4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059V00Z ",.01)
  1. ;;059V00Z
  1. ;;9002226.02101,"1804,059V00Z ",.02)
  1. ;;059V00Z
  1. ;;9002226.02101,"1804,059V00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059V0ZZ ",.01)
  1. ;;059V0ZZ
  1. ;;9002226.02101,"1804,059V0ZZ ",.02)
  1. ;;059V0ZZ
  1. ;;9002226.02101,"1804,059V0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059V30Z ",.01)
  1. ;;059V30Z
  1. ;;9002226.02101,"1804,059V30Z ",.02)
  1. ;;059V30Z
  1. ;;9002226.02101,"1804,059V30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059V3ZZ ",.01)
  1. ;;059V3ZZ
  1. ;;9002226.02101,"1804,059V3ZZ ",.02)
  1. ;;059V3ZZ
  1. ;;9002226.02101,"1804,059V3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059V40Z ",.01)
  1. ;;059V40Z
  1. ;;9002226.02101,"1804,059V40Z ",.02)
  1. ;;059V40Z
  1. ;;9002226.02101,"1804,059V40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059V4ZZ ",.01)
  1. ;;059V4ZZ
  1. ;;9002226.02101,"1804,059V4ZZ ",.02)
  1. ;;059V4ZZ
  1. ;;9002226.02101,"1804,059V4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Y00Z ",.01)
  1. ;;059Y00Z
  1. ;;9002226.02101,"1804,059Y00Z ",.02)
  1. ;;059Y00Z
  1. ;;9002226.02101,"1804,059Y00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Y0ZZ ",.01)
  1. ;;059Y0ZZ
  1. ;;9002226.02101,"1804,059Y0ZZ ",.02)
  1. ;;059Y0ZZ
  1. ;;9002226.02101,"1804,059Y0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Y30Z ",.01)
  1. ;;059Y30Z
  1. ;;9002226.02101,"1804,059Y30Z ",.02)
  1. ;;059Y30Z
  1. ;;9002226.02101,"1804,059Y30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Y3ZZ ",.01)
  1. ;;059Y3ZZ
  1. ;;9002226.02101,"1804,059Y3ZZ ",.02)
  1. ;;059Y3ZZ
  1. ;;9002226.02101,"1804,059Y3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Y40Z ",.01)
  1. ;;059Y40Z
  1. ;;9002226.02101,"1804,059Y40Z ",.02)
  1. ;;059Y40Z
  1. ;;9002226.02101,"1804,059Y40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059Y4ZZ ",.01)
  1. ;;059Y4ZZ
  1. ;;9002226.02101,"1804,059Y4ZZ ",.02)
  1. ;;059Y4ZZ
  1. ;;9002226.02101,"1804,059Y4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H003Z ",.01)
  1. ;;05H003Z
  1. ;;9002226.02101,"1804,05H003Z ",.02)
  1. ;;05H003Z
  1. ;;9002226.02101,"1804,05H003Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H033Z ",.01)
  1. ;;05H033Z
  1. ;;9002226.02101,"1804,05H033Z ",.02)
  1. ;;05H033Z
  1. ;;9002226.02101,"1804,05H033Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H043Z ",.01)
  1. ;;05H043Z
  1. ;;9002226.02101,"1804,05H043Z ",.02)
  1. ;;05H043Z
  1. ;;9002226.02101,"1804,05H043Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H103Z ",.01)
  1. ;;05H103Z
  1. ;;9002226.02101,"1804,05H103Z ",.02)
  1. ;;05H103Z
  1. ;;9002226.02101,"1804,05H103Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H133Z ",.01)
  1. ;;05H133Z
  1. ;;9002226.02101,"1804,05H133Z ",.02)
  1. ;;05H133Z
  1. ;;9002226.02101,"1804,05H133Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H143Z ",.01)
  1. ;;05H143Z
  1. ;;9002226.02101,"1804,05H143Z ",.02)
  1. ;;05H143Z
  1. ;;9002226.02101,"1804,05H143Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H303Z ",.01)
  1. ;;05H303Z
  1. ;;9002226.02101,"1804,05H303Z ",.02)
  1. ;;05H303Z
  1. ;;9002226.02101,"1804,05H303Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H333Z ",.01)
  1. ;;05H333Z
  1. ;;9002226.02101,"1804,05H333Z ",.02)
  1. ;;05H333Z
  1. ;;9002226.02101,"1804,05H333Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H343Z ",.01)
  1. ;;05H343Z
  1. ;;9002226.02101,"1804,05H343Z ",.02)
  1. ;;05H343Z
  1. ;;9002226.02101,"1804,05H343Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H403Z ",.01)
  1. ;;05H403Z
  1. ;;9002226.02101,"1804,05H403Z ",.02)
  1. ;;05H403Z
  1. ;;9002226.02101,"1804,05H403Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H433Z ",.01)
  1. ;;05H433Z
  1. ;;9002226.02101,"1804,05H433Z ",.02)
  1. ;;05H433Z
  1. ;;9002226.02101,"1804,05H433Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H443Z ",.01)
  1. ;;05H443Z
  1. ;;9002226.02101,"1804,05H443Z ",.02)
  1. ;;05H443Z
  1. ;;9002226.02101,"1804,05H443Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H503Z ",.01)
  1. ;;05H503Z
  1. ;;9002226.02101,"1804,05H503Z ",.02)
  1. ;;05H503Z
  1. ;;9002226.02101,"1804,05H503Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H533Z ",.01)
  1. ;;05H533Z
  1. ;;9002226.02101,"1804,05H533Z ",.02)
  1. ;;05H533Z
  1. ;;9002226.02101,"1804,05H533Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H543Z ",.01)
  1. ;;05H543Z
  1. ;;9002226.02101,"1804,05H543Z ",.02)
  1. ;;05H543Z
  1. ;;9002226.02101,"1804,05H543Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H603Z ",.01)
  1. ;;05H603Z
  1. ;;9002226.02101,"1804,05H603Z ",.02)
  1. ;;05H603Z
  1. ;;9002226.02101,"1804,05H603Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H633Z ",.01)
  1. ;;05H633Z
  1. ;;9002226.02101,"1804,05H633Z ",.02)
  1. ;;05H633Z
  1. ;;9002226.02101,"1804,05H633Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H643Z ",.01)
  1. ;;05H643Z
  1. ;;9002226.02101,"1804,05H643Z ",.02)
  1. ;;05H643Z
  1. ;;9002226.02101,"1804,05H643Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H703Z ",.01)
  1. ;;05H703Z
  1. ;;9002226.02101,"1804,05H703Z ",.02)
  1. ;;05H703Z
  1. ;;9002226.02101,"1804,05H703Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H733Z ",.01)
  1. ;;05H733Z
  1. ;;9002226.02101,"1804,05H733Z ",.02)
  1. ;;05H733Z
  1. ;;9002226.02101,"1804,05H733Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H743Z ",.01)
  1. ;;05H743Z
  1. ;;9002226.02101,"1804,05H743Z ",.02)
  1. ;;05H743Z
  1. ;;9002226.02101,"1804,05H743Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H803Z ",.01)
  1. ;;05H803Z
  1. ;;9002226.02101,"1804,05H803Z ",.02)
  1. ;;05H803Z
  1. ;;9002226.02101,"1804,05H803Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H833Z ",.01)
  1. ;;05H833Z
  1. ;;9002226.02101,"1804,05H833Z ",.02)
  1. ;;05H833Z
  1. ;;9002226.02101,"1804,05H833Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H843Z ",.01)
  1. ;;05H843Z
  1. ;;9002226.02101,"1804,05H843Z ",.02)
  1. ;;05H843Z
  1. ;;9002226.02101,"1804,05H843Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H903Z ",.01)
  1. ;;05H903Z
  1. ;;9002226.02101,"1804,05H903Z ",.02)
  1. ;;05H903Z
  1. ;;9002226.02101,"1804,05H903Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H933Z ",.01)
  1. ;;05H933Z
  1. ;;9002226.02101,"1804,05H933Z ",.02)
  1. ;;05H933Z
  1. ;;9002226.02101,"1804,05H933Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05H943Z ",.01)
  1. ;;05H943Z
  1. ;;9002226.02101,"1804,05H943Z ",.02)
  1. ;;05H943Z
  1. ;;9002226.02101,"1804,05H943Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HA03Z ",.01)
  1. ;;05HA03Z
  1. ;;9002226.02101,"1804,05HA03Z ",.02)
  1. ;;05HA03Z
  1. ;;9002226.02101,"1804,05HA03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HA33Z ",.01)
  1. ;;05HA33Z
  1. ;;9002226.02101,"1804,05HA33Z ",.02)
  1. ;;05HA33Z
  1. ;;9002226.02101,"1804,05HA33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HA43Z ",.01)
  1. ;;05HA43Z
  1. ;;9002226.02101,"1804,05HA43Z ",.02)
  1. ;;05HA43Z
  1. ;;9002226.02101,"1804,05HA43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HB03Z ",.01)
  1. ;;05HB03Z
  1. ;;9002226.02101,"1804,05HB03Z ",.02)
  1. ;;05HB03Z
  1. ;;9002226.02101,"1804,05HB03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HB33Z ",.01)
  1. ;;05HB33Z
  1. ;;9002226.02101,"1804,05HB33Z ",.02)
  1. ;;05HB33Z
  1. ;;9002226.02101,"1804,05HB33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HB43Z ",.01)
  1. ;;05HB43Z
  1. ;;9002226.02101,"1804,05HB43Z ",.02)
  1. ;;05HB43Z
  1. ;;9002226.02101,"1804,05HB43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HC03Z ",.01)
  1. ;;05HC03Z