Credits Earned toward Bachelor's/Associate's Degree - Appendix 1
Credits Earned toward Bachelor's/Associate's Degree - Appendix 1
Variables Created
- CV_BA_CREDITS.01-.05
- CV_ASSOC_CREDITS.01-.05
This program calculates fraction of credits earned toward a bachelor's degree (CV_BA_CREDITS) and fraction of credits earned toward a associate's degree (CV_ASSOC_CREDITS) for each round.
Variables Used
/*Variable Names in the Program Variable Names on the Gator*/
asctR1 CV_ASSOC_CREDITS_1997
bactR1 CV_BA_CREDITS_1997
asctR2_1 CV_ASSOC_CREDITS.01_1998
asctR2_2 CV_ASSOC_CREDITS.02_1998
asctR2_3 CV_ASSOC_CREDITS.03_1998
asctR2_4 CV_ASSOC_CREDITS.04_1998
asctR2_5 CV_ASSOC_CREDITS.05_1998
bactR2_1 CV_BA_CREDITS.01_1998
bactR2_2 CV_BA_CREDITS.02_1998
bactR2_3 CV_BA_CREDITS.03_1998
bactR2_4 CV_BA_CREDITS.04_1998
bactR2_5 CV_BA_CREDITS.05_1998
asctR3_1 CV_ASSOC_CREDITS.01_1999
asctR3_2 CV_ASSOC_CREDITS.02_1999
asctR3_3 CV_ASSOC_CREDITS.03_1999
bactR3_1 CV_BA_CREDITS.01_1999
bactR3_2 CV_BA_CREDITS.02_1999
bactR3_3 CV_BA_CREDITS.03_1999
bactR3_4 CV_BA_CREDITS.04_1999
asctR4_1 CV_ASSOC_CREDITS.01_2000
asctR4_2 CV_ASSOC_CREDITS.02_2000
asctR4_3 CV_ASSOC_CREDITS.03_2000
asctR4_4 CV_ASSOC_CREDITS.04_2000
bactR4_1 CV_BA_CREDITS.01_2000
bactR4_2 CV_BA_CREDITS.02_2000
bactR4_3 CV_BA_CREDITS.03_2000
asctR5_1 CV_ASSOC_CREDITS.01_2001
asctR5_2 CV_ASSOC_CREDITS.02_2001
asctR5_3 CV_ASSOC_CREDITS.03_2001
asctR5_4 CV_ASSOC_CREDITS.04_2001
asctR5_5 CV_ASSOC_CREDITS.05_2001
bactR5_1 CV_BA_CREDITS.01_2001
bactR5_2 CV_BA_CREDITS.02_2001
bactR5_3 CV_BA_CREDITS.03_2001
bactR5_4 CV_BA_CREDITS.04_2001
asctR6_1 CV_ASSOC_CREDITS.01_2002
asctR6_2 CV_ASSOC_CREDITS.02_2002
asctR6_3 CV_ASSOC_CREDITS.03_2002
asctR6_4 CV_ASSOC_CREDITS.04_2002
bactR6_1 CV_BA_CREDITS.01_2002
bactR6_2 CV_BA_CREDITS.02_2002
bactR6_3 CV_BA_CREDITS.03_2002
bactR6_4 CV_BA_CREDITS.04_2002
bactR6_5 CV_BA_CREDITS.05_2002
asctR7_1 CV_ASSOC_CREDITS.01_2003
asctR7_2 CV_ASSOC_CREDITS.02_2003
asctR7_3 CV_ASSOC_CREDITS.03_2003
asctR7_4 CV_ASSOC_CREDITS.04_2003
asctR7_5 CV_ASSOC_CREDITS.05_2003
bactR7_1 CV_BA_CREDITS.01_2003
bactR7_2 CV_BA_CREDITS.02_2003
bactR7_3 CV_BA_CREDITS.03_2003
bactR7_4 CV_BA_CREDITS.04_2003
bactR7_5 CV_BA_CREDITS.05_2003
asctR8_1 CV_ASSOC_CREDITS.01_2004
asctR8_2 CV_ASSOC_CREDITS.02_2004
asctR8_3 CV_ASSOC_CREDITS.03_2004
asctR8_4 CV_ASSOC_CREDITS.04_2004
bactR8_1 CV_BA_CREDITS.01_2004
bactR8_2 CV_BA_CREDITS.02_2004
bactR8_3 CV_BA_CREDITS.03_2004
asctR9_1 CV_ASSOC_CREDITS.01_2005
asctR9_2 CV_ASSOC_CREDITS.02_2005
asctR9_3 CV_ASSOC_CREDITS.03_2005
asctR9_4 CV_ASSOC_CREDITS.04_2005
bactR9_1 CV_BA_CREDITS.01_2005
bactR9_2 CV_BA_CREDITS.02_2005
bactR9_3 CV_BA_CREDITS.03_2005
bactR9_4 CV_BA_CREDITS.04_2005
asctR10_1 CV_ASSOC_CREDITS.01_2006
asctR10_2 CV_ASSOC_CREDITS.02_2006
asctR10_3 CV_ASSOC_CREDITS.03_2006
asctR10_4 CV_ASSOC_CREDITS.04_2006
bactR10_1 CV_BA_CREDITS.01_2006
bactR10_2 CV_BA_CREDITS.02_2006
bactR10_3 CV_BA_CREDITS.03_2006
bactR10_4 CV_BA_CREDITS.04_2006
bactR10_5 CV_BA_CREDITS.05_2006
asctR11_1 CV_ASSOC_CREDITS.01_2007
asctR11_2 CV_ASSOC_CREDITS.02_2007
asctR11_3 CV_ASSOC_CREDITS.03_2007
bactR11_1 CV_BA_CREDITS.01_2007
bactR11_2 CV_BA_CREDITS.02_2007
bactR11_3 CV_BA_CREDITS.03_2007
bactR11_4 CV_BA_CREDITS.04_2007
bactR11_5 CV_BA_CREDITS.05_2007
asctR12_1 CV_ASSOC_CREDITS.01_2008
asctR12_2 CV_ASSOC_CREDITS.02_2008
asctR12_3 CV_ASSOC_CREDITS.03_2008
asctR12_6 CV_ASSOC_CREDITS.06_2008
bactR12_1 CV_BA_CREDITS.01_2008
bactR12_2 CV_BA_CREDITS.02_2008
bactR12_3 CV_BA_CREDITS.03_2008
bactR12_7 CV_BA_CREDITS.07_2008
bactR12_8 CV_BA_CREDITS.08_2008
asctR13_1 CV_ASSOC_CREDITS.01_2009
asctR13_2 CV_ASSOC_CREDITS.02_2009
bactR13_1 CV_BA_CREDITS.01_2009
bactR13_2 CV_BA_CREDITS.02_2009
bactR13_3 CV_BA_CREDITS.03_2009
e27337R2_1 SCH-27337.01_1998
e27337R2_2 SCH-27337.02_1998
e27337R2_3 SCH-27337.03_1998
e27337R2_4 SCH-27337.04_1998
e27337R2_5 SCH-27337.05_1998
e27388R2_1 SCH-27388.01_1998
e27388R2_2 SCH-27388.02_1998
e27388R2_3 SCH-27388.03_1998
e27388R2_4 SCH-27388.04_1998
e27388R2_5 SCH-27388.05_1998
CHIDR2_1 NEWSCHOOL_PUBID.01_1998
CHIDR2_2 NEWSCHOOL_PUBID.02_1998
CHIDR2_3 NEWSCHOOL_PUBID.03_1998
CHIDR2_4 NEWSCHOOL_PUBID.04_1998
CHIDR2_5 NEWSCHOOL_PUBID.05_1998
CHIDR2_6 NEWSCHOOL_PUBID.06_1998
CHIDR1 NEWSCHOOL_PUBID_1997
e27337R3_1 SCH-27337.01_1999
e27337R3_2 SCH-27337.02_1999
e27337R3_3 SCH-27337.03_1999
e27337R3_4 SCH-27337.04_1999
e27337R3_5 SCH-27337.05_1999
e27388R3_1 SCH-27388.01_1999
e27388R3_2 SCH-27388.02_1999
e27388R3_3 SCH-27388.03_1999
e27388R3_4 SCH-27388.04_1999
e27388R3_5 SCH-27388.05_1999
CHIDR3_1 NEWSCHOOL_PUBID.01_1999
CHIDR3_2 NEWSCHOOL_PUBID.02_1999
CHIDR3_3 NEWSCHOOL_PUBID.03_1999
CHIDR3_4 NEWSCHOOL_PUBID.04_1999
CHIDR3_5 NEWSCHOOL_PUBID.05_1999
CHIDR3_6 NEWSCHOOL_PUBID.06_1999
CHIDR3_7 NEWSCHOOL_PUBID.07_1999
e27337R4_1 SCH-27337.01_2000
e27337R4_2 SCH-27337.02_2000
e27337R4_3 SCH-27337.03_2000
e27337R4_4 SCH-27337.04_2000
e27388R4_1 SCH-27388.01_2000
e27388R4_2 SCH-27388.02_2000
e27388R4_3 SCH-27388.03_2000
e27388R4_4 SCH-27388.04_2000
CHIDR4_1 NEWSCHOOL_PUBID.01_2000
CHIDR4_2 NEWSCHOOL_PUBID.02_2000
CHIDR4_3 NEWSCHOOL_PUBID.03_2000
CHIDR4_4 NEWSCHOOL_PUBID.04_2000
CHIDR4_5 NEWSCHOOL_PUBID.05_2000
e27337R5_1 SCH-27337.01_2001
e27337R5_2 SCH-27337.02_2001
e27337R5_3 SCH-27337.03_2001
e27337R5_4 SCH-27337.04_2001
e27337R5_5 SCH-27337.05_2001
e27337R5_6 SCH-27337.06_2001
e27388R5_1 SCH-27388.01_2001
e27388R5_2 SCH-27388.02_2001
e27388R5_3 SCH-27388.03_2001
e27388R5_4 SCH-27388.04_2001
e27388R5_5 SCH-27388.05_2001
e27388R5_6 SCH-27388.06_2001
CHIDR5_1 NEWSCHOOL_PUBID.01_2001
CHIDR5_2 NEWSCHOOL_PUBID.02_2001
CHIDR5_3 NEWSCHOOL_PUBID.03_2001
CHIDR5_4 NEWSCHOOL_PUBID.04_2001
CHIDR5_5 NEWSCHOOL_PUBID.05_2001
CHIDR5_6 NEWSCHOOL_PUBID.06_2001
e27337R6_1 SCH-27337.01_2002
e27337R6_2 SCH-27337.02_2002
e27337R6_3 SCH-27337.03_2002
e27337R6_4 SCH-27337.04_2002
e27337R6_5 SCH-27337.05_2002
e27388R6_1 SCH-27388.01_2002
e27388R6_2 SCH-27388.02_2002
e27388R6_3 SCH-27388.03_2002
e27388R6_4 SCH-27388.04_2002
e27388R6_5 YSCH-27388.05_2002
CHIDR6_1 NEWSCHOOL_PUBID.01_2002
CHIDR6_2 NEWSCHOOL_PUBID.02_2002
CHIDR6_3 NEWSCHOOL_PUBID.03_2002
CHIDR6_4 NEWSCHOOL_PUBID.04_2002
e27337R7_1 SCH-27337.01_2003
e27337R7_2 SCH-27337.02_2003
e27337R7_3 SCH-27337.03_2003
e27337R7_4 SCH-27337.04_2003
e27337R7_5 SCH-27337.05_2003
e27388R7_1 SCH-27388.01_2003
e27388R7_2 SCH-27388.02_2003
e27388R7_3 SCH-27388.03_2003
e27388R7_4 SCH-27388.04_2003
CHIDR7_1 NEWSCHOOL_PUBID.01_2003
CHIDR7_2 NEWSCHOOL_PUBID.02_2003
CHIDR7_3 NEWSCHOOL_PUBID.03_2003
CHIDR7_4 NEWSCHOOL_PUBID.04_2003
CHIDR7_5 NEWSCHOOL_PUBID.05_2003
e27337R8_1 SCH-27337.01_2004
e27337R8_2 SCH-27337.02_2004
e27337R8_3 SCH-27337.03_2004
e27337R8_4 SCH-27337.04_2004
e27337R8_5 SCH-27337.05_2004
e27388R8_1 SCH-27388.01_2004
e27388R8_2 SCH-27388.02_2004
e27388R8_3 SCH-27388.03_2004
e27388R8_4 SCH-27388.04_2004
e23360R8_1 SCH-23360.01_2004
e23360R8_2 SCH-23360.02_2004
e23360R8_3 SCH-23360.03_2004
e23360R8_4 SCH-23360.04_2004
CHIDR8_1 NEWSCHOOL_PUBID.01_2004
CHIDR8_2 NEWSCHOOL_PUBID.02_2004
CHIDR8_3 NEWSCHOOL_PUBID.03_2004
CHIDR8_4 NEWSCHOOL_PUBID.04_2004
CHIDR8_5 NEWSCHOOL_PUBID.05_2004
e27337R9_1 5670500 =YSCH-27337.01_2005
e27337R9_2 5670600 =YSCH-27337.02_2005
e27337R9_3 5670700 =YSCH-27337.03_2005
e27337R9_4 5670800 =YSCH-27337.04_2005
e27388R9_1 5677000 =YSCH-27388.01_2005
e27388R9_2 5677100 =YSCH-27388.02_2005
e27388R9_3 5677200 =YSCH-27388.03_2005
e27388R9_4 5677300 =YSCH-27388.04_2005
e23360R9_1 SCH-23360.01_2005
e23360R9_2 SCH-23360.02_2005
e23360R9_3 SCH-23360.03_2005
CHIDR9_1 NEWSCHOOL_PUBID.01_2005
CHIDR9_2 NEWSCHOOL_PUBID.02_2005
CHIDR9_3 NEWSCHOOL_PUBID.03_2005
CHIDR9_4 NEWSCHOOL_PUBID.04_2005
e27337R10_1 SCH-27337.01_2006
e27337R10_2 SCH-27337.02_2006
e27337R10_3 SCH-27337.03_2006
e27337R10_4 SCH-27337.04_2006
e27337R10_5 SCH-27337.05_2006
e27388R10_1 SCH-27388.01_2006
e27388R10_2 SCH-27388.02_2006
e27388R10_3 SCH-27388.03_2006
e27388R10_4 SCH-27388.04_2006
e27388R10_5 SCH-27388.05_2006
e23360R10_1 YSCH-23360.01_2006
e23360R10_2 YSCH-23360.02_2006
CHIDR10_1 NEWSCHOOL_PUBID.01_2006
CHIDR10_2 NEWSCHOOL_PUBID.02_2006
CHIDR10_3 NEWSCHOOL_PUBID.03_2006
CHIDR10_4 NEWSCHOOL_PUBID.04_2006
CHIDR10_5 NEWSCHOOL_PUBID.05_2006
e27337R11_1 YSCH-27337.01_2007
e27337R11_2 YSCH-27337.02_2007
e27337R11_3 YSCH-27337.03_2007
e27337R11_4 YSCH-27337.04_2007
e27337R11_5 YSCH-27337.05_2007
e27388R11_1 YSCH-27388.01_2007
e27388R11_2 YSCH-27388.02_2007
e27388R11_3 YSCH-27388.03_2007
e27388R11_4 YSCH-27388.04_2007
e27388R11_5 YSCH-27388.05_2007
23360R11_1 YSCH-23360.01_2007
23360R11_2 YSCH-23360.02_2007
CHIDR11_1 NEWSCHOOL_PUBID.01_2007
CHIDR11_2 NEWSCHOOL_PUBID.02_2007
CHIDR11_3 NEWSCHOOL_PUBID.03_2007
CHIDR11_4 NEWSCHOOL_PUBID.04_2007
CHIDR11_5 NEWSCHOOL_PUBID.05_2007
e27337R12_1 YSCH-27337.01_2008
e27337R12_2 YSCH-27337.02_2008
e27337R12_3 YSCH-27337.03_2008
e27337R12_4 YSCH-27337.04_2008
e27337R12_5 YSCH-27337.05_2008
e27337R12_6 YSCH-27337.06_2008
e27337R12_7 YSCH-27337.07_2008
e27337R12_8 YSCH-27337.08_2008
e27388R12_1 YSCH-27388.01_2008
e27388R12_2 YSCH-27388.02_2008
e27388R12_3 YSCH-27388.03_2008
e27388R12_6 YSCH-27388.06_2008
e27388R12_7 YSCH-27388.07_2008
e27388R12_8 YSCH-27388.08_2008
23360R12_1 YSCH-23360.01_2008
23360R12_2 YSCH-23360.02_2008
23360R12_3 YSCH-23360.03_2008
CHIDR12_1 NEWSCHOOL_PUBID.01_2008
CHIDR12_2 NEWSCHOOL_PUBID.02_2008
CHIDR12_3 NEWSCHOOL_PUBID.03_2008
CHIDR12_4 NEWSCHOOL_PUBID.04_2008
CHIDR12_5 NEWSCHOOL_PUBID.05_2008
CHIDR12_6 NEWSCHOOL_PUBID.06_2008
CHIDR12_7 NEWSCHOOL_PUBID.07_2008
CHIDR12_8 NEWSCHOOL_PUBID.08_2008
e27337R13_1 YSCH-27337.01_2009
e27337R13_2 YSCH-27337.02_2009
e27337R13_3 YSCH-27337.03_2009
e27388.01 YSCH-27388.01_2009
e27388.02 YSCH-27388.02_2009
e27388.03 YSCH-27388.03_2009
CHIDR13_1 NEWSCHOOL_PUBID.01_2009
CHIDR13_2 NEWSCHOOL_PUBID.02_2009
CHIDR13_3 NEWSCHOOL_PUBID.03_2009
e23360R13_1 YSCH-23360.01_2009
e23360R13_2 YSCH-23360.02_2009
e3113 YSCH-3113_2010
e4846M YSCH-4846~M_2010
e4846Y YSCH-4846~Y_2010
e1600 YSCH-1600_2010
e273371 YSCH-27337.01_2010
e273372 YSCH-27337.02_2010
e273373 YSCH-27337.03_2010
e273374 YSCH-27337.04_2010
e273375 YSCH-27337.05_2010
e252971 YSCH-25297.01_2010
e252972 YSCH-25297.02_2010
e252973 YSCH-25297.03_2010
e252974 YSCH-25297.04_2010
e256541 YSCH-25654.01_2010
e162001 YSCH-16200.01_2010
e269311 YSCH-26931.01_2010
e269312 YSCH-26931.02_2010
e269313 YSCH-26931.03_2010
e269314 YSCH-26931.04_2010
e269321 YSCH-26932.01_2010
e269322 YSCH-26932.02_2010
e269323 YSCH-26932.03_2010
e269324 YSCH-26932.04_2010
e269401 YSCH-26940.01_2010
e269402 YSCH-26940.02_2010
e269403 YSCH-26940.03_2010
e269404 YSCH-26940.04_2010
e269451 YSCH-26945.01_2010
e269452 YSCH-26945.02_2010
e269453 YSCH-26945.03_2010
e273881 YSCH-27388.01_2010
e273882 YSCH-27388.02_2010
e273883 YSCH-27388.03_2010
e273884 YSCH-27388.04_2010
e228001 YSCH-22800.01_2010
e228002 YSCH-22800.02_2010
e228003 YSCH-22800.03_2010
e228004 YSCH-22800.04_2010
e230001 YSCH-23000.01_2010
e230002 YSCH-23000.02_2010
e232001 YSCH-23200.01_2010
e232002 YSCH-23200.02_2010
e232003 YSCH-23200.03_2010
e232004 YSCH-23200.04_2010
e233601 YSCH-23360.01_2010
e233602 YSCH-23360.02_2010
e233603 YSCH-23360.03_2010
e233604 YSCH-23360.04_2010
e233701 YSCH-23370.01_2010
e233702 YSCH-23370.02_2010
e233703 YSCH-23370.03_2010
e233704 YSCH-23370.04_2010
e234001 YSCH-23400.01_2010
e234002 YSCH-23400.02_2010
e234501 YSCH-23450.01_2010
e234502 YSCH-23450.02_2010
e234503 YSCH-23450.03_2010
PUBID PUBID_2010
LEFT1 NEWSCHOOL_LEFT.01_2010
LEFT2 NEWSCHOOL_LEFT.02_2010
LEFT3 NEWSCHOOL_LEFT.03_2010
LEFT4 NEWSCHOOL_LEFT.04_2010
SCODE1 NEWSCHOOL_SCHCODE.01_2010
SCODE2 NEWSCHOOL_SCHCODE.02_2010
SCODE3 NEWSCHOOL_SCHCODE.03_2010
SCODE4 NEWSCHOOL_SCHCODE.04_2010
SCODE5 NEWSCHOOL_SCHCODE.05_2010
SCHID_1 NEWSCHOOL_PUBID.01_2010
SCHID_2 NEWSCHOOL_PUBID.02_2010
SCHID_3 NEWSCHOOL_PUBID.03_2010
SCHID_4 NEWSCHOOL_PUBID.04_2010
SCHID_5 NEWSCHOOL_PUBID.05_2010
SAS Code for Variable Creation
if pubid= 1154 then SCHID_1=501;
if pubid= 8233 then SCHID_1=1101;
%let i=13; /* R13 */
%let j=8; /* school number from currrent rounds */
%let k=8; /* school number from previous Rounds */
%let O=1; /* R1 */
%let T=2; /* R2*/
/* Fraction of credits earned for AA from Round2-R13; */
array asctr (13,8) asctr1_1-asctr1_8
asctr2_1-asctr2_8
asctr3_1-asctr3_8
asctr4_1-asctr4_8
asctr5_1-asctr5_8
asctr6_1-asctr6_8
asctr7_1-asctr7_8
asctr8_1-asctr8_8
asctr9_1-asctr9_8
asctr10_1-asctr10_8
asctr11_1-asctr11_8
asctr12_1-asctr12_8
asctr13_1-asctr13_8;
/* Fraction of credits earned for BA from Round2-R13; */
array bactr (13,8) bactr1_1-bactr1_8
bactr2_1-bactr2_8
bactr3_1-bactr3_8
bactr4_1-bactr4_8
bactr5_1-bactr5_8
bactr6_1-bactr6_8
bactr7_1-bactr7_8
bactr8_1-bactr8_8
bactr9_1-bactr9_8
bactr10_1-bactr10_8
bactr11_1-bactr11_8
bactr12_1-bactr12_8
bactr13_1-bactr13_8;
/* Total credits needed for graduation, from Round2-R13; */
array e27388r (13,8) e27388r1_1-e27388r1_8
e27388r2_1-e27388r2_8
e27388r3_1-e27388r3_8
e27388r4_1-e27388r4_8
e27388r5_1-e27388r5_8
e27388r6_1-e27388r6_8
e27388r7_1-e27388r7_8
e27388r8_1-e27388r8_8
e27388r9_1-e27388r9_8
e27388r10_1-e27388r10_8
e27388r11_1-e27388r11_8
e27388r12_1-e27388r12_8
e27388r13_1-e27388r13_8;
/* Total credits (not fraction) earned with DLI schools, Round2-R13; */
array tasctr(13,8) tasctr1_1-tasctr1_8
tasctr2_1-tasctr2_8
tasctr3_1-tasctr3_8
tasctr4_1-tasctr4_8
tasctr5_1-tasctr5_8
tasctr6_1-tasctr6_8
tasctr7_1-tasctr7_8
tasctr8_1-tasctr8_8
tasctr9_1-tasctr9_8
tasctr10_1-tasctr10_8
tasctr11_1-tasctr11_8
tasctr12_1-tasctr12_8
tasctr13_1-tasctr13_8;
array tbactr(13,8) tbactr1_1-tbactr1_8
tbactr2_1-tbactr2_8
tbactr3_1-tbactr3_8
tbactr4_1-tbactr4_8
tbactr5_1-tbactr5_8
tbactr6_1-tbactr6_8
tbactr7_1-tbactr7_8
tbactr8_1-tbactr8_8
tbactr9_1-tbactr9_8
tbactr10_1-tbactr10_8
tbactr11_1-tbactr11_8
tbactr12_1-tbactr12_8
tbactr13_1-tbactr13_8;
/* School public id for Round2-R12; */
array schidr (13,8) schidr1_1-schidr1_8
schidr2_1-schidr2_8
schidr3_1-schidr3_8
schidr4_1-schidr4_8
schidr5_1-schidr5_8
schidr6_1-schidr6_8
schidr7_1-schidr7_8
schidr8_1-schidr8_8
schidr9_1-schidr9_8
schidr10_1-schidr10_8
schidr11_1-schidr11_8
schidr12_1-schidr12_8
schidr13_1-schidr13_8;
array e27337r (13,8) e27337r1_1-e27337r1_8 e27337r2_1-e27337r2_8 e27337r3_1-e27337r3_8 e27337r4_1-e27337r4_8
e27337r5_1-e27337r5_8 e27337r6_1-e27337r6_8 e27337r7_1-e27337r7_8 e27337r8_1-e27337r8_8
e27337r9_1-e27337r9_8 e27337r10_1-e27337r10_8 e27337r11_1-e27337r11_8 e27337r12_1-e27337r12_8 e27337r13_1-e27337r13_8;
/*Total credits needed for graduation to Round13; */
array e23360r (13,8) e23360r1_1-e23360r1_8 e23360r2_1-e23360r2_8 e23360r3_1-e23360r3_8 e23360r4_1-e23360r4_8
e23360r5_1-e23360r5_8 e23360r6_1-e23360r6_8 e23360r7_1-e23360r7_8 e23360r8_1-e23360r8_8
e23360r9_1-e23360r9_8 e23360r10_1-e23360r10_8 e23360r11_1-e23360r11_8 e23360r12_1-e23360r12_8 e23360r13_1-e23360r13_8;
/*** Arrays for Round 14;*/
array e22800 (&J) ; /* Total no. of credits earned; */
array e16200 (&J) ; /* # Credits Begin College With; */
array e23000 (&J) ; /* (Corrected) Total no. of credits earned; */
array e25654 (&J) ; /* CHK DLI INC COLL CREDIT REF/DK L1 2010; */
array e27337 (&J) ; /* What type of diploma working towards; */
array e27388 (&J) ; /* Total credits required to earn the degree; */
array e23200 (&J) ; /* 1(0): R needs more (does not need any more) credits to graduate; */
array e23400 (&J) ; /* Total no. credits still needed to graduate (asked if e23200=1); */
array e25297 (&J) ; /* CAPI chk: Is this a DLI school?; */
array SCHID_ (&J) ; /* School public id for Round 14; */
array scode (&J) ; /* School code - type of school or college; */
array e26931 (&J) ;
array e26932 (&J) ;
array e26940 (&J) ;
array e26945 (&J) ;
array e23450 (&J) ; /* added in R11 */
array e23360 (&J) ; /* added in R11 */
/****************************************************************************** */
array tcred (&J) ; /* * Total credits (not fraction) earned; */
array tbac (&J) ; /* * Total credits (not fraction) earned towards BA degree; */
array tasc (&J) ; /* * Total credits (not fraction) earned towards assoc degree; */
array noterm (&J) ; /* * Attended but did not complete any term; */
array tncred (&J) ; /* * Sum of transfer, test and H.S. credits; */
array flag (&J) ; /* * When inconsistency in credits reported; */
array crcred (&J) ; /* * C.V. computed using current credits, case 1; */
array incred (&J) ; /* * C.V. computed using incoming credits, case 2; */
array dlcred (&J) ; /* * C.V. computed using DLI credits, case 3; */
array errci (&J) ; /* * Whether both crcred and incred are 1; */
array errcd (&J) ; /* * Whether both crcred and dlcred are 1; */
array errdi (&J) ; /* * Whether both dlcred and incred are 1; */
array ovr (&J) ; /* * Fraction of AA/BA Credits earned are greater than 100; */
array same (&J) ; /* * Identify the round R last attended current college.; */
array dgchk (&J) ; /* * Checks if school code showed R was in college but degree working
towards was skipped and R had already received GED or HS Diploma.; */
array dtprb (&J) ; /* * Checks if R reports needs more credits to graduate but when asked
how many more reports ZERO; */
array dliprb (&J) ; /* * If CAPI chk shows this is not a DLI school but it actually is.; */
array ngrd (&J) ; /* * Checks whether the computed fraction of credits needed to graduate
is 100 even though YSCH-23200=0. (YSCH-23200: Does this mean you
need no more credits to get the degree you're working toward?).; */
array miss (&J) ; /* * Checks whether created variables CVs are missing although R reports
attending a college; */
array nfrct (&J) ; /* * CVs are recalculated when CV>100 using the sum of total credits
and credits remaining in the denominator instead of total credits
required.; */
array olfrct (&J) ; /* * DLI CVs used if CVs this round>100 and no new term is completed.; */
array nofrct (&J) ; /* * Fraction of credits needed to graduate (YSCH-23400) is missing for
cases where CVs>100 and so cannot be recomputed. Are coded -3.; */
/*** Identifying the college that R reported attending in this round is the same one that R attended in */
array asfrac (&J) ; /* Created variable: fraction credits earned for associate credits;*/
array bafrac (&J) ; /* Created variable: fraction credits earned for bachelor credits; */
/** If a R completed at least one term, CAPI verifies the total credits for each school at YSCH-22800.
Due to a design err, the check question YSCH-22800 does not include Round 2 college credits even
when the SCHID's from both rounds match. However, if a R sees this incorrect count and tells us it is
correct, we will use it. Rs who have yet to complete a term at a given school will not be asked
YSCH-22800. The only credits possible for these people are incoming credits at YSCH-26521, or the DLI
Round created variable for a matching school.; */
/******************************************************************************************************
There are 3 ways to compute credits in this program, which are all mutually exclusive:
Case 1: If the R completed any terms, we use YSCH-22800 or YSCH-23000.
Case 2: If the R has not completed any terms and reported a new school, then we use the incoming
credits (e26932 OR e26945). For school #1 use YSCH-16200.
Case 3: If the R has not completed any terms and reported a dli school, then we use the total credit
from the dli round (through the SCHID match variable described below).
*******************************************************************************************************/
/*** Check for people who attended college but were skipped out of YSCH-22800 and YSCH-23000 (because of
no completed terms).;*/
do j=(&O) to (&J) ;
if e27337(j) in (1,3) and e22800(j)=-4 and e23000(j)=-4 then noterm(j)=1;
end;
/*** For people who did not complete any terms, the only data available is the incoming credits count
(that is CASE 2) and the created variable from their DLI round (that is CASE 3). These two pieces of
data are exclusive.;*/
do i=(&O) to (&i);
do j=(&O) ;
if schidr (i, 1) ~= -5 then
DLI=i;
end;
end;
array back(&i);
do i=(&O) to (&i);
do J=(&O) to (&j);
if bactr(i ,j)>0 & DLI=i then back(i)=1;
end;
end;
/*** Check for cases where R says No to "Does this mean you need no more credits to get the degree you're
working toward?" but report ZERO credits for the follow-up question "How many more credits would you
need?";*/
do J=(&O) to (&J);
if e23200(j)=0 & e23400(j)=0 then do;
dtprb(j)=1;
dataprb=1;
end;
end;
/**** Case 1: If the R completed any terms, we use YSCH-22800 or YSCH-23000.*/
do J=(&O) to (&J);
if e22800(j)>-4 then do;
tcred(j)=e22800(j);
crcred(j)=1;
end;
if e23000(j)>-4 then do;
tcred(j)=e23000(j);
crcred(j)=1;
end;
end;
/** We will accept dli credits without a matching degree working towards an answer from current and dli
round. For example, if a R reports working toward a associate's in his/her dli round and then reports
working toward a bachelor's in the current round, we will still use the total dli credits in the
current round created variable, as long as the SCHID's match (i.e., it is the same school).;
** Calculating the total credits have earned towards BA/Assoc degrees for previous rounds, that is
tasctr2-r13 and tbactr2-r13; */
do I=(&O) to (&i);
do K=(&O) to (&K);
if asctr(i,k)>=0 then tasctr(i,k)=round((asctr(i,k)*e27388r(i,k)/100),1);
if bactr(i,k)>=0 then tbactr(i,k)=round((bactr(i,k)*e27388r(i,k)/100),1);
if e23360r(i,k)>-4 then do;
if asctr(i,k)>=0 then tasctr(i,k)=round((asctr(i,k)*e23360r(i,k)/100),1);
if bactr(i,k)>=0 then tbactr(i,k)=round((bactr(i,k)*e23360r(i,k)/100),1);
end;
if asctr(i,k)<0 then tasctr(i,k)=asctr(i,k);
if bactr(i,k)<0 then tbactr(i,k)=bactr(i,k);
end;
end;
/**** Case 3: The last data source for credits are from previous rounds. Begin by matching current Round
colleges to DLI colleges using the schools' SCHID. Note that this is only used when there are no
completed terms in the current Round (and thus no answer to YSCH-22800) and this school is a dli
school .;*/
/** Define r513m13 as the dummy variable that equals one when the 1st college on the Round5 school roster
and 3rd college on the Round12 roster have the same SCHID. Define r413m14 as the dummy variable that
equals one when the 1st college on the Round4 school roster and the 4th college on the Round12 roster
have the same SCHID. The "512" match variables require that R missed the Round 6 interview. Any college
from Round1 is represented in the "first" position in the Round 2 created variables i.e. ASFRAC1
(Round 2) is a school from Round 1.; */
/*** If CAPI chk shows this is not a DLI school but it actually is; dliprb(j)=1*/
/*** If any SCHID from the 1st-3st position in Round 13 match with any SCHID in Round2-R12; same(j)=i;*/
do I=(&O) to (&i); /* i: r1-r13 */
do J=(&O) to (&J); /* J: the school number for current round */
do K=(&O) to (&K); /* K: the school number for previous round */
if e25297(j)=0 & SCHID_(j)>=0 then do;
if SCHID_(j)=schidr(i,k) & DLI=i then dliprb(j)=1;
end;
if schidr(i,k)=SCHID_(j) & DLI=i & SCHID_(j)>0 then do;
/* s_match(i,j,k)=1;*/
same(j)=i;
end;
/*Made a Change here in Rd9 to keep from accounting for credits in two different ways as indicated by errdi(i)=2*/
if tasctr(i,k)=>0 & same(J) >1 & /*s_match(i,j,k)=1 */ e22800(j)=-4 & e16200(j)=-4 then do;
tcred(j)=tasctr(i,k) ;
dlcred(j)=1;
end;
if tbactr(i,k)=>0 & same(J)>1 &/* & s_match(i,j,k)=1 */ e22800(j)=-4 & e16200(j)=-4 then do;
tcred(j)=tbactr(i,k);
dlcred(j)=1;
end;
end;
end;
end;
/*** Case 2: The following are people who reported a new school and have no completed terms (and thus no
answer to YSCH-22800). Use incoming credits.; */
do J=(&O) to (&j);
if e26931(j) in (0,1) & e22800(j)=-4 & e23000(j)=-4 then do;
incred(j)=1;
if e26931(j)=0 & e26940(j)=1 then tcred(j)=e26932(j);
else tcred(j)=e26945(j);
end;
/** YSCH-16200 only applies to school #1. It is an incoming credits question, and is only used when
YSCH-22800 and YSCH-23000 are valid skipped. This is asked only if a DLI college is reported and the
incoming credits reported is refused/dont know.; */
/*Changed in '05 to figure this for all schools, second schools had incoming credit*/
if e16200(j)>-4 & e22800(j)=-4 & e23000(j)=-4 then do;
tcred(j)=e16200(j);
incred1=2;
end;
/** Check that the incoming credits (YSCH-162001) for school #1 equals the copmuted credits from that
school. If R answers that the incoming credits are wrong then YSCH-16200.01 is asked. Thus
YSCH-16200.01 is given precedence.; */ /* no obs at r13 */
if dlcred(j)=1 & incred(j)=2 & tcred(j)~=e16200(j) & e25654(j)~=1 then incredprb=1;
if dlcred(j)=1 & incred(j)=2 & tcred1~=e16200(j) & e25654(j)=1 then incredprb=0;
/*** Check to make sure the three methods of collecting credits information do not overlap.; */ /* no obs at r13 */
if crcred(j)=1 & incred(j)=1 then errci(j)=1;
if crcred(j)=1 & dlcred(j)=1 then errcd(j)=1;
if incred(j)=1 & dlcred(j)=1 then errdi(j)=1;
if incred(j)=2 & dlcred(j)=1 then errdi(j)=2;
end;
/****** Initialize both created variables.;*/
/* TAKE CARE OF CASES THAT WERE NOT INTERVIEWED IN ROUND 13 */
do J=(&O) to (&j);
asfrac(j)=0;
bafrac(j)=0;
if e27337(j)=-5 then asfrac(j)=-5;
if e27337(j)=-5 then bafrac(j)=-5;
end;
/****************************** NOTE: YSCH-23360.X ****************************************
** The wording of YSCH-23360 had some problem. It will NOT corrected until round 10. So, **
** this round and round will not use this question. But from round 10, we can use this **
** question and should do the changes on code accordingly then. YSCH-23350=0 then using YSCH-23360
/******************************************************************************************/
do J=(&O) to (&j);
/* Associates Degree; */
if e27337(j)=1 & tcred(j)=>0 then tasc(j)=tcred(j);
if (-4<e27388(j)<0 |-4<tcred(j)<0) & e27337(j)=1 then asfrac(j)=-3;
if tasc(j)=>0 & e27388(j)>0 then asfrac(j)=(tasc(j)/e27388(j))*100;
if e23360(j)>-4 then do; /* added at round 11 */
e27388(j)= e23360(j);
if tasc(j)=>0 & e27388(j)>0 then asfrac(j)=(tasc(j)/e23360(j))*100;
end;
asfrac(j)=round(asfrac(j),1);
if e23200(j)=1 & e27337(j)=1 then asfrac(j)=100; /** Rs who say they have graduated;*/
/* * Bachelors Degree;*/
if e27337(j) in (3,10) & tcred(j)=>0 then tbac(j)=tcred(j);
if (-4<e27388(j)<0 |-4<tcred(j)<0) & e27337(j) in (3,10) then bafrac(j)=-3;
if tbac(j)=>0 & e27388(j)>0 then bafrac(j)=(tbac(j)/e27388(j))*100;
if e23360(j)>-4 then do; /* added at round 11 */
e27388(j)= e23360(j);
if tbac(j)=>0 & e27388(j)>0 then bafrac(j)=(tbac(j)/e23360(j))*100;
end;
bafrac(j)=round(bafrac(j),1);
if e23200(j)=1 & e27337(j) in (3,10) then bafrac(j)=100; /* Rs who say they have graduated;*/
end;
/*** Checking for fraction of credits earned over 100 or fraction of credits earned is 100 but reports
did not graduate.;*/
/** Checking for the cases that credit fraction greater than 100;*/
do j =(&O) to (&j);
if asfrac(j)>100 then ovr(j)=1;
if bafrac(j)>100 then ovr(j)=2;
if ovr(j)>=1 then over100=1;
end;
/** Checking for the cases that get 100 or more percent credits but say need more credits to graduate;*/
do j=(&O) to (&j);
if asfrac(j)>=100 & e23200(j)=0 then ngrd(j)=1;
if bafrac(j)>=100 & e23200(j)=0 then ngrd(j)=2;
if ngrd(j)>=1 then notgrad=1;
end;
/** Checking missing asfrac and bafrac;*/ /* no obs at r13 */
do j= (&O) to (&j);
if e27337(j)=1 and asfrac(j)=. then miss(j)=1;
if e27337(j) in (3,10) and bafrac(j)=. then miss(j)=2;
end;
/** Asfrac or bafrac>=100, which means that they gained more credits than the credits required for the
degree (e27388), which means that they claimed that they still need more credits for the
degree (e23200=0) we would handle these observations as below:
(a) if e23200=0 and e23400>0, we add up e23400 and (tasc/tbac) the credits the Rs have earned as the
total credits required for the degree, and use it without e27388 to calculate the cv.
(b) if e23200=0 and e23400<=0, e23450 equals -4. we would give -3 to CV.
(c) For observations that asfrac or bafrac>=100 and they haven't completed any term so we don't have
information about e23200 and e23400, use the same fraction as at last round. However if this is
a new college then we cannot use this method.
(d) if there are cases with CV>100 even after all these recomputations (a-c) then we give them -3
unless they made some corrections to the credits required to graduate (e23400).;*/
/** Case (a); */
do J=(&O) to (&j);
if ngrd(j)=1 & e23400(j)>0 then do;
asfrac(j)=round(100*tasc(j)/(tasc(j)+e23400(j)),1);
nfrct(j)=1;
end;
if ngrd(j)=2 & e23400(j)>0 then do;
bafrac(j)=round(100*tbac(j)/(tbac(j)+e23400(j)),1);
nfrct(j)=2;
end;
end;
/** Case (b); */
do J=(&O) to (&j);
if ngrd(j)=1 & e23400(j)<=0 then do;
asfrac(j)=-3;
nofrct(j)=1;
end;
if ngrd(j)=2 & e23400(j)<=0 then do;
bafrac(j)=-3;
nofrct(j)= 2;
end;
end;
/** Case (c); */
do J=(&O) to (&j); /* loop 1 */
if asfrac(j)>100 & e23200(j)=-4 & e23400(j)=-4 then do; /* loop 2 */
olfrct(j)=1;
do I=(&O) to (&i);
if dli=i then do;
do K=(&O) to (&K);
if SCHID_(j)=schidr(i,k) & e27337r(i,k)=1 & dlcred(j)=1 then asfrac(j)= asctr(i,k);
else if SCHID_(j)=schidr(i,k) & e27337r(i,k)~=1 & dlcred(j)=1 then asfrac(j)=0;
end;
end;
end;
end; /* end of loop 2 */
if bafrac(j)>100 & e23200(j)=-4 & e23400(j)=-4 then do; /* loop2 */
olfrct(j)=2;
do I=(&O) to (&i);
if DLI=i then do;
do K=(&O) to 8;
if SCHID_(j)=schidr(i,k) & e27337r(i,k)=3 & dlcred(j)=1 then bafrac(j)=bactr(i,k);
if SCHID_(j)=schidr(i,k) & e27337r(i,k)~=3 & dlcred(j)=1 then bafrac(j)=0;
end;
end;
end;
end; /* loop 2 */
end; /* end of Loop 1 */
if pubid in (1250 3245 3623) then asfrac1=-3; /* hand edit 5-17-2012 */
/*********** Sometimes the degree working t
/*** Case (d); */
do J=(&O) to (&J);
if asfrac(j)>100 & e23400(j)>=0 then do;
asfrac(j)=round(100*tasc(j)/(tasc(j)+e23400(j)),1);
nfrct(j)=1;
end;
if asfrac(j)>100 & e23400(j)<0 then do;
asfrac(j)=-3;
nofrct(j)=1;
end;
if bafrac(j)>100 & e23400(j)>=0 then do;
bafrac(j)=round(100*tbac(j)/(tbac(j)+e23400(j)),1);
nfrct(j)=2;
end;
if bafrac(j)>100 & e23400(j)<0 then do;
bafrac(j)=-3;
nofrct(j)=2;
end;
end;
/*** If R not working towards Associates or Bachelor's degree.; */
do J=(&O) to (&j);
if e27337(j)=-4 then do;
asfrac(j)=-4;
bafrac(j)=-4;
end;
if e27337(j)in (1, 2, 4, 5, 6, 7, 8, 9, 999) then bafrac(j)=-4;
if e27337(j)in (2,3,4,5, 6 ,7,8,9,10,999) then asfrac(j)=-4;
if e27337(j) in (-1,-2,-3) then asfrac(j)=-3;
if e27337(j) in (-1,-2,-3) then bafrac(j)=-3;
end;
if pubid=223 then bafrac1=-3; /* last round e273371=6 then current e273371=3 missing information */
/*********** Sometimes the degree working towards question is skipped. If these Rs have no HSD or GED then it is
OK. They may be enrolled in college to get some extra credits for later enrollment in college but are
currently enrolled in school. These should have CV=-4. But some are legitimately working towards an
AA/BA degree but since they got skipped out of the degree working towards question they got skipped
out of credits earned question as well. We code them as -3.; 25 cases in rd 9 and 0 acse in round 13.
********************************************************************/
do J=(&O) to (&j);
if e27337(j)=-4 & scode(j) in (4,5) & (hs>-4 | ged>-4) then do;
dgchk(j)=1;
bafrac(j)=-3;
asfrac(j)=-3;
end;
end;
/* Hand-Edit Type Number One-
These are cases that are skipped from the degree reporting question (ysch-23450)
because they respond no to the question, "R needs no more credit graduate".
However, I find consistent evidence for these cases in Round 12 and 13 to indicate that
in fact they actually have graduated from school. In these cases,
I am also able to identify an ending date by using the newschool roster.
In most of these cases, they also report that the reason they left school was because they obtained a degree,
furthermore these cases repeatedly report across rounds 13 and 14that (ysch-3113) they have obtained either there B.A.
or A.A. Degree. For these cases hand-edits are necessary.
First, for the credits program, these individuals should be assigned 100% of their credits. 59 cases in r13*/
array chkpro1(&j);
array left(&j);
outcount=0;
new_sch=0;
do J=(&O) to 3;
if SCHID_(j)>1400 then new_sch=1;
if same(j)>=2 then do;
if (asfrac(j)=100 | bafrac(j)= 100 ) | ( asfrac(j)=-4 & bafrac(j)= -4) then outcount=1;
if e23450(j)=-4 & e3113 in (4,5) & outcount = 0 & left(j) =1 then chkpro1(j)=1;
if chkpro1(j)=1 & e3113 =4 & AA >-4 & asfrac(j)>-4 then asfrac(j)=100;
if chkpro1(j)=1 & e3113 =5 & BA >-4 & bafrac(j)>-4 then bafrac(j)=100;
if chkpro1(j)=1 & AA=-4 & BA=-4 then chkkAB=1;
if chkkAB=1 then chkpro1(j)=0;
end;
end;
array chkpro1a(&j) ; /* ok of r13 */
do J=(&O) to (&j);
if ((AA>-4) & -4< asfrac(j)<100 & AAR12=-4 | BA>-4 & -4<bafrac(j)<100 & BAR12=-4) & same(j) <2 then do ;
if e3113 in (5) & left(j)=1 | e3113 in (4) & left(j)=1 then chkpro1a(j)=1;
if chkpro1a(j)=1 then do;
if asfrac(j)>-4 then asfrac(j)=100;
if bafrac(j)>-4 then bafrac(j)=100;
end;
end;
end;
if pubid=2855 then bafrac1=100;
if pubid=2334 then asfrac1=100;
if pubid= 940 then bafrac1=-3;
if pubid=680 then bafrac1=100;
/*Hand-Edit Type Number Two (I've got the credits…but not the degree)
This case involves individuals that report having 100% of their credits obtained and say that
they need no more credit to graduate; however, they also state that the type of degree
they have obtained (ysch-23450) is no degree ysch23450=7 . We also find other evidence with these cases
that they have not yet obtained their degree, either B.A. or A.A.
Consistent with last round we edit the credit values for these cases to -3.
chkpro2(j)=1 to be edited*/
array chkpro2(&j);
array chkpro2a(&j);
do J=(&O) to (&j);
if e23200(j) =1 & e23450(j) =7 & asfrac(j)=100 & AA=-4 then chkpro2(j)=1;
if e23200(j) =1 & e23450(j) =7 & bafrac(j)=100 & BA=-4 then chkpro2(j)=1;
if e16200(j)>-4 & e23200(j)=-4 & e22800(j)=-4 & e3113 in(2,3) & asfrac(j)=100 & AA=-4 & chkpro2(j)~=1 then chkpro2a(j)=1;
if e16200(j)>-4 & e23200(j)=-4 & e22800(j)=-4 & e3113 in(2,3) & bafrac(j)=100 & BA=-4 & chkpro2(j)~=1 then chkpro2a(j)=1;
if (BA=-4 & bafrac(j)=100 | AA=-4 & asfrac(j)=100) & chkpro2(j)~=1 then chkpro2a(j)=1;
if pubid=8974 then chkpro21=1;
if chkpro2(j)=1 & asfrac(j)=100 then asfrac(j)=-3;
if chkpro2(j)=1 & bafrac(j)=100 then bafrac(j)=-3;
if chkpro2a(j)=1 & asfrac(j)=100 then asfrac(j)=-3;
if chkpro2a(j)=1 & bafrac(j)=100 then bafrac(j)=-3;
end;
/*Hand-Edit Type Number 3
These are cases that report working on B.A. (ysch-27337=3),
however, they report receiving all of their credits and graduated with an Associates Degree (ysch-23450=1).
They are currently being assigned a valid A.A. degree date.
Consistent with past years, we edit these cases so that the B.A. school is a -4 (not really working towards that degree),
and the A.A. school is 100% (have obtained the A.A. degree). 2 cases require hand-editing.*/
array chkpro3(&j);
do J=(&O) to (&j);
if e27337(j)=3 & e23450(j) =1 & AA>0 & BA=-4 then chkpro3(j)=1;
if chkpro3(j)=1 then do;
bafrac (j)=-4;
asfrac (j)=100;
end;
end;
/*Hand-Edit Four
These are cases that erroneously remain on the school roster,
but have actually already reported and received a degree.
Consistent with past years, we edit these cases to -4,
reflecting that they are in fact no longer working on that type of degree.
There are 9 total edits for this section. */
/* Actually already reported and received a degree and credits are 100 in previous round.
then They are back in school Roster and survey. Same school ID's & same major 7 cases */
array chkpro4(&j);
array chkpro4a(&j);
if (BA>-4 | AA>-4) & ((BAR12>-4 | AAR12>-4)| (BAR12>-4 | AAR12>-4)) then do;
do I=(&O) to 13;
do J=(&O) to (&J);
do K=(&O) to (&K);
if same(j)>=2 then do;
if bafrac(j)= bactr(i,k) & bafrac(j)=100 & BA=BAR12 then chkpro4(j)=1;
if asfrac(j)= asctr(i,k) & asfrac(j)=100 & AA=AAR12 then chkpro4(j)=1;
if bactr13_1=-5 & bactr12_1>-4 then do;
if bafrac(j)= bactr(i,k) & bafrac(j)=100 & BA=BAR11 then chkpro4(j)=1;
if asfrac(j)= asctr(i,k) & asfrac(j)=100 & AA=AAR10 then chkpro4(j)=1;
end;
end;
end;
end;
end;
end;
do I=(&O) to (&i);
do J=(&O) to (&j);
do K=(&O) to (&K);
if bafrac(j)=100 & bactr(i,k)=100 & ba>-4 & baR12>-4 then chkpro4a(j)=1;
if asfrac(j)=100 & asctr(i,k)=100 & AA>-4 & aar12>-4 then chkpro4a(j)=1;
end;
end;
end;
if pubid = 4223 then chkpro41=1;
if pubid in ( 4457 5131 5480 5802 6173 6692 7952 4446 ) then chkpro41 =0;
do J=(&O) to 3;
if chkpro4(j)=1 & bafrac(j)=100 then bafrac(j)=-4;
if chkpro4(j)=1 & asfrac(j)=100 then asfrac(j)=-4;
end;
if pubid= 2045 then do;
asfrac1=-4;
bafrac1=100;
end;
if pubid in ( 5802 ) then bafrac1=-3;
if BA=-4 & AA=-4 then do; /* no cases */
do J=(&O) to (&j);
if (asfrac(j)=100 | bafrac(j)=100 ) & e23450(j) in (2,999) then check1=1;
if check1=1 then do;
if asfrac(j)=100 then asfrac(j)=-4;
if bafrac(j)=100 then bafrac(j)=-4;
end;
end;
end;
endsas;