source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNAGGEU.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1SPNAGGEU ;CM/SD- ANN EVAL AGGREGATE OUTCOME REPORT UTILITIES; 9-13-2003
2 ;;2.0;Spinal Cord Dysfunction;**21**;01/02/97
3 ;
4SET 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
34EXIT ;
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
Note: See TracBrowser for help on using the repository browser.