1 PACKAGE BODY IGS_CO_VAL_SLET AS
2 /* $Header: IGSCO19B.pls 115.5 2002/11/28 23:06:44 nsidana ship $ */
3 -------------------------------------------------------------------------------------------
4 --Change History:
5 --Who When What
6 --avenkatr 29-AUG-2001 Bug Id : 1956374. Removed procedure "corp_val_cort_closed"
7 -------------------------------------------------------------------------------------------
8
9 --
10 -- Validate if System Letter Object is closed.
11 FUNCTION corp_val_slo_closed(
12 p_s_letter_object IN VARCHAR2 ,
13 p_message_name OUT NOCOPY VARCHAR2 )
14 RETURN BOOLEAN AS
15
16 BEGIN -- corp_val_slo_closed
17 -- Validate if s_letter_object is closed.
18 DECLARE
19 v_closed_ind IGS_LOOKUPS_view.closed_ind%TYPE DEFAULT NULL;
20 CURSOR c_slo IS
21 SELECT closed_ind
22 FROM IGS_LOOKUPS_view
23 WHERE lookup_code = p_s_letter_object
24 AND lookup_type='LETTER_OBJECT';
25 BEGIN
26 p_message_name := Null;
27 OPEN c_slo;
28 FETCH c_slo INTO v_closed_ind;
29 CLOSE c_slo;
30 IF (v_closed_ind = 'Y') THEN
31 p_message_name := 'IGS_CO_SYS_LETTER_OBJ_CLS';
32 RETURN FALSE;
33 END IF;
34 RETURN TRUE;
35 END;
36
37 END corp_val_slo_closed;
38 --
39 -- Validate if the IGS_CO_TYPE is a system generated type.
40 FUNCTION corp_val_cort_sysgen(
41 p_correspondence_type IN VARCHAR2 ,
42 p_message_name OUT NOCOPY VARCHAR2 )
43 RETURN BOOLEAN AS
44
45 BEGIN -- corp_val_cort_sysgen
46 -- Validate if the IGS_CO_TYPE is a system generated type.
47 DECLARE
48 v_sys_generated_ind IGS_CO_TYPE.sys_generated_ind%TYPE DEFAULT NULL;
49 CURSOR c_cort IS
50 SELECT sys_generated_ind
51 FROM IGS_CO_TYPE
52 WHERE correspondence_type = p_correspondence_type;
53 BEGIN
54 p_message_name := null;
55 OPEN c_cort;
56 FETCH c_cort INTO v_sys_generated_ind;
57 CLOSE c_cort;
58 IF (v_sys_generated_ind = 'N') THEN
59 p_message_name := 'IGS_CO_CORTYPE_ISNOT_SYSGEN';
60 RETURN FALSE;
61 END IF;
62 RETURN TRUE;
63 END;
64
65 END corp_val_cort_sysgen;
66 END IGS_CO_VAL_SLET;