VistA-FOIAVistA/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNAGGEU.m

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