************************************************************
* PROGRAM:      BSS.SAS    Behavior Screening - Siblings   *
* PROGRAMMER:   Floyd Hummel                               *
* DATE:         8/25/98                                    *
* MODIFIED:     9/2/2004, Jennifer Godwin                  *
* PURPOSE:      Create a SAS dataset containing derived    *
*               variables from unscored data in the        *
*               PxL datasets.  This dataset contains       *
*               a 24-item scale with sibling ratings of    *  
*               behaviors of the index child.  There is    * 
*               one scale: total of all ratings.           * 
* INPUT:        P&yr.L_BV, where &yr. is the yr            *
* OUTPUT:       BSS&yr.SP, where &yr. is the yr            *
************************************************************;
** Enter year of data collection -- year 6 only**;
        %let yr = 6 ;

libname sasin "N:\Datasets\Parent\behaviorscreensiblings\U";
libname sasout "N:\Datasets\Parent\behaviorscreensiblings\S";

*************** DO NOT MODIFY BELOW THIS LINE ******************************;

*when calculating the mean;
%macro linmean;
data &INDATA;
   set &INDATA;
   label &var_name = "&var_labl";
   array sumvars {*} &var_list;
   if n(of sumvars(*))>=.5*dim(sumvars) then &var_name=mean(of sumvars(*));
 proc sort; by site tcid;
 run;
%mend linmean;


DATA bss;
set sasin.p&yr.l_bv;
run;

%let INDATA = bss;

	 %let var_name = BSS&yr.SIB;
     %let var_labl = %str(Behavioral Screen for Siblings Total Score-BSS-Yr&yr.) ;
     %let var_list = %str(p&yr.lbv1-p&yr.lbv24);
     %linmean ;

data sasout.BSS&yr.;
set BSS;
run;

proc sort;by cohort site tcid;run;