DBA Data[Home] [Help]

PACKAGE BODY: APPS.HR_PHONE_BE2

Source


1 package body hr_phone_be2 as 
2 --Code generated on 30/03/2009 04:46:36
3 /* $Header: hrapiwfe.pkb 120.4.12010000.2 2008/09/29 12:54:07 srgnanas ship $*/
4 procedure update_phone_a (
5 p_phone_id                     number,
6 p_date_from                    date,
7 p_date_to                      date,
8 p_phone_type                   varchar2,
9 p_phone_number                 varchar2,
10 p_attribute_category           varchar2,
11 p_attribute1                   varchar2,
12 p_attribute2                   varchar2,
13 p_attribute3                   varchar2,
14 p_attribute4                   varchar2,
15 p_attribute5                   varchar2,
16 p_attribute6                   varchar2,
17 p_attribute7                   varchar2,
18 p_attribute8                   varchar2,
19 p_attribute9                   varchar2,
20 p_attribute10                  varchar2,
21 p_attribute11                  varchar2,
22 p_attribute12                  varchar2,
23 p_attribute13                  varchar2,
24 p_attribute14                  varchar2,
25 p_attribute15                  varchar2,
26 p_attribute16                  varchar2,
27 p_attribute17                  varchar2,
28 p_attribute18                  varchar2,
29 p_attribute19                  varchar2,
30 p_attribute20                  varchar2,
31 p_attribute21                  varchar2,
32 p_attribute22                  varchar2,
33 p_attribute23                  varchar2,
34 p_attribute24                  varchar2,
35 p_attribute25                  varchar2,
36 p_attribute26                  varchar2,
37 p_attribute27                  varchar2,
38 p_attribute28                  varchar2,
39 p_attribute29                  varchar2,
40 p_attribute30                  varchar2,
41 p_object_version_number        number,
42 p_effective_date               date,
43 p_validity                     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):='  hr_phone_be2.update_phone_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.api.phone.update_phone';
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:='<phone>';
75     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
76     --
77     l_text:='<phone_id>';
78     l_text:=l_text||fnd_number.number_to_canonical(p_phone_id);
79     l_text:=l_text||'</phone_id>';
80     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
81     l_text:='<date_from>';
82     l_text:=l_text||fnd_date.date_to_canonical(p_date_from);
83     l_text:=l_text||'</date_from>';
84     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
85     l_text:='<date_to>';
86     l_text:=l_text||fnd_date.date_to_canonical(p_date_to);
87     l_text:=l_text||'</date_to>';
88     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
89     l_text:='<phone_type>';
90     l_text:=l_text||irc_utilities_pkg.removeTags(p_phone_type);
91     l_text:=l_text||'</phone_type>';
92     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
93     l_text:='<phone_number>';
94     l_text:=l_text||irc_utilities_pkg.removeTags(p_phone_number);
95     l_text:=l_text||'</phone_number>';
96     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
97     l_text:='<attribute_category>';
98     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute_category);
99     l_text:=l_text||'</attribute_category>';
100     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
101     l_text:='<attribute1>';
102     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute1);
103     l_text:=l_text||'</attribute1>';
104     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
105     l_text:='<attribute2>';
106     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute2);
107     l_text:=l_text||'</attribute2>';
108     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
109     l_text:='<attribute3>';
110     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute3);
111     l_text:=l_text||'</attribute3>';
112     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
113     l_text:='<attribute4>';
114     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute4);
115     l_text:=l_text||'</attribute4>';
116     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
117     l_text:='<attribute5>';
118     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute5);
119     l_text:=l_text||'</attribute5>';
120     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
121     l_text:='<attribute6>';
122     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute6);
123     l_text:=l_text||'</attribute6>';
124     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
125     l_text:='<attribute7>';
126     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute7);
127     l_text:=l_text||'</attribute7>';
128     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
129     l_text:='<attribute8>';
130     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute8);
131     l_text:=l_text||'</attribute8>';
132     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
133     l_text:='<attribute9>';
134     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute9);
135     l_text:=l_text||'</attribute9>';
136     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
137     l_text:='<attribute10>';
138     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute10);
139     l_text:=l_text||'</attribute10>';
140     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
141     l_text:='<attribute11>';
142     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute11);
143     l_text:=l_text||'</attribute11>';
144     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
145     l_text:='<attribute12>';
146     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute12);
147     l_text:=l_text||'</attribute12>';
148     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
149     l_text:='<attribute13>';
150     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute13);
151     l_text:=l_text||'</attribute13>';
152     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
153     l_text:='<attribute14>';
154     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute14);
155     l_text:=l_text||'</attribute14>';
156     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
157     l_text:='<attribute15>';
158     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute15);
159     l_text:=l_text||'</attribute15>';
160     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
161     l_text:='<attribute16>';
162     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute16);
163     l_text:=l_text||'</attribute16>';
164     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
165     l_text:='<attribute17>';
166     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute17);
167     l_text:=l_text||'</attribute17>';
168     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
169     l_text:='<attribute18>';
170     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute18);
171     l_text:=l_text||'</attribute18>';
172     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
173     l_text:='<attribute19>';
174     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute19);
175     l_text:=l_text||'</attribute19>';
176     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
177     l_text:='<attribute20>';
178     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute20);
179     l_text:=l_text||'</attribute20>';
180     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
181     l_text:='<attribute21>';
182     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute21);
183     l_text:=l_text||'</attribute21>';
184     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
185     l_text:='<attribute22>';
186     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute22);
187     l_text:=l_text||'</attribute22>';
188     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
189     l_text:='<attribute23>';
190     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute23);
191     l_text:=l_text||'</attribute23>';
192     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
193     l_text:='<attribute24>';
194     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute24);
195     l_text:=l_text||'</attribute24>';
196     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
197     l_text:='<attribute25>';
198     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute25);
199     l_text:=l_text||'</attribute25>';
200     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
201     l_text:='<attribute26>';
202     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute26);
203     l_text:=l_text||'</attribute26>';
204     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
205     l_text:='<attribute27>';
206     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute27);
207     l_text:=l_text||'</attribute27>';
208     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
209     l_text:='<attribute28>';
210     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute28);
211     l_text:=l_text||'</attribute28>';
212     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
213     l_text:='<attribute29>';
214     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute29);
215     l_text:=l_text||'</attribute29>';
216     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
217     l_text:='<attribute30>';
218     l_text:=l_text||irc_utilities_pkg.removeTags(p_attribute30);
219     l_text:=l_text||'</attribute30>';
220     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
221     l_text:='<object_version_number>';
222     l_text:=l_text||fnd_number.number_to_canonical(p_object_version_number);
223     l_text:=l_text||'</object_version_number>';
224     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
225     l_text:='<effective_date>';
226     l_text:=l_text||fnd_date.date_to_canonical(p_effective_date);
227     l_text:=l_text||'</effective_date>';
228     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
229     l_text:='<validity>';
230     l_text:=l_text||irc_utilities_pkg.removeTags(p_validity);
231     l_text:=l_text||'</validity>';
232     dbms_lob.writeAppend(l_event_data,length(l_text),l_text);
233     l_text:='</phone>';
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 update_phone_a;
258 end hr_phone_be2;