[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- CURSOR to be used for fetching the Correction ISIR for the Student
-- ( For edits 2008, 2012, 2025, 2041, 2046, 2060, 2062 )
CURSOR get_corr_record ( cp_base_id igf_ap_isir_matched.base_id%TYPE ) IS
SELECT *
FROM igf_ap_isir_matched isir
WHERE isir.base_id = cp_base_id
AND isir.system_record_type = 'CORRECTION' ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND p_isir_rec.p_num_in_college > 6 THEN
*/
IF NVL ( p_isir_rec.a_parents_num_college, p_isir_rec.p_num_in_college) > 6 THEN
-- assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- Edit 2008
-- Select the Correction Record for the same student and in that record
IF corr_rec.p_num_in_college > 6 THEN
-- Assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND (p_isir_rec.p_adjusted_gross_income IS NULL OR p_isir_rec.p_adjusted_gross_income = 0 )
*/
IF ( (p_isir_rec.p_adjusted_gross_income IS NULL OR p_isir_rec.p_adjusted_gross_income = 0 )
AND ( p_isir_rec.p_type_tax_return IS NOT NULL
OR ( p_isir_rec.p_type_tax_return IS NULL AND p_isir_rec.p_tax_return_status in ('1','2')))
AND ( ( p_isir_rec.f_income_work IS NOT NULL AND p_isir_rec.f_income_work <> 0 )
OR ( p_isir_rec.m_income_work IS NOT NULL AND p_isir_rec.m_income_work <> 0 ) )
) THEN
-- assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- Edit 2012
IF p_isir_rec.system_record_type <> 'CORRECTION'
-- Select the Correction Record for the same student and in that record (1) = 0
AND corr_rec.p_adjusted_gross_income = 0 THEN
-- assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND ( (p_isir_rec.p_income_wsc > 0
*/
IF ( ( (p_isir_rec.p_income_wsc > 0
AND ( ( NVL ( p_isir_rec.p_cal_tax_status, p_isir_rec.p_tax_return_status) IN ('1','2','3')
AND p_isir_rec.p_income_wsc > 0.9 * (GREATEST (NVL (NVL (p_isir_rec.a_parents_agi, p_isir_rec.p_adjusted_gross_income ) ,0 ) , 0 ) +
GREATEST ( NVL (p_isir_rec.p_income_wsa ,0 ),0 ) +
GREATEST ( NVL (p_isir_rec.p_income_wsb ,0 ),0 ) ) ) )
OR ( NVL ( p_isir_rec.p_cal_tax_status, p_isir_rec.p_tax_return_status) IN ('4','5')
AND p_isir_rec.p_income_wsc > 0.9 * (GREATEST (NVL (NVL (p_isir_rec.a_f_work_income, p_isir_rec.f_income_work ) ,0 ) , 0 ) +
GREATEST (NVL (NVL (p_isir_rec.a_m_work_income, p_isir_rec.m_income_work ) ,0 ) , 0 ) +
GREATEST ( NVL (p_isir_rec.p_income_wsa ,0 ),0 ) +
GREATEST ( NVL (p_isir_rec.p_income_wsb ,0 ),0 ) ) ) ) )
) THEN
-- Assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- do not skip Edit 2025
-- Edit 2025
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND ( (corr_rec.p_income_wsc > 0
AND ( ( corr_rec.p_cal_tax_status IN ('1','2','3')
AND corr_rec.p_income_wsc > 0.9 * (GREATEST (NVL (NVL (corr_rec.a_parents_agi, corr_rec.p_adjusted_gross_income ) ,0 ) , 0 ) +
GREATEST ( NVL (corr_rec.p_income_wsa ,0 ),0 ) +
GREATEST ( NVL (corr_rec.p_income_wsb ,0 ),0 ) ) ) )
OR ( corr_rec.p_cal_tax_status IN ('4','5')
AND corr_rec.p_income_wsc > 0.9 * (GREATEST (NVL (NVL (corr_rec.a_f_work_income, corr_rec.f_income_work ) ,0 ) , 0 ) +
GREATEST (NVL (NVL (corr_rec.a_m_work_income, corr_rec.m_income_work ) ,0 ) , 0 ) +
GREATEST ( NVL (corr_rec.p_income_wsa ,0 ),0 ) +
GREATEST ( NVL (corr_rec.p_income_wsb ,0 ),0 ) ) ) ) ) THEN
-- Assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND p_isir_rec.dependency_status = 'I'
*/
IF ( p_isir_rec.dependency_status = 'I'
AND NVL ( p_isir_rec.a_s_num_in_college , p_isir_rec.s_num_in_college ) > 2
AND NVL ( p_isir_rec.a_s_num_in_college , p_isir_rec.s_num_in_college ) = NVL( p_isir_rec.a_s_num_in_family , p_isir_rec.s_num_family_members )
) THEN
-- assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- Edit 2041
IF p_isir_rec.system_record_type <> 'CORRECTION'
-- Select the Correction Record for the same student and in that record
AND corr_rec.s_num_in_college > 2
AND NVL( corr_rec.a_s_num_in_family , corr_rec.s_num_family_members ) > 2
AND corr_rec.s_num_in_college = NVL( corr_rec.a_s_num_in_family , corr_rec.s_num_family_members ) THEN
-- assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND (p_isir_rec.s_adjusted_gross_income IS NULL OR p_isir_rec.s_adjusted_gross_income = 0 )
*/
IF ( (p_isir_rec.s_adjusted_gross_income IS NULL OR p_isir_rec.s_adjusted_gross_income = 0 )
AND (p_isir_rec.s_type_tax_return IS NOT NULL OR ( p_isir_rec.s_type_tax_return IS NULL
AND p_isir_rec.s_tax_return_status IN ('1','2')))
AND ( (p_isir_rec.s_income_from_work IS NOT NULL AND p_isir_rec.s_income_from_work <> 0 )
OR ( NVL(p_isir_rec.a_spouse_income_work, p_isir_rec.spouse_income_from_work ) IS NOT NULL
AND NVL(p_isir_rec.a_spouse_income_work, p_isir_rec.spouse_income_from_work ) <> 0 ))
) THEN
-- assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- Edit 2046
IF p_isir_rec.system_record_type <> 'CORRECTION'
-- Select the Correction Record for the same student and in that record if (1) = 0
AND corr_rec.s_adjusted_gross_income = 0 THEN
-- assume vaue
p_isir_rec.a_student_agi := NULL ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND ( ( p_isir_rec.dependency_status IN ('I','D')
*/
IF ( ( ( p_isir_rec.dependency_status IN ('I','D')
AND p_isir_rec.s_toa_amt_from_wsc > 0
AND p_isir_rec.s_toa_amt_from_wsc >= (GREATEST (NVL (NVL ( p_isir_rec.a_student_agi , p_isir_rec.s_adjusted_gross_income ) , 0 ), 0 ) +
GREATEST (NVL ( p_isir_rec.s_toa_amt_from_wsa , 0 ) , 0 ) +
GREATEST (NVL ( p_isir_rec.s_toa_amt_from_wsb , 0 ) , 0 ) )
AND NVL ( p_isir_rec.s_cal_tax_status , p_isir_rec.s_tax_return_status ) IN ('1','2','3') )
OR ( p_isir_rec.dependency_status IN ('I','D')
AND p_isir_rec.s_toa_amt_from_wsc > 0
AND p_isir_rec.s_toa_amt_from_wsc >= (GREATEST (NVL (NVL ( p_isir_rec.a_s_income_work , p_isir_rec.s_income_from_work ) , 0 ), 0 ) +
GREATEST (NVL (NVL ( p_isir_rec.a_spouse_income_work , p_isir_rec.spouse_income_from_work) , 0 ), 0 ) +
GREATEST (NVL ( p_isir_rec.s_toa_amt_from_wsa , 0 ) , 0 ) +
GREATEST (NVL ( p_isir_rec.s_toa_amt_from_wsb , 0 ) , 0 ) )
AND NVL ( p_isir_rec.s_cal_tax_status , p_isir_rec.s_tax_return_status ) IN ('4','5') ) )
) THEN
-- assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- Edit 2060, 2062
-- select values from the correction record and check...
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND ( ( corr_rec.dependency_status IN ('I','D')
AND corr_rec.s_toa_amt_from_wsc > 0
AND corr_rec.s_toa_amt_from_wsc >= (GREATEST (NVL (NVL ( corr_rec.a_student_agi , corr_rec.s_adjusted_gross_income ) , 0 ), 0 ) +
GREATEST (NVL ( corr_rec.s_toa_amt_from_wsa , 0 ) , 0 ) +
GREATEST (NVL ( corr_rec.s_toa_amt_from_wsb , 0 ) , 0, l_s_wsb ) )
AND corr_rec.s_cal_tax_status IN ( '1', '2' , '3' ) )
OR ( corr_rec.dependency_status IN ('I','D')
AND corr_rec.s_toa_amt_from_wsc > 0
AND corr_rec.s_toa_amt_from_wsc >= (GREATEST (NVL (NVL ( corr_rec.a_s_income_work , corr_rec.s_income_from_work ) , 0 ), 0 ) +
GREATEST (NVL (NVL ( corr_rec.a_spouse_income_work , corr_rec.spouse_income_from_work) , 0 ), 0 ) +
GREATEST (NVL ( corr_rec.s_toa_amt_from_wsa , 0 ) , 0 ) +
GREATEST (NVL ( corr_rec.s_toa_amt_from_wsb , 0 ) , 0, l_s_wsb ) )
AND corr_rec.s_cal_tax_status IN ( '4', '5') ) ) THEN
-- assume value ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- open correction cursor and fetch correction values
OPEN get_corr_record ( p_isir_rec.base_id ) ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND ( p_isir_rec.first_name IS NULL OR p_isir_rec.last_name IS NULL ) THEN
-- Select the Correction Record for the same student and in that record
IF NOT ( corr_rec.first_name IS NULL OR corr_rec.last_name IS NULL ) THEN
*/
IF ( p_isir_rec.first_name IS NULL OR p_isir_rec.last_name IS NULL ) THEN
-- append reject code ; stack reject message ;
nsidana 11/18/2003 FA129 EFC updates for 2004-2005.
cdcruz 12/31/2003 Bug# 3330571 Corrected the date being displayed for Reject
Edit 4014.
ridas 04/04/2006 Added new maximum date for Award Year 06-07
FA160
***************************************************************/
-- date of birth p_isir_rec.date_of_birth (1)
-- ssn match flag p_isir_rec.ssn_match_flag (2)
-- system record type p_isir_rec.system_record_type (3)
min_date DATE := TO_DATE('1899/12/31','YYYY/MM/DD');
nsidana 11/18/2003 FA129 EFC updates for 2004-2005
ridas 04/04/2006 Added new minimum date for Award Year 06-07
FA160
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Date of Birth p_isir_rec.date_of_birth (2)
-- Orphan or Ward Of Court p_isir_rec.orphan_ward_of_court (3)
-- SSN Match Flag p_isir_rec.ssn_match_flag (4)
-- System Record Type p_isir_rec.system_record_type (5)
min_date DATE;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND p_isir_rec.dependency_status = 'D'
*/
IF ( p_isir_rec.dependency_status = 'D'
AND ( NVL( p_isir_rec.a_p_us_tax_paid , p_isir_rec.p_taxes_paid ) IS NOT NULL
AND NVL( p_isir_rec.a_p_us_tax_paid , p_isir_rec.p_taxes_paid ) > 0 )
AND NVL( p_isir_rec.a_p_us_tax_paid , p_isir_rec.p_taxes_paid ) >= 0.4 * NVL( p_isir_rec.a_parents_agi, p_isir_rec.p_adjusted_gross_income )
AND NVL( p_isir_rec.a_p_us_tax_paid , p_isir_rec.p_taxes_paid ) < NVL( p_isir_rec.a_parents_agi , p_isir_rec.p_adjusted_gross_income )
AND NVL( p_isir_rec.faa_adjustment, '2' ) <> '1'
) THEN
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- Select the Correction Record for the same student and in that record
IF NOT ( NVL ( corr_rec.a_p_us_tax_paid , corr_rec.p_taxes_paid ) <> NVL ( p_isir_rec.a_p_us_tax_paid , p_isir_rec.p_taxes_paid ) ) THEN
*/
-- append reject code ; stack reject message ;
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND p_isir_rec.dependency_status = 'I'
*/
IF ( p_isir_rec.dependency_status = 'I'
AND ( NVL( p_isir_rec.a_s_us_tax_paid , p_isir_rec.s_fed_taxes_paid ) IS NOT NULL
AND NVL( p_isir_rec.a_s_us_tax_paid , p_isir_rec.s_fed_taxes_paid ) > 0 )
AND NVL( p_isir_rec.a_s_us_tax_paid , p_isir_rec.s_fed_taxes_paid ) >= 0.4 * (NVL( p_isir_rec.a_student_agi , p_isir_rec.s_adjusted_gross_income ))
AND NVL( p_isir_rec.a_s_us_tax_paid , p_isir_rec.s_fed_taxes_paid ) < NVL ( p_isir_rec.a_student_agi, p_isir_rec.s_adjusted_gross_income )
AND NVL( p_isir_rec.faa_adjustment,'2') <> '1'
) THEN
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- Select the Correction Record for the same student and in that record
IF NOT ( NVL( corr_rec.a_s_us_tax_paid , corr_rec.s_fed_taxes_paid ) <> NVL ( p_isir_rec.a_s_us_tax_paid , p_isir_rec.s_fed_taxes_paid ) ) THEN
*/
-- append reject code ; stack reject message ;
nsidana 11/18/2003 FA129 EFC updates for 2004-2005
This is reject edit 4024 for the year 0304 and 4026 for year 0405
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Assumed Parents' Marital Status p_isir_rec.a_p_marital_status (2)
-- Parents' Marital Status p_isir_rec.p_marital_status (3)
-- Assumed Parents' Number in Family p_isir_rec.a_parents_num_family (4)
-- Parent's' Number of Family Members p_isir_rec.p_num_family_member (5)
BEGIN
IF ( p_isir_rec.dependency_status = 'D'
AND p_isir_rec.p_marital_status IS NULL
AND ( NVL ( p_isir_rec.a_parents_num_family , p_isir_rec.p_num_family_member ) IS NULL
OR NVL ( p_isir_rec.a_parents_num_family , p_isir_rec.p_num_family_member ) = 0
OR NVL ( p_isir_rec.a_parents_num_family , p_isir_rec.p_num_family_member ) = 1 )
) THEN
-- append reject code ;stack reject message ;
nsidana 11/18/2003 FA129 EFC updates for 2004-2005
This is reject edit 4025 for the year 0304 and 4027 for year 0405
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Assumed Students' Marital Status p_isir_rec.a_student_marital_status (2)
-- Students' Marital Status p_isir_rec.s_marital_status (3)
-- Assumed Students' Number in Family p_isir_rec.a_s_num_in_family (4)
-- Students' Number of Family Members p_isir_rec.s_num_family_members (5)
BEGIN
IF ( p_isir_rec.dependency_status = 'I'
AND NVL( p_isir_rec.a_student_marital_status, p_isir_rec.s_marital_status ) IS NULL
AND ( NVL ( p_isir_rec.a_s_num_in_family , p_isir_rec.s_num_family_members ) IS NULL
OR NVL ( p_isir_rec.a_s_num_in_family , p_isir_rec.s_num_family_members ) = 0
OR NVL ( p_isir_rec.a_s_num_in_family , p_isir_rec.s_num_family_members ) = 1 )
) THEN
-- append reject code ;stack reject message
nsidana 11/18/2003 FA129 EFC updates for 2004-2005
This is reject edit 4026_4027 for the year 0304 and 4028_4028
for year 0405
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Assumed Parents' Number in Family p_isir_rec.a_parents_num_family (2)
-- Parents' Number of Family Members p_isir_rec.p_num_family_member (3)
-- FAA Adjustment p_isir_rec.faa_adjustment (4)
-- System Record Type p_isir_rec.system_record_type (5)
BEGIN
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND p_isir_rec.dependency_status = 'D'
*/
IF ( p_isir_rec.dependency_status = 'D'
AND NVL( p_isir_rec.a_parents_num_family , p_isir_rec.p_num_family_member ) >= 15
AND NVL( p_isir_rec.faa_adjustment,'2') <> '1'
) THEN
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- Select the Correction Record for the same student and in that record
IF NOT ( NVL ( corr_rec.a_parents_num_family , corr_rec.p_num_family_member ) <> NVL ( p_isir_rec.a_parents_num_family , p_isir_rec.p_num_family_member ) ) THEN
*/
-- append reject code ; stack reject message ;
nsidana 11/18/2003 FA129 EFC updates for 2004-2005
This is reject edit 4028_4029 for the year 0304 and 4030_31
for year 0405
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Assumed Students' Number in Family p_isir_rec.a_s_num_in_family (2)
-- Students' Number of Family Members p_isir_rec.s_num_family_members (3)
-- FAA Adjustment p_isir_rec.faa_adjustment (4)
-- System Record Type p_isir_rec.system_record_type (5)
BEGIN
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
IF p_isir_rec.system_record_type <> 'CORRECTION'
AND p_isir_rec.dependency_status = 'I'
*/
IF ( p_isir_rec.dependency_status = 'I'
AND NVL ( p_isir_rec.a_s_num_in_family , p_isir_rec.s_num_family_members ) >= 15
AND NVL ( p_isir_rec.faa_adjustment,'2') <> '1'
) THEN
/* DO NOT DELETE the code commented here
It is likely to be pulled in in a forthcoming CCR
-- Select the Correction Record for the same student and in that record
IF NOT ( NVL (corr_rec.a_s_num_in_family ,corr_rec.s_num_family_members ) <> NVL ( p_isir_rec.a_s_num_in_family , p_isir_rec.s_num_family_members ) ) THEN
*/
-- append reject code ; stack reject message ;
nsidana 11/18/2003 FA129 EFC updates for 2004-2005
This is reject edit 4030 for the year 0304 and 4032 for year 0405
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Parents' Marital Status p_isir_rec.p_marital_status (3)
-- Assumed Fathers' Income Earned from Work p_isir_rec.a_f_work_income (4)
-- Father's Income From Work p_isir_rec.f_income_work (5)
-- Assumed Mothers Income from Work p_isir_rec.a_m_work_income (6)
-- Mothers Income from Work p_isir_rec.m_income_work (7)
-- FAA Adjustment p_isir_rec.faa_adjustment (8)
BEGIN
IF ( p_isir_rec.dependency_status = 'D'
-- AND NVL( p_isir_rec.p_marital_status, '1' ) IN ('2','3','4')
AND p_isir_rec.p_marital_status IN ('2','3','4')
AND ( NVL( p_isir_rec.a_f_work_income , p_isir_rec.f_income_work ) IS NOT NULL
AND NVL( NVL ( p_isir_rec.a_f_work_income , p_isir_rec.f_income_work ), 1 ) <> 0 )
AND ( NVL( p_isir_rec.a_m_work_income , p_isir_rec.m_income_work ) IS NOT NULL
AND NVL( NVL ( p_isir_rec.a_m_work_income , p_isir_rec.m_income_work ), 1 ) <> 0 )
AND NVL( p_isir_rec.faa_adjustment,'2') <> '1'
) THEN
-- append reject code ;stack reject message
nsidana 11/18/2003 FA129 EFC updates for 2004-2005
This is reject edit 4031for the year 0304 and 4033 for year 0405
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Assumed Students' Marital Status p_isir_rec.a_student_marital_status (2)
-- Students' Marital Status p_isir_rec.s_marital_status (3)
-- Assumed Spouse Income From Work p_isir_rec.a_spouse_income_work (4)
-- Spouse Income From Work p_isir_rec.spouse_income_from_work (5)
-- FAA Adjustment p_isir_rec.faa_adjustment (6)
BEGIN
IF ( p_isir_rec.dependency_status = 'I'
AND NVL( p_isir_rec.a_student_marital_status, p_isir_rec.s_marital_status ) IN ('1','3')
AND ( NVL ( p_isir_rec.a_spouse_income_work , p_isir_rec.spouse_income_from_work ) IS NOT NULL
AND NVL ( NVL ( p_isir_rec.a_spouse_income_work , p_isir_rec.spouse_income_from_work ), 1) <> 0 )
AND NVL ( p_isir_rec.faa_adjustment,'2') <> '1'
) THEN
-- append reject code ;stack reject message ;
nsidana 11/18/2003 FA129 EFC updates for 2004-2005
This is reject edit 4032 for the year 0304 and 4034 for year 0405
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Signed By p_isir_rec.signed_by (2)
BEGIN
IF ( p_isir_rec.dependency_status = 'D'
AND (p_isir_rec.signed_by IS NULL OR p_isir_rec.signed_by = 'A' )
) THEN
-- append reject code ;stack reject message ;
nsidana 11/18/2003 FA129 EFC updates for 2004-2005
This is reject edit 4033 for the year 0304 and 4035 for year 0405
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Signed By p_isir_rec.signed_by (2)
BEGIN
IF ( p_isir_rec.dependency_status = 'I'
AND (p_isir_rec.signed_by IS NULL OR p_isir_rec.signed_by = 'P' )
) THEN
-- append reject code ;stack reject message ;
nsidana 11/18/2003 FA129 EFC updates for 2004-2005.
This is reject edit 4034 for year 0304 and edit 4036 for year 0405.
***************************************************************/
-- Application Model p_isir_rec.dependency_status (1)
-- Father's / Step Father's SSN p_isir_rec.father_ssn (2)
-- Mother's / Step Mother's SSN p_isir_rec.mother_ssn (3)
BEGIN
IF p_sys_batch_yr = '0304' THEN
IF (p_isir_rec.dependency_status = 'D' AND
p_isir_rec.father_ssn IS NULL AND
p_isir_rec.mother_ssn IS NULL )
THEN
-- append reject code ;stack reject message ;
reject_edit_4026_4024_4025_new(p_sys_batch_yr) ; -- nsidana 11/18/2003 : New reject edit added aspart of FA129 (EFC updates for 2004-2005).