1 PACKAGE BODY IGS_AS_VAL_UAP AS
2 /* $Header: IGSAS35B.pls 115.10 2003/12/03 08:50:03 ijeddy ship $ */
3 -- Routine to clear rowids saved in a PL/SQL TABLE from a prior commit.
4 -- Validate the ass_pattern_cd is unique within a IGS_PS_UNIT offering pattern.
5 -- Bug No 1956374 , Procedure assp_val_uap_loc_uc is removed
6 -- Bug No 1956374 , Procedure crsp_val_iud_uv_dtl is removed
7 FUNCTION ASSP_VAL_UAP_UNIQ_CD(
8 p_unit_cd IN VARCHAR2 ,
9 p_version_number IN NUMBER ,
10 p_cal_type IN VARCHAR2 ,
11 p_ci_sequence_number IN NUMBER ,
12 p_ass_pattern_id IN NUMBER ,
13 p_ass_pattern_cd IN VARCHAR2 ,
14 p_message_name OUT NOCOPY VARCHAR2)
15 RETURN BOOLEAN IS
16 BEGIN
17 RETURN TRUE;
18 --ijeddy, Grade Book . Obsoleted
19 END assp_val_uap_uniq_cd;
20 --
21 -- Validate the IGS_PS_UNIT assessment pattern restrictions can be updated.
22 FUNCTION ASSP_VAL_UAP_UOO_UPD(
23 p_unit_cd IN VARCHAR2 ,
24 p_version_number IN NUMBER ,
25 p_cal_type IN VARCHAR2 ,
26 p_ci_sequence_number IN NUMBER ,
27 p_ass_pattern_id IN NUMBER ,
28 p_location_cd IN VARCHAR2 ,
29 p_unit_class IN VARCHAR2 ,
30 p_unit_mode IN VARCHAR2 ,
31 p_message_name OUT NOCOPY VARCHAR2 )
32 RETURN BOOLEAN IS
33 BEGIN -- assp_val_uap_uoo_upd
34 -- This module validates that IGS_AD_LOCATION code, IGS_PS_UNIT mode and class are allowed to
35 -- be updated for the IGS_PS_UNIT assessment pattern.
36 --no longer inuse - ijeddy Grade Book . Obsoleted
37 RETURN FALSE;
38 END assp_val_uap_uoo_upd;
39 --
40 -- Validate IGS_PS_UNIT class and IGS_PS_UNIT mode cannot both be set.
41 FUNCTION ASSP_VAL_UC_UM(
42 p_unit_mode IN VARCHAR2 ,
43 p_unit_class IN VARCHAR2 ,
44 p_message_name OUT NOCOPY VARCHAR2)
45 RETURN BOOLEAN IS
46 gv_other_detail VARCHAR2(255);
47 BEGIN -- assp_val_uc_um
48 -- Do not allow both IGS_PS_UNIT mode and IGS_PS_UNIT class to be specified
49 DECLARE
50 v_ret_val BOOLEAN DEFAULT TRUE;
51 BEGIN
52 p_message_name := null;
53 IF p_unit_mode IS NOT NULL AND
54 p_unit_class IS NOT NULL THEN
55 p_message_name := 'IGS_AS_UNITMODE_UNITCLASS_LIN';
56 RETURN FALSE;
57 END IF;
58 RETURN TRUE;
59 END;
60 EXCEPTION
61 WHEN OTHERS THEN
62 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
63 Fnd_Message.Set_Token('NAME','IGS_AS_VAL_UAP.ASSP_VAL_UC_UM');
64 Igs_Ge_Msg_Stack.Add;
65 App_Exception.Raise_Exception;
66 END assp_val_uc_um;
67
68 --
69 -- Val IGS_PS_UNIT assess pattern applies to stud IGS_PS_UNIT IGS_AD_LOCATION, class and mode.
70 --
71 -- Val IGS_PS_UNIT assess pattern applies to stud IGS_PS_UNIT IGS_AD_LOCATION, class and mode.
72 FUNCTION ASSP_VAL_SUA_UAP(
73 p_student_location_cd IN VARCHAR2 ,
74 p_student_unit_class IN VARCHAR2 ,
75 p_student_unit_mode IN VARCHAR2 ,
76 p_location_cd IN VARCHAR2 ,
77 p_unit_class IN VARCHAR2 ,
78 p_unit_mode IN VARCHAR2 )
79 RETURN CHAR IS
80 v_message_name varchar2(30);
81 BEGIN -- assp_val_sua_uai
82 -- Validate that the IGS_AS_UNTAS_PATTERN's IGS_AD_LOCATION, mode and class
83 -- are applicable for the student
84 DECLARE
85 BEGIN
86 IF IGS_AS_VAL_SUAAP.assp_val_uap_loc_uc(p_student_location_cd,
87 p_student_unit_class,
88 p_student_unit_mode,
89 p_location_cd,
90 p_unit_class,
91 p_unit_mode,
92 v_message_name) = TRUE THEN
93 RETURN 'TRUE';
94 ELSE
95 RETURN 'FALSE';
96 END IF;
97 END;
98
99 END assp_val_sua_uap;
100
101 END IGS_AS_VAL_UAP;