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

ATXD5T14.m

Go to the documentation of this file.
ATXD5T14 ;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,"173,X71.9XXD ",.01)
 ;;X71.9XXD 
 ;;9002226.02101,"173,X71.9XXD ",.02)
 ;;X71.9XXD 
 ;;9002226.02101,"173,X71.9XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X71.9XXS ",.01)
 ;;X71.9XXS 
 ;;9002226.02101,"173,X71.9XXS ",.02)
 ;;X71.9XXS 
 ;;9002226.02101,"173,X71.9XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X72.XXXA ",.01)
 ;;X72.XXXA 
 ;;9002226.02101,"173,X72.XXXA ",.02)
 ;;X72.XXXA 
 ;;9002226.02101,"173,X72.XXXA ",.03)
 ;;30
 ;;9002226.02101,"173,X72.XXXD ",.01)
 ;;X72.XXXD 
 ;;9002226.02101,"173,X72.XXXD ",.02)
 ;;X72.XXXD 
 ;;9002226.02101,"173,X72.XXXD ",.03)
 ;;30
 ;;9002226.02101,"173,X72.XXXS ",.01)
 ;;X72.XXXS 
 ;;9002226.02101,"173,X72.XXXS ",.02)
 ;;X72.XXXS 
 ;;9002226.02101,"173,X72.XXXS ",.03)
 ;;30
 ;;9002226.02101,"173,X73.0XXA ",.01)
 ;;X73.0XXA 
 ;;9002226.02101,"173,X73.0XXA ",.02)
 ;;X73.0XXA 
 ;;9002226.02101,"173,X73.0XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X73.0XXD ",.01)
 ;;X73.0XXD 
 ;;9002226.02101,"173,X73.0XXD ",.02)
 ;;X73.0XXD 
 ;;9002226.02101,"173,X73.0XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X73.0XXS ",.01)
 ;;X73.0XXS 
 ;;9002226.02101,"173,X73.0XXS ",.02)
 ;;X73.0XXS 
 ;;9002226.02101,"173,X73.0XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X73.1XXA ",.01)
 ;;X73.1XXA 
 ;;9002226.02101,"173,X73.1XXA ",.02)
 ;;X73.1XXA 
 ;;9002226.02101,"173,X73.1XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X73.1XXD ",.01)
 ;;X73.1XXD 
 ;;9002226.02101,"173,X73.1XXD ",.02)
 ;;X73.1XXD 
 ;;9002226.02101,"173,X73.1XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X73.1XXS ",.01)
 ;;X73.1XXS 
 ;;9002226.02101,"173,X73.1XXS ",.02)
 ;;X73.1XXS 
 ;;9002226.02101,"173,X73.1XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X73.2XXA ",.01)
 ;;X73.2XXA 
 ;;9002226.02101,"173,X73.2XXA ",.02)
 ;;X73.2XXA 
 ;;9002226.02101,"173,X73.2XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X73.2XXD ",.01)
 ;;X73.2XXD 
 ;;9002226.02101,"173,X73.2XXD ",.02)
 ;;X73.2XXD 
 ;;9002226.02101,"173,X73.2XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X73.2XXS ",.01)
 ;;X73.2XXS 
 ;;9002226.02101,"173,X73.2XXS ",.02)
 ;;X73.2XXS 
 ;;9002226.02101,"173,X73.2XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X73.8XXA ",.01)
 ;;X73.8XXA 
 ;;9002226.02101,"173,X73.8XXA ",.02)
 ;;X73.8XXA 
 ;;9002226.02101,"173,X73.8XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X73.8XXD ",.01)
 ;;X73.8XXD 
 ;;9002226.02101,"173,X73.8XXD ",.02)
 ;;X73.8XXD 
 ;;9002226.02101,"173,X73.8XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X73.8XXS ",.01)
 ;;X73.8XXS 
 ;;9002226.02101,"173,X73.8XXS ",.02)
 ;;X73.8XXS 
 ;;9002226.02101,"173,X73.8XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X73.9XXA ",.01)
 ;;X73.9XXA 
 ;;9002226.02101,"173,X73.9XXA ",.02)
 ;;X73.9XXA 
 ;;9002226.02101,"173,X73.9XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X73.9XXD ",.01)
 ;;X73.9XXD 
 ;;9002226.02101,"173,X73.9XXD ",.02)
 ;;X73.9XXD 
 ;;9002226.02101,"173,X73.9XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X73.9XXS ",.01)
 ;;X73.9XXS 
 ;;9002226.02101,"173,X73.9XXS ",.02)
 ;;X73.9XXS 
 ;;9002226.02101,"173,X73.9XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X74.01XA ",.01)
 ;;X74.01XA 
 ;;9002226.02101,"173,X74.01XA ",.02)
 ;;X74.01XA 
 ;;9002226.02101,"173,X74.01XA ",.03)
 ;;30
 ;;9002226.02101,"173,X74.01XD ",.01)
 ;;X74.01XD 
 ;;9002226.02101,"173,X74.01XD ",.02)
 ;;X74.01XD 
 ;;9002226.02101,"173,X74.01XD ",.03)
 ;;30
 ;;9002226.02101,"173,X74.01XS ",.01)
 ;;X74.01XS 
 ;;9002226.02101,"173,X74.01XS ",.02)
 ;;X74.01XS 
 ;;9002226.02101,"173,X74.01XS ",.03)
 ;;30
 ;;9002226.02101,"173,X74.02XA ",.01)
 ;;X74.02XA 
 ;;9002226.02101,"173,X74.02XA ",.02)
 ;;X74.02XA 
 ;;9002226.02101,"173,X74.02XA ",.03)
 ;;30
 ;;9002226.02101,"173,X74.02XD ",.01)
 ;;X74.02XD 
 ;;9002226.02101,"173,X74.02XD ",.02)
 ;;X74.02XD 
 ;;9002226.02101,"173,X74.02XD ",.03)
 ;;30
 ;;9002226.02101,"173,X74.02XS ",.01)
 ;;X74.02XS 
 ;;9002226.02101,"173,X74.02XS ",.02)
 ;;X74.02XS 
 ;;9002226.02101,"173,X74.02XS ",.03)
 ;;30
 ;;9002226.02101,"173,X74.09XA ",.01)
 ;;X74.09XA 
 ;;9002226.02101,"173,X74.09XA ",.02)
 ;;X74.09XA 
 ;;9002226.02101,"173,X74.09XA ",.03)
 ;;30
 ;;9002226.02101,"173,X74.09XD ",.01)
 ;;X74.09XD 
 ;;9002226.02101,"173,X74.09XD ",.02)
 ;;X74.09XD 
 ;;9002226.02101,"173,X74.09XD ",.03)
 ;;30
 ;;9002226.02101,"173,X74.09XS ",.01)
 ;;X74.09XS 
 ;;9002226.02101,"173,X74.09XS ",.02)
 ;;X74.09XS 
 ;;9002226.02101,"173,X74.09XS ",.03)
 ;;30
 ;;9002226.02101,"173,X74.8XXA ",.01)
 ;;X74.8XXA 
 ;;9002226.02101,"173,X74.8XXA ",.02)
 ;;X74.8XXA 
 ;;9002226.02101,"173,X74.8XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X74.8XXD ",.01)
 ;;X74.8XXD 
 ;;9002226.02101,"173,X74.8XXD ",.02)
 ;;X74.8XXD 
 ;;9002226.02101,"173,X74.8XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X74.8XXS ",.01)
 ;;X74.8XXS 
 ;;9002226.02101,"173,X74.8XXS ",.02)
 ;;X74.8XXS 
 ;;9002226.02101,"173,X74.8XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X74.9XXA ",.01)
 ;;X74.9XXA 
 ;;9002226.02101,"173,X74.9XXA ",.02)
 ;;X74.9XXA 
 ;;9002226.02101,"173,X74.9XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X74.9XXD ",.01)
 ;;X74.9XXD 
 ;;9002226.02101,"173,X74.9XXD ",.02)
 ;;X74.9XXD 
 ;;9002226.02101,"173,X74.9XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X74.9XXS ",.01)
 ;;X74.9XXS 
 ;;9002226.02101,"173,X74.9XXS ",.02)
 ;;X74.9XXS 
 ;;9002226.02101,"173,X74.9XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X75.XXXA ",.01)
 ;;X75.XXXA 
 ;;9002226.02101,"173,X75.XXXA ",.02)
 ;;X75.XXXA 
 ;;9002226.02101,"173,X75.XXXA ",.03)
 ;;30
 ;;9002226.02101,"173,X75.XXXD ",.01)
 ;;X75.XXXD 
 ;;9002226.02101,"173,X75.XXXD ",.02)
 ;;X75.XXXD 
 ;;9002226.02101,"173,X75.XXXD ",.03)
 ;;30
 ;;9002226.02101,"173,X75.XXXS ",.01)
 ;;X75.XXXS 
 ;;9002226.02101,"173,X75.XXXS ",.02)
 ;;X75.XXXS 
 ;;9002226.02101,"173,X75.XXXS ",.03)
 ;;30
 ;;9002226.02101,"173,X76.XXXA ",.01)
 ;;X76.XXXA 
 ;;9002226.02101,"173,X76.XXXA ",.02)
 ;;X76.XXXA 
 ;;9002226.02101,"173,X76.XXXA ",.03)
 ;;30
 ;;9002226.02101,"173,X76.XXXD ",.01)
 ;;X76.XXXD 
 ;;9002226.02101,"173,X76.XXXD ",.02)
 ;;X76.XXXD 
 ;;9002226.02101,"173,X76.XXXD ",.03)
 ;;30
 ;;9002226.02101,"173,X76.XXXS ",.01)
 ;;X76.XXXS 
 ;;9002226.02101,"173,X76.XXXS ",.02)
 ;;X76.XXXS 
 ;;9002226.02101,"173,X76.XXXS ",.03)
 ;;30
 ;;9002226.02101,"173,X77.0XXA ",.01)
 ;;X77.0XXA 
 ;;9002226.02101,"173,X77.0XXA ",.02)
 ;;X77.0XXA 
 ;;9002226.02101,"173,X77.0XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X77.0XXD ",.01)
 ;;X77.0XXD 
 ;;9002226.02101,"173,X77.0XXD ",.02)
 ;;X77.0XXD 
 ;;9002226.02101,"173,X77.0XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X77.0XXS ",.01)
 ;;X77.0XXS 
 ;;9002226.02101,"173,X77.0XXS ",.02)
 ;;X77.0XXS 
 ;;9002226.02101,"173,X77.0XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X77.1XXA ",.01)
 ;;X77.1XXA 
 ;;9002226.02101,"173,X77.1XXA ",.02)
 ;;X77.1XXA 
 ;;9002226.02101,"173,X77.1XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X77.1XXD ",.01)
 ;;X77.1XXD 
 ;;9002226.02101,"173,X77.1XXD ",.02)
 ;;X77.1XXD 
 ;;9002226.02101,"173,X77.1XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X77.1XXS ",.01)
 ;;X77.1XXS 
 ;;9002226.02101,"173,X77.1XXS ",.02)
 ;;X77.1XXS 
 ;;9002226.02101,"173,X77.1XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X77.2XXA ",.01)
 ;;X77.2XXA 
 ;;9002226.02101,"173,X77.2XXA ",.02)
 ;;X77.2XXA 
 ;;9002226.02101,"173,X77.2XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X77.2XXD ",.01)
 ;;X77.2XXD 
 ;;9002226.02101,"173,X77.2XXD ",.02)
 ;;X77.2XXD 
 ;;9002226.02101,"173,X77.2XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X77.2XXS ",.01)
 ;;X77.2XXS 
 ;;9002226.02101,"173,X77.2XXS ",.02)
 ;;X77.2XXS 
 ;;9002226.02101,"173,X77.2XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X77.3XXA ",.01)
 ;;X77.3XXA 
 ;;9002226.02101,"173,X77.3XXA ",.02)
 ;;X77.3XXA 
 ;;9002226.02101,"173,X77.3XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X77.3XXD ",.01)
 ;;X77.3XXD 
 ;;9002226.02101,"173,X77.3XXD ",.02)
 ;;X77.3XXD 
 ;;9002226.02101,"173,X77.3XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X77.3XXS ",.01)
 ;;X77.3XXS 
 ;;9002226.02101,"173,X77.3XXS ",.02)
 ;;X77.3XXS 
 ;;9002226.02101,"173,X77.3XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X77.8XXA ",.01)
 ;;X77.8XXA 
 ;;9002226.02101,"173,X77.8XXA ",.02)
 ;;X77.8XXA 
 ;;9002226.02101,"173,X77.8XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X77.8XXD ",.01)
 ;;X77.8XXD 
 ;;9002226.02101,"173,X77.8XXD ",.02)
 ;;X77.8XXD 
 ;;9002226.02101,"173,X77.8XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X77.8XXS ",.01)
 ;;X77.8XXS 
 ;;9002226.02101,"173,X77.8XXS ",.02)
 ;;X77.8XXS 
 ;;9002226.02101,"173,X77.8XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X77.9XXA ",.01)
 ;;X77.9XXA 
 ;;9002226.02101,"173,X77.9XXA ",.02)
 ;;X77.9XXA 
 ;;9002226.02101,"173,X77.9XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X77.9XXD ",.01)
 ;;X77.9XXD 
 ;;9002226.02101,"173,X77.9XXD ",.02)
 ;;X77.9XXD 
 ;;9002226.02101,"173,X77.9XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X77.9XXS ",.01)
 ;;X77.9XXS 
 ;;9002226.02101,"173,X77.9XXS ",.02)
 ;;X77.9XXS 
 ;;9002226.02101,"173,X77.9XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X78.0XXA ",.01)
 ;;X78.0XXA 
 ;;9002226.02101,"173,X78.0XXA ",.02)
 ;;X78.0XXA 
 ;;9002226.02101,"173,X78.0XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X78.0XXD ",.01)
 ;;X78.0XXD 
 ;;9002226.02101,"173,X78.0XXD ",.02)
 ;;X78.0XXD 
 ;;9002226.02101,"173,X78.0XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X78.0XXS ",.01)
 ;;X78.0XXS 
 ;;9002226.02101,"173,X78.0XXS ",.02)
 ;;X78.0XXS 
 ;;9002226.02101,"173,X78.0XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X78.1XXA ",.01)
 ;;X78.1XXA 
 ;;9002226.02101,"173,X78.1XXA ",.02)
 ;;X78.1XXA 
 ;;9002226.02101,"173,X78.1XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X78.1XXD ",.01)
 ;;X78.1XXD 
 ;;9002226.02101,"173,X78.1XXD ",.02)
 ;;X78.1XXD 
 ;;9002226.02101,"173,X78.1XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X78.1XXS ",.01)
 ;;X78.1XXS 
 ;;9002226.02101,"173,X78.1XXS ",.02)
 ;;X78.1XXS 
 ;;9002226.02101,"173,X78.1XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X78.2XXA ",.01)
 ;;X78.2XXA 
 ;;9002226.02101,"173,X78.2XXA ",.02)
 ;;X78.2XXA 
 ;;9002226.02101,"173,X78.2XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X78.2XXD ",.01)
 ;;X78.2XXD 
 ;;9002226.02101,"173,X78.2XXD ",.02)
 ;;X78.2XXD 
 ;;9002226.02101,"173,X78.2XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X78.2XXS ",.01)
 ;;X78.2XXS 
 ;;9002226.02101,"173,X78.2XXS ",.02)
 ;;X78.2XXS 
 ;;9002226.02101,"173,X78.2XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X78.8XXA ",.01)
 ;;X78.8XXA 
 ;;9002226.02101,"173,X78.8XXA ",.02)
 ;;X78.8XXA 
 ;;9002226.02101,"173,X78.8XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X78.8XXD ",.01)
 ;;X78.8XXD 
 ;;9002226.02101,"173,X78.8XXD ",.02)
 ;;X78.8XXD 
 ;;9002226.02101,"173,X78.8XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X78.8XXS ",.01)
 ;;X78.8XXS 
 ;;9002226.02101,"173,X78.8XXS ",.02)
 ;;X78.8XXS 
 ;;9002226.02101,"173,X78.8XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X78.9XXA ",.01)
 ;;X78.9XXA 
 ;;9002226.02101,"173,X78.9XXA ",.02)
 ;;X78.9XXA 
 ;;9002226.02101,"173,X78.9XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X78.9XXD ",.01)
 ;;X78.9XXD 
 ;;9002226.02101,"173,X78.9XXD ",.02)
 ;;X78.9XXD 
 ;;9002226.02101,"173,X78.9XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X78.9XXS ",.01)
 ;;X78.9XXS 
 ;;9002226.02101,"173,X78.9XXS ",.02)
 ;;X78.9XXS 
 ;;9002226.02101,"173,X78.9XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X79.XXXA ",.01)
 ;;X79.XXXA 
 ;;9002226.02101,"173,X79.XXXA ",.02)
 ;;X79.XXXA 
 ;;9002226.02101,"173,X79.XXXA ",.03)
 ;;30
 ;;9002226.02101,"173,X79.XXXD ",.01)
 ;;X79.XXXD 
 ;;9002226.02101,"173,X79.XXXD ",.02)
 ;;X79.XXXD 
 ;;9002226.02101,"173,X79.XXXD ",.03)
 ;;30
 ;;9002226.02101,"173,X79.XXXS ",.01)
 ;;X79.XXXS 
 ;;9002226.02101,"173,X79.XXXS ",.02)
 ;;X79.XXXS 
 ;;9002226.02101,"173,X79.XXXS ",.03)
 ;;30
 ;;9002226.02101,"173,X80.XXXA ",.01)
 ;;X80.XXXA 
 ;;9002226.02101,"173,X80.XXXA ",.02)
 ;;X80.XXXA 
 ;;9002226.02101,"173,X80.XXXA ",.03)
 ;;30
 ;;9002226.02101,"173,X80.XXXD ",.01)
 ;;X80.XXXD 
 ;;9002226.02101,"173,X80.XXXD ",.02)
 ;;X80.XXXD 
 ;;9002226.02101,"173,X80.XXXD ",.03)
 ;;30
 ;;9002226.02101,"173,X80.XXXS ",.01)
 ;;X80.XXXS 
 ;;9002226.02101,"173,X80.XXXS ",.02)
 ;;X80.XXXS 
 ;;9002226.02101,"173,X80.XXXS ",.03)
 ;;30
 ;;9002226.02101,"173,X81.0XXA ",.01)
 ;;X81.0XXA 
 ;;9002226.02101,"173,X81.0XXA ",.02)
 ;;X81.0XXA 
 ;;9002226.02101,"173,X81.0XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X81.0XXD ",.01)
 ;;X81.0XXD 
 ;;9002226.02101,"173,X81.0XXD ",.02)
 ;;X81.0XXD 
 ;;9002226.02101,"173,X81.0XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X81.0XXS ",.01)
 ;;X81.0XXS 
 ;;9002226.02101,"173,X81.0XXS ",.02)
 ;;X81.0XXS 
 ;;9002226.02101,"173,X81.0XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X81.1XXA ",.01)
 ;;X81.1XXA 
 ;;9002226.02101,"173,X81.1XXA ",.02)
 ;;X81.1XXA 
 ;;9002226.02101,"173,X81.1XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X81.1XXD ",.01)
 ;;X81.1XXD 
 ;;9002226.02101,"173,X81.1XXD ",.02)
 ;;X81.1XXD 
 ;;9002226.02101,"173,X81.1XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X81.1XXS ",.01)
 ;;X81.1XXS 
 ;;9002226.02101,"173,X81.1XXS ",.02)
 ;;X81.1XXS 
 ;;9002226.02101,"173,X81.1XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X81.8XXA ",.01)
 ;;X81.8XXA 
 ;;9002226.02101,"173,X81.8XXA ",.02)
 ;;X81.8XXA 
 ;;9002226.02101,"173,X81.8XXA ",.03)
 ;;30
 ;;9002226.02101,"173,X81.8XXD ",.01)
 ;;X81.8XXD 
 ;;9002226.02101,"173,X81.8XXD ",.02)
 ;;X81.8XXD 
 ;;9002226.02101,"173,X81.8XXD ",.03)
 ;;30
 ;;9002226.02101,"173,X81.8XXS ",.01)
 ;;X81.8XXS 
 ;;9002226.02101,"173,X81.8XXS ",.02)
 ;;X81.8XXS 
 ;;9002226.02101,"173,X81.8XXS ",.03)
 ;;30
 ;;9002226.02101,"173,X82.8XXA ",.01)
 ;;X82.8XXA 
 ;;9002226.02101,"173,X82.8XXA ",.02)
 ;;X82.8XXA