[Home] [Help]
PACKAGE BODY: APPS.IRC_PARTY_BE4
Source
1 package body irc_party_be4 as
2 --Code generated on 30/03/2009 04:31:29
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure create_user_a (
5 p_user_name varchar2,
6 p_password varchar2,
7 p_start_date date,
8 p_email varchar2,
9 p_language varchar2,
10 p_allow_access varchar2,
11 p_last_name varchar2,
12 p_first_name varchar2,
13 p_per_information_category varchar2,
14 p_per_information1 varchar2,
15 p_per_information2 varchar2,
16 p_per_information3 varchar2,
17 p_per_information4 varchar2,
18 p_per_information5 varchar2,
19 p_per_information6 varchar2,
20 p_per_information7 varchar2,
21 p_per_information8 varchar2,
22 p_per_information9 varchar2,
23 p_per_information10 varchar2,
24 p_per_information11 varchar2,
25 p_per_information12 varchar2,
26 p_per_information13 varchar2,
27 p_per_information14 varchar2,
28 p_per_information15 varchar2,
29 p_per_information16 varchar2,
30 p_per_information17 varchar2,
31 p_per_information18 varchar2,
32 p_per_information19 varchar2,
33 p_per_information20 varchar2,
34 p_per_information21 varchar2,
35 p_per_information22 varchar2,
36 p_per_information23 varchar2,
37 p_per_information24 varchar2,
38 p_per_information25 varchar2,
39 p_per_information26 varchar2,
40 p_per_information27 varchar2,
41 p_per_information28 varchar2,
42 p_per_information29 varchar2,
43 p_per_information30 varchar2) is
44 l_event_key number;
45 l_event_data clob;
46 l_event_name varchar2(250);
47 l_text varchar2(2000);
48 l_message varchar2(10);
49 --
50 cursor get_seq is
51 select per_wf_events_s.nextval from dual;
52 --
53 l_proc varchar2(72):=' irc_party_be4.create_user_a';
54 begin
55 hr_utility.set_location('Entering: '||l_proc,10);
56 -- check the status of the business event
57 l_event_name:='oracle.apps.per.irc.api.party.create_user';
58 l_message:=wf_event.test(l_event_name);
59 --
60 if (l_message='MESSAGE') then
61 hr_utility.set_location(l_proc,20);
62 --
63 -- get a key for the event
64 --
65 open get_seq;
66 fetch get_seq into l_event_key;
67 close get_seq;
68 --
69 -- build the xml data for the event
70 --
71 dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
72 l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
73 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
74 l_text:='<party>';
75 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
76 --
77 l_text:='<user_name>';
78 l_text:=l_text||irc_utilities_pkg.removeTags(p_user_name);
79 l_text:=l_text||'</user_name>';
80 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
81 l_text:='<password>';
82 l_text:=l_text||irc_utilities_pkg.removeTags(p_password);
83 l_text:=l_text||'</password>';
84 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
85 l_text:='<start_date>';
86 l_text:=l_text||fnd_date.date_to_canonical(p_start_date);
87 l_text:=l_text||'</start_date>';
88 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
89 l_text:='<email>';
90 l_text:=l_text||irc_utilities_pkg.removeTags(p_email);
91 l_text:=l_text||'</email>';
92 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
93 l_text:='<language>';
94 l_text:=l_text||irc_utilities_pkg.removeTags(p_language);
95 l_text:=l_text||'</language>';
96 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
97 l_text:='<allow_access>';
98 l_text:=l_text||irc_utilities_pkg.removeTags(p_allow_access);
99 l_text:=l_text||'</allow_access>';
100 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
101 l_text:='<last_name>';
102 l_text:=l_text||irc_utilities_pkg.removeTags(p_last_name);
103 l_text:=l_text||'</last_name>';
104 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
105 l_text:='<first_name>';
106 l_text:=l_text||irc_utilities_pkg.removeTags(p_first_name);
107 l_text:=l_text||'</first_name>';
108 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
109 l_text:='<per_information_category>';
110 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information_category);
111 l_text:=l_text||'</per_information_category>';
112 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
113 l_text:='<per_information1>';
114 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information1);
115 l_text:=l_text||'</per_information1>';
116 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
117 l_text:='<per_information2>';
118 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information2);
119 l_text:=l_text||'</per_information2>';
120 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
121 l_text:='<per_information3>';
122 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information3);
123 l_text:=l_text||'</per_information3>';
124 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
125 l_text:='<per_information4>';
126 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information4);
127 l_text:=l_text||'</per_information4>';
128 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
129 l_text:='<per_information5>';
130 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information5);
131 l_text:=l_text||'</per_information5>';
132 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
133 l_text:='<per_information6>';
134 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information6);
135 l_text:=l_text||'</per_information6>';
136 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
137 l_text:='<per_information7>';
138 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information7);
139 l_text:=l_text||'</per_information7>';
140 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
141 l_text:='<per_information8>';
142 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information8);
143 l_text:=l_text||'</per_information8>';
144 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
145 l_text:='<per_information9>';
146 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information9);
147 l_text:=l_text||'</per_information9>';
148 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
149 l_text:='<per_information10>';
150 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information10);
151 l_text:=l_text||'</per_information10>';
152 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
153 l_text:='<per_information11>';
154 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information11);
155 l_text:=l_text||'</per_information11>';
156 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
157 l_text:='<per_information12>';
158 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information12);
159 l_text:=l_text||'</per_information12>';
160 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
161 l_text:='<per_information13>';
162 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information13);
163 l_text:=l_text||'</per_information13>';
164 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
165 l_text:='<per_information14>';
166 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information14);
167 l_text:=l_text||'</per_information14>';
168 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
169 l_text:='<per_information15>';
170 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information15);
171 l_text:=l_text||'</per_information15>';
172 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
173 l_text:='<per_information16>';
174 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information16);
175 l_text:=l_text||'</per_information16>';
176 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177 l_text:='<per_information17>';
178 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information17);
179 l_text:=l_text||'</per_information17>';
180 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
181 l_text:='<per_information18>';
182 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information18);
183 l_text:=l_text||'</per_information18>';
184 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
185 l_text:='<per_information19>';
186 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information19);
187 l_text:=l_text||'</per_information19>';
188 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
189 l_text:='<per_information20>';
190 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information20);
191 l_text:=l_text||'</per_information20>';
192 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
193 l_text:='<per_information21>';
194 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information21);
195 l_text:=l_text||'</per_information21>';
196 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
197 l_text:='<per_information22>';
198 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information22);
199 l_text:=l_text||'</per_information22>';
200 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
201 l_text:='<per_information23>';
202 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information23);
203 l_text:=l_text||'</per_information23>';
204 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
205 l_text:='<per_information24>';
206 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information24);
207 l_text:=l_text||'</per_information24>';
208 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
209 l_text:='<per_information25>';
210 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information25);
211 l_text:=l_text||'</per_information25>';
212 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
213 l_text:='<per_information26>';
214 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information26);
215 l_text:=l_text||'</per_information26>';
216 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
217 l_text:='<per_information27>';
218 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information27);
219 l_text:=l_text||'</per_information27>';
220 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
221 l_text:='<per_information28>';
222 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information28);
223 l_text:=l_text||'</per_information28>';
224 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
225 l_text:='<per_information29>';
226 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information29);
227 l_text:=l_text||'</per_information29>';
228 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
229 l_text:='<per_information30>';
230 l_text:=l_text||irc_utilities_pkg.removeTags(p_per_information30);
231 l_text:=l_text||'</per_information30>';
232 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
233 l_text:='</party>';
234 --
235 dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
236 --
237 -- raise the event with the event data
238 wf_event.raise(p_event_name=>l_event_name
239 ,p_event_key=>l_event_key
240 ,p_event_data=>l_event_data);
241 elsif (l_message='KEY') then
242 hr_utility.set_location(l_proc,30);
243 -- get a key for the event
244 open get_seq;
245 fetch get_seq into l_event_key;
246 close get_seq;
247 -- this is a key event, so just raise the event
248 -- without the event data
249 wf_event.raise(p_event_name=>l_event_name
250 ,p_event_key=>l_event_key);
251 elsif (l_message='NONE') then
252 hr_utility.set_location(l_proc,40);
253 -- no event is required, so do nothing
254 null;
255 end if;
256 hr_utility.set_location('Leaving: '||l_proc,50);
257 end create_user_a;
258 end irc_party_be4;