**************************************************************************************************************************
*The syntax below (PART 1) uses 1998 AFCARS data files created using the 9899PointInTime syntax.****
**************************************************************************************************************************
*Syntax using 1999 AFCARS data files found under PART 2*
**********************************************************************
*CHILD WELFARE OUTCOME MEASURES*
****************************************************
*PART 1*
***********


*CWO 3: Increase permanency for children in foster care.

*using exit file

*CWO 3: Measures 3.1 thru 3.5

get file 'c:\Exits98c.sav'.
recode disreasn
(sysmis=9) (0=9) (1=1) (2=1) (3=3) (4=4) (5=5) (else=8) into newdis.
formats newdis (f1.0).
value labels newdis
1 'Reunify'
3 'Adoption'
4 'Emancipation'
5 'Guardianship'
8 'Other'
9 'Missing'.
recode disreasn (sysmis=9) (0=9) (1=1) (2=1) (3=3) (5=5)(else=8) into Newdis1.
formats Newdis1 (f1.0).
value labels Newdis1
1'Reunification'
3'Adoption'
5'Guardianship'
8'Other'
9 'Missing'.
Recode Clindis
(sysmis=9) (0=9).
value labels Clindis
1'Yes'
2'No'
3'Not Yet Determined'
9'Missing'.
compute LOS = (yrmoda(dodfcyr,dodfcmo,dodfcda)-
                yrmoda(latremyr,latremmo,latremda))/30.4375.
RECODE
  LOS  (252 thru Highest=SYSMIS).
DO IF (LOS <= 0).
RECODE
  LOS (Lowest thru 0=SYSMIS).
END IF .
recode los
(sysmis=9) (48 thru highest=5) (36 thru 48=4) (24 thru 36=3) (12 thru 24=2) (lowest thru 12=1) into LOS1.
formats los1 (f1.0).
value labels los1
1'Los<12Ms'
2'12Ms<=Los<24Ms'
3'24Ms<=Los<36Ms'
4'36Ms<=Los<48Ms'
5'Los>=48Ms'
9'Missing'.
recode los
(sysmis=9) (48 thru highest=4) (36 thru 48=3) (24 thru 36=2) (lowest thru 24=1) into LOS8.
formats los8 (f1.0).
value labels los8
1'Los<24Ms'
2'24Ms<=Los<36Ms'
3'36Ms<=Los<48Ms'
4'Los>=48Ms'
9'Missing'.
exe.
Compute entry1=(yrmoda(latremyr,latremmo,latremda)-yrmoda(dobyr,dobmo,dobda))/30.4375.
RECODE
  Entry1  (252 thru Highest=SYSMIS).
DO IF (Entry1 < 0).
RECODE
  Entry1 (Lowest thru 0=SYSMIS).
END IF .
compute entry=(entry1/12).
exe.
recode entry
(sysmis=9)(12 thru highest=2)(lowest thru 12=1) into Eage2.
formats Eage2 (f1.0).
value labels Eage2
1'Entry Age<12Years'
2'Entry Age>=12Years'
9'Missing'.
recode entry
(sysmis=9)(13 thru highest=2)(lowest thru 13=1) into Eage3.
formats Eage3 (f1.0).
value labels Eage3
1'Entry Age<=12Years'
2'Entry Age>12Years'
9'Missing'.
exe.
DO IF (race = 1 & hisorgin = 1 | race = 2 & hisorgin = 1 | race = 3 &
  hisorgin = 1 | race = 4 & hisorgin = 1 | race = 5 & hisorgin=1) .
RECODE
  race
  (1=5)  (2=5)  (3=5)  (4=5)  (5=5) INTO  racethnc.
END IF .
DO IF (race = 1 & hisorgin =2 | race = 2 & hisorgin = 2 | race = 3 &
  hisorgin = 2 | race = 4 & hisorgin = 2 | race = 5 & hisorgin = 2) .
RECODE
  race
    (1=1) (2=2) (3=3) (4=4) (5=6) into racethnc.
end if.
DO IF (race = 1 & hisorgin = 3 | race = 2 & hisorgin = 3 | race = 3 &
  hisorgin = 3 | race = 4 & hisorgin = 3 | race = 5 & hisorgin = 3) .
RECODE
  race
    (1=1) (2=2) (3=3) (4=4) (5=6) into racethnc.
end if.
DO IF (race = 1 & missing(hisorgin) | race = 2 & missing(hisorgin) | race = 3 &
  missing(hisorgin) | race = 4 & missing(hisorgin) | race = 5 & missing(hisorgin)) .
