/* Neighborhood Questionnaire */
/* Scoring Program */
/* Year 2, Cohort 1 */
/* Coded by Anne Corrigan */
/* Uses V8 of SAS */
/* Nov. 7, 2002 */
/* program used: p2gn.score.sas */
OPTIONS PAGESIZE = 71 REPLACE LABEL NUMBER SOURCE LINESIZE=71;


libname  data 'D:\sasdata\P2GN1DataAll';

%let yr = 2;
data data.p&yr.gnclean2;
	set data.p&yr.gnclean;

/* Create dataset with items rescaled on a 0 to 10 scale */
 	FEELNEI = p&yr.gNQ1*10/3;
  	LENGTH = p&yr.gNQ2*10/3;
  	TALKVIST = p&yr.gNQ3*10/2;
  	KNOWWELL = p&yr.gNQ4*10/3;
  	GETTOG = p&yr.gNQ5*10/5;
  	COPPROT = p&yr.gNQ6*10/3;
  	GARBAGE = p&yr.gNQ7*10/3;
  	SCHOOLS = p&yr.gNQ8*10/3;
  	PUBTRANS = p&yr.gNQ9*10/3;
  	MUGBURG = 10-(p&yr.gNQ10*10/4);
  	SELLDRUG = 10-(p&yr.gNQ11*10/3);
  	COPRELS = p&yr.gNQ12*10/3;
  	INVNEIGH = p&yr.gNQ13*10/3;
  	INVGROUP = p&yr.gNQ15;
  	INVGROUPA = P&yr.GNQ15a;	 /* 0 if p2gnq15 is missing or 0. Use this in analysis. */
   	ANYGROUP = p&yr.gNQ14;
  	ANYPOSIT = p&yr.gNQ16;

   
run;




/* Create subscale scores */
 
DATA data.p&yr.gnsubscores;
  		SET data.p&yr.gnclean2;

/* Score the Neighborhood Safety subscale. */

  T1=1;
  T2=1;
  T3=1;
  T4=1;
  T5=1;
  IF (FEELNEI=.) THEN T1=0;
  IF (COPRELS=.) THEN T2=0;
  IF (COPPROT=.) THEN T3=0;
  IF (MUGBURG=.) THEN T4=0;
  IF (SELLDRUG=.) THEN T5=0;

  p2gnqsaf = mean(of FEELNEI COPRELS COPPROT MUGBURG SELLDRUG)*5;
    
  scoretheresaf = T1+T2+T3+T4+T5;
  misssaf=nmiss(of FEELNEI COPRELS COPPROT MUGBURG SELLDRUG);

  IF ((scoretheresaf/5)<.5) THEN p2gnqsaf=.;

/* Score the Neighborhood Social Involvement subscale */
  
  T1=1;
  T2=1;
  T3=1;
  T4=1;
  
  IF (GETTOG=.) THEN T1=0;
  IF (KNOWWELL=.) THEN T2=0;
  IF (TALKVIST=.) THEN T3=0;
  IF (INVNEIGH=.) THEN T4=0;

  p2gnqsoc= mean (of GETTOG KNOWWELL TALKVIST INVNEIGH)*4;
  scoretheresoc = (T1+T2+T3+T4);
  missoc=nmiss(of GETTOG KNOWWELL TALKVIST INVNEIGH);
  IF ((scoretheresoc/4)<.5) THEN p2gnqsoc=.;

/* Score the Public Services subscale */
  T1=1;
  T2=1;
  IF PUBTRANS=. THEN T1=0;
  IF SCHOOLS=. THEN T2=0;
  
  p2gnqpub = mean (of PUBTRANS SCHOOLS)*2;
  scoretherepub=T1+T2;
  misspub=nmiss(of PUBTRANS SCHOOLS);
  IF ((scoretherepub/2) < .5) THEN p2gnqpub=.;

 
   label p2gnqsaf = 'Neighborhood Safety Subscale'
         p2gnqsoc = 'Neighboorhood Social Involvement Subscale'
         p2gnqpub = 'Public Services Subscale'
		  LENGTH = 'Length of Stay item'
 		  GARBAGE = 'Garbage Collection item';

drop T1-T5 ADJECNT EXPECNT NHDECNT;
run;