[Home] [Help]
364: BEGIN -- resp_val_the_thr
365: -- Validate IGS_RE_THESIS.thesis_result_cd, checking for :
366: -- Closed result code
367: -- Cannot be set against PENDING IGS_RE_THESIS status
368: -- Cannot enter if outstanding submitted IGS_RE_THESIS examination
369: -- Warn if result not the same as the last IGS_RE_THESIS examination
370: -- Can only link to results which are flagged as 'final results'
371: DECLARE
372: cst_pending CONSTANT VARCHAR2(10) := 'PENDING';
365: -- Validate IGS_RE_THESIS.thesis_result_cd, checking for :
366: -- Closed result code
367: -- Cannot be set against PENDING IGS_RE_THESIS status
368: -- Cannot enter if outstanding submitted IGS_RE_THESIS examination
369: -- Warn if result not the same as the last IGS_RE_THESIS examination
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);
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
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
385: SELECT 'x'
386: FROM IGS_RE_THESIS_EXAM tex
387: WHERE tex.person_id = p_person_id AND
388: tex.ca_sequence_number = p_ca_sequence_number AND
389: tex.the_sequence_number = p_sequence_number AND
390: tex.submission_dt IS NOT NULL AND
401: AND sthr.lookup_type = 'THESIS_RESULT';
402:
403: CURSOR c_tex2 IS
404: SELECT tex.thesis_result_cd
405: FROM IGS_RE_THESIS_EXAM tex
406: WHERE tex.person_id = p_person_id AND
407: tex.ca_sequence_number = p_ca_sequence_number AND
408: tex.the_sequence_number = p_sequence_number AND
409: tex.submission_dt IS NOT NULL AND
432: FND_MSG_PUB.ADD;
433: END IF;
434: RETURN FALSE;
435: END IF;
436: --2. Cannot enter if outstanding (submitted) IGS_RE_THESIS examination.
437: IF p_legacy <> 'Y' THEN --this validation is not required for legacy
438: OPEN c_tex1;
439: FETCH c_tex1 INTO v_dummy;
440: IF c_tex1%FOUND THEN