/* Parent's Check List */
/* Scoring Program */
/* Year 2, Cohort 1 */
/* Coded by Anne Corrigan */
/* Uses V8 of SAS */
/* Nov. 23, 2002 */

%let yr = 2;
libname  data "D:\sasdata\P&yr.D1ParentDataAll";

OPTIONS PAGESIZE = 71 REPLACE LABEL NUMBER SOURCE LINESIZE=71;


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

%let yr = 2;
 
DATA data.p&yr.dclsubscores;    	
	SET data.p&yr.dclclean;

/* Score Reactive Aggression subscale-Items 1-3 */
  
  T1=1;
  T2=1;
  T3=1;
  IF p&yr.dcl1 =. THEN T1=0;
  IF p&yr.dcl2 =. THEN T2=0;
  IF p&yr.dcl3 =. THEN T3=0;
   
/* "...there..." variable = Responses that are "there" */
/* "miss..." variable = Responses that are "missing" */


	scorethererea=T1+T2+T3;
  	missrea=3-scorethererea;

  p2drea = mean(of p&yr.dcl1 p&yr.dcl2 p&yr.dcl3);

  /* If 50 percent of items missing, subscale score is missing. */

  IF (scorethererea<1.5) THEN p2drea =.;
   	
 
/* Score Proactive Aggression Subscale - Items 4-6 */

  T1=1;
  T2=1;
  T3=1;
  IF p&yr.dcl4 =. THEN T1=0;
  IF p&yr.dcl5 =. THEN T2=0;
  IF p&yr.dcl6 =. THEN T3=0;
   
/* "...there..." variable = Responses that are "there" */
/* "miss..." variable = Responses that are "missing" */


	scoretherepro=T1+T2+T3;
  	misspro=3-scoretherepro;

  p2dpro = mean(of p&yr.dcl4 p&yr.dcl5 p&yr.dcl6);

  /* If 50 percent of items missing, subscale score is missing. */

  IF (scoretherepro<1.5) THEN p2dpro =.;

drop T1-T3;
run;