PACKAGE BODY: APPS.OTA_EXTRA_COMPETENCE_CHK

Source

1 Package Body ota_extra_competence_chk  as
2 /* $Header: otcmpchk.pkb 115.2 2001/12/09 02:29:24 pkm ship        $ */
3 
4 procedure chk_competence
5   (p_competence_id                   in     number
6    ) is
7 
8 l_competence_id  number;
9 
10 Cursor c_comp
11 is
12 select competence_id
13 from ota_competence_languages
14 where competence_id = p_competence_id;
15 
16 begin
17    --
18    --
19 
20    open c_comp;
21    fetch c_comp into l_competence_id;
22    close c_comp;
23 
24    if l_competence_id is not null then
25        fnd_message.set_name('OTA','OTA_COMP_EXIST');
26        fnd_message.raise_error;
27    end if;
28 
29 end chk_competence;
30 
31 end ota_extra_competence_chk;