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