[Home] [Help]
PACKAGE BODY: APPS.OTA_CERT_ENROLLMENT_BE2
Source
1 package body ota_cert_enrollment_be2 as
2 --Code generated on 30/03/2009 04:39:24
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_cert_enrollment_a (
5 p_effective_date date,
6 p_cert_enrollment_id number,
7 p_object_version_number number,
8 p_certification_id number,
9 p_person_id number,
10 p_contact_id number,
11 p_certification_status_code varchar2,
12 p_completion_date date,
13 p_unenrollment_date date,
14 p_expiration_date date,
15 p_earliest_enroll_date date,
16 p_is_history_flag varchar2,
17 p_business_group_id number,
18 p_attribute_category varchar2,
19 p_attribute1 varchar2,
20 p_attribute2 varchar2,
21 p_attribute3 varchar2,
22 p_attribute4 varchar2,
23 p_attribute5 varchar2,
24 p_attribute6 varchar2,
25 p_attribute7 varchar2,
26 p_attribute8 varchar2,
27 p_attribute9 varchar2,
28 p_attribute10 varchar2,
29 p_attribute11 varchar2,
30 p_attribute12 varchar2,
31 p_attribute13 varchar2,
32 p_attribute14 varchar2,
33 p_attribute15 varchar2,
34 p_attribute16 varchar2,
35 p_attribute17 varchar2,
36 p_attribute18 varchar2,
37 p_attribute19 varchar2,
38 p_attribute20 varchar2,
39 p_enrollment_date date) is
40 l_event_key number;
41 l_event_data clob;
42 l_event_name varchar2(250);
43 l_text varchar2(2000);
44 l_message varchar2(10);
45 --
46 cursor get_seq is
47 select per_wf_events_s.nextval from dual;
48 --
49 l_proc varchar2(72):=' ota_cert_enrollment_be2.update_cert_enrollment_a';
50 begin
51 hr_utility.set_location('Entering: '||l_proc,10);
52 -- check the status of the business event
53 l_event_name:='oracle.apps.ota.api.cert_enrollment.update_cert_enrollment';
54 l_message:=wf_event.test(l_event_name);
55 --
56 if (l_message='MESSAGE') then
57 hr_utility.set_location(l_proc,20);
58 --
59 -- get a key for the event
60 --
61 open get_seq;
62 fetch get_seq into l_event_key;
63 close get_seq;
64 --
65 -- build the xml data for the event
66 --
67 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
68 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
69 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
70 l_text:='<cert_enrollment>';
71 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
72 --
73 l_text:='<effective_date>';
74 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
75 l_text:=l_text||'</effective_date>';
76 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
77 l_text:='<cert_enrollment_id>';
78 l_text:=l_text||fnd_number.number_to_canonical(p_cert_enrollment_id);
79 l_text:=l_text||'</cert_enrollment_id>';
80 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
81 l_text:='<object_version_number>';
82 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
83 l_text:=l_text||'</object_version_number>';
84 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
85 l_text:='<certification_id>';
86 l_text:=l_text||fnd_number.number_to_canonical(p_certification_id);
87 l_text:=l_text||'</certification_id>';
88 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
89 l_text:='<person_id>';
90 l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
91 l_text:=l_text||'</person_id>';
92 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
93 l_text:='<contact_id>';
94 l_text:=l_text||fnd_number.number_to_canonical(p_contact_id);
95 l_text:=l_text||'</contact_id>';
96 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
97 l_text:='<certification_status_code>';
98 l_text:=l_text||irc_utilities_pkg.removeTags(p_certification_status_code);
99 l_text:=l_text||'</certification_status_code>';
100 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
101 l_text:='<completion_date>';
102 l_text:=l_text||fnd_date.date_to_canonical(p_completion_date);
103 l_text:=l_text||'</completion_date>';
104 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
105 l_text:='<unenrollment_date>';
106 l_text:=l_text||fnd_date.date_to_canonical(p_unenrollment_date);
107 l_text:=l_text||'</unenrollment_date>';
108 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
109 l_text:='<expiration_date>';
110 l_text:=l_text||fnd_date.date_to_canonical(p_expiration_date);
111 l_text:=l_text||'</expiration_date>';
112 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
113 l_text:='<earliest_enroll_date>';
114 l_text:=l_text||fnd_date.date_to_canonical(p_earliest_enroll_date);
115 l_text:=l_text||'</earliest_enroll_date>';
116 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
117 l_text:='<is_history_flag>';
118 l_text:=l_text||irc_utilities_pkg.removeTags(p_is_history_flag);
119 l_text:=l_text||'</is_history_flag>';
120 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
121 l_text:='<business_group_id>';
122 l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
123 l_text:=l_text||'</business_group_id>';
124 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
125 l_text:='<attribute_category>';
126 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
127 l_text:=l_text||'</attribute_category>';
128 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
129 l_text:='<attribute1>';
130 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
131 l_text:=l_text||'</attribute1>';
132 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
133 l_text:='<attribute2>';
134 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
135 l_text:=l_text||'</attribute2>';
136 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
137 l_text:='<attribute3>';
138 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
139 l_text:=l_text||'</attribute3>';
140 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
141 l_text:='<attribute4>';
142 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
143 l_text:=l_text||'</attribute4>';
144 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
145 l_text:='<attribute5>';
146 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
147 l_text:=l_text||'</attribute5>';
148 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
149 l_text:='<attribute6>';
150 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
151 l_text:=l_text||'</attribute6>';
152 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
153 l_text:='<attribute7>';
154 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
155 l_text:=l_text||'</attribute7>';
156 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
157 l_text:='<attribute8>';
158 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
159 l_text:=l_text||'</attribute8>';
160 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
161 l_text:='<attribute9>';
162 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
163 l_text:=l_text||'</attribute9>';
164 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
165 l_text:='<attribute10>';
166 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
167 l_text:=l_text||'</attribute10>';
168 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
169 l_text:='<attribute11>';
170 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
171 l_text:=l_text||'</attribute11>';
172 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
173 l_text:='<attribute12>';
174 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
175 l_text:=l_text||'</attribute12>';
176 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177 l_text:='<attribute13>';
178 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
179 l_text:=l_text||'</attribute13>';
180 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
181 l_text:='<attribute14>';
182 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
183 l_text:=l_text||'</attribute14>';
184 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
185 l_text:='<attribute15>';
186 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
187 l_text:=l_text||'</attribute15>';
188 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
189 l_text:='<attribute16>';
190 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
191 l_text:=l_text||'</attribute16>';
192 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
193 l_text:='<attribute17>';
194 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
195 l_text:=l_text||'</attribute17>';
196 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
197 l_text:='<attribute18>';
198 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
199 l_text:=l_text||'</attribute18>';
200 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
201 l_text:='<attribute19>';
202 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
203 l_text:=l_text||'</attribute19>';
204 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
205 l_text:='<attribute20>';
206 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
207 l_text:=l_text||'</attribute20>';
208 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
209 l_text:='<enrollment_date>';
210 l_text:=l_text||fnd_date.date_to_canonical(p_enrollment_date);
211 l_text:=l_text||'</enrollment_date>';
212 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
213 l_text:='</cert_enrollment>';
214 --
215 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
216 --
217 -- raise the event with the event data
218 wf_event.raise(p_event_name=>l_event_name
219 ,p_event_key=>l_event_key
220 ,p_event_data=>l_event_data);
221 elsif (l_message='KEY') then
222 hr_utility.set_location(l_proc,30);
223 -- get a key for the event
224 open get_seq;
225 fetch get_seq into l_event_key;
226 close get_seq;
227 -- this is a key event, so just raise the event
228 -- without the event data
229 wf_event.raise(p_event_name=>l_event_name
230 ,p_event_key=>l_event_key);
231 elsif (l_message='NONE') then
232 hr_utility.set_location(l_proc,40);
233 -- no event is required, so do nothing
234 null;
235 end if;
236 hr_utility.set_location('Leaving: '||l_proc,50);
237 end update_cert_enrollment_a;
238 end ota_cert_enrollment_be2;