/* Financial Stress Questionnaire */
/* Scoring Program */
/* Year 5, Cohort 1 */
/* Coded by Anne Corrigan */
/* Uses V8 of SAS 8 */
/* March 20, 2003 */

%let yr=5;
libname data "D:\sasdata\FSI&yr.DataAll";
OPTIONS PAGESIZE = 71 REPLACE LABEL NUMBER SOURCE LINESIZE=120;

/* Score the data.*/
	DATA data.fsi&yr.sp1;
  		SET p&yr.uclean;
 

/* Calculate spendmsc - Spending Source Score */

	  	T1=1;
  	   	T2=1;
  		T3=1;
		T4=1;
  		T5=1;
  	   	T6=1;
  		T7=1;
  	   		
		IF (p&yr.u1 =.) THEN T1=0;
  		IF (p&yr.u2 =.) THEN T2=0;
  		IF (p&yr.u3 =.) THEN T3=0;
  		IF (p&yr.u4 =.) THEN T4=0;
		IF (p&yr.u5 =.) THEN T5=0;
		IF (p&yr.u6 =.) THEN T6=0;
		IF (p&yr.u7 =.) THEN T7=0;

		spendmsc= mean(of p&yr.u1-p&yr.u7)*7;
  
/* A total score is not reported if > 50% of items */
/* are missing. */
 
		SCOREMISP=T1+T2+T3+T4+T5+T6+T7;
 		if (SCOREMISP<4) then spendmsc=.;
		
  	 	label 
          	spendmsc ='Spending Source Score'
         	p&yr.u1 = 'Home we would like'
         	p&yr.u2 = 'Clothing we should have'
			p&yr.u3 = 'Furniture we should have'	
			p&yr.u4 = 'Car we need'
			p&yr.u5 = 'Food we should have'
			p&yr.u6 = 'Medical care we need'
			p&yr.u7 = 'Leisure activities';
			
			drop t1-t7;
 run;