RECODE
  race
    (1=1) (2=2) (3=3) (4=4) (5=6) into racethnc.
end if.
DO IF (MISSING(RACE)& HISORGIN = 1).
RECODE
 RACE
 (SYSMIS=5) INTO racethnc.
END IF.
DO IF (MISSING(RACE)& HISORGIN = 2).
RECODE
 RACE
 (SYSMIS=6) INTO racethnc.
END IF.
 DO IF (MISSING(RACE)& HISORGIN = 3).
RECODE
 RACE
 (SYSMIS=6) INTO racethnc.
END IF.
DO IF (MISSING(RACE) & MISSING(HISORGIN)).
END IF.
recode racethnc
(sysmis=9).
recode racethnc
(1=5) (2=3) (3=1) (4=2) (5=4) (6=6).
FORMATS RACETHNC (F1.0).
value labels racethnc
   1 'AI/AN Non-Hispanic'
   2 'Asian/PI Non-Hispanic'
   3 'Black Non-Hispanic'
   4 'Hispanic'
   5 'White Non-Hispanic'
   6 'UnKnown/Unable to Determine'
   9 'Missing'.
exe.

*Measure 3.1: For all children who exited the system, what percentage left either to reunification, adoption, or legal guardianships. 

TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state + $t000001  BY Newdis1 + $t000002
  /STATISTICS
  count( Newdis1( COMMA7.0 ) 'N')
  cpct( Newdis1( PCT5.0 ) 'Row %':state )
  count($t000002(comma6.0) 'N')/Title 'CWO-3 Measure 3.1'.

*Measure 3.2: For children who exited they system and were identified as having a diagnosed disability, 
*what percentage left either to reunification, adoption, or legal guardianships.

Temporary.
Select if (Clindis=1).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000003 "Total" $t000002 "Total"
  /TABLE=state > clindis + $t000003  BY newdis1 + $t000002
  /STATISTICS
  count( newdis1( COMMA6.0 ) 'N')
  cpct( newdis1( PCT5.0 ) 'Row %':state clindis )
  count( $t000002( COMMA7.0 ) 'N')/Title 'CWO-3 Measure 3.2'.

*Measure 3.3: For children who exited the system and were older than 12 years of age at the time of their most
*recent entry into care, what percentage left either to reunification, adoption, or legal guardianships.

Temporary.
Select if (Eage3=2).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state > eage3 + $t000001  BY newdis1 + $t000002
  /STATISTICS
  count( newdis1( COMMA6.0 ) 'N')
  cpct( newdis1( PCT5.0 ) 'Row %':state eage3 )
  count( $t000002( COMMA6.0 ) 'N')/Title 'CWO-3 Measure 3.3'.

* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state + $t000001  BY racethnc > ( newdis1 + $t000002  )
  /STATISTICS
  count( newdis1( COMMA6.0 ) 'N')
  cpct( newdis1( PCT5.0 ) 'Subtable %':state racethnc )
  count( $t000002( COMMA6.0 ) 'N')/Title 'CWO-3 Measure 3.4'.

*Measure 3.5: Of all children exiting to emancipation, what percentage was 12 or younger at the time of entry into care.

Temporary.
select if (newdis=4).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state > newdis + $t000001  BY eage3 + $t000002
  /STATISTICS
  count( eage3( COMMA6.0 ) 'N')
  cpct( eage3( PCT5.0 ) 'Row %':state newdis )
  count( $t000002( COMMA6.0 ) 'N')/Title 'CWO-3 Measure 3.5'.

*CWO 4: Measure 4.1 and 4.2 - Reduce time in foster care to reunification withut increasing re-entry.

*Measure 4.1: Of all children who were reunified with their parents or caretakers at the time of discharge
*from foster care, what percentage was reunified in 12 month time intervals.

Temporary.
Select if (newdis=1).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state + $t000001  BY los1 + $t000002
  /STATISTICS
  count( los1( COMMA6.0 ) 'N')
  cpct( los1( PCT5.0 ) 'Row %':state )
  count( $t000002( COMMA7.0 ) 'N')/Title 'CWO-4 Measure 4.1'.

*using entry file.

*Measure 4.2: Of all children who entered care, what percentage had been in care before.

