[Home] [Help]
PACKAGE BODY: APPS.BEN_REPORTING_API
Source
1 Package Body ben_reporting_api as
2 /* $Header: bebmnapi.pkb 115.6 2002/12/11 10:35:08 lakrish ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ben_reporting_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_reporting >------------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_reporting
13 (p_validate in boolean default false
14 ,p_reporting_id out nocopy number
15 ,p_benefit_action_id in number default null
16 ,p_thread_id in number default null
17 ,p_sequence in number default null
18 ,p_text in varchar2 default null
19 ,p_rep_typ_cd in varchar2 default null
20 ,p_error_message_code in varchar2 default null
21 ,p_national_identifier in varchar2 default null
22 ,p_related_person_ler_id in number default null
23 ,p_temporal_ler_id in number default null
24 ,p_ler_id in number default null
25 ,p_person_id in number default null
26 ,p_pgm_id in number default null
27 ,p_pl_id in number default null
28 ,p_related_person_id in number default null
29 ,p_oipl_id in number default null
30 ,p_pl_typ_id in number default null
31 ,p_actl_prem_id in number default null
32 ,p_val in number default null
33 ,p_mo_num in number default null
34 ,p_yr_num in number default null
35 ,p_object_version_number out nocopy number) is
36 --
37 -- Declare cursors and local variables
38 --
39 l_reporting_id ben_reporting.reporting_id%TYPE;
40 l_proc varchar2(72) := g_package||'create_reporting';
41 l_object_version_number ben_reporting.object_version_number%TYPE;
42 --
43 begin
44 --
45 hr_utility.set_location('Entering:'|| l_proc, 10);
46 --
47 -- Issue a savepoint if operating in validation only mode
48 --
49 savepoint create_reporting;
50 --
51 hr_utility.set_location(l_proc, 20);
52 --
53 ben_bmn_ins.ins
54 (p_reporting_id => l_reporting_id
55 ,p_benefit_action_id => p_benefit_action_id
56 ,p_thread_id => p_thread_id
57 ,p_sequence => p_sequence
58 ,p_text => p_text
59 ,p_rep_typ_cd => p_rep_typ_cd
60 ,p_error_message_code => p_error_message_code
61 ,p_national_identifier => p_national_identifier
62 ,p_related_person_ler_id => p_related_person_ler_id
63 ,p_temporal_ler_id => p_temporal_ler_id
64 ,p_ler_id => p_ler_id
65 ,p_person_id => p_person_id
66 ,p_pgm_id => p_pgm_id
67 ,p_pl_id => p_pl_id
68 ,p_related_person_id => p_related_person_id
69 ,p_oipl_id => p_oipl_id
70 ,p_pl_typ_id => p_pl_typ_id
71 ,p_actl_prem_id => p_actl_prem_id
72 ,p_val => p_val
73 ,p_mo_num => p_mo_num
74 ,p_yr_num => p_yr_num
75 ,p_object_version_number => l_object_version_number);
76 --
77 hr_utility.set_location(l_proc, 60);
78 --
79 -- When in validation only mode raise the Validate_Enabled exception
80 --
81 if p_validate then
82 raise hr_api.validate_enabled;
83 end if;
84 --
85 -- Set all output arguments
86 --
87 p_reporting_id := l_reporting_id;
88 p_object_version_number := l_object_version_number;
89 --
90 hr_utility.set_location(' Leaving:'||l_proc, 70);
91 --
92 exception
93 --
94 when hr_api.validate_enabled then
95 --
96 -- As the Validate_Enabled exception has been raised
97 -- we must rollback to the savepoint
98 --
99 ROLLBACK TO create_reporting;
100 --
101 -- Only set output warning arguments
102 -- (Any key or derived arguments must be set to null
103 -- when validation only mode is being used.)
104 --
105 p_reporting_id := null;
106 p_object_version_number := null;
107 hr_utility.set_location(' Leaving:'||l_proc, 80);
108 --
109 when others then
110 --
111 -- A validation or unexpected error has occured
112 -- Set all output arguments
113 --
114 p_reporting_id := null;
115 p_object_version_number := null;
116
117 ROLLBACK TO create_reporting;
118 raise;
119 --
120 end create_reporting;
121 -- ----------------------------------------------------------------------------
122 -- |------------------------< update_reporting >------------------------------|
123 -- ----------------------------------------------------------------------------
124 --
125 procedure update_reporting
126 (p_validate in boolean default false
127 ,p_reporting_id in number
128 ,p_benefit_action_id in number default hr_api.g_number
129 ,p_thread_id in number default hr_api.g_number
130 ,p_sequence in number default hr_api.g_number
131 ,p_text in varchar2 default hr_api.g_varchar2
132 ,p_rep_typ_cd in varchar2 default hr_api.g_varchar2
133 ,p_error_message_code in varchar2 default hr_api.g_varchar2
134 ,p_national_identifier in varchar2 default hr_api.g_varchar2
135 ,p_related_person_ler_id in number default hr_api.g_number
136 ,p_temporal_ler_id in number default hr_api.g_number
137 ,p_ler_id in number default hr_api.g_number
138 ,p_person_id in number default hr_api.g_number
139 ,p_pgm_id in number default hr_api.g_number
140 ,p_pl_id in number default hr_api.g_number
141 ,p_related_person_id in number default hr_api.g_number
142 ,p_oipl_id in number default hr_api.g_number
143 ,p_pl_typ_id in number default hr_api.g_number
144 ,p_actl_prem_id in number default hr_api.g_number
145 ,p_val in number default hr_api.g_number
146 ,p_mo_num in number default hr_api.g_number
147 ,p_yr_num in number default hr_api.g_number
148 ,p_object_version_number in out nocopy number) is
149 --
150 -- Declare cursors and local variables
151 --
152 l_proc varchar2(72) := g_package||'update_reporting';
153 l_object_version_number ben_reporting.object_version_number%TYPE;
154 --
155 begin
156 --
157 hr_utility.set_location('Entering:'|| l_proc, 10);
158 --
159 -- Issue a savepoint if operating in validation only mode
160 --
161 savepoint update_reporting;
162 --
163 hr_utility.set_location(l_proc, 20);
164 --
165 -- Process Logic
166 --
167 l_object_version_number := p_object_version_number;
168 --
169 ben_bmn_upd.upd
170 (p_reporting_id => p_reporting_id
171 ,p_benefit_action_id => p_benefit_action_id
172 ,p_thread_id => p_thread_id
173 ,p_sequence => p_sequence
174 ,p_text => p_text
175 ,p_rep_typ_cd => p_rep_typ_cd
176 ,p_error_message_code => p_error_message_code
177 ,p_national_identifier => p_national_identifier
178 ,p_related_person_ler_id => p_related_person_ler_id
179 ,p_temporal_ler_id => p_temporal_ler_id
180 ,p_ler_id => p_ler_id
181 ,p_person_id => p_person_id
182 ,p_pgm_id => p_pgm_id
183 ,p_pl_id => p_pl_id
184 ,p_related_person_id => p_related_person_id
185 ,p_oipl_id => p_oipl_id
186 ,p_pl_typ_id => p_pl_typ_id
187 ,p_actl_prem_id => p_actl_prem_id
188 ,p_val => p_val
189 ,p_mo_num => p_mo_num
190 ,p_yr_num => p_yr_num
191 ,p_object_version_number => l_object_version_number);
192 --
193 hr_utility.set_location(l_proc, 60);
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_object_version_number;
204 --
205 hr_utility.set_location(' Leaving:'||l_proc, 70);
206 --
207 exception
208 --
209 when hr_api.validate_enabled then
210 --
211 -- As the Validate_Enabled exception has been raised
212 -- we must rollback to the savepoint
213 --
214 ROLLBACK TO update_reporting;
215 --
216 -- Only set output warning arguments
217 -- (Any key or derived arguments must be set to null
218 -- when validation only mode is being used.)
219 --
220 hr_utility.set_location(' Leaving:'||l_proc, 80);
221 --
222 when others then
223 --
224 -- A validation or unexpected error has occured
225 -- Set all output arguments
226 --
227
228 ROLLBACK TO update_reporting;
229 raise;
230 --
231 end update_reporting;
232 -- ----------------------------------------------------------------------------
233 -- |------------------------< delete_reporting >------------------------------|
234 -- ----------------------------------------------------------------------------
235 --
236 procedure delete_reporting
237 (p_validate in boolean default false
238 ,p_reporting_id in number
239 ,p_object_version_number in out nocopy number) is
240 --
241 -- Declare cursors and local variables
242 --
243 l_proc varchar2(72) := g_package||'update_reporting';
244 l_object_version_number ben_reporting.object_version_number%TYPE;
245 --
246 begin
247 --
248 hr_utility.set_location('Entering:'|| l_proc, 10);
249 --
250 -- Issue a savepoint if operating in validation only mode
251 --
252 savepoint delete_reporting;
253 --
254 hr_utility.set_location(l_proc, 20);
255 --
256 -- Process Logic
257 --
258 l_object_version_number := p_object_version_number;
259 --
260 --
261 ben_bmn_del.del
262 (p_reporting_id => p_reporting_id
263 ,p_object_version_number => l_object_version_number);
264 --
265 hr_utility.set_location(l_proc, 60);
266 --
267 -- When in validation only mode raise the Validate_Enabled exception
268 --
269 if p_validate then
270 raise hr_api.validate_enabled;
271 end if;
272 --
273 hr_utility.set_location(' Leaving:'||l_proc, 70);
274 --
275 exception
276 --
277 when hr_api.validate_enabled then
278 --
279 -- As the Validate_Enabled exception has been raised
280 -- we must rollback to the savepoint
281 --
282 ROLLBACK TO delete_reporting;
283 --
284 -- Only set output warning arguments
285 -- (Any key or derived arguments must be set to null
286 -- when validation only mode is being used.)
287 --
288 --
289 when others then
290 --
291 -- A validation or unexpected error has occured
292 --
293
294 ROLLBACK TO delete_reporting;
295 raise;
296 --
297 end delete_reporting;
298 --
299 -- ----------------------------------------------------------------------------
300 -- |-------------------------------< lck >------------------------------------|
301 -- ----------------------------------------------------------------------------
302 --
303 procedure lck
304 (p_reporting_id in number
305 ,p_object_version_number in number) is
306 --
307 --
308 -- Declare cursors and local variables
309 --
310 l_proc varchar2(72) := g_package||'lck';
311 --
312 begin
313 --
314 hr_utility.set_location('Entering:'|| l_proc, 10);
315 --
316 ben_bmn_shd.lck
317 (p_reporting_id => p_reporting_id
318 ,p_object_version_number => p_object_version_number);
319 --
320 hr_utility.set_location(' Leaving:'||l_proc, 70);
321 --
322 end lck;
323 --
324 end ben_reporting_api;