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

ATXF6M4.m

Go to the documentation of this file.
  1. ATXF6M4 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON DEC 21, 2016 ;
  1. ;;5.1;TAXONOMY;**19**;FEB 04, 1997;Build 32
  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,"2149,H40.30X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.30X1 ",.01)
  1. ;;H40.30X1
  1. ;;9002226.02101,"2149,H40.30X1 ",.02)
  1. ;;H40.30X1
  1. ;;9002226.02101,"2149,H40.30X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.30X2 ",.01)
  1. ;;H40.30X2
  1. ;;9002226.02101,"2149,H40.30X2 ",.02)
  1. ;;H40.30X2
  1. ;;9002226.02101,"2149,H40.30X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.30X3 ",.01)
  1. ;;H40.30X3
  1. ;;9002226.02101,"2149,H40.30X3 ",.02)
  1. ;;H40.30X3
  1. ;;9002226.02101,"2149,H40.30X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.30X4 ",.01)
  1. ;;H40.30X4
  1. ;;9002226.02101,"2149,H40.30X4 ",.02)
  1. ;;H40.30X4
  1. ;;9002226.02101,"2149,H40.30X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.31X0 ",.01)
  1. ;;H40.31X0
  1. ;;9002226.02101,"2149,H40.31X0 ",.02)
  1. ;;H40.31X0
  1. ;;9002226.02101,"2149,H40.31X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.31X1 ",.01)
  1. ;;H40.31X1
  1. ;;9002226.02101,"2149,H40.31X1 ",.02)
  1. ;;H40.31X1
  1. ;;9002226.02101,"2149,H40.31X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.31X2 ",.01)
  1. ;;H40.31X2
  1. ;;9002226.02101,"2149,H40.31X2 ",.02)
  1. ;;H40.31X2
  1. ;;9002226.02101,"2149,H40.31X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.31X3 ",.01)
  1. ;;H40.31X3
  1. ;;9002226.02101,"2149,H40.31X3 ",.02)
  1. ;;H40.31X3
  1. ;;9002226.02101,"2149,H40.31X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.31X4 ",.01)
  1. ;;H40.31X4
  1. ;;9002226.02101,"2149,H40.31X4 ",.02)
  1. ;;H40.31X4
  1. ;;9002226.02101,"2149,H40.31X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.32X0 ",.01)
  1. ;;H40.32X0
  1. ;;9002226.02101,"2149,H40.32X0 ",.02)
  1. ;;H40.32X0
  1. ;;9002226.02101,"2149,H40.32X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.32X1 ",.01)
  1. ;;H40.32X1
  1. ;;9002226.02101,"2149,H40.32X1 ",.02)
  1. ;;H40.32X1
  1. ;;9002226.02101,"2149,H40.32X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.32X2 ",.01)
  1. ;;H40.32X2
  1. ;;9002226.02101,"2149,H40.32X2 ",.02)
  1. ;;H40.32X2
  1. ;;9002226.02101,"2149,H40.32X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.32X3 ",.01)
  1. ;;H40.32X3
  1. ;;9002226.02101,"2149,H40.32X3 ",.02)
  1. ;;H40.32X3
  1. ;;9002226.02101,"2149,H40.32X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.32X4 ",.01)
  1. ;;H40.32X4
  1. ;;9002226.02101,"2149,H40.32X4 ",.02)
  1. ;;H40.32X4
  1. ;;9002226.02101,"2149,H40.32X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.33X0 ",.01)
  1. ;;H40.33X0
  1. ;;9002226.02101,"2149,H40.33X0 ",.02)
  1. ;;H40.33X0
  1. ;;9002226.02101,"2149,H40.33X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.33X1 ",.01)
  1. ;;H40.33X1
  1. ;;9002226.02101,"2149,H40.33X1 ",.02)
  1. ;;H40.33X1
  1. ;;9002226.02101,"2149,H40.33X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.33X2 ",.01)
  1. ;;H40.33X2
  1. ;;9002226.02101,"2149,H40.33X2 ",.02)
  1. ;;H40.33X2
  1. ;;9002226.02101,"2149,H40.33X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.33X3 ",.01)
  1. ;;H40.33X3
  1. ;;9002226.02101,"2149,H40.33X3 ",.02)
  1. ;;H40.33X3
  1. ;;9002226.02101,"2149,H40.33X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.33X4 ",.01)
  1. ;;H40.33X4
  1. ;;9002226.02101,"2149,H40.33X4 ",.02)
  1. ;;H40.33X4
  1. ;;9002226.02101,"2149,H40.33X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.40X0 ",.01)
  1. ;;H40.40X0
  1. ;;9002226.02101,"2149,H40.40X0 ",.02)
  1. ;;H40.40X0
  1. ;;9002226.02101,"2149,H40.40X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.40X1 ",.01)
  1. ;;H40.40X1
  1. ;;9002226.02101,"2149,H40.40X1 ",.02)
  1. ;;H40.40X1
  1. ;;9002226.02101,"2149,H40.40X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.40X2 ",.01)
  1. ;;H40.40X2
  1. ;;9002226.02101,"2149,H40.40X2 ",.02)
  1. ;;H40.40X2
  1. ;;9002226.02101,"2149,H40.40X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.40X3 ",.01)
  1. ;;H40.40X3
  1. ;;9002226.02101,"2149,H40.40X3 ",.02)
  1. ;;H40.40X3
  1. ;;9002226.02101,"2149,H40.40X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.40X4 ",.01)
  1. ;;H40.40X4
  1. ;;9002226.02101,"2149,H40.40X4 ",.02)
  1. ;;H40.40X4
  1. ;;9002226.02101,"2149,H40.40X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.41X0 ",.01)
  1. ;;H40.41X0
  1. ;;9002226.02101,"2149,H40.41X0 ",.02)
  1. ;;H40.41X0
  1. ;;9002226.02101,"2149,H40.41X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.41X1 ",.01)
  1. ;;H40.41X1
  1. ;;9002226.02101,"2149,H40.41X1 ",.02)
  1. ;;H40.41X1
  1. ;;9002226.02101,"2149,H40.41X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.41X2 ",.01)
  1. ;;H40.41X2
  1. ;;9002226.02101,"2149,H40.41X2 ",.02)
  1. ;;H40.41X2
  1. ;;9002226.02101,"2149,H40.41X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.41X3 ",.01)
  1. ;;H40.41X3
  1. ;;9002226.02101,"2149,H40.41X3 ",.02)
  1. ;;H40.41X3
  1. ;;9002226.02101,"2149,H40.41X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.41X4 ",.01)
  1. ;;H40.41X4
  1. ;;9002226.02101,"2149,H40.41X4 ",.02)
  1. ;;H40.41X4
  1. ;;9002226.02101,"2149,H40.41X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.42X0 ",.01)
  1. ;;H40.42X0
  1. ;;9002226.02101,"2149,H40.42X0 ",.02)
  1. ;;H40.42X0
  1. ;;9002226.02101,"2149,H40.42X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.42X1 ",.01)
  1. ;;H40.42X1
  1. ;;9002226.02101,"2149,H40.42X1 ",.02)
  1. ;;H40.42X1
  1. ;;9002226.02101,"2149,H40.42X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.42X2 ",.01)
  1. ;;H40.42X2
  1. ;;9002226.02101,"2149,H40.42X2 ",.02)
  1. ;;H40.42X2
  1. ;;9002226.02101,"2149,H40.42X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.42X3 ",.01)
  1. ;;H40.42X3
  1. ;;9002226.02101,"2149,H40.42X3 ",.02)
  1. ;;H40.42X3
  1. ;;9002226.02101,"2149,H40.42X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.42X4 ",.01)
  1. ;;H40.42X4
  1. ;;9002226.02101,"2149,H40.42X4 ",.02)
  1. ;;H40.42X4
  1. ;;9002226.02101,"2149,H40.42X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.43X0 ",.01)
  1. ;;H40.43X0
  1. ;;9002226.02101,"2149,H40.43X0 ",.02)
  1. ;;H40.43X0
  1. ;;9002226.02101,"2149,H40.43X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.43X1 ",.01)
  1. ;;H40.43X1
  1. ;;9002226.02101,"2149,H40.43X1 ",.02)
  1. ;;H40.43X1
  1. ;;9002226.02101,"2149,H40.43X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.43X2 ",.01)
  1. ;;H40.43X2
  1. ;;9002226.02101,"2149,H40.43X2 ",.02)
  1. ;;H40.43X2
  1. ;;9002226.02101,"2149,H40.43X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.43X3 ",.01)
  1. ;;H40.43X3
  1. ;;9002226.02101,"2149,H40.43X3 ",.02)
  1. ;;H40.43X3
  1. ;;9002226.02101,"2149,H40.43X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.43X4 ",.01)
  1. ;;H40.43X4
  1. ;;9002226.02101,"2149,H40.43X4 ",.02)
  1. ;;H40.43X4
  1. ;;9002226.02101,"2149,H40.43X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.50X0 ",.01)
  1. ;;H40.50X0
  1. ;;9002226.02101,"2149,H40.50X0 ",.02)
  1. ;;H40.50X0
  1. ;;9002226.02101,"2149,H40.50X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.50X1 ",.01)
  1. ;;H40.50X1
  1. ;;9002226.02101,"2149,H40.50X1 ",.02)
  1. ;;H40.50X1
  1. ;;9002226.02101,"2149,H40.50X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.50X2 ",.01)
  1. ;;H40.50X2
  1. ;;9002226.02101,"2149,H40.50X2 ",.02)
  1. ;;H40.50X2
  1. ;;9002226.02101,"2149,H40.50X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.50X3 ",.01)
  1. ;;H40.50X3
  1. ;;9002226.02101,"2149,H40.50X3 ",.02)
  1. ;;H40.50X3
  1. ;;9002226.02101,"2149,H40.50X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.50X4 ",.01)
  1. ;;H40.50X4
  1. ;;9002226.02101,"2149,H40.50X4 ",.02)
  1. ;;H40.50X4
  1. ;;9002226.02101,"2149,H40.50X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.51X0 ",.01)
  1. ;;H40.51X0
  1. ;;9002226.02101,"2149,H40.51X0 ",.02)
  1. ;;H40.51X0
  1. ;;9002226.02101,"2149,H40.51X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.51X1 ",.01)
  1. ;;H40.51X1
  1. ;;9002226.02101,"2149,H40.51X1 ",.02)
  1. ;;H40.51X1
  1. ;;9002226.02101,"2149,H40.51X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.51X2 ",.01)
  1. ;;H40.51X2
  1. ;;9002226.02101,"2149,H40.51X2 ",.02)
  1. ;;H40.51X2
  1. ;;9002226.02101,"2149,H40.51X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.51X3 ",.01)
  1. ;;H40.51X3
  1. ;;9002226.02101,"2149,H40.51X3 ",.02)
  1. ;;H40.51X3
  1. ;;9002226.02101,"2149,H40.51X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.51X4 ",.01)
  1. ;;H40.51X4
  1. ;;9002226.02101,"2149,H40.51X4 ",.02)
  1. ;;H40.51X4
  1. ;;9002226.02101,"2149,H40.51X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.52X0 ",.01)
  1. ;;H40.52X0
  1. ;;9002226.02101,"2149,H40.52X0 ",.02)
  1. ;;H40.52X0
  1. ;;9002226.02101,"2149,H40.52X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.52X1 ",.01)
  1. ;;H40.52X1
  1. ;;9002226.02101,"2149,H40.52X1 ",.02)
  1. ;;H40.52X1
  1. ;;9002226.02101,"2149,H40.52X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.52X2 ",.01)
  1. ;;H40.52X2
  1. ;;9002226.02101,"2149,H40.52X2 ",.02)
  1. ;;H40.52X2
  1. ;;9002226.02101,"2149,H40.52X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.52X3 ",.01)
  1. ;;H40.52X3
  1. ;;9002226.02101,"2149,H40.52X3 ",.02)
  1. ;;H40.52X3
  1. ;;9002226.02101,"2149,H40.52X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.52X4 ",.01)
  1. ;;H40.52X4
  1. ;;9002226.02101,"2149,H40.52X4 ",.02)
  1. ;;H40.52X4
  1. ;;9002226.02101,"2149,H40.52X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.53X0 ",.01)
  1. ;;H40.53X0
  1. ;;9002226.02101,"2149,H40.53X0 ",.02)
  1. ;;H40.53X0
  1. ;;9002226.02101,"2149,H40.53X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.53X1 ",.01)
  1. ;;H40.53X1
  1. ;;9002226.02101,"2149,H40.53X1 ",.02)
  1. ;;H40.53X1
  1. ;;9002226.02101,"2149,H40.53X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.53X2 ",.01)
  1. ;;H40.53X2
  1. ;;9002226.02101,"2149,H40.53X2 ",.02)
  1. ;;H40.53X2
  1. ;;9002226.02101,"2149,H40.53X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.53X3 ",.01)
  1. ;;H40.53X3
  1. ;;9002226.02101,"2149,H40.53X3 ",.02)
  1. ;;H40.53X3
  1. ;;9002226.02101,"2149,H40.53X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.53X4 ",.01)
  1. ;;H40.53X4
  1. ;;9002226.02101,"2149,H40.53X4 ",.02)
  1. ;;H40.53X4
  1. ;;9002226.02101,"2149,H40.53X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.60X0 ",.01)
  1. ;;H40.60X0
  1. ;;9002226.02101,"2149,H40.60X0 ",.02)
  1. ;;H40.60X0
  1. ;;9002226.02101,"2149,H40.60X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.60X1 ",.01)
  1. ;;H40.60X1
  1. ;;9002226.02101,"2149,H40.60X1 ",.02)
  1. ;;H40.60X1
  1. ;;9002226.02101,"2149,H40.60X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.60X2 ",.01)
  1. ;;H40.60X2
  1. ;;9002226.02101,"2149,H40.60X2 ",.02)
  1. ;;H40.60X2
  1. ;;9002226.02101,"2149,H40.60X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.60X3 ",.01)
  1. ;;H40.60X3
  1. ;;9002226.02101,"2149,H40.60X3 ",.02)
  1. ;;H40.60X3
  1. ;;9002226.02101,"2149,H40.60X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.60X4 ",.01)
  1. ;;H40.60X4
  1. ;;9002226.02101,"2149,H40.60X4 ",.02)
  1. ;;H40.60X4
  1. ;;9002226.02101,"2149,H40.60X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.61X0 ",.01)
  1. ;;H40.61X0
  1. ;;9002226.02101,"2149,H40.61X0 ",.02)
  1. ;;H40.61X0
  1. ;;9002226.02101,"2149,H40.61X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.61X1 ",.01)
  1. ;;H40.61X1
  1. ;;9002226.02101,"2149,H40.61X1 ",.02)
  1. ;;H40.61X1
  1. ;;9002226.02101,"2149,H40.61X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.61X2 ",.01)
  1. ;;H40.61X2
  1. ;;9002226.02101,"2149,H40.61X2 ",.02)
  1. ;;H40.61X2
  1. ;;9002226.02101,"2149,H40.61X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.61X3 ",.01)
  1. ;;H40.61X3
  1. ;;9002226.02101,"2149,H40.61X3 ",.02)
  1. ;;H40.61X3
  1. ;;9002226.02101,"2149,H40.61X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.61X4 ",.01)
  1. ;;H40.61X4
  1. ;;9002226.02101,"2149,H40.61X4 ",.02)
  1. ;;H40.61X4
  1. ;;9002226.02101,"2149,H40.61X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.62X0 ",.01)
  1. ;;H40.62X0
  1. ;;9002226.02101,"2149,H40.62X0 ",.02)
  1. ;;H40.62X0
  1. ;;9002226.02101,"2149,H40.62X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.62X1 ",.01)
  1. ;;H40.62X1
  1. ;;9002226.02101,"2149,H40.62X1 ",.02)
  1. ;;H40.62X1
  1. ;;9002226.02101,"2149,H40.62X1 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.62X2 ",.01)
  1. ;;H40.62X2
  1. ;;9002226.02101,"2149,H40.62X2 ",.02)
  1. ;;H40.62X2
  1. ;;9002226.02101,"2149,H40.62X2 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.62X3 ",.01)
  1. ;;H40.62X3
  1. ;;9002226.02101,"2149,H40.62X3 ",.02)
  1. ;;H40.62X3
  1. ;;9002226.02101,"2149,H40.62X3 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.62X4 ",.01)
  1. ;;H40.62X4
  1. ;;9002226.02101,"2149,H40.62X4 ",.02)
  1. ;;H40.62X4
  1. ;;9002226.02101,"2149,H40.62X4 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.63X0 ",.01)
  1. ;;H40.63X0
  1. ;;9002226.02101,"2149,H40.63X0 ",.02)
  1. ;;H40.63X0
  1. ;;9002226.02101,"2149,H40.63X0 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2149,H40.63X1 ",.01)
  1. ;;H40.63X1
  1. ;;9002226.02101,"2149,H40.63X1 ",.02)
  1. ;;H40.63X1