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

ATXFCD5.m

Go to the documentation of this file.
  1. ATXFCD5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON DEC 18, 2017;
  1. ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
  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,"2230,C83.50 ",.01)
  1. ;;C83.50
  1. ;;9002226.02101,"2230,C83.50 ",.02)
  1. ;;C83.50
  1. ;;9002226.02101,"2230,C83.50 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.51 ",.01)
  1. ;;C83.51
  1. ;;9002226.02101,"2230,C83.51 ",.02)
  1. ;;C83.51
  1. ;;9002226.02101,"2230,C83.51 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.52 ",.01)
  1. ;;C83.52
  1. ;;9002226.02101,"2230,C83.52 ",.02)
  1. ;;C83.52
  1. ;;9002226.02101,"2230,C83.52 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.53 ",.01)
  1. ;;C83.53
  1. ;;9002226.02101,"2230,C83.53 ",.02)
  1. ;;C83.53
  1. ;;9002226.02101,"2230,C83.53 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.54 ",.01)
  1. ;;C83.54
  1. ;;9002226.02101,"2230,C83.54 ",.02)
  1. ;;C83.54
  1. ;;9002226.02101,"2230,C83.54 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.55 ",.01)
  1. ;;C83.55
  1. ;;9002226.02101,"2230,C83.55 ",.02)
  1. ;;C83.55
  1. ;;9002226.02101,"2230,C83.55 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.56 ",.01)
  1. ;;C83.56
  1. ;;9002226.02101,"2230,C83.56 ",.02)
  1. ;;C83.56
  1. ;;9002226.02101,"2230,C83.56 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.57 ",.01)
  1. ;;C83.57
  1. ;;9002226.02101,"2230,C83.57 ",.02)
  1. ;;C83.57
  1. ;;9002226.02101,"2230,C83.57 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.58 ",.01)
  1. ;;C83.58
  1. ;;9002226.02101,"2230,C83.58 ",.02)
  1. ;;C83.58
  1. ;;9002226.02101,"2230,C83.58 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.59 ",.01)
  1. ;;C83.59
  1. ;;9002226.02101,"2230,C83.59 ",.02)
  1. ;;C83.59
  1. ;;9002226.02101,"2230,C83.59 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.70 ",.01)
  1. ;;C83.70
  1. ;;9002226.02101,"2230,C83.70 ",.02)
  1. ;;C83.70
  1. ;;9002226.02101,"2230,C83.70 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.71 ",.01)
  1. ;;C83.71
  1. ;;9002226.02101,"2230,C83.71 ",.02)
  1. ;;C83.71
  1. ;;9002226.02101,"2230,C83.71 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.72 ",.01)
  1. ;;C83.72
  1. ;;9002226.02101,"2230,C83.72 ",.02)
  1. ;;C83.72
  1. ;;9002226.02101,"2230,C83.72 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.73 ",.01)
  1. ;;C83.73
  1. ;;9002226.02101,"2230,C83.73 ",.02)
  1. ;;C83.73
  1. ;;9002226.02101,"2230,C83.73 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.74 ",.01)
  1. ;;C83.74
  1. ;;9002226.02101,"2230,C83.74 ",.02)
  1. ;;C83.74
  1. ;;9002226.02101,"2230,C83.74 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.75 ",.01)
  1. ;;C83.75
  1. ;;9002226.02101,"2230,C83.75 ",.02)
  1. ;;C83.75
  1. ;;9002226.02101,"2230,C83.75 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.76 ",.01)
  1. ;;C83.76
  1. ;;9002226.02101,"2230,C83.76 ",.02)
  1. ;;C83.76
  1. ;;9002226.02101,"2230,C83.76 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.77 ",.01)
  1. ;;C83.77
  1. ;;9002226.02101,"2230,C83.77 ",.02)
  1. ;;C83.77
  1. ;;9002226.02101,"2230,C83.77 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.78 ",.01)
  1. ;;C83.78
  1. ;;9002226.02101,"2230,C83.78 ",.02)
  1. ;;C83.78
  1. ;;9002226.02101,"2230,C83.78 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.79 ",.01)
  1. ;;C83.79
  1. ;;9002226.02101,"2230,C83.79 ",.02)
  1. ;;C83.79
  1. ;;9002226.02101,"2230,C83.79 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.80 ",.01)
  1. ;;C83.80
  1. ;;9002226.02101,"2230,C83.80 ",.02)
  1. ;;C83.80
  1. ;;9002226.02101,"2230,C83.80 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.81 ",.01)
  1. ;;C83.81
  1. ;;9002226.02101,"2230,C83.81 ",.02)
  1. ;;C83.81
  1. ;;9002226.02101,"2230,C83.81 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.82 ",.01)
  1. ;;C83.82
  1. ;;9002226.02101,"2230,C83.82 ",.02)
  1. ;;C83.82
  1. ;;9002226.02101,"2230,C83.82 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.83 ",.01)
  1. ;;C83.83
  1. ;;9002226.02101,"2230,C83.83 ",.02)
  1. ;;C83.83
  1. ;;9002226.02101,"2230,C83.83 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.84 ",.01)
  1. ;;C83.84
  1. ;;9002226.02101,"2230,C83.84 ",.02)
  1. ;;C83.84
  1. ;;9002226.02101,"2230,C83.84 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.85 ",.01)
  1. ;;C83.85
  1. ;;9002226.02101,"2230,C83.85 ",.02)
  1. ;;C83.85
  1. ;;9002226.02101,"2230,C83.85 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.86 ",.01)
  1. ;;C83.86
  1. ;;9002226.02101,"2230,C83.86 ",.02)
  1. ;;C83.86
  1. ;;9002226.02101,"2230,C83.86 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.87 ",.01)
  1. ;;C83.87
  1. ;;9002226.02101,"2230,C83.87 ",.02)
  1. ;;C83.87
  1. ;;9002226.02101,"2230,C83.87 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.88 ",.01)
  1. ;;C83.88
  1. ;;9002226.02101,"2230,C83.88 ",.02)
  1. ;;C83.88
  1. ;;9002226.02101,"2230,C83.88 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.89 ",.01)
  1. ;;C83.89
  1. ;;9002226.02101,"2230,C83.89 ",.02)
  1. ;;C83.89
  1. ;;9002226.02101,"2230,C83.89 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.90 ",.01)
  1. ;;C83.90
  1. ;;9002226.02101,"2230,C83.90 ",.02)
  1. ;;C83.90
  1. ;;9002226.02101,"2230,C83.90 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.91 ",.01)
  1. ;;C83.91
  1. ;;9002226.02101,"2230,C83.91 ",.02)
  1. ;;C83.91
  1. ;;9002226.02101,"2230,C83.91 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.92 ",.01)
  1. ;;C83.92
  1. ;;9002226.02101,"2230,C83.92 ",.02)
  1. ;;C83.92
  1. ;;9002226.02101,"2230,C83.92 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.93 ",.01)
  1. ;;C83.93
  1. ;;9002226.02101,"2230,C83.93 ",.02)
  1. ;;C83.93
  1. ;;9002226.02101,"2230,C83.93 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.94 ",.01)
  1. ;;C83.94
  1. ;;9002226.02101,"2230,C83.94 ",.02)
  1. ;;C83.94
  1. ;;9002226.02101,"2230,C83.94 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.95 ",.01)
  1. ;;C83.95
  1. ;;9002226.02101,"2230,C83.95 ",.02)
  1. ;;C83.95
  1. ;;9002226.02101,"2230,C83.95 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.96 ",.01)
  1. ;;C83.96
  1. ;;9002226.02101,"2230,C83.96 ",.02)
  1. ;;C83.96
  1. ;;9002226.02101,"2230,C83.96 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.97 ",.01)
  1. ;;C83.97
  1. ;;9002226.02101,"2230,C83.97 ",.02)
  1. ;;C83.97
  1. ;;9002226.02101,"2230,C83.97 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.98 ",.01)
  1. ;;C83.98
  1. ;;9002226.02101,"2230,C83.98 ",.02)
  1. ;;C83.98
  1. ;;9002226.02101,"2230,C83.98 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C83.99 ",.01)
  1. ;;C83.99
  1. ;;9002226.02101,"2230,C83.99 ",.02)
  1. ;;C83.99
  1. ;;9002226.02101,"2230,C83.99 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.00 ",.01)
  1. ;;C84.00
  1. ;;9002226.02101,"2230,C84.00 ",.02)
  1. ;;C84.00
  1. ;;9002226.02101,"2230,C84.00 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.01 ",.01)
  1. ;;C84.01
  1. ;;9002226.02101,"2230,C84.01 ",.02)
  1. ;;C84.01
  1. ;;9002226.02101,"2230,C84.01 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.02 ",.01)
  1. ;;C84.02
  1. ;;9002226.02101,"2230,C84.02 ",.02)
  1. ;;C84.02
  1. ;;9002226.02101,"2230,C84.02 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.03 ",.01)
  1. ;;C84.03
  1. ;;9002226.02101,"2230,C84.03 ",.02)
  1. ;;C84.03
  1. ;;9002226.02101,"2230,C84.03 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.04 ",.01)
  1. ;;C84.04
  1. ;;9002226.02101,"2230,C84.04 ",.02)
  1. ;;C84.04
  1. ;;9002226.02101,"2230,C84.04 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.05 ",.01)
  1. ;;C84.05
  1. ;;9002226.02101,"2230,C84.05 ",.02)
  1. ;;C84.05
  1. ;;9002226.02101,"2230,C84.05 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.06 ",.01)
  1. ;;C84.06
  1. ;;9002226.02101,"2230,C84.06 ",.02)
  1. ;;C84.06
  1. ;;9002226.02101,"2230,C84.06 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.07 ",.01)
  1. ;;C84.07
  1. ;;9002226.02101,"2230,C84.07 ",.02)
  1. ;;C84.07
  1. ;;9002226.02101,"2230,C84.07 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.08 ",.01)
  1. ;;C84.08
  1. ;;9002226.02101,"2230,C84.08 ",.02)
  1. ;;C84.08
  1. ;;9002226.02101,"2230,C84.08 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.09 ",.01)
  1. ;;C84.09
  1. ;;9002226.02101,"2230,C84.09 ",.02)
  1. ;;C84.09
  1. ;;9002226.02101,"2230,C84.09 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.10 ",.01)
  1. ;;C84.10
  1. ;;9002226.02101,"2230,C84.10 ",.02)
  1. ;;C84.10
  1. ;;9002226.02101,"2230,C84.10 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.11 ",.01)
  1. ;;C84.11
  1. ;;9002226.02101,"2230,C84.11 ",.02)
  1. ;;C84.11
  1. ;;9002226.02101,"2230,C84.11 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.12 ",.01)
  1. ;;C84.12
  1. ;;9002226.02101,"2230,C84.12 ",.02)
  1. ;;C84.12
  1. ;;9002226.02101,"2230,C84.12 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.13 ",.01)
  1. ;;C84.13
  1. ;;9002226.02101,"2230,C84.13 ",.02)
  1. ;;C84.13
  1. ;;9002226.02101,"2230,C84.13 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.14 ",.01)
  1. ;;C84.14
  1. ;;9002226.02101,"2230,C84.14 ",.02)
  1. ;;C84.14
  1. ;;9002226.02101,"2230,C84.14 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.15 ",.01)
  1. ;;C84.15
  1. ;;9002226.02101,"2230,C84.15 ",.02)
  1. ;;C84.15
  1. ;;9002226.02101,"2230,C84.15 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.16 ",.01)
  1. ;;C84.16
  1. ;;9002226.02101,"2230,C84.16 ",.02)
  1. ;;C84.16
  1. ;;9002226.02101,"2230,C84.16 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.17 ",.01)
  1. ;;C84.17
  1. ;;9002226.02101,"2230,C84.17 ",.02)
  1. ;;C84.17
  1. ;;9002226.02101,"2230,C84.17 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.18 ",.01)
  1. ;;C84.18
  1. ;;9002226.02101,"2230,C84.18 ",.02)
  1. ;;C84.18
  1. ;;9002226.02101,"2230,C84.18 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.19 ",.01)
  1. ;;C84.19
  1. ;;9002226.02101,"2230,C84.19 ",.02)
  1. ;;C84.19
  1. ;;9002226.02101,"2230,C84.19 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.40 ",.01)
  1. ;;C84.40
  1. ;;9002226.02101,"2230,C84.40 ",.02)
  1. ;;C84.40
  1. ;;9002226.02101,"2230,C84.40 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.41 ",.01)
  1. ;;C84.41
  1. ;;9002226.02101,"2230,C84.41 ",.02)
  1. ;;C84.41
  1. ;;9002226.02101,"2230,C84.41 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.42 ",.01)
  1. ;;C84.42
  1. ;;9002226.02101,"2230,C84.42 ",.02)
  1. ;;C84.42
  1. ;;9002226.02101,"2230,C84.42 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.43 ",.01)
  1. ;;C84.43
  1. ;;9002226.02101,"2230,C84.43 ",.02)
  1. ;;C84.43
  1. ;;9002226.02101,"2230,C84.43 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.44 ",.01)
  1. ;;C84.44
  1. ;;9002226.02101,"2230,C84.44 ",.02)
  1. ;;C84.44
  1. ;;9002226.02101,"2230,C84.44 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.45 ",.01)
  1. ;;C84.45
  1. ;;9002226.02101,"2230,C84.45 ",.02)
  1. ;;C84.45
  1. ;;9002226.02101,"2230,C84.45 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.46 ",.01)
  1. ;;C84.46
  1. ;;9002226.02101,"2230,C84.46 ",.02)
  1. ;;C84.46
  1. ;;9002226.02101,"2230,C84.46 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.47 ",.01)
  1. ;;C84.47
  1. ;;9002226.02101,"2230,C84.47 ",.02)
  1. ;;C84.47
  1. ;;9002226.02101,"2230,C84.47 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.48 ",.01)
  1. ;;C84.48
  1. ;;9002226.02101,"2230,C84.48 ",.02)
  1. ;;C84.48
  1. ;;9002226.02101,"2230,C84.48 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.49 ",.01)
  1. ;;C84.49
  1. ;;9002226.02101,"2230,C84.49 ",.02)
  1. ;;C84.49
  1. ;;9002226.02101,"2230,C84.49 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.60 ",.01)
  1. ;;C84.60
  1. ;;9002226.02101,"2230,C84.60 ",.02)
  1. ;;C84.60
  1. ;;9002226.02101,"2230,C84.60 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.61 ",.01)
  1. ;;C84.61
  1. ;;9002226.02101,"2230,C84.61 ",.02)
  1. ;;C84.61
  1. ;;9002226.02101,"2230,C84.61 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.62 ",.01)
  1. ;;C84.62
  1. ;;9002226.02101,"2230,C84.62 ",.02)
  1. ;;C84.62
  1. ;;9002226.02101,"2230,C84.62 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.63 ",.01)
  1. ;;C84.63
  1. ;;9002226.02101,"2230,C84.63 ",.02)
  1. ;;C84.63
  1. ;;9002226.02101,"2230,C84.63 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.64 ",.01)
  1. ;;C84.64
  1. ;;9002226.02101,"2230,C84.64 ",.02)
  1. ;;C84.64
  1. ;;9002226.02101,"2230,C84.64 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.65 ",.01)
  1. ;;C84.65
  1. ;;9002226.02101,"2230,C84.65 ",.02)
  1. ;;C84.65
  1. ;;9002226.02101,"2230,C84.65 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.66 ",.01)
  1. ;;C84.66
  1. ;;9002226.02101,"2230,C84.66 ",.02)
  1. ;;C84.66
  1. ;;9002226.02101,"2230,C84.66 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.67 ",.01)
  1. ;;C84.67
  1. ;;9002226.02101,"2230,C84.67 ",.02)
  1. ;;C84.67
  1. ;;9002226.02101,"2230,C84.67 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.68 ",.01)
  1. ;;C84.68
  1. ;;9002226.02101,"2230,C84.68 ",.02)
  1. ;;C84.68
  1. ;;9002226.02101,"2230,C84.68 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.69 ",.01)
  1. ;;C84.69
  1. ;;9002226.02101,"2230,C84.69 ",.02)
  1. ;;C84.69
  1. ;;9002226.02101,"2230,C84.69 ",.03)
  1. ;;30
  1. ;;9002226.02101,"2230,C84.70 ",.01)
  1. ;;C84.70
  1. ;;9002226.02101,"2230,C84.70 ",.02)
  1. ;;C84.70