[Home] [Help]
PACKAGE BODY: APPS.PAY_DATED_TABLES_API
Source
1 Package Body pay_dated_tables_api as
2 /* $Header: pyptaapi.pkb 115.8 2002/12/05 12:35:00 swinton noship $ */
3 --
4 g_package varchar2(33) := ' pay_dated_tables_api.';
5 --
6 -- ----------------------------------------------------------------------------
7 -- |--------------------------<create_dated_table >-------------------------|
8 -- ----------------------------------------------------------------------------
9 -- {Start Of Comments}
10 --
11 -- Description:
12 -- This API creates enforcing the required business rules.
13 --
14 procedure create_dated_table
15 (p_validate in boolean default false
16 ,p_table_name in varchar2
17 ,p_application_id in number default null
18 ,p_surrogate_key_name in varchar2
19 ,p_start_date_name in varchar2
20 ,p_end_date_name in varchar2
21 ,p_business_group_id in number
22 ,p_legislation_code in varchar2
23 ,p_dated_table_id out nocopy number
24 ,p_object_version_number out nocopy number
25 ,p_dyn_trigger_type in varchar2
26 ,p_dyn_trigger_package_name in varchar2
27 ,p_dyn_trig_pkg_generated in varchar2
28 ) is
29 --
30 -- Declare cursors and local variables
31 --
32 l_proc varchar2(72) := g_package||'create_dated_table';
33 l_object_version_number number;
34 --
35 begin
36 hr_utility.set_location('Entering:'|| l_proc, 10);
37 --
38 If p_validate then
39 savepoint create_dated_table;
40 End If;
41 --
42 hr_utility.set_location(l_proc, 20);
43 --
44 -- Process Logic
45 --
46 --
47 -- Start of API User Hook for the before hook of create_dateteacked_event.
48 --
49 begin
50 pay_dated_tables_bk1.create_dated_table_b
51 (p_table_name => p_table_name
52 ,p_application_id => p_application_id
53 ,p_surrogate_key_name => p_surrogate_key_name
54 ,p_start_date_name => p_start_date_name
55 ,p_end_date_name => p_end_date_name
56 ,p_business_group_id => p_business_group_id
57 ,p_legislation_code => p_legislation_code
58 ,p_dyn_trigger_type => p_dyn_trigger_type
59 ,p_dyn_trigger_package_name => p_dyn_trigger_package_name
60 ,p_dyn_trig_pkg_generated => p_dyn_trig_pkg_generated
61 );
62 exception
63 when hr_api.cannot_find_prog_unit then
64 hr_api.cannot_find_prog_unit_error
65 (p_module_name => 'CREATE_DATED_TABLE',
66 p_hook_type => 'BP'
67 );
68 end;
69 --
70 pay_pta_ins.ins
71 (p_table_name => p_table_name
72 ,p_application_id => p_application_id
73 ,p_surrogate_key_name => p_surrogate_key_name
74 ,p_start_date_name => p_start_date_name
75 ,p_end_date_name => p_end_date_name
76 ,p_business_group_id => p_business_group_id
77 ,p_legislation_code => p_legislation_code
78 ,p_dated_table_id => p_dated_table_id
79 ,p_object_version_number => l_object_version_number
80 ,p_dyn_trigger_type => p_dyn_trigger_type
81 ,p_dyn_trigger_package_name => p_dyn_trigger_package_name
82 ,p_dyn_trig_pkg_generated => p_dyn_trig_pkg_generated
83 );
84 --
85 -- Start of API User Hook for the after hook of create_DATED_TABLE
86 --
87 begin
88 pay_dated_tables_bk1.create_dated_table_a
89 (p_table_name => p_table_name
90 ,p_application_id => p_application_id
91 ,p_surrogate_key_name => p_surrogate_key_name
92 ,p_start_date_name => p_start_date_name
93 ,p_end_date_name => p_end_date_name
94 ,p_business_group_id => p_business_group_id
95 ,p_legislation_code => p_legislation_code
96 ,p_dated_table_id => p_dated_table_id
97 ,p_object_version_number => l_object_version_number
98 ,p_dyn_trigger_type => p_dyn_trigger_type
99 ,p_dyn_trigger_package_name => p_dyn_trigger_package_name
100 ,p_dyn_trig_pkg_generated => p_dyn_trig_pkg_generated
101 );
102 exception
103 when hr_api.cannot_find_prog_unit then
104 hr_api.cannot_find_prog_unit_error
105 (p_module_name => 'CREATE_DATED_TABLE',
106 p_hook_type => 'AP'
107 );
108 end;
109 --
110 If p_validate then
111 Raise HR_Api.Validate_Enabled;
112 End If;
113 --
114 exception
115 --
116 when HR_Api.Validate_Enabled then
117 --
118 -- A validation or unexpected error has occured
119 --
120 ROLLBACK TO create_dated_table;
121 raise;
122 -- Bugfix 2692195
123 when others then
124 --
125 -- set all out parameters to null
126 --
127 p_dated_table_id := null;
128 p_object_version_number := null;
129 raise;
130 --
131 end create_dated_table;
132 -- ----------------------------------------------------------------------------
133 -- |--------------------------<update_dated_table >-------------------------|
134 -- ----------------------------------------------------------------------------
135 -- {Start Of Comments}
136 --
137 -- Description:
138 -- This API updates an existing dated table.
139 --
140 procedure update_dated_table
141 (p_validate in boolean default false
142 ,p_dated_table_id in number
143 ,p_object_version_number in out nocopy number
144 ,p_table_name in varchar2 default hr_api.g_varchar2
145 ,p_application_id in number default hr_api.g_number
146 ,p_surrogate_key_name in varchar2 default hr_api.g_varchar2
147 ,p_start_date_name in varchar2 default hr_api.g_varchar2
148 ,p_end_date_name in varchar2 default hr_api.g_varchar2
149 ,p_business_group_id in number default hr_api.g_number
150 ,p_legislation_code in varchar2 default hr_api.g_varchar2
151 ,p_dyn_trigger_type in varchar2 default hr_api.g_varchar2
152 ,p_dyn_trigger_package_name in varchar2 default hr_api.g_varchar2
153 ,p_dyn_trig_pkg_generated in varchar2 default hr_api.g_varchar2
154 )is
155 --
156 -- Declare cursors and local variables
157 --
158 l_proc varchar2(72) := g_package ||'update_dated_table';
159 l_object_version_number number;
160 --
161 begin
162 --
163 hr_utility.set_location('Entering:'|| l_proc, 10);
164 --
165 If p_validate then
166 savepoint update_dated_table;
167 End If;
168 --
169 l_object_version_number := p_object_version_number;
170 --
171 -- Start of API User Hook for the before hook of update_DATED_TABLE.
172 --
173 begin
174 pay_dated_tables_bk2.update_dated_table_b
175 (
176 p_dated_table_id => p_dated_table_id
177 ,p_object_version_number => l_object_version_number
178 ,p_table_name => p_table_name
179 ,p_application_id => p_application_id
180 ,p_surrogate_key_name => p_surrogate_key_name
181 ,p_start_date_name => p_start_date_name
182 ,p_end_date_name => p_end_date_name
183 ,p_business_group_id => p_business_group_id
184 ,p_legislation_code => p_legislation_code
185 ,p_dyn_trigger_type => p_dyn_trigger_type
186 ,p_dyn_trigger_package_name => p_dyn_trigger_package_name
187 ,p_dyn_trig_pkg_generated => p_dyn_trig_pkg_generated
188 );
189 exception
190 when hr_api.cannot_find_prog_unit then
191 hr_api.cannot_find_prog_unit_error
192 (p_module_name => 'UPDATE_DATED_TABLE',
193 p_hook_type => 'BP'
194 );
195 end;
196 --
197 pay_pta_upd.upd
198 (
199 p_dated_table_id => p_dated_table_id
200 ,p_object_version_number => l_object_version_number
201 ,p_table_name => p_table_name
202 ,p_application_id => p_application_id
203 ,p_surrogate_key_name => p_surrogate_key_name
204 ,p_start_date_name => p_start_date_name
205 ,p_end_date_name => p_end_date_name
206 ,p_business_group_id => p_business_group_id
207 ,p_legislation_code => p_legislation_code
208 ,p_dyn_trigger_type => p_dyn_trigger_type
209 ,p_dyn_trigger_package_name => p_dyn_trigger_package_name
210 ,p_dyn_trig_pkg_generated => p_dyn_trig_pkg_generated
211 );
212 hr_utility.set_location('Entering:'|| l_proc, 20);
213 --
214 --
215 -- Start of API User Hook for the after hook of update_DATED_TABLE.
216 --
217 begin
218 pay_dated_tables_bk2.update_dated_table_a
219 (
220 p_dated_table_id => p_dated_table_id
221 ,p_object_version_number => l_object_version_number
222 ,p_table_name => p_table_name
223 ,p_application_id => p_application_id
224 ,p_surrogate_key_name => p_surrogate_key_name
225 ,p_start_date_name => p_start_date_name
226 ,p_end_date_name => p_end_date_name
227 ,p_business_group_id => p_business_group_id
228 ,p_legislation_code => p_legislation_code
229 ,p_dyn_trigger_type => p_dyn_trigger_type
230 ,p_dyn_trigger_package_name => p_dyn_trigger_package_name
231 ,p_dyn_trig_pkg_generated => p_dyn_trig_pkg_generated
232 );
233 exception
234 when hr_api.cannot_find_prog_unit then
235 hr_api.cannot_find_prog_unit_error
236 (p_module_name => 'UPDATE_DATED_TABLE',
237 p_hook_type => 'AP'
238 );
239 end;
240 --
241 -- End of API User Hook for the after hook of update_DATED_TABLE.
242 --
243 If p_validate then
244 Raise HR_Api.Validate_Enabled;
245 End If;
246 --
247 exception
248 --
249 when HR_Api.Validate_Enabled then
250 --
251 -- A validation or unexpected error has occured
252 --
253 ROLLBACK TO update_dated_table;
254 --
255 -- Bugfix 2692195
256 when others then
257 --
258 -- reset all IN OUT paramters
259 --
260 p_object_version_number := l_object_version_number;
261 raise;
262 --
263 end update_dated_table;
264 --
265 -- ----------------------------------------------------------------------------
266 -- |--------------------------< delete_dated_table >--------------------------|
267 -- ----------------------------------------------------------------------------
268 -- {Start Of Comments}
269 --
270 -- Description:
271 -- This API deletes an existing dated table.
272 --
273 procedure delete_dated_table
274 (p_validate in boolean default false
275 ,p_dated_table_id in number
276 ,p_object_version_number in number
277 ) is
278 --
279 -- Declare cursors and local variables
280 --
281 l_proc varchar2(72) := g_package||'delete_dated_table';
282 l_object_version_number number;
283 --
284 begin
285 hr_utility.set_location('Entering:'|| l_proc, 10);
286 --
287 If p_validate then
288 savepoint delete_dated_table;
289 End If;
290 --
291 l_object_version_number:= p_object_version_number;
292 --
293 -- Start of API User Hook for the before hook of delete_DATED_TABLE.
294 --
295 begin
296 pay_dated_tables_bk3.delete_dated_table_b
297 (
298 p_dated_table_id => p_dated_table_id
299 ,p_object_version_number => l_object_version_number
300 );
301 exception
302 when hr_api.cannot_find_prog_unit then
303 hr_api.cannot_find_prog_unit_error
304 (p_module_name => 'DELETE_DATED_TABLE',
305 p_hook_type => 'BP'
306 );
307 end;
308 --
309 pay_pta_del.del
310 (
311 p_dated_table_id => p_dated_table_id
312 ,p_object_version_number => l_object_version_number
313 );
314 hr_utility.set_location(' Leaving:'||l_proc, 70);
315 --
316 --
317 -- Start of API User Hook for the after hook of DELETE_DATED_TABLE.
318 --
322 p_dated_table_id => p_dated_table_id
319 begin
320 pay_dated_tables_bk3.delete_dated_table_a
321 (
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_DATED_TABLE',
329 p_hook_type => 'AP'
330 );
331 end;
332 --
333
334 If p_validate then
335 Raise HR_Api.Validate_Enabled;
336 End If;
337 --
338 exception
339 when HR_Api.Validate_Enabled then
340 --
341 -- A validation or unexpected error has occured
342 --
343 ROLLBACK TO delete_dated_table;
344 --
345 end delete_dated_table;
346 --
347 end pay_dated_tables_api;