[Home] [Help]
14: p_message_name OUT NOCOPY VARCHAR2)
15: RETURN BOOLEAN AS
16:
17: BEGIN -- enrp_ins_cafostrnsfr
18: -- This module inserts research IGS_RE_CDT_FLD_OF_SY details as a result of
19: --course transfer. All Candidature research supervisor details
20: --(p_person_id/p_transfer_ca_sequence_number) are to be copied to the
21: --new Candidature (p_person_id/p_ca_sequence_number).
22: DECLARE
23: v_cafos_exists VARCHAR2(1);
24: cst_enrp_ins_ca_trnsfr CONSTANT VARCHAR2(18) := 'ENRP_INS_CA_TRNSFR';
25: CURSOR c_cafos IS
26: SELECT 'x'
27: FROM IGS_RE_CDT_FLD_OF_SY cafos
28: WHERE cafos.person_id = p_person_id AND
29: cafos.ca_sequence_number = p_ca_sequence_number;
30: CURSOR c_cafos1 IS
31: SELECT cafos.field_of_study,
29: cafos.ca_sequence_number = p_ca_sequence_number;
30: CURSOR c_cafos1 IS
31: SELECT cafos.field_of_study,
32: cafos.percentage
33: FROM IGS_RE_CDT_FLD_OF_SY cafos
34: WHERE cafos.person_id = p_person_id AND
35: cafos.ca_sequence_number = p_transfer_ca_sequence_number;
36: BEGIN
37: -- Set the default message number
59: BEGIN
60: DECLARE
61: l_rowid VARCHAR2(25);
62: BEGIN
63: IGS_RE_CDT_FLD_OF_SY_PKG.INSERT_ROW(
64: x_rowid => l_rowid,
65: x_person_id => p_person_id,
66: x_ca_sequence_number => p_ca_sequence_number,
67: x_field_of_study => v_cafos1_rec.field_of_study,
73: ROLLBACK TO sp_cand_field_of_study;
74: p_message_name := 'IGS_RE_CANT_INS_CAND_FLD_STDY';
75: RETURN FALSE;
76: END;
77: END LOOP; --(IGS_RE_CDT_FLD_OF_SY)
78: -- Return the default value
79: RETURN TRUE;
80: EXCEPTION
81: WHEN OTHERS THEN