PACKAGE BODY: APPS.HR_COMPETENCE_ELEMENT_BE6

Source

1 package body hr_competence_element_be6 as 
2 --Code generated on 03/01/2007 10:48:46
3 /* $Header: hrapiwfe.pkb 120.3 2006/06/20 10:26:28 sayyampe noship $*/
4 procedure copy_competencies_a (
5 p_activity_version_from        number,
6 p_activity_version_id          number,
7 p_activity_version_to          number,
8 p_competence_type              varchar2) is
9   l_event_key number;
10   l_event_data clob;
11   l_event_name varchar2(250);
12   l_text varchar2(2000);
13   l_message varchar2(10);
14   --
15   cursor get_seq is
16   select per_wf_events_s.nextval from dual;
17   --
18   l_proc varchar2(72):='  hr_competence_element_be6.copy_competencies_a';
19 begin
20   hr_utility.set_location('Entering: '||l_proc,10);
21   -- check the status of the business event
22   l_event_name:='oracle.apps.per.api.competence_element.copy_competencies';
23   l_message:=wf_event.test(l_event_name);
24   --
25   if (l_message='MESSAGE') then
26     hr_utility.set_location(l_proc,20);
27     --
28     -- get a key for the event
29     --
30     open get_seq;
31     fetch get_seq into l_event_key;
32     close get_seq;
33     --
34     -- build the xml data for the event
35     --
36     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
37     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
38     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
39     l_text:='<competence_element>';
40     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
41     --
42     l_text:='<activity_version_from>';
43     l_text:=l_text||fnd_number.number_to_canonical(p_activity_version_from);
44     l_text:=l_text||'</activity_version_from>';
45     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
46     l_text:='<activity_version_id>';
47     l_text:=l_text||fnd_number.number_to_canonical(p_activity_version_id);
48     l_text:=l_text||'</activity_version_id>';
49     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
50     l_text:='<activity_version_to>';
51     l_text:=l_text||fnd_number.number_to_canonical(p_activity_version_to);
52     l_text:=l_text||'</activity_version_to>';
53     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
54     l_text:='<competence_type>';
55     l_text:=l_text||irc_utilities_pkg.removeTags(p_competence_type);
56     l_text:=l_text||'</competence_type>';
57     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
58     l_text:='</competence_element>';
59     --
60     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
61     --
62     -- raise the event with the event data
63     wf_event.raise(p_event_name=>l_event_name
64                   ,p_event_key=>l_event_key
65                   ,p_event_data=>l_event_data);
66     --
67   elsif (l_message='KEY') then
68     hr_utility.set_location(l_proc,30);
69     -- get a key for the event
70     open get_seq;
71     fetch get_seq into l_event_key;
72     close get_seq;
73     -- this is a key event, so just raise the event
74     -- without the event data
75     wf_event.raise(p_event_name=>l_event_name
76                   ,p_event_key=>l_event_key);
77     --
78   elsif (l_message='NONE') then
79     hr_utility.set_location(l_proc,40);
80     -- no event is required, so do nothing
81     null;
82   end if;
83     hr_utility.set_location('Leaving: '||l_proc,50);
84 end copy_competencies_a;
85 end hr_competence_element_be6;