ATXD8R2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 12, 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,"878,J11.1 ",.02)
;;J11.1
;;9002226.02101,"878,J11.1 ",.03)
;;30
;;9002226.02101,"878,J11.2 ",.01)
;;J11.2
;;9002226.02101,"878,J11.2 ",.02)
;;J11.2
;;9002226.02101,"878,J11.2 ",.03)
;;30
;;9002226.02101,"878,J11.81 ",.01)
;;J11.81
;;9002226.02101,"878,J11.81 ",.02)
;;J11.81
;;9002226.02101,"878,J11.81 ",.03)
;;30
;;9002226.02101,"878,J11.82 ",.01)
;;J11.82
;;9002226.02101,"878,J11.82 ",.02)
;;J11.82
;;9002226.02101,"878,J11.82 ",.03)
;;30
;;9002226.02101,"878,J11.83 ",.01)
;;J11.83
;;9002226.02101,"878,J11.83 ",.02)
;;J11.83
;;9002226.02101,"878,J11.83 ",.03)
;;30
;;9002226.02101,"878,J11.89 ",.01)
;;J11.89
;;9002226.02101,"878,J11.89 ",.02)
;;J11.89
;;9002226.02101,"878,J11.89 ",.03)
;;30
;;9002226.02101,"878,J12.9 ",.01)
;;J12.9
;;9002226.02101,"878,J12.9 ",.02)
;;J12.9
;;9002226.02101,"878,J12.9 ",.03)
;;30
;;9002226.02101,"878,J18.0 ",.01)
;;J18.0
;;9002226.02101,"878,J18.0 ",.02)
;;J18.0
;;9002226.02101,"878,J18.0 ",.03)
;;30
;;9002226.02101,"878,J18.8 ",.01)
;;J18.8
;;9002226.02101,"878,J18.8 ",.02)
;;J18.8
;;9002226.02101,"878,J18.8 ",.03)
;;30
;;9002226.02101,"878,J18.9 ",.01)
;;J18.9
;;9002226.02101,"878,J18.9 ",.02)
;;J18.9
;;9002226.02101,"878,J18.9 ",.03)
;;30
;;9002226.02101,"878,J20.9 ",.01)
;;J20.9
;;9002226.02101,"878,J20.9 ",.02)
;;J20.9
;;9002226.02101,"878,J20.9 ",.03)
;;30
;;9002226.02101,"878,J21.8 ",.01)
;;J21.8
;;9002226.02101,"878,J21.8 ",.02)
;;J21.8
;;9002226.02101,"878,J21.8 ",.03)
;;30
;;9002226.02101,"878,J21.9 ",.01)
;;J21.9
;;9002226.02101,"878,J21.9 ",.02)
;;J21.9
;;9002226.02101,"878,J21.9 ",.03)
;;30
;;9002226.02101,"878,J39.8 ",.01)
;;J39.8
;;9002226.02101,"878,J39.8 ",.02)
;;J39.8
;;9002226.02101,"878,J39.8 ",.03)
;;30
;;9002226.02101,"878,J39.9 ",.01)
;;J39.9
;;9002226.02101,"878,J39.9 ",.02)
;;J39.9
;;9002226.02101,"878,J39.9 ",.03)
;;30
;;9002226.02101,"878,J40. ",.01)
;;J40.
;;9002226.02101,"878,J40. ",.02)
;;J40.
;;9002226.02101,"878,J40. ",.03)
;;30
;;9002226.02101,"878,R05. ",.01)
;;R05.
;;9002226.02101,"878,R05. ",.02)
;;R05.
;;9002226.02101,"878,R05. ",.03)
;;30
;;9002226.02101,"878,R50.2 ",.01)
;;R50.2
;;9002226.02101,"878,R50.2 ",.02)
;;R50.2
;;9002226.02101,"878,R50.2 ",.03)
;;30
;;9002226.02101,"878,R50.81 ",.01)
;;R50.81
;;9002226.02101,"878,R50.81 ",.02)
;;R50.81
;;9002226.02101,"878,R50.81 ",.03)
;;30
;;9002226.02101,"878,R50.9 ",.01)
;;R50.9
;;9002226.02101,"878,R50.9 ",.02)
;;R50.9
;;9002226.02101,"878,R50.9 ",.03)
;;30
;;9002226.04101,"878,1",.01)
;;BGP
ATXD8R2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 12, 2014;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;9002226.02101,"878,J11.1 ",.02)
+2 ;;J11.1
+3 ;;9002226.02101,"878,J11.1 ",.03)
+4 ;;30
+5 ;;9002226.02101,"878,J11.2 ",.01)
+6 ;;J11.2
+7 ;;9002226.02101,"878,J11.2 ",.02)
+8 ;;J11.2
+9 ;;9002226.02101,"878,J11.2 ",.03)
+10 ;;30
+11 ;;9002226.02101,"878,J11.81 ",.01)
+12 ;;J11.81
+13 ;;9002226.02101,"878,J11.81 ",.02)
+14 ;;J11.81
+15 ;;9002226.02101,"878,J11.81 ",.03)
+16 ;;30
+17 ;;9002226.02101,"878,J11.82 ",.01)
+18 ;;J11.82
+19 ;;9002226.02101,"878,J11.82 ",.02)
+20 ;;J11.82
+21 ;;9002226.02101,"878,J11.82 ",.03)
+22 ;;30
+23 ;;9002226.02101,"878,J11.83 ",.01)
+24 ;;J11.83
+25 ;;9002226.02101,"878,J11.83 ",.02)
+26 ;;J11.83
+27 ;;9002226.02101,"878,J11.83 ",.03)
+28 ;;30
+29 ;;9002226.02101,"878,J11.89 ",.01)
+30 ;;J11.89
+31 ;;9002226.02101,"878,J11.89 ",.02)
+32 ;;J11.89
+33 ;;9002226.02101,"878,J11.89 ",.03)
+34 ;;30
+35 ;;9002226.02101,"878,J12.9 ",.01)
+36 ;;J12.9
+37 ;;9002226.02101,"878,J12.9 ",.02)
+38 ;;J12.9
+39 ;;9002226.02101,"878,J12.9 ",.03)
+40 ;;30
+41 ;;9002226.02101,"878,J18.0 ",.01)
+42 ;;J18.0
+43 ;;9002226.02101,"878,J18.0 ",.02)
+44 ;;J18.0
+45 ;;9002226.02101,"878,J18.0 ",.03)
+46 ;;30
+47 ;;9002226.02101,"878,J18.8 ",.01)
+48 ;;J18.8
+49 ;;9002226.02101,"878,J18.8 ",.02)
+50 ;;J18.8
+51 ;;9002226.02101,"878,J18.8 ",.03)
+52 ;;30
+53 ;;9002226.02101,"878,J18.9 ",.01)
+54 ;;J18.9
+55 ;;9002226.02101,"878,J18.9 ",.02)
+56 ;;J18.9
+57 ;;9002226.02101,"878,J18.9 ",.03)
+58 ;;30
+59 ;;9002226.02101,"878,J20.9 ",.01)
+60 ;;J20.9
+61 ;;9002226.02101,"878,J20.9 ",.02)
+62 ;;J20.9
+63 ;;9002226.02101,"878,J20.9 ",.03)
+64 ;;30
+65 ;;9002226.02101,"878,J21.8 ",.01)
+66 ;;J21.8
+67 ;;9002226.02101,"878,J21.8 ",.02)
+68 ;;J21.8
+69 ;;9002226.02101,"878,J21.8 ",.03)
+70 ;;30
+71 ;;9002226.02101,"878,J21.9 ",.01)
+72 ;;J21.9
+73 ;;9002226.02101,"878,J21.9 ",.02)
+74 ;;J21.9
+75 ;;9002226.02101,"878,J21.9 ",.03)
+76 ;;30
+77 ;;9002226.02101,"878,J39.8 ",.01)
+78 ;;J39.8
+79 ;;9002226.02101,"878,J39.8 ",.02)
+80 ;;J39.8
+81 ;;9002226.02101,"878,J39.8 ",.03)
+82 ;;30
+83 ;;9002226.02101,"878,J39.9 ",.01)
+84 ;;J39.9
+85 ;;9002226.02101,"878,J39.9 ",.02)
+86 ;;J39.9
+87 ;;9002226.02101,"878,J39.9 ",.03)
+88 ;;30
+89 ;;9002226.02101,"878,J40. ",.01)
+90 ;;J40.
+91 ;;9002226.02101,"878,J40. ",.02)
+92 ;;J40.
+93 ;;9002226.02101,"878,J40. ",.03)
+94 ;;30
+95 ;;9002226.02101,"878,R05. ",.01)
+96 ;;R05.
+97 ;;9002226.02101,"878,R05. ",.02)
+98 ;;R05.
+99 ;;9002226.02101,"878,R05. ",.03)
+100 ;;30
+101 ;;9002226.02101,"878,R50.2 ",.01)
+102 ;;R50.2
+103 ;;9002226.02101,"878,R50.2 ",.02)
+104 ;;R50.2
+105 ;;9002226.02101,"878,R50.2 ",.03)
+106 ;;30
+107 ;;9002226.02101,"878,R50.81 ",.01)
+108 ;;R50.81
+109 ;;9002226.02101,"878,R50.81 ",.02)
+110 ;;R50.81
+111 ;;9002226.02101,"878,R50.81 ",.03)
+112 ;;30
+113 ;;9002226.02101,"878,R50.9 ",.01)
+114 ;;R50.9
+115 ;;9002226.02101,"878,R50.9 ",.02)
+116 ;;R50.9
+117 ;;9002226.02101,"878,R50.9 ",.03)
+118 ;;30
+119 ;;9002226.04101,"878,1",.01)
+120 ;;BGP
