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

ATXXA49.m

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