SPNAGGEU ;CM/SD- ANN EVAL AGGREGATE OUTCOME REPORT UTILITIES; 9-13-2003
 ;;2.0;Spinal Cord Dysfunction;**21**;01/02/97
 ;
SET S U="^"
 S SPNDIAGC=0,SPNSEVC=0,SPNMODC=0,SPNPARC=0,SPNLOWC=0
 S SPNLSTDT="",SPNNODUP=""
 S SPNSDATE=0,SPNMDATE=0,SPNPDATE=0,SPNLDATE=0
 S SPNSEXS=0,SPNSEXM=0,SPNSEXP=0,SPNSEXL=0
 S SPNAGES=0,SPNAGEM=0,SPNAGEP=0,SPNAGEL=0
 S SPNT1=30,SPNT2=40,SPNT3=50,SPNT4=60,SPNT5=70
 S MINAGES=0,MINAGEM=0,MINAGEP=0,MINAGEL=0
 S MAXAGES=0,MAXAGEM=0,MAXAGEP=0,MAXAGEL=0
 S BMAS=0,BMAM=0,BMAP=0,BMAL=0,AGESC=0,AGEMC=0,AGEPC=0,AGELC=0
 S BHAS=0,BHAM=0,BHAP=0,BHAL=0
 S AGEL=0,AGEH=0
 S TFSRN=0,TFS=0,TFF=0
 S TFM=0,TFP=0,TFL=0
 S MFSRN=0,CFSRN=0,MFS=0,CFS=0,MFCS=0,CFCS=0
 S MFM=0,CFM=0,MFCM=0,CFCM=0,MFP=0,CFP=0,MFCP=0,CFCP=0
 S MFL=0,CFL=0,MFCL=0,CFCL=0
 S TFCS=0,TFCM=0,TFCP=0,TFCL=0
 S CPI=0,CCI=0,CM=0,CO=0,CSI=0,CE=0
 S CPIS=0,CPIM=0,CPIP=0,CPIL=0,CCIS=0,CCIM=0,CCIP=0,CCIL=0
 S CMS=0,CMM=0,CMP=0,CML=0,COS=0,COM=0,COP=0,COL=0
 S CSIS=0,CSIM=0,CSIP=0,CSIL=0,CES=0,CEM=0,CEP=0,CEL=0
 S CPIRN=0,CCIRN=0,CMRN=0,CORN=0,CSIRN=0,CERN=0
 S CPICS=0,CPICM=0,CPICP=0,CPICL=0,CCICS=0,CCICM=0,CCICP=0,CCICL=0
 S CMCS=0,CMCM=0,CMCP=0,CMCL=0,COCS=0,COCM=0,COCP=0,COCL=0
 S CSICS=0,CSICM=0,CSICP=0,CSICL=0,CECS=0,CECM=0,CECP=0,CECL=0
 S SLSRN=0,SLS=0
 S SLSS=0,SLSM=0,SLSP=0,SLSL=0
 S SLCS=0,SLCM=0,SLCP=0,SLCL=0
 Q
EXIT ;
 K BDATE,EDATE,I,SPNLEXIT,SPNPD0,SPNPD1,SPNLSTDT,SPNDIAGC,SPNSEVC,SPNMODC
 K SPNPARC,SPNLOWC,SPNSDATE,SPNMDATE,SPNPDATE,SPNLDATE,SPNNODUP,SPNSEXS
 K SPNSEXM,SPNSEXP,SPNSEXL
 K SPNT1,SPNT2,SPNT3,SPNT4,SPNT5,SPNDCS,SPNDCM,SPNDCP,SPNDCL,SPNAGROU
 K SPNAGES,SPNAGEM,SPNAGEP,SPNAGEL
 K BMAS,BMAM,BMAP,BMAL,BHAS,BHAM,BHAP,BHAL
 K AGESC,AGEMC,AGEPC,AGELC,MINAGES,MINAGEM,MINAGEP,MINAGEL
 K LORRN,V,LORL,LORH,AGEL,AGEH,ZTSAVE
 K TFSRN,TFS,TFM,TFP,TFL,TFF,TFCS,TFCM,TFCP,TFCL
 K MFSRN,CFSRN,MFS,MFM,MFP,MFL,CFS,CFM,CFP,CFL
 K MFCS,MFCM,MFCP,MFCL,CFCS,CFCM,CFCP,CFCL
 K SLSRN,SLS,SLCS,SLCM,SLCP,SLC
 K SLSS,SLSM,SLSP,SLSL
 K CCPIS,CPIM,CPIP,CPIL,CCIS,CCIM,CCIP,CCIL
 K CMS,CMM,CMP,CML,COS,COM,COP,COL
 K CSIS,CSIM,CSIP,CSIL,CES,CEM,CEP,CEL
 K CPI,CCI,CM,CO,CSI,CEC
 K CPICS,CPICM,CPICP,CPICL,CCICS,CCICM,CCICP,CCICL,CMCS,CMCM,CMCP,CMCL
 K COCS,COCM,COCP,COCL,CSICS,CSICM,CSICP,CSICL,CECS,CECM,CECP,CECL
 K AGECALL,ASIAONE,ASIAFRTN,SEXCALL
 K TFSCALL,SLSCALL,CSICALL,CECALLL
 K MFSCALL,CFSCALL,CPICALL,CCICALL,CMCALL,COCALL
 Q