DBA Data[Home] [Help]

PACKAGE BODY: APPS.IRC_NOTIFICATION_PREFS_BE1

Source


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