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