The following lines contain the word 'select', 'insert', 'update' or 'delete':
FUNCTION enrp_val_sut_delete(
p_person_id IN NUMBER ,
p_course_cd IN VARCHAR2 ,
p_unit_cd IN VARCHAR2 ,
p_cal_type IN VARCHAR2 ,
p_ci_sequence_number IN NUMBER ,
p_message_name OUT NOCOPY VARCHAR2,
p_uoo_id IN NUMBER)
RETURN BOOLEAN AS
-------------------------------------------------------------------------------------------
--Change History:
--Who When What
--kkillams 28-04-2003 New parameter p_uoo_id is added to the function and modified c_sua
-- cursor where clause w.r.t. bug number 2829262
-------------------------------------------------------------------------------------------
BEGIN -- enrp_val_sut_delete
-- This module validates the delete of IGS_PS_STDNT_UNT_TRN details.
DECLARE
CURSOR c_sua IS
SELECT 'X'
FROM IGS_PS_STDNT_UNT_TRN sut, igs_en_su_attempt sua
WHERE sut.person_id = p_person_id AND
sut.transfer_course_cd = p_course_cd AND
sut.uoo_id = p_uoo_id AND
sua.person_id = sut.person_id AND
sua.course_cd = sut.transfer_course_cd AND
sua.uoo_id = sut.uoo_id;
FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_VAL_SUT.enrp_val_sut_delete');
END enrp_val_sut_delete;
FUNCTION enrp_val_sut_insert(
p_person_id IN NUMBER ,
p_course_cd IN VARCHAR2 ,
p_transfer_course_cd IN VARCHAR2 ,
p_unit_cd IN VARCHAR2 ,
p_cal_type IN VARCHAR2 ,
p_ci_sequence_number IN NUMBER ,
p_message_name OUT NOCOPY VARCHAR2,
p_uoo_id IN NUMBER)
RETURN BOOLEAN AS
-------------------------------------------------------------------------------------------
-- enrp_val_sut_insert
-- This module validates the insert of IGS_PS_STDNT_UNT_TRN details
-- * Transferred 'from' IGS_PS_UNIT must have unit_attempt_status 'COMPLETED',
-- 'DUPLICATE', ('DISCONTIN' and IGS_EN_SU_ATTEMPT has a result of
-- 'FAIL').
-- * Cannot insert if transferred ?to? IGS_PS_UNIT maps to IGS_EN_STDNT_PS_ATT
-- with course_attempt_status 'UNCONFIRM', 'DISCONTIN', 'LAPSED',
-- 'COMPLETED'.
-- IGS_GE_NOTE: all statuses with the exception of unconfirmed are handled in
-- ENRP_VAL_SCT_TO validation.
--Change History:
--Who When What
--kkillams 28-04-2003 New parameter p_uoo_id is added to the function and modified c_sua
-- cursor where clause w.r.t. bug number 2829262
--ckasu 06-Dec-2004 removed ELSIF condition as aprt of bug#4048248 inorder to transfer
-- discontinue unit attempt with result other than fail from source prgm
-- to dest prgm.
-- smaddali 16-dec-04 Modified the validation to allow creation of transfer records for
-- ENROLLED and INVALID unit attempts. bug#4063726
-------------------------------------------------------------------------------------------
BEGIN
DECLARE
cst_dropped CONSTANT VARCHAR2(10) := 'DROPPED';
SELECT sua.unit_attempt_status
FROM IGS_EN_SU_ATTEMPT sua
WHERE sua.person_id = p_person_id AND
sua.course_cd = p_transfer_course_cd AND
sua.uoo_id = p_uoo_id ;
SELECT sca.course_attempt_status
FROM IGS_EN_STDNT_PS_ATT sca
WHERE sca.person_id = p_person_id AND
sca.course_cd = p_course_cd;
-- This could not happen without above student unit attempt select failing
CLOSE c_sca;
FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_VAL_SUT.enrp_val_sut_insert');
END enrp_val_sut_insert;