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

ATXD5C2.m

Go to the documentation of this file.
ATXD5C2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
 ;;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,"8,E08.69 ",.02)
 ;;E08.69 
 ;;9002226.02101,"8,E08.69 ",.03)
 ;;30
 ;;9002226.02101,"8,E08.8 ",.01)
 ;;E08.8 
 ;;9002226.02101,"8,E08.8 ",.02)
 ;;E08.8 
 ;;9002226.02101,"8,E08.8 ",.03)
 ;;30
 ;;9002226.02101,"8,E08.9 ",.01)
 ;;E08.9 
 ;;9002226.02101,"8,E08.9 ",.02)
 ;;E08.9 
 ;;9002226.02101,"8,E08.9 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.00 ",.01)
 ;;E09.00 
 ;;9002226.02101,"8,E09.00 ",.02)
 ;;E09.00 
 ;;9002226.02101,"8,E09.00 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.01 ",.01)
 ;;E09.01 
 ;;9002226.02101,"8,E09.01 ",.02)
 ;;E09.01 
 ;;9002226.02101,"8,E09.01 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.10 ",.01)
 ;;E09.10 
 ;;9002226.02101,"8,E09.10 ",.02)
 ;;E09.10 
 ;;9002226.02101,"8,E09.10 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.11 ",.01)
 ;;E09.11 
 ;;9002226.02101,"8,E09.11 ",.02)
 ;;E09.11 
 ;;9002226.02101,"8,E09.11 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.21 ",.01)
 ;;E09.21 
 ;;9002226.02101,"8,E09.21 ",.02)
 ;;E09.21 
 ;;9002226.02101,"8,E09.21 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.22 ",.01)
 ;;E09.22 
 ;;9002226.02101,"8,E09.22 ",.02)
 ;;E09.22 
 ;;9002226.02101,"8,E09.22 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.29 ",.01)
 ;;E09.29 
 ;;9002226.02101,"8,E09.29 ",.02)
 ;;E09.29 
 ;;9002226.02101,"8,E09.29 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.311 ",.01)
 ;;E09.311 
 ;;9002226.02101,"8,E09.311 ",.02)
 ;;E09.311 
 ;;9002226.02101,"8,E09.311 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.319 ",.01)
 ;;E09.319 
 ;;9002226.02101,"8,E09.319 ",.02)
 ;;E09.319 
 ;;9002226.02101,"8,E09.319 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.321 ",.01)
 ;;E09.321 
 ;;9002226.02101,"8,E09.321 ",.02)
 ;;E09.321 
 ;;9002226.02101,"8,E09.321 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.329 ",.01)
 ;;E09.329 
 ;;9002226.02101,"8,E09.329 ",.02)
 ;;E09.329 
 ;;9002226.02101,"8,E09.329 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.331 ",.01)
 ;;E09.331 
 ;;9002226.02101,"8,E09.331 ",.02)
 ;;E09.331 
 ;;9002226.02101,"8,E09.331 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.339 ",.01)
 ;;E09.339 
 ;;9002226.02101,"8,E09.339 ",.02)
 ;;E09.339 
 ;;9002226.02101,"8,E09.339 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.341 ",.01)
 ;;E09.341 
 ;;9002226.02101,"8,E09.341 ",.02)
 ;;E09.341 
 ;;9002226.02101,"8,E09.341 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.349 ",.01)
 ;;E09.349 
 ;;9002226.02101,"8,E09.349 ",.02)
 ;;E09.349 
 ;;9002226.02101,"8,E09.349 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.351 ",.01)
 ;;E09.351 
 ;;9002226.02101,"8,E09.351 ",.02)
 ;;E09.351 
 ;;9002226.02101,"8,E09.351 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.359 ",.01)
 ;;E09.359 
 ;;9002226.02101,"8,E09.359 ",.02)
 ;;E09.359 
 ;;9002226.02101,"8,E09.359 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.36 ",.01)
 ;;E09.36 
 ;;9002226.02101,"8,E09.36 ",.02)
 ;;E09.36 
 ;;9002226.02101,"8,E09.36 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.39 ",.01)
 ;;E09.39 
 ;;9002226.02101,"8,E09.39 ",.02)
 ;;E09.39 
 ;;9002226.02101,"8,E09.39 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.40 ",.01)
 ;;E09.40 
 ;;9002226.02101,"8,E09.40 ",.02)
 ;;E09.40 
 ;;9002226.02101,"8,E09.40 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.41 ",.01)
 ;;E09.41 
 ;;9002226.02101,"8,E09.41 ",.02)
 ;;E09.41 
 ;;9002226.02101,"8,E09.41 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.42 ",.01)
 ;;E09.42 
 ;;9002226.02101,"8,E09.42 ",.02)
 ;;E09.42 
 ;;9002226.02101,"8,E09.42 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.43 ",.01)
 ;;E09.43 
 ;;9002226.02101,"8,E09.43 ",.02)
 ;;E09.43 
 ;;9002226.02101,"8,E09.43 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.44 ",.01)
 ;;E09.44 
 ;;9002226.02101,"8,E09.44 ",.02)
 ;;E09.44 
 ;;9002226.02101,"8,E09.44 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.49 ",.01)
 ;;E09.49 
 ;;9002226.02101,"8,E09.49 ",.02)
 ;;E09.49 
 ;;9002226.02101,"8,E09.49 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.51 ",.01)
 ;;E09.51 
 ;;9002226.02101,"8,E09.51 ",.02)
 ;;E09.51 
 ;;9002226.02101,"8,E09.51 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.52 ",.01)
 ;;E09.52 
 ;;9002226.02101,"8,E09.52 ",.02)
 ;;E09.52 
 ;;9002226.02101,"8,E09.52 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.59 ",.01)
 ;;E09.59 
 ;;9002226.02101,"8,E09.59 ",.02)
 ;;E09.59 
 ;;9002226.02101,"8,E09.59 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.610 ",.01)
 ;;E09.610 
 ;;9002226.02101,"8,E09.610 ",.02)
 ;;E09.610 
 ;;9002226.02101,"8,E09.610 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.618 ",.01)
 ;;E09.618 
 ;;9002226.02101,"8,E09.618 ",.02)
 ;;E09.618 
 ;;9002226.02101,"8,E09.618 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.620 ",.01)
 ;;E09.620 
 ;;9002226.02101,"8,E09.620 ",.02)
 ;;E09.620 
 ;;9002226.02101,"8,E09.620 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.621 ",.01)
 ;;E09.621 
 ;;9002226.02101,"8,E09.621 ",.02)
 ;;E09.621 
 ;;9002226.02101,"8,E09.621 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.622 ",.01)
 ;;E09.622 
 ;;9002226.02101,"8,E09.622 ",.02)
 ;;E09.622 
 ;;9002226.02101,"8,E09.622 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.628 ",.01)
 ;;E09.628 
 ;;9002226.02101,"8,E09.628 ",.02)
 ;;E09.628 
 ;;9002226.02101,"8,E09.628 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.630 ",.01)
 ;;E09.630 
 ;;9002226.02101,"8,E09.630 ",.02)
 ;;E09.630 
 ;;9002226.02101,"8,E09.630 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.638 ",.01)
 ;;E09.638 
 ;;9002226.02101,"8,E09.638 ",.02)
 ;;E09.638 
 ;;9002226.02101,"8,E09.638 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.641 ",.01)
 ;;E09.641 
 ;;9002226.02101,"8,E09.641 ",.02)
 ;;E09.641 
 ;;9002226.02101,"8,E09.641 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.649 ",.01)
 ;;E09.649 
 ;;9002226.02101,"8,E09.649 ",.02)
 ;;E09.649 
 ;;9002226.02101,"8,E09.649 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.65 ",.01)
 ;;E09.65 
 ;;9002226.02101,"8,E09.65 ",.02)
 ;;E09.65 
 ;;9002226.02101,"8,E09.65 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.69 ",.01)
 ;;E09.69 
 ;;9002226.02101,"8,E09.69 ",.02)
 ;;E09.69 
 ;;9002226.02101,"8,E09.69 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.8 ",.01)
 ;;E09.8 
 ;;9002226.02101,"8,E09.8 ",.02)
 ;;E09.8 
 ;;9002226.02101,"8,E09.8 ",.03)
 ;;30
 ;;9002226.02101,"8,E09.9 ",.01)
 ;;E09.9 
 ;;9002226.02101,"8,E09.9 ",.02)
 ;;E09.9 
 ;;9002226.02101,"8,E09.9 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.10 ",.01)
 ;;E10.10 
 ;;9002226.02101,"8,E10.10 ",.02)
 ;;E10.10 
 ;;9002226.02101,"8,E10.10 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.11 ",.01)
 ;;E10.11 
 ;;9002226.02101,"8,E10.11 ",.02)
 ;;E10.11 
 ;;9002226.02101,"8,E10.11 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.21 ",.01)
 ;;E10.21 
 ;;9002226.02101,"8,E10.21 ",.02)
 ;;E10.21 
 ;;9002226.02101,"8,E10.21 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.22 ",.01)
 ;;E10.22 
 ;;9002226.02101,"8,E10.22 ",.02)
 ;;E10.22 
 ;;9002226.02101,"8,E10.22 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.29 ",.01)
 ;;E10.29 
 ;;9002226.02101,"8,E10.29 ",.02)
 ;;E10.29 
 ;;9002226.02101,"8,E10.29 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.311 ",.01)
 ;;E10.311 
 ;;9002226.02101,"8,E10.311 ",.02)
 ;;E10.311 
 ;;9002226.02101,"8,E10.311 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.319 ",.01)
 ;;E10.319 
 ;;9002226.02101,"8,E10.319 ",.02)
 ;;E10.319 
 ;;9002226.02101,"8,E10.319 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.321 ",.01)
 ;;E10.321 
 ;;9002226.02101,"8,E10.321 ",.02)
 ;;E10.321 
 ;;9002226.02101,"8,E10.321 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.329 ",.01)
 ;;E10.329 
 ;;9002226.02101,"8,E10.329 ",.02)
 ;;E10.329 
 ;;9002226.02101,"8,E10.329 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.331 ",.01)
 ;;E10.331 
 ;;9002226.02101,"8,E10.331 ",.02)
 ;;E10.331 
 ;;9002226.02101,"8,E10.331 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.339 ",.01)
 ;;E10.339 
 ;;9002226.02101,"8,E10.339 ",.02)
 ;;E10.339 
 ;;9002226.02101,"8,E10.339 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.341 ",.01)
 ;;E10.341 
 ;;9002226.02101,"8,E10.341 ",.02)
 ;;E10.341 
 ;;9002226.02101,"8,E10.341 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.349 ",.01)
 ;;E10.349 
 ;;9002226.02101,"8,E10.349 ",.02)
 ;;E10.349 
 ;;9002226.02101,"8,E10.349 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.351 ",.01)
 ;;E10.351 
 ;;9002226.02101,"8,E10.351 ",.02)
 ;;E10.351 
 ;;9002226.02101,"8,E10.351 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.359 ",.01)
 ;;E10.359 
 ;;9002226.02101,"8,E10.359 ",.02)
 ;;E10.359 
 ;;9002226.02101,"8,E10.359 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.36 ",.01)
 ;;E10.36 
 ;;9002226.02101,"8,E10.36 ",.02)
 ;;E10.36 
 ;;9002226.02101,"8,E10.36 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.39 ",.01)
 ;;E10.39 
 ;;9002226.02101,"8,E10.39 ",.02)
 ;;E10.39 
 ;;9002226.02101,"8,E10.39 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.40 ",.01)
 ;;E10.40 
 ;;9002226.02101,"8,E10.40 ",.02)
 ;;E10.40 
 ;;9002226.02101,"8,E10.40 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.41 ",.01)
 ;;E10.41 
 ;;9002226.02101,"8,E10.41 ",.02)
 ;;E10.41 
 ;;9002226.02101,"8,E10.41 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.42 ",.01)
 ;;E10.42 
 ;;9002226.02101,"8,E10.42 ",.02)
 ;;E10.42 
 ;;9002226.02101,"8,E10.42 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.43 ",.01)
 ;;E10.43 
 ;;9002226.02101,"8,E10.43 ",.02)
 ;;E10.43 
 ;;9002226.02101,"8,E10.43 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.44 ",.01)
 ;;E10.44 
 ;;9002226.02101,"8,E10.44 ",.02)
 ;;E10.44 
 ;;9002226.02101,"8,E10.44 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.49 ",.01)
 ;;E10.49 
 ;;9002226.02101,"8,E10.49 ",.02)
 ;;E10.49 
 ;;9002226.02101,"8,E10.49 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.51 ",.01)
 ;;E10.51 
 ;;9002226.02101,"8,E10.51 ",.02)
 ;;E10.51 
 ;;9002226.02101,"8,E10.51 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.52 ",.01)
 ;;E10.52 
 ;;9002226.02101,"8,E10.52 ",.02)
 ;;E10.52 
 ;;9002226.02101,"8,E10.52 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.59 ",.01)
 ;;E10.59 
 ;;9002226.02101,"8,E10.59 ",.02)
 ;;E10.59 
 ;;9002226.02101,"8,E10.59 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.610 ",.01)
 ;;E10.610 
 ;;9002226.02101,"8,E10.610 ",.02)
 ;;E10.610 
 ;;9002226.02101,"8,E10.610 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.618 ",.01)
 ;;E10.618 
 ;;9002226.02101,"8,E10.618 ",.02)
 ;;E10.618 
 ;;9002226.02101,"8,E10.618 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.620 ",.01)
 ;;E10.620 
 ;;9002226.02101,"8,E10.620 ",.02)
 ;;E10.620 
 ;;9002226.02101,"8,E10.620 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.621 ",.01)
 ;;E10.621 
 ;;9002226.02101,"8,E10.621 ",.02)
 ;;E10.621 
 ;;9002226.02101,"8,E10.621 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.622 ",.01)
 ;;E10.622 
 ;;9002226.02101,"8,E10.622 ",.02)
 ;;E10.622 
 ;;9002226.02101,"8,E10.622 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.628 ",.01)
 ;;E10.628 
 ;;9002226.02101,"8,E10.628 ",.02)
 ;;E10.628 
 ;;9002226.02101,"8,E10.628 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.630 ",.01)
 ;;E10.630 
 ;;9002226.02101,"8,E10.630 ",.02)
 ;;E10.630 
 ;;9002226.02101,"8,E10.630 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.638 ",.01)
 ;;E10.638 
 ;;9002226.02101,"8,E10.638 ",.02)
 ;;E10.638 
 ;;9002226.02101,"8,E10.638 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.641 ",.01)
 ;;E10.641 
 ;;9002226.02101,"8,E10.641 ",.02)
 ;;E10.641 
 ;;9002226.02101,"8,E10.641 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.649 ",.01)
 ;;E10.649 
 ;;9002226.02101,"8,E10.649 ",.02)
 ;;E10.649 
 ;;9002226.02101,"8,E10.649 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.65 ",.01)
 ;;E10.65 
 ;;9002226.02101,"8,E10.65 ",.02)
 ;;E10.65 
 ;;9002226.02101,"8,E10.65 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.69 ",.01)
 ;;E10.69 
 ;;9002226.02101,"8,E10.69 ",.02)
 ;;E10.69 
 ;;9002226.02101,"8,E10.69 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.8 ",.01)
 ;;E10.8 
 ;;9002226.02101,"8,E10.8 ",.02)
 ;;E10.8 
 ;;9002226.02101,"8,E10.8 ",.03)
 ;;30
 ;;9002226.02101,"8,E10.9 ",.01)
 ;;E10.9 
 ;;9002226.02101,"8,E10.9 ",.02)
 ;;E10.9 
 ;;9002226.02101,"8,E10.9 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.00 ",.01)
 ;;E11.00 
 ;;9002226.02101,"8,E11.00 ",.02)
 ;;E11.00 
 ;;9002226.02101,"8,E11.00 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.01 ",.01)
 ;;E11.01 
 ;;9002226.02101,"8,E11.01 ",.02)
 ;;E11.01 
 ;;9002226.02101,"8,E11.01 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.21 ",.01)
 ;;E11.21 
 ;;9002226.02101,"8,E11.21 ",.02)
 ;;E11.21 
 ;;9002226.02101,"8,E11.21 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.22 ",.01)
 ;;E11.22 
 ;;9002226.02101,"8,E11.22 ",.02)
 ;;E11.22 
 ;;9002226.02101,"8,E11.22 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.29 ",.01)
 ;;E11.29 
 ;;9002226.02101,"8,E11.29 ",.02)
 ;;E11.29 
 ;;9002226.02101,"8,E11.29 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.311 ",.01)
 ;;E11.311 
 ;;9002226.02101,"8,E11.311 ",.02)
 ;;E11.311 
 ;;9002226.02101,"8,E11.311 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.319 ",.01)
 ;;E11.319 
 ;;9002226.02101,"8,E11.319 ",.02)
 ;;E11.319 
 ;;9002226.02101,"8,E11.319 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.321 ",.01)
 ;;E11.321 
 ;;9002226.02101,"8,E11.321 ",.02)
 ;;E11.321 
 ;;9002226.02101,"8,E11.321 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.329 ",.01)
 ;;E11.329 
 ;;9002226.02101,"8,E11.329 ",.02)
 ;;E11.329 
 ;;9002226.02101,"8,E11.329 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.331 ",.01)
 ;;E11.331 
 ;;9002226.02101,"8,E11.331 ",.02)
 ;;E11.331 
 ;;9002226.02101,"8,E11.331 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.339 ",.01)
 ;;E11.339 
 ;;9002226.02101,"8,E11.339 ",.02)
 ;;E11.339 
 ;;9002226.02101,"8,E11.339 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.341 ",.01)
 ;;E11.341 
 ;;9002226.02101,"8,E11.341 ",.02)
 ;;E11.341 
 ;;9002226.02101,"8,E11.341 ",.03)
 ;;30
 ;;9002226.02101,"8,E11.349 ",.01)
 ;;E11.349 
 ;;9002226.02101,"8,E11.349 ",.02)
 ;;E11.349 
 ;;9002226.02101,"8,E11.349 ",.03)
 ;;30