eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.HR_ORGANIZATION_BE9

Source


1 package body hr_organization_be9 as 
2 --Code generated on 30/03/2009 04:46:33
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure create_hr_organization_a (
5 p_effective_date               date,
6 p_business_group_id            number,
7 p_name                         varchar2,
8 p_date_from                    date,
9 p_language_code                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_enabled_flag                 varchar2,
16 p_segment1                     varchar2,
17 p_segment2                     varchar2,
18 p_segment3                     varchar2,
19 p_segment4                     varchar2,
20 p_segment5                     varchar2,
21 p_segment6                     varchar2,
22 p_segment7                     varchar2,
23 p_segment8                     varchar2,
24 p_segment9                     varchar2,
25 p_segment10                    varchar2,
26 p_segment11                    varchar2,
27 p_segment12                    varchar2,
28 p_segment13                    varchar2,
29 p_segment14                    varchar2,
30 p_segment15                    varchar2,
31 p_segment16                    varchar2,
32 p_segment17                    varchar2,
33 p_segment18                    varchar2,
34 p_segment19                    varchar2,
35 p_segment20                    varchar2,
36 p_segment21                    varchar2,
37 p_segment22                    varchar2,
38 p_segment23                    varchar2,
39 p_segment24                    varchar2,
40 p_segment25                    varchar2,
41 p_segment26                    varchar2,
42 p_segment27                    varchar2,
43 p_segment28                    varchar2,
44 p_segment29                    varchar2,
45 p_segment30                    varchar2,
46 p_concat_segments              varchar2,
47 p_object_version_number_inf    number,
48 p_object_version_number_org    number,
49 p_organization_id              number,
50 p_org_information_id           number,
51 p_duplicate_org_warning        boolean) is
52   l_event_key number;
53   l_event_data clob;
54   l_event_name varchar2(250);
55   l_text varchar2(2000);
56   l_message varchar2(10);
57   --
58   cursor get_seq is
59   select per_wf_events_s.nextval from dual;
60   --
61   l_proc varchar2(72):='  hr_organization_be9.create_hr_organization_a';
62 begin
63   hr_utility.set_location('Entering: '||l_proc,10);
64   -- check the status of the business event
65   l_event_name:='oracle.apps.per.api.organization.create_hr_organization';
66   l_message:=wf_event.test(l_event_name);
67   --
68   if (l_message='MESSAGE') then
69     hr_utility.set_location(l_proc,20);
70     --
71     -- get a key for the event
72     --
73     open get_seq;
74     fetch get_seq into l_event_key;
75     close get_seq;
76     --
77     -- build the xml data for the event
78     --
79     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
80     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
81     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
82     l_text:='<organization>';
83     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
84     --
85     l_text:='<effective_date>';
86     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
87     l_text:=l_text||'</effective_date>';
88     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
89     l_text:='<business_group_id>';
90     l_text:=l_text||fnd_number.number_to_canonical(p_business_group_id);
91     l_text:=l_text||'</business_group_id>';
92     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
93     l_text:='<name>';
94     l_text:=l_text||irc_utilities_pkg.removeTags(p_name);
95     l_text:=l_text||'</name>';
96     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
97     l_text:='<date_from>';
98     l_text:=l_text||fnd_date.date_to_canonical(p_date_from);
99     l_text:=l_text||'</date_from>';
100     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
101     l_text:='<language_code>';
102     l_text:=l_text||irc_utilities_pkg.removeTags(p_language_code);
103     l_text:=l_text||'</language_code>';
104     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
105     l_text:='<location_id>';
106     l_text:=l_text||fnd_number.number_to_canonical(p_location_id);
107     l_text:=l_text||'</location_id>';
108     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
109     l_text:='<date_to>';
110     l_text:=l_text||fnd_date.date_to_canonical(p_date_to);
111     l_text:=l_text||'</date_to>';
112     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
113     l_text:='<internal_external_flag>';
114     l_text:=l_text||irc_utilities_pkg.removeTags(p_internal_external_flag);
115     l_text:=l_text||'</internal_external_flag>';
116     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
117     l_text:='<internal_address_line>';
118     l_text:=l_text||irc_utilities_pkg.removeTags(p_internal_address_line);
119     l_text:=l_text||'</internal_address_line>';
120     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
121     l_text:='<type>';
122     l_text:=l_text||irc_utilities_pkg.removeTags(p_type);
123     l_text:=l_text||'</type>';
124     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
125     l_text:='<enabled_flag>';
126     l_text:=l_text||irc_utilities_pkg.removeTags(p_enabled_flag);
127     l_text:=l_text||'</enabled_flag>';
128     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
129     l_text:='<segment1>';
130     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment1);
131     l_text:=l_text||'</segment1>';
132     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
133     l_text:='<segment2>';
134     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment2);
135     l_text:=l_text||'</segment2>';
136     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
137     l_text:='<segment3>';
138     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment3);
139     l_text:=l_text||'</segment3>';
140     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
141     l_text:='<segment4>';
142     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment4);
143     l_text:=l_text||'</segment4>';
144     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
145     l_text:='<segment5>';
146     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment5);
147     l_text:=l_text||'</segment5>';
148     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
149     l_text:='<segment6>';
150     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment6);
151     l_text:=l_text||'</segment6>';
152     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
153     l_text:='<segment7>';
154     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment7);
155     l_text:=l_text||'</segment7>';
156     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
157     l_text:='<segment8>';
158     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment8);
159     l_text:=l_text||'</segment8>';
160     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
161     l_text:='<segment9>';
162     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment9);
163     l_text:=l_text||'</segment9>';
164     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
165     l_text:='<segment10>';
166     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment10);
167     l_text:=l_text||'</segment10>';
168     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
169     l_text:='<segment11>';
170     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment11);
171     l_text:=l_text||'</segment11>';
172     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
173     l_text:='<segment12>';
174     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment12);
175     l_text:=l_text||'</segment12>';
176     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177     l_text:='<segment13>';
178     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment13);
179     l_text:=l_text||'</segment13>';
180     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
181     l_text:='<segment14>';
182     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment14);
183     l_text:=l_text||'</segment14>';
184     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
185     l_text:='<segment15>';
186     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment15);
187     l_text:=l_text||'</segment15>';
188     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
189     l_text:='<segment16>';
190     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment16);
191     l_text:=l_text||'</segment16>';
192     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
193     l_text:='<segment17>';
194     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment17);
195     l_text:=l_text||'</segment17>';
196     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
197     l_text:='<segment18>';
198     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment18);
199     l_text:=l_text||'</segment18>';
200     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
201     l_text:='<segment19>';
202     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment19);
203     l_text:=l_text||'</segment19>';
204     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
205     l_text:='<segment20>';
206     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment20);
207     l_text:=l_text||'</segment20>';
208     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
209     l_text:='<segment21>';
210     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment21);
211     l_text:=l_text||'</segment21>';
212     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
213     l_text:='<segment22>';
214     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment22);
215     l_text:=l_text||'</segment22>';
216     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
217     l_text:='<segment23>';
218     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment23);
219     l_text:=l_text||'</segment23>';
220     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
221     l_text:='<segment24>';
222     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment24);
223     l_text:=l_text||'</segment24>';
224     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
225     l_text:='<segment25>';
226     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment25);
227     l_text:=l_text||'</segment25>';
228     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
229     l_text:='<segment26>';
230     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment26);
231     l_text:=l_text||'</segment26>';
232     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
233     l_text:='<segment27>';
234     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment27);
235     l_text:=l_text||'</segment27>';
236     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
237     l_text:='<segment28>';
238     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment28);
239     l_text:=l_text||'</segment28>';
240     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
241     l_text:='<segment29>';
242     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment29);
243     l_text:=l_text||'</segment29>';
244     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
245     l_text:='<segment30>';
246     l_text:=l_text||irc_utilities_pkg.removeTags(p_segment30);
247     l_text:=l_text||'</segment30>';
248     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
249     l_text:='<concat_segments>';
250     l_text:=l_text||irc_utilities_pkg.removeTags(p_concat_segments);
251     l_text:=l_text||'</concat_segments>';
252     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
253     l_text:='<object_version_number_inf>';
254     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number_inf);
255     l_text:=l_text||'</object_version_number_inf>';
256     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
257     l_text:='<object_version_number_org>';
258     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number_org);
259     l_text:=l_text||'</object_version_number_org>';
260     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
261     l_text:='<organization_id>';
262     l_text:=l_text||fnd_number.number_to_canonical(p_organization_id);
263     l_text:=l_text||'</organization_id>';
264     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
265     l_text:='<org_information_id>';
266     l_text:=l_text||fnd_number.number_to_canonical(p_org_information_id);
267     l_text:=l_text||'</org_information_id>';
268     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
269     l_text:='<duplicate_org_warning>';
270 if(P_DUPLICATE_ORG_WARNING) then
271 l_text:=l_text||'TRUE';
272 else
273 l_text:=l_text||'FALSE';
274 end if;
275     l_text:=l_text||'</duplicate_org_warning>';
276     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
277     l_text:='</organization>';
278     --
279     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
280     --
281     -- raise the event with the event data
282     wf_event.raise(p_event_name=>l_event_name
283                   ,p_event_key=>l_event_key
284                   ,p_event_data=>l_event_data);
285   elsif (l_message='KEY') then
286     hr_utility.set_location(l_proc,30);
287     -- get a key for the event
288     open get_seq;
289     fetch get_seq into l_event_key;
290     close get_seq;
291     -- this is a key event, so just raise the event
292     -- without the event data
293     wf_event.raise(p_event_name=>l_event_name
294                   ,p_event_key=>l_event_key);
295   elsif (l_message='NONE') then
296     hr_utility.set_location(l_proc,40);
297     -- no event is required, so do nothing
298     null;
299   end if;
300     hr_utility.set_location('Leaving: '||l_proc,50);
301 end create_hr_organization_a;
302 end hr_organization_be9;