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

ATXXB53.m

Go to the documentation of this file.
  1. ATXXB53 ;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,04HN03Z ",.02)
  1. ;;04HN03Z
  1. ;;9002226.02101,"1804,04HN03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HN33Z ",.01)
  1. ;;04HN33Z
  1. ;;9002226.02101,"1804,04HN33Z ",.02)
  1. ;;04HN33Z
  1. ;;9002226.02101,"1804,04HN33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HN43Z ",.01)
  1. ;;04HN43Z
  1. ;;9002226.02101,"1804,04HN43Z ",.02)
  1. ;;04HN43Z
  1. ;;9002226.02101,"1804,04HN43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HP03Z ",.01)
  1. ;;04HP03Z
  1. ;;9002226.02101,"1804,04HP03Z ",.02)
  1. ;;04HP03Z
  1. ;;9002226.02101,"1804,04HP03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HP33Z ",.01)
  1. ;;04HP33Z
  1. ;;9002226.02101,"1804,04HP33Z ",.02)
  1. ;;04HP33Z
  1. ;;9002226.02101,"1804,04HP33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HP43Z ",.01)
  1. ;;04HP43Z
  1. ;;9002226.02101,"1804,04HP43Z ",.02)
  1. ;;04HP43Z
  1. ;;9002226.02101,"1804,04HP43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HQ03Z ",.01)
  1. ;;04HQ03Z
  1. ;;9002226.02101,"1804,04HQ03Z ",.02)
  1. ;;04HQ03Z
  1. ;;9002226.02101,"1804,04HQ03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HQ33Z ",.01)
  1. ;;04HQ33Z
  1. ;;9002226.02101,"1804,04HQ33Z ",.02)
  1. ;;04HQ33Z
  1. ;;9002226.02101,"1804,04HQ33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HQ43Z ",.01)
  1. ;;04HQ43Z
  1. ;;9002226.02101,"1804,04HQ43Z ",.02)
  1. ;;04HQ43Z
  1. ;;9002226.02101,"1804,04HQ43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HR03Z ",.01)
  1. ;;04HR03Z
  1. ;;9002226.02101,"1804,04HR03Z ",.02)
  1. ;;04HR03Z
  1. ;;9002226.02101,"1804,04HR03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HR33Z ",.01)
  1. ;;04HR33Z
  1. ;;9002226.02101,"1804,04HR33Z ",.02)
  1. ;;04HR33Z
  1. ;;9002226.02101,"1804,04HR33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HR43Z ",.01)
  1. ;;04HR43Z
  1. ;;9002226.02101,"1804,04HR43Z ",.02)
  1. ;;04HR43Z
  1. ;;9002226.02101,"1804,04HR43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HS03Z ",.01)
  1. ;;04HS03Z
  1. ;;9002226.02101,"1804,04HS03Z ",.02)
  1. ;;04HS03Z
  1. ;;9002226.02101,"1804,04HS03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HS33Z ",.01)
  1. ;;04HS33Z
  1. ;;9002226.02101,"1804,04HS33Z ",.02)
  1. ;;04HS33Z
  1. ;;9002226.02101,"1804,04HS33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HS43Z ",.01)
  1. ;;04HS43Z
  1. ;;9002226.02101,"1804,04HS43Z ",.02)
  1. ;;04HS43Z
  1. ;;9002226.02101,"1804,04HS43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HT03Z ",.01)
  1. ;;04HT03Z
  1. ;;9002226.02101,"1804,04HT03Z ",.02)
  1. ;;04HT03Z
  1. ;;9002226.02101,"1804,04HT03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HT33Z ",.01)
  1. ;;04HT33Z
  1. ;;9002226.02101,"1804,04HT33Z ",.02)
  1. ;;04HT33Z
  1. ;;9002226.02101,"1804,04HT33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HT43Z ",.01)
  1. ;;04HT43Z
  1. ;;9002226.02101,"1804,04HT43Z ",.02)
  1. ;;04HT43Z
  1. ;;9002226.02101,"1804,04HT43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HU03Z ",.01)
  1. ;;04HU03Z
  1. ;;9002226.02101,"1804,04HU03Z ",.02)
  1. ;;04HU03Z
  1. ;;9002226.02101,"1804,04HU03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HU33Z ",.01)
  1. ;;04HU33Z
  1. ;;9002226.02101,"1804,04HU33Z ",.02)
  1. ;;04HU33Z
  1. ;;9002226.02101,"1804,04HU33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HU43Z ",.01)
  1. ;;04HU43Z
  1. ;;9002226.02101,"1804,04HU43Z ",.02)
  1. ;;04HU43Z
  1. ;;9002226.02101,"1804,04HU43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HV03Z ",.01)
  1. ;;04HV03Z
  1. ;;9002226.02101,"1804,04HV03Z ",.02)
  1. ;;04HV03Z
  1. ;;9002226.02101,"1804,04HV03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HV33Z ",.01)
  1. ;;04HV33Z
  1. ;;9002226.02101,"1804,04HV33Z ",.02)
  1. ;;04HV33Z
  1. ;;9002226.02101,"1804,04HV33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HV43Z ",.01)
  1. ;;04HV43Z
  1. ;;9002226.02101,"1804,04HV43Z ",.02)
  1. ;;04HV43Z
  1. ;;9002226.02101,"1804,04HV43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HW03Z ",.01)
  1. ;;04HW03Z
  1. ;;9002226.02101,"1804,04HW03Z ",.02)
  1. ;;04HW03Z
  1. ;;9002226.02101,"1804,04HW03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HW33Z ",.01)
  1. ;;04HW33Z
  1. ;;9002226.02101,"1804,04HW33Z ",.02)
  1. ;;04HW33Z
  1. ;;9002226.02101,"1804,04HW33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HW43Z ",.01)
  1. ;;04HW43Z
  1. ;;9002226.02101,"1804,04HW43Z ",.02)
  1. ;;04HW43Z
  1. ;;9002226.02101,"1804,04HW43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HY03Z ",.01)
  1. ;;04HY03Z
  1. ;;9002226.02101,"1804,04HY03Z ",.02)
  1. ;;04HY03Z
  1. ;;9002226.02101,"1804,04HY03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HY33Z ",.01)
  1. ;;04HY33Z
  1. ;;9002226.02101,"1804,04HY33Z ",.02)
  1. ;;04HY33Z
  1. ;;9002226.02101,"1804,04HY33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04HY43Z ",.01)
  1. ;;04HY43Z
  1. ;;9002226.02101,"1804,04HY43Z ",.02)
  1. ;;04HY43Z
  1. ;;9002226.02101,"1804,04HY43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04JY0ZZ ",.01)
  1. ;;04JY0ZZ
  1. ;;9002226.02101,"1804,04JY0ZZ ",.02)
  1. ;;04JY0ZZ
  1. ;;9002226.02101,"1804,04JY0ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04JY3ZZ ",.01)
  1. ;;04JY3ZZ
  1. ;;9002226.02101,"1804,04JY3ZZ ",.02)
  1. ;;04JY3ZZ
  1. ;;9002226.02101,"1804,04JY3ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04JYXZZ ",.01)
  1. ;;04JYXZZ
  1. ;;9002226.02101,"1804,04JYXZZ ",.02)
  1. ;;04JYXZZ
  1. ;;9002226.02101,"1804,04JYXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04PYX0Z ",.01)
  1. ;;04PYX0Z
  1. ;;9002226.02101,"1804,04PYX0Z ",.02)
  1. ;;04PYX0Z
  1. ;;9002226.02101,"1804,04PYX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04PYX1Z ",.01)
  1. ;;04PYX1Z
  1. ;;9002226.02101,"1804,04PYX1Z ",.02)
  1. ;;04PYX1Z
  1. ;;9002226.02101,"1804,04PYX1Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04PYX2Z ",.01)
  1. ;;04PYX2Z
  1. ;;9002226.02101,"1804,04PYX2Z ",.02)
  1. ;;04PYX2Z
  1. ;;9002226.02101,"1804,04PYX2Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04PYX3Z ",.01)
  1. ;;04PYX3Z
  1. ;;9002226.02101,"1804,04PYX3Z ",.02)
  1. ;;04PYX3Z
  1. ;;9002226.02101,"1804,04PYX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04PYXDZ ",.01)
  1. ;;04PYXDZ
  1. ;;9002226.02101,"1804,04PYXDZ ",.02)
  1. ;;04PYXDZ
  1. ;;9002226.02101,"1804,04PYXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04WYX0Z ",.01)
  1. ;;04WYX0Z
  1. ;;9002226.02101,"1804,04WYX0Z ",.02)
  1. ;;04WYX0Z
  1. ;;9002226.02101,"1804,04WYX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04WYX2Z ",.01)
  1. ;;04WYX2Z
  1. ;;9002226.02101,"1804,04WYX2Z ",.02)
  1. ;;04WYX2Z
  1. ;;9002226.02101,"1804,04WYX2Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04WYX3Z ",.01)
  1. ;;04WYX3Z
  1. ;;9002226.02101,"1804,04WYX3Z ",.02)
  1. ;;04WYX3Z
  1. ;;9002226.02101,"1804,04WYX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04WYX7Z ",.01)
  1. ;;04WYX7Z
  1. ;;9002226.02101,"1804,04WYX7Z ",.02)
  1. ;;04WYX7Z
  1. ;;9002226.02101,"1804,04WYX7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04WYXCZ ",.01)
  1. ;;04WYXCZ
  1. ;;9002226.02101,"1804,04WYXCZ ",.02)
  1. ;;04WYXCZ
  1. ;;9002226.02101,"1804,04WYXCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04WYXDZ ",.01)
  1. ;;04WYXDZ
  1. ;;9002226.02101,"1804,04WYXDZ ",.02)
  1. ;;04WYXDZ
  1. ;;9002226.02101,"1804,04WYXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04WYXJZ ",.01)
  1. ;;04WYXJZ
  1. ;;9002226.02101,"1804,04WYXJZ ",.02)
  1. ;;04WYXJZ
  1. ;;9002226.02101,"1804,04WYXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,04WYXKZ ",.01)
  1. ;;04WYXKZ
  1. ;;9002226.02101,"1804,04WYXKZ ",.02)
  1. ;;04WYXKZ
  1. ;;9002226.02101,"1804,04WYXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059000Z ",.01)
  1. ;;059000Z
  1. ;;9002226.02101,"1804,059000Z ",.02)
  1. ;;059000Z
  1. ;;9002226.02101,"1804,059000Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05900ZZ ",.01)
  1. ;;05900ZZ
  1. ;;9002226.02101,"1804,05900ZZ ",.02)
  1. ;;05900ZZ
  1. ;;9002226.02101,"1804,05900ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059030Z ",.01)
  1. ;;059030Z
  1. ;;9002226.02101,"1804,059030Z ",.02)
  1. ;;059030Z
  1. ;;9002226.02101,"1804,059030Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05903ZZ ",.01)
  1. ;;05903ZZ
  1. ;;9002226.02101,"1804,05903ZZ ",.02)
  1. ;;05903ZZ
  1. ;;9002226.02101,"1804,05903ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059040Z ",.01)
  1. ;;059040Z
  1. ;;9002226.02101,"1804,059040Z ",.02)
  1. ;;059040Z
  1. ;;9002226.02101,"1804,059040Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05904ZZ ",.01)
  1. ;;05904ZZ
  1. ;;9002226.02101,"1804,05904ZZ ",.02)
  1. ;;05904ZZ
  1. ;;9002226.02101,"1804,05904ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059100Z ",.01)
  1. ;;059100Z
  1. ;;9002226.02101,"1804,059100Z ",.02)
  1. ;;059100Z
  1. ;;9002226.02101,"1804,059100Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05910ZZ ",.01)
  1. ;;05910ZZ
  1. ;;9002226.02101,"1804,05910ZZ ",.02)
  1. ;;05910ZZ
  1. ;;9002226.02101,"1804,05910ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059130Z ",.01)
  1. ;;059130Z
  1. ;;9002226.02101,"1804,059130Z ",.02)
  1. ;;059130Z
  1. ;;9002226.02101,"1804,059130Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05913ZZ ",.01)
  1. ;;05913ZZ
  1. ;;9002226.02101,"1804,05913ZZ ",.02)
  1. ;;05913ZZ
  1. ;;9002226.02101,"1804,05913ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059140Z ",.01)
  1. ;;059140Z
  1. ;;9002226.02101,"1804,059140Z ",.02)
  1. ;;059140Z
  1. ;;9002226.02101,"1804,059140Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05914ZZ ",.01)
  1. ;;05914ZZ
  1. ;;9002226.02101,"1804,05914ZZ ",.02)
  1. ;;05914ZZ
  1. ;;9002226.02101,"1804,05914ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059300Z ",.01)
  1. ;;059300Z
  1. ;;9002226.02101,"1804,059300Z ",.02)
  1. ;;059300Z
  1. ;;9002226.02101,"1804,059300Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05930ZZ ",.01)
  1. ;;05930ZZ
  1. ;;9002226.02101,"1804,05930ZZ ",.02)
  1. ;;05930ZZ
  1. ;;9002226.02101,"1804,05930ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059330Z ",.01)
  1. ;;059330Z
  1. ;;9002226.02101,"1804,059330Z ",.02)
  1. ;;059330Z
  1. ;;9002226.02101,"1804,059330Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05933ZZ ",.01)
  1. ;;05933ZZ
  1. ;;9002226.02101,"1804,05933ZZ ",.02)
  1. ;;05933ZZ
  1. ;;9002226.02101,"1804,05933ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059340Z ",.01)
  1. ;;059340Z
  1. ;;9002226.02101,"1804,059340Z ",.02)
  1. ;;059340Z
  1. ;;9002226.02101,"1804,059340Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05934ZZ ",.01)
  1. ;;05934ZZ
  1. ;;9002226.02101,"1804,05934ZZ ",.02)
  1. ;;05934ZZ
  1. ;;9002226.02101,"1804,05934ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059400Z ",.01)
  1. ;;059400Z
  1. ;;9002226.02101,"1804,059400Z ",.02)
  1. ;;059400Z
  1. ;;9002226.02101,"1804,059400Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05940ZZ ",.01)
  1. ;;05940ZZ
  1. ;;9002226.02101,"1804,05940ZZ ",.02)
  1. ;;05940ZZ
  1. ;;9002226.02101,"1804,05940ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059430Z ",.01)
  1. ;;059430Z
  1. ;;9002226.02101,"1804,059430Z ",.02)
  1. ;;059430Z
  1. ;;9002226.02101,"1804,059430Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05943ZZ ",.01)
  1. ;;05943ZZ
  1. ;;9002226.02101,"1804,05943ZZ ",.02)
  1. ;;05943ZZ
  1. ;;9002226.02101,"1804,05943ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059440Z ",.01)
  1. ;;059440Z
  1. ;;9002226.02101,"1804,059440Z ",.02)
  1. ;;059440Z
  1. ;;9002226.02101,"1804,059440Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05944ZZ ",.01)
  1. ;;05944ZZ
  1. ;;9002226.02101,"1804,05944ZZ ",.02)
  1. ;;05944ZZ
  1. ;;9002226.02101,"1804,05944ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059500Z ",.01)
  1. ;;059500Z
  1. ;;9002226.02101,"1804,059500Z ",.02)
  1. ;;059500Z
  1. ;;9002226.02101,"1804,059500Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05950ZZ ",.01)
  1. ;;05950ZZ
  1. ;;9002226.02101,"1804,05950ZZ ",.02)
  1. ;;05950ZZ
  1. ;;9002226.02101,"1804,05950ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059530Z ",.01)
  1. ;;059530Z
  1. ;;9002226.02101,"1804,059530Z ",.02)
  1. ;;059530Z
  1. ;;9002226.02101,"1804,059530Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05953ZZ ",.01)
  1. ;;05953ZZ
  1. ;;9002226.02101,"1804,05953ZZ ",.02)
  1. ;;05953ZZ
  1. ;;9002226.02101,"1804,05953ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059540Z ",.01)
  1. ;;059540Z
  1. ;;9002226.02101,"1804,059540Z ",.02)
  1. ;;059540Z
  1. ;;9002226.02101,"1804,059540Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05954ZZ ",.01)
  1. ;;05954ZZ
  1. ;;9002226.02101,"1804,05954ZZ ",.02)
  1. ;;05954ZZ
  1. ;;9002226.02101,"1804,05954ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059600Z ",.01)
  1. ;;059600Z
  1. ;;9002226.02101,"1804,059600Z ",.02)
  1. ;;059600Z
  1. ;;9002226.02101,"1804,059600Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,05960ZZ ",.01)
  1. ;;05960ZZ
  1. ;;9002226.02101,"1804,05960ZZ ",.02)
  1. ;;05960ZZ
  1. ;;9002226.02101,"1804,05960ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,059630Z ",.01)
  1. ;;059630Z
  1. ;;9002226.02101,"1804,059630Z ",.02)
  1. ;;059630Z