[Home] [Help]
PACKAGE BODY: APPS.BEN_CRP_SHD
Source
1 Package Body ben_crp_shd as
2 /* $Header: becrprhi.pkb 115.4 2002/12/16 11:04:00 rpgupta ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_crp_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------< return_api_dml_status >-------------------------|
12 -- ----------------------------------------------------------------------------
13 Function return_api_dml_status Return Boolean Is
14 --
15 l_proc varchar2(72) := g_package||'return_api_dml_status';
16 --
17 Begin
18 hr_utility.set_location('Entering:'||l_proc, 5);
19 --
20 Return (nvl(g_api_dml, false));
21 --
22 hr_utility.set_location(' Leaving:'||l_proc, 10);
23 End return_api_dml_status;
24 --
25 -- ----------------------------------------------------------------------------
26 -- |---------------------------< constraint_error >---------------------------|
27 -- ----------------------------------------------------------------------------
28 Procedure constraint_error
29 (p_constraint_name in all_constraints.constraint_name%TYPE) Is
30 --
31 l_proc varchar2(72) := g_package||'constraint_error';
32 --
33 Begin
34 hr_utility.set_location('Entering:'||l_proc, 5);
35 --
36 If (p_constraint_name = 'BEN_CBR_PER_IN_LER_FK1') Then
37 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38 fnd_message.set_token('PROCEDURE', l_proc);
39 fnd_message.set_token('STEP','5');
40 fnd_message.raise_error;
41 ElsIf (p_constraint_name = 'BEN_CBR_PER_IN_LER_PK') Then
42 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
43 fnd_message.set_token('PROCEDURE', l_proc);
44 fnd_message.set_token('STEP','10');
45 fnd_message.raise_error;
46 Else
47 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
48 fnd_message.set_token('PROCEDURE', l_proc);
49 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
50 fnd_message.raise_error;
51 End If;
52 --
53 hr_utility.set_location(' Leaving:'||l_proc, 10);
54 End constraint_error;
55 --
56 -- ----------------------------------------------------------------------------
57 -- |-----------------------------< api_updating >-----------------------------|
58 -- ----------------------------------------------------------------------------
59 Function api_updating
60 (
61 p_cbr_per_in_ler_id in number,
62 p_object_version_number in number
63 ) Return Boolean Is
64 --
65 --
66 -- Cursor selects the 'current' row from the HR Schema
67 --
68 Cursor C_Sel1 is
69 select
70 cbr_per_in_ler_id,
71 init_evt_flag,
72 cnt_num,
73 per_in_ler_id,
74 cbr_quald_bnf_id,
75 prvs_elig_perd_end_dt,
76 business_group_id,
77 crp_attribute_category,
78 crp_attribute1,
79 crp_attribute2,
80 crp_attribute3,
81 crp_attribute4,
82 crp_attribute5,
83 crp_attribute6,
84 crp_attribute7,
85 crp_attribute8,
86 crp_attribute9,
87 crp_attribute10,
88 crp_attribute11,
89 crp_attribute12,
90 crp_attribute13,
91 crp_attribute14,
92 crp_attribute15,
93 crp_attribute16,
94 crp_attribute17,
95 crp_attribute18,
96 crp_attribute19,
97 crp_attribute20,
98 crp_attribute21,
99 crp_attribute22,
100 crp_attribute23,
101 crp_attribute24,
102 crp_attribute25,
103 crp_attribute26,
104 crp_attribute27,
105 crp_attribute28,
106 crp_attribute29,
107 crp_attribute30,
108 object_version_number
109 from ben_cbr_per_in_ler
110 where cbr_per_in_ler_id = p_cbr_per_in_ler_id;
111 --
112 l_proc varchar2(72) := g_package||'api_updating';
113 l_fct_ret boolean;
114 --
115 Begin
116 hr_utility.set_location('Entering:'||l_proc, 5);
117 --
118 If (
119 p_cbr_per_in_ler_id is null and
120 p_object_version_number is null
121 ) Then
122 --
123 -- One of the primary key arguments is null therefore we must
124 -- set the returning function value to false
125 --
126 l_fct_ret := false;
127 Else
128 If (
129 p_cbr_per_in_ler_id = g_old_rec.cbr_per_in_ler_id and
133 --
130 p_object_version_number = g_old_rec.object_version_number
131 ) Then
132 hr_utility.set_location(l_proc, 10);
134 -- The g_old_rec is current therefore we must
135 -- set the returning function to true
136 --
137 l_fct_ret := true;
138 Else
139 --
140 -- Select the current row into g_old_rec
141 --
142 Open C_Sel1;
143 Fetch C_Sel1 Into g_old_rec;
144 If C_Sel1%notfound Then
145 Close C_Sel1;
146 --
147 -- The primary key is invalid therefore we must error
148 --
149 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
150 fnd_message.raise_error;
151 End If;
152 Close C_Sel1;
153 If (p_object_version_number <> g_old_rec.object_version_number) Then
154 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
155 fnd_message.raise_error;
156 End If;
157 hr_utility.set_location(l_proc, 15);
158 l_fct_ret := true;
159 End If;
160 End If;
161 hr_utility.set_location(' Leaving:'||l_proc, 20);
162 Return (l_fct_ret);
163 --
164 End api_updating;
165 --
166 -- ----------------------------------------------------------------------------
167 -- |---------------------------------< lck >----------------------------------|
168 -- ----------------------------------------------------------------------------
169 Procedure lck
170 (
171 p_cbr_per_in_ler_id in number,
172 p_object_version_number in number
173 ) is
174 --
175 -- Cursor selects the 'current' row from the HR Schema
176 --
177 Cursor C_Sel1 is
178 select cbr_per_in_ler_id,
179 init_evt_flag,
180 cnt_num,
181 per_in_ler_id,
182 cbr_quald_bnf_id,
183 prvs_elig_perd_end_dt,
184 business_group_id,
185 crp_attribute_category,
186 crp_attribute1,
187 crp_attribute2,
188 crp_attribute3,
189 crp_attribute4,
190 crp_attribute5,
191 crp_attribute6,
192 crp_attribute7,
193 crp_attribute8,
194 crp_attribute9,
195 crp_attribute10,
196 crp_attribute11,
197 crp_attribute12,
198 crp_attribute13,
199 crp_attribute14,
200 crp_attribute15,
201 crp_attribute16,
202 crp_attribute17,
203 crp_attribute18,
204 crp_attribute19,
205 crp_attribute20,
206 crp_attribute21,
207 crp_attribute22,
208 crp_attribute23,
209 crp_attribute24,
210 crp_attribute25,
211 crp_attribute26,
212 crp_attribute27,
213 crp_attribute28,
214 crp_attribute29,
215 crp_attribute30,
216 object_version_number
217 from ben_cbr_per_in_ler
218 where cbr_per_in_ler_id = p_cbr_per_in_ler_id
219 for update nowait;
220 --
221 l_proc varchar2(72) := g_package||'lck';
222 --
223 Begin
224 hr_utility.set_location('Entering:'||l_proc, 5);
225 --
226 -- Add any mandatory argument checking here:
227 -- Example:
228 -- hr_api.mandatory_arg_error
229 -- (p_api_name => l_proc,
230 -- p_argument => 'object_version_number',
231 -- p_argument_value => p_object_version_number);
232 --
233 Open C_Sel1;
234 Fetch C_Sel1 Into g_old_rec;
235 If C_Sel1%notfound then
236 Close C_Sel1;
237 --
238 -- The primary key is invalid therefore we must error
239 --
240 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
241 fnd_message.raise_error;
242 End If;
243 Close C_Sel1;
244 If (p_object_version_number <> g_old_rec.object_version_number) Then
245 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
246 fnd_message.raise_error;
247 End If;
248 --
249 hr_utility.set_location(' Leaving:'||l_proc, 10);
250 --
251 -- We need to trap the ORA LOCK exception
252 --
253 Exception
254 When HR_Api.Object_Locked then
255 --
256 -- The object is locked therefore we need to supply a meaningful
257 -- error message.
258 --
259 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
260 fnd_message.set_token('TABLE_NAME', 'ben_cbr_per_in_ler');
261 fnd_message.raise_error;
262 End lck;
263 --
264 -- ----------------------------------------------------------------------------
265 -- |-----------------------------< convert_args >-----------------------------|
266 -- ----------------------------------------------------------------------------
267 Function convert_args
268 (
269 p_cbr_per_in_ler_id in number,
270 p_init_evt_flag in varchar2,
271 p_cnt_num in number,
272 p_per_in_ler_id in number,
273 p_cbr_quald_bnf_id in number,
274 p_prvs_elig_perd_end_dt in date,
275 p_business_group_id in number,
276 p_crp_attribute_category in varchar2,
277 p_crp_attribute1 in varchar2,
278 p_crp_attribute2 in varchar2,
279 p_crp_attribute3 in varchar2,
280 p_crp_attribute4 in varchar2,
281 p_crp_attribute5 in varchar2,
282 p_crp_attribute6 in varchar2,
283 p_crp_attribute7 in varchar2,
284 p_crp_attribute8 in varchar2,
285 p_crp_attribute9 in varchar2,
286 p_crp_attribute10 in varchar2,
287 p_crp_attribute11 in varchar2,
288 p_crp_attribute12 in varchar2,
289 p_crp_attribute13 in varchar2,
290 p_crp_attribute14 in varchar2,
291 p_crp_attribute15 in varchar2,
292 p_crp_attribute16 in varchar2,
293 p_crp_attribute17 in varchar2,
294 p_crp_attribute18 in varchar2,
295 p_crp_attribute19 in varchar2,
296 p_crp_attribute20 in varchar2,
297 p_crp_attribute21 in varchar2,
298 p_crp_attribute22 in varchar2,
299 p_crp_attribute23 in varchar2,
300 p_crp_attribute24 in varchar2,
301 p_crp_attribute25 in varchar2,
302 p_crp_attribute26 in varchar2,
303 p_crp_attribute27 in varchar2,
304 p_crp_attribute28 in varchar2,
305 p_crp_attribute29 in varchar2,
306 p_crp_attribute30 in varchar2,
307 p_object_version_number in number
308 )
309 Return g_rec_type is
310 --
311 l_rec g_rec_type;
312 l_proc varchar2(72) := g_package||'convert_args';
313 --
314 Begin
315 --
316 hr_utility.set_location('Entering:'||l_proc, 5);
317 --
318 -- Convert arguments into local l_rec structure.
319 --
320 l_rec.cbr_per_in_ler_id := p_cbr_per_in_ler_id;
321 l_rec.init_evt_flag := p_init_evt_flag;
322 l_rec.cnt_num := p_cnt_num;
323 l_rec.per_in_ler_id := p_per_in_ler_id;
324 l_rec.cbr_quald_bnf_id := p_cbr_quald_bnf_id;
325 l_rec.prvs_elig_perd_end_dt := p_prvs_elig_perd_end_dt;
326 l_rec.business_group_id := p_business_group_id;
327 l_rec.crp_attribute_category := p_crp_attribute_category;
328 l_rec.crp_attribute1 := p_crp_attribute1;
329 l_rec.crp_attribute2 := p_crp_attribute2;
330 l_rec.crp_attribute3 := p_crp_attribute3;
331 l_rec.crp_attribute4 := p_crp_attribute4;
332 l_rec.crp_attribute5 := p_crp_attribute5;
333 l_rec.crp_attribute6 := p_crp_attribute6;
334 l_rec.crp_attribute7 := p_crp_attribute7;
335 l_rec.crp_attribute8 := p_crp_attribute8;
336 l_rec.crp_attribute9 := p_crp_attribute9;
337 l_rec.crp_attribute10 := p_crp_attribute10;
338 l_rec.crp_attribute11 := p_crp_attribute11;
339 l_rec.crp_attribute12 := p_crp_attribute12;
340 l_rec.crp_attribute13 := p_crp_attribute13;
341 l_rec.crp_attribute14 := p_crp_attribute14;
342 l_rec.crp_attribute15 := p_crp_attribute15;
343 l_rec.crp_attribute16 := p_crp_attribute16;
344 l_rec.crp_attribute17 := p_crp_attribute17;
345 l_rec.crp_attribute18 := p_crp_attribute18;
346 l_rec.crp_attribute19 := p_crp_attribute19;
347 l_rec.crp_attribute20 := p_crp_attribute20;
348 l_rec.crp_attribute21 := p_crp_attribute21;
349 l_rec.crp_attribute22 := p_crp_attribute22;
350 l_rec.crp_attribute23 := p_crp_attribute23;
351 l_rec.crp_attribute24 := p_crp_attribute24;
352 l_rec.crp_attribute25 := p_crp_attribute25;
353 l_rec.crp_attribute26 := p_crp_attribute26;
354 l_rec.crp_attribute27 := p_crp_attribute27;
355 l_rec.crp_attribute28 := p_crp_attribute28;
356 l_rec.crp_attribute29 := p_crp_attribute29;
357 l_rec.crp_attribute30 := p_crp_attribute30;
358 l_rec.object_version_number := p_object_version_number;
359 --
360 -- Return the plsql record structure.
361 --
362 hr_utility.set_location(' Leaving:'||l_proc, 10);
363 Return(l_rec);
364 --
365 End convert_args;
366 --
367 end ben_crp_shd;