250: BEGIN -- resp_val_the_del
251: -- Description: Validate the IGS_RE_THESIS.logical_delete_dt, checking for
252: -- * Cannot logically delete when status is SUBMITTED or EXAMINED
253: DECLARE
254: v_thesis_status IGS_RE_THESIS_V.thesis_status%TYPE;
255: v_ret_val BOOLEAN := TRUE;
256: CURSOR c_thev IS
257: SELECT thesis_status
258: FROM IGS_RE_THESIS_V thev
254: v_thesis_status IGS_RE_THESIS_V.thesis_status%TYPE;
255: v_ret_val BOOLEAN := TRUE;
256: CURSOR c_thev IS
257: SELECT thesis_status
258: FROM IGS_RE_THESIS_V thev
259: WHERE person_id = p_person_id AND
260: ca_sequence_number = p_ca_sequence_number AND
261: sequence_number = p_sequence_number;
262: BEGIN
303: -- (library_catalogue_number, library_lodgement_dt), checking for :
304: -- *That the details cannot be specified if the IGS_RE_THESIS status is not
305: -- EXAMINED or SUBMITTED.
306: DECLARE
307: v_thesis_status IGS_RE_THESIS_V.thesis_status%TYPE;
308: v_ret_val BOOLEAN := TRUE;
309: CURSOR c_thev IS
310: SELECT thesis_status
311: FROM IGS_RE_THESIS_V thev
307: v_thesis_status IGS_RE_THESIS_V.thesis_status%TYPE;
308: v_ret_val BOOLEAN := TRUE;
309: CURSOR c_thev IS
310: SELECT thesis_status
311: FROM IGS_RE_THESIS_V thev
312: WHERE person_id = p_person_id AND
313: ca_sequence_number = p_ca_sequence_number AND
314: sequence_number = p_sequence_number;
315: BEGIN
370: -- Can only link to results which are flagged as 'final results'
371: DECLARE
372: cst_pending CONSTANT VARCHAR2(10) := 'PENDING';
373: v_dummy VARCHAR2(1);
374: v_thesis_status IGS_RE_THESIS_V.thesis_status%TYPE;
375: v_closed_ind IGS_RE_THESIS_RESULT.closed_ind%TYPE;
376: v_final_result_ind IGS_LOOKUPS_VIEW.final_result_ind%TYPE;
377: v_thesis_result_cd IGS_RE_THESIS_EXAM.thesis_result_cd%TYPE;
378: CURSOR c_thev IS
376: v_final_result_ind IGS_LOOKUPS_VIEW.final_result_ind%TYPE;
377: v_thesis_result_cd IGS_RE_THESIS_EXAM.thesis_result_cd%TYPE;
378: CURSOR c_thev IS
379: SELECT thev.thesis_status
380: FROM IGS_RE_THESIS_V thev
381: WHERE thev.person_id = p_person_id AND
382: thev.ca_sequence_number = p_ca_sequence_number AND
383: thev.sequence_number = p_sequence_number;
384: CURSOR c_tex1 IS
575: -- Cannot be unset once IGS_RE_THESIS is SUBMITTED or EXAMINED
576: DECLARE
577: cst_submitted CONSTANT varchar2(10) := 'SUBMITTED';
578: cst_examined CONSTANT varchar2(10) := 'EXAMINED';
579: v_thesis_status IGS_RE_THESIS_V.thesis_status%TYPE;
580: CURSOR c_thev IS
581: SELECT thev.thesis_status
582: FROM IGS_RE_THESIS_V thev
583: WHERE thev.person_id = p_person_id AND
578: cst_examined CONSTANT varchar2(10) := 'EXAMINED';
579: v_thesis_status IGS_RE_THESIS_V.thesis_status%TYPE;
580: CURSOR c_thev IS
581: SELECT thev.thesis_status
582: FROM IGS_RE_THESIS_V thev
583: WHERE thev.person_id = p_person_id AND
584: thev.ca_sequence_number = p_ca_sequence_number AND
585: thev.sequence_number = p_sequence_number;
586: BEGIN