|
Compute current_year_start = date.dmy(1, 8, 2006).
Compute current_year_end = date.dmy(31, 7, 2007).
FORMAT current_year_start current_year_end (DATE11).
COMPUTE A_TODATE_QUALIFYING_SLN_PERIOD = 0.
****Select using a 6 week period of grace.
COMPUTE qual_course_length_exp = MIN(CTIME.DAYS(a28),CTIME.DAYS(current_year_end))-MAX(CTIME.DAYS(a27),CTIME.DAYS(current_year_start)) + 1.
COMPUTE qual_course_length_act = MIN(CTIME.DAYS(a31),CTIME.DAYS(current_year_end))-MAX(CTIME.DAYS(a27),CTIME.DAYS(current_year_start)) + 1.
COMPUTE period_of_grace = 6 * 7.
DO IF (qual_course_length_exp < 14 AND inyear_course_prop > 0 AND a10 = 20).
COMPUTE A_TODATE_QUALIFYING_SLN_PERIOD = 1.
ELSE IF (qual_course_length_exp < 168 AND qual_course_length_act >= 14 AND a10 = 20).
COMPUTE A_TODATE_QUALIFYING_SLN_PERIOD = 1.
ELSE IF (qual_course_length_act >= period_of_grace AND a10 = 20).
COMPUTE A_TODATE_QUALIFYING_SLN_PERIOD = 1.
ELSE IF (A35 =1 AND inyear_course_prop > 0 and a31 <= current_year_end and a31 >= current_year_start AND A10 = 20).
COMPUTE A_TODATE_QUALIFYING_SLN_PERIOD = 1.
END IF.
IF (a28 < current_year_start) A_TODATE_QUALIFYING_SLN_PERIOD = 0.
IF (a35 = 1 and a31 <= current_year_end and a31 >= current_year_start and a10 = 20) A_TODATE_QUALIFYING_SLN_PERIOD = 1. |