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

ATXXB54.m

Go to the documentation of this file.
  1. ATXXB54 ;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,059630Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05963ZZ ",.01)
  1. ;;05963ZZ
  1. ;;9002226.02101,"1804,05963ZZ ",.02)
  1. ;;05963ZZ
  1. ;;9002226.02101,"1804,05963ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059640Z ",.01)
  1. ;;059640Z
  1. ;;9002226.02101,"1804,059640Z ",.02)
  1. ;;059640Z
  1. ;;9002226.02101,"1804,059640Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05964ZZ ",.01)
  1. ;;05964ZZ
  1. ;;9002226.02101,"1804,05964ZZ ",.02)
  1. ;;05964ZZ
  1. ;;9002226.02101,"1804,05964ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059700Z ",.01)
  1. ;;059700Z
  1. ;;9002226.02101,"1804,059700Z ",.02)
  1. ;;059700Z
  1. ;;9002226.02101,"1804,059700Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05970ZZ ",.01)
  1. ;;05970ZZ
  1. ;;9002226.02101,"1804,05970ZZ ",.02)
  1. ;;05970ZZ
  1. ;;9002226.02101,"1804,05970ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059730Z ",.01)
  1. ;;059730Z
  1. ;;9002226.02101,"1804,059730Z ",.02)
  1. ;;059730Z
  1. ;;9002226.02101,"1804,059730Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05973ZZ ",.01)
  1. ;;05973ZZ
  1. ;;9002226.02101,"1804,05973ZZ ",.02)
  1. ;;05973ZZ
  1. ;;9002226.02101,"1804,05973ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059740Z ",.01)
  1. ;;059740Z
  1. ;;9002226.02101,"1804,059740Z ",.02)
  1. ;;059740Z
  1. ;;9002226.02101,"1804,059740Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05974ZZ ",.01)
  1. ;;05974ZZ
  1. ;;9002226.02101,"1804,05974ZZ ",.02)
  1. ;;05974ZZ
  1. ;;9002226.02101,"1804,05974ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059800Z ",.01)
  1. ;;059800Z
  1. ;;9002226.02101,"1804,059800Z ",.02)
  1. ;;059800Z
  1. ;;9002226.02101,"1804,059800Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05980ZZ ",.01)
  1. ;;05980ZZ
  1. ;;9002226.02101,"1804,05980ZZ ",.02)
  1. ;;05980ZZ
  1. ;;9002226.02101,"1804,05980ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059830Z ",.01)
  1. ;;059830Z
  1. ;;9002226.02101,"1804,059830Z ",.02)
  1. ;;059830Z
  1. ;;9002226.02101,"1804,059830Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05983ZZ ",.01)
  1. ;;05983ZZ
  1. ;;9002226.02101,"1804,05983ZZ ",.02)
  1. ;;05983ZZ
  1. ;;9002226.02101,"1804,05983ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059840Z ",.01)
  1. ;;059840Z
  1. ;;9002226.02101,"1804,059840Z ",.02)
  1. ;;059840Z
  1. ;;9002226.02101,"1804,059840Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05984ZZ ",.01)
  1. ;;05984ZZ
  1. ;;9002226.02101,"1804,05984ZZ ",.02)
  1. ;;05984ZZ
  1. ;;9002226.02101,"1804,05984ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059900Z ",.01)
  1. ;;059900Z
  1. ;;9002226.02101,"1804,059900Z ",.02)
  1. ;;059900Z
  1. ;;9002226.02101,"1804,059900Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05990ZZ ",.01)
  1. ;;05990ZZ
  1. ;;9002226.02101,"1804,05990ZZ ",.02)
  1. ;;05990ZZ
  1. ;;9002226.02101,"1804,05990ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059930Z ",.01)
  1. ;;059930Z
  1. ;;9002226.02101,"1804,059930Z ",.02)
  1. ;;059930Z
  1. ;;9002226.02101,"1804,059930Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05993ZZ ",.01)
  1. ;;05993ZZ
  1. ;;9002226.02101,"1804,05993ZZ ",.02)
  1. ;;05993ZZ
  1. ;;9002226.02101,"1804,05993ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059940Z ",.01)
  1. ;;059940Z
  1. ;;9002226.02101,"1804,059940Z ",.02)
  1. ;;059940Z
  1. ;;9002226.02101,"1804,059940Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05994ZZ ",.01)
  1. ;;05994ZZ
  1. ;;9002226.02101,"1804,05994ZZ ",.02)
  1. ;;05994ZZ
  1. ;;9002226.02101,"1804,05994ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059A00Z ",.01)
  1. ;;059A00Z
  1. ;;9002226.02101,"1804,059A00Z ",.02)
  1. ;;059A00Z
  1. ;;9002226.02101,"1804,059A00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059A0ZZ ",.01)
  1. ;;059A0ZZ
  1. ;;9002226.02101,"1804,059A0ZZ ",.02)
  1. ;;059A0ZZ
  1. ;;9002226.02101,"1804,059A0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059A30Z ",.01)
  1. ;;059A30Z
  1. ;;9002226.02101,"1804,059A30Z ",.02)
  1. ;;059A30Z
  1. ;;9002226.02101,"1804,059A30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059A3ZZ ",.01)
  1. ;;059A3ZZ
  1. ;;9002226.02101,"1804,059A3ZZ ",.02)
  1. ;;059A3ZZ
  1. ;;9002226.02101,"1804,059A3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059A40Z ",.01)
  1. ;;059A40Z
  1. ;;9002226.02101,"1804,059A40Z ",.02)
  1. ;;059A40Z
  1. ;;9002226.02101,"1804,059A40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059A4ZZ ",.01)
  1. ;;059A4ZZ
  1. ;;9002226.02101,"1804,059A4ZZ ",.02)
  1. ;;059A4ZZ
  1. ;;9002226.02101,"1804,059A4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059B00Z ",.01)
  1. ;;059B00Z
  1. ;;9002226.02101,"1804,059B00Z ",.02)
  1. ;;059B00Z
  1. ;;9002226.02101,"1804,059B00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059B0ZZ ",.01)
  1. ;;059B0ZZ
  1. ;;9002226.02101,"1804,059B0ZZ ",.02)
  1. ;;059B0ZZ
  1. ;;9002226.02101,"1804,059B0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059B30Z ",.01)
  1. ;;059B30Z
  1. ;;9002226.02101,"1804,059B30Z ",.02)
  1. ;;059B30Z
  1. ;;9002226.02101,"1804,059B30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059B3ZZ ",.01)
  1. ;;059B3ZZ
  1. ;;9002226.02101,"1804,059B3ZZ ",.02)
  1. ;;059B3ZZ
  1. ;;9002226.02101,"1804,059B3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059B40Z ",.01)
  1. ;;059B40Z
  1. ;;9002226.02101,"1804,059B40Z ",.02)
  1. ;;059B40Z
  1. ;;9002226.02101,"1804,059B40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059B4ZZ ",.01)
  1. ;;059B4ZZ
  1. ;;9002226.02101,"1804,059B4ZZ ",.02)
  1. ;;059B4ZZ
  1. ;;9002226.02101,"1804,059B4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059C00Z ",.01)
  1. ;;059C00Z
  1. ;;9002226.02101,"1804,059C00Z ",.02)
  1. ;;059C00Z
  1. ;;9002226.02101,"1804,059C00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059C0ZZ ",.01)
  1. ;;059C0ZZ
  1. ;;9002226.02101,"1804,059C0ZZ ",.02)
  1. ;;059C0ZZ
  1. ;;9002226.02101,"1804,059C0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059C30Z ",.01)
  1. ;;059C30Z
  1. ;;9002226.02101,"1804,059C30Z ",.02)
  1. ;;059C30Z
  1. ;;9002226.02101,"1804,059C30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059C3ZZ ",.01)
  1. ;;059C3ZZ
  1. ;;9002226.02101,"1804,059C3ZZ ",.02)
  1. ;;059C3ZZ
  1. ;;9002226.02101,"1804,059C3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059C40Z ",.01)
  1. ;;059C40Z
  1. ;;9002226.02101,"1804,059C40Z ",.02)
  1. ;;059C40Z
  1. ;;9002226.02101,"1804,059C40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059C4ZZ ",.01)
  1. ;;059C4ZZ
  1. ;;9002226.02101,"1804,059C4ZZ ",.02)
  1. ;;059C4ZZ
  1. ;;9002226.02101,"1804,059C4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059D00Z ",.01)
  1. ;;059D00Z
  1. ;;9002226.02101,"1804,059D00Z ",.02)
  1. ;;059D00Z
  1. ;;9002226.02101,"1804,059D00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059D0ZZ ",.01)
  1. ;;059D0ZZ
  1. ;;9002226.02101,"1804,059D0ZZ ",.02)
  1. ;;059D0ZZ
  1. ;;9002226.02101,"1804,059D0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059D30Z ",.01)
  1. ;;059D30Z
  1. ;;9002226.02101,"1804,059D30Z ",.02)
  1. ;;059D30Z
  1. ;;9002226.02101,"1804,059D30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059D3ZZ ",.01)
  1. ;;059D3ZZ
  1. ;;9002226.02101,"1804,059D3ZZ ",.02)
  1. ;;059D3ZZ
  1. ;;9002226.02101,"1804,059D3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059D40Z ",.01)
  1. ;;059D40Z
  1. ;;9002226.02101,"1804,059D40Z ",.02)
  1. ;;059D40Z
  1. ;;9002226.02101,"1804,059D40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059D4ZZ ",.01)
  1. ;;059D4ZZ
  1. ;;9002226.02101,"1804,059D4ZZ ",.02)
  1. ;;059D4ZZ
  1. ;;9002226.02101,"1804,059D4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059F00Z ",.01)
  1. ;;059F00Z
  1. ;;9002226.02101,"1804,059F00Z ",.02)
  1. ;;059F00Z
  1. ;;9002226.02101,"1804,059F00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059F0ZZ ",.01)
  1. ;;059F0ZZ
  1. ;;9002226.02101,"1804,059F0ZZ ",.02)
  1. ;;059F0ZZ
  1. ;;9002226.02101,"1804,059F0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059F30Z ",.01)
  1. ;;059F30Z
  1. ;;9002226.02101,"1804,059F30Z ",.02)
  1. ;;059F30Z
  1. ;;9002226.02101,"1804,059F30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059F3ZZ ",.01)
  1. ;;059F3ZZ
  1. ;;9002226.02101,"1804,059F3ZZ ",.02)
  1. ;;059F3ZZ
  1. ;;9002226.02101,"1804,059F3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059F40Z ",.01)
  1. ;;059F40Z
  1. ;;9002226.02101,"1804,059F40Z ",.02)
  1. ;;059F40Z
  1. ;;9002226.02101,"1804,059F40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059F4ZZ ",.01)
  1. ;;059F4ZZ
  1. ;;9002226.02101,"1804,059F4ZZ ",.02)
  1. ;;059F4ZZ
  1. ;;9002226.02101,"1804,059F4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059G00Z ",.01)
  1. ;;059G00Z
  1. ;;9002226.02101,"1804,059G00Z ",.02)
  1. ;;059G00Z
  1. ;;9002226.02101,"1804,059G00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059G0ZZ ",.01)
  1. ;;059G0ZZ
  1. ;;9002226.02101,"1804,059G0ZZ ",.02)
  1. ;;059G0ZZ
  1. ;;9002226.02101,"1804,059G0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059G30Z ",.01)
  1. ;;059G30Z
  1. ;;9002226.02101,"1804,059G30Z ",.02)
  1. ;;059G30Z
  1. ;;9002226.02101,"1804,059G30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059G3ZZ ",.01)
  1. ;;059G3ZZ
  1. ;;9002226.02101,"1804,059G3ZZ ",.02)
  1. ;;059G3ZZ
  1. ;;9002226.02101,"1804,059G3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059G40Z ",.01)
  1. ;;059G40Z
  1. ;;9002226.02101,"1804,059G40Z ",.02)
  1. ;;059G40Z
  1. ;;9002226.02101,"1804,059G40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059G4ZZ ",.01)
  1. ;;059G4ZZ
  1. ;;9002226.02101,"1804,059G4ZZ ",.02)
  1. ;;059G4ZZ
  1. ;;9002226.02101,"1804,059G4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059H00Z ",.01)
  1. ;;059H00Z
  1. ;;9002226.02101,"1804,059H00Z ",.02)
  1. ;;059H00Z
  1. ;;9002226.02101,"1804,059H00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059H0ZZ ",.01)
  1. ;;059H0ZZ
  1. ;;9002226.02101,"1804,059H0ZZ ",.02)
  1. ;;059H0ZZ
  1. ;;9002226.02101,"1804,059H0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059H30Z ",.01)
  1. ;;059H30Z
  1. ;;9002226.02101,"1804,059H30Z ",.02)
  1. ;;059H30Z
  1. ;;9002226.02101,"1804,059H30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059H3ZZ ",.01)
  1. ;;059H3ZZ
  1. ;;9002226.02101,"1804,059H3ZZ ",.02)
  1. ;;059H3ZZ
  1. ;;9002226.02101,"1804,059H3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059H40Z ",.01)
  1. ;;059H40Z
  1. ;;9002226.02101,"1804,059H40Z ",.02)
  1. ;;059H40Z
  1. ;;9002226.02101,"1804,059H40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059H4ZZ ",.01)
  1. ;;059H4ZZ
  1. ;;9002226.02101,"1804,059H4ZZ ",.02)
  1. ;;059H4ZZ
  1. ;;9002226.02101,"1804,059H4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059L00Z ",.01)
  1. ;;059L00Z
  1. ;;9002226.02101,"1804,059L00Z ",.02)
  1. ;;059L00Z
  1. ;;9002226.02101,"1804,059L00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059L0ZZ ",.01)
  1. ;;059L0ZZ
  1. ;;9002226.02101,"1804,059L0ZZ ",.02)
  1. ;;059L0ZZ
  1. ;;9002226.02101,"1804,059L0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059L30Z ",.01)
  1. ;;059L30Z
  1. ;;9002226.02101,"1804,059L30Z ",.02)
  1. ;;059L30Z
  1. ;;9002226.02101,"1804,059L30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059L3ZZ ",.01)
  1. ;;059L3ZZ
  1. ;;9002226.02101,"1804,059L3ZZ ",.02)
  1. ;;059L3ZZ
  1. ;;9002226.02101,"1804,059L3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059L40Z ",.01)
  1. ;;059L40Z
  1. ;;9002226.02101,"1804,059L40Z ",.02)
  1. ;;059L40Z
  1. ;;9002226.02101,"1804,059L40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059L4ZZ ",.01)
  1. ;;059L4ZZ
  1. ;;9002226.02101,"1804,059L4ZZ ",.02)
  1. ;;059L4ZZ
  1. ;;9002226.02101,"1804,059L4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059M00Z ",.01)
  1. ;;059M00Z
  1. ;;9002226.02101,"1804,059M00Z ",.02)
  1. ;;059M00Z
  1. ;;9002226.02101,"1804,059M00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059M0ZZ ",.01)
  1. ;;059M0ZZ
  1. ;;9002226.02101,"1804,059M0ZZ ",.02)
  1. ;;059M0ZZ
  1. ;;9002226.02101,"1804,059M0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059M30Z ",.01)
  1. ;;059M30Z
  1. ;;9002226.02101,"1804,059M30Z ",.02)
  1. ;;059M30Z
  1. ;;9002226.02101,"1804,059M30Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059M3ZZ ",.01)
  1. ;;059M3ZZ
  1. ;;9002226.02101,"1804,059M3ZZ ",.02)
  1. ;;059M3ZZ
  1. ;;9002226.02101,"1804,059M3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059M40Z ",.01)
  1. ;;059M40Z
  1. ;;9002226.02101,"1804,059M40Z ",.02)
  1. ;;059M40Z
  1. ;;9002226.02101,"1804,059M40Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059M4ZZ ",.01)
  1. ;;059M4ZZ
  1. ;;9002226.02101,"1804,059M4ZZ ",.02)
  1. ;;059M4ZZ
  1. ;;9002226.02101,"1804,059M4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059N00Z ",.01)
  1. ;;059N00Z
  1. ;;9002226.02101,"1804,059N00Z ",.02)
  1. ;;059N00Z
  1. ;;9002226.02101,"1804,059N00Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059N0ZZ ",.01)
  1. ;;059N0ZZ
  1. ;;9002226.02101,"1804,059N0ZZ ",.02)
  1. ;;059N0ZZ
  1. ;;9002226.02101,"1804,059N0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059N30Z ",.01)
  1. ;;059N30Z
  1. ;;9002226.02101,"1804,059N30Z ",.02)
  1. ;;059N30Z
  1. ;;9002226.02101,"1804,059N30Z ",.03)
  1. ;;31