get file 'c:\Entry98c.sav'.
recode totalrem
(sysmis=9) (0=9) (1=1) (2 thru highest=2) into removals.
formats removals (f1.0).
recode dlstfcmo
(sysmis=99).
do if (removals=1 and dlstfcmo=99).
compute time=1.
else if (removals=2 and dlstfcmo=99).
compute time=9.
else if (removals=9).
compute time=9.
else if (removals=1 and dlstfcmo~=99).
compute time=9.
else if (removals=2 and dlstfcmo~=99).
compute time =(yrmoda(latremyr,latremmo,latremda)-yrmdoda(dlstfcyr,dlstfcmo,dlstfcda))/30.4375.
end if.
exe.
do if (removals=1 and dlstfcmo=99).
recode Time
(1=1) into TimeRE.
else if(removals=2 and dlstfcmo~=99).
recode Time
(252 thru highest=9) (12 thru 252=3) (.03 thru 12=2) (lowest thru .03=9) into TimeRE.
else.
recode Time
(9=9) into TimeRE.
end if.
value labels TimeRE
1'New Entry'
2'RE<12Months'
3'RE>=12Months'
9'Missing'.
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state + $t000001  BY timere + $t000002
  /STATISTICS
  count( timere( COMMA6.0 ) 'N')
  cpct( timere( PCT5.0 ) 'Row %':state )
  count( $t000002( COMMA6.0 ) 'N')/Title 'CWO-4 Measure 4.2'.

*using exit file.

*CWO 5: Measure 5.1 and 5.2 - Reduce time in foster care to adoption finalization.

get file 'c:\Exits98c.sav'.
recode disreasn 
(sysmis=9) (0=9) (1=1) (2=1) (3=3) (5=5)(else=8) into Newdis1.
value labels Newdis1
1'Reunification'
3'Adoption'
5'Guardianship'
8'Other'
9'Missing'.
formats Newdis1 (f1.0).
compute LOS = (yrmoda(dodfcyr,dodfcmo,dodfcda)-
                yrmoda(latremyr,latremmo,latremda))/30.4375.
RECODE
  LOS  (252 thru Highest=SYSMIS).
DO IF (LOS <= 0).
RECODE
  LOS (Lowest thru 0=SYSMIS).
END IF .
exe.
recode los
(sysmis=9) (48 thru highest=5) (36 thru 48=4) (24 thru 36=3) (12 thru 24=2) (lowest thru 12=1) into LOS1.
formats los1 (f1.0).
value labels los1
1'Los<12Ms'
2'12Ms<=Los<24Ms'
3'24Ms<=Los<36Ms'
4'36Ms<=Los<48Ms'
5'Los>=48Ms'
9'Missing'.
recode los
(sysmis=9) (48 thru highest=5) (36 thru 48=4) (24 thru 36=3) (12 thru 24=2) (lowest thru 12=1) into LOS8.
formats los8 (f1.0).
value labels los8
1'Los<12Ms'
2'12Ms<=Los<24Ms'
3'24Ms<=Los<36Ms'
4'36Ms<=Los<48Ms'
5'Los>=48Ms'
9'Missing'.
exe.
Compute entry1=(yrmoda(latremyr,latremmo,latremda)-yrmoda(dobyr,dobmo,dobda))/30.4375.
RECODE
  Entry1  (252 thru Highest=SYSMIS).
DO IF (Entry1 < 0).
RECODE
  Entry1 (Lowest thru 0=SYSMIS).
END IF .
compute entry=(entry1/12).
recode entry
(sysmis=9) (3 thru highest=2)(lowest thru 3=1) into Eage1.
formats Eage1 (f1.0).
exe.

*Measure 5.1: Of all children exiting to finalized adoption, what percentage exited care in 12 month intervals.

Temporary.
Select if (Newdis1=3).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state > newdis1 + $t000001  BY los1 + $t000002
  /STATISTICS
  count( los1( COMMA6.0 ) 'N')
  cpct( los1( PCT5.0 ) 'Row %':state newdis1 )
  count( $t000002( COMMA5.0 ) 'N')/Title 'CWO-5 Measure 5.1'.

*Measure 5.2: Of all children exiting to finalized adoption and who were age 3 or older at the time of entry into care,
*what percentage exited care in 12 month intervals.

Temporary.
Select if ((Newdis1=3) and (Eage1=2)).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000002 "Total" $t000003 "Total"
  /TABLE=state > newdis1 + $t000002  BY los8 + $t000003
  /STATISTICS
  count( los8( COMMA6.0 ) 'N')
  cpct( los8( PCT5.0 ) 'Row %':state newdis1 )
  count( $t000003( COMMA6.0 ) 'N')/Title 'CWO-5 Measure 5.2'.

