[Home] [Help]
PACKAGE BODY: APPS.PAY_CON_SHD
Source
4 -- ----------------------------------------------------------------------------
1 Package Body pay_con_shd as
2 /* $Header: pyconrhi.pkb 115.3 1999/12/03 16:45:29 pkm ship $ */
3 --
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' pay_con_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 = 'PAY_US_CONTRIBUTION_HISTORY_PK') Then
37 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38 hr_utility.set_message_token('PROCEDURE', l_proc);
39 hr_utility.set_message_token('STEP','5');
40 hr_utility.raise_error;
41 ElsIf (p_constraint_name = 'PAY_US_CONTRIBUTION_HISTORY_UK') Then
42 --hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIl');
43 --hr_utility.set_message_token('PROCEDURE', l_proc);
44 --hr_utility.set_message_token('STEP','10');
45 hr_utility.set_message(801, 'PAY_CONTRIB_HIST_NOT_UNIQUE');
46 hr_utility.raise_error;
47 Else
48 hr_utility.set_message(801, 'HR_7877_API_INVALID_CONSTRAINT');
49 hr_utility.set_message_token('PROCEDURE', l_proc);
50 hr_utility.set_message_token('CONSTRAINT_NAME', p_constraint_name);
51 hr_utility.raise_error;
52 End If;
53 --
54 hr_utility.set_location(' Leaving:'||l_proc, 10);
55 End constraint_error;
56 --
57 -- ----------------------------------------------------------------------------
58 -- |-----------------------------< api_updating >-----------------------------|
59 -- ----------------------------------------------------------------------------
60 Function api_updating
61 (
62 p_contr_history_id in number,
63 p_object_version_number in number
64 ) Return Boolean Is
65 --
66 --
67 -- Cursor selects the 'current' row from the HR Schema
68 --
69 Cursor C_Sel1 is
70 select
71 contr_history_id,
72 person_id,
73 date_from,
74 date_to,
75 contr_type,
76 business_group_id,
77 legislation_code,
78 amt_contr,
79 max_contr_allowed,
80 includable_comp,
81 tax_unit_id,
82 source_system,
83 contr_information_category,
84 contr_information1,
85 contr_information2,
86 contr_information3,
87 contr_information4,
88 contr_information5,
89 contr_information6,
90 contr_information7,
91 contr_information8,
92 contr_information9,
93 contr_information10,
94 contr_information11,
95 contr_information12,
96 contr_information13,
97 contr_information14,
98 contr_information15,
99 contr_information16,
100 contr_information17,
101 contr_information18,
102 contr_information19,
103 contr_information20,
104 contr_information21,
105 contr_information22,
106 contr_information23,
107 contr_information24,
108 contr_information25,
109 contr_information26,
110 contr_information27,
111 contr_information28,
112 contr_information29,
113 contr_information30,
114 object_version_number
115 from pay_us_contribution_history
116 where contr_history_id = p_contr_history_id;
117 --
118 l_proc varchar2(72) := g_package||'api_updating';
119 l_fct_ret boolean;
120 --
121 Begin
122 hr_utility.set_location('Entering:'||l_proc, 5);
123 --
124 If (
128 --
125 p_contr_history_id is null and
126 p_object_version_number is null
127 ) Then
129 -- One of the primary key arguments is null therefore we must
130 -- set the returning function value to false
131 --
132 l_fct_ret := false;
133 Else
134 If (
135 p_contr_history_id = g_old_rec.contr_history_id and
136 p_object_version_number = g_old_rec.object_version_number
137 ) Then
138 hr_utility.set_location(l_proc, 10);
139 --
140 -- The g_old_rec is current therefore we must
141 -- set the returning function to true
142 --
143 l_fct_ret := true;
144 Else
145 --
146 -- Select the current row into g_old_rec
147 --
148 Open C_Sel1;
149 Fetch C_Sel1 Into g_old_rec;
150 If C_Sel1%notfound Then
151 Close C_Sel1;
152 --
153 -- The primary key is invalid therefore we must error
154 --
155 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
156 hr_utility.raise_error;
157 End If;
158 Close C_Sel1;
159 If (p_object_version_number <> g_old_rec.object_version_number) Then
160 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
161 hr_utility.raise_error;
162 End If;
163 hr_utility.set_location(l_proc, 15);
164 l_fct_ret := true;
165 End If;
166 End If;
167 hr_utility.set_location(' Leaving:'||l_proc, 20);
168 Return (l_fct_ret);
169 --
170 End api_updating;
171 --
172 -- ----------------------------------------------------------------------------
173 -- |---------------------------------< lck >----------------------------------|
174 -- ----------------------------------------------------------------------------
175 Procedure lck
176 (
177 p_contr_history_id in number,
178 p_object_version_number in number
179 ) is
180 --
181 -- Cursor selects the 'current' row from the HR Schema
182 --
183 Cursor C_Sel1 is
187 date_to,
184 select contr_history_id,
185 person_id,
186 date_from,
188 contr_type,
189 business_group_id,
190 legislation_code,
191 amt_contr,
192 max_contr_allowed,
193 includable_comp,
194 tax_unit_id,
195 source_system,
196 contr_information_category,
197 contr_information1,
198 contr_information2,
199 contr_information3,
200 contr_information4,
201 contr_information5,
202 contr_information6,
203 contr_information7,
204 contr_information8,
205 contr_information9,
206 contr_information10,
207 contr_information11,
208 contr_information12,
209 contr_information13,
210 contr_information14,
211 contr_information15,
212 contr_information16,
213 contr_information17,
214 contr_information18,
215 contr_information19,
216 contr_information20,
217 contr_information21,
218 contr_information22,
219 contr_information23,
220 contr_information24,
221 contr_information25,
222 contr_information26,
223 contr_information27,
224 contr_information28,
225 contr_information29,
226 contr_information30,
227 object_version_number
228 from pay_us_contribution_history
229 where contr_history_id = p_contr_history_id
230 for update nowait;
231 --
232 l_proc varchar2(72) := g_package||'lck';
233 --
234 Begin
235 hr_utility.set_location('Entering:'||l_proc, 5);
236 --
237 -- Add any mandatory argument checking here:
238 -- Example:
239 -- hr_api.mandatory_arg_error
240 -- (p_api_name => l_proc,
244 Open C_Sel1;
241 -- p_argument => 'object_version_number',
242 -- p_argument_value => p_object_version_number);
243 --
245 Fetch C_Sel1 Into g_old_rec;
246 If C_Sel1%notfound then
247 Close C_Sel1;
248 --
249 -- The primary key is invalid therefore we must error
250 --
251 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
252 hr_utility.raise_error;
253 End If;
254 Close C_Sel1;
255 If (p_object_version_number <> g_old_rec.object_version_number) Then
256 hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
257 hr_utility.raise_error;
258 End If;
259 --
260 hr_utility.set_location(' Leaving:'||l_proc, 10);
261 --
262 -- We need to trap the ORA LOCK exception
263 --
264 Exception
265 When HR_Api.Object_Locked then
266 --
267 -- The object is locked therefore we need to supply a meaningful
268 -- error message.
269 --
270 hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
271 hr_utility.set_message_token('TABLE_NAME', 'pay_us_contribution_history');
272 hr_utility.raise_error;
273 End lck;
274 --
275 -- ----------------------------------------------------------------------------
276 -- |-----------------------------< convert_args >-----------------------------|
277 -- ----------------------------------------------------------------------------
278 Function convert_args
279 (
280 p_contr_history_id in number,
281 p_person_id in number,
282 p_date_from in date,
283 p_date_to in date,
284 p_contr_type in varchar2,
285 p_business_group_id in number,
286 p_legislation_code in varchar2,
287 p_amt_contr in number,
288 p_max_contr_allowed in number,
289 p_includable_comp in number,
290 p_tax_unit_id in number,
291 p_source_system in varchar2,
292 p_contr_information_category in varchar2,
293 p_contr_information1 in varchar2,
294 p_contr_information2 in varchar2,
295 p_contr_information3 in varchar2,
296 p_contr_information4 in varchar2,
297 p_contr_information5 in varchar2,
298 p_contr_information6 in varchar2,
299 p_contr_information7 in varchar2,
300 p_contr_information8 in varchar2,
301 p_contr_information9 in varchar2,
302 p_contr_information10 in varchar2,
303 p_contr_information11 in varchar2,
304 p_contr_information12 in varchar2,
305 p_contr_information13 in varchar2,
306 p_contr_information14 in varchar2,
307 p_contr_information15 in varchar2,
308 p_contr_information16 in varchar2,
309 p_contr_information17 in varchar2,
310 p_contr_information18 in varchar2,
311 p_contr_information19 in varchar2,
312 p_contr_information20 in varchar2,
313 p_contr_information21 in varchar2,
314 p_contr_information22 in varchar2,
315 p_contr_information23 in varchar2,
316 p_contr_information24 in varchar2,
317 p_contr_information25 in varchar2,
318 p_contr_information26 in varchar2,
319 p_contr_information27 in varchar2,
320 p_contr_information28 in varchar2,
321 p_contr_information29 in varchar2,
322 p_contr_information30 in varchar2,
323 p_object_version_number in number
324 )
325 Return g_rec_type is
326 --
327 l_rec g_rec_type;
328 l_proc varchar2(72) := g_package||'convert_args';
329 --
330 Begin
331 --
332 hr_utility.set_location('Entering:'||l_proc, 5);
333 --
334 -- Convert arguments into local l_rec structure.
335 --
336 l_rec.contr_history_id := p_contr_history_id;
337 l_rec.person_id := p_person_id;
338 l_rec.date_from := p_date_from;
339 l_rec.date_to := p_date_to;
340 l_rec.contr_type := p_contr_type;
341 l_rec.business_group_id := p_business_group_id;
342 l_rec.legislation_code := p_legislation_code;
343 l_rec.amt_contr := p_amt_contr;
344 l_rec.max_contr_allowed := p_max_contr_allowed;
345 l_rec.includable_comp := p_includable_comp;
346 l_rec.tax_unit_id := p_tax_unit_id;
347 l_rec.source_system := p_source_system;
348 l_rec.contr_information_category := p_contr_information_category;
349 l_rec.contr_information1 := p_contr_information1;
350 l_rec.contr_information2 := p_contr_information2;
351 l_rec.contr_information3 := p_contr_information3;
355 l_rec.contr_information7 := p_contr_information7;
352 l_rec.contr_information4 := p_contr_information4;
353 l_rec.contr_information5 := p_contr_information5;
354 l_rec.contr_information6 := p_contr_information6;
356 l_rec.contr_information8 := p_contr_information8;
357 l_rec.contr_information9 := p_contr_information9;
358 l_rec.contr_information10 := p_contr_information10;
359 l_rec.contr_information11 := p_contr_information11;
360 l_rec.contr_information12 := p_contr_information12;
361 l_rec.contr_information13 := p_contr_information13;
362 l_rec.contr_information14 := p_contr_information14;
363 l_rec.contr_information15 := p_contr_information15;
364 l_rec.contr_information16 := p_contr_information16;
365 l_rec.contr_information17 := p_contr_information17;
369 l_rec.contr_information21 := p_contr_information21;
366 l_rec.contr_information18 := p_contr_information18;
367 l_rec.contr_information19 := p_contr_information19;
368 l_rec.contr_information20 := p_contr_information20;
370 l_rec.contr_information22 := p_contr_information22;
371 l_rec.contr_information23 := p_contr_information23;
372 l_rec.contr_information24 := p_contr_information24;
373 l_rec.contr_information25 := p_contr_information25;
374 l_rec.contr_information26 := p_contr_information26;
375 l_rec.contr_information27 := p_contr_information27;
376 l_rec.contr_information28 := p_contr_information28;
377 l_rec.contr_information29 := p_contr_information29;
378 l_rec.contr_information30 := p_contr_information30;
379 l_rec.object_version_number := p_object_version_number;
380 --
381 -- Return the plsql record structure.
382 --
383 hr_utility.set_location(' Leaving:'||l_proc, 10);
384 Return(l_rec);
385 --
386 End convert_args;
387 --
388 end pay_con_shd;