1 PACKAGE BODY IGS_EN_VAL_LC AS
2 /* $Header: IGSEN47B.pls 115.3 2002/11/29 00:01:06 nsidana ship $ */
3 --
4 -- To validate the delete of a language code record
5 FUNCTION enrp_val_lc_del(
6 p_language_cd IN VARCHAR2 ,
7 p_message_name OUT NOCOPY VARCHAR2)
8 RETURN BOOLEAN AS
9 BEGIN
10 DECLARE
11 v_person_id IGS_PE_PERSON.person_id%TYPE;
12 CURSOR gc_person_statistics(
13 cp_language_cd IGS_PE_LANGUAGE_CD.language_cd%TYPE) IS
14 SELECT person_id
15 FROM IGS_PE_STATISTICS
16 WHERE NVL(home_language_cd, 'NULL') = cp_language_cd;
17 BEGIN
18 -- validate the deletion of IGS_PE_LANGUAGE_CD record
19 p_message_name := null;
20 IF(p_language_cd IS NULL) THEN
21 RETURN TRUE;
22 END IF;
23 OPEN gc_person_statistics(
24 p_language_cd);
25 FETCH gc_person_statistics INTO v_person_id;
26 IF(gc_person_statistics%FOUND) THEN
27 CLOSE gc_person_statistics;
28 p_message_name := 'IGS_EN_NOTDEL_LANGCD';
29 RETURN FALSE;
30 ELSE
31 CLOSE gc_person_statistics;
32 RETURN TRUE;
33 END IF;
34 EXCEPTION
35 WHEN OTHERS THEN
36 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
37 FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_VAL_LC.enrp_val_lc_del');
38 IGS_GE_MSG_STACK.ADD;
39 App_Exception.Raise_Exception;
40
41
42 END;
43 END enrp_val_lc_del;
44 --
45 -- Validate the language government language code.
46 FUNCTION enrp_val_lang_govt(
47 p_govt_language_cd IN NUMBER ,
48 p_message_name OUT NOCOPY VARCHAR2)
49 RETURN BOOLEAN AS
50 BEGIN
51 DECLARE
52 gv_closed_ind IGS_PE_GOV_LANG_CD.closed_ind%TYPE;
53 CURSOR gc_govt_lang_cd(
54 cp_govt_lang_cd IGS_PE_LANGUAGE_CD.govt_language_cd%TYPE) IS
55 SELECT IGS_PE_GOV_LANG_CD.closed_ind
56 FROM IGS_PE_GOV_LANG_CD
57 WHERE IGS_PE_GOV_LANG_CD.govt_language_cd = cp_govt_lang_cd;
58 BEGIN
59 -- This module validates if IGS_PE_GOV_LANG_CD.govt_language_cd
60 -- is closed
61 p_message_name := null;
62 OPEN gc_govt_lang_cd(
63 p_govt_language_cd);
64 FETCH gc_govt_lang_cd INTO gv_closed_ind;
65 IF (gc_govt_lang_cd%FOUND) THEN
66 IF (gv_closed_ind = 'Y' ) THEN
67 CLOSE gc_govt_lang_cd;
68 p_message_name := 'IGS_EN_NOTDEL_LANGCD';
69 RETURN FALSE;
70 END IF;
71 END IF;
72 CLOSE gc_govt_lang_cd;
73 RETURN TRUE;
74 EXCEPTION
75 WHEN OTHERS THEN
76 Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
77 FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_VAL_LC.enrp_val_lang_govt');
78 IGS_GE_MSG_STACK.ADD;
79 App_Exception.Raise_Exception;
80
81
82 END;
83 END enrp_val_lang_govt;
84 END IGS_EN_VAL_LC;