*using served file.

*CWO 6: Of all children served who have been in care for 12 month intervals, what percent have had
*no more than two placements settings during that time period. 

get file 'c:\served98c.sav'.
do if ((missing(dodfcyr)  and missing(dodfcmo) and missing(dodfcda)) or (yrmoda(dodfcyr,dodfcmo,dodfcda)>=151928)).
compute LOS=(yrmoda(1998,09,30)-yrmoda(latremyr,latremmo,latremda))/30.4375.
else. 
compute LOS=(yrmoda(dodfcyr,dodfcmo,dodfcda)-yrmoda(latremyr,latremmo,latremda))/30.4375.
end if.
RECODE
  LOS  (252 thru Highest=SYSMIS).
DO IF (LOS <=0).
RECODE
  LOS  (Lowest thru 0=SYSMIS).
END IF .
exe.
recode los
(sysmis=9) (48 thru highest=5) (36 thru 48=4) (24 thru 36=3) (12 thru 24=2) (lowest thru 12=1) into LOS2.
formats los2 (f1.0).
value labels los2
1'Los<12Ms'
2'12Ms<=Los<24Ms'
3'24Ms<=Los<36Ms'
4'36Ms<=Los<48Ms'
5'Los>=48Ms'
9'Missing'.
variable labels Los2 'Time in Care'.
compute settime = yrmoda(cursetyr,cursetmo,cursetda).
formats settime (f6.0).
do if (settime<=151927).
compute set=1.
else if (settime>=151928).
compute set=2.
formats set (f1.0).
end if.
compute newplace=(numplep).
formats newplace (f2.0).
if (set=2 and (newplace>=2)) newplace = (newplace-1).
exe.
recode newplace
(sysmis=9) (0=9) (lowest thru 2=1) (3 thru highest=2) into NewP.
formats NewP (f1.0).
variable labels NewP 'Total Number of Placements'.
value labels NewP
1'2 Places or Less'
2'3 Places or More'
9'Missing'.
if (Los>0)served=1.
formats served (f1.0).
exe.

* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000003 "Total"
  /TABLE=state + $t000001  BY los2 > ( newp + $t000003  )
  /STATISTICS
  count( newp( COMMA6.0 ) 'N')
  cpct( newp( PCT5.0 ) 'Subtable %':state los2 )
  count( $t000003( COMMA6.0 ) 'N')/Title 'CWO-6 Measure 6.1(Children Served)'.

*CWO 7: Reduce placements of young children in group homes or institutions.

*using the entry file.

get file 'c:\Entry98c.sav'.
compute settime = yrmoda(cursetyr,cursetmo,cursetda).
formats settime (f6.0).
do if (missing(cursetyr)).
compute set=1.
else if (settime<=151927).
compute set=2.
else if (settime>=151928).
compute set=3.
formats set (f1.0).
end if.
compute setage2=((yrmoda(cursetyr,cursetmo,cursetda)-yrmoda(dobyr,dobmo,dobda))/30.4375).
RECODE
  setage2  (252 thru Highest=SYSMIS).
DO IF (setage2 < 0).
RECODE
  setage2  (Lowest thru 0=SYSMIS).
END IF .
compute setage1=(setage2/12).
recode setage1
(sysmis=9) (13 thru highest=2) (lowest thru 13=1) into setage.
formats setage (f1.0).
exe.
value labels setage
1'Enter Set <=12 Yrs Old'
2'Enter Set >12 Yrs Old'
9'Missing'.
recode curplset
	(sysmis=9) (0=9) (4=1) (5=2) (else=3) into newset.
formats newset (f1.0).
value labels newset
1'Group Home'
2'Institution'
3'Other'
9'Missing'.
do if (setage >= 0).
compute grand = (1).
end if.
formats grand (f1.0).
exe.
Temporary.
Select if (set=1 or set=2).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000004 "Total"
  /TABLE=state + $t000001  BY setage > ( newset + $t000004 ) + grand
  /STATISTICS
  count( newset( COMMA6.0 ) 'N')
  cpct( newset( PCT5.0 ) 'Row %':state )
  cpct( newset( PCT5.0 ) 'Subtable %':state setage grand )
  count( $t000004( COMMA6.0 ) 'N')
  count( grand( COMMA6.0 ) 'Total')/Title 'CWO-7: Measure 7.1 (Childrens Age at Placement in Their Current Setting During the Period)'.


