PACKAGE BODY: APPS.IGS_CO_VAL_CRTJO

Source

1 PACKAGE BODY IGS_CO_VAL_CRTJO AS
2 /* $Header: IGSCO10B.pls 115.4 2002/11/28 23:05:05 nsidana ship $ */
3   -- Validate CORTJO record only created when Sys Gen indicator is set.
4   FUNCTION corp_val_cortjo_sysg(
5   p_correspondence_type IN VARCHAR2 ,
6   p_sysgen_ind IN VARCHAR2 DEFAULT 'N',
7   p_message_name OUT NOCOPY varchar2 )
8   RETURN BOOLEAN AS
9   BEGIN
10   	--
11   	-- Validate CORTJO record only created when Sys Gen indicator is set.
12   	--
13   	p_message_name	:= Null;
14   	IF  p_sysgen_ind = 'N' THEN
15   	    p_message_name := 'IGS_CO_SYSGEN_SET_CORTYPE';
16   	    RETURN FALSE;
17   	END IF;
18   	RETURN TRUE;
19 
20   END corp_val_cortjo_sysg;
21 END IGS_CO_VAL_CRTJO;