****************************************************************
*                                                              *
* PROGRAM:      IRS.SAS                                        *
*                                                              *
* PROGRAMMER:   Unknown (original not commented)               *
*                                                              *
* PURPOSE:      Create a SAS dataset containing derived        *
*               variables of the PCIT Interaction Rating Scale *
*                                                              *
* 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=c;
	 %let longname=PCITinteractionratingsscale;
	 %let scoredname=IRS;

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

	 %let path=l:\datasets\observer\pcitinteractionratingsscale\u;

**Enter year of data collection **;

     %let yr=2; 

**Enter variable which must be present to retain record (typically interviewer id) **;

	 %let screen=screen;

**Specify Lib for input datasets **;

     Libname SASIN "l:\datasets\observer\pcitinteractionratingsscale\U";
     libname addendum "l:\datasets\observer\coderimpressionsinventoryadd\U";

**Specify Lib for output datasets **;

     Libname SASOUT "d:\work\interaction rating scales\year 2";


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

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

  if &screen = '' then &screen = rater;
  if &screen = '' then &screen = intid;
  if &screen = '' then &screen = o&yr.cint;

  if &screen ne '';

  IF (o&yr.c1  =0) THEN o&yr.c1  =.;
  IF (o&yr.c2  =0) THEN o&yr.c2  =.;
  IF (o&yr.c3  =0) THEN o&yr.c3  =.;
  IF (o&yr.c4  =0) THEN o&yr.c4  =.;
  IF (o&yr.c5  =0) THEN o&yr.c5  =.;
  IF (o&yr.c6  =0) THEN o&yr.c6  =.;
  IF (o&yr.c7  =0) THEN o&yr.c7  =.;
  IF (o&yr.c8  =0) THEN o&yr.c8  =.;
  IF (o&yr.c9  =0) THEN o&yr.c9  =.;
  IF (o&yr.c10 =0) THEN o&yr.c10 =.;
  IF (o&yr.c11 =0) THEN o&yr.c11 =.;
  IF (o&yr.c12 =0) THEN o&yr.c12 =.;
  IF (o&yr.c13 =0) THEN o&yr.c13 =.;
  IF (o&yr.c14 =0) THEN o&yr.c14 =.;
  IF (o&yr.c15 =0) THEN o&yr.c15 =.;
  IF (o&yr.c16 =0) THEN o&yr.c16 =.;
  IF (o&yr.c1  =9) THEN o&yr.c1  =.;
  IF (o&yr.c2  =9) THEN o&yr.c2  =.;
  IF (o&yr.c3  =9) THEN o&yr.c3  =.;
  IF (o&yr.c4  =9) THEN o&yr.c4  =.;
  IF (o&yr.c5  =9) THEN o&yr.c5  =.;
  IF (o&yr.c6  =9) THEN o&yr.c6  =.;
  IF (o&yr.c7  =9) THEN o&yr.c7  =.;
  IF (o&yr.c8  =9) THEN o&yr.c8  =.;
  IF (o&yr.c9  =9) THEN o&yr.c9  =.;
  IF (o&yr.c10 =9) THEN o&yr.c10 =.;
  IF (o&yr.c11 =9) THEN o&yr.c11 =.;
  IF (o&yr.c12 =9) THEN o&yr.c12 =.;
  IF (o&yr.c13 =9) THEN o&yr.c13 =.;
  IF (o&yr.c14 =9) THEN o&yr.c14 =.;
  IF (o&yr.c15 =9) THEN o&yr.c15 =.;
  IF (o&yr.c16 =9) THEN o&yr.c16 =.;

 IF n(o&yr.c1, o&yr.c3, o&yr.c4, o&yr.c6, o&yr.c10, o&yr.c12)ge 3 
then irs&yr.war=mean(o&yr.c1, o&yr.c3, o&yr.c4, o&yr.c6, o&yr.c10, o&yr.c12);

IF n(o&yr.c2, o&yr.c5, o&yr.c7, o&yr.c11) ge 2
then irs&yr.cwa=mean(o&yr.c2, o&yr.c5, o&yr.c7, o&yr.c11);
  

  LABEL irs&yr.war="Y1 Parental Warmth"
        irs&yr.cwa=" Y1 Child Warmth to Mother";
  KEEP TCID SITE COHORT irs&yr.war irs&yr.cwa o&yr.c1-o&yr.c16;
RUN;