**************************************
*PART 2 (Uses 1999 Data Files)*
**************************************


*CWO 3: Increase permanency for children in foster care.

*using exit file

*CWO 3: Measures 3.1 thru 3.5

get file 'c:\Exits99C.sav'.
recode disreasn
(sysmis=9) (0=9) (1=1) (2=1) (3=3) (4=4) (5=5) (else=8) into newdis.
formats newdis (f1.0).
value labels newdis
1 'Reunify'
3 'Adoption'
4 'Emancipation'
5 'Guardianship'
8 'Other'
9 'Missing'.
recode disreasn (sysmis=9) (0=9) (1=1) (2=1) (3=3) (5=5)(else=8) into Newdis1.
formats Newdis1 (f1.0).
value labels Newdis1
1'Reunification'
3'Adoption'
5'Guardianship'
8'Other'
9 'Missing'.
exe.
Recode Clindis
(sysmis=9) (0=9).
value labels Clindis
1'Yes'
2'No'
3'Not Yet Determined'
9'Missing'.
compute LOS = (yrmoda(dodfcyr,dodfcmo,dodfcda)-
                yrmoda(latremyr,latremmo,latremda))/30.4375.
RECODE
  LOS  (252 thru Highest=SYSMIS).
DO IF (LOS <= 0).
RECODE
  LOS (Lowest thru 0=SYSMIS).
END IF .
recode los
(sysmis=9) (48 thru highest=5) (36 thru 48=4) (24 thru 36=3) (12 thru 24=2) (lowest thru 12=1) into LOS1.
formats los1 (f1.0).
value labels los1
1'Los<12Ms'
2'12Ms<=Los<24Ms'
3'24Ms<=Los<36Ms'
4'36Ms<=Los<48Ms'
5'Los>=48Ms'
9'Missing'.
recode los
(sysmis=9) (48 thru highest=4) (36 thru 48=3) (24 thru 36=2) (lowest thru 24=1) into LOS8.
formats los8 (f1.0).
value labels los8
1'Los<24Ms'
2'24Ms<=Los<36Ms'
3'36Ms<=Los<48Ms'
4'Los>=48Ms'
9'Missing'.
exe.
Compute entry1=(yrmoda(latremyr,latremmo,latremda)-yrmoda(dobyr,dobmo,dobda))/30.4375.
RECODE
  Entry1  (252 thru Highest=SYSMIS).
DO IF (Entry1 < 0).
RECODE
  Entry1 (Lowest thru 0=SYSMIS).
END IF .
compute entry=(entry1/12).
exe.
recode entry
(sysmis=9)(12 thru highest=2)(lowest thru 12=1) into Eage2.
formats Eage2 (f1.0).
value labels Eage2
1'Entry Age<12Years'
2'Entry Age>=12Years'
9'Missing'.
recode entry
(sysmis=9)(13 thru highest=2)(lowest thru 13=1) into Eage3.
formats Eage3 (f1.0).
value labels Eage3
1'Entry Age<=12Years'
2'Entry Age>12Years'
9'Missing'.
exe.
DO IF (race = 1 & hisorgin = 1 | race = 2 & hisorgin = 1 | race = 3 &
  hisorgin = 1 | race = 4 & hisorgin = 1 | race = 5 & hisorgin=1 | race = 7 & hisorgin=1) .
RECODE
  race
  (1=5)  (2=5)  (3=5)  (4=5)  (5=5) (7=5) INTO  racethnc.
END IF .
DO IF (race = 1 & hisorgin =2 | race = 2 & hisorgin = 2 | race = 3 &
  hisorgin = 2 | race = 4 & hisorgin = 2 | race = 5 & hisorgin = 2 | race = 7 & hisorgin=2) .
RECODE
  race
    (1=1) (2=2) (3=3) (4=4) (5=6) (7=7) into racethnc.
end if.
DO IF (race = 1 & hisorgin = 3 | race = 2 & hisorgin = 3 | race = 3 &
  hisorgin = 3 | race = 4 & hisorgin = 3 | race = 5 & hisorgin = 3 | race = 7 & hisorgin=3) .
RECODE
  race
    (1=1) (2=2) (3=3) (4=4) (5=6) (7=7) into racethnc.
end if.
DO IF (race = 1 & missing(hisorgin) | race = 2 & missing(hisorgin) | race = 3 &
  missing(hisorgin) | race = 4 & missing(hisorgin) | race = 5 & missing(hisorgin) | race = 7 & missing(hisorgin)) .
