[Home] [Help]
PACKAGE BODY: APPS.PER_CTK_SHD
Source
1 Package Body per_ctk_shd as
2 /* $Header: pectkrhi.pkb 120.7 2006/09/11 20:45:03 sturlapa noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' per_ctk_shd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |---------------------------< constraint_error >---------------------------|
12 -- ----------------------------------------------------------------------------
13 Procedure constraint_error
14 (p_constraint_name in all_constraints.constraint_name%TYPE
15 ) Is
16 --
17 l_proc varchar2(72) := g_package||'constraint_error';
18 --
19 Begin
20 --
21 If (p_constraint_name = 'PER_TASKS_IN_CHECKLIST_PK') Then
22 fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
23 fnd_message.set_token('PROCEDURE', l_proc);
24 fnd_message.set_token('STEP','5');
25 fnd_message.raise_error;
26 Else
27 fnd_message.set_name('PAY', 'HR_7877_API_INVALID_CONSTRAINT');
28 fnd_message.set_token('PROCEDURE', l_proc);
29 fnd_message.set_token('CONSTRAINT_NAME', p_constraint_name);
30 fnd_message.raise_error;
31 End If;
32 --
33 End constraint_error;
34 --
35 -- ----------------------------------------------------------------------------
36 -- |-----------------------------< api_updating >-----------------------------|
37 -- ----------------------------------------------------------------------------
38 Function api_updating
39 (p_task_in_checklist_id in number
40 ,p_object_version_number in number
41 )
42 Return Boolean Is
43 --
44 --
45 -- Cursor selects the 'current' row from the HR Schema
46 --
47 Cursor C_Sel1 is
48 select
49 task_in_checklist_id
50 ,checklist_id
51 ,checklist_task_name
52 ,eligibility_object_id
53 ,eligibility_profile_id
54 ,ame_attribute_identifier
55 ,description
56 ,mandatory_flag
57 ,target_duration
58 ,target_duration_uom
59 ,task_sequence
60 ,object_version_number
61 ,action_url
62 ,attribute_category
63 ,attribute1
64 ,attribute2
65 ,attribute3
66 ,attribute4
67 ,attribute5
68 ,attribute6
69 ,attribute7
70 ,attribute8
71 ,attribute9
72 ,attribute10
73 ,attribute11
74 ,attribute12
75 ,attribute13
76 ,attribute14
77 ,attribute15
78 ,attribute16
79 ,attribute17
80 ,attribute18
81 ,attribute19
82 ,attribute20
83 ,information_category
84 ,information1
85 ,information2
86 ,information3
87 ,information4
88 ,information5
89 ,information6
90 ,information7
91 ,information8
92 ,information9
93 ,information10
94 ,information11
95 ,information12
96 ,information13
97 ,information14
98 ,information15
99 ,information16
100 ,information17
101 ,information18
102 ,information19
103 ,information20
104 from per_tasks_in_checklist
105 where task_in_checklist_id = p_task_in_checklist_id;
106 --
107 l_fct_ret boolean;
108 --
109 Begin
110 --
111 If (p_task_in_checklist_id is null and
112 p_object_version_number is null
113 ) Then
114 --
115 -- One of the primary key arguments is null therefore we must
116 -- set the returning function value to false
117 --
118 l_fct_ret := false;
119 Else
120 If (p_task_in_checklist_id
121 = per_ctk_shd.g_old_rec.task_in_checklist_id and
122 p_object_version_number
123 = per_ctk_shd.g_old_rec.object_version_number
124 ) Then
125 --
126 -- The g_old_rec is current therefore we must
127 -- set the returning function to true
128 --
129 l_fct_ret := true;
130 Else
131 --
132 -- Select the current row into g_old_rec
133 --
134 Open C_Sel1;
135 Fetch C_Sel1 Into per_ctk_shd.g_old_rec;
136 If C_Sel1%notfound Then
137 Close C_Sel1;
138 --
139 -- The primary key is invalid therefore we must error
140 --
141 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
142 fnd_message.raise_error;
143 End If;
144 Close C_Sel1;
145 If (p_object_version_number
146 <> per_ctk_shd.g_old_rec.object_version_number) Then
147 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
148 fnd_message.raise_error;
149 End If;
150 l_fct_ret := true;
151 End If;
152 End If;
153 Return (l_fct_ret);
154 --
155 End api_updating;
156 --
157 -- ----------------------------------------------------------------------------
158 -- |---------------------------------< lck >----------------------------------|
159 -- ----------------------------------------------------------------------------
160 Procedure lck
161 (p_task_in_checklist_id in number
162 ,p_object_version_number in number
163 ) is
164 --
165 -- Cursor selects the 'current' row from the HR Schema
166 --
167 Cursor C_Sel1 is
168 select
169 task_in_checklist_id
170 ,checklist_id
171 ,checklist_task_name
172 ,eligibility_object_id
173 ,eligibility_profile_id
174 ,ame_attribute_identifier
175 ,description
176 ,mandatory_flag
177 ,target_duration
178 ,target_duration_uom
179 ,task_sequence
180 ,object_version_number
181 ,action_url
182 ,attribute_category
183 ,attribute1
184 ,attribute2
185 ,attribute3
186 ,attribute4
187 ,attribute5
188 ,attribute6
189 ,attribute7
190 ,attribute8
191 ,attribute9
192 ,attribute10
193 ,attribute11
194 ,attribute12
195 ,attribute13
196 ,attribute14
197 ,attribute15
198 ,attribute16
199 ,attribute17
200 ,attribute18
201 ,attribute19
202 ,attribute20
203 ,information_category
204 ,information1
205 ,information2
206 ,information3
207 ,information4
208 ,information5
209 ,information6
210 ,information7
211 ,information8
212 ,information9
213 ,information10
214 ,information11
215 ,information12
216 ,information13
217 ,information14
218 ,information15
219 ,information16
220 ,information17
221 ,information18
222 ,information19
223 ,information20
224 from per_tasks_in_checklist
225 where task_in_checklist_id = p_task_in_checklist_id
226 for update nowait;
227 --
228 l_proc varchar2(72) := g_package||'lck';
229 --
230 Begin
231 hr_utility.set_location('Entering:'||l_proc, 5);
232 --
233 hr_api.mandatory_arg_error
234 (p_api_name => l_proc
235 ,p_argument => 'TASK_IN_CHECKLIST_ID'
236 ,p_argument_value => p_task_in_checklist_id
237 );
238 hr_utility.set_location(l_proc,6);
239 hr_api.mandatory_arg_error
240 (p_api_name => l_proc
241 ,p_argument => 'OBJECT_VERSION_NUMBER'
242 ,p_argument_value => p_object_version_number
243 );
244 --
245 Open C_Sel1;
246 Fetch C_Sel1 Into per_ctk_shd.g_old_rec;
247 If C_Sel1%notfound then
248 Close C_Sel1;
249 --
250 -- The primary key is invalid therefore we must error
251 --
252 fnd_message.set_name('PAY', 'HR_7220_INVALID_PRIMARY_KEY');
253 fnd_message.raise_error;
254 End If;
255 Close C_Sel1;
256 If (p_object_version_number
257 <> per_ctk_shd.g_old_rec.object_version_number) Then
258 fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
259 fnd_message.raise_error;
260 End If;
261 --
262 hr_utility.set_location(' Leaving:'||l_proc, 10);
263 --
264 -- We need to trap the ORA LOCK exception
265 --
266 Exception
267 When HR_Api.Object_Locked then
268 --
269 -- The object is locked therefore we need to supply a meaningful
270 -- error message.
271 --
272 fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
273 fnd_message.set_token('TABLE_NAME', 'per_tasks_in_checklist');
274 fnd_message.raise_error;
275 End lck;
276 --
277 -- ----------------------------------------------------------------------------
278 -- |-----------------------------< convert_args >-----------------------------|
279 -- ----------------------------------------------------------------------------
280 Function convert_args
281 (p_task_in_checklist_id in number
282 ,p_checklist_id in number
283 ,p_checklist_task_name in varchar2
284 ,p_eligibility_object_id in number
285 ,p_eligibility_profile_id in number
286 ,p_ame_attribute_identifier in varchar2
287 ,p_description in varchar2
288 ,p_mandatory_flag in varchar2
289 ,p_target_duration in number
290 ,p_target_duration_uom in varchar2
291 ,p_task_sequence in number
292 ,p_object_version_number in number
293 ,p_action_url in varchar2
294 ,p_attribute_category in varchar2
295 ,p_attribute1 in varchar2
296 ,p_attribute2 in varchar2
297 ,p_attribute3 in varchar2
298 ,p_attribute4 in varchar2
299 ,p_attribute5 in varchar2
300 ,p_attribute6 in varchar2
301 ,p_attribute7 in varchar2
302 ,p_attribute8 in varchar2
303 ,p_attribute9 in varchar2
304 ,p_attribute10 in varchar2
305 ,p_attribute11 in varchar2
306 ,p_attribute12 in varchar2
307 ,p_attribute13 in varchar2
308 ,p_attribute14 in varchar2
309 ,p_attribute15 in varchar2
310 ,p_attribute16 in varchar2
311 ,p_attribute17 in varchar2
312 ,p_attribute18 in varchar2
313 ,p_attribute19 in varchar2
314 ,p_attribute20 in varchar2
315 ,p_information_category in varchar2
316 ,p_information1 in varchar2
317 ,p_information2 in varchar2
318 ,p_information3 in varchar2
319 ,p_information4 in varchar2
320 ,p_information5 in varchar2
321 ,p_information6 in varchar2
322 ,p_information7 in varchar2
323 ,p_information8 in varchar2
324 ,p_information9 in varchar2
325 ,p_information10 in varchar2
326 ,p_information11 in varchar2
327 ,p_information12 in varchar2
328 ,p_information13 in varchar2
329 ,p_information14 in varchar2
330 ,p_information15 in varchar2
331 ,p_information16 in varchar2
332 ,p_information17 in varchar2
333 ,p_information18 in varchar2
334 ,p_information19 in varchar2
335 ,p_information20 in varchar2
336 )
337 Return g_rec_type is
338 --
339 l_rec g_rec_type;
340 --
341 Begin
342 --
343 -- Convert arguments into local l_rec structure.
344 --
345 l_rec.task_in_checklist_id := p_task_in_checklist_id;
346 l_rec.checklist_id := p_checklist_id;
347 l_rec.checklist_task_name := p_checklist_task_name;
348 l_rec.eligibility_object_id := p_eligibility_object_id;
349 l_rec.eligibility_profile_id := p_eligibility_profile_id;
350 l_rec.ame_attribute_identifier := p_ame_attribute_identifier;
351 l_rec.description := p_description;
352 l_rec.mandatory_flag := p_mandatory_flag;
353 l_rec.target_duration := p_target_duration;
354 l_rec.target_duration_uom := p_target_duration_uom;
355 l_rec.task_sequence := p_task_sequence;
356 l_rec.object_version_number := p_object_version_number;
357 l_rec.action_url := p_action_url;
358 l_rec.attribute_category := p_attribute_category;
359 l_rec.attribute1 := p_attribute1;
360 l_rec.attribute2 := p_attribute2;
361 l_rec.attribute3 := p_attribute3;
362 l_rec.attribute4 := p_attribute4;
363 l_rec.attribute5 := p_attribute5;
364 l_rec.attribute6 := p_attribute6;
365 l_rec.attribute7 := p_attribute7;
366 l_rec.attribute8 := p_attribute8;
367 l_rec.attribute9 := p_attribute9;
368 l_rec.attribute10 := p_attribute10;
369 l_rec.attribute11 := p_attribute11;
370 l_rec.attribute12 := p_attribute12;
371 l_rec.attribute13 := p_attribute13;
372 l_rec.attribute14 := p_attribute14;
373 l_rec.attribute15 := p_attribute15;
374 l_rec.attribute16 := p_attribute16;
375 l_rec.attribute17 := p_attribute17;
376 l_rec.attribute18 := p_attribute18;
377 l_rec.attribute19 := p_attribute19;
378 l_rec.attribute20 := p_attribute20;
379 l_rec.information_category := p_information_category;
380 l_rec.information1 := p_information1;
381 l_rec.information2 := p_information2;
382 l_rec.information3 := p_information3;
383 l_rec.information4 := p_information4;
384 l_rec.information5 := p_information5;
385 l_rec.information6 := p_information6;
386 l_rec.information7 := p_information7;
387 l_rec.information8 := p_information8;
388 l_rec.information9 := p_information9;
389 l_rec.information10 := p_information10;
390 l_rec.information11 := p_information11;
391 l_rec.information12 := p_information12;
392 l_rec.information13 := p_information13;
393 l_rec.information14 := p_information14;
394 l_rec.information15 := p_information15;
395 l_rec.information16 := p_information16;
396 l_rec.information17 := p_information17;
397 l_rec.information18 := p_information18;
398 l_rec.information19 := p_information19;
399 l_rec.information20 := p_information20;
400 --
401 -- Return the plsql record structure.
402 --
403 Return(l_rec);
404 --
405 End convert_args;
406 --
407 end per_ctk_shd;