DBA Data[Home] [Help]

PACKAGE BODY: APPS.IRC_NOTIFICATION_PREFS_BE2

Source


1 package body irc_notification_prefs_be2 as 
2 --Code generated on 06/11/2008 12:45:34
3 /* $Header: hrapiwfe.pkb 120.4 2008/02/15 06:27:49 viviswan ship $*/
4 procedure update_notification_prefs_a (
5 p_party_id                     number,
6 p_person_id                    number,
7 p_notification_preference_id   number,
8 p_effective_date               date,
9 p_matching_jobs                varchar2,
10 p_matching_job_freq            varchar2,
11 p_allow_access                 varchar2,
12 p_receive_info_mail            varchar2,
13 p_object_version_number        number,
14 p_address_id                   number,
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_agency_id                    number,
47 p_attempt_id                   number) is
48   l_event_key number;
49   l_event_data clob;
50   l_event_name varchar2(250);
51   l_text varchar2(2000);
52   l_message varchar2(10);
53   --
54   cursor get_seq is
55   select per_wf_events_s.nextval from dual;
56   --
57   l_proc varchar2(72):='  irc_notification_prefs_be2.update_notification_prefs_a';
58 begin
59   hr_utility.set_location('Entering: '||l_proc,10);
60   -- check the status of the business event
61   l_event_name:='oracle.apps.per.irc.api.notification_prefs.update_notification_prefs';
62   l_message:=wf_event.test(l_event_name);
63   --
64   if (l_message='MESSAGE') then
65     hr_utility.set_location(l_proc,20);
66     --
67     -- get a key for the event
68     --
69     open get_seq;
70     fetch get_seq into l_event_key;
71     close get_seq;
72     --
73     -- build the xml data for the event
74     --
75     dbms_lob.createTemporary(l_event_data,false,dbms_lob.call);
76     l_text:='<?xml version =''1.0'' encoding =''ASCII''?>';
77     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
78     l_text:='<notification_prefs>';
79     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
80     --
81     l_text:='<party_id>';
82     l_text:=l_text||fnd_number.number_to_canonical(p_party_id);
83     l_text:=l_text||'</party_id>';
84     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
85     l_text:='<person_id>';
86     l_text:=l_text||fnd_number.number_to_canonical(p_person_id);
87     l_text:=l_text||'</person_id>';
88     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
89     l_text:='<notification_preference_id>';
90     l_text:=l_text||fnd_number.number_to_canonical(p_notification_preference_id);
91     l_text:=l_text||'</notification_preference_id>';
92     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
93     l_text:='<effective_date>';
94     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
95     l_text:=l_text||'</effective_date>';
96     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
97     l_text:='<matching_jobs>';
98     l_text:=l_text||irc_utilities_pkg.removeTags(p_matching_jobs);
99     l_text:=l_text||'</matching_jobs>';
100     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
101     l_text:='<matching_job_freq>';
102     l_text:=l_text||irc_utilities_pkg.removeTags(p_matching_job_freq);
103     l_text:=l_text||'</matching_job_freq>';
104     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
105     l_text:='<allow_access>';
106     l_text:=l_text||irc_utilities_pkg.removeTags(p_allow_access);
107     l_text:=l_text||'</allow_access>';
108     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
109     l_text:='<receive_info_mail>';
110     l_text:=l_text||irc_utilities_pkg.removeTags(p_receive_info_mail);
111     l_text:=l_text||'</receive_info_mail>';
112     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
113     l_text:='<object_version_number>';
114     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
115     l_text:=l_text||'</object_version_number>';
116     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
117     l_text:='<address_id>';
118     l_text:=l_text||fnd_number.number_to_canonical(p_address_id);
119     l_text:=l_text||'</address_id>';
120     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
121     l_text:='<attribute_category>';
122     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
123     l_text:=l_text||'</attribute_category>';
124     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
125     l_text:='<attribute1>';
126     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
127     l_text:=l_text||'</attribute1>';
128     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
129     l_text:='<attribute2>';
130     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
131     l_text:=l_text||'</attribute2>';
132     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
133     l_text:='<attribute3>';
134     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
135     l_text:=l_text||'</attribute3>';
136     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
137     l_text:='<attribute4>';
138     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
139     l_text:=l_text||'</attribute4>';
140     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
141     l_text:='<attribute5>';
142     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
143     l_text:=l_text||'</attribute5>';
144     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
145     l_text:='<attribute6>';
146     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
147     l_text:=l_text||'</attribute6>';
148     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
149     l_text:='<attribute7>';
150     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
151     l_text:=l_text||'</attribute7>';
152     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
153     l_text:='<attribute8>';
154     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
155     l_text:=l_text||'</attribute8>';
156     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
157     l_text:='<attribute9>';
158     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
159     l_text:=l_text||'</attribute9>';
160     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
161     l_text:='<attribute10>';
162     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
163     l_text:=l_text||'</attribute10>';
164     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
165     l_text:='<attribute11>';
166     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
167     l_text:=l_text||'</attribute11>';
168     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
169     l_text:='<attribute12>';
170     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
171     l_text:=l_text||'</attribute12>';
172     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
173     l_text:='<attribute13>';
174     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
175     l_text:=l_text||'</attribute13>';
176     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177     l_text:='<attribute14>';
178     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
179     l_text:=l_text||'</attribute14>';
180     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
181     l_text:='<attribute15>';
182     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
183     l_text:=l_text||'</attribute15>';
184     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
185     l_text:='<attribute16>';
186     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
187     l_text:=l_text||'</attribute16>';
188     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
189     l_text:='<attribute17>';
190     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
191     l_text:=l_text||'</attribute17>';
192     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
193     l_text:='<attribute18>';
194     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
195     l_text:=l_text||'</attribute18>';
196     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
197     l_text:='<attribute19>';
198     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
199     l_text:=l_text||'</attribute19>';
200     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
201     l_text:='<attribute20>';
202     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
203     l_text:=l_text||'</attribute20>';
204     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
205     l_text:='<attribute21>';
206     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute21);
207     l_text:=l_text||'</attribute21>';
208     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
209     l_text:='<attribute22>';
210     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute22);
211     l_text:=l_text||'</attribute22>';
212     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
213     l_text:='<attribute23>';
214     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute23);
215     l_text:=l_text||'</attribute23>';
216     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
217     l_text:='<attribute24>';
218     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute24);
219     l_text:=l_text||'</attribute24>';
220     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
221     l_text:='<attribute25>';
222     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute25);
223     l_text:=l_text||'</attribute25>';
224     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
225     l_text:='<attribute26>';
226     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute26);
227     l_text:=l_text||'</attribute26>';
228     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
229     l_text:='<attribute27>';
230     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute27);
231     l_text:=l_text||'</attribute27>';
232     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
233     l_text:='<attribute28>';
234     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute28);
235     l_text:=l_text||'</attribute28>';
236     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
237     l_text:='<attribute29>';
238     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute29);
239     l_text:=l_text||'</attribute29>';
240     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
241     l_text:='<attribute30>';
242     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute30);
243     l_text:=l_text||'</attribute30>';
244     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
245     l_text:='<agency_id>';
246     l_text:=l_text||fnd_number.number_to_canonical(p_agency_id);
247     l_text:=l_text||'</agency_id>';
248     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
249     l_text:='<attempt_id>';
250     l_text:=l_text||fnd_number.number_to_canonical(p_attempt_id);
251     l_text:=l_text||'</attempt_id>';
252     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
253     l_text:='</notification_prefs>';
254     --
255     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
256     --
257     -- raise the event with the event data
258     wf_event.raise(p_event_name=>l_event_name
259                   ,p_event_key=>l_event_key
260                   ,p_event_data=>l_event_data);
261     --
262   elsif (l_message='KEY') then
263     hr_utility.set_location(l_proc,30);
264     -- get a key for the event
265     open get_seq;
266     fetch get_seq into l_event_key;
267     close get_seq;
268     -- this is a key event, so just raise the event
269     -- without the event data
270     wf_event.raise(p_event_name=>l_event_name
271                   ,p_event_key=>l_event_key);
272     --
273   elsif (l_message='NONE') then
274     hr_utility.set_location(l_proc,40);
275     -- no event is required, so do nothing
276     null;
277   end if;
278     hr_utility.set_location('Leaving: '||l_proc,50);
279 end update_notification_prefs_a;
280 end irc_notification_prefs_be2;