[Home] [Help]
PACKAGE BODY: APPS.PAY_USER_COLUMN_API
Source
1 Package Body pay_user_column_api as
2 /* $Header: pypucapi.pkb 120.0 2005/05/29 07:57:30 appldev noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' pay_user_column_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< create_user_column >--------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_user_column
13 (p_validate in boolean default false
14 ,p_business_group_id in number default null
15 ,p_legislation_code in varchar2 default null
16 ,p_user_table_id in number
17 ,p_formula_id in number default null
18 ,p_user_column_name in varchar2
19 ,p_user_column_id out nocopy number
20 ,p_object_version_number out nocopy number
21 ) is
22 --
23 -- Declare cursors and local variables
24 --
25
26 l_proc varchar2(72) := g_package||'create_user_column';
27 l_ovn number;
28 l_user_column_id number;
29 begin
30 hr_utility.set_location('Entering:'|| l_proc, 10);
31 --
32 -- Issue a savepoint
33 --
34 savepoint create_user_column;
35 --
36 -- Call Before Process User Hook
37 --
38 begin
39 pay_user_column_bk1.create_user_column_b
40 (p_business_group_id => p_business_group_id
41 ,p_legislation_code => p_legislation_code
42 ,p_user_table_id => p_user_table_id
43 ,p_formula_id => p_formula_id
44 ,p_user_column_name => p_user_column_name
45 );
46 exception
47 when hr_api.cannot_find_prog_unit then
48 hr_api.cannot_find_prog_unit_error
49 (p_module_name => 'create_user_column'
50 ,p_hook_type => 'BP'
51 );
52 end;
53 --
54 -- Process Logic
55 --
56 pay_puc_ins.ins
57 (p_business_group_id => p_business_group_id
58 ,p_legislation_code => p_legislation_code
59 ,p_user_table_id => p_user_table_id
60 ,p_formula_id => p_formula_id
61 ,p_user_column_name => p_user_column_name
62 ,p_user_column_id => l_user_column_id
63 ,p_object_version_number => l_ovn
64 );
65 --
66 -- Call After Process User Hook
67 --
68 begin
69 pay_user_column_bk1.create_user_column_a
70 (p_business_group_id => p_business_group_id
71 ,p_legislation_code => p_legislation_code
72 ,p_user_table_id => p_user_table_id
73 ,p_formula_id => p_formula_id
74 ,p_user_column_name => p_user_column_name
75 ,p_user_column_id => l_user_column_id
76 ,p_object_version_number => l_ovn
77 );
78 exception
79 when hr_api.cannot_find_prog_unit then
80 hr_api.cannot_find_prog_unit_error
81 (p_module_name => 'create_user_column'
82 ,p_hook_type => 'AP'
83 );
84 end;
85 --
86 -- When in validation only mode raise the Validate_Enabled exception
87 --
88 if p_validate then
89 raise hr_api.validate_enabled;
90 end if;
91 --
92 -- Set all output arguments
93 --
94 p_user_column_id := l_user_column_id;
95 p_object_version_number := l_ovn;
96 --
97 --For MLS------------------------------------------------------------------
98 pay_pct_ins.ins_tl(userenv('LANG'),p_user_column_id,p_user_column_name);
99 ---------------------------------------------------------------------------
100 hr_utility.set_location(' Leaving:'||l_proc, 70);
101 exception
102 when hr_api.validate_enabled then
103 --
104 -- As the Validate_Enabled exception has been raised
105 -- we must rollback to the savepoint
106 --
107 rollback to create_user_column;
108 --
109 -- Only set output warning arguments
110 -- (Any key or derived arguments must be set to null
111 -- when validation only mode is being used.)
112 --
113 p_user_column_id := null;
114 p_object_version_number := null;
115 hr_utility.set_location(' Leaving:'||l_proc, 80);
116 when others then
117 --
118 -- A validation or unexpected error has occured
119 --
120 rollback to create_user_column;
121 hr_utility.set_location(' Leaving:'||l_proc, 90);
122 raise;
123 end create_user_column;
124 --
125 -- ----------------------------------------------------------------------------
126 -- |--------------------------< update_user_column >--------------------------|
127 -- ----------------------------------------------------------------------------
128 --
129 procedure update_user_column
130 (p_validate in boolean default false
131 ,p_user_column_id in number
132 ,p_user_column_name in varchar2 default hr_api.g_varchar2
133 ,p_formula_id in number default hr_api.g_varchar2
134 ,p_object_version_number in out nocopy number
135 ,p_formula_warning out nocopy boolean
136 ) is
137 --
138 -- Declare cursors and local variables
139 --
140 l_proc varchar2(72) := g_package||'update_user_column';
141 l_ovn number := p_object_version_number;
142 l_formula_warning boolean;
143 begin
144 hr_utility.set_location('Entering:'|| l_proc, 10);
145 --
146 -- Issue a savepoint
147 --
148 savepoint update_user_column;
149 --
150 -- Call Before Process User Hook
151 --
152 begin
153 pay_user_column_bk2.update_user_column_b
154 (p_user_column_id => p_user_column_id
155 ,p_formula_id => p_formula_id
156 ,p_user_column_name => p_user_column_name
157 ,p_object_version_number => l_ovn
158 );
159 exception
160 when hr_api.cannot_find_prog_unit then
161 hr_api.cannot_find_prog_unit_error
162 (p_module_name => 'update_user_column'
163 ,p_hook_type => 'BP'
164 );
165 end;
166 --
167 -- Process Logic
168 --
169 pay_puc_upd.upd
170 (p_formula_id => p_formula_id
171 ,p_user_column_name => p_user_column_name
172 ,p_user_column_id => p_user_column_id
173 ,p_object_version_number => l_ovn
174 ,p_formula_warning => l_formula_warning
175 );
176 --
177 -- Call After Process User Hook
178 --
179 begin
180 pay_user_column_bk2.update_user_column_a
181 (p_formula_id => p_formula_id
182 ,p_user_column_name => p_user_column_name
183 ,p_user_column_id => p_user_column_id
184 ,p_object_version_number => l_ovn
185 ,p_formula_warning => l_formula_warning
186 );
187 exception
188 when hr_api.cannot_find_prog_unit then
189 hr_api.cannot_find_prog_unit_error
190 (p_module_name => 'update_user_column'
191 ,p_hook_type => 'AP'
192 );
193 end;
194 --
195 -- When in validation only mode raise the Validate_Enabled exception
196 --
197 if p_validate then
198 raise hr_api.validate_enabled;
199 end if;
200 --
201 -- Set all output arguments
202 --
203 p_object_version_number := l_ovn;
204 p_formula_warning := l_formula_warning;
205 --
206 --For MLS------------------------------------------------------------------
207 pay_pct_upd.upd_tl(userenv('LANG'),p_user_column_id,p_user_column_name);
208 ---------------------------------------------------------------------------
209 hr_utility.set_location(' Leaving:'||l_proc, 70);
210 exception
211 when hr_api.validate_enabled then
212 --
213 -- As the Validate_Enabled exception has been raised
214 -- we must rollback to the savepoint
215 --
216 rollback to update_user_column;
217 --
218 -- Only set output warning arguments
219 -- (Any key or derived arguments must be set to null
220 -- when validation only mode is being used.)
221 --
222 p_object_version_number := null;
223 hr_utility.set_location(' Leaving:'||l_proc, 80);
224 when others then
225 --
226 -- A validation or unexpected error has occured
227 --
228 rollback to update_user_column;
229 hr_utility.set_location(' Leaving:'||l_proc, 90);
230 raise;
231 end update_user_column;
232 --
233 -- ----------------------------------------------------------------------------
234 -- |--------------------------< delete_user_column >--------------------------|
235 -- ----------------------------------------------------------------------------
236 --
237 procedure delete_user_column
238 (p_validate in boolean default false
239 ,p_user_column_id in number
240 ,p_object_version_number in out nocopy number
241 ) is
242 --
243 -- Declare cursors and local variables
244 --
245
246 l_proc varchar2(72) := g_package||'delete_user_column';
247 l_ovn number := p_object_version_number;
248 begin
249 hr_utility.set_location('Entering:'|| l_proc, 10);
250 --
251 -- Issue a savepoint
252 --
253 savepoint delete_user_column;
254 --
255 -- Call Before Process User Hook
256 --
257 begin
258 pay_user_column_bk3.delete_user_column_b
259 (p_user_column_id => p_user_column_id
260 ,p_object_version_number => l_ovn
261 );
262 exception
263 when hr_api.cannot_find_prog_unit then
264 hr_api.cannot_find_prog_unit_error
265 (p_module_name => 'delete_user_column'
266 ,p_hook_type => 'BP'
267 );
268 end;
269 --
270 -- Process Logic
271 --
272 pay_puc_del.del
273 (p_user_column_id => p_user_column_id
274 ,p_object_version_number => l_ovn
275 );
276 --
277 -- Call After Process User Hook
278 --
279 begin
280 pay_user_column_bk3.delete_user_column_a
281 (p_user_column_id => p_user_column_id
282 ,p_object_version_number => l_ovn
283 );
284 exception
285 when hr_api.cannot_find_prog_unit then
286 hr_api.cannot_find_prog_unit_error
287 (p_module_name => 'delete_user_column'
288 ,p_hook_type => 'AP'
289 );
290 end;
291 --
292 -- When in validation only mode raise the Validate_Enabled exception
293 --
294 if p_validate then
295 raise hr_api.validate_enabled;
296 end if;
297 --
298 -- Set all output arguments
299 --
300 p_object_version_number := l_ovn;
301 --
302 --For MLS------------------------------------------------------------------
303 pay_pct_del.del_tl(p_user_column_id);
304 ---------------------------------------------------------------------------
305 hr_utility.set_location(' Leaving:'||l_proc, 70);
306 exception
307 when hr_api.validate_enabled then
308 --
309 -- As the Validate_Enabled exception has been raised
310 -- we must rollback to the savepoint
311 --
312 rollback to delete_user_column;
313 --
314 -- Only set output warning arguments
315 -- (Any key or derived arguments must be set to null
316 -- when validation only mode is being used.)
317 --
318 p_object_version_number := null;
319 hr_utility.set_location(' Leaving:'||l_proc, 80);
320 when others then
321 --
322 -- A validation or unexpected error has occured
323 --
324 rollback to delete_user_column;
325 hr_utility.set_location(' Leaving:'||l_proc, 90);
326 raise;
327 end delete_user_column;
328 --
329 end pay_user_column_api;