PACKAGE BODY: APPS.IGS_CO_VAL_CORT

Source

1 PACKAGE BODY IGS_CO_VAL_CORT AS
2 /* $Header: IGSCO09B.pls 115.4 2002/11/28 23:04:43 nsidana ship $ */
3   -- Validate CORT Sys Gen indicator can not be unset while job recs exist.
4   FUNCTION corp_val_cort_jobctr(
5   p_correspondence_type IN VARCHAR2 ,
6   p_message_name OUT NOCOPY varchar2 )
7   RETURN BOOLEAN AS
8   BEGIN
9   DECLARE
10   	v_rec_count	NUMBER;
11   	CURSOR	c_jobctr IS
12   		SELECT	CORRESPONDENCE_TYPE
13   		FROM	IGS_CO_TYPE_JO
14   		WHERE	CORRESPONDENCE_TYPE = p_correspondence_type;
15   BEGIN
16   	--
17   	-- Validate CORT Sys Gen indicator can not be unset while job recs exist.
18   	--
19   	p_message_name	:= Null;
20   	v_rec_count	:= 0;
21   	FOR c_jobrec IN c_jobctr
22   	LOOP
23   		v_rec_count := v_rec_count + 1;
24   	END LOOP;
25   	IF  (v_rec_count > 0) THEN
26   		p_message_name := 'IGS_CO_SYSGEN_REMAINSET_CORTY';
27   		RETURN FALSE;
28   	END IF;
29   	RETURN TRUE;
30 
31   END;
32   END corp_val_cort_jobctr;
33 END IGS_CO_VAL_CORT;