[Home] [Help]
PACKAGE BODY: APPS.HR_ORGANIZATION_BE2
Source
1 package body hr_organization_be2 as
2 --Code generated on 30/03/2009 04:46:12
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_org_information_a (
5 p_effective_date date,
6 p_org_info_type_code varchar2,
7 p_org_information1 varchar2,
8 p_org_information2 varchar2,
9 p_org_information3 varchar2,
10 p_org_information4 varchar2,
11 p_org_information5 varchar2,
12 p_org_information6 varchar2,
13 p_org_information7 varchar2,
14 p_org_information8 varchar2,
15 p_org_information9 varchar2,
16 p_org_information10 varchar2,
17 p_org_information11 varchar2,
18 p_org_information12 varchar2,
19 p_org_information13 varchar2,
20 p_org_information14 varchar2,
21 p_org_information15 varchar2,
22 p_org_information16 varchar2,
23 p_org_information17 varchar2,
24 p_org_information18 varchar2,
25 p_org_information19 varchar2,
26 p_org_information20 varchar2,
27 p_org_information_id number,
28 p_attribute_category varchar2,
29 p_attribute1 varchar2,
30 p_attribute2 varchar2,
31 p_attribute3 varchar2,
32 p_attribute4 varchar2,
33 p_attribute5 varchar2,
34 p_attribute6 varchar2,
35 p_attribute7 varchar2,
36 p_attribute8 varchar2,
37 p_attribute9 varchar2,
38 p_attribute10 varchar2,
39 p_attribute11 varchar2,
40 p_attribute12 varchar2,
41 p_attribute13 varchar2,
42 p_attribute14 varchar2,
43 p_attribute15 varchar2,
44 p_attribute16 varchar2,
45 p_attribute17 varchar2,
46 p_attribute18 varchar2,
47 p_attribute19 varchar2,
48 p_attribute20 varchar2,
49 p_object_version_number number) is
50 l_event_key number;
51 l_event_data clob;
52 l_event_name varchar2(250);
53 l_text varchar2(2000);
54 l_message varchar2(10);
55 --
56 cursor get_seq is
57 select per_wf_events_s.nextval from dual;
58 --
59 l_proc varchar2(72):=' hr_organization_be2.update_org_information_a';
60 begin
61 hr_utility.set_location('Entering: '||l_proc,10);
62 -- check the status of the business event
63 l_event_name:='oracle.apps.per.api.organization.update_org_information';
64 l_message:=wf_event.test(l_event_name);
65 --
66 if (l_message='MESSAGE') then
67 hr_utility.set_location(l_proc,20);
68 --
69 -- get a key for the event
70 --
71 open get_seq;
72 fetch get_seq into l_event_key;
73 close get_seq;
74 --
75 -- build the xml data for the event
76 --
77 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
78 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
79 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
80 l_text:='<organization>';
81 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
82 --
83 l_text:='<effective_date>';
84 l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
85 l_text:=l_text||'</effective_date>';
86 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
87 l_text:='<org_info_type_code>';
88 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_info_type_code);
89 l_text:=l_text||'</org_info_type_code>';
90 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
91 l_text:='<org_information1>';
92 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information1);
93 l_text:=l_text||'</org_information1>';
94 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
95 l_text:='<org_information2>';
96 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information2);
97 l_text:=l_text||'</org_information2>';
98 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
99 l_text:='<org_information3>';
100 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information3);
101 l_text:=l_text||'</org_information3>';
102 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
103 l_text:='<org_information4>';
104 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information4);
105 l_text:=l_text||'</org_information4>';
106 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
107 l_text:='<org_information5>';
108 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information5);
109 l_text:=l_text||'</org_information5>';
110 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
111 l_text:='<org_information6>';
112 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information6);
113 l_text:=l_text||'</org_information6>';
114 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
115 l_text:='<org_information7>';
116 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information7);
117 l_text:=l_text||'</org_information7>';
118 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
119 l_text:='<org_information8>';
120 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information8);
121 l_text:=l_text||'</org_information8>';
122 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
123 l_text:='<org_information9>';
124 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information9);
125 l_text:=l_text||'</org_information9>';
126 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
127 l_text:='<org_information10>';
128 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information10);
129 l_text:=l_text||'</org_information10>';
130 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
131 l_text:='<org_information11>';
132 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information11);
133 l_text:=l_text||'</org_information11>';
134 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
135 l_text:='<org_information12>';
136 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information12);
137 l_text:=l_text||'</org_information12>';
138 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
139 l_text:='<org_information13>';
140 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information13);
141 l_text:=l_text||'</org_information13>';
142 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
143 l_text:='<org_information14>';
144 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information14);
145 l_text:=l_text||'</org_information14>';
146 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
147 l_text:='<org_information15>';
148 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information15);
149 l_text:=l_text||'</org_information15>';
150 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
151 l_text:='<org_information16>';
152 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information16);
153 l_text:=l_text||'</org_information16>';
154 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
155 l_text:='<org_information17>';
156 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information17);
157 l_text:=l_text||'</org_information17>';
158 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
159 l_text:='<org_information18>';
160 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information18);
161 l_text:=l_text||'</org_information18>';
162 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
163 l_text:='<org_information19>';
164 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information19);
165 l_text:=l_text||'</org_information19>';
166 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
167 l_text:='<org_information20>';
168 l_text:=l_text||irc_utilities_pkg.removeTags(p_org_information20);
169 l_text:=l_text||'</org_information20>';
170 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
171 l_text:='<org_information_id>';
172 l_text:=l_text||fnd_number.number_to_canonical(p_org_information_id);
173 l_text:=l_text||'</org_information_id>';
174 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
175 l_text:='<attribute_category>';
176 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
177 l_text:=l_text||'</attribute_category>';
178 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
179 l_text:='<attribute1>';
180 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
181 l_text:=l_text||'</attribute1>';
182 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
183 l_text:='<attribute2>';
184 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
185 l_text:=l_text||'</attribute2>';
186 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
187 l_text:='<attribute3>';
188 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
189 l_text:=l_text||'</attribute3>';
190 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
191 l_text:='<attribute4>';
192 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
193 l_text:=l_text||'</attribute4>';
194 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
195 l_text:='<attribute5>';
196 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
197 l_text:=l_text||'</attribute5>';
198 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
199 l_text:='<attribute6>';
200 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
201 l_text:=l_text||'</attribute6>';
202 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
203 l_text:='<attribute7>';
204 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
205 l_text:=l_text||'</attribute7>';
206 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
207 l_text:='<attribute8>';
208 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
209 l_text:=l_text||'</attribute8>';
210 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
211 l_text:='<attribute9>';
212 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
213 l_text:=l_text||'</attribute9>';
214 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
215 l_text:='<attribute10>';
216 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
217 l_text:=l_text||'</attribute10>';
218 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
219 l_text:='<attribute11>';
220 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
221 l_text:=l_text||'</attribute11>';
222 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
223 l_text:='<attribute12>';
224 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
225 l_text:=l_text||'</attribute12>';
226 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
227 l_text:='<attribute13>';
228 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
229 l_text:=l_text||'</attribute13>';
230 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
231 l_text:='<attribute14>';
232 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
233 l_text:=l_text||'</attribute14>';
234 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
235 l_text:='<attribute15>';
236 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
237 l_text:=l_text||'</attribute15>';
238 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
239 l_text:='<attribute16>';
240 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
241 l_text:=l_text||'</attribute16>';
242 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
243 l_text:='<attribute17>';
244 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
245 l_text:=l_text||'</attribute17>';
246 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
247 l_text:='<attribute18>';
248 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
249 l_text:=l_text||'</attribute18>';
250 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
251 l_text:='<attribute19>';
252 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
253 l_text:=l_text||'</attribute19>';
254 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
255 l_text:='<attribute20>';
256 l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
257 l_text:=l_text||'</attribute20>';
258 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
259 l_text:='<object_version_number>';
260 l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
261 l_text:=l_text||'</object_version_number>';
262 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
263 l_text:='</organization>';
264 --
265 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
266 --
267 -- raise the event with the event data
268 wf_event.raise(p_event_name=>l_event_name
269 ,p_event_key=>l_event_key
270 ,p_event_data=>l_event_data);
271 elsif (l_message='KEY') then
272 hr_utility.set_location(l_proc,30);
273 -- get a key for the event
274 open get_seq;
275 fetch get_seq into l_event_key;
276 close get_seq;
277 -- this is a key event, so just raise the event
278 -- without the event data
279 wf_event.raise(p_event_name=>l_event_name
280 ,p_event_key=>l_event_key);
281 elsif (l_message='NONE') then
282 hr_utility.set_location(l_proc,40);
283 -- no event is required, so do nothing
284 null;
285 end if;
286 hr_utility.set_location('Leaving: '||l_proc,50);
287 end update_org_information_a;
288 end hr_organization_be2;