**************************************************************** * * * 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;