RECODE
  race
    (1=1) (2=2) (3=3) (4=4) (5=6) (7=7) into racethnc.
end if.
DO IF (MISSING(RACE)& HISORGIN = 1).
RECODE
 RACE
 (SYSMIS=5) INTO racethnc.
END IF.
DO IF (MISSING(RACE)& HISORGIN = 2).
RECODE
 RACE
 (SYSMIS=6) INTO racethnc.
END IF.
 DO IF (MISSING(RACE)& HISORGIN = 3).
RECODE
 RACE
 (SYSMIS=6) INTO racethnc.
END IF.
DO IF (MISSING(RACE) & MISSING(HISORGIN)).
END IF.
recode racethnc
(sysmis=9).
recode racethnc
(1=5) (2=3) (3=1) (4=2) (5=4) (6=6) (7=7).
FORMATS RACETHNC (F1.0).
value labels racethnc
   1 'AI/AN Non-Hispanic'
   2 'Asian/PI Non-Hispanic'
   3 'Black Non-Hispanic'
   4 'Hispanic'
   5 'White Non-Hispanic'
   6 'UnKnown/Unable to Determine'
   7 'Not Applicable'
   9 'Missing'.
exe.

*Measure 3.1: For all children who exited the system, what percentage left either to reunification, adoption, or legal guardianships. 

TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state + $t000001  BY Newdis1 + $t000002
  /STATISTICS
  count( Newdis1( COMMA7.0 ) 'N')
  cpct( Newdis1( PCT5.0 ) 'Row %':state )
  count($t000002(comma6.0) 'N')/Title 'CWO-3 Measure 3.1'.

*Measure 3.2: For children who exited they system and were identified as having a diagnosed disability, 
*what percentage left either to reunification, adoption, or legal guardianships.

Temporary.
Select if (Clindis=1).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000003 "Total" $t000002 "Total"
  /TABLE=state > clindis + $t000003  BY newdis1 + $t000002
  /STATISTICS
  count( newdis1( COMMA6.0 ) 'N')
  cpct( newdis1( PCT5.0 ) 'Row %':state clindis )
  count( $t000002( COMMA7.0 ) 'N')/Title 'CWO-3 Measure 3.2'.

*Measure 3.3: For children who exited the system and were older than 12 years of age at the time of their most
*recent entry into care, what percentage left either to reunification, adoption, or legal guardianships.

Temporary.
Select if (Eage3=2).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state > eage3 + $t000001  BY newdis1 + $t000002
  /STATISTICS
  count( newdis1( COMMA6.0 ) 'N')
  cpct( newdis1( PCT5.0 ) 'Row %':state eage3 )
  count( $t000002( COMMA6.0 ) 'N')/Title 'CWO-3 Measure 3.3'.

* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state + $t000001  BY racethnc > ( newdis1 + $t000002  )
  /STATISTICS
  count( newdis1( COMMA6.0 ) 'N')
  cpct( newdis1( PCT5.0 ) 'Subtable %':state racethnc )
  count( $t000002( COMMA6.0 ) 'N')/Title 'CWO-3 Measure 3.4'.

*Measure 3.5: Of all children exiting to emancipation, what percentage was 12 or younger at the time of entry into care.

Temporary.
select if (newdis=4).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state > newdis + $t000001  BY eage3 + $t000002
  /STATISTICS
  count( eage3( COMMA6.0 ) 'N')
  cpct( eage3( PCT5.0 ) 'Row %':state newdis )
  count( $t000002( COMMA6.0 ) 'N')/Title 'CWO-3 Measure 3.5'.

*CWO 4: Measure 4.1 and 4.2 - Reduce time in foster care to reunification withut increasing re-entry.

*Measure 4.1: Of all children who were reunified with their parents or caretakers at the time of discharge
*from foster care, what percentage was reunified in 12 month time intervals.

Temporary.
Select if (newdis=1).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state + $t000001  BY los1 + $t000002
  /STATISTICS
  count( los1( COMMA6.0 ) 'N')
  cpct( los1( PCT5.0 ) 'Row %':state )
  count( $t000002( COMMA7.0 ) 'N')/Title 'CWO-4 Measure 4.1'.

*using entry file.

*Measure 4.2: Of all children who entered care, what percentage had been in care before.

