[Home] [Help]
PACKAGE BODY: APPS.HR_COMPETENCE_ELEMENT_BE5
Source
1 package body hr_competence_element_be5 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 maintain_student_comp_elemen_a (
5 p_person_id number,
6 p_competence_id number,
7 p_proficiency_level_id number,
8 p_business_group_id number,
9 p_effective_date_from date,
10 p_effective_date_to date,
11 p_certification_date date,
12 p_certification_method varchar2,
13 p_next_certification_date date,
14 p_source_of_proficiency_level varchar2,
15 p_comments varchar2,
16 p_effective_date date,
17 p_competence_created number) is
18 l_event_key number;
19 l_event_data clob;
20 l_event_name varchar2(250);
21 l_text varchar2(2000);
22 l_message varchar2(10);
23 --
24 cursor get_seq is
25 select per_wf_events_s.nextval from dual;
26 --
27 l_proc varchar2(72):=' hr_competence_element_be5.maintain_student_comp_elemen_a';
28 begin
29 hr_utility.set_location('Entering: '||l_proc,10);
30 -- check the status of the business event
31 l_event_name:='oracle.apps.per.api.competence_element.maintain_student_comp_elemen';
32 l_message:=wf_event.test(l_event_name);
33 --
34 if (l_message='MESSAGE') then
35 hr_utility.set_location(l_proc,20);
36 --
37 -- get a key for the event
38 --
39 open get_seq;
40 fetch get_seq into l_event_key;
41 close get_seq;
42 --
43 -- build the xml data for the event
44 --
45 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
46 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
47 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
48 l_text:='<competence_element>';
49 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
50 --
51 l_text:='<person_id>';
52 l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
53 l_text:=l_text||'</person_id>';
54 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
55 l_text:='<competence_id>';
56 l_text:=l_text||fnd_number.number_to_canonical(p_competence_id);
57 l_text:=l_text||'</competence_id>';
58 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
59 l_text:='<proficiency_level_id>';
60 l_text:=l_text||fnd_number.number_to_canonical(p_proficiency_level_id);
61 l_text:=l_text||'</proficiency_level_id>';
62 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
63 l_text:='<business_group_id>';
64 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
65 l_text:=l_text||'</business_group_id>';
66 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
67 l_text:='<effective_date_from>';
68 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date_from);
69 l_text:=l_text||'</effective_date_from>';
70 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
71 l_text:='<effective_date_to>';
72 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date_to);
73 l_text:=l_text||'</effective_date_to>';
74 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
75 l_text:='<certification_date>';
76 l_text:=l_text||fnd_date.date_to_canonical(p_certification_date);
77 l_text:=l_text||'</certification_date>';
78 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
79 l_text:='<certification_method>';
80 l_text:=l_text||irc_utilities_pkg.removeTags(p_certification_method);
81 l_text:=l_text||'</certification_method>';
82 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
83 l_text:='<next_certification_date>';
84 l_text:=l_text||fnd_date.date_to_canonical(p_next_certification_date);
85 l_text:=l_text||'</next_certification_date>';
86 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
87 l_text:='<source_of_proficiency_level>';
88 l_text:=l_text||irc_utilities_pkg.removeTags(p_source_of_proficiency_level);
89 l_text:=l_text||'</source_of_proficiency_level>';
90 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
91 l_text:='<comments>';
92 l_text:=l_text||irc_utilities_pkg.removeTags(p_comments);
93 l_text:=l_text||'</comments>';
94 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
95 l_text:='<effective_date>';
96 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
97 l_text:=l_text||'</effective_date>';
98 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
99 l_text:='<competence_created>';
100 l_text:=l_text||fnd_number.number_to_canonical(p_competence_created);
101 l_text:=l_text||'</competence_created>';
102 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
103 l_text:='</competence_element>';
104 --
105 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
106 --
107 -- raise the event with the event data
108 wf_event.raise(p_event_name=>l_event_name
109 ,p_event_key=>l_event_key
110 ,p_event_data=>l_event_data);
111 --
112 elsif (l_message='KEY') then
113 hr_utility.set_location(l_proc,30);
114 -- get a key for the event
115 open get_seq;
116 fetch get_seq into l_event_key;
117 close get_seq;
118 -- this is a key event, so just raise the event
119 -- without the event data
120 wf_event.raise(p_event_name=>l_event_name
121 ,p_event_key=>l_event_key);
122 --
123 elsif (l_message='NONE') then
124 hr_utility.set_location(l_proc,40);
125 -- no event is required, so do nothing
126 null;
127 end if;
128 hr_utility.set_location('Leaving: '||l_proc,50);
129 end maintain_student_comp_elemen_a;
130 end hr_competence_element_be5;