/* Values Questionnaire */
/* Scoring Program */
/* Year 2, Cohort 1 */
/* Coded by Anne Corrigan */
/* Uses V8 of SAS */
/* Jan. 28, 2002 */
/* sets missing values to zero before calculating mean. */

OPTIONS PAGESIZE = 71 REPLACE LABEL NUMBER SOURCE LINESIZE=71;
%let yr=2;
libname  data "D:\sasdata\P&yr.H1ValuesDataAll";
run;

/* Score the data.*/
/* Create subscale scores */

DATA data.p&yr.hsubscores; 
	SET data.p&yr.hclean;
     DROP P&yr.HVQ11--P&yr.HVQ35;
  IF (INT(P&yr.HVQ1)  NE P&yr.HVQ1)  THEN P&yr.HVQ1 =.;
  IF (INT(P&yr.HVQ2)  NE P&yr.HVQ2)  THEN P&yr.HVQ2 =.;
  IF (INT(P&yr.HVQ3)  NE P&yr.HVQ3)  THEN P&yr.HVQ3 =.;
  IF (INT(P&yr.HVQ4)  NE P&yr.HVQ4)  THEN P&yr.HVQ4 =.;
  IF (INT(P&yr.HVQ5)  NE P&yr.HVQ5)  THEN P&yr.HVQ5 =.;
  IF (INT(P&yr.HVQ6)  NE P&yr.HVQ6)  THEN P&yr.HVQ6 =.;
  IF (INT(P&yr.HVQ7)  NE P&yr.HVQ7)  THEN P&yr.HVQ7 =.;
  IF (INT(P&yr.HVQ8)  NE P&yr.HVQ8)  THEN P&yr.HVQ8 =.;
  IF (INT(P&yr.HVQ9)  NE P&yr.HVQ9)  THEN P&yr.HVQ9 =.;
  IF (INT(P&yr.HVQ10) NE P&yr.HVQ10) THEN P&yr.HVQ10=.;
  
  T1=1;
  T2=1;
  T3=1;
  T4=1;
  T5=1;
 /* removed code that set missing value to zero. Am using mean function below. */
  
  p&yr.hvqsoc = mean (of P&yr.HVQ6-P&yr.HVQ10)*5;
  DENOM=T1+T2+T3+T4+T5;
  IF (DENOM=0) THEN DENOM=1;
  IF ((DENOM/5)<.75) THEN p&yr.hvqsoc=.;
    
  T1=1;
  T2=1;
  T3=1;
  T4=1;
  T5=1;

 /* removed code that set missing value to zero. Am using mean function below. */

P&yr.hvqdef = mean (of P&yr.HVQ1-P&yr.HVQ5)*5;
  DENOM = T1+T2+T3+T4+T5;
  IF (DENOM=0) THEN DENOM=1;
  IF ((DENOM/5)<.75) THEN P&yr.hvqdef=.;
  
 KEEP SITE TCID NORM TREATMNT P&yr.hvqsoc P&yr.hvqdef P&yr.HVQ1-P&yr.HVQ10;
  LABEL P&yr.hvqsoc = 'VQ - Socialization'
        P&yr.hvqdef = 'VQ - Physical Defense';
run;