[Home] [Help]
PACKAGE BODY: APPS.PQH_BUDGET_GL_FLEX_MAPS_API
Source
1 Package Body pqh_budget_gl_flex_maps_api as
2 /* $Header: pqbgmapi.pkb 115.4 2002/12/05 16:33:20 rpasapul ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' pqh_budget_gl_flex_maps_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_budget_gl_flex_map >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_budget_gl_flex_map
13 (p_validate in boolean default false
14 ,p_budget_gl_flex_map_id out nocopy number
15 ,p_budget_id in number default null
16 ,p_gl_account_segment in varchar2 default null
17 ,p_payroll_cost_segment in varchar2 default null
18 ,p_object_version_number out nocopy number
19 ) is
20 --
21 -- Declare cursors and local variables
22 --
23 l_budget_gl_flex_map_id pqh_budget_gl_flex_maps.budget_gl_flex_map_id%TYPE;
24 l_proc varchar2(72) := g_package||'create_budget_gl_flex_map';
25 l_object_version_number pqh_budget_gl_flex_maps.object_version_number%TYPE;
26 --
27 begin
28 --
29 hr_utility.set_location('Entering:'|| l_proc, 10);
30 --
31 -- Issue a savepoint if operating in validation only mode
32 --
33 savepoint create_budget_gl_flex_map;
34 --
35 hr_utility.set_location(l_proc, 20);
36 --
37 -- Process Logic
38 --
39 begin
40 --
41 -- Start of API User Hook for the before hook of create_budget_gl_flex_map
42 --
43 pqh_budget_gl_flex_maps_bk1.create_budget_gl_flex_map_b
44 (
45 p_budget_id => p_budget_id
46 ,p_gl_account_segment => p_gl_account_segment
47 ,p_payroll_cost_segment => p_payroll_cost_segment
48 );
49 exception
50 when hr_api.cannot_find_prog_unit then
51 hr_api.cannot_find_prog_unit_error
52 (
53 p_module_name => 'create_budget_gl_flex_map'
54 ,p_hook_type => 'BP'
55 );
56 --
57 -- End of API User Hook for the before hook of create_budget_gl_flex_map
58 --
59 end;
60 --
61 pqh_bgm_ins.ins
62 (
63 p_budget_gl_flex_map_id => l_budget_gl_flex_map_id
64 ,p_budget_id => p_budget_id
65 ,p_gl_account_segment => p_gl_account_segment
66 ,p_payroll_cost_segment => p_payroll_cost_segment
67 ,p_object_version_number => l_object_version_number
68 );
69 --
70 begin
71 --
72 -- Start of API User Hook for the after hook of create_budget_gl_flex_map
73 --
74 pqh_budget_gl_flex_maps_bk1.create_budget_gl_flex_map_a
75 (
76 p_budget_gl_flex_map_id => l_budget_gl_flex_map_id
77 ,p_budget_id => p_budget_id
78 ,p_gl_account_segment => p_gl_account_segment
79 ,p_payroll_cost_segment => p_payroll_cost_segment
80 ,p_object_version_number => l_object_version_number
81 );
82 exception
83 when hr_api.cannot_find_prog_unit then
84 hr_api.cannot_find_prog_unit_error
85 (p_module_name => 'create_budget_gl_flex_map'
86 ,p_hook_type => 'AP'
87 );
88 --
89 -- End of API User Hook for the after hook of create_budget_gl_flex_map
90 --
91 end;
92 --
93 hr_utility.set_location(l_proc, 60);
94 --
95 -- When in validation only mode raise the Validate_Enabled exception
96 --
97 if p_validate then
98 raise hr_api.validate_enabled;
99 end if;
100 --
101 -- Set all output arguments
102 --
103 p_budget_gl_flex_map_id := l_budget_gl_flex_map_id;
104 p_object_version_number := l_object_version_number;
105 --
106 hr_utility.set_location(' Leaving:'||l_proc, 70);
107 --
108 exception
109 --
110 when hr_api.validate_enabled then
111 --
112 -- As the Validate_Enabled exception has been raised
113 -- we must rollback to the savepoint
114 --
115 ROLLBACK TO create_budget_gl_flex_map;
116 --
117 -- Only set output warning arguments
118 -- (Any key or derived arguments must be set to null
119 -- when validation only mode is being used.)
120 --
121 p_budget_gl_flex_map_id := null;
122 p_object_version_number := null;
123 hr_utility.set_location(' Leaving:'||l_proc, 80);
124 --
125 when others then
126 p_budget_gl_flex_map_id := null;
127 p_object_version_number := null;
128 --
129 -- A validation or unexpected error has occured
130 --
131 ROLLBACK TO create_budget_gl_flex_map;
132 raise;
133 --
134 end create_budget_gl_flex_map;
135 -- ----------------------------------------------------------------------------
136 -- |------------------------< update_budget_gl_flex_map >--- ------------------|
137 -- ----------------------------------------------------------------------------
138 --
139 procedure update_budget_gl_flex_map
140 (p_validate in boolean default false
141 ,p_budget_gl_flex_map_id in number
142 ,p_budget_id in number default hr_api.g_number
143 ,p_gl_account_segment in varchar2 default hr_api.g_varchar2
144 ,p_payroll_cost_segment in varchar2 default hr_api.g_varchar2
145 ,p_object_version_number in out nocopy number
146 ) is
147 --
148 -- Declare cursors and local variables
149 --
150 l_proc varchar2(72) := g_package||'update_budget_gl_flex_map';
151 l_object_version_number pqh_budget_gl_flex_maps.object_version_number%TYPE;
152 --
153 begin
154 --
155 hr_utility.set_location('Entering:'|| l_proc, 10);
156 --
157 -- Issue a savepoint if operating in validation only mode
158 --
159 savepoint update_budget_gl_flex_map;
160 --
161 hr_utility.set_location(l_proc, 20);
162 --
163 -- Process Logic
164 --
165 l_object_version_number := p_object_version_number;
166 --
167 begin
168 --
169 -- Start of API User Hook for the before hook of update_budget_gl_flex_map
170 --
171 pqh_budget_gl_flex_maps_bk2.update_budget_gl_flex_map_b
172 (
173 p_budget_gl_flex_map_id => p_budget_gl_flex_map_id
174 ,p_budget_id => p_budget_id
175 ,p_gl_account_segment => p_gl_account_segment
176 ,p_payroll_cost_segment => p_payroll_cost_segment
177 ,p_object_version_number => p_object_version_number
178 );
179 exception
180 when hr_api.cannot_find_prog_unit then
181 hr_api.cannot_find_prog_unit_error
182 (p_module_name => 'update_budget_gl_flex_map'
183 ,p_hook_type => 'BP'
184 );
185 --
186 -- End of API User Hook for the before hook of update_budget_gl_flex_map
187 --
188 end;
189 --
190 pqh_bgm_upd.upd
191 (
192 p_budget_gl_flex_map_id => p_budget_gl_flex_map_id
193 ,p_budget_id => p_budget_id
194 ,p_gl_account_segment => p_gl_account_segment
195 ,p_payroll_cost_segment => p_payroll_cost_segment
196 ,p_object_version_number => l_object_version_number
197 );
198 --
199 begin
200 --
201 -- Start of API User Hook for the after hook of update_budget_gl_flex_map
202 --
203 pqh_budget_gl_flex_maps_bk2.update_budget_gl_flex_map_a
204 (
205 p_budget_gl_flex_map_id => p_budget_gl_flex_map_id
206 ,p_budget_id => p_budget_id
207 ,p_gl_account_segment => p_gl_account_segment
208 ,p_payroll_cost_segment => p_payroll_cost_segment
209 ,p_object_version_number => l_object_version_number
210 );
211 exception
212 when hr_api.cannot_find_prog_unit then
213 hr_api.cannot_find_prog_unit_error
214 (p_module_name => 'update_budget_gl_flex_map'
215 ,p_hook_type => 'AP'
216 );
217 --
218 -- End of API User Hook for the after hook of update_budget_gl_flex_map
219 --
220 end;
221 --
222 hr_utility.set_location(l_proc, 60);
223 --
224 -- When in validation only mode raise the Validate_Enabled exception
225 --
226 if p_validate then
227 raise hr_api.validate_enabled;
228 end if;
229 --
230 -- Set all output arguments
231 --
232 p_object_version_number := l_object_version_number;
233 --
234 hr_utility.set_location(' Leaving:'||l_proc, 70);
235 --
236 exception
237 --
238 when hr_api.validate_enabled then
239 --
240 -- As the Validate_Enabled exception has been raised
241 -- we must rollback to the savepoint
242 --
243 ROLLBACK TO update_budget_gl_flex_map;
244 --
245 -- Only set output warning arguments
246 -- (Any key or derived arguments must be set to null
247 -- when validation only mode is being used.)
248 --
249 hr_utility.set_location(' Leaving:'||l_proc, 80);
250 --
251 when others then
252 p_object_version_number := l_object_version_number;
253 --
254 -- A validation or unexpected error has occured
255 --
256 ROLLBACK TO update_budget_gl_flex_map;
257 raise;
258 --
259 end update_budget_gl_flex_map;
260 -- ----------------------------------------------------------------------------
261 -- |------------------------< delete_budget_gl_flex_map >----------------------|
262 -- ----------------------------------------------------------------------------
263 --
264 procedure delete_budget_gl_flex_map
265 (p_validate in boolean default false
266 ,p_budget_gl_flex_map_id in number
267 ,p_object_version_number in number
268 ) is
269 --
270 -- Declare cursors and local variables
271 --
272 l_proc varchar2(72) := g_package||'delete_budget_gl_flex_map';
273 l_object_version_number pqh_budget_gl_flex_maps.object_version_number%TYPE;
274 --
275 begin
276 --
277 hr_utility.set_location('Entering:'|| l_proc, 10);
278 --
279 -- Issue a savepoint if operating in validation only mode
280 --
281 savepoint delete_budget_gl_flex_map;
282 --
283 hr_utility.set_location(l_proc, 20);
284 --
285 -- Process Logic
286 --
287 l_object_version_number := p_object_version_number;
288 --
289 --
290 begin
291 --
292 -- Start of API User Hook for the before hook of delete_budget_gl_flex_map
293 --
294 pqh_budget_gl_flex_maps_bk3.delete_budget_gl_flex_map_b
295 (
296 p_budget_gl_flex_map_id => p_budget_gl_flex_map_id
297 ,p_object_version_number => p_object_version_number
298 );
299 exception
300 when hr_api.cannot_find_prog_unit then
301 hr_api.cannot_find_prog_unit_error
302 (p_module_name => 'delete_budget_gl_flex_map'
303 ,p_hook_type => 'BP'
304 );
305 --
306 -- End of API User Hook for the before hook of delete_budget_gl_flex_map
307 --
308 end;
309 --
310 pqh_bgm_del.del
311 (
312 p_budget_gl_flex_map_id => p_budget_gl_flex_map_id
313 ,p_object_version_number => l_object_version_number
314 );
315 --
316 begin
317 --
318 -- Start of API User Hook for the after hook of delete_budget_gl_flex_map
319 --
320 pqh_budget_gl_flex_maps_bk3.delete_budget_gl_flex_map_a
321 (
322 p_budget_gl_flex_map_id => p_budget_gl_flex_map_id
323 ,p_object_version_number => l_object_version_number
324 );
325 exception
326 when hr_api.cannot_find_prog_unit then
327 hr_api.cannot_find_prog_unit_error
328 (p_module_name => 'delete_budget_gl_flex_map'
329 ,p_hook_type => 'AP'
330 );
331 --
332 -- End of API User Hook for the after hook of delete_budget_gl_flex_map
333 --
334 end;
335 --
336 hr_utility.set_location(l_proc, 60);
337 --
338 -- When in validation only mode raise the Validate_Enabled exception
339 --
340 if p_validate then
341 raise hr_api.validate_enabled;
342 end if;
343 --
344 hr_utility.set_location(' Leaving:'||l_proc, 70);
345 --
346 exception
347 --
348 when hr_api.validate_enabled then
349 --
350 -- As the Validate_Enabled exception has been raised
351 -- we must rollback to the savepoint
352 --
353 ROLLBACK TO delete_budget_gl_flex_map;
354 --
355 -- Only set output warning arguments
356 -- (Any key or derived arguments must be set to null
357 -- when validation only mode is being used.)
358 --
359 --
360 when others then
361 --
362 -- A validation or unexpected error has occured
363 --
364 ROLLBACK TO delete_budget_gl_flex_map;
365 raise;
366 --
367 end delete_budget_gl_flex_map;
368 --
369 -- ----------------------------------------------------------------------------
370 -- |-------------------------------< lck >------------------------------------|
371 -- ----------------------------------------------------------------------------
372 --
373 procedure lck
374 (
375 p_budget_gl_flex_map_id in number
376 ,p_object_version_number in number
377 ) is
378 --
379 --
380 -- Declare cursors and local variables
381 --
382 l_proc varchar2(72) := g_package||'lck';
383 --
384 begin
385 --
386 hr_utility.set_location('Entering:'|| l_proc, 10);
387 --
388 pqh_bgm_shd.lck
389 (
390 p_budget_gl_flex_map_id => p_budget_gl_flex_map_id
391 ,p_object_version_number => p_object_version_number
392 );
393 --
394 hr_utility.set_location(' Leaving:'||l_proc, 70);
395 --
396 end lck;
397 --
398 end pqh_budget_gl_flex_maps_api;