/* Inventory of Parent Experiences */
/* Scoring Program */
/* Year 6, Cohort 1 */
/* Coded by Anne Corrigan */
/* Uses V8 of SAS */
/* Nov. 7, 2002 */

libname  data 'D:\sasdata\p6h1DataAll';

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


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

/* This program scores only items 20-38.*/
/* The subscales are those identified in an earlier study that included all 1-38 items. */
/* Items 35 and 36 --which were previously contained in */
/* subscales with the first 20 items (not given for this year)
/* --are not included in any analysis. */

DATA data.p6hsubscores;
  		SET data.p6hclean;

/* Score Community Satisfaction, Friendship Satisfaction, */
/* and Family Satisfaction subscales */
  
  T1=1;
  T2=1;
  T3=1;
  T4=1;
  T5=1;
  T6=1;
  T7=1;
  T8=1;
  IF p6hPE27=. THEN T1=0;
  IF p6hPE28=. THEN T2=0;
  IF p6hPE29=. THEN T3=0;
  IF p6hPE30=. THEN T4=0;
  IF p6hPE31=. THEN T5=0;
  IF p6hPE32=. THEN T6=0;
  IF p6hPE33=. THEN T7=0;
  IF p6hPE34=. THEN T8=0;

/* "...there..." variable = Responses that are "there" */

    	scoretherecom=T1+T2;
   		scoretherep=T3+T4+T5;
		scoretherefam=T6+T7+T8;

/* Look for missing responses.*/

	misscom=nmiss(of p6hpe27-p6hpe28);
	missp=nmiss(of p6hpe29-p6hpe31);
	missfam=nmiss(of p6hpe32-p6hpe34);

  p6hpecom= mean(of p6hpe27-p6hpe28);
  p6hpefri=mean(of p6hpe29-p6hpe31);
  p6hpefam=mean(of p6hpe32-p6hpe34);

  /* If > 50% of responses are missing, the subscale is not scored (score is missing).*/

if (scoretherecom<1) then p6hpecom=.;  
  if (scoretherep<2) then p6hpefri=.;
  if (scoretherefam<2) then p6hpefam=.;
     
/* Score Parenting Satisfaction subscale-Items 20-26 */

  T1=1;
  T2=1;
  T3=1;
  T4=1;
  T5=1;
  T6=1;
  T7=1;
  IF (p6hPE20=.) THEN T1=0;
  IF (p6hPE21=.) THEN T2=0;
  IF (p6hPE22=.) THEN T3=0;
  IF (p6hPE23=.) THEN T4=0; 
  IF (p6hPE24=.) THEN T5=0;
  IF (p6hPE25=.) THEN T6=0;
  IF (p6hPE26=.) THEN T7=0;

	scoretheresat= T1+T2+T3+T4+T5+T6+T7;
  	
	
  	misssat=nmiss(of p6hpe20-p6hpe26);

	p6hpesat = mean(of p6hPE20-p6hPE26);

 /* If > 50% of responses are missing, the subscale is not scored (score is missing). */

if (scoretheresat<3) then p6hpesat=.;
	label p6hpesat = 'Parenting Satis.';


/* Report the General Life Satisfaction score */ 

	T1=1;
	IF (p6hPE38=.) then misslife=1;
	  else misslife=0;
 
 label  p6hpecom = 'IPE - Community Satisfaction'
        p6hpefri = 'IPE - Friendship Satisfaction'
        p6hpefam = 'IPE - Family Satisfaction'
        p6hpesat = 'IPE - Parental Role Satisfaction'
        p6hpe38  = 'IPE - General Life Satisfaction';

drop T1-T8;
run;