The following lines contain the word 'select', 'insert', 'update' or 'delete':
intermission return condition and insert the records.
--Change History:
--Who When What
---------------------------------------------------------------------------------------------*/
g_pkg_name CONSTANT VARCHAR2(30) := 'IGS_EN_SPI_RCOND_LGCY_PUB';
SELECT 'x'
FROM igs_lookup_values
WHERE lookup_type = 'IGS_EN_INTM_RCOND_STS'
AND lookup_Code = p_intm_rcond_rec.status_code;
SELECT cond_return_flag
FROM igs_en_stdnt_ps_intm
WHERE person_id = cp_person_id
AND course_cd = p_intm_rcond_rec.program_cd
AND start_dt = p_intm_rcond_rec.start_dt
AND logical_delete_date = to_date('31-12-4712','DD-MM-YYYY');
x_logical_delete_date => to_date('31-12-4712','DD-MM-YYYY'),
x_return_condition => p_intm_rcond_rec.return_condition) THEN
FND_MESSAGE.SET_NAME('IGS', 'IGS_EN_STU_INTM_RCOND_EXISTS');
l_insert_flag BOOLEAN;
l_last_update_date igs_en_stdnt_ps_intm.last_update_date%TYPE;
l_last_updated_by igs_en_stdnt_ps_intm.last_updated_by%TYPE;
l_last_update_login igs_en_stdnt_ps_intm.last_update_login%TYPE;
SELECT course_attempt_status
FROM igs_en_stdnt_ps_att
WHERE person_id = cp_person_id
AND course_cd = p_intm_rcond_rec.program_cd;
l_insert_flag := TRUE;
l_insert_flag := FALSE;
l_insert_flag := FALSE;
l_insert_flag := FALSE;
IF l_insert_flag THEN
-- validate the parameters passed
IF validate_parameters(l_person_id,p_intm_rcond_rec) = 'E' THEN
l_insert_flag := FALSE;
IF l_insert_flag THEN
l_ret_val := validate_db_cons( l_person_id, p_intm_rcond_rec);
l_insert_flag := FALSE;
l_insert_flag := FALSE;
IF l_insert_flag THEN
l_creation_date := SYSDATE;
l_last_update_date := SYSDATE;
l_last_updated_by := FND_GLOBAL.USER_ID;
l_last_update_login :=FND_GLOBAL.LOGIN_ID;
IF l_last_updated_by IS NULL THEN
l_last_updated_by := -1;
IF l_last_update_login IS NULL THEN
l_last_update_login := -1;
INSERT INTO igs_en_spi_rconds (
person_id,
course_cd,
start_dt,
logical_delete_date,
return_condition,
status_code,
approved_dt,
approved_by,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login
)
VALUES (
l_person_id,
p_intm_rcond_rec.program_cd,
p_intm_rcond_rec.start_dt,
to_date('31-12-4712','DD-MM-YYYY'),
p_intm_rcond_rec.return_condition,
p_intm_rcond_rec.status_code,
p_intm_rcond_rec.approved_dt,
l_approver_id,
l_created_by,
l_creation_date,
l_last_updated_by,
l_last_update_date,
l_last_update_login
);
UPDATE igs_en_stdnt_ps_att_all SET course_attempt_status = 'INTERMIT'
WHERE person_id = l_person_id
AND course_cd = p_intm_rcond_rec.program_cd;
END IF; -- IF l_insert_flag
IF (FND_API.TO_BOOLEAN(p_commit) AND l_insert_flag ) THEN
COMMIT WORK;