58 lines
2.3 KiB
Mathematica
58 lines
2.3 KiB
Mathematica
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
|