PACKAGE BODY: APPS.IGS_PS_VAL_COI

Source

1 PACKAGE BODY IGS_PS_VAL_COi AS
2 /* $Header: IGSPS24B.pls 115.5 2002/11/29 02:59:36 nsidana ship $ */
3   -------------------------------------------------------------------------------------------
4   --Change History:
5   --Who         When            What
6   --avenkatr    29-AUG-2001    Bug Id : 1956374. Removed procedure "crsp_Val_crs_ci"
7   -------------------------------------------------------------------------------------------
8 
9 
10   --
11   -- Validate IGS_PS_COURSE entry assessment scores.
12   FUNCTION crsp_val_ent_ass_scr(
13   p_min_entry_ass_score IN NUMBER ,
14   p_guaranteed_entry_ass_scr IN NUMBER ,
15   p_message_name OUT NOCOPY VARCHAR2 )
16   RETURN BOOLEAN AS
17   BEGIN
18   	--- Validate that IGS_PS_OFR_INST and IGS_PS_OFR_PAT
19   	--- minimum entry assessment score <= guaranteed entry assessment score.
20   DECLARE
21   BEGIN
22   	--- Set the default message.
23   	p_message_name := NULL;
24   	--- Check that both parameters exist.
25   	IF p_min_entry_ass_score IS NULL
26   	OR p_guaranteed_entry_ass_scr IS NULL THEN
27   		RETURN TRUE;
28   	END IF;
29   	IF p_min_entry_ass_score > p_guaranteed_entry_ass_scr THEN
30   		p_message_name := 'IGS_PS_GUARANTEE_ENTRY_ASSESS';
31   		RETURN FALSE;
32   	END IF;
33   	--- Return the default value.
34   	RETURN TRUE;
35   END;
36   END crsp_val_ent_ass_scr;
37 END IGS_PS_VAL_COi;