**************************************************************** * WARNING: DO NOT USE FOR YEAR 1 - Depression scale * * included * * * * PROGRAM: SPQ.SAS * * * * PROGRAMMER: Ruth Hilsman, based on Ernie Valente * * DATE: 4/3/96 * * * * * * PURPOSE: Create a SAS dataset containing derived * * variables of the (1) Seattle Personality Ques- * * tionnaire (SPQ) * * * * MODIFIED: Work from aggregated datasets, score SPQ only * * Rename variables to new conventions * * 11/12/01 Patrick Malone * * * ****************************************************************; **Fill out information in next section for data processed ** **in this run. **; %let source=Child; %let src=c; %let inst=c; %let longname=seattlepersonality; %let scoredname=SPQ; **Enter high-level path (e.g., l:\datasets) **; %let path=l:\datasets; **Enter year of data collection **; %let yr=3; **Enter variable which must be present to retain record (typically interviewer id) **; %let screen=intid; **Specify Lib for input datasets **; Libname SASIN "&path.\&source.\&longname.\U"; **Specify Lib for output datasets **; Libname SASOUT "d:/work/seattle personality questionnaire"; ****** DO NOT MODIFY BELOW THIS LINE **************; data SASOUT.&scoredname.&yr.; set SASIN.&src.&yr.&inst; if &screen ne ''; /*------------------------------------------------------------------* This program looks at the Seattle Personality Inventory - a measure of child symptomatology, and the Emotion Recognition Quest. *-----------------------------------------------------------------*/ if (c&yr.csp1=2) then c&yr.csp1=.; if (c&yr.csp2=2) then c&yr.csp2=.; if (c&yr.csp3=2) then c&yr.csp3=.; if (c&yr.csp4=2) then c&yr.csp4=.; if (c&yr.csp5=2) then c&yr.csp5=.; if (c&yr.csp6=2) then c&yr.csp6=.; if (c&yr.csp7=2) then c&yr.csp7=.; if (c&yr.csp8=2) then c&yr.csp8=.; if (c&yr.csp9=2) then c&yr.csp9=.; if (c&yr.csp10=2) then c&yr.csp10=.; if (c&yr.csp11=2) then c&yr.csp11=.; if (c&yr.csp12=2) then c&yr.csp12=.; if (c&yr.csp13=2) then c&yr.csp13=.; if (c&yr.csp14=2) then c&yr.csp14=.; if (c&yr.csp15=2) then c&yr.csp15=.; if (c&yr.csp16=2) then c&yr.csp16=.; if (c&yr.csp17=2) then c&yr.csp17=.; if (c&yr.csp18=2) then c&yr.csp18=.; if (c&yr.csp19=2) then c&yr.csp19=.; if (c&yr.csp20=2) then c&yr.csp20=.; if (c&yr.csp21=2) then c&yr.csp21=.; if (c&yr.csp22=2) then c&yr.csp22=.; if (c&yr.csp23=2) then c&yr.csp23=.; if (c&yr.csp24=2) then c&yr.csp24=.; if (c&yr.csp25=2) then c&yr.csp25=.; if (c&yr.csp26=2) then c&yr.csp26=.; if (c&yr.csp27=2) then c&yr.csp27=.; if (c&yr.csp28=2) then c&yr.csp28=.; if (c&yr.csp29=2) then c&yr.csp29=.; if (c&yr.csp30=2) then c&yr.csp30=.; if (c&yr.csp31=2) then c&yr.csp31=.; if (c&yr.csp32=2) then c&yr.csp32=.; if (c&yr.csp33=2) then c&yr.csp33=.; if (c&yr.csp34=2) then c&yr.csp34=.; if (c&yr.csp35=2) then c&yr.csp35=.; if (c&yr.csp36=2) then c&yr.csp36=.; if (c&yr.csp37=2) then c&yr.csp37=.; if (c&yr.csp38=2) then c&yr.csp38=.; if (c&yr.csp39=2) then c&yr.csp39=.; if (c&yr.csp40=2) then c&yr.csp40=.; if (c&yr.csp41=2) then c&yr.csp41=.; if (c&yr.csp42=2) then c&yr.csp42=.; if (c&yr.csp43=2) then c&yr.csp43=.; if (c&yr.csp44=2) then c&yr.csp44=.; I1=1; I2=1; I3=1; I4=1; I5=1; I6=1; I7=1; I8=1; I9=1; I10=1; I11=1; I12=1; I13=1; I14=1; I15=1; I16=1; I17=1; I18=1; I19=1; I20=1; I21=1; I22=1; I23=1; I24=1; I25=1; I26=1; I27=1; I28=1; I29=1; I30=1; I31=1; I32=1; I33=1; I34=1; I35=1; I36=1; I37=1; I38=1; I39=1; I40=1; I41=1; I42=1; I43=1; I44=1; if (c&yr.csp1=.) THEN I1=0; if (c&yr.csp2=.) THEN I2=0; if (c&yr.csp3=.) THEN I3=0; if (c&yr.csp4=.) THEN I4=0; if (c&yr.csp5=.) THEN I5=0; if (c&yr.csp6=.) THEN I6=0; if (c&yr.csp7=.) THEN I7=0; if (c&yr.csp8=.) THEN I8=0; if (c&yr.csp9=.) THEN I9=0; if (c&yr.csp10=.) THEN I10=0; if (c&yr.csp11=.) THEN I11=0; if (c&yr.csp12=.) THEN I12=0; if (c&yr.csp13=.) THEN I13=0; if (c&yr.csp14=.) THEN I14=0; if (c&yr.csp15=.) THEN I15=0; if (c&yr.csp16=.) THEN I16=0; if (c&yr.csp17=.) THEN I17=0; if (c&yr.csp18=.) THEN I18=0; if (c&yr.csp19=.) THEN I19=0; if (c&yr.csp20=.) THEN I20=0; if (c&yr.csp21=.) THEN I21=0; if (c&yr.csp22=.) THEN I22=0; if (c&yr.csp23=.) THEN I23=0; if (c&yr.csp24=.) THEN I24=0; if (c&yr.csp25=.) THEN I25=0; if (c&yr.csp26=.) THEN I26=0; if (c&yr.csp27=.) THEN I27=0; if (c&yr.csp28=.) THEN I28=0; if (c&yr.csp29=.) THEN I29=0; if (c&yr.csp30=.) THEN I30=0; if (c&yr.csp31=.) THEN I31=0; if (c&yr.csp32=.) THEN I32=0; if (c&yr.csp33=.) THEN I33=0; if (c&yr.csp34=.) THEN I34=0; if (c&yr.csp35=.) THEN I35=0; if (c&yr.csp36=.) THEN I36=0; if (c&yr.csp37=.) THEN I37=0; if (c&yr.csp38=.) THEN I38=0; if (c&yr.csp39=.) THEN I39=0; if (c&yr.csp40=.) THEN I40=0; if (c&yr.csp41=.) THEN I41=0; if (c&yr.csp42=.) THEN I42=0; if (c&yr.csp43=.) THEN I43=0; if (c&yr.csp44=.) THEN I44=0; if (c&yr.csp1=.) THEN c&yr.csp1=0; if (c&yr.csp2=.) THEN c&yr.csp2=0; if (c&yr.csp3=.) THEN c&yr.csp3=0; if (c&yr.csp4=.) THEN c&yr.csp4=0; if (c&yr.csp5=.) THEN c&yr.csp5=0; if (c&yr.csp6=.) THEN c&yr.csp6=0; if (c&yr.csp7=.) THEN c&yr.csp7=0; if (c&yr.csp8=.) THEN c&yr.csp8=0; if (c&yr.csp9=.) THEN c&yr.csp9=0; if (c&yr.csp10=.) THEN c&yr.csp10=0; if (c&yr.csp11=.) THEN c&yr.csp11=0; if (c&yr.csp12=.) THEN c&yr.csp12=0; if (c&yr.csp13=.) THEN c&yr.csp13=0; if (c&yr.csp14=.) THEN c&yr.csp14=0; if (c&yr.csp15=.) THEN c&yr.csp15=0; if (c&yr.csp16=.) THEN c&yr.csp16=0; if (c&yr.csp17=.) THEN c&yr.csp17=0; if (c&yr.csp18=.) THEN c&yr.csp18=0; if (c&yr.csp19=.) THEN c&yr.csp19=0; if (c&yr.csp20=.) THEN c&yr.csp20=0; if (c&yr.csp21=.) THEN c&yr.csp21=0; if (c&yr.csp22=.) THEN c&yr.csp22=0; if (c&yr.csp23=.) THEN c&yr.csp23=0; if (c&yr.csp24=.) THEN c&yr.csp24=0; if (c&yr.csp25=.) THEN c&yr.csp25=0; if (c&yr.csp26=.) THEN c&yr.csp26=0; if (c&yr.csp27=.) THEN c&yr.csp27=0; if (c&yr.csp28=.) THEN c&yr.csp28=0; if (c&yr.csp29=.) THEN c&yr.csp29=0; if (c&yr.csp30=.) THEN c&yr.csp30=0; if (c&yr.csp31=.) THEN c&yr.csp31=0; if (c&yr.csp32=.) THEN c&yr.csp32=0; if (c&yr.csp33=.) THEN c&yr.csp33=0; if (c&yr.csp34=.) THEN c&yr.csp34=0; if (c&yr.csp35=.) THEN c&yr.csp35=0; if (c&yr.csp36=.) THEN c&yr.csp36=0; if (c&yr.csp37=.) THEN c&yr.csp37=0; if (c&yr.csp38=.) THEN c&yr.csp38=0; if (c&yr.csp39=.) THEN c&yr.csp39=0; if (c&yr.csp40=.) THEN c&yr.csp40=0; if (c&yr.csp41=.) THEN c&yr.csp41=0; if (c&yr.csp42=.) THEN c&yr.csp42=0; if (c&yr.csp43=.) THEN c&yr.csp43=0; if (c&yr.csp44=.) THEN c&yr.csp44=0; **Reverse scoring**; c&yr.cSP7=(1-c&yr.cSP7); c&yr.cSP10=(1-c&yr.cSP10); c&yr.cSP15=(1-c&yr.cSP15); c&yr.cSP17=(1-c&yr.cSP17); c&yr.cSP24=(1-c&yr.cSP24); c&yr.cSP21=(1-c&yr.cSP21); ITANX=I3+I4+I8+I12+I29+I32; ITCOND=I1+I11+I19+I23+I25+I27+I30+I33; ITSOM=I6+I13+I14+I18+I26; ITDEP=I34+I35+I36+I38+I39+I40+I41+ I42+I43+I44; ITLIE=I9+I16+I21; c&yr.canx=0; c&yr.ccond=0; c&yr.csom=0; c&yr.cdep=0; c&yr.clie=0; c&yr.canx=((c&yr.cSP3+c&yr.cSP4+c&yr.cSP8+c&yr.cSP12+c&yr.cSP29+c&yr.cSP32)/itanx)*6; c&yr.ccond=((c&yr.cSP1+c&yr.cSP11+c&yr.cSP19+c&yr.cSP23+c&yr.cSP25+c&yr.cSP27+ c&yr.cSP30+c&yr.cSP33)/itcond)*8; c&yr.csom=((c&yr.cSP6+c&yr.cSP13+c&yr.cSP14+c&yr.cSP18+c&yr.cSP26)/itsom)*5; c&yr.cdep=((c&yr.cSP34+c&yr.cSP35+c&yr.cSP36+c&yr.cSP38+c&yr.cSP39+c&yr.cSP40+c&yr.cSP41+ c&yr.cSP42+c&yr.cSP43+c&yr.cSP44)/itdep)*10; c&yr.clie=((c&yr.cSP9+c&yr.cSP16+c&yr.cSP21)/itlie)*3; IF (ITANX<5) THEN c&yr.canx=.; IF (ITCOND<6) THEN c&yr.ccond=.; IF (ITSOM<4) THEN c&yr.csom=.; IF (ITDEP<8) THEN c&yr.cdep=.; IF (ITLIE<2) THEN c&yr.clie=.; c&yr.canx=(c&yr.canx*1); c&yr.ccond=(c&yr.ccond*1); c&yr.csom=(c&yr.csom*1); c&yr.cdep=(c&yr.cdep*1); c&yr.clie=(c&yr.clie*1); ITSCHLIK=I5+I7+I10+I15+I17+I20+I24+I28+I31; ITSCHLON=I5+I10+I15+I20+I28; ITSCHSEN=I7+I17+I24+I31; c&yr.csclik=0; c&yr.csclon=0; c&yr.cscsen=0; c&yr.csclik=((c&yr.cSP5+c&yr.cSP7+c&yr.cSP10+c&yr.cSP15+c&yr.cSP17+c&yr.cSP20+c&yr.cSP24+ c&yr.cSP28+c&yr.cSP31)/ITSCHLIK)*9; c&yr.csclon=((c&yr.cSP5+c&yr.cSP10+c&yr.cSP15+c&yr.cSP20+c&yr.cSP28)/ITSCHLON)*5; c&yr.cscsen=((c&yr.cSP7+c&yr.cSP17+c&yr.cSP24+c&yr.cSP31)/ITSCHSEN)*4; IF (ITSCHLIK<7) THEN c&yr.csclik=.; IF (ITSCHLON<4) THEN c&yr.csclon=.; IF (ITSCHSEN<3) THEN c&yr.cscsen=.; c&yr.csclik=(c&yr.csclik*1); c&yr.csclon=(c&yr.csclon*1); c&yr.cscsen=(c&yr.cscsen*1); label c&yr.canx = 'SPI Anxiety' c&yr.ccond= 'SPI Conduct Problems' c&yr.csom = 'SPI Somatization' c&yr.cdep = 'SPI Depression' c&yr.clie = 'SPI Lie Scale' c&yr.csclik='SPI Sch. Dislike (Lonely+Sentiment)' c&yr.csclon='SPI School Loneliness' c&yr.cscsen='SPI School Sentiment'; Keep tcid site cohort c&yr.canx c&yr.ccond c&yr.csom c&yr.cdep c&yr.clie c&yr.csclik c&yr.csclon c&yr.cscsen c&yr.csp1-c&yr.csp44; rename c&yr.cDEP=SPQ&yr.DEP c&yr.cANX=SPQ&yr.ANX c&yr.cCOND=SPQ&yr.CON c&yr.cLIE=SPQ&yr.LIE c&yr.cSCLIK=SPQ&yr.SCD c&yr.cSCLON=SPQ&yr.SCL c&yr.cSCSEN=SPQ&yr.SCS c&yr.cSOM=SPQ&yr.SOM; RUN; proc freq; tables spq&yr.dep spq&yr.anx spq&yr.con spq&yr.lie spq&yr.scd spq&yr.scl spq&yr.scs spq&yr.som; run; proc contents; run;