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

ATXXA60.m

Go to the documentation of this file.
  1. ATXXA60 ;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,"873,S42.421A ",.01)
  1. ;;S42.421A
  1. ;;9002226.02101,"873,S42.421A ",.02)
  1. ;;S42.421A
  1. ;;9002226.02101,"873,S42.421A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.421B ",.01)
  1. ;;S42.421B
  1. ;;9002226.02101,"873,S42.421B ",.02)
  1. ;;S42.421B
  1. ;;9002226.02101,"873,S42.421B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.422A ",.01)
  1. ;;S42.422A
  1. ;;9002226.02101,"873,S42.422A ",.02)
  1. ;;S42.422A
  1. ;;9002226.02101,"873,S42.422A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.422B ",.01)
  1. ;;S42.422B
  1. ;;9002226.02101,"873,S42.422B ",.02)
  1. ;;S42.422B
  1. ;;9002226.02101,"873,S42.422B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.423A ",.01)
  1. ;;S42.423A
  1. ;;9002226.02101,"873,S42.423A ",.02)
  1. ;;S42.423A
  1. ;;9002226.02101,"873,S42.423A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.423B ",.01)
  1. ;;S42.423B
  1. ;;9002226.02101,"873,S42.423B ",.02)
  1. ;;S42.423B
  1. ;;9002226.02101,"873,S42.423B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.424A ",.01)
  1. ;;S42.424A
  1. ;;9002226.02101,"873,S42.424A ",.02)
  1. ;;S42.424A
  1. ;;9002226.02101,"873,S42.424A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.424B ",.01)
  1. ;;S42.424B
  1. ;;9002226.02101,"873,S42.424B ",.02)
  1. ;;S42.424B
  1. ;;9002226.02101,"873,S42.424B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.425A ",.01)
  1. ;;S42.425A
  1. ;;9002226.02101,"873,S42.425A ",.02)
  1. ;;S42.425A
  1. ;;9002226.02101,"873,S42.425A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.425B ",.01)
  1. ;;S42.425B
  1. ;;9002226.02101,"873,S42.425B ",.02)
  1. ;;S42.425B
  1. ;;9002226.02101,"873,S42.425B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.426A ",.01)
  1. ;;S42.426A
  1. ;;9002226.02101,"873,S42.426A ",.02)
  1. ;;S42.426A
  1. ;;9002226.02101,"873,S42.426A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.426B ",.01)
  1. ;;S42.426B
  1. ;;9002226.02101,"873,S42.426B ",.02)
  1. ;;S42.426B
  1. ;;9002226.02101,"873,S42.426B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.431A ",.01)
  1. ;;S42.431A
  1. ;;9002226.02101,"873,S42.431A ",.02)
  1. ;;S42.431A
  1. ;;9002226.02101,"873,S42.431A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.431B ",.01)
  1. ;;S42.431B
  1. ;;9002226.02101,"873,S42.431B ",.02)
  1. ;;S42.431B
  1. ;;9002226.02101,"873,S42.431B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.432A ",.01)
  1. ;;S42.432A
  1. ;;9002226.02101,"873,S42.432A ",.02)
  1. ;;S42.432A
  1. ;;9002226.02101,"873,S42.432A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.432B ",.01)
  1. ;;S42.432B
  1. ;;9002226.02101,"873,S42.432B ",.02)
  1. ;;S42.432B
  1. ;;9002226.02101,"873,S42.432B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.433A ",.01)
  1. ;;S42.433A
  1. ;;9002226.02101,"873,S42.433A ",.02)
  1. ;;S42.433A
  1. ;;9002226.02101,"873,S42.433A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.433B ",.01)
  1. ;;S42.433B
  1. ;;9002226.02101,"873,S42.433B ",.02)
  1. ;;S42.433B
  1. ;;9002226.02101,"873,S42.433B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.434A ",.01)
  1. ;;S42.434A
  1. ;;9002226.02101,"873,S42.434A ",.02)
  1. ;;S42.434A
  1. ;;9002226.02101,"873,S42.434A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.434B ",.01)
  1. ;;S42.434B
  1. ;;9002226.02101,"873,S42.434B ",.02)
  1. ;;S42.434B
  1. ;;9002226.02101,"873,S42.434B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.435A ",.01)
  1. ;;S42.435A
  1. ;;9002226.02101,"873,S42.435A ",.02)
  1. ;;S42.435A
  1. ;;9002226.02101,"873,S42.435A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.435B ",.01)
  1. ;;S42.435B
  1. ;;9002226.02101,"873,S42.435B ",.02)
  1. ;;S42.435B
  1. ;;9002226.02101,"873,S42.435B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.436A ",.01)
  1. ;;S42.436A
  1. ;;9002226.02101,"873,S42.436A ",.02)
  1. ;;S42.436A
  1. ;;9002226.02101,"873,S42.436A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.436B ",.01)
  1. ;;S42.436B
  1. ;;9002226.02101,"873,S42.436B ",.02)
  1. ;;S42.436B
  1. ;;9002226.02101,"873,S42.436B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.441A ",.01)
  1. ;;S42.441A
  1. ;;9002226.02101,"873,S42.441A ",.02)
  1. ;;S42.441A
  1. ;;9002226.02101,"873,S42.441A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.441B ",.01)
  1. ;;S42.441B
  1. ;;9002226.02101,"873,S42.441B ",.02)
  1. ;;S42.441B
  1. ;;9002226.02101,"873,S42.441B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.442A ",.01)
  1. ;;S42.442A
  1. ;;9002226.02101,"873,S42.442A ",.02)
  1. ;;S42.442A
  1. ;;9002226.02101,"873,S42.442A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.442B ",.01)
  1. ;;S42.442B
  1. ;;9002226.02101,"873,S42.442B ",.02)
  1. ;;S42.442B
  1. ;;9002226.02101,"873,S42.442B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.443A ",.01)
  1. ;;S42.443A
  1. ;;9002226.02101,"873,S42.443A ",.02)
  1. ;;S42.443A
  1. ;;9002226.02101,"873,S42.443A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.443B ",.01)
  1. ;;S42.443B
  1. ;;9002226.02101,"873,S42.443B ",.02)
  1. ;;S42.443B
  1. ;;9002226.02101,"873,S42.443B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.444A ",.01)
  1. ;;S42.444A
  1. ;;9002226.02101,"873,S42.444A ",.02)
  1. ;;S42.444A
  1. ;;9002226.02101,"873,S42.444A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.444B ",.01)
  1. ;;S42.444B
  1. ;;9002226.02101,"873,S42.444B ",.02)
  1. ;;S42.444B
  1. ;;9002226.02101,"873,S42.444B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.445A ",.01)
  1. ;;S42.445A
  1. ;;9002226.02101,"873,S42.445A ",.02)
  1. ;;S42.445A
  1. ;;9002226.02101,"873,S42.445A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.445B ",.01)
  1. ;;S42.445B
  1. ;;9002226.02101,"873,S42.445B ",.02)
  1. ;;S42.445B
  1. ;;9002226.02101,"873,S42.445B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.446A ",.01)
  1. ;;S42.446A
  1. ;;9002226.02101,"873,S42.446A ",.02)
  1. ;;S42.446A
  1. ;;9002226.02101,"873,S42.446A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.446B ",.01)
  1. ;;S42.446B
  1. ;;9002226.02101,"873,S42.446B ",.02)
  1. ;;S42.446B
  1. ;;9002226.02101,"873,S42.446B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.447A ",.01)
  1. ;;S42.447A
  1. ;;9002226.02101,"873,S42.447A ",.02)
  1. ;;S42.447A
  1. ;;9002226.02101,"873,S42.447A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.447B ",.01)
  1. ;;S42.447B
  1. ;;9002226.02101,"873,S42.447B ",.02)
  1. ;;S42.447B
  1. ;;9002226.02101,"873,S42.447B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.448A ",.01)
  1. ;;S42.448A
  1. ;;9002226.02101,"873,S42.448A ",.02)
  1. ;;S42.448A
  1. ;;9002226.02101,"873,S42.448A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.448B ",.01)
  1. ;;S42.448B
  1. ;;9002226.02101,"873,S42.448B ",.02)
  1. ;;S42.448B
  1. ;;9002226.02101,"873,S42.448B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.449A ",.01)
  1. ;;S42.449A
  1. ;;9002226.02101,"873,S42.449A ",.02)
  1. ;;S42.449A
  1. ;;9002226.02101,"873,S42.449A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.449B ",.01)
  1. ;;S42.449B
  1. ;;9002226.02101,"873,S42.449B ",.02)
  1. ;;S42.449B
  1. ;;9002226.02101,"873,S42.449B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.451A ",.01)
  1. ;;S42.451A
  1. ;;9002226.02101,"873,S42.451A ",.02)
  1. ;;S42.451A
  1. ;;9002226.02101,"873,S42.451A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.451B ",.01)
  1. ;;S42.451B
  1. ;;9002226.02101,"873,S42.451B ",.02)
  1. ;;S42.451B
  1. ;;9002226.02101,"873,S42.451B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.452A ",.01)
  1. ;;S42.452A
  1. ;;9002226.02101,"873,S42.452A ",.02)
  1. ;;S42.452A
  1. ;;9002226.02101,"873,S42.452A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.452B ",.01)
  1. ;;S42.452B
  1. ;;9002226.02101,"873,S42.452B ",.02)
  1. ;;S42.452B
  1. ;;9002226.02101,"873,S42.452B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.453A ",.01)
  1. ;;S42.453A
  1. ;;9002226.02101,"873,S42.453A ",.02)
  1. ;;S42.453A
  1. ;;9002226.02101,"873,S42.453A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.453B ",.01)
  1. ;;S42.453B
  1. ;;9002226.02101,"873,S42.453B ",.02)
  1. ;;S42.453B
  1. ;;9002226.02101,"873,S42.453B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.454A ",.01)
  1. ;;S42.454A
  1. ;;9002226.02101,"873,S42.454A ",.02)
  1. ;;S42.454A
  1. ;;9002226.02101,"873,S42.454A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.454B ",.01)
  1. ;;S42.454B
  1. ;;9002226.02101,"873,S42.454B ",.02)
  1. ;;S42.454B
  1. ;;9002226.02101,"873,S42.454B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.455A ",.01)
  1. ;;S42.455A
  1. ;;9002226.02101,"873,S42.455A ",.02)
  1. ;;S42.455A
  1. ;;9002226.02101,"873,S42.455A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.455B ",.01)
  1. ;;S42.455B
  1. ;;9002226.02101,"873,S42.455B ",.02)
  1. ;;S42.455B
  1. ;;9002226.02101,"873,S42.455B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.456A ",.01)
  1. ;;S42.456A
  1. ;;9002226.02101,"873,S42.456A ",.02)
  1. ;;S42.456A
  1. ;;9002226.02101,"873,S42.456A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.456B ",.01)
  1. ;;S42.456B
  1. ;;9002226.02101,"873,S42.456B ",.02)
  1. ;;S42.456B
  1. ;;9002226.02101,"873,S42.456B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.461A ",.01)
  1. ;;S42.461A
  1. ;;9002226.02101,"873,S42.461A ",.02)
  1. ;;S42.461A
  1. ;;9002226.02101,"873,S42.461A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.461B ",.01)
  1. ;;S42.461B
  1. ;;9002226.02101,"873,S42.461B ",.02)
  1. ;;S42.461B
  1. ;;9002226.02101,"873,S42.461B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.462A ",.01)
  1. ;;S42.462A
  1. ;;9002226.02101,"873,S42.462A ",.02)
  1. ;;S42.462A
  1. ;;9002226.02101,"873,S42.462A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.462B ",.01)
  1. ;;S42.462B
  1. ;;9002226.02101,"873,S42.462B ",.02)
  1. ;;S42.462B
  1. ;;9002226.02101,"873,S42.462B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.463A ",.01)
  1. ;;S42.463A
  1. ;;9002226.02101,"873,S42.463A ",.02)
  1. ;;S42.463A
  1. ;;9002226.02101,"873,S42.463A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.463B ",.01)
  1. ;;S42.463B
  1. ;;9002226.02101,"873,S42.463B ",.02)
  1. ;;S42.463B
  1. ;;9002226.02101,"873,S42.463B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.464A ",.01)
  1. ;;S42.464A
  1. ;;9002226.02101,"873,S42.464A ",.02)
  1. ;;S42.464A
  1. ;;9002226.02101,"873,S42.464A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.464B ",.01)
  1. ;;S42.464B
  1. ;;9002226.02101,"873,S42.464B ",.02)
  1. ;;S42.464B
  1. ;;9002226.02101,"873,S42.464B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.465A ",.01)
  1. ;;S42.465A
  1. ;;9002226.02101,"873,S42.465A ",.02)
  1. ;;S42.465A
  1. ;;9002226.02101,"873,S42.465A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.465B ",.01)
  1. ;;S42.465B
  1. ;;9002226.02101,"873,S42.465B ",.02)
  1. ;;S42.465B
  1. ;;9002226.02101,"873,S42.465B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.466A ",.01)
  1. ;;S42.466A
  1. ;;9002226.02101,"873,S42.466A ",.02)
  1. ;;S42.466A
  1. ;;9002226.02101,"873,S42.466A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.466B ",.01)
  1. ;;S42.466B
  1. ;;9002226.02101,"873,S42.466B ",.02)
  1. ;;S42.466B
  1. ;;9002226.02101,"873,S42.466B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.471A ",.01)
  1. ;;S42.471A
  1. ;;9002226.02101,"873,S42.471A ",.02)
  1. ;;S42.471A
  1. ;;9002226.02101,"873,S42.471A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.471B ",.01)
  1. ;;S42.471B
  1. ;;9002226.02101,"873,S42.471B ",.02)
  1. ;;S42.471B
  1. ;;9002226.02101,"873,S42.471B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.472A ",.01)
  1. ;;S42.472A
  1. ;;9002226.02101,"873,S42.472A ",.02)
  1. ;;S42.472A
  1. ;;9002226.02101,"873,S42.472A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.472B ",.01)
  1. ;;S42.472B
  1. ;;9002226.02101,"873,S42.472B ",.02)
  1. ;;S42.472B
  1. ;;9002226.02101,"873,S42.472B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.473A ",.01)
  1. ;;S42.473A
  1. ;;9002226.02101,"873,S42.473A ",.02)
  1. ;;S42.473A
  1. ;;9002226.02101,"873,S42.473A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.473B ",.01)
  1. ;;S42.473B
  1. ;;9002226.02101,"873,S42.473B ",.02)
  1. ;;S42.473B
  1. ;;9002226.02101,"873,S42.473B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.474A ",.01)
  1. ;;S42.474A
  1. ;;9002226.02101,"873,S42.474A ",.02)
  1. ;;S42.474A
  1. ;;9002226.02101,"873,S42.474A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.474B ",.01)
  1. ;;S42.474B
  1. ;;9002226.02101,"873,S42.474B ",.02)
  1. ;;S42.474B
  1. ;;9002226.02101,"873,S42.474B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.475A ",.01)
  1. ;;S42.475A
  1. ;;9002226.02101,"873,S42.475A ",.02)
  1. ;;S42.475A
  1. ;;9002226.02101,"873,S42.475A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.475B ",.01)
  1. ;;S42.475B
  1. ;;9002226.02101,"873,S42.475B ",.02)
  1. ;;S42.475B
  1. ;;9002226.02101,"873,S42.475B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.476A ",.01)
  1. ;;S42.476A
  1. ;;9002226.02101,"873,S42.476A ",.02)
  1. ;;S42.476A
  1. ;;9002226.02101,"873,S42.476A ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.476B ",.01)
  1. ;;S42.476B
  1. ;;9002226.02101,"873,S42.476B ",.02)
  1. ;;S42.476B
  1. ;;9002226.02101,"873,S42.476B ",.03)
  1. ;;30
  1. ;;9002226.02101,"873,S42.481A ",.01)
  1. ;;S42.481A