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

ATXXB87.m

Go to the documentation of this file.
ATXXB87 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"1804,0JPT31Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT32Z ",.01)
 ;;0JPT32Z 
 ;;9002226.02101,"1804,0JPT32Z ",.02)
 ;;0JPT32Z 
 ;;9002226.02101,"1804,0JPT32Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT33Z ",.01)
 ;;0JPT33Z 
 ;;9002226.02101,"1804,0JPT33Z ",.02)
 ;;0JPT33Z 
 ;;9002226.02101,"1804,0JPT33Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT37Z ",.01)
 ;;0JPT37Z 
 ;;9002226.02101,"1804,0JPT37Z ",.02)
 ;;0JPT37Z 
 ;;9002226.02101,"1804,0JPT37Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT3HZ ",.01)
 ;;0JPT3HZ 
 ;;9002226.02101,"1804,0JPT3HZ ",.02)
 ;;0JPT3HZ 
 ;;9002226.02101,"1804,0JPT3HZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT3JZ ",.01)
 ;;0JPT3JZ 
 ;;9002226.02101,"1804,0JPT3JZ ",.02)
 ;;0JPT3JZ 
 ;;9002226.02101,"1804,0JPT3JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT3KZ ",.01)
 ;;0JPT3KZ 
 ;;9002226.02101,"1804,0JPT3KZ ",.02)
 ;;0JPT3KZ 
 ;;9002226.02101,"1804,0JPT3KZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT3MZ ",.01)
 ;;0JPT3MZ 
 ;;9002226.02101,"1804,0JPT3MZ ",.02)
 ;;0JPT3MZ 
 ;;9002226.02101,"1804,0JPT3MZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT3NZ ",.01)
 ;;0JPT3NZ 
 ;;9002226.02101,"1804,0JPT3NZ ",.02)
 ;;0JPT3NZ 
 ;;9002226.02101,"1804,0JPT3NZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT3VZ ",.01)
 ;;0JPT3VZ 
 ;;9002226.02101,"1804,0JPT3VZ ",.02)
 ;;0JPT3VZ 
 ;;9002226.02101,"1804,0JPT3VZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT3WZ ",.01)
 ;;0JPT3WZ 
 ;;9002226.02101,"1804,0JPT3WZ ",.02)
 ;;0JPT3WZ 
 ;;9002226.02101,"1804,0JPT3WZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPT3XZ ",.01)
 ;;0JPT3XZ 
 ;;9002226.02101,"1804,0JPT3XZ ",.02)
 ;;0JPT3XZ 
 ;;9002226.02101,"1804,0JPT3XZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPTX0Z ",.01)
 ;;0JPTX0Z 
 ;;9002226.02101,"1804,0JPTX0Z ",.02)
 ;;0JPTX0Z 
 ;;9002226.02101,"1804,0JPTX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPTX1Z ",.01)
 ;;0JPTX1Z 
 ;;9002226.02101,"1804,0JPTX1Z ",.02)
 ;;0JPTX1Z 
 ;;9002226.02101,"1804,0JPTX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPTX2Z ",.01)
 ;;0JPTX2Z 
 ;;9002226.02101,"1804,0JPTX2Z ",.02)
 ;;0JPTX2Z 
 ;;9002226.02101,"1804,0JPTX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPTX3Z ",.01)
 ;;0JPTX3Z 
 ;;9002226.02101,"1804,0JPTX3Z ",.02)
 ;;0JPTX3Z 
 ;;9002226.02101,"1804,0JPTX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPTXHZ ",.01)
 ;;0JPTXHZ 
 ;;9002226.02101,"1804,0JPTXHZ ",.02)
 ;;0JPTXHZ 
 ;;9002226.02101,"1804,0JPTXHZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPTXVZ ",.01)
 ;;0JPTXVZ 
 ;;9002226.02101,"1804,0JPTXVZ ",.02)
 ;;0JPTXVZ 
 ;;9002226.02101,"1804,0JPTXVZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPTXXZ ",.01)
 ;;0JPTXXZ 
 ;;9002226.02101,"1804,0JPTXXZ ",.02)
 ;;0JPTXXZ 
 ;;9002226.02101,"1804,0JPTXXZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV00Z ",.01)
 ;;0JPV00Z 
 ;;9002226.02101,"1804,0JPV00Z ",.02)
 ;;0JPV00Z 
 ;;9002226.02101,"1804,0JPV00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV01Z ",.01)
 ;;0JPV01Z 
 ;;9002226.02101,"1804,0JPV01Z ",.02)
 ;;0JPV01Z 
 ;;9002226.02101,"1804,0JPV01Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV03Z ",.01)
 ;;0JPV03Z 
 ;;9002226.02101,"1804,0JPV03Z ",.02)
 ;;0JPV03Z 
 ;;9002226.02101,"1804,0JPV03Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV07Z ",.01)
 ;;0JPV07Z 
 ;;9002226.02101,"1804,0JPV07Z ",.02)
 ;;0JPV07Z 
 ;;9002226.02101,"1804,0JPV07Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV0HZ ",.01)
 ;;0JPV0HZ 
 ;;9002226.02101,"1804,0JPV0HZ ",.02)
 ;;0JPV0HZ 
 ;;9002226.02101,"1804,0JPV0HZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV0JZ ",.01)
 ;;0JPV0JZ 
 ;;9002226.02101,"1804,0JPV0JZ ",.02)
 ;;0JPV0JZ 
 ;;9002226.02101,"1804,0JPV0JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV0KZ ",.01)
 ;;0JPV0KZ 
 ;;9002226.02101,"1804,0JPV0KZ ",.02)
 ;;0JPV0KZ 
 ;;9002226.02101,"1804,0JPV0KZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV0NZ ",.01)
 ;;0JPV0NZ 
 ;;9002226.02101,"1804,0JPV0NZ ",.02)
 ;;0JPV0NZ 
 ;;9002226.02101,"1804,0JPV0NZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV0VZ ",.01)
 ;;0JPV0VZ 
 ;;9002226.02101,"1804,0JPV0VZ ",.02)
 ;;0JPV0VZ 
 ;;9002226.02101,"1804,0JPV0VZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV0WZ ",.01)
 ;;0JPV0WZ 
 ;;9002226.02101,"1804,0JPV0WZ ",.02)
 ;;0JPV0WZ 
 ;;9002226.02101,"1804,0JPV0WZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV0XZ ",.01)
 ;;0JPV0XZ 
 ;;9002226.02101,"1804,0JPV0XZ ",.02)
 ;;0JPV0XZ 
 ;;9002226.02101,"1804,0JPV0XZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV30Z ",.01)
 ;;0JPV30Z 
 ;;9002226.02101,"1804,0JPV30Z ",.02)
 ;;0JPV30Z 
 ;;9002226.02101,"1804,0JPV30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV31Z ",.01)
 ;;0JPV31Z 
 ;;9002226.02101,"1804,0JPV31Z ",.02)
 ;;0JPV31Z 
 ;;9002226.02101,"1804,0JPV31Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV33Z ",.01)
 ;;0JPV33Z 
 ;;9002226.02101,"1804,0JPV33Z ",.02)
 ;;0JPV33Z 
 ;;9002226.02101,"1804,0JPV33Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV37Z ",.01)
 ;;0JPV37Z 
 ;;9002226.02101,"1804,0JPV37Z ",.02)
 ;;0JPV37Z 
 ;;9002226.02101,"1804,0JPV37Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV3HZ ",.01)
 ;;0JPV3HZ 
 ;;9002226.02101,"1804,0JPV3HZ ",.02)
 ;;0JPV3HZ 
 ;;9002226.02101,"1804,0JPV3HZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV3JZ ",.01)
 ;;0JPV3JZ 
 ;;9002226.02101,"1804,0JPV3JZ ",.02)
 ;;0JPV3JZ 
 ;;9002226.02101,"1804,0JPV3JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV3KZ ",.01)
 ;;0JPV3KZ 
 ;;9002226.02101,"1804,0JPV3KZ ",.02)
 ;;0JPV3KZ 
 ;;9002226.02101,"1804,0JPV3KZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV3NZ ",.01)
 ;;0JPV3NZ 
 ;;9002226.02101,"1804,0JPV3NZ ",.02)
 ;;0JPV3NZ 
 ;;9002226.02101,"1804,0JPV3NZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV3VZ ",.01)
 ;;0JPV3VZ 
 ;;9002226.02101,"1804,0JPV3VZ ",.02)
 ;;0JPV3VZ 
 ;;9002226.02101,"1804,0JPV3VZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV3WZ ",.01)
 ;;0JPV3WZ 
 ;;9002226.02101,"1804,0JPV3WZ ",.02)
 ;;0JPV3WZ 
 ;;9002226.02101,"1804,0JPV3WZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPV3XZ ",.01)
 ;;0JPV3XZ 
 ;;9002226.02101,"1804,0JPV3XZ ",.02)
 ;;0JPV3XZ 
 ;;9002226.02101,"1804,0JPV3XZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPVX0Z ",.01)
 ;;0JPVX0Z 
 ;;9002226.02101,"1804,0JPVX0Z ",.02)
 ;;0JPVX0Z 
 ;;9002226.02101,"1804,0JPVX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPVX1Z ",.01)
 ;;0JPVX1Z 
 ;;9002226.02101,"1804,0JPVX1Z ",.02)
 ;;0JPVX1Z 
 ;;9002226.02101,"1804,0JPVX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPVX3Z ",.01)
 ;;0JPVX3Z 
 ;;9002226.02101,"1804,0JPVX3Z ",.02)
 ;;0JPVX3Z 
 ;;9002226.02101,"1804,0JPVX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPVXHZ ",.01)
 ;;0JPVXHZ 
 ;;9002226.02101,"1804,0JPVXHZ ",.02)
 ;;0JPVXHZ 
 ;;9002226.02101,"1804,0JPVXHZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPVXVZ ",.01)
 ;;0JPVXVZ 
 ;;9002226.02101,"1804,0JPVXVZ ",.02)
 ;;0JPVXVZ 
 ;;9002226.02101,"1804,0JPVXVZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPVXXZ ",.01)
 ;;0JPVXXZ 
 ;;9002226.02101,"1804,0JPVXXZ ",.02)
 ;;0JPVXXZ 
 ;;9002226.02101,"1804,0JPVXXZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW00Z ",.01)
 ;;0JPW00Z 
 ;;9002226.02101,"1804,0JPW00Z ",.02)
 ;;0JPW00Z 
 ;;9002226.02101,"1804,0JPW00Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW01Z ",.01)
 ;;0JPW01Z 
 ;;9002226.02101,"1804,0JPW01Z ",.02)
 ;;0JPW01Z 
 ;;9002226.02101,"1804,0JPW01Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW03Z ",.01)
 ;;0JPW03Z 
 ;;9002226.02101,"1804,0JPW03Z ",.02)
 ;;0JPW03Z 
 ;;9002226.02101,"1804,0JPW03Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW07Z ",.01)
 ;;0JPW07Z 
 ;;9002226.02101,"1804,0JPW07Z ",.02)
 ;;0JPW07Z 
 ;;9002226.02101,"1804,0JPW07Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW0HZ ",.01)
 ;;0JPW0HZ 
 ;;9002226.02101,"1804,0JPW0HZ ",.02)
 ;;0JPW0HZ 
 ;;9002226.02101,"1804,0JPW0HZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW0JZ ",.01)
 ;;0JPW0JZ 
 ;;9002226.02101,"1804,0JPW0JZ ",.02)
 ;;0JPW0JZ 
 ;;9002226.02101,"1804,0JPW0JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW0KZ ",.01)
 ;;0JPW0KZ 
 ;;9002226.02101,"1804,0JPW0KZ ",.02)
 ;;0JPW0KZ 
 ;;9002226.02101,"1804,0JPW0KZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW0NZ ",.01)
 ;;0JPW0NZ 
 ;;9002226.02101,"1804,0JPW0NZ ",.02)
 ;;0JPW0NZ 
 ;;9002226.02101,"1804,0JPW0NZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW0VZ ",.01)
 ;;0JPW0VZ 
 ;;9002226.02101,"1804,0JPW0VZ ",.02)
 ;;0JPW0VZ 
 ;;9002226.02101,"1804,0JPW0VZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW0WZ ",.01)
 ;;0JPW0WZ 
 ;;9002226.02101,"1804,0JPW0WZ ",.02)
 ;;0JPW0WZ 
 ;;9002226.02101,"1804,0JPW0WZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW0XZ ",.01)
 ;;0JPW0XZ 
 ;;9002226.02101,"1804,0JPW0XZ ",.02)
 ;;0JPW0XZ 
 ;;9002226.02101,"1804,0JPW0XZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW30Z ",.01)
 ;;0JPW30Z 
 ;;9002226.02101,"1804,0JPW30Z ",.02)
 ;;0JPW30Z 
 ;;9002226.02101,"1804,0JPW30Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW31Z ",.01)
 ;;0JPW31Z 
 ;;9002226.02101,"1804,0JPW31Z ",.02)
 ;;0JPW31Z 
 ;;9002226.02101,"1804,0JPW31Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW33Z ",.01)
 ;;0JPW33Z 
 ;;9002226.02101,"1804,0JPW33Z ",.02)
 ;;0JPW33Z 
 ;;9002226.02101,"1804,0JPW33Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW37Z ",.01)
 ;;0JPW37Z 
 ;;9002226.02101,"1804,0JPW37Z ",.02)
 ;;0JPW37Z 
 ;;9002226.02101,"1804,0JPW37Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW3HZ ",.01)
 ;;0JPW3HZ 
 ;;9002226.02101,"1804,0JPW3HZ ",.02)
 ;;0JPW3HZ 
 ;;9002226.02101,"1804,0JPW3HZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW3JZ ",.01)
 ;;0JPW3JZ 
 ;;9002226.02101,"1804,0JPW3JZ ",.02)
 ;;0JPW3JZ 
 ;;9002226.02101,"1804,0JPW3JZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW3KZ ",.01)
 ;;0JPW3KZ 
 ;;9002226.02101,"1804,0JPW3KZ ",.02)
 ;;0JPW3KZ 
 ;;9002226.02101,"1804,0JPW3KZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW3NZ ",.01)
 ;;0JPW3NZ 
 ;;9002226.02101,"1804,0JPW3NZ ",.02)
 ;;0JPW3NZ 
 ;;9002226.02101,"1804,0JPW3NZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW3VZ ",.01)
 ;;0JPW3VZ 
 ;;9002226.02101,"1804,0JPW3VZ ",.02)
 ;;0JPW3VZ 
 ;;9002226.02101,"1804,0JPW3VZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW3WZ ",.01)
 ;;0JPW3WZ 
 ;;9002226.02101,"1804,0JPW3WZ ",.02)
 ;;0JPW3WZ 
 ;;9002226.02101,"1804,0JPW3WZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPW3XZ ",.01)
 ;;0JPW3XZ 
 ;;9002226.02101,"1804,0JPW3XZ ",.02)
 ;;0JPW3XZ 
 ;;9002226.02101,"1804,0JPW3XZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPWX0Z ",.01)
 ;;0JPWX0Z 
 ;;9002226.02101,"1804,0JPWX0Z ",.02)
 ;;0JPWX0Z 
 ;;9002226.02101,"1804,0JPWX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPWX1Z ",.01)
 ;;0JPWX1Z 
 ;;9002226.02101,"1804,0JPWX1Z ",.02)
 ;;0JPWX1Z 
 ;;9002226.02101,"1804,0JPWX1Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPWX3Z ",.01)
 ;;0JPWX3Z 
 ;;9002226.02101,"1804,0JPWX3Z ",.02)
 ;;0JPWX3Z 
 ;;9002226.02101,"1804,0JPWX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPWXHZ ",.01)
 ;;0JPWXHZ 
 ;;9002226.02101,"1804,0JPWXHZ ",.02)
 ;;0JPWXHZ 
 ;;9002226.02101,"1804,0JPWXHZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPWXVZ ",.01)
 ;;0JPWXVZ 
 ;;9002226.02101,"1804,0JPWXVZ ",.02)
 ;;0JPWXVZ 
 ;;9002226.02101,"1804,0JPWXVZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JPWXXZ ",.01)
 ;;0JPWXXZ 
 ;;9002226.02101,"1804,0JPWXXZ ",.02)
 ;;0JPWXXZ 
 ;;9002226.02101,"1804,0JPWXXZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JQ10ZZ ",.01)
 ;;0JQ10ZZ 
 ;;9002226.02101,"1804,0JQ10ZZ ",.02)
 ;;0JQ10ZZ 
 ;;9002226.02101,"1804,0JQ10ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JQ13ZZ ",.01)
 ;;0JQ13ZZ 
 ;;9002226.02101,"1804,0JQ13ZZ ",.02)
 ;;0JQ13ZZ 
 ;;9002226.02101,"1804,0JQ13ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JQ40ZZ ",.01)
 ;;0JQ40ZZ 
 ;;9002226.02101,"1804,0JQ40ZZ ",.02)
 ;;0JQ40ZZ 
 ;;9002226.02101,"1804,0JQ40ZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,0JQ43ZZ ",.01)
 ;;0JQ43ZZ 
 ;;9002226.02101,"1804,0JQ43ZZ ",.02)
 ;;0JQ43ZZ 
 ;;9002226.02101,"1804,0JQ43ZZ ",.03)
 ;;31