1: PACKAGE BODY IGS_AS_VAL_SUAO AS
2: /* $Header: IGSAS32B.pls 115.10 2004/02/05 07:41:07 kdande ship $ */
3: -- To validate update of IGS_AS_SU_STMPTOUT record
4: FUNCTION ASSP_VAL_SUAO_UPD(
5: p_person_id IN NUMBER ,
6: p_course_cd IN VARCHAR2 ,
7: p_unit_cd IN VARCHAR2 ,
25: p_uoo_id IN NUMBER )
26: RETURN boolean IS
27: gv_other_detail VARCHAR2(255);
28: BEGIN -- assp_val_suao_upd
29: -- Validate the update of a IGS_AS_SU_STMPTOUT record. Routine checks:
30: -- ? Cannot update a finalised outcome where
31: -- s_grade_creation_method_type <> ?DISCONTIN?
32: -- ? Cannot update s_grade_creation_method_type
33: -- ? Cannot unfinalise an outcome where
41: cst_discontin CONSTANT VARCHAR2(10) := 'DISCONTIN';
42: cst_yes CONSTANT VARCHAR2(1) := 'Y';
43: cst_no CONSTANT VARCHAR2(1) := 'N';
44: cst_x CONSTANT VARCHAR2(1) := 'x';
45: v_finalised_outcome_ind IGS_AS_SU_STMPTOUT.finalised_outcome_ind%TYPE;
46: v_s_grade_creation_mthd_tp
47: IGS_AS_SU_STMPTOUT.s_grade_creation_method_type%TYPE;
48: v_mark IGS_AS_SU_STMPTOUT.mark%TYPE;
49: v_grading_schema_cd IGS_AS_SU_STMPTOUT.grading_schema_cd%TYPE;
43: cst_no CONSTANT VARCHAR2(1) := 'N';
44: cst_x CONSTANT VARCHAR2(1) := 'x';
45: v_finalised_outcome_ind IGS_AS_SU_STMPTOUT.finalised_outcome_ind%TYPE;
46: v_s_grade_creation_mthd_tp
47: IGS_AS_SU_STMPTOUT.s_grade_creation_method_type%TYPE;
48: v_mark IGS_AS_SU_STMPTOUT.mark%TYPE;
49: v_grading_schema_cd IGS_AS_SU_STMPTOUT.grading_schema_cd%TYPE;
50: v_version_number IGS_AS_SU_STMPTOUT.version_number%TYPE;
51: v_grade IGS_AS_SU_STMPTOUT.grade%TYPE;
44: cst_x CONSTANT VARCHAR2(1) := 'x';
45: v_finalised_outcome_ind IGS_AS_SU_STMPTOUT.finalised_outcome_ind%TYPE;
46: v_s_grade_creation_mthd_tp
47: IGS_AS_SU_STMPTOUT.s_grade_creation_method_type%TYPE;
48: v_mark IGS_AS_SU_STMPTOUT.mark%TYPE;
49: v_grading_schema_cd IGS_AS_SU_STMPTOUT.grading_schema_cd%TYPE;
50: v_version_number IGS_AS_SU_STMPTOUT.version_number%TYPE;
51: v_grade IGS_AS_SU_STMPTOUT.grade%TYPE;
52: CURSOR c_suao (
45: v_finalised_outcome_ind IGS_AS_SU_STMPTOUT.finalised_outcome_ind%TYPE;
46: v_s_grade_creation_mthd_tp
47: IGS_AS_SU_STMPTOUT.s_grade_creation_method_type%TYPE;
48: v_mark IGS_AS_SU_STMPTOUT.mark%TYPE;
49: v_grading_schema_cd IGS_AS_SU_STMPTOUT.grading_schema_cd%TYPE;
50: v_version_number IGS_AS_SU_STMPTOUT.version_number%TYPE;
51: v_grade IGS_AS_SU_STMPTOUT.grade%TYPE;
52: CURSOR c_suao (
53: cp_person_id IGS_AS_SU_STMPTOUT.person_id%TYPE,
46: v_s_grade_creation_mthd_tp
47: IGS_AS_SU_STMPTOUT.s_grade_creation_method_type%TYPE;
48: v_mark IGS_AS_SU_STMPTOUT.mark%TYPE;
49: v_grading_schema_cd IGS_AS_SU_STMPTOUT.grading_schema_cd%TYPE;
50: v_version_number IGS_AS_SU_STMPTOUT.version_number%TYPE;
51: v_grade IGS_AS_SU_STMPTOUT.grade%TYPE;
52: CURSOR c_suao (
53: cp_person_id IGS_AS_SU_STMPTOUT.person_id%TYPE,
54: cp_course_cd IGS_AS_SU_STMPTOUT.course_cd%TYPE,
47: IGS_AS_SU_STMPTOUT.s_grade_creation_method_type%TYPE;
48: v_mark IGS_AS_SU_STMPTOUT.mark%TYPE;
49: v_grading_schema_cd IGS_AS_SU_STMPTOUT.grading_schema_cd%TYPE;
50: v_version_number IGS_AS_SU_STMPTOUT.version_number%TYPE;
51: v_grade IGS_AS_SU_STMPTOUT.grade%TYPE;
52: CURSOR c_suao (
53: cp_person_id IGS_AS_SU_STMPTOUT.person_id%TYPE,
54: cp_course_cd IGS_AS_SU_STMPTOUT.course_cd%TYPE,
55: cp_unit_cd IGS_AS_SU_STMPTOUT.unit_cd%TYPE,
49: v_grading_schema_cd IGS_AS_SU_STMPTOUT.grading_schema_cd%TYPE;
50: v_version_number IGS_AS_SU_STMPTOUT.version_number%TYPE;
51: v_grade IGS_AS_SU_STMPTOUT.grade%TYPE;
52: CURSOR c_suao (
53: cp_person_id IGS_AS_SU_STMPTOUT.person_id%TYPE,
54: cp_course_cd IGS_AS_SU_STMPTOUT.course_cd%TYPE,
55: cp_unit_cd IGS_AS_SU_STMPTOUT.unit_cd%TYPE,
56: cp_cal_type IGS_AS_SU_STMPTOUT.cal_type%TYPE,
57: cp_ci_sequence_number IGS_AS_SU_STMPTOUT.ci_sequence_number%TYPE,
50: v_version_number IGS_AS_SU_STMPTOUT.version_number%TYPE;
51: v_grade IGS_AS_SU_STMPTOUT.grade%TYPE;
52: CURSOR c_suao (
53: cp_person_id IGS_AS_SU_STMPTOUT.person_id%TYPE,
54: cp_course_cd IGS_AS_SU_STMPTOUT.course_cd%TYPE,
55: cp_unit_cd IGS_AS_SU_STMPTOUT.unit_cd%TYPE,
56: cp_cal_type IGS_AS_SU_STMPTOUT.cal_type%TYPE,
57: cp_ci_sequence_number IGS_AS_SU_STMPTOUT.ci_sequence_number%TYPE,
58: cp_outcome_dt IGS_AS_SU_STMPTOUT.outcome_dt%TYPE,
51: v_grade IGS_AS_SU_STMPTOUT.grade%TYPE;
52: CURSOR c_suao (
53: cp_person_id IGS_AS_SU_STMPTOUT.person_id%TYPE,
54: cp_course_cd IGS_AS_SU_STMPTOUT.course_cd%TYPE,
55: cp_unit_cd IGS_AS_SU_STMPTOUT.unit_cd%TYPE,
56: cp_cal_type IGS_AS_SU_STMPTOUT.cal_type%TYPE,
57: cp_ci_sequence_number IGS_AS_SU_STMPTOUT.ci_sequence_number%TYPE,
58: cp_outcome_dt IGS_AS_SU_STMPTOUT.outcome_dt%TYPE,
59: cp_uoo_id IGS_AS_SU_STMPTOUT.uoo_id%TYPE) IS
52: CURSOR c_suao (
53: cp_person_id IGS_AS_SU_STMPTOUT.person_id%TYPE,
54: cp_course_cd IGS_AS_SU_STMPTOUT.course_cd%TYPE,
55: cp_unit_cd IGS_AS_SU_STMPTOUT.unit_cd%TYPE,
56: cp_cal_type IGS_AS_SU_STMPTOUT.cal_type%TYPE,
57: cp_ci_sequence_number IGS_AS_SU_STMPTOUT.ci_sequence_number%TYPE,
58: cp_outcome_dt IGS_AS_SU_STMPTOUT.outcome_dt%TYPE,
59: cp_uoo_id IGS_AS_SU_STMPTOUT.uoo_id%TYPE) IS
60: SELECT mark,
53: cp_person_id IGS_AS_SU_STMPTOUT.person_id%TYPE,
54: cp_course_cd IGS_AS_SU_STMPTOUT.course_cd%TYPE,
55: cp_unit_cd IGS_AS_SU_STMPTOUT.unit_cd%TYPE,
56: cp_cal_type IGS_AS_SU_STMPTOUT.cal_type%TYPE,
57: cp_ci_sequence_number IGS_AS_SU_STMPTOUT.ci_sequence_number%TYPE,
58: cp_outcome_dt IGS_AS_SU_STMPTOUT.outcome_dt%TYPE,
59: cp_uoo_id IGS_AS_SU_STMPTOUT.uoo_id%TYPE) IS
60: SELECT mark,
61: grading_schema_cd,
54: cp_course_cd IGS_AS_SU_STMPTOUT.course_cd%TYPE,
55: cp_unit_cd IGS_AS_SU_STMPTOUT.unit_cd%TYPE,
56: cp_cal_type IGS_AS_SU_STMPTOUT.cal_type%TYPE,
57: cp_ci_sequence_number IGS_AS_SU_STMPTOUT.ci_sequence_number%TYPE,
58: cp_outcome_dt IGS_AS_SU_STMPTOUT.outcome_dt%TYPE,
59: cp_uoo_id IGS_AS_SU_STMPTOUT.uoo_id%TYPE) IS
60: SELECT mark,
61: grading_schema_cd,
62: version_number,
55: cp_unit_cd IGS_AS_SU_STMPTOUT.unit_cd%TYPE,
56: cp_cal_type IGS_AS_SU_STMPTOUT.cal_type%TYPE,
57: cp_ci_sequence_number IGS_AS_SU_STMPTOUT.ci_sequence_number%TYPE,
58: cp_outcome_dt IGS_AS_SU_STMPTOUT.outcome_dt%TYPE,
59: cp_uoo_id IGS_AS_SU_STMPTOUT.uoo_id%TYPE) IS
60: SELECT mark,
61: grading_schema_cd,
62: version_number,
63: grade,
62: version_number,
63: grade,
64: finalised_outcome_ind,
65: s_grade_creation_method_type
66: FROM IGS_AS_SU_STMPTOUT
67: WHERE person_id = cp_person_id AND
68: course_cd = cp_course_cd AND
69: -- anilk, 22-Apr-2003, Bug# 2829262
70: uoo_id = cp_uoo_id AND
140:
141:
142: END assp_val_suao_upd;
143: --
144: -- Validate the insert of a IGS_AS_SU_STMPTOUT record
145: FUNCTION ASSP_VAL_SUAO_INS(
146: p_person_id IN NUMBER ,
147: p_course_cd IN VARCHAR2 ,
148: p_unit_cd IN VARCHAR2 ,
156: p_uoo_id IN NUMBER )
157: RETURN boolean IS
158: gv_other_detail VARCHAR2(255);
159: BEGIN -- assp_val_suao_ins
160: -- Validate the insert of a IGS_AS_SU_STMPTOUT record.
161: DECLARE
162: cst_unconfirm CONSTANT VARCHAR2(255) := 'UNCOMFIRM';
163: cst_enrolled CONSTANT VARCHAR2(255) := 'ENROLLED';
164: cst_complete CONSTANT VARCHAR2(255) := 'COMPLETED';
173: -- anilk, 22-Apr-2003, Bug# 2829262
174: uoo_id = p_uoo_id;
175: CURSOR c_chk_suao IS
176: SELECT 'x'
177: FROM IGS_AS_SU_STMPTOUT
178: WHERE person_id = p_person_id and
179: course_cd = p_course_cd and
180: -- anilk, 22-Apr-2003, Bug# 2829262
181: uoo_id = p_uoo_id and
244:
245:
246: END assp_val_suao_ins;
247: --
248: -- Validate IGS_AS_SU_STMPTOUT outcome_dt field
249: FUNCTION ASSP_VAL_SUAO_DT(
250: p_person_id IN NUMBER ,
251: p_course_cd IN VARCHAR2 ,
252: p_unit_cd VARCHAR2 ,
258: p_uoo_id IN NUMBER )
259: RETURN boolean IS
260: gv_other_detail VARCHAR2(255);
261: BEGIN -- assp_val_suao_dt
262: -- Validate the outcome date of a IGS_AS_SU_STMPTOUT record being
263: -- inserted
264: DECLARE
265: v_check CHAR;
266: v_ret_val BOOLEAN DEFAULT TRUE;
265: v_check CHAR;
266: v_ret_val BOOLEAN DEFAULT TRUE;
267: CURSOR c_suao IS
268: SELECT 'x'
269: FROM IGS_AS_SU_STMPTOUT
270: WHERE person_id = p_person_id AND
271: course_cd = p_course_cd AND
272: -- anilk, 22-Apr-2003, Bug# 2829262
273: uoo_id = p_uoo_id AND