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

ATXXB56.m

Go to the documentation of this file.
  1. ATXXB56 ;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,05HC03Z ",.02)
  1. ;;05HC03Z
  1. ;;9002226.02101,"1804,05HC03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HC33Z ",.01)
  1. ;;05HC33Z
  1. ;;9002226.02101,"1804,05HC33Z ",.02)
  1. ;;05HC33Z
  1. ;;9002226.02101,"1804,05HC33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HC43Z ",.01)
  1. ;;05HC43Z
  1. ;;9002226.02101,"1804,05HC43Z ",.02)
  1. ;;05HC43Z
  1. ;;9002226.02101,"1804,05HC43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HD03Z ",.01)
  1. ;;05HD03Z
  1. ;;9002226.02101,"1804,05HD03Z ",.02)
  1. ;;05HD03Z
  1. ;;9002226.02101,"1804,05HD03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HD33Z ",.01)
  1. ;;05HD33Z
  1. ;;9002226.02101,"1804,05HD33Z ",.02)
  1. ;;05HD33Z
  1. ;;9002226.02101,"1804,05HD33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HD43Z ",.01)
  1. ;;05HD43Z
  1. ;;9002226.02101,"1804,05HD43Z ",.02)
  1. ;;05HD43Z
  1. ;;9002226.02101,"1804,05HD43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HF03Z ",.01)
  1. ;;05HF03Z
  1. ;;9002226.02101,"1804,05HF03Z ",.02)
  1. ;;05HF03Z
  1. ;;9002226.02101,"1804,05HF03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HF33Z ",.01)
  1. ;;05HF33Z
  1. ;;9002226.02101,"1804,05HF33Z ",.02)
  1. ;;05HF33Z
  1. ;;9002226.02101,"1804,05HF33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HF43Z ",.01)
  1. ;;05HF43Z
  1. ;;9002226.02101,"1804,05HF43Z ",.02)
  1. ;;05HF43Z
  1. ;;9002226.02101,"1804,05HF43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HG03Z ",.01)
  1. ;;05HG03Z
  1. ;;9002226.02101,"1804,05HG03Z ",.02)
  1. ;;05HG03Z
  1. ;;9002226.02101,"1804,05HG03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HG33Z ",.01)
  1. ;;05HG33Z
  1. ;;9002226.02101,"1804,05HG33Z ",.02)
  1. ;;05HG33Z
  1. ;;9002226.02101,"1804,05HG33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HG43Z ",.01)
  1. ;;05HG43Z
  1. ;;9002226.02101,"1804,05HG43Z ",.02)
  1. ;;05HG43Z
  1. ;;9002226.02101,"1804,05HG43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HH03Z ",.01)
  1. ;;05HH03Z
  1. ;;9002226.02101,"1804,05HH03Z ",.02)
  1. ;;05HH03Z
  1. ;;9002226.02101,"1804,05HH03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HH33Z ",.01)
  1. ;;05HH33Z
  1. ;;9002226.02101,"1804,05HH33Z ",.02)
  1. ;;05HH33Z
  1. ;;9002226.02101,"1804,05HH33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HH43Z ",.01)
  1. ;;05HH43Z
  1. ;;9002226.02101,"1804,05HH43Z ",.02)
  1. ;;05HH43Z
  1. ;;9002226.02101,"1804,05HH43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HL03Z ",.01)
  1. ;;05HL03Z
  1. ;;9002226.02101,"1804,05HL03Z ",.02)
  1. ;;05HL03Z
  1. ;;9002226.02101,"1804,05HL03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HL33Z ",.01)
  1. ;;05HL33Z
  1. ;;9002226.02101,"1804,05HL33Z ",.02)
  1. ;;05HL33Z
  1. ;;9002226.02101,"1804,05HL33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HL43Z ",.01)
  1. ;;05HL43Z
  1. ;;9002226.02101,"1804,05HL43Z ",.02)
  1. ;;05HL43Z
  1. ;;9002226.02101,"1804,05HL43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HM03Z ",.01)
  1. ;;05HM03Z
  1. ;;9002226.02101,"1804,05HM03Z ",.02)
  1. ;;05HM03Z
  1. ;;9002226.02101,"1804,05HM03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HM33Z ",.01)
  1. ;;05HM33Z
  1. ;;9002226.02101,"1804,05HM33Z ",.02)
  1. ;;05HM33Z
  1. ;;9002226.02101,"1804,05HM33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HM43Z ",.01)
  1. ;;05HM43Z
  1. ;;9002226.02101,"1804,05HM43Z ",.02)
  1. ;;05HM43Z
  1. ;;9002226.02101,"1804,05HM43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HN03Z ",.01)
  1. ;;05HN03Z
  1. ;;9002226.02101,"1804,05HN03Z ",.02)
  1. ;;05HN03Z
  1. ;;9002226.02101,"1804,05HN03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HN33Z ",.01)
  1. ;;05HN33Z
  1. ;;9002226.02101,"1804,05HN33Z ",.02)
  1. ;;05HN33Z
  1. ;;9002226.02101,"1804,05HN33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HN43Z ",.01)
  1. ;;05HN43Z
  1. ;;9002226.02101,"1804,05HN43Z ",.02)
  1. ;;05HN43Z
  1. ;;9002226.02101,"1804,05HN43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HP03Z ",.01)
  1. ;;05HP03Z
  1. ;;9002226.02101,"1804,05HP03Z ",.02)
  1. ;;05HP03Z
  1. ;;9002226.02101,"1804,05HP03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HP33Z ",.01)
  1. ;;05HP33Z
  1. ;;9002226.02101,"1804,05HP33Z ",.02)
  1. ;;05HP33Z
  1. ;;9002226.02101,"1804,05HP33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HP43Z ",.01)
  1. ;;05HP43Z
  1. ;;9002226.02101,"1804,05HP43Z ",.02)
  1. ;;05HP43Z
  1. ;;9002226.02101,"1804,05HP43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HQ03Z ",.01)
  1. ;;05HQ03Z
  1. ;;9002226.02101,"1804,05HQ03Z ",.02)
  1. ;;05HQ03Z
  1. ;;9002226.02101,"1804,05HQ03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HQ33Z ",.01)
  1. ;;05HQ33Z
  1. ;;9002226.02101,"1804,05HQ33Z ",.02)
  1. ;;05HQ33Z
  1. ;;9002226.02101,"1804,05HQ33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HQ43Z ",.01)
  1. ;;05HQ43Z
  1. ;;9002226.02101,"1804,05HQ43Z ",.02)
  1. ;;05HQ43Z
  1. ;;9002226.02101,"1804,05HQ43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HR03Z ",.01)
  1. ;;05HR03Z
  1. ;;9002226.02101,"1804,05HR03Z ",.02)
  1. ;;05HR03Z
  1. ;;9002226.02101,"1804,05HR03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HR33Z ",.01)
  1. ;;05HR33Z
  1. ;;9002226.02101,"1804,05HR33Z ",.02)
  1. ;;05HR33Z
  1. ;;9002226.02101,"1804,05HR33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HR43Z ",.01)
  1. ;;05HR43Z
  1. ;;9002226.02101,"1804,05HR43Z ",.02)
  1. ;;05HR43Z
  1. ;;9002226.02101,"1804,05HR43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HS03Z ",.01)
  1. ;;05HS03Z
  1. ;;9002226.02101,"1804,05HS03Z ",.02)
  1. ;;05HS03Z
  1. ;;9002226.02101,"1804,05HS03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HS33Z ",.01)
  1. ;;05HS33Z
  1. ;;9002226.02101,"1804,05HS33Z ",.02)
  1. ;;05HS33Z
  1. ;;9002226.02101,"1804,05HS33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HS43Z ",.01)
  1. ;;05HS43Z
  1. ;;9002226.02101,"1804,05HS43Z ",.02)
  1. ;;05HS43Z
  1. ;;9002226.02101,"1804,05HS43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HT03Z ",.01)
  1. ;;05HT03Z
  1. ;;9002226.02101,"1804,05HT03Z ",.02)
  1. ;;05HT03Z
  1. ;;9002226.02101,"1804,05HT03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HT33Z ",.01)
  1. ;;05HT33Z
  1. ;;9002226.02101,"1804,05HT33Z ",.02)
  1. ;;05HT33Z
  1. ;;9002226.02101,"1804,05HT33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HT43Z ",.01)
  1. ;;05HT43Z
  1. ;;9002226.02101,"1804,05HT43Z ",.02)
  1. ;;05HT43Z
  1. ;;9002226.02101,"1804,05HT43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HV03Z ",.01)
  1. ;;05HV03Z
  1. ;;9002226.02101,"1804,05HV03Z ",.02)
  1. ;;05HV03Z
  1. ;;9002226.02101,"1804,05HV03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HV33Z ",.01)
  1. ;;05HV33Z
  1. ;;9002226.02101,"1804,05HV33Z ",.02)
  1. ;;05HV33Z
  1. ;;9002226.02101,"1804,05HV33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HV43Z ",.01)
  1. ;;05HV43Z
  1. ;;9002226.02101,"1804,05HV43Z ",.02)
  1. ;;05HV43Z
  1. ;;9002226.02101,"1804,05HV43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HY03Z ",.01)
  1. ;;05HY03Z
  1. ;;9002226.02101,"1804,05HY03Z ",.02)
  1. ;;05HY03Z
  1. ;;9002226.02101,"1804,05HY03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HY33Z ",.01)
  1. ;;05HY33Z
  1. ;;9002226.02101,"1804,05HY33Z ",.02)
  1. ;;05HY33Z
  1. ;;9002226.02101,"1804,05HY33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05HY43Z ",.01)
  1. ;;05HY43Z
  1. ;;9002226.02101,"1804,05HY43Z ",.02)
  1. ;;05HY43Z
  1. ;;9002226.02101,"1804,05HY43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05JY0ZZ ",.01)
  1. ;;05JY0ZZ
  1. ;;9002226.02101,"1804,05JY0ZZ ",.02)
  1. ;;05JY0ZZ
  1. ;;9002226.02101,"1804,05JY0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05JY3ZZ ",.01)
  1. ;;05JY3ZZ
  1. ;;9002226.02101,"1804,05JY3ZZ ",.02)
  1. ;;05JY3ZZ
  1. ;;9002226.02101,"1804,05JY3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05JY4ZZ ",.01)
  1. ;;05JY4ZZ
  1. ;;9002226.02101,"1804,05JY4ZZ ",.02)
  1. ;;05JY4ZZ
  1. ;;9002226.02101,"1804,05JY4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05JYXZZ ",.01)
  1. ;;05JYXZZ
  1. ;;9002226.02101,"1804,05JYXZZ ",.02)
  1. ;;05JYXZZ
  1. ;;9002226.02101,"1804,05JYXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05PYX0Z ",.01)
  1. ;;05PYX0Z
  1. ;;9002226.02101,"1804,05PYX0Z ",.02)
  1. ;;05PYX0Z
  1. ;;9002226.02101,"1804,05PYX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05PYX2Z ",.01)
  1. ;;05PYX2Z
  1. ;;9002226.02101,"1804,05PYX2Z ",.02)
  1. ;;05PYX2Z
  1. ;;9002226.02101,"1804,05PYX2Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05PYX3Z ",.01)
  1. ;;05PYX3Z
  1. ;;9002226.02101,"1804,05PYX3Z ",.02)
  1. ;;05PYX3Z
  1. ;;9002226.02101,"1804,05PYX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05PYXDZ ",.01)
  1. ;;05PYXDZ
  1. ;;9002226.02101,"1804,05PYXDZ ",.02)
  1. ;;05PYXDZ
  1. ;;9002226.02101,"1804,05PYXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05WYX0Z ",.01)
  1. ;;05WYX0Z
  1. ;;9002226.02101,"1804,05WYX0Z ",.02)
  1. ;;05WYX0Z
  1. ;;9002226.02101,"1804,05WYX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05WYX2Z ",.01)
  1. ;;05WYX2Z
  1. ;;9002226.02101,"1804,05WYX2Z ",.02)
  1. ;;05WYX2Z
  1. ;;9002226.02101,"1804,05WYX2Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05WYX3Z ",.01)
  1. ;;05WYX3Z
  1. ;;9002226.02101,"1804,05WYX3Z ",.02)
  1. ;;05WYX3Z
  1. ;;9002226.02101,"1804,05WYX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05WYX7Z ",.01)
  1. ;;05WYX7Z
  1. ;;9002226.02101,"1804,05WYX7Z ",.02)
  1. ;;05WYX7Z
  1. ;;9002226.02101,"1804,05WYX7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05WYXCZ ",.01)
  1. ;;05WYXCZ
  1. ;;9002226.02101,"1804,05WYXCZ ",.02)
  1. ;;05WYXCZ
  1. ;;9002226.02101,"1804,05WYXCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05WYXDZ ",.01)
  1. ;;05WYXDZ
  1. ;;9002226.02101,"1804,05WYXDZ ",.02)
  1. ;;05WYXDZ
  1. ;;9002226.02101,"1804,05WYXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05WYXJZ ",.01)
  1. ;;05WYXJZ
  1. ;;9002226.02101,"1804,05WYXJZ ",.02)
  1. ;;05WYXJZ
  1. ;;9002226.02101,"1804,05WYXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05WYXKZ ",.01)
  1. ;;05WYXKZ
  1. ;;9002226.02101,"1804,05WYXKZ ",.02)
  1. ;;05WYXKZ
  1. ;;9002226.02101,"1804,05WYXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,069000Z ",.01)
  1. ;;069000Z
  1. ;;9002226.02101,"1804,069000Z ",.02)
  1. ;;069000Z
  1. ;;9002226.02101,"1804,069000Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06900ZZ ",.01)
  1. ;;06900ZZ
  1. ;;9002226.02101,"1804,06900ZZ ",.02)
  1. ;;06900ZZ
  1. ;;9002226.02101,"1804,06900ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,069030Z ",.01)
  1. ;;069030Z
  1. ;;9002226.02101,"1804,069030Z ",.02)
  1. ;;069030Z
  1. ;;9002226.02101,"1804,069030Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06903ZZ ",.01)
  1. ;;06903ZZ
  1. ;;9002226.02101,"1804,06903ZZ ",.02)
  1. ;;06903ZZ
  1. ;;9002226.02101,"1804,06903ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,069040Z ",.01)
  1. ;;069040Z
  1. ;;9002226.02101,"1804,069040Z ",.02)
  1. ;;069040Z
  1. ;;9002226.02101,"1804,069040Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06904ZZ ",.01)
  1. ;;06904ZZ
  1. ;;9002226.02101,"1804,06904ZZ ",.02)
  1. ;;06904ZZ
  1. ;;9002226.02101,"1804,06904ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,069100Z ",.01)
  1. ;;069100Z
  1. ;;9002226.02101,"1804,069100Z ",.02)
  1. ;;069100Z
  1. ;;9002226.02101,"1804,069100Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06910ZZ ",.01)
  1. ;;06910ZZ
  1. ;;9002226.02101,"1804,06910ZZ ",.02)
  1. ;;06910ZZ
  1. ;;9002226.02101,"1804,06910ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,069130Z ",.01)
  1. ;;069130Z
  1. ;;9002226.02101,"1804,069130Z ",.02)
  1. ;;069130Z
  1. ;;9002226.02101,"1804,069130Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06913ZZ ",.01)
  1. ;;06913ZZ
  1. ;;9002226.02101,"1804,06913ZZ ",.02)
  1. ;;06913ZZ
  1. ;;9002226.02101,"1804,06913ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,069140Z ",.01)
  1. ;;069140Z
  1. ;;9002226.02101,"1804,069140Z ",.02)
  1. ;;069140Z
  1. ;;9002226.02101,"1804,069140Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06914ZZ ",.01)
  1. ;;06914ZZ
  1. ;;9002226.02101,"1804,06914ZZ ",.02)
  1. ;;06914ZZ
  1. ;;9002226.02101,"1804,06914ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,069200Z ",.01)
  1. ;;069200Z
  1. ;;9002226.02101,"1804,069200Z ",.02)
  1. ;;069200Z
  1. ;;9002226.02101,"1804,069200Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06920ZZ ",.01)
  1. ;;06920ZZ
  1. ;;9002226.02101,"1804,06920ZZ ",.02)
  1. ;;06920ZZ
  1. ;;9002226.02101,"1804,06920ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,069230Z ",.01)
  1. ;;069230Z
  1. ;;9002226.02101,"1804,069230Z ",.02)
  1. ;;069230Z
  1. ;;9002226.02101,"1804,069230Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06923ZZ ",.01)
  1. ;;06923ZZ
  1. ;;9002226.02101,"1804,06923ZZ ",.02)
  1. ;;06923ZZ
  1. ;;9002226.02101,"1804,06923ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,069240Z ",.01)
  1. ;;069240Z
  1. ;;9002226.02101,"1804,069240Z ",.02)
  1. ;;069240Z
  1. ;;9002226.02101,"1804,069240Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06924ZZ ",.01)
  1. ;;06924ZZ
  1. ;;9002226.02101,"1804,06924ZZ ",.02)
  1. ;;06924ZZ