- ATXXA46 ;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,"873,S31.159A ",.02)
- ;;S31.159A
- ;;9002226.02101,"873,S31.159A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.20XA ",.01)
- ;;S31.20XA
- ;;9002226.02101,"873,S31.20XA ",.02)
- ;;S31.20XA
- ;;9002226.02101,"873,S31.20XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.21XA ",.01)
- ;;S31.21XA
- ;;9002226.02101,"873,S31.21XA ",.02)
- ;;S31.21XA
- ;;9002226.02101,"873,S31.21XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.22XA ",.01)
- ;;S31.22XA
- ;;9002226.02101,"873,S31.22XA ",.02)
- ;;S31.22XA
- ;;9002226.02101,"873,S31.22XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.23XA ",.01)
- ;;S31.23XA
- ;;9002226.02101,"873,S31.23XA ",.02)
- ;;S31.23XA
- ;;9002226.02101,"873,S31.23XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.24XA ",.01)
- ;;S31.24XA
- ;;9002226.02101,"873,S31.24XA ",.02)
- ;;S31.24XA
- ;;9002226.02101,"873,S31.24XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.25XA ",.01)
- ;;S31.25XA
- ;;9002226.02101,"873,S31.25XA ",.02)
- ;;S31.25XA
- ;;9002226.02101,"873,S31.25XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.30XA ",.01)
- ;;S31.30XA
- ;;9002226.02101,"873,S31.30XA ",.02)
- ;;S31.30XA
- ;;9002226.02101,"873,S31.30XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.31XA ",.01)
- ;;S31.31XA
- ;;9002226.02101,"873,S31.31XA ",.02)
- ;;S31.31XA
- ;;9002226.02101,"873,S31.31XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.32XA ",.01)
- ;;S31.32XA
- ;;9002226.02101,"873,S31.32XA ",.02)
- ;;S31.32XA
- ;;9002226.02101,"873,S31.32XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.33XA ",.01)
- ;;S31.33XA
- ;;9002226.02101,"873,S31.33XA ",.02)
- ;;S31.33XA
- ;;9002226.02101,"873,S31.33XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.34XA ",.01)
- ;;S31.34XA
- ;;9002226.02101,"873,S31.34XA ",.02)
- ;;S31.34XA
- ;;9002226.02101,"873,S31.34XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.35XA ",.01)
- ;;S31.35XA
- ;;9002226.02101,"873,S31.35XA ",.02)
- ;;S31.35XA
- ;;9002226.02101,"873,S31.35XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.40XA ",.01)
- ;;S31.40XA
- ;;9002226.02101,"873,S31.40XA ",.02)
- ;;S31.40XA
- ;;9002226.02101,"873,S31.40XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.41XA ",.01)
- ;;S31.41XA
- ;;9002226.02101,"873,S31.41XA ",.02)
- ;;S31.41XA
- ;;9002226.02101,"873,S31.41XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.42XA ",.01)
- ;;S31.42XA
- ;;9002226.02101,"873,S31.42XA ",.02)
- ;;S31.42XA
- ;;9002226.02101,"873,S31.42XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.43XA ",.01)
- ;;S31.43XA
- ;;9002226.02101,"873,S31.43XA ",.02)
- ;;S31.43XA
- ;;9002226.02101,"873,S31.43XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.44XA ",.01)
- ;;S31.44XA
- ;;9002226.02101,"873,S31.44XA ",.02)
- ;;S31.44XA
- ;;9002226.02101,"873,S31.44XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.45XA ",.01)
- ;;S31.45XA
- ;;9002226.02101,"873,S31.45XA ",.02)
- ;;S31.45XA
- ;;9002226.02101,"873,S31.45XA ",.03)
- ;;30
- ;;9002226.02101,"873,S31.501A ",.01)
- ;;S31.501A
- ;;9002226.02101,"873,S31.501A ",.02)
- ;;S31.501A
- ;;9002226.02101,"873,S31.501A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.502A ",.01)
- ;;S31.502A
- ;;9002226.02101,"873,S31.502A ",.02)
- ;;S31.502A
- ;;9002226.02101,"873,S31.502A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.511A ",.01)
- ;;S31.511A
- ;;9002226.02101,"873,S31.511A ",.02)
- ;;S31.511A
- ;;9002226.02101,"873,S31.511A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.512A ",.01)
- ;;S31.512A
- ;;9002226.02101,"873,S31.512A ",.02)
- ;;S31.512A
- ;;9002226.02101,"873,S31.512A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.521A ",.01)
- ;;S31.521A
- ;;9002226.02101,"873,S31.521A ",.02)
- ;;S31.521A
- ;;9002226.02101,"873,S31.521A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.522A ",.01)
- ;;S31.522A
- ;;9002226.02101,"873,S31.522A ",.02)
- ;;S31.522A
- ;;9002226.02101,"873,S31.522A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.531A ",.01)
- ;;S31.531A
- ;;9002226.02101,"873,S31.531A ",.02)
- ;;S31.531A
- ;;9002226.02101,"873,S31.531A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.532A ",.01)
- ;;S31.532A
- ;;9002226.02101,"873,S31.532A ",.02)
- ;;S31.532A
- ;;9002226.02101,"873,S31.532A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.541A ",.01)
- ;;S31.541A
- ;;9002226.02101,"873,S31.541A ",.02)
- ;;S31.541A
- ;;9002226.02101,"873,S31.541A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.542A ",.01)
- ;;S31.542A
- ;;9002226.02101,"873,S31.542A ",.02)
- ;;S31.542A
- ;;9002226.02101,"873,S31.542A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.551A ",.01)
- ;;S31.551A
- ;;9002226.02101,"873,S31.551A ",.02)
- ;;S31.551A
- ;;9002226.02101,"873,S31.551A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.552A ",.01)
- ;;S31.552A
- ;;9002226.02101,"873,S31.552A ",.02)
- ;;S31.552A
- ;;9002226.02101,"873,S31.552A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.600A ",.01)
- ;;S31.600A
- ;;9002226.02101,"873,S31.600A ",.02)
- ;;S31.600A
- ;;9002226.02101,"873,S31.600A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.601A ",.01)
- ;;S31.601A
- ;;9002226.02101,"873,S31.601A ",.02)
- ;;S31.601A
- ;;9002226.02101,"873,S31.601A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.602A ",.01)
- ;;S31.602A
- ;;9002226.02101,"873,S31.602A ",.02)
- ;;S31.602A
- ;;9002226.02101,"873,S31.602A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.603A ",.01)
- ;;S31.603A
- ;;9002226.02101,"873,S31.603A ",.02)
- ;;S31.603A
- ;;9002226.02101,"873,S31.603A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.604A ",.01)
- ;;S31.604A
- ;;9002226.02101,"873,S31.604A ",.02)
- ;;S31.604A
- ;;9002226.02101,"873,S31.604A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.605A ",.01)
- ;;S31.605A
- ;;9002226.02101,"873,S31.605A ",.02)
- ;;S31.605A
- ;;9002226.02101,"873,S31.605A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.609A ",.01)
- ;;S31.609A
- ;;9002226.02101,"873,S31.609A ",.02)
- ;;S31.609A
- ;;9002226.02101,"873,S31.609A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.610A ",.01)
- ;;S31.610A
- ;;9002226.02101,"873,S31.610A ",.02)
- ;;S31.610A
- ;;9002226.02101,"873,S31.610A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.611A ",.01)
- ;;S31.611A
- ;;9002226.02101,"873,S31.611A ",.02)
- ;;S31.611A
- ;;9002226.02101,"873,S31.611A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.612A ",.01)
- ;;S31.612A
- ;;9002226.02101,"873,S31.612A ",.02)
- ;;S31.612A
- ;;9002226.02101,"873,S31.612A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.613A ",.01)
- ;;S31.613A
- ;;9002226.02101,"873,S31.613A ",.02)
- ;;S31.613A
- ;;9002226.02101,"873,S31.613A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.614A ",.01)
- ;;S31.614A
- ;;9002226.02101,"873,S31.614A ",.02)
- ;;S31.614A
- ;;9002226.02101,"873,S31.614A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.615A ",.01)
- ;;S31.615A
- ;;9002226.02101,"873,S31.615A ",.02)
- ;;S31.615A
- ;;9002226.02101,"873,S31.615A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.619A ",.01)
- ;;S31.619A
- ;;9002226.02101,"873,S31.619A ",.02)
- ;;S31.619A
- ;;9002226.02101,"873,S31.619A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.620A ",.01)
- ;;S31.620A
- ;;9002226.02101,"873,S31.620A ",.02)
- ;;S31.620A
- ;;9002226.02101,"873,S31.620A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.621A ",.01)
- ;;S31.621A
- ;;9002226.02101,"873,S31.621A ",.02)
- ;;S31.621A
- ;;9002226.02101,"873,S31.621A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.622A ",.01)
- ;;S31.622A
- ;;9002226.02101,"873,S31.622A ",.02)
- ;;S31.622A
- ;;9002226.02101,"873,S31.622A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.623A ",.01)
- ;;S31.623A
- ;;9002226.02101,"873,S31.623A ",.02)
- ;;S31.623A
- ;;9002226.02101,"873,S31.623A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.624A ",.01)
- ;;S31.624A
- ;;9002226.02101,"873,S31.624A ",.02)
- ;;S31.624A
- ;;9002226.02101,"873,S31.624A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.625A ",.01)
- ;;S31.625A
- ;;9002226.02101,"873,S31.625A ",.02)
- ;;S31.625A
- ;;9002226.02101,"873,S31.625A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.629A ",.01)
- ;;S31.629A
- ;;9002226.02101,"873,S31.629A ",.02)
- ;;S31.629A
- ;;9002226.02101,"873,S31.629A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.630A ",.01)
- ;;S31.630A
- ;;9002226.02101,"873,S31.630A ",.02)
- ;;S31.630A
- ;;9002226.02101,"873,S31.630A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.631A ",.01)
- ;;S31.631A
- ;;9002226.02101,"873,S31.631A ",.02)
- ;;S31.631A
- ;;9002226.02101,"873,S31.631A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.632A ",.01)
- ;;S31.632A
- ;;9002226.02101,"873,S31.632A ",.02)
- ;;S31.632A
- ;;9002226.02101,"873,S31.632A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.633A ",.01)
- ;;S31.633A
- ;;9002226.02101,"873,S31.633A ",.02)
- ;;S31.633A
- ;;9002226.02101,"873,S31.633A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.634A ",.01)
- ;;S31.634A
- ;;9002226.02101,"873,S31.634A ",.02)
- ;;S31.634A
- ;;9002226.02101,"873,S31.634A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.635A ",.01)
- ;;S31.635A
- ;;9002226.02101,"873,S31.635A ",.02)
- ;;S31.635A
- ;;9002226.02101,"873,S31.635A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.639A ",.01)
- ;;S31.639A
- ;;9002226.02101,"873,S31.639A ",.02)
- ;;S31.639A
- ;;9002226.02101,"873,S31.639A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.640A ",.01)
- ;;S31.640A
- ;;9002226.02101,"873,S31.640A ",.02)
- ;;S31.640A
- ;;9002226.02101,"873,S31.640A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.641A ",.01)
- ;;S31.641A
- ;;9002226.02101,"873,S31.641A ",.02)
- ;;S31.641A
- ;;9002226.02101,"873,S31.641A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.642A ",.01)
- ;;S31.642A
- ;;9002226.02101,"873,S31.642A ",.02)
- ;;S31.642A
- ;;9002226.02101,"873,S31.642A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.643A ",.01)
- ;;S31.643A
- ;;9002226.02101,"873,S31.643A ",.02)
- ;;S31.643A
- ;;9002226.02101,"873,S31.643A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.644A ",.01)
- ;;S31.644A
- ;;9002226.02101,"873,S31.644A ",.02)
- ;;S31.644A
- ;;9002226.02101,"873,S31.644A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.645A ",.01)
- ;;S31.645A
- ;;9002226.02101,"873,S31.645A ",.02)
- ;;S31.645A
- ;;9002226.02101,"873,S31.645A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.649A ",.01)
- ;;S31.649A
- ;;9002226.02101,"873,S31.649A ",.02)
- ;;S31.649A
- ;;9002226.02101,"873,S31.649A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.650A ",.01)
- ;;S31.650A
- ;;9002226.02101,"873,S31.650A ",.02)
- ;;S31.650A
- ;;9002226.02101,"873,S31.650A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.651A ",.01)
- ;;S31.651A
- ;;9002226.02101,"873,S31.651A ",.02)
- ;;S31.651A
- ;;9002226.02101,"873,S31.651A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.652A ",.01)
- ;;S31.652A
- ;;9002226.02101,"873,S31.652A ",.02)
- ;;S31.652A
- ;;9002226.02101,"873,S31.652A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.653A ",.01)
- ;;S31.653A
- ;;9002226.02101,"873,S31.653A ",.02)
- ;;S31.653A
- ;;9002226.02101,"873,S31.653A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.654A ",.01)
- ;;S31.654A
- ;;9002226.02101,"873,S31.654A ",.02)
- ;;S31.654A
- ;;9002226.02101,"873,S31.654A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.655A ",.01)
- ;;S31.655A
- ;;9002226.02101,"873,S31.655A ",.02)
- ;;S31.655A
- ;;9002226.02101,"873,S31.655A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.659A ",.01)
- ;;S31.659A
- ;;9002226.02101,"873,S31.659A ",.02)
- ;;S31.659A
- ;;9002226.02101,"873,S31.659A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.801A ",.01)
- ;;S31.801A
- ;;9002226.02101,"873,S31.801A ",.02)
- ;;S31.801A
- ;;9002226.02101,"873,S31.801A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.802A ",.01)
- ;;S31.802A
- ;;9002226.02101,"873,S31.802A ",.02)
- ;;S31.802A
- ;;9002226.02101,"873,S31.802A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.803A ",.01)
- ;;S31.803A
- ;;9002226.02101,"873,S31.803A ",.02)
- ;;S31.803A
- ;;9002226.02101,"873,S31.803A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.804A ",.01)
- ;;S31.804A
- ;;9002226.02101,"873,S31.804A ",.02)
- ;;S31.804A
- ;;9002226.02101,"873,S31.804A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.805A ",.01)
- ;;S31.805A
- ;;9002226.02101,"873,S31.805A ",.02)
- ;;S31.805A
- ;;9002226.02101,"873,S31.805A ",.03)
- ;;30
- ;;9002226.02101,"873,S31.809A ",.01)
- ;;S31.809A
- ;;9002226.02101,"873,S31.809A ",.02)
- ;;S31.809A
- ATXXA46 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 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,"873,S31.159A ",.02)
- +2 ;;S31.159A
- +3 ;;9002226.02101,"873,S31.159A ",.03)
- +4 ;;30
- +5 ;;9002226.02101,"873,S31.20XA ",.01)
- +6 ;;S31.20XA
- +7 ;;9002226.02101,"873,S31.20XA ",.02)
- +8 ;;S31.20XA
- +9 ;;9002226.02101,"873,S31.20XA ",.03)
- +10 ;;30
- +11 ;;9002226.02101,"873,S31.21XA ",.01)
- +12 ;;S31.21XA
- +13 ;;9002226.02101,"873,S31.21XA ",.02)
- +14 ;;S31.21XA
- +15 ;;9002226.02101,"873,S31.21XA ",.03)
- +16 ;;30
- +17 ;;9002226.02101,"873,S31.22XA ",.01)
- +18 ;;S31.22XA
- +19 ;;9002226.02101,"873,S31.22XA ",.02)
- +20 ;;S31.22XA
- +21 ;;9002226.02101,"873,S31.22XA ",.03)
- +22 ;;30
- +23 ;;9002226.02101,"873,S31.23XA ",.01)
- +24 ;;S31.23XA
- +25 ;;9002226.02101,"873,S31.23XA ",.02)
- +26 ;;S31.23XA
- +27 ;;9002226.02101,"873,S31.23XA ",.03)
- +28 ;;30
- +29 ;;9002226.02101,"873,S31.24XA ",.01)
- +30 ;;S31.24XA
- +31 ;;9002226.02101,"873,S31.24XA ",.02)
- +32 ;;S31.24XA
- +33 ;;9002226.02101,"873,S31.24XA ",.03)
- +34 ;;30
- +35 ;;9002226.02101,"873,S31.25XA ",.01)
- +36 ;;S31.25XA
- +37 ;;9002226.02101,"873,S31.25XA ",.02)
- +38 ;;S31.25XA
- +39 ;;9002226.02101,"873,S31.25XA ",.03)
- +40 ;;30
- +41 ;;9002226.02101,"873,S31.30XA ",.01)
- +42 ;;S31.30XA
- +43 ;;9002226.02101,"873,S31.30XA ",.02)
- +44 ;;S31.30XA
- +45 ;;9002226.02101,"873,S31.30XA ",.03)
- +46 ;;30
- +47 ;;9002226.02101,"873,S31.31XA ",.01)
- +48 ;;S31.31XA
- +49 ;;9002226.02101,"873,S31.31XA ",.02)
- +50 ;;S31.31XA
- +51 ;;9002226.02101,"873,S31.31XA ",.03)
- +52 ;;30
- +53 ;;9002226.02101,"873,S31.32XA ",.01)
- +54 ;;S31.32XA
- +55 ;;9002226.02101,"873,S31.32XA ",.02)
- +56 ;;S31.32XA
- +57 ;;9002226.02101,"873,S31.32XA ",.03)
- +58 ;;30
- +59 ;;9002226.02101,"873,S31.33XA ",.01)
- +60 ;;S31.33XA
- +61 ;;9002226.02101,"873,S31.33XA ",.02)
- +62 ;;S31.33XA
- +63 ;;9002226.02101,"873,S31.33XA ",.03)
- +64 ;;30
- +65 ;;9002226.02101,"873,S31.34XA ",.01)
- +66 ;;S31.34XA
- +67 ;;9002226.02101,"873,S31.34XA ",.02)
- +68 ;;S31.34XA
- +69 ;;9002226.02101,"873,S31.34XA ",.03)
- +70 ;;30
- +71 ;;9002226.02101,"873,S31.35XA ",.01)
- +72 ;;S31.35XA
- +73 ;;9002226.02101,"873,S31.35XA ",.02)
- +74 ;;S31.35XA
- +75 ;;9002226.02101,"873,S31.35XA ",.03)
- +76 ;;30
- +77 ;;9002226.02101,"873,S31.40XA ",.01)
- +78 ;;S31.40XA
- +79 ;;9002226.02101,"873,S31.40XA ",.02)
- +80 ;;S31.40XA
- +81 ;;9002226.02101,"873,S31.40XA ",.03)
- +82 ;;30
- +83 ;;9002226.02101,"873,S31.41XA ",.01)
- +84 ;;S31.41XA
- +85 ;;9002226.02101,"873,S31.41XA ",.02)
- +86 ;;S31.41XA
- +87 ;;9002226.02101,"873,S31.41XA ",.03)
- +88 ;;30
- +89 ;;9002226.02101,"873,S31.42XA ",.01)
- +90 ;;S31.42XA
- +91 ;;9002226.02101,"873,S31.42XA ",.02)
- +92 ;;S31.42XA
- +93 ;;9002226.02101,"873,S31.42XA ",.03)
- +94 ;;30
- +95 ;;9002226.02101,"873,S31.43XA ",.01)
- +96 ;;S31.43XA
- +97 ;;9002226.02101,"873,S31.43XA ",.02)
- +98 ;;S31.43XA
- +99 ;;9002226.02101,"873,S31.43XA ",.03)
- +100 ;;30
- +101 ;;9002226.02101,"873,S31.44XA ",.01)
- +102 ;;S31.44XA
- +103 ;;9002226.02101,"873,S31.44XA ",.02)
- +104 ;;S31.44XA
- +105 ;;9002226.02101,"873,S31.44XA ",.03)
- +106 ;;30
- +107 ;;9002226.02101,"873,S31.45XA ",.01)
- +108 ;;S31.45XA
- +109 ;;9002226.02101,"873,S31.45XA ",.02)
- +110 ;;S31.45XA
- +111 ;;9002226.02101,"873,S31.45XA ",.03)
- +112 ;;30
- +113 ;;9002226.02101,"873,S31.501A ",.01)
- +114 ;;S31.501A
- +115 ;;9002226.02101,"873,S31.501A ",.02)
- +116 ;;S31.501A
- +117 ;;9002226.02101,"873,S31.501A ",.03)
- +118 ;;30
- +119 ;;9002226.02101,"873,S31.502A ",.01)
- +120 ;;S31.502A
- +121 ;;9002226.02101,"873,S31.502A ",.02)
- +122 ;;S31.502A
- +123 ;;9002226.02101,"873,S31.502A ",.03)
- +124 ;;30
- +125 ;;9002226.02101,"873,S31.511A ",.01)
- +126 ;;S31.511A
- +127 ;;9002226.02101,"873,S31.511A ",.02)
- +128 ;;S31.511A
- +129 ;;9002226.02101,"873,S31.511A ",.03)
- +130 ;;30
- +131 ;;9002226.02101,"873,S31.512A ",.01)
- +132 ;;S31.512A
- +133 ;;9002226.02101,"873,S31.512A ",.02)
- +134 ;;S31.512A
- +135 ;;9002226.02101,"873,S31.512A ",.03)
- +136 ;;30
- +137 ;;9002226.02101,"873,S31.521A ",.01)
- +138 ;;S31.521A
- +139 ;;9002226.02101,"873,S31.521A ",.02)
- +140 ;;S31.521A
- +141 ;;9002226.02101,"873,S31.521A ",.03)
- +142 ;;30
- +143 ;;9002226.02101,"873,S31.522A ",.01)
- +144 ;;S31.522A
- +145 ;;9002226.02101,"873,S31.522A ",.02)
- +146 ;;S31.522A
- +147 ;;9002226.02101,"873,S31.522A ",.03)
- +148 ;;30
- +149 ;;9002226.02101,"873,S31.531A ",.01)
- +150 ;;S31.531A
- +151 ;;9002226.02101,"873,S31.531A ",.02)
- +152 ;;S31.531A
- +153 ;;9002226.02101,"873,S31.531A ",.03)
- +154 ;;30
- +155 ;;9002226.02101,"873,S31.532A ",.01)
- +156 ;;S31.532A
- +157 ;;9002226.02101,"873,S31.532A ",.02)
- +158 ;;S31.532A
- +159 ;;9002226.02101,"873,S31.532A ",.03)
- +160 ;;30
- +161 ;;9002226.02101,"873,S31.541A ",.01)
- +162 ;;S31.541A
- +163 ;;9002226.02101,"873,S31.541A ",.02)
- +164 ;;S31.541A
- +165 ;;9002226.02101,"873,S31.541A ",.03)
- +166 ;;30
- +167 ;;9002226.02101,"873,S31.542A ",.01)
- +168 ;;S31.542A
- +169 ;;9002226.02101,"873,S31.542A ",.02)
- +170 ;;S31.542A
- +171 ;;9002226.02101,"873,S31.542A ",.03)
- +172 ;;30
- +173 ;;9002226.02101,"873,S31.551A ",.01)
- +174 ;;S31.551A
- +175 ;;9002226.02101,"873,S31.551A ",.02)
- +176 ;;S31.551A
- +177 ;;9002226.02101,"873,S31.551A ",.03)
- +178 ;;30
- +179 ;;9002226.02101,"873,S31.552A ",.01)
- +180 ;;S31.552A
- +181 ;;9002226.02101,"873,S31.552A ",.02)
- +182 ;;S31.552A
- +183 ;;9002226.02101,"873,S31.552A ",.03)
- +184 ;;30
- +185 ;;9002226.02101,"873,S31.600A ",.01)
- +186 ;;S31.600A
- +187 ;;9002226.02101,"873,S31.600A ",.02)
- +188 ;;S31.600A
- +189 ;;9002226.02101,"873,S31.600A ",.03)
- +190 ;;30
- +191 ;;9002226.02101,"873,S31.601A ",.01)
- +192 ;;S31.601A
- +193 ;;9002226.02101,"873,S31.601A ",.02)
- +194 ;;S31.601A
- +195 ;;9002226.02101,"873,S31.601A ",.03)
- +196 ;;30
- +197 ;;9002226.02101,"873,S31.602A ",.01)
- +198 ;;S31.602A
- +199 ;;9002226.02101,"873,S31.602A ",.02)
- +200 ;;S31.602A
- +201 ;;9002226.02101,"873,S31.602A ",.03)
- +202 ;;30
- +203 ;;9002226.02101,"873,S31.603A ",.01)
- +204 ;;S31.603A
- +205 ;;9002226.02101,"873,S31.603A ",.02)
- +206 ;;S31.603A
- +207 ;;9002226.02101,"873,S31.603A ",.03)
- +208 ;;30
- +209 ;;9002226.02101,"873,S31.604A ",.01)
- +210 ;;S31.604A
- +211 ;;9002226.02101,"873,S31.604A ",.02)
- +212 ;;S31.604A
- +213 ;;9002226.02101,"873,S31.604A ",.03)
- +214 ;;30
- +215 ;;9002226.02101,"873,S31.605A ",.01)
- +216 ;;S31.605A
- +217 ;;9002226.02101,"873,S31.605A ",.02)
- +218 ;;S31.605A
- +219 ;;9002226.02101,"873,S31.605A ",.03)
- +220 ;;30
- +221 ;;9002226.02101,"873,S31.609A ",.01)
- +222 ;;S31.609A
- +223 ;;9002226.02101,"873,S31.609A ",.02)
- +224 ;;S31.609A
- +225 ;;9002226.02101,"873,S31.609A ",.03)
- +226 ;;30
- +227 ;;9002226.02101,"873,S31.610A ",.01)
- +228 ;;S31.610A
- +229 ;;9002226.02101,"873,S31.610A ",.02)
- +230 ;;S31.610A
- +231 ;;9002226.02101,"873,S31.610A ",.03)
- +232 ;;30
- +233 ;;9002226.02101,"873,S31.611A ",.01)
- +234 ;;S31.611A
- +235 ;;9002226.02101,"873,S31.611A ",.02)
- +236 ;;S31.611A
- +237 ;;9002226.02101,"873,S31.611A ",.03)
- +238 ;;30
- +239 ;;9002226.02101,"873,S31.612A ",.01)
- +240 ;;S31.612A
- +241 ;;9002226.02101,"873,S31.612A ",.02)
- +242 ;;S31.612A
- +243 ;;9002226.02101,"873,S31.612A ",.03)
- +244 ;;30
- +245 ;;9002226.02101,"873,S31.613A ",.01)
- +246 ;;S31.613A
- +247 ;;9002226.02101,"873,S31.613A ",.02)
- +248 ;;S31.613A
- +249 ;;9002226.02101,"873,S31.613A ",.03)
- +250 ;;30
- +251 ;;9002226.02101,"873,S31.614A ",.01)
- +252 ;;S31.614A
- +253 ;;9002226.02101,"873,S31.614A ",.02)
- +254 ;;S31.614A
- +255 ;;9002226.02101,"873,S31.614A ",.03)
- +256 ;;30
- +257 ;;9002226.02101,"873,S31.615A ",.01)
- +258 ;;S31.615A
- +259 ;;9002226.02101,"873,S31.615A ",.02)
- +260 ;;S31.615A
- +261 ;;9002226.02101,"873,S31.615A ",.03)
- +262 ;;30
- +263 ;;9002226.02101,"873,S31.619A ",.01)
- +264 ;;S31.619A
- +265 ;;9002226.02101,"873,S31.619A ",.02)
- +266 ;;S31.619A
- +267 ;;9002226.02101,"873,S31.619A ",.03)
- +268 ;;30
- +269 ;;9002226.02101,"873,S31.620A ",.01)
- +270 ;;S31.620A
- +271 ;;9002226.02101,"873,S31.620A ",.02)
- +272 ;;S31.620A
- +273 ;;9002226.02101,"873,S31.620A ",.03)
- +274 ;;30
- +275 ;;9002226.02101,"873,S31.621A ",.01)
- +276 ;;S31.621A
- +277 ;;9002226.02101,"873,S31.621A ",.02)
- +278 ;;S31.621A
- +279 ;;9002226.02101,"873,S31.621A ",.03)
- +280 ;;30
- +281 ;;9002226.02101,"873,S31.622A ",.01)
- +282 ;;S31.622A
- +283 ;;9002226.02101,"873,S31.622A ",.02)
- +284 ;;S31.622A
- +285 ;;9002226.02101,"873,S31.622A ",.03)
- +286 ;;30
- +287 ;;9002226.02101,"873,S31.623A ",.01)
- +288 ;;S31.623A
- +289 ;;9002226.02101,"873,S31.623A ",.02)
- +290 ;;S31.623A
- +291 ;;9002226.02101,"873,S31.623A ",.03)
- +292 ;;30
- +293 ;;9002226.02101,"873,S31.624A ",.01)
- +294 ;;S31.624A
- +295 ;;9002226.02101,"873,S31.624A ",.02)
- +296 ;;S31.624A
- +297 ;;9002226.02101,"873,S31.624A ",.03)
- +298 ;;30
- +299 ;;9002226.02101,"873,S31.625A ",.01)
- +300 ;;S31.625A
- +301 ;;9002226.02101,"873,S31.625A ",.02)
- +302 ;;S31.625A
- +303 ;;9002226.02101,"873,S31.625A ",.03)
- +304 ;;30
- +305 ;;9002226.02101,"873,S31.629A ",.01)
- +306 ;;S31.629A
- +307 ;;9002226.02101,"873,S31.629A ",.02)
- +308 ;;S31.629A
- +309 ;;9002226.02101,"873,S31.629A ",.03)
- +310 ;;30
- +311 ;;9002226.02101,"873,S31.630A ",.01)
- +312 ;;S31.630A
- +313 ;;9002226.02101,"873,S31.630A ",.02)
- +314 ;;S31.630A
- +315 ;;9002226.02101,"873,S31.630A ",.03)
- +316 ;;30
- +317 ;;9002226.02101,"873,S31.631A ",.01)
- +318 ;;S31.631A
- +319 ;;9002226.02101,"873,S31.631A ",.02)
- +320 ;;S31.631A
- +321 ;;9002226.02101,"873,S31.631A ",.03)
- +322 ;;30
- +323 ;;9002226.02101,"873,S31.632A ",.01)
- +324 ;;S31.632A
- +325 ;;9002226.02101,"873,S31.632A ",.02)
- +326 ;;S31.632A
- +327 ;;9002226.02101,"873,S31.632A ",.03)
- +328 ;;30
- +329 ;;9002226.02101,"873,S31.633A ",.01)
- +330 ;;S31.633A
- +331 ;;9002226.02101,"873,S31.633A ",.02)
- +332 ;;S31.633A
- +333 ;;9002226.02101,"873,S31.633A ",.03)
- +334 ;;30
- +335 ;;9002226.02101,"873,S31.634A ",.01)
- +336 ;;S31.634A
- +337 ;;9002226.02101,"873,S31.634A ",.02)
- +338 ;;S31.634A
- +339 ;;9002226.02101,"873,S31.634A ",.03)
- +340 ;;30
- +341 ;;9002226.02101,"873,S31.635A ",.01)
- +342 ;;S31.635A
- +343 ;;9002226.02101,"873,S31.635A ",.02)
- +344 ;;S31.635A
- +345 ;;9002226.02101,"873,S31.635A ",.03)
- +346 ;;30
- +347 ;;9002226.02101,"873,S31.639A ",.01)
- +348 ;;S31.639A
- +349 ;;9002226.02101,"873,S31.639A ",.02)
- +350 ;;S31.639A
- +351 ;;9002226.02101,"873,S31.639A ",.03)
- +352 ;;30
- +353 ;;9002226.02101,"873,S31.640A ",.01)
- +354 ;;S31.640A
- +355 ;;9002226.02101,"873,S31.640A ",.02)
- +356 ;;S31.640A
- +357 ;;9002226.02101,"873,S31.640A ",.03)
- +358 ;;30
- +359 ;;9002226.02101,"873,S31.641A ",.01)
- +360 ;;S31.641A
- +361 ;;9002226.02101,"873,S31.641A ",.02)
- +362 ;;S31.641A
- +363 ;;9002226.02101,"873,S31.641A ",.03)
- +364 ;;30
- +365 ;;9002226.02101,"873,S31.642A ",.01)
- +366 ;;S31.642A
- +367 ;;9002226.02101,"873,S31.642A ",.02)
- +368 ;;S31.642A
- +369 ;;9002226.02101,"873,S31.642A ",.03)
- +370 ;;30
- +371 ;;9002226.02101,"873,S31.643A ",.01)
- +372 ;;S31.643A
- +373 ;;9002226.02101,"873,S31.643A ",.02)
- +374 ;;S31.643A
- +375 ;;9002226.02101,"873,S31.643A ",.03)
- +376 ;;30
- +377 ;;9002226.02101,"873,S31.644A ",.01)
- +378 ;;S31.644A
- +379 ;;9002226.02101,"873,S31.644A ",.02)
- +380 ;;S31.644A
- +381 ;;9002226.02101,"873,S31.644A ",.03)
- +382 ;;30
- +383 ;;9002226.02101,"873,S31.645A ",.01)
- +384 ;;S31.645A
- +385 ;;9002226.02101,"873,S31.645A ",.02)
- +386 ;;S31.645A
- +387 ;;9002226.02101,"873,S31.645A ",.03)
- +388 ;;30
- +389 ;;9002226.02101,"873,S31.649A ",.01)
- +390 ;;S31.649A
- +391 ;;9002226.02101,"873,S31.649A ",.02)
- +392 ;;S31.649A
- +393 ;;9002226.02101,"873,S31.649A ",.03)
- +394 ;;30
- +395 ;;9002226.02101,"873,S31.650A ",.01)
- +396 ;;S31.650A
- +397 ;;9002226.02101,"873,S31.650A ",.02)
- +398 ;;S31.650A
- +399 ;;9002226.02101,"873,S31.650A ",.03)
- +400 ;;30
- +401 ;;9002226.02101,"873,S31.651A ",.01)
- +402 ;;S31.651A
- +403 ;;9002226.02101,"873,S31.651A ",.02)
- +404 ;;S31.651A
- +405 ;;9002226.02101,"873,S31.651A ",.03)
- +406 ;;30
- +407 ;;9002226.02101,"873,S31.652A ",.01)
- +408 ;;S31.652A
- +409 ;;9002226.02101,"873,S31.652A ",.02)
- +410 ;;S31.652A
- +411 ;;9002226.02101,"873,S31.652A ",.03)
- +412 ;;30
- +413 ;;9002226.02101,"873,S31.653A ",.01)
- +414 ;;S31.653A
- +415 ;;9002226.02101,"873,S31.653A ",.02)
- +416 ;;S31.653A
- +417 ;;9002226.02101,"873,S31.653A ",.03)
- +418 ;;30
- +419 ;;9002226.02101,"873,S31.654A ",.01)
- +420 ;;S31.654A
- +421 ;;9002226.02101,"873,S31.654A ",.02)
- +422 ;;S31.654A
- +423 ;;9002226.02101,"873,S31.654A ",.03)
- +424 ;;30
- +425 ;;9002226.02101,"873,S31.655A ",.01)
- +426 ;;S31.655A
- +427 ;;9002226.02101,"873,S31.655A ",.02)
- +428 ;;S31.655A
- +429 ;;9002226.02101,"873,S31.655A ",.03)
- +430 ;;30
- +431 ;;9002226.02101,"873,S31.659A ",.01)
- +432 ;;S31.659A
- +433 ;;9002226.02101,"873,S31.659A ",.02)
- +434 ;;S31.659A
- +435 ;;9002226.02101,"873,S31.659A ",.03)
- +436 ;;30
- +437 ;;9002226.02101,"873,S31.801A ",.01)
- +438 ;;S31.801A
- +439 ;;9002226.02101,"873,S31.801A ",.02)
- +440 ;;S31.801A
- +441 ;;9002226.02101,"873,S31.801A ",.03)
- +442 ;;30
- +443 ;;9002226.02101,"873,S31.802A ",.01)
- +444 ;;S31.802A
- +445 ;;9002226.02101,"873,S31.802A ",.02)
- +446 ;;S31.802A
- +447 ;;9002226.02101,"873,S31.802A ",.03)
- +448 ;;30
- +449 ;;9002226.02101,"873,S31.803A ",.01)
- +450 ;;S31.803A
- +451 ;;9002226.02101,"873,S31.803A ",.02)
- +452 ;;S31.803A
- +453 ;;9002226.02101,"873,S31.803A ",.03)
- +454 ;;30
- +455 ;;9002226.02101,"873,S31.804A ",.01)
- +456 ;;S31.804A
- +457 ;;9002226.02101,"873,S31.804A ",.02)
- +458 ;;S31.804A
- +459 ;;9002226.02101,"873,S31.804A ",.03)
- +460 ;;30
- +461 ;;9002226.02101,"873,S31.805A ",.01)
- +462 ;;S31.805A
- +463 ;;9002226.02101,"873,S31.805A ",.02)
- +464 ;;S31.805A
- +465 ;;9002226.02101,"873,S31.805A ",.03)
- +466 ;;30
- +467 ;;9002226.02101,"873,S31.809A ",.01)
- +468 ;;S31.809A
- +469 ;;9002226.02101,"873,S31.809A ",.02)
- +470 ;;S31.809A