[Home] [Help]
2041: -- changes described by HEFD350.
2042: -----------------------------------------------------------------------------------------------------
2043: CURSOR c_he_spa IS
2044: SELECT *
2045: FROM igs_he_lgcy_spa_int
2046: WHERE batch_id = p_batch_id
2047: AND import_status IN ('U','R')
2048: ORDER BY person_number ASC,
2049: program_cd ASC
2166: p_int_table_code => g_cst_he_spa,
2167: p_int_table_id => l_he_spa_cur_rec.legacy_hesa_spa_int_id
2168: );
2169: -- delete the interface record
2170: DELETE FROM igs_he_lgcy_spa_int
2171: WHERE legacy_hesa_spa_int_id = l_he_spa_cur_rec.legacy_hesa_spa_int_id;
2172: ELSE
2173: l_last_updated_by := get_last_updated_by;
2174: l_last_update_date := get_last_update_date;
2176: l_request_id := get_request_id;
2177: l_program_application_id := get_program_application_id;
2178: l_program_id := get_program_id;
2179: l_program_update_date := get_program_update_date;
2180: UPDATE igs_he_lgcy_spa_int
2181: SET import_status = DECODE(l_return_status,
2182: 'S','I',
2183: 'U','E',
2184: 'W','W',