[Home] [Help]
PACKAGE BODY: APPS.PER_BOOKINGS_SWI
Source
1 PACKAGE BODY PER_BOOKINGS_SWI As
2 /* $Header: pebkgswi.pkb 120.3 2007/12/14 11:13:30 uuddavol noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'per_bookings_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-------------------------< create_per_booking >---------------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_per_bookings
12 (p_Rowid IN OUT NOCOPY VARCHAR2
13 ,p_Booking_Id IN OUT NOCOPY NUMBER
14 ,p_Business_Group_Id NUMBER
15 ,p_Person_Id NUMBER
16 ,p_Event_Id NUMBER
17 ,p_Message VARCHAR2 default hr_api.g_varchar2
18 ,p_Token VARCHAR2 default hr_api.g_varchar2
19 ,p_Comments VARCHAR2 default hr_api.g_varchar2
20 ,p_Attribute_Category VARCHAR2 default hr_api.g_varchar2
21 ,p_Attribute1 VARCHAR2 default hr_api.g_varchar2
22 ,p_Attribute2 VARCHAR2 default hr_api.g_varchar2
23 ,p_Attribute3 VARCHAR2 default hr_api.g_varchar2
24 ,p_Attribute4 VARCHAR2 default hr_api.g_varchar2
25 ,p_Attribute5 VARCHAR2 default hr_api.g_varchar2
26 ,p_Attribute6 VARCHAR2 default hr_api.g_varchar2
27 ,p_Attribute7 VARCHAR2 default hr_api.g_varchar2
28 ,p_Attribute8 VARCHAR2 default hr_api.g_varchar2
29 ,p_Attribute9 VARCHAR2 default hr_api.g_varchar2
30 ,p_Attribute10 VARCHAR2 default hr_api.g_varchar2
31 ,p_Attribute11 VARCHAR2 default hr_api.g_varchar2
32 ,p_Attribute12 VARCHAR2 default hr_api.g_varchar2
33 ,p_Attribute13 VARCHAR2 default hr_api.g_varchar2
34 ,p_Attribute14 VARCHAR2 default hr_api.g_varchar2
35 ,p_Attribute15 VARCHAR2 default hr_api.g_varchar2
36 ,p_Attribute16 VARCHAR2 default hr_api.g_varchar2
37 ,p_Attribute17 VARCHAR2 default hr_api.g_varchar2
38 ,p_Attribute18 VARCHAR2 default hr_api.g_varchar2
39 ,p_Attribute19 VARCHAR2 default hr_api.g_varchar2
40 ,p_Attribute20 VARCHAR2 default hr_api.g_varchar2
41 ,p_Primary_Interviewer_Flag VARCHAR2 default null
42 ,p_return_status out nocopy varchar2
43 ) is
44 --
45 -- Variables for API Boolean parameters
46 l_validate boolean;
47 --
48 -- Variables for IN/OUT parameters
49 --
50 -- Other variables
51 l_interview_details_id number;
52 l_proc varchar2(72) := g_package ||'create_per_bookings';
53 Begin
54 hr_utility.set_location(' Entering:' || l_proc,10);
55 --
56 -- Issue a savepoint
57 --
58 savepoint create_per_bookings_swi;
59 --
60 -- Initialise Multiple Message Detection
61 --
62 hr_multi_message.enable_message_list;
63 --
64 -- Remember IN OUT parameter IN values
65 --
66 -- Call API
67 --
68 per_bookings_pkg.Insert_Row(X_Rowid => p_Rowid
69 ,X_Booking_Id => p_Booking_Id
70 ,X_Business_Group_Id => p_Business_Group_Id
71 ,X_Person_Id => p_Person_Id
72 ,X_Event_Id => p_Event_Id
73 ,X_Message => p_Message
74 ,X_Token => p_Token
75 ,X_Comments => p_Comments
76 ,X_Attribute_Category => p_Attribute_Category
77 ,X_Attribute1 => p_Attribute1
78 ,X_Attribute2 => p_Attribute2
79 ,X_Attribute3 => p_Attribute3
80 ,X_Attribute4 => p_Attribute4
81 ,X_Attribute5 => p_Attribute5
82 ,X_Attribute6 => p_Attribute6
83 ,X_Attribute7 => p_Attribute7
84 ,X_Attribute8 => p_Attribute8
85 ,X_Attribute9 => p_Attribute9
86 ,X_Attribute10 => p_Attribute10
87 ,X_Attribute11 => p_Attribute11
88 ,X_Attribute12 => p_Attribute12
89 ,X_Attribute13 => p_Attribute13
90 ,X_Attribute14 => p_Attribute14
91 ,X_Attribute15 => p_Attribute15
92 ,X_Attribute16 => p_Attribute16
93 ,X_Attribute17 => p_Attribute17
94 ,X_Attribute18 => p_Attribute18
95 ,X_Attribute19 => p_Attribute19
96 ,X_Attribute20 => p_Attribute20
97 ,X_Primary_Interviewer_Flag => p_Primary_Interviewer_Flag
98 );
99 p_return_status := hr_multi_message.get_return_status_disable;
100 hr_utility.set_location(' Leaving:' || l_proc, 20);
101 --
102 exception
103 when hr_multi_message.error_message_exist then
104 --
105 -- Catch the Multiple Message List exception which
106 -- indicates API processing has been aborted because
107 -- at least one message exists in the list.
108 --
109 rollback to create_per_bookings_swi;
110 --
111 -- Reset IN OUT parameters and set OUT parameters
112 --
113 p_return_status := hr_multi_message.get_return_status_disable;
114 hr_utility.set_location(' Leaving:' || l_proc, 30);
115 when others then
116 --
117 -- When Multiple Message Detection is enabled catch
118 -- any Application specific or other unexpected
119 -- exceptions. Adding appropriate details to the
120 -- Multiple Message List. Otherwise re-raise the
121 -- error.
122 --
123 rollback to create_per_bookings_swi;
124 if hr_multi_message.unexpected_error_add(l_proc) then
125 hr_utility.set_location(' Leaving:' || l_proc,40);
126 raise;
127 end if;
128 --
129 -- Reset IN OUT and set OUT parameters
130 --
131 p_return_status := hr_multi_message.get_return_status_disable;
132 hr_utility.set_location(' Leaving:' || l_proc,50);
133 end create_per_bookings;
134 --
135 --
136 -- ----------------------------------------------------------------------------
137 -- |-------------------------< update_per_bookings ---------------------------|
138 -- ----------------------------------------------------------------------------
139 PROCEDURE update_per_bookings
140 (p_Rowid IN OUT NOCOPY VARCHAR2
141 ,p_Booking_Id IN OUT NOCOPY NUMBER
142 ,p_Business_Group_Id NUMBER
143 ,p_Person_Id NUMBER
144 ,p_Event_Id NUMBER
145 ,p_Message VARCHAR2 default hr_api.g_varchar2
146 ,p_Token VARCHAR2 default hr_api.g_varchar2
147 ,p_Comments VARCHAR2 default hr_api.g_varchar2
148 ,p_Attribute_Category VARCHAR2 default hr_api.g_varchar2
149 ,p_Attribute1 VARCHAR2 default hr_api.g_varchar2
150 ,p_Attribute2 VARCHAR2 default hr_api.g_varchar2
151 ,p_Attribute3 VARCHAR2 default hr_api.g_varchar2
152 ,p_Attribute4 VARCHAR2 default hr_api.g_varchar2
153 ,p_Attribute5 VARCHAR2 default hr_api.g_varchar2
154 ,p_Attribute6 VARCHAR2 default hr_api.g_varchar2
155 ,p_Attribute7 VARCHAR2 default hr_api.g_varchar2
156 ,p_Attribute8 VARCHAR2 default hr_api.g_varchar2
157 ,p_Attribute9 VARCHAR2 default hr_api.g_varchar2
158 ,p_Attribute10 VARCHAR2 default hr_api.g_varchar2
159 ,p_Attribute11 VARCHAR2 default hr_api.g_varchar2
160 ,p_Attribute12 VARCHAR2 default hr_api.g_varchar2
161 ,p_Attribute13 VARCHAR2 default hr_api.g_varchar2
162 ,p_Attribute14 VARCHAR2 default hr_api.g_varchar2
163 ,p_Attribute15 VARCHAR2 default hr_api.g_varchar2
164 ,p_Attribute16 VARCHAR2 default hr_api.g_varchar2
165 ,p_Attribute17 VARCHAR2 default hr_api.g_varchar2
166 ,p_Attribute18 VARCHAR2 default hr_api.g_varchar2
167 ,p_Attribute19 VARCHAR2 default hr_api.g_varchar2
168 ,p_Attribute20 VARCHAR2 default hr_api.g_varchar2
169 ,p_Primary_Interviewer_Flag VARCHAR2 default null
170 ,p_return_status out nocopy varchar2
171 ) is
172 --
173 -- Variables for API Boolean parameters
174 l_validate boolean;
175 --
176 -- Variables for IN/OUT parameters
177 --
178 -- Other variables
179 l_interview_details_id number;
180 l_proc varchar2(72) := g_package ||'update_per_bookings';
181 --
182 cursor csr_rowid is
183 select rowid
184 from per_bookings
185 where booking_id = p_Booking_Id;
186 Begin
187 hr_utility.set_location(' Entering:' || l_proc,10);
188 --
189 -- Issue a savepoint
190 --
191 savepoint update_per_bookings_swi;
192 --
193 -- Initialise Multiple Message Detection
194 --
195 hr_multi_message.enable_message_list;
196 --
197 open csr_rowid;
198 fetch csr_rowid into p_Rowid;
199 if csr_rowid%found then
200 close csr_rowid;
201 else
202 close csr_rowid;
203 -- booking_id is invalid, raise error
204 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
205 fnd_message.raise_error;
206 end if;
207 --
208 -- Call API
209 --
210 per_bookings_pkg.Update_Row(X_Rowid => p_Rowid
211 ,X_Booking_Id => p_Booking_Id
212 ,X_Business_Group_Id => p_Business_Group_Id
213 ,X_Person_Id => p_Person_Id
214 ,X_Event_Id => p_Event_Id
215 ,X_Message => p_Message
216 ,X_Token => p_Token
217 ,X_Comments => p_Comments
218 ,X_Attribute_Category => p_Attribute_Category
219 ,X_Attribute1 => p_Attribute1
220 ,X_Attribute2 => p_Attribute2
221 ,X_Attribute3 => p_Attribute3
222 ,X_Attribute4 => p_Attribute4
223 ,X_Attribute5 => p_Attribute5
224 ,X_Attribute6 => p_Attribute6
225 ,X_Attribute7 => p_Attribute7
226 ,X_Attribute8 => p_Attribute8
227 ,X_Attribute9 => p_Attribute9
228 ,X_Attribute10 => p_Attribute10
229 ,X_Attribute11 => p_Attribute11
230 ,X_Attribute12 => p_Attribute12
231 ,X_Attribute13 => p_Attribute13
232 ,X_Attribute14 => p_Attribute14
233 ,X_Attribute15 => p_Attribute15
234 ,X_Attribute16 => p_Attribute16
235 ,X_Attribute17 => p_Attribute17
236 ,X_Attribute18 => p_Attribute18
237 ,X_Attribute19 => p_Attribute19
238 ,X_Attribute20 => p_Attribute20
239 ,X_Primary_Interviewer_Flag => p_Primary_Interviewer_Flag
240 );
241 p_return_status := hr_multi_message.get_return_status_disable;
242 hr_utility.set_location(' Leaving:' || l_proc, 20);
243 --
244 exception
245 when hr_multi_message.error_message_exist then
246 --
247 -- Catch the Multiple Message List exception which
248 -- indicates API processing has been aborted because
249 -- at least one message exists in the list.
250 --
251 rollback to update_per_bookings_swi;
252 --
253 -- Reset IN OUT parameters and set OUT parameters
254 --
255 p_return_status := hr_multi_message.get_return_status_disable;
256 hr_utility.set_location(' Leaving:' || l_proc, 30);
257 when others then
258 --
259 -- When Multiple Message Detection is enabled catch
260 -- any Application specific or other unexpected
261 -- exceptions. Adding appropriate details to the
262 -- Multiple Message List. Otherwise re-raise the
263 -- error.
264 --
265 rollback to update_per_bookings_swi;
266 if hr_multi_message.unexpected_error_add(l_proc) then
267 hr_utility.set_location(' Leaving:' || l_proc,40);
268 raise;
269 end if;
270 --
271 -- Reset IN OUT and set OUT parameters
272 --
273 p_return_status := hr_multi_message.get_return_status_disable;
274 hr_utility.set_location(' Leaving:' || l_proc,50);
275 end update_per_bookings;
276 -- ----------------------------------------------------------------------------
277 PROCEDURE delete_per_bookings
278 (p_Booking_Id IN NUMBER
279 ,p_return_status out nocopy varchar2
280 ) is
281 l_Rowid VARCHAR2(30);
282 l_proc varchar2(72) := g_package ||'delete_per_bookings';
283 cursor csr_rowid is
284 select rowid
285 from per_bookings
286 where booking_id = p_Booking_Id;
287 begin
288 hr_utility.set_location(' Entering:' || l_proc,10);
289 --
290 -- Issue a savepoint
291 --
292 savepoint delete_per_bookings_swi;
293 --
294 -- Initialise Multiple Message Detection
295 --
296 hr_multi_message.enable_message_list;
297 --
298 open csr_rowid;
299 fetch csr_rowid into l_Rowid;
300 if csr_rowid%found then
301 close csr_rowid;
302 else
303 close csr_rowid;
304 -- booking_id is invalid, raise error
305 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
306 fnd_message.raise_error;
307 end if;
308 --
309 -- Call API
310 --
311 per_bookings_pkg.Delete_Row(X_Rowid => l_Rowid);
312 --
313 p_return_status := hr_multi_message.get_return_status_disable;
314 hr_utility.set_location(' Leaving:' || l_proc, 20);
315 ---
316 exception
317 when hr_multi_message.error_message_exist then
318 --
319 -- Catch the Multiple Message List exception which
320 -- indicates API processing has been aborted because
321 -- at least one message exists in the list.
322 --
323 rollback to delete_per_bookings_swi;
324 --
325 -- Reset IN OUT parameters and set OUT parameters
326 --
327 p_return_status := hr_multi_message.get_return_status_disable;
328 hr_utility.set_location(' Leaving:' || l_proc, 30);
329 when others then
330 --
331 -- When Multiple Message Detection is enabled catch
332 -- any Application specific or other unexpected
333 -- exceptions. Adding appropriate details to the
334 -- Multiple Message List. Otherwise re-raise the
335 -- error.
336 --
337 rollback to delete_per_bookings_swi;
338 if hr_multi_message.unexpected_error_add(l_proc) then
339 hr_utility.set_location(' Leaving:' || l_proc,40);
340 raise;
341 end if;
342 --
343 -- Reset IN OUT and set OUT parameters
344 --
345 p_return_status := hr_multi_message.get_return_status_disable;
346 hr_utility.set_location(' Leaving:' || l_proc,50);
347 end delete_per_bookings;
348
349 --
350 end PER_BOOKINGS_SWI;