*-PedsQL SCORING

By: Joanne Wu
If you found a bug or would like to comment on this program, 
please email qfw@usc.edu 
-*;

	
/*reverse score, transform the 0-4 scale items to 0-100 as follows:
        0=100, 1=75, 2=50, 3=25, 4=0.
        The higher scores indicate better HRQOL.*/
/*if the data set has missing values, please re-test the program to make
        sure it work correctly*/

/*change original variables name to scale name*/
	if 24<=ageinmoth<=48 then
	do;
        /*physical functionning*/
        pf1=Q42Aa;
        pf2=Q42Ab;
        pf3=Q42Ac;
        pf4=Q42Ad;
        pf5=Q42Ae;
        pf6=Q42Af;
        pf7=Q42Ag;
        pf8=Q42Ah;
        /*emotional functionning*/
        ef1=Q43Aa;
        ef2=Q43Ab;
        ef3=Q43Ac;
        ef4=Q43Ad;
        ef5=Q43Ae;
        /*social functionning*/
        socf1=Q44Aa;
		socf2=Q44Ab;
        socf3=Q44Ac;
        socf4=Q44Ad;
		socf5=Q44Ae;
        /*school functionning*/
        schf1=Q45Aa;
        schf2=Q45Ab;
        schf3=Q45Ac;
	end;

	else if 48<ageinmoth<217 then 
	do;
        /*physical functionning*/
        pf1=Q42Ba;
        pf2=Q42Bb;
        pf3=Q42Bc;
        pf4=Q42Bd;
        pf5=Q42Be;
        pf6=Q42Bf;
        pf7=Q42Bg;
        pf8=Q42Bh;
        /*emotional functionning*/
        ef1=Q43Ba;
        ef2=Q43Bb;
        ef3=Q43Bc;
        ef4=Q43Bd;
        ef5=Q43Be;
        /*social functionning*/
        socf1=Q44Ba;
        socf2=Q44Bb;
        socf3=Q44Bc;
        socf4=Q44Bd;
		socf5=Q44Be;
        /*school functionning*/
        schf1=Q45Ba;
        schf2=Q45Bb;
        schf3=Q45Bc;
        schf4=Q45Bd;
        schf5=Q45Be;
    end;

*-Recode PedsQL
Never 1-->0
Almost Never 2-->1
Sometimes 3-->2
Often 4-->3
Almot Always 5-->4
-*;
array old pf1-pf8 ef1-ef5 socf1-socf5 schf1-schf5;
do over old;
if old=1 then old=0;
else if old=2 then old=1;
else if old=3 then old=2;
else if old=4 then old=3;
else if old=5 then old=4;
end;

**************************;
*physical functioning    *;
**************************;
nmisspf=0;
array pf[8] pf1-pf8;

        do i=1 to 8;
                if pf[i]=0 then pf[i]=100;
                        else if pf[i]=1 then pf[i]=75;
                        else if pf[i]=2 then pf[i]=50;
                        else if pf[i]=3 then pf[i]=25;
                        else if pf[i]=4 then pf[i]=0;

                if pf[i]=. then nmisspf=nmisspf+1;
        end;

        drop i;

**************************;
*emotional functioning   *;
**************************;
nmissef=0;
array ef[5] ef1-ef5;

        do i=1 to 5;
                if ef[i]=0 then ef[i]=100;
                        else if ef[i]=1 then ef[i]=75;
                        else if ef[i]=2 then ef[i]=50;
                        else if ef[i]=3 then ef[i]=25;
                        else if ef[i]=4 then ef[i]=0;

                if ef[i]=. then nmissef=nmissef+1;
        end;

        drop i;


**************************;
*social functioning      *;
**************************;

nmisssoc=0;
array socf[5] socf1-socf5;

        do i=1 to 5;
                if socf[i]=0 then socf[i]=100;
                        else if socf[i]=1 then socf[i]=75;
                        else if socf[i]=2 then socf[i]=50;
                        else if socf[i]=3 then socf[i]=25;
                        else if socf[i]=4 then socf[i]=0;

                if socf[i]=. then nmisssoc=nmisssoc+1;
        end;

        drop i;

**************************;
*school functioning      *;
**************************;
/*for age 5-18*/

if 48<iAgeAtInitialInterview<217 then
	do;

nmisssch=0;
array schf[5] schf1-schf5;

        do i=1 to 5;
                if schf[i]=0 then schf[i]=100;
                        else if schf[i]=1 then schf[i]=75;
                        else if schf[i]=2 then schf[i]=50;
                        else if schf[i]=3 then schf[i]=25;
                        else if schf[i]=4 then schf[i]=0;

                if schf[i]=. then nmisssch=nmisssch+1;
        end;

        drop i;
		
		end;

/*for age 2-4*/

if 24<=iAgeAtInitialInterview<=48 then 
	do;

nmisssch=0;
array tschf[3] schf1-schf3;

        do i=1 to 3;
                if tschf[i]=0 then tschf[i]=100;
                        else if tschf[i]=1 then schf[i]=75;
                        else if tschf[i]=2 then schf[i]=50;
                        else if tschf[i]=3 then schf[i]=25;
                        else if tschf[i]=4 then schf[i]=0;

                if tschf[i]=. then nmisssch=nmisssch+1;
        end;

        drop i;

	end;

/*calculate scale scores, physical (phys), emotional (psych), social (social)
 school (school)*/

	if nmisspf<=4 then phys=round(mean (of pf1-pf8), 0.1);
        else phys=.;

	if nmissef<=3 then psych=round(mean (of ef1-ef5), 0.1);
        else psych=.;

	if nmisssoc<=3 then social=round(mean (of socf1-socf5), 0.1);
        else social=.;

/*for age 5-18*/
	if 48<iAgeAtInitialInterview<217 then
		do;
		if nmisssch<=2 then school=round(mean (of schf1-schf5), 0.1);
        else school=.;
		end;

/*for age 2-4*/
if 24<=iAgeAtInitialInterview<=48 then
	do;
	if nmisssch<=1 then school=round(mean (of schf1-schf3), 0.1);
		else school=.;
	end;

/*calculate psychosocial health summary score, psyso)*/
/*for age 5-18*/
if 48<iAgeAtInitialInterview<217 then
	do;
	if (nmissef+nmisssoc+nmisssch)<=8 then 
	psyso=round(mean (of ef1-ef5 socf1-socf5 schf1-schf5), 0.1);
        else psyso=.;

/*calculate total scale score, total*/
	if (nmisspf+nmissef+nmisssoc+nmisssch)<=12 then 
	totalPedsQL=round(mean (of pf1-pf8 ef1-ef5 socf1-socf5 schf1-schf5), 0.1);
        else totalPedsQL=.;
	end;

/*for age 2-4*/
if 24<=iAgeAtInitialInterview<=48 then
	do;
/*calculate psychosocial health summary score, psyso)*/
	if (nmissef+nmisssoc+nmisssch)<=7 then 
	psyso=round(mean (of ef1-ef5 socf1-socf5 schf1-schf3), 0.1);
        else psyso=.;

/*calculate total scale score, total*/
	if (nmisspf+nmissef+nmisssoc+nmisssch)<=11 then 
	totalPedsQL=round(mean (of pf1-pf8 ef1-ef5 socf1-socf5 schf1-schf3), 0.1);
        else totalPedsQL=.;
	end;

label   		pf1='prob with walking > 1 block'
                pf2='prob with running'
                pf3='prob with participate sports or exsc'
                pf4='prob with lifting sth heavy'
                pf5='prob with taking a bath or shower'
                pf6='prob with doing chores '
                pf7='prob with having hurts or aches'
                pf8='prob with low energy level'
                ef1='prob with feeling afraid or scared'
                ef2='prob with feeling sad or blue'
                ef3='prob with feeling angry'
                ef4='prob with trouble sleeping'
                ef5='prob with worry what will happen to him'
                socf1='prob with getting along with othe teens'
                socf2='prob with teens not wanting be friend'
                socf3='prob with getting teased by other teens'
                socf4='prob with not able to do things other do'
                socf5='prob with keeping up with other teens'
                schf1='prob with paying attention in calss'
                schf2='prob with forgeting things'
                schf3='prob with keeping up with schoolwork'
                schf4='prob with miss schl b/c of not feel well'
                schf5='prob with miss schl to go to dr or hospl'
                nmisspf='count of missing items in phys func'
                nmissef='count of missing items in emotional'
                nmisssoc='count of missing items in social'
                nmisssch='count of missing items in school'
                phys='physcal health summary score'
                psych='emotional function scale score'
                social='social function scale score'
                school='school function scale score'
                psyso='psychosocial health summary score'
                totalPedsQL='total PedsQL scale score';
END;
*--END PedsQL--*;