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

ATXXB116.m

Go to the documentation of this file.
  1. ATXXB116 ;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,0WCPXZZ ",.02)
  1. ;;0WCPXZZ
  1. ;;9002226.02101,"1804,0WCPXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WCQXZZ ",.01)
  1. ;;0WCQXZZ
  1. ;;9002226.02101,"1804,0WCQXZZ ",.02)
  1. ;;0WCQXZZ
  1. ;;9002226.02101,"1804,0WCQXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WCRXZZ ",.01)
  1. ;;0WCRXZZ
  1. ;;9002226.02101,"1804,0WCRXZZ ",.02)
  1. ;;0WCRXZZ
  1. ;;9002226.02101,"1804,0WCRXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WF1XZZ ",.01)
  1. ;;0WF1XZZ
  1. ;;9002226.02101,"1804,0WF1XZZ ",.02)
  1. ;;0WF1XZZ
  1. ;;9002226.02101,"1804,0WF1XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WF3XZZ ",.01)
  1. ;;0WF3XZZ
  1. ;;9002226.02101,"1804,0WF3XZZ ",.02)
  1. ;;0WF3XZZ
  1. ;;9002226.02101,"1804,0WF3XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WF9XZZ ",.01)
  1. ;;0WF9XZZ
  1. ;;9002226.02101,"1804,0WF9XZZ ",.02)
  1. ;;0WF9XZZ
  1. ;;9002226.02101,"1804,0WF9XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WFBXZZ ",.01)
  1. ;;0WFBXZZ
  1. ;;9002226.02101,"1804,0WFBXZZ ",.02)
  1. ;;0WFBXZZ
  1. ;;9002226.02101,"1804,0WFBXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WFCXZZ ",.01)
  1. ;;0WFCXZZ
  1. ;;9002226.02101,"1804,0WFCXZZ ",.02)
  1. ;;0WFCXZZ
  1. ;;9002226.02101,"1804,0WFCXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WFGXZZ ",.01)
  1. ;;0WFGXZZ
  1. ;;9002226.02101,"1804,0WFGXZZ ",.02)
  1. ;;0WFGXZZ
  1. ;;9002226.02101,"1804,0WFGXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WFJXZZ ",.01)
  1. ;;0WFJXZZ
  1. ;;9002226.02101,"1804,0WFJXZZ ",.02)
  1. ;;0WFJXZZ
  1. ;;9002226.02101,"1804,0WFJXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WFPXZZ ",.01)
  1. ;;0WFPXZZ
  1. ;;9002226.02101,"1804,0WFPXZZ ",.02)
  1. ;;0WFPXZZ
  1. ;;9002226.02101,"1804,0WFPXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WFQXZZ ",.01)
  1. ;;0WFQXZZ
  1. ;;9002226.02101,"1804,0WFQXZZ ",.02)
  1. ;;0WFQXZZ
  1. ;;9002226.02101,"1804,0WFQXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WFRXZZ ",.01)
  1. ;;0WFRXZZ
  1. ;;9002226.02101,"1804,0WFRXZZ ",.02)
  1. ;;0WFRXZZ
  1. ;;9002226.02101,"1804,0WFRXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH001Z ",.01)
  1. ;;0WH001Z
  1. ;;9002226.02101,"1804,0WH001Z ",.02)
  1. ;;0WH001Z
  1. ;;9002226.02101,"1804,0WH001Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH003Z ",.01)
  1. ;;0WH003Z
  1. ;;9002226.02101,"1804,0WH003Z ",.02)
  1. ;;0WH003Z
  1. ;;9002226.02101,"1804,0WH003Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH00YZ ",.01)
  1. ;;0WH00YZ
  1. ;;9002226.02101,"1804,0WH00YZ ",.02)
  1. ;;0WH00YZ
  1. ;;9002226.02101,"1804,0WH00YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH031Z ",.01)
  1. ;;0WH031Z
  1. ;;9002226.02101,"1804,0WH031Z ",.02)
  1. ;;0WH031Z
  1. ;;9002226.02101,"1804,0WH031Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH033Z ",.01)
  1. ;;0WH033Z
  1. ;;9002226.02101,"1804,0WH033Z ",.02)
  1. ;;0WH033Z
  1. ;;9002226.02101,"1804,0WH033Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH03YZ ",.01)
  1. ;;0WH03YZ
  1. ;;9002226.02101,"1804,0WH03YZ ",.02)
  1. ;;0WH03YZ
  1. ;;9002226.02101,"1804,0WH03YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH041Z ",.01)
  1. ;;0WH041Z
  1. ;;9002226.02101,"1804,0WH041Z ",.02)
  1. ;;0WH041Z
  1. ;;9002226.02101,"1804,0WH041Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH043Z ",.01)
  1. ;;0WH043Z
  1. ;;9002226.02101,"1804,0WH043Z ",.02)
  1. ;;0WH043Z
  1. ;;9002226.02101,"1804,0WH043Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH04YZ ",.01)
  1. ;;0WH04YZ
  1. ;;9002226.02101,"1804,0WH04YZ ",.02)
  1. ;;0WH04YZ
  1. ;;9002226.02101,"1804,0WH04YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH101Z ",.01)
  1. ;;0WH101Z
  1. ;;9002226.02101,"1804,0WH101Z ",.02)
  1. ;;0WH101Z
  1. ;;9002226.02101,"1804,0WH101Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH131Z ",.01)
  1. ;;0WH131Z
  1. ;;9002226.02101,"1804,0WH131Z ",.02)
  1. ;;0WH131Z
  1. ;;9002226.02101,"1804,0WH131Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH141Z ",.01)
  1. ;;0WH141Z
  1. ;;9002226.02101,"1804,0WH141Z ",.02)
  1. ;;0WH141Z
  1. ;;9002226.02101,"1804,0WH141Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH201Z ",.01)
  1. ;;0WH201Z
  1. ;;9002226.02101,"1804,0WH201Z ",.02)
  1. ;;0WH201Z
  1. ;;9002226.02101,"1804,0WH201Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH203Z ",.01)
  1. ;;0WH203Z
  1. ;;9002226.02101,"1804,0WH203Z ",.02)
  1. ;;0WH203Z
  1. ;;9002226.02101,"1804,0WH203Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH20YZ ",.01)
  1. ;;0WH20YZ
  1. ;;9002226.02101,"1804,0WH20YZ ",.02)
  1. ;;0WH20YZ
  1. ;;9002226.02101,"1804,0WH20YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH231Z ",.01)
  1. ;;0WH231Z
  1. ;;9002226.02101,"1804,0WH231Z ",.02)
  1. ;;0WH231Z
  1. ;;9002226.02101,"1804,0WH231Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH233Z ",.01)
  1. ;;0WH233Z
  1. ;;9002226.02101,"1804,0WH233Z ",.02)
  1. ;;0WH233Z
  1. ;;9002226.02101,"1804,0WH233Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH23YZ ",.01)
  1. ;;0WH23YZ
  1. ;;9002226.02101,"1804,0WH23YZ ",.02)
  1. ;;0WH23YZ
  1. ;;9002226.02101,"1804,0WH23YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH241Z ",.01)
  1. ;;0WH241Z
  1. ;;9002226.02101,"1804,0WH241Z ",.02)
  1. ;;0WH241Z
  1. ;;9002226.02101,"1804,0WH241Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH243Z ",.01)
  1. ;;0WH243Z
  1. ;;9002226.02101,"1804,0WH243Z ",.02)
  1. ;;0WH243Z
  1. ;;9002226.02101,"1804,0WH243Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH24YZ ",.01)
  1. ;;0WH24YZ
  1. ;;9002226.02101,"1804,0WH24YZ ",.02)
  1. ;;0WH24YZ
  1. ;;9002226.02101,"1804,0WH24YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH301Z ",.01)
  1. ;;0WH301Z
  1. ;;9002226.02101,"1804,0WH301Z ",.02)
  1. ;;0WH301Z
  1. ;;9002226.02101,"1804,0WH301Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH331Z ",.01)
  1. ;;0WH331Z
  1. ;;9002226.02101,"1804,0WH331Z ",.02)
  1. ;;0WH331Z
  1. ;;9002226.02101,"1804,0WH331Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH341Z ",.01)
  1. ;;0WH341Z
  1. ;;9002226.02101,"1804,0WH341Z ",.02)
  1. ;;0WH341Z
  1. ;;9002226.02101,"1804,0WH341Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH401Z ",.01)
  1. ;;0WH401Z
  1. ;;9002226.02101,"1804,0WH401Z ",.02)
  1. ;;0WH401Z
  1. ;;9002226.02101,"1804,0WH401Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH403Z ",.01)
  1. ;;0WH403Z
  1. ;;9002226.02101,"1804,0WH403Z ",.02)
  1. ;;0WH403Z
  1. ;;9002226.02101,"1804,0WH403Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH40YZ ",.01)
  1. ;;0WH40YZ
  1. ;;9002226.02101,"1804,0WH40YZ ",.02)
  1. ;;0WH40YZ
  1. ;;9002226.02101,"1804,0WH40YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH431Z ",.01)
  1. ;;0WH431Z
  1. ;;9002226.02101,"1804,0WH431Z ",.02)
  1. ;;0WH431Z
  1. ;;9002226.02101,"1804,0WH431Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH433Z ",.01)
  1. ;;0WH433Z
  1. ;;9002226.02101,"1804,0WH433Z ",.02)
  1. ;;0WH433Z
  1. ;;9002226.02101,"1804,0WH433Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH43YZ ",.01)
  1. ;;0WH43YZ
  1. ;;9002226.02101,"1804,0WH43YZ ",.02)
  1. ;;0WH43YZ
  1. ;;9002226.02101,"1804,0WH43YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH441Z ",.01)
  1. ;;0WH441Z
  1. ;;9002226.02101,"1804,0WH441Z ",.02)
  1. ;;0WH441Z
  1. ;;9002226.02101,"1804,0WH441Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH443Z ",.01)
  1. ;;0WH443Z
  1. ;;9002226.02101,"1804,0WH443Z ",.02)
  1. ;;0WH443Z
  1. ;;9002226.02101,"1804,0WH443Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH44YZ ",.01)
  1. ;;0WH44YZ
  1. ;;9002226.02101,"1804,0WH44YZ ",.02)
  1. ;;0WH44YZ
  1. ;;9002226.02101,"1804,0WH44YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH501Z ",.01)
  1. ;;0WH501Z
  1. ;;9002226.02101,"1804,0WH501Z ",.02)
  1. ;;0WH501Z
  1. ;;9002226.02101,"1804,0WH501Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH503Z ",.01)
  1. ;;0WH503Z
  1. ;;9002226.02101,"1804,0WH503Z ",.02)
  1. ;;0WH503Z
  1. ;;9002226.02101,"1804,0WH503Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH50YZ ",.01)
  1. ;;0WH50YZ
  1. ;;9002226.02101,"1804,0WH50YZ ",.02)
  1. ;;0WH50YZ
  1. ;;9002226.02101,"1804,0WH50YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH531Z ",.01)
  1. ;;0WH531Z
  1. ;;9002226.02101,"1804,0WH531Z ",.02)
  1. ;;0WH531Z
  1. ;;9002226.02101,"1804,0WH531Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH533Z ",.01)
  1. ;;0WH533Z
  1. ;;9002226.02101,"1804,0WH533Z ",.02)
  1. ;;0WH533Z
  1. ;;9002226.02101,"1804,0WH533Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH53YZ ",.01)
  1. ;;0WH53YZ
  1. ;;9002226.02101,"1804,0WH53YZ ",.02)
  1. ;;0WH53YZ
  1. ;;9002226.02101,"1804,0WH53YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH541Z ",.01)
  1. ;;0WH541Z
  1. ;;9002226.02101,"1804,0WH541Z ",.02)
  1. ;;0WH541Z
  1. ;;9002226.02101,"1804,0WH541Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH543Z ",.01)
  1. ;;0WH543Z
  1. ;;9002226.02101,"1804,0WH543Z ",.02)
  1. ;;0WH543Z
  1. ;;9002226.02101,"1804,0WH543Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH54YZ ",.01)
  1. ;;0WH54YZ
  1. ;;9002226.02101,"1804,0WH54YZ ",.02)
  1. ;;0WH54YZ
  1. ;;9002226.02101,"1804,0WH54YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH601Z ",.01)
  1. ;;0WH601Z
  1. ;;9002226.02101,"1804,0WH601Z ",.02)
  1. ;;0WH601Z
  1. ;;9002226.02101,"1804,0WH601Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH603Z ",.01)
  1. ;;0WH603Z
  1. ;;9002226.02101,"1804,0WH603Z ",.02)
  1. ;;0WH603Z
  1. ;;9002226.02101,"1804,0WH603Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH60YZ ",.01)
  1. ;;0WH60YZ
  1. ;;9002226.02101,"1804,0WH60YZ ",.02)
  1. ;;0WH60YZ
  1. ;;9002226.02101,"1804,0WH60YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH631Z ",.01)
  1. ;;0WH631Z
  1. ;;9002226.02101,"1804,0WH631Z ",.02)
  1. ;;0WH631Z
  1. ;;9002226.02101,"1804,0WH631Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH633Z ",.01)
  1. ;;0WH633Z
  1. ;;9002226.02101,"1804,0WH633Z ",.02)
  1. ;;0WH633Z
  1. ;;9002226.02101,"1804,0WH633Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH63YZ ",.01)
  1. ;;0WH63YZ
  1. ;;9002226.02101,"1804,0WH63YZ ",.02)
  1. ;;0WH63YZ
  1. ;;9002226.02101,"1804,0WH63YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH641Z ",.01)
  1. ;;0WH641Z
  1. ;;9002226.02101,"1804,0WH641Z ",.02)
  1. ;;0WH641Z
  1. ;;9002226.02101,"1804,0WH641Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH643Z ",.01)
  1. ;;0WH643Z
  1. ;;9002226.02101,"1804,0WH643Z ",.02)
  1. ;;0WH643Z
  1. ;;9002226.02101,"1804,0WH643Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH64YZ ",.01)
  1. ;;0WH64YZ
  1. ;;9002226.02101,"1804,0WH64YZ ",.02)
  1. ;;0WH64YZ
  1. ;;9002226.02101,"1804,0WH64YZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH801Z ",.01)
  1. ;;0WH801Z
  1. ;;9002226.02101,"1804,0WH801Z ",.02)
  1. ;;0WH801Z
  1. ;;9002226.02101,"1804,0WH801Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH831Z ",.01)
  1. ;;0WH831Z
  1. ;;9002226.02101,"1804,0WH831Z ",.02)
  1. ;;0WH831Z
  1. ;;9002226.02101,"1804,0WH831Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH841Z ",.01)
  1. ;;0WH841Z
  1. ;;9002226.02101,"1804,0WH841Z ",.02)
  1. ;;0WH841Z
  1. ;;9002226.02101,"1804,0WH841Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH901Z ",.01)
  1. ;;0WH901Z
  1. ;;9002226.02101,"1804,0WH901Z ",.02)
  1. ;;0WH901Z
  1. ;;9002226.02101,"1804,0WH901Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH931Z ",.01)
  1. ;;0WH931Z
  1. ;;9002226.02101,"1804,0WH931Z ",.02)
  1. ;;0WH931Z
  1. ;;9002226.02101,"1804,0WH931Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WH941Z ",.01)
  1. ;;0WH941Z
  1. ;;9002226.02101,"1804,0WH941Z ",.02)
  1. ;;0WH941Z
  1. ;;9002226.02101,"1804,0WH941Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WHB01Z ",.01)
  1. ;;0WHB01Z
  1. ;;9002226.02101,"1804,0WHB01Z ",.02)
  1. ;;0WHB01Z
  1. ;;9002226.02101,"1804,0WHB01Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WHB31Z ",.01)
  1. ;;0WHB31Z
  1. ;;9002226.02101,"1804,0WHB31Z ",.02)
  1. ;;0WHB31Z
  1. ;;9002226.02101,"1804,0WHB31Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WHB41Z ",.01)
  1. ;;0WHB41Z
  1. ;;9002226.02101,"1804,0WHB41Z ",.02)
  1. ;;0WHB41Z
  1. ;;9002226.02101,"1804,0WHB41Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WHC01Z ",.01)
  1. ;;0WHC01Z
  1. ;;9002226.02101,"1804,0WHC01Z ",.02)
  1. ;;0WHC01Z
  1. ;;9002226.02101,"1804,0WHC01Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WHC31Z ",.01)
  1. ;;0WHC31Z
  1. ;;9002226.02101,"1804,0WHC31Z ",.02)
  1. ;;0WHC31Z
  1. ;;9002226.02101,"1804,0WHC31Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WHC41Z ",.01)
  1. ;;0WHC41Z
  1. ;;9002226.02101,"1804,0WHC41Z ",.02)
  1. ;;0WHC41Z
  1. ;;9002226.02101,"1804,0WHC41Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WHD01Z ",.01)
  1. ;;0WHD01Z
  1. ;;9002226.02101,"1804,0WHD01Z ",.02)
  1. ;;0WHD01Z
  1. ;;9002226.02101,"1804,0WHD01Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WHD31Z ",.01)
  1. ;;0WHD31Z
  1. ;;9002226.02101,"1804,0WHD31Z ",.02)
  1. ;;0WHD31Z
  1. ;;9002226.02101,"1804,0WHD31Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0WHD41Z ",.01)
  1. ;;0WHD41Z
  1. ;;9002226.02101,"1804,0WHD41Z ",.02)
  1. ;;0WHD41Z