****************************************************************
* PROGRAM:      BCS.SAS                                        *
*                                                              *
* PROGRAMMER:   Unknown (original not commented)               *
*                                                              *
* PURPOSE:      Create a SAS dataset containing derived        *
*               variables of the PCIT Behavioral Coding System *
*                                                              *
* MODIFIED:     11/27/01 Patrick Malone to run off aggregated  *
*               datasets.                                      *
****************************************************************;

**Fill out information in next section for data processed in this run.**;
     %let source=Observer;
	 %let src=o;
	 %let inst=e;
	 %let longname=PCITbehavioralcodingsys; 
	 %let scoredname=BCS;

**Enter high-level path (e.g., l:\datasets) **;

	 %let path=d:\datasets;

**Enter year of data collection **;

     %let yr=3; 

**Enter variable which must be present to retain record (typically interviewer id)**;
	 %let screen=o&yr.e1;

**Specify Lib for input datasets **;

     Libname SASIN "&path.\&source.\&longname.\U";

**Specify Lib for output datasets **;

     Libname SASOUT "&path.\&source.\&longname.\S";

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

data SASOUT.&scoredname.&yr.;
  set SASIN.&src.&yr.&inst;

  if &screen ne '';

bcs&yr.tot=(o&yr.e5 / o&yr.e45);
bcs&yr.alp=(o&yr.e10 / o&yr.e45);
bcs&yr.pos=(o&yr.e20 / o&yr.e45);
bcs&yr.neg=(o&yr.e25 / o&yr.e45);
bcs&yr.com=(o&yr.e30 / o&yr.e45);
bcs&yr.non=(o&yr.e35 / o&yr.e45);
bcs&yr.dis=(o&yr.e40 / o&yr.e45);

  keep site tcid cohort bcs&yr.tot bcs&yr.alp bcs&yr.pos bcs&yr.neg bcs&yr.com bcs&yr.non bcs&yr.dis
       o&yr.e1-o&yr.e45;
  label  bcs&yr.tot  = 'total commands'
      bcs&yr.alp = 'total alpha commands'
      bcs&yr.pos = 'total positive attention'
      bcs&yr.neg = 'total negative attention'
      bcs&yr.com = 'total compliance'
      bcs&yr.non = 'total noncompliance'
      bcs&yr.dis = 'total disruptive behavior';

RUN;