1 PACKAGE BODY IGS_RE_VAL_SEOCC AS
2 /* $Header: IGSRE14B.pls 115.3 2002/11/29 03:29:59 nsidana ship $ */
3 --
4 -- Validate whether govt_seo_class_cd exists for another record
5 FUNCTION resp_val_scc_gscc(
6 p_govt_seo_class_cd IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2 )
8 RETURN BOOLEAN AS
9 BEGIN -- resp_val_scc_gscc
10 -- This module validates whether a IGS_RE_SEO_CLASS_CD record currently exists
11 -- with a govt_seo_class_cd = p_govt_seo_class_cd
12 DECLARE
13 v_count NUMBER;
14 CURSOR c_scc IS
15 SELECT COUNT(govt_seo_class_cd)
16 FROM IGS_RE_SEO_CLASS_CD
17 WHERE govt_seo_class_cd = p_govt_seo_class_cd AND
18 closed_ind = 'N';
19 BEGIN
20 p_message_name := NULL;
21 OPEN c_scc;
22 FETCH c_scc INTO v_count;
23 CLOSE c_scc;
24 IF v_count > 0 THEN
25 p_message_name := 'IGS_RE_SOCIO_ECON_OBJECT_MAPP';
26 RETURN FALSE;
27 END IF;
28 RETURN TRUE;
29 EXCEPTION
30 WHEN OTHERS THEN
31 IF c_scc%ISOPEN THEN
32 CLOSE c_scc;
33 END IF;
34 RAISE;
35 END;
36 EXCEPTION
37 WHEN OTHERS THEN
38 Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
39 IGS_GE_MSG_STACK.ADD;
40 App_Exception.Raise_Exception;
41 END resp_val_scc_gscc;
42 --
43 -- Validate if Government Socio-Economic Classification Code is closed.
44 FUNCTION resp_val_gscc_closed(
45 p_govt_seo_class_cd IN VARCHAR2 ,
46 p_message_name OUT NOCOPY VARCHAR2 )
47 RETURN BOOLEAN AS
48 BEGIN -- resp_val_gscc_closed
49 -- Validate if IGS_RE_GV_SEO_CLS_CD.govt_seo_class_cd is closed.
50 DECLARE
51 v_gscc_rec VARCHAR2(1);
52 CURSOR c_gscc IS
53 SELECT 'X'
54 FROM IGS_RE_GV_SEO_CLS_CD
55 WHERE govt_seo_class_cd = p_govt_seo_class_cd AND
56 closed_ind = 'Y';
57 BEGIN
58 p_message_name := NULL;
59 OPEN c_gscc;
60 FETCH c_gscc INTO v_gscc_rec;
61 IF (c_gscc%FOUND) THEN
62 CLOSE c_gscc;
63 p_message_name := 'IGS_RE_GOV_OBJ_CLASS_CLOSED';
64 RETURN FALSE;
65 END IF;
66 CLOSE c_gscc;
67 RETURN TRUE;
68 END;
69 EXCEPTION
70 WHEN OTHERS THEN
71 Fnd_Message.Set_Name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
72 IGS_GE_MSG_STACK.ADD;
73 App_Exception.Raise_Exception;
74 END resp_val_gscc_closed;
75 END IGS_RE_VAL_SEOCC;