The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_old_logical_delete_dt IN DATE ,
p_new_logical_delete_dt IN DATE ,
p_message_name OUT NOCOPY VARCHAR2 )
RETURN BOOLEAN AS
BEGIN -- resp_val_the_del_dt
DECLARE
BEGIN
p_message_name := NULL;
IF p_new_logical_delete_dt IS NOT NULL AND
p_old_logical_delete_dt IS NOT NULL AND
p_new_logical_delete_dt <> p_old_logical_delete_dt THEN
p_message_name := 'IGS_RE_LOGICA_DEL_DT_CANT_UPD';
IF p_old_logical_delete_dt IS NULL AND
p_new_logical_delete_dt IS NOT NULL AND
TRUNC(p_new_logical_delete_dt) <> TRUNC(SYSDATE) THEN
p_message_name := 'IGS_RE_SET_LOGICALDT_TO_CURR';
SELECT ca.max_submission_dt,
ca.min_submission_dt
FROM IGS_RE_CANDIDATURE ca
WHERE ca.person_id = p_person_id AND
ca.sequence_number = p_ca_sequence_number;
p_logical_delete_dt IN DATE ,
p_thesis_status IN VARCHAR2 ,
p_message_name OUT NOCOPY VARCHAR2 )
RETURN BOOLEAN AS
BEGIN -- resp_val_the_del
-- Description: Validate the IGS_RE_THESIS.logical_delete_dt, checking for
-- * Cannot logically delete when status is SUBMITTED or EXAMINED
DECLARE
v_thesis_status IGS_RE_THESIS_V.thesis_status%TYPE;
SELECT thesis_status
FROM IGS_RE_THESIS_V thev
WHERE person_id = p_person_id AND
ca_sequence_number = p_ca_sequence_number AND
sequence_number = p_sequence_number;
IF p_logical_delete_dt IS NOT NULL THEN
IF p_thesis_status IS NULL THEN
OPEN c_thev;
SELECT thesis_status
FROM IGS_RE_THESIS_V thev
WHERE person_id = p_person_id AND
ca_sequence_number = p_ca_sequence_number AND
sequence_number = p_sequence_number;
SELECT thev.thesis_status
FROM IGS_RE_THESIS_V thev
WHERE thev.person_id = p_person_id AND
thev.ca_sequence_number = p_ca_sequence_number AND
thev.sequence_number = p_sequence_number;
SELECT 'x'
FROM IGS_RE_THESIS_EXAM tex
WHERE tex.person_id = p_person_id AND
tex.ca_sequence_number = p_ca_sequence_number AND
tex.the_sequence_number = p_sequence_number AND
tex.submission_dt IS NOT NULL AND
tex.thesis_result_cd IS NULL;
SELECT thr.closed_ind,
sthr.final_result_ind
FROM IGS_RE_THESIS_RESULT thr,
IGS_LOOKUPS_VIEW sthr
WHERE thr.thesis_result_cd = p_thesis_result_cd AND
sthr.LOOKUP_CODE = thr.s_thesis_result_cd
AND sthr.lookup_type = 'THESIS_RESULT';
SELECT tex.thesis_result_cd
FROM IGS_RE_THESIS_EXAM tex
WHERE tex.person_id = p_person_id AND
tex.ca_sequence_number = p_ca_sequence_number AND
tex.the_sequence_number = p_sequence_number AND
tex.submission_dt IS NOT NULL AND
tex.thesis_result_cd IS NOT NULL
ORDER BY tex.submission_dt DESC;
p_logical_delete_dt IN DATE ,
p_message_name OUT NOCOPY VARCHAR2 )
RETURN BOOLEAN AS
BEGIN -- resp_val_the_upd
-- Validate for insert, update, delete of IGS_RE_THESIS, checking for :
-- Cannot update if logical_delete_dt is set.
DECLARE
BEGIN
IF p_logical_delete_dt IS NOT NULL THEN
p_message_name := 'IGS_RE_CANT_UPD_THESIS';
SELECT thev.thesis_status
FROM IGS_RE_THESIS_V thev
WHERE thev.person_id = p_person_id AND
thev.ca_sequence_number = p_ca_sequence_number AND
thev.sequence_number = p_sequence_number;
SELECT sequence_number
FROM igs_re_candidature_all
WHERE sca_course_cd IS NOT NULL
AND sca_course_cd = p_course_cd
AND person_id = p_person_id;
SELECT title
FROM igs_re_thesis_all the,
igs_re_candidature re
WHERE the.person_id = p_person_id
AND the.title = p_title
AND re.sequence_number = p_ca_sequence_number
AND re.person_id = the.person_id;
SELECT min_submission_dt
FROM igs_re_candidature
WHERE sequence_number = p_ca_sequence_number
AND person_id = p_person_id;