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

ATXXB59.m

Go to the documentation of this file.
  1. ATXXB59 ;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,06H733Z ",.02)
  1. ;;06H733Z
  1. ;;9002226.02101,"1804,06H733Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06H743Z ",.01)
  1. ;;06H743Z
  1. ;;9002226.02101,"1804,06H743Z ",.02)
  1. ;;06H743Z
  1. ;;9002226.02101,"1804,06H743Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06H803Z ",.01)
  1. ;;06H803Z
  1. ;;9002226.02101,"1804,06H803Z ",.02)
  1. ;;06H803Z
  1. ;;9002226.02101,"1804,06H803Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06H833Z ",.01)
  1. ;;06H833Z
  1. ;;9002226.02101,"1804,06H833Z ",.02)
  1. ;;06H833Z
  1. ;;9002226.02101,"1804,06H833Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06H843Z ",.01)
  1. ;;06H843Z
  1. ;;9002226.02101,"1804,06H843Z ",.02)
  1. ;;06H843Z
  1. ;;9002226.02101,"1804,06H843Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06H903Z ",.01)
  1. ;;06H903Z
  1. ;;9002226.02101,"1804,06H903Z ",.02)
  1. ;;06H903Z
  1. ;;9002226.02101,"1804,06H903Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06H933Z ",.01)
  1. ;;06H933Z
  1. ;;9002226.02101,"1804,06H933Z ",.02)
  1. ;;06H933Z
  1. ;;9002226.02101,"1804,06H933Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06H943Z ",.01)
  1. ;;06H943Z
  1. ;;9002226.02101,"1804,06H943Z ",.02)
  1. ;;06H943Z
  1. ;;9002226.02101,"1804,06H943Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HB03Z ",.01)
  1. ;;06HB03Z
  1. ;;9002226.02101,"1804,06HB03Z ",.02)
  1. ;;06HB03Z
  1. ;;9002226.02101,"1804,06HB03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HB33Z ",.01)
  1. ;;06HB33Z
  1. ;;9002226.02101,"1804,06HB33Z ",.02)
  1. ;;06HB33Z
  1. ;;9002226.02101,"1804,06HB33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HB43Z ",.01)
  1. ;;06HB43Z
  1. ;;9002226.02101,"1804,06HB43Z ",.02)
  1. ;;06HB43Z
  1. ;;9002226.02101,"1804,06HB43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HC03Z ",.01)
  1. ;;06HC03Z
  1. ;;9002226.02101,"1804,06HC03Z ",.02)
  1. ;;06HC03Z
  1. ;;9002226.02101,"1804,06HC03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HC33Z ",.01)
  1. ;;06HC33Z
  1. ;;9002226.02101,"1804,06HC33Z ",.02)
  1. ;;06HC33Z
  1. ;;9002226.02101,"1804,06HC33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HC43Z ",.01)
  1. ;;06HC43Z
  1. ;;9002226.02101,"1804,06HC43Z ",.02)
  1. ;;06HC43Z
  1. ;;9002226.02101,"1804,06HC43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HD03Z ",.01)
  1. ;;06HD03Z
  1. ;;9002226.02101,"1804,06HD03Z ",.02)
  1. ;;06HD03Z
  1. ;;9002226.02101,"1804,06HD03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HD33Z ",.01)
  1. ;;06HD33Z
  1. ;;9002226.02101,"1804,06HD33Z ",.02)
  1. ;;06HD33Z
  1. ;;9002226.02101,"1804,06HD33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HD43Z ",.01)
  1. ;;06HD43Z
  1. ;;9002226.02101,"1804,06HD43Z ",.02)
  1. ;;06HD43Z
  1. ;;9002226.02101,"1804,06HD43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HF03Z ",.01)
  1. ;;06HF03Z
  1. ;;9002226.02101,"1804,06HF03Z ",.02)
  1. ;;06HF03Z
  1. ;;9002226.02101,"1804,06HF03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HF33Z ",.01)
  1. ;;06HF33Z
  1. ;;9002226.02101,"1804,06HF33Z ",.02)
  1. ;;06HF33Z
  1. ;;9002226.02101,"1804,06HF33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HF43Z ",.01)
  1. ;;06HF43Z
  1. ;;9002226.02101,"1804,06HF43Z ",.02)
  1. ;;06HF43Z
  1. ;;9002226.02101,"1804,06HF43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HG03Z ",.01)
  1. ;;06HG03Z
  1. ;;9002226.02101,"1804,06HG03Z ",.02)
  1. ;;06HG03Z
  1. ;;9002226.02101,"1804,06HG03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HG33Z ",.01)
  1. ;;06HG33Z
  1. ;;9002226.02101,"1804,06HG33Z ",.02)
  1. ;;06HG33Z
  1. ;;9002226.02101,"1804,06HG33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HG43Z ",.01)
  1. ;;06HG43Z
  1. ;;9002226.02101,"1804,06HG43Z ",.02)
  1. ;;06HG43Z
  1. ;;9002226.02101,"1804,06HG43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HH03Z ",.01)
  1. ;;06HH03Z
  1. ;;9002226.02101,"1804,06HH03Z ",.02)
  1. ;;06HH03Z
  1. ;;9002226.02101,"1804,06HH03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HH33Z ",.01)
  1. ;;06HH33Z
  1. ;;9002226.02101,"1804,06HH33Z ",.02)
  1. ;;06HH33Z
  1. ;;9002226.02101,"1804,06HH33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HH43Z ",.01)
  1. ;;06HH43Z
  1. ;;9002226.02101,"1804,06HH43Z ",.02)
  1. ;;06HH43Z
  1. ;;9002226.02101,"1804,06HH43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HJ03Z ",.01)
  1. ;;06HJ03Z
  1. ;;9002226.02101,"1804,06HJ03Z ",.02)
  1. ;;06HJ03Z
  1. ;;9002226.02101,"1804,06HJ03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HJ33Z ",.01)
  1. ;;06HJ33Z
  1. ;;9002226.02101,"1804,06HJ33Z ",.02)
  1. ;;06HJ33Z
  1. ;;9002226.02101,"1804,06HJ33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HJ43Z ",.01)
  1. ;;06HJ43Z
  1. ;;9002226.02101,"1804,06HJ43Z ",.02)
  1. ;;06HJ43Z
  1. ;;9002226.02101,"1804,06HJ43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HM03Z ",.01)
  1. ;;06HM03Z
  1. ;;9002226.02101,"1804,06HM03Z ",.02)
  1. ;;06HM03Z
  1. ;;9002226.02101,"1804,06HM03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HM33Z ",.01)
  1. ;;06HM33Z
  1. ;;9002226.02101,"1804,06HM33Z ",.02)
  1. ;;06HM33Z
  1. ;;9002226.02101,"1804,06HM33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HM43Z ",.01)
  1. ;;06HM43Z
  1. ;;9002226.02101,"1804,06HM43Z ",.02)
  1. ;;06HM43Z
  1. ;;9002226.02101,"1804,06HM43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HN03Z ",.01)
  1. ;;06HN03Z
  1. ;;9002226.02101,"1804,06HN03Z ",.02)
  1. ;;06HN03Z
  1. ;;9002226.02101,"1804,06HN03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HN33Z ",.01)
  1. ;;06HN33Z
  1. ;;9002226.02101,"1804,06HN33Z ",.02)
  1. ;;06HN33Z
  1. ;;9002226.02101,"1804,06HN33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HN43Z ",.01)
  1. ;;06HN43Z
  1. ;;9002226.02101,"1804,06HN43Z ",.02)
  1. ;;06HN43Z
  1. ;;9002226.02101,"1804,06HN43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HP03Z ",.01)
  1. ;;06HP03Z
  1. ;;9002226.02101,"1804,06HP03Z ",.02)
  1. ;;06HP03Z
  1. ;;9002226.02101,"1804,06HP03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HP33Z ",.01)
  1. ;;06HP33Z
  1. ;;9002226.02101,"1804,06HP33Z ",.02)
  1. ;;06HP33Z
  1. ;;9002226.02101,"1804,06HP33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HP43Z ",.01)
  1. ;;06HP43Z
  1. ;;9002226.02101,"1804,06HP43Z ",.02)
  1. ;;06HP43Z
  1. ;;9002226.02101,"1804,06HP43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HQ03Z ",.01)
  1. ;;06HQ03Z
  1. ;;9002226.02101,"1804,06HQ03Z ",.02)
  1. ;;06HQ03Z
  1. ;;9002226.02101,"1804,06HQ03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HQ33Z ",.01)
  1. ;;06HQ33Z
  1. ;;9002226.02101,"1804,06HQ33Z ",.02)
  1. ;;06HQ33Z
  1. ;;9002226.02101,"1804,06HQ33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HQ43Z ",.01)
  1. ;;06HQ43Z
  1. ;;9002226.02101,"1804,06HQ43Z ",.02)
  1. ;;06HQ43Z
  1. ;;9002226.02101,"1804,06HQ43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HR03Z ",.01)
  1. ;;06HR03Z
  1. ;;9002226.02101,"1804,06HR03Z ",.02)
  1. ;;06HR03Z
  1. ;;9002226.02101,"1804,06HR03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HR33Z ",.01)
  1. ;;06HR33Z
  1. ;;9002226.02101,"1804,06HR33Z ",.02)
  1. ;;06HR33Z
  1. ;;9002226.02101,"1804,06HR33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HR43Z ",.01)
  1. ;;06HR43Z
  1. ;;9002226.02101,"1804,06HR43Z ",.02)
  1. ;;06HR43Z
  1. ;;9002226.02101,"1804,06HR43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HS03Z ",.01)
  1. ;;06HS03Z
  1. ;;9002226.02101,"1804,06HS03Z ",.02)
  1. ;;06HS03Z
  1. ;;9002226.02101,"1804,06HS03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HS33Z ",.01)
  1. ;;06HS33Z
  1. ;;9002226.02101,"1804,06HS33Z ",.02)
  1. ;;06HS33Z
  1. ;;9002226.02101,"1804,06HS33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HS43Z ",.01)
  1. ;;06HS43Z
  1. ;;9002226.02101,"1804,06HS43Z ",.02)
  1. ;;06HS43Z
  1. ;;9002226.02101,"1804,06HS43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HT03Z ",.01)
  1. ;;06HT03Z
  1. ;;9002226.02101,"1804,06HT03Z ",.02)
  1. ;;06HT03Z
  1. ;;9002226.02101,"1804,06HT03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HT33Z ",.01)
  1. ;;06HT33Z
  1. ;;9002226.02101,"1804,06HT33Z ",.02)
  1. ;;06HT33Z
  1. ;;9002226.02101,"1804,06HT33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HT43Z ",.01)
  1. ;;06HT43Z
  1. ;;9002226.02101,"1804,06HT43Z ",.02)
  1. ;;06HT43Z
  1. ;;9002226.02101,"1804,06HT43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HV03Z ",.01)
  1. ;;06HV03Z
  1. ;;9002226.02101,"1804,06HV03Z ",.02)
  1. ;;06HV03Z
  1. ;;9002226.02101,"1804,06HV03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HV33Z ",.01)
  1. ;;06HV33Z
  1. ;;9002226.02101,"1804,06HV33Z ",.02)
  1. ;;06HV33Z
  1. ;;9002226.02101,"1804,06HV33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HV43Z ",.01)
  1. ;;06HV43Z
  1. ;;9002226.02101,"1804,06HV43Z ",.02)
  1. ;;06HV43Z
  1. ;;9002226.02101,"1804,06HV43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HY03Z ",.01)
  1. ;;06HY03Z
  1. ;;9002226.02101,"1804,06HY03Z ",.02)
  1. ;;06HY03Z
  1. ;;9002226.02101,"1804,06HY03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HY33Z ",.01)
  1. ;;06HY33Z
  1. ;;9002226.02101,"1804,06HY33Z ",.02)
  1. ;;06HY33Z
  1. ;;9002226.02101,"1804,06HY33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06HY43Z ",.01)
  1. ;;06HY43Z
  1. ;;9002226.02101,"1804,06HY43Z ",.02)
  1. ;;06HY43Z
  1. ;;9002226.02101,"1804,06HY43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06JY0ZZ ",.01)
  1. ;;06JY0ZZ
  1. ;;9002226.02101,"1804,06JY0ZZ ",.02)
  1. ;;06JY0ZZ
  1. ;;9002226.02101,"1804,06JY0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06JY3ZZ ",.01)
  1. ;;06JY3ZZ
  1. ;;9002226.02101,"1804,06JY3ZZ ",.02)
  1. ;;06JY3ZZ
  1. ;;9002226.02101,"1804,06JY3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06JY4ZZ ",.01)
  1. ;;06JY4ZZ
  1. ;;9002226.02101,"1804,06JY4ZZ ",.02)
  1. ;;06JY4ZZ
  1. ;;9002226.02101,"1804,06JY4ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06JYXZZ ",.01)
  1. ;;06JYXZZ
  1. ;;9002226.02101,"1804,06JYXZZ ",.02)
  1. ;;06JYXZZ
  1. ;;9002226.02101,"1804,06JYXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06PYX0Z ",.01)
  1. ;;06PYX0Z
  1. ;;9002226.02101,"1804,06PYX0Z ",.02)
  1. ;;06PYX0Z
  1. ;;9002226.02101,"1804,06PYX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06PYX2Z ",.01)
  1. ;;06PYX2Z
  1. ;;9002226.02101,"1804,06PYX2Z ",.02)
  1. ;;06PYX2Z
  1. ;;9002226.02101,"1804,06PYX2Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06PYX3Z ",.01)
  1. ;;06PYX3Z
  1. ;;9002226.02101,"1804,06PYX3Z ",.02)
  1. ;;06PYX3Z
  1. ;;9002226.02101,"1804,06PYX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06PYXDZ ",.01)
  1. ;;06PYXDZ
  1. ;;9002226.02101,"1804,06PYXDZ ",.02)
  1. ;;06PYXDZ
  1. ;;9002226.02101,"1804,06PYXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06WYX0Z ",.01)
  1. ;;06WYX0Z
  1. ;;9002226.02101,"1804,06WYX0Z ",.02)
  1. ;;06WYX0Z
  1. ;;9002226.02101,"1804,06WYX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06WYX2Z ",.01)
  1. ;;06WYX2Z
  1. ;;9002226.02101,"1804,06WYX2Z ",.02)
  1. ;;06WYX2Z
  1. ;;9002226.02101,"1804,06WYX2Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06WYX3Z ",.01)
  1. ;;06WYX3Z
  1. ;;9002226.02101,"1804,06WYX3Z ",.02)
  1. ;;06WYX3Z
  1. ;;9002226.02101,"1804,06WYX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06WYX7Z ",.01)
  1. ;;06WYX7Z
  1. ;;9002226.02101,"1804,06WYX7Z ",.02)
  1. ;;06WYX7Z
  1. ;;9002226.02101,"1804,06WYX7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06WYXCZ ",.01)
  1. ;;06WYXCZ
  1. ;;9002226.02101,"1804,06WYXCZ ",.02)
  1. ;;06WYXCZ
  1. ;;9002226.02101,"1804,06WYXCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06WYXDZ ",.01)
  1. ;;06WYXDZ
  1. ;;9002226.02101,"1804,06WYXDZ ",.02)
  1. ;;06WYXDZ
  1. ;;9002226.02101,"1804,06WYXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06WYXJZ ",.01)
  1. ;;06WYXJZ
  1. ;;9002226.02101,"1804,06WYXJZ ",.02)
  1. ;;06WYXJZ
  1. ;;9002226.02101,"1804,06WYXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,06WYXKZ ",.01)
  1. ;;06WYXKZ
  1. ;;9002226.02101,"1804,06WYXKZ ",.02)
  1. ;;06WYXKZ
  1. ;;9002226.02101,"1804,06WYXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072KX0Z ",.01)
  1. ;;072KX0Z
  1. ;;9002226.02101,"1804,072KX0Z ",.02)
  1. ;;072KX0Z
  1. ;;9002226.02101,"1804,072KX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072KXYZ ",.01)
  1. ;;072KXYZ
  1. ;;9002226.02101,"1804,072KXYZ ",.02)
  1. ;;072KXYZ
  1. ;;9002226.02101,"1804,072KXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072LX0Z ",.01)
  1. ;;072LX0Z
  1. ;;9002226.02101,"1804,072LX0Z ",.02)
  1. ;;072LX0Z
  1. ;;9002226.02101,"1804,072LX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072LXYZ ",.01)
  1. ;;072LXYZ
  1. ;;9002226.02101,"1804,072LXYZ ",.02)
  1. ;;072LXYZ
  1. ;;9002226.02101,"1804,072LXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072MX0Z ",.01)
  1. ;;072MX0Z
  1. ;;9002226.02101,"1804,072MX0Z ",.02)
  1. ;;072MX0Z
  1. ;;9002226.02101,"1804,072MX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072MXYZ ",.01)
  1. ;;072MXYZ
  1. ;;9002226.02101,"1804,072MXYZ ",.02)
  1. ;;072MXYZ
  1. ;;9002226.02101,"1804,072MXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072NX0Z ",.01)
  1. ;;072NX0Z
  1. ;;9002226.02101,"1804,072NX0Z ",.02)
  1. ;;072NX0Z