178: -------------------------------------------------------------------------------------------
179: RETURN VARCHAR2 AS
180: BEGIN
181: DECLARE
182: v_acad_cal_type IGS_CA_INST.cal_type%TYPE;
183: v_acad_ci_sequence_number IGS_CA_INST.sequence_number%TYPE;
184: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
185: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
186: v_message_name Varchar2(30);
179: RETURN VARCHAR2 AS
180: BEGIN
181: DECLARE
182: v_acad_cal_type IGS_CA_INST.cal_type%TYPE;
183: v_acad_ci_sequence_number IGS_CA_INST.sequence_number%TYPE;
184: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
185: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
186: v_message_name Varchar2(30);
187: v_alternate_code IGS_CA_INST.alternate_code%TYPE;
180: BEGIN
181: DECLARE
182: v_acad_cal_type IGS_CA_INST.cal_type%TYPE;
183: v_acad_ci_sequence_number IGS_CA_INST.sequence_number%TYPE;
184: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
185: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
186: v_message_name Varchar2(30);
187: v_alternate_code IGS_CA_INST.alternate_code%TYPE;
188: v_return_type VARCHAR2(1);
181: DECLARE
182: v_acad_cal_type IGS_CA_INST.cal_type%TYPE;
183: v_acad_ci_sequence_number IGS_CA_INST.sequence_number%TYPE;
184: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
185: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
186: v_message_name Varchar2(30);
187: v_alternate_code IGS_CA_INST.alternate_code%TYPE;
188: v_return_type VARCHAR2(1);
189: cst_load CONSTANT VARCHAR2(10) := 'LOAD';
183: v_acad_ci_sequence_number IGS_CA_INST.sequence_number%TYPE;
184: v_acad_start_dt IGS_CA_INST.start_dt%TYPE;
185: v_acad_end_dt IGS_CA_INST.end_dt%TYPE;
186: v_message_name Varchar2(30);
187: v_alternate_code IGS_CA_INST.alternate_code%TYPE;
188: v_return_type VARCHAR2(1);
189: cst_load CONSTANT VARCHAR2(10) := 'LOAD';
190: cst_active CONSTANT VARCHAR2(10) := 'ACTIVE';
191: cst_yes CONSTANT VARCHAR2(1) := 'Y';
189: cst_load CONSTANT VARCHAR2(10) := 'LOAD';
190: cst_active CONSTANT VARCHAR2(10) := 'ACTIVE';
191: cst_yes CONSTANT VARCHAR2(1) := 'Y';
192: cst_no CONSTANT VARCHAR2(1) := 'N';
193: CURSOR c_ci_cat_cs (cp_acad_cal_type IGS_CA_INST.cal_type%TYPE,
194: cp_acad_ci_sequence_number
195: IGS_CA_INST.sequence_number%TYPE) IS
196: SELECT ci.cal_type,
197: ci.sequence_number
191: cst_yes CONSTANT VARCHAR2(1) := 'Y';
192: cst_no CONSTANT VARCHAR2(1) := 'N';
193: CURSOR c_ci_cat_cs (cp_acad_cal_type IGS_CA_INST.cal_type%TYPE,
194: cp_acad_ci_sequence_number
195: IGS_CA_INST.sequence_number%TYPE) IS
196: SELECT ci.cal_type,
197: ci.sequence_number
198: FROM IGS_CA_INST ci,
199: IGS_CA_TYPE cat,
194: cp_acad_ci_sequence_number
195: IGS_CA_INST.sequence_number%TYPE) IS
196: SELECT ci.cal_type,
197: ci.sequence_number
198: FROM IGS_CA_INST ci,
199: IGS_CA_TYPE cat,
200: IGS_CA_STAT cs
201: WHERE cat.cal_type = ci.cal_type AND
202: cat.s_cal_cat = cst_load AND