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