get file 'c:\Entry99C.sav'.
recode totalrem
(sysmis=9) (0=9) (1=1) (2 thru highest=2) into removals.
formats removals (f1.0).
recode dlstfcmo
(sysmis=99).
do if (removals=1 and dlstfcmo=99).
compute time=1.
else if (removals=2 and dlstfcmo=99).
compute time=9.
else if (removals=9).
compute time=9.
else if (removals=1 and dlstfcmo~=99).
compute time=9.
else if (removals=2 and dlstfcmo~=99).
compute time =(yrmoda(latremyr,latremmo,latremda)-yrmdoda(dlstfcyr,dlstfcmo,dlstfcda))/30.4375.
end if.
exe.
do if (removals=1 and dlstfcmo=99).
recode Time
(1=1) into TimeRE.
else if(removals=2 and dlstfcmo~=99).
recode Time
(252 thru highest=9) (12 thru 252=3) (.03 thru 12=2) (lowest thru .03=9) into TimeRE.
else.
recode Time
(9=9) into TimeRE.
end if.
value labels TimeRE
1'New Entry'
2'RE<12Months'
3'RE>=12Months'
9'Missing'.
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state + $t000001  BY timere + $t000002
  /STATISTICS
  count( timere( COMMA6.0 ) 'N')
  cpct( timere( PCT5.0 ) 'Row %':state )
  count( $t000002( COMMA6.0 ) 'N')/Title 'CWO-4 Measure 4.2'.

*using exit file.

*CWO 5: Measure 5.1 and 5.2 - Reduce time in foster care to adoption finalization.

get file 'c:\Exits99C.sav'.
recode disreasn 
(sysmis=9) (0=9) (1=1) (2=1) (3=3) (5=5)(else=8) into Newdis1.
value labels Newdis1
1'Reunification'
3'Adoption'
5'Guardianship'
8'Other'
9'Missing'.
formats Newdis1 (f1.0).
compute LOS = (yrmoda(dodfcyr,dodfcmo,dodfcda)-
                yrmoda(latremyr,latremmo,latremda))/30.4375.
RECODE
  LOS  (252 thru Highest=SYSMIS).
DO IF (LOS <= 0).
RECODE
  LOS (Lowest thru 0=SYSMIS).
END IF .
exe.
recode los
(sysmis=9) (48 thru highest=5) (36 thru 48=4) (24 thru 36=3) (12 thru 24=2) (lowest thru 12=1) into LOS1.
formats los1 (f1.0).
value labels los1
1'Los<12Ms'
2'12Ms<=Los<24Ms'
3'24Ms<=Los<36Ms'
4'36Ms<=Los<48Ms'
5'Los>=48Ms'
9'Missing'.
recode los
(sysmis=9) (48 thru highest=5) (36 thru 48=4) (24 thru 36=3) (12 thru 24=2) (lowest thru 12=1) into LOS8.
formats los8 (f1.0).
value labels los8
1'Los<12Ms'
2'12Ms<=Los<24Ms'
3'24Ms<=Los<36Ms'
4'36Ms<=Los<48Ms'
5'Los>=48Ms'
9'Missing'.
exe.
Compute entry1=(yrmoda(latremyr,latremmo,latremda)-yrmoda(dobyr,dobmo,dobda))/30.4375.
RECODE
  Entry1  (252 thru Highest=SYSMIS).
DO IF (Entry1 < 0).
RECODE
  Entry1 (Lowest thru 0=SYSMIS).
END IF .
compute entry=(entry1/12).
recode entry
(sysmis=9) (3 thru highest=2)(lowest thru 3=1) into Eage1.
formats Eage1 (f1.0).
exe.

*Measure 5.1: Of all children exiting to finalized adoption, what percentage exited care in 12 month intervals.

Temporary.
Select if (Newdis1=3).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000002 "Total"
  /TABLE=state > newdis1 + $t000001  BY los1 + $t000002
  /STATISTICS
  count( los1( COMMA6.0 ) 'N')
  cpct( los1( PCT5.0 ) 'Row %':state newdis1 )
  count( $t000002( COMMA5.0 ) 'N')/Title 'CWO-5 Measure 5.1'.

*Measure 5.2: Of all children exiting to finalized adoption and who were age 3 or older at the time of entry into care,
*what percentage exited care in 12 month intervals.

Temporary.
Select if ((Newdis1=3) and (Eage1=2)).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000002 "Total" $t000003 "Total"
  /TABLE=state > newdis1 + $t000002  BY los8 + $t000003
  /STATISTICS
  count( los8( COMMA6.0 ) 'N')
  cpct( los8( PCT5.0 ) 'Row %':state newdis1 )
  count( $t000003( COMMA6.0 ) 'N')/Title 'CWO-5 Measure 5.2'.

*using served file.

*CWO 6: Of all children served who have been in care for 12 month intervals, what percent have had
*no more than two placements settings during that time period. 

get file 'c:\served99C.sav'.
do if ((missing(dodfcyr)  and missing(dodfcmo) and missing(dodfcda)) or (yrmoda(dodfcyr,dodfcmo,dodfcda)>=152293)).
compute LOS=(yrmoda(1999,09,30)-yrmoda(latremyr,latremmo,latremda))/30.4375.
else. 
compute LOS=(yrmoda(dodfcyr,dodfcmo,dodfcda)-yrmoda(latremyr,latremmo,latremda))/30.4375.
end if.
RECODE
  LOS  (252 thru Highest=SYSMIS).
DO IF (LOS <=0).
RECODE
  LOS  (Lowest thru 0=SYSMIS).
END IF .
exe.
recode los
(sysmis=9) (48 thru highest=5) (36 thru 48=4) (24 thru 36=3) (12 thru 24=2) (lowest thru 12=1) into LOS2.
formats los2 (f1.0).
value labels los2
1'Los<12Ms'
2'12Ms<=Los<24Ms'
3'24Ms<=Los<36Ms'
4'36Ms<=Los<48Ms'
5'Los>=48Ms'
9'Missing'.
variable labels Los2 'Time in Care'.
compute settime = yrmoda(cursetyr,cursetmo,cursetda).
formats settime (f6.0).
do if (settime<=152292).
compute set=1.
else if (settime>=152293).
compute set=2.
formats set (f1.0).
end if.
compute newplace=(numplep).
formats newplace (f2.0).
if (set=2 and (newplace>=2)) newplace = (newplace-1).
exe.
recode newplace
(sysmis=9) (0=9) (lowest thru 2=1) (3 thru highest=2) into NewP.
formats NewP (f1.0).
variable labels NewP 'Total Number of Placements'.
value labels NewP
1'2 Places or Less'
2'3 Places or More'
9'Missing'.
if (Los>0)served=1.
formats served (f1.0).
exe.

* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000003 "Total"
  /TABLE=state + $t000001  BY los2 > ( newp + $t000003  )
  /STATISTICS
  count( newp( COMMA6.0 ) 'N')
  cpct( newp( PCT5.0 ) 'Subtable %':state los2 )
  count( $t000003( COMMA6.0 ) 'N')/Title 'CWO-6 Measure 6.1(Children Served)'.

*CWO 7: Reduce placements of young children in group homes or institutions.

*using the entry file.

get file 'c:\Entry99C.sav'.
compute settime = yrmoda(cursetyr,cursetmo,cursetda).
formats settime (f6.0).
do if (missing(cursetyr)).
compute set=1.
else if (settime<=152292).
compute set=2.
else if (settime>=152293).
compute set=3.
formats set (f1.0).
end if.
compute setage2=((yrmoda(cursetyr,cursetmo,cursetda)-yrmoda(dobyr,dobmo,dobda))/30.4375).
RECODE
  setage2  (252 thru Highest=SYSMIS).
DO IF (setage2 < 0).
RECODE
  setage2  (Lowest thru 0=SYSMIS).
END IF .
compute setage1=(setage2/12).
recode setage1
(sysmis=9) (13 thru highest=2) (lowest thru 13=1) into setage.
formats setage (f1.0).
exe.
value labels setage
1'Enter Set <=12 Yrs Old'
2'Enter Set >12 Yrs Old'
9'Missing'.
recode curplset
	(sysmis=9) (0=9) (4=1) (5=2) (else=3) into newset.
formats newset (f1.0).
value labels newset
1'Group Home'
2'Institution'
3'Other'
9'Missing'.
do if (setage >= 0).
compute grand = (1).
end if.
formats grand (f1.0).
exe.
Temporary.
Select if (set=1 or set=2).
* General Tables.
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000001 "Total" $t000004 "Total"
  /TABLE=state + $t000001  BY setage > ( newset + $t000004 ) + grand
  /STATISTICS
  count( newset( COMMA6.0 ) 'N')
  cpct( newset( PCT5.0 ) 'Row %':state )
  cpct( newset( PCT5.0 ) 'Subtable %':state setage grand )
  count( $t000004( COMMA6.0 ) 'N')
  count( grand( COMMA6.0 ) 'Total')/Title 'CWO-7: Measure 7.1 (Childrens Age at Placement in Their Current Setting During the Period)'.