[Home] [Help]
PACKAGE BODY: APPS.PAY_PPE_API
Source
1 Package Body pay_ppe_api as
2 /* $Header: pyppeapi.pkb 120.2.12010000.1 2008/07/27 23:25:01 appldev ship $ */
3 --
4 g_package varchar2(33) := ' pay_ppe_api.';
5 --
6 -- ----------------------------------------------------------------------------
7 -- |--------------------------<create_process_event >-------------------------|
8 -- ----------------------------------------------------------------------------
9 -- {Start Of Comments}
10 --
11 -- Description:
12 -- This API creates enforcing the required business rules.
13 --
14 procedure create_process_event(
15 p_validate in boolean default false
16 ,p_assignment_id in number default null
17 ,p_effective_date in date
18 ,p_change_type in varchar2
19 ,p_status in varchar2
20 ,p_description in varchar2 default null
21 ,p_process_event_id out nocopy number
22 ,p_object_version_number out nocopy number
23 ,p_event_update_id in number default null
24 ,p_org_process_event_group_id in number default null
25 ,p_business_group_id in number default null
26 ,p_surrogate_key in varchar2 default null
27 ,p_calculation_date in date default null
28 ,p_retroactive_status in varchar2 default null
29 ,p_noted_value in varchar2 default null
30 ) is
31 --
32 -- Declare cursors and local variables
33 --
34 l_proc varchar2(72) := g_package||'create_process_event';
35 l_object_version_number number;
36 l_process_event_id number;
37 --
38 begin
39 hr_utility.set_location('Entering:'|| l_proc, 10);
40 --
41 If p_validate then
42 savepoint create_process_event;
43 End If;
44 --
45 hr_utility.set_location(l_proc, 20);
46 --
47 -- Start of API User Hook for the before hook of create_dateteacked_event.
48 --
49 begin
50 pay_ppe_bk1.create_process_event_b
51 (
52 p_assignment_id => p_assignment_id
53 ,p_effective_date => p_effective_date
54 ,p_change_type => p_change_type
55 ,p_status => p_status
56 ,p_description => p_description
57 ,p_event_update_id => p_event_update_id
58 ,p_org_process_event_group_id => p_org_process_event_group_id
59 ,p_business_group_id => p_business_group_id
60 ,p_surrogate_key => p_surrogate_key
61 ,p_calculation_date => p_calculation_date
62 ,p_retroactive_status => p_retroactive_status
63 ,p_noted_value => p_noted_value
64 );
65 exception
66 when hr_api.cannot_find_prog_unit then
67 hr_api.cannot_find_prog_unit_error
68 (p_module_name => 'CREATE_PROCESS_EVENT',
69 p_hook_type => 'BP'
70 );
71 end;
72 --
73 -- Process Logic
74 --
75 pay_pev_ins.ins
76 (
77 p_effective_date => p_effective_date
78 ,p_change_type => p_change_type
79 ,p_status => p_status
80 ,p_assignment_id => p_assignment_id
81 ,p_description => p_description
82 ,p_event_update_id => p_event_update_id
83 ,p_business_group_id => p_business_group_id
84 ,p_org_process_event_group_id => p_org_process_event_group_id
85 ,p_surrogate_key => p_surrogate_key
86 ,p_calculation_date => p_calculation_date
87 ,p_retroactive_status => p_retroactive_status
88 ,p_noted_value => p_noted_value
89 ,p_process_event_id => l_process_event_id
90 ,p_object_version_number => l_object_version_number
91 );
92 --
93 --
94 -- Start of API User Hook for the after hook of create_PROCESS_EVENT
95 --
96 begin
97 pay_ppe_bk1.create_process_event_a
98 (
99 p_assignment_id => p_assignment_id
100 ,p_effective_date => p_effective_date
101 ,p_change_type => p_change_type
102 ,p_status => p_status
103 ,p_description => p_description
104 ,p_process_event_id => l_process_event_id
105 ,p_object_version_number => l_object_version_number
106 ,p_event_update_id => p_event_update_id
107 ,p_org_process_event_group_id => p_org_process_event_group_id
108 ,p_business_group_id => p_business_group_id
109 ,p_surrogate_key => p_surrogate_key
110 ,p_calculation_date => p_calculation_date
111 ,p_retroactive_status => p_retroactive_status
112 ,p_noted_value => p_noted_value
113 );
114 exception
115 when hr_api.cannot_find_prog_unit then
116 hr_api.cannot_find_prog_unit_error
117 (p_module_name => 'CREATE_PROCESS_EVENT',
118 p_hook_type => 'AP'
119 );
120 end;
121 --
122 If p_validate then
123 Raise HR_Api.Validate_Enabled;
124 End If;
125 --
126 p_object_version_number := l_object_version_number;
127 --
128 exception
129 --
130 when HR_Api.Validate_Enabled then
131 --
132 -- A validation or unexpected error has occured
133 --
134 ROLLBACK TO create_process_event;
135 --
136 p_process_event_id := null;
137 p_object_version_number := null;
138 --
139 end create_process_event;
140 -- ----------------------------------------------------------------------------
141 -- |--------------------------<update_process_event >-------------------------|
142 -- ----------------------------------------------------------------------------
143 -- {Start Of Comments}
144 --
145 -- Description:
146 -- This API updates an existing process event.
147 --
148 procedure update_process_event
149 (
150 p_validate in boolean default false
151 ,p_process_event_id in number
152 ,p_object_version_number in out nocopy number
153 ,p_assignment_id in number default hr_api.g_number
154 ,p_effective_date in date default hr_api.g_date
155 ,p_change_type in varchar2 default hr_api.g_varchar2
156 ,p_status in varchar2 default hr_api.g_varchar2
157 ,p_description in varchar2 default hr_api.g_varchar2
158 ,p_event_update_id in number default hr_api.g_number
159 ,p_org_process_event_group_id in number default hr_api.g_number
160 ,p_business_group_id in number default hr_api.g_number
161 ,p_surrogate_key in varchar2 default hr_api.g_varchar2
162 ,p_calculation_date in date default hr_api.g_date
163 ,p_retroactive_status in varchar2 default hr_api.g_varchar2
164 ,p_noted_value in varchar2 default hr_api.g_varchar2
165 )is
166 --
167 -- Declare cursors and local variables
168 --
169 l_proc varchar2(72) := g_package ||'update_process_event';
170 l_object_version_number number;
171 --
172 begin
173 --
174 hr_utility.set_location('Entering:'|| l_proc, 10);
175 --
176 If p_validate then
177 savepoint update_process_event;
178 End If;
179 --
180 l_object_version_number := p_object_version_number;
181 --
182 -- Start of API User Hook for the before hook of update_PROCESS_EVENT.
183 --
184 begin
185 pay_ppe_bk2.update_process_event_b
186 (p_process_event_id => p_process_event_id
187 ,p_object_version_number => p_object_version_number
188 ,p_assignment_id => p_assignment_id
189 ,p_effective_date => p_effective_date
190 ,p_change_type => p_change_type
191 ,p_status => p_status
192 ,p_description => p_description
193 ,p_event_update_id => p_event_update_id
194 ,p_org_process_event_group_id => p_org_process_event_group_id
195 ,p_business_group_id => p_business_group_id
196 ,p_surrogate_key => p_surrogate_key
197 ,p_calculation_date => p_calculation_date
198 ,p_retroactive_status => p_retroactive_status
199 ,p_noted_value => p_noted_value
200 );
201 exception
202 when hr_api.cannot_find_prog_unit then
203 hr_api.cannot_find_prog_unit_error
204 (p_module_name => 'UPDATE_PROCESS_EVENT',
205 p_hook_type => 'BP'
206 );
207 end;
208 --
209 pay_pev_upd.upd
210 (p_process_event_id => p_process_event_id
211 ,p_object_version_number => p_object_version_number
212 ,p_effective_date => p_effective_date
213 ,p_change_type => p_change_type
214 ,p_status => p_status
215 ,p_assignment_id => p_assignment_id
216 ,p_description => p_description
217 ,p_event_update_id => p_event_update_id
218 ,p_business_group_id => p_business_group_id
219 ,p_org_process_event_group_id => p_org_process_event_group_id
220 ,p_surrogate_key => p_surrogate_key
221 ,p_calculation_date => p_calculation_date
222 ,p_retroactive_status => p_retroactive_status
223 ,p_noted_value => p_noted_value
224 );
225 --
226 --
227 -- Start of API User Hook for the after hook of update_PROCESS_EVENT.
228 --
229 begin
230 pay_ppe_bk2.update_process_event_a
231 (p_process_event_id => p_process_event_id
232 ,p_object_version_number => p_object_version_number
233 ,p_assignment_id => p_assignment_id
234 ,p_effective_date => p_effective_date
235 ,p_change_type => p_change_type
236 ,p_status => p_status
237 ,p_description => p_description
238 ,p_event_update_id => p_event_update_id
239 ,p_org_process_event_group_id => p_org_process_event_group_id
240 ,p_business_group_id => p_business_group_id
241 ,p_surrogate_key => p_surrogate_key
242 ,p_calculation_date => p_calculation_date
243 ,p_retroactive_status => p_retroactive_status
244 ,p_noted_value => p_noted_value
245 );
246 exception
247 when hr_api.cannot_find_prog_unit then
248 hr_api.cannot_find_prog_unit_error
249 (p_module_name => 'UPDATE_PROCESS_EVENT',
250 p_hook_type => 'AP'
251 );
252 end;
253 --
254 -- End of API User Hook for the after hook of update_PROCESS_EVENT.
255 --
256 hr_utility.set_location('Entering:'|| l_proc, 20);
257 --
258 If p_validate then
259 Raise HR_Api.Validate_Enabled;
260 End If;
261 --
262 exception
263 --
264 when HR_Api.Validate_Enabled then
265 --
266 -- A validation or unexpected error has occured
267 --
268 ROLLBACK TO update_process_event;
269 --
270 p_object_version_number := l_object_version_number;
271 --
272 end update_process_event;
273 --
274 -- ----------------------------------------------------------------------------
275 -- |--------------------------< delete_process_event >--------------------------|
276 -- ----------------------------------------------------------------------------
277 -- {Start Of Comments}
278 --
279 -- Description:
280 -- This API deletes an existing process event.
281 --
282 procedure delete_process_event
283 (p_validate in boolean default false
284 ,p_process_event_id in number
285 ,p_object_version_number in number
286 ) is
287 --
288 -- Declare cursors and local variables
289 --
290 l_proc varchar2(72) := g_package||'delete_process_event';
291 l_object_version_number number;
292 --
293 begin
294 hr_utility.set_location('Entering:'|| l_proc, 10);
295 --
296 If p_validate then
297 savepoint delete_process_event;
298 End If;
299 --
300 l_object_version_number:= p_object_version_number;
301 --
302 -- Start of API User Hook for the before hook of delete_PROCESS_EVENT.
303 --
304 begin
305 pay_ppe_bk3.delete_process_event_b
306 (
307 p_process_event_id => p_process_event_id
308 ,p_object_version_number => l_object_version_number
309 );
310 exception
311 when hr_api.cannot_find_prog_unit then
312 hr_api.cannot_find_prog_unit_error
313 (p_module_name => 'DELETE_PROCESS_EVENT',
314 p_hook_type => 'BP'
315 );
316 end;
317 --
318 pay_pev_del.del
319 (
320 p_process_event_id => p_process_event_id
321 ,p_object_version_number => l_object_version_number
322 );
323 hr_utility.set_location(' Leaving:'||l_proc, 70);
324 --
325 -- Start of API User Hook for the after hook of DELETE_PROCESS_EVENT.
326 --
327 begin
328 pay_ppe_bk3.delete_process_event_a
329 (
330 p_process_event_id => p_process_event_id
331 ,p_object_version_number => l_object_version_number
332 );
333 exception
334 when hr_api.cannot_find_prog_unit then
335 hr_api.cannot_find_prog_unit_error
336 (p_module_name => 'DELETE_PROCESS_EVENT',
337 p_hook_type => 'AP'
338 );
339 end;
340 --
341 If p_validate then
342 Raise HR_Api.Validate_Enabled;
343 End If;
344 --
345 exception
346 when HR_Api.Validate_Enabled then
347 --
348 -- A validation or unexpected error has occured
349 --
350 ROLLBACK TO delete_process_event;
351 --
352 end delete_process_event;
353 --
354 end pay_